diff options
| author | Kartik Agaram <vc@akkartik.com> | 2021-05-18 13:01:59 -0700 |
|---|---|---|
| committer | Kartik Agaram <vc@akkartik.com> | 2021-05-18 13:04:33 -0700 |
| commit | 5396e24cba8390ca2d70d99c7e8772eee4ec3a11 (patch) | |
| tree | b266edbb6c21db7904370d082a7966783fb9e9d4 /html | |
| parent | b4c0b12542c1f1a1e141ed0c8db2f6165af06e0f (diff) | |
| download | mu-5396e24cba8390ca2d70d99c7e8772eee4ec3a11.tar.gz | |
.
Diffstat (limited to 'html')
74 files changed, 47941 insertions, 42093 deletions
diff --git a/html/102keyboard.subx.html b/html/102keyboard.subx.html index eb272040..b4fd8a3b 100644 --- a/html/102keyboard.subx.html +++ b/html/102keyboard.subx.html @@ -94,7 +94,7 @@ if ('onhashchange' in window) { <span id="L37" class="LineNr">37 </span> <span class="subxComment"># var next-key/eax: byte = *buffer-byte-addr</span> <span id="L38" class="LineNr">38 </span> 8a/byte-> *ecx 0/r32/AL <span id="L39" class="LineNr">39 </span> <span class="subxComment"># if (next-key != 0) lock and remove from keyboard buffer</span> -<span id="L40" class="LineNr">40 </span> 81 7/subop/compare %eax 0/imm32 +<span id="L40" class="LineNr">40 </span> 3d/compare-eax-with 0/imm32 <span id="L41" class="LineNr">41 </span> { <span id="L42" class="LineNr">42 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 <span id="L43" class="LineNr">43 </span> fa/disable-interrupts diff --git a/html/103grapheme.subx.html b/html/103grapheme.subx.html index 915dd02b..fdbf0e99 100644 --- a/html/103grapheme.subx.html +++ b/html/103grapheme.subx.html @@ -102,7 +102,7 @@ if ('onhashchange' in window) { <span id="L45" class="LineNr"> 45 </span> <span class="subxComment"># var xcurr/eax: int = x*8 + 7</span> <span id="L46" class="LineNr"> 46 </span> 8b/-> *(ebp+0xc) 0/r32/eax <span class="subxComment"># font-width - 1</span> <span id="L47" class="LineNr"> 47 </span> c1 4/subop/shift-left %eax 3/imm8 -<span id="L48" class="LineNr"> 48 </span> 81 0/subop/add %eax 7/imm32 +<span id="L48" class="LineNr"> 48 </span> 05/add-to-eax 7/imm32 <span id="L49" class="LineNr"> 49 </span> <span class="subxComment"># var xmin/ecx: int = x*8</span> <span id="L50" class="LineNr"> 50 </span> 8b/-> *(ebp+0xc) 1/r32/ecx <span id="L51" class="LineNr"> 51 </span> c1 4/subop/shift-left %ecx 3/imm8 diff --git a/html/108write.subx.html b/html/108write.subx.html index 4249e689..7f5a6178 100644 --- a/html/108write.subx.html +++ b/html/108write.subx.html @@ -254,7 +254,7 @@ if ('onhashchange' in window) { <span id="L194" class="LineNr">194 </span> 73/jump-if-addr>= $_append-4:end/disp8 <span id="L195" class="LineNr">195 </span> <span class="subxComment"># if (out >= outend) abort # just to catch test failures fast</span> <span id="L196" class="LineNr">196 </span> 39/compare 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare edi with edx</span> -<span id="L197" class="LineNr">197 </span> 73/jump-if-addr>= $_append-4:end/disp8 <span class="subxComment"># TODO: abort</span> +<span id="L197" class="LineNr">197 </span> 0f 83/jump-if-addr>= $_append-4:<a href='317abort.subx.html#L5'>abort</a>/disp32 <span id="L198" class="LineNr">198 </span> <span class="subxComment"># *out = *in</span> <span id="L199" class="LineNr">199 </span> 8a/copy-byte 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/BL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *esi to BL</span> <span id="L200" class="LineNr">200 </span> 88/copy-byte 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/BL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at BL to *edi</span> @@ -277,7 +277,13 @@ if ('onhashchange' in window) { <span id="L217" class="LineNr">217 </span> 5d/pop-to-ebp <span id="L218" class="LineNr">218 </span> c3/return <span id="L219" class="LineNr">219 </span> -<span id="L220" class="LineNr">220 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +<span id="L220" class="LineNr">220 </span><span class="Constant">$_append-4:<a href='317abort.subx.html#L5'>abort</a></span>: +<span id="L221" class="LineNr">221 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"_append-4: stream full at "</span> 3 0) <span class="subxComment"># 3=cyan</span> +<span id="L222" class="LineNr">222 </span> (<a href='501draw-text.mu.html#L312'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 %eax 3 0) +<span id="L223" class="LineNr">223 </span> (<a href='317abort.subx.html#L5'>abort</a> <span class="Constant">""</span>) +<span id="L224" class="LineNr">224 </span> <span class="subxComment"># never gets here</span> +<span id="L225" class="LineNr">225 </span> +<span id="L226" class="LineNr">226 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> </body> </html> diff --git a/html/112read-byte.subx.html b/html/112read-byte.subx.html index 8ec265a5..95e260c6 100644 --- a/html/112read-byte.subx.html +++ b/html/112read-byte.subx.html @@ -82,7 +82,7 @@ if ('onhashchange' in window) { <span id="L23" class="LineNr"> 23 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to ecx</span> <span id="L24" class="LineNr"> 24 </span> <span class="subxComment"># if (f->read >= f->write) abort</span> <span id="L25" class="LineNr"> 25 </span> 3b/compare 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with *esi</span> -<span id="L26" class="LineNr"> 26 </span> 0f 8d/jump-if->= $read-byte:<a href='501draw-text.mu.html#L481'>abort</a>/disp32 +<span id="L26" class="LineNr"> 26 </span> 0f 8d/jump-if->= $read-byte:<a href='317abort.subx.html#L5'>abort</a>/disp32 <span id="L27" class="LineNr"> 27 </span> <span class="subxComment"># result = f->data[f->read]</span> <span id="L28" class="LineNr"> 28 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> <span id="L29" class="LineNr"> 29 </span> 8a/copy-byte 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 0/r32/AL 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *(esi+ecx+12) to AL</span> @@ -97,23 +97,23 @@ if ('onhashchange' in window) { <span id="L38" class="LineNr"> 38 </span> 5d/pop-to-ebp <span id="L39" class="LineNr"> 39 </span> c3/return <span id="L40" class="LineNr"> 40 </span> -<span id="L41" class="LineNr"> 41 </span><span class="Constant">$read-byte:<a href='501draw-text.mu.html#L481'>abort</a></span>: -<span id="L42" class="LineNr"> 42 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"read-byte: empty stream"</span> 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L43" class="LineNr"> 43 </span> { -<span id="L44" class="LineNr"> 44 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L45" class="LineNr"> 45 </span> } -<span id="L46" class="LineNr"> 46 </span> <span class="subxComment"># never gets here</span> -<span id="L47" class="LineNr"> 47 </span> -<span id="L48" class="LineNr"> 48 </span>== data -<span id="L49" class="LineNr"> 49 </span> -<span id="L50" class="LineNr"> 50 </span><span class="subxMinorFunction">_test-input-stream</span>: <span class="subxComment"># (stream byte)</span> -<span id="L51" class="LineNr"> 51 </span> <span class="subxComment"># current write index</span> -<span id="L52" class="LineNr"> 52 </span> 0/imm32 -<span id="L53" class="LineNr"> 53 </span> <span class="subxComment"># current read index</span> -<span id="L54" class="LineNr"> 54 </span> 0/imm32 -<span id="L55" class="LineNr"> 55 </span> <span class="subxComment"># size</span> -<span id="L56" class="LineNr"> 56 </span> 0x400/imm32 <span class="subxComment"># 1024 bytes</span> -<span id="L57" class="LineNr"> 57 </span> <span class="subxComment"># data (64 lines x 16 bytes/line)</span> +<span id="L41" class="LineNr"> 41 </span><span class="Constant">$read-byte:<a href='317abort.subx.html#L5'>abort</a></span>: +<span id="L42" class="LineNr"> 42 </span> (<a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"read-byte: empty stream"</span>) +<span id="L43" class="LineNr"> 43 </span> <span class="subxComment"># never gets here</span> +<span id="L44" class="LineNr"> 44 </span> +<span id="L45" class="LineNr"> 45 </span>== data +<span id="L46" class="LineNr"> 46 </span> +<span id="L47" class="LineNr"> 47 </span><span class="subxMinorFunction">_test-input-stream</span>: <span class="subxComment"># (stream byte)</span> +<span id="L48" class="LineNr"> 48 </span> <span class="subxComment"># current write index</span> +<span id="L49" class="LineNr"> 49 </span> 0/imm32 +<span id="L50" class="LineNr"> 50 </span> <span class="subxComment"># current read index</span> +<span id="L51" class="LineNr"> 51 </span> 0/imm32 +<span id="L52" class="LineNr"> 52 </span> <span class="subxComment"># size</span> +<span id="L53" class="LineNr"> 53 </span> 0x400/imm32 <span class="subxComment"># 1024 bytes</span> +<span id="L54" class="LineNr"> 54 </span> <span class="subxComment"># data (64 lines x 16 bytes/line)</span> +<span id="L55" class="LineNr"> 55 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L56" class="LineNr"> 56 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L57" class="LineNr"> 57 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 <span id="L58" class="LineNr"> 58 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 <span id="L59" class="LineNr"> 59 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 <span id="L60" class="LineNr"> 60 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 @@ -175,11 +175,8 @@ if ('onhashchange' in window) { <span id="L116" class="LineNr">116 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 <span id="L117" class="LineNr">117 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 <span id="L118" class="LineNr">118 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L119" class="LineNr">119 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L120" class="LineNr">120 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L121" class="LineNr">121 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L122" class="LineNr">122 </span> -<span id="L123" class="LineNr">123 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +<span id="L119" class="LineNr">119 </span> +<span id="L120" class="LineNr">120 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> </body> </html> diff --git a/html/115write-byte.subx.html b/html/115write-byte.subx.html index a2e626f2..7ac34eb1 100644 --- a/html/115write-byte.subx.html +++ b/html/115write-byte.subx.html @@ -83,7 +83,7 @@ if ('onhashchange' in window) { <span id="L23" class="LineNr">23 </span> 8b/copy 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edi to ecx</span> <span id="L24" class="LineNr">24 </span> <span class="subxComment"># if (f->write >= f->size) abort</span> <span id="L25" class="LineNr">25 </span> 3b/compare 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># compare ecx with *(edi+8)</span> -<span id="L26" class="LineNr">26 </span> 7d/jump-if->= $append-byte:<a href='501draw-text.mu.html#L481'>abort</a>/disp8 +<span id="L26" class="LineNr">26 </span> 7d/jump-if->= $append-byte:<a href='317abort.subx.html#L5'>abort</a>/disp8 <span id="L27" class="LineNr">27 </span><span class="Constant">$append-byte:to-stream</span>: <span id="L28" class="LineNr">28 </span> <span class="subxComment"># write to stream</span> <span id="L29" class="LineNr">29 </span> <span class="subxComment"># f->data[f->write] = LSB(n)</span> @@ -102,44 +102,41 @@ if ('onhashchange' in window) { <span id="L42" class="LineNr">42 </span> 5d/pop-to-ebp <span id="L43" class="LineNr">43 </span> c3/return <span id="L44" class="LineNr">44 </span> -<span id="L45" class="LineNr">45 </span><span class="Constant">$append-byte:<a href='501draw-text.mu.html#L481'>abort</a></span>: -<span id="L46" class="LineNr">46 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"append-byte: out of space\n"</span> 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L47" class="LineNr">47 </span> { -<span id="L48" class="LineNr">48 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L49" class="LineNr">49 </span> } -<span id="L50" class="LineNr">50 </span> <span class="subxComment"># never gets here</span> -<span id="L51" class="LineNr">51 </span> -<span id="L52" class="LineNr">52 </span><span class="subxTest">test-append-byte-single</span>: -<span id="L53" class="LineNr">53 </span> <span class="subxH1Comment"># - check that append-byte writes to first byte of 'file'</span> -<span id="L54" class="LineNr">54 </span> <span class="subxComment"># setup</span> -<span id="L55" class="LineNr">55 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L56" class="LineNr">56 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L57" class="LineNr">57 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L58" class="LineNr">58 </span> <span class="subxS2Comment"># . . call</span> -<span id="L59" class="LineNr">59 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 -<span id="L60" class="LineNr">60 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L61" class="LineNr">61 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L62" class="LineNr">62 </span> <span class="subxComment"># append-byte(_test-stream, 'A')</span> -<span id="L63" class="LineNr">63 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L64" class="LineNr">64 </span> 68/push 0x41/imm32 -<span id="L65" class="LineNr">65 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L66" class="LineNr">66 </span> <span class="subxS2Comment"># . . call</span> -<span id="L67" class="LineNr">67 </span> e8/call <a href='115write-byte.subx.html#L12'>append-byte</a>/disp32 -<span id="L68" class="LineNr">68 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L69" class="LineNr">69 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L70" class="LineNr">70 </span> <span class="subxComment"># check-stream-equal(_test-stream, "A", msg)</span> -<span id="L71" class="LineNr">71 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L72" class="LineNr">72 </span> 68/push <span class="Constant">"F - test-append-byte-single"</span>/imm32 -<span id="L73" class="LineNr">73 </span> 68/push <span class="Constant">"A"</span>/imm32 -<span id="L74" class="LineNr">74 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L75" class="LineNr">75 </span> <span class="subxS2Comment"># . . call</span> -<span id="L76" class="LineNr">76 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L77" class="LineNr">77 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L78" class="LineNr">78 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L79" class="LineNr">79 </span> <span class="subxS1Comment"># . end</span> -<span id="L80" class="LineNr">80 </span> c3/return -<span id="L81" class="LineNr">81 </span> -<span id="L82" class="LineNr">82 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +<span id="L45" class="LineNr">45 </span><span class="Constant">$append-byte:<a href='317abort.subx.html#L5'>abort</a></span>: +<span id="L46" class="LineNr">46 </span> (<a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"append-byte: out of space"</span>) +<span id="L47" class="LineNr">47 </span> <span class="subxComment"># never gets here</span> +<span id="L48" class="LineNr">48 </span> +<span id="L49" class="LineNr">49 </span><span class="subxTest">test-append-byte-single</span>: +<span id="L50" class="LineNr">50 </span> <span class="subxH1Comment"># - check that append-byte writes to first byte of 'file'</span> +<span id="L51" class="LineNr">51 </span> <span class="subxComment"># setup</span> +<span id="L52" class="LineNr">52 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L53" class="LineNr">53 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L54" class="LineNr">54 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L55" class="LineNr">55 </span> <span class="subxS2Comment"># . . call</span> +<span id="L56" class="LineNr">56 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L57" class="LineNr">57 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L58" class="LineNr">58 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L59" class="LineNr">59 </span> <span class="subxComment"># append-byte(_test-stream, 'A')</span> +<span id="L60" class="LineNr">60 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L61" class="LineNr">61 </span> 68/push 0x41/imm32 +<span id="L62" class="LineNr">62 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L63" class="LineNr">63 </span> <span class="subxS2Comment"># . . call</span> +<span id="L64" class="LineNr">64 </span> e8/call <a href='115write-byte.subx.html#L12'>append-byte</a>/disp32 +<span id="L65" class="LineNr">65 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L66" class="LineNr">66 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L67" class="LineNr">67 </span> <span class="subxComment"># check-stream-equal(_test-stream, "A", msg)</span> +<span id="L68" class="LineNr">68 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L69" class="LineNr">69 </span> 68/push <span class="Constant">"F - test-append-byte-single"</span>/imm32 +<span id="L70" class="LineNr">70 </span> 68/push <span class="Constant">"A"</span>/imm32 +<span id="L71" class="LineNr">71 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L72" class="LineNr">72 </span> <span class="subxS2Comment"># . . call</span> +<span id="L73" class="LineNr">73 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L74" class="LineNr">74 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L75" class="LineNr">75 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L76" class="LineNr">76 </span> <span class="subxS1Comment"># . end</span> +<span id="L77" class="LineNr">77 </span> c3/return +<span id="L78" class="LineNr">78 </span> +<span id="L79" class="LineNr">79 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> </body> </html> diff --git a/html/118parse-hex-int.subx.html b/html/118parse-hex-int.subx.html index 50b2f1f4..65501a2b 100644 --- a/html/118parse-hex-int.subx.html +++ b/html/118parse-hex-int.subx.html @@ -924,11 +924,11 @@ if ('onhashchange' in window) { <span id="L865" class="LineNr">865 </span><span class="Constant">$from-hex-char:check0</span>: <span id="L866" class="LineNr">866 </span> <span class="subxComment"># if (eax < '0') goto abort</span> <span id="L867" class="LineNr">867 </span> 3d/compare-eax-with 0x30/imm32/0 -<span id="L868" class="LineNr">868 </span> 7c/jump-if-< $from-hex-char:<a href='501draw-text.mu.html#L481'>abort</a>/disp8 +<span id="L868" class="LineNr">868 </span> 7c/jump-if-< $from-hex-char:<a href='317abort.subx.html#L5'>abort</a>/disp8 <span id="L869" class="LineNr">869 </span><span class="Constant">$from-hex-char:check1</span>: <span id="L870" class="LineNr">870 </span> <span class="subxComment"># if (eax > 'f') goto abort</span> <span id="L871" class="LineNr">871 </span> 3d/compare-eax-with 0x66/imm32/f -<span id="L872" class="LineNr">872 </span> 7f/jump-if-> $from-hex-char:<a href='501draw-text.mu.html#L481'>abort</a>/disp8 +<span id="L872" class="LineNr">872 </span> 7f/jump-if-> $from-hex-char:<a href='317abort.subx.html#L5'>abort</a>/disp8 <span id="L873" class="LineNr">873 </span><span class="Constant">$from-hex-char:check2</span>: <span id="L874" class="LineNr">874 </span> <span class="subxComment"># if (eax > '9') goto next check</span> <span id="L875" class="LineNr">875 </span> 3d/compare-eax-with 0x39/imm32/9 @@ -940,20 +940,17 @@ if ('onhashchange' in window) { <span id="L881" class="LineNr">881 </span><span class="Constant">$from-hex-char:check3</span>: <span id="L882" class="LineNr">882 </span> <span class="subxComment"># if (eax < 'a') goto abort</span> <span id="L883" class="LineNr">883 </span> 3d/compare-eax-with 0x61/imm32/a -<span id="L884" class="LineNr">884 </span> 7c/jump-if-< $from-hex-char:<a href='501draw-text.mu.html#L481'>abort</a>/disp8 +<span id="L884" class="LineNr">884 </span> 7c/jump-if-< $from-hex-char:<a href='317abort.subx.html#L5'>abort</a>/disp8 <span id="L885" class="LineNr">885 </span><span class="Constant">$from-hex-char:letter</span>: <span id="L886" class="LineNr">886 </span> <span class="subxComment"># return eax - ('a'-10)</span> <span id="L887" class="LineNr">887 </span> 2d/subtract-from-eax 0x57/imm32/a-10 <span id="L888" class="LineNr">888 </span> c3/return <span id="L889" class="LineNr">889 </span> -<span id="L890" class="LineNr">890 </span><span class="Constant">$from-hex-char:<a href='501draw-text.mu.html#L481'>abort</a></span>: -<span id="L891" class="LineNr">891 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"invalid hex char"</span> 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L892" class="LineNr">892 </span> { -<span id="L893" class="LineNr">893 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L894" class="LineNr">894 </span> } -<span id="L895" class="LineNr">895 </span> <span class="subxComment"># never gets here</span> -<span id="L896" class="LineNr">896 </span> -<span id="L897" class="LineNr">897 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +<span id="L890" class="LineNr">890 </span><span class="Constant">$from-hex-char:<a href='317abort.subx.html#L5'>abort</a></span>: +<span id="L891" class="LineNr">891 </span> (<a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"invalid hex char"</span>) +<span id="L892" class="LineNr">892 </span> <span class="subxComment"># never gets here</span> +<span id="L893" class="LineNr">893 </span> +<span id="L894" class="LineNr">894 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> </body> </html> diff --git a/html/120allocate.subx.html b/html/120allocate.subx.html index cd7568b7..e5b5d820 100644 --- a/html/120allocate.subx.html +++ b/html/120allocate.subx.html @@ -125,7 +125,7 @@ if ('onhashchange' in window) { <span id="L64" class="LineNr"> 64 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L65" class="LineNr"> 65 </span> 50/push-eax <span id="L66" class="LineNr"> 66 </span> <span class="subxS2Comment"># . . call</span> -<span id="L67" class="LineNr"> 67 </span> e8/call <a href='120allocate.subx.html#L836'>zero-out</a>/disp32 +<span id="L67" class="LineNr"> 67 </span> e8/call <a href='120allocate.subx.html#L857'>zero-out</a>/disp32 <span id="L68" class="LineNr"> 68 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L69" class="LineNr"> 69 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L70" class="LineNr"> 70 </span><span class="Constant">$allocate:end</span>: @@ -173,7 +173,7 @@ if ('onhashchange' in window) { <span id="L112" class="LineNr">112 </span> <span class="subxComment"># TODO: move this check up before any state updates when we support error recovery</span> <span id="L113" class="LineNr">113 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 3/index/ebx <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ebx+4 to eax</span> <span id="L114" class="LineNr">114 </span> 3b/compare 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># compare eax with *(ecx+4)</span> -<span id="L115" class="LineNr">115 </span> 73/jump-if->=-signed $allocate-raw:<a href='501draw-text.mu.html#L481'>abort</a>/disp8 +<span id="L115" class="LineNr">115 </span> 73/jump-if->=-signed $allocate-raw:<a href='317abort.subx.html#L5'>abort</a>/disp8 <span id="L116" class="LineNr">116 </span><span class="Constant">$allocate-raw:commit</span>: <span id="L117" class="LineNr">117 </span> <span class="subxComment"># ad->curr += n+4</span> <span id="L118" class="LineNr">118 </span> 89/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *ecx</span> @@ -190,789 +190,810 @@ if ('onhashchange' in window) { <span id="L129" class="LineNr">129 </span> 5d/pop-to-ebp <span id="L130" class="LineNr">130 </span> c3/return <span id="L131" class="LineNr">131 </span> -<span id="L132" class="LineNr">132 </span><span class="Constant">$allocate-raw:<a href='501draw-text.mu.html#L481'>abort</a></span>: -<span id="L133" class="LineNr">133 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"allocate: failed"</span> 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L134" class="LineNr">134 </span> { -<span id="L135" class="LineNr">135 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L136" class="LineNr">136 </span> } -<span id="L137" class="LineNr">137 </span> <span class="subxComment"># never gets here</span> -<span id="L138" class="LineNr">138 </span> -<span id="L139" class="LineNr">139 </span><span class="subxTest">test-allocate-raw-success</span>: -<span id="L140" class="LineNr">140 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L141" class="LineNr">141 </span> 55/push-ebp -<span id="L142" class="LineNr">142 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L143" class="LineNr">143 </span> <span class="subxComment"># var ad/ecx: allocation-descriptor containing 16 bytes</span> -<span id="L144" class="LineNr">144 </span> <span class="subxS1Comment"># . var end/ecx: (addr byte)</span> -<span id="L145" class="LineNr">145 </span> 89/<- %ecx 4/r32/esp -<span id="L146" class="LineNr">146 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = end - 16</span> -<span id="L147" class="LineNr">147 </span> 81 5/subop/subtract %esp 0x10/imm32 -<span id="L148" class="LineNr">148 </span> 89/<- %edx 4/r32/esp -<span id="L149" class="LineNr">149 </span> <span class="subxS1Comment"># . ad = {start, end}</span> -<span id="L150" class="LineNr">150 </span> 51/push-ecx -<span id="L151" class="LineNr">151 </span> 52/push-edx -<span id="L152" class="LineNr">152 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L153" class="LineNr">153 </span> <span class="subxComment"># var expected-payload/ebx = ad->curr</span> -<span id="L154" class="LineNr">154 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to ebx</span> -<span id="L155" class="LineNr">155 </span> <span class="subxComment"># var h/edx: handle = {0, 0}</span> -<span id="L156" class="LineNr">156 </span> 68/push 0/imm32 -<span id="L157" class="LineNr">157 </span> 68/push 0/imm32 -<span id="L158" class="LineNr">158 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> -<span id="L159" class="LineNr">159 </span> <span class="subxComment"># *Next-alloc-id = 0x34</span> -<span id="L160" class="LineNr">160 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 0x34/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> -<span id="L161" class="LineNr">161 </span> <span class="subxComment"># allocate-raw(ad, 3, h)</span> -<span id="L162" class="LineNr">162 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L163" class="LineNr">163 </span> 52/push-edx -<span id="L164" class="LineNr">164 </span> 68/push 3/imm32 -<span id="L165" class="LineNr">165 </span> 51/push-ecx -<span id="L166" class="LineNr">166 </span> <span class="subxS2Comment"># . . call</span> -<span id="L167" class="LineNr">167 </span> e8/call <a href='120allocate.subx.html#L80'>allocate-raw</a>/disp32 -<span id="L168" class="LineNr">168 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L169" class="LineNr">169 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L170" class="LineNr">170 </span> <span class="subxComment"># check-ints-equal(h->alloc-id, 0x34, msg)</span> -<span id="L171" class="LineNr">171 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L172" class="LineNr">172 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L139'>test-allocate-raw-success</a>: sets alloc-id in handle"</span>/imm32 -<span id="L173" class="LineNr">173 </span> 68/push 0x34/imm32 -<span id="L174" class="LineNr">174 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> -<span id="L175" class="LineNr">175 </span> <span class="subxS2Comment"># . . call</span> -<span id="L176" class="LineNr">176 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L177" class="LineNr">177 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L178" class="LineNr">178 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L179" class="LineNr">179 </span> <span class="subxComment"># check-ints-equal(h->payload, expected-payload, msg)</span> -<span id="L180" class="LineNr">180 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L181" class="LineNr">181 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L139'>test-allocate-raw-success</a>: sets payload in handle"</span>/imm32 -<span id="L182" class="LineNr">182 </span> 53/push-ebx -<span id="L183" class="LineNr">183 </span> ff 6/subop/push 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edx+4)</span> -<span id="L184" class="LineNr">184 </span> <span class="subxS2Comment"># . . call</span> -<span id="L185" class="LineNr">185 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L186" class="LineNr">186 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L187" class="LineNr">187 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L188" class="LineNr">188 </span> <span class="subxComment"># check-ints-equal(h->payload->alloc-id, 0x34, msg)</span> -<span id="L189" class="LineNr">189 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L190" class="LineNr">190 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L139'>test-allocate-raw-success</a>: sets alloc-id in payload"</span>/imm32 -<span id="L191" class="LineNr">191 </span> 68/push 0x34/imm32 -<span id="L192" class="LineNr">192 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> -<span id="L193" class="LineNr">193 </span> <span class="subxS2Comment"># . . call</span> -<span id="L194" class="LineNr">194 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L195" class="LineNr">195 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L196" class="LineNr">196 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L197" class="LineNr">197 </span> <span class="subxComment"># check-ints-equal(*Next-alloc-id, 0x35, msg)</span> -<span id="L198" class="LineNr">198 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L199" class="LineNr">199 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L139'>test-allocate-raw-success</a>: increments Next-alloc-id"</span>/imm32 -<span id="L200" class="LineNr">200 </span> 68/push 0x35/imm32 -<span id="L201" class="LineNr">201 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 <span class="subxComment"># push *Next-alloc-id</span> -<span id="L202" class="LineNr">202 </span> <span class="subxS2Comment"># . . call</span> -<span id="L203" class="LineNr">203 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L204" class="LineNr">204 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L205" class="LineNr">205 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L206" class="LineNr">206 </span> <span class="subxComment"># check-ints-equal(ad->curr - expected-payload, 3 + 4 for alloc-id, msg)</span> -<span id="L207" class="LineNr">207 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L208" class="LineNr">208 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L139'>test-allocate-raw-success</a>: updates allocation descriptor"</span>/imm32 -<span id="L209" class="LineNr">209 </span> 68/push 7/imm32 -<span id="L210" class="LineNr">210 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> -<span id="L211" class="LineNr">211 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ebx from eax</span> -<span id="L212" class="LineNr">212 </span> 50/push-eax -<span id="L213" class="LineNr">213 </span> <span class="subxS2Comment"># . . call</span> -<span id="L214" class="LineNr">214 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L215" class="LineNr">215 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L216" class="LineNr">216 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L217" class="LineNr">217 </span> <span class="subxComment"># clean up</span> -<span id="L218" class="LineNr">218 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 0x100/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> -<span id="L219" class="LineNr">219 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L220" class="LineNr">220 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x20/imm32 <span class="subxComment"># add to esp</span> -<span id="L221" class="LineNr">221 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L222" class="LineNr">222 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L223" class="LineNr">223 </span> 5d/pop-to-ebp -<span id="L224" class="LineNr">224 </span> c3/return -<span id="L225" class="LineNr">225 </span> -<span id="L226" class="LineNr">226 </span><span class="subxFunction">lookup</span>: <span class="subxComment"># h: (handle _T) -> result/eax: (addr _T)</span> -<span id="L227" class="LineNr">227 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L228" class="LineNr">228 </span> 55/push-ebp -<span id="L229" class="LineNr">229 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L230" class="LineNr">230 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L231" class="LineNr">231 </span> 51/push-ecx -<span id="L232" class="LineNr">232 </span> <span class="subxComment"># eax = 0</span> -<span id="L233" class="LineNr">233 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> -<span id="L234" class="LineNr">234 </span> <span class="subxComment"># ecx = handle->alloc_id</span> -<span id="L235" class="LineNr">235 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> -<span id="L236" class="LineNr">236 </span> <span class="subxComment"># if (ecx == 0) return 0</span> -<span id="L237" class="LineNr">237 </span> 81 7/subop/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># compare ecx</span> -<span id="L238" class="LineNr">238 </span> 74/jump-if-= $lookup:end/disp8 -<span id="L239" class="LineNr">239 </span> <span class="subxComment"># eax = handle->address (payload)</span> -<span id="L240" class="LineNr">240 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to eax</span> -<span id="L241" class="LineNr">241 </span> <span class="subxComment"># if (ecx != *eax) abort</span> -<span id="L242" class="LineNr">242 </span> 39/compare 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare *eax and ecx</span> -<span id="L243" class="LineNr">243 </span> 75/jump-if-!= $lookup:<a href='501draw-text.mu.html#L481'>abort</a>/disp8 -<span id="L244" class="LineNr">244 </span> <span class="subxComment"># add 4 to eax</span> -<span id="L245" class="LineNr">245 </span> 05/add-to-eax 4/imm32 -<span id="L246" class="LineNr">246 </span><span class="Constant">$lookup:end</span>: -<span id="L247" class="LineNr">247 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L248" class="LineNr">248 </span> 59/pop-to-ecx -<span id="L249" class="LineNr">249 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L250" class="LineNr">250 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L251" class="LineNr">251 </span> 5d/pop-to-ebp -<span id="L252" class="LineNr">252 </span> c3/return -<span id="L253" class="LineNr">253 </span> -<span id="L254" class="LineNr">254 </span><span class="Constant">$lookup:<a href='501draw-text.mu.html#L481'>abort</a></span>: -<span id="L255" class="LineNr">255 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"lookup: failed"</span> 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L256" class="LineNr">256 </span> { -<span id="L257" class="LineNr">257 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L258" class="LineNr">258 </span> } -<span id="L259" class="LineNr">259 </span> <span class="subxComment"># never gets here</span> -<span id="L260" class="LineNr">260 </span> -<span id="L261" class="LineNr">261 </span><span class="subxTest">test-lookup-success</span>: -<span id="L262" class="LineNr">262 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L263" class="LineNr">263 </span> 55/push-ebp -<span id="L264" class="LineNr">264 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L265" class="LineNr">265 </span> <span class="subxComment"># var ad/ebx: allocation-descriptor containing 16 bytes</span> -<span id="L266" class="LineNr">266 </span> <span class="subxS1Comment"># . var end/ecx: (addr byte)</span> -<span id="L267" class="LineNr">267 </span> 89/<- %ecx 4/r32/esp -<span id="L268" class="LineNr">268 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = end - 16</span> -<span id="L269" class="LineNr">269 </span> 81 5/subop/subtract %esp 0x10/imm32 -<span id="L270" class="LineNr">270 </span> 89/<- %edx 4/r32/esp -<span id="L271" class="LineNr">271 </span> <span class="subxS1Comment"># . ad = {start, end}</span> -<span id="L272" class="LineNr">272 </span> 51/push-ecx -<span id="L273" class="LineNr">273 </span> 52/push-edx -<span id="L274" class="LineNr">274 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> -<span id="L275" class="LineNr">275 </span> <span class="subxComment"># var handle/ecx: handle</span> -<span id="L276" class="LineNr">276 </span> 68/push 0/imm32/address -<span id="L277" class="LineNr">277 </span> 68/push 0/imm32/alloc-id -<span id="L278" class="LineNr">278 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L279" class="LineNr">279 </span> <span class="subxComment"># var old-top/edx = ad->curr</span> -<span id="L280" class="LineNr">280 </span> 8b/copy 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ebx to edx</span> -<span id="L281" class="LineNr">281 </span> <span class="subxComment"># allocate-raw(ad, 2, handle)</span> -<span id="L282" class="LineNr">282 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L283" class="LineNr">283 </span> 51/push-ecx -<span id="L284" class="LineNr">284 </span> 68/push 2/imm32/size -<span id="L285" class="LineNr">285 </span> 53/push-ebx -<span id="L286" class="LineNr">286 </span> <span class="subxS2Comment"># . . call</span> -<span id="L287" class="LineNr">287 </span> e8/call <a href='120allocate.subx.html#L80'>allocate-raw</a>/disp32 -<span id="L288" class="LineNr">288 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L289" class="LineNr">289 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L290" class="LineNr">290 </span> <span class="subxComment"># eax = lookup(handle)</span> -<span id="L291" class="LineNr">291 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L292" class="LineNr">292 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> -<span id="L293" class="LineNr">293 </span> ff 6/subop/push 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ecx</span> -<span id="L294" class="LineNr">294 </span> <span class="subxS2Comment"># . . call</span> -<span id="L295" class="LineNr">295 </span> e8/call <a href='120allocate.subx.html#L226'>lookup</a>/disp32 -<span id="L296" class="LineNr">296 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L297" class="LineNr">297 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L298" class="LineNr">298 </span> <span class="subxComment"># eax contains old top of heap, except skipping the alloc-id in the payload</span> -<span id="L299" class="LineNr">299 </span> <span class="subxS1Comment"># . check-ints-equal(eax, old-top+4, msg)</span> -<span id="L300" class="LineNr">300 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L301" class="LineNr">301 </span> 68/push <span class="Constant">"F - test-lookup-success"</span>/imm32 -<span id="L302" class="LineNr">302 </span> 81 0/subop/add 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to edx</span> -<span id="L303" class="LineNr">303 </span> 52/push-edx -<span id="L304" class="LineNr">304 </span> 50/push-eax -<span id="L305" class="LineNr">305 </span> <span class="subxS2Comment"># . . call</span> -<span id="L306" class="LineNr">306 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L307" class="LineNr">307 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L308" class="LineNr">308 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L309" class="LineNr">309 </span> <span class="subxComment"># clean up</span> -<span id="L310" class="LineNr">310 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 0x100/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> -<span id="L311" class="LineNr">311 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L312" class="LineNr">312 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x20/imm32 <span class="subxComment"># add to esp</span> -<span id="L313" class="LineNr">313 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L314" class="LineNr">314 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L315" class="LineNr">315 </span> 5d/pop-to-ebp -<span id="L316" class="LineNr">316 </span> c3/return -<span id="L317" class="LineNr">317 </span> -<span id="L318" class="LineNr">318 </span><span class="subxTest">test-lookup-null-returns-null</span>: -<span id="L319" class="LineNr">319 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L320" class="LineNr">320 </span> 55/push-ebp -<span id="L321" class="LineNr">321 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L322" class="LineNr">322 </span> <span class="subxComment"># var handle/ecx: handle</span> -<span id="L323" class="LineNr">323 </span> 68/push 0/imm32/address -<span id="L324" class="LineNr">324 </span> 68/push 0/imm32/alloc-id -<span id="L325" class="LineNr">325 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L326" class="LineNr">326 </span> <span class="subxComment"># eax = lookup(handle)</span> -<span id="L327" class="LineNr">327 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L328" class="LineNr">328 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> -<span id="L329" class="LineNr">329 </span> ff 6/subop/push 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ecx</span> -<span id="L330" class="LineNr">330 </span> <span class="subxS2Comment"># . . call</span> -<span id="L331" class="LineNr">331 </span> e8/call <a href='120allocate.subx.html#L226'>lookup</a>/disp32 -<span id="L332" class="LineNr">332 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L333" class="LineNr">333 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L334" class="LineNr">334 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> -<span id="L335" class="LineNr">335 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L336" class="LineNr">336 </span> 68/push <span class="Constant">"F - test-lookup-null-returns-null"</span>/imm32 -<span id="L337" class="LineNr">337 </span> 68/push 0/imm32 -<span id="L338" class="LineNr">338 </span> 50/push-eax -<span id="L339" class="LineNr">339 </span> <span class="subxS2Comment"># . . call</span> -<span id="L340" class="LineNr">340 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L341" class="LineNr">341 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L342" class="LineNr">342 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L343" class="LineNr">343 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L344" class="LineNr">344 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L345" class="LineNr">345 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L346" class="LineNr">346 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L347" class="LineNr">347 </span> 5d/pop-to-ebp -<span id="L348" class="LineNr">348 </span> c3/return -<span id="L349" class="LineNr">349 </span> -<span id="L350" class="LineNr">350 </span><span class="subxMinorFunction">_pending-test-lookup-failure</span>: -<span id="L351" class="LineNr">351 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L352" class="LineNr">352 </span> 55/push-ebp -<span id="L353" class="LineNr">353 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L354" class="LineNr">354 </span> <span class="subxComment"># var ad/ecx: allocation-descriptor containing 16 bytes</span> -<span id="L355" class="LineNr">355 </span> <span class="subxS1Comment"># . var end/ecx: (addr byte)</span> -<span id="L356" class="LineNr">356 </span> 89/<- %ecx 4/r32/esp -<span id="L357" class="LineNr">357 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = end - 16</span> -<span id="L358" class="LineNr">358 </span> 81 5/subop/subtract %esp 0x10/imm32 -<span id="L359" class="LineNr">359 </span> 89/<- %edx 4/r32/esp -<span id="L360" class="LineNr">360 </span> <span class="subxS1Comment"># . ad = {start, end}</span> -<span id="L361" class="LineNr">361 </span> 51/push-ecx -<span id="L362" class="LineNr">362 </span> 52/push-edx -<span id="L363" class="LineNr">363 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L364" class="LineNr">364 </span> <span class="subxComment"># var h1/ecx: handle</span> -<span id="L365" class="LineNr">365 </span> 68/push 0/imm32/address -<span id="L366" class="LineNr">366 </span> 68/push 0/imm32/alloc-id -<span id="L367" class="LineNr">367 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L368" class="LineNr">368 </span> <span class="subxComment"># var old_top/ebx = ad->curr</span> -<span id="L369" class="LineNr">369 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to ebx</span> -<span id="L370" class="LineNr">370 </span> <span class="subxComment"># first allocation, to h1</span> -<span id="L371" class="LineNr">371 </span> <span class="subxS1Comment"># . allocate(ad, 2, h1)</span> -<span id="L372" class="LineNr">372 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L373" class="LineNr">373 </span> 51/push-ecx -<span id="L374" class="LineNr">374 </span> 68/push 2/imm32/size -<span id="L375" class="LineNr">375 </span> 56/push-esi -<span id="L376" class="LineNr">376 </span> <span class="subxS2Comment"># . . call</span> -<span id="L377" class="LineNr">377 </span> e8/call <a href='120allocate.subx.html#L43'>allocate</a>/disp32 -<span id="L378" class="LineNr">378 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L379" class="LineNr">379 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L380" class="LineNr">380 </span> <span class="subxComment"># reset ad->curr to mimic reclamation</span> -<span id="L381" class="LineNr">381 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebx to *esi</span> -<span id="L382" class="LineNr">382 </span> <span class="subxComment"># second allocation that returns the same address as the first</span> -<span id="L383" class="LineNr">383 </span> <span class="subxComment"># var h2/edx: handle</span> -<span id="L384" class="LineNr">384 </span> 68/push 0/imm32/address -<span id="L385" class="LineNr">385 </span> 68/push 0/imm32/alloc-id -<span id="L386" class="LineNr">386 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> -<span id="L387" class="LineNr">387 </span> <span class="subxS1Comment"># . allocate(ad, 2, h2)</span> -<span id="L388" class="LineNr">388 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L389" class="LineNr">389 </span> 52/push-edx -<span id="L390" class="LineNr">390 </span> 68/push 2/imm32/size -<span id="L391" class="LineNr">391 </span> 56/push-esi -<span id="L392" class="LineNr">392 </span> <span class="subxS2Comment"># . . call</span> -<span id="L393" class="LineNr">393 </span> e8/call <a href='120allocate.subx.html#L43'>allocate</a>/disp32 -<span id="L394" class="LineNr">394 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L395" class="LineNr">395 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L396" class="LineNr">396 </span> <span class="subxComment"># check-ints-equal(h1->address, h2->address, msg)</span> -<span id="L397" class="LineNr">397 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L398" class="LineNr">398 </span> 68/push <span class="Constant">"F - test-lookup-failure"</span>/imm32 -<span id="L399" class="LineNr">399 </span> ff 6/subop/push 1/mod/*+disp8 2/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edx+4)</span> -<span id="L400" class="LineNr">400 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> -<span id="L401" class="LineNr">401 </span> <span class="subxS2Comment"># . . call</span> -<span id="L402" class="LineNr">402 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L403" class="LineNr">403 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L404" class="LineNr">404 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L405" class="LineNr">405 </span> <span class="subxComment"># lookup(h1) should crash</span> -<span id="L406" class="LineNr">406 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L407" class="LineNr">407 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> -<span id="L408" class="LineNr">408 </span> ff 6/subop/push 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ecx</span> -<span id="L409" class="LineNr">409 </span> <span class="subxS2Comment"># . . call</span> -<span id="L410" class="LineNr">410 </span> e8/call <a href='120allocate.subx.html#L226'>lookup</a>/disp32 -<span id="L411" class="LineNr">411 </span> <span class="subxComment"># should never get past this point</span> -<span id="L412" class="LineNr">412 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L413" class="LineNr">413 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L414" class="LineNr">414 </span> <span class="subxComment"># clean up</span> -<span id="L415" class="LineNr">415 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 0x100/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> -<span id="L416" class="LineNr">416 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L417" class="LineNr">417 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x20/imm32 <span class="subxComment"># add to esp</span> -<span id="L418" class="LineNr">418 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L419" class="LineNr">419 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L420" class="LineNr">420 </span> 5d/pop-to-ebp -<span id="L421" class="LineNr">421 </span> c3/return -<span id="L422" class="LineNr">422 </span> -<span id="L423" class="LineNr">423 </span><span class="subxComment"># when comparing handles, just treat them as pure values</span> -<span id="L424" class="LineNr">424 </span><span class="subxFunction">handle-equal?</span>: <span class="subxComment"># a: (handle _T), b: (handle _T) -> result/eax: boolean</span> -<span id="L425" class="LineNr">425 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L426" class="LineNr">426 </span> 55/push-ebp -<span id="L427" class="LineNr">427 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L428" class="LineNr">428 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L429" class="LineNr">429 </span> 51/push-ecx -<span id="L430" class="LineNr">430 </span> <span class="subxComment"># eax = false</span> -<span id="L431" class="LineNr">431 </span> b8/copy-to-eax 0/imm32/false -<span id="L432" class="LineNr">432 </span><span class="Constant">$handle-equal?:compare-alloc-id</span>: -<span id="L433" class="LineNr">433 </span> <span class="subxComment"># ecx = a->alloc_id</span> -<span id="L434" class="LineNr">434 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> -<span id="L435" class="LineNr">435 </span> <span class="subxComment"># if (ecx != b->alloc_id) return false</span> -<span id="L436" class="LineNr">436 </span> 39/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># compare ecx and *(ebp+16)</span> -<span id="L437" class="LineNr">437 </span> 75/jump-if-!= $handle-equal?:end/disp8 -<span id="L438" class="LineNr">438 </span><span class="Constant">$handle-equal?:compare-address</span>: -<span id="L439" class="LineNr">439 </span> <span class="subxComment"># ecx = handle->address</span> -<span id="L440" class="LineNr">440 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to ecx</span> -<span id="L441" class="LineNr">441 </span> <span class="subxComment"># if (ecx != b->address) return false</span> -<span id="L442" class="LineNr">442 </span> 39/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># compare ecx and *(ebp+20)</span> -<span id="L443" class="LineNr">443 </span> 75/jump-if-!= $handle-equal?:end/disp8 -<span id="L444" class="LineNr">444 </span><span class="Constant">$handle-equal?:return-true</span>: -<span id="L445" class="LineNr">445 </span> <span class="subxComment"># return true</span> -<span id="L446" class="LineNr">446 </span> b8/copy-to-eax 1/imm32/true -<span id="L447" class="LineNr">447 </span><span class="Constant">$handle-equal?:end</span>: -<span id="L448" class="LineNr">448 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L449" class="LineNr">449 </span> 59/pop-to-ecx -<span id="L450" class="LineNr">450 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L451" class="LineNr">451 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L452" class="LineNr">452 </span> 5d/pop-to-ebp -<span id="L453" class="LineNr">453 </span> c3/return -<span id="L454" class="LineNr">454 </span> -<span id="L455" class="LineNr">455 </span><span class="subxFunction">copy-handle</span>: <span class="subxComment"># src: (handle _T), dest: (addr handle _T)</span> -<span id="L456" class="LineNr">456 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L457" class="LineNr">457 </span> 55/push-ebp -<span id="L458" class="LineNr">458 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L459" class="LineNr">459 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L460" class="LineNr">460 </span> 50/push-eax -<span id="L461" class="LineNr">461 </span> 51/push-ecx -<span id="L462" class="LineNr">462 </span> <span class="subxComment"># ecx = dest</span> -<span id="L463" class="LineNr">463 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to ecx</span> -<span id="L464" class="LineNr">464 </span> <span class="subxComment"># *dest = src</span> -<span id="L465" class="LineNr">465 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to eax</span> -<span id="L466" class="LineNr">466 </span> 89/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *ecx</span> -<span id="L467" class="LineNr">467 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to eax</span> -<span id="L468" class="LineNr">468 </span> 89/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax to *(ecx+4)</span> -<span id="L469" class="LineNr">469 </span><span class="Constant">$copy-handle:end</span>: -<span id="L470" class="LineNr">470 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L471" class="LineNr">471 </span> 59/pop-to-ecx -<span id="L472" class="LineNr">472 </span> 58/pop-to-eax -<span id="L473" class="LineNr">473 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L474" class="LineNr">474 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L475" class="LineNr">475 </span> 5d/pop-to-ebp -<span id="L476" class="LineNr">476 </span> c3/return -<span id="L477" class="LineNr">477 </span> -<span id="L478" class="LineNr">478 </span><span class="subxComment"># helper: create a nested allocation descriptor (useful for tests)</span> -<span id="L479" class="LineNr">479 </span><span class="subxFunction">allocate-region</span>: <span class="subxComment"># ad: (addr allocation-descriptor), n: int, out: (addr handle allocation-descriptor)</span> +<span id="L132" class="LineNr">132 </span><span class="Constant">$allocate-raw:<a href='317abort.subx.html#L5'>abort</a></span>: +<span id="L133" class="LineNr">133 </span> (<a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"allocate: failed"</span>) +<span id="L134" class="LineNr">134 </span> <span class="subxComment"># never gets here</span> +<span id="L135" class="LineNr">135 </span> +<span id="L136" class="LineNr">136 </span><span class="subxTest">test-allocate-raw-success</span>: +<span id="L137" class="LineNr">137 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L138" class="LineNr">138 </span> 55/push-ebp +<span id="L139" class="LineNr">139 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L140" class="LineNr">140 </span> <span class="subxComment"># var ad/ecx: allocation-descriptor containing 16 bytes</span> +<span id="L141" class="LineNr">141 </span> <span class="subxS1Comment"># . var end/ecx: (addr byte)</span> +<span id="L142" class="LineNr">142 </span> 89/<- %ecx 4/r32/esp +<span id="L143" class="LineNr">143 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = end - 16</span> +<span id="L144" class="LineNr">144 </span> 81 5/subop/subtract %esp 0x10/imm32 +<span id="L145" class="LineNr">145 </span> 89/<- %edx 4/r32/esp +<span id="L146" class="LineNr">146 </span> <span class="subxS1Comment"># . ad = {start, end}</span> +<span id="L147" class="LineNr">147 </span> 51/push-ecx +<span id="L148" class="LineNr">148 </span> 52/push-edx +<span id="L149" class="LineNr">149 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L150" class="LineNr">150 </span> <span class="subxComment"># var expected-payload/ebx = ad->curr</span> +<span id="L151" class="LineNr">151 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to ebx</span> +<span id="L152" class="LineNr">152 </span> <span class="subxComment"># var h/edx: handle = {0, 0}</span> +<span id="L153" class="LineNr">153 </span> 68/push 0/imm32 +<span id="L154" class="LineNr">154 </span> 68/push 0/imm32 +<span id="L155" class="LineNr">155 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L156" class="LineNr">156 </span> <span class="subxComment"># *Next-alloc-id = 0x34</span> +<span id="L157" class="LineNr">157 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 0x34/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> +<span id="L158" class="LineNr">158 </span> <span class="subxComment"># allocate-raw(ad, 3, h)</span> +<span id="L159" class="LineNr">159 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L160" class="LineNr">160 </span> 52/push-edx +<span id="L161" class="LineNr">161 </span> 68/push 3/imm32 +<span id="L162" class="LineNr">162 </span> 51/push-ecx +<span id="L163" class="LineNr">163 </span> <span class="subxS2Comment"># . . call</span> +<span id="L164" class="LineNr">164 </span> e8/call <a href='120allocate.subx.html#L80'>allocate-raw</a>/disp32 +<span id="L165" class="LineNr">165 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L166" class="LineNr">166 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L167" class="LineNr">167 </span> <span class="subxComment"># check-ints-equal(h->alloc-id, 0x34, msg)</span> +<span id="L168" class="LineNr">168 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L169" class="LineNr">169 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L136'>test-allocate-raw-success</a>: sets alloc-id in handle"</span>/imm32 +<span id="L170" class="LineNr">170 </span> 68/push 0x34/imm32 +<span id="L171" class="LineNr">171 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> +<span id="L172" class="LineNr">172 </span> <span class="subxS2Comment"># . . call</span> +<span id="L173" class="LineNr">173 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L174" class="LineNr">174 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L175" class="LineNr">175 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L176" class="LineNr">176 </span> <span class="subxComment"># check-ints-equal(h->payload, expected-payload, msg)</span> +<span id="L177" class="LineNr">177 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L178" class="LineNr">178 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L136'>test-allocate-raw-success</a>: sets payload in handle"</span>/imm32 +<span id="L179" class="LineNr">179 </span> 53/push-ebx +<span id="L180" class="LineNr">180 </span> ff 6/subop/push 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edx+4)</span> +<span id="L181" class="LineNr">181 </span> <span class="subxS2Comment"># . . call</span> +<span id="L182" class="LineNr">182 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L183" class="LineNr">183 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L184" class="LineNr">184 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L185" class="LineNr">185 </span> <span class="subxComment"># check-ints-equal(h->payload->alloc-id, 0x34, msg)</span> +<span id="L186" class="LineNr">186 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L187" class="LineNr">187 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L136'>test-allocate-raw-success</a>: sets alloc-id in payload"</span>/imm32 +<span id="L188" class="LineNr">188 </span> 68/push 0x34/imm32 +<span id="L189" class="LineNr">189 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> +<span id="L190" class="LineNr">190 </span> <span class="subxS2Comment"># . . call</span> +<span id="L191" class="LineNr">191 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L192" class="LineNr">192 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L193" class="LineNr">193 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L194" class="LineNr">194 </span> <span class="subxComment"># check-ints-equal(*Next-alloc-id, 0x35, msg)</span> +<span id="L195" class="LineNr">195 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L196" class="LineNr">196 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L136'>test-allocate-raw-success</a>: increments Next-alloc-id"</span>/imm32 +<span id="L197" class="LineNr">197 </span> 68/push 0x35/imm32 +<span id="L198" class="LineNr">198 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 <span class="subxComment"># push *Next-alloc-id</span> +<span id="L199" class="LineNr">199 </span> <span class="subxS2Comment"># . . call</span> +<span id="L200" class="LineNr">200 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L201" class="LineNr">201 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L202" class="LineNr">202 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L203" class="LineNr">203 </span> <span class="subxComment"># check-ints-equal(ad->curr - expected-payload, 3 + 4 for alloc-id, msg)</span> +<span id="L204" class="LineNr">204 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L205" class="LineNr">205 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L136'>test-allocate-raw-success</a>: updates allocation descriptor"</span>/imm32 +<span id="L206" class="LineNr">206 </span> 68/push 7/imm32 +<span id="L207" class="LineNr">207 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> +<span id="L208" class="LineNr">208 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ebx from eax</span> +<span id="L209" class="LineNr">209 </span> 50/push-eax +<span id="L210" class="LineNr">210 </span> <span class="subxS2Comment"># . . call</span> +<span id="L211" class="LineNr">211 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L212" class="LineNr">212 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L213" class="LineNr">213 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L214" class="LineNr">214 </span> <span class="subxComment"># clean up</span> +<span id="L215" class="LineNr">215 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 0x100/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> +<span id="L216" class="LineNr">216 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L217" class="LineNr">217 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x20/imm32 <span class="subxComment"># add to esp</span> +<span id="L218" class="LineNr">218 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L219" class="LineNr">219 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L220" class="LineNr">220 </span> 5d/pop-to-ebp +<span id="L221" class="LineNr">221 </span> c3/return +<span id="L222" class="LineNr">222 </span> +<span id="L223" class="LineNr">223 </span><span class="subxFunction">lookup</span>: <span class="subxComment"># h: (handle _T) -> result/eax: (addr _T)</span> +<span id="L224" class="LineNr">224 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L225" class="LineNr">225 </span> 55/push-ebp +<span id="L226" class="LineNr">226 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L227" class="LineNr">227 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L228" class="LineNr">228 </span> 51/push-ecx +<span id="L229" class="LineNr">229 </span> <span class="subxComment"># eax = 0</span> +<span id="L230" class="LineNr">230 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L231" class="LineNr">231 </span> <span class="subxComment"># ecx = handle->alloc_id</span> +<span id="L232" class="LineNr">232 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> +<span id="L233" class="LineNr">233 </span> <span class="subxComment"># if (ecx == 0) return 0</span> +<span id="L234" class="LineNr">234 </span> 81 7/subop/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># compare ecx</span> +<span id="L235" class="LineNr">235 </span> 74/jump-if-= $lookup:end/disp8 +<span id="L236" class="LineNr">236 </span> <span class="subxComment"># eax = handle->address (payload)</span> +<span id="L237" class="LineNr">237 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to eax</span> +<span id="L238" class="LineNr">238 </span> <span class="subxComment"># if (ecx != *eax) abort</span> +<span id="L239" class="LineNr">239 </span> 39/compare 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare *eax and ecx</span> +<span id="L240" class="LineNr">240 </span> 75/jump-if-!= $lookup:<a href='317abort.subx.html#L5'>abort</a>/disp8 +<span id="L241" class="LineNr">241 </span> <span class="subxComment"># add 4 to eax</span> +<span id="L242" class="LineNr">242 </span> 05/add-to-eax 4/imm32 +<span id="L243" class="LineNr">243 </span><span class="Constant">$lookup:end</span>: +<span id="L244" class="LineNr">244 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L245" class="LineNr">245 </span> 59/pop-to-ecx +<span id="L246" class="LineNr">246 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L247" class="LineNr">247 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L248" class="LineNr">248 </span> 5d/pop-to-ebp +<span id="L249" class="LineNr">249 </span> c3/return +<span id="L250" class="LineNr">250 </span> +<span id="L251" class="LineNr">251 </span><span class="Constant">$lookup:<a href='317abort.subx.html#L5'>abort</a></span>: +<span id="L252" class="LineNr">252 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"lookup failed: ("</span> 3 0) <span class="subxComment"># 3=cyan</span> +<span id="L253" class="LineNr">253 </span> (<a href='501draw-text.mu.html#L312'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *(ebp+8) 3 0) +<span id="L254" class="LineNr">254 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">", "</span> 3 0) +<span id="L255" class="LineNr">255 </span> (<a href='501draw-text.mu.html#L312'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *(ebp+0xc) 3 0) +<span id="L256" class="LineNr">256 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">") -> "</span> 3 0) +<span id="L257" class="LineNr">257 </span> (<a href='501draw-text.mu.html#L312'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *eax 3 0) +<span id="L258" class="LineNr">258 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">". Contents of a few words starting from address 0: "</span> 3 0) +<span id="L259" class="LineNr">259 </span> b8/copy-to-eax 0/imm32 +<span id="L260" class="LineNr">260 </span> (<a href='501draw-text.mu.html#L312'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *eax 2 0) +<span id="L261" class="LineNr">261 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">" "</span> 2 0) +<span id="L262" class="LineNr">262 </span> 40/increment-eax +<span id="L263" class="LineNr">263 </span> (<a href='501draw-text.mu.html#L312'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *eax 3 0) +<span id="L264" class="LineNr">264 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">" "</span> 2 0) +<span id="L265" class="LineNr">265 </span> 40/increment-eax +<span id="L266" class="LineNr">266 </span> (<a href='501draw-text.mu.html#L312'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *eax 3 0) +<span id="L267" class="LineNr">267 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">" "</span> 2 0) +<span id="L268" class="LineNr">268 </span> 40/increment-eax +<span id="L269" class="LineNr">269 </span> (<a href='501draw-text.mu.html#L312'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *eax 3 0) +<span id="L270" class="LineNr">270 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">" "</span> 2 0) +<span id="L271" class="LineNr">271 </span> 40/increment-eax +<span id="L272" class="LineNr">272 </span> (<a href='501draw-text.mu.html#L312'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *eax 3 0) +<span id="L273" class="LineNr">273 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">" "</span> 2 0) +<span id="L274" class="LineNr">274 </span> 40/increment-eax +<span id="L275" class="LineNr">275 </span> (<a href='501draw-text.mu.html#L312'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *eax 3 0) +<span id="L276" class="LineNr">276 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">" "</span> 2 0) +<span id="L277" class="LineNr">277 </span> 40/increment-eax +<span id="L278" class="LineNr">278 </span> (<a href='501draw-text.mu.html#L312'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *eax 3 0) +<span id="L279" class="LineNr">279 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">" "</span> 2 0) +<span id="L280" class="LineNr">280 </span> 40/increment-eax +<span id="L281" class="LineNr">281 </span> (<a href='501draw-text.mu.html#L312'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *eax 3 0) +<span id="L282" class="LineNr">282 </span> (<a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"\n"</span>) +<span id="L283" class="LineNr">283 </span> <span class="subxComment"># never gets here</span> +<span id="L284" class="LineNr">284 </span> +<span id="L285" class="LineNr">285 </span><span class="subxTest">test-lookup-success</span>: +<span id="L286" class="LineNr">286 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L287" class="LineNr">287 </span> 55/push-ebp +<span id="L288" class="LineNr">288 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L289" class="LineNr">289 </span> <span class="subxComment"># var ad/ebx: allocation-descriptor containing 16 bytes</span> +<span id="L290" class="LineNr">290 </span> <span class="subxS1Comment"># . var end/ecx: (addr byte)</span> +<span id="L291" class="LineNr">291 </span> 89/<- %ecx 4/r32/esp +<span id="L292" class="LineNr">292 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = end - 16</span> +<span id="L293" class="LineNr">293 </span> 81 5/subop/subtract %esp 0x10/imm32 +<span id="L294" class="LineNr">294 </span> 89/<- %edx 4/r32/esp +<span id="L295" class="LineNr">295 </span> <span class="subxS1Comment"># . ad = {start, end}</span> +<span id="L296" class="LineNr">296 </span> 51/push-ecx +<span id="L297" class="LineNr">297 </span> 52/push-edx +<span id="L298" class="LineNr">298 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> +<span id="L299" class="LineNr">299 </span> <span class="subxComment"># var handle/ecx: handle</span> +<span id="L300" class="LineNr">300 </span> 68/push 0/imm32/address +<span id="L301" class="LineNr">301 </span> 68/push 0/imm32/alloc-id +<span id="L302" class="LineNr">302 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L303" class="LineNr">303 </span> <span class="subxComment"># var old-top/edx = ad->curr</span> +<span id="L304" class="LineNr">304 </span> 8b/copy 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ebx to edx</span> +<span id="L305" class="LineNr">305 </span> <span class="subxComment"># allocate-raw(ad, 2, handle)</span> +<span id="L306" class="LineNr">306 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L307" class="LineNr">307 </span> 51/push-ecx +<span id="L308" class="LineNr">308 </span> 68/push 2/imm32/size +<span id="L309" class="LineNr">309 </span> 53/push-ebx +<span id="L310" class="LineNr">310 </span> <span class="subxS2Comment"># . . call</span> +<span id="L311" class="LineNr">311 </span> e8/call <a href='120allocate.subx.html#L80'>allocate-raw</a>/disp32 +<span id="L312" class="LineNr">312 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L313" class="LineNr">313 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L314" class="LineNr">314 </span> <span class="subxComment"># eax = lookup(handle)</span> +<span id="L315" class="LineNr">315 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L316" class="LineNr">316 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> +<span id="L317" class="LineNr">317 </span> ff 6/subop/push 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ecx</span> +<span id="L318" class="LineNr">318 </span> <span class="subxS2Comment"># . . call</span> +<span id="L319" class="LineNr">319 </span> e8/call <a href='120allocate.subx.html#L223'>lookup</a>/disp32 +<span id="L320" class="LineNr">320 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L321" class="LineNr">321 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L322" class="LineNr">322 </span> <span class="subxComment"># eax contains old top of heap, except skipping the alloc-id in the payload</span> +<span id="L323" class="LineNr">323 </span> <span class="subxS1Comment"># . check-ints-equal(eax, old-top+4, msg)</span> +<span id="L324" class="LineNr">324 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L325" class="LineNr">325 </span> 68/push <span class="Constant">"F - test-lookup-success"</span>/imm32 +<span id="L326" class="LineNr">326 </span> 81 0/subop/add 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to edx</span> +<span id="L327" class="LineNr">327 </span> 52/push-edx +<span id="L328" class="LineNr">328 </span> 50/push-eax +<span id="L329" class="LineNr">329 </span> <span class="subxS2Comment"># . . call</span> +<span id="L330" class="LineNr">330 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L331" class="LineNr">331 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L332" class="LineNr">332 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L333" class="LineNr">333 </span> <span class="subxComment"># clean up</span> +<span id="L334" class="LineNr">334 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 0x100/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> +<span id="L335" class="LineNr">335 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L336" class="LineNr">336 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x20/imm32 <span class="subxComment"># add to esp</span> +<span id="L337" class="LineNr">337 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L338" class="LineNr">338 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L339" class="LineNr">339 </span> 5d/pop-to-ebp +<span id="L340" class="LineNr">340 </span> c3/return +<span id="L341" class="LineNr">341 </span> +<span id="L342" class="LineNr">342 </span><span class="subxTest">test-lookup-null-returns-null</span>: +<span id="L343" class="LineNr">343 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L344" class="LineNr">344 </span> 55/push-ebp +<span id="L345" class="LineNr">345 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L346" class="LineNr">346 </span> <span class="subxComment"># var handle/ecx: handle</span> +<span id="L347" class="LineNr">347 </span> 68/push 0/imm32/address +<span id="L348" class="LineNr">348 </span> 68/push 0/imm32/alloc-id +<span id="L349" class="LineNr">349 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L350" class="LineNr">350 </span> <span class="subxComment"># eax = lookup(handle)</span> +<span id="L351" class="LineNr">351 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L352" class="LineNr">352 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> +<span id="L353" class="LineNr">353 </span> ff 6/subop/push 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ecx</span> +<span id="L354" class="LineNr">354 </span> <span class="subxS2Comment"># . . call</span> +<span id="L355" class="LineNr">355 </span> e8/call <a href='120allocate.subx.html#L223'>lookup</a>/disp32 +<span id="L356" class="LineNr">356 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L357" class="LineNr">357 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L358" class="LineNr">358 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> +<span id="L359" class="LineNr">359 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L360" class="LineNr">360 </span> 68/push <span class="Constant">"F - test-lookup-null-returns-null"</span>/imm32 +<span id="L361" class="LineNr">361 </span> 68/push 0/imm32 +<span id="L362" class="LineNr">362 </span> 50/push-eax +<span id="L363" class="LineNr">363 </span> <span class="subxS2Comment"># . . call</span> +<span id="L364" class="LineNr">364 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L365" class="LineNr">365 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L366" class="LineNr">366 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L367" class="LineNr">367 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L368" class="LineNr">368 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L369" class="LineNr">369 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L370" class="LineNr">370 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L371" class="LineNr">371 </span> 5d/pop-to-ebp +<span id="L372" class="LineNr">372 </span> c3/return +<span id="L373" class="LineNr">373 </span> +<span id="L374" class="LineNr">374 </span><span class="subxMinorFunction">_pending-test-lookup-failure</span>: +<span id="L375" class="LineNr">375 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L376" class="LineNr">376 </span> 55/push-ebp +<span id="L377" class="LineNr">377 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L378" class="LineNr">378 </span> <span class="subxComment"># var ad/ecx: allocation-descriptor containing 16 bytes</span> +<span id="L379" class="LineNr">379 </span> <span class="subxS1Comment"># . var end/ecx: (addr byte)</span> +<span id="L380" class="LineNr">380 </span> 89/<- %ecx 4/r32/esp +<span id="L381" class="LineNr">381 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = end - 16</span> +<span id="L382" class="LineNr">382 </span> 81 5/subop/subtract %esp 0x10/imm32 +<span id="L383" class="LineNr">383 </span> 89/<- %edx 4/r32/esp +<span id="L384" class="LineNr">384 </span> <span class="subxS1Comment"># . ad = {start, end}</span> +<span id="L385" class="LineNr">385 </span> 51/push-ecx +<span id="L386" class="LineNr">386 </span> 52/push-edx +<span id="L387" class="LineNr">387 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L388" class="LineNr">388 </span> <span class="subxComment"># var h1/ecx: handle</span> +<span id="L389" class="LineNr">389 </span> 68/push 0/imm32/address +<span id="L390" class="LineNr">390 </span> 68/push 0/imm32/alloc-id +<span id="L391" class="LineNr">391 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L392" class="LineNr">392 </span> <span class="subxComment"># var old_top/ebx = ad->curr</span> +<span id="L393" class="LineNr">393 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to ebx</span> +<span id="L394" class="LineNr">394 </span> <span class="subxComment"># first allocation, to h1</span> +<span id="L395" class="LineNr">395 </span> <span class="subxS1Comment"># . allocate(ad, 2, h1)</span> +<span id="L396" class="LineNr">396 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L397" class="LineNr">397 </span> 51/push-ecx +<span id="L398" class="LineNr">398 </span> 68/push 2/imm32/size +<span id="L399" class="LineNr">399 </span> 56/push-esi +<span id="L400" class="LineNr">400 </span> <span class="subxS2Comment"># . . call</span> +<span id="L401" class="LineNr">401 </span> e8/call <a href='120allocate.subx.html#L43'>allocate</a>/disp32 +<span id="L402" class="LineNr">402 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L403" class="LineNr">403 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L404" class="LineNr">404 </span> <span class="subxComment"># reset ad->curr to mimic reclamation</span> +<span id="L405" class="LineNr">405 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebx to *esi</span> +<span id="L406" class="LineNr">406 </span> <span class="subxComment"># second allocation that returns the same address as the first</span> +<span id="L407" class="LineNr">407 </span> <span class="subxComment"># var h2/edx: handle</span> +<span id="L408" class="LineNr">408 </span> 68/push 0/imm32/address +<span id="L409" class="LineNr">409 </span> 68/push 0/imm32/alloc-id +<span id="L410" class="LineNr">410 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L411" class="LineNr">411 </span> <span class="subxS1Comment"># . allocate(ad, 2, h2)</span> +<span id="L412" class="LineNr">412 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L413" class="LineNr">413 </span> 52/push-edx +<span id="L414" class="LineNr">414 </span> 68/push 2/imm32/size +<span id="L415" class="LineNr">415 </span> 56/push-esi +<span id="L416" class="LineNr">416 </span> <span class="subxS2Comment"># . . call</span> +<span id="L417" class="LineNr">417 </span> e8/call <a href='120allocate.subx.html#L43'>allocate</a>/disp32 +<span id="L418" class="LineNr">418 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L419" class="LineNr">419 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L420" class="LineNr">420 </span> <span class="subxComment"># check-ints-equal(h1->address, h2->address, msg)</span> +<span id="L421" class="LineNr">421 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L422" class="LineNr">422 </span> 68/push <span class="Constant">"F - test-lookup-failure"</span>/imm32 +<span id="L423" class="LineNr">423 </span> ff 6/subop/push 1/mod/*+disp8 2/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edx+4)</span> +<span id="L424" class="LineNr">424 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> +<span id="L425" class="LineNr">425 </span> <span class="subxS2Comment"># . . call</span> +<span id="L426" class="LineNr">426 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L427" class="LineNr">427 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L428" class="LineNr">428 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L429" class="LineNr">429 </span> <span class="subxComment"># lookup(h1) should crash</span> +<span id="L430" class="LineNr">430 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L431" class="LineNr">431 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> +<span id="L432" class="LineNr">432 </span> ff 6/subop/push 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ecx</span> +<span id="L433" class="LineNr">433 </span> <span class="subxS2Comment"># . . call</span> +<span id="L434" class="LineNr">434 </span> e8/call <a href='120allocate.subx.html#L223'>lookup</a>/disp32 +<span id="L435" class="LineNr">435 </span> <span class="subxComment"># should never get past this point</span> +<span id="L436" class="LineNr">436 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L437" class="LineNr">437 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L438" class="LineNr">438 </span> <span class="subxComment"># clean up</span> +<span id="L439" class="LineNr">439 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 0x100/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> +<span id="L440" class="LineNr">440 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L441" class="LineNr">441 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x20/imm32 <span class="subxComment"># add to esp</span> +<span id="L442" class="LineNr">442 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L443" class="LineNr">443 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L444" class="LineNr">444 </span> 5d/pop-to-ebp +<span id="L445" class="LineNr">445 </span> c3/return +<span id="L446" class="LineNr">446 </span> +<span id="L447" class="LineNr">447 </span><span class="subxComment"># when comparing handles, just treat them as pure values</span> +<span id="L448" class="LineNr">448 </span><span class="subxFunction">handle-equal?</span>: <span class="subxComment"># a: (handle _T), b: (handle _T) -> result/eax: boolean</span> +<span id="L449" class="LineNr">449 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L450" class="LineNr">450 </span> 55/push-ebp +<span id="L451" class="LineNr">451 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L452" class="LineNr">452 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L453" class="LineNr">453 </span> 51/push-ecx +<span id="L454" class="LineNr">454 </span> <span class="subxComment"># eax = false</span> +<span id="L455" class="LineNr">455 </span> b8/copy-to-eax 0/imm32/false +<span id="L456" class="LineNr">456 </span><span class="Constant">$handle-equal?:compare-alloc-id</span>: +<span id="L457" class="LineNr">457 </span> <span class="subxComment"># ecx = a->alloc_id</span> +<span id="L458" class="LineNr">458 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> +<span id="L459" class="LineNr">459 </span> <span class="subxComment"># if (ecx != b->alloc_id) return false</span> +<span id="L460" class="LineNr">460 </span> 39/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># compare ecx and *(ebp+16)</span> +<span id="L461" class="LineNr">461 </span> 75/jump-if-!= $handle-equal?:end/disp8 +<span id="L462" class="LineNr">462 </span><span class="Constant">$handle-equal?:compare-address</span>: +<span id="L463" class="LineNr">463 </span> <span class="subxComment"># ecx = handle->address</span> +<span id="L464" class="LineNr">464 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to ecx</span> +<span id="L465" class="LineNr">465 </span> <span class="subxComment"># if (ecx != b->address) return false</span> +<span id="L466" class="LineNr">466 </span> 39/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># compare ecx and *(ebp+20)</span> +<span id="L467" class="LineNr">467 </span> 75/jump-if-!= $handle-equal?:end/disp8 +<span id="L468" class="LineNr">468 </span><span class="Constant">$handle-equal?:return-true</span>: +<span id="L469" class="LineNr">469 </span> <span class="subxComment"># return true</span> +<span id="L470" class="LineNr">470 </span> b8/copy-to-eax 1/imm32/true +<span id="L471" class="LineNr">471 </span><span class="Constant">$handle-equal?:end</span>: +<span id="L472" class="LineNr">472 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L473" class="LineNr">473 </span> 59/pop-to-ecx +<span id="L474" class="LineNr">474 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L475" class="LineNr">475 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L476" class="LineNr">476 </span> 5d/pop-to-ebp +<span id="L477" class="LineNr">477 </span> c3/return +<span id="L478" class="LineNr">478 </span> +<span id="L479" class="LineNr">479 </span><span class="subxFunction">copy-handle</span>: <span class="subxComment"># src: (handle _T), dest: (addr handle _T)</span> <span id="L480" class="LineNr">480 </span> <span class="subxS1Comment"># . prologue</span> <span id="L481" class="LineNr">481 </span> 55/push-ebp <span id="L482" class="LineNr">482 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> <span id="L483" class="LineNr">483 </span> <span class="subxS1Comment"># . save registers</span> <span id="L484" class="LineNr">484 </span> 50/push-eax <span id="L485" class="LineNr">485 </span> 51/push-ecx -<span id="L486" class="LineNr">486 </span> <span class="subxComment"># allocate(ad, n, out)</span> -<span id="L487" class="LineNr">487 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L488" class="LineNr">488 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> -<span id="L489" class="LineNr">489 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L490" class="LineNr">490 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L491" class="LineNr">491 </span> <span class="subxS2Comment"># . . call</span> -<span id="L492" class="LineNr">492 </span> e8/call <a href='120allocate.subx.html#L43'>allocate</a>/disp32 -<span id="L493" class="LineNr">493 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L494" class="LineNr">494 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L495" class="LineNr">495 </span> <span class="subxComment"># eax = out->payload</span> -<span id="L496" class="LineNr">496 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to eax</span> -<span id="L497" class="LineNr">497 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(eax+4) to eax</span> -<span id="L498" class="LineNr">498 </span> <span class="subxComment"># skip payload->allocid</span> -<span id="L499" class="LineNr">499 </span> 05/add-to-eax 4/imm32 -<span id="L500" class="LineNr">500 </span> <span class="subxComment"># if (eax == 0) abort</span> -<span id="L501" class="LineNr">501 </span> 3d/compare-eax-and 0/imm32 -<span id="L502" class="LineNr">502 </span> 74/jump-if-= $allocate-region:<a href='501draw-text.mu.html#L481'>abort</a>/disp8 -<span id="L503" class="LineNr">503 </span> <span class="subxComment"># earmark 8 bytes at the start for a new allocation descriptor</span> -<span id="L504" class="LineNr">504 </span> <span class="subxS1Comment"># . *eax = eax + 8</span> -<span id="L505" class="LineNr">505 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to ecx</span> -<span id="L506" class="LineNr">506 </span> 81 0/subop/add 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to ecx</span> -<span id="L507" class="LineNr">507 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> -<span id="L508" class="LineNr">508 </span> <span class="subxS1Comment"># . *(eax+4) = eax + n</span> -<span id="L509" class="LineNr">509 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to ecx</span> -<span id="L510" class="LineNr">510 </span> 03/add 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># add *(ebp+12) to ecx</span> -<span id="L511" class="LineNr">511 </span> 89/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *(eax+4)</span> -<span id="L512" class="LineNr">512 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L513" class="LineNr">513 </span> 59/pop-to-ecx -<span id="L514" class="LineNr">514 </span> 58/pop-to-eax -<span id="L515" class="LineNr">515 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L516" class="LineNr">516 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L517" class="LineNr">517 </span> 5d/pop-to-ebp -<span id="L518" class="LineNr">518 </span> c3/return -<span id="L519" class="LineNr">519 </span> -<span id="L520" class="LineNr">520 </span><span class="subxComment"># We could create a more general '$abort' jump target, but then we'd need to do</span> -<span id="L521" class="LineNr">521 </span><span class="subxComment"># a conditional jump followed by loading the error message and an unconditional</span> -<span id="L522" class="LineNr">522 </span><span class="subxComment"># jump. Or we'd need to unconditionally load the error message before a</span> -<span id="L523" class="LineNr">523 </span><span class="subxComment"># conditional jump, even if it's unused the vast majority of the time. This way</span> -<span id="L524" class="LineNr">524 </span><span class="subxComment"># we bloat a potentially cold segment in RAM so we can abort with a single</span> -<span id="L525" class="LineNr">525 </span><span class="subxComment"># instruction.</span> -<span id="L526" class="LineNr">526 </span><span class="Constant">$allocate-region:<a href='501draw-text.mu.html#L481'>abort</a></span>: -<span id="L527" class="LineNr">527 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"allocate-region: failed to allocate"</span> 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L528" class="LineNr">528 </span> { -<span id="L529" class="LineNr">529 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L530" class="LineNr">530 </span> } -<span id="L531" class="LineNr">531 </span> <span class="subxComment"># never gets here</span> -<span id="L532" class="LineNr">532 </span> -<span id="L533" class="LineNr">533 </span><span class="subxComment"># Claim the next 'n+4' bytes of memory and initialize the first 4 to n.</span> -<span id="L534" class="LineNr">534 </span><span class="subxComment"># Abort if there isn't enough memory in 'ad'.</span> -<span id="L535" class="LineNr">535 </span><span class="subxFunction">allocate-array</span>: <span class="subxComment"># ad: (addr allocation-descriptor), n: int, out: (addr handle _)</span> -<span id="L536" class="LineNr">536 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L537" class="LineNr">537 </span> 55/push-ebp -<span id="L538" class="LineNr">538 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L539" class="LineNr">539 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L540" class="LineNr">540 </span> 50/push-eax -<span id="L541" class="LineNr">541 </span> 51/push-ecx -<span id="L542" class="LineNr">542 </span> 52/push-edx -<span id="L543" class="LineNr">543 </span> <span class="subxComment"># ecx = n</span> -<span id="L544" class="LineNr">544 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to ecx</span> -<span id="L545" class="LineNr">545 </span> <span class="subxComment"># var size/edx: int = n+4</span> -<span id="L546" class="LineNr">546 </span> 8d/copy-address 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ecx+4 to edx</span> -<span id="L547" class="LineNr">547 </span> <span class="subxComment"># allocate(ad, size, out)</span> -<span id="L548" class="LineNr">548 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L549" class="LineNr">549 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> -<span id="L550" class="LineNr">550 </span> 52/push-edx -<span id="L551" class="LineNr">551 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L552" class="LineNr">552 </span> <span class="subxS2Comment"># . . call</span> -<span id="L553" class="LineNr">553 </span> e8/call <a href='120allocate.subx.html#L43'>allocate</a>/disp32 -<span id="L554" class="LineNr">554 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L555" class="LineNr">555 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L556" class="LineNr">556 </span> <span class="subxComment"># *out->payload = n</span> -<span id="L557" class="LineNr">557 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to eax</span> -<span id="L558" class="LineNr">558 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(eax+4) to eax</span> -<span id="L559" class="LineNr">559 </span> <span class="subxS1Comment"># . skip payload->allocid</span> -<span id="L560" class="LineNr">560 </span> 05/add-to-eax 4/imm32 -<span id="L561" class="LineNr">561 </span> <span class="subxS1Comment"># .</span> -<span id="L562" class="LineNr">562 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> -<span id="L563" class="LineNr">563 </span><span class="Constant">$allocate-array:end</span>: -<span id="L564" class="LineNr">564 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L565" class="LineNr">565 </span> 5a/pop-to-edx -<span id="L566" class="LineNr">566 </span> 59/pop-to-ecx -<span id="L567" class="LineNr">567 </span> 58/pop-to-eax -<span id="L568" class="LineNr">568 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L569" class="LineNr">569 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L570" class="LineNr">570 </span> 5d/pop-to-ebp -<span id="L571" class="LineNr">571 </span> c3/return -<span id="L572" class="LineNr">572 </span> -<span id="L573" class="LineNr">573 </span><span class="subxTest">test-allocate-array</span>: -<span id="L574" class="LineNr">574 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L575" class="LineNr">575 </span> 55/push-ebp -<span id="L576" class="LineNr">576 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L577" class="LineNr">577 </span> <span class="subxComment"># var ad/ecx: allocation-descriptor containing 16 bytes</span> -<span id="L578" class="LineNr">578 </span> <span class="subxS1Comment"># . var end/ecx: (addr byte)</span> -<span id="L579" class="LineNr">579 </span> 89/<- %ecx 4/r32/esp -<span id="L580" class="LineNr">580 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = end - 16</span> -<span id="L581" class="LineNr">581 </span> 81 5/subop/subtract %esp 0x10/imm32 -<span id="L582" class="LineNr">582 </span> 89/<- %edx 4/r32/esp -<span id="L583" class="LineNr">583 </span> <span class="subxS1Comment"># . ad = {start, end}</span> -<span id="L584" class="LineNr">584 </span> 51/push-ecx -<span id="L585" class="LineNr">585 </span> 52/push-edx -<span id="L586" class="LineNr">586 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L587" class="LineNr">587 </span> <span class="subxComment"># var expected-payload/ebx = ad->curr</span> -<span id="L588" class="LineNr">588 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to ebx</span> -<span id="L589" class="LineNr">589 </span> <span class="subxComment"># var h/edx: handle = {0, 0}</span> -<span id="L590" class="LineNr">590 </span> 68/push 0/imm32 -<span id="L591" class="LineNr">591 </span> 68/push 0/imm32 -<span id="L592" class="LineNr">592 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> -<span id="L593" class="LineNr">593 </span> <span class="subxComment"># *Next-alloc-id = 0x34</span> -<span id="L594" class="LineNr">594 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 0x34/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> -<span id="L595" class="LineNr">595 </span> <span class="subxComment"># allocate-array(ad, 3, h)</span> -<span id="L596" class="LineNr">596 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L597" class="LineNr">597 </span> 52/push-edx -<span id="L598" class="LineNr">598 </span> 68/push 3/imm32 -<span id="L599" class="LineNr">599 </span> 51/push-ecx -<span id="L600" class="LineNr">600 </span> <span class="subxS2Comment"># . . call</span> -<span id="L601" class="LineNr">601 </span> e8/call <a href='120allocate.subx.html#L535'>allocate-array</a>/disp32 -<span id="L602" class="LineNr">602 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L603" class="LineNr">603 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L604" class="LineNr">604 </span> <span class="subxComment"># check-ints-equal(h->alloc-id, 0x34, msg)</span> -<span id="L605" class="LineNr">605 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L606" class="LineNr">606 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L573'>test-allocate-array</a>: sets alloc-id in handle"</span>/imm32 -<span id="L607" class="LineNr">607 </span> 68/push 0x34/imm32 -<span id="L608" class="LineNr">608 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> -<span id="L609" class="LineNr">609 </span> <span class="subxS2Comment"># . . call</span> -<span id="L610" class="LineNr">610 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L611" class="LineNr">611 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L612" class="LineNr">612 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L613" class="LineNr">613 </span> <span class="subxComment"># check-ints-equal(h->payload, expected-payload, msg)</span> -<span id="L614" class="LineNr">614 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L615" class="LineNr">615 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L573'>test-allocate-array</a>: sets payload in handle"</span>/imm32 -<span id="L616" class="LineNr">616 </span> 53/push-ebx -<span id="L617" class="LineNr">617 </span> ff 6/subop/push 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edx+4)</span> -<span id="L618" class="LineNr">618 </span> <span class="subxS2Comment"># . . call</span> -<span id="L619" class="LineNr">619 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L620" class="LineNr">620 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L621" class="LineNr">621 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L622" class="LineNr">622 </span> <span class="subxComment"># check-ints-equal(h->payload->alloc-id, 0x34, msg)</span> -<span id="L623" class="LineNr">623 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L624" class="LineNr">624 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L573'>test-allocate-array</a>: sets alloc-id in payload"</span>/imm32 -<span id="L625" class="LineNr">625 </span> 68/push 0x34/imm32 -<span id="L626" class="LineNr">626 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> -<span id="L627" class="LineNr">627 </span> <span class="subxS2Comment"># . . call</span> -<span id="L628" class="LineNr">628 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L629" class="LineNr">629 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L630" class="LineNr">630 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L631" class="LineNr">631 </span> <span class="subxComment"># check-ints-equal(h->payload->size, 3, msg)</span> -<span id="L632" class="LineNr">632 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L633" class="LineNr">633 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L573'>test-allocate-array</a>: sets array size in payload"</span>/imm32 -<span id="L634" class="LineNr">634 </span> 68/push 3/imm32 -<span id="L635" class="LineNr">635 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> -<span id="L636" class="LineNr">636 </span> <span class="subxS2Comment"># . . call</span> -<span id="L637" class="LineNr">637 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L638" class="LineNr">638 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L639" class="LineNr">639 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L640" class="LineNr">640 </span> <span class="subxComment"># check-ints-equal(*Next-alloc-id, 0x35, msg)</span> -<span id="L641" class="LineNr">641 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L642" class="LineNr">642 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L573'>test-allocate-array</a>: increments Next-alloc-id"</span>/imm32 -<span id="L643" class="LineNr">643 </span> 68/push 0x35/imm32 -<span id="L644" class="LineNr">644 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 <span class="subxComment"># push *Next-alloc-id</span> -<span id="L645" class="LineNr">645 </span> <span class="subxS2Comment"># . . call</span> -<span id="L646" class="LineNr">646 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L647" class="LineNr">647 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L648" class="LineNr">648 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L649" class="LineNr">649 </span> <span class="subxComment"># check-ints-equal(ad->curr - expected-payload, 3 + 4 for alloc-id + 4 for array size, msg)</span> -<span id="L650" class="LineNr">650 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L651" class="LineNr">651 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L573'>test-allocate-array</a>: updates allocation descriptor"</span>/imm32 -<span id="L652" class="LineNr">652 </span> 68/push 0xb/imm32 -<span id="L653" class="LineNr">653 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> -<span id="L654" class="LineNr">654 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ebx from eax</span> -<span id="L655" class="LineNr">655 </span> 50/push-eax -<span id="L656" class="LineNr">656 </span> <span class="subxS2Comment"># . . call</span> -<span id="L657" class="LineNr">657 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L658" class="LineNr">658 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L659" class="LineNr">659 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L660" class="LineNr">660 </span> <span class="subxComment"># clean up</span> -<span id="L661" class="LineNr">661 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 1/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> -<span id="L662" class="LineNr">662 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L663" class="LineNr">663 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x20/imm32 <span class="subxComment"># add to esp</span> -<span id="L664" class="LineNr">664 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L665" class="LineNr">665 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L666" class="LineNr">666 </span> 5d/pop-to-ebp -<span id="L667" class="LineNr">667 </span> c3/return -<span id="L668" class="LineNr">668 </span> -<span id="L669" class="LineNr">669 </span><span class="subxFunction">copy-array</span>: <span class="subxComment"># ad: (addr allocation-descriptor), src: (addr array _T), out: (addr handle array _T)</span> -<span id="L670" class="LineNr">670 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L671" class="LineNr">671 </span> 55/push-ebp -<span id="L672" class="LineNr">672 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L673" class="LineNr">673 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L674" class="LineNr">674 </span> 50/push-eax -<span id="L675" class="LineNr">675 </span> 51/push-ecx -<span id="L676" class="LineNr">676 </span> 52/push-edx -<span id="L677" class="LineNr">677 </span> 56/push-esi -<span id="L678" class="LineNr">678 </span> <span class="subxComment"># esi = src</span> -<span id="L679" class="LineNr">679 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to esi</span> -<span id="L680" class="LineNr">680 </span> <span class="subxComment"># var size/ecx: int = src->size+4</span> -<span id="L681" class="LineNr">681 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to ecx</span> -<span id="L682" class="LineNr">682 </span> 81 0/subop/add 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to ecx</span> -<span id="L683" class="LineNr">683 </span> <span class="subxComment"># allocate(ad, size, out)</span> -<span id="L684" class="LineNr">684 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L685" class="LineNr">685 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> -<span id="L686" class="LineNr">686 </span> 51/push-ecx -<span id="L687" class="LineNr">687 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L688" class="LineNr">688 </span> <span class="subxS2Comment"># . . call</span> -<span id="L689" class="LineNr">689 </span> e8/call <a href='120allocate.subx.html#L43'>allocate</a>/disp32 -<span id="L690" class="LineNr">690 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L691" class="LineNr">691 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L692" class="LineNr">692 </span> <span class="subxComment"># var payload/eax: (addr byte) = out->payload</span> -<span id="L693" class="LineNr">693 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to eax</span> -<span id="L694" class="LineNr">694 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(eax+4) to eax</span> -<span id="L695" class="LineNr">695 </span> <span class="subxS1Comment"># . skip payload->allocid</span> -<span id="L696" class="LineNr">696 </span> 05/add-to-eax 4/imm32 -<span id="L697" class="LineNr">697 </span> <span class="subxComment"># var max/ecx: (addr byte) = payload + size</span> -<span id="L698" class="LineNr">698 </span> 01/add 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to ecx</span> -<span id="L699" class="LineNr">699 </span> <span class="subxComment"># _append-4(payload, max, src, &src->data[src->size])</span> -<span id="L700" class="LineNr">700 </span> <span class="subxS2Comment"># . . push &src->data[src->size]</span> -<span id="L701" class="LineNr">701 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to edx</span> -<span id="L702" class="LineNr">702 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 2/index/edx <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+edx+4 to edx</span> -<span id="L703" class="LineNr">703 </span> 52/push-edx -<span id="L704" class="LineNr">704 </span> <span class="subxS2Comment"># . . push src</span> -<span id="L705" class="LineNr">705 </span> 56/push-esi -<span id="L706" class="LineNr">706 </span> <span class="subxS2Comment"># . . push max</span> +<span id="L486" class="LineNr">486 </span> <span class="subxComment"># ecx = dest</span> +<span id="L487" class="LineNr">487 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to ecx</span> +<span id="L488" class="LineNr">488 </span> <span class="subxComment"># *dest = src</span> +<span id="L489" class="LineNr">489 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to eax</span> +<span id="L490" class="LineNr">490 </span> 89/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *ecx</span> +<span id="L491" class="LineNr">491 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to eax</span> +<span id="L492" class="LineNr">492 </span> 89/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax to *(ecx+4)</span> +<span id="L493" class="LineNr">493 </span><span class="Constant">$copy-handle:end</span>: +<span id="L494" class="LineNr">494 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L495" class="LineNr">495 </span> 59/pop-to-ecx +<span id="L496" class="LineNr">496 </span> 58/pop-to-eax +<span id="L497" class="LineNr">497 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L498" class="LineNr">498 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L499" class="LineNr">499 </span> 5d/pop-to-ebp +<span id="L500" class="LineNr">500 </span> c3/return +<span id="L501" class="LineNr">501 </span> +<span id="L502" class="LineNr">502 </span><span class="subxComment"># helper: create a nested allocation descriptor (useful for tests)</span> +<span id="L503" class="LineNr">503 </span><span class="subxFunction">allocate-region</span>: <span class="subxComment"># ad: (addr allocation-descriptor), n: int, out: (addr handle allocation-descriptor)</span> +<span id="L504" class="LineNr">504 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L505" class="LineNr">505 </span> 55/push-ebp +<span id="L506" class="LineNr">506 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L507" class="LineNr">507 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L508" class="LineNr">508 </span> 50/push-eax +<span id="L509" class="LineNr">509 </span> 51/push-ecx +<span id="L510" class="LineNr">510 </span> <span class="subxComment"># allocate(ad, n, out)</span> +<span id="L511" class="LineNr">511 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L512" class="LineNr">512 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> +<span id="L513" class="LineNr">513 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L514" class="LineNr">514 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L515" class="LineNr">515 </span> <span class="subxS2Comment"># . . call</span> +<span id="L516" class="LineNr">516 </span> e8/call <a href='120allocate.subx.html#L43'>allocate</a>/disp32 +<span id="L517" class="LineNr">517 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L518" class="LineNr">518 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L519" class="LineNr">519 </span> <span class="subxComment"># eax = out->payload</span> +<span id="L520" class="LineNr">520 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to eax</span> +<span id="L521" class="LineNr">521 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(eax+4) to eax</span> +<span id="L522" class="LineNr">522 </span> <span class="subxComment"># skip payload->allocid</span> +<span id="L523" class="LineNr">523 </span> 05/add-to-eax 4/imm32 +<span id="L524" class="LineNr">524 </span> <span class="subxComment"># if (eax == 0) abort</span> +<span id="L525" class="LineNr">525 </span> 3d/compare-eax-and 0/imm32 +<span id="L526" class="LineNr">526 </span> 74/jump-if-= $allocate-region:<a href='317abort.subx.html#L5'>abort</a>/disp8 +<span id="L527" class="LineNr">527 </span> <span class="subxComment"># earmark 8 bytes at the start for a new allocation descriptor</span> +<span id="L528" class="LineNr">528 </span> <span class="subxS1Comment"># . *eax = eax + 8</span> +<span id="L529" class="LineNr">529 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to ecx</span> +<span id="L530" class="LineNr">530 </span> 81 0/subop/add 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to ecx</span> +<span id="L531" class="LineNr">531 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> +<span id="L532" class="LineNr">532 </span> <span class="subxS1Comment"># . *(eax+4) = eax + n</span> +<span id="L533" class="LineNr">533 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to ecx</span> +<span id="L534" class="LineNr">534 </span> 03/add 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># add *(ebp+12) to ecx</span> +<span id="L535" class="LineNr">535 </span> 89/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *(eax+4)</span> +<span id="L536" class="LineNr">536 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L537" class="LineNr">537 </span> 59/pop-to-ecx +<span id="L538" class="LineNr">538 </span> 58/pop-to-eax +<span id="L539" class="LineNr">539 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L540" class="LineNr">540 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L541" class="LineNr">541 </span> 5d/pop-to-ebp +<span id="L542" class="LineNr">542 </span> c3/return +<span id="L543" class="LineNr">543 </span> +<span id="L544" class="LineNr">544 </span><span class="subxComment"># We could create a more general '$abort' jump target, but then we'd need to do</span> +<span id="L545" class="LineNr">545 </span><span class="subxComment"># a conditional jump followed by loading the error message and an unconditional</span> +<span id="L546" class="LineNr">546 </span><span class="subxComment"># jump. Or we'd need to unconditionally load the error message before a</span> +<span id="L547" class="LineNr">547 </span><span class="subxComment"># conditional jump, even if it's unused the vast majority of the time. This way</span> +<span id="L548" class="LineNr">548 </span><span class="subxComment"># we bloat a potentially cold segment in RAM so we can abort with a single</span> +<span id="L549" class="LineNr">549 </span><span class="subxComment"># instruction.</span> +<span id="L550" class="LineNr">550 </span><span class="Constant">$allocate-region:<a href='317abort.subx.html#L5'>abort</a></span>: +<span id="L551" class="LineNr">551 </span> (<a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"allocate-region: failed to allocate"</span>) +<span id="L552" class="LineNr">552 </span> <span class="subxComment"># never gets here</span> +<span id="L553" class="LineNr">553 </span> +<span id="L554" class="LineNr">554 </span><span class="subxComment"># Claim the next 'n+4' bytes of memory and initialize the first 4 to n.</span> +<span id="L555" class="LineNr">555 </span><span class="subxComment"># Abort if there isn't enough memory in 'ad'.</span> +<span id="L556" class="LineNr">556 </span><span class="subxFunction">allocate-array</span>: <span class="subxComment"># ad: (addr allocation-descriptor), n: int, out: (addr handle _)</span> +<span id="L557" class="LineNr">557 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L558" class="LineNr">558 </span> 55/push-ebp +<span id="L559" class="LineNr">559 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L560" class="LineNr">560 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L561" class="LineNr">561 </span> 50/push-eax +<span id="L562" class="LineNr">562 </span> 51/push-ecx +<span id="L563" class="LineNr">563 </span> 52/push-edx +<span id="L564" class="LineNr">564 </span> <span class="subxComment"># ecx = n</span> +<span id="L565" class="LineNr">565 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to ecx</span> +<span id="L566" class="LineNr">566 </span> <span class="subxComment"># var size/edx: int = n+4</span> +<span id="L567" class="LineNr">567 </span> 8d/copy-address 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ecx+4 to edx</span> +<span id="L568" class="LineNr">568 </span> <span class="subxComment"># allocate(ad, size, out)</span> +<span id="L569" class="LineNr">569 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L570" class="LineNr">570 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> +<span id="L571" class="LineNr">571 </span> 52/push-edx +<span id="L572" class="LineNr">572 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L573" class="LineNr">573 </span> <span class="subxS2Comment"># . . call</span> +<span id="L574" class="LineNr">574 </span> e8/call <a href='120allocate.subx.html#L43'>allocate</a>/disp32 +<span id="L575" class="LineNr">575 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L576" class="LineNr">576 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L577" class="LineNr">577 </span> <span class="subxComment"># *out->payload = n</span> +<span id="L578" class="LineNr">578 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to eax</span> +<span id="L579" class="LineNr">579 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(eax+4) to eax</span> +<span id="L580" class="LineNr">580 </span> <span class="subxS1Comment"># . skip payload->allocid</span> +<span id="L581" class="LineNr">581 </span> 05/add-to-eax 4/imm32 +<span id="L582" class="LineNr">582 </span> <span class="subxS1Comment"># .</span> +<span id="L583" class="LineNr">583 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> +<span id="L584" class="LineNr">584 </span><span class="Constant">$allocate-array:end</span>: +<span id="L585" class="LineNr">585 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L586" class="LineNr">586 </span> 5a/pop-to-edx +<span id="L587" class="LineNr">587 </span> 59/pop-to-ecx +<span id="L588" class="LineNr">588 </span> 58/pop-to-eax +<span id="L589" class="LineNr">589 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L590" class="LineNr">590 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L591" class="LineNr">591 </span> 5d/pop-to-ebp +<span id="L592" class="LineNr">592 </span> c3/return +<span id="L593" class="LineNr">593 </span> +<span id="L594" class="LineNr">594 </span><span class="subxTest">test-allocate-array</span>: +<span id="L595" class="LineNr">595 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L596" class="LineNr">596 </span> 55/push-ebp +<span id="L597" class="LineNr">597 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L598" class="LineNr">598 </span> <span class="subxComment"># var ad/ecx: allocation-descriptor containing 16 bytes</span> +<span id="L599" class="LineNr">599 </span> <span class="subxS1Comment"># . var end/ecx: (addr byte)</span> +<span id="L600" class="LineNr">600 </span> 89/<- %ecx 4/r32/esp +<span id="L601" class="LineNr">601 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = end - 16</span> +<span id="L602" class="LineNr">602 </span> 81 5/subop/subtract %esp 0x10/imm32 +<span id="L603" class="LineNr">603 </span> 89/<- %edx 4/r32/esp +<span id="L604" class="LineNr">604 </span> <span class="subxS1Comment"># . ad = {start, end}</span> +<span id="L605" class="LineNr">605 </span> 51/push-ecx +<span id="L606" class="LineNr">606 </span> 52/push-edx +<span id="L607" class="LineNr">607 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L608" class="LineNr">608 </span> <span class="subxComment"># var expected-payload/ebx = ad->curr</span> +<span id="L609" class="LineNr">609 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to ebx</span> +<span id="L610" class="LineNr">610 </span> <span class="subxComment"># var h/edx: handle = {0, 0}</span> +<span id="L611" class="LineNr">611 </span> 68/push 0/imm32 +<span id="L612" class="LineNr">612 </span> 68/push 0/imm32 +<span id="L613" class="LineNr">613 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L614" class="LineNr">614 </span> <span class="subxComment"># *Next-alloc-id = 0x34</span> +<span id="L615" class="LineNr">615 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 0x34/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> +<span id="L616" class="LineNr">616 </span> <span class="subxComment"># allocate-array(ad, 3, h)</span> +<span id="L617" class="LineNr">617 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L618" class="LineNr">618 </span> 52/push-edx +<span id="L619" class="LineNr">619 </span> 68/push 3/imm32 +<span id="L620" class="LineNr">620 </span> 51/push-ecx +<span id="L621" class="LineNr">621 </span> <span class="subxS2Comment"># . . call</span> +<span id="L622" class="LineNr">622 </span> e8/call <a href='120allocate.subx.html#L556'>allocate-array</a>/disp32 +<span id="L623" class="LineNr">623 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L624" class="LineNr">624 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L625" class="LineNr">625 </span> <span class="subxComment"># check-ints-equal(h->alloc-id, 0x34, msg)</span> +<span id="L626" class="LineNr">626 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L627" class="LineNr">627 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L594'>test-allocate-array</a>: sets alloc-id in handle"</span>/imm32 +<span id="L628" class="LineNr">628 </span> 68/push 0x34/imm32 +<span id="L629" class="LineNr">629 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> +<span id="L630" class="LineNr">630 </span> <span class="subxS2Comment"># . . call</span> +<span id="L631" class="LineNr">631 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L632" class="LineNr">632 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L633" class="LineNr">633 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L634" class="LineNr">634 </span> <span class="subxComment"># check-ints-equal(h->payload, expected-payload, msg)</span> +<span id="L635" class="LineNr">635 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L636" class="LineNr">636 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L594'>test-allocate-array</a>: sets payload in handle"</span>/imm32 +<span id="L637" class="LineNr">637 </span> 53/push-ebx +<span id="L638" class="LineNr">638 </span> ff 6/subop/push 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edx+4)</span> +<span id="L639" class="LineNr">639 </span> <span class="subxS2Comment"># . . call</span> +<span id="L640" class="LineNr">640 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L641" class="LineNr">641 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L642" class="LineNr">642 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L643" class="LineNr">643 </span> <span class="subxComment"># check-ints-equal(h->payload->alloc-id, 0x34, msg)</span> +<span id="L644" class="LineNr">644 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L645" class="LineNr">645 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L594'>test-allocate-array</a>: sets alloc-id in payload"</span>/imm32 +<span id="L646" class="LineNr">646 </span> 68/push 0x34/imm32 +<span id="L647" class="LineNr">647 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> +<span id="L648" class="LineNr">648 </span> <span class="subxS2Comment"># . . call</span> +<span id="L649" class="LineNr">649 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L650" class="LineNr">650 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L651" class="LineNr">651 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L652" class="LineNr">652 </span> <span class="subxComment"># check-ints-equal(h->payload->size, 3, msg)</span> +<span id="L653" class="LineNr">653 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L654" class="LineNr">654 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L594'>test-allocate-array</a>: sets array size in payload"</span>/imm32 +<span id="L655" class="LineNr">655 </span> 68/push 3/imm32 +<span id="L656" class="LineNr">656 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> +<span id="L657" class="LineNr">657 </span> <span class="subxS2Comment"># . . call</span> +<span id="L658" class="LineNr">658 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L659" class="LineNr">659 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L660" class="LineNr">660 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L661" class="LineNr">661 </span> <span class="subxComment"># check-ints-equal(*Next-alloc-id, 0x35, msg)</span> +<span id="L662" class="LineNr">662 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L663" class="LineNr">663 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L594'>test-allocate-array</a>: increments Next-alloc-id"</span>/imm32 +<span id="L664" class="LineNr">664 </span> 68/push 0x35/imm32 +<span id="L665" class="LineNr">665 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 <span class="subxComment"># push *Next-alloc-id</span> +<span id="L666" class="LineNr">666 </span> <span class="subxS2Comment"># . . call</span> +<span id="L667" class="LineNr">667 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L668" class="LineNr">668 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L669" class="LineNr">669 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L670" class="LineNr">670 </span> <span class="subxComment"># check-ints-equal(ad->curr - expected-payload, 3 + 4 for alloc-id + 4 for array size, msg)</span> +<span id="L671" class="LineNr">671 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L672" class="LineNr">672 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L594'>test-allocate-array</a>: updates allocation descriptor"</span>/imm32 +<span id="L673" class="LineNr">673 </span> 68/push 0xb/imm32 +<span id="L674" class="LineNr">674 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> +<span id="L675" class="LineNr">675 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ebx from eax</span> +<span id="L676" class="LineNr">676 </span> 50/push-eax +<span id="L677" class="LineNr">677 </span> <span class="subxS2Comment"># . . call</span> +<span id="L678" class="LineNr">678 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L679" class="LineNr">679 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L680" class="LineNr">680 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L681" class="LineNr">681 </span> <span class="subxComment"># clean up</span> +<span id="L682" class="LineNr">682 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 1/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> +<span id="L683" class="LineNr">683 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L684" class="LineNr">684 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x20/imm32 <span class="subxComment"># add to esp</span> +<span id="L685" class="LineNr">685 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L686" class="LineNr">686 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L687" class="LineNr">687 </span> 5d/pop-to-ebp +<span id="L688" class="LineNr">688 </span> c3/return +<span id="L689" class="LineNr">689 </span> +<span id="L690" class="LineNr">690 </span><span class="subxFunction">copy-array</span>: <span class="subxComment"># ad: (addr allocation-descriptor), src: (addr array _T), out: (addr handle array _T)</span> +<span id="L691" class="LineNr">691 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L692" class="LineNr">692 </span> 55/push-ebp +<span id="L693" class="LineNr">693 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L694" class="LineNr">694 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L695" class="LineNr">695 </span> 50/push-eax +<span id="L696" class="LineNr">696 </span> 51/push-ecx +<span id="L697" class="LineNr">697 </span> 52/push-edx +<span id="L698" class="LineNr">698 </span> 56/push-esi +<span id="L699" class="LineNr">699 </span> <span class="subxComment"># esi = src</span> +<span id="L700" class="LineNr">700 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to esi</span> +<span id="L701" class="LineNr">701 </span> <span class="subxComment"># var size/ecx: int = src->size+4</span> +<span id="L702" class="LineNr">702 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to ecx</span> +<span id="L703" class="LineNr">703 </span> 81 0/subop/add 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to ecx</span> +<span id="L704" class="LineNr">704 </span> <span class="subxComment"># allocate(ad, size, out)</span> +<span id="L705" class="LineNr">705 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L706" class="LineNr">706 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> <span id="L707" class="LineNr">707 </span> 51/push-ecx -<span id="L708" class="LineNr">708 </span> <span class="subxS2Comment"># . . push payload</span> -<span id="L709" class="LineNr">709 </span> 50/push-eax -<span id="L710" class="LineNr">710 </span> <span class="subxS2Comment"># . . call</span> -<span id="L711" class="LineNr">711 </span> e8/call <a href='108write.subx.html#L171'>_append-4</a>/disp32 -<span id="L712" class="LineNr">712 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L713" class="LineNr">713 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L714" class="LineNr">714 </span><span class="Constant">$copy-array:end</span>: -<span id="L715" class="LineNr">715 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L716" class="LineNr">716 </span> 5e/pop-to-esi -<span id="L717" class="LineNr">717 </span> 5a/pop-to-edx -<span id="L718" class="LineNr">718 </span> 59/pop-to-ecx -<span id="L719" class="LineNr">719 </span> 58/pop-to-eax -<span id="L720" class="LineNr">720 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L721" class="LineNr">721 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L722" class="LineNr">722 </span> 5d/pop-to-ebp -<span id="L723" class="LineNr">723 </span> c3/return -<span id="L724" class="LineNr">724 </span> -<span id="L725" class="LineNr">725 </span><span class="subxTest">test-copy-array</span>: -<span id="L726" class="LineNr">726 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L727" class="LineNr">727 </span> 55/push-ebp -<span id="L728" class="LineNr">728 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L729" class="LineNr">729 </span> <span class="subxComment"># var src/esi: (addr array int) = [3, 4, 5]</span> -<span id="L730" class="LineNr">730 </span> 68/push 5/imm32 -<span id="L731" class="LineNr">731 </span> 68/push 4/imm32 -<span id="L732" class="LineNr">732 </span> 68/push 3/imm32 -<span id="L733" class="LineNr">733 </span> 68/push 0xc/imm32/size -<span id="L734" class="LineNr">734 </span> 89/copy 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to esi</span> -<span id="L735" class="LineNr">735 </span> <span class="subxComment"># var ad/ecx: allocation-descriptor containing 32 bytes</span> -<span id="L736" class="LineNr">736 </span> <span class="subxS1Comment"># . var end/ecx: (addr byte)</span> -<span id="L737" class="LineNr">737 </span> 89/<- %ecx 4/r32/esp -<span id="L738" class="LineNr">738 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = end - 32</span> -<span id="L739" class="LineNr">739 </span> 81 5/subop/subtract %esp 0x20/imm32 -<span id="L740" class="LineNr">740 </span> 89/<- %edx 4/r32/esp -<span id="L741" class="LineNr">741 </span> <span class="subxS1Comment"># . ad = {start, end}</span> -<span id="L742" class="LineNr">742 </span> 51/push-ecx -<span id="L743" class="LineNr">743 </span> 52/push-edx -<span id="L744" class="LineNr">744 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L745" class="LineNr">745 </span> <span class="subxComment"># var expected-payload/ebx = ad->curr</span> -<span id="L746" class="LineNr">746 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to ebx</span> -<span id="L747" class="LineNr">747 </span> <span class="subxComment"># var h/edx: handle = {0, 0}</span> -<span id="L748" class="LineNr">748 </span> 68/push 0/imm32 -<span id="L749" class="LineNr">749 </span> 68/push 0/imm32 -<span id="L750" class="LineNr">750 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> -<span id="L751" class="LineNr">751 </span> <span class="subxComment"># *Next-alloc-id = 0x34</span> -<span id="L752" class="LineNr">752 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 0x34/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> -<span id="L753" class="LineNr">753 </span> <span class="subxComment"># copy-array(ad, src, h)</span> -<span id="L754" class="LineNr">754 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L755" class="LineNr">755 </span> 52/push-edx -<span id="L756" class="LineNr">756 </span> 56/push-esi -<span id="L757" class="LineNr">757 </span> 51/push-ecx -<span id="L758" class="LineNr">758 </span> <span class="subxS2Comment"># . . call</span> -<span id="L759" class="LineNr">759 </span> e8/call <a href='120allocate.subx.html#L669'>copy-array</a>/disp32 -<span id="L760" class="LineNr">760 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L761" class="LineNr">761 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L762" class="LineNr">762 </span> <span class="subxComment"># check-ints-equal(h->alloc-id, 0x34, msg)</span> -<span id="L763" class="LineNr">763 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L764" class="LineNr">764 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L725'>test-copy-array</a>: sets alloc-id in handle"</span>/imm32 -<span id="L765" class="LineNr">765 </span> 68/push 0x34/imm32 -<span id="L766" class="LineNr">766 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> -<span id="L767" class="LineNr">767 </span> <span class="subxS2Comment"># . . call</span> -<span id="L768" class="LineNr">768 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L769" class="LineNr">769 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L770" class="LineNr">770 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L771" class="LineNr">771 </span> <span class="subxComment"># check-ints-equal(h->payload, expected-payload, msg)</span> -<span id="L772" class="LineNr">772 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L773" class="LineNr">773 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L725'>test-copy-array</a>: sets payload in handle"</span>/imm32 -<span id="L774" class="LineNr">774 </span> 53/push-ebx -<span id="L775" class="LineNr">775 </span> ff 6/subop/push 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edx+4)</span> -<span id="L776" class="LineNr">776 </span> <span class="subxS2Comment"># . . call</span> -<span id="L777" class="LineNr">777 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L778" class="LineNr">778 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L779" class="LineNr">779 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L780" class="LineNr">780 </span> <span class="subxComment"># check-ints-equal(h->payload->alloc-id, 0x34, msg)</span> -<span id="L781" class="LineNr">781 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L782" class="LineNr">782 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L725'>test-copy-array</a>: sets alloc-id in payload"</span>/imm32 -<span id="L783" class="LineNr">783 </span> 68/push 0x34/imm32 -<span id="L784" class="LineNr">784 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> -<span id="L785" class="LineNr">785 </span> <span class="subxS2Comment"># . . call</span> -<span id="L786" class="LineNr">786 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L787" class="LineNr">787 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L788" class="LineNr">788 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L789" class="LineNr">789 </span> <span class="subxComment"># var payload/eax: (addr int) = lookup(h)</span> -<span id="L790" class="LineNr">790 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L791" class="LineNr">791 </span> ff 6/subop/push 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edx+4)</span> -<span id="L792" class="LineNr">792 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> -<span id="L793" class="LineNr">793 </span> <span class="subxS2Comment"># . . call</span> -<span id="L794" class="LineNr">794 </span> e8/call <a href='120allocate.subx.html#L226'>lookup</a>/disp32 -<span id="L795" class="LineNr">795 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L796" class="LineNr">796 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L797" class="LineNr">797 </span> <span class="subxComment"># check-ints-equal(payload->size, 0xc, msg)</span> -<span id="L798" class="LineNr">798 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L799" class="LineNr">799 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L725'>test-copy-array</a>: sets array size in payload"</span>/imm32 -<span id="L800" class="LineNr">800 </span> 68/push 0xc/imm32 -<span id="L801" class="LineNr">801 </span> ff 6/subop/push 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *eax</span> -<span id="L802" class="LineNr">802 </span> <span class="subxS2Comment"># . . call</span> -<span id="L803" class="LineNr">803 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L804" class="LineNr">804 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L805" class="LineNr">805 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L806" class="LineNr">806 </span> <span class="subxComment"># check-ints-equal(*Next-alloc-id, 0x35, msg)</span> -<span id="L807" class="LineNr">807 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L808" class="LineNr">808 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L725'>test-copy-array</a>: increments Next-alloc-id"</span>/imm32 -<span id="L809" class="LineNr">809 </span> 68/push 0x35/imm32 -<span id="L810" class="LineNr">810 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 <span class="subxComment"># push *Next-alloc-id</span> -<span id="L811" class="LineNr">811 </span> <span class="subxS2Comment"># . . call</span> -<span id="L812" class="LineNr">812 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L813" class="LineNr">813 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L814" class="LineNr">814 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L815" class="LineNr">815 </span> <span class="subxComment"># check-ints-equal(ad->curr - expected-payload, 12 + 4 for alloc-id + 4 for size, msg)</span> -<span id="L816" class="LineNr">816 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L817" class="LineNr">817 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L725'>test-copy-array</a>: updates allocation descriptor"</span>/imm32 -<span id="L818" class="LineNr">818 </span> 68/push 0x14/imm32 -<span id="L819" class="LineNr">819 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> -<span id="L820" class="LineNr">820 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ebx from eax</span> -<span id="L821" class="LineNr">821 </span> 50/push-eax -<span id="L822" class="LineNr">822 </span> <span class="subxS2Comment"># . . call</span> -<span id="L823" class="LineNr">823 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L824" class="LineNr">824 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L825" class="LineNr">825 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L826" class="LineNr">826 </span> <span class="subxComment"># clean up</span> -<span id="L827" class="LineNr">827 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 1/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> -<span id="L828" class="LineNr">828 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L829" class="LineNr">829 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x40/imm32 <span class="subxComment"># add to esp</span> -<span id="L830" class="LineNr">830 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L831" class="LineNr">831 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L832" class="LineNr">832 </span> 5d/pop-to-ebp -<span id="L833" class="LineNr">833 </span> c3/return -<span id="L834" class="LineNr">834 </span> -<span id="L835" class="LineNr">835 </span><span class="subxComment"># Fill a region of memory with zeroes.</span> -<span id="L836" class="LineNr">836 </span><span class="subxFunction">zero-out</span>: <span class="subxComment"># start: (addr byte), size: int</span> -<span id="L837" class="LineNr">837 </span> <span class="subxComment"># pseudocode:</span> -<span id="L838" class="LineNr">838 </span> <span class="subxComment"># curr/esi = start</span> -<span id="L839" class="LineNr">839 </span> <span class="subxComment"># i/ecx = 0</span> -<span id="L840" class="LineNr">840 </span> <span class="subxComment"># while true</span> -<span id="L841" class="LineNr">841 </span> <span class="subxComment"># if (i >= size) break</span> -<span id="L842" class="LineNr">842 </span> <span class="subxComment"># *curr = 0</span> -<span id="L843" class="LineNr">843 </span> <span class="subxComment"># ++curr</span> -<span id="L844" class="LineNr">844 </span> <span class="subxComment"># ++i</span> -<span id="L845" class="LineNr">845 </span> <span class="subxComment">#</span> -<span id="L846" class="LineNr">846 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L847" class="LineNr">847 </span> 55/push-ebp -<span id="L848" class="LineNr">848 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L849" class="LineNr">849 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L850" class="LineNr">850 </span> 50/push-eax -<span id="L851" class="LineNr">851 </span> 51/push-ecx -<span id="L852" class="LineNr">852 </span> 52/push-edx -<span id="L853" class="LineNr">853 </span> 56/push-esi -<span id="L854" class="LineNr">854 </span> <span class="subxComment"># curr/esi = start</span> -<span id="L855" class="LineNr">855 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> -<span id="L856" class="LineNr">856 </span> <span class="subxComment"># var i/ecx: int = 0</span> -<span id="L857" class="LineNr">857 </span> 31/xor 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ecx</span> -<span id="L858" class="LineNr">858 </span> <span class="subxComment"># edx = size</span> -<span id="L859" class="LineNr">859 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edx</span> -<span id="L860" class="LineNr">860 </span><span class="Constant">$zero-out:loop</span>: -<span id="L861" class="LineNr">861 </span> <span class="subxComment"># if (i >= size) break</span> -<span id="L862" class="LineNr">862 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with edx</span> -<span id="L863" class="LineNr">863 </span> 7d/jump-if->= $zero-out:end/disp8 -<span id="L864" class="LineNr">864 </span> <span class="subxComment"># *curr = 0</span> -<span id="L865" class="LineNr">865 </span> c6 0/subop/copy-byte 0/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm8 <span class="subxComment"># copy byte to *esi</span> -<span id="L866" class="LineNr">866 </span> <span class="subxComment"># ++curr</span> -<span id="L867" class="LineNr">867 </span> 46/increment-esi -<span id="L868" class="LineNr">868 </span> <span class="subxComment"># ++i</span> -<span id="L869" class="LineNr">869 </span> 41/increment-ecx -<span id="L870" class="LineNr">870 </span> eb/jump $zero-out:<span class="Constant">loop</span>/disp8 -<span id="L871" class="LineNr">871 </span><span class="Constant">$zero-out:end</span>: -<span id="L872" class="LineNr">872 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L873" class="LineNr">873 </span> 5e/pop-to-esi -<span id="L874" class="LineNr">874 </span> 5a/pop-to-edx -<span id="L875" class="LineNr">875 </span> 59/pop-to-ecx -<span id="L876" class="LineNr">876 </span> 58/pop-to-eax -<span id="L877" class="LineNr">877 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L878" class="LineNr">878 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L879" class="LineNr">879 </span> 5d/pop-to-ebp -<span id="L880" class="LineNr">880 </span> c3/return -<span id="L881" class="LineNr">881 </span> -<span id="L882" class="LineNr">882 </span><span class="subxTest">test-zero-out</span>: -<span id="L883" class="LineNr">883 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L884" class="LineNr">884 </span> 55/push-ebp -<span id="L885" class="LineNr">885 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L886" class="LineNr">886 </span> <span class="subxComment"># region/ecx = 34, 35, 36, 37</span> -<span id="L887" class="LineNr">887 </span> 68/push 0x37363534/imm32 -<span id="L888" class="LineNr">888 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L889" class="LineNr">889 </span> <span class="subxComment"># zero-out(ecx, 3)</span> -<span id="L890" class="LineNr">890 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L891" class="LineNr">891 </span> 68/push 3/imm32/size -<span id="L892" class="LineNr">892 </span> 51/push-ecx -<span id="L893" class="LineNr">893 </span> <span class="subxS2Comment"># . . call</span> -<span id="L894" class="LineNr">894 </span> e8/call <a href='120allocate.subx.html#L836'>zero-out</a>/disp32 -<span id="L895" class="LineNr">895 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L896" class="LineNr">896 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L897" class="LineNr">897 </span> <span class="subxComment"># first 3 bytes cleared, fourth left alone</span> -<span id="L898" class="LineNr">898 </span> <span class="subxS1Comment"># . check-ints-equal(*ecx, 0x37000000, msg)</span> -<span id="L899" class="LineNr">899 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L900" class="LineNr">900 </span> 68/push <span class="Constant">"F - test-zero-out"</span>/imm32 -<span id="L901" class="LineNr">901 </span> 68/push 0x37000000/imm32 -<span id="L902" class="LineNr">902 </span> ff 6/subop/push 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ecx</span> -<span id="L903" class="LineNr">903 </span> <span class="subxS2Comment"># . . call</span> -<span id="L904" class="LineNr">904 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L905" class="LineNr">905 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L906" class="LineNr">906 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L907" class="LineNr">907 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L908" class="LineNr">908 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L909" class="LineNr">909 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L910" class="LineNr">910 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L911" class="LineNr">911 </span> 5d/pop-to-ebp -<span id="L912" class="LineNr">912 </span> c3/return -<span id="L913" class="LineNr">913 </span> -<span id="L914" class="LineNr">914 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +<span id="L708" class="LineNr">708 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L709" class="LineNr">709 </span> <span class="subxS2Comment"># . . call</span> +<span id="L710" class="LineNr">710 </span> e8/call <a href='120allocate.subx.html#L43'>allocate</a>/disp32 +<span id="L711" class="LineNr">711 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L712" class="LineNr">712 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L713" class="LineNr">713 </span> <span class="subxComment"># var payload/eax: (addr byte) = out->payload</span> +<span id="L714" class="LineNr">714 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to eax</span> +<span id="L715" class="LineNr">715 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(eax+4) to eax</span> +<span id="L716" class="LineNr">716 </span> <span class="subxS1Comment"># . skip payload->allocid</span> +<span id="L717" class="LineNr">717 </span> 05/add-to-eax 4/imm32 +<span id="L718" class="LineNr">718 </span> <span class="subxComment"># var max/ecx: (addr byte) = payload + size</span> +<span id="L719" class="LineNr">719 </span> 01/add 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to ecx</span> +<span id="L720" class="LineNr">720 </span> <span class="subxComment"># _append-4(payload, max, src, &src->data[src->size])</span> +<span id="L721" class="LineNr">721 </span> <span class="subxS2Comment"># . . push &src->data[src->size]</span> +<span id="L722" class="LineNr">722 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to edx</span> +<span id="L723" class="LineNr">723 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 2/index/edx <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+edx+4 to edx</span> +<span id="L724" class="LineNr">724 </span> 52/push-edx +<span id="L725" class="LineNr">725 </span> <span class="subxS2Comment"># . . push src</span> +<span id="L726" class="LineNr">726 </span> 56/push-esi +<span id="L727" class="LineNr">727 </span> <span class="subxS2Comment"># . . push max</span> +<span id="L728" class="LineNr">728 </span> 51/push-ecx +<span id="L729" class="LineNr">729 </span> <span class="subxS2Comment"># . . push payload</span> +<span id="L730" class="LineNr">730 </span> 50/push-eax +<span id="L731" class="LineNr">731 </span> <span class="subxS2Comment"># . . call</span> +<span id="L732" class="LineNr">732 </span> e8/call <a href='108write.subx.html#L171'>_append-4</a>/disp32 +<span id="L733" class="LineNr">733 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L734" class="LineNr">734 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L735" class="LineNr">735 </span><span class="Constant">$copy-array:end</span>: +<span id="L736" class="LineNr">736 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L737" class="LineNr">737 </span> 5e/pop-to-esi +<span id="L738" class="LineNr">738 </span> 5a/pop-to-edx +<span id="L739" class="LineNr">739 </span> 59/pop-to-ecx +<span id="L740" class="LineNr">740 </span> 58/pop-to-eax +<span id="L741" class="LineNr">741 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L742" class="LineNr">742 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L743" class="LineNr">743 </span> 5d/pop-to-ebp +<span id="L744" class="LineNr">744 </span> c3/return +<span id="L745" class="LineNr">745 </span> +<span id="L746" class="LineNr">746 </span><span class="subxTest">test-copy-array</span>: +<span id="L747" class="LineNr">747 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L748" class="LineNr">748 </span> 55/push-ebp +<span id="L749" class="LineNr">749 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L750" class="LineNr">750 </span> <span class="subxComment"># var src/esi: (addr array int) = [3, 4, 5]</span> +<span id="L751" class="LineNr">751 </span> 68/push 5/imm32 +<span id="L752" class="LineNr">752 </span> 68/push 4/imm32 +<span id="L753" class="LineNr">753 </span> 68/push 3/imm32 +<span id="L754" class="LineNr">754 </span> 68/push 0xc/imm32/size +<span id="L755" class="LineNr">755 </span> 89/copy 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to esi</span> +<span id="L756" class="LineNr">756 </span> <span class="subxComment"># var ad/ecx: allocation-descriptor containing 32 bytes</span> +<span id="L757" class="LineNr">757 </span> <span class="subxS1Comment"># . var end/ecx: (addr byte)</span> +<span id="L758" class="LineNr">758 </span> 89/<- %ecx 4/r32/esp +<span id="L759" class="LineNr">759 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = end - 32</span> +<span id="L760" class="LineNr">760 </span> 81 5/subop/subtract %esp 0x20/imm32 +<span id="L761" class="LineNr">761 </span> 89/<- %edx 4/r32/esp +<span id="L762" class="LineNr">762 </span> <span class="subxS1Comment"># . ad = {start, end}</span> +<span id="L763" class="LineNr">763 </span> 51/push-ecx +<span id="L764" class="LineNr">764 </span> 52/push-edx +<span id="L765" class="LineNr">765 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L766" class="LineNr">766 </span> <span class="subxComment"># var expected-payload/ebx = ad->curr</span> +<span id="L767" class="LineNr">767 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to ebx</span> +<span id="L768" class="LineNr">768 </span> <span class="subxComment"># var h/edx: handle = {0, 0}</span> +<span id="L769" class="LineNr">769 </span> 68/push 0/imm32 +<span id="L770" class="LineNr">770 </span> 68/push 0/imm32 +<span id="L771" class="LineNr">771 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L772" class="LineNr">772 </span> <span class="subxComment"># *Next-alloc-id = 0x34</span> +<span id="L773" class="LineNr">773 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 0x34/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> +<span id="L774" class="LineNr">774 </span> <span class="subxComment"># copy-array(ad, src, h)</span> +<span id="L775" class="LineNr">775 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L776" class="LineNr">776 </span> 52/push-edx +<span id="L777" class="LineNr">777 </span> 56/push-esi +<span id="L778" class="LineNr">778 </span> 51/push-ecx +<span id="L779" class="LineNr">779 </span> <span class="subxS2Comment"># . . call</span> +<span id="L780" class="LineNr">780 </span> e8/call <a href='120allocate.subx.html#L690'>copy-array</a>/disp32 +<span id="L781" class="LineNr">781 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L782" class="LineNr">782 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L783" class="LineNr">783 </span> <span class="subxComment"># check-ints-equal(h->alloc-id, 0x34, msg)</span> +<span id="L784" class="LineNr">784 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L785" class="LineNr">785 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L746'>test-copy-array</a>: sets alloc-id in handle"</span>/imm32 +<span id="L786" class="LineNr">786 </span> 68/push 0x34/imm32 +<span id="L787" class="LineNr">787 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> +<span id="L788" class="LineNr">788 </span> <span class="subxS2Comment"># . . call</span> +<span id="L789" class="LineNr">789 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L790" class="LineNr">790 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L791" class="LineNr">791 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L792" class="LineNr">792 </span> <span class="subxComment"># check-ints-equal(h->payload, expected-payload, msg)</span> +<span id="L793" class="LineNr">793 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L794" class="LineNr">794 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L746'>test-copy-array</a>: sets payload in handle"</span>/imm32 +<span id="L795" class="LineNr">795 </span> 53/push-ebx +<span id="L796" class="LineNr">796 </span> ff 6/subop/push 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edx+4)</span> +<span id="L797" class="LineNr">797 </span> <span class="subxS2Comment"># . . call</span> +<span id="L798" class="LineNr">798 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L799" class="LineNr">799 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L800" class="LineNr">800 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L801" class="LineNr">801 </span> <span class="subxComment"># check-ints-equal(h->payload->alloc-id, 0x34, msg)</span> +<span id="L802" class="LineNr">802 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L803" class="LineNr">803 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L746'>test-copy-array</a>: sets alloc-id in payload"</span>/imm32 +<span id="L804" class="LineNr">804 </span> 68/push 0x34/imm32 +<span id="L805" class="LineNr">805 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> +<span id="L806" class="LineNr">806 </span> <span class="subxS2Comment"># . . call</span> +<span id="L807" class="LineNr">807 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L808" class="LineNr">808 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L809" class="LineNr">809 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L810" class="LineNr">810 </span> <span class="subxComment"># var payload/eax: (addr int) = lookup(h)</span> +<span id="L811" class="LineNr">811 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L812" class="LineNr">812 </span> ff 6/subop/push 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edx+4)</span> +<span id="L813" class="LineNr">813 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> +<span id="L814" class="LineNr">814 </span> <span class="subxS2Comment"># . . call</span> +<span id="L815" class="LineNr">815 </span> e8/call <a href='120allocate.subx.html#L223'>lookup</a>/disp32 +<span id="L816" class="LineNr">816 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L817" class="LineNr">817 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L818" class="LineNr">818 </span> <span class="subxComment"># check-ints-equal(payload->size, 0xc, msg)</span> +<span id="L819" class="LineNr">819 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L820" class="LineNr">820 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L746'>test-copy-array</a>: sets array size in payload"</span>/imm32 +<span id="L821" class="LineNr">821 </span> 68/push 0xc/imm32 +<span id="L822" class="LineNr">822 </span> ff 6/subop/push 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *eax</span> +<span id="L823" class="LineNr">823 </span> <span class="subxS2Comment"># . . call</span> +<span id="L824" class="LineNr">824 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L825" class="LineNr">825 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L826" class="LineNr">826 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L827" class="LineNr">827 </span> <span class="subxComment"># check-ints-equal(*Next-alloc-id, 0x35, msg)</span> +<span id="L828" class="LineNr">828 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L829" class="LineNr">829 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L746'>test-copy-array</a>: increments Next-alloc-id"</span>/imm32 +<span id="L830" class="LineNr">830 </span> 68/push 0x35/imm32 +<span id="L831" class="LineNr">831 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 <span class="subxComment"># push *Next-alloc-id</span> +<span id="L832" class="LineNr">832 </span> <span class="subxS2Comment"># . . call</span> +<span id="L833" class="LineNr">833 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L834" class="LineNr">834 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L835" class="LineNr">835 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L836" class="LineNr">836 </span> <span class="subxComment"># check-ints-equal(ad->curr - expected-payload, 12 + 4 for alloc-id + 4 for size, msg)</span> +<span id="L837" class="LineNr">837 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L838" class="LineNr">838 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L746'>test-copy-array</a>: updates allocation descriptor"</span>/imm32 +<span id="L839" class="LineNr">839 </span> 68/push 0x14/imm32 +<span id="L840" class="LineNr">840 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> +<span id="L841" class="LineNr">841 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ebx from eax</span> +<span id="L842" class="LineNr">842 </span> 50/push-eax +<span id="L843" class="LineNr">843 </span> <span class="subxS2Comment"># . . call</span> +<span id="L844" class="LineNr">844 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L845" class="LineNr">845 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L846" class="LineNr">846 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L847" class="LineNr">847 </span> <span class="subxComment"># clean up</span> +<span id="L848" class="LineNr">848 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 1/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> +<span id="L849" class="LineNr">849 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L850" class="LineNr">850 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x40/imm32 <span class="subxComment"># add to esp</span> +<span id="L851" class="LineNr">851 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L852" class="LineNr">852 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L853" class="LineNr">853 </span> 5d/pop-to-ebp +<span id="L854" class="LineNr">854 </span> c3/return +<span id="L855" class="LineNr">855 </span> +<span id="L856" class="LineNr">856 </span><span class="subxComment"># Fill a region of memory with zeroes.</span> +<span id="L857" class="LineNr">857 </span><span class="subxFunction">zero-out</span>: <span class="subxComment"># start: (addr byte), size: int</span> +<span id="L858" class="LineNr">858 </span> <span class="subxComment"># pseudocode:</span> +<span id="L859" class="LineNr">859 </span> <span class="subxComment"># curr/esi = start</span> +<span id="L860" class="LineNr">860 </span> <span class="subxComment"># i/ecx = 0</span> +<span id="L861" class="LineNr">861 </span> <span class="subxComment"># while true</span> +<span id="L862" class="LineNr">862 </span> <span class="subxComment"># if (i >= size) break</span> +<span id="L863" class="LineNr">863 </span> <span class="subxComment"># *curr = 0</span> +<span id="L864" class="LineNr">864 </span> <span class="subxComment"># ++curr</span> +<span id="L865" class="LineNr">865 </span> <span class="subxComment"># ++i</span> +<span id="L866" class="LineNr">866 </span> <span class="subxComment">#</span> +<span id="L867" class="LineNr">867 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L868" class="LineNr">868 </span> 55/push-ebp +<span id="L869" class="LineNr">869 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L870" class="LineNr">870 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L871" class="LineNr">871 </span> 50/push-eax +<span id="L872" class="LineNr">872 </span> 51/push-ecx +<span id="L873" class="LineNr">873 </span> 52/push-edx +<span id="L874" class="LineNr">874 </span> 56/push-esi +<span id="L875" class="LineNr">875 </span> <span class="subxComment"># curr/esi = start</span> +<span id="L876" class="LineNr">876 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> +<span id="L877" class="LineNr">877 </span> <span class="subxComment"># var i/ecx: int = 0</span> +<span id="L878" class="LineNr">878 </span> 31/xor 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ecx</span> +<span id="L879" class="LineNr">879 </span> <span class="subxComment"># edx = size</span> +<span id="L880" class="LineNr">880 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edx</span> +<span id="L881" class="LineNr">881 </span><span class="Constant">$zero-out:loop</span>: +<span id="L882" class="LineNr">882 </span> <span class="subxComment"># if (i >= size) break</span> +<span id="L883" class="LineNr">883 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with edx</span> +<span id="L884" class="LineNr">884 </span> 7d/jump-if->= $zero-out:end/disp8 +<span id="L885" class="LineNr">885 </span> <span class="subxComment"># *curr = 0</span> +<span id="L886" class="LineNr">886 </span> c6 0/subop/copy-byte 0/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm8 <span class="subxComment"># copy byte to *esi</span> +<span id="L887" class="LineNr">887 </span> <span class="subxComment"># ++curr</span> +<span id="L888" class="LineNr">888 </span> 46/increment-esi +<span id="L889" class="LineNr">889 </span> <span class="subxComment"># ++i</span> +<span id="L890" class="LineNr">890 </span> 41/increment-ecx +<span id="L891" class="LineNr">891 </span> eb/jump $zero-out:<span class="Constant">loop</span>/disp8 +<span id="L892" class="LineNr">892 </span><span class="Constant">$zero-out:end</span>: +<span id="L893" class="LineNr">893 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L894" class="LineNr">894 </span> 5e/pop-to-esi +<span id="L895" class="LineNr">895 </span> 5a/pop-to-edx +<span id="L896" class="LineNr">896 </span> 59/pop-to-ecx +<span id="L897" class="LineNr">897 </span> 58/pop-to-eax +<span id="L898" class="LineNr">898 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L899" class="LineNr">899 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L900" class="LineNr">900 </span> 5d/pop-to-ebp +<span id="L901" class="LineNr">901 </span> c3/return +<span id="L902" class="LineNr">902 </span> +<span id="L903" class="LineNr">903 </span><span class="subxTest">test-zero-out</span>: +<span id="L904" class="LineNr">904 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L905" class="LineNr">905 </span> 55/push-ebp +<span id="L906" class="LineNr">906 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L907" class="LineNr">907 </span> <span class="subxComment"># region/ecx = 34, 35, 36, 37</span> +<span id="L908" class="LineNr">908 </span> 68/push 0x37363534/imm32 +<span id="L909" class="LineNr">909 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L910" class="LineNr">910 </span> <span class="subxComment"># zero-out(ecx, 3)</span> +<span id="L911" class="LineNr">911 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L912" class="LineNr">912 </span> 68/push 3/imm32/size +<span id="L913" class="LineNr">913 </span> 51/push-ecx +<span id="L914" class="LineNr">914 </span> <span class="subxS2Comment"># . . call</span> +<span id="L915" class="LineNr">915 </span> e8/call <a href='120allocate.subx.html#L857'>zero-out</a>/disp32 +<span id="L916" class="LineNr">916 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L917" class="LineNr">917 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L918" class="LineNr">918 </span> <span class="subxComment"># first 3 bytes cleared, fourth left alone</span> +<span id="L919" class="LineNr">919 </span> <span class="subxS1Comment"># . check-ints-equal(*ecx, 0x37000000, msg)</span> +<span id="L920" class="LineNr">920 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L921" class="LineNr">921 </span> 68/push <span class="Constant">"F - test-zero-out"</span>/imm32 +<span id="L922" class="LineNr">922 </span> 68/push 0x37000000/imm32 +<span id="L923" class="LineNr">923 </span> ff 6/subop/push 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ecx</span> +<span id="L924" class="LineNr">924 </span> <span class="subxS2Comment"># . . call</span> +<span id="L925" class="LineNr">925 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L926" class="LineNr">926 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L927" class="LineNr">927 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L928" class="LineNr">928 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L929" class="LineNr">929 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L930" class="LineNr">930 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L931" class="LineNr">931 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L932" class="LineNr">932 </span> 5d/pop-to-ebp +<span id="L933" class="LineNr">933 </span> c3/return +<span id="L934" class="LineNr">934 </span> +<span id="L935" class="LineNr">935 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> </body> </html> diff --git a/html/121new-stream.subx.html b/html/121new-stream.subx.html index 38e1f288..468d0ef9 100644 --- a/html/121new-stream.subx.html +++ b/html/121new-stream.subx.html @@ -79,7 +79,7 @@ if ('onhashchange' in window) { <span id="L20" class="LineNr"> 20 </span> f7 4/subop/multiply 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># multiply *(ebp+12) into edx:eax</span> <span id="L21" class="LineNr"> 21 </span> <span class="subxS1Comment"># . if overflow abort</span> <span id="L22" class="LineNr"> 22 </span> 81 7/subop/compare 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># compare edx</span> -<span id="L23" class="LineNr"> 23 </span> 75/jump-if-!= $new-stream:<a href='501draw-text.mu.html#L481'>abort</a>/disp8 +<span id="L23" class="LineNr"> 23 </span> 75/jump-if-!= $new-stream:<a href='317abort.subx.html#L5'>abort</a>/disp8 <span id="L24" class="LineNr"> 24 </span> <span class="subxS1Comment"># . edx = elemsize*length</span> <span id="L25" class="LineNr"> 25 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to edx</span> <span id="L26" class="LineNr"> 26 </span> <span class="subxComment"># var n/eax: int = size + 12 (for read, write and size)</span> @@ -116,74 +116,71 @@ if ('onhashchange' in window) { <span id="L57" class="LineNr"> 57 </span> 5d/pop-to-ebp <span id="L58" class="LineNr"> 58 </span> c3/return <span id="L59" class="LineNr"> 59 </span> -<span id="L60" class="LineNr"> 60 </span><span class="Constant">$new-stream:<a href='501draw-text.mu.html#L481'>abort</a></span>: -<span id="L61" class="LineNr"> 61 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"new-stream: size too large"</span> 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L62" class="LineNr"> 62 </span> { -<span id="L63" class="LineNr"> 63 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L64" class="LineNr"> 64 </span> } -<span id="L65" class="LineNr"> 65 </span> <span class="subxComment"># never gets here</span> -<span id="L66" class="LineNr"> 66 </span> -<span id="L67" class="LineNr"> 67 </span><span class="subxTest">test-new-stream</span>: -<span id="L68" class="LineNr"> 68 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L69" class="LineNr"> 69 </span> 55/push-ebp -<span id="L70" class="LineNr"> 70 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L71" class="LineNr"> 71 </span> <span class="subxComment"># var ad/ecx: allocation-descriptor containing 16 bytes</span> -<span id="L72" class="LineNr"> 72 </span> <span class="subxS1Comment"># . var end/ecx: (addr byte)</span> -<span id="L73" class="LineNr"> 73 </span> 89/<- %ecx 4/r32/esp -<span id="L74" class="LineNr"> 74 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = end - 32</span> -<span id="L75" class="LineNr"> 75 </span> 81 5/subop/subtract %esp 0x20/imm32 -<span id="L76" class="LineNr"> 76 </span> 89/<- %edx 4/r32/esp -<span id="L77" class="LineNr"> 77 </span> <span class="subxS1Comment"># . ad = {start, end}</span> -<span id="L78" class="LineNr"> 78 </span> 51/push-ecx -<span id="L79" class="LineNr"> 79 </span> 52/push-edx -<span id="L80" class="LineNr"> 80 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L81" class="LineNr"> 81 </span> <span class="subxComment"># var start/edx = ad->curr</span> -<span id="L82" class="LineNr"> 82 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to edx</span> -<span id="L83" class="LineNr"> 83 </span> <span class="subxComment"># var h/ebx: (handle stream byte)</span> -<span id="L84" class="LineNr"> 84 </span> 68/push 0/imm32 -<span id="L85" class="LineNr"> 85 </span> 68/push 0/imm32 -<span id="L86" class="LineNr"> 86 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> -<span id="L87" class="LineNr"> 87 </span> <span class="subxComment"># new-stream(ad, 3, 2, h)</span> -<span id="L88" class="LineNr"> 88 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L89" class="LineNr"> 89 </span> 53/push-ebx -<span id="L90" class="LineNr"> 90 </span> 68/push 2/imm32 -<span id="L91" class="LineNr"> 91 </span> 68/push 3/imm32 -<span id="L92" class="LineNr"> 92 </span> 51/push-ecx -<span id="L93" class="LineNr"> 93 </span> <span class="subxS2Comment"># . . call</span> -<span id="L94" class="LineNr"> 94 </span> e8/call <a href='121new-stream.subx.html#L8'>new-stream</a>/disp32 -<span id="L95" class="LineNr"> 95 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L96" class="LineNr"> 96 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L97" class="LineNr"> 97 </span> <span class="subxComment"># eax = out->payload</span> -<span id="L98" class="LineNr"> 98 </span> 8b/copy 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebx+4) to eax</span> -<span id="L99" class="LineNr"> 99 </span> <span class="subxComment"># check-ints-equal(eax, edx, msg)</span> -<span id="L100" class="LineNr">100 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L101" class="LineNr">101 </span> 68/push <span class="Constant">"F - <a href='121new-stream.subx.html#L67'>test-new-stream</a>: returns current pointer of allocation descriptor"</span>/imm32 -<span id="L102" class="LineNr">102 </span> 52/push-edx -<span id="L103" class="LineNr">103 </span> 50/push-eax -<span id="L104" class="LineNr">104 </span> <span class="subxS2Comment"># . . call</span> -<span id="L105" class="LineNr">105 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L106" class="LineNr">106 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L107" class="LineNr">107 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L108" class="LineNr">108 </span> <span class="subxComment"># skip payload->allocid</span> -<span id="L109" class="LineNr">109 </span> 05/add-to-eax 4/imm32 -<span id="L110" class="LineNr">110 </span> <span class="subxComment"># check-ints-equal(eax->size, 6, msg)</span> -<span id="L111" class="LineNr">111 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L112" class="LineNr">112 </span> 68/push <span class="Constant">"F - <a href='121new-stream.subx.html#L67'>test-new-stream</a>: sets size correctly"</span>/imm32 -<span id="L113" class="LineNr">113 </span> 68/push 6/imm32 -<span id="L114" class="LineNr">114 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="subxComment"># push *(eax+8)</span> -<span id="L115" class="LineNr">115 </span> <span class="subxS2Comment"># . . call</span> -<span id="L116" class="LineNr">116 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L117" class="LineNr">117 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L118" class="LineNr">118 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L119" class="LineNr">119 </span> <span class="subxComment"># the rest is delegated to clear-stream() so we won't bother checking it</span> -<span id="L120" class="LineNr">120 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L121" class="LineNr">121 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x30/imm32 <span class="subxComment"># add to esp</span> -<span id="L122" class="LineNr">122 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L123" class="LineNr">123 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L124" class="LineNr">124 </span> 5d/pop-to-ebp -<span id="L125" class="LineNr">125 </span> c3/return -<span id="L126" class="LineNr">126 </span> -<span id="L127" class="LineNr">127 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +<span id="L60" class="LineNr"> 60 </span><span class="Constant">$new-stream:<a href='317abort.subx.html#L5'>abort</a></span>: +<span id="L61" class="LineNr"> 61 </span> (<a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"new-stream: size too large"</span>) +<span id="L62" class="LineNr"> 62 </span> <span class="subxComment"># never gets here</span> +<span id="L63" class="LineNr"> 63 </span> +<span id="L64" class="LineNr"> 64 </span><span class="subxTest">test-new-stream</span>: +<span id="L65" class="LineNr"> 65 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L66" class="LineNr"> 66 </span> 55/push-ebp +<span id="L67" class="LineNr"> 67 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L68" class="LineNr"> 68 </span> <span class="subxComment"># var ad/ecx: allocation-descriptor containing 16 bytes</span> +<span id="L69" class="LineNr"> 69 </span> <span class="subxS1Comment"># . var end/ecx: (addr byte)</span> +<span id="L70" class="LineNr"> 70 </span> 89/<- %ecx 4/r32/esp +<span id="L71" class="LineNr"> 71 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = end - 32</span> +<span id="L72" class="LineNr"> 72 </span> 81 5/subop/subtract %esp 0x20/imm32 +<span id="L73" class="LineNr"> 73 </span> 89/<- %edx 4/r32/esp +<span id="L74" class="LineNr"> 74 </span> <span class="subxS1Comment"># . ad = {start, end}</span> +<span id="L75" class="LineNr"> 75 </span> 51/push-ecx +<span id="L76" class="LineNr"> 76 </span> 52/push-edx +<span id="L77" class="LineNr"> 77 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L78" class="LineNr"> 78 </span> <span class="subxComment"># var start/edx = ad->curr</span> +<span id="L79" class="LineNr"> 79 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to edx</span> +<span id="L80" class="LineNr"> 80 </span> <span class="subxComment"># var h/ebx: (handle stream byte)</span> +<span id="L81" class="LineNr"> 81 </span> 68/push 0/imm32 +<span id="L82" class="LineNr"> 82 </span> 68/push 0/imm32 +<span id="L83" class="LineNr"> 83 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> +<span id="L84" class="LineNr"> 84 </span> <span class="subxComment"># new-stream(ad, 3, 2, h)</span> +<span id="L85" class="LineNr"> 85 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L86" class="LineNr"> 86 </span> 53/push-ebx +<span id="L87" class="LineNr"> 87 </span> 68/push 2/imm32 +<span id="L88" class="LineNr"> 88 </span> 68/push 3/imm32 +<span id="L89" class="LineNr"> 89 </span> 51/push-ecx +<span id="L90" class="LineNr"> 90 </span> <span class="subxS2Comment"># . . call</span> +<span id="L91" class="LineNr"> 91 </span> e8/call <a href='121new-stream.subx.html#L8'>new-stream</a>/disp32 +<span id="L92" class="LineNr"> 92 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L93" class="LineNr"> 93 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L94" class="LineNr"> 94 </span> <span class="subxComment"># eax = out->payload</span> +<span id="L95" class="LineNr"> 95 </span> 8b/copy 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebx+4) to eax</span> +<span id="L96" class="LineNr"> 96 </span> <span class="subxComment"># check-ints-equal(eax, edx, msg)</span> +<span id="L97" class="LineNr"> 97 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L98" class="LineNr"> 98 </span> 68/push <span class="Constant">"F - <a href='121new-stream.subx.html#L64'>test-new-stream</a>: returns current pointer of allocation descriptor"</span>/imm32 +<span id="L99" class="LineNr"> 99 </span> 52/push-edx +<span id="L100" class="LineNr">100 </span> 50/push-eax +<span id="L101" class="LineNr">101 </span> <span class="subxS2Comment"># . . call</span> +<span id="L102" class="LineNr">102 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L103" class="LineNr">103 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L104" class="LineNr">104 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L105" class="LineNr">105 </span> <span class="subxComment"># skip payload->allocid</span> +<span id="L106" class="LineNr">106 </span> 05/add-to-eax 4/imm32 +<span id="L107" class="LineNr">107 </span> <span class="subxComment"># check-ints-equal(eax->size, 6, msg)</span> +<span id="L108" class="LineNr">108 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L109" class="LineNr">109 </span> 68/push <span class="Constant">"F - <a href='121new-stream.subx.html#L64'>test-new-stream</a>: sets size correctly"</span>/imm32 +<span id="L110" class="LineNr">110 </span> 68/push 6/imm32 +<span id="L111" class="LineNr">111 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="subxComment"># push *(eax+8)</span> +<span id="L112" class="LineNr">112 </span> <span class="subxS2Comment"># . . call</span> +<span id="L113" class="LineNr">113 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L114" class="LineNr">114 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L115" class="LineNr">115 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L116" class="LineNr">116 </span> <span class="subxComment"># the rest is delegated to clear-stream() so we won't bother checking it</span> +<span id="L117" class="LineNr">117 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L118" class="LineNr">118 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x30/imm32 <span class="subxComment"># add to esp</span> +<span id="L119" class="LineNr">119 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L120" class="LineNr">120 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L121" class="LineNr">121 </span> 5d/pop-to-ebp +<span id="L122" class="LineNr">122 </span> c3/return +<span id="L123" class="LineNr">123 </span> +<span id="L124" class="LineNr">124 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> </body> </html> diff --git a/html/123slice.subx.html b/html/123slice.subx.html index 7ad2d84e..8257f816 100644 --- a/html/123slice.subx.html +++ b/html/123slice.subx.html @@ -880,7 +880,7 @@ if ('onhashchange' in window) { <span id="L819" class="LineNr"> 819 </span> 73/jump-if-addr>= $write-slice:loop-end/disp8 <span id="L820" class="LineNr"> 820 </span> <span class="subxComment"># if (out->write >= out->size) abort</span> <span id="L821" class="LineNr"> 821 </span> 39/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ebx with edx</span> -<span id="L822" class="LineNr"> 822 </span> 7d/jump-if->= $write-slice:<a href='501draw-text.mu.html#L481'>abort</a>/disp8 +<span id="L822" class="LineNr"> 822 </span> 7d/jump-if->= $write-slice:<a href='317abort.subx.html#L5'>abort</a>/disp8 <span id="L823" class="LineNr"> 823 </span> <span class="subxComment"># out->data[out->write] = *in</span> <span id="L824" class="LineNr"> 824 </span> <span class="subxS1Comment"># . AL = *in</span> <span id="L825" class="LineNr"> 825 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> @@ -908,201 +908,195 @@ if ('onhashchange' in window) { <span id="L847" class="LineNr"> 847 </span> 5d/pop-to-ebp <span id="L848" class="LineNr"> 848 </span> c3/return <span id="L849" class="LineNr"> 849 </span> -<span id="L850" class="LineNr"> 850 </span><span class="Constant">$write-slice:<a href='501draw-text.mu.html#L481'>abort</a></span>: -<span id="L851" class="LineNr"> 851 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"write-slice: out of space"</span> 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L852" class="LineNr"> 852 </span> { -<span id="L853" class="LineNr"> 853 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L854" class="LineNr"> 854 </span> } -<span id="L855" class="LineNr"> 855 </span> <span class="subxComment"># never gets here</span> -<span id="L856" class="LineNr"> 856 </span> -<span id="L857" class="LineNr"> 857 </span><span class="subxTest">test-write-slice</span>: -<span id="L858" class="LineNr"> 858 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L859" class="LineNr"> 859 </span> 55/push-ebp -<span id="L860" class="LineNr"> 860 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L861" class="LineNr"> 861 </span> <span class="subxComment"># setup</span> -<span id="L862" class="LineNr"> 862 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L863" class="LineNr"> 863 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L864" class="LineNr"> 864 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L865" class="LineNr"> 865 </span> <span class="subxS2Comment"># . . call</span> -<span id="L866" class="LineNr"> 866 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 -<span id="L867" class="LineNr"> 867 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L868" class="LineNr"> 868 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L869" class="LineNr"> 869 </span> <span class="subxComment"># (eax..ecx) = "Abc"</span> -<span id="L870" class="LineNr"> 870 </span> b8/copy-to-eax <span class="Constant">"Abc"</span>/imm32 -<span id="L871" class="LineNr"> 871 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L872" class="LineNr"> 872 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L873" class="LineNr"> 873 </span> 05/add-to-eax 4/imm32 -<span id="L874" class="LineNr"> 874 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L875" class="LineNr"> 875 </span> 51/push-ecx -<span id="L876" class="LineNr"> 876 </span> 50/push-eax -<span id="L877" class="LineNr"> 877 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L878" class="LineNr"> 878 </span> <span class="subxComment"># write-slice(_test-stream, slice)</span> -<span id="L879" class="LineNr"> 879 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L880" class="LineNr"> 880 </span> 51/push-ecx -<span id="L881" class="LineNr"> 881 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L882" class="LineNr"> 882 </span> <span class="subxS2Comment"># . . call</span> -<span id="L883" class="LineNr"> 883 </span> e8/call <a href='123slice.subx.html#L793'>write-slice</a>/disp32 -<span id="L884" class="LineNr"> 884 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L885" class="LineNr"> 885 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L886" class="LineNr"> 886 </span> <span class="subxComment"># check-stream-equal(_test-stream, "Abc", msg)</span> -<span id="L887" class="LineNr"> 887 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L888" class="LineNr"> 888 </span> 68/push <span class="Constant">"F - test-write-slice"</span>/imm32 -<span id="L889" class="LineNr"> 889 </span> 68/push <span class="Constant">"Abc"</span>/imm32 -<span id="L890" class="LineNr"> 890 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L891" class="LineNr"> 891 </span> <span class="subxS2Comment"># . . call</span> -<span id="L892" class="LineNr"> 892 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L893" class="LineNr"> 893 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L894" class="LineNr"> 894 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L895" class="LineNr"> 895 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L896" class="LineNr"> 896 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L897" class="LineNr"> 897 </span> 5d/pop-to-ebp -<span id="L898" class="LineNr"> 898 </span> c3/return -<span id="L899" class="LineNr"> 899 </span> -<span id="L900" class="LineNr"> 900 </span><span class="subxComment"># copy a slice into a new (dynamically allocated) string</span> -<span id="L901" class="LineNr"> 901 </span><span class="subxFunction">slice-to-string</span>: <span class="subxComment"># ad: (addr allocation-descriptor), in: (addr slice), out: (addr handle array byte)</span> -<span id="L902" class="LineNr"> 902 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L903" class="LineNr"> 903 </span> 55/push-ebp -<span id="L904" class="LineNr"> 904 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L905" class="LineNr"> 905 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L906" class="LineNr"> 906 </span> 50/push-eax -<span id="L907" class="LineNr"> 907 </span> 51/push-ecx -<span id="L908" class="LineNr"> 908 </span> 52/push-edx -<span id="L909" class="LineNr"> 909 </span> 53/push-ebx -<span id="L910" class="LineNr"> 910 </span> 56/push-esi -<span id="L911" class="LineNr"> 911 </span> <span class="subxComment"># esi = in</span> -<span id="L912" class="LineNr"> 912 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to esi</span> -<span id="L913" class="LineNr"> 913 </span> <span class="subxComment"># var curr/edx: (addr byte) = in->start</span> -<span id="L914" class="LineNr"> 914 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to edx</span> -<span id="L915" class="LineNr"> 915 </span> <span class="subxComment"># var max/ebx: (addr byte) = in->end</span> -<span id="L916" class="LineNr"> 916 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to ebx</span> -<span id="L917" class="LineNr"> 917 </span> <span class="subxComment"># var size/ecx: int = max - curr + 4 # total size of output string (including the initial 'size' field)</span> -<span id="L918" class="LineNr"> 918 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebx to ecx</span> -<span id="L919" class="LineNr"> 919 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract edx from ecx</span> -<span id="L920" class="LineNr"> 920 </span> 81 0/subop/add 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to ecx</span> -<span id="L921" class="LineNr"> 921 </span> <span class="subxComment"># allocate(ad, size, out)</span> -<span id="L922" class="LineNr"> 922 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L923" class="LineNr"> 923 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> -<span id="L924" class="LineNr"> 924 </span> 51/push-ecx -<span id="L925" class="LineNr"> 925 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L926" class="LineNr"> 926 </span> <span class="subxS2Comment"># . . call</span> -<span id="L927" class="LineNr"> 927 </span> e8/call <a href='120allocate.subx.html#L43'>allocate</a>/disp32 -<span id="L928" class="LineNr"> 928 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L929" class="LineNr"> 929 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L930" class="LineNr"> 930 </span> <span class="subxComment"># eax = out->payload</span> -<span id="L931" class="LineNr"> 931 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to eax</span> -<span id="L932" class="LineNr"> 932 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(eax+4) to eax</span> -<span id="L933" class="LineNr"> 933 </span> <span class="subxComment"># skip payload->allocid</span> -<span id="L934" class="LineNr"> 934 </span> 05/add-to-eax 4/imm32 -<span id="L935" class="LineNr"> 935 </span> <span class="subxComment"># if (eax == 0) abort</span> -<span id="L936" class="LineNr"> 936 </span> 3d/compare-eax-and 0/imm32 -<span id="L937" class="LineNr"> 937 </span> 74/jump-if-= $slice-to-string:<a href='501draw-text.mu.html#L481'>abort</a>/disp8 -<span id="L938" class="LineNr"> 938 </span> <span class="subxComment"># out->size = size-4</span> -<span id="L939" class="LineNr"> 939 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> -<span id="L940" class="LineNr"> 940 </span> 81 5/subop/subtract 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># subtract 4 from *eax</span> -<span id="L941" class="LineNr"> 941 </span> <span class="subxComment"># save out</span> -<span id="L942" class="LineNr"> 942 </span> 50/push-eax -<span id="L943" class="LineNr"> 943 </span><span class="Constant">$slice-to-string:initialize</span>: -<span id="L944" class="LineNr"> 944 </span> <span class="subxComment"># eax = _append-4(eax+4, eax+size, curr, max) # clobbering ecx</span> -<span id="L945" class="LineNr"> 945 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L946" class="LineNr"> 946 </span> 53/push-ebx -<span id="L947" class="LineNr"> 947 </span> 52/push-edx -<span id="L948" class="LineNr"> 948 </span> <span class="subxS2Comment"># . . push eax+size (clobbering ecx)</span> -<span id="L949" class="LineNr"> 949 </span> 01/add 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to ecx</span> -<span id="L950" class="LineNr"> 950 </span> 51/push-ecx -<span id="L951" class="LineNr"> 951 </span> <span class="subxS2Comment"># . . push eax+4 (clobbering eax)</span> -<span id="L952" class="LineNr"> 952 </span> 81 0/subop/add 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to eax</span> -<span id="L953" class="LineNr"> 953 </span> 50/push-eax -<span id="L954" class="LineNr"> 954 </span> <span class="subxS2Comment"># . . call</span> -<span id="L955" class="LineNr"> 955 </span> e8/call <a href='108write.subx.html#L171'>_append-4</a>/disp32 -<span id="L956" class="LineNr"> 956 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L957" class="LineNr"> 957 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L958" class="LineNr"> 958 </span> <span class="subxComment"># restore out (assumes _append-4 can't error)</span> -<span id="L959" class="LineNr"> 959 </span> 58/pop-to-eax -<span id="L960" class="LineNr"> 960 </span><span class="Constant">$slice-to-string:end</span>: -<span id="L961" class="LineNr"> 961 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L962" class="LineNr"> 962 </span> 5e/pop-to-esi -<span id="L963" class="LineNr"> 963 </span> 5b/pop-to-ebx -<span id="L964" class="LineNr"> 964 </span> 5a/pop-to-edx -<span id="L965" class="LineNr"> 965 </span> 59/pop-to-ecx -<span id="L966" class="LineNr"> 966 </span> 58/pop-to-eax -<span id="L967" class="LineNr"> 967 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L968" class="LineNr"> 968 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L969" class="LineNr"> 969 </span> 5d/pop-to-ebp -<span id="L970" class="LineNr"> 970 </span> c3/return -<span id="L971" class="LineNr"> 971 </span> -<span id="L972" class="LineNr"> 972 </span><span class="Constant">$slice-to-string:<a href='501draw-text.mu.html#L481'>abort</a></span>: -<span id="L973" class="LineNr"> 973 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"slice-to-string: out of space\n"</span> 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L974" class="LineNr"> 974 </span> { -<span id="L975" class="LineNr"> 975 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L976" class="LineNr"> 976 </span> } -<span id="L977" class="LineNr"> 977 </span> <span class="subxComment"># never gets here</span> -<span id="L978" class="LineNr"> 978 </span> -<span id="L979" class="LineNr"> 979 </span><span class="subxTest">test-slice-to-string</span>: -<span id="L980" class="LineNr"> 980 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L981" class="LineNr"> 981 </span> 55/push-ebp -<span id="L982" class="LineNr"> 982 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L983" class="LineNr"> 983 </span> <span class="subxComment"># var ad/edx: allocation-descriptor containing 16 bytes</span> -<span id="L984" class="LineNr"> 984 </span> <span class="subxS1Comment"># . var end/ecx: (addr byte)</span> -<span id="L985" class="LineNr"> 985 </span> 89/<- %ecx 4/r32/esp -<span id="L986" class="LineNr"> 986 </span> 81 5/subop/subtract %esp 0x10/imm32 -<span id="L987" class="LineNr"> 987 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = end - 0x10</span> -<span id="L988" class="LineNr"> 988 </span> 89/<- %edx 4/r32/esp -<span id="L989" class="LineNr"> 989 </span> <span class="subxS1Comment"># . ad = {start, end}</span> -<span id="L990" class="LineNr"> 990 </span> 51/push-ecx -<span id="L991" class="LineNr"> 991 </span> 52/push-edx -<span id="L992" class="LineNr"> 992 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> -<span id="L993" class="LineNr"> 993 </span> <span class="subxComment"># (eax..ecx) = "Abc"</span> -<span id="L994" class="LineNr"> 994 </span> b8/copy-to-eax <span class="Constant">"Abc"</span>/imm32 -<span id="L995" class="LineNr"> 995 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L996" class="LineNr"> 996 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L997" class="LineNr"> 997 </span> 05/add-to-eax 4/imm32 -<span id="L998" class="LineNr"> 998 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L999" class="LineNr"> 999 </span> 51/push-ecx -<span id="L1000" class="LineNr">1000 </span> 50/push-eax -<span id="L1001" class="LineNr">1001 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L1002" class="LineNr">1002 </span> <span class="subxComment"># var h/ebx: (handle array byte)</span> -<span id="L1003" class="LineNr">1003 </span> 68/push 0/imm32 -<span id="L1004" class="LineNr">1004 </span> 68/push 0/imm32 -<span id="L1005" class="LineNr">1005 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> -<span id="L1006" class="LineNr">1006 </span> <span class="subxComment"># slice-to-string(ad, slice, h)</span> -<span id="L1007" class="LineNr">1007 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1008" class="LineNr">1008 </span> 53/push-ebx -<span id="L1009" class="LineNr">1009 </span> 51/push-ecx -<span id="L1010" class="LineNr">1010 </span> 52/push-edx -<span id="L1011" class="LineNr">1011 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1012" class="LineNr">1012 </span> e8/call <a href='123slice.subx.html#L901'>slice-to-string</a>/disp32 -<span id="L1013" class="LineNr">1013 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1014" class="LineNr">1014 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1015" class="LineNr">1015 </span> <span class="subxComment"># eax = h->payload</span> -<span id="L1016" class="LineNr">1016 </span> 8b/copy 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebx+4) to eax</span> -<span id="L1017" class="LineNr">1017 </span> <span class="subxComment"># skip payload->allocid</span> -<span id="L1018" class="LineNr">1018 </span> 05/add-to-eax 4/imm32 -<span id="L1019" class="Folded">1019 </span><span class="Folded">+-- 26 lines: #? # dump eax ---------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1045" class="LineNr">1045 </span> <span class="subxComment"># eax = string-equal?(eax, "Abc")</span> -<span id="L1046" class="LineNr">1046 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1047" class="LineNr">1047 </span> 68/push <span class="Constant">"Abc"</span>/imm32 -<span id="L1048" class="LineNr">1048 </span> 50/push-eax -<span id="L1049" class="LineNr">1049 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1050" class="LineNr">1050 </span> e8/call <a href='105string-equal.subx.html#L8'>string-equal?</a>/disp32 -<span id="L1051" class="LineNr">1051 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1052" class="LineNr">1052 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1053" class="LineNr">1053 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> -<span id="L1054" class="LineNr">1054 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1055" class="LineNr">1055 </span> 68/push <span class="Constant">"F - test-slice-to-string"</span>/imm32 -<span id="L1056" class="LineNr">1056 </span> 68/push 1/imm32/true -<span id="L1057" class="LineNr">1057 </span> 50/push-eax -<span id="L1058" class="LineNr">1058 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1059" class="LineNr">1059 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L1060" class="LineNr">1060 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1061" class="LineNr">1061 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1062" class="LineNr">1062 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L1063" class="LineNr">1063 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/imm32 <span class="subxComment"># add to esp</span> -<span id="L1064" class="LineNr">1064 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1065" class="LineNr">1065 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1066" class="LineNr">1066 </span> 5d/pop-to-ebp -<span id="L1067" class="LineNr">1067 </span> c3/return -<span id="L1068" class="LineNr">1068 </span> -<span id="L1069" class="LineNr">1069 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +<span id="L850" class="LineNr"> 850 </span><span class="Constant">$write-slice:<a href='317abort.subx.html#L5'>abort</a></span>: +<span id="L851" class="LineNr"> 851 </span> (<a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"write-slice: out of space"</span>) +<span id="L852" class="LineNr"> 852 </span> <span class="subxComment"># never gets here</span> +<span id="L853" class="LineNr"> 853 </span> +<span id="L854" class="LineNr"> 854 </span><span class="subxTest">test-write-slice</span>: +<span id="L855" class="LineNr"> 855 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L856" class="LineNr"> 856 </span> 55/push-ebp +<span id="L857" class="LineNr"> 857 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L858" class="LineNr"> 858 </span> <span class="subxComment"># setup</span> +<span id="L859" class="LineNr"> 859 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L860" class="LineNr"> 860 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L861" class="LineNr"> 861 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L862" class="LineNr"> 862 </span> <span class="subxS2Comment"># . . call</span> +<span id="L863" class="LineNr"> 863 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L864" class="LineNr"> 864 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L865" class="LineNr"> 865 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L866" class="LineNr"> 866 </span> <span class="subxComment"># (eax..ecx) = "Abc"</span> +<span id="L867" class="LineNr"> 867 </span> b8/copy-to-eax <span class="Constant">"Abc"</span>/imm32 +<span id="L868" class="LineNr"> 868 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L869" class="LineNr"> 869 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L870" class="LineNr"> 870 </span> 05/add-to-eax 4/imm32 +<span id="L871" class="LineNr"> 871 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L872" class="LineNr"> 872 </span> 51/push-ecx +<span id="L873" class="LineNr"> 873 </span> 50/push-eax +<span id="L874" class="LineNr"> 874 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L875" class="LineNr"> 875 </span> <span class="subxComment"># write-slice(_test-stream, slice)</span> +<span id="L876" class="LineNr"> 876 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L877" class="LineNr"> 877 </span> 51/push-ecx +<span id="L878" class="LineNr"> 878 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L879" class="LineNr"> 879 </span> <span class="subxS2Comment"># . . call</span> +<span id="L880" class="LineNr"> 880 </span> e8/call <a href='123slice.subx.html#L793'>write-slice</a>/disp32 +<span id="L881" class="LineNr"> 881 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L882" class="LineNr"> 882 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L883" class="LineNr"> 883 </span> <span class="subxComment"># check-stream-equal(_test-stream, "Abc", msg)</span> +<span id="L884" class="LineNr"> 884 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L885" class="LineNr"> 885 </span> 68/push <span class="Constant">"F - test-write-slice"</span>/imm32 +<span id="L886" class="LineNr"> 886 </span> 68/push <span class="Constant">"Abc"</span>/imm32 +<span id="L887" class="LineNr"> 887 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L888" class="LineNr"> 888 </span> <span class="subxS2Comment"># . . call</span> +<span id="L889" class="LineNr"> 889 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L890" class="LineNr"> 890 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L891" class="LineNr"> 891 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L892" class="LineNr"> 892 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L893" class="LineNr"> 893 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L894" class="LineNr"> 894 </span> 5d/pop-to-ebp +<span id="L895" class="LineNr"> 895 </span> c3/return +<span id="L896" class="LineNr"> 896 </span> +<span id="L897" class="LineNr"> 897 </span><span class="subxComment"># copy a slice into a new (dynamically allocated) string</span> +<span id="L898" class="LineNr"> 898 </span><span class="subxFunction">slice-to-string</span>: <span class="subxComment"># ad: (addr allocation-descriptor), in: (addr slice), out: (addr handle array byte)</span> +<span id="L899" class="LineNr"> 899 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L900" class="LineNr"> 900 </span> 55/push-ebp +<span id="L901" class="LineNr"> 901 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L902" class="LineNr"> 902 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L903" class="LineNr"> 903 </span> 50/push-eax +<span id="L904" class="LineNr"> 904 </span> 51/push-ecx +<span id="L905" class="LineNr"> 905 </span> 52/push-edx +<span id="L906" class="LineNr"> 906 </span> 53/push-ebx +<span id="L907" class="LineNr"> 907 </span> 56/push-esi +<span id="L908" class="LineNr"> 908 </span> <span class="subxComment"># esi = in</span> +<span id="L909" class="LineNr"> 909 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to esi</span> +<span id="L910" class="LineNr"> 910 </span> <span class="subxComment"># var curr/edx: (addr byte) = in->start</span> +<span id="L911" class="LineNr"> 911 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to edx</span> +<span id="L912" class="LineNr"> 912 </span> <span class="subxComment"># var max/ebx: (addr byte) = in->end</span> +<span id="L913" class="LineNr"> 913 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to ebx</span> +<span id="L914" class="LineNr"> 914 </span> <span class="subxComment"># var size/ecx: int = max - curr + 4 # total size of output string (including the initial 'size' field)</span> +<span id="L915" class="LineNr"> 915 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebx to ecx</span> +<span id="L916" class="LineNr"> 916 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract edx from ecx</span> +<span id="L917" class="LineNr"> 917 </span> 81 0/subop/add 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to ecx</span> +<span id="L918" class="LineNr"> 918 </span> <span class="subxComment"># allocate(ad, size, out)</span> +<span id="L919" class="LineNr"> 919 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L920" class="LineNr"> 920 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> +<span id="L921" class="LineNr"> 921 </span> 51/push-ecx +<span id="L922" class="LineNr"> 922 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L923" class="LineNr"> 923 </span> <span class="subxS2Comment"># . . call</span> +<span id="L924" class="LineNr"> 924 </span> e8/call <a href='120allocate.subx.html#L43'>allocate</a>/disp32 +<span id="L925" class="LineNr"> 925 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L926" class="LineNr"> 926 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L927" class="LineNr"> 927 </span> <span class="subxComment"># eax = out->payload</span> +<span id="L928" class="LineNr"> 928 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to eax</span> +<span id="L929" class="LineNr"> 929 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(eax+4) to eax</span> +<span id="L930" class="LineNr"> 930 </span> <span class="subxComment"># skip payload->allocid</span> +<span id="L931" class="LineNr"> 931 </span> 05/add-to-eax 4/imm32 +<span id="L932" class="LineNr"> 932 </span> <span class="subxComment"># if (eax == 0) abort</span> +<span id="L933" class="LineNr"> 933 </span> 3d/compare-eax-and 0/imm32 +<span id="L934" class="LineNr"> 934 </span> 74/jump-if-= $slice-to-string:<a href='317abort.subx.html#L5'>abort</a>/disp8 +<span id="L935" class="LineNr"> 935 </span> <span class="subxComment"># out->size = size-4</span> +<span id="L936" class="LineNr"> 936 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> +<span id="L937" class="LineNr"> 937 </span> 81 5/subop/subtract 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># subtract 4 from *eax</span> +<span id="L938" class="LineNr"> 938 </span> <span class="subxComment"># save out</span> +<span id="L939" class="LineNr"> 939 </span> 50/push-eax +<span id="L940" class="LineNr"> 940 </span><span class="Constant">$slice-to-string:initialize</span>: +<span id="L941" class="LineNr"> 941 </span> <span class="subxComment"># eax = _append-4(eax+4, eax+size, curr, max) # clobbering ecx</span> +<span id="L942" class="LineNr"> 942 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L943" class="LineNr"> 943 </span> 53/push-ebx +<span id="L944" class="LineNr"> 944 </span> 52/push-edx +<span id="L945" class="LineNr"> 945 </span> <span class="subxS2Comment"># . . push eax+size (clobbering ecx)</span> +<span id="L946" class="LineNr"> 946 </span> 01/add 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to ecx</span> +<span id="L947" class="LineNr"> 947 </span> 51/push-ecx +<span id="L948" class="LineNr"> 948 </span> <span class="subxS2Comment"># . . push eax+4 (clobbering eax)</span> +<span id="L949" class="LineNr"> 949 </span> 81 0/subop/add 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to eax</span> +<span id="L950" class="LineNr"> 950 </span> 50/push-eax +<span id="L951" class="LineNr"> 951 </span> <span class="subxS2Comment"># . . call</span> +<span id="L952" class="LineNr"> 952 </span> e8/call <a href='108write.subx.html#L171'>_append-4</a>/disp32 +<span id="L953" class="LineNr"> 953 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L954" class="LineNr"> 954 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L955" class="LineNr"> 955 </span> <span class="subxComment"># restore out (assumes _append-4 can't error)</span> +<span id="L956" class="LineNr"> 956 </span> 58/pop-to-eax +<span id="L957" class="LineNr"> 957 </span><span class="Constant">$slice-to-string:end</span>: +<span id="L958" class="LineNr"> 958 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L959" class="LineNr"> 959 </span> 5e/pop-to-esi +<span id="L960" class="LineNr"> 960 </span> 5b/pop-to-ebx +<span id="L961" class="LineNr"> 961 </span> 5a/pop-to-edx +<span id="L962" class="LineNr"> 962 </span> 59/pop-to-ecx +<span id="L963" class="LineNr"> 963 </span> 58/pop-to-eax +<span id="L964" class="LineNr"> 964 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L965" class="LineNr"> 965 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L966" class="LineNr"> 966 </span> 5d/pop-to-ebp +<span id="L967" class="LineNr"> 967 </span> c3/return +<span id="L968" class="LineNr"> 968 </span> +<span id="L969" class="LineNr"> 969 </span><span class="Constant">$slice-to-string:<a href='317abort.subx.html#L5'>abort</a></span>: +<span id="L970" class="LineNr"> 970 </span> (<a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"slice-to-string: out of space"</span>) +<span id="L971" class="LineNr"> 971 </span> <span class="subxComment"># never gets here</span> +<span id="L972" class="LineNr"> 972 </span> +<span id="L973" class="LineNr"> 973 </span><span class="subxTest">test-slice-to-string</span>: +<span id="L974" class="LineNr"> 974 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L975" class="LineNr"> 975 </span> 55/push-ebp +<span id="L976" class="LineNr"> 976 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L977" class="LineNr"> 977 </span> <span class="subxComment"># var ad/edx: allocation-descriptor containing 16 bytes</span> +<span id="L978" class="LineNr"> 978 </span> <span class="subxS1Comment"># . var end/ecx: (addr byte)</span> +<span id="L979" class="LineNr"> 979 </span> 89/<- %ecx 4/r32/esp +<span id="L980" class="LineNr"> 980 </span> 81 5/subop/subtract %esp 0x10/imm32 +<span id="L981" class="LineNr"> 981 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = end - 0x10</span> +<span id="L982" class="LineNr"> 982 </span> 89/<- %edx 4/r32/esp +<span id="L983" class="LineNr"> 983 </span> <span class="subxS1Comment"># . ad = {start, end}</span> +<span id="L984" class="LineNr"> 984 </span> 51/push-ecx +<span id="L985" class="LineNr"> 985 </span> 52/push-edx +<span id="L986" class="LineNr"> 986 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L987" class="LineNr"> 987 </span> <span class="subxComment"># (eax..ecx) = "Abc"</span> +<span id="L988" class="LineNr"> 988 </span> b8/copy-to-eax <span class="Constant">"Abc"</span>/imm32 +<span id="L989" class="LineNr"> 989 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L990" class="LineNr"> 990 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L991" class="LineNr"> 991 </span> 05/add-to-eax 4/imm32 +<span id="L992" class="LineNr"> 992 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L993" class="LineNr"> 993 </span> 51/push-ecx +<span id="L994" class="LineNr"> 994 </span> 50/push-eax +<span id="L995" class="LineNr"> 995 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L996" class="LineNr"> 996 </span> <span class="subxComment"># var h/ebx: (handle array byte)</span> +<span id="L997" class="LineNr"> 997 </span> 68/push 0/imm32 +<span id="L998" class="LineNr"> 998 </span> 68/push 0/imm32 +<span id="L999" class="LineNr"> 999 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> +<span id="L1000" class="LineNr">1000 </span> <span class="subxComment"># slice-to-string(ad, slice, h)</span> +<span id="L1001" class="LineNr">1001 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1002" class="LineNr">1002 </span> 53/push-ebx +<span id="L1003" class="LineNr">1003 </span> 51/push-ecx +<span id="L1004" class="LineNr">1004 </span> 52/push-edx +<span id="L1005" class="LineNr">1005 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1006" class="LineNr">1006 </span> e8/call <a href='123slice.subx.html#L898'>slice-to-string</a>/disp32 +<span id="L1007" class="LineNr">1007 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1008" class="LineNr">1008 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1009" class="LineNr">1009 </span> <span class="subxComment"># eax = h->payload</span> +<span id="L1010" class="LineNr">1010 </span> 8b/copy 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebx+4) to eax</span> +<span id="L1011" class="LineNr">1011 </span> <span class="subxComment"># skip payload->allocid</span> +<span id="L1012" class="LineNr">1012 </span> 05/add-to-eax 4/imm32 +<span id="L1013" class="Folded">1013 </span><span class="Folded">+-- 26 lines: #? # dump eax ---------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1039" class="LineNr">1039 </span> <span class="subxComment"># eax = string-equal?(eax, "Abc")</span> +<span id="L1040" class="LineNr">1040 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1041" class="LineNr">1041 </span> 68/push <span class="Constant">"Abc"</span>/imm32 +<span id="L1042" class="LineNr">1042 </span> 50/push-eax +<span id="L1043" class="LineNr">1043 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1044" class="LineNr">1044 </span> e8/call <a href='105string-equal.subx.html#L8'>string-equal?</a>/disp32 +<span id="L1045" class="LineNr">1045 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1046" class="LineNr">1046 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1047" class="LineNr">1047 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> +<span id="L1048" class="LineNr">1048 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1049" class="LineNr">1049 </span> 68/push <span class="Constant">"F - test-slice-to-string"</span>/imm32 +<span id="L1050" class="LineNr">1050 </span> 68/push 1/imm32/true +<span id="L1051" class="LineNr">1051 </span> 50/push-eax +<span id="L1052" class="LineNr">1052 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1053" class="LineNr">1053 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1054" class="LineNr">1054 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1055" class="LineNr">1055 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1056" class="LineNr">1056 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L1057" class="LineNr">1057 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/imm32 <span class="subxComment"># add to esp</span> +<span id="L1058" class="LineNr">1058 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1059" class="LineNr">1059 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1060" class="LineNr">1060 </span> 5d/pop-to-ebp +<span id="L1061" class="LineNr">1061 </span> c3/return +<span id="L1062" class="LineNr">1062 </span> +<span id="L1063" class="LineNr">1063 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> </body> </html> diff --git a/html/126write-int-decimal.subx.html b/html/126write-int-decimal.subx.html index 02126064..f7c26c32 100644 --- a/html/126write-int-decimal.subx.html +++ b/html/126write-int-decimal.subx.html @@ -150,7 +150,7 @@ if ('onhashchange' in window) { <span id="L89" class="LineNr"> 89 </span> 74/jump-if-= $write-int32-decimal:write-break/disp8 <span id="L90" class="LineNr"> 90 </span> <span class="subxComment"># if (curr >= max) abort</span> <span id="L91" class="LineNr"> 91 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with ebx</span> -<span id="L92" class="LineNr"> 92 </span> 73/jump-if-addr>= $write-int32-decimal:<a href='501draw-text.mu.html#L481'>abort</a>/disp8 +<span id="L92" class="LineNr"> 92 </span> 73/jump-if-addr>= $write-int32-decimal:<a href='317abort.subx.html#L5'>abort</a>/disp8 <span id="L93" class="LineNr"> 93 </span><span class="Constant">$write-int32-decimal:write-char</span>: <span id="L94" class="LineNr"> 94 </span> <span class="subxComment"># *curr = AL</span> <span id="L95" class="LineNr"> 95 </span> 88/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy AL to byte at *ecx</span> @@ -174,294 +174,288 @@ if ('onhashchange' in window) { <span id="L113" class="LineNr">113 </span> 5d/pop-to-ebp <span id="L114" class="LineNr">114 </span> c3/return <span id="L115" class="LineNr">115 </span> -<span id="L116" class="LineNr">116 </span><span class="Constant">$write-int32-decimal:<a href='501draw-text.mu.html#L481'>abort</a></span>: -<span id="L117" class="LineNr">117 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"write-int32-decimal: stream out of space"</span> 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L118" class="LineNr">118 </span> { -<span id="L119" class="LineNr">119 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L120" class="LineNr">120 </span> } -<span id="L121" class="LineNr">121 </span> <span class="subxComment"># never gets here</span> -<span id="L122" class="LineNr">122 </span> -<span id="L123" class="LineNr">123 </span><span class="subxTest">test-write-int32-decimal</span>: -<span id="L124" class="LineNr">124 </span> <span class="subxH1Comment"># - check that a single-digit number converts correctly</span> -<span id="L125" class="LineNr">125 </span> <span class="subxComment"># setup</span> -<span id="L126" class="LineNr">126 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L127" class="LineNr">127 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L128" class="LineNr">128 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L129" class="LineNr">129 </span> <span class="subxS2Comment"># . . call</span> -<span id="L130" class="LineNr">130 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 -<span id="L131" class="LineNr">131 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L132" class="LineNr">132 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L133" class="LineNr">133 </span> <span class="subxComment"># write-int32-decimal(_test-stream, 9)</span> -<span id="L134" class="LineNr">134 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L135" class="LineNr">135 </span> 68/push 9/imm32 -<span id="L136" class="LineNr">136 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L137" class="LineNr">137 </span> <span class="subxS2Comment"># . . call</span> -<span id="L138" class="LineNr">138 </span> e8/call <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a>/disp32 -<span id="L139" class="LineNr">139 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L140" class="LineNr">140 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L141" class="LineNr">141 </span> <span class="subxComment"># check-stream-equal(_test-stream, "9", msg)</span> -<span id="L142" class="LineNr">142 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L143" class="LineNr">143 </span> 68/push <span class="Constant">"F - test-write-int32-decimal"</span>/imm32 -<span id="L144" class="LineNr">144 </span> 68/push <span class="Constant">"9"</span>/imm32 -<span id="L145" class="LineNr">145 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L146" class="LineNr">146 </span> <span class="subxS2Comment"># . . call</span> -<span id="L147" class="LineNr">147 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L148" class="LineNr">148 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L149" class="LineNr">149 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L150" class="LineNr">150 </span> <span class="subxS1Comment"># . end</span> -<span id="L151" class="LineNr">151 </span> c3/return -<span id="L152" class="LineNr">152 </span> -<span id="L153" class="LineNr">153 </span><span class="subxTest">test-write-int32-decimal-zero</span>: -<span id="L154" class="LineNr">154 </span> <span class="subxH1Comment"># - check that 0 converts correctly</span> -<span id="L155" class="LineNr">155 </span> <span class="subxComment"># setup</span> -<span id="L156" class="LineNr">156 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L157" class="LineNr">157 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L158" class="LineNr">158 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L159" class="LineNr">159 </span> <span class="subxS2Comment"># . . call</span> -<span id="L160" class="LineNr">160 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 -<span id="L161" class="LineNr">161 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L162" class="LineNr">162 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L163" class="LineNr">163 </span> <span class="subxComment"># write-int32-decimal(_test-stream, 0)</span> -<span id="L164" class="LineNr">164 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L165" class="LineNr">165 </span> 68/push 0/imm32 -<span id="L166" class="LineNr">166 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L167" class="LineNr">167 </span> <span class="subxS2Comment"># . . call</span> -<span id="L168" class="LineNr">168 </span> e8/call <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a>/disp32 -<span id="L169" class="LineNr">169 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L170" class="LineNr">170 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L171" class="LineNr">171 </span> <span class="subxComment"># check-stream-equal(_test-stream, "0", msg)</span> -<span id="L172" class="LineNr">172 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L173" class="LineNr">173 </span> 68/push <span class="Constant">"F - test-write-int32-decimal-zero"</span>/imm32 -<span id="L174" class="LineNr">174 </span> 68/push <span class="Constant">"0"</span>/imm32 -<span id="L175" class="LineNr">175 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L176" class="LineNr">176 </span> <span class="subxS2Comment"># . . call</span> -<span id="L177" class="LineNr">177 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L178" class="LineNr">178 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L179" class="LineNr">179 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L180" class="LineNr">180 </span> <span class="subxS1Comment"># . end</span> -<span id="L181" class="LineNr">181 </span> c3/return -<span id="L182" class="LineNr">182 </span> -<span id="L183" class="LineNr">183 </span><span class="subxTest">test-write-int32-decimal-multiple-digits</span>: -<span id="L184" class="LineNr">184 </span> <span class="subxH1Comment"># - check that a multi-digit number converts correctly</span> -<span id="L185" class="LineNr">185 </span> <span class="subxComment"># setup</span> -<span id="L186" class="LineNr">186 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L187" class="LineNr">187 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L188" class="LineNr">188 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L189" class="LineNr">189 </span> <span class="subxS2Comment"># . . call</span> -<span id="L190" class="LineNr">190 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 -<span id="L191" class="LineNr">191 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L192" class="LineNr">192 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L193" class="LineNr">193 </span> <span class="subxComment"># write-int32-decimal(_test-stream, 10)</span> -<span id="L194" class="LineNr">194 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L195" class="LineNr">195 </span> 68/push 0xa/imm32 -<span id="L196" class="LineNr">196 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L197" class="LineNr">197 </span> <span class="subxS2Comment"># . . call</span> -<span id="L198" class="LineNr">198 </span> e8/call <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a>/disp32 -<span id="L199" class="LineNr">199 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L200" class="LineNr">200 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L201" class="LineNr">201 </span> <span class="subxComment"># check-stream-equal(_test-stream, "10", msg)</span> -<span id="L202" class="LineNr">202 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L203" class="LineNr">203 </span> 68/push <span class="Constant">"F - test-write-int32-decimal-multiple-digits"</span>/imm32 -<span id="L204" class="LineNr">204 </span> 68/push <span class="Constant">"10"</span>/imm32 -<span id="L205" class="LineNr">205 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L206" class="LineNr">206 </span> <span class="subxS2Comment"># . . call</span> -<span id="L207" class="LineNr">207 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L208" class="LineNr">208 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L209" class="LineNr">209 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L210" class="LineNr">210 </span> <span class="subxS1Comment"># . end</span> -<span id="L211" class="LineNr">211 </span> c3/return -<span id="L212" class="LineNr">212 </span> -<span id="L213" class="LineNr">213 </span><span class="subxTest">test-write-int32-decimal-negative</span>: -<span id="L214" class="LineNr">214 </span> <span class="subxH1Comment"># - check that a negative single-digit number converts correctly</span> -<span id="L215" class="LineNr">215 </span> <span class="subxComment"># setup</span> -<span id="L216" class="LineNr">216 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L217" class="LineNr">217 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L218" class="LineNr">218 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L219" class="LineNr">219 </span> <span class="subxS2Comment"># . . call</span> -<span id="L220" class="LineNr">220 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 -<span id="L221" class="LineNr">221 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L222" class="LineNr">222 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L223" class="LineNr">223 </span> <span class="subxComment"># write-int32-decimal(_test-stream, -9)</span> -<span id="L224" class="LineNr">224 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L225" class="LineNr">225 </span> 68/push -9/imm32 -<span id="L226" class="LineNr">226 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L227" class="LineNr">227 </span> <span class="subxS2Comment"># . . call</span> -<span id="L228" class="LineNr">228 </span> e8/call <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a>/disp32 -<span id="L229" class="LineNr">229 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L230" class="LineNr">230 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L231" class="Folded">231 </span><span class="Folded">+-- 26 lines: #? # dump _test-stream ------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L257" class="LineNr">257 </span> <span class="subxComment"># check-stream-equal(_test-stream, "-9", msg)</span> -<span id="L258" class="LineNr">258 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L259" class="LineNr">259 </span> 68/push <span class="Constant">"F - test-write-int32-decimal-negative"</span>/imm32 -<span id="L260" class="LineNr">260 </span> 68/push <span class="Constant">"-9"</span>/imm32 -<span id="L261" class="LineNr">261 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L262" class="LineNr">262 </span> <span class="subxS2Comment"># . . call</span> -<span id="L263" class="LineNr">263 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L264" class="LineNr">264 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L265" class="LineNr">265 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L266" class="LineNr">266 </span> <span class="subxS1Comment"># . end</span> -<span id="L267" class="LineNr">267 </span> c3/return -<span id="L268" class="LineNr">268 </span> -<span id="L269" class="LineNr">269 </span><span class="subxTest">test-write-int32-decimal-negative-multiple-digits</span>: -<span id="L270" class="LineNr">270 </span> <span class="subxH1Comment"># - check that a multi-digit number converts correctly</span> -<span id="L271" class="LineNr">271 </span> <span class="subxComment"># setup</span> -<span id="L272" class="LineNr">272 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L273" class="LineNr">273 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L274" class="LineNr">274 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L275" class="LineNr">275 </span> <span class="subxS2Comment"># . . call</span> -<span id="L276" class="LineNr">276 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 -<span id="L277" class="LineNr">277 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L278" class="LineNr">278 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L279" class="LineNr">279 </span> <span class="subxComment"># write-int32-decimal(_test-stream, -10)</span> -<span id="L280" class="LineNr">280 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L281" class="LineNr">281 </span> 68/push -0xa/imm32 -<span id="L282" class="LineNr">282 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L283" class="LineNr">283 </span> <span class="subxS2Comment"># . . call</span> -<span id="L284" class="LineNr">284 </span> e8/call <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a>/disp32 -<span id="L285" class="LineNr">285 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L286" class="LineNr">286 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L287" class="LineNr">287 </span> <span class="subxComment"># check-stream-equal(_test-stream, "-10", msg)</span> -<span id="L288" class="LineNr">288 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L289" class="LineNr">289 </span> 68/push <span class="Constant">"F - test-write-int32-decimal-negative-multiple-digits"</span>/imm32 -<span id="L290" class="LineNr">290 </span> 68/push <span class="Constant">"-10"</span>/imm32 -<span id="L291" class="LineNr">291 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L292" class="LineNr">292 </span> <span class="subxS2Comment"># . . call</span> -<span id="L293" class="LineNr">293 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L294" class="LineNr">294 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L295" class="LineNr">295 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L296" class="LineNr">296 </span> <span class="subxS1Comment"># . end</span> -<span id="L297" class="LineNr">297 </span> c3/return -<span id="L298" class="LineNr">298 </span> -<span id="L299" class="LineNr">299 </span><span class="subxFunction">decimal-digit?</span>: <span class="subxComment"># c: grapheme -> result/eax: boolean</span> -<span id="L300" class="LineNr">300 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L301" class="LineNr">301 </span> 55/push-ebp -<span id="L302" class="LineNr">302 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L303" class="LineNr">303 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L304" class="LineNr">304 </span> 51/push-ecx -<span id="L305" class="LineNr">305 </span> <span class="subxComment"># ecx = c</span> -<span id="L306" class="LineNr">306 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> -<span id="L307" class="LineNr">307 </span> <span class="subxComment"># result = false</span> -<span id="L308" class="LineNr">308 </span> b8/copy-to-eax 0/imm32/false -<span id="L309" class="LineNr">309 </span> <span class="subxComment"># return false if c < '0'</span> -<span id="L310" class="LineNr">310 </span> 81 7/subop/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x30/imm32 <span class="subxComment"># compare ecx</span> -<span id="L311" class="LineNr">311 </span> 7c/jump-if-< $decimal-digit?:end/disp8 -<span id="L312" class="LineNr">312 </span> <span class="subxComment"># return (c <= '9')</span> -<span id="L313" class="LineNr">313 </span> 81 7/subop/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x39/imm32 <span class="subxComment"># compare ecx</span> -<span id="L314" class="LineNr">314 </span> 7f/jump-if-> $decimal-digit?:end/disp8 -<span id="L315" class="LineNr">315 </span><span class="Constant">$decimal-digit?:true</span>: -<span id="L316" class="LineNr">316 </span> b8/copy-to-eax 1/imm32/true -<span id="L317" class="LineNr">317 </span><span class="Constant">$decimal-digit?:end</span>: -<span id="L318" class="LineNr">318 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L319" class="LineNr">319 </span> 59/pop-to-ecx -<span id="L320" class="LineNr">320 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L321" class="LineNr">321 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L322" class="LineNr">322 </span> 5d/pop-to-ebp -<span id="L323" class="LineNr">323 </span> c3/return -<span id="L324" class="LineNr">324 </span> -<span id="L325" class="LineNr">325 </span><span class="subxTest">test-decimal-digit-below-0</span>: -<span id="L326" class="LineNr">326 </span> <span class="subxComment"># eax = decimal-digit?(0x2f)</span> -<span id="L327" class="LineNr">327 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L328" class="LineNr">328 </span> 68/push 0x2f/imm32 -<span id="L329" class="LineNr">329 </span> <span class="subxS2Comment"># . . call</span> -<span id="L330" class="LineNr">330 </span> e8/call <a href='126write-int-decimal.subx.html#L299'>decimal-digit?</a>/disp32 -<span id="L331" class="LineNr">331 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L332" class="LineNr">332 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L333" class="LineNr">333 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> -<span id="L334" class="LineNr">334 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L335" class="LineNr">335 </span> 68/push <span class="Constant">"F - test-decimal-digit-below-0"</span>/imm32 -<span id="L336" class="LineNr">336 </span> 68/push 0/imm32/false -<span id="L337" class="LineNr">337 </span> 50/push-eax -<span id="L338" class="LineNr">338 </span> <span class="subxS2Comment"># . . call</span> -<span id="L339" class="LineNr">339 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L340" class="LineNr">340 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L341" class="LineNr">341 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L342" class="LineNr">342 </span> c3/return -<span id="L343" class="LineNr">343 </span> -<span id="L344" class="LineNr">344 </span><span class="subxTest">test-decimal-digit-0-to-9</span>: -<span id="L345" class="LineNr">345 </span> <span class="subxComment"># eax = decimal-digit?(0x30)</span> -<span id="L346" class="LineNr">346 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L347" class="LineNr">347 </span> 68/push 0x30/imm32 -<span id="L348" class="LineNr">348 </span> <span class="subxS2Comment"># . . call</span> -<span id="L349" class="LineNr">349 </span> e8/call <a href='126write-int-decimal.subx.html#L299'>decimal-digit?</a>/disp32 -<span id="L350" class="LineNr">350 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L351" class="LineNr">351 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L352" class="LineNr">352 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> -<span id="L353" class="LineNr">353 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L354" class="LineNr">354 </span> 68/push <span class="Constant">"F - test-decimal-digit-at-0"</span>/imm32 -<span id="L355" class="LineNr">355 </span> 68/push 1/imm32/true -<span id="L356" class="LineNr">356 </span> 50/push-eax -<span id="L357" class="LineNr">357 </span> <span class="subxS2Comment"># . . call</span> -<span id="L358" class="LineNr">358 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L359" class="LineNr">359 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L360" class="LineNr">360 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L361" class="LineNr">361 </span> <span class="subxComment"># eax = decimal-digit?(0x39)</span> -<span id="L362" class="LineNr">362 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L363" class="LineNr">363 </span> 68/push 0x39/imm32 -<span id="L364" class="LineNr">364 </span> <span class="subxS2Comment"># . . call</span> -<span id="L365" class="LineNr">365 </span> e8/call <a href='126write-int-decimal.subx.html#L299'>decimal-digit?</a>/disp32 -<span id="L366" class="LineNr">366 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L367" class="LineNr">367 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L368" class="LineNr">368 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> -<span id="L369" class="LineNr">369 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L370" class="LineNr">370 </span> 68/push <span class="Constant">"F - test-decimal-digit-at-9"</span>/imm32 -<span id="L371" class="LineNr">371 </span> 68/push 1/imm32/true -<span id="L372" class="LineNr">372 </span> 50/push-eax -<span id="L373" class="LineNr">373 </span> <span class="subxS2Comment"># . . call</span> -<span id="L374" class="LineNr">374 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L375" class="LineNr">375 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L376" class="LineNr">376 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L377" class="LineNr">377 </span> c3/return -<span id="L378" class="LineNr">378 </span> -<span id="L379" class="LineNr">379 </span><span class="subxTest">test-decimal-digit-above-9</span>: -<span id="L380" class="LineNr">380 </span> <span class="subxComment"># eax = decimal-digit?(0x3a)</span> -<span id="L381" class="LineNr">381 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L382" class="LineNr">382 </span> 68/push 0x3a/imm32 -<span id="L383" class="LineNr">383 </span> <span class="subxS2Comment"># . . call</span> -<span id="L384" class="LineNr">384 </span> e8/call <a href='126write-int-decimal.subx.html#L299'>decimal-digit?</a>/disp32 -<span id="L385" class="LineNr">385 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L386" class="LineNr">386 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L387" class="LineNr">387 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> -<span id="L388" class="LineNr">388 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L389" class="LineNr">389 </span> 68/push <span class="Constant">"F - test-decimal-digit-above-9"</span>/imm32 -<span id="L390" class="LineNr">390 </span> 68/push 0/imm32/false -<span id="L391" class="LineNr">391 </span> 50/push-eax -<span id="L392" class="LineNr">392 </span> <span class="subxS2Comment"># . . call</span> -<span id="L393" class="LineNr">393 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L394" class="LineNr">394 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L395" class="LineNr">395 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L396" class="LineNr">396 </span> c3/return -<span id="L397" class="LineNr">397 </span> -<span id="L398" class="LineNr">398 </span><span class="subxFunction">to-decimal-digit</span>: <span class="subxComment"># in: grapheme -> out/eax: int</span> -<span id="L399" class="LineNr">399 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L400" class="LineNr">400 </span> 55/push-ebp -<span id="L401" class="LineNr">401 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L402" class="LineNr">402 </span> <span class="subxComment"># eax = in</span> -<span id="L403" class="LineNr">403 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to eax</span> -<span id="L404" class="LineNr">404 </span><span class="Constant">$to-decimal-digit:check0</span>: -<span id="L405" class="LineNr">405 </span> <span class="subxComment"># if (eax < '0') goto abort</span> -<span id="L406" class="LineNr">406 </span> 3d/compare-eax-with 0x30/imm32/0 -<span id="L407" class="LineNr">407 </span> 7c/jump-if-< $to-decimal-digit:<a href='501draw-text.mu.html#L481'>abort</a>/disp8 -<span id="L408" class="LineNr">408 </span><span class="Constant">$to-decimal-digit:check1</span>: -<span id="L409" class="LineNr">409 </span> <span class="subxComment"># if (eax > '9') goto abort</span> -<span id="L410" class="LineNr">410 </span> 3d/compare-eax-with 0x39/imm32/f -<span id="L411" class="LineNr">411 </span> 7f/jump-if-> $to-decimal-digit:<a href='501draw-text.mu.html#L481'>abort</a>/disp8 -<span id="L412" class="LineNr">412 </span><span class="Constant">$to-decimal-digit:digit</span>: -<span id="L413" class="LineNr">413 </span> <span class="subxComment"># return eax - '0'</span> -<span id="L414" class="LineNr">414 </span> 2d/subtract-from-eax 0x30/imm32/0 -<span id="L415" class="LineNr">415 </span><span class="Constant">$to-decimal-digit:end</span>: -<span id="L416" class="LineNr">416 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L417" class="LineNr">417 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L418" class="LineNr">418 </span> 5d/pop-to-ebp -<span id="L419" class="LineNr">419 </span> c3/return -<span id="L420" class="LineNr">420 </span> -<span id="L421" class="LineNr">421 </span><span class="Constant">$to-decimal-digit:<a href='501draw-text.mu.html#L481'>abort</a></span>: -<span id="L422" class="LineNr">422 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"to-decimal-digit: not a digit character"</span> 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L423" class="LineNr">423 </span> { -<span id="L424" class="LineNr">424 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L425" class="LineNr">425 </span> } -<span id="L426" class="LineNr">426 </span> <span class="subxComment"># never gets here</span> -<span id="L427" class="LineNr">427 </span> -<span id="L428" class="LineNr">428 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +<span id="L116" class="LineNr">116 </span><span class="Constant">$write-int32-decimal:<a href='317abort.subx.html#L5'>abort</a></span>: +<span id="L117" class="LineNr">117 </span> (<a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"write-int32-decimal: stream out of space"</span>) +<span id="L118" class="LineNr">118 </span> <span class="subxComment"># never gets here</span> +<span id="L119" class="LineNr">119 </span> +<span id="L120" class="LineNr">120 </span><span class="subxTest">test-write-int32-decimal</span>: +<span id="L121" class="LineNr">121 </span> <span class="subxH1Comment"># - check that a single-digit number converts correctly</span> +<span id="L122" class="LineNr">122 </span> <span class="subxComment"># setup</span> +<span id="L123" class="LineNr">123 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L124" class="LineNr">124 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L125" class="LineNr">125 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L126" class="LineNr">126 </span> <span class="subxS2Comment"># . . call</span> +<span id="L127" class="LineNr">127 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L128" class="LineNr">128 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L129" class="LineNr">129 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L130" class="LineNr">130 </span> <span class="subxComment"># write-int32-decimal(_test-stream, 9)</span> +<span id="L131" class="LineNr">131 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L132" class="LineNr">132 </span> 68/push 9/imm32 +<span id="L133" class="LineNr">133 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L134" class="LineNr">134 </span> <span class="subxS2Comment"># . . call</span> +<span id="L135" class="LineNr">135 </span> e8/call <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a>/disp32 +<span id="L136" class="LineNr">136 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L137" class="LineNr">137 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L138" class="LineNr">138 </span> <span class="subxComment"># check-stream-equal(_test-stream, "9", msg)</span> +<span id="L139" class="LineNr">139 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L140" class="LineNr">140 </span> 68/push <span class="Constant">"F - test-write-int32-decimal"</span>/imm32 +<span id="L141" class="LineNr">141 </span> 68/push <span class="Constant">"9"</span>/imm32 +<span id="L142" class="LineNr">142 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L143" class="LineNr">143 </span> <span class="subxS2Comment"># . . call</span> +<span id="L144" class="LineNr">144 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L145" class="LineNr">145 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L146" class="LineNr">146 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L147" class="LineNr">147 </span> <span class="subxS1Comment"># . end</span> +<span id="L148" class="LineNr">148 </span> c3/return +<span id="L149" class="LineNr">149 </span> +<span id="L150" class="LineNr">150 </span><span class="subxTest">test-write-int32-decimal-zero</span>: +<span id="L151" class="LineNr">151 </span> <span class="subxH1Comment"># - check that 0 converts correctly</span> +<span id="L152" class="LineNr">152 </span> <span class="subxComment"># setup</span> +<span id="L153" class="LineNr">153 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L154" class="LineNr">154 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L155" class="LineNr">155 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L156" class="LineNr">156 </span> <span class="subxS2Comment"># . . call</span> +<span id="L157" class="LineNr">157 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L158" class="LineNr">158 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L159" class="LineNr">159 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L160" class="LineNr">160 </span> <span class="subxComment"># write-int32-decimal(_test-stream, 0)</span> +<span id="L161" class="LineNr">161 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L162" class="LineNr">162 </span> 68/push 0/imm32 +<span id="L163" class="LineNr">163 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L164" class="LineNr">164 </span> <span class="subxS2Comment"># . . call</span> +<span id="L165" class="LineNr">165 </span> e8/call <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a>/disp32 +<span id="L166" class="LineNr">166 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L167" class="LineNr">167 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L168" class="LineNr">168 </span> <span class="subxComment"># check-stream-equal(_test-stream, "0", msg)</span> +<span id="L169" class="LineNr">169 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L170" class="LineNr">170 </span> 68/push <span class="Constant">"F - test-write-int32-decimal-zero"</span>/imm32 +<span id="L171" class="LineNr">171 </span> 68/push <span class="Constant">"0"</span>/imm32 +<span id="L172" class="LineNr">172 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L173" class="LineNr">173 </span> <span class="subxS2Comment"># . . call</span> +<span id="L174" class="LineNr">174 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L175" class="LineNr">175 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L176" class="LineNr">176 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L177" class="LineNr">177 </span> <span class="subxS1Comment"># . end</span> +<span id="L178" class="LineNr">178 </span> c3/return +<span id="L179" class="LineNr">179 </span> +<span id="L180" class="LineNr">180 </span><span class="subxTest">test-write-int32-decimal-multiple-digits</span>: +<span id="L181" class="LineNr">181 </span> <span class="subxH1Comment"># - check that a multi-digit number converts correctly</span> +<span id="L182" class="LineNr">182 </span> <span class="subxComment"># setup</span> +<span id="L183" class="LineNr">183 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L184" class="LineNr">184 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L185" class="LineNr">185 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L186" class="LineNr">186 </span> <span class="subxS2Comment"># . . call</span> +<span id="L187" class="LineNr">187 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L188" class="LineNr">188 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L189" class="LineNr">189 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L190" class="LineNr">190 </span> <span class="subxComment"># write-int32-decimal(_test-stream, 10)</span> +<span id="L191" class="LineNr">191 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L192" class="LineNr">192 </span> 68/push 0xa/imm32 +<span id="L193" class="LineNr">193 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L194" class="LineNr">194 </span> <span class="subxS2Comment"># . . call</span> +<span id="L195" class="LineNr">195 </span> e8/call <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a>/disp32 +<span id="L196" class="LineNr">196 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L197" class="LineNr">197 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L198" class="LineNr">198 </span> <span class="subxComment"># check-stream-equal(_test-stream, "10", msg)</span> +<span id="L199" class="LineNr">199 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L200" class="LineNr">200 </span> 68/push <span class="Constant">"F - test-write-int32-decimal-multiple-digits"</span>/imm32 +<span id="L201" class="LineNr">201 </span> 68/push <span class="Constant">"10"</span>/imm32 +<span id="L202" class="LineNr">202 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L203" class="LineNr">203 </span> <span class="subxS2Comment"># . . call</span> +<span id="L204" class="LineNr">204 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L205" class="LineNr">205 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L206" class="LineNr">206 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L207" class="LineNr">207 </span> <span class="subxS1Comment"># . end</span> +<span id="L208" class="LineNr">208 </span> c3/return +<span id="L209" class="LineNr">209 </span> +<span id="L210" class="LineNr">210 </span><span class="subxTest">test-write-int32-decimal-negative</span>: +<span id="L211" class="LineNr">211 </span> <span class="subxH1Comment"># - check that a negative single-digit number converts correctly</span> +<span id="L212" class="LineNr">212 </span> <span class="subxComment"># setup</span> +<span id="L213" class="LineNr">213 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L214" class="LineNr">214 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L215" class="LineNr">215 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L216" class="LineNr">216 </span> <span class="subxS2Comment"># . . call</span> +<span id="L217" class="LineNr">217 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L218" class="LineNr">218 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L219" class="LineNr">219 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L220" class="LineNr">220 </span> <span class="subxComment"># write-int32-decimal(_test-stream, -9)</span> +<span id="L221" class="LineNr">221 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L222" class="LineNr">222 </span> 68/push -9/imm32 +<span id="L223" class="LineNr">223 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L224" class="LineNr">224 </span> <span class="subxS2Comment"># . . call</span> +<span id="L225" class="LineNr">225 </span> e8/call <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a>/disp32 +<span id="L226" class="LineNr">226 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L227" class="LineNr">227 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L228" class="Folded">228 </span><span class="Folded">+-- 26 lines: #? # dump _test-stream ------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L254" class="LineNr">254 </span> <span class="subxComment"># check-stream-equal(_test-stream, "-9", msg)</span> +<span id="L255" class="LineNr">255 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L256" class="LineNr">256 </span> 68/push <span class="Constant">"F - test-write-int32-decimal-negative"</span>/imm32 +<span id="L257" class="LineNr">257 </span> 68/push <span class="Constant">"-9"</span>/imm32 +<span id="L258" class="LineNr">258 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L259" class="LineNr">259 </span> <span class="subxS2Comment"># . . call</span> +<span id="L260" class="LineNr">260 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L261" class="LineNr">261 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L262" class="LineNr">262 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L263" class="LineNr">263 </span> <span class="subxS1Comment"># . end</span> +<span id="L264" class="LineNr">264 </span> c3/return +<span id="L265" class="LineNr">265 </span> +<span id="L266" class="LineNr">266 </span><span class="subxTest">test-write-int32-decimal-negative-multiple-digits</span>: +<span id="L267" class="LineNr">267 </span> <span class="subxH1Comment"># - check that a multi-digit number converts correctly</span> +<span id="L268" class="LineNr">268 </span> <span class="subxComment"># setup</span> +<span id="L269" class="LineNr">269 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L270" class="LineNr">270 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L271" class="LineNr">271 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L272" class="LineNr">272 </span> <span class="subxS2Comment"># . . call</span> +<span id="L273" class="LineNr">273 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L274" class="LineNr">274 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L275" class="LineNr">275 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L276" class="LineNr">276 </span> <span class="subxComment"># write-int32-decimal(_test-stream, -10)</span> +<span id="L277" class="LineNr">277 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L278" class="LineNr">278 </span> 68/push -0xa/imm32 +<span id="L279" class="LineNr">279 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L280" class="LineNr">280 </span> <span class="subxS2Comment"># . . call</span> +<span id="L281" class="LineNr">281 </span> e8/call <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a>/disp32 +<span id="L282" class="LineNr">282 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L283" class="LineNr">283 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L284" class="LineNr">284 </span> <span class="subxComment"># check-stream-equal(_test-stream, "-10", msg)</span> +<span id="L285" class="LineNr">285 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L286" class="LineNr">286 </span> 68/push <span class="Constant">"F - test-write-int32-decimal-negative-multiple-digits"</span>/imm32 +<span id="L287" class="LineNr">287 </span> 68/push <span class="Constant">"-10"</span>/imm32 +<span id="L288" class="LineNr">288 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L289" class="LineNr">289 </span> <span class="subxS2Comment"># . . call</span> +<span id="L290" class="LineNr">290 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L291" class="LineNr">291 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L292" class="LineNr">292 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L293" class="LineNr">293 </span> <span class="subxS1Comment"># . end</span> +<span id="L294" class="LineNr">294 </span> c3/return +<span id="L295" class="LineNr">295 </span> +<span id="L296" class="LineNr">296 </span><span class="subxFunction">decimal-digit?</span>: <span class="subxComment"># c: grapheme -> result/eax: boolean</span> +<span id="L297" class="LineNr">297 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L298" class="LineNr">298 </span> 55/push-ebp +<span id="L299" class="LineNr">299 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L300" class="LineNr">300 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L301" class="LineNr">301 </span> 51/push-ecx +<span id="L302" class="LineNr">302 </span> <span class="subxComment"># ecx = c</span> +<span id="L303" class="LineNr">303 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> +<span id="L304" class="LineNr">304 </span> <span class="subxComment"># result = false</span> +<span id="L305" class="LineNr">305 </span> b8/copy-to-eax 0/imm32/false +<span id="L306" class="LineNr">306 </span> <span class="subxComment"># return false if c < '0'</span> +<span id="L307" class="LineNr">307 </span> 81 7/subop/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x30/imm32 <span class="subxComment"># compare ecx</span> +<span id="L308" class="LineNr">308 </span> 7c/jump-if-< $decimal-digit?:end/disp8 +<span id="L309" class="LineNr">309 </span> <span class="subxComment"># return (c <= '9')</span> +<span id="L310" class="LineNr">310 </span> 81 7/subop/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x39/imm32 <span class="subxComment"># compare ecx</span> +<span id="L311" class="LineNr">311 </span> 7f/jump-if-> $decimal-digit?:end/disp8 +<span id="L312" class="LineNr">312 </span><span class="Constant">$decimal-digit?:true</span>: +<span id="L313" class="LineNr">313 </span> b8/copy-to-eax 1/imm32/true +<span id="L314" class="LineNr">314 </span><span class="Constant">$decimal-digit?:end</span>: +<span id="L315" class="LineNr">315 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L316" class="LineNr">316 </span> 59/pop-to-ecx +<span id="L317" class="LineNr">317 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L318" class="LineNr">318 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L319" class="LineNr">319 </span> 5d/pop-to-ebp +<span id="L320" class="LineNr">320 </span> c3/return +<span id="L321" class="LineNr">321 </span> +<span id="L322" class="LineNr">322 </span><span class="subxTest">test-decimal-digit-below-0</span>: +<span id="L323" class="LineNr">323 </span> <span class="subxComment"># eax = decimal-digit?(0x2f)</span> +<span id="L324" class="LineNr">324 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L325" class="LineNr">325 </span> 68/push 0x2f/imm32 +<span id="L326" class="LineNr">326 </span> <span class="subxS2Comment"># . . call</span> +<span id="L327" class="LineNr">327 </span> e8/call <a href='126write-int-decimal.subx.html#L296'>decimal-digit?</a>/disp32 +<span id="L328" class="LineNr">328 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L329" class="LineNr">329 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L330" class="LineNr">330 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> +<span id="L331" class="LineNr">331 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L332" class="LineNr">332 </span> 68/push <span class="Constant">"F - test-decimal-digit-below-0"</span>/imm32 +<span id="L333" class="LineNr">333 </span> 68/push 0/imm32/false +<span id="L334" class="LineNr">334 </span> 50/push-eax +<span id="L335" class="LineNr">335 </span> <span class="subxS2Comment"># . . call</span> +<span id="L336" class="LineNr">336 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L337" class="LineNr">337 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L338" class="LineNr">338 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L339" class="LineNr">339 </span> c3/return +<span id="L340" class="LineNr">340 </span> +<span id="L341" class="LineNr">341 </span><span class="subxTest">test-decimal-digit-0-to-9</span>: +<span id="L342" class="LineNr">342 </span> <span class="subxComment"># eax = decimal-digit?(0x30)</span> +<span id="L343" class="LineNr">343 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L344" class="LineNr">344 </span> 68/push 0x30/imm32 +<span id="L345" class="LineNr">345 </span> <span class="subxS2Comment"># . . call</span> +<span id="L346" class="LineNr">346 </span> e8/call <a href='126write-int-decimal.subx.html#L296'>decimal-digit?</a>/disp32 +<span id="L347" class="LineNr">347 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L348" class="LineNr">348 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L349" class="LineNr">349 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> +<span id="L350" class="LineNr">350 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L351" class="LineNr">351 </span> 68/push <span class="Constant">"F - test-decimal-digit-at-0"</span>/imm32 +<span id="L352" class="LineNr">352 </span> 68/push 1/imm32/true +<span id="L353" class="LineNr">353 </span> 50/push-eax +<span id="L354" class="LineNr">354 </span> <span class="subxS2Comment"># . . call</span> +<span id="L355" class="LineNr">355 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L356" class="LineNr">356 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L357" class="LineNr">357 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L358" class="LineNr">358 </span> <span class="subxComment"># eax = decimal-digit?(0x39)</span> +<span id="L359" class="LineNr">359 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L360" class="LineNr">360 </span> 68/push 0x39/imm32 +<span id="L361" class="LineNr">361 </span> <span class="subxS2Comment"># . . call</span> +<span id="L362" class="LineNr">362 </span> e8/call <a href='126write-int-decimal.subx.html#L296'>decimal-digit?</a>/disp32 +<span id="L363" class="LineNr">363 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L364" class="LineNr">364 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L365" class="LineNr">365 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> +<span id="L366" class="LineNr">366 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L367" class="LineNr">367 </span> 68/push <span class="Constant">"F - test-decimal-digit-at-9"</span>/imm32 +<span id="L368" class="LineNr">368 </span> 68/push 1/imm32/true +<span id="L369" class="LineNr">369 </span> 50/push-eax +<span id="L370" class="LineNr">370 </span> <span class="subxS2Comment"># . . call</span> +<span id="L371" class="LineNr">371 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L372" class="LineNr">372 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L373" class="LineNr">373 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L374" class="LineNr">374 </span> c3/return +<span id="L375" class="LineNr">375 </span> +<span id="L376" class="LineNr">376 </span><span class="subxTest">test-decimal-digit-above-9</span>: +<span id="L377" class="LineNr">377 </span> <span class="subxComment"># eax = decimal-digit?(0x3a)</span> +<span id="L378" class="LineNr">378 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L379" class="LineNr">379 </span> 68/push 0x3a/imm32 +<span id="L380" class="LineNr">380 </span> <span class="subxS2Comment"># . . call</span> +<span id="L381" class="LineNr">381 </span> e8/call <a href='126write-int-decimal.subx.html#L296'>decimal-digit?</a>/disp32 +<span id="L382" class="LineNr">382 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L383" class="LineNr">383 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L384" class="LineNr">384 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> +<span id="L385" class="LineNr">385 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L386" class="LineNr">386 </span> 68/push <span class="Constant">"F - test-decimal-digit-above-9"</span>/imm32 +<span id="L387" class="LineNr">387 </span> 68/push 0/imm32/false +<span id="L388" class="LineNr">388 </span> 50/push-eax +<span id="L389" class="LineNr">389 </span> <span class="subxS2Comment"># . . call</span> +<span id="L390" class="LineNr">390 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L391" class="LineNr">391 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L392" class="LineNr">392 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L393" class="LineNr">393 </span> c3/return +<span id="L394" class="LineNr">394 </span> +<span id="L395" class="LineNr">395 </span><span class="subxFunction">to-decimal-digit</span>: <span class="subxComment"># in: grapheme -> out/eax: int</span> +<span id="L396" class="LineNr">396 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L397" class="LineNr">397 </span> 55/push-ebp +<span id="L398" class="LineNr">398 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L399" class="LineNr">399 </span> <span class="subxComment"># eax = in</span> +<span id="L400" class="LineNr">400 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to eax</span> +<span id="L401" class="LineNr">401 </span><span class="Constant">$to-decimal-digit:check0</span>: +<span id="L402" class="LineNr">402 </span> <span class="subxComment"># if (eax < '0') goto abort</span> +<span id="L403" class="LineNr">403 </span> 3d/compare-eax-with 0x30/imm32/0 +<span id="L404" class="LineNr">404 </span> 7c/jump-if-< $to-decimal-digit:<a href='317abort.subx.html#L5'>abort</a>/disp8 +<span id="L405" class="LineNr">405 </span><span class="Constant">$to-decimal-digit:check1</span>: +<span id="L406" class="LineNr">406 </span> <span class="subxComment"># if (eax > '9') goto abort</span> +<span id="L407" class="LineNr">407 </span> 3d/compare-eax-with 0x39/imm32/f +<span id="L408" class="LineNr">408 </span> 7f/jump-if-> $to-decimal-digit:<a href='317abort.subx.html#L5'>abort</a>/disp8 +<span id="L409" class="LineNr">409 </span><span class="Constant">$to-decimal-digit:digit</span>: +<span id="L410" class="LineNr">410 </span> <span class="subxComment"># return eax - '0'</span> +<span id="L411" class="LineNr">411 </span> 2d/subtract-from-eax 0x30/imm32/0 +<span id="L412" class="LineNr">412 </span><span class="Constant">$to-decimal-digit:end</span>: +<span id="L413" class="LineNr">413 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L414" class="LineNr">414 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L415" class="LineNr">415 </span> 5d/pop-to-ebp +<span id="L416" class="LineNr">416 </span> c3/return +<span id="L417" class="LineNr">417 </span> +<span id="L418" class="LineNr">418 </span><span class="Constant">$to-decimal-digit:<a href='317abort.subx.html#L5'>abort</a></span>: +<span id="L419" class="LineNr">419 </span> (<a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"to-decimal-digit: not a digit character"</span>) +<span id="L420" class="LineNr">420 </span> <span class="subxComment"># never gets here</span> +<span id="L421" class="LineNr">421 </span> +<span id="L422" class="LineNr">422 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> </body> </html> diff --git a/html/301array-equal.subx.html b/html/301array-equal.subx.html index c80d945b..e47dee8c 100644 --- a/html/301array-equal.subx.html +++ b/html/301array-equal.subx.html @@ -293,7 +293,7 @@ if ('onhashchange' in window) { <span id="L233" class="LineNr">233 </span> 81 0/subop/add %ebx 4/imm32 <span id="L234" class="LineNr">234 </span> eb/jump $_parse-array-of-ints:loop1/disp8 <span id="L235" class="LineNr">235 </span><span class="Constant">$_parse-array-of-ints:break1</span>: -<span id="L236" class="LineNr">236 </span> (<a href='120allocate.subx.html#L535'>allocate-array</a> *(ebp+8) %ebx *(ebp+0x10)) +<span id="L236" class="LineNr">236 </span> (<a href='120allocate.subx.html#L556'>allocate-array</a> *(ebp+8) %ebx *(ebp+0x10)) <span id="L237" class="LineNr">237 </span><span class="Constant">$_parse-array-of-ints:pass2</span>: <span id="L238" class="LineNr">238 </span> <span class="subxComment"># var slice/edi: slice = {s->data, 0}</span> <span id="L239" class="LineNr">239 </span> 68/push 0/imm32/end @@ -302,7 +302,7 @@ if ('onhashchange' in window) { <span id="L242" class="LineNr">242 </span> 89/<- %edi 4/r32/esp <span id="L243" class="LineNr">243 </span> <span class="subxComment"># curr = lookup(out)->data</span> <span id="L244" class="LineNr">244 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L245" class="LineNr">245 </span> (<a href='120allocate.subx.html#L226'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L245" class="LineNr">245 </span> (<a href='120allocate.subx.html#L223'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> <span id="L246" class="LineNr">246 </span> 8d/copy-address *(eax+4) 1/r32/ecx <span id="L247" class="LineNr">247 </span><span class="Constant">$_parse-array-of-ints:loop2</span>: <span id="L248" class="LineNr">248 </span> <span class="subxComment"># if (slice->start >= end) break</span> @@ -357,7 +357,7 @@ if ('onhashchange' in window) { <span id="L297" class="LineNr">297 </span> 89/<- %ecx 4/r32/esp <span id="L298" class="LineNr">298 </span> <span class="subxComment">#</span> <span id="L299" class="LineNr">299 </span> (<a href='301array-equal.subx.html#L174'>_parse-array-of-ints</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"1 2 3"</span> %esi) -<span id="L300" class="LineNr">300 </span> (<a href='120allocate.subx.html#L226'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L300" class="LineNr">300 </span> (<a href='120allocate.subx.html#L223'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> <span id="L301" class="LineNr">301 </span> (<a href='301array-equal.subx.html#L5'>array-equal?</a> %ecx %eax) <span class="subxComment"># => eax</span> <span id="L302" class="LineNr">302 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-parse-array-of-ints"</span>) <span id="L303" class="LineNr">303 </span> <span class="subxS1Comment"># . epilogue</span> @@ -376,7 +376,7 @@ if ('onhashchange' in window) { <span id="L316" class="LineNr">316 </span> 89/<- %esi 4/r32/esp <span id="L317" class="LineNr">317 </span> <span class="subxComment">#</span> <span id="L318" class="LineNr">318 </span> (<a href='301array-equal.subx.html#L174'>_parse-array-of-ints</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">""</span> %esi) -<span id="L319" class="LineNr">319 </span> (<a href='120allocate.subx.html#L226'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L319" class="LineNr">319 </span> (<a href='120allocate.subx.html#L223'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> <span id="L320" class="LineNr">320 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> *eax 0 <span class="Constant">"F - test-parse-array-of-ints-empty"</span>) <span id="L321" class="LineNr">321 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L322" class="LineNr">322 </span> 89/<- %esp 5/r32/ebp @@ -394,7 +394,7 @@ if ('onhashchange' in window) { <span id="L334" class="LineNr">334 </span> 89/<- %esi 4/r32/esp <span id="L335" class="LineNr">335 </span> <span class="subxComment">#</span> <span id="L336" class="LineNr">336 </span> (<a href='301array-equal.subx.html#L174'>_parse-array-of-ints</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="SpecialChar"><a href='301array-equal.subx.html#L428'>Space</a></span> %esi) -<span id="L337" class="LineNr">337 </span> (<a href='120allocate.subx.html#L226'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L337" class="LineNr">337 </span> (<a href='120allocate.subx.html#L223'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> <span id="L338" class="LineNr">338 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> *eax 0 <span class="Constant">"F - test-parse-array-of-ints-just-whitespace"</span>) <span id="L339" class="LineNr">339 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L340" class="LineNr">340 </span> 89/<- %esp 5/r32/ebp @@ -417,7 +417,7 @@ if ('onhashchange' in window) { <span id="L357" class="LineNr">357 </span> 89/<- %ecx 4/r32/esp <span id="L358" class="LineNr">358 </span> <span class="subxComment">#</span> <span id="L359" class="LineNr">359 </span> (<a href='301array-equal.subx.html#L174'>_parse-array-of-ints</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">" 1 2 3 "</span> %esi) -<span id="L360" class="LineNr">360 </span> (<a href='120allocate.subx.html#L226'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L360" class="LineNr">360 </span> (<a href='120allocate.subx.html#L223'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> <span id="L361" class="LineNr">361 </span> (<a href='301array-equal.subx.html#L5'>array-equal?</a> %ecx %eax) <span class="subxComment"># => eax</span> <span id="L362" class="LineNr">362 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-parse-array-of-ints-extra-whitespace"</span>) <span id="L363" class="LineNr">363 </span> <span class="subxS1Comment"># . epilogue</span> @@ -452,7 +452,7 @@ if ('onhashchange' in window) { <span id="L392" class="LineNr">392 </span> 89/<- %esi 4/r32/esp <span id="L393" class="LineNr">393 </span> <span class="subxComment"># var b/eax: (addr array int) = parse-array-of-ints(Heap, expected)</span> <span id="L394" class="LineNr">394 </span> (<a href='301array-equal.subx.html#L368'>parse-array-of-ints</a> *(ebp+0xc) %esi) -<span id="L395" class="LineNr">395 </span> (<a href='120allocate.subx.html#L226'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L395" class="LineNr">395 </span> (<a href='120allocate.subx.html#L223'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> <span id="L396" class="LineNr">396 </span> <span class="subxComment">#</span> <span id="L397" class="LineNr">397 </span> (<a href='301array-equal.subx.html#L5'>array-equal?</a> *(ebp+8) %eax) <span id="L398" class="LineNr">398 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> %eax 1 *(ebp+0x10)) diff --git a/html/302stack_allocate.subx.html b/html/302stack_allocate.subx.html index ce087137..9b16a13a 100644 --- a/html/302stack_allocate.subx.html +++ b/html/302stack_allocate.subx.html @@ -104,7 +104,7 @@ if ('onhashchange' in window) { <span id="L47" class="LineNr">47 </span> 89/<- *<span class="SpecialChar"><a href='302stack_allocate.subx.html#L58'>Push-n-zero-bytes-esp</a></span> 4/r32/esp <span id="L48" class="LineNr">48 </span> 81 0/subop/add *<span class="SpecialChar"><a href='302stack_allocate.subx.html#L58'>Push-n-zero-bytes-esp</a></span> 4/imm32 <span id="L49" class="LineNr">49 </span> 81 0/subop/add *(ebp+4) 4/imm32 -<span id="L50" class="LineNr">50 </span> (<a href='120allocate.subx.html#L836'>zero-out</a> *<span class="SpecialChar"><a href='302stack_allocate.subx.html#L58'>Push-n-zero-bytes-esp</a></span> *(ebp+4)) <span class="subxComment"># n+4</span> +<span id="L50" class="LineNr">50 </span> (<a href='120allocate.subx.html#L857'>zero-out</a> *<span class="SpecialChar"><a href='302stack_allocate.subx.html#L58'>Push-n-zero-bytes-esp</a></span> *(ebp+4)) <span class="subxComment"># n+4</span> <span id="L51" class="LineNr">51 </span><span class="Constant">$push-n-zero-bytes:epilogue</span>: <span id="L52" class="LineNr">52 </span> 8b/-> *<span class="SpecialChar"><a href='302stack_allocate.subx.html#L56'>Push-n-zero-bytes-ebp</a></span> 5/r32/ebp <span class="subxComment"># restore spill</span> <span id="L53" class="LineNr">53 </span> c3/return diff --git a/html/308allocate-array.subx.html b/html/308allocate-array.subx.html index 4d16477c..4e7568ad 100644 --- a/html/308allocate-array.subx.html +++ b/html/308allocate-array.subx.html @@ -70,7 +70,7 @@ if ('onhashchange' in window) { <span id="L14" class="LineNr">14 </span> 8b/-> *(ebp+0xc) 0/r32/eax <span id="L15" class="LineNr">15 </span> f7 4/subop/multiply-into-edx-eax *(ebp+0x10) <span id="L16" class="LineNr">16 </span> <span class="subxComment"># TODO: check edx for overflow</span> -<span id="L17" class="LineNr">17 </span> (<a href='120allocate.subx.html#L535'>allocate-array</a> *(ebp+8) %eax *(ebp+0x14)) +<span id="L17" class="LineNr">17 </span> (<a href='120allocate.subx.html#L556'>allocate-array</a> *(ebp+8) %eax *(ebp+0x14)) <span id="L18" class="LineNr">18 </span><span class="Constant">$allocate-array2:end</span>: <span id="L19" class="LineNr">19 </span> <span class="subxS1Comment"># . restore registers</span> <span id="L20" class="LineNr">20 </span> 5a/pop-to-edx diff --git a/html/309stream.subx.html b/html/309stream.subx.html index 5462575a..07fd0681 100644 --- a/html/309stream.subx.html +++ b/html/309stream.subx.html @@ -125,7 +125,7 @@ if ('onhashchange' in window) { <span id="L69" class="LineNr"> 69 </span> 8b/-> *(ebp+0x10) 1/r32/ecx <span id="L70" class="LineNr"> 70 </span> 01/add-to %ecx 2/r32/edx <span id="L71" class="LineNr"> 71 </span> 3b/compare 1/r32/ecx *(edi+8) -<span id="L72" class="LineNr"> 72 </span> 0f 8f/jump-if-> $write-to-stream:<a href='501draw-text.mu.html#L481'>abort</a>/disp32 +<span id="L72" class="LineNr"> 72 </span> 0f 8f/jump-if-> $write-to-stream:<a href='317abort.subx.html#L5'>abort</a>/disp32 <span id="L73" class="LineNr"> 73 </span> <span class="subxComment"># var out/edx: (addr byte) = s->data + s->write</span> <span id="L74" class="LineNr"> 74 </span> 8d/copy-address *(edi+edx+0xc) 2/r32/edx <span id="L75" class="LineNr"> 75 </span> <span class="subxComment"># var outend/ebx: (addr byte) = out + n</span> @@ -153,210 +153,204 @@ if ('onhashchange' in window) { <span id="L97" class="LineNr"> 97 </span> 5d/pop-to-ebp <span id="L98" class="LineNr"> 98 </span> c3/return <span id="L99" class="LineNr"> 99 </span> -<span id="L100" class="LineNr">100 </span><span class="Constant">$write-to-stream:<a href='501draw-text.mu.html#L481'>abort</a></span>: -<span id="L101" class="LineNr">101 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"write-to-stream: stream full"</span> 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L102" class="LineNr">102 </span> { -<span id="L103" class="LineNr">103 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L104" class="LineNr">104 </span> } -<span id="L105" class="LineNr">105 </span> <span class="subxComment"># never gets here</span> -<span id="L106" class="LineNr">106 </span> -<span id="L107" class="LineNr">107 </span><span class="subxFunction">read-from-stream</span>: <span class="subxComment"># s: (addr stream _), out: (addr byte), n: int</span> -<span id="L108" class="LineNr">108 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L109" class="LineNr">109 </span> 55/push-ebp -<span id="L110" class="LineNr">110 </span> 89/<- %ebp 4/r32/esp -<span id="L111" class="LineNr">111 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L112" class="LineNr">112 </span> 50/push-eax -<span id="L113" class="LineNr">113 </span> 51/push-ecx -<span id="L114" class="LineNr">114 </span> 52/push-edx -<span id="L115" class="LineNr">115 </span> 53/push-ebx -<span id="L116" class="LineNr">116 </span> 56/push-esi -<span id="L117" class="LineNr">117 </span> <span class="subxComment"># esi = s</span> -<span id="L118" class="LineNr">118 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L119" class="LineNr">119 </span> <span class="subxComment"># var sread/edx: int = s->read</span> -<span id="L120" class="LineNr">120 </span> 8b/-> *(esi+4) 2/r32/edx -<span id="L121" class="LineNr">121 </span> <span class="subxComment"># if (sread + n > s->write) abort</span> -<span id="L122" class="LineNr">122 </span> 8b/-> *(ebp+0x10) 1/r32/ecx -<span id="L123" class="LineNr">123 </span> 01/add-to %ecx 2/r32/edx -<span id="L124" class="LineNr">124 </span> 3b/compare 1/r32/ecx *esi -<span id="L125" class="LineNr">125 </span> 0f 8f/jump-if-> $read-from-stream:<a href='501draw-text.mu.html#L481'>abort</a>/disp32 -<span id="L126" class="LineNr">126 </span> <span class="subxComment"># var in/edx: (addr byte) = s->data + s->read</span> -<span id="L127" class="LineNr">127 </span> 8d/copy-address *(esi+edx+0xc) 2/r32/edx -<span id="L128" class="LineNr">128 </span> <span class="subxComment"># var inend/ebx: (addr byte) = in + n</span> -<span id="L129" class="LineNr">129 </span> 8b/-> *(ebp+0x10) 3/r32/ebx -<span id="L130" class="LineNr">130 </span> 8d/copy-address *(edx+ebx) 3/r32/ebx -<span id="L131" class="LineNr">131 </span> <span class="subxComment"># eax = out</span> -<span id="L132" class="LineNr">132 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L133" class="LineNr">133 </span> <span class="subxComment"># var outend/ecx: (addr byte) = out + n</span> -<span id="L134" class="LineNr">134 </span> 8b/-> *(ebp+0x10) 1/r32/ecx -<span id="L135" class="LineNr">135 </span> 8d/copy-address *(eax+ecx) 1/r32/ecx -<span id="L136" class="LineNr">136 </span> <span class="subxComment">#</span> -<span id="L137" class="LineNr">137 </span> (<a href='108write.subx.html#L171'>_append-4</a> %eax %ecx %edx %ebx) <span class="subxComment"># => eax</span> -<span id="L138" class="LineNr">138 </span> <span class="subxComment"># s->read += n</span> -<span id="L139" class="LineNr">139 </span> 8b/-> *(ebp+0x10) 1/r32/ecx -<span id="L140" class="LineNr">140 </span> 01/add-to *(esi+4) 1/r32/ecx -<span id="L141" class="LineNr">141 </span><span class="Constant">$read-from-stream:end</span>: -<span id="L142" class="LineNr">142 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L143" class="LineNr">143 </span> 5e/pop-to-esi -<span id="L144" class="LineNr">144 </span> 5b/pop-to-ebx -<span id="L145" class="LineNr">145 </span> 5a/pop-to-edx -<span id="L146" class="LineNr">146 </span> 59/pop-to-ecx -<span id="L147" class="LineNr">147 </span> 58/pop-to-eax -<span id="L148" class="LineNr">148 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L149" class="LineNr">149 </span> 89/<- %esp 5/r32/ebp -<span id="L150" class="LineNr">150 </span> 5d/pop-to-ebp -<span id="L151" class="LineNr">151 </span> c3/return -<span id="L152" class="LineNr">152 </span> -<span id="L153" class="LineNr">153 </span><span class="Constant">$read-from-stream:<a href='501draw-text.mu.html#L481'>abort</a></span>: -<span id="L154" class="LineNr">154 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"read-from-stream: stream empty"</span> 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L155" class="LineNr">155 </span> { -<span id="L156" class="LineNr">156 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L157" class="LineNr">157 </span> } -<span id="L158" class="LineNr">158 </span> <span class="subxComment"># never gets here</span> -<span id="L159" class="LineNr">159 </span> -<span id="L160" class="LineNr">160 </span><span class="subxFunction">stream-first</span>: <span class="subxComment"># s: (addr stream byte) -> result/eax: byte</span> -<span id="L161" class="LineNr">161 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L162" class="LineNr">162 </span> 55/push-ebp -<span id="L163" class="LineNr">163 </span> 89/<- %ebp 4/r32/esp -<span id="L164" class="LineNr">164 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L165" class="LineNr">165 </span> 51/push-ecx -<span id="L166" class="LineNr">166 </span> 56/push-esi -<span id="L167" class="LineNr">167 </span> <span class="subxComment"># result = false</span> -<span id="L168" class="LineNr">168 </span> b8/copy-to-eax 0/imm32 -<span id="L169" class="LineNr">169 </span> <span class="subxComment"># esi = s</span> -<span id="L170" class="LineNr">170 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L171" class="LineNr">171 </span> <span class="subxComment"># var idx/ecx: int = s->read</span> -<span id="L172" class="LineNr">172 </span> 8b/-> *(esi+4) 1/r32/ecx -<span id="L173" class="LineNr">173 </span> <span class="subxComment"># if idx >= s->write return 0</span> -<span id="L174" class="LineNr">174 </span> 3b/compare-with 1/r32/ecx *esi -<span id="L175" class="LineNr">175 </span> 7d/jump-if->= $stream-first:end/disp8 -<span id="L176" class="LineNr">176 </span> <span class="subxComment"># result = s->data[idx]</span> -<span id="L177" class="LineNr">177 </span> 8a/byte-> *(esi+ecx+0xc) 0/r32/AL -<span id="L178" class="LineNr">178 </span><span class="Constant">$stream-first:end</span>: -<span id="L179" class="LineNr">179 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L180" class="LineNr">180 </span> 5e/pop-to-esi -<span id="L181" class="LineNr">181 </span> 59/pop-to-ecx -<span id="L182" class="LineNr">182 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L183" class="LineNr">183 </span> 89/<- %esp 5/r32/ebp -<span id="L184" class="LineNr">184 </span> 5d/pop-to-ebp -<span id="L185" class="LineNr">185 </span> c3/return -<span id="L186" class="LineNr">186 </span> -<span id="L187" class="LineNr">187 </span><span class="subxFunction">stream-final</span>: <span class="subxComment"># s: (addr stream byte) -> result/eax: byte</span> -<span id="L188" class="LineNr">188 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L189" class="LineNr">189 </span> 55/push-ebp -<span id="L190" class="LineNr">190 </span> 89/<- %ebp 4/r32/esp -<span id="L191" class="LineNr">191 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L192" class="LineNr">192 </span> 51/push-ecx -<span id="L193" class="LineNr">193 </span> 56/push-esi -<span id="L194" class="LineNr">194 </span> <span class="subxComment"># result = false</span> -<span id="L195" class="LineNr">195 </span> b8/copy-to-eax 0/imm32 -<span id="L196" class="LineNr">196 </span> <span class="subxComment"># esi = s</span> -<span id="L197" class="LineNr">197 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L198" class="LineNr">198 </span> <span class="subxComment"># var max/ecx: int = s->write</span> -<span id="L199" class="LineNr">199 </span> 8b/-> *esi 1/r32/ecx -<span id="L200" class="LineNr">200 </span> <span class="subxComment"># if s->read >= max return 0</span> -<span id="L201" class="LineNr">201 </span> 39/compare-with *(esi+4) 1/r32/ecx -<span id="L202" class="LineNr">202 </span> 7d/jump-if->= $stream-final:end/disp8 -<span id="L203" class="LineNr">203 </span> <span class="subxComment"># var idx/ecx: int = max - 1</span> -<span id="L204" class="LineNr">204 </span> 49/decrement-ecx -<span id="L205" class="LineNr">205 </span> <span class="subxComment"># result = s->data[idx]</span> -<span id="L206" class="LineNr">206 </span> 8a/byte-> *(esi+ecx+0xc) 0/r32/AL -<span id="L207" class="LineNr">207 </span><span class="Constant">$stream-final:end</span>: -<span id="L208" class="LineNr">208 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L209" class="LineNr">209 </span> 5e/pop-to-esi -<span id="L210" class="LineNr">210 </span> 59/pop-to-ecx -<span id="L211" class="LineNr">211 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L212" class="LineNr">212 </span> 89/<- %esp 5/r32/ebp -<span id="L213" class="LineNr">213 </span> 5d/pop-to-ebp -<span id="L214" class="LineNr">214 </span> c3/return -<span id="L215" class="LineNr">215 </span> -<span id="L216" class="LineNr">216 </span><span class="subxComment"># compare all the data in two streams (ignoring the read pointer)</span> -<span id="L217" class="LineNr">217 </span><span class="subxFunction">streams-data-equal?</span>: <span class="subxComment"># f: (addr stream byte), s: (addr array byte) -> result/eax: boolean</span> -<span id="L218" class="LineNr">218 </span> <span class="subxComment"># pseudocode:</span> -<span id="L219" class="LineNr">219 </span> <span class="subxComment"># awrite = a->write</span> -<span id="L220" class="LineNr">220 </span> <span class="subxComment"># if (awrite != b->write) return false</span> -<span id="L221" class="LineNr">221 </span> <span class="subxComment"># i = 0</span> -<span id="L222" class="LineNr">222 </span> <span class="subxComment"># curra = a->data</span> -<span id="L223" class="LineNr">223 </span> <span class="subxComment"># currb = b->data</span> -<span id="L224" class="LineNr">224 </span> <span class="subxComment"># while i < awrite</span> -<span id="L225" class="LineNr">225 </span> <span class="subxComment"># i1 = *curra</span> -<span id="L226" class="LineNr">226 </span> <span class="subxComment"># i2 = *currb</span> -<span id="L227" class="LineNr">227 </span> <span class="subxComment"># if (c1 != c2) return false</span> -<span id="L228" class="LineNr">228 </span> <span class="subxComment"># i+=4, curra+=4, currb+=4</span> -<span id="L229" class="LineNr">229 </span> <span class="subxComment"># return true</span> -<span id="L230" class="LineNr">230 </span> <span class="subxComment">#</span> -<span id="L231" class="LineNr">231 </span> <span class="subxComment"># registers:</span> -<span id="L232" class="LineNr">232 </span> <span class="subxComment"># i: ecx</span> -<span id="L233" class="LineNr">233 </span> <span class="subxComment"># awrite: edx</span> -<span id="L234" class="LineNr">234 </span> <span class="subxComment"># curra: esi</span> -<span id="L235" class="LineNr">235 </span> <span class="subxComment"># currb: edi</span> -<span id="L236" class="LineNr">236 </span> <span class="subxComment"># i1: eax</span> -<span id="L237" class="LineNr">237 </span> <span class="subxComment"># i2: ebx</span> -<span id="L238" class="LineNr">238 </span> <span class="subxComment">#</span> -<span id="L239" class="LineNr">239 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L240" class="LineNr">240 </span> 55/push-ebp -<span id="L241" class="LineNr">241 </span> 89/<- %ebp 4/r32/esp -<span id="L242" class="LineNr">242 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L243" class="LineNr">243 </span> 51/push-ecx -<span id="L244" class="LineNr">244 </span> 52/push-edx -<span id="L245" class="LineNr">245 </span> 53/push-ebx -<span id="L246" class="LineNr">246 </span> 56/push-esi -<span id="L247" class="LineNr">247 </span> 57/push-edi -<span id="L248" class="LineNr">248 </span> <span class="subxComment"># esi = a</span> -<span id="L249" class="LineNr">249 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L250" class="LineNr">250 </span> <span class="subxComment"># edi = b</span> -<span id="L251" class="LineNr">251 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L252" class="LineNr">252 </span> <span class="subxComment"># var awrite/edx: int = a->write</span> -<span id="L253" class="LineNr">253 </span> 8b/-> *esi 2/r32/edx -<span id="L254" class="LineNr">254 </span><span class="Constant">$streams-data-equal?:sizes</span>: -<span id="L255" class="LineNr">255 </span> <span class="subxComment"># if (awrite != b->write) return false</span> -<span id="L256" class="LineNr">256 </span> 39/compare *edi 2/r32/edx -<span id="L257" class="LineNr">257 </span> 75/jump-if-!= $streams-data-equal?:false/disp8 -<span id="L258" class="LineNr">258 </span> <span class="subxComment"># var curra/esi: (addr byte) = a->data</span> -<span id="L259" class="LineNr">259 </span> 81 0/subop/add %esi 0xc/imm32 -<span id="L260" class="LineNr">260 </span> <span class="subxComment"># var currb/edi: (addr byte) = b->data</span> -<span id="L261" class="LineNr">261 </span> 81 0/subop/add %edi 0xc/imm32 -<span id="L262" class="LineNr">262 </span> <span class="subxComment"># var i/ecx: int = 0</span> -<span id="L263" class="LineNr">263 </span> 31/xor-with %ecx 1/r32/ecx -<span id="L264" class="LineNr">264 </span> <span class="subxComment"># var vala/eax: int</span> -<span id="L265" class="LineNr">265 </span> 31/xor-with %eax 0/r32/eax -<span id="L266" class="LineNr">266 </span> <span class="subxComment"># var valb/ebx: int</span> -<span id="L267" class="LineNr">267 </span> 31/xor-with %ebx 3/r32/ebx -<span id="L268" class="LineNr">268 </span><span class="Constant">$streams-data-equal?:loop</span>: -<span id="L269" class="LineNr">269 </span> { -<span id="L270" class="LineNr">270 </span> <span class="subxComment"># if (i >= awrite) return true</span> -<span id="L271" class="LineNr">271 </span> 39/compare %ecx 2/r32/edx -<span id="L272" class="LineNr">272 </span> 7d/jump-if->= $streams-data-equal?:true/disp8 -<span id="L273" class="LineNr">273 </span> <span class="subxComment"># var vala/eax: int = *curra</span> -<span id="L274" class="LineNr">274 </span> 8a/byte-> *esi 0/r32/eax -<span id="L275" class="LineNr">275 </span> <span class="subxComment"># var valb/ebx: int = *currb</span> -<span id="L276" class="LineNr">276 </span> 8a/byte-> *edi 3/r32/ebx -<span id="L277" class="LineNr">277 </span> <span class="subxComment"># if (vala != valb) return false</span> -<span id="L278" class="LineNr">278 </span> 39/compare %eax 3/r32/ebx -<span id="L279" class="LineNr">279 </span> 75/jump-if-!= $streams-data-equal?:false/disp8 -<span id="L280" class="LineNr">280 </span> <span class="subxComment"># i++</span> -<span id="L281" class="LineNr">281 </span> 41/increment-ecx -<span id="L282" class="LineNr">282 </span> <span class="subxComment"># curra++</span> -<span id="L283" class="LineNr">283 </span> 46/increment-esi -<span id="L284" class="LineNr">284 </span> <span class="subxComment"># currb++</span> -<span id="L285" class="LineNr">285 </span> 47/increment-edi -<span id="L286" class="LineNr">286 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L287" class="LineNr">287 </span> } -<span id="L288" class="LineNr">288 </span><span class="Constant">$streams-data-equal?:true</span>: -<span id="L289" class="LineNr">289 </span> b8/copy-to-eax 1/imm32 -<span id="L290" class="LineNr">290 </span> eb/jump $streams-data-equal?:end/disp8 -<span id="L291" class="LineNr">291 </span><span class="Constant">$streams-data-equal?:false</span>: -<span id="L292" class="LineNr">292 </span> b8/copy-to-eax 0/imm32 -<span id="L293" class="LineNr">293 </span><span class="Constant">$streams-data-equal?:end</span>: -<span id="L294" class="LineNr">294 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L295" class="LineNr">295 </span> 5f/pop-to-edi -<span id="L296" class="LineNr">296 </span> 5e/pop-to-esi -<span id="L297" class="LineNr">297 </span> 5b/pop-to-ebx -<span id="L298" class="LineNr">298 </span> 5a/pop-to-edx -<span id="L299" class="LineNr">299 </span> 59/pop-to-ecx -<span id="L300" class="LineNr">300 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L301" class="LineNr">301 </span> 89/<- %esp 5/r32/ebp -<span id="L302" class="LineNr">302 </span> 5d/pop-to-ebp -<span id="L303" class="LineNr">303 </span> c3/return +<span id="L100" class="LineNr">100 </span><span class="Constant">$write-to-stream:<a href='317abort.subx.html#L5'>abort</a></span>: +<span id="L101" class="LineNr">101 </span> (<a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"write-to-stream: stream full"</span>) +<span id="L102" class="LineNr">102 </span> <span class="subxComment"># never gets here</span> +<span id="L103" class="LineNr">103 </span> +<span id="L104" class="LineNr">104 </span><span class="subxFunction">read-from-stream</span>: <span class="subxComment"># s: (addr stream _), out: (addr byte), n: int</span> +<span id="L105" class="LineNr">105 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L106" class="LineNr">106 </span> 55/push-ebp +<span id="L107" class="LineNr">107 </span> 89/<- %ebp 4/r32/esp +<span id="L108" class="LineNr">108 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L109" class="LineNr">109 </span> 50/push-eax +<span id="L110" class="LineNr">110 </span> 51/push-ecx +<span id="L111" class="LineNr">111 </span> 52/push-edx +<span id="L112" class="LineNr">112 </span> 53/push-ebx +<span id="L113" class="LineNr">113 </span> 56/push-esi +<span id="L114" class="LineNr">114 </span> <span class="subxComment"># esi = s</span> +<span id="L115" class="LineNr">115 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L116" class="LineNr">116 </span> <span class="subxComment"># var sread/edx: int = s->read</span> +<span id="L117" class="LineNr">117 </span> 8b/-> *(esi+4) 2/r32/edx +<span id="L118" class="LineNr">118 </span> <span class="subxComment"># if (sread + n > s->write) abort</span> +<span id="L119" class="LineNr">119 </span> 8b/-> *(ebp+0x10) 1/r32/ecx +<span id="L120" class="LineNr">120 </span> 01/add-to %ecx 2/r32/edx +<span id="L121" class="LineNr">121 </span> 3b/compare 1/r32/ecx *esi +<span id="L122" class="LineNr">122 </span> 0f 8f/jump-if-> $read-from-stream:<a href='317abort.subx.html#L5'>abort</a>/disp32 +<span id="L123" class="LineNr">123 </span> <span class="subxComment"># var in/edx: (addr byte) = s->data + s->read</span> +<span id="L124" class="LineNr">124 </span> 8d/copy-address *(esi+edx+0xc) 2/r32/edx +<span id="L125" class="LineNr">125 </span> <span class="subxComment"># var inend/ebx: (addr byte) = in + n</span> +<span id="L126" class="LineNr">126 </span> 8b/-> *(ebp+0x10) 3/r32/ebx +<span id="L127" class="LineNr">127 </span> 8d/copy-address *(edx+ebx) 3/r32/ebx +<span id="L128" class="LineNr">128 </span> <span class="subxComment"># eax = out</span> +<span id="L129" class="LineNr">129 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L130" class="LineNr">130 </span> <span class="subxComment"># var outend/ecx: (addr byte) = out + n</span> +<span id="L131" class="LineNr">131 </span> 8b/-> *(ebp+0x10) 1/r32/ecx +<span id="L132" class="LineNr">132 </span> 8d/copy-address *(eax+ecx) 1/r32/ecx +<span id="L133" class="LineNr">133 </span> <span class="subxComment">#</span> +<span id="L134" class="LineNr">134 </span> (<a href='108write.subx.html#L171'>_append-4</a> %eax %ecx %edx %ebx) <span class="subxComment"># => eax</span> +<span id="L135" class="LineNr">135 </span> <span class="subxComment"># s->read += n</span> +<span id="L136" class="LineNr">136 </span> 8b/-> *(ebp+0x10) 1/r32/ecx +<span id="L137" class="LineNr">137 </span> 01/add-to *(esi+4) 1/r32/ecx +<span id="L138" class="LineNr">138 </span><span class="Constant">$read-from-stream:end</span>: +<span id="L139" class="LineNr">139 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L140" class="LineNr">140 </span> 5e/pop-to-esi +<span id="L141" class="LineNr">141 </span> 5b/pop-to-ebx +<span id="L142" class="LineNr">142 </span> 5a/pop-to-edx +<span id="L143" class="LineNr">143 </span> 59/pop-to-ecx +<span id="L144" class="LineNr">144 </span> 58/pop-to-eax +<span id="L145" class="LineNr">145 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L146" class="LineNr">146 </span> 89/<- %esp 5/r32/ebp +<span id="L147" class="LineNr">147 </span> 5d/pop-to-ebp +<span id="L148" class="LineNr">148 </span> c3/return +<span id="L149" class="LineNr">149 </span> +<span id="L150" class="LineNr">150 </span><span class="Constant">$read-from-stream:<a href='317abort.subx.html#L5'>abort</a></span>: +<span id="L151" class="LineNr">151 </span> (<a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"read-from-stream: stream empty"</span>) +<span id="L152" class="LineNr">152 </span> <span class="subxComment"># never gets here</span> +<span id="L153" class="LineNr">153 </span> +<span id="L154" class="LineNr">154 </span><span class="subxFunction">stream-first</span>: <span class="subxComment"># s: (addr stream byte) -> result/eax: byte</span> +<span id="L155" class="LineNr">155 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L156" class="LineNr">156 </span> 55/push-ebp +<span id="L157" class="LineNr">157 </span> 89/<- %ebp 4/r32/esp +<span id="L158" class="LineNr">158 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L159" class="LineNr">159 </span> 51/push-ecx +<span id="L160" class="LineNr">160 </span> 56/push-esi +<span id="L161" class="LineNr">161 </span> <span class="subxComment"># result = false</span> +<span id="L162" class="LineNr">162 </span> b8/copy-to-eax 0/imm32 +<span id="L163" class="LineNr">163 </span> <span class="subxComment"># esi = s</span> +<span id="L164" class="LineNr">164 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L165" class="LineNr">165 </span> <span class="subxComment"># var idx/ecx: int = s->read</span> +<span id="L166" class="LineNr">166 </span> 8b/-> *(esi+4) 1/r32/ecx +<span id="L167" class="LineNr">167 </span> <span class="subxComment"># if idx >= s->write return 0</span> +<span id="L168" class="LineNr">168 </span> 3b/compare-with 1/r32/ecx *esi +<span id="L169" class="LineNr">169 </span> 7d/jump-if->= $stream-first:end/disp8 +<span id="L170" class="LineNr">170 </span> <span class="subxComment"># result = s->data[idx]</span> +<span id="L171" class="LineNr">171 </span> 8a/byte-> *(esi+ecx+0xc) 0/r32/AL +<span id="L172" class="LineNr">172 </span><span class="Constant">$stream-first:end</span>: +<span id="L173" class="LineNr">173 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L174" class="LineNr">174 </span> 5e/pop-to-esi +<span id="L175" class="LineNr">175 </span> 59/pop-to-ecx +<span id="L176" class="LineNr">176 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L177" class="LineNr">177 </span> 89/<- %esp 5/r32/ebp +<span id="L178" class="LineNr">178 </span> 5d/pop-to-ebp +<span id="L179" class="LineNr">179 </span> c3/return +<span id="L180" class="LineNr">180 </span> +<span id="L181" class="LineNr">181 </span><span class="subxFunction">stream-final</span>: <span class="subxComment"># s: (addr stream byte) -> result/eax: byte</span> +<span id="L182" class="LineNr">182 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L183" class="LineNr">183 </span> 55/push-ebp +<span id="L184" class="LineNr">184 </span> 89/<- %ebp 4/r32/esp +<span id="L185" class="LineNr">185 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L186" class="LineNr">186 </span> 51/push-ecx +<span id="L187" class="LineNr">187 </span> 56/push-esi +<span id="L188" class="LineNr">188 </span> <span class="subxComment"># result = false</span> +<span id="L189" class="LineNr">189 </span> b8/copy-to-eax 0/imm32 +<span id="L190" class="LineNr">190 </span> <span class="subxComment"># esi = s</span> +<span id="L191" class="LineNr">191 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L192" class="LineNr">192 </span> <span class="subxComment"># var max/ecx: int = s->write</span> +<span id="L193" class="LineNr">193 </span> 8b/-> *esi 1/r32/ecx +<span id="L194" class="LineNr">194 </span> <span class="subxComment"># if s->read >= max return 0</span> +<span id="L195" class="LineNr">195 </span> 39/compare-with *(esi+4) 1/r32/ecx +<span id="L196" class="LineNr">196 </span> 7d/jump-if->= $stream-final:end/disp8 +<span id="L197" class="LineNr">197 </span> <span class="subxComment"># var idx/ecx: int = max - 1</span> +<span id="L198" class="LineNr">198 </span> 49/decrement-ecx +<span id="L199" class="LineNr">199 </span> <span class="subxComment"># result = s->data[idx]</span> +<span id="L200" class="LineNr">200 </span> 8a/byte-> *(esi+ecx+0xc) 0/r32/AL +<span id="L201" class="LineNr">201 </span><span class="Constant">$stream-final:end</span>: +<span id="L202" class="LineNr">202 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L203" class="LineNr">203 </span> 5e/pop-to-esi +<span id="L204" class="LineNr">204 </span> 59/pop-to-ecx +<span id="L205" class="LineNr">205 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L206" class="LineNr">206 </span> 89/<- %esp 5/r32/ebp +<span id="L207" class="LineNr">207 </span> 5d/pop-to-ebp +<span id="L208" class="LineNr">208 </span> c3/return +<span id="L209" class="LineNr">209 </span> +<span id="L210" class="LineNr">210 </span><span class="subxComment"># compare all the data in two streams (ignoring the read pointer)</span> +<span id="L211" class="LineNr">211 </span><span class="subxFunction">streams-data-equal?</span>: <span class="subxComment"># f: (addr stream byte), s: (addr array byte) -> result/eax: boolean</span> +<span id="L212" class="LineNr">212 </span> <span class="subxComment"># pseudocode:</span> +<span id="L213" class="LineNr">213 </span> <span class="subxComment"># awrite = a->write</span> +<span id="L214" class="LineNr">214 </span> <span class="subxComment"># if (awrite != b->write) return false</span> +<span id="L215" class="LineNr">215 </span> <span class="subxComment"># i = 0</span> +<span id="L216" class="LineNr">216 </span> <span class="subxComment"># curra = a->data</span> +<span id="L217" class="LineNr">217 </span> <span class="subxComment"># currb = b->data</span> +<span id="L218" class="LineNr">218 </span> <span class="subxComment"># while i < awrite</span> +<span id="L219" class="LineNr">219 </span> <span class="subxComment"># i1 = *curra</span> +<span id="L220" class="LineNr">220 </span> <span class="subxComment"># i2 = *currb</span> +<span id="L221" class="LineNr">221 </span> <span class="subxComment"># if (c1 != c2) return false</span> +<span id="L222" class="LineNr">222 </span> <span class="subxComment"># i+=4, curra+=4, currb+=4</span> +<span id="L223" class="LineNr">223 </span> <span class="subxComment"># return true</span> +<span id="L224" class="LineNr">224 </span> <span class="subxComment">#</span> +<span id="L225" class="LineNr">225 </span> <span class="subxComment"># registers:</span> +<span id="L226" class="LineNr">226 </span> <span class="subxComment"># i: ecx</span> +<span id="L227" class="LineNr">227 </span> <span class="subxComment"># awrite: edx</span> +<span id="L228" class="LineNr">228 </span> <span class="subxComment"># curra: esi</span> +<span id="L229" class="LineNr">229 </span> <span class="subxComment"># currb: edi</span> +<span id="L230" class="LineNr">230 </span> <span class="subxComment"># i1: eax</span> +<span id="L231" class="LineNr">231 </span> <span class="subxComment"># i2: ebx</span> +<span id="L232" class="LineNr">232 </span> <span class="subxComment">#</span> +<span id="L233" class="LineNr">233 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L234" class="LineNr">234 </span> 55/push-ebp +<span id="L235" class="LineNr">235 </span> 89/<- %ebp 4/r32/esp +<span id="L236" class="LineNr">236 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L237" class="LineNr">237 </span> 51/push-ecx +<span id="L238" class="LineNr">238 </span> 52/push-edx +<span id="L239" class="LineNr">239 </span> 53/push-ebx +<span id="L240" class="LineNr">240 </span> 56/push-esi +<span id="L241" class="LineNr">241 </span> 57/push-edi +<span id="L242" class="LineNr">242 </span> <span class="subxComment"># esi = a</span> +<span id="L243" class="LineNr">243 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L244" class="LineNr">244 </span> <span class="subxComment"># edi = b</span> +<span id="L245" class="LineNr">245 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L246" class="LineNr">246 </span> <span class="subxComment"># var awrite/edx: int = a->write</span> +<span id="L247" class="LineNr">247 </span> 8b/-> *esi 2/r32/edx +<span id="L248" class="LineNr">248 </span><span class="Constant">$streams-data-equal?:sizes</span>: +<span id="L249" class="LineNr">249 </span> <span class="subxComment"># if (awrite != b->write) return false</span> +<span id="L250" class="LineNr">250 </span> 39/compare *edi 2/r32/edx +<span id="L251" class="LineNr">251 </span> 75/jump-if-!= $streams-data-equal?:false/disp8 +<span id="L252" class="LineNr">252 </span> <span class="subxComment"># var curra/esi: (addr byte) = a->data</span> +<span id="L253" class="LineNr">253 </span> 81 0/subop/add %esi 0xc/imm32 +<span id="L254" class="LineNr">254 </span> <span class="subxComment"># var currb/edi: (addr byte) = b->data</span> +<span id="L255" class="LineNr">255 </span> 81 0/subop/add %edi 0xc/imm32 +<span id="L256" class="LineNr">256 </span> <span class="subxComment"># var i/ecx: int = 0</span> +<span id="L257" class="LineNr">257 </span> 31/xor-with %ecx 1/r32/ecx +<span id="L258" class="LineNr">258 </span> <span class="subxComment"># var vala/eax: int</span> +<span id="L259" class="LineNr">259 </span> 31/xor-with %eax 0/r32/eax +<span id="L260" class="LineNr">260 </span> <span class="subxComment"># var valb/ebx: int</span> +<span id="L261" class="LineNr">261 </span> 31/xor-with %ebx 3/r32/ebx +<span id="L262" class="LineNr">262 </span><span class="Constant">$streams-data-equal?:loop</span>: +<span id="L263" class="LineNr">263 </span> { +<span id="L264" class="LineNr">264 </span> <span class="subxComment"># if (i >= awrite) return true</span> +<span id="L265" class="LineNr">265 </span> 39/compare %ecx 2/r32/edx +<span id="L266" class="LineNr">266 </span> 7d/jump-if->= $streams-data-equal?:true/disp8 +<span id="L267" class="LineNr">267 </span> <span class="subxComment"># var vala/eax: int = *curra</span> +<span id="L268" class="LineNr">268 </span> 8a/byte-> *esi 0/r32/eax +<span id="L269" class="LineNr">269 </span> <span class="subxComment"># var valb/ebx: int = *currb</span> +<span id="L270" class="LineNr">270 </span> 8a/byte-> *edi 3/r32/ebx +<span id="L271" class="LineNr">271 </span> <span class="subxComment"># if (vala != valb) return false</span> +<span id="L272" class="LineNr">272 </span> 39/compare %eax 3/r32/ebx +<span id="L273" class="LineNr">273 </span> 75/jump-if-!= $streams-data-equal?:false/disp8 +<span id="L274" class="LineNr">274 </span> <span class="subxComment"># i++</span> +<span id="L275" class="LineNr">275 </span> 41/increment-ecx +<span id="L276" class="LineNr">276 </span> <span class="subxComment"># curra++</span> +<span id="L277" class="LineNr">277 </span> 46/increment-esi +<span id="L278" class="LineNr">278 </span> <span class="subxComment"># currb++</span> +<span id="L279" class="LineNr">279 </span> 47/increment-edi +<span id="L280" class="LineNr">280 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L281" class="LineNr">281 </span> } +<span id="L282" class="LineNr">282 </span><span class="Constant">$streams-data-equal?:true</span>: +<span id="L283" class="LineNr">283 </span> b8/copy-to-eax 1/imm32 +<span id="L284" class="LineNr">284 </span> eb/jump $streams-data-equal?:end/disp8 +<span id="L285" class="LineNr">285 </span><span class="Constant">$streams-data-equal?:false</span>: +<span id="L286" class="LineNr">286 </span> b8/copy-to-eax 0/imm32 +<span id="L287" class="LineNr">287 </span><span class="Constant">$streams-data-equal?:end</span>: +<span id="L288" class="LineNr">288 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L289" class="LineNr">289 </span> 5f/pop-to-edi +<span id="L290" class="LineNr">290 </span> 5e/pop-to-esi +<span id="L291" class="LineNr">291 </span> 5b/pop-to-ebx +<span id="L292" class="LineNr">292 </span> 5a/pop-to-edx +<span id="L293" class="LineNr">293 </span> 59/pop-to-ecx +<span id="L294" class="LineNr">294 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L295" class="LineNr">295 </span> 89/<- %esp 5/r32/ebp +<span id="L296" class="LineNr">296 </span> 5d/pop-to-ebp +<span id="L297" class="LineNr">297 </span> c3/return </pre> </body> </html> diff --git a/html/310copy-bytes.subx.html b/html/310copy-bytes.subx.html index d8fdba46..53cff9d8 100644 --- a/html/310copy-bytes.subx.html +++ b/html/310copy-bytes.subx.html @@ -130,13 +130,13 @@ if ('onhashchange' in window) { <span id="L72" class="LineNr"> 72 </span> 8b/-> *esi 1/r32/ecx <span id="L73" class="LineNr"> 73 </span> 2b/subtract *(esi+4) 1/r32/ecx <span id="L74" class="LineNr"> 74 </span> <span class="subxComment"># allocate</span> -<span id="L75" class="LineNr"> 75 </span> (<a href='120allocate.subx.html#L535'>allocate-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %ecx *(ebp+0xc)) +<span id="L75" class="LineNr"> 75 </span> (<a href='120allocate.subx.html#L556'>allocate-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %ecx *(ebp+0xc)) <span id="L76" class="LineNr"> 76 </span> <span class="subxComment"># var in/edx: (addr byte) = s->data + s->read</span> <span id="L77" class="LineNr"> 77 </span> 8b/-> *(esi+4) 2/r32/edx <span id="L78" class="LineNr"> 78 </span> 8d/copy-address *(esi+edx+0xc) 2/r32/edx <span id="L79" class="LineNr"> 79 </span> <span class="subxComment"># var dest/eax: (addr byte) = data for out</span> <span id="L80" class="LineNr"> 80 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L81" class="LineNr"> 81 </span> (<a href='120allocate.subx.html#L226'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L81" class="LineNr"> 81 </span> (<a href='120allocate.subx.html#L223'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> <span id="L82" class="LineNr"> 82 </span> 8d/copy-address *(eax+4) 0/r32/eax <span id="L83" class="LineNr"> 83 </span> <span class="subxComment">#</span> <span id="L84" class="LineNr"> 84 </span> (<a href='310copy-bytes.subx.html#L6'>copy-bytes</a> %edx %eax %ecx) @@ -156,17 +156,17 @@ if ('onhashchange' in window) { <span id="L98" class="LineNr"> 98 </span> 55/push-ebp <span id="L99" class="LineNr"> 99 </span> 89/<- %ebp 4/r32/esp <span id="L100" class="LineNr">100 </span> <span class="subxComment"># setup</span> -<span id="L101" class="LineNr">101 </span> (<a href='106stream.subx.html#L20'>clear-stream</a> <a href='112read-byte.subx.html#L50'>_test-input-stream</a>) -<span id="L102" class="LineNr">102 </span> (<a href='108write.subx.html#L11'>write</a> <a href='112read-byte.subx.html#L50'>_test-input-stream</a> <span class="Constant">"abc"</span>) +<span id="L101" class="LineNr">101 </span> (<a href='106stream.subx.html#L20'>clear-stream</a> <a href='112read-byte.subx.html#L47'>_test-input-stream</a>) +<span id="L102" class="LineNr">102 </span> (<a href='108write.subx.html#L11'>write</a> <a href='112read-byte.subx.html#L47'>_test-input-stream</a> <span class="Constant">"abc"</span>) <span id="L103" class="LineNr">103 </span> <span class="subxComment"># skip something</span> -<span id="L104" class="LineNr">104 </span> (<a href='112read-byte.subx.html#L13'>read-byte</a> <a href='112read-byte.subx.html#L50'>_test-input-stream</a>) <span class="subxComment"># => eax</span> +<span id="L104" class="LineNr">104 </span> (<a href='112read-byte.subx.html#L13'>read-byte</a> <a href='112read-byte.subx.html#L47'>_test-input-stream</a>) <span class="subxComment"># => eax</span> <span id="L105" class="LineNr">105 </span> <span class="subxComment"># var out/ecx: (handle array byte)</span> <span id="L106" class="LineNr">106 </span> 68/push 0/imm32 <span id="L107" class="LineNr">107 </span> 68/push 0/imm32 <span id="L108" class="LineNr">108 </span> 89/<- %ecx 4/r32/esp <span id="L109" class="LineNr">109 </span> <span class="subxComment">#</span> -<span id="L110" class="LineNr">110 </span> (<a href='310copy-bytes.subx.html#L60'>stream-to-array</a> <a href='112read-byte.subx.html#L50'>_test-input-stream</a> %ecx) -<span id="L111" class="LineNr">111 </span> (<a href='120allocate.subx.html#L226'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> +<span id="L110" class="LineNr">110 </span> (<a href='310copy-bytes.subx.html#L60'>stream-to-array</a> <a href='112read-byte.subx.html#L47'>_test-input-stream</a> %ecx) +<span id="L111" class="LineNr">111 </span> (<a href='120allocate.subx.html#L223'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> <span id="L112" class="LineNr">112 </span> (<a href='105string-equal.subx.html#L213'>check-strings-equal</a> %eax <span class="Constant">"bc"</span>) <span id="L113" class="LineNr">113 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L114" class="LineNr">114 </span> 89/<- %esp 5/r32/ebp @@ -193,13 +193,13 @@ if ('onhashchange' in window) { <span id="L135" class="LineNr">135 </span> 7c/jump-if-< $unquote-stream-to-array:end/disp8 <span id="L136" class="LineNr">136 </span> 81 5/subop/subtract %ecx 2/imm32 <span id="L137" class="LineNr">137 </span> <span class="subxComment"># allocate</span> -<span id="L138" class="LineNr">138 </span> (<a href='120allocate.subx.html#L535'>allocate-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %ecx *(ebp+0xc)) +<span id="L138" class="LineNr">138 </span> (<a href='120allocate.subx.html#L556'>allocate-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %ecx *(ebp+0xc)) <span id="L139" class="LineNr">139 </span> <span class="subxComment"># var in/edx: (addr byte) = s->data + s->read + 1</span> <span id="L140" class="LineNr">140 </span> 8b/-> *(esi+4) 2/r32/edx <span id="L141" class="LineNr">141 </span> 8d/copy-address *(esi+edx+0xd) 2/r32/edx <span class="subxComment"># Stream-data + 1</span> <span id="L142" class="LineNr">142 </span> <span class="subxComment"># var dest/eax: (addr byte) = data for out</span> <span id="L143" class="LineNr">143 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L144" class="LineNr">144 </span> (<a href='120allocate.subx.html#L226'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L144" class="LineNr">144 </span> (<a href='120allocate.subx.html#L223'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> <span id="L145" class="LineNr">145 </span> 8d/copy-address *(eax+4) 0/r32/eax <span id="L146" class="LineNr">146 </span> <span class="subxComment">#</span> <span id="L147" class="LineNr">147 </span> (<a href='310copy-bytes.subx.html#L6'>copy-bytes</a> %edx %eax %ecx) diff --git a/html/311decimal-int.subx.html b/html/311decimal-int.subx.html index 4d8f85f4..36596a40 100644 --- a/html/311decimal-int.subx.html +++ b/html/311decimal-int.subx.html @@ -126,7 +126,7 @@ if ('onhashchange' in window) { <span id="L66" class="LineNr"> 66 </span> 4a/decrement-edx <span id="L67" class="LineNr"> 67 </span> <span class="subxComment"># if it's a newline, break</span> <span id="L68" class="LineNr"> 68 </span> 8a/byte-> *edx 0/r32/eax -<span id="L69" class="LineNr"> 69 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L69" class="LineNr"> 69 </span> 25/and-eax-with 0xff/imm32 <span id="L70" class="LineNr"> 70 </span> 3d/compare-eax-and 0xa/imm32/newline <span id="L71" class="LineNr"> 71 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 <span id="L72" class="LineNr"> 72 </span> <span class="subxComment"># not a newline, so restore it</span> @@ -187,7 +187,7 @@ if ('onhashchange' in window) { <span id="L127" class="LineNr">127 </span> <span class="subxComment"># if !decimal-digit?(*curr) return 0</span> <span id="L128" class="LineNr">128 </span> 8a/copy-byte *esi 1/r32/CL <span id="L129" class="LineNr">129 </span> 50/push-eax -<span id="L130" class="LineNr">130 </span> (<a href='126write-int-decimal.subx.html#L299'>decimal-digit?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L130" class="LineNr">130 </span> (<a href='126write-int-decimal.subx.html#L296'>decimal-digit?</a> %ecx) <span class="subxComment"># => eax</span> <span id="L131" class="LineNr">131 </span> { <span id="L132" class="LineNr">132 </span> 3d/compare-eax-and 0/imm32/false <span id="L133" class="LineNr">133 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 @@ -548,7 +548,7 @@ if ('onhashchange' in window) { <span id="L488" class="LineNr">488 </span> 81 0/subop/add %ebx 4/imm32 <span id="L489" class="LineNr">489 </span> eb/jump $_parse-array-of-decimal-ints:loop1/disp8 <span id="L490" class="LineNr">490 </span><span class="Constant">$_parse-array-of-decimal-ints:break1</span>: -<span id="L491" class="LineNr">491 </span> (<a href='120allocate.subx.html#L535'>allocate-array</a> *(ebp+8) %ebx *(ebp+0x10)) +<span id="L491" class="LineNr">491 </span> (<a href='120allocate.subx.html#L556'>allocate-array</a> *(ebp+8) %ebx *(ebp+0x10)) <span id="L492" class="LineNr">492 </span><span class="Constant">$_parse-array-of-decimal-ints:pass2</span>: <span id="L493" class="LineNr">493 </span> <span class="subxComment"># var slice/edi: slice = {s->data, 0}</span> <span id="L494" class="LineNr">494 </span> 68/push 0/imm32/end @@ -557,7 +557,7 @@ if ('onhashchange' in window) { <span id="L497" class="LineNr">497 </span> 89/<- %edi 4/r32/esp <span id="L498" class="LineNr">498 </span> <span class="subxComment"># curr = lookup(out)->data</span> <span id="L499" class="LineNr">499 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L500" class="LineNr">500 </span> (<a href='120allocate.subx.html#L226'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L500" class="LineNr">500 </span> (<a href='120allocate.subx.html#L223'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> <span id="L501" class="LineNr">501 </span> 8d/copy-address *(eax+4) 1/r32/ecx <span id="L502" class="LineNr">502 </span><span class="Constant">$_parse-array-of-decimal-ints:loop2</span>: <span id="L503" class="LineNr">503 </span> <span class="subxComment"># if (slice->start >= end) break</span> @@ -612,7 +612,7 @@ if ('onhashchange' in window) { <span id="L552" class="LineNr">552 </span> 89/<- %ecx 4/r32/esp <span id="L553" class="LineNr">553 </span> <span class="subxComment">#</span> <span id="L554" class="LineNr">554 </span> (<a href='311decimal-int.subx.html#L429'>_parse-array-of-decimal-ints</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"1 2 3"</span> %esi) -<span id="L555" class="LineNr">555 </span> (<a href='120allocate.subx.html#L226'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L555" class="LineNr">555 </span> (<a href='120allocate.subx.html#L223'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> <span id="L556" class="LineNr">556 </span> (<a href='301array-equal.subx.html#L5'>array-equal?</a> %ecx %eax) <span class="subxComment"># => eax</span> <span id="L557" class="LineNr">557 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-parse-array-of-decimal-ints"</span>) <span id="L558" class="LineNr">558 </span> <span class="subxS1Comment"># . epilogue</span> @@ -631,7 +631,7 @@ if ('onhashchange' in window) { <span id="L571" class="LineNr">571 </span> 89/<- %esi 4/r32/esp <span id="L572" class="LineNr">572 </span> <span class="subxComment">#</span> <span id="L573" class="LineNr">573 </span> (<a href='311decimal-int.subx.html#L429'>_parse-array-of-decimal-ints</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">""</span> %esi) -<span id="L574" class="LineNr">574 </span> (<a href='120allocate.subx.html#L226'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L574" class="LineNr">574 </span> (<a href='120allocate.subx.html#L223'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> <span id="L575" class="LineNr">575 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> *eax 0 <span class="Constant">"F - test-parse-array-of-decimal-ints-empty"</span>) <span id="L576" class="LineNr">576 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L577" class="LineNr">577 </span> 89/<- %esp 5/r32/ebp @@ -649,7 +649,7 @@ if ('onhashchange' in window) { <span id="L589" class="LineNr">589 </span> 89/<- %esi 4/r32/esp <span id="L590" class="LineNr">590 </span> <span class="subxComment">#</span> <span id="L591" class="LineNr">591 </span> (<a href='311decimal-int.subx.html#L429'>_parse-array-of-decimal-ints</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="SpecialChar"><a href='301array-equal.subx.html#L428'>Space</a></span> %esi) -<span id="L592" class="LineNr">592 </span> (<a href='120allocate.subx.html#L226'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L592" class="LineNr">592 </span> (<a href='120allocate.subx.html#L223'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> <span id="L593" class="LineNr">593 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> *eax 0 <span class="Constant">"F - test-parse-array-of-decimal-ints-just-whitespace"</span>) <span id="L594" class="LineNr">594 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L595" class="LineNr">595 </span> 89/<- %esp 5/r32/ebp @@ -672,7 +672,7 @@ if ('onhashchange' in window) { <span id="L612" class="LineNr">612 </span> 89/<- %ecx 4/r32/esp <span id="L613" class="LineNr">613 </span> <span class="subxComment">#</span> <span id="L614" class="LineNr">614 </span> (<a href='311decimal-int.subx.html#L429'>_parse-array-of-decimal-ints</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">" 1 2 3 "</span> %esi) -<span id="L615" class="LineNr">615 </span> (<a href='120allocate.subx.html#L226'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L615" class="LineNr">615 </span> (<a href='120allocate.subx.html#L223'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> <span id="L616" class="LineNr">616 </span> (<a href='301array-equal.subx.html#L5'>array-equal?</a> %ecx %eax) <span class="subxComment"># => eax</span> <span id="L617" class="LineNr">617 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-parse-array-of-decimal-ints-extra-whitespace"</span>) <span id="L618" class="LineNr">618 </span> <span class="subxS1Comment"># . epilogue</span> diff --git a/html/312copy.subx.html b/html/312copy.subx.html index 0d600548..ed936820 100644 --- a/html/312copy.subx.html +++ b/html/312copy.subx.html @@ -62,7 +62,7 @@ if ('onhashchange' in window) { <span id="L5" class="LineNr"> 5 </span> 55/push-ebp <span id="L6" class="LineNr"> 6 </span> 89/<- %ebp 4/r32/esp <span id="L7" class="LineNr"> 7 </span> <span class="subxComment">#</span> -<span id="L8" class="LineNr"> 8 </span> (<a href='120allocate.subx.html#L669'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *(ebp+8) *(ebp+0xc)) +<span id="L8" class="LineNr"> 8 </span> (<a href='120allocate.subx.html#L690'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *(ebp+8) *(ebp+0xc)) <span id="L9" class="LineNr"> 9 </span><span class="Constant">$copy-array-object:end</span>: <span id="L10" class="LineNr">10 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L11" class="LineNr">11 </span> 89/<- %esp 5/r32/ebp diff --git a/html/313index-bounds-check.subx.html b/html/313index-bounds-check.subx.html index 52e406f5..9b7c3592 100644 --- a/html/313index-bounds-check.subx.html +++ b/html/313index-bounds-check.subx.html @@ -89,30 +89,32 @@ if ('onhashchange' in window) { <span id="L33" class="LineNr">33 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">" is too large for array '"</span> 3 0) <span class="subxComment"># 3=cyan</span> <span id="L34" class="LineNr">34 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *(ebp+0x18) 3 0) <span class="subxComment"># 3=cyan</span> <span id="L35" class="LineNr">35 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"'"</span> 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L36" class="LineNr">36 </span> { -<span id="L37" class="LineNr">37 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L38" class="LineNr">38 </span> } -<span id="L39" class="LineNr">39 </span> <span class="subxComment"># never gets here</span> -<span id="L40" class="LineNr">40 </span><span class="Constant">$__check-mu-array-bounds:end</span>: -<span id="L41" class="LineNr">41 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L42" class="LineNr">42 </span> 5a/pop-to-edx -<span id="L43" class="LineNr">43 </span> 59/pop-to-ecx -<span id="L44" class="LineNr">44 </span> 58/pop-to-eax -<span id="L45" class="LineNr">45 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L46" class="LineNr">46 </span> 89/<- %esp 5/r32/ebp -<span id="L47" class="LineNr">47 </span> 5d/pop-to-ebp -<span id="L48" class="LineNr">48 </span> c3/return -<span id="L49" class="LineNr">49 </span> -<span id="L50" class="LineNr">50 </span><span class="subxMinorFunction">__check-mu-array-bounds:overflow</span>: -<span id="L51" class="LineNr">51 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"fn "</span> 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L52" class="LineNr">52 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *(ebp+0x14) 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L53" class="LineNr">53 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">": offset to array '"</span> 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L54" class="LineNr">54 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *(ebp+0x18) 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L55" class="LineNr">55 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"' overflowed 32 bits"</span> 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L56" class="LineNr">56 </span> { -<span id="L57" class="LineNr">57 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L58" class="LineNr">58 </span> } -<span id="L59" class="LineNr">59 </span> <span class="subxComment"># never gets here</span> +<span id="L36" class="LineNr">36 </span> (<a href='317abort.subx.html#L5'>abort</a> <span class="Constant">""</span>) +<span id="L37" class="LineNr">37 </span> <span class="subxComment"># never gets here</span> +<span id="L38" class="LineNr">38 </span><span class="Constant">$__check-mu-array-bounds:end</span>: +<span id="L39" class="LineNr">39 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L40" class="LineNr">40 </span> 5a/pop-to-edx +<span id="L41" class="LineNr">41 </span> 59/pop-to-ecx +<span id="L42" class="LineNr">42 </span> 58/pop-to-eax +<span id="L43" class="LineNr">43 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L44" class="LineNr">44 </span> 89/<- %esp 5/r32/ebp +<span id="L45" class="LineNr">45 </span> 5d/pop-to-ebp +<span id="L46" class="LineNr">46 </span> c3/return +<span id="L47" class="LineNr">47 </span> +<span id="L48" class="LineNr">48 </span><span class="subxMinorFunction">__check-mu-array-bounds:overflow</span>: +<span id="L49" class="LineNr">49 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"fn "</span> 3 0) <span class="subxComment"># 3=cyan</span> +<span id="L50" class="LineNr">50 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *(ebp+0x14) 3 0) <span class="subxComment"># 3=cyan</span> +<span id="L51" class="LineNr">51 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">": offset to array '"</span> 3 0) <span class="subxComment"># 3=cyan</span> +<span id="L52" class="LineNr">52 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *(ebp+0x18) 3 0) <span class="subxComment"># 3=cyan</span> +<span id="L53" class="LineNr">53 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"' overflowed 32 bits"</span> 3 0) <span class="subxComment"># 3=cyan</span> +<span id="L54" class="LineNr">54 </span> (<a href='317abort.subx.html#L5'>abort</a> <span class="Constant">""</span>) +<span id="L55" class="LineNr">55 </span> <span class="subxComment"># never gets here</span> +<span id="L56" class="LineNr">56 </span> +<span id="L57" class="LineNr">57 </span><span class="subxMinorFunction">__mu-abort-null-index-base-address</span>: +<span id="L58" class="LineNr">58 </span> (<a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"null address in 'index'"</span>) +<span id="L59" class="LineNr">59 </span> +<span id="L60" class="LineNr">60 </span><span class="subxMinorFunction">__mu-abort-null-get-base-address</span>: +<span id="L61" class="LineNr">61 </span> (<a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"null address in 'get'"</span>) </pre> </body> </html> diff --git a/html/315stack-debug.subx.html b/html/315stack-debug.subx.html index c2155ae5..bd9d5e3f 100644 --- a/html/315stack-debug.subx.html +++ b/html/315stack-debug.subx.html @@ -68,10 +68,10 @@ if ('onhashchange' in window) { <span id="L10" class="LineNr"> 10 </span> 50/push-eax <span id="L11" class="LineNr"> 11 </span> <span class="subxComment">#</span> <span id="L12" class="LineNr"> 12 </span> 89/<- %eax 4/r32/esp -<span id="L13" class="LineNr"> 13 </span> 81 7/subop/compare %eax 0x01000000/imm32 +<span id="L13" class="LineNr"> 13 </span> 3d/compare-eax-and 0x01000000/imm32 <span id="L14" class="LineNr"> 14 </span> { <span id="L15" class="LineNr"> 15 </span> 7f/jump-if-> <span class="Constant">break</span>/disp8 -<span id="L16" class="LineNr"> 16 </span> (<a href='501draw-text.mu.html#L481'>abort</a> <span class="Constant">"stack overflow"</span>) +<span id="L16" class="LineNr"> 16 </span> (<a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"stack overflow"</span>) <span id="L17" class="LineNr"> 17 </span> } <span id="L18" class="LineNr"> 18 </span><span class="Constant">$check-stack:end</span>: <span id="L19" class="LineNr"> 19 </span> <span class="subxS1Comment"># . restore registers</span> @@ -98,7 +98,7 @@ if ('onhashchange' in window) { <span id="L40" class="LineNr"> 40 </span> (<a href='501draw-text.mu.html#L312'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 %edx 0xf 0xc) <span id="L41" class="LineNr"> 41 </span> <span class="subxComment"># restore cursor position</span> <span id="L42" class="LineNr"> 42 </span> (<a href='500fake-screen.mu.html#L169'>set-cursor-position</a> %eax %ecx) -<span id="L43" class="LineNr"> 43 </span><span class="Constant">$check-stack:end</span>: +<span id="L43" class="LineNr"> 43 </span><span class="Constant">$show-stack-state:end</span>: <span id="L44" class="LineNr"> 44 </span> <span class="subxS1Comment"># . restore registers</span> <span id="L45" class="LineNr"> 45 </span> 5a/pop-to-edx <span id="L46" class="LineNr"> 46 </span> 59/pop-to-ecx diff --git a/html/316colors.subx.html b/html/316colors.subx.html index 6c62b26c..8a23c2e8 100644 --- a/html/316colors.subx.html +++ b/html/316colors.subx.html @@ -75,7 +75,7 @@ if ('onhashchange' in window) { <span id="L17" class="LineNr"> 17 </span> 81 7/subop/compare %esi 0x100/imm32 <span id="L18" class="LineNr"> 18 </span> { <span id="L19" class="LineNr"> 19 </span> 7c/jump-if-< <span class="Constant">break</span>/disp8 -<span id="L20" class="LineNr"> 20 </span> (<a href='501draw-text.mu.html#L481'>abort</a> <span class="Constant">"invalid color"</span>) +<span id="L20" class="LineNr"> 20 </span> (<a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"invalid color"</span>) <span id="L21" class="LineNr"> 21 </span> } <span id="L22" class="LineNr"> 22 </span> <span class="subxComment"># var color/esi: int = Colors-rgb[color]</span> <span id="L23" class="LineNr"> 23 </span> b8/copy-to-eax <span class="SpecialChar"><a href='316colors.subx.html#L71'>Colors-rgb</a></span>/imm32 diff --git a/html/317abort.subx.html b/html/317abort.subx.html new file mode 100644 index 00000000..f53236b1 --- /dev/null +++ b/html/317abort.subx.html @@ -0,0 +1,394 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - 317abort.subx</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-dark"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #a8a8a8; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #a8a8a8; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.SpecialChar { color: #d70000; } +.subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } +.LineNr { } +.subxH1Comment { color: #005faf; text-decoration: underline; } +.subxFunction { color: #af5f00; text-decoration: underline; } +.Constant { color: #008787; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/317abort.subx'>https://github.com/akkartik/mu/blob/main/317abort.subx</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Dump a stack trace when you abort.</span> +<span id="L2" class="LineNr"> 2 </span> +<span id="L3" class="LineNr"> 3 </span>== code +<span id="L4" class="LineNr"> 4 </span> +<span id="L5" class="LineNr"> 5 </span><span class="subxFunction">abort</span>: <span class="subxComment"># e: (addr array byte)</span> +<span id="L6" class="LineNr"> 6 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7" class="LineNr"> 7 </span> 55/push-ebp +<span id="L8" class="LineNr"> 8 </span> 89/<- %ebp 4/r32/esp +<span id="L9" class="LineNr"> 9 </span> <span class="subxComment">#</span> +<span id="L10" class="LineNr"> 10 </span> (<a href='103grapheme.subx.html#L109'>set-cursor-position-on-real-screen</a> 0 0) +<span id="L11" class="LineNr"> 11 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *(ebp+8) 0xf 0xc) <span class="subxComment"># 0/real-screen, 0xf/fg=white, 0xc/bg=red</span> +<span id="L12" class="LineNr"> 12 </span> (<a href='317abort.subx.html#L21'>dump-call-stack</a>) +<span id="L13" class="LineNr"> 13 </span> <span class="subxComment"># crash</span> +<span id="L14" class="LineNr"> 14 </span> { +<span id="L15" class="LineNr"> 15 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L16" class="LineNr"> 16 </span> } +<span id="L17" class="LineNr"> 17 </span> +<span id="L18" class="LineNr"> 18 </span><span class="subxComment"># Helpers below this point are not intended to be reused; they assume the</span> +<span id="L19" class="LineNr"> 19 </span><span class="subxComment"># program will soon crash. In particular, they destroy the heap.</span> +<span id="L20" class="LineNr"> 20 </span> +<span id="L21" class="LineNr"> 21 </span><span class="subxFunction">dump-call-stack</span>: +<span id="L22" class="LineNr"> 22 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23" class="LineNr"> 23 </span> 55/push-ebp +<span id="L24" class="LineNr"> 24 </span> 89/<- %ebp 4/r32/esp +<span id="L25" class="LineNr"> 25 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26" class="LineNr"> 26 </span> 50/push-eax +<span id="L27" class="LineNr"> 27 </span> 51/push-ecx +<span id="L28" class="LineNr"> 28 </span> 52/push-edx +<span id="L29" class="LineNr"> 29 </span> 53/push-ebx +<span id="L30" class="LineNr"> 30 </span> <span class="subxComment"># var labels/edx: (addr stream {start-address, label-slice} 0x4000)</span> +<span id="L31" class="LineNr"> 31 </span> <span class="subxComment"># start addresses are in ascending order</span> +<span id="L32" class="LineNr"> 32 </span> 81 5/subop/subtract %esp 0x30000/imm32 <span class="subxComment"># 0x4000 labels * 12 bytes per label</span> +<span id="L33" class="LineNr"> 33 </span> 68/push 0x30000/imm32 +<span id="L34" class="LineNr"> 34 </span> 68/push 0/imm32/read +<span id="L35" class="LineNr"> 35 </span> 68/push 0/imm32/write +<span id="L36" class="LineNr"> 36 </span> 89/<- %edx 4/r32/esp +<span id="L37" class="LineNr"> 37 </span> <span class="subxComment">#</span> +<span id="L38" class="LineNr"> 38 </span> (<a href='317abort.subx.html#L69'>load-debug-symbols</a> %edx) <span class="subxComment"># destroys the heap</span> +<span id="L39" class="LineNr"> 39 </span> <span class="subxComment"># traverse the linked list of ebp pointers: <a href="https://wiki.osdev.org/Stack_Trace">https://wiki.osdev.org/Stack_Trace</a></span> +<span id="L40" class="LineNr"> 40 </span> 8b/-> *ebp 3/r32/ebx +<span id="L41" class="LineNr"> 41 </span> { +<span id="L42" class="LineNr"> 42 </span> <span class="subxComment"># loop termination check</span> +<span id="L43" class="LineNr"> 43 </span> 81 7/subop/compare %ebx 0/imm32 +<span id="L44" class="LineNr"> 44 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L45" class="LineNr"> 45 </span> <span class="subxComment"># loop body</span> +<span id="L46" class="LineNr"> 46 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"\n"</span> 0 0xc) +<span id="L47" class="LineNr"> 47 </span> (<a href='501draw-text.mu.html#L312'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *(ebx+4) 0xf 0xc) +<span id="L48" class="LineNr"> 48 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">" "</span> 0 0xc) +<span id="L49" class="LineNr"> 49 </span> (<a href='317abort.subx.html#L236'>containing-function</a> %edx *(ebx+4)) <span class="subxComment"># => eax, ecx</span> +<span id="L50" class="LineNr"> 50 </span> (<a href='317abort.subx.html#L297'>draw-slice-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 %eax %ecx 0 0xc) +<span id="L51" class="LineNr"> 51 </span> <span class="subxComment"># loop update</span> +<span id="L52" class="LineNr"> 52 </span> 8b/-> *ebx 3/r32/ebx +<span id="L53" class="LineNr"> 53 </span> <span class="subxComment">#</span> +<span id="L54" class="LineNr"> 54 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L55" class="LineNr"> 55 </span> } +<span id="L56" class="LineNr"> 56 </span><span class="Constant">$dump-call-stack:end</span>: +<span id="L57" class="LineNr"> 57 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L58" class="LineNr"> 58 </span> 81 0/subop/add %esp 0x100c/imm32 +<span id="L59" class="LineNr"> 59 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L60" class="LineNr"> 60 </span> 5b/pop-to-ebx +<span id="L61" class="LineNr"> 61 </span> 5a/pop-to-edx +<span id="L62" class="LineNr"> 62 </span> 59/pop-to-ecx +<span id="L63" class="LineNr"> 63 </span> 58/pop-to-eax +<span id="L64" class="LineNr"> 64 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L65" class="LineNr"> 65 </span> 89/<- %esp 5/r32/ebp +<span id="L66" class="LineNr"> 66 </span> 5d/pop-to-ebp +<span id="L67" class="LineNr"> 67 </span> c3/return +<span id="L68" class="LineNr"> 68 </span> +<span id="L69" class="LineNr"> 69 </span><span class="subxFunction">load-debug-symbols</span>: <span class="subxComment"># labels: (addr stream {start-address, label-slice})</span> +<span id="L70" class="LineNr"> 70 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L71" class="LineNr"> 71 </span> 55/push-ebp +<span id="L72" class="LineNr"> 72 </span> 89/<- %ebp 4/r32/esp +<span id="L73" class="LineNr"> 73 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L74" class="LineNr"> 74 </span> 50/push-eax +<span id="L75" class="LineNr"> 75 </span> 51/push-ecx +<span id="L76" class="LineNr"> 76 </span> 52/push-edx +<span id="L77" class="LineNr"> 77 </span> 53/push-ebx +<span id="L78" class="LineNr"> 78 </span> <span class="subxComment"># create space for a stream on the heap, clobbering any existing data</span> +<span id="L79" class="LineNr"> 79 </span> <span class="subxComment"># var s/ecx: (addr stream byte)</span> +<span id="L80" class="LineNr"> 80 </span> b9/copy-to-ecx 0x03000000/imm32 +<span id="L81" class="LineNr"> 81 </span> c7 0/subop/copy *ecx 0/imm32 <span class="subxComment"># write index</span> +<span id="L82" class="LineNr"> 82 </span> c7 0/subop/copy *(ecx+4) 0/imm32 <span class="subxComment"># read index</span> +<span id="L83" class="LineNr"> 83 </span> c7 0/subop/copy *(ecx+8) 0x01000000/imm32 <span class="subxComment"># stream capacity = 16MB</span> +<span id="L84" class="LineNr"> 84 </span> <span class="subxComment"># load 0x400 sectors starting from sector 10080 = 0x2760</span> +<span id="L85" class="LineNr"> 85 </span> (<a href='boot.subx.html#L946'>load-sectors</a> <span class="SpecialChar"><a href='boot.subx.html#L894'>Primary-bus-primary-drive</a></span> 0x2760 0x100 %ecx) +<span id="L86" class="LineNr"> 86 </span> (<a href='boot.subx.html#L946'>load-sectors</a> <span class="SpecialChar"><a href='boot.subx.html#L894'>Primary-bus-primary-drive</a></span> 0x2860 0x100 %ecx) +<span id="L87" class="LineNr"> 87 </span> (<a href='boot.subx.html#L946'>load-sectors</a> <span class="SpecialChar"><a href='boot.subx.html#L894'>Primary-bus-primary-drive</a></span> 0x2960 0x100 %ecx) +<span id="L88" class="LineNr"> 88 </span> (<a href='boot.subx.html#L946'>load-sectors</a> <span class="SpecialChar"><a href='boot.subx.html#L894'>Primary-bus-primary-drive</a></span> 0x2a60 0x100 %ecx) +<span id="L89" class="LineNr"> 89 </span> <span class="subxH1Comment"># - parse pointers to portions of this stream into labels</span> +<span id="L90" class="LineNr"> 90 </span> <span class="subxComment"># var curr/ecx: (addr byte) = s->data</span> +<span id="L91" class="LineNr"> 91 </span> 81 0/subop/add %ecx 0xc/imm32 +<span id="L92" class="LineNr"> 92 </span> { +<span id="L93" class="LineNr"> 93 </span> <span class="subxComment"># loop termination check</span> +<span id="L94" class="LineNr"> 94 </span> b8/copy-to-eax 0/imm32 +<span id="L95" class="LineNr"> 95 </span> 8a/byte-> *ecx 0/r32/eax +<span id="L96" class="LineNr"> 96 </span> 3d/compare-eax-and 0/imm32 +<span id="L97" class="LineNr"> 97 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L98" class="LineNr"> 98 </span> <span class="subxComment"># loop body</span> +<span id="L99" class="LineNr"> 99 </span> (<a href='317abort.subx.html#L121'>skip-to-next-space</a> %ecx) <span class="subxComment"># => edx</span> +<span id="L100" class="LineNr">100 </span> 42/increment-edx +<span id="L101" class="LineNr">101 </span> (<a href='317abort.subx.html#L162'>skip-to-next-newline</a> %edx) <span class="subxComment"># => ebx</span> +<span id="L102" class="LineNr">102 </span> (<a href='118parse-hex-int.subx.html#L417'>parse-hex-int-helper</a> %edx %ebx) <span class="subxComment"># => eax</span> +<span id="L103" class="LineNr">103 </span> 43/increment-ebx +<span id="L104" class="LineNr">104 </span> (<a href='317abort.subx.html#L203'>label-append</a> *(ebp+8) %eax %ecx %edx) +<span id="L105" class="LineNr">105 </span> <span class="subxComment"># loop update</span> +<span id="L106" class="LineNr">106 </span> 89/<- %ecx 3/r32/ebx +<span id="L107" class="LineNr">107 </span> <span class="subxComment">#</span> +<span id="L108" class="LineNr">108 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L109" class="LineNr">109 </span> } +<span id="L110" class="LineNr">110 </span><span class="Constant">$load-debug-symbols:end</span>: +<span id="L111" class="LineNr">111 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L112" class="LineNr">112 </span> 5b/pop-to-ebx +<span id="L113" class="LineNr">113 </span> 5a/pop-to-edx +<span id="L114" class="LineNr">114 </span> 59/pop-to-ecx +<span id="L115" class="LineNr">115 </span> 58/pop-to-eax +<span id="L116" class="LineNr">116 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L117" class="LineNr">117 </span> 89/<- %esp 5/r32/ebp +<span id="L118" class="LineNr">118 </span> 5d/pop-to-ebp +<span id="L119" class="LineNr">119 </span> c3/return +<span id="L120" class="LineNr">120 </span> +<span id="L121" class="LineNr">121 </span><span class="subxFunction">skip-to-next-space</span>: <span class="subxComment"># curr: (addr byte) -> _/edx: (addr byte)</span> +<span id="L122" class="LineNr">122 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L123" class="LineNr">123 </span> 55/push-ebp +<span id="L124" class="LineNr">124 </span> 89/<- %ebp 4/r32/esp +<span id="L125" class="LineNr">125 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L126" class="LineNr">126 </span> 50/push-eax +<span id="L127" class="LineNr">127 </span> <span class="subxComment"># eax = 0</span> +<span id="L128" class="LineNr">128 </span> b8/copy-to-eax 0/imm32 +<span id="L129" class="LineNr">129 </span> <span class="subxComment">#</span> +<span id="L130" class="LineNr">130 </span> 8b/-> *(ebp+8) 2/r32/edx +<span id="L131" class="LineNr">131 </span> { +<span id="L132" class="LineNr">132 </span> 8a/byte-> *edx 0/r32/eax +<span id="L133" class="LineNr">133 </span> 3d/compare-eax-and 0x20/imm32/space +<span id="L134" class="LineNr">134 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L135" class="LineNr">135 </span> 3d/compare-eax-and 0/imm32 +<span id="L136" class="LineNr">136 </span> { +<span id="L137" class="LineNr">137 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L138" class="LineNr">138 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"done loading"</span> 7 0) +<span id="L139" class="LineNr">139 </span> { +<span id="L140" class="LineNr">140 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L141" class="LineNr">141 </span> } +<span id="L142" class="LineNr">142 </span> } +<span id="L143" class="LineNr">143 </span> 3d/compare-eax-and 0xa/imm32/newline +<span id="L144" class="LineNr">144 </span> { +<span id="L145" class="LineNr">145 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L146" class="LineNr">146 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"unexpected newline"</span> 7 0) +<span id="L147" class="LineNr">147 </span> { +<span id="L148" class="LineNr">148 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L149" class="LineNr">149 </span> } +<span id="L150" class="LineNr">150 </span> } +<span id="L151" class="LineNr">151 </span> 42/increment-edx +<span id="L152" class="LineNr">152 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L153" class="LineNr">153 </span> } +<span id="L154" class="LineNr">154 </span><span class="Constant">$skip-to-next-space:end</span>: +<span id="L155" class="LineNr">155 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L156" class="LineNr">156 </span> 58/pop-to-eax +<span id="L157" class="LineNr">157 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L158" class="LineNr">158 </span> 89/<- %esp 5/r32/ebp +<span id="L159" class="LineNr">159 </span> 5d/pop-to-ebp +<span id="L160" class="LineNr">160 </span> c3/return +<span id="L161" class="LineNr">161 </span> +<span id="L162" class="LineNr">162 </span><span class="subxFunction">skip-to-next-newline</span>: <span class="subxComment"># curr: (addr byte) -> _/ebx: (addr byte)</span> +<span id="L163" class="LineNr">163 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L164" class="LineNr">164 </span> 55/push-ebp +<span id="L165" class="LineNr">165 </span> 89/<- %ebp 4/r32/esp +<span id="L166" class="LineNr">166 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L167" class="LineNr">167 </span> 50/push-eax +<span id="L168" class="LineNr">168 </span> <span class="subxComment"># eax = 0</span> +<span id="L169" class="LineNr">169 </span> b8/copy-to-eax 0/imm32 +<span id="L170" class="LineNr">170 </span> <span class="subxComment">#</span> +<span id="L171" class="LineNr">171 </span> 8b/-> *(ebp+8) 3/r32/ebx +<span id="L172" class="LineNr">172 </span> { +<span id="L173" class="LineNr">173 </span> 8a/byte-> *ebx 0/r32/eax +<span id="L174" class="LineNr">174 </span> 3d/compare-eax-and 0xa/imm32/newline +<span id="L175" class="LineNr">175 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L176" class="LineNr">176 </span> 3d/compare-eax-and 0/imm32 +<span id="L177" class="LineNr">177 </span> { +<span id="L178" class="LineNr">178 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L179" class="LineNr">179 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"done loading"</span> 7 0) +<span id="L180" class="LineNr">180 </span> { +<span id="L181" class="LineNr">181 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L182" class="LineNr">182 </span> } +<span id="L183" class="LineNr">183 </span> } +<span id="L184" class="LineNr">184 </span> 3d/compare-eax-and 0x20/imm32/space +<span id="L185" class="LineNr">185 </span> { +<span id="L186" class="LineNr">186 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L187" class="LineNr">187 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"unexpected space"</span> 7 0) +<span id="L188" class="LineNr">188 </span> { +<span id="L189" class="LineNr">189 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L190" class="LineNr">190 </span> } +<span id="L191" class="LineNr">191 </span> } +<span id="L192" class="LineNr">192 </span> 43/increment-ebx +<span id="L193" class="LineNr">193 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L194" class="LineNr">194 </span> } +<span id="L195" class="LineNr">195 </span><span class="Constant">$skip-to-next-newline:end</span>: +<span id="L196" class="LineNr">196 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L197" class="LineNr">197 </span> 58/pop-to-eax +<span id="L198" class="LineNr">198 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L199" class="LineNr">199 </span> 89/<- %esp 5/r32/ebp +<span id="L200" class="LineNr">200 </span> 5d/pop-to-ebp +<span id="L201" class="LineNr">201 </span> c3/return +<span id="L202" class="LineNr">202 </span> +<span id="L203" class="LineNr">203 </span><span class="subxFunction">label-append</span>: <span class="subxComment"># labels: (addr stream {start-address, label-slice}), address: int, start: int, end: int</span> +<span id="L204" class="LineNr">204 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L205" class="LineNr">205 </span> 55/push-ebp +<span id="L206" class="LineNr">206 </span> 89/<- %ebp 4/r32/esp +<span id="L207" class="LineNr">207 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L208" class="LineNr">208 </span> 50/push-eax +<span id="L209" class="LineNr">209 </span> 51/push-ecx +<span id="L210" class="LineNr">210 </span> 56/push-esi +<span id="L211" class="LineNr">211 </span> <span class="subxComment"># esi = labels</span> +<span id="L212" class="LineNr">212 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L213" class="LineNr">213 </span> <span class="subxComment"># ecx = labels->write</span> +<span id="L214" class="LineNr">214 </span> 8b/-> *esi 1/r32/ecx +<span id="L215" class="LineNr">215 </span> <span class="subxComment"># labels->data[labels->write] = address</span> +<span id="L216" class="LineNr">216 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L217" class="LineNr">217 </span> 89/<- *(esi+ecx+0xc) 0/r32/eax +<span id="L218" class="LineNr">218 </span> <span class="subxComment"># labels->data[labels->write+4] = start</span> +<span id="L219" class="LineNr">219 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L220" class="LineNr">220 </span> 89/<- *(esi+ecx+0x10) 0/r32/eax +<span id="L221" class="LineNr">221 </span> <span class="subxComment"># labels->data[labels->write+8] = end</span> +<span id="L222" class="LineNr">222 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L223" class="LineNr">223 </span> 89/<- *(esi+ecx+0x14) 0/r32/eax +<span id="L224" class="LineNr">224 </span> <span class="subxComment"># labels->write += 12</span> +<span id="L225" class="LineNr">225 </span> 81 0/subop/add *esi 0xc/imm32 +<span id="L226" class="LineNr">226 </span><span class="Constant">$label-append:end</span>: +<span id="L227" class="LineNr">227 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L228" class="LineNr">228 </span> 5e/pop-to-esi +<span id="L229" class="LineNr">229 </span> 59/pop-to-ecx +<span id="L230" class="LineNr">230 </span> 58/pop-to-eax +<span id="L231" class="LineNr">231 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L232" class="LineNr">232 </span> 89/<- %esp 5/r32/ebp +<span id="L233" class="LineNr">233 </span> 5d/pop-to-ebp +<span id="L234" class="LineNr">234 </span> c3/return +<span id="L235" class="LineNr">235 </span> +<span id="L236" class="LineNr">236 </span><span class="subxFunction">containing-function</span>: <span class="subxComment"># labels: (addr stream {start-address, label-slice}), address: int -> start/eax: (addr byte), end/ecx: (addr byte)</span> +<span id="L237" class="LineNr">237 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L238" class="LineNr">238 </span> 55/push-ebp +<span id="L239" class="LineNr">239 </span> 89/<- %ebp 4/r32/esp +<span id="L240" class="LineNr">240 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L241" class="LineNr">241 </span> 52/push-edx +<span id="L242" class="LineNr">242 </span> 53/push-ebx +<span id="L243" class="LineNr">243 </span> 56/push-esi +<span id="L244" class="LineNr">244 </span> <span class="subxComment"># esi = labels</span> +<span id="L245" class="LineNr">245 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L246" class="LineNr">246 </span> <span class="subxComment"># var curr/ecx: (addr byte) = labels->data</span> +<span id="L247" class="LineNr">247 </span> 8d/copy-address *(esi+0xc) 1/r32/ecx +<span id="L248" class="LineNr">248 </span> <span class="subxComment"># var max/edx: (addr byte) = labels->data + labels->write</span> +<span id="L249" class="LineNr">249 </span> 8b/-> *esi 2/r32/edx +<span id="L250" class="LineNr">250 </span> 01/add-to %edx 1/r32/ecx +<span id="L251" class="LineNr">251 </span> <span class="subxComment"># var previous-function-name/ebx: (addr slice) = 0</span> +<span id="L252" class="LineNr">252 </span> bb/copy-to-ebx 0/imm32 +<span id="L253" class="LineNr">253 </span> { +<span id="L254" class="LineNr">254 </span> <span class="subxComment"># abort if not found</span> +<span id="L255" class="LineNr">255 </span> 39/compare %ecx 2/r32/edx +<span id="L256" class="LineNr">256 </span> { +<span id="L257" class="LineNr">257 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L258" class="LineNr">258 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"failed to find function for address "</span> 7 0) +<span id="L259" class="LineNr">259 </span> (<a href='501draw-text.mu.html#L312'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *(ebp+0xc) 7 0) +<span id="L260" class="LineNr">260 </span> { +<span id="L261" class="LineNr">261 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L262" class="LineNr">262 </span> } +<span id="L263" class="LineNr">263 </span> } +<span id="L264" class="LineNr">264 </span> <span class="subxComment"># if *curr > address, break</span> +<span id="L265" class="LineNr">265 </span> 8b/-> *ecx 0/r32/eax +<span id="L266" class="LineNr">266 </span> 3b/compare 0/r32/eax *(ebp+0xc) +<span id="L267" class="LineNr">267 </span> 0f 87/jump-if-addr> <span class="Constant">break</span>/disp32 +<span id="L268" class="LineNr">268 </span> <span class="subxComment"># if **(curr+4) not '$' or '@', save curr to previous-function-name</span> +<span id="L269" class="LineNr">269 </span> { +<span id="L270" class="LineNr">270 </span> 8b/-> *(ecx+4) 0/r32/eax +<span id="L271" class="LineNr">271 </span> 8a/byte-> *eax 0/r32/eax +<span id="L272" class="LineNr">272 </span> 25/and-with-eax 0xff/imm32 +<span id="L273" class="LineNr">273 </span> 3d/compare-eax-and 0x24/imm32/$ +<span id="L274" class="LineNr">274 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L275" class="LineNr">275 </span> 3d/compare-eax-and 0x40/imm32/@ +<span id="L276" class="LineNr">276 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L277" class="LineNr">277 </span> 8d/copy-address *(ecx+4) 3/r32/ebx +<span id="L278" class="LineNr">278 </span> } +<span id="L279" class="LineNr">279 </span> <span class="subxComment"># loop update</span> +<span id="L280" class="LineNr">280 </span> 81 0/subop/add %ecx 0xc/imm32 +<span id="L281" class="LineNr">281 </span> <span class="subxComment">#</span> +<span id="L282" class="LineNr">282 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L283" class="LineNr">283 </span> } +<span id="L284" class="LineNr">284 </span> 8b/-> *ebx 0/r32/eax +<span id="L285" class="LineNr">285 </span> 8b/-> *(ebx+4) 1/r32/ecx +<span id="L286" class="LineNr">286 </span><span class="Constant">$containing-function:end</span>: +<span id="L287" class="LineNr">287 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L288" class="LineNr">288 </span> 5e/pop-to-esi +<span id="L289" class="LineNr">289 </span> 5b/pop-to-ebx +<span id="L290" class="LineNr">290 </span> 5a/pop-to-edx +<span id="L291" class="LineNr">291 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L292" class="LineNr">292 </span> 89/<- %esp 5/r32/ebp +<span id="L293" class="LineNr">293 </span> 5d/pop-to-ebp +<span id="L294" class="LineNr">294 </span> c3/return +<span id="L295" class="LineNr">295 </span> +<span id="L296" class="LineNr">296 </span><span class="subxComment"># unlike variants in .mu files, this only supports ASCII</span> +<span id="L297" class="LineNr">297 </span><span class="subxFunction">draw-slice-wrapping-right-then-down-from-cursor-over-full-screen</span>: <span class="subxComment"># screen: (addr screen), start: (addr byte), end: (addr byte), color: int, background-color: int</span> +<span id="L298" class="LineNr">298 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L299" class="LineNr">299 </span> 55/push-ebp +<span id="L300" class="LineNr">300 </span> 89/<- %ebp 4/r32/esp +<span id="L301" class="LineNr">301 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L302" class="LineNr">302 </span> 50/push-eax +<span id="L303" class="LineNr">303 </span> 51/push-ecx +<span id="L304" class="LineNr">304 </span> 52/push-edx +<span id="L305" class="LineNr">305 </span> <span class="subxComment"># var curr/ecx: (addr byte) = start</span> +<span id="L306" class="LineNr">306 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L307" class="LineNr">307 </span> <span class="subxComment"># edx = end</span> +<span id="L308" class="LineNr">308 </span> 8b/-> *(ebp+0x10) 2/r32/edx +<span id="L309" class="LineNr">309 </span> <span class="subxComment"># eax = 0</span> +<span id="L310" class="LineNr">310 </span> b8/copy-to-eax 0/imm32 +<span id="L311" class="LineNr">311 </span> { +<span id="L312" class="LineNr">312 </span> <span class="subxComment"># if (curr >= end) break</span> +<span id="L313" class="LineNr">313 </span> 39/compare %ecx 2/r32/edx +<span id="L314" class="LineNr">314 </span> 73/jump-if-addr>= <span class="Constant">break</span>/disp8 +<span id="L315" class="LineNr">315 </span> <span class="subxComment"># print *curr</span> +<span id="L316" class="LineNr">316 </span> 8a/byte-> *ecx 0/r32/eax +<span id="L317" class="LineNr">317 </span> (<a href='501draw-text.mu.html#L84'>draw-grapheme-at-cursor</a> *(ebp+8) %eax *(ebp+0x14) *(ebp+0x18)) +<span id="L318" class="LineNr">318 </span> (<a href='501draw-text.mu.html#L221'>move-cursor-rightward-and-downward</a> *(ebp+8)) +<span id="L319" class="LineNr">319 </span> <span class="subxComment">#</span> +<span id="L320" class="LineNr">320 </span> 41/increment-ecx +<span id="L321" class="LineNr">321 </span> <span class="subxComment">#</span> +<span id="L322" class="LineNr">322 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L323" class="LineNr">323 </span> } +<span id="L324" class="LineNr">324 </span><span class="Constant">$draw-slice-wrapping-right-then-down-from-cursor-over-full-screen:end</span>: +<span id="L325" class="LineNr">325 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L326" class="LineNr">326 </span> 5a/pop-to-edx +<span id="L327" class="LineNr">327 </span> 59/pop-to-ecx +<span id="L328" class="LineNr">328 </span> 58/pop-to-eax +<span id="L329" class="LineNr">329 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L330" class="LineNr">330 </span> 89/<- %esp 5/r32/ebp +<span id="L331" class="LineNr">331 </span> 5d/pop-to-ebp +<span id="L332" class="LineNr">332 </span> c3/return +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/400.mu.html b/html/400.mu.html index 4f4888fa..e7a56322 100644 --- a/html/400.mu.html +++ b/html/400.mu.html @@ -53,105 +53,107 @@ if ('onhashchange' in window) { <body onload='JumpToLine();'> <a href='https://github.com/akkartik/mu/blob/main/400.mu'>https://github.com/akkartik/mu/blob/main/400.mu</a> <pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="muComment"># screen</span> -<span id="L2" class="LineNr"> 2 </span><span class="PreProc">sig</span> <a href='101screen.subx.html#L8'>pixel-on-real-screen</a> x: int, y: int, color: int -<span id="L3" class="LineNr"> 3 </span><span class="PreProc">sig</span> <a href='103grapheme.subx.html#L17'>draw-grapheme-on-real-screen</a> g: grapheme, x: int, y: int, color: int, background-color: int -<span id="L4" class="LineNr"> 4 </span><span class="PreProc">sig</span> <a href='103grapheme.subx.html#L96'>cursor-position-on-real-screen</a><span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">ecx</span>: int -<span id="L5" class="LineNr"> 5 </span><span class="PreProc">sig</span> <a href='103grapheme.subx.html#L109'>set-cursor-position-on-real-screen</a> x: int, y: int -<span id="L6" class="LineNr"> 6 </span><span class="PreProc">sig</span> <a href='103grapheme.subx.html#L134'>draw-cursor-on-real-screen</a> g: grapheme -<span id="L7" class="LineNr"> 7 </span><span class="PreProc">sig</span> <a href='316colors.subx.html#L7'>color-rgb</a> color: int<span class="PreProc"> -> </span>_/<span class="Constant">ecx</span>: int, _/<span class="Constant">edx</span>: int, _/<span class="Constant">ebx</span>: int -<span id="L8" class="LineNr"> 8 </span> -<span id="L9" class="LineNr"> 9 </span><span class="muComment"># keyboard</span> -<span id="L10" class="LineNr">10 </span><span class="PreProc">sig</span> <a href='102keyboard.subx.html#L21'>read-key</a> kbd: (addr keyboard)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: byte -<span id="L11" class="LineNr">11 </span> -<span id="L12" class="LineNr">12 </span><span class="muComment"># disk</span> -<span id="L13" class="LineNr">13 </span><span class="PreProc">sig</span> <a href='boot.subx.html#L925'>load-sectors</a> disk: (addr disk), lba: int, n: int, out: (addr stream byte) -<span id="L14" class="LineNr">14 </span><span class="PreProc">sig</span> <a href='boot.subx.html#L987'>store-sectors</a> disk: (addr disk), lba: int, n: int, out: (addr stream byte) -<span id="L15" class="LineNr">15 </span> -<span id="L16" class="LineNr">16 </span><span class="muComment"># mouse</span> -<span id="L17" class="LineNr">17 </span><span class="PreProc">sig</span> <a href='boot.subx.html#L1393'>read-mouse-event</a><span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">ecx</span>: int -<span id="L18" class="LineNr">18 </span> -<span id="L19" class="LineNr">19 </span><span class="muComment"># tests</span> -<span id="L20" class="LineNr">20 </span><span class="PreProc">sig</span> <a href='104test.subx.html#L5'>count-test-failure</a> -<span id="L21" class="LineNr">21 </span><span class="PreProc">sig</span> <a href='104test.subx.html#L17'>num-test-failures</a><span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int -<span id="L22" class="LineNr">22 </span> -<span id="L23" class="LineNr">23 </span><span class="PreProc">sig</span> <a href='105string-equal.subx.html#L8'>string-equal?</a> s: (addr array byte), benchmark: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L24" class="LineNr">24 </span><span class="PreProc">sig</span> <a href='105string-equal.subx.html#L50'>string-starts-with?</a> s: (addr array byte), benchmark: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L25" class="LineNr">25 </span><span class="PreProc">sig</span> <a href='105string-equal.subx.html#L213'>check-strings-equal</a> s: (addr array byte), expected: (addr array byte), msg: (addr array byte) -<span id="L26" class="LineNr">26 </span> -<span id="L27" class="LineNr">27 </span><span class="muComment"># debugging</span> -<span id="L28" class="LineNr">28 </span><span class="PreProc">sig</span> <a href='315stack-debug.subx.html#L5'>check-stack</a> -<span id="L29" class="LineNr">29 </span><span class="PreProc">sig</span> <a href='315stack-debug.subx.html#L26'>show-stack-state</a> -<span id="L30" class="LineNr">30 </span><span class="PreProc">sig</span> <a href='315stack-debug.subx.html#L56'>debug-print</a> x: (addr array byte), fg: int, bg: int -<span id="L31" class="LineNr">31 </span><span class="PreProc">sig</span> <a href='315stack-debug.subx.html#L84'>debug-print?</a><span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L32" class="LineNr">32 </span><span class="PreProc">sig</span> <a href='315stack-debug.subx.html#L96'>turn-on-debug-print</a> -<span id="L33" class="LineNr">33 </span><span class="PreProc">sig</span> <a href='315stack-debug.subx.html#L108'>turn-off-debug-print</a> -<span id="L34" class="LineNr">34 </span> -<span id="L35" class="LineNr">35 </span><span class="muComment"># streams</span> -<span id="L36" class="LineNr">36 </span><span class="PreProc">sig</span> <a href='106stream.subx.html#L20'>clear-stream</a> f: (addr stream _) -<span id="L37" class="LineNr">37 </span><span class="PreProc">sig</span> <a href='106stream.subx.html#L59'>rewind-stream</a> f: (addr stream _) -<span id="L38" class="LineNr">38 </span><span class="PreProc">sig</span> <a href='109stream-equal.subx.html#L9'>stream-data-equal?</a> f: (addr stream byte), s: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L39" class="LineNr">39 </span><span class="PreProc">sig</span> <a href='309stream.subx.html#L217'>streams-data-equal?</a> f: (addr stream byte), s: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L40" class="LineNr">40 </span><span class="PreProc">sig</span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> f: (addr stream byte), s: (addr array byte), msg: (addr array byte) -<span id="L41" class="LineNr">41 </span><span class="PreProc">sig</span> <a href='109stream-equal.subx.html#L230'>next-stream-line-equal?</a> f: (addr stream byte), s: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L42" class="LineNr">42 </span><span class="PreProc">sig</span> <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> f: (addr stream byte), s: (addr array byte), msg: (addr array byte) -<span id="L43" class="LineNr">43 </span><span class="PreProc">sig</span> <a href='108write.subx.html#L11'>write</a> f: (addr stream byte), s: (addr array byte) -<span id="L44" class="LineNr">44 </span><span class="PreProc">sig</span> <a href='113write-stream.subx.html#L8'>write-stream</a> f: (addr stream byte), s: (addr stream byte) -<span id="L45" class="LineNr">45 </span><span class="PreProc">sig</span> <a href='112read-byte.subx.html#L13'>read-byte</a> s: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: byte -<span id="L46" class="LineNr">46 </span><span class="PreProc">sig</span> <a href='115write-byte.subx.html#L12'>append-byte</a> f: (addr stream byte), n: int <span class="muComment"># really just a byte, but I want to pass in literal numbers</span> -<span id="L47" class="LineNr">47 </span><span class="muComment">#sig to-hex-char in/eax: int -> out/eax: int</span> -<span id="L48" class="LineNr">48 </span><span class="PreProc">sig</span> <a href='117write-int-hex.subx.html#L21'>append-byte-hex</a> f: (addr stream byte), n: int <span class="muComment"># really just a byte, but I want to pass in literal numbers</span> -<span id="L49" class="LineNr">49 </span><span class="PreProc">sig</span> <a href='117write-int-hex.subx.html#L92'>write-int32-hex</a> f: (addr stream byte), n: int -<span id="L50" class="LineNr">50 </span><span class="PreProc">sig</span> <a href='117write-int-hex.subx.html#L123'>write-int32-hex-bits</a> f: (addr stream byte), n: int, bits: int -<span id="L51" class="LineNr">51 </span><span class="PreProc">sig</span> <a href='118parse-hex-int.subx.html#L9'>hex-int?</a> in: (addr slice)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L52" class="LineNr">52 </span><span class="PreProc">sig</span> <a href='118parse-hex-int.subx.html#L354'>parse-hex-int</a> in: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int -<span id="L53" class="LineNr">53 </span><span class="PreProc">sig</span> <a href='118parse-hex-int.subx.html#L387'>parse-hex-int-from-slice</a> in: (addr slice)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int -<span id="L54" class="LineNr">54 </span><span class="muComment">#sig parse-hex-int-helper start: (addr byte), end: (addr byte) -> _/eax: int</span> -<span id="L55" class="LineNr">55 </span><span class="PreProc">sig</span> <a href='118parse-hex-int.subx.html#L701'>hex-digit?</a> c: byte<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L56" class="LineNr">56 </span><span class="muComment">#sig from-hex-char in/eax: byte -> out/eax: nibble</span> -<span id="L57" class="LineNr">57 </span><span class="PreProc">sig</span> <a href='311decimal-int.subx.html#L23'>parse-decimal-int</a> in: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int -<span id="L58" class="LineNr">58 </span><span class="PreProc">sig</span> <a href='311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> in: (addr slice)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int -<span id="L59" class="LineNr">59 </span><span class="PreProc">sig</span> <a href='311decimal-int.subx.html#L48'>parse-decimal-int-from-stream</a> in: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int -<span id="L60" class="LineNr">60 </span><span class="muComment">#sig parse-decimal-int-helper start: (addr byte), end: (addr byte) -> _/eax: int</span> -<span id="L61" class="LineNr">61 </span><span class="PreProc">sig</span> <a href='311decimal-int.subx.html#L312'>decimal-size</a> n: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int -<span id="L62" class="LineNr">62 </span><span class="muComment">#sig allocate ad: (addr allocation-descriptor), n: int, out: (addr handle _)</span> -<span id="L63" class="LineNr">63 </span><span class="muComment">#sig allocate-raw ad: (addr allocation-descriptor), n: int, out: (addr handle _)</span> -<span id="L64" class="LineNr">64 </span><span class="PreProc">sig</span> <a href='120allocate.subx.html#L226'>lookup</a> h: (handle _T)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: (addr _T) -<span id="L65" class="LineNr">65 </span><span class="PreProc">sig</span> <a href='120allocate.subx.html#L424'>handle-equal?</a> a: (handle _T), b: (handle _T)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L66" class="LineNr">66 </span><span class="PreProc">sig</span> <a href='120allocate.subx.html#L455'>copy-handle</a> src: (handle _T), dest: (addr handle _T) -<span id="L67" class="LineNr">67 </span><span class="muComment">#sig allocate-region ad: (addr allocation-descriptor), n: int, out: (addr handle allocation-descriptor)</span> -<span id="L68" class="LineNr">68 </span><span class="muComment">#sig allocate-array ad: (addr allocation-descriptor), n: int, out: (addr handle _)</span> -<span id="L69" class="LineNr">69 </span><span class="PreProc">sig</span> <a href='120allocate.subx.html#L669'>copy-array</a> ad: (addr allocation-descriptor), src: (addr array _T), out: (addr handle array _T) -<span id="L70" class="LineNr">70 </span><span class="muComment">#sig zero-out start: (addr byte), size: int</span> -<span id="L71" class="LineNr">71 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L9'>slice-empty?</a> s: (addr slice)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L72" class="LineNr">72 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L120'>slice-equal?</a> s: (addr slice), p: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L73" class="LineNr">73 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L487'>slice-starts-with?</a> s: (addr slice), head: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L74" class="LineNr">74 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L793'>write-slice</a> out: (addr stream byte), s: (addr slice) -<span id="L75" class="LineNr">75 </span><span class="muComment"># bad name alert</span> -<span id="L76" class="LineNr">76 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L901'>slice-to-string</a> ad: (addr allocation-descriptor), in: (addr slice), out: (addr handle array byte) -<span id="L77" class="LineNr">77 </span><span class="PreProc">sig</span> <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a> out: (addr stream byte), n: int -<span id="L78" class="LineNr">78 </span><span class="PreProc">sig</span> <a href='126write-int-decimal.subx.html#L299'>decimal-digit?</a> c: grapheme<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L79" class="LineNr">79 </span><span class="PreProc">sig</span> <a href='126write-int-decimal.subx.html#L398'>to-decimal-digit</a> in: grapheme<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int -<span id="L80" class="LineNr">80 </span><span class="muComment"># bad name alert</span> -<span id="L81" class="LineNr">81 </span><span class="muComment"># next-word really tokenizes</span> -<span id="L82" class="LineNr">82 </span><span class="muComment"># next-raw-word really reads whitespace-separated words</span> -<span id="L83" class="LineNr">83 </span><span class="PreProc">sig</span> <a href='127next-word.subx.html#L11'>next-word</a> line: (addr stream byte), out: (addr slice) <span class="muComment"># skips '#' comments</span> -<span id="L84" class="LineNr">84 </span><span class="PreProc">sig</span> <a href='127next-word.subx.html#L306'>next-raw-word</a> line: (addr stream byte), out: (addr slice) <span class="muComment"># does not skip '#' comments</span> -<span id="L85" class="LineNr">85 </span><span class="PreProc">sig</span> <a href='309stream.subx.html#L6'>stream-empty?</a> s: (addr stream _)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L86" class="LineNr">86 </span><span class="PreProc">sig</span> <a href='309stream.subx.html#L30'>stream-full?</a> s: (addr stream _)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L87" class="LineNr">87 </span><span class="PreProc">sig</span> <a href='310copy-bytes.subx.html#L60'>stream-to-array</a> in: (addr stream _), out: (addr handle array _) -<span id="L88" class="LineNr">88 </span><span class="PreProc">sig</span> <a href='310copy-bytes.subx.html#L120'>unquote-stream-to-array</a> in: (addr stream _), out: (addr handle array _) -<span id="L89" class="LineNr">89 </span><span class="PreProc">sig</span> <a href='309stream.subx.html#L160'>stream-first</a> s: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: byte -<span id="L90" class="LineNr">90 </span><span class="PreProc">sig</span> <a href='309stream.subx.html#L187'>stream-final</a> s: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: byte -<span id="L91" class="LineNr">91 </span> -<span id="L92" class="LineNr">92 </span><span class="muComment">#sig copy-bytes src: (addr byte), dest: (addr byte), n: int</span> -<span id="L93" class="LineNr">93 </span><span class="PreProc">sig</span> <a href='312copy.subx.html#L3'>copy-array-object</a> src: (addr array _), dest-ah: (addr handle array _) -<span id="L94" class="LineNr">94 </span><span class="PreProc">sig</span> <a href='301array-equal.subx.html#L5'>array-equal?</a> a: (addr array int), b: (addr array int)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L95" class="LineNr">95 </span><span class="PreProc">sig</span> <a href='301array-equal.subx.html#L368'>parse-array-of-ints</a> s: (addr array byte), out: (addr handle array int) -<span id="L96" class="LineNr">96 </span><span class="PreProc">sig</span> <a href='311decimal-int.subx.html#L623'>parse-array-of-decimal-ints</a> s: (addr array byte), out: (addr handle array int) -<span id="L97" class="LineNr">97 </span><span class="PreProc">sig</span> <a href='301array-equal.subx.html#L382'>check-array-equal</a> a: (addr array int), expected: (addr string), msg: (addr string) -<span id="L98" class="LineNr">98 </span> -<span id="L99" class="LineNr">99 </span><span class="PreProc">sig</span> <a href='314divide.subx.html#L3'>integer-divide</a> a: int, b: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">edx</span>: int +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># screen</span> +<span id="L2" class="LineNr"> 2 </span><span class="PreProc">sig</span> <a href='101screen.subx.html#L8'>pixel-on-real-screen</a> x: int, y: int, color: int +<span id="L3" class="LineNr"> 3 </span><span class="PreProc">sig</span> <a href='103grapheme.subx.html#L17'>draw-grapheme-on-real-screen</a> g: grapheme, x: int, y: int, color: int, background-color: int +<span id="L4" class="LineNr"> 4 </span><span class="PreProc">sig</span> <a href='103grapheme.subx.html#L96'>cursor-position-on-real-screen</a><span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">ecx</span>: int +<span id="L5" class="LineNr"> 5 </span><span class="PreProc">sig</span> <a href='103grapheme.subx.html#L109'>set-cursor-position-on-real-screen</a> x: int, y: int +<span id="L6" class="LineNr"> 6 </span><span class="PreProc">sig</span> <a href='103grapheme.subx.html#L134'>draw-cursor-on-real-screen</a> g: grapheme +<span id="L7" class="LineNr"> 7 </span><span class="PreProc">sig</span> <a href='316colors.subx.html#L7'>color-rgb</a> color: int<span class="PreProc"> -> </span>_/<span class="Constant">ecx</span>: int, _/<span class="Constant">edx</span>: int, _/<span class="Constant">ebx</span>: int +<span id="L8" class="LineNr"> 8 </span> +<span id="L9" class="LineNr"> 9 </span><span class="muComment"># keyboard</span> +<span id="L10" class="LineNr"> 10 </span><span class="PreProc">sig</span> <a href='102keyboard.subx.html#L21'>read-key</a> kbd: (addr keyboard)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: byte +<span id="L11" class="LineNr"> 11 </span> +<span id="L12" class="LineNr"> 12 </span><span class="muComment"># disk</span> +<span id="L13" class="LineNr"> 13 </span><span class="PreProc">sig</span> <a href='boot.subx.html#L946'>load-sectors</a> disk: (addr disk), lba: int, n: int, out: (addr stream byte) +<span id="L14" class="LineNr"> 14 </span><span class="PreProc">sig</span> <a href='boot.subx.html#L1009'>store-sectors</a> disk: (addr disk), lba: int, n: int, out: (addr stream byte) +<span id="L15" class="LineNr"> 15 </span> +<span id="L16" class="LineNr"> 16 </span><span class="muComment"># mouse</span> +<span id="L17" class="LineNr"> 17 </span><span class="PreProc">sig</span> <a href='boot.subx.html#L1415'>read-mouse-event</a><span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">ecx</span>: int +<span id="L18" class="LineNr"> 18 </span> +<span id="L19" class="LineNr"> 19 </span><span class="muComment"># tests</span> +<span id="L20" class="LineNr"> 20 </span><span class="PreProc">sig</span> <a href='104test.subx.html#L5'>count-test-failure</a> +<span id="L21" class="LineNr"> 21 </span><span class="PreProc">sig</span> <a href='104test.subx.html#L17'>num-test-failures</a><span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int +<span id="L22" class="LineNr"> 22 </span> +<span id="L23" class="LineNr"> 23 </span><span class="PreProc">sig</span> <a href='105string-equal.subx.html#L8'>string-equal?</a> s: (addr array byte), benchmark: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L24" class="LineNr"> 24 </span><span class="PreProc">sig</span> <a href='105string-equal.subx.html#L50'>string-starts-with?</a> s: (addr array byte), benchmark: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L25" class="LineNr"> 25 </span><span class="PreProc">sig</span> <a href='105string-equal.subx.html#L213'>check-strings-equal</a> s: (addr array byte), expected: (addr array byte), msg: (addr array byte) +<span id="L26" class="LineNr"> 26 </span> +<span id="L27" class="LineNr"> 27 </span><span class="muComment"># debugging</span> +<span id="L28" class="LineNr"> 28 </span><span class="PreProc">sig</span> <a href='315stack-debug.subx.html#L5'>check-stack</a> +<span id="L29" class="LineNr"> 29 </span><span class="PreProc">sig</span> <a href='315stack-debug.subx.html#L26'>show-stack-state</a> +<span id="L30" class="LineNr"> 30 </span><span class="PreProc">sig</span> <a href='315stack-debug.subx.html#L56'>debug-print</a> x: (addr array byte), fg: int, bg: int +<span id="L31" class="LineNr"> 31 </span><span class="PreProc">sig</span> <a href='315stack-debug.subx.html#L84'>debug-print?</a><span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L32" class="LineNr"> 32 </span><span class="PreProc">sig</span> <a href='315stack-debug.subx.html#L96'>turn-on-debug-print</a> +<span id="L33" class="LineNr"> 33 </span><span class="PreProc">sig</span> <a href='315stack-debug.subx.html#L108'>turn-off-debug-print</a> +<span id="L34" class="LineNr"> 34 </span><span class="PreProc">sig</span> <a href='317abort.subx.html#L5'>abort</a> e: (addr array byte) +<span id="L35" class="LineNr"> 35 </span><span class="PreProc">sig</span> <a href='317abort.subx.html#L21'>dump-call-stack</a> +<span id="L36" class="LineNr"> 36 </span> +<span id="L37" class="LineNr"> 37 </span><span class="muComment"># streams</span> +<span id="L38" class="LineNr"> 38 </span><span class="PreProc">sig</span> <a href='106stream.subx.html#L20'>clear-stream</a> f: (addr stream _) +<span id="L39" class="LineNr"> 39 </span><span class="PreProc">sig</span> <a href='106stream.subx.html#L59'>rewind-stream</a> f: (addr stream _) +<span id="L40" class="LineNr"> 40 </span><span class="PreProc">sig</span> <a href='109stream-equal.subx.html#L9'>stream-data-equal?</a> f: (addr stream byte), s: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L41" class="LineNr"> 41 </span><span class="PreProc">sig</span> <a href='309stream.subx.html#L211'>streams-data-equal?</a> f: (addr stream byte), s: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L42" class="LineNr"> 42 </span><span class="PreProc">sig</span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> f: (addr stream byte), s: (addr array byte), msg: (addr array byte) +<span id="L43" class="LineNr"> 43 </span><span class="PreProc">sig</span> <a href='109stream-equal.subx.html#L230'>next-stream-line-equal?</a> f: (addr stream byte), s: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L44" class="LineNr"> 44 </span><span class="PreProc">sig</span> <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> f: (addr stream byte), s: (addr array byte), msg: (addr array byte) +<span id="L45" class="LineNr"> 45 </span><span class="PreProc">sig</span> <a href='108write.subx.html#L11'>write</a> f: (addr stream byte), s: (addr array byte) +<span id="L46" class="LineNr"> 46 </span><span class="PreProc">sig</span> <a href='113write-stream.subx.html#L8'>write-stream</a> f: (addr stream byte), s: (addr stream byte) +<span id="L47" class="LineNr"> 47 </span><span class="PreProc">sig</span> <a href='112read-byte.subx.html#L13'>read-byte</a> s: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: byte +<span id="L48" class="LineNr"> 48 </span><span class="PreProc">sig</span> <a href='115write-byte.subx.html#L12'>append-byte</a> f: (addr stream byte), n: int <span class="muComment"># really just a byte, but I want to pass in literal numbers</span> +<span id="L49" class="LineNr"> 49 </span><span class="muComment">#sig to-hex-char in/eax: int -> out/eax: int</span> +<span id="L50" class="LineNr"> 50 </span><span class="PreProc">sig</span> <a href='117write-int-hex.subx.html#L21'>append-byte-hex</a> f: (addr stream byte), n: int <span class="muComment"># really just a byte, but I want to pass in literal numbers</span> +<span id="L51" class="LineNr"> 51 </span><span class="PreProc">sig</span> <a href='117write-int-hex.subx.html#L92'>write-int32-hex</a> f: (addr stream byte), n: int +<span id="L52" class="LineNr"> 52 </span><span class="PreProc">sig</span> <a href='117write-int-hex.subx.html#L123'>write-int32-hex-bits</a> f: (addr stream byte), n: int, bits: int +<span id="L53" class="LineNr"> 53 </span><span class="PreProc">sig</span> <a href='118parse-hex-int.subx.html#L9'>hex-int?</a> in: (addr slice)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L54" class="LineNr"> 54 </span><span class="PreProc">sig</span> <a href='118parse-hex-int.subx.html#L354'>parse-hex-int</a> in: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int +<span id="L55" class="LineNr"> 55 </span><span class="PreProc">sig</span> <a href='118parse-hex-int.subx.html#L387'>parse-hex-int-from-slice</a> in: (addr slice)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int +<span id="L56" class="LineNr"> 56 </span><span class="muComment">#sig parse-hex-int-helper start: (addr byte), end: (addr byte) -> _/eax: int</span> +<span id="L57" class="LineNr"> 57 </span><span class="PreProc">sig</span> <a href='118parse-hex-int.subx.html#L701'>hex-digit?</a> c: byte<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L58" class="LineNr"> 58 </span><span class="muComment">#sig from-hex-char in/eax: byte -> out/eax: nibble</span> +<span id="L59" class="LineNr"> 59 </span><span class="PreProc">sig</span> <a href='311decimal-int.subx.html#L23'>parse-decimal-int</a> in: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int +<span id="L60" class="LineNr"> 60 </span><span class="PreProc">sig</span> <a href='311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> in: (addr slice)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int +<span id="L61" class="LineNr"> 61 </span><span class="PreProc">sig</span> <a href='311decimal-int.subx.html#L48'>parse-decimal-int-from-stream</a> in: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int +<span id="L62" class="LineNr"> 62 </span><span class="muComment">#sig parse-decimal-int-helper start: (addr byte), end: (addr byte) -> _/eax: int</span> +<span id="L63" class="LineNr"> 63 </span><span class="PreProc">sig</span> <a href='311decimal-int.subx.html#L312'>decimal-size</a> n: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int +<span id="L64" class="LineNr"> 64 </span><span class="muComment">#sig allocate ad: (addr allocation-descriptor), n: int, out: (addr handle _)</span> +<span id="L65" class="LineNr"> 65 </span><span class="muComment">#sig allocate-raw ad: (addr allocation-descriptor), n: int, out: (addr handle _)</span> +<span id="L66" class="LineNr"> 66 </span><span class="PreProc">sig</span> <a href='120allocate.subx.html#L223'>lookup</a> h: (handle _T)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: (addr _T) +<span id="L67" class="LineNr"> 67 </span><span class="PreProc">sig</span> <a href='120allocate.subx.html#L448'>handle-equal?</a> a: (handle _T), b: (handle _T)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L68" class="LineNr"> 68 </span><span class="PreProc">sig</span> <a href='120allocate.subx.html#L479'>copy-handle</a> src: (handle _T), dest: (addr handle _T) +<span id="L69" class="LineNr"> 69 </span><span class="muComment">#sig allocate-region ad: (addr allocation-descriptor), n: int, out: (addr handle allocation-descriptor)</span> +<span id="L70" class="LineNr"> 70 </span><span class="muComment">#sig allocate-array ad: (addr allocation-descriptor), n: int, out: (addr handle _)</span> +<span id="L71" class="LineNr"> 71 </span><span class="PreProc">sig</span> <a href='120allocate.subx.html#L690'>copy-array</a> ad: (addr allocation-descriptor), src: (addr array _T), out: (addr handle array _T) +<span id="L72" class="LineNr"> 72 </span><span class="muComment">#sig zero-out start: (addr byte), size: int</span> +<span id="L73" class="LineNr"> 73 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L9'>slice-empty?</a> s: (addr slice)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L74" class="LineNr"> 74 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L120'>slice-equal?</a> s: (addr slice), p: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L75" class="LineNr"> 75 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L487'>slice-starts-with?</a> s: (addr slice), head: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L76" class="LineNr"> 76 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L793'>write-slice</a> out: (addr stream byte), s: (addr slice) +<span id="L77" class="LineNr"> 77 </span><span class="muComment"># bad name alert</span> +<span id="L78" class="LineNr"> 78 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L898'>slice-to-string</a> ad: (addr allocation-descriptor), in: (addr slice), out: (addr handle array byte) +<span id="L79" class="LineNr"> 79 </span><span class="PreProc">sig</span> <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a> out: (addr stream byte), n: int +<span id="L80" class="LineNr"> 80 </span><span class="PreProc">sig</span> <a href='126write-int-decimal.subx.html#L296'>decimal-digit?</a> c: grapheme<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L81" class="LineNr"> 81 </span><span class="PreProc">sig</span> <a href='126write-int-decimal.subx.html#L395'>to-decimal-digit</a> in: grapheme<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int +<span id="L82" class="LineNr"> 82 </span><span class="muComment"># bad name alert</span> +<span id="L83" class="LineNr"> 83 </span><span class="muComment"># next-word really tokenizes</span> +<span id="L84" class="LineNr"> 84 </span><span class="muComment"># next-raw-word really reads whitespace-separated words</span> +<span id="L85" class="LineNr"> 85 </span><span class="PreProc">sig</span> <a href='127next-word.subx.html#L11'>next-word</a> line: (addr stream byte), out: (addr slice) <span class="muComment"># skips '#' comments</span> +<span id="L86" class="LineNr"> 86 </span><span class="PreProc">sig</span> <a href='127next-word.subx.html#L306'>next-raw-word</a> line: (addr stream byte), out: (addr slice) <span class="muComment"># does not skip '#' comments</span> +<span id="L87" class="LineNr"> 87 </span><span class="PreProc">sig</span> <a href='309stream.subx.html#L6'>stream-empty?</a> s: (addr stream _)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L88" class="LineNr"> 88 </span><span class="PreProc">sig</span> <a href='309stream.subx.html#L30'>stream-full?</a> s: (addr stream _)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L89" class="LineNr"> 89 </span><span class="PreProc">sig</span> <a href='310copy-bytes.subx.html#L60'>stream-to-array</a> in: (addr stream _), out: (addr handle array _) +<span id="L90" class="LineNr"> 90 </span><span class="PreProc">sig</span> <a href='310copy-bytes.subx.html#L120'>unquote-stream-to-array</a> in: (addr stream _), out: (addr handle array _) +<span id="L91" class="LineNr"> 91 </span><span class="PreProc">sig</span> <a href='309stream.subx.html#L154'>stream-first</a> s: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: byte +<span id="L92" class="LineNr"> 92 </span><span class="PreProc">sig</span> <a href='309stream.subx.html#L181'>stream-final</a> s: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: byte +<span id="L93" class="LineNr"> 93 </span> +<span id="L94" class="LineNr"> 94 </span><span class="muComment">#sig copy-bytes src: (addr byte), dest: (addr byte), n: int</span> +<span id="L95" class="LineNr"> 95 </span><span class="PreProc">sig</span> <a href='312copy.subx.html#L3'>copy-array-object</a> src: (addr array _), dest-ah: (addr handle array _) +<span id="L96" class="LineNr"> 96 </span><span class="PreProc">sig</span> <a href='301array-equal.subx.html#L5'>array-equal?</a> a: (addr array int), b: (addr array int)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L97" class="LineNr"> 97 </span><span class="PreProc">sig</span> <a href='301array-equal.subx.html#L368'>parse-array-of-ints</a> s: (addr array byte), out: (addr handle array int) +<span id="L98" class="LineNr"> 98 </span><span class="PreProc">sig</span> <a href='311decimal-int.subx.html#L623'>parse-array-of-decimal-ints</a> s: (addr array byte), out: (addr handle array int) +<span id="L99" class="LineNr"> 99 </span><span class="PreProc">sig</span> <a href='301array-equal.subx.html#L382'>check-array-equal</a> a: (addr array int), expected: (addr string), msg: (addr string) +<span id="L100" class="LineNr">100 </span> +<span id="L101" class="LineNr">101 </span><span class="PreProc">sig</span> <a href='314divide.subx.html#L3'>integer-divide</a> a: int, b: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">edx</span>: int </pre> </body> </html> diff --git a/html/411string.mu.html b/html/411string.mu.html index 70cb7b88..34405d4c 100644 --- a/html/411string.mu.html +++ b/html/411string.mu.html @@ -102,46 +102,46 @@ if ('onhashchange' in window) { <span id="L42" class="LineNr"> 42 </span> <span class="PreProc">var</span> out-ah/<span class="Constant">edi</span>: (addr handle array byte) <span class="Special"><-</span> address out-h <span id="L43" class="LineNr"> 43 </span> <span class="muComment"># prefix substrings</span> <span id="L44" class="LineNr"> 44 </span> <a href='411string.mu.html#L2'>substring</a> <span class="Constant">0</span>, <span class="Constant">0</span>, <span class="Constant">3</span>, out-ah -<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *out-ah +<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L223'>lookup</a> *out-ah <span id="L46" class="LineNr"> 46 </span> <a href='105string-equal.subx.html#L213'>check-strings-equal</a> out, <span class="Constant">""</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/null"</span> <span id="L47" class="LineNr"> 47 </span> <a href='411string.mu.html#L2'>substring</a> <span class="Constant">""</span>, <span class="Constant">0</span>, <span class="Constant">3</span>, out-ah -<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *out-ah +<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L223'>lookup</a> *out-ah <span id="L49" class="LineNr"> 49 </span><span class="CommentedCode">#? print-string-to-real-screen out</span> <span id="L50" class="LineNr"> 50 </span><span class="CommentedCode">#? print-string-to-real-screen "\n"</span> <span id="L51" class="LineNr"> 51 </span> <a href='105string-equal.subx.html#L213'>check-strings-equal</a> out, <span class="Constant">""</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/empty"</span> <span id="L52" class="LineNr"> 52 </span> <span class="muComment">#</span> <span id="L53" class="LineNr"> 53 </span> <a href='411string.mu.html#L2'>substring</a> <span class="Constant">"abcde"</span>, <span class="Constant">0</span>, <span class="Constant">3</span>, out-ah -<span id="L54" class="LineNr"> 54 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *out-ah +<span id="L54" class="LineNr"> 54 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L223'>lookup</a> *out-ah <span id="L55" class="LineNr"> 55 </span><span class="CommentedCode">#? print-string-to-real-screen out</span> <span id="L56" class="LineNr"> 56 </span><span class="CommentedCode">#? print-string-to-real-screen "\n"</span> <span id="L57" class="LineNr"> 57 </span> <a href='105string-equal.subx.html#L213'>check-strings-equal</a> out, <span class="Constant">"abc"</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/truncate"</span> <span id="L58" class="LineNr"> 58 </span> <span class="muComment">#</span> <span id="L59" class="LineNr"> 59 </span> <a href='411string.mu.html#L2'>substring</a> <span class="Constant">"abcde"</span>, <span class="Constant">0</span>, <span class="Constant">5</span>, out-ah -<span id="L60" class="LineNr"> 60 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *out-ah +<span id="L60" class="LineNr"> 60 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L223'>lookup</a> *out-ah <span id="L61" class="LineNr"> 61 </span> <a href='105string-equal.subx.html#L213'>check-strings-equal</a> out, <span class="Constant">"abcde"</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/all"</span> <span id="L62" class="LineNr"> 62 </span> <span class="muComment">#</span> <span id="L63" class="LineNr"> 63 </span> <a href='411string.mu.html#L2'>substring</a> <span class="Constant">"abcde"</span>, <span class="Constant">0</span>, <span class="Constant">7</span>, out-ah -<span id="L64" class="LineNr"> 64 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *out-ah +<span id="L64" class="LineNr"> 64 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L223'>lookup</a> *out-ah <span id="L65" class="LineNr"> 65 </span> <a href='105string-equal.subx.html#L213'>check-strings-equal</a> out, <span class="Constant">"abcde"</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/too-small"</span> <span id="L66" class="LineNr"> 66 </span> <span class="muComment"># substrings outside string</span> <span id="L67" class="LineNr"> 67 </span> <a href='411string.mu.html#L2'>substring</a> <span class="Constant">"abcde"</span>, <span class="Constant">6</span>, <span class="Constant">1</span>, out-ah -<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *out-ah +<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L223'>lookup</a> *out-ah <span id="L69" class="LineNr"> 69 </span> <a href='105string-equal.subx.html#L213'>check-strings-equal</a> out, <span class="Constant">""</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/start-too-large"</span> <span id="L70" class="LineNr"> 70 </span> <span class="muComment"># trim prefix</span> <span id="L71" class="LineNr"> 71 </span> <a href='411string.mu.html#L2'>substring</a> <span class="Constant">""</span>, <span class="Constant">2</span>, <span class="Constant">3</span>, out-ah -<span id="L72" class="LineNr"> 72 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *out-ah +<span id="L72" class="LineNr"> 72 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L223'>lookup</a> *out-ah <span id="L73" class="LineNr"> 73 </span> <a href='105string-equal.subx.html#L213'>check-strings-equal</a> out, <span class="Constant">""</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/middle-empty"</span> <span id="L74" class="LineNr"> 74 </span> <span class="muComment">#</span> <span id="L75" class="LineNr"> 75 </span> <a href='411string.mu.html#L2'>substring</a> <span class="Constant">"abcde"</span>, <span class="Constant">1</span>, <span class="Constant">2</span>, out-ah -<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *out-ah +<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L223'>lookup</a> *out-ah <span id="L77" class="LineNr"> 77 </span> <a href='105string-equal.subx.html#L213'>check-strings-equal</a> out, <span class="Constant">"bc"</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/middle-truncate"</span> <span id="L78" class="LineNr"> 78 </span> <span class="muComment">#</span> <span id="L79" class="LineNr"> 79 </span> <a href='411string.mu.html#L2'>substring</a> <span class="Constant">"abcde"</span>, <span class="Constant">1</span>, <span class="Constant">4</span>, out-ah -<span id="L80" class="LineNr"> 80 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *out-ah +<span id="L80" class="LineNr"> 80 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L223'>lookup</a> *out-ah <span id="L81" class="LineNr"> 81 </span> <a href='105string-equal.subx.html#L213'>check-strings-equal</a> out, <span class="Constant">"bcde"</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/middle-all"</span> <span id="L82" class="LineNr"> 82 </span> <span class="muComment">#</span> <span id="L83" class="LineNr"> 83 </span> <a href='411string.mu.html#L2'>substring</a> <span class="Constant">"abcde"</span>, <span class="Constant">1</span>, <span class="Constant">5</span>, out-ah -<span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *out-ah +<span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L223'>lookup</a> *out-ah <span id="L85" class="LineNr"> 85 </span> <a href='105string-equal.subx.html#L213'>check-strings-equal</a> out, <span class="Constant">"bcde"</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/middle-too-small"</span> <span id="L86" class="LineNr"> 86 </span><span class="Delimiter">}</span> <span id="L87" class="LineNr"> 87 </span> diff --git a/html/500fake-screen.mu.html b/html/500fake-screen.mu.html index 81f96915..edf7b8f5 100644 --- a/html/500fake-screen.mu.html +++ b/html/500fake-screen.mu.html @@ -154,7 +154,7 @@ if ('onhashchange' in window) { <span id="L96" class="LineNr"> 96 </span> <span class="muComment"># fake screen</span> <span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='500fake-screen.mu.html#L120'>screen-cell-index</a> <a href='500fake-screen.mu.html#L14'>screen</a>, x, y <span id="L98" class="LineNr"> 98 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='500fake-screen.mu.html#L25'>screen-cell</a>) <span class="Special"><-</span> get <a href='500fake-screen.mu.html#L14'>screen</a>, data -<span id="L99" class="LineNr"> 99 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='500fake-screen.mu.html#L25'>screen-cell</a>) <span class="Special"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L99" class="LineNr"> 99 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='500fake-screen.mu.html#L25'>screen-cell</a>) <span class="Special"><-</span> <a href='120allocate.subx.html#L223'>lookup</a> *data-ah <span id="L100" class="LineNr">100 </span> <span class="PreProc">var</span> offset/<span class="Constant">ecx</span>: (offset <a href='500fake-screen.mu.html#L25'>screen-cell</a>) <span class="Special"><-</span> compute-offset data, idx <span id="L101" class="LineNr">101 </span> <span class="PreProc">var</span> dest-cell/<span class="Constant">ecx</span>: (addr <a href='500fake-screen.mu.html#L25'>screen-cell</a>) <span class="Special"><-</span> index data, offset <span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> dest-grapheme/<span class="Constant">eax</span>: (addr grapheme) <span class="Special"><-</span> get dest-cell, data @@ -180,26 +180,26 @@ if ('onhashchange' in window) { <span id="L122" class="LineNr">122 </span> <span class="Delimiter">{</span> <span id="L123" class="LineNr">123 </span> compare x, <span class="Constant">0</span> <span id="L124" class="LineNr">124 </span> <span class="PreProc">break-if->=</span> -<span id="L125" class="LineNr">125 </span> <a href='501draw-text.mu.html#L481'>abort</a> <span class="Constant">"screen-cell-index: negative x"</span> +<span id="L125" class="LineNr">125 </span> <a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"screen-cell-index: negative x"</span> <span id="L126" class="LineNr">126 </span> <span class="Delimiter">}</span> <span id="L127" class="LineNr">127 </span> <span class="Delimiter">{</span> <span id="L128" class="LineNr">128 </span> <span class="PreProc">var</span> xmax/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get <a href='500fake-screen.mu.html#L14'>screen</a>, width <span id="L129" class="LineNr">129 </span> <span class="PreProc">var</span> xcurr/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy x <span id="L130" class="LineNr">130 </span> compare xcurr, *xmax <span id="L131" class="LineNr">131 </span> <span class="PreProc">break-if-<</span> -<span id="L132" class="LineNr">132 </span> <a href='501draw-text.mu.html#L481'>abort</a> <span class="Constant">"screen-cell-index: x too high"</span> +<span id="L132" class="LineNr">132 </span> <a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"screen-cell-index: x too high"</span> <span id="L133" class="LineNr">133 </span> <span class="Delimiter">}</span> <span id="L134" class="LineNr">134 </span> <span class="Delimiter">{</span> <span id="L135" class="LineNr">135 </span> compare y, <span class="Constant">0</span> <span id="L136" class="LineNr">136 </span> <span class="PreProc">break-if->=</span> -<span id="L137" class="LineNr">137 </span> <a href='501draw-text.mu.html#L481'>abort</a> <span class="Constant">"screen-cell-index: negative y"</span> +<span id="L137" class="LineNr">137 </span> <a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"screen-cell-index: negative y"</span> <span id="L138" class="LineNr">138 </span> <span class="Delimiter">}</span> <span id="L139" class="LineNr">139 </span> <span class="Delimiter">{</span> <span id="L140" class="LineNr">140 </span> <span class="PreProc">var</span> ymax/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get <a href='500fake-screen.mu.html#L14'>screen</a>, height <span id="L141" class="LineNr">141 </span> <span class="PreProc">var</span> ycurr/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy y <span id="L142" class="LineNr">142 </span> compare ycurr, *ymax <span id="L143" class="LineNr">143 </span> <span class="PreProc">break-if-<</span> -<span id="L144" class="LineNr">144 </span> <a href='501draw-text.mu.html#L481'>abort</a> <span class="Constant">"screen-cell-index: y too high"</span> +<span id="L144" class="LineNr">144 </span> <a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"screen-cell-index: y too high"</span> <span id="L145" class="LineNr">145 </span> <span class="Delimiter">}</span> <span id="L146" class="LineNr">146 </span> <span class="PreProc">var</span> width-addr/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get <a href='500fake-screen.mu.html#L14'>screen</a>, width <span id="L147" class="LineNr">147 </span> <span class="PreProc">var</span> result/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy y @@ -314,7 +314,7 @@ if ('onhashchange' in window) { <span id="L256" class="LineNr">256 </span> <span class="Delimiter">}</span> <span id="L257" class="LineNr">257 </span> <a href='500fake-screen.mu.html#L169'>set-cursor-position</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>, <span class="Constant">0</span> <span id="L258" class="LineNr">258 </span> <span class="PreProc">var</span> pixels-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> get <a href='500fake-screen.mu.html#L14'>screen</a>, pixels -<span id="L259" class="LineNr">259 </span> <span class="PreProc">var</span> pixels/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *pixels-ah +<span id="L259" class="LineNr">259 </span> <span class="PreProc">var</span> pixels/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L223'>lookup</a> *pixels-ah <span id="L260" class="LineNr">260 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L261" class="LineNr">261 </span> <span class="PreProc">var</span> max/<span class="Constant">edx</span>: int <span class="Special"><-</span> length pixels <span id="L262" class="LineNr">262 </span> <span class="Delimiter">{</span> @@ -355,7 +355,7 @@ if ('onhashchange' in window) { <span id="L297" class="LineNr">297 </span> <span class="PreProc">loop</span> <span id="L298" class="LineNr">298 </span> <span class="Delimiter">}</span> <span id="L299" class="LineNr">299 </span> <span class="PreProc">var</span> pixels-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> get <a href='500fake-screen.mu.html#L14'>screen</a>, pixels -<span id="L300" class="LineNr">300 </span> <span class="PreProc">var</span> pixels/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *pixels-ah +<span id="L300" class="LineNr">300 </span> <span class="PreProc">var</span> pixels/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L223'>lookup</a> *pixels-ah <span id="L301" class="LineNr">301 </span> <span class="PreProc">var</span> y/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L302" class="LineNr">302 </span> <span class="PreProc">var</span> height-addr/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get <a href='500fake-screen.mu.html#L14'>screen</a>, height <span id="L303" class="LineNr">303 </span> <span class="PreProc">var</span> height/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy *height-addr @@ -471,7 +471,7 @@ if ('onhashchange' in window) { <span id="L413" class="LineNr">413 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='500fake-screen.mu.html#L413'>screen-grapheme-at-idx</a></span> _screen: (addr <a href='500fake-screen.mu.html#L14'>screen</a>), idx-on-stack: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> <span id="L414" class="LineNr">414 </span> <span class="PreProc">var</span> <a href='500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">esi</span>: (addr <a href='500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> copy _screen <span id="L415" class="LineNr">415 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='500fake-screen.mu.html#L25'>screen-cell</a>) <span class="Special"><-</span> get <a href='500fake-screen.mu.html#L14'>screen</a>, data -<span id="L416" class="LineNr">416 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='500fake-screen.mu.html#L25'>screen-cell</a>) <span class="Special"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L416" class="LineNr">416 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='500fake-screen.mu.html#L25'>screen-cell</a>) <span class="Special"><-</span> <a href='120allocate.subx.html#L223'>lookup</a> *data-ah <span id="L417" class="LineNr">417 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy idx-on-stack <span id="L418" class="LineNr">418 </span> <span class="PreProc">var</span> offset/<span class="Constant">ecx</span>: (offset <a href='500fake-screen.mu.html#L25'>screen-cell</a>) <span class="Special"><-</span> compute-offset data, idx <span id="L419" class="LineNr">419 </span> <span class="PreProc">var</span> cell/<span class="Constant">eax</span>: (addr <a href='500fake-screen.mu.html#L25'>screen-cell</a>) <span class="Special"><-</span> index data, offset @@ -489,7 +489,7 @@ if ('onhashchange' in window) { <span id="L431" class="LineNr">431 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='500fake-screen.mu.html#L431'>screen-color-at-idx</a></span> _screen: (addr <a href='500fake-screen.mu.html#L14'>screen</a>), idx-on-stack: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> <span id="L432" class="LineNr">432 </span> <span class="PreProc">var</span> <a href='500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">esi</span>: (addr <a href='500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> copy _screen <span id="L433" class="LineNr">433 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='500fake-screen.mu.html#L25'>screen-cell</a>) <span class="Special"><-</span> get <a href='500fake-screen.mu.html#L14'>screen</a>, data -<span id="L434" class="LineNr">434 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='500fake-screen.mu.html#L25'>screen-cell</a>) <span class="Special"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L434" class="LineNr">434 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='500fake-screen.mu.html#L25'>screen-cell</a>) <span class="Special"><-</span> <a href='120allocate.subx.html#L223'>lookup</a> *data-ah <span id="L435" class="LineNr">435 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy idx-on-stack <span id="L436" class="LineNr">436 </span> <span class="PreProc">var</span> offset/<span class="Constant">ecx</span>: (offset <a href='500fake-screen.mu.html#L25'>screen-cell</a>) <span class="Special"><-</span> compute-offset data, idx <span id="L437" class="LineNr">437 </span> <span class="PreProc">var</span> cell/<span class="Constant">eax</span>: (addr <a href='500fake-screen.mu.html#L25'>screen-cell</a>) <span class="Special"><-</span> index data, offset @@ -508,7 +508,7 @@ if ('onhashchange' in window) { <span id="L450" class="LineNr">450 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='500fake-screen.mu.html#L450'>screen-background-color-at-idx</a></span> _screen: (addr <a href='500fake-screen.mu.html#L14'>screen</a>), idx-on-stack: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> <span id="L451" class="LineNr">451 </span> <span class="PreProc">var</span> <a href='500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">esi</span>: (addr <a href='500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> copy _screen <span id="L452" class="LineNr">452 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='500fake-screen.mu.html#L25'>screen-cell</a>) <span class="Special"><-</span> get <a href='500fake-screen.mu.html#L14'>screen</a>, data -<span id="L453" class="LineNr">453 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='500fake-screen.mu.html#L25'>screen-cell</a>) <span class="Special"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L453" class="LineNr">453 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='500fake-screen.mu.html#L25'>screen-cell</a>) <span class="Special"><-</span> <a href='120allocate.subx.html#L223'>lookup</a> *data-ah <span id="L454" class="LineNr">454 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy idx-on-stack <span id="L455" class="LineNr">455 </span> <span class="PreProc">var</span> offset/<span class="Constant">ecx</span>: (offset <a href='500fake-screen.mu.html#L25'>screen-cell</a>) <span class="Special"><-</span> compute-offset data, idx <span id="L456" class="LineNr">456 </span> <span class="PreProc">var</span> cell/<span class="Constant">eax</span>: (addr <a href='500fake-screen.mu.html#L25'>screen-cell</a>) <span class="Special"><-</span> index data, offset @@ -527,11 +527,11 @@ if ('onhashchange' in window) { <span id="L469" class="LineNr">469 </span> <span class="muComment"># fake screen</span> <span id="L470" class="LineNr">470 </span> <span class="PreProc">var</span> <a href='500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">esi</span>: (addr <a href='500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> copy <a href='500fake-screen.mu.html#L14'>screen</a> <span id="L471" class="LineNr">471 </span> <span class="PreProc">var</span> pixels-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> get <a href='500fake-screen.mu.html#L14'>screen</a>, pixels -<span id="L472" class="LineNr">472 </span> <span class="PreProc">var</span> pixels/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *pixels-ah +<span id="L472" class="LineNr">472 </span> <span class="PreProc">var</span> pixels/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L223'>lookup</a> *pixels-ah <span id="L473" class="LineNr">473 </span> <span class="Delimiter">{</span> <span id="L474" class="LineNr">474 </span> compare pixels, <span class="Constant">0</span> <span id="L475" class="LineNr">475 </span> <span class="PreProc">break-if-!=</span> -<span id="L476" class="LineNr">476 </span> <a href='501draw-text.mu.html#L481'>abort</a> <span class="Constant">"pixel graphics not enabled for this screen"</span> +<span id="L476" class="LineNr">476 </span> <a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"pixel graphics not enabled for this screen"</span> <span id="L477" class="LineNr">477 </span> <span class="Delimiter">}</span> <span id="L478" class="LineNr">478 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='500fake-screen.mu.html#L484'>pixel-index</a> <a href='500fake-screen.mu.html#L14'>screen</a>, x, y <span id="L479" class="LineNr">479 </span> <span class="PreProc">var</span> dest/<span class="Constant">ecx</span>: (addr byte) <span class="Special"><-</span> index pixels, idx @@ -544,7 +544,7 @@ if ('onhashchange' in window) { <span id="L486" class="LineNr">486 </span> <span class="Delimiter">{</span> <span id="L487" class="LineNr">487 </span> compare x, <span class="Constant">0</span> <span id="L488" class="LineNr">488 </span> <span class="PreProc">break-if->=</span> -<span id="L489" class="LineNr">489 </span> <a href='501draw-text.mu.html#L481'>abort</a> <span class="Constant">"screen-cell-index: negative x"</span> +<span id="L489" class="LineNr">489 </span> <a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"screen-cell-index: negative x"</span> <span id="L490" class="LineNr">490 </span> <span class="Delimiter">}</span> <span id="L491" class="LineNr">491 </span> <span class="Delimiter">{</span> <span id="L492" class="LineNr">492 </span> <span class="PreProc">var</span> xmax-a/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get <a href='500fake-screen.mu.html#L14'>screen</a>, width @@ -552,12 +552,12 @@ if ('onhashchange' in window) { <span id="L494" class="LineNr">494 </span> xmax <span class="Special"><-</span> shift-left <span class="Constant">3</span>/log2-font-width <span id="L495" class="LineNr">495 </span> compare x, xmax <span id="L496" class="LineNr">496 </span> <span class="PreProc">break-if-<</span> -<span id="L497" class="LineNr">497 </span> <a href='501draw-text.mu.html#L481'>abort</a> <span class="Constant">"screen-cell-index: x too high"</span> +<span id="L497" class="LineNr">497 </span> <a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"screen-cell-index: x too high"</span> <span id="L498" class="LineNr">498 </span> <span class="Delimiter">}</span> <span id="L499" class="LineNr">499 </span> <span class="Delimiter">{</span> <span id="L500" class="LineNr">500 </span> compare y, <span class="Constant">0</span> <span id="L501" class="LineNr">501 </span> <span class="PreProc">break-if->=</span> -<span id="L502" class="LineNr">502 </span> <a href='501draw-text.mu.html#L481'>abort</a> <span class="Constant">"screen-cell-index: negative y"</span> +<span id="L502" class="LineNr">502 </span> <a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"screen-cell-index: negative y"</span> <span id="L503" class="LineNr">503 </span> <span class="Delimiter">}</span> <span id="L504" class="LineNr">504 </span> <span class="Delimiter">{</span> <span id="L505" class="LineNr">505 </span> <span class="PreProc">var</span> ymax-a/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get <a href='500fake-screen.mu.html#L14'>screen</a>, height @@ -565,7 +565,7 @@ if ('onhashchange' in window) { <span id="L507" class="LineNr">507 </span> ymax <span class="Special"><-</span> shift-left <span class="Constant">4</span>/log2-font-height <span id="L508" class="LineNr">508 </span> compare y, ymax <span id="L509" class="LineNr">509 </span> <span class="PreProc">break-if-<</span> -<span id="L510" class="LineNr">510 </span> <a href='501draw-text.mu.html#L481'>abort</a> <span class="Constant">"screen-cell-index: y too high"</span> +<span id="L510" class="LineNr">510 </span> <a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"screen-cell-index: y too high"</span> <span id="L511" class="LineNr">511 </span> <span class="Delimiter">}</span> <span id="L512" class="LineNr">512 </span> <span class="PreProc">var</span> width-addr/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get <a href='500fake-screen.mu.html#L14'>screen</a>, width <span id="L513" class="LineNr">513 </span> <span class="PreProc">var</span> result/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy y @@ -574,6 +574,45 @@ if ('onhashchange' in window) { <span id="L516" class="LineNr">516 </span> result <span class="Special"><-</span> add x <span id="L517" class="LineNr">517 </span> <span class="PreProc">return</span> result <span id="L518" class="LineNr">518 </span><span class="Delimiter">}</span> +<span id="L519" class="LineNr">519 </span> +<span id="L520" class="LineNr">520 </span><span class="muComment"># double-buffering primitive</span> +<span id="L521" class="LineNr">521 </span><span class="muComment"># 'screen' must be a fake screen. 'target-screen' is usually real.</span> +<span id="L522" class="LineNr">522 </span><span class="muComment"># Both screens must have the same size.</span> +<span id="L523" class="LineNr">523 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='500fake-screen.mu.html#L523'>copy-pixels</a></span> _screen: (addr <a href='500fake-screen.mu.html#L14'>screen</a>), target-screen: (addr <a href='500fake-screen.mu.html#L14'>screen</a>) <span class="Delimiter">{</span> +<span id="L524" class="LineNr">524 </span> <span class="PreProc">var</span> <a href='500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">esi</span>: (addr <a href='500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> copy _screen +<span id="L525" class="LineNr">525 </span> <span class="PreProc">var</span> pixels-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> get <a href='500fake-screen.mu.html#L14'>screen</a>, pixels +<span id="L526" class="LineNr">526 </span> <span class="PreProc">var</span> _pixels/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L223'>lookup</a> *pixels-ah +<span id="L527" class="LineNr">527 </span> <span class="PreProc">var</span> pixels/<span class="Constant">edi</span>: (addr array byte) <span class="Special"><-</span> copy _pixels +<span id="L528" class="LineNr">528 </span> <span class="PreProc">var</span> width-a/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get <a href='500fake-screen.mu.html#L14'>screen</a>, width +<span id="L529" class="LineNr">529 </span> <span class="PreProc">var</span> width/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy *width-a +<span id="L530" class="LineNr">530 </span> width <span class="Special"><-</span> shift-left <span class="Constant">3</span>/log2-font-width +<span id="L531" class="LineNr">531 </span> <span class="PreProc">var</span> height-a/<span class="Constant">ebx</span>: (addr int) <span class="Special"><-</span> get <a href='500fake-screen.mu.html#L14'>screen</a>, height +<span id="L532" class="LineNr">532 </span> <span class="PreProc">var</span> height/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy *height-a +<span id="L533" class="LineNr">533 </span> height <span class="Special"><-</span> shift-left <span class="Constant">4</span>/log2-font-height +<span id="L534" class="LineNr">534 </span> <span class="PreProc">var</span> i/<span class="Constant">esi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L535" class="LineNr">535 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L536" class="LineNr">536 </span> <span class="Delimiter">{</span> +<span id="L537" class="LineNr">537 </span> <span class="muComment"># screen top left pixels x y width height</span> +<span id="L538" class="LineNr">538 </span> compare y, height +<span id="L539" class="LineNr">539 </span> <span class="PreProc">break-if->=</span> +<span id="L540" class="LineNr">540 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L541" class="LineNr">541 </span> <span class="Delimiter">{</span> +<span id="L542" class="LineNr">542 </span> compare x, width +<span id="L543" class="LineNr">543 </span> <span class="PreProc">break-if->=</span> +<span id="L544" class="LineNr">544 </span> <span class="Delimiter">{</span> +<span id="L545" class="LineNr">545 </span> <span class="PreProc">var</span> color-addr/<span class="Constant">ebx</span>: (addr byte) <span class="Special"><-</span> index pixels, i +<span id="L546" class="LineNr">546 </span> <span class="PreProc">var</span> color/<span class="Constant">ebx</span>: byte <span class="Special"><-</span> copy-byte *color-addr +<span id="L547" class="LineNr">547 </span> <span class="PreProc">var</span> color2/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy color +<span id="L548" class="LineNr">548 </span> <a href='500fake-screen.mu.html#L462'>pixel</a> target-screen, x, y, color2 +<span id="L549" class="LineNr">549 </span> <span class="Delimiter">}</span> +<span id="L550" class="LineNr">550 </span> x <span class="Special"><-</span> increment +<span id="L551" class="LineNr">551 </span> i <span class="Special"><-</span> increment +<span id="L552" class="LineNr">552 </span> <span class="PreProc">loop</span> +<span id="L553" class="LineNr">553 </span> <span class="Delimiter">}</span> +<span id="L554" class="LineNr">554 </span> y <span class="Special"><-</span> increment +<span id="L555" class="LineNr">555 </span> <span class="PreProc">loop</span> +<span id="L556" class="LineNr">556 </span> <span class="Delimiter">}</span> +<span id="L557" class="LineNr">557 </span><span class="Delimiter">}</span> </pre> </body> </html> diff --git a/html/501draw-text.mu.html b/html/501draw-text.mu.html index bc18cb25..0e951a27 100644 --- a/html/501draw-text.mu.html +++ b/html/501draw-text.mu.html @@ -533,17 +533,6 @@ if ('onhashchange' in window) { <span id="L475" class="LineNr">475 </span> width, height <span class="Special"><-</span> <a href='500fake-screen.mu.html#L70'>screen-size</a> <a href='500fake-screen.mu.html#L14'>screen</a> <span id="L476" class="LineNr">476 </span> <a href='501draw-text.mu.html#L457'>draw-text-wrapping-down-then-right-from-cursor</a> <a href='500fake-screen.mu.html#L14'>screen</a>, text, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, width, height, color, background-color <span id="L477" class="LineNr">477 </span><span class="Delimiter">}</span> -<span id="L478" class="LineNr">478 </span> -<span id="L479" class="LineNr">479 </span><span class="muComment"># hacky error-handling</span> -<span id="L480" class="LineNr">480 </span><span class="muComment"># just go into an infinite loop</span> -<span id="L481" class="LineNr">481 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L481'>abort</a></span> e: (addr array byte) <span class="Delimiter">{</span> -<span id="L482" class="LineNr">482 </span> <span class="PreProc">var</span> dummy1/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L483" class="LineNr">483 </span> <span class="PreProc">var</span> dummy2/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L484" class="LineNr">484 </span> dummy1, dummy2 <span class="Special"><-</span> <a href='501draw-text.mu.html#L235'>draw-text-wrapping-right-then-down-over-full-screen</a> <span class="Constant">0</span>/screen, e, <span class="Constant">0</span>/x, <span class="Constant">0x2f</span>/y, <span class="Constant">0xf</span>/fg=white, <span class="Constant">0xc</span>/bg=red -<span id="L485" class="LineNr">485 </span> <span class="Delimiter">{</span> -<span id="L486" class="LineNr">486 </span> <span class="PreProc">loop</span> -<span id="L487" class="LineNr">487 </span> <span class="Delimiter">}</span> -<span id="L488" class="LineNr">488 </span><span class="Delimiter">}</span> </pre> </body> </html> diff --git a/html/506math.mu.html b/html/506math.mu.html new file mode 100644 index 00000000..9309b20c --- /dev/null +++ b/html/506math.mu.html @@ -0,0 +1,114 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - 506math.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-dark"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #a8a8a8; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #a8a8a8; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.PreProc { color: #c000c0; } +.LineNr { } +.Delimiter { color: #c000c0; } +.Constant { color: #008787; } +.muFunction { color: #af5f00; text-decoration: underline; } +.Special { color: #ff6060; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/506math.mu'>https://github.com/akkartik/mu/blob/main/506math.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='506math.mu.html#L1'>abs</a></span> n: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L2" class="LineNr"> 2 </span> compare n, <span class="Constant">0</span> +<span id="L3" class="LineNr"> 3 </span> <span class="Delimiter">{</span> +<span id="L4" class="LineNr"> 4 </span> <span class="PreProc">break-if->=</span> +<span id="L5" class="LineNr"> 5 </span> negate n +<span id="L6" class="LineNr"> 6 </span> <span class="Delimiter">}</span> +<span id="L7" class="LineNr"> 7 </span> <span class="PreProc">return</span> n +<span id="L8" class="LineNr"> 8 </span><span class="Delimiter">}</span> +<span id="L9" class="LineNr"> 9 </span> +<span id="L10" class="LineNr">10 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='506math.mu.html#L10'>sgn</a></span> n: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L11" class="LineNr">11 </span> compare n, <span class="Constant">0</span> +<span id="L12" class="LineNr">12 </span> <span class="Delimiter">{</span> +<span id="L13" class="LineNr">13 </span> <span class="PreProc">break-if-<=</span> +<span id="L14" class="LineNr">14 </span> <span class="PreProc">return</span> <span class="Constant">1</span> +<span id="L15" class="LineNr">15 </span> <span class="Delimiter">}</span> +<span id="L16" class="LineNr">16 </span> <span class="Delimiter">{</span> +<span id="L17" class="LineNr">17 </span> <span class="PreProc">break-if->=</span> +<span id="L18" class="LineNr">18 </span> <span class="PreProc">return</span> <span class="Constant">-1</span> +<span id="L19" class="LineNr">19 </span> <span class="Delimiter">}</span> +<span id="L20" class="LineNr">20 </span> <span class="PreProc">return</span> <span class="Constant">0</span> +<span id="L21" class="LineNr">21 </span><span class="Delimiter">}</span> +<span id="L22" class="LineNr">22 </span> +<span id="L23" class="LineNr">23 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='506math.mu.html#L23'>shift-left-by</a></span> n: int, bits: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L24" class="LineNr">24 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy bits +<span id="L25" class="LineNr">25 </span> <span class="Delimiter">{</span> +<span id="L26" class="LineNr">26 </span> compare i, <span class="Constant">0</span> +<span id="L27" class="LineNr">27 </span> <span class="PreProc">break-if-<=</span> +<span id="L28" class="LineNr">28 </span> shift-left n, <span class="Constant">1</span> +<span id="L29" class="LineNr">29 </span> i <span class="Special"><-</span> decrement +<span id="L30" class="LineNr">30 </span> <span class="PreProc">loop</span> +<span id="L31" class="LineNr">31 </span> <span class="Delimiter">}</span> +<span id="L32" class="LineNr">32 </span> <span class="PreProc">return</span> n +<span id="L33" class="LineNr">33 </span><span class="Delimiter">}</span> +<span id="L34" class="LineNr">34 </span> +<span id="L35" class="LineNr">35 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='506math.mu.html#L35'>shift-right-by</a></span> n: int, bits: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L36" class="LineNr">36 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy bits +<span id="L37" class="LineNr">37 </span> <span class="Delimiter">{</span> +<span id="L38" class="LineNr">38 </span> compare i, <span class="Constant">0</span> +<span id="L39" class="LineNr">39 </span> <span class="PreProc">break-if-<=</span> +<span id="L40" class="LineNr">40 </span> shift-right n, <span class="Constant">1</span> +<span id="L41" class="LineNr">41 </span> i <span class="Special"><-</span> decrement +<span id="L42" class="LineNr">42 </span> <span class="PreProc">loop</span> +<span id="L43" class="LineNr">43 </span> <span class="Delimiter">}</span> +<span id="L44" class="LineNr">44 </span> <span class="PreProc">return</span> n +<span id="L45" class="LineNr">45 </span><span class="Delimiter">}</span> +<span id="L46" class="LineNr">46 </span> +<span id="L47" class="LineNr">47 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='506math.mu.html#L47'>clear-lowest-bits</a></span> _n: (addr int), bits: int <span class="Delimiter">{</span> +<span id="L48" class="LineNr">48 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr int) <span class="Special"><-</span> copy _n +<span id="L49" class="LineNr">49 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *dest +<span id="L50" class="LineNr">50 </span> n <span class="Special"><-</span> <a href='506math.mu.html#L35'>shift-right-by</a> n, bits +<span id="L51" class="LineNr">51 </span> n <span class="Special"><-</span> <a href='506math.mu.html#L23'>shift-left-by</a> n, bits +<span id="L52" class="LineNr">52 </span> copy-to *dest, n +<span id="L53" class="LineNr">53 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/507line.mu.html b/html/507line.mu.html new file mode 100644 index 00000000..df492c93 --- /dev/null +++ b/html/507line.mu.html @@ -0,0 +1,171 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - 507line.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-dark"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #a8a8a8; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #a8a8a8; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } +.LineNr { } +.Constant { color: #008787; } +.Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.muComment { color: #005faf; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/507line.mu'>https://github.com/akkartik/mu/blob/main/507line.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='507line.mu.html#L1'>draw-line</a></span> <a href='500fake-screen.mu.html#L14'>screen</a>: (addr <a href='500fake-screen.mu.html#L14'>screen</a>), x0: int, y0: int, x1: int, y1: int, color: int <span class="Delimiter">{</span> +<span id="L2" class="LineNr"> 2 </span> <span class="PreProc">var</span> dx: int +<span id="L3" class="LineNr"> 3 </span> <span class="PreProc">var</span> dy: int +<span id="L4" class="LineNr"> 4 </span> <span class="PreProc">var</span> sx: int +<span id="L5" class="LineNr"> 5 </span> <span class="PreProc">var</span> sy: int +<span id="L6" class="LineNr"> 6 </span> <span class="PreProc">var</span> err: int +<span id="L7" class="LineNr"> 7 </span> <span class="muComment"># dx = abs(x1-x0)</span> +<span id="L8" class="LineNr"> 8 </span> <span class="PreProc">var</span> tmp2/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy x1 +<span id="L9" class="LineNr"> 9 </span> tmp2 <span class="Special"><-</span> subtract x0 +<span id="L10" class="LineNr"> 10 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='506math.mu.html#L1'>abs</a> tmp2 +<span id="L11" class="LineNr"> 11 </span> copy-to dx, tmp +<span id="L12" class="LineNr"> 12 </span> <span class="muComment"># sx = sgn(x1-x0)</span> +<span id="L13" class="LineNr"> 13 </span> tmp <span class="Special"><-</span> <a href='506math.mu.html#L10'>sgn</a> tmp2 +<span id="L14" class="LineNr"> 14 </span> copy-to sx, tmp +<span id="L15" class="LineNr"> 15 </span> <span class="muComment"># dy = -abs(y1-y0)</span> +<span id="L16" class="LineNr"> 16 </span> tmp2 <span class="Special"><-</span> copy y1 +<span id="L17" class="LineNr"> 17 </span> tmp2 <span class="Special"><-</span> subtract y0 +<span id="L18" class="LineNr"> 18 </span> tmp <span class="Special"><-</span> <a href='506math.mu.html#L1'>abs</a> tmp2 +<span id="L19" class="LineNr"> 19 </span> tmp <span class="Special"><-</span> negate +<span id="L20" class="LineNr"> 20 </span> copy-to dy, tmp +<span id="L21" class="LineNr"> 21 </span> <span class="muComment"># sy = sgn(y1-y0)</span> +<span id="L22" class="LineNr"> 22 </span> tmp <span class="Special"><-</span> <a href='506math.mu.html#L10'>sgn</a> tmp2 +<span id="L23" class="LineNr"> 23 </span> copy-to sy, tmp +<span id="L24" class="LineNr"> 24 </span> <span class="muComment"># err = dx + dy</span> +<span id="L25" class="LineNr"> 25 </span> tmp <span class="Special"><-</span> copy dy +<span id="L26" class="LineNr"> 26 </span> tmp <span class="Special"><-</span> add dx +<span id="L27" class="LineNr"> 27 </span> copy-to err, tmp +<span id="L28" class="LineNr"> 28 </span> <span class="muComment">#</span> +<span id="L29" class="LineNr"> 29 </span> <span class="PreProc">var</span> x/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy x0 +<span id="L30" class="LineNr"> 30 </span> <span class="PreProc">var</span> y/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy y0 +<span id="L31" class="LineNr"> 31 </span> $draw-line:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> +<span id="L32" class="LineNr"> 32 </span> <a href='500fake-screen.mu.html#L462'>pixel</a> <a href='500fake-screen.mu.html#L14'>screen</a>, x, y, color +<span id="L33" class="LineNr"> 33 </span> <span class="muComment"># if (x == x1 && y == y1) break</span> +<span id="L34" class="LineNr"> 34 </span> <span class="Delimiter">{</span> +<span id="L35" class="LineNr"> 35 </span> compare x, x1 +<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">break-if-!=</span> +<span id="L37" class="LineNr"> 37 </span> compare y, y1 +<span id="L38" class="LineNr"> 38 </span> <span class="PreProc">break-if-!=</span> +<span id="L39" class="LineNr"> 39 </span> <span class="PreProc">break</span> $draw-line:<span class="PreProc">loop</span> +<span id="L40" class="LineNr"> 40 </span> <span class="Delimiter">}</span> +<span id="L41" class="LineNr"> 41 </span> <span class="muComment"># e2 = err*2</span> +<span id="L42" class="LineNr"> 42 </span> <span class="PreProc">var</span> e2/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy err +<span id="L43" class="LineNr"> 43 </span> e2 <span class="Special"><-</span> shift-left <span class="Constant">1</span> +<span id="L44" class="LineNr"> 44 </span> <span class="muComment"># if (e2 >= dy) { err += dy; x += sx; }</span> +<span id="L45" class="LineNr"> 45 </span> <span class="Delimiter">{</span> +<span id="L46" class="LineNr"> 46 </span> compare e2, dy +<span id="L47" class="LineNr"> 47 </span> <span class="PreProc">break-if-<</span> +<span id="L48" class="LineNr"> 48 </span> tmp <span class="Special"><-</span> copy dy +<span id="L49" class="LineNr"> 49 </span> add-to err, tmp +<span id="L50" class="LineNr"> 50 </span> x <span class="Special"><-</span> add sx +<span id="L51" class="LineNr"> 51 </span> <span class="Delimiter">}</span> +<span id="L52" class="LineNr"> 52 </span> <span class="muComment"># if (e2 <= dx) { err += dx; y += sy; }</span> +<span id="L53" class="LineNr"> 53 </span> <span class="Delimiter">{</span> +<span id="L54" class="LineNr"> 54 </span> compare e2, dx +<span id="L55" class="LineNr"> 55 </span> <span class="PreProc">break-if-></span> +<span id="L56" class="LineNr"> 56 </span> tmp <span class="Special"><-</span> copy dx +<span id="L57" class="LineNr"> 57 </span> add-to err, tmp +<span id="L58" class="LineNr"> 58 </span> y <span class="Special"><-</span> add sy +<span id="L59" class="LineNr"> 59 </span> <span class="Delimiter">}</span> +<span id="L60" class="LineNr"> 60 </span> <span class="PreProc">loop</span> +<span id="L61" class="LineNr"> 61 </span> <span class="Delimiter">}</span> +<span id="L62" class="LineNr"> 62 </span><span class="Delimiter">}</span> +<span id="L63" class="LineNr"> 63 </span> +<span id="L64" class="LineNr"> 64 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='507line.mu.html#L64'>draw-horizontal-line</a></span> <a href='500fake-screen.mu.html#L14'>screen</a>: (addr <a href='500fake-screen.mu.html#L14'>screen</a>), y: int, x0: int, x1: int, color: int <span class="Delimiter">{</span> +<span id="L65" class="LineNr"> 65 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy x0 +<span id="L66" class="LineNr"> 66 </span> <span class="Delimiter">{</span> +<span id="L67" class="LineNr"> 67 </span> compare x, x1 +<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">break-if->=</span> +<span id="L69" class="LineNr"> 69 </span> <a href='500fake-screen.mu.html#L462'>pixel</a> <a href='500fake-screen.mu.html#L14'>screen</a>, x, y, color +<span id="L70" class="LineNr"> 70 </span> x <span class="Special"><-</span> increment +<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">loop</span> +<span id="L72" class="LineNr"> 72 </span> <span class="Delimiter">}</span> +<span id="L73" class="LineNr"> 73 </span><span class="Delimiter">}</span> +<span id="L74" class="LineNr"> 74 </span> +<span id="L75" class="LineNr"> 75 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='507line.mu.html#L75'>draw-vertical-line</a></span> <a href='500fake-screen.mu.html#L14'>screen</a>: (addr <a href='500fake-screen.mu.html#L14'>screen</a>), x: int, y0: int, y1: int, color: int <span class="Delimiter">{</span> +<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> y/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy y0 +<span id="L77" class="LineNr"> 77 </span> <span class="Delimiter">{</span> +<span id="L78" class="LineNr"> 78 </span> compare y, y1 +<span id="L79" class="LineNr"> 79 </span> <span class="PreProc">break-if->=</span> +<span id="L80" class="LineNr"> 80 </span> <a href='500fake-screen.mu.html#L462'>pixel</a> <a href='500fake-screen.mu.html#L14'>screen</a>, x, y, color +<span id="L81" class="LineNr"> 81 </span> y <span class="Special"><-</span> increment +<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">loop</span> +<span id="L83" class="LineNr"> 83 </span> <span class="Delimiter">}</span> +<span id="L84" class="LineNr"> 84 </span><span class="Delimiter">}</span> +<span id="L85" class="LineNr"> 85 </span> +<span id="L86" class="LineNr"> 86 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='507line.mu.html#L86'>draw-rect</a></span> <a href='500fake-screen.mu.html#L14'>screen</a>: (addr <a href='500fake-screen.mu.html#L14'>screen</a>), xmin: int, ymin: int, xmax: int, ymax: int, color: int <span class="Delimiter">{</span> +<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> y/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy ymin +<span id="L88" class="LineNr"> 88 </span> <span class="Delimiter">{</span> +<span id="L89" class="LineNr"> 89 </span> compare y, ymax +<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">break-if->=</span> +<span id="L91" class="LineNr"> 91 </span> <a href='507line.mu.html#L64'>draw-horizontal-line</a> <a href='500fake-screen.mu.html#L14'>screen</a>, y, xmin, xmax, color +<span id="L92" class="LineNr"> 92 </span> y <span class="Special"><-</span> increment +<span id="L93" class="LineNr"> 93 </span> <span class="PreProc">loop</span> +<span id="L94" class="LineNr"> 94 </span> <span class="Delimiter">}</span> +<span id="L95" class="LineNr"> 95 </span><span class="Delimiter">}</span> +<span id="L96" class="LineNr"> 96 </span> +<span id="L97" class="LineNr"> 97 </span><span class="muComment"># 0 <= u <= 1</span> +<span id="L98" class="LineNr"> 98 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='507line.mu.html#L98'>line-point</a></span> u: float, x0: int, x1: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L99" class="LineNr"> 99 </span> <span class="PreProc">var</span> one/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> +<span id="L100" class="LineNr">100 </span> <span class="PreProc">var</span> u-prime/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert one +<span id="L101" class="LineNr">101 </span> u-prime <span class="Special"><-</span> subtract u +<span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> convert x0 +<span id="L103" class="LineNr">103 </span> result <span class="Special"><-</span> multiply u-prime +<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> term2/<span class="Constant">xmm2</span>: float <span class="Special"><-</span> convert x1 +<span id="L105" class="LineNr">105 </span> term2 <span class="Special"><-</span> multiply u +<span id="L106" class="LineNr">106 </span> result <span class="Special"><-</span> add term2 +<span id="L107" class="LineNr">107 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> convert result +<span id="L108" class="LineNr">108 </span> <span class="PreProc">return</span> result +<span id="L109" class="LineNr">109 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/508circle.mu.html b/html/508circle.mu.html new file mode 100644 index 00000000..c33aca77 --- /dev/null +++ b/html/508circle.mu.html @@ -0,0 +1,152 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - 508circle.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-dark"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #a8a8a8; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #a8a8a8; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } +.LineNr { } +.Constant { color: #008787; } +.Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.muComment { color: #005faf; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/508circle.mu'>https://github.com/akkartik/mu/blob/main/508circle.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='508circle.mu.html#L1'>draw-circle</a></span> <a href='500fake-screen.mu.html#L14'>screen</a>: (addr <a href='500fake-screen.mu.html#L14'>screen</a>), cx: int, cy: int, radius: int, color: int <span class="Delimiter">{</span> +<span id="L2" class="LineNr"> 2 </span> <span class="PreProc">var</span> x: int +<span id="L3" class="LineNr"> 3 </span> <span class="PreProc">var</span> y: int +<span id="L4" class="LineNr"> 4 </span> <span class="PreProc">var</span> err: int +<span id="L5" class="LineNr"> 5 </span> <span class="muComment"># x = -r</span> +<span id="L6" class="LineNr"> 6 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy radius +<span id="L7" class="LineNr"> 7 </span> tmp <span class="Special"><-</span> negate +<span id="L8" class="LineNr"> 8 </span> copy-to x, tmp +<span id="L9" class="LineNr"> 9 </span> <span class="muComment"># err = 2 - 2*r</span> +<span id="L10" class="LineNr">10 </span> tmp <span class="Special"><-</span> copy radius +<span id="L11" class="LineNr">11 </span> tmp <span class="Special"><-</span> shift-left <span class="Constant">1</span> +<span id="L12" class="LineNr">12 </span> tmp <span class="Special"><-</span> negate +<span id="L13" class="LineNr">13 </span> tmp <span class="Special"><-</span> add <span class="Constant">2</span> +<span id="L14" class="LineNr">14 </span> copy-to err, tmp +<span id="L15" class="LineNr">15 </span> <span class="muComment">#</span> +<span id="L16" class="LineNr">16 </span> <span class="PreProc">var</span> tmpx/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L17" class="LineNr">17 </span> <span class="PreProc">var</span> tmpy/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L18" class="LineNr">18 </span> <span class="Delimiter">{</span> +<span id="L19" class="LineNr">19 </span> <span class="muComment"># pixel(cx-x, cy+y)</span> +<span id="L20" class="LineNr">20 </span> tmpx <span class="Special"><-</span> copy cx +<span id="L21" class="LineNr">21 </span> tmpx <span class="Special"><-</span> subtract x +<span id="L22" class="LineNr">22 </span> tmpy <span class="Special"><-</span> copy cy +<span id="L23" class="LineNr">23 </span> tmpy <span class="Special"><-</span> add y +<span id="L24" class="LineNr">24 </span> <a href='500fake-screen.mu.html#L462'>pixel</a> <a href='500fake-screen.mu.html#L14'>screen</a>, tmpx, tmpy, color +<span id="L25" class="LineNr">25 </span> <span class="muComment"># pixel(cx-y, cy-x)</span> +<span id="L26" class="LineNr">26 </span> tmpx <span class="Special"><-</span> copy cx +<span id="L27" class="LineNr">27 </span> tmpx <span class="Special"><-</span> subtract y +<span id="L28" class="LineNr">28 </span> tmpy <span class="Special"><-</span> copy cy +<span id="L29" class="LineNr">29 </span> tmpy <span class="Special"><-</span> subtract x +<span id="L30" class="LineNr">30 </span> <a href='500fake-screen.mu.html#L462'>pixel</a> <a href='500fake-screen.mu.html#L14'>screen</a>, tmpx, tmpy, color +<span id="L31" class="LineNr">31 </span> <span class="muComment"># pixel(cx+x, cy-y)</span> +<span id="L32" class="LineNr">32 </span> tmpx <span class="Special"><-</span> copy cx +<span id="L33" class="LineNr">33 </span> tmpx <span class="Special"><-</span> add x +<span id="L34" class="LineNr">34 </span> tmpy <span class="Special"><-</span> copy cy +<span id="L35" class="LineNr">35 </span> tmpy <span class="Special"><-</span> subtract y +<span id="L36" class="LineNr">36 </span> <a href='500fake-screen.mu.html#L462'>pixel</a> <a href='500fake-screen.mu.html#L14'>screen</a>, tmpx, tmpy, color +<span id="L37" class="LineNr">37 </span> <span class="muComment"># pixel(cx+y, cy+x)</span> +<span id="L38" class="LineNr">38 </span> tmpx <span class="Special"><-</span> copy cx +<span id="L39" class="LineNr">39 </span> tmpx <span class="Special"><-</span> add y +<span id="L40" class="LineNr">40 </span> tmpy <span class="Special"><-</span> copy cy +<span id="L41" class="LineNr">41 </span> tmpy <span class="Special"><-</span> add x +<span id="L42" class="LineNr">42 </span> <a href='500fake-screen.mu.html#L462'>pixel</a> <a href='500fake-screen.mu.html#L14'>screen</a>, tmpx, tmpy, color +<span id="L43" class="LineNr">43 </span> <span class="muComment"># r = err</span> +<span id="L44" class="LineNr">44 </span> tmp <span class="Special"><-</span> copy err +<span id="L45" class="LineNr">45 </span> copy-to radius, tmp +<span id="L46" class="LineNr">46 </span> <span class="muComment"># if (r <= y) { ++y; err += (y*2 + 1); }</span> +<span id="L47" class="LineNr">47 </span> <span class="Delimiter">{</span> +<span id="L48" class="LineNr">48 </span> tmpy <span class="Special"><-</span> copy y +<span id="L49" class="LineNr">49 </span> compare radius, tmpy +<span id="L50" class="LineNr">50 </span> <span class="PreProc">break-if-></span> +<span id="L51" class="LineNr">51 </span> increment y +<span id="L52" class="LineNr">52 </span> tmpy <span class="Special"><-</span> copy y +<span id="L53" class="LineNr">53 </span> tmpy <span class="Special"><-</span> shift-left <span class="Constant">1</span> +<span id="L54" class="LineNr">54 </span> tmpy <span class="Special"><-</span> increment +<span id="L55" class="LineNr">55 </span> add-to err, tmpy +<span id="L56" class="LineNr">56 </span> <span class="Delimiter">}</span> +<span id="L57" class="LineNr">57 </span> <span class="muComment"># if (r > x || err > y) { ++x; err += (x*2 + 1); }</span> +<span id="L58" class="LineNr">58 </span> $draw-circle:second-check: <span class="Delimiter">{</span> +<span id="L59" class="LineNr">59 </span> <span class="Delimiter">{</span> +<span id="L60" class="LineNr">60 </span> tmpx <span class="Special"><-</span> copy x +<span id="L61" class="LineNr">61 </span> compare radius, tmpx +<span id="L62" class="LineNr">62 </span> <span class="PreProc">break-if-></span> +<span id="L63" class="LineNr">63 </span> tmpy <span class="Special"><-</span> copy y +<span id="L64" class="LineNr">64 </span> compare err, tmpy +<span id="L65" class="LineNr">65 </span> <span class="PreProc">break-if-></span> +<span id="L66" class="LineNr">66 </span> <span class="PreProc">break</span> $draw-circle:second-check +<span id="L67" class="LineNr">67 </span> <span class="Delimiter">}</span> +<span id="L68" class="LineNr">68 </span> increment x +<span id="L69" class="LineNr">69 </span> tmpx <span class="Special"><-</span> copy x +<span id="L70" class="LineNr">70 </span> tmpx <span class="Special"><-</span> shift-left <span class="Constant">1</span> +<span id="L71" class="LineNr">71 </span> tmpx <span class="Special"><-</span> increment +<span id="L72" class="LineNr">72 </span> add-to err, tmpx +<span id="L73" class="LineNr">73 </span> <span class="Delimiter">}</span> +<span id="L74" class="LineNr">74 </span> <span class="muComment"># loop termination condition</span> +<span id="L75" class="LineNr">75 </span> compare x, <span class="Constant">0</span> +<span id="L76" class="LineNr">76 </span> <span class="PreProc">loop-if-<</span> +<span id="L77" class="LineNr">77 </span> <span class="Delimiter">}</span> +<span id="L78" class="LineNr">78 </span><span class="Delimiter">}</span> +<span id="L79" class="LineNr">79 </span> +<span id="L80" class="LineNr">80 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='508circle.mu.html#L80'>draw-disc</a></span> <a href='500fake-screen.mu.html#L14'>screen</a>: (addr <a href='500fake-screen.mu.html#L14'>screen</a>), cx: int, cy: int, radius: int, color: int, border-color: int <span class="Delimiter">{</span> +<span id="L81" class="LineNr">81 </span> <span class="PreProc">var</span> r/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L82" class="LineNr">82 </span> <span class="Delimiter">{</span> +<span id="L83" class="LineNr">83 </span> compare r, radius +<span id="L84" class="LineNr">84 </span> <span class="PreProc">break-if->=</span> +<span id="L85" class="LineNr">85 </span> <a href='508circle.mu.html#L1'>draw-circle</a> <a href='500fake-screen.mu.html#L14'>screen</a>, cx cy, r, color +<span id="L86" class="LineNr">86 </span> r <span class="Special"><-</span> increment +<span id="L87" class="LineNr">87 </span> <span class="PreProc">loop</span> +<span id="L88" class="LineNr">88 </span> <span class="Delimiter">}</span> +<span id="L89" class="LineNr">89 </span> <a href='508circle.mu.html#L1'>draw-circle</a> <a href='500fake-screen.mu.html#L14'>screen</a>, cx cy, r, border-color +<span id="L90" class="LineNr">90 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/509bezier.mu.html b/html/509bezier.mu.html new file mode 100644 index 00000000..c7e376eb --- /dev/null +++ b/html/509bezier.mu.html @@ -0,0 +1,378 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - 509bezier.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-dark"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #a8a8a8; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #a8a8a8; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } +.LineNr { } +.Constant { color: #008787; } +.Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.muComment { color: #005faf; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/509bezier.mu'>https://github.com/akkartik/mu/blob/main/509bezier.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># Draw a second-degree bezier curve using 3 control points.</span> +<span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> +<span id="L3" class="LineNr"> 3 </span><span class="muComment"># <a href="http://members.chello.at/easyfilter/bresenham.html">http://members.chello.at/easyfilter/bresenham.html</a> says that this algorithm</span> +<span id="L4" class="LineNr"> 4 </span><span class="muComment"># works only if "the gradient does not change sign". Either:</span> +<span id="L5" class="LineNr"> 5 </span><span class="muComment"># x0 >= x1 >= x2</span> +<span id="L6" class="LineNr"> 6 </span><span class="muComment"># or:</span> +<span id="L7" class="LineNr"> 7 </span><span class="muComment"># x0 <= x1 <= x2</span> +<span id="L8" class="LineNr"> 8 </span><span class="muComment"># Similarly for y0, y1 and y2.</span> +<span id="L9" class="LineNr"> 9 </span><span class="muComment">#</span> +<span id="L10" class="LineNr"> 10 </span><span class="muComment"># This seems superficially similar to the notions of convex and concave, but I</span> +<span id="L11" class="LineNr"> 11 </span><span class="muComment"># think it isn't. I think it's purely a property of the frame of reference.</span> +<span id="L12" class="LineNr"> 12 </span><span class="muComment"># Rotating the axes can make the gradient change sign or stop changing sign</span> +<span id="L13" class="LineNr"> 13 </span><span class="muComment"># even as 3 points preserve fixed relative bearings to each other.</span> +<span id="L14" class="LineNr"> 14 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a></span> <a href='500fake-screen.mu.html#L14'>screen</a>: (addr <a href='500fake-screen.mu.html#L14'>screen</a>), x0: int, y0: int, x1: int, y1: int, x2: int, y2: int, color: int <span class="Delimiter">{</span> +<span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> xx: int +<span id="L16" class="LineNr"> 16 </span> <span class="PreProc">var</span> yy: int +<span id="L17" class="LineNr"> 17 </span> <span class="PreProc">var</span> xy: int +<span id="L18" class="LineNr"> 18 </span> <span class="PreProc">var</span> sx: int +<span id="L19" class="LineNr"> 19 </span> <span class="PreProc">var</span> sy: int +<span id="L20" class="LineNr"> 20 </span> <span class="muComment"># sx = x2-x1</span> +<span id="L21" class="LineNr"> 21 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy x2 +<span id="L22" class="LineNr"> 22 </span> tmp <span class="Special"><-</span> subtract x1 +<span id="L23" class="LineNr"> 23 </span> copy-to sx, tmp +<span id="L24" class="LineNr"> 24 </span> <span class="muComment"># sy = y2-y1</span> +<span id="L25" class="LineNr"> 25 </span> tmp <span class="Special"><-</span> copy y2 +<span id="L26" class="LineNr"> 26 </span> tmp <span class="Special"><-</span> subtract y1 +<span id="L27" class="LineNr"> 27 </span> copy-to sy, tmp +<span id="L28" class="LineNr"> 28 </span> <span class="muComment"># xx = x0-x1</span> +<span id="L29" class="LineNr"> 29 </span> tmp <span class="Special"><-</span> copy x0 +<span id="L30" class="LineNr"> 30 </span> tmp <span class="Special"><-</span> subtract x1 +<span id="L31" class="LineNr"> 31 </span> copy-to xx, tmp +<span id="L32" class="LineNr"> 32 </span> <span class="muComment"># yy = y0-y1</span> +<span id="L33" class="LineNr"> 33 </span> tmp <span class="Special"><-</span> copy y0 +<span id="L34" class="LineNr"> 34 </span> tmp <span class="Special"><-</span> subtract y1 +<span id="L35" class="LineNr"> 35 </span> copy-to yy, tmp +<span id="L36" class="LineNr"> 36 </span> <span class="muComment"># cur = xx*sy - yy*sx</span> +<span id="L37" class="LineNr"> 37 </span> <span class="PreProc">var</span> cur-f/<span class="Constant">xmm4</span>: float <span class="Special"><-</span> convert xx +<span id="L38" class="LineNr"> 38 </span> <span class="Delimiter">{</span> +<span id="L39" class="LineNr"> 39 </span> <span class="PreProc">var</span> sy-f/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> convert sy +<span id="L40" class="LineNr"> 40 </span> cur-f <span class="Special"><-</span> multiply sy-f +<span id="L41" class="LineNr"> 41 </span> <span class="PreProc">var</span> tmp2-f/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> convert yy +<span id="L42" class="LineNr"> 42 </span> <span class="PreProc">var</span> sx-f/<span class="Constant">xmm2</span>: float <span class="Special"><-</span> convert sx +<span id="L43" class="LineNr"> 43 </span> tmp2-f <span class="Special"><-</span> multiply sx-f +<span id="L44" class="LineNr"> 44 </span> cur-f <span class="Special"><-</span> subtract tmp2-f +<span id="L45" class="LineNr"> 45 </span> <span class="Delimiter">}</span> +<span id="L46" class="LineNr"> 46 </span> <span class="muComment"># if (xx*sx > 0) abort</span> +<span id="L47" class="LineNr"> 47 </span> <span class="Delimiter">{</span> +<span id="L48" class="LineNr"> 48 </span> tmp <span class="Special"><-</span> copy xx +<span id="L49" class="LineNr"> 49 </span> tmp <span class="Special"><-</span> multiply sx +<span id="L50" class="LineNr"> 50 </span> compare tmp, <span class="Constant">0</span> +<span id="L51" class="LineNr"> 51 </span> <span class="PreProc">break-if-<=</span> +<span id="L52" class="LineNr"> 52 </span> <a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"bezier: gradient of x changes sign"</span> +<span id="L53" class="LineNr"> 53 </span> <span class="Delimiter">}</span> +<span id="L54" class="LineNr"> 54 </span> <span class="muComment"># if (yy*sy > 0) abort</span> +<span id="L55" class="LineNr"> 55 </span> <span class="Delimiter">{</span> +<span id="L56" class="LineNr"> 56 </span> tmp <span class="Special"><-</span> copy yy +<span id="L57" class="LineNr"> 57 </span> tmp <span class="Special"><-</span> multiply sy +<span id="L58" class="LineNr"> 58 </span> compare tmp, <span class="Constant">0</span> +<span id="L59" class="LineNr"> 59 </span> <span class="PreProc">break-if-<=</span> +<span id="L60" class="LineNr"> 60 </span> <a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"bezier: gradient of y changes sign"</span> +<span id="L61" class="LineNr"> 61 </span> <span class="Delimiter">}</span> +<span id="L62" class="LineNr"> 62 </span> <span class="muComment"># swap P0 and P2 if necessary</span> +<span id="L63" class="LineNr"> 63 </span> <span class="Delimiter">{</span> +<span id="L64" class="LineNr"> 64 </span> <span class="muComment"># dist1 = sx*sx + sy*sy</span> +<span id="L65" class="LineNr"> 65 </span> <span class="PreProc">var</span> dist1/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy sx +<span id="L66" class="LineNr"> 66 </span> <span class="Delimiter">{</span> +<span id="L67" class="LineNr"> 67 </span> dist1 <span class="Special"><-</span> multiply sx +<span id="L68" class="LineNr"> 68 </span> <span class="Delimiter">{</span> +<span id="L69" class="LineNr"> 69 </span> <span class="PreProc">break-if-not-overflow</span> +<span id="L70" class="LineNr"> 70 </span> <a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"bezier: overflow 1"</span> +<span id="L71" class="LineNr"> 71 </span> <span class="Delimiter">}</span> +<span id="L72" class="LineNr"> 72 </span> tmp <span class="Special"><-</span> copy sy +<span id="L73" class="LineNr"> 73 </span> tmp <span class="Special"><-</span> multiply sy +<span id="L74" class="LineNr"> 74 </span> <span class="Delimiter">{</span> +<span id="L75" class="LineNr"> 75 </span> <span class="PreProc">break-if-not-overflow</span> +<span id="L76" class="LineNr"> 76 </span> <a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"bezier: overflow 2"</span> +<span id="L77" class="LineNr"> 77 </span> <span class="Delimiter">}</span> +<span id="L78" class="LineNr"> 78 </span> dist1 <span class="Special"><-</span> add tmp +<span id="L79" class="LineNr"> 79 </span> <span class="Delimiter">}</span> +<span id="L80" class="LineNr"> 80 </span> <span class="muComment"># dist2 = xx*xx + yy*yy</span> +<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> dist2/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy xx +<span id="L82" class="LineNr"> 82 </span> <span class="Delimiter">{</span> +<span id="L83" class="LineNr"> 83 </span> dist2 <span class="Special"><-</span> multiply xx +<span id="L84" class="LineNr"> 84 </span> <span class="Delimiter">{</span> +<span id="L85" class="LineNr"> 85 </span> <span class="PreProc">break-if-not-overflow</span> +<span id="L86" class="LineNr"> 86 </span> <a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"bezier: overflow 3"</span> +<span id="L87" class="LineNr"> 87 </span> <span class="Delimiter">}</span> +<span id="L88" class="LineNr"> 88 </span> tmp <span class="Special"><-</span> copy yy +<span id="L89" class="LineNr"> 89 </span> tmp <span class="Special"><-</span> multiply yy +<span id="L90" class="LineNr"> 90 </span> <span class="Delimiter">{</span> +<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">break-if-not-overflow</span> +<span id="L92" class="LineNr"> 92 </span> <a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"bezier: overflow 4"</span> +<span id="L93" class="LineNr"> 93 </span> <span class="Delimiter">}</span> +<span id="L94" class="LineNr"> 94 </span> dist2 <span class="Special"><-</span> add tmp +<span id="L95" class="LineNr"> 95 </span> <span class="Delimiter">}</span> +<span id="L96" class="LineNr"> 96 </span> <span class="muComment"># if (dist1 <= dist2) break</span> +<span id="L97" class="LineNr"> 97 </span> compare dist1, dist2 +<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">break-if-<=</span> +<span id="L99" class="LineNr"> 99 </span> <span class="muComment"># swap x0 and x2</span> +<span id="L100" class="LineNr">100 </span> tmp <span class="Special"><-</span> copy x0 +<span id="L101" class="LineNr">101 </span> copy-to x2, tmp +<span id="L102" class="LineNr">102 </span> tmp <span class="Special"><-</span> copy sx +<span id="L103" class="LineNr">103 </span> tmp <span class="Special"><-</span> add x1 +<span id="L104" class="LineNr">104 </span> copy-to x0, tmp +<span id="L105" class="LineNr">105 </span> <span class="muComment"># swap y0 and y2</span> +<span id="L106" class="LineNr">106 </span> tmp <span class="Special"><-</span> copy y0 +<span id="L107" class="LineNr">107 </span> copy-to y2, tmp +<span id="L108" class="LineNr">108 </span> tmp <span class="Special"><-</span> copy sy +<span id="L109" class="LineNr">109 </span> tmp <span class="Special"><-</span> add y1 +<span id="L110" class="LineNr">110 </span> copy-to y0, tmp +<span id="L111" class="LineNr">111 </span> <span class="muComment"># cur = -cur</span> +<span id="L112" class="LineNr">112 </span> <span class="PreProc">var</span> negative-1/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">-1</span> +<span id="L113" class="LineNr">113 </span> <span class="PreProc">var</span> negative-1-f/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> convert negative-1 +<span id="L114" class="LineNr">114 </span> cur-f <span class="Special"><-</span> multiply negative-1-f +<span id="L115" class="LineNr">115 </span> <span class="Delimiter">}</span> +<span id="L116" class="LineNr">116 </span> <span class="PreProc">var</span> x/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy x0 +<span id="L117" class="LineNr">117 </span> <span class="PreProc">var</span> y/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy y0 +<span id="L118" class="LineNr">118 </span> <span class="PreProc">var</span> zero-f: float +<span id="L119" class="LineNr">119 </span> <span class="muComment"># plot a curved part if necessary</span> +<span id="L120" class="LineNr">120 </span> $draw-monotonic-bezier:curve: <span class="Delimiter">{</span> +<span id="L121" class="LineNr">121 </span> compare cur-f, zero-f +<span id="L122" class="LineNr">122 </span> <span class="PreProc">break-if-=</span> +<span id="L123" class="LineNr">123 </span> <span class="muComment"># xx += sx</span> +<span id="L124" class="LineNr">124 </span> tmp <span class="Special"><-</span> copy sx +<span id="L125" class="LineNr">125 </span> add-to xx, tmp +<span id="L126" class="LineNr">126 </span> <span class="muComment"># sx = sgn(x2-x)</span> +<span id="L127" class="LineNr">127 </span> tmp <span class="Special"><-</span> copy x2 +<span id="L128" class="LineNr">128 </span> tmp <span class="Special"><-</span> subtract x +<span id="L129" class="LineNr">129 </span> tmp <span class="Special"><-</span> <a href='506math.mu.html#L10'>sgn</a> tmp +<span id="L130" class="LineNr">130 </span> copy-to sx, tmp +<span id="L131" class="LineNr">131 </span> <span class="muComment"># xx *= sx</span> +<span id="L132" class="LineNr">132 </span> tmp <span class="Special"><-</span> copy sx +<span id="L133" class="LineNr">133 </span> tmp <span class="Special"><-</span> multiply xx +<span id="L134" class="LineNr">134 </span> copy-to xx, tmp +<span id="L135" class="LineNr">135 </span> <span class="muComment"># yy += sy</span> +<span id="L136" class="LineNr">136 </span> tmp <span class="Special"><-</span> copy sy +<span id="L137" class="LineNr">137 </span> add-to yy, tmp +<span id="L138" class="LineNr">138 </span> <span class="muComment"># sy = sgn(y2-y)</span> +<span id="L139" class="LineNr">139 </span> tmp <span class="Special"><-</span> copy y2 +<span id="L140" class="LineNr">140 </span> tmp <span class="Special"><-</span> subtract y +<span id="L141" class="LineNr">141 </span> tmp <span class="Special"><-</span> <a href='506math.mu.html#L10'>sgn</a> tmp +<span id="L142" class="LineNr">142 </span> copy-to sy, tmp +<span id="L143" class="LineNr">143 </span> <span class="muComment"># yy *= sy</span> +<span id="L144" class="LineNr">144 </span> tmp <span class="Special"><-</span> copy sy +<span id="L145" class="LineNr">145 </span> tmp <span class="Special"><-</span> multiply yy +<span id="L146" class="LineNr">146 </span> copy-to yy, tmp +<span id="L147" class="LineNr">147 </span> <span class="muComment"># xy = 2*xx*xy</span> +<span id="L148" class="LineNr">148 </span> tmp <span class="Special"><-</span> copy xx +<span id="L149" class="LineNr">149 </span> tmp <span class="Special"><-</span> multiply yy +<span id="L150" class="LineNr">150 </span> <span class="Delimiter">{</span> +<span id="L151" class="LineNr">151 </span> <span class="PreProc">break-if-not-overflow</span> +<span id="L152" class="LineNr">152 </span> <a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"bezier: overflow 5"</span> +<span id="L153" class="LineNr">153 </span> <span class="Delimiter">}</span> +<span id="L154" class="LineNr">154 </span> tmp <span class="Special"><-</span> shift-left <span class="Constant">1</span> +<span id="L155" class="LineNr">155 </span> <span class="Delimiter">{</span> +<span id="L156" class="LineNr">156 </span> <span class="PreProc">break-if-not-overflow</span> +<span id="L157" class="LineNr">157 </span> <a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"bezier: overflow 6"</span> +<span id="L158" class="LineNr">158 </span> <span class="Delimiter">}</span> +<span id="L159" class="LineNr">159 </span> copy-to xy, tmp +<span id="L160" class="LineNr">160 </span> <span class="muComment"># xx *= xx</span> +<span id="L161" class="LineNr">161 </span> tmp <span class="Special"><-</span> copy xx +<span id="L162" class="LineNr">162 </span> tmp <span class="Special"><-</span> multiply tmp +<span id="L163" class="LineNr">163 </span> <span class="Delimiter">{</span> +<span id="L164" class="LineNr">164 </span> <span class="PreProc">break-if-not-overflow</span> +<span id="L165" class="LineNr">165 </span> <a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"bezier: overflow 7"</span> +<span id="L166" class="LineNr">166 </span> <span class="Delimiter">}</span> +<span id="L167" class="LineNr">167 </span> copy-to xx, tmp +<span id="L168" class="LineNr">168 </span> <span class="muComment"># yy *= yy</span> +<span id="L169" class="LineNr">169 </span> tmp <span class="Special"><-</span> copy yy +<span id="L170" class="LineNr">170 </span> tmp <span class="Special"><-</span> multiply tmp +<span id="L171" class="LineNr">171 </span> <span class="Delimiter">{</span> +<span id="L172" class="LineNr">172 </span> <span class="PreProc">break-if-not-overflow</span> +<span id="L173" class="LineNr">173 </span> <a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"bezier: overflow 7"</span> +<span id="L174" class="LineNr">174 </span> <span class="Delimiter">}</span> +<span id="L175" class="LineNr">175 </span> copy-to yy, tmp +<span id="L176" class="LineNr">176 </span> <span class="muComment"># if (cur*sx*sy < 0) negative curvature</span> +<span id="L177" class="LineNr">177 </span> <span class="Delimiter">{</span> +<span id="L178" class="LineNr">178 </span> <span class="PreProc">var</span> tmp-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy cur-f +<span id="L179" class="LineNr">179 </span> <span class="PreProc">var</span> sx-f/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> convert sx +<span id="L180" class="LineNr">180 </span> tmp-f <span class="Special"><-</span> multiply sx-f +<span id="L181" class="LineNr">181 </span> <span class="PreProc">var</span> sy-f/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> convert sy +<span id="L182" class="LineNr">182 </span> tmp-f <span class="Special"><-</span> multiply sy-f +<span id="L183" class="LineNr">183 </span> compare tmp-f, zero-f +<span id="L184" class="LineNr">184 </span> <span class="PreProc">break-if-float>=</span> +<span id="L185" class="LineNr">185 </span> <span class="muComment">#</span> +<span id="L186" class="LineNr">186 </span> negate xx +<span id="L187" class="LineNr">187 </span> negate yy +<span id="L188" class="LineNr">188 </span> negate xy +<span id="L189" class="LineNr">189 </span> <span class="muComment"># cur = -cur</span> +<span id="L190" class="LineNr">190 </span> <span class="PreProc">var</span> negative-1/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">-1</span> +<span id="L191" class="LineNr">191 </span> <span class="PreProc">var</span> negative-1-f/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> convert negative-1 +<span id="L192" class="LineNr">192 </span> cur-f <span class="Special"><-</span> multiply negative-1-f +<span id="L193" class="LineNr">193 </span> <span class="Delimiter">}</span> +<span id="L194" class="LineNr">194 </span> <span class="PreProc">var</span> four/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy <span class="Constant">4</span> +<span id="L195" class="LineNr">195 </span> <span class="PreProc">var</span> dx-f/<span class="Constant">xmm5</span>: float <span class="Special"><-</span> convert four +<span id="L196" class="LineNr">196 </span> <span class="PreProc">var</span> dy-f/<span class="Constant">xmm6</span>: float <span class="Special"><-</span> convert four +<span id="L197" class="LineNr">197 </span> <span class="muComment"># dx = 4*sy*cur*(x1-x0) + xx - xy</span> +<span id="L198" class="LineNr">198 </span> <span class="Delimiter">{</span> +<span id="L199" class="LineNr">199 </span> <span class="PreProc">var</span> tmp/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert sy +<span id="L200" class="LineNr">200 </span> dx-f <span class="Special"><-</span> multiply tmp +<span id="L201" class="LineNr">201 </span> dx-f <span class="Special"><-</span> multiply cur-f +<span id="L202" class="LineNr">202 </span> tmp <span class="Special"><-</span> convert x1 +<span id="L203" class="LineNr">203 </span> <span class="PreProc">var</span> tmp2/<span class="Constant">xmm3</span>: float <span class="Special"><-</span> convert x +<span id="L204" class="LineNr">204 </span> tmp <span class="Special"><-</span> subtract tmp2 +<span id="L205" class="LineNr">205 </span> dx-f <span class="Special"><-</span> multiply tmp +<span id="L206" class="LineNr">206 </span> tmp <span class="Special"><-</span> convert xx +<span id="L207" class="LineNr">207 </span> dx-f <span class="Special"><-</span> add tmp +<span id="L208" class="LineNr">208 </span> tmp <span class="Special"><-</span> convert xy +<span id="L209" class="LineNr">209 </span> dx-f <span class="Special"><-</span> subtract tmp +<span id="L210" class="LineNr">210 </span> <span class="Delimiter">}</span> +<span id="L211" class="LineNr">211 </span> <span class="muComment"># dy-f = 4*sx*cur*(y0-y1) + yy - xy</span> +<span id="L212" class="LineNr">212 </span> <span class="Delimiter">{</span> +<span id="L213" class="LineNr">213 </span> <span class="PreProc">var</span> tmp/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert sx +<span id="L214" class="LineNr">214 </span> dy-f <span class="Special"><-</span> multiply tmp +<span id="L215" class="LineNr">215 </span> dy-f <span class="Special"><-</span> multiply cur-f +<span id="L216" class="LineNr">216 </span> tmp <span class="Special"><-</span> convert y +<span id="L217" class="LineNr">217 </span> <span class="PreProc">var</span> tmp2/<span class="Constant">xmm3</span>: float <span class="Special"><-</span> convert y1 +<span id="L218" class="LineNr">218 </span> tmp <span class="Special"><-</span> subtract tmp2 +<span id="L219" class="LineNr">219 </span> dy-f <span class="Special"><-</span> multiply tmp +<span id="L220" class="LineNr">220 </span> tmp <span class="Special"><-</span> convert yy +<span id="L221" class="LineNr">221 </span> dy-f <span class="Special"><-</span> add tmp +<span id="L222" class="LineNr">222 </span> tmp <span class="Special"><-</span> convert xy +<span id="L223" class="LineNr">223 </span> dy-f <span class="Special"><-</span> subtract tmp +<span id="L224" class="LineNr">224 </span> <span class="Delimiter">}</span> +<span id="L225" class="LineNr">225 </span> <span class="muComment"># xx += xx</span> +<span id="L226" class="LineNr">226 </span> tmp <span class="Special"><-</span> copy xx +<span id="L227" class="LineNr">227 </span> add-to xx, tmp +<span id="L228" class="LineNr">228 </span> <span class="muComment"># yy += yy</span> +<span id="L229" class="LineNr">229 </span> tmp <span class="Special"><-</span> copy yy +<span id="L230" class="LineNr">230 </span> add-to yy, tmp +<span id="L231" class="LineNr">231 </span> <span class="muComment"># err = dx+dy+xy</span> +<span id="L232" class="LineNr">232 </span> <span class="PreProc">var</span> err-f/<span class="Constant">xmm7</span>: float <span class="Special"><-</span> copy dx-f +<span id="L233" class="LineNr">233 </span> err-f <span class="Special"><-</span> add dy-f +<span id="L234" class="LineNr">234 </span> <span class="PreProc">var</span> xy-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert xy +<span id="L235" class="LineNr">235 </span> err-f <span class="Special"><-</span> add xy-f +<span id="L236" class="LineNr">236 </span> <span class="muComment">#</span> +<span id="L237" class="LineNr">237 </span> $draw-monotonic-bezier:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> +<span id="L238" class="LineNr">238 </span> <a href='500fake-screen.mu.html#L462'>pixel</a> <a href='500fake-screen.mu.html#L14'>screen</a>, x, y, color +<span id="L239" class="LineNr">239 </span> <span class="muComment"># if (x == x2 && y == y2) return</span> +<span id="L240" class="LineNr">240 </span> <span class="Delimiter">{</span> +<span id="L241" class="LineNr">241 </span> compare x, x2 +<span id="L242" class="LineNr">242 </span> <span class="PreProc">break-if-!=</span> +<span id="L243" class="LineNr">243 </span> compare y, y2 +<span id="L244" class="LineNr">244 </span> <span class="PreProc">break-if-!=</span> +<span id="L245" class="LineNr">245 </span> <span class="PreProc">return</span> +<span id="L246" class="LineNr">246 </span> <span class="Delimiter">}</span> +<span id="L247" class="LineNr">247 </span> <span class="muComment"># perform-y-step? = (2*err < dx)</span> +<span id="L248" class="LineNr">248 </span> <span class="PreProc">var</span> perform-y-step?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> copy <span class="Constant">0</span>/false +<span id="L249" class="LineNr">249 </span> <span class="PreProc">var</span> two-err-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy err-f +<span id="L250" class="LineNr">250 </span> <span class="Delimiter">{</span> +<span id="L251" class="LineNr">251 </span> <span class="PreProc">var</span> two/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy <span class="Constant">2</span> +<span id="L252" class="LineNr">252 </span> <span class="PreProc">var</span> two-f/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> convert two +<span id="L253" class="LineNr">253 </span> two-err-f <span class="Special"><-</span> multiply two-f +<span id="L254" class="LineNr">254 </span> compare two-err-f, dx-f +<span id="L255" class="LineNr">255 </span> <span class="PreProc">break-if-float>=</span> +<span id="L256" class="LineNr">256 </span> perform-y-step? <span class="Special"><-</span> copy <span class="Constant">1</span>/true +<span id="L257" class="LineNr">257 </span> <span class="Delimiter">}</span> +<span id="L258" class="LineNr">258 </span> <span class="muComment"># if (2*err > dy)</span> +<span id="L259" class="LineNr">259 </span> <span class="Delimiter">{</span> +<span id="L260" class="LineNr">260 </span> compare two-err-f, dy-f +<span id="L261" class="LineNr">261 </span> <span class="PreProc">break-if-float<=</span> +<span id="L262" class="LineNr">262 </span> <span class="muComment"># x += sx</span> +<span id="L263" class="LineNr">263 </span> x <span class="Special"><-</span> add sx +<span id="L264" class="LineNr">264 </span> <span class="muComment"># dx -= xy</span> +<span id="L265" class="LineNr">265 </span> <span class="PreProc">var</span> xy-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert xy +<span id="L266" class="LineNr">266 </span> dx-f <span class="Special"><-</span> subtract xy-f +<span id="L267" class="LineNr">267 </span> <span class="muComment"># dy += yy</span> +<span id="L268" class="LineNr">268 </span> <span class="PreProc">var</span> yy-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert yy +<span id="L269" class="LineNr">269 </span> dy-f <span class="Special"><-</span> add yy-f +<span id="L270" class="LineNr">270 </span> <span class="muComment"># err += dy</span> +<span id="L271" class="LineNr">271 </span> err-f <span class="Special"><-</span> add dy-f +<span id="L272" class="LineNr">272 </span> <span class="Delimiter">}</span> +<span id="L273" class="LineNr">273 </span> <span class="muComment"># if perform-y-step?</span> +<span id="L274" class="LineNr">274 </span> <span class="Delimiter">{</span> +<span id="L275" class="LineNr">275 </span> compare perform-y-step?, <span class="Constant">0</span>/false +<span id="L276" class="LineNr">276 </span> <span class="PreProc">break-if-=</span> +<span id="L277" class="LineNr">277 </span> <span class="muComment"># y += sy</span> +<span id="L278" class="LineNr">278 </span> y <span class="Special"><-</span> add sy +<span id="L279" class="LineNr">279 </span> <span class="muComment"># dy -= xy</span> +<span id="L280" class="LineNr">280 </span> <span class="PreProc">var</span> xy-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert xy +<span id="L281" class="LineNr">281 </span> dy-f <span class="Special"><-</span> subtract xy-f +<span id="L282" class="LineNr">282 </span> <span class="muComment"># dx += xx</span> +<span id="L283" class="LineNr">283 </span> <span class="PreProc">var</span> xx-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert xx +<span id="L284" class="LineNr">284 </span> dx-f <span class="Special"><-</span> add xx-f +<span id="L285" class="LineNr">285 </span> <span class="muComment"># err += dx</span> +<span id="L286" class="LineNr">286 </span> err-f <span class="Special"><-</span> add dx-f +<span id="L287" class="LineNr">287 </span> <span class="Delimiter">}</span> +<span id="L288" class="LineNr">288 </span> <span class="muComment"># if (dy < dx) loop</span> +<span id="L289" class="LineNr">289 </span> compare dy-f, dx-f +<span id="L290" class="LineNr">290 </span> <span class="PreProc">loop-if-float<</span> +<span id="L291" class="LineNr">291 </span> <span class="Delimiter">}</span> +<span id="L292" class="LineNr">292 </span> <span class="Delimiter">}</span> +<span id="L293" class="LineNr">293 </span> <span class="muComment"># plot the remaining straight line</span> +<span id="L294" class="LineNr">294 </span> <a href='507line.mu.html#L1'>draw-line</a> <a href='500fake-screen.mu.html#L14'>screen</a>, x y, x2 y2, color +<span id="L295" class="LineNr">295 </span><span class="Delimiter">}</span> +<span id="L296" class="LineNr">296 </span> +<span id="L297" class="LineNr">297 </span><span class="muComment"># 0 <= u <= 1</span> +<span id="L298" class="LineNr">298 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='509bezier.mu.html#L298'>bezier-point</a></span> u: float, x0: int, x1: int, x2: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L299" class="LineNr">299 </span> <span class="PreProc">var</span> one/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> +<span id="L300" class="LineNr">300 </span> <span class="PreProc">var</span> u-prime/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert one +<span id="L301" class="LineNr">301 </span> u-prime <span class="Special"><-</span> subtract u +<span id="L302" class="LineNr">302 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> convert x0 +<span id="L303" class="LineNr">303 </span> result <span class="Special"><-</span> multiply u-prime +<span id="L304" class="LineNr">304 </span> result <span class="Special"><-</span> multiply u-prime +<span id="L305" class="LineNr">305 </span> <span class="PreProc">var</span> term2/<span class="Constant">xmm2</span>: float <span class="Special"><-</span> convert x1 +<span id="L306" class="LineNr">306 </span> term2 <span class="Special"><-</span> multiply u +<span id="L307" class="LineNr">307 </span> term2 <span class="Special"><-</span> multiply u-prime +<span id="L308" class="LineNr">308 </span> result <span class="Special"><-</span> add term2 +<span id="L309" class="LineNr">309 </span> result <span class="Special"><-</span> add term2 +<span id="L310" class="LineNr">310 </span> <span class="PreProc">var</span> term3/<span class="Constant">xmm2</span>: float <span class="Special"><-</span> convert x2 +<span id="L311" class="LineNr">311 </span> term3 <span class="Special"><-</span> multiply u +<span id="L312" class="LineNr">312 </span> term3 <span class="Special"><-</span> multiply u +<span id="L313" class="LineNr">313 </span> result <span class="Special"><-</span> add term3 +<span id="L314" class="LineNr">314 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> convert result +<span id="L315" class="LineNr">315 </span> <span class="PreProc">return</span> result +<span id="L316" class="LineNr">316 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/boot.subx.html b/html/boot.subx.html index ed9ad698..221fe044 100644 --- a/html/boot.subx.html +++ b/html/boot.subx.html @@ -292,7 +292,7 @@ if ('onhashchange' in window) { <span id="L232" class="LineNr"> 232 </span> <span id="L233" class="LineNr"> 233 </span> fb/enable-interrupts <span id="L234" class="LineNr"> 234 </span> -<span id="L235" class="LineNr"> 235 </span> (<a href='boot.subx.html#L1470'>initialize-mouse</a>) +<span id="L235" class="LineNr"> 235 </span> (<a href='boot.subx.html#L1492'>initialize-mouse</a>) <span id="L236" class="LineNr"> 236 </span> <span id="L237" class="LineNr"> 237 </span> <span class="subxComment">## enable floating point</span> <span id="L238" class="LineNr"> 238 </span> db/floating-point-coprocessor e3/initialize @@ -514,272 +514,294 @@ if ('onhashchange' in window) { <span id="L889" class="LineNr"> 889 </span> <span id="L890" class="LineNr"> 890 </span>== data <span id="L891" class="LineNr"> 891 </span> -<span id="L892" class="LineNr"> 892 </span><span class="subxComment"># We'll be gaining access just to the secondary drive on the primary bus for</span> -<span id="L893" class="LineNr"> 893 </span><span class="subxComment"># now. It will have the designated 'data' disk so we don't mess with the code</span> -<span id="L894" class="LineNr"> 894 </span><span class="subxComment"># disk.</span> -<span id="L895" class="LineNr"> 895 </span><span class="subxComment">#</span> -<span id="L896" class="LineNr"> 896 </span><span class="subxComment"># The type definition for this variable is in safe Mu (rather than unsafe</span> -<span id="L897" class="LineNr"> 897 </span><span class="subxComment"># SubX) code.</span> -<span id="L898" class="LineNr"> 898 </span><span class="subxComment"># All ports are 8-bit except data-port, which is 16-bit.</span> -<span id="L899" class="LineNr"> 899 </span><span class="SpecialChar">Primary-bus-secondary-drive</span>: -<span id="L900" class="LineNr"> 900 </span> <span class="subxComment"># command-port: int (write)</span> -<span id="L901" class="LineNr"> 901 </span> 0x1f7/imm32 -<span id="L902" class="LineNr"> 902 </span> <span class="subxComment"># status-port: int (read)</span> -<span id="L903" class="LineNr"> 903 </span> 0x1f7/imm32 -<span id="L904" class="LineNr"> 904 </span> <span class="subxComment"># alternative-status-port: int (read)</span> -<span id="L905" class="LineNr"> 905 </span> 0x3f6/imm32 -<span id="L906" class="LineNr"> 906 </span> <span class="subxComment"># error-port: int (read)</span> -<span id="L907" class="LineNr"> 907 </span> 0x1f1/imm32 -<span id="L908" class="LineNr"> 908 </span> <span class="subxComment"># drive-and-head-port: int</span> -<span id="L909" class="LineNr"> 909 </span> 0x1f6/imm32 -<span id="L910" class="LineNr"> 910 </span> <span class="subxComment"># sector-count-port: int</span> -<span id="L911" class="LineNr"> 911 </span> 0x1f2/imm32 -<span id="L912" class="LineNr"> 912 </span> <span class="subxComment"># lba-low-port: int</span> -<span id="L913" class="LineNr"> 913 </span> 0x1f3/imm32 -<span id="L914" class="LineNr"> 914 </span> <span class="subxComment"># lba-mid-port: int</span> -<span id="L915" class="LineNr"> 915 </span> 0x1f4/imm32 -<span id="L916" class="LineNr"> 916 </span> <span class="subxComment"># lba-high-port: int</span> -<span id="L917" class="LineNr"> 917 </span> 0x1f5/imm32 -<span id="L918" class="LineNr"> 918 </span> <span class="subxComment"># data-port: int</span> -<span id="L919" class="LineNr"> 919 </span> 0x1f0/imm32 -<span id="L920" class="LineNr"> 920 </span> <span class="subxComment"># drive-code: byte # only drive-specific field</span> -<span id="L921" class="LineNr"> 921 </span> 0xf0/imm32 <span class="subxComment"># LBA mode also enabled</span> -<span id="L922" class="LineNr"> 922 </span> -<span id="L923" class="LineNr"> 923 </span>== code -<span id="L924" class="LineNr"> 924 </span> -<span id="L925" class="LineNr"> 925 </span><span class="subxFunction">load-sectors</span>: <span class="subxComment"># disk: (addr disk), lba: int, n: int, out: (addr stream byte)</span> -<span id="L926" class="LineNr"> 926 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L927" class="LineNr"> 927 </span> 55/push-ebp -<span id="L928" class="LineNr"> 928 </span> 89/<- %ebp 4/r32/esp -<span id="L929" class="LineNr"> 929 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L930" class="LineNr"> 930 </span> 50/push-eax -<span id="L931" class="LineNr"> 931 </span> 51/push-ecx -<span id="L932" class="LineNr"> 932 </span> 52/push-edx -<span id="L933" class="LineNr"> 933 </span> <span class="subxComment"># check for drive</span> -<span id="L934" class="LineNr"> 934 </span> (<a href='boot.subx.html#L1096'>drive-exists?</a> *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L935" class="LineNr"> 935 </span> 3d/compare-eax-and 0/imm32/false -<span id="L936" class="LineNr"> 936 </span> 0f 84/jump-if-= $load-sectors:end/disp32 -<span id="L937" class="LineNr"> 937 </span> <span class="subxComment"># kick off read</span> -<span id="L938" class="LineNr"> 938 </span> (<a href='boot.subx.html#L1160'>ata-drive-select</a> *(ebp+8) *(ebp+0xc)) -<span id="L939" class="LineNr"> 939 </span> (<a href='boot.subx.html#L1189'>clear-ata-error</a> *(ebp+8)) -<span id="L940" class="LineNr"> 940 </span> (<a href='boot.subx.html#L1211'>ata-sector-count</a> *(ebp+8) *(ebp+0x10)) -<span id="L941" class="LineNr"> 941 </span> (<a href='boot.subx.html#L1233'>ata-lba</a> *(ebp+8) *(ebp+0xc)) -<span id="L942" class="LineNr"> 942 </span> (<a href='boot.subx.html#L1264'>ata-command</a> *(ebp+8) 0x20) <span class="subxComment"># read sectors with retries</span> -<span id="L943" class="LineNr"> 943 </span> <span class="subxComment"># for each sector</span> -<span id="L944" class="LineNr"> 944 </span> { -<span id="L945" class="LineNr"> 945 </span> <span class="subxComment"># poll for results</span> -<span id="L946" class="LineNr"> 946 </span><span class="CommentedCode">#? (draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0 "waiting for sector.." 7 0)</span> -<span id="L947" class="LineNr"> 947 </span> (<a href='boot.subx.html#L1286'>while-ata-busy</a> *(ebp+8)) -<span id="L948" class="LineNr"> 948 </span> (<a href='boot.subx.html#L1305'>until-ata-data-available</a> *(ebp+8)) -<span id="L949" class="LineNr"> 949 </span><span class="CommentedCode">#? (draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0 "reading\n" 7 0)</span> -<span id="L950" class="LineNr"> 950 </span> <span class="subxComment"># var data-port/edx = disk->data-port</span> -<span id="L951" class="LineNr"> 951 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L952" class="LineNr"> 952 </span> 8b/-> *(eax+0x24) 2/r32/edx -<span id="L953" class="LineNr"> 953 </span> <span class="subxComment"># emit results</span> -<span id="L954" class="LineNr"> 954 </span> 31/xor %eax 0/r32/eax -<span id="L955" class="LineNr"> 955 </span> b9/copy-to-ecx 0x200/imm32 <span class="subxComment"># 512 bytes per sector</span> -<span id="L956" class="LineNr"> 956 </span> { -<span id="L957" class="LineNr"> 957 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L958" class="LineNr"> 958 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L959" class="LineNr"> 959 </span> 66 ed/read-port-dx-into-ax -<span id="L960" class="LineNr"> 960 </span> <span class="subxComment"># write 2 bytes to stream one at a time</span> -<span id="L961" class="LineNr"> 961 </span> (<a href='115write-byte.subx.html#L12'>append-byte</a> *(ebp+0x14) %eax) -<span id="L962" class="LineNr"> 962 </span> 49/decrement-ecx -<span id="L963" class="LineNr"> 963 </span> c1/shift 5/subop/right-padding-zeroes %eax 8/imm8 -<span id="L964" class="LineNr"> 964 </span> (<a href='115write-byte.subx.html#L12'>append-byte</a> *(ebp+0x14) %eax) -<span id="L965" class="LineNr"> 965 </span> 49/decrement-ecx -<span id="L966" class="LineNr"> 966 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L967" class="LineNr"> 967 </span> } -<span id="L968" class="LineNr"> 968 </span> <span class="subxComment"># next sector</span> -<span id="L969" class="LineNr"> 969 </span> ff 1/subop/decrement *(ebp+0x10) -<span id="L970" class="LineNr"> 970 </span><span class="CommentedCode">#? (draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen 0 *(ebp+0x10) 0xc 0)</span> -<span id="L971" class="LineNr"> 971 </span> 81 7/subop/compare *(ebp+0x10) 0/imm32 -<span id="L972" class="LineNr"> 972 </span> 7e/jump-if-<= <span class="Constant">break</span>/disp8 -<span id="L973" class="LineNr"> 973 </span> (<a href='boot.subx.html#L1329'>wait-400ns</a> *(ebp+8)) -<span id="L974" class="LineNr"> 974 </span><span class="CommentedCode">#? (draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0 "next sector\n" 7 0)</span> -<span id="L975" class="LineNr"> 975 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L976" class="LineNr"> 976 </span> } -<span id="L977" class="LineNr"> 977 </span><span class="Constant">$load-sectors:end</span>: -<span id="L978" class="LineNr"> 978 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L979" class="LineNr"> 979 </span> 5a/pop-to-edx -<span id="L980" class="LineNr"> 980 </span> 59/pop-to-ecx -<span id="L981" class="LineNr"> 981 </span> 58/pop-to-eax -<span id="L982" class="LineNr"> 982 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L983" class="LineNr"> 983 </span> 89/<- %esp 5/r32/ebp -<span id="L984" class="LineNr"> 984 </span> 5d/pop-to-ebp -<span id="L985" class="LineNr"> 985 </span> c3/return -<span id="L986" class="LineNr"> 986 </span> -<span id="L987" class="LineNr"> 987 </span><span class="subxFunction">store-sectors</span>: <span class="subxComment"># disk: (addr disk), lba: int, n: int, in: (addr stream byte)</span> -<span id="L988" class="LineNr"> 988 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L989" class="LineNr"> 989 </span> 55/push-ebp -<span id="L990" class="LineNr"> 990 </span> 89/<- %ebp 4/r32/esp -<span id="L991" class="LineNr"> 991 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L992" class="LineNr"> 992 </span> 50/push-eax -<span id="L993" class="LineNr"> 993 </span> 51/push-ecx -<span id="L994" class="LineNr"> 994 </span> 52/push-edx -<span id="L995" class="LineNr"> 995 </span> 53/push-ebx -<span id="L996" class="LineNr"> 996 </span> <span class="subxComment"># check for drive</span> -<span id="L997" class="LineNr"> 997 </span> (<a href='boot.subx.html#L1096'>drive-exists?</a> *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L998" class="LineNr"> 998 </span> 3d/compare-eax-and 0/imm32/false -<span id="L999" class="LineNr"> 999 </span> 0f 84/jump-if-= $store-sectors:end/disp32 -<span id="L1000" class="LineNr">1000 </span> <span class="subxComment"># kick off write</span> -<span id="L1001" class="LineNr">1001 </span> (<a href='boot.subx.html#L1160'>ata-drive-select</a> *(ebp+8) *(ebp+0xc)) -<span id="L1002" class="LineNr">1002 </span> (<a href='boot.subx.html#L1189'>clear-ata-error</a> *(ebp+8)) -<span id="L1003" class="LineNr">1003 </span> (<a href='boot.subx.html#L1211'>ata-sector-count</a> *(ebp+8) *(ebp+0x10)) -<span id="L1004" class="LineNr">1004 </span> (<a href='boot.subx.html#L1233'>ata-lba</a> *(ebp+8) *(ebp+0xc)) -<span id="L1005" class="LineNr">1005 </span> (<a href='boot.subx.html#L1264'>ata-command</a> *(ebp+8) 0x30) <span class="subxComment"># write sectors with retries</span> -<span id="L1006" class="LineNr">1006 </span> <span class="subxComment"># for each sector</span> -<span id="L1007" class="LineNr">1007 </span><span class="CommentedCode">#? (set-cursor-position 0 0 0)</span> -<span id="L1008" class="LineNr">1008 </span><span class="CommentedCode">#? (draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0 "0" 7 0)</span> -<span id="L1009" class="LineNr">1009 </span> { -<span id="L1010" class="LineNr">1010 </span> <span class="subxComment"># wait</span> -<span id="L1011" class="LineNr">1011 </span> (<a href='boot.subx.html#L1286'>while-ata-busy</a> *(ebp+8)) -<span id="L1012" class="LineNr">1012 </span> (<a href='boot.subx.html#L1324'>until-ata-ready-for-data</a> *(ebp+8)) -<span id="L1013" class="LineNr">1013 </span> <span class="subxComment"># var data-port/edx = disk->data-port</span> -<span id="L1014" class="LineNr">1014 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L1015" class="LineNr">1015 </span> 8b/-> *(eax+0x24) 2/r32/edx -<span id="L1016" class="LineNr">1016 </span> <span class="subxComment"># send data</span> -<span id="L1017" class="LineNr">1017 </span> b9/copy-to-ecx 0x200/imm32 <span class="subxComment"># 512 bytes per sector</span> -<span id="L1018" class="LineNr">1018 </span> <span class="subxS1Comment"># . var first-byte/ebx: byte</span> -<span id="L1019" class="LineNr">1019 </span> <span class="subxS1Comment"># . when it's more than 0xff, we're at an even-numbered byte</span> -<span id="L1020" class="LineNr">1020 </span> bb/copy-to-ebx 0xffff/imm32 -<span id="L1021" class="LineNr">1021 </span><span class="CommentedCode">#? (draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0 "D" 7 0)</span> -<span id="L1022" class="LineNr">1022 </span><span class="Constant">$store-sectors:store-sector</span>: -<span id="L1023" class="LineNr">1023 </span> { -<span id="L1024" class="LineNr">1024 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L1025" class="LineNr">1025 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L1026" class="LineNr">1026 </span> <span class="subxComment"># this loop is slow, but the ATA spec also requires a small delay</span> -<span id="L1027" class="LineNr">1027 </span> (<a href='309stream.subx.html#L6'>stream-empty?</a> *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L1028" class="LineNr">1028 </span> 3d/compare-eax-and 0/imm32/false -<span id="L1029" class="LineNr">1029 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L1030" class="LineNr">1030 </span> <span class="subxComment"># read byte from stream</span> -<span id="L1031" class="LineNr">1031 </span> (<a href='112read-byte.subx.html#L13'>read-byte</a> *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L1032" class="LineNr">1032 </span> <span class="subxComment"># if we're at an odd-numbered byte, save it to first-byte</span> -<span id="L1033" class="LineNr">1033 </span> 81 7/subop/compare %ebx 0xff/imm32 -<span id="L1034" class="LineNr">1034 </span> { -<span id="L1035" class="LineNr">1035 </span> 7e/jump-if-<= <span class="Constant">break</span>/disp8 -<span id="L1036" class="LineNr">1036 </span> 89/<- %ebx 0/r32/eax -<span id="L1037" class="LineNr">1037 </span> eb/jump $store-sectors:store-sector/disp8 -<span id="L1038" class="LineNr">1038 </span> } -<span id="L1039" class="LineNr">1039 </span> <span class="subxComment"># otherwise OR it with first-byte and write it out</span> -<span id="L1040" class="LineNr">1040 </span> c1/shift 4/subop/left %eax 8/imm8 -<span id="L1041" class="LineNr">1041 </span> 09/or %eax 3/r32/ebx -<span id="L1042" class="LineNr">1042 </span> 66 ef/write-ax-into-port-dx -<span id="L1043" class="LineNr">1043 </span> 49/decrement-ecx -<span id="L1044" class="LineNr">1044 </span> 49/decrement-ecx -<span id="L1045" class="LineNr">1045 </span> <span class="subxComment"># reset first-byte</span> -<span id="L1046" class="LineNr">1046 </span> bb/copy-to-ebx 0xffff/imm32 -<span id="L1047" class="LineNr">1047 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L1048" class="LineNr">1048 </span> } -<span id="L1049" class="LineNr">1049 </span> <span class="subxComment"># write out final first-byte if necessary</span> -<span id="L1050" class="LineNr">1050 </span><span class="CommentedCode">#? (draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0 "I" 7 0)</span> -<span id="L1051" class="LineNr">1051 </span> 81 7/subop/compare %ebx 0xff/imm32 -<span id="L1052" class="LineNr">1052 </span> { -<span id="L1053" class="LineNr">1053 </span> 7f/jump-if-> <span class="Constant">break</span>/disp8 -<span id="L1054" class="LineNr">1054 </span> 89/<- %eax 3/r32/ebx -<span id="L1055" class="LineNr">1055 </span> 66 ef/write-ax-into-port-dx -<span id="L1056" class="LineNr">1056 </span> 49/decrement-ecx -<span id="L1057" class="LineNr">1057 </span> 49/decrement-ecx -<span id="L1058" class="LineNr">1058 </span> } -<span id="L1059" class="LineNr">1059 </span> <span class="subxComment"># pad zeroes</span> -<span id="L1060" class="LineNr">1060 </span><span class="CommentedCode">#? (draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0 "P" 7 0)</span> -<span id="L1061" class="LineNr">1061 </span> 31/xor %eax 0/r32/eax -<span id="L1062" class="LineNr">1062 </span> { -<span id="L1063" class="LineNr">1063 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L1064" class="LineNr">1064 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L1065" class="LineNr">1065 </span> 66 ef/write-ax-into-port-dx +<span id="L892" class="LineNr"> 892 </span><span class="subxComment"># code disk</span> +<span id="L893" class="LineNr"> 893 </span><span class="subxComment"># All ports are 8-bit except data-port, which is 16-bit.</span> +<span id="L894" class="LineNr"> 894 </span><span class="SpecialChar">Primary-bus-primary-drive</span>: +<span id="L895" class="LineNr"> 895 </span> <span class="subxComment"># command-port: int (write)</span> +<span id="L896" class="LineNr"> 896 </span> 0x1f7/imm32 +<span id="L897" class="LineNr"> 897 </span> <span class="subxComment"># status-port: int (read)</span> +<span id="L898" class="LineNr"> 898 </span> 0x1f7/imm32 +<span id="L899" class="LineNr"> 899 </span> <span class="subxComment"># alternative-status-port: int (read)</span> +<span id="L900" class="LineNr"> 900 </span> 0x3f6/imm32 +<span id="L901" class="LineNr"> 901 </span> <span class="subxComment"># error-port: int (read)</span> +<span id="L902" class="LineNr"> 902 </span> 0x1f1/imm32 +<span id="L903" class="LineNr"> 903 </span> <span class="subxComment"># drive-and-head-port: int</span> +<span id="L904" class="LineNr"> 904 </span> 0x1f6/imm32 +<span id="L905" class="LineNr"> 905 </span> <span class="subxComment"># sector-count-port: int</span> +<span id="L906" class="LineNr"> 906 </span> 0x1f2/imm32 +<span id="L907" class="LineNr"> 907 </span> <span class="subxComment"># lba-low-port: int</span> +<span id="L908" class="LineNr"> 908 </span> 0x1f3/imm32 +<span id="L909" class="LineNr"> 909 </span> <span class="subxComment"># lba-mid-port: int</span> +<span id="L910" class="LineNr"> 910 </span> 0x1f4/imm32 +<span id="L911" class="LineNr"> 911 </span> <span class="subxComment"># lba-high-port: int</span> +<span id="L912" class="LineNr"> 912 </span> 0x1f5/imm32 +<span id="L913" class="LineNr"> 913 </span> <span class="subxComment"># data-port: int</span> +<span id="L914" class="LineNr"> 914 </span> 0x1f0/imm32 +<span id="L915" class="LineNr"> 915 </span> <span class="subxComment"># drive-code: byte # only drive-specific field</span> +<span id="L916" class="LineNr"> 916 </span> 0xe0/imm32 <span class="subxComment"># LBA mode also enabled</span> +<span id="L917" class="LineNr"> 917 </span> +<span id="L918" class="LineNr"> 918 </span><span class="subxComment"># data disk</span> +<span id="L919" class="LineNr"> 919 </span><span class="subxComment"># All ports are 8-bit except data-port, which is 16-bit.</span> +<span id="L920" class="LineNr"> 920 </span><span class="SpecialChar">Primary-bus-secondary-drive</span>: +<span id="L921" class="LineNr"> 921 </span> <span class="subxComment"># command-port: int (write)</span> +<span id="L922" class="LineNr"> 922 </span> 0x1f7/imm32 +<span id="L923" class="LineNr"> 923 </span> <span class="subxComment"># status-port: int (read)</span> +<span id="L924" class="LineNr"> 924 </span> 0x1f7/imm32 +<span id="L925" class="LineNr"> 925 </span> <span class="subxComment"># alternative-status-port: int (read)</span> +<span id="L926" class="LineNr"> 926 </span> 0x3f6/imm32 +<span id="L927" class="LineNr"> 927 </span> <span class="subxComment"># error-port: int (read)</span> +<span id="L928" class="LineNr"> 928 </span> 0x1f1/imm32 +<span id="L929" class="LineNr"> 929 </span> <span class="subxComment"># drive-and-head-port: int</span> +<span id="L930" class="LineNr"> 930 </span> 0x1f6/imm32 +<span id="L931" class="LineNr"> 931 </span> <span class="subxComment"># sector-count-port: int</span> +<span id="L932" class="LineNr"> 932 </span> 0x1f2/imm32 +<span id="L933" class="LineNr"> 933 </span> <span class="subxComment"># lba-low-port: int</span> +<span id="L934" class="LineNr"> 934 </span> 0x1f3/imm32 +<span id="L935" class="LineNr"> 935 </span> <span class="subxComment"># lba-mid-port: int</span> +<span id="L936" class="LineNr"> 936 </span> 0x1f4/imm32 +<span id="L937" class="LineNr"> 937 </span> <span class="subxComment"># lba-high-port: int</span> +<span id="L938" class="LineNr"> 938 </span> 0x1f5/imm32 +<span id="L939" class="LineNr"> 939 </span> <span class="subxComment"># data-port: int</span> +<span id="L940" class="LineNr"> 940 </span> 0x1f0/imm32 +<span id="L941" class="LineNr"> 941 </span> <span class="subxComment"># drive-code: byte # only drive-specific field</span> +<span id="L942" class="LineNr"> 942 </span> 0xf0/imm32 <span class="subxComment"># LBA mode also enabled</span> +<span id="L943" class="LineNr"> 943 </span> +<span id="L944" class="LineNr"> 944 </span>== code +<span id="L945" class="LineNr"> 945 </span> +<span id="L946" class="LineNr"> 946 </span><span class="subxFunction">load-sectors</span>: <span class="subxComment"># disk: (addr disk), lba: int, n: int, out: (addr stream byte)</span> +<span id="L947" class="LineNr"> 947 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L948" class="LineNr"> 948 </span> 55/push-ebp +<span id="L949" class="LineNr"> 949 </span> 89/<- %ebp 4/r32/esp +<span id="L950" class="LineNr"> 950 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L951" class="LineNr"> 951 </span> 50/push-eax +<span id="L952" class="LineNr"> 952 </span> 51/push-ecx +<span id="L953" class="LineNr"> 953 </span> 52/push-edx +<span id="L954" class="LineNr"> 954 </span> <span class="subxComment"># check for drive</span> +<span id="L955" class="LineNr"> 955 </span> (<a href='boot.subx.html#L1118'>drive-exists?</a> *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L956" class="LineNr"> 956 </span> 3d/compare-eax-and 0/imm32/false +<span id="L957" class="LineNr"> 957 </span> 0f 84/jump-if-= $load-sectors:end/disp32 +<span id="L958" class="LineNr"> 958 </span> <span class="subxComment"># kick off read</span> +<span id="L959" class="LineNr"> 959 </span> (<a href='boot.subx.html#L1182'>ata-drive-select</a> *(ebp+8) *(ebp+0xc)) +<span id="L960" class="LineNr"> 960 </span> (<a href='boot.subx.html#L1211'>clear-ata-error</a> *(ebp+8)) +<span id="L961" class="LineNr"> 961 </span> (<a href='boot.subx.html#L1233'>ata-sector-count</a> *(ebp+8) *(ebp+0x10)) +<span id="L962" class="LineNr"> 962 </span> (<a href='boot.subx.html#L1255'>ata-lba</a> *(ebp+8) *(ebp+0xc)) +<span id="L963" class="LineNr"> 963 </span> (<a href='boot.subx.html#L1286'>ata-command</a> *(ebp+8) 0x20) <span class="subxComment"># read sectors with retries</span> +<span id="L964" class="LineNr"> 964 </span> <span class="subxComment"># for each sector</span> +<span id="L965" class="LineNr"> 965 </span> { +<span id="L966" class="LineNr"> 966 </span> <span class="subxComment"># poll for results</span> +<span id="L967" class="LineNr"> 967 </span><span class="CommentedCode">#? (draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0 "waiting for sector.." 7 0)</span> +<span id="L968" class="LineNr"> 968 </span><span class="CommentedCode">#? (draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0 "." 7 0)</span> +<span id="L969" class="LineNr"> 969 </span> (<a href='boot.subx.html#L1308'>while-ata-busy</a> *(ebp+8)) +<span id="L970" class="LineNr"> 970 </span> (<a href='boot.subx.html#L1327'>until-ata-data-available</a> *(ebp+8)) +<span id="L971" class="LineNr"> 971 </span><span class="CommentedCode">#? (draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0 "reading\n" 7 0)</span> +<span id="L972" class="LineNr"> 972 </span> <span class="subxComment"># var data-port/edx = disk->data-port</span> +<span id="L973" class="LineNr"> 973 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L974" class="LineNr"> 974 </span> 8b/-> *(eax+0x24) 2/r32/edx +<span id="L975" class="LineNr"> 975 </span> <span class="subxComment"># emit results</span> +<span id="L976" class="LineNr"> 976 </span> 31/xor %eax 0/r32/eax +<span id="L977" class="LineNr"> 977 </span> b9/copy-to-ecx 0x200/imm32 <span class="subxComment"># 512 bytes per sector</span> +<span id="L978" class="LineNr"> 978 </span> { +<span id="L979" class="LineNr"> 979 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L980" class="LineNr"> 980 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L981" class="LineNr"> 981 </span> 66 ed/read-port-dx-into-ax +<span id="L982" class="LineNr"> 982 </span> <span class="subxComment"># write 2 bytes to stream one at a time</span> +<span id="L983" class="LineNr"> 983 </span> (<a href='115write-byte.subx.html#L12'>append-byte</a> *(ebp+0x14) %eax) +<span id="L984" class="LineNr"> 984 </span> 49/decrement-ecx +<span id="L985" class="LineNr"> 985 </span> c1/shift 5/subop/right-padding-zeroes %eax 8/imm8 +<span id="L986" class="LineNr"> 986 </span> (<a href='115write-byte.subx.html#L12'>append-byte</a> *(ebp+0x14) %eax) +<span id="L987" class="LineNr"> 987 </span> 49/decrement-ecx +<span id="L988" class="LineNr"> 988 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L989" class="LineNr"> 989 </span> } +<span id="L990" class="LineNr"> 990 </span> <span class="subxComment"># next sector</span> +<span id="L991" class="LineNr"> 991 </span> ff 1/subop/decrement *(ebp+0x10) +<span id="L992" class="LineNr"> 992 </span><span class="CommentedCode">#? (draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen 0 *(ebp+0x10) 0xc 0)</span> +<span id="L993" class="LineNr"> 993 </span> 81 7/subop/compare *(ebp+0x10) 0/imm32 +<span id="L994" class="LineNr"> 994 </span> 7e/jump-if-<= <span class="Constant">break</span>/disp8 +<span id="L995" class="LineNr"> 995 </span> (<a href='boot.subx.html#L1351'>wait-400ns</a> *(ebp+8)) +<span id="L996" class="LineNr"> 996 </span><span class="CommentedCode">#? (draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0 "next sector\n" 7 0)</span> +<span id="L997" class="LineNr"> 997 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L998" class="LineNr"> 998 </span> } +<span id="L999" class="LineNr"> 999 </span><span class="Constant">$load-sectors:end</span>: +<span id="L1000" class="LineNr">1000 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L1001" class="LineNr">1001 </span> 5a/pop-to-edx +<span id="L1002" class="LineNr">1002 </span> 59/pop-to-ecx +<span id="L1003" class="LineNr">1003 </span> 58/pop-to-eax +<span id="L1004" class="LineNr">1004 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1005" class="LineNr">1005 </span> 89/<- %esp 5/r32/ebp +<span id="L1006" class="LineNr">1006 </span> 5d/pop-to-ebp +<span id="L1007" class="LineNr">1007 </span> c3/return +<span id="L1008" class="LineNr">1008 </span> +<span id="L1009" class="LineNr">1009 </span><span class="subxFunction">store-sectors</span>: <span class="subxComment"># disk: (addr disk), lba: int, n: int, in: (addr stream byte)</span> +<span id="L1010" class="LineNr">1010 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1011" class="LineNr">1011 </span> 55/push-ebp +<span id="L1012" class="LineNr">1012 </span> 89/<- %ebp 4/r32/esp +<span id="L1013" class="LineNr">1013 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L1014" class="LineNr">1014 </span> 50/push-eax +<span id="L1015" class="LineNr">1015 </span> 51/push-ecx +<span id="L1016" class="LineNr">1016 </span> 52/push-edx +<span id="L1017" class="LineNr">1017 </span> 53/push-ebx +<span id="L1018" class="LineNr">1018 </span> <span class="subxComment"># check for drive</span> +<span id="L1019" class="LineNr">1019 </span> (<a href='boot.subx.html#L1118'>drive-exists?</a> *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L1020" class="LineNr">1020 </span> 3d/compare-eax-and 0/imm32/false +<span id="L1021" class="LineNr">1021 </span> 0f 84/jump-if-= $store-sectors:end/disp32 +<span id="L1022" class="LineNr">1022 </span> <span class="subxComment"># kick off write</span> +<span id="L1023" class="LineNr">1023 </span> (<a href='boot.subx.html#L1182'>ata-drive-select</a> *(ebp+8) *(ebp+0xc)) +<span id="L1024" class="LineNr">1024 </span> (<a href='boot.subx.html#L1211'>clear-ata-error</a> *(ebp+8)) +<span id="L1025" class="LineNr">1025 </span> (<a href='boot.subx.html#L1233'>ata-sector-count</a> *(ebp+8) *(ebp+0x10)) +<span id="L1026" class="LineNr">1026 </span> (<a href='boot.subx.html#L1255'>ata-lba</a> *(ebp+8) *(ebp+0xc)) +<span id="L1027" class="LineNr">1027 </span> (<a href='boot.subx.html#L1286'>ata-command</a> *(ebp+8) 0x30) <span class="subxComment"># write sectors with retries</span> +<span id="L1028" class="LineNr">1028 </span> <span class="subxComment"># for each sector</span> +<span id="L1029" class="LineNr">1029 </span><span class="CommentedCode">#? (set-cursor-position 0 0 0)</span> +<span id="L1030" class="LineNr">1030 </span><span class="CommentedCode">#? (draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0 "0" 7 0)</span> +<span id="L1031" class="LineNr">1031 </span> { +<span id="L1032" class="LineNr">1032 </span> <span class="subxComment"># wait</span> +<span id="L1033" class="LineNr">1033 </span> (<a href='boot.subx.html#L1308'>while-ata-busy</a> *(ebp+8)) +<span id="L1034" class="LineNr">1034 </span> (<a href='boot.subx.html#L1346'>until-ata-ready-for-data</a> *(ebp+8)) +<span id="L1035" class="LineNr">1035 </span> <span class="subxComment"># var data-port/edx = disk->data-port</span> +<span id="L1036" class="LineNr">1036 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L1037" class="LineNr">1037 </span> 8b/-> *(eax+0x24) 2/r32/edx +<span id="L1038" class="LineNr">1038 </span> <span class="subxComment"># send data</span> +<span id="L1039" class="LineNr">1039 </span> b9/copy-to-ecx 0x200/imm32 <span class="subxComment"># 512 bytes per sector</span> +<span id="L1040" class="LineNr">1040 </span> <span class="subxS1Comment"># . var first-byte/ebx: byte</span> +<span id="L1041" class="LineNr">1041 </span> <span class="subxS1Comment"># . when it's more than 0xff, we're at an even-numbered byte</span> +<span id="L1042" class="LineNr">1042 </span> bb/copy-to-ebx 0xffff/imm32 +<span id="L1043" class="LineNr">1043 </span><span class="CommentedCode">#? (draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0 "D" 7 0)</span> +<span id="L1044" class="LineNr">1044 </span><span class="Constant">$store-sectors:store-sector</span>: +<span id="L1045" class="LineNr">1045 </span> { +<span id="L1046" class="LineNr">1046 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L1047" class="LineNr">1047 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L1048" class="LineNr">1048 </span> <span class="subxComment"># this loop is slow, but the ATA spec also requires a small delay</span> +<span id="L1049" class="LineNr">1049 </span> (<a href='309stream.subx.html#L6'>stream-empty?</a> *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L1050" class="LineNr">1050 </span> 3d/compare-eax-and 0/imm32/false +<span id="L1051" class="LineNr">1051 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L1052" class="LineNr">1052 </span> <span class="subxComment"># read byte from stream</span> +<span id="L1053" class="LineNr">1053 </span> (<a href='112read-byte.subx.html#L13'>read-byte</a> *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L1054" class="LineNr">1054 </span> <span class="subxComment"># if we're at an odd-numbered byte, save it to first-byte</span> +<span id="L1055" class="LineNr">1055 </span> 81 7/subop/compare %ebx 0xff/imm32 +<span id="L1056" class="LineNr">1056 </span> { +<span id="L1057" class="LineNr">1057 </span> 7e/jump-if-<= <span class="Constant">break</span>/disp8 +<span id="L1058" class="LineNr">1058 </span> 89/<- %ebx 0/r32/eax +<span id="L1059" class="LineNr">1059 </span> eb/jump $store-sectors:store-sector/disp8 +<span id="L1060" class="LineNr">1060 </span> } +<span id="L1061" class="LineNr">1061 </span> <span class="subxComment"># otherwise OR it with first-byte and write it out</span> +<span id="L1062" class="LineNr">1062 </span> c1/shift 4/subop/left %eax 8/imm8 +<span id="L1063" class="LineNr">1063 </span> 09/or %eax 3/r32/ebx +<span id="L1064" class="LineNr">1064 </span> 66 ef/write-ax-into-port-dx +<span id="L1065" class="LineNr">1065 </span> 49/decrement-ecx <span id="L1066" class="LineNr">1066 </span> 49/decrement-ecx -<span id="L1067" class="LineNr">1067 </span> 49/decrement-ecx -<span id="L1068" class="LineNr">1068 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L1069" class="LineNr">1069 </span> } -<span id="L1070" class="LineNr">1070 </span> <span class="subxComment"># next sector</span> -<span id="L1071" class="LineNr">1071 </span><span class="CommentedCode">#? (draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0 "N" 7 0)</span> -<span id="L1072" class="LineNr">1072 </span> ff 1/subop/decrement *(ebp+0x10) -<span id="L1073" class="LineNr">1073 </span> 81 7/subop/compare *(ebp+0x10) 0/imm32 -<span id="L1074" class="LineNr">1074 </span> 7e/jump-if-<= <span class="Constant">break</span>/disp8 -<span id="L1075" class="LineNr">1075 </span><span class="CommentedCode">#? (draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0 "W" 7 0)</span> -<span id="L1076" class="LineNr">1076 </span> (<a href='boot.subx.html#L1329'>wait-400ns</a> *(ebp+8)) -<span id="L1077" class="LineNr">1077 </span><span class="CommentedCode">#? (draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0 "L" 7 0)</span> -<span id="L1078" class="LineNr">1078 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L1079" class="LineNr">1079 </span> } -<span id="L1080" class="LineNr">1080 </span><span class="CommentedCode">#? (draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0 "F" 7 0)</span> -<span id="L1081" class="LineNr">1081 </span> (<a href='boot.subx.html#L1363'>flush-ata-cache</a> *(ebp+8)) -<span id="L1082" class="LineNr">1082 </span><span class="CommentedCode">#? (draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0 "Y" 7 0)</span> -<span id="L1083" class="LineNr">1083 </span><span class="Constant">$store-sectors:end</span>: -<span id="L1084" class="LineNr">1084 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L1085" class="LineNr">1085 </span> 5b/pop-to-ebx -<span id="L1086" class="LineNr">1086 </span> 5a/pop-to-edx -<span id="L1087" class="LineNr">1087 </span> 59/pop-to-ecx -<span id="L1088" class="LineNr">1088 </span> 58/pop-to-eax -<span id="L1089" class="LineNr">1089 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1090" class="LineNr">1090 </span> 89/<- %esp 5/r32/ebp -<span id="L1091" class="LineNr">1091 </span> 5d/pop-to-ebp -<span id="L1092" class="LineNr">1092 </span> c3/return -<span id="L1093" class="LineNr">1093 </span> -<span id="L1094" class="Folded">1094 </span><span class="Folded">+--289 lines: # disk helpers ------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1383" class="LineNr">1383 </span> -<span id="L1384" class="LineNr">1384 </span><span class="subxComment">## Controlling a PS/2 mouse</span> -<span id="L1385" class="LineNr">1385 </span><span class="subxComment"># Uses no IRQs, just polling.</span> -<span id="L1386" class="LineNr">1386 </span><span class="subxComment"># Thanks Dave Long: <a href="https://github.com/jtauber/cleese/blob/master/necco/kernel/bochs/py8042.py">https://github.com/jtauber/cleese/blob/master/necco/kernel/bochs/py8042.py</a></span> -<span id="L1387" class="LineNr">1387 </span><span class="subxComment">#</span> -<span id="L1388" class="LineNr">1388 </span><span class="subxComment"># Resources:</span> -<span id="L1389" class="LineNr">1389 </span><span class="subxComment"># <a href="https://wiki.osdev.org/Mouse_Input">https://wiki.osdev.org/Mouse_Input</a></span> -<span id="L1390" class="LineNr">1390 </span> -<span id="L1391" class="LineNr">1391 </span><span class="subxComment"># results x/eax, y/ecx range from -256 to +255</span> -<span id="L1392" class="LineNr">1392 </span><span class="subxComment"># See <a href="https://wiki.osdev.org/index.php?title=Mouse_Input&oldid=25663#Format_of_First_3_Packet_Bytes">https://wiki.osdev.org/index.php?title=Mouse_Input&oldid=25663#Format_of_First_3_Packet_Bytes</a></span> -<span id="L1393" class="LineNr">1393 </span><span class="subxFunction">read-mouse-event</span>: <span class="subxComment"># -> _/eax: int, _/ecx: int</span> -<span id="L1394" class="LineNr">1394 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1395" class="LineNr">1395 </span> 55/push-ebp -<span id="L1396" class="LineNr">1396 </span> 89/<- %ebp 4/r32/esp -<span id="L1397" class="LineNr">1397 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L1398" class="LineNr">1398 </span> 52/push-edx -<span id="L1399" class="LineNr">1399 </span> 53/push-ebx -<span id="L1400" class="LineNr">1400 </span> <span class="subxComment"># if no event, return 0, 0</span> -<span id="L1401" class="LineNr">1401 </span> b8/copy-to-eax 0/imm32 -<span id="L1402" class="LineNr">1402 </span> b9/copy-to-ecx 0/imm32 -<span id="L1403" class="LineNr">1403 </span> (<a href='boot.subx.html#L1460'>any-mouse-event?</a>) <span class="subxComment"># => eax</span> -<span id="L1404" class="LineNr">1404 </span> 3d/compare-eax-and 0/imm32/false -<span id="L1405" class="LineNr">1405 </span> 74/jump-if-= $read-mouse-event:end/disp8 -<span id="L1406" class="LineNr">1406 </span> <span class="subxComment"># var f1/edx: byte = inb(0x60)</span> -<span id="L1407" class="LineNr">1407 </span> 31/xor %eax 0/r32/eax -<span id="L1408" class="LineNr">1408 </span> e4/read-port-into-al 0x60/imm8 -<span id="L1409" class="LineNr">1409 </span> 89/<- %edx 0/r32/eax -<span id="L1410" class="LineNr">1410 </span> (<a href='boot.subx.html#L1445'>wait-for-mouse-event</a>) -<span id="L1411" class="LineNr">1411 </span> <span class="subxComment"># var dx/ebx: byte = inb(0x60)</span> -<span id="L1412" class="LineNr">1412 </span> 31/xor %eax 0/r32/eax -<span id="L1413" class="LineNr">1413 </span> e4/read-port-into-al 0x60/imm8 -<span id="L1414" class="LineNr">1414 </span> 89/<- %ebx 0/r32/eax -<span id="L1415" class="LineNr">1415 </span> (<a href='boot.subx.html#L1445'>wait-for-mouse-event</a>) -<span id="L1416" class="LineNr">1416 </span> <span class="subxComment"># var dy/ecx: byte = inb(0x60)</span> -<span id="L1417" class="LineNr">1417 </span> 31/xor %eax 0/r32/eax -<span id="L1418" class="LineNr">1418 </span> e4/read-port-into-al 0x60/imm8 -<span id="L1419" class="LineNr">1419 </span> 89/<- %ecx 0/r32/eax -<span id="L1420" class="LineNr">1420 </span> <span class="subxComment"># eax = dx</span> -<span id="L1421" class="LineNr">1421 </span> 89/<- %eax 3/r32/ebx -<span id="L1422" class="LineNr">1422 </span> <span class="subxComment"># if (f1 & 0x10) dx = -dx</span> -<span id="L1423" class="LineNr">1423 </span> { -<span id="L1424" class="LineNr">1424 </span> f6 0/subop/test-bits %dl 0x10/imm8 -<span id="L1425" class="LineNr">1425 </span> 74/jump-if-zero <span class="Constant">break</span>/disp8 -<span id="L1426" class="LineNr">1426 </span> 0d/or-eax-with 0xffffff00/imm32 -<span id="L1427" class="LineNr">1427 </span> } -<span id="L1428" class="LineNr">1428 </span> <span class="subxComment"># if (f1 & 0x20) dy = -dy</span> -<span id="L1429" class="LineNr">1429 </span> { -<span id="L1430" class="LineNr">1430 </span> f6 0/subop/test-bits %dl 0x20/imm8 -<span id="L1431" class="LineNr">1431 </span> 74/jump-if-zero <span class="Constant">break</span>/disp8 -<span id="L1432" class="LineNr">1432 </span> 81 1/subop/or %ecx 0xffffff00/imm32 -<span id="L1433" class="LineNr">1433 </span> } -<span id="L1434" class="LineNr">1434 </span><span class="Constant">$read-mouse-event:end</span>: -<span id="L1435" class="LineNr">1435 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L1436" class="LineNr">1436 </span> 5b/pop-to-ebx -<span id="L1437" class="LineNr">1437 </span> 5a/pop-to-edx -<span id="L1438" class="LineNr">1438 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1439" class="LineNr">1439 </span> 89/<- %esp 5/r32/ebp -<span id="L1440" class="LineNr">1440 </span> 5d/pop-to-ebp -<span id="L1441" class="LineNr">1441 </span> c3/return -<span id="L1442" class="LineNr">1442 </span> -<span id="L1443" class="Folded">1443 </span><span class="Folded">+--147 lines: # mouse helpers -----------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1590" class="LineNr">1590 </span> -<span id="L1591" class="LineNr">1591 </span><span class="subxComment"># vim:ft=subx</span> +<span id="L1067" class="LineNr">1067 </span> <span class="subxComment"># reset first-byte</span> +<span id="L1068" class="LineNr">1068 </span> bb/copy-to-ebx 0xffff/imm32 +<span id="L1069" class="LineNr">1069 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L1070" class="LineNr">1070 </span> } +<span id="L1071" class="LineNr">1071 </span> <span class="subxComment"># write out final first-byte if necessary</span> +<span id="L1072" class="LineNr">1072 </span><span class="CommentedCode">#? (draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0 "I" 7 0)</span> +<span id="L1073" class="LineNr">1073 </span> 81 7/subop/compare %ebx 0xff/imm32 +<span id="L1074" class="LineNr">1074 </span> { +<span id="L1075" class="LineNr">1075 </span> 7f/jump-if-> <span class="Constant">break</span>/disp8 +<span id="L1076" class="LineNr">1076 </span> 89/<- %eax 3/r32/ebx +<span id="L1077" class="LineNr">1077 </span> 66 ef/write-ax-into-port-dx +<span id="L1078" class="LineNr">1078 </span> 49/decrement-ecx +<span id="L1079" class="LineNr">1079 </span> 49/decrement-ecx +<span id="L1080" class="LineNr">1080 </span> } +<span id="L1081" class="LineNr">1081 </span> <span class="subxComment"># pad zeroes</span> +<span id="L1082" class="LineNr">1082 </span><span class="CommentedCode">#? (draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0 "P" 7 0)</span> +<span id="L1083" class="LineNr">1083 </span> 31/xor %eax 0/r32/eax +<span id="L1084" class="LineNr">1084 </span> { +<span id="L1085" class="LineNr">1085 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L1086" class="LineNr">1086 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L1087" class="LineNr">1087 </span> 66 ef/write-ax-into-port-dx +<span id="L1088" class="LineNr">1088 </span> 49/decrement-ecx +<span id="L1089" class="LineNr">1089 </span> 49/decrement-ecx +<span id="L1090" class="LineNr">1090 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L1091" class="LineNr">1091 </span> } +<span id="L1092" class="LineNr">1092 </span> <span class="subxComment"># next sector</span> +<span id="L1093" class="LineNr">1093 </span><span class="CommentedCode">#? (draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0 "N" 7 0)</span> +<span id="L1094" class="LineNr">1094 </span> ff 1/subop/decrement *(ebp+0x10) +<span id="L1095" class="LineNr">1095 </span> 81 7/subop/compare *(ebp+0x10) 0/imm32 +<span id="L1096" class="LineNr">1096 </span> 7e/jump-if-<= <span class="Constant">break</span>/disp8 +<span id="L1097" class="LineNr">1097 </span><span class="CommentedCode">#? (draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0 "W" 7 0)</span> +<span id="L1098" class="LineNr">1098 </span> (<a href='boot.subx.html#L1351'>wait-400ns</a> *(ebp+8)) +<span id="L1099" class="LineNr">1099 </span><span class="CommentedCode">#? (draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0 "L" 7 0)</span> +<span id="L1100" class="LineNr">1100 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L1101" class="LineNr">1101 </span> } +<span id="L1102" class="LineNr">1102 </span><span class="CommentedCode">#? (draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0 "F" 7 0)</span> +<span id="L1103" class="LineNr">1103 </span> (<a href='boot.subx.html#L1385'>flush-ata-cache</a> *(ebp+8)) +<span id="L1104" class="LineNr">1104 </span><span class="CommentedCode">#? (draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0 "Y" 7 0)</span> +<span id="L1105" class="LineNr">1105 </span><span class="Constant">$store-sectors:end</span>: +<span id="L1106" class="LineNr">1106 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L1107" class="LineNr">1107 </span> 5b/pop-to-ebx +<span id="L1108" class="LineNr">1108 </span> 5a/pop-to-edx +<span id="L1109" class="LineNr">1109 </span> 59/pop-to-ecx +<span id="L1110" class="LineNr">1110 </span> 58/pop-to-eax +<span id="L1111" class="LineNr">1111 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1112" class="LineNr">1112 </span> 89/<- %esp 5/r32/ebp +<span id="L1113" class="LineNr">1113 </span> 5d/pop-to-ebp +<span id="L1114" class="LineNr">1114 </span> c3/return +<span id="L1115" class="LineNr">1115 </span> +<span id="L1116" class="Folded">1116 </span><span class="Folded">+--289 lines: # disk helpers ------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1405" class="LineNr">1405 </span> +<span id="L1406" class="LineNr">1406 </span><span class="subxComment">## Controlling a PS/2 mouse</span> +<span id="L1407" class="LineNr">1407 </span><span class="subxComment"># Uses no IRQs, just polling.</span> +<span id="L1408" class="LineNr">1408 </span><span class="subxComment"># Thanks Dave Long: <a href="https://github.com/jtauber/cleese/blob/master/necco/kernel/bochs/py8042.py">https://github.com/jtauber/cleese/blob/master/necco/kernel/bochs/py8042.py</a></span> +<span id="L1409" class="LineNr">1409 </span><span class="subxComment">#</span> +<span id="L1410" class="LineNr">1410 </span><span class="subxComment"># Resources:</span> +<span id="L1411" class="LineNr">1411 </span><span class="subxComment"># <a href="https://wiki.osdev.org/Mouse_Input">https://wiki.osdev.org/Mouse_Input</a></span> +<span id="L1412" class="LineNr">1412 </span> +<span id="L1413" class="LineNr">1413 </span><span class="subxComment"># results x/eax, y/ecx range from -256 to +255</span> +<span id="L1414" class="LineNr">1414 </span><span class="subxComment"># See <a href="https://wiki.osdev.org/index.php?title=Mouse_Input&oldid=25663#Format_of_First_3_Packet_Bytes">https://wiki.osdev.org/index.php?title=Mouse_Input&oldid=25663#Format_of_First_3_Packet_Bytes</a></span> +<span id="L1415" class="LineNr">1415 </span><span class="subxFunction">read-mouse-event</span>: <span class="subxComment"># -> _/eax: int, _/ecx: int</span> +<span id="L1416" class="LineNr">1416 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1417" class="LineNr">1417 </span> 55/push-ebp +<span id="L1418" class="LineNr">1418 </span> 89/<- %ebp 4/r32/esp +<span id="L1419" class="LineNr">1419 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L1420" class="LineNr">1420 </span> 52/push-edx +<span id="L1421" class="LineNr">1421 </span> 53/push-ebx +<span id="L1422" class="LineNr">1422 </span> <span class="subxComment"># if no event, return 0, 0</span> +<span id="L1423" class="LineNr">1423 </span> b8/copy-to-eax 0/imm32 +<span id="L1424" class="LineNr">1424 </span> b9/copy-to-ecx 0/imm32 +<span id="L1425" class="LineNr">1425 </span> (<a href='boot.subx.html#L1482'>any-mouse-event?</a>) <span class="subxComment"># => eax</span> +<span id="L1426" class="LineNr">1426 </span> 3d/compare-eax-and 0/imm32/false +<span id="L1427" class="LineNr">1427 </span> 74/jump-if-= $read-mouse-event:end/disp8 +<span id="L1428" class="LineNr">1428 </span> <span class="subxComment"># var f1/edx: byte = inb(0x60)</span> +<span id="L1429" class="LineNr">1429 </span> 31/xor %eax 0/r32/eax +<span id="L1430" class="LineNr">1430 </span> e4/read-port-into-al 0x60/imm8 +<span id="L1431" class="LineNr">1431 </span> 89/<- %edx 0/r32/eax +<span id="L1432" class="LineNr">1432 </span> (<a href='boot.subx.html#L1467'>wait-for-mouse-event</a>) +<span id="L1433" class="LineNr">1433 </span> <span class="subxComment"># var dx/ebx: byte = inb(0x60)</span> +<span id="L1434" class="LineNr">1434 </span> 31/xor %eax 0/r32/eax +<span id="L1435" class="LineNr">1435 </span> e4/read-port-into-al 0x60/imm8 +<span id="L1436" class="LineNr">1436 </span> 89/<- %ebx 0/r32/eax +<span id="L1437" class="LineNr">1437 </span> (<a href='boot.subx.html#L1467'>wait-for-mouse-event</a>) +<span id="L1438" class="LineNr">1438 </span> <span class="subxComment"># var dy/ecx: byte = inb(0x60)</span> +<span id="L1439" class="LineNr">1439 </span> 31/xor %eax 0/r32/eax +<span id="L1440" class="LineNr">1440 </span> e4/read-port-into-al 0x60/imm8 +<span id="L1441" class="LineNr">1441 </span> 89/<- %ecx 0/r32/eax +<span id="L1442" class="LineNr">1442 </span> <span class="subxComment"># eax = dx</span> +<span id="L1443" class="LineNr">1443 </span> 89/<- %eax 3/r32/ebx +<span id="L1444" class="LineNr">1444 </span> <span class="subxComment"># if (f1 & 0x10) dx = -dx</span> +<span id="L1445" class="LineNr">1445 </span> { +<span id="L1446" class="LineNr">1446 </span> f6 0/subop/test-bits %dl 0x10/imm8 +<span id="L1447" class="LineNr">1447 </span> 74/jump-if-zero <span class="Constant">break</span>/disp8 +<span id="L1448" class="LineNr">1448 </span> 0d/or-eax-with 0xffffff00/imm32 +<span id="L1449" class="LineNr">1449 </span> } +<span id="L1450" class="LineNr">1450 </span> <span class="subxComment"># if (f1 & 0x20) dy = -dy</span> +<span id="L1451" class="LineNr">1451 </span> { +<span id="L1452" class="LineNr">1452 </span> f6 0/subop/test-bits %dl 0x20/imm8 +<span id="L1453" class="LineNr">1453 </span> 74/jump-if-zero <span class="Constant">break</span>/disp8 +<span id="L1454" class="LineNr">1454 </span> 81 1/subop/or %ecx 0xffffff00/imm32 +<span id="L1455" class="LineNr">1455 </span> } +<span id="L1456" class="LineNr">1456 </span><span class="Constant">$read-mouse-event:end</span>: +<span id="L1457" class="LineNr">1457 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L1458" class="LineNr">1458 </span> 5b/pop-to-ebx +<span id="L1459" class="LineNr">1459 </span> 5a/pop-to-edx +<span id="L1460" class="LineNr">1460 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1461" class="LineNr">1461 </span> 89/<- %esp 5/r32/ebp +<span id="L1462" class="LineNr">1462 </span> 5d/pop-to-ebp +<span id="L1463" class="LineNr">1463 </span> c3/return +<span id="L1464" class="LineNr">1464 </span> +<span id="L1465" class="Folded">1465 </span><span class="Folded">+--147 lines: # mouse helpers -----------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1612" class="LineNr">1612 </span> +<span id="L1613" class="LineNr">1613 </span><span class="subxComment"># vim:ft=subx</span> </pre> </body> </html> diff --git a/html/colors.mu.html b/html/colors.mu.html index 25eb4b07..756f0f90 100644 --- a/html/colors.mu.html +++ b/html/colors.mu.html @@ -121,7 +121,7 @@ if ('onhashchange' in window) { <span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> valid?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='118parse-hex-int.subx.html#L701'>hex-digit?</a> tmp <span id="L63" class="LineNr"> 63 </span> compare valid?, <span class="Constant">0</span>/false <span id="L64" class="LineNr"> 64 </span> <span class="PreProc">break-if-!=</span> -<span id="L65" class="LineNr"> 65 </span> <a href='501draw-text.mu.html#L481'>abort</a> <span class="Constant">"invalid byte 0 of r"</span> +<span id="L65" class="LineNr"> 65 </span> <a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"invalid byte 0 of r"</span> <span id="L66" class="LineNr"> 66 </span> <span class="Delimiter">}</span> <span id="L67" class="LineNr"> 67 </span> tmp <span class="Special"><-</span> <a href='colors.mu.html#L169'>fast-hex-digit-value</a> tmp <span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> r/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy tmp @@ -155,7 +155,7 @@ if ('onhashchange' in window) { <span id="L96" class="LineNr"> 96 </span> <span class="PreProc">var</span> valid?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='118parse-hex-int.subx.html#L701'>hex-digit?</a> tmp <span id="L97" class="LineNr"> 97 </span> compare valid?, <span class="Constant">0</span>/false <span id="L98" class="LineNr"> 98 </span> <span class="PreProc">break-if-!=</span> -<span id="L99" class="LineNr"> 99 </span> <a href='501draw-text.mu.html#L481'>abort</a> <span class="Constant">"invalid byte 0 of g"</span> +<span id="L99" class="LineNr"> 99 </span> <a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"invalid byte 0 of g"</span> <span id="L100" class="LineNr">100 </span> <span class="Delimiter">}</span> <span id="L101" class="LineNr">101 </span> tmp <span class="Special"><-</span> <a href='colors.mu.html#L169'>fast-hex-digit-value</a> tmp <span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy tmp @@ -189,7 +189,7 @@ if ('onhashchange' in window) { <span id="L130" class="LineNr">130 </span> <span class="PreProc">var</span> valid?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='118parse-hex-int.subx.html#L701'>hex-digit?</a> tmp <span id="L131" class="LineNr">131 </span> compare valid?, <span class="Constant">0</span>/false <span id="L132" class="LineNr">132 </span> <span class="PreProc">break-if-!=</span> -<span id="L133" class="LineNr">133 </span> <a href='501draw-text.mu.html#L481'>abort</a> <span class="Constant">"invalid byte 0 of b"</span> +<span id="L133" class="LineNr">133 </span> <a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"invalid byte 0 of b"</span> <span id="L134" class="LineNr">134 </span> <span class="Delimiter">}</span> <span id="L135" class="LineNr">135 </span> tmp <span class="Special"><-</span> <a href='colors.mu.html#L169'>fast-hex-digit-value</a> tmp <span id="L136" class="LineNr">136 </span> <span class="PreProc">var</span> b/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy tmp diff --git a/html/ex10.mu.html b/html/ex10.mu.html index ac6dd059..71ede3a0 100644 --- a/html/ex10.mu.html +++ b/html/ex10.mu.html @@ -74,7 +74,7 @@ if ('onhashchange' in window) { <span id="L16" class="LineNr">16 </span> $main:event-loop: <span class="Delimiter">{</span> <span id="L17" class="LineNr">17 </span> <span class="PreProc">var</span> dx/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L18" class="LineNr">18 </span> <span class="PreProc">var</span> dy/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L19" class="LineNr">19 </span> dx, dy <span class="Special"><-</span> <a href='boot.subx.html#L1393'>read-mouse-event</a> +<span id="L19" class="LineNr">19 </span> dx, dy <span class="Special"><-</span> <a href='boot.subx.html#L1415'>read-mouse-event</a> <span id="L20" class="LineNr">20 </span> <span class="Delimiter">{</span> <span id="L21" class="LineNr">21 </span> compare dx, <span class="Constant">0</span> <span id="L22" class="LineNr">22 </span> <span class="PreProc">break-if-!=</span> diff --git a/html/ex11.mu.html b/html/ex11.mu.html new file mode 100644 index 00000000..853b68d0 --- /dev/null +++ b/html/ex11.mu.html @@ -0,0 +1,323 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - ex11.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-dark"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #a8a8a8; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #a8a8a8; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } +.LineNr { } +.Constant { color: #008787; } +.Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.muComment { color: #005faf; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/ex11.mu'>https://github.com/akkartik/mu/blob/main/ex11.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># Demo of an interactive app: controlling a Bezier curve on screen</span> +<span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> +<span id="L3" class="LineNr"> 3 </span><span class="muComment"># To build a disk image:</span> +<span id="L4" class="LineNr"> 4 </span><span class="muComment"># ./translate ex11.mu # emits code.img</span> +<span id="L5" class="LineNr"> 5 </span><span class="muComment"># To run:</span> +<span id="L6" class="LineNr"> 6 </span><span class="muComment"># qemu-system-i386 code.img</span> +<span id="L7" class="LineNr"> 7 </span><span class="muComment"># Or:</span> +<span id="L8" class="LineNr"> 8 </span><span class="muComment"># bochs -f bochsrc # bochsrc loads code.img</span> +<span id="L9" class="LineNr"> 9 </span><span class="muComment">#</span> +<span id="L10" class="LineNr"> 10 </span><span class="muComment"># Expected output: a spline with 3 control points. Use `Tab` to switch cursor</span> +<span id="L11" class="LineNr"> 11 </span><span class="muComment"># between control points, and arrow keys to move the control point at the</span> +<span id="L12" class="LineNr"> 12 </span><span class="muComment"># cursor.</span> +<span id="L13" class="LineNr"> 13 </span> +<span id="L14" class="LineNr"> 14 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='ex11.mu.html#L14'>main</a></span> <a href='500fake-screen.mu.html#L14'>screen</a>: (addr <a href='500fake-screen.mu.html#L14'>screen</a>), keyboard: (addr keyboard), data-disk: (addr disk) <span class="Delimiter">{</span> +<span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> env-storage: <a href='ex11.mu.html#L25'>environment</a> +<span id="L16" class="LineNr"> 16 </span> <span class="PreProc">var</span> env/<span class="Constant">esi</span>: (addr <a href='ex11.mu.html#L25'>environment</a>) <span class="Special"><-</span> address env-storage +<span id="L17" class="LineNr"> 17 </span> <a href='ex11.mu.html#L233'>initialize-environment</a> env, <span class="Constant">0x200</span> <span class="Constant">0x20</span>, <span class="Constant">0x180</span> <span class="Constant">0x90</span>, <span class="Constant">0x180</span> <span class="Constant">0x160</span> +<span id="L18" class="LineNr"> 18 </span> <span class="Delimiter">{</span> +<span id="L19" class="LineNr"> 19 </span> <a href='ex11.mu.html#L37'>render</a> <a href='500fake-screen.mu.html#L14'>screen</a>, env +<span id="L20" class="LineNr"> 20 </span> <a href='ex11.mu.html#L101'>edit</a> keyboard, env +<span id="L21" class="LineNr"> 21 </span> <span class="PreProc">loop</span> +<span id="L22" class="LineNr"> 22 </span> <span class="Delimiter">}</span> +<span id="L23" class="LineNr"> 23 </span><span class="Delimiter">}</span> +<span id="L24" class="LineNr"> 24 </span> +<span id="L25" class="LineNr"> 25 </span><span class="PreProc">type</span> <a href='ex11.mu.html#L25'>environment</a> <span class="Delimiter">{</span> +<span id="L26" class="LineNr"> 26 </span> p0: (handle <a href='ex11.mu.html#L32'>point</a>) +<span id="L27" class="LineNr"> 27 </span> p1: (handle <a href='ex11.mu.html#L32'>point</a>) +<span id="L28" class="LineNr"> 28 </span> p2: (handle <a href='ex11.mu.html#L32'>point</a>) +<span id="L29" class="LineNr"> 29 </span> <a href='ex11.mu.html#L77'>cursor</a>: (handle <a href='ex11.mu.html#L32'>point</a>) <span class="muComment"># one of p0, p1 or p2</span> +<span id="L30" class="LineNr"> 30 </span><span class="Delimiter">}</span> +<span id="L31" class="LineNr"> 31 </span> +<span id="L32" class="LineNr"> 32 </span><span class="PreProc">type</span> <a href='ex11.mu.html#L32'>point</a> <span class="Delimiter">{</span> +<span id="L33" class="LineNr"> 33 </span> x: int +<span id="L34" class="LineNr"> 34 </span> y: int +<span id="L35" class="LineNr"> 35 </span><span class="Delimiter">}</span> +<span id="L36" class="LineNr"> 36 </span> +<span id="L37" class="LineNr"> 37 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='ex11.mu.html#L37'>render</a></span> <a href='500fake-screen.mu.html#L14'>screen</a>: (addr <a href='500fake-screen.mu.html#L14'>screen</a>), _self: (addr <a href='ex11.mu.html#L25'>environment</a>) <span class="Delimiter">{</span> +<span id="L38" class="LineNr"> 38 </span> <a href='500fake-screen.mu.html#L230'>clear-screen</a> <a href='500fake-screen.mu.html#L14'>screen</a> +<span id="L39" class="LineNr"> 39 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='ex11.mu.html#L25'>environment</a>) <span class="Special"><-</span> copy _self +<span id="L40" class="LineNr"> 40 </span> <span class="PreProc">var</span> tmp-ah/<span class="Constant">ecx</span>: (addr handle <a href='ex11.mu.html#L32'>point</a>) <span class="Special"><-</span> get self, p0 +<span id="L41" class="LineNr"> 41 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr <a href='ex11.mu.html#L32'>point</a>) <span class="Special"><-</span> <a href='120allocate.subx.html#L223'>lookup</a> *tmp-ah +<span id="L42" class="LineNr"> 42 </span> <span class="PreProc">var</span> p0/<span class="Constant">ebx</span>: (addr <a href='ex11.mu.html#L32'>point</a>) <span class="Special"><-</span> copy tmp +<span id="L43" class="LineNr"> 43 </span> tmp-ah <span class="Special"><-</span> get self, p1 +<span id="L44" class="LineNr"> 44 </span> tmp <span class="Special"><-</span> <a href='120allocate.subx.html#L223'>lookup</a> *tmp-ah +<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> p1/<span class="Constant">edx</span>: (addr <a href='ex11.mu.html#L32'>point</a>) <span class="Special"><-</span> copy tmp +<span id="L46" class="LineNr"> 46 </span> tmp-ah <span class="Special"><-</span> get self, p2 +<span id="L47" class="LineNr"> 47 </span> tmp <span class="Special"><-</span> <a href='120allocate.subx.html#L223'>lookup</a> *tmp-ah +<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">var</span> p2/<span class="Constant">ecx</span>: (addr <a href='ex11.mu.html#L32'>point</a>) <span class="Special"><-</span> copy tmp +<span id="L49" class="LineNr"> 49 </span> <span class="muComment"># control lines</span> +<span id="L50" class="LineNr"> 50 </span> <a href='ex11.mu.html#L216'>line</a> <a href='500fake-screen.mu.html#L14'>screen</a>, p0, p1, <span class="Constant">7</span>/color +<span id="L51" class="LineNr"> 51 </span> <a href='ex11.mu.html#L216'>line</a> <a href='500fake-screen.mu.html#L14'>screen</a>, p1, p2, <span class="Constant">7</span>/color +<span id="L52" class="LineNr"> 52 </span> <span class="muComment"># curve above control lines</span> +<span id="L53" class="LineNr"> 53 </span> <a href='ex11.mu.html#L64'>bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, p0, p1, p2, <span class="Constant">0xc</span>/color +<span id="L54" class="LineNr"> 54 </span> <span class="muComment"># points above curve</span> +<span id="L55" class="LineNr"> 55 </span> <a href='ex11.mu.html#L226'>disc</a> <a href='500fake-screen.mu.html#L14'>screen</a>, p0, <span class="Constant">3</span>/radius, <span class="Constant">7</span>/color <span class="Constant">0xf</span>/border +<span id="L56" class="LineNr"> 56 </span> <a href='ex11.mu.html#L226'>disc</a> <a href='500fake-screen.mu.html#L14'>screen</a>, p1, <span class="Constant">3</span>/radius, <span class="Constant">7</span>/color <span class="Constant">0xf</span>/border +<span id="L57" class="LineNr"> 57 </span> <a href='ex11.mu.html#L226'>disc</a> <a href='500fake-screen.mu.html#L14'>screen</a>, p2, <span class="Constant">3</span>/radius, <span class="Constant">7</span>/color <span class="Constant">0xf</span>/border +<span id="L58" class="LineNr"> 58 </span> <span class="muComment"># cursor last of all</span> +<span id="L59" class="LineNr"> 59 </span> <span class="PreProc">var</span> cursor-ah/<span class="Constant">eax</span>: (addr handle <a href='ex11.mu.html#L32'>point</a>) <span class="Special"><-</span> get self, <a href='ex11.mu.html#L77'>cursor</a> +<span id="L60" class="LineNr"> 60 </span> <span class="PreProc">var</span> <a href='ex11.mu.html#L77'>cursor</a>/<span class="Constant">eax</span>: (addr <a href='ex11.mu.html#L32'>point</a>) <span class="Special"><-</span> <a href='120allocate.subx.html#L223'>lookup</a> *cursor-ah +<span id="L61" class="LineNr"> 61 </span> <a href='ex11.mu.html#L77'>cursor</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <a href='ex11.mu.html#L77'>cursor</a>, <span class="Constant">0xa</span>/side, <span class="Constant">3</span>/color +<span id="L62" class="LineNr"> 62 </span><span class="Delimiter">}</span> +<span id="L63" class="LineNr"> 63 </span> +<span id="L64" class="LineNr"> 64 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='ex11.mu.html#L64'>bezier</a></span> <a href='500fake-screen.mu.html#L14'>screen</a>: (addr <a href='500fake-screen.mu.html#L14'>screen</a>), _p0: (addr <a href='ex11.mu.html#L32'>point</a>), _p1: (addr <a href='ex11.mu.html#L32'>point</a>), _p2: (addr <a href='ex11.mu.html#L32'>point</a>), color: int <span class="Delimiter">{</span> +<span id="L65" class="LineNr"> 65 </span> <span class="PreProc">var</span> p0/<span class="Constant">esi</span>: (addr <a href='ex11.mu.html#L32'>point</a>) <span class="Special"><-</span> copy _p0 +<span id="L66" class="LineNr"> 66 </span> <span class="PreProc">var</span> x0/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get p0, x +<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> y0/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get p0, y +<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> p1/<span class="Constant">esi</span>: (addr <a href='ex11.mu.html#L32'>point</a>) <span class="Special"><-</span> copy _p1 +<span id="L69" class="LineNr"> 69 </span> <span class="PreProc">var</span> x1/<span class="Constant">ebx</span>: (addr int) <span class="Special"><-</span> get p1, x +<span id="L70" class="LineNr"> 70 </span> <span class="PreProc">var</span> y1/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get p1, y +<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> p2/<span class="Constant">esi</span>: (addr <a href='ex11.mu.html#L32'>point</a>) <span class="Special"><-</span> copy _p2 +<span id="L72" class="LineNr"> 72 </span> <span class="PreProc">var</span> x2/<span class="Constant">edi</span>: (addr int) <span class="Special"><-</span> get p2, x +<span id="L73" class="LineNr"> 73 </span> <span class="PreProc">var</span> y2/<span class="Constant">esi</span>: (addr int) <span class="Special"><-</span> get p2, y +<span id="L74" class="LineNr"> 74 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, *x0 *y0, *x1 *y1, *x2 *y2, color +<span id="L75" class="LineNr"> 75 </span><span class="Delimiter">}</span> +<span id="L76" class="LineNr"> 76 </span> +<span id="L77" class="LineNr"> 77 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='ex11.mu.html#L77'>cursor</a></span> <a href='500fake-screen.mu.html#L14'>screen</a>: (addr <a href='500fake-screen.mu.html#L14'>screen</a>), _p: (addr <a href='ex11.mu.html#L32'>point</a>), side: int, color: int <span class="Delimiter">{</span> +<span id="L78" class="LineNr"> 78 </span> <span class="PreProc">var</span> half-side/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy side +<span id="L79" class="LineNr"> 79 </span> half-side <span class="Special"><-</span> shift-right <span class="Constant">1</span> +<span id="L80" class="LineNr"> 80 </span> <span class="PreProc">var</span> p/<span class="Constant">esi</span>: (addr <a href='ex11.mu.html#L32'>point</a>) <span class="Special"><-</span> copy _p +<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> x-a/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get p, x +<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> left-x/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *x-a +<span id="L83" class="LineNr"> 83 </span> left-x <span class="Special"><-</span> subtract half-side +<span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> y-a/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get p, y +<span id="L85" class="LineNr"> 85 </span> <span class="PreProc">var</span> top-y/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy *y-a +<span id="L86" class="LineNr"> 86 </span> top-y <span class="Special"><-</span> subtract half-side +<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> max/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy left-x +<span id="L88" class="LineNr"> 88 </span> max <span class="Special"><-</span> add side +<span id="L89" class="LineNr"> 89 </span> <a href='507line.mu.html#L64'>draw-horizontal-line</a> <a href='500fake-screen.mu.html#L14'>screen</a>, top-y, left-x, max, color +<span id="L90" class="LineNr"> 90 </span> max <span class="Special"><-</span> copy top-y +<span id="L91" class="LineNr"> 91 </span> max <span class="Special"><-</span> add side +<span id="L92" class="LineNr"> 92 </span> <a href='507line.mu.html#L75'>draw-vertical-line</a> <a href='500fake-screen.mu.html#L14'>screen</a>, left-x, top-y, max, color +<span id="L93" class="LineNr"> 93 </span> <span class="PreProc">var</span> right-x/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy left-x +<span id="L94" class="LineNr"> 94 </span> right-x <span class="Special"><-</span> add side +<span id="L95" class="LineNr"> 95 </span> <a href='507line.mu.html#L75'>draw-vertical-line</a> <a href='500fake-screen.mu.html#L14'>screen</a>, right-x, top-y, max, color +<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">var</span> bottom-y/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy top-y +<span id="L97" class="LineNr"> 97 </span> bottom-y <span class="Special"><-</span> add side +<span id="L98" class="LineNr"> 98 </span> <a href='507line.mu.html#L64'>draw-horizontal-line</a> <a href='500fake-screen.mu.html#L14'>screen</a>, bottom-y, left-x, right-x, color +<span id="L99" class="LineNr"> 99 </span><span class="Delimiter">}</span> +<span id="L100" class="LineNr">100 </span> +<span id="L101" class="LineNr">101 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='ex11.mu.html#L101'>edit</a></span> keyboard: (addr keyboard), _self: (addr <a href='ex11.mu.html#L25'>environment</a>) <span class="Delimiter">{</span> +<span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='ex11.mu.html#L25'>environment</a>) <span class="Special"><-</span> copy _self +<span id="L103" class="LineNr">103 </span> <span class="PreProc">var</span> key/<span class="Constant">eax</span>: byte <span class="Special"><-</span> <a href='102keyboard.subx.html#L21'>read-key</a> keyboard +<span id="L104" class="LineNr">104 </span> compare key, <span class="Constant">0</span> +<span id="L105" class="LineNr">105 </span> <span class="PreProc">loop-if-=</span> +<span id="L106" class="LineNr">106 </span> <span class="Delimiter">{</span> +<span id="L107" class="LineNr">107 </span> compare key, <span class="Constant">9</span>/tab +<span id="L108" class="LineNr">108 </span> <span class="PreProc">break-if-!=</span> +<span id="L109" class="LineNr">109 </span> <a href='ex11.mu.html#L138'>toggle-cursor</a> self +<span id="L110" class="LineNr">110 </span> <span class="PreProc">return</span> +<span id="L111" class="LineNr">111 </span> <span class="Delimiter">}</span> +<span id="L112" class="LineNr">112 </span> <span class="Delimiter">{</span> +<span id="L113" class="LineNr">113 </span> compare key, <span class="Constant">0x80</span>/left-arrow +<span id="L114" class="LineNr">114 </span> <span class="PreProc">break-if-!=</span> +<span id="L115" class="LineNr">115 </span> <a href='ex11.mu.html#L168'>cursor-left</a> self +<span id="L116" class="LineNr">116 </span> <span class="PreProc">return</span> +<span id="L117" class="LineNr">117 </span> <span class="Delimiter">}</span> +<span id="L118" class="LineNr">118 </span> <span class="Delimiter">{</span> +<span id="L119" class="LineNr">119 </span> compare key, <span class="Constant">0x83</span>/right-arrow +<span id="L120" class="LineNr">120 </span> <span class="PreProc">break-if-!=</span> +<span id="L121" class="LineNr">121 </span> <a href='ex11.mu.html#L180'>cursor-right</a> self +<span id="L122" class="LineNr">122 </span> <span class="PreProc">return</span> +<span id="L123" class="LineNr">123 </span> <span class="Delimiter">}</span> +<span id="L124" class="LineNr">124 </span> <span class="Delimiter">{</span> +<span id="L125" class="LineNr">125 </span> compare key, <span class="Constant">0x81</span>/down-arrow +<span id="L126" class="LineNr">126 </span> <span class="PreProc">break-if-!=</span> +<span id="L127" class="LineNr">127 </span> <a href='ex11.mu.html#L204'>cursor-down</a> self +<span id="L128" class="LineNr">128 </span> <span class="PreProc">return</span> +<span id="L129" class="LineNr">129 </span> <span class="Delimiter">}</span> +<span id="L130" class="LineNr">130 </span> <span class="Delimiter">{</span> +<span id="L131" class="LineNr">131 </span> compare key, <span class="Constant">0x82</span>/up-arrow +<span id="L132" class="LineNr">132 </span> <span class="PreProc">break-if-!=</span> +<span id="L133" class="LineNr">133 </span> <a href='ex11.mu.html#L192'>cursor-up</a> self +<span id="L134" class="LineNr">134 </span> <span class="PreProc">return</span> +<span id="L135" class="LineNr">135 </span> <span class="Delimiter">}</span> +<span id="L136" class="LineNr">136 </span><span class="Delimiter">}</span> +<span id="L137" class="LineNr">137 </span> +<span id="L138" class="LineNr">138 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='ex11.mu.html#L138'>toggle-cursor</a></span> _self: (addr <a href='ex11.mu.html#L25'>environment</a>) <span class="Delimiter">{</span> +<span id="L139" class="LineNr">139 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='ex11.mu.html#L25'>environment</a>) <span class="Special"><-</span> copy _self +<span id="L140" class="LineNr">140 </span> <span class="PreProc">var</span> cursor-ah/<span class="Constant">edi</span>: (addr handle <a href='ex11.mu.html#L32'>point</a>) <span class="Special"><-</span> get self, <a href='ex11.mu.html#L77'>cursor</a> +<span id="L141" class="LineNr">141 </span> <span class="PreProc">var</span> p0-ah/<span class="Constant">ecx</span>: (addr handle <a href='ex11.mu.html#L32'>point</a>) <span class="Special"><-</span> get self, p0 +<span id="L142" class="LineNr">142 </span> <span class="PreProc">var</span> p1-ah/<span class="Constant">edx</span>: (addr handle <a href='ex11.mu.html#L32'>point</a>) <span class="Special"><-</span> get self, p1 +<span id="L143" class="LineNr">143 </span> <span class="PreProc">var</span> p2-ah/<span class="Constant">ebx</span>: (addr handle <a href='ex11.mu.html#L32'>point</a>) <span class="Special"><-</span> get self, p2 +<span id="L144" class="LineNr">144 </span> <span class="Delimiter">{</span> +<span id="L145" class="LineNr">145 </span> <span class="PreProc">var</span> p0?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='120allocate.subx.html#L448'>handle-equal?</a> *p0-ah, *cursor-ah +<span id="L146" class="LineNr">146 </span> compare p0?, <span class="Constant">0</span>/false +<span id="L147" class="LineNr">147 </span> <span class="PreProc">break-if-=</span> +<span id="L148" class="LineNr">148 </span> copy-object p1-ah, cursor-ah +<span id="L149" class="LineNr">149 </span> <span class="PreProc">return</span> +<span id="L150" class="LineNr">150 </span> <span class="Delimiter">}</span> +<span id="L151" class="LineNr">151 </span> <span class="Delimiter">{</span> +<span id="L152" class="LineNr">152 </span> <span class="PreProc">var</span> p1?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='120allocate.subx.html#L448'>handle-equal?</a> *p1-ah, *cursor-ah +<span id="L153" class="LineNr">153 </span> compare p1?, <span class="Constant">0</span>/false +<span id="L154" class="LineNr">154 </span> <span class="PreProc">break-if-=</span> +<span id="L155" class="LineNr">155 </span> copy-object p2-ah, cursor-ah +<span id="L156" class="LineNr">156 </span> <span class="PreProc">return</span> +<span id="L157" class="LineNr">157 </span> <span class="Delimiter">}</span> +<span id="L158" class="LineNr">158 </span> <span class="Delimiter">{</span> +<span id="L159" class="LineNr">159 </span> <span class="PreProc">var</span> p2?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='120allocate.subx.html#L448'>handle-equal?</a> *p2-ah, *cursor-ah +<span id="L160" class="LineNr">160 </span> compare p2?, <span class="Constant">0</span>/false +<span id="L161" class="LineNr">161 </span> <span class="PreProc">break-if-=</span> +<span id="L162" class="LineNr">162 </span> copy-object p0-ah, cursor-ah +<span id="L163" class="LineNr">163 </span> <span class="PreProc">return</span> +<span id="L164" class="LineNr">164 </span> <span class="Delimiter">}</span> +<span id="L165" class="LineNr">165 </span> <a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"lost cursor"</span> +<span id="L166" class="LineNr">166 </span><span class="Delimiter">}</span> +<span id="L167" class="LineNr">167 </span> +<span id="L168" class="LineNr">168 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='ex11.mu.html#L168'>cursor-left</a></span> _self: (addr <a href='ex11.mu.html#L25'>environment</a>) <span class="Delimiter">{</span> +<span id="L169" class="LineNr">169 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='ex11.mu.html#L25'>environment</a>) <span class="Special"><-</span> copy _self +<span id="L170" class="LineNr">170 </span> <span class="PreProc">var</span> cursor-ah/<span class="Constant">esi</span>: (addr handle <a href='ex11.mu.html#L32'>point</a>) <span class="Special"><-</span> get self, <a href='ex11.mu.html#L77'>cursor</a> +<span id="L171" class="LineNr">171 </span> <span class="PreProc">var</span> <a href='ex11.mu.html#L77'>cursor</a>/<span class="Constant">eax</span>: (addr <a href='ex11.mu.html#L32'>point</a>) <span class="Special"><-</span> <a href='120allocate.subx.html#L223'>lookup</a> *cursor-ah +<span id="L172" class="LineNr">172 </span> <span class="PreProc">var</span> cursor-x/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get <a href='ex11.mu.html#L77'>cursor</a>, x +<span id="L173" class="LineNr">173 </span> compare *cursor-x, <span class="Constant">0x20</span> +<span id="L174" class="LineNr">174 </span> <span class="Delimiter">{</span> +<span id="L175" class="LineNr">175 </span> <span class="PreProc">break-if-<</span> +<span id="L176" class="LineNr">176 </span> subtract-from *cursor-x, <span class="Constant">0x20</span> +<span id="L177" class="LineNr">177 </span> <span class="Delimiter">}</span> +<span id="L178" class="LineNr">178 </span><span class="Delimiter">}</span> +<span id="L179" class="LineNr">179 </span> +<span id="L180" class="LineNr">180 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='ex11.mu.html#L180'>cursor-right</a></span> _self: (addr <a href='ex11.mu.html#L25'>environment</a>) <span class="Delimiter">{</span> +<span id="L181" class="LineNr">181 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='ex11.mu.html#L25'>environment</a>) <span class="Special"><-</span> copy _self +<span id="L182" class="LineNr">182 </span> <span class="PreProc">var</span> cursor-ah/<span class="Constant">esi</span>: (addr handle <a href='ex11.mu.html#L32'>point</a>) <span class="Special"><-</span> get self, <a href='ex11.mu.html#L77'>cursor</a> +<span id="L183" class="LineNr">183 </span> <span class="PreProc">var</span> <a href='ex11.mu.html#L77'>cursor</a>/<span class="Constant">eax</span>: (addr <a href='ex11.mu.html#L32'>point</a>) <span class="Special"><-</span> <a href='120allocate.subx.html#L223'>lookup</a> *cursor-ah +<span id="L184" class="LineNr">184 </span> <span class="PreProc">var</span> cursor-x/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get <a href='ex11.mu.html#L77'>cursor</a>, x +<span id="L185" class="LineNr">185 </span> compare *cursor-x, <span class="Constant">0x3f0</span> +<span id="L186" class="LineNr">186 </span> <span class="Delimiter">{</span> +<span id="L187" class="LineNr">187 </span> <span class="PreProc">break-if-></span> +<span id="L188" class="LineNr">188 </span> add-to *cursor-x, <span class="Constant">0x20</span> +<span id="L189" class="LineNr">189 </span> <span class="Delimiter">}</span> +<span id="L190" class="LineNr">190 </span><span class="Delimiter">}</span> +<span id="L191" class="LineNr">191 </span> +<span id="L192" class="LineNr">192 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='ex11.mu.html#L192'>cursor-up</a></span> _self: (addr <a href='ex11.mu.html#L25'>environment</a>) <span class="Delimiter">{</span> +<span id="L193" class="LineNr">193 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='ex11.mu.html#L25'>environment</a>) <span class="Special"><-</span> copy _self +<span id="L194" class="LineNr">194 </span> <span class="PreProc">var</span> cursor-ah/<span class="Constant">esi</span>: (addr handle <a href='ex11.mu.html#L32'>point</a>) <span class="Special"><-</span> get self, <a href='ex11.mu.html#L77'>cursor</a> +<span id="L195" class="LineNr">195 </span> <span class="PreProc">var</span> <a href='ex11.mu.html#L77'>cursor</a>/<span class="Constant">eax</span>: (addr <a href='ex11.mu.html#L32'>point</a>) <span class="Special"><-</span> <a href='120allocate.subx.html#L223'>lookup</a> *cursor-ah +<span id="L196" class="LineNr">196 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get <a href='ex11.mu.html#L77'>cursor</a>, y +<span id="L197" class="LineNr">197 </span> compare *cursor-y, <span class="Constant">0x20</span> +<span id="L198" class="LineNr">198 </span> <span class="Delimiter">{</span> +<span id="L199" class="LineNr">199 </span> <span class="PreProc">break-if-<</span> +<span id="L200" class="LineNr">200 </span> subtract-from *cursor-y, <span class="Constant">0x20</span> +<span id="L201" class="LineNr">201 </span> <span class="Delimiter">}</span> +<span id="L202" class="LineNr">202 </span><span class="Delimiter">}</span> +<span id="L203" class="LineNr">203 </span> +<span id="L204" class="LineNr">204 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='ex11.mu.html#L204'>cursor-down</a></span> _self: (addr <a href='ex11.mu.html#L25'>environment</a>) <span class="Delimiter">{</span> +<span id="L205" class="LineNr">205 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='ex11.mu.html#L25'>environment</a>) <span class="Special"><-</span> copy _self +<span id="L206" class="LineNr">206 </span> <span class="PreProc">var</span> cursor-ah/<span class="Constant">esi</span>: (addr handle <a href='ex11.mu.html#L32'>point</a>) <span class="Special"><-</span> get self, <a href='ex11.mu.html#L77'>cursor</a> +<span id="L207" class="LineNr">207 </span> <span class="PreProc">var</span> <a href='ex11.mu.html#L77'>cursor</a>/<span class="Constant">eax</span>: (addr <a href='ex11.mu.html#L32'>point</a>) <span class="Special"><-</span> <a href='120allocate.subx.html#L223'>lookup</a> *cursor-ah +<span id="L208" class="LineNr">208 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get <a href='ex11.mu.html#L77'>cursor</a>, y +<span id="L209" class="LineNr">209 </span> compare *cursor-y, <span class="Constant">0x2f0</span> +<span id="L210" class="LineNr">210 </span> <span class="Delimiter">{</span> +<span id="L211" class="LineNr">211 </span> <span class="PreProc">break-if-></span> +<span id="L212" class="LineNr">212 </span> add-to *cursor-y, <span class="Constant">0x20</span> +<span id="L213" class="LineNr">213 </span> <span class="Delimiter">}</span> +<span id="L214" class="LineNr">214 </span><span class="Delimiter">}</span> +<span id="L215" class="LineNr">215 </span> +<span id="L216" class="LineNr">216 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='ex11.mu.html#L216'>line</a></span> <a href='500fake-screen.mu.html#L14'>screen</a>: (addr <a href='500fake-screen.mu.html#L14'>screen</a>), _p0: (addr <a href='ex11.mu.html#L32'>point</a>), _p1: (addr <a href='ex11.mu.html#L32'>point</a>), color: int <span class="Delimiter">{</span> +<span id="L217" class="LineNr">217 </span> <span class="PreProc">var</span> p0/<span class="Constant">esi</span>: (addr <a href='ex11.mu.html#L32'>point</a>) <span class="Special"><-</span> copy _p0 +<span id="L218" class="LineNr">218 </span> <span class="PreProc">var</span> x0/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get p0, x +<span id="L219" class="LineNr">219 </span> <span class="PreProc">var</span> y0/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get p0, y +<span id="L220" class="LineNr">220 </span> <span class="PreProc">var</span> p1/<span class="Constant">esi</span>: (addr <a href='ex11.mu.html#L32'>point</a>) <span class="Special"><-</span> copy _p1 +<span id="L221" class="LineNr">221 </span> <span class="PreProc">var</span> x1/<span class="Constant">ebx</span>: (addr int) <span class="Special"><-</span> get p1, x +<span id="L222" class="LineNr">222 </span> <span class="PreProc">var</span> y1/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get p1, y +<span id="L223" class="LineNr">223 </span> <a href='507line.mu.html#L1'>draw-line</a> <a href='500fake-screen.mu.html#L14'>screen</a>, *x0 *y0, *x1 *y1, color +<span id="L224" class="LineNr">224 </span><span class="Delimiter">}</span> +<span id="L225" class="LineNr">225 </span> +<span id="L226" class="LineNr">226 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='ex11.mu.html#L226'>disc</a></span> <a href='500fake-screen.mu.html#L14'>screen</a>: (addr <a href='500fake-screen.mu.html#L14'>screen</a>), _p: (addr <a href='ex11.mu.html#L32'>point</a>), radius: int, color: int, border-color: int <span class="Delimiter">{</span> +<span id="L227" class="LineNr">227 </span> <span class="PreProc">var</span> p/<span class="Constant">esi</span>: (addr <a href='ex11.mu.html#L32'>point</a>) <span class="Special"><-</span> copy _p +<span id="L228" class="LineNr">228 </span> <span class="PreProc">var</span> x/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get p, x +<span id="L229" class="LineNr">229 </span> <span class="PreProc">var</span> y/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get p, y +<span id="L230" class="LineNr">230 </span> <a href='508circle.mu.html#L80'>draw-disc</a> <a href='500fake-screen.mu.html#L14'>screen</a>, *x *y, radius, color, border-color +<span id="L231" class="LineNr">231 </span><span class="Delimiter">}</span> +<span id="L232" class="LineNr">232 </span> +<span id="L233" class="LineNr">233 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='ex11.mu.html#L233'>initialize-environment</a></span> _self: (addr <a href='ex11.mu.html#L25'>environment</a>), x0: int, y0: int, x1: int, y1: int, x2: int, y2: int <span class="Delimiter">{</span> +<span id="L234" class="LineNr">234 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='ex11.mu.html#L25'>environment</a>) <span class="Special"><-</span> copy _self +<span id="L235" class="LineNr">235 </span> <span class="PreProc">var</span> p0-ah/<span class="Constant">eax</span>: (addr handle <a href='ex11.mu.html#L32'>point</a>) <span class="Special"><-</span> get self, p0 +<span id="L236" class="LineNr">236 </span> <a href='120allocate.subx.html#L43'>allocate</a> p0-ah +<span id="L237" class="LineNr">237 </span> <span class="PreProc">var</span> p0/<span class="Constant">eax</span>: (addr <a href='ex11.mu.html#L32'>point</a>) <span class="Special"><-</span> <a href='120allocate.subx.html#L223'>lookup</a> *p0-ah +<span id="L238" class="LineNr">238 </span> <a href='ex11.mu.html#L253'>initialize-point</a> p0, x0 y0 +<span id="L239" class="LineNr">239 </span> <span class="PreProc">var</span> p1-ah/<span class="Constant">eax</span>: (addr handle <a href='ex11.mu.html#L32'>point</a>) <span class="Special"><-</span> get self, p1 +<span id="L240" class="LineNr">240 </span> <a href='120allocate.subx.html#L43'>allocate</a> p1-ah +<span id="L241" class="LineNr">241 </span> <span class="PreProc">var</span> p1/<span class="Constant">eax</span>: (addr <a href='ex11.mu.html#L32'>point</a>) <span class="Special"><-</span> <a href='120allocate.subx.html#L223'>lookup</a> *p1-ah +<span id="L242" class="LineNr">242 </span> <a href='ex11.mu.html#L253'>initialize-point</a> p1, x1 y1 +<span id="L243" class="LineNr">243 </span> <span class="PreProc">var</span> p2-ah/<span class="Constant">eax</span>: (addr handle <a href='ex11.mu.html#L32'>point</a>) <span class="Special"><-</span> get self, p2 +<span id="L244" class="LineNr">244 </span> <a href='120allocate.subx.html#L43'>allocate</a> p2-ah +<span id="L245" class="LineNr">245 </span> <span class="PreProc">var</span> p2/<span class="Constant">eax</span>: (addr <a href='ex11.mu.html#L32'>point</a>) <span class="Special"><-</span> <a href='120allocate.subx.html#L223'>lookup</a> *p2-ah +<span id="L246" class="LineNr">246 </span> <a href='ex11.mu.html#L253'>initialize-point</a> p2, x2 y2 +<span id="L247" class="LineNr">247 </span> <span class="muComment"># cursor initially at p0</span> +<span id="L248" class="LineNr">248 </span> <span class="PreProc">var</span> cursor-ah/<span class="Constant">edi</span>: (addr handle <a href='ex11.mu.html#L32'>point</a>) <span class="Special"><-</span> get self, <a href='ex11.mu.html#L77'>cursor</a> +<span id="L249" class="LineNr">249 </span> <span class="PreProc">var</span> src-ah/<span class="Constant">esi</span>: (addr handle <a href='ex11.mu.html#L32'>point</a>) <span class="Special"><-</span> get self, p0 +<span id="L250" class="LineNr">250 </span> copy-object src-ah, cursor-ah +<span id="L251" class="LineNr">251 </span><span class="Delimiter">}</span> +<span id="L252" class="LineNr">252 </span> +<span id="L253" class="LineNr">253 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='ex11.mu.html#L253'>initialize-point</a></span> _p: (addr <a href='ex11.mu.html#L32'>point</a>), x: int, y: int <span class="Delimiter">{</span> +<span id="L254" class="LineNr">254 </span> <span class="PreProc">var</span> p/<span class="Constant">esi</span>: (addr <a href='ex11.mu.html#L32'>point</a>) <span class="Special"><-</span> copy _p +<span id="L255" class="LineNr">255 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get p, x +<span id="L256" class="LineNr">256 </span> <span class="PreProc">var</span> src/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy x +<span id="L257" class="LineNr">257 </span> copy-to *dest, src +<span id="L258" class="LineNr">258 </span> dest <span class="Special"><-</span> get p, y +<span id="L259" class="LineNr">259 </span> src <span class="Special"><-</span> copy y +<span id="L260" class="LineNr">260 </span> copy-to *dest, src +<span id="L261" class="LineNr">261 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/ex2.mu.html b/html/ex2.mu.html index 66ee63b6..7f3b1d87 100644 --- a/html/ex2.mu.html +++ b/html/ex2.mu.html @@ -83,7 +83,16 @@ if ('onhashchange' in window) { <span id="L25" class="LineNr">25 </span> y <span class="Special"><-</span> increment <span id="L26" class="LineNr">26 </span> <span class="PreProc">loop</span> <span id="L27" class="LineNr">27 </span> <span class="Delimiter">}</span> -<span id="L28" class="LineNr">28 </span><span class="Delimiter">}</span> +<span id="L28" class="LineNr">28 </span> <a href='ex2.mu.html#L31'>foo</a> +<span id="L29" class="LineNr">29 </span><span class="Delimiter">}</span> +<span id="L30" class="LineNr">30 </span> +<span id="L31" class="LineNr">31 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='ex2.mu.html#L31'>foo</a></span> <span class="Delimiter">{</span> +<span id="L32" class="LineNr">32 </span> <a href='ex2.mu.html#L35'>bar</a> +<span id="L33" class="LineNr">33 </span><span class="Delimiter">}</span> +<span id="L34" class="LineNr">34 </span> +<span id="L35" class="LineNr">35 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='ex2.mu.html#L35'>bar</a></span> <span class="Delimiter">{</span> +<span id="L36" class="LineNr">36 </span> <a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"aaa"</span> +<span id="L37" class="LineNr">37 </span><span class="Delimiter">}</span> </pre> </body> </html> diff --git a/html/ex9.mu.html b/html/ex9.mu.html index 429d788d..c14e8878 100644 --- a/html/ex9.mu.html +++ b/html/ex9.mu.html @@ -76,14 +76,14 @@ if ('onhashchange' in window) { <span id="L18" class="LineNr">18 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='ex9.mu.html#L18'>main</a></span> <a href='500fake-screen.mu.html#L14'>screen</a>: (addr <a href='500fake-screen.mu.html#L14'>screen</a>), keyboard: (addr keyboard), data-disk: (addr disk) <span class="Delimiter">{</span> <span id="L19" class="LineNr">19 </span> <span class="PreProc">var</span> text-storage: (stream byte <span class="Constant">0x200</span>) <span id="L20" class="LineNr">20 </span> <span class="PreProc">var</span> text/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address text-storage -<span id="L21" class="LineNr">21 </span> <a href='boot.subx.html#L925'>load-sectors</a> data-disk, <span class="Constant">0</span>/lba, <span class="Constant">1</span>/num-sectors, text +<span id="L21" class="LineNr">21 </span> <a href='boot.subx.html#L946'>load-sectors</a> data-disk, <span class="Constant">0</span>/lba, <span class="Constant">1</span>/num-sectors, text <span id="L22" class="LineNr">22 </span> <span id="L23" class="LineNr">23 </span> <span class="PreProc">var</span> <a href='ex9.mu.html#L31'>word-count</a>/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='ex9.mu.html#L31'>word-count</a> text <span id="L24" class="LineNr">24 </span> <span id="L25" class="LineNr">25 </span> <span class="PreProc">var</span> result-storage: (stream byte <span class="Constant">0x10</span>) <span id="L26" class="LineNr">26 </span> <span class="PreProc">var</span> result/<span class="Constant">edi</span>: (addr stream byte) <span class="Special"><-</span> address result-storage <span id="L27" class="LineNr">27 </span> <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a> result, <a href='ex9.mu.html#L31'>word-count</a> -<span id="L28" class="LineNr">28 </span> <a href='boot.subx.html#L987'>store-sectors</a> data-disk, <span class="Constant">0</span>/lba, <span class="Constant">1</span>/num-sectors, result +<span id="L28" class="LineNr">28 </span> <a href='boot.subx.html#L1009'>store-sectors</a> data-disk, <span class="Constant">0</span>/lba, <span class="Constant">1</span>/num-sectors, result <span id="L29" class="LineNr">29 </span><span class="Delimiter">}</span> <span id="L30" class="LineNr">30 </span> <span id="L31" class="LineNr">31 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='ex9.mu.html#L31'>word-count</a></span> in: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> diff --git a/html/hest-life.mu.html b/html/hest-life.mu.html new file mode 100644 index 00000000..0dafde10 --- /dev/null +++ b/html/hest-life.mu.html @@ -0,0 +1,1089 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - hest-life.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-dark"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #a8a8a8; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #a8a8a8; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } +.LineNr { } +.Constant { color: #008787; } +.CommentedCode { color: #8a8a8a; } +.Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.muComment { color: #005faf; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/hest-life.mu'>https://github.com/akkartik/mu/blob/main/hest-life.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># Conway's Game of Life in a Hestified way</span> +<span id="L2" class="LineNr"> 2 </span><span class="muComment"># <a href="https://en.wikipedia.org/wiki/Conway%27s_Game_of_Life">https://en.wikipedia.org/wiki/Conway%27s_Game_of_Life</a></span> +<span id="L3" class="LineNr"> 3 </span><span class="muComment"># <a href="https://ivanish.ca/hest-podcast">https://ivanish.ca/hest-podcast</a></span> +<span id="L4" class="LineNr"> 4 </span><span class="muComment">#</span> +<span id="L5" class="LineNr"> 5 </span><span class="muComment"># To build:</span> +<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ ./translate hest-life.mu</span> +<span id="L7" class="LineNr"> 7 </span><span class="muComment"># I run it on my 2.5GHz Linux laptop like this:</span> +<span id="L8" class="LineNr"> 8 </span><span class="muComment"># $ qemu-system-i386 -enable-kvm code.img</span> +<span id="L9" class="LineNr"> 9 </span><span class="muComment">#</span> +<span id="L10" class="LineNr"> 10 </span><span class="muComment"># If things seem too fast or too slow on your computer, adjust the loop bounds</span> +<span id="L11" class="LineNr"> 11 </span><span class="muComment"># in the function `linger` at the bottom. Its value will depend on how you</span> +<span id="L12" class="LineNr"> 12 </span><span class="muComment"># accelerate Qemu. Mu will eventually get a clock to obviate the need for this</span> +<span id="L13" class="LineNr"> 13 </span><span class="muComment"># tuning.</span> +<span id="L14" class="LineNr"> 14 </span><span class="muComment">#</span> +<span id="L15" class="LineNr"> 15 </span><span class="muComment"># Keyboard shortcuts:</span> +<span id="L16" class="LineNr"> 16 </span><span class="muComment"># space: pause/resume</span> +<span id="L17" class="LineNr"> 17 </span><span class="muComment"># 0: restart time</span> +<span id="L18" class="LineNr"> 18 </span><span class="muComment"># l: start looping from 0 to curren time</span> +<span id="L19" class="LineNr"> 19 </span><span class="muComment"># L: stop looping</span> +<span id="L20" class="LineNr"> 20 </span><span class="muComment"># +: zoom in</span> +<span id="L21" class="LineNr"> 21 </span><span class="muComment"># -: zoom out</span> +<span id="L22" class="LineNr"> 22 </span> +<span id="L23" class="LineNr"> 23 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='hest-life.mu.html#L23'>main</a></span> <a href='500fake-screen.mu.html#L14'>screen</a>: (addr <a href='500fake-screen.mu.html#L14'>screen</a>), keyboard: (addr keyboard), data-disk: (addr disk) <span class="Delimiter">{</span> +<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">var</span> env-storage: <a href='hest-life.mu.html#L47'>environment</a> +<span id="L25" class="LineNr"> 25 </span> <span class="PreProc">var</span> env/<span class="Constant">esi</span>: (addr <a href='hest-life.mu.html#L47'>environment</a>) <span class="Special"><-</span> address env-storage +<span id="L26" class="LineNr"> 26 </span> <a href='hest-life.mu.html#L715'>initialize-environment</a> env +<span id="L27" class="LineNr"> 27 </span> <span class="PreProc">var</span> second-buffer: <a href='500fake-screen.mu.html#L14'>screen</a> +<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">var</span> second-screen/<span class="Constant">edi</span>: (addr <a href='500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address second-buffer +<span id="L29" class="LineNr"> 29 </span> <a href='500fake-screen.mu.html#L31'>initialize-screen</a> second-screen, <span class="Constant">0x80</span>, <span class="Constant">0x30</span>, <span class="Constant">1</span>/include-pixels +<span id="L30" class="LineNr"> 30 </span> <a href='hest-life.mu.html#L60'>render</a> second-screen, env +<span id="L31" class="LineNr"> 31 </span> <a href='500fake-screen.mu.html#L523'>copy-pixels</a> second-screen, <a href='500fake-screen.mu.html#L14'>screen</a> +<span id="L32" class="LineNr"> 32 </span> <span class="Delimiter">{</span> +<span id="L33" class="LineNr"> 33 </span> <a href='hest-life.mu.html#L592'>edit</a> keyboard, env +<span id="L34" class="LineNr"> 34 </span> <span class="PreProc">var</span> play?/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> get env, play? +<span id="L35" class="LineNr"> 35 </span> compare *play?, <span class="Constant">0</span>/false +<span id="L36" class="LineNr"> 36 </span> <span class="Delimiter">{</span> +<span id="L37" class="LineNr"> 37 </span> <span class="PreProc">break-if-=</span> +<span id="L38" class="LineNr"> 38 </span> <a href='hest-life.mu.html#L676'>step</a> env +<span id="L39" class="LineNr"> 39 </span> <a href='hest-life.mu.html#L60'>render</a> second-screen, env +<span id="L40" class="LineNr"> 40 </span> <a href='500fake-screen.mu.html#L523'>copy-pixels</a> second-screen, <a href='500fake-screen.mu.html#L14'>screen</a> +<span id="L41" class="LineNr"> 41 </span> <span class="Delimiter">}</span> +<span id="L42" class="LineNr"> 42 </span> <a href='hest-life.mu.html#L1016'>linger</a> env +<span id="L43" class="LineNr"> 43 </span> <span class="PreProc">loop</span> +<span id="L44" class="LineNr"> 44 </span> <span class="Delimiter">}</span> +<span id="L45" class="LineNr"> 45 </span><span class="Delimiter">}</span> +<span id="L46" class="LineNr"> 46 </span> +<span id="L47" class="LineNr"> 47 </span><span class="PreProc">type</span> <a href='hest-life.mu.html#L47'>environment</a> <span class="Delimiter">{</span> +<span id="L48" class="LineNr"> 48 </span> data: (handle array handle array <a href='hest-life.mu.html#L55'>cell</a>) +<span id="L49" class="LineNr"> 49 </span> zoom: int <span class="muComment"># 0 = 1024 px per cell; 5 = 4px per cell; each step adjusts by a factor of 4</span> +<span id="L50" class="LineNr"> 50 </span> tick: int +<span id="L51" class="LineNr"> 51 </span> play?: boolean +<span id="L52" class="LineNr"> 52 </span> <span class="PreProc">loop</span>: int <span class="muComment"># if non-zero, return tick to 0 after this point</span> +<span id="L53" class="LineNr"> 53 </span><span class="Delimiter">}</span> +<span id="L54" class="LineNr"> 54 </span> +<span id="L55" class="LineNr"> 55 </span><span class="PreProc">type</span> <a href='hest-life.mu.html#L55'>cell</a> <span class="Delimiter">{</span> +<span id="L56" class="LineNr"> 56 </span> curr: boolean +<span id="L57" class="LineNr"> 57 </span> next: boolean +<span id="L58" class="LineNr"> 58 </span><span class="Delimiter">}</span> +<span id="L59" class="LineNr"> 59 </span> +<span id="L60" class="LineNr"> 60 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='hest-life.mu.html#L60'>render</a></span> <a href='500fake-screen.mu.html#L14'>screen</a>: (addr <a href='500fake-screen.mu.html#L14'>screen</a>), _self: (addr <a href='hest-life.mu.html#L47'>environment</a>) <span class="Delimiter">{</span> +<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='hest-life.mu.html#L47'>environment</a>) <span class="Special"><-</span> copy _self +<span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> zoom/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, zoom +<span id="L63" class="LineNr"> 63 </span> compare *zoom, <span class="Constant">0</span> +<span id="L64" class="LineNr"> 64 </span> <span class="Delimiter">{</span> +<span id="L65" class="LineNr"> 65 </span> <span class="PreProc">break-if-!=</span> +<span id="L66" class="LineNr"> 66 </span> <a href='500fake-screen.mu.html#L230'>clear-screen</a> <a href='500fake-screen.mu.html#L14'>screen</a> +<span id="L67" class="LineNr"> 67 </span> <a href='hest-life.mu.html#L89'>render0</a> <a href='500fake-screen.mu.html#L14'>screen</a>, self +<span id="L68" class="LineNr"> 68 </span> <span class="Delimiter">}</span> +<span id="L69" class="LineNr"> 69 </span> compare *zoom, <span class="Constant">1</span> +<span id="L70" class="LineNr"> 70 </span> <span class="Delimiter">{</span> +<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">break-if-!=</span> +<span id="L72" class="LineNr"> 72 </span> <a href='500fake-screen.mu.html#L230'>clear-screen</a> <a href='500fake-screen.mu.html#L14'>screen</a> +<span id="L73" class="LineNr"> 73 </span> <a href='hest-life.mu.html#L209'>render1</a> <a href='500fake-screen.mu.html#L14'>screen</a>, self +<span id="L74" class="LineNr"> 74 </span> <span class="Delimiter">}</span> +<span id="L75" class="LineNr"> 75 </span> compare *zoom, <span class="Constant">4</span> +<span id="L76" class="LineNr"> 76 </span> <span class="Delimiter">{</span> +<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">break-if-!=</span> +<span id="L78" class="LineNr"> 78 </span> <a href='hest-life.mu.html#L864'>render4</a> <a href='500fake-screen.mu.html#L14'>screen</a>, self +<span id="L79" class="LineNr"> 79 </span> <span class="Delimiter">}</span> +<span id="L80" class="LineNr"> 80 </span> <span class="muComment"># clock</span> +<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> tick-a/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, tick +<span id="L82" class="LineNr"> 82 </span> <a href='500fake-screen.mu.html#L169'>set-cursor-position</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x78</span>/x, <span class="Constant">0</span>/y +<span id="L83" class="LineNr"> 83 </span> <a href='501draw-text.mu.html#L366'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='500fake-screen.mu.html#L14'>screen</a>, *tick-a, <span class="Constant">7</span>/fg <span class="Constant">0</span>/bg +<span id="L84" class="LineNr"> 84 </span><span class="Delimiter">}</span> +<span id="L85" class="LineNr"> 85 </span> +<span id="L86" class="LineNr"> 86 </span><span class="muComment"># Lots of hardcoded constants for now.</span> +<span id="L87" class="LineNr"> 87 </span><span class="muComment"># TODO: split this up into a primitive to render a single cell and its</span> +<span id="L88" class="LineNr"> 88 </span><span class="muComment"># incoming edges (but not the neighboring nodes they emanate from)</span> +<span id="L89" class="LineNr"> 89 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='hest-life.mu.html#L89'>render0</a></span> <a href='500fake-screen.mu.html#L14'>screen</a>: (addr <a href='500fake-screen.mu.html#L14'>screen</a>), _self: (addr <a href='hest-life.mu.html#L47'>environment</a>) <span class="Delimiter">{</span> +<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='hest-life.mu.html#L47'>environment</a>) <span class="Special"><-</span> copy _self +<span id="L91" class="LineNr"> 91 </span> <span class="muComment"># cell border</span> +<span id="L92" class="LineNr"> 92 </span> <a href='507line.mu.html#L75'>draw-vertical-line</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0xc0</span>/x, <span class="Constant">0</span>/ymin, <span class="Constant">0x300</span>/ymax, <span class="Constant">0x16</span>/color=dark-grey +<span id="L93" class="LineNr"> 93 </span> <a href='507line.mu.html#L75'>draw-vertical-line</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x340</span>/x, <span class="Constant">0</span>/ymin, <span class="Constant">0x300</span>/ymax, <span class="Constant">0x16</span>/color=dark-grey +<span id="L94" class="LineNr"> 94 </span> <a href='507line.mu.html#L64'>draw-horizontal-line</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x40</span>/y, <span class="Constant">0</span>/xmin, <span class="Constant">0x400</span>/xmax, <span class="Constant">0x16</span>/color=dark-grey +<span id="L95" class="LineNr"> 95 </span> <a href='507line.mu.html#L64'>draw-horizontal-line</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x2c0</span>/y, <span class="Constant">0</span>/xmin, <span class="Constant">0x400</span>/xmax, <span class="Constant">0x16</span>/color=dark-grey +<span id="L96" class="LineNr"> 96 </span> <span class="muComment"># neighboring inputs, corners</span> +<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> color/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='hest-life.mu.html#L822'>state-color</a> self, <span class="Constant">0x7f</span>/cur-topleftx, <span class="Constant">0x5f</span>/cur-toplefty +<span id="L98" class="LineNr"> 98 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x90</span>/xmin <span class="Constant">0x10</span>/ymin, <span class="Constant">0xb0</span>/xmax <span class="Constant">0x30</span>/ymax, color +<span id="L99" class="LineNr"> 99 </span> color <span class="Special"><-</span> <a href='hest-life.mu.html#L822'>state-color</a> self, <span class="Constant">0x81</span>/cur-toprightx, <span class="Constant">0x5f</span>/cur-toprighty +<span id="L100" class="LineNr"> 100 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x350</span>/xmin <span class="Constant">0x10</span>/ymin, <span class="Constant">0x370</span>/xmax <span class="Constant">0x30</span>/ymax, color +<span id="L101" class="LineNr"> 101 </span> color <span class="Special"><-</span> <a href='hest-life.mu.html#L822'>state-color</a> self, <span class="Constant">0x7f</span>/cur-botleftx, <span class="Constant">0x61</span>/cur-botlefty +<span id="L102" class="LineNr"> 102 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x90</span>/xmin <span class="Constant">0x2d0</span>/ymin, <span class="Constant">0xb0</span>/xmax <span class="Constant">0x2f0</span>/ymax, color +<span id="L103" class="LineNr"> 103 </span> color <span class="Special"><-</span> <a href='hest-life.mu.html#L822'>state-color</a> self, <span class="Constant">0x81</span>/cur-botrightx, <span class="Constant">0x61</span>/cur-botrighty +<span id="L104" class="LineNr"> 104 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x350</span>/xmin <span class="Constant">0x2d0</span>/ymin, <span class="Constant">0x370</span>/xmax <span class="Constant">0x2f0</span>/ymax, color +<span id="L105" class="LineNr"> 105 </span> <span class="muComment"># neighboring inputs, edges</span> +<span id="L106" class="LineNr"> 106 </span> color <span class="Special"><-</span> <a href='hest-life.mu.html#L822'>state-color</a> self, <span class="Constant">0x80</span>/cur-topx, <span class="Constant">0x5f</span>/cur-topy +<span id="L107" class="LineNr"> 107 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x1f0</span>/xmin <span class="Constant">0x10</span>/ymin, <span class="Constant">0x210</span>/xmax <span class="Constant">0x30</span>/ymax, color +<span id="L108" class="LineNr"> 108 </span> color <span class="Special"><-</span> <a href='hest-life.mu.html#L822'>state-color</a> self, <span class="Constant">0x7f</span>/cur-leftx, <span class="Constant">0x60</span>/cur-lefty +<span id="L109" class="LineNr"> 109 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x90</span>/xmin <span class="Constant">0x170</span>/ymin, <span class="Constant">0xb0</span>/xmax <span class="Constant">0x190</span>/ymax, color +<span id="L110" class="LineNr"> 110 </span> color <span class="Special"><-</span> <a href='hest-life.mu.html#L822'>state-color</a> self, <span class="Constant">0x80</span>/cur-botx, <span class="Constant">0x61</span>/cur-boty +<span id="L111" class="LineNr"> 111 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x1f0</span>/xmin <span class="Constant">0x2d0</span>/ymin, <span class="Constant">0x210</span>/xmax <span class="Constant">0x2f0</span>/ymax, color +<span id="L112" class="LineNr"> 112 </span> color <span class="Special"><-</span> <a href='hest-life.mu.html#L822'>state-color</a> self, <span class="Constant">0x81</span>/cur-rightx, <span class="Constant">0x60</span>/cur-righty +<span id="L113" class="LineNr"> 113 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x350</span>/xmin <span class="Constant">0x170</span>/ymin, <span class="Constant">0x370</span>/xmax <span class="Constant">0x190</span>/ymax, color +<span id="L114" class="LineNr"> 114 </span> <span class="muComment"># sum node</span> +<span id="L115" class="LineNr"> 115 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x170</span>/xsmin <span class="Constant">0x140</span>/ysmin, <span class="Constant">0x190</span>/xsmax <span class="Constant">0x160</span>/ysmax, <span class="Constant">0x40</span>/color +<span id="L116" class="LineNr"> 116 </span> <a href='500fake-screen.mu.html#L169'>set-cursor-position</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x2d</span>/scol, <span class="Constant">0x13</span>/srow +<span id="L117" class="LineNr"> 117 </span> <a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">"+"</span>, <span class="Constant">0xf</span>/color, <span class="Constant">0</span>/bg +<span id="L118" class="LineNr"> 118 </span> <span class="muComment"># conveyors from neighboring inputs to sum node</span> +<span id="L119" class="LineNr"> 119 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0xa0</span>/x0 <span class="Constant">0x20</span>/y0, <span class="Constant">0x100</span>/x1 <span class="Constant">0x150</span>/ys, <span class="Constant">0x180</span>/xs <span class="Constant">0x150</span>/ys, <span class="Constant">4</span>/color +<span id="L120" class="LineNr"> 120 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0xa0</span>/x0 <span class="Constant">0x180</span>/y0, <span class="Constant">0xc0</span>/x1 <span class="Constant">0x150</span>/ys, <span class="Constant">0x180</span>/xs <span class="Constant">0x150</span>/ys, <span class="Constant">4</span>/color +<span id="L121" class="LineNr"> 121 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0xa0</span>/x0 <span class="Constant">0x2e0</span>/y0, <span class="Constant">0x100</span>/x1 <span class="Constant">0x150</span>/ys, <span class="Constant">0x180</span>/xs <span class="Constant">0x150</span>/ys, <span class="Constant">4</span>/color +<span id="L122" class="LineNr"> 122 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x200</span>/x0 <span class="Constant">0x20</span>/y0, <span class="Constant">0x180</span>/x1 <span class="Constant">0x90</span>/y1, <span class="Constant">0x180</span>/xs <span class="Constant">0x150</span>/ys, <span class="Constant">4</span>/color +<span id="L123" class="LineNr"> 123 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x200</span>/x0 <span class="Constant">0x2e0</span>/y0, <span class="Constant">0x180</span>/x1 <span class="Constant">0x200</span>/y1, <span class="Constant">0x180</span>/xs <span class="Constant">0x150</span>/ys, <span class="Constant">4</span>/color +<span id="L124" class="LineNr"> 124 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x360</span>/x0 <span class="Constant">0x20</span>/y0, <span class="Constant">0x180</span>/x1 <span class="Constant">0xc0</span>/y1, <span class="Constant">0x180</span>/xs <span class="Constant">0x150</span>/ys, <span class="Constant">4</span>/color +<span id="L125" class="LineNr"> 125 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x360</span>/x0 <span class="Constant">0x180</span>/y0, <span class="Constant">0x35c</span>/x1 <span class="Constant">0x150</span>/ys, <span class="Constant">0x180</span>/xs <span class="Constant">0x150</span>/ys, <span class="Constant">4</span>/color +<span id="L126" class="LineNr"> 126 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x360</span>/x0 <span class="Constant">0x2e0</span>/y0, <span class="Constant">0x180</span>/x1 <span class="Constant">0x200</span>/y1, <span class="Constant">0x180</span>/xs <span class="Constant">0x150</span>/ys, <span class="Constant">4</span>/color +<span id="L127" class="LineNr"> 127 </span> <span class="muComment"># filter node</span> +<span id="L128" class="LineNr"> 128 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x200</span>/xfmin <span class="Constant">0x1c0</span>/yfmin, <span class="Constant">0x220</span>/xfmax <span class="Constant">0x1e0</span>/yfmax, <span class="Constant">0x31</span>/color +<span id="L129" class="LineNr"> 129 </span> <a href='500fake-screen.mu.html#L169'>set-cursor-position</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x40</span>/fcol, <span class="Constant">0x1b</span>/frow +<span id="L130" class="LineNr"> 130 </span> <a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">"?"</span>, <span class="Constant">0xf</span>/color, <span class="Constant">0</span>/bg +<span id="L131" class="LineNr"> 131 </span> <span class="muComment"># conveyor from sum node to filter node</span> +<span id="L132" class="LineNr"> 132 </span> <a href='507line.mu.html#L1'>draw-line</a> <a href='500fake-screen.mu.html#L14'>screen</a> <span class="Constant">0x180</span>/xs, <span class="Constant">0x150</span>/ys, <span class="Constant">0x210</span>/xf, <span class="Constant">0x1d0</span>/yf, <span class="Constant">0xa2</span>/color +<span id="L133" class="LineNr"> 133 </span> <span class="muComment"># cell outputs at corners</span> +<span id="L134" class="LineNr"> 134 </span> <span class="PreProc">var</span> color/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='hest-life.mu.html#L822'>state-color</a> self, <span class="Constant">0x80</span>/curx, <span class="Constant">0x60</span>/cury +<span id="L135" class="LineNr"> 135 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0xd0</span>/xmin <span class="Constant">0x50</span>/ymin, <span class="Constant">0xf0</span>/xmax <span class="Constant">0x70</span>/ymax, color +<span id="L136" class="LineNr"> 136 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x310</span>/xmin <span class="Constant">0x50</span>/ymin, <span class="Constant">0x330</span>/xmax <span class="Constant">0x70</span>/ymax, color +<span id="L137" class="LineNr"> 137 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0xd0</span>/xmin <span class="Constant">0x290</span>/ymin, <span class="Constant">0xf0</span>/xmax <span class="Constant">0x2b0</span>/ymax, color +<span id="L138" class="LineNr"> 138 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x310</span>/xmin <span class="Constant">0x290</span>/ymin, <span class="Constant">0x330</span>/xmax <span class="Constant">0x2b0</span>/ymax, color +<span id="L139" class="LineNr"> 139 </span> <span class="muComment"># cell outputs at edges</span> +<span id="L140" class="LineNr"> 140 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x1f0</span>/xmin <span class="Constant">0x50</span>/ymin, <span class="Constant">0x210</span>/xmax <span class="Constant">0x70</span>/ymax, color +<span id="L141" class="LineNr"> 141 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0xd0</span>/xmin <span class="Constant">0x170</span>/ymin, <span class="Constant">0xf0</span>/xmax <span class="Constant">0x190</span>/ymax, color +<span id="L142" class="LineNr"> 142 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x1f0</span>/xmin <span class="Constant">0x290</span>/ymin, <span class="Constant">0x210</span>/xmax <span class="Constant">0x2b0</span>/ymax, color +<span id="L143" class="LineNr"> 143 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x310</span>/xmin <span class="Constant">0x170</span>/ymin, <span class="Constant">0x330</span>/xmax <span class="Constant">0x190</span>/ymax, color +<span id="L144" class="LineNr"> 144 </span> <span class="muComment"># conveyors from filter to outputs</span> +<span id="L145" class="LineNr"> 145 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x210</span>/xf <span class="Constant">0x1d0</span>/yf, <span class="Constant">0x1c0</span>/x1 <span class="Constant">0x60</span>/y1, <span class="Constant">0xe0</span>/x2 <span class="Constant">0x60</span>/y2, <span class="Constant">0x2a</span>/color +<span id="L146" class="LineNr"> 146 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x210</span>/xf <span class="Constant">0x1d0</span>/yf, <span class="Constant">0xe0</span>/x1 <span class="Constant">0x1c0</span>/y1, <span class="Constant">0xe0</span>/x2 <span class="Constant">0x180</span>/y2, <span class="Constant">0x2a</span>/color +<span id="L147" class="LineNr"> 147 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x210</span>/xf <span class="Constant">0x1d0</span>/yf, <span class="Constant">0x1c0</span>/x1 <span class="Constant">0x2a0</span>/y1, <span class="Constant">0xe0</span>/x2 <span class="Constant">0x2a0</span>/y2, <span class="Constant">0x2a</span>/color +<span id="L148" class="LineNr"> 148 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x210</span>/xf <span class="Constant">0x1d0</span>/yf, <span class="Constant">0x210</span>/x1 <span class="Constant">0x60</span>/y1, <span class="Constant">0x200</span>/x2 <span class="Constant">0x60</span>/y2, <span class="Constant">0x2a</span>/color +<span id="L149" class="LineNr"> 149 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x210</span>/xf <span class="Constant">0x1d0</span>/yf, <span class="Constant">0x210</span>/x1 <span class="Constant">0x230</span>/y1, <span class="Constant">0x200</span>/x2 <span class="Constant">0x2a0</span>/y2, <span class="Constant">0x2a</span>/color +<span id="L150" class="LineNr"> 150 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x210</span>/xf <span class="Constant">0x1d0</span>/yf, <span class="Constant">0x320</span>/x1 <span class="Constant">0x120</span>/y1, <span class="Constant">0x320</span>/x2 <span class="Constant">0x60</span>/y2, <span class="Constant">0x2a</span>/color +<span id="L151" class="LineNr"> 151 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x210</span>/xf <span class="Constant">0x1d0</span>/yf, <span class="Constant">0x320</span>/x1 <span class="Constant">0x1c0</span>/y1 <span class="Constant">0x320</span>/x2 <span class="Constant">0x180</span>/y2, <span class="Constant">0x2a</span>/color +<span id="L152" class="LineNr"> 152 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x210</span>/xf <span class="Constant">0x1d0</span>/yf, <span class="Constant">0x320</span>/x1 <span class="Constant">0x230</span>/y1, <span class="Constant">0x320</span>/x2 <span class="Constant">0x2a0</span>/y2, <span class="Constant">0x2a</span>/color +<span id="L153" class="LineNr"> 153 </span> <span class="muComment"># time-variant portion: 16 repeating steps</span> +<span id="L154" class="LineNr"> 154 </span> <span class="PreProc">var</span> tick-a/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, tick +<span id="L155" class="LineNr"> 155 </span> <span class="PreProc">var</span> progress/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *tick-a +<span id="L156" class="LineNr"> 156 </span> progress <span class="Special"><-</span> and <span class="Constant">0xf</span> +<span id="L157" class="LineNr"> 157 </span> <span class="muComment"># 7 time steps for getting inputs to sum</span> +<span id="L158" class="LineNr"> 158 </span> <span class="Delimiter">{</span> +<span id="L159" class="LineNr"> 159 </span> compare progress, <span class="Constant">7</span> +<span id="L160" class="LineNr"> 160 </span> <span class="PreProc">break-if->=</span> +<span id="L161" class="LineNr"> 161 </span> <span class="PreProc">var</span> u/<span class="Constant">xmm7</span>: float <span class="Special"><-</span> convert progress +<span id="L162" class="LineNr"> 162 </span> <span class="PreProc">var</span> six/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">6</span> +<span id="L163" class="LineNr"> 163 </span> <span class="PreProc">var</span> six-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert six +<span id="L164" class="LineNr"> 164 </span> u <span class="Special"><-</span> divide six-f +<span id="L165" class="LineNr"> 165 </span> <span class="muComment"># points on conveyors from neighboring cells</span> +<span id="L166" class="LineNr"> 166 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0xa0</span>/x0 <span class="Constant">0x20</span>/y0, <span class="Constant">0x100</span>/x1 <span class="Constant">0x150</span>/ys, <span class="Constant">0x180</span>/xs <span class="Constant">0x150</span>/ys, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L167" class="LineNr"> 167 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0xa0</span>/x0 <span class="Constant">0x180</span>/y0, <span class="Constant">0xc0</span>/x1 <span class="Constant">0x150</span>/ys, <span class="Constant">0x180</span>/xs <span class="Constant">0x150</span>/ys, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L168" class="LineNr"> 168 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0xa0</span>/x0 <span class="Constant">0x2e0</span>/y0, <span class="Constant">0x100</span>/x1 <span class="Constant">0x150</span>/ys, <span class="Constant">0x180</span>/xs <span class="Constant">0x150</span>/ys, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L169" class="LineNr"> 169 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x200</span>/x0 <span class="Constant">0x20</span>/y0, <span class="Constant">0x180</span>/x1 <span class="Constant">0x90</span>/y1, <span class="Constant">0x180</span>/xs <span class="Constant">0x150</span>/ys, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L170" class="LineNr"> 170 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x200</span>/x0 <span class="Constant">0x2e0</span>/y0, <span class="Constant">0x180</span>/x1 <span class="Constant">0x200</span>/y1, <span class="Constant">0x180</span>/xs <span class="Constant">0x150</span>/ys, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L171" class="LineNr"> 171 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x360</span>/x0 <span class="Constant">0x20</span>/y0, <span class="Constant">0x180</span>/x1 <span class="Constant">0xc0</span>/y1, <span class="Constant">0x180</span>/xs <span class="Constant">0x150</span>/ys, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L172" class="LineNr"> 172 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x360</span>/x0 <span class="Constant">0x180</span>/y0, <span class="Constant">0x35c</span>/x1 <span class="Constant">0x150</span>/ys, <span class="Constant">0x180</span>/xs <span class="Constant">0x150</span>/ys, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L173" class="LineNr"> 173 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x360</span>/x0 <span class="Constant">0x2e0</span>/y0, <span class="Constant">0x180</span>/x1 <span class="Constant">0x200</span>/y1, <span class="Constant">0x180</span>/xs <span class="Constant">0x150</span>/ys, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L174" class="LineNr"> 174 </span> <span class="PreProc">return</span> +<span id="L175" class="LineNr"> 175 </span> <span class="Delimiter">}</span> +<span id="L176" class="LineNr"> 176 </span> <span class="muComment"># two time steps for getting count to filter</span> +<span id="L177" class="LineNr"> 177 </span> progress <span class="Special"><-</span> subtract <span class="Constant">7</span> +<span id="L178" class="LineNr"> 178 </span> <span class="Delimiter">{</span> +<span id="L179" class="LineNr"> 179 </span> compare progress, <span class="Constant">2</span> +<span id="L180" class="LineNr"> 180 </span> <span class="PreProc">break-if->=</span> +<span id="L181" class="LineNr"> 181 </span> progress <span class="Special"><-</span> increment <span class="muComment"># (0, 1) => (1, 2)</span> +<span id="L182" class="LineNr"> 182 </span> <span class="PreProc">var</span> u/<span class="Constant">xmm7</span>: float <span class="Special"><-</span> convert progress +<span id="L183" class="LineNr"> 183 </span> <span class="PreProc">var</span> three/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">3</span> +<span id="L184" class="LineNr"> 184 </span> <span class="PreProc">var</span> three-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert three +<span id="L185" class="LineNr"> 185 </span> u <span class="Special"><-</span> divide three-f +<span id="L186" class="LineNr"> 186 </span> <a href='hest-life.mu.html#L585'>draw-linear-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x180</span>/xs, <span class="Constant">0x150</span>/ys, <span class="Constant">0x210</span>/xf, <span class="Constant">0x1d0</span>/yf, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L187" class="LineNr"> 187 </span> <a href='500fake-screen.mu.html#L169'>set-cursor-position</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x3a</span>/scol, <span class="Constant">0x18</span>/srow +<span id="L188" class="LineNr"> 188 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='hest-life.mu.html#L950'>num-live-neighbors</a> self, <span class="Constant">0x80</span>/curx, <span class="Constant">0x60</span>/cury +<span id="L189" class="LineNr"> 189 </span> <a href='501draw-text.mu.html#L366'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='500fake-screen.mu.html#L14'>screen</a>, n, <span class="Constant">0xf</span>/fg <span class="Constant">0</span>/bg +<span id="L190" class="LineNr"> 190 </span> <span class="PreProc">return</span> +<span id="L191" class="LineNr"> 191 </span> <span class="Delimiter">}</span> +<span id="L192" class="LineNr"> 192 </span> <span class="muComment"># final 7 time steps for updating output</span> +<span id="L193" class="LineNr"> 193 </span> progress <span class="Special"><-</span> subtract <span class="Constant">2</span> +<span id="L194" class="LineNr"> 194 </span> <span class="muComment"># points on conveyors to outputs</span> +<span id="L195" class="LineNr"> 195 </span> <span class="PreProc">var</span> u/<span class="Constant">xmm7</span>: float <span class="Special"><-</span> convert progress +<span id="L196" class="LineNr"> 196 </span> <span class="PreProc">var</span> six/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">6</span> +<span id="L197" class="LineNr"> 197 </span> <span class="PreProc">var</span> six-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert six +<span id="L198" class="LineNr"> 198 </span> u <span class="Special"><-</span> divide six-f +<span id="L199" class="LineNr"> 199 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x210</span>/xf <span class="Constant">0x1d0</span>/yf, <span class="Constant">0x1c0</span>/x1 <span class="Constant">0x60</span>/y1, <span class="Constant">0xe0</span>/x2 <span class="Constant">0x60</span>/y2, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L200" class="LineNr"> 200 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x210</span>/xf <span class="Constant">0x1d0</span>/yf, <span class="Constant">0xe0</span>/x1 <span class="Constant">0x1c0</span>/y1, <span class="Constant">0xe0</span>/x2 <span class="Constant">0x180</span>/y2, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L201" class="LineNr"> 201 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x210</span>/xf <span class="Constant">0x1d0</span>/yf, <span class="Constant">0x1c0</span>/x1 <span class="Constant">0x2a0</span>/y1, <span class="Constant">0xe0</span>/x2 <span class="Constant">0x2a0</span>/y2, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L202" class="LineNr"> 202 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x210</span>/xf <span class="Constant">0x1d0</span>/yf, <span class="Constant">0x210</span>/xf <span class="Constant">0x60</span>/y1, <span class="Constant">0x200</span>/x2 <span class="Constant">0x60</span>/y2, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L203" class="LineNr"> 203 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x210</span>/xf <span class="Constant">0x1d0</span>/yf, <span class="Constant">0x210</span>/xf <span class="Constant">0x230</span>/y1, <span class="Constant">0x200</span>/x2 <span class="Constant">0x2a0</span>/y2, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L204" class="LineNr"> 204 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x210</span>/xf <span class="Constant">0x1d0</span>/yf, <span class="Constant">0x320</span>/x1 <span class="Constant">0x120</span>/y1, <span class="Constant">0x320</span>/x2 <span class="Constant">0x60</span>/y2, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L205" class="LineNr"> 205 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x210</span>/xf <span class="Constant">0x1d0</span>/yf, <span class="Constant">0x320</span>/x1 <span class="Constant">0x1c0</span>/y1, <span class="Constant">0x320</span>/x2 <span class="Constant">0x180</span>/y2, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L206" class="LineNr"> 206 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x210</span>/xf <span class="Constant">0x1d0</span>/yf, <span class="Constant">0x320</span>/x1 <span class="Constant">0x230</span>/y1, <span class="Constant">0x320</span>/x2 <span class="Constant">0x2a0</span>/y2, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L207" class="LineNr"> 207 </span><span class="Delimiter">}</span> +<span id="L208" class="LineNr"> 208 </span> +<span id="L209" class="LineNr"> 209 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='hest-life.mu.html#L209'>render1</a></span> <a href='500fake-screen.mu.html#L14'>screen</a>: (addr <a href='500fake-screen.mu.html#L14'>screen</a>), _self: (addr <a href='hest-life.mu.html#L47'>environment</a>) <span class="Delimiter">{</span> +<span id="L210" class="LineNr"> 210 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='hest-life.mu.html#L47'>environment</a>) <span class="Special"><-</span> copy _self +<span id="L211" class="LineNr"> 211 </span> <span class="muComment"># cell borders</span> +<span id="L212" class="LineNr"> 212 </span> <a href='507line.mu.html#L75'>draw-vertical-line</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0xe0</span>/x, <span class="Constant">0</span>/ymin, <span class="Constant">0x300</span>/ymax, <span class="Constant">0x16</span>/color=dark-grey +<span id="L213" class="LineNr"> 213 </span> <a href='507line.mu.html#L75'>draw-vertical-line</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x200</span>/x, <span class="Constant">0</span>/ymin, <span class="Constant">0x300</span>/ymax, <span class="Constant">0x16</span>/color=dark-grey +<span id="L214" class="LineNr"> 214 </span> <a href='507line.mu.html#L75'>draw-vertical-line</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x320</span>/x, <span class="Constant">0</span>/ymin, <span class="Constant">0x300</span>/ymax, <span class="Constant">0x16</span>/color=dark-grey +<span id="L215" class="LineNr"> 215 </span> <a href='507line.mu.html#L64'>draw-horizontal-line</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x60</span>/y, <span class="Constant">0</span>/xmin, <span class="Constant">0x400</span>/xmax, <span class="Constant">0x16</span>/color=dark-grey +<span id="L216" class="LineNr"> 216 </span> <a href='507line.mu.html#L64'>draw-horizontal-line</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x180</span>/y, <span class="Constant">0</span>/xmin, <span class="Constant">0x400</span>/xmax, <span class="Constant">0x16</span>/color=dark-grey +<span id="L217" class="LineNr"> 217 </span> <a href='507line.mu.html#L64'>draw-horizontal-line</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x2a0</span>/y, <span class="Constant">0</span>/xmin, <span class="Constant">0x400</span>/xmax, <span class="Constant">0x16</span>/color=dark-grey +<span id="L218" class="LineNr"> 218 </span> <span class="muComment"># cell 0: outputs</span> +<span id="L219" class="LineNr"> 219 </span> <span class="PreProc">var</span> color/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='hest-life.mu.html#L822'>state-color</a> self, <span class="Constant">0x80</span>/curx, <span class="Constant">0x60</span>/cury +<span id="L220" class="LineNr"> 220 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0xe8</span>/xmin <span class="Constant">0x68</span>/ymin, <span class="Constant">0x118</span>/xmax <span class="Constant">0x98</span>/ymax, color +<span id="L221" class="LineNr"> 221 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0xe8</span>/xmin <span class="Constant">0xd0</span>/ymin, <span class="Constant">0x118</span>/xmax <span class="Constant">0x100</span>/ymax, color +<span id="L222" class="LineNr"> 222 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0xe8</span>/xmin <span class="Constant">0x148</span>/ymin, <span class="Constant">0x118</span>/xmax <span class="Constant">0x178</span>/ymax, color +<span id="L223" class="LineNr"> 223 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x158</span>/xmin <span class="Constant">0x68</span>/ymin, <span class="Constant">0x188</span>/xmax <span class="Constant">0x98</span>/ymax, color +<span id="L224" class="LineNr"> 224 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x158</span>/xmin <span class="Constant">0x148</span>/ymin, <span class="Constant">0x188</span>/xmax <span class="Constant">0x178</span>/ymax, color +<span id="L225" class="LineNr"> 225 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x1c8</span>/xmin <span class="Constant">0x68</span>/ymin, <span class="Constant">0x1f8</span>/xmax <span class="Constant">0x98</span>/ymax, color +<span id="L226" class="LineNr"> 226 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x1c8</span>/xmin <span class="Constant">0xd0</span>/ymin, <span class="Constant">0x1f8</span>/xmax <span class="Constant">0x100</span>/ymax, color +<span id="L227" class="LineNr"> 227 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x1c8</span>/xmin <span class="Constant">0x148</span>/ymin, <span class="Constant">0x1f8</span>/xmax <span class="Constant">0x178</span>/ymax, color +<span id="L228" class="LineNr"> 228 </span> <span class="muComment"># cell 1: outputs</span> +<span id="L229" class="LineNr"> 229 </span> <span class="PreProc">var</span> color/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='hest-life.mu.html#L822'>state-color</a> self, <span class="Constant">0x81</span>/curx, <span class="Constant">0x60</span>/cury +<span id="L230" class="LineNr"> 230 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x208</span>/xmin <span class="Constant">0x68</span>/ymin, <span class="Constant">0x238</span>/xmax <span class="Constant">0x98</span>/ymax, color +<span id="L231" class="LineNr"> 231 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x208</span>/xmin <span class="Constant">0xd0</span>/ymin, <span class="Constant">0x238</span>/xmax <span class="Constant">0x100</span>/ymax, color +<span id="L232" class="LineNr"> 232 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x208</span>/xmin <span class="Constant">0x148</span>/ymin, <span class="Constant">0x238</span>/xmax <span class="Constant">0x178</span>/ymax, color +<span id="L233" class="LineNr"> 233 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x278</span>/xmin <span class="Constant">0x68</span>/ymin, <span class="Constant">0x2a8</span>/xmax <span class="Constant">0x98</span>/ymax, color +<span id="L234" class="LineNr"> 234 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x278</span>/xmin <span class="Constant">0x148</span>/ymin, <span class="Constant">0x2a8</span>/xmax <span class="Constant">0x178</span>/ymax, color +<span id="L235" class="LineNr"> 235 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x2e8</span>/xmin <span class="Constant">0x68</span>/ymin, <span class="Constant">0x318</span>/xmax <span class="Constant">0x98</span>/ymax, color +<span id="L236" class="LineNr"> 236 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x2e8</span>/xmin <span class="Constant">0xd0</span>/ymin, <span class="Constant">0x318</span>/xmax <span class="Constant">0x100</span>/ymax, color +<span id="L237" class="LineNr"> 237 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x2e8</span>/xmin <span class="Constant">0x148</span>/ymin, <span class="Constant">0x318</span>/xmax <span class="Constant">0x178</span>/ymax, color +<span id="L238" class="LineNr"> 238 </span> <span class="muComment"># cell 2: outputs</span> +<span id="L239" class="LineNr"> 239 </span> <span class="PreProc">var</span> color/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='hest-life.mu.html#L822'>state-color</a> self, <span class="Constant">0x80</span>/curx, <span class="Constant">0x61</span>/cury +<span id="L240" class="LineNr"> 240 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0xe8</span>/xmin <span class="Constant">0x188</span>/ymin, <span class="Constant">0x118</span>/xmax <span class="Constant">0x1b8</span>/ymax, color +<span id="L241" class="LineNr"> 241 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0xe8</span>/xmin <span class="Constant">0x1f0</span>/ymin, <span class="Constant">0x118</span>/xmax <span class="Constant">0x220</span>/ymax, color +<span id="L242" class="LineNr"> 242 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0xe8</span>/xmin <span class="Constant">0x268</span>/ymin, <span class="Constant">0x118</span>/xmax <span class="Constant">0x298</span>/ymax, color +<span id="L243" class="LineNr"> 243 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x158</span>/xmin <span class="Constant">0x188</span>/ymin, <span class="Constant">0x188</span>/xmax <span class="Constant">0x1b8</span>/ymax, color +<span id="L244" class="LineNr"> 244 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x158</span>/xmin <span class="Constant">0x268</span>/ymin, <span class="Constant">0x188</span>/xmax <span class="Constant">0x298</span>/ymax, color +<span id="L245" class="LineNr"> 245 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x1c8</span>/xmin <span class="Constant">0x188</span>/ymin, <span class="Constant">0x1f8</span>/xmax <span class="Constant">0x1b8</span>/ymax, color +<span id="L246" class="LineNr"> 246 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x1c8</span>/xmin <span class="Constant">0x1f0</span>/ymin, <span class="Constant">0x1f8</span>/xmax <span class="Constant">0x220</span>/ymax, color +<span id="L247" class="LineNr"> 247 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x1c8</span>/xmin <span class="Constant">0x268</span>/ymin, <span class="Constant">0x1f8</span>/xmax <span class="Constant">0x298</span>/ymax, color +<span id="L248" class="LineNr"> 248 </span> <span class="muComment"># cell 3: outputs</span> +<span id="L249" class="LineNr"> 249 </span> <span class="PreProc">var</span> color/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='hest-life.mu.html#L822'>state-color</a> self, <span class="Constant">0x81</span>/curx, <span class="Constant">0x61</span>/cury +<span id="L250" class="LineNr"> 250 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x208</span>/xmin <span class="Constant">0x188</span>/ymin, <span class="Constant">0x238</span>/xmax <span class="Constant">0x1b8</span>/ymax, color +<span id="L251" class="LineNr"> 251 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x208</span>/xmin <span class="Constant">0x1f0</span>/ymin, <span class="Constant">0x238</span>/xmax <span class="Constant">0x220</span>/ymax, color +<span id="L252" class="LineNr"> 252 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x208</span>/xmin <span class="Constant">0x268</span>/ymin, <span class="Constant">0x238</span>/xmax <span class="Constant">0x298</span>/ymax, color +<span id="L253" class="LineNr"> 253 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x278</span>/xmin <span class="Constant">0x188</span>/ymin, <span class="Constant">0x2a8</span>/xmax <span class="Constant">0x1b8</span>/ymax, color +<span id="L254" class="LineNr"> 254 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x278</span>/xmin <span class="Constant">0x268</span>/ymin, <span class="Constant">0x2a8</span>/xmax <span class="Constant">0x298</span>/ymax, color +<span id="L255" class="LineNr"> 255 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x2e8</span>/xmin <span class="Constant">0x188</span>/ymin, <span class="Constant">0x318</span>/xmax <span class="Constant">0x1b8</span>/ymax, color +<span id="L256" class="LineNr"> 256 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x2e8</span>/xmin <span class="Constant">0x1f0</span>/ymin, <span class="Constant">0x318</span>/xmax <span class="Constant">0x220</span>/ymax, color +<span id="L257" class="LineNr"> 257 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x2e8</span>/xmin <span class="Constant">0x268</span>/ymin, <span class="Constant">0x318</span>/xmax <span class="Constant">0x298</span>/ymax, color +<span id="L258" class="LineNr"> 258 </span> <span class="muComment"># neighboring nodes</span> +<span id="L259" class="LineNr"> 259 </span> <span class="PreProc">var</span> color/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='hest-life.mu.html#L822'>state-color</a> self, <span class="Constant">0x7f</span>/curx, <span class="Constant">0x5f</span>/cury +<span id="L260" class="LineNr"> 260 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0xa8</span>/xmin <span class="Constant">0x28</span>/ymin, <span class="Constant">0xd8</span>/xmax <span class="Constant">0x58</span>/ymax, color +<span id="L261" class="LineNr"> 261 </span> <span class="PreProc">var</span> color/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='hest-life.mu.html#L822'>state-color</a> self, <span class="Constant">0x80</span>/curx, <span class="Constant">0x5f</span>/cury +<span id="L262" class="LineNr"> 262 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x158</span>/xmin <span class="Constant">0x28</span>/ymin, <span class="Constant">0x188</span>/xmax <span class="Constant">0x58</span>/ymax, color +<span id="L263" class="LineNr"> 263 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x1c8</span>/xmin <span class="Constant">0x28</span>/ymin, <span class="Constant">0x1f8</span>/xmax <span class="Constant">0x58</span>/ymax, color +<span id="L264" class="LineNr"> 264 </span> <span class="PreProc">var</span> color/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='hest-life.mu.html#L822'>state-color</a> self, <span class="Constant">0x81</span>/curx, <span class="Constant">0x5f</span>/cury +<span id="L265" class="LineNr"> 265 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x208</span>/xmin <span class="Constant">0x28</span>/ymin, <span class="Constant">0x238</span>/xmax <span class="Constant">0x58</span>/ymax, color +<span id="L266" class="LineNr"> 266 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x278</span>/xmin <span class="Constant">0x28</span>/ymin, <span class="Constant">0x2a8</span>/xmax <span class="Constant">0x58</span>/ymax, color +<span id="L267" class="LineNr"> 267 </span> <span class="PreProc">var</span> color/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='hest-life.mu.html#L822'>state-color</a> self, <span class="Constant">0x82</span>/curx, <span class="Constant">0x5f</span>/cury +<span id="L268" class="LineNr"> 268 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x328</span>/xmin <span class="Constant">0x28</span>/ymin, <span class="Constant">0x358</span>/xmax <span class="Constant">0x58</span>/ymax, color +<span id="L269" class="LineNr"> 269 </span> <span class="PreProc">var</span> color/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='hest-life.mu.html#L822'>state-color</a> self, <span class="Constant">0x7f</span>/curx, <span class="Constant">0x60</span>/cury +<span id="L270" class="LineNr"> 270 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0xa8</span>/xmin <span class="Constant">0xd0</span>/ymin, <span class="Constant">0xd8</span>/xmax <span class="Constant">0x100</span>/ymax, color +<span id="L271" class="LineNr"> 271 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0xa8</span>/xmin <span class="Constant">0x148</span>/ymin, <span class="Constant">0xd8</span>/xmax <span class="Constant">0x178</span>/ymax, color +<span id="L272" class="LineNr"> 272 </span> <span class="PreProc">var</span> color/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='hest-life.mu.html#L822'>state-color</a> self, <span class="Constant">0x82</span>/curx, <span class="Constant">0x60</span>/cury +<span id="L273" class="LineNr"> 273 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x328</span>/xmin <span class="Constant">0xd0</span>/ymin, <span class="Constant">0x358</span>/xmax <span class="Constant">0x100</span>/ymax, color +<span id="L274" class="LineNr"> 274 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x328</span>/xmin <span class="Constant">0x148</span>/ymin, <span class="Constant">0x358</span>/xmax <span class="Constant">0x178</span>/ymax, color +<span id="L275" class="LineNr"> 275 </span> <span class="PreProc">var</span> color/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='hest-life.mu.html#L822'>state-color</a> self, <span class="Constant">0x7f</span>/curx, <span class="Constant">0x61</span>/cury +<span id="L276" class="LineNr"> 276 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0xa8</span>/xmin <span class="Constant">0x188</span>/ymin, <span class="Constant">0xd8</span>/xmax <span class="Constant">0x1b8</span>/ymax, color +<span id="L277" class="LineNr"> 277 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0xa8</span>/xmin <span class="Constant">0x1f0</span>/ymin, <span class="Constant">0xd8</span>/xmax <span class="Constant">0x220</span>/ymax, color +<span id="L278" class="LineNr"> 278 </span> <span class="PreProc">var</span> color/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='hest-life.mu.html#L822'>state-color</a> self, <span class="Constant">0x82</span>/curx, <span class="Constant">0x61</span>/cury +<span id="L279" class="LineNr"> 279 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x328</span>/xmin <span class="Constant">0x188</span>/ymin, <span class="Constant">0x358</span>/xmax <span class="Constant">0x1b8</span>/ymax, color +<span id="L280" class="LineNr"> 280 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x328</span>/xmin <span class="Constant">0x1f0</span>/ymin, <span class="Constant">0x358</span>/xmax <span class="Constant">0x220</span>/ymax, color +<span id="L281" class="LineNr"> 281 </span> <span class="PreProc">var</span> color/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='hest-life.mu.html#L822'>state-color</a> self, <span class="Constant">0x7f</span>/curx, <span class="Constant">0x62</span>/cury +<span id="L282" class="LineNr"> 282 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0xa8</span>/xmin <span class="Constant">0x2a8</span>/ymin, <span class="Constant">0xd8</span>/xmax <span class="Constant">0x2d8</span>/ymax, color +<span id="L283" class="LineNr"> 283 </span> <span class="PreProc">var</span> color/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='hest-life.mu.html#L822'>state-color</a> self, <span class="Constant">0x80</span>/curx, <span class="Constant">0x62</span>/cury +<span id="L284" class="LineNr"> 284 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x158</span>/xmin <span class="Constant">0x2a8</span>/ymin, <span class="Constant">0x188</span>/xmax <span class="Constant">0x2d8</span>/ymax, color +<span id="L285" class="LineNr"> 285 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x1c8</span>/xmin <span class="Constant">0x2a8</span>/ymin, <span class="Constant">0x1f8</span>/xmax <span class="Constant">0x2d8</span>/ymax, color +<span id="L286" class="LineNr"> 286 </span> <span class="PreProc">var</span> color/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='hest-life.mu.html#L822'>state-color</a> self, <span class="Constant">0x81</span>/curx, <span class="Constant">0x62</span>/cury +<span id="L287" class="LineNr"> 287 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x208</span>/xmin <span class="Constant">0x2a8</span>/ymin, <span class="Constant">0x238</span>/xmax <span class="Constant">0x2d8</span>/ymax, color +<span id="L288" class="LineNr"> 288 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x278</span>/xmin <span class="Constant">0x2a8</span>/ymin, <span class="Constant">0x2a8</span>/xmax <span class="Constant">0x2d8</span>/ymax, color +<span id="L289" class="LineNr"> 289 </span> <span class="PreProc">var</span> color/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='hest-life.mu.html#L822'>state-color</a> self, <span class="Constant">0x82</span>/curx, <span class="Constant">0x62</span>/cury +<span id="L290" class="LineNr"> 290 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x328</span>/xmin <span class="Constant">0x2a8</span>/ymin, <span class="Constant">0x358</span>/xmax <span class="Constant">0x2d8</span>/ymax, color +<span id="L291" class="LineNr"> 291 </span> <span class="muComment"># cell 0: sum and filter nodes</span> +<span id="L292" class="LineNr"> 292 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x148</span>/xsmin <span class="Constant">0xc8</span>/ysmin, <span class="Constant">0x158</span>/xsmax <span class="Constant">0xd8</span>/ysmax, <span class="Constant">0x40</span>/color +<span id="L293" class="LineNr"> 293 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x180</span>/xfmin <span class="Constant">0xf8</span>/yfmin, <span class="Constant">0x190</span>/xfmax <span class="Constant">0x108</span>/yfmax, <span class="Constant">0x31</span>/color +<span id="L294" class="LineNr"> 294 </span> <span class="muComment"># cell 1: sum and filter nodes</span> +<span id="L295" class="LineNr"> 295 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x268</span>/xsmin <span class="Constant">0xc8</span>/ysmin, <span class="Constant">0x278</span>/xsmax <span class="Constant">0xd8</span>/ysmax, <span class="Constant">0x40</span>/color +<span id="L296" class="LineNr"> 296 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x2a0</span>/xfmin <span class="Constant">0xf8</span>/yfmin, <span class="Constant">0x2b0</span>/xfmax <span class="Constant">0x108</span>/yfmax, <span class="Constant">0x31</span>/color +<span id="L297" class="LineNr"> 297 </span> <span class="muComment"># cell 2: sum and filter nodes</span> +<span id="L298" class="LineNr"> 298 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x148</span>/xsmin <span class="Constant">0x1e8</span>/ysmin, <span class="Constant">0x158</span>/xsmax <span class="Constant">0x1f8</span>/ysmax, <span class="Constant">0x40</span>/color +<span id="L299" class="LineNr"> 299 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x180</span>/xfmin <span class="Constant">0x218</span>/yfmin, <span class="Constant">0x190</span>/xfmax <span class="Constant">0x228</span>/yfmax, <span class="Constant">0x31</span>/color +<span id="L300" class="LineNr"> 300 </span> <span class="muComment"># cell 3: sum and filter nodes</span> +<span id="L301" class="LineNr"> 301 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x268</span>/xsmin <span class="Constant">0x1e8</span>/ysmin, <span class="Constant">0x278</span>/xsmax <span class="Constant">0x1f8</span>/ysmax, <span class="Constant">0x40</span>/color +<span id="L302" class="LineNr"> 302 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x2a0</span>/xfmin <span class="Constant">0x218</span>/yfmin, <span class="Constant">0x2b0</span>/xfmax <span class="Constant">0x228</span>/yfmax, <span class="Constant">0x31</span>/color +<span id="L303" class="LineNr"> 303 </span> <span class="muComment"># neighbor counts</span> +<span id="L304" class="LineNr"> 304 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='hest-life.mu.html#L950'>num-live-neighbors</a> self, <span class="Constant">0x80</span>/curx, <span class="Constant">0x60</span>/cury +<span id="L305" class="LineNr"> 305 </span> <a href='500fake-screen.mu.html#L169'>set-cursor-position</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x2d</span>, <span class="Constant">0xe</span> +<span id="L306" class="LineNr"> 306 </span> <a href='501draw-text.mu.html#L366'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='500fake-screen.mu.html#L14'>screen</a>, n, <span class="Constant">0xf</span>/fg <span class="Constant">0</span>/bg +<span id="L307" class="LineNr"> 307 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='hest-life.mu.html#L950'>num-live-neighbors</a> self, <span class="Constant">0x81</span>/curx, <span class="Constant">0x60</span>/cury +<span id="L308" class="LineNr"> 308 </span> <a href='500fake-screen.mu.html#L169'>set-cursor-position</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x52</span>, <span class="Constant">0xe</span> +<span id="L309" class="LineNr"> 309 </span> <a href='501draw-text.mu.html#L366'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='500fake-screen.mu.html#L14'>screen</a>, n, <span class="Constant">0xf</span>/fg <span class="Constant">0</span>/bg +<span id="L310" class="LineNr"> 310 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='hest-life.mu.html#L950'>num-live-neighbors</a> self, <span class="Constant">0x80</span>/curx, <span class="Constant">0x61</span>/cury +<span id="L311" class="LineNr"> 311 </span> <a href='500fake-screen.mu.html#L169'>set-cursor-position</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x2d</span>, <span class="Constant">0x20</span> +<span id="L312" class="LineNr"> 312 </span> <a href='501draw-text.mu.html#L366'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='500fake-screen.mu.html#L14'>screen</a>, n, <span class="Constant">0xf</span>/fg <span class="Constant">0</span>/bg +<span id="L313" class="LineNr"> 313 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='hest-life.mu.html#L950'>num-live-neighbors</a> self, <span class="Constant">0x81</span>/curx, <span class="Constant">0x61</span>/cury +<span id="L314" class="LineNr"> 314 </span> <a href='500fake-screen.mu.html#L169'>set-cursor-position</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x52</span>, <span class="Constant">0x20</span> +<span id="L315" class="LineNr"> 315 </span> <a href='501draw-text.mu.html#L366'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='500fake-screen.mu.html#L14'>screen</a>, n, <span class="Constant">0xf</span>/fg <span class="Constant">0</span>/bg +<span id="L316" class="LineNr"> 316 </span> <span class="muComment"># cell 0: conveyors from neighboring inputs to sum node</span> +<span id="L317" class="LineNr"> 317 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0xc0</span>/x0 <span class="Constant">0x40</span>/y0, <span class="Constant">0x100</span>/x1 <span class="Constant">0xd0</span>/ys, <span class="Constant">0x150</span>/xs <span class="Constant">0xd0</span>/ys, <span class="Constant">4</span>/color +<span id="L318" class="LineNr"> 318 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0xc0</span>/x0 <span class="Constant">0xe8</span>/y0, <span class="Constant">0xc0</span>/x1 <span class="Constant">0xd0</span>/ys, <span class="Constant">0x150</span>/xs <span class="Constant">0xd0</span>/ys, <span class="Constant">4</span>/color +<span id="L319" class="LineNr"> 319 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0xc0</span>/x0 <span class="Constant">0x1a0</span>/y0, <span class="Constant">0xe0</span>/x1 <span class="Constant">0xd0</span>/ys, <span class="Constant">0x150</span>/xs <span class="Constant">0xd0</span>/ys, <span class="Constant">4</span>/color +<span id="L320" class="LineNr"> 320 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x170</span>/x0 <span class="Constant">0x40</span>/y0, <span class="Constant">0x150</span>/x1 <span class="Constant">0x80</span>/y1, <span class="Constant">0x150</span>/xs <span class="Constant">0xd0</span>/ys, <span class="Constant">4</span>/color +<span id="L321" class="LineNr"> 321 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x170</span>/x0 <span class="Constant">0x1a0</span>/y0, <span class="Constant">0x150</span>/x1 <span class="Constant">0x1a0</span>/y1, <span class="Constant">0x150</span>/xs <span class="Constant">0xd0</span>/ys, <span class="Constant">4</span>/color +<span id="L322" class="LineNr"> 322 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x220</span>/x0 <span class="Constant">0x40</span>/y0, <span class="Constant">0x150</span>/x1 <span class="Constant">0x80</span>/y1, <span class="Constant">0x150</span>/xs <span class="Constant">0xd0</span>/ys, <span class="Constant">4</span>/color +<span id="L323" class="LineNr"> 323 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x220</span>/x0 <span class="Constant">0xe8</span>/y0, <span class="Constant">0x220</span>/x1 <span class="Constant">0xd0</span>/y1, <span class="Constant">0x150</span>/xs <span class="Constant">0xd0</span>/ys, <span class="Constant">4</span>/color +<span id="L324" class="LineNr"> 324 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x220</span>/x0 <span class="Constant">0x1a0</span>/y0, <span class="Constant">0x180</span>/x1 <span class="Constant">0x1a0</span>/y1, <span class="Constant">0x150</span>/xs <span class="Constant">0xd0</span>/ys, <span class="Constant">4</span>/color +<span id="L325" class="LineNr"> 325 </span> <span class="muComment"># cell 0: conveyors from filter to outputs</span> +<span id="L326" class="LineNr"> 326 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x188</span>/xf <span class="Constant">0x100</span>/yf, <span class="Constant">0x160</span>/x1 <span class="Constant">0x8c</span>/y1, <span class="Constant">0x100</span>/x2 <span class="Constant">0x80</span>/y2, <span class="Constant">0x2a</span>/color +<span id="L327" class="LineNr"> 327 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x188</span>/xf <span class="Constant">0x100</span>/yf, <span class="Constant">0x100</span>/x1 <span class="Constant">0x100</span>/y1, <span class="Constant">0x100</span>/x2 <span class="Constant">0xe8</span>/y2, <span class="Constant">0x2a</span>/color +<span id="L328" class="LineNr"> 328 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x188</span>/xf <span class="Constant">0x100</span>/yf, <span class="Constant">0x100</span>/x1 <span class="Constant">0x100</span>/y1, <span class="Constant">0x100</span>/x2 <span class="Constant">0x160</span>/y2, <span class="Constant">0x2a</span>/color +<span id="L329" class="LineNr"> 329 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x188</span>/xf <span class="Constant">0x100</span>/yf, <span class="Constant">0x188</span>/x1 <span class="Constant">0x80</span>/y1, <span class="Constant">0x170</span>/x2 <span class="Constant">0x80</span>/y2, <span class="Constant">0x2a</span>/color +<span id="L330" class="LineNr"> 330 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x188</span>/xf <span class="Constant">0x100</span>/yf, <span class="Constant">0x188</span>/x1 <span class="Constant">0x160</span>/y1, <span class="Constant">0x170</span>/x2 <span class="Constant">0x160</span>/y2, <span class="Constant">0x2a</span>/color +<span id="L331" class="LineNr"> 331 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x188</span>/xf <span class="Constant">0x100</span>/yf, <span class="Constant">0x1e0</span>/x1 <span class="Constant">0x100</span>/y1, <span class="Constant">0x1e0</span>/x2 <span class="Constant">0x80</span>/y2, <span class="Constant">0x2a</span>/color +<span id="L332" class="LineNr"> 332 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x188</span>/xf <span class="Constant">0x100</span>/yf, <span class="Constant">0x1e0</span>/x1 <span class="Constant">0x100</span>/y1 <span class="Constant">0x1e0</span>/x2 <span class="Constant">0xe8</span>/y2, <span class="Constant">0x2a</span>/color +<span id="L333" class="LineNr"> 333 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x188</span>/xf <span class="Constant">0x100</span>/yf, <span class="Constant">0x1e0</span>/x1 <span class="Constant">0x100</span>/y1, <span class="Constant">0x1e0</span>/x2 <span class="Constant">0x160</span>/y2, <span class="Constant">0x2a</span>/color +<span id="L334" class="LineNr"> 334 </span> <span class="muComment"># cell 0: time-variant portion: 16 repeating steps</span> +<span id="L335" class="LineNr"> 335 </span> $render1:cell0: <span class="Delimiter">{</span> +<span id="L336" class="LineNr"> 336 </span> <span class="PreProc">var</span> tick-a/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, tick +<span id="L337" class="LineNr"> 337 </span> <span class="PreProc">var</span> progress/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *tick-a +<span id="L338" class="LineNr"> 338 </span> progress <span class="Special"><-</span> and <span class="Constant">0xf</span> +<span id="L339" class="LineNr"> 339 </span> <span class="muComment"># cell 0: 7 time steps for getting inputs to sum</span> +<span id="L340" class="LineNr"> 340 </span> <span class="Delimiter">{</span> +<span id="L341" class="LineNr"> 341 </span> compare progress, <span class="Constant">7</span> +<span id="L342" class="LineNr"> 342 </span> <span class="PreProc">break-if->=</span> +<span id="L343" class="LineNr"> 343 </span> <span class="PreProc">var</span> u/<span class="Constant">xmm7</span>: float <span class="Special"><-</span> convert progress +<span id="L344" class="LineNr"> 344 </span> <span class="PreProc">var</span> six/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">6</span> +<span id="L345" class="LineNr"> 345 </span> <span class="PreProc">var</span> six-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert six +<span id="L346" class="LineNr"> 346 </span> u <span class="Special"><-</span> divide six-f +<span id="L347" class="LineNr"> 347 </span> <span class="muComment"># points on conveyors from neighboring cells</span> +<span id="L348" class="LineNr"> 348 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0xc0</span>/x0 <span class="Constant">0x40</span>/y0, <span class="Constant">0x100</span>/x1 <span class="Constant">0xd0</span>/ys, <span class="Constant">0x150</span>/xs <span class="Constant">0xd0</span>/ys, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L349" class="LineNr"> 349 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0xc0</span>/x0 <span class="Constant">0xe8</span>/y0, <span class="Constant">0xc0</span>/x1 <span class="Constant">0xd0</span>/ys, <span class="Constant">0x150</span>/xs <span class="Constant">0xd0</span>/ys, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L350" class="LineNr"> 350 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0xc0</span>/x0 <span class="Constant">0x1a0</span>/y0, <span class="Constant">0xe0</span>/x1 <span class="Constant">0xd0</span>/ys, <span class="Constant">0x150</span>/xs <span class="Constant">0xd0</span>/ys, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L351" class="LineNr"> 351 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x170</span>/x0 <span class="Constant">0x40</span>/y0, <span class="Constant">0x150</span>/x1 <span class="Constant">0x80</span>/y1, <span class="Constant">0x150</span>/xs <span class="Constant">0xd0</span>/ys, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L352" class="LineNr"> 352 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x170</span>/x0 <span class="Constant">0x1a0</span>/y0, <span class="Constant">0x150</span>/x1 <span class="Constant">0x1a0</span>/y1, <span class="Constant">0x150</span>/xs <span class="Constant">0xd0</span>/ys, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L353" class="LineNr"> 353 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x220</span>/x0 <span class="Constant">0x40</span>/y0, <span class="Constant">0x150</span>/x1 <span class="Constant">0x80</span>/y1, <span class="Constant">0x150</span>/xs <span class="Constant">0xd0</span>/ys, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L354" class="LineNr"> 354 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x220</span>/x0 <span class="Constant">0xe8</span>/y0, <span class="Constant">0x220</span>/x1 <span class="Constant">0xd0</span>/y1, <span class="Constant">0x150</span>/xs <span class="Constant">0xd0</span>/ys, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L355" class="LineNr"> 355 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x220</span>/x0 <span class="Constant">0x1a0</span>/y0, <span class="Constant">0x180</span>/x1 <span class="Constant">0x1a0</span>/y1, <span class="Constant">0x150</span>/xs <span class="Constant">0xd0</span>/ys, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L356" class="LineNr"> 356 </span> <span class="PreProc">break</span> $render1:cell0 +<span id="L357" class="LineNr"> 357 </span> <span class="Delimiter">}</span> +<span id="L358" class="LineNr"> 358 </span> <span class="muComment"># cell 0: two time steps for getting count to filter</span> +<span id="L359" class="LineNr"> 359 </span> progress <span class="Special"><-</span> subtract <span class="Constant">7</span> +<span id="L360" class="LineNr"> 360 </span> <span class="Delimiter">{</span> +<span id="L361" class="LineNr"> 361 </span> compare progress, <span class="Constant">2</span> +<span id="L362" class="LineNr"> 362 </span> <span class="PreProc">break-if->=</span> +<span id="L363" class="LineNr"> 363 </span> <span class="PreProc">break</span> $render1:cell0 +<span id="L364" class="LineNr"> 364 </span> <span class="Delimiter">}</span> +<span id="L365" class="LineNr"> 365 </span> <span class="muComment"># cell 0: final 7 time steps for updating output</span> +<span id="L366" class="LineNr"> 366 </span> progress <span class="Special"><-</span> subtract <span class="Constant">2</span> +<span id="L367" class="LineNr"> 367 </span> <span class="muComment"># cell 0: points on conveyors to outputs</span> +<span id="L368" class="LineNr"> 368 </span> <span class="PreProc">var</span> u/<span class="Constant">xmm7</span>: float <span class="Special"><-</span> convert progress +<span id="L369" class="LineNr"> 369 </span> <span class="PreProc">var</span> six/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">6</span> +<span id="L370" class="LineNr"> 370 </span> <span class="PreProc">var</span> six-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert six +<span id="L371" class="LineNr"> 371 </span> u <span class="Special"><-</span> divide six-f +<span id="L372" class="LineNr"> 372 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x188</span>/xf <span class="Constant">0x100</span>/yf, <span class="Constant">0x160</span>/x1 <span class="Constant">0x8c</span>/y1, <span class="Constant">0x100</span>/x2 <span class="Constant">0x80</span>/y2, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L373" class="LineNr"> 373 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x188</span>/xf <span class="Constant">0x100</span>/yf, <span class="Constant">0x100</span>/x1 <span class="Constant">0x100</span>/y1, <span class="Constant">0x100</span>/x2 <span class="Constant">0xe8</span>/y2, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L374" class="LineNr"> 374 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x188</span>/xf <span class="Constant">0x100</span>/yf, <span class="Constant">0x100</span>/x1 <span class="Constant">0x100</span>/y1, <span class="Constant">0x100</span>/x2 <span class="Constant">0x160</span>/y2, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L375" class="LineNr"> 375 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x188</span>/xf <span class="Constant">0x100</span>/yf, <span class="Constant">0x188</span>/xf <span class="Constant">0x80</span>/y1, <span class="Constant">0x170</span>/x2 <span class="Constant">0x80</span>/y2, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L376" class="LineNr"> 376 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x188</span>/xf <span class="Constant">0x100</span>/yf, <span class="Constant">0x188</span>/xf <span class="Constant">0x160</span>/y1, <span class="Constant">0x170</span>/x2 <span class="Constant">0x160</span>/y2, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L377" class="LineNr"> 377 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x188</span>/xf <span class="Constant">0x100</span>/yf, <span class="Constant">0x1e0</span>/x1 <span class="Constant">0x100</span>/y1, <span class="Constant">0x1e0</span>/x2 <span class="Constant">0x80</span>/y2, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L378" class="LineNr"> 378 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x188</span>/xf <span class="Constant">0x100</span>/yf, <span class="Constant">0x1e0</span>/x1 <span class="Constant">0x100</span>/y1, <span class="Constant">0x1e0</span>/x2 <span class="Constant">0xe8</span>/y2, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L379" class="LineNr"> 379 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x188</span>/xf <span class="Constant">0x100</span>/yf, <span class="Constant">0x1e0</span>/x1 <span class="Constant">0x100</span>/y1, <span class="Constant">0x1e0</span>/x2 <span class="Constant">0x160</span>/y2, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L380" class="LineNr"> 380 </span> <span class="Delimiter">}</span> +<span id="L381" class="LineNr"> 381 </span> <span class="muComment"># cell 1: conveyors from neighboring inputs to sum node</span> +<span id="L382" class="LineNr"> 382 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x1e0</span>/x0 <span class="Constant">0x40</span>/y0, <span class="Constant">0x220</span>/x1 <span class="Constant">0xd0</span>/ys, <span class="Constant">0x270</span>/xs <span class="Constant">0xd0</span>/ys, <span class="Constant">4</span>/color +<span id="L383" class="LineNr"> 383 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x1e0</span>/x0 <span class="Constant">0xe8</span>/y0, <span class="Constant">0x1e0</span>/x1 <span class="Constant">0xd0</span>/ys, <span class="Constant">0x270</span>/xs <span class="Constant">0xd0</span>/ys, <span class="Constant">4</span>/color +<span id="L384" class="LineNr"> 384 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x1e0</span>/x0 <span class="Constant">0x1a0</span>/y0, <span class="Constant">0x200</span>/x1 <span class="Constant">0xd0</span>/ys, <span class="Constant">0x270</span>/xs <span class="Constant">0xd0</span>/ys, <span class="Constant">4</span>/color +<span id="L385" class="LineNr"> 385 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x290</span>/x0 <span class="Constant">0x40</span>/y0, <span class="Constant">0x270</span>/x1 <span class="Constant">0x80</span>/y1, <span class="Constant">0x270</span>/xs <span class="Constant">0xd0</span>/ys, <span class="Constant">4</span>/color +<span id="L386" class="LineNr"> 386 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x290</span>/x0 <span class="Constant">0x1a0</span>/y0, <span class="Constant">0x270</span>/x1 <span class="Constant">0x1a0</span>/y1, <span class="Constant">0x270</span>/xs <span class="Constant">0xd0</span>/ys, <span class="Constant">4</span>/color +<span id="L387" class="LineNr"> 387 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x340</span>/x0 <span class="Constant">0x40</span>/y0, <span class="Constant">0x270</span>/x1 <span class="Constant">0x80</span>/y1, <span class="Constant">0x270</span>/xs <span class="Constant">0xd0</span>/ys, <span class="Constant">4</span>/color +<span id="L388" class="LineNr"> 388 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x340</span>/x0 <span class="Constant">0xe8</span>/y0, <span class="Constant">0x340</span>/x1 <span class="Constant">0xd0</span>/y1, <span class="Constant">0x270</span>/xs <span class="Constant">0xd0</span>/ys, <span class="Constant">4</span>/color +<span id="L389" class="LineNr"> 389 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x340</span>/x0 <span class="Constant">0x1a0</span>/y0, <span class="Constant">0x2a0</span>/x1 <span class="Constant">0x1a0</span>/y1, <span class="Constant">0x270</span>/xs <span class="Constant">0xd0</span>/ys, <span class="Constant">4</span>/color +<span id="L390" class="LineNr"> 390 </span> <span class="muComment"># cell 1: conveyors from filter to outputs</span> +<span id="L391" class="LineNr"> 391 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x2a8</span>/xf <span class="Constant">0x100</span>/yf, <span class="Constant">0x280</span>/x1 <span class="Constant">0x8c</span>/y1, <span class="Constant">0x220</span>/x2 <span class="Constant">0x80</span>/y2, <span class="Constant">0x2a</span>/color +<span id="L392" class="LineNr"> 392 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x2a8</span>/xf <span class="Constant">0x100</span>/yf, <span class="Constant">0x220</span>/x1 <span class="Constant">0x100</span>/y1, <span class="Constant">0x220</span>/x2 <span class="Constant">0xe8</span>/y2, <span class="Constant">0x2a</span>/color +<span id="L393" class="LineNr"> 393 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x2a8</span>/xf <span class="Constant">0x100</span>/yf, <span class="Constant">0x220</span>/x1 <span class="Constant">0x100</span>/y1, <span class="Constant">0x220</span>/x2 <span class="Constant">0x160</span>/y2, <span class="Constant">0x2a</span>/color +<span id="L394" class="LineNr"> 394 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x2a8</span>/xf <span class="Constant">0x100</span>/yf, <span class="Constant">0x2a8</span>/x1 <span class="Constant">0x80</span>/y1, <span class="Constant">0x290</span>/x2 <span class="Constant">0x80</span>/y2, <span class="Constant">0x2a</span>/color +<span id="L395" class="LineNr"> 395 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x2a8</span>/xf <span class="Constant">0x100</span>/yf, <span class="Constant">0x2a8</span>/x1 <span class="Constant">0x160</span>/y1, <span class="Constant">0x290</span>/x2 <span class="Constant">0x160</span>/y2, <span class="Constant">0x2a</span>/color +<span id="L396" class="LineNr"> 396 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x2a8</span>/xf <span class="Constant">0x100</span>/yf, <span class="Constant">0x300</span>/x1 <span class="Constant">0x100</span>/y1, <span class="Constant">0x300</span>/x2 <span class="Constant">0x80</span>/y2, <span class="Constant">0x2a</span>/color +<span id="L397" class="LineNr"> 397 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x2a8</span>/xf <span class="Constant">0x100</span>/yf, <span class="Constant">0x300</span>/x1 <span class="Constant">0x100</span>/y1 <span class="Constant">0x300</span>/x2 <span class="Constant">0xe8</span>/y2, <span class="Constant">0x2a</span>/color +<span id="L398" class="LineNr"> 398 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x2a8</span>/xf <span class="Constant">0x100</span>/yf, <span class="Constant">0x300</span>/x1 <span class="Constant">0x100</span>/y1, <span class="Constant">0x300</span>/x2 <span class="Constant">0x160</span>/y2, <span class="Constant">0x2a</span>/color +<span id="L399" class="LineNr"> 399 </span> <span class="muComment"># cell 1: time-variant portion: 16 repeating steps</span> +<span id="L400" class="LineNr"> 400 </span> $render1:cell1: <span class="Delimiter">{</span> +<span id="L401" class="LineNr"> 401 </span> <span class="PreProc">var</span> tick-a/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, tick +<span id="L402" class="LineNr"> 402 </span> <span class="PreProc">var</span> progress/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *tick-a +<span id="L403" class="LineNr"> 403 </span> progress <span class="Special"><-</span> and <span class="Constant">0xf</span> +<span id="L404" class="LineNr"> 404 </span> <span class="muComment"># cell 1: 7 time steps for getting inputs to sum</span> +<span id="L405" class="LineNr"> 405 </span> <span class="Delimiter">{</span> +<span id="L406" class="LineNr"> 406 </span> compare progress, <span class="Constant">7</span> +<span id="L407" class="LineNr"> 407 </span> <span class="PreProc">break-if->=</span> +<span id="L408" class="LineNr"> 408 </span> <span class="PreProc">var</span> u/<span class="Constant">xmm7</span>: float <span class="Special"><-</span> convert progress +<span id="L409" class="LineNr"> 409 </span> <span class="PreProc">var</span> six/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">6</span> +<span id="L410" class="LineNr"> 410 </span> <span class="PreProc">var</span> six-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert six +<span id="L411" class="LineNr"> 411 </span> u <span class="Special"><-</span> divide six-f +<span id="L412" class="LineNr"> 412 </span> <span class="muComment"># points on conveyors from neighboring cells</span> +<span id="L413" class="LineNr"> 413 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x1e0</span>/x0 <span class="Constant">0x40</span>/y0, <span class="Constant">0x220</span>/x1 <span class="Constant">0xd0</span>/ys, <span class="Constant">0x270</span>/xs <span class="Constant">0xd0</span>/ys, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L414" class="LineNr"> 414 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x1e0</span>/x0 <span class="Constant">0xe8</span>/y0, <span class="Constant">0x1e0</span>/x1 <span class="Constant">0xd0</span>/ys, <span class="Constant">0x270</span>/xs <span class="Constant">0xd0</span>/ys, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L415" class="LineNr"> 415 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x1e0</span>/x0 <span class="Constant">0x1a0</span>/y0, <span class="Constant">0x200</span>/x1 <span class="Constant">0xd0</span>/ys, <span class="Constant">0x270</span>/xs <span class="Constant">0xd0</span>/ys, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L416" class="LineNr"> 416 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x290</span>/x0 <span class="Constant">0x40</span>/y0, <span class="Constant">0x270</span>/x1 <span class="Constant">0x80</span>/y1, <span class="Constant">0x270</span>/xs <span class="Constant">0xd0</span>/ys, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L417" class="LineNr"> 417 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x290</span>/x0 <span class="Constant">0x1a0</span>/y0, <span class="Constant">0x270</span>/x1 <span class="Constant">0x1a0</span>/y1, <span class="Constant">0x270</span>/xs <span class="Constant">0xd0</span>/ys, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L418" class="LineNr"> 418 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x340</span>/x0 <span class="Constant">0x40</span>/y0, <span class="Constant">0x270</span>/x1 <span class="Constant">0x80</span>/y1, <span class="Constant">0x270</span>/xs <span class="Constant">0xd0</span>/ys, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L419" class="LineNr"> 419 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x340</span>/x0 <span class="Constant">0xe8</span>/y0, <span class="Constant">0x340</span>/x1 <span class="Constant">0xd0</span>/y1, <span class="Constant">0x270</span>/xs <span class="Constant">0xd0</span>/ys, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L420" class="LineNr"> 420 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x340</span>/x0 <span class="Constant">0x1a0</span>/y0, <span class="Constant">0x2a0</span>/x1 <span class="Constant">0x1a0</span>/y1, <span class="Constant">0x270</span>/xs <span class="Constant">0xd0</span>/ys, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L421" class="LineNr"> 421 </span> <span class="PreProc">break</span> $render1:cell1 +<span id="L422" class="LineNr"> 422 </span> <span class="Delimiter">}</span> +<span id="L423" class="LineNr"> 423 </span> <span class="muComment"># cell 1: two time steps for getting count to filter</span> +<span id="L424" class="LineNr"> 424 </span> progress <span class="Special"><-</span> subtract <span class="Constant">7</span> +<span id="L425" class="LineNr"> 425 </span> <span class="Delimiter">{</span> +<span id="L426" class="LineNr"> 426 </span> compare progress, <span class="Constant">2</span> +<span id="L427" class="LineNr"> 427 </span> <span class="PreProc">break-if->=</span> +<span id="L428" class="LineNr"> 428 </span> <span class="PreProc">break</span> $render1:cell1 +<span id="L429" class="LineNr"> 429 </span> <span class="Delimiter">}</span> +<span id="L430" class="LineNr"> 430 </span> <span class="muComment"># cell 1: final 7 time steps for updating output</span> +<span id="L431" class="LineNr"> 431 </span> progress <span class="Special"><-</span> subtract <span class="Constant">2</span> +<span id="L432" class="LineNr"> 432 </span> <span class="muComment"># cell 1: points on conveyors to outputs</span> +<span id="L433" class="LineNr"> 433 </span> <span class="PreProc">var</span> u/<span class="Constant">xmm7</span>: float <span class="Special"><-</span> convert progress +<span id="L434" class="LineNr"> 434 </span> <span class="PreProc">var</span> six/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">6</span> +<span id="L435" class="LineNr"> 435 </span> <span class="PreProc">var</span> six-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert six +<span id="L436" class="LineNr"> 436 </span> u <span class="Special"><-</span> divide six-f +<span id="L437" class="LineNr"> 437 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x2a8</span>/xf <span class="Constant">0x100</span>/yf, <span class="Constant">0x280</span>/x1 <span class="Constant">0x8c</span>/y1, <span class="Constant">0x220</span>/x2 <span class="Constant">0x80</span>/y2, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L438" class="LineNr"> 438 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x2a8</span>/xf <span class="Constant">0x100</span>/yf, <span class="Constant">0x220</span>/x1 <span class="Constant">0x100</span>/y1, <span class="Constant">0x220</span>/x2 <span class="Constant">0xe8</span>/y2, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L439" class="LineNr"> 439 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x2a8</span>/xf <span class="Constant">0x100</span>/yf, <span class="Constant">0x220</span>/x1 <span class="Constant">0x100</span>/y1, <span class="Constant">0x220</span>/x2 <span class="Constant">0x160</span>/y2, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L440" class="LineNr"> 440 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x2a8</span>/xf <span class="Constant">0x100</span>/yf, <span class="Constant">0x2a8</span>/xf <span class="Constant">0x80</span>/y1, <span class="Constant">0x290</span>/x2 <span class="Constant">0x80</span>/y2, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L441" class="LineNr"> 441 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x2a8</span>/xf <span class="Constant">0x100</span>/yf, <span class="Constant">0x2a8</span>/xf <span class="Constant">0x160</span>/y1, <span class="Constant">0x290</span>/x2 <span class="Constant">0x160</span>/y2, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L442" class="LineNr"> 442 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x2a8</span>/xf <span class="Constant">0x100</span>/yf, <span class="Constant">0x300</span>/x1 <span class="Constant">0x100</span>/y1, <span class="Constant">0x300</span>/x2 <span class="Constant">0x80</span>/y2, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L443" class="LineNr"> 443 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x2a8</span>/xf <span class="Constant">0x100</span>/yf, <span class="Constant">0x300</span>/x1 <span class="Constant">0x100</span>/y1, <span class="Constant">0x300</span>/x2 <span class="Constant">0xe8</span>/y2, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L444" class="LineNr"> 444 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x2a8</span>/xf <span class="Constant">0x100</span>/yf, <span class="Constant">0x300</span>/x1 <span class="Constant">0x100</span>/y1, <span class="Constant">0x300</span>/x2 <span class="Constant">0x160</span>/y2, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L445" class="LineNr"> 445 </span> <span class="Delimiter">}</span> +<span id="L446" class="LineNr"> 446 </span> <span class="muComment"># cell 2: conveyors from neighboring inputs to sum node</span> +<span id="L447" class="LineNr"> 447 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0xc0</span>/x0 <span class="Constant">0x160</span>/y0, <span class="Constant">0x100</span>/x1 <span class="Constant">0x1f0</span>/ys, <span class="Constant">0x150</span>/xs <span class="Constant">0x1f0</span>/ys, <span class="Constant">4</span>/color +<span id="L448" class="LineNr"> 448 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0xc0</span>/x0 <span class="Constant">0x208</span>/y0, <span class="Constant">0xc0</span>/x1 <span class="Constant">0x1f0</span>/ys, <span class="Constant">0x150</span>/xs <span class="Constant">0x1f0</span>/ys, <span class="Constant">4</span>/color +<span id="L449" class="LineNr"> 449 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0xc0</span>/x0 <span class="Constant">0x2c0</span>/y0, <span class="Constant">0xe0</span>/x1 <span class="Constant">0x1f0</span>/ys, <span class="Constant">0x150</span>/xs <span class="Constant">0x1f0</span>/ys, <span class="Constant">4</span>/color +<span id="L450" class="LineNr"> 450 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x170</span>/x0 <span class="Constant">0x160</span>/y0, <span class="Constant">0x150</span>/x1 <span class="Constant">0x1a0</span>/y1, <span class="Constant">0x150</span>/xs <span class="Constant">0x1f0</span>/ys, <span class="Constant">4</span>/color +<span id="L451" class="LineNr"> 451 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x170</span>/x0 <span class="Constant">0x2c0</span>/y0, <span class="Constant">0x150</span>/x1 <span class="Constant">0x2c0</span>/y1, <span class="Constant">0x150</span>/xs <span class="Constant">0x1f0</span>/ys, <span class="Constant">4</span>/color +<span id="L452" class="LineNr"> 452 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x220</span>/x0 <span class="Constant">0x160</span>/y0, <span class="Constant">0x150</span>/x1 <span class="Constant">0x1a0</span>/y1, <span class="Constant">0x150</span>/xs <span class="Constant">0x1f0</span>/ys, <span class="Constant">4</span>/color +<span id="L453" class="LineNr"> 453 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x220</span>/x0 <span class="Constant">0x208</span>/y0, <span class="Constant">0x220</span>/x1 <span class="Constant">0x1f0</span>/y1, <span class="Constant">0x150</span>/xs <span class="Constant">0x1f0</span>/ys, <span class="Constant">4</span>/color +<span id="L454" class="LineNr"> 454 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x220</span>/x0 <span class="Constant">0x2c0</span>/y0, <span class="Constant">0x180</span>/x1 <span class="Constant">0x2c0</span>/y1, <span class="Constant">0x150</span>/xs <span class="Constant">0x1f0</span>/ys, <span class="Constant">4</span>/color +<span id="L455" class="LineNr"> 455 </span> <span class="muComment"># cell 2: conveyors from filter to outputs</span> +<span id="L456" class="LineNr"> 456 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x188</span>/xf <span class="Constant">0x220</span>/yf, <span class="Constant">0x160</span>/x1 <span class="Constant">0x1ac</span>/y1, <span class="Constant">0x100</span>/x2 <span class="Constant">0x1a0</span>/y2, <span class="Constant">0x2a</span>/color +<span id="L457" class="LineNr"> 457 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x188</span>/xf <span class="Constant">0x220</span>/yf, <span class="Constant">0x100</span>/x1 <span class="Constant">0x220</span>/y1, <span class="Constant">0x100</span>/x2 <span class="Constant">0x208</span>/y2, <span class="Constant">0x2a</span>/color +<span id="L458" class="LineNr"> 458 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x188</span>/xf <span class="Constant">0x220</span>/yf, <span class="Constant">0x100</span>/x1 <span class="Constant">0x220</span>/y1, <span class="Constant">0x100</span>/x2 <span class="Constant">0x280</span>/y2, <span class="Constant">0x2a</span>/color +<span id="L459" class="LineNr"> 459 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x188</span>/xf <span class="Constant">0x220</span>/yf, <span class="Constant">0x188</span>/x1 <span class="Constant">0x1a0</span>/y1, <span class="Constant">0x170</span>/x2 <span class="Constant">0x1a0</span>/y2, <span class="Constant">0x2a</span>/color +<span id="L460" class="LineNr"> 460 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x188</span>/xf <span class="Constant">0x220</span>/yf, <span class="Constant">0x188</span>/x1 <span class="Constant">0x280</span>/y1, <span class="Constant">0x170</span>/x2 <span class="Constant">0x280</span>/y2, <span class="Constant">0x2a</span>/color +<span id="L461" class="LineNr"> 461 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x188</span>/xf <span class="Constant">0x220</span>/yf, <span class="Constant">0x1e0</span>/x1 <span class="Constant">0x220</span>/y1, <span class="Constant">0x1e0</span>/x2 <span class="Constant">0x1a0</span>/y2, <span class="Constant">0x2a</span>/color +<span id="L462" class="LineNr"> 462 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x188</span>/xf <span class="Constant">0x220</span>/yf, <span class="Constant">0x1e0</span>/x1 <span class="Constant">0x220</span>/y1 <span class="Constant">0x1e0</span>/x2 <span class="Constant">0x208</span>/y2, <span class="Constant">0x2a</span>/color +<span id="L463" class="LineNr"> 463 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x188</span>/xf <span class="Constant">0x220</span>/yf, <span class="Constant">0x1e0</span>/x1 <span class="Constant">0x220</span>/y1, <span class="Constant">0x1e0</span>/x2 <span class="Constant">0x280</span>/y2, <span class="Constant">0x2a</span>/color +<span id="L464" class="LineNr"> 464 </span> <span class="muComment"># cell 2: time-variant portion: 16 repeating steps</span> +<span id="L465" class="LineNr"> 465 </span> $render1:cell2: <span class="Delimiter">{</span> +<span id="L466" class="LineNr"> 466 </span> <span class="PreProc">var</span> tick-a/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, tick +<span id="L467" class="LineNr"> 467 </span> <span class="PreProc">var</span> progress/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *tick-a +<span id="L468" class="LineNr"> 468 </span> progress <span class="Special"><-</span> and <span class="Constant">0xf</span> +<span id="L469" class="LineNr"> 469 </span> <span class="muComment"># cell 2: 7 time steps for getting inputs to sum</span> +<span id="L470" class="LineNr"> 470 </span> <span class="Delimiter">{</span> +<span id="L471" class="LineNr"> 471 </span> compare progress, <span class="Constant">7</span> +<span id="L472" class="LineNr"> 472 </span> <span class="PreProc">break-if->=</span> +<span id="L473" class="LineNr"> 473 </span> <span class="PreProc">var</span> u/<span class="Constant">xmm7</span>: float <span class="Special"><-</span> convert progress +<span id="L474" class="LineNr"> 474 </span> <span class="PreProc">var</span> six/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">6</span> +<span id="L475" class="LineNr"> 475 </span> <span class="PreProc">var</span> six-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert six +<span id="L476" class="LineNr"> 476 </span> u <span class="Special"><-</span> divide six-f +<span id="L477" class="LineNr"> 477 </span> <span class="muComment"># points on conveyors from neighboring cells</span> +<span id="L478" class="LineNr"> 478 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0xc0</span>/x0 <span class="Constant">0x160</span>/y0, <span class="Constant">0x100</span>/x1 <span class="Constant">0x1f0</span>/ys, <span class="Constant">0x150</span>/xs <span class="Constant">0x1f0</span>/ys, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L479" class="LineNr"> 479 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0xc0</span>/x0 <span class="Constant">0x208</span>/y0, <span class="Constant">0xc0</span>/x1 <span class="Constant">0x1f0</span>/ys, <span class="Constant">0x150</span>/xs <span class="Constant">0x1f0</span>/ys, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L480" class="LineNr"> 480 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0xc0</span>/x0 <span class="Constant">0x2c0</span>/y0, <span class="Constant">0xe0</span>/x1 <span class="Constant">0x1f0</span>/ys, <span class="Constant">0x150</span>/xs <span class="Constant">0x1f0</span>/ys, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L481" class="LineNr"> 481 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x170</span>/x0 <span class="Constant">0x160</span>/y0, <span class="Constant">0x150</span>/x1 <span class="Constant">0x1a0</span>/y1, <span class="Constant">0x150</span>/xs <span class="Constant">0x1f0</span>/ys, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L482" class="LineNr"> 482 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x170</span>/x0 <span class="Constant">0x2c0</span>/y0, <span class="Constant">0x150</span>/x1 <span class="Constant">0x2c0</span>/y1, <span class="Constant">0x150</span>/xs <span class="Constant">0x1f0</span>/ys, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L483" class="LineNr"> 483 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x220</span>/x0 <span class="Constant">0x160</span>/y0, <span class="Constant">0x150</span>/x1 <span class="Constant">0x1a0</span>/y1, <span class="Constant">0x150</span>/xs <span class="Constant">0x1f0</span>/ys, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L484" class="LineNr"> 484 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x220</span>/x0 <span class="Constant">0x208</span>/y0, <span class="Constant">0x220</span>/x1 <span class="Constant">0x1f0</span>/y1, <span class="Constant">0x150</span>/xs <span class="Constant">0x1f0</span>/ys, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L485" class="LineNr"> 485 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x220</span>/x0 <span class="Constant">0x2c0</span>/y0, <span class="Constant">0x180</span>/x1 <span class="Constant">0x2c0</span>/y1, <span class="Constant">0x150</span>/xs <span class="Constant">0x1f0</span>/ys, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L486" class="LineNr"> 486 </span> <span class="PreProc">break</span> $render1:cell2 +<span id="L487" class="LineNr"> 487 </span> <span class="Delimiter">}</span> +<span id="L488" class="LineNr"> 488 </span> <span class="muComment"># cell 2: two time steps for getting count to filter</span> +<span id="L489" class="LineNr"> 489 </span> progress <span class="Special"><-</span> subtract <span class="Constant">7</span> +<span id="L490" class="LineNr"> 490 </span> <span class="Delimiter">{</span> +<span id="L491" class="LineNr"> 491 </span> compare progress, <span class="Constant">2</span> +<span id="L492" class="LineNr"> 492 </span> <span class="PreProc">break-if->=</span> +<span id="L493" class="LineNr"> 493 </span> <span class="PreProc">break</span> $render1:cell2 +<span id="L494" class="LineNr"> 494 </span> <span class="Delimiter">}</span> +<span id="L495" class="LineNr"> 495 </span> <span class="muComment"># cell 2: final 7 time steps for updating output</span> +<span id="L496" class="LineNr"> 496 </span> progress <span class="Special"><-</span> subtract <span class="Constant">2</span> +<span id="L497" class="LineNr"> 497 </span> <span class="muComment"># cell 2: points on conveyors to outputs</span> +<span id="L498" class="LineNr"> 498 </span> <span class="PreProc">var</span> u/<span class="Constant">xmm7</span>: float <span class="Special"><-</span> convert progress +<span id="L499" class="LineNr"> 499 </span> <span class="PreProc">var</span> six/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">6</span> +<span id="L500" class="LineNr"> 500 </span> <span class="PreProc">var</span> six-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert six +<span id="L501" class="LineNr"> 501 </span> u <span class="Special"><-</span> divide six-f +<span id="L502" class="LineNr"> 502 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x188</span>/xf <span class="Constant">0x220</span>/yf, <span class="Constant">0x160</span>/x1 <span class="Constant">0x1ac</span>/y1, <span class="Constant">0x100</span>/x2 <span class="Constant">0x1a0</span>/y2, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L503" class="LineNr"> 503 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x188</span>/xf <span class="Constant">0x220</span>/yf, <span class="Constant">0x100</span>/x1 <span class="Constant">0x220</span>/y1, <span class="Constant">0x100</span>/x2 <span class="Constant">0x208</span>/y2, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L504" class="LineNr"> 504 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x188</span>/xf <span class="Constant">0x220</span>/yf, <span class="Constant">0x100</span>/x1 <span class="Constant">0x220</span>/y1, <span class="Constant">0x100</span>/x2 <span class="Constant">0x280</span>/y2, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L505" class="LineNr"> 505 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x188</span>/xf <span class="Constant">0x220</span>/yf, <span class="Constant">0x188</span>/xf <span class="Constant">0x1a0</span>/y1, <span class="Constant">0x170</span>/x2 <span class="Constant">0x1a0</span>/y2, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L506" class="LineNr"> 506 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x188</span>/xf <span class="Constant">0x220</span>/yf, <span class="Constant">0x188</span>/xf <span class="Constant">0x280</span>/y1, <span class="Constant">0x170</span>/x2 <span class="Constant">0x280</span>/y2, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L507" class="LineNr"> 507 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x188</span>/xf <span class="Constant">0x220</span>/yf, <span class="Constant">0x1e0</span>/x1 <span class="Constant">0x220</span>/y1, <span class="Constant">0x1e0</span>/x2 <span class="Constant">0x1a0</span>/y2, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L508" class="LineNr"> 508 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x188</span>/xf <span class="Constant">0x220</span>/yf, <span class="Constant">0x1e0</span>/x1 <span class="Constant">0x220</span>/y1, <span class="Constant">0x1e0</span>/x2 <span class="Constant">0x208</span>/y2, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L509" class="LineNr"> 509 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x188</span>/xf <span class="Constant">0x220</span>/yf, <span class="Constant">0x1e0</span>/x1 <span class="Constant">0x220</span>/y1, <span class="Constant">0x1e0</span>/x2 <span class="Constant">0x280</span>/y2, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L510" class="LineNr"> 510 </span> <span class="Delimiter">}</span> +<span id="L511" class="LineNr"> 511 </span> <span class="muComment"># cell 3: conveyors from neighboring inputs to sum node</span> +<span id="L512" class="LineNr"> 512 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x1e0</span>/x0 <span class="Constant">0x160</span>/y0, <span class="Constant">0x220</span>/x1 <span class="Constant">0x1f0</span>/ys, <span class="Constant">0x270</span>/xs <span class="Constant">0x1f0</span>/ys, <span class="Constant">4</span>/color +<span id="L513" class="LineNr"> 513 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x1e0</span>/x0 <span class="Constant">0x208</span>/y0, <span class="Constant">0x1e0</span>/x1 <span class="Constant">0x1f0</span>/ys, <span class="Constant">0x270</span>/xs <span class="Constant">0x1f0</span>/ys, <span class="Constant">4</span>/color +<span id="L514" class="LineNr"> 514 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x1e0</span>/x0 <span class="Constant">0x2c0</span>/y0, <span class="Constant">0x200</span>/x1 <span class="Constant">0x1f0</span>/ys, <span class="Constant">0x270</span>/xs <span class="Constant">0x1f0</span>/ys, <span class="Constant">4</span>/color +<span id="L515" class="LineNr"> 515 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x290</span>/x0 <span class="Constant">0x160</span>/y0, <span class="Constant">0x270</span>/x1 <span class="Constant">0x1a0</span>/y1, <span class="Constant">0x270</span>/xs <span class="Constant">0x1f0</span>/ys, <span class="Constant">4</span>/color +<span id="L516" class="LineNr"> 516 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x290</span>/x0 <span class="Constant">0x2c0</span>/y0, <span class="Constant">0x270</span>/x1 <span class="Constant">0x2c0</span>/y1, <span class="Constant">0x270</span>/xs <span class="Constant">0x1f0</span>/ys, <span class="Constant">4</span>/color +<span id="L517" class="LineNr"> 517 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x340</span>/x0 <span class="Constant">0x160</span>/y0, <span class="Constant">0x270</span>/x1 <span class="Constant">0x1a0</span>/y1, <span class="Constant">0x270</span>/xs <span class="Constant">0x1f0</span>/ys, <span class="Constant">4</span>/color +<span id="L518" class="LineNr"> 518 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x340</span>/x0 <span class="Constant">0x208</span>/y0, <span class="Constant">0x340</span>/x1 <span class="Constant">0x1f0</span>/y1, <span class="Constant">0x270</span>/xs <span class="Constant">0x1f0</span>/ys, <span class="Constant">4</span>/color +<span id="L519" class="LineNr"> 519 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x340</span>/x0 <span class="Constant">0x2c0</span>/y0, <span class="Constant">0x2a0</span>/x1 <span class="Constant">0x2c0</span>/y1, <span class="Constant">0x270</span>/xs <span class="Constant">0x1f0</span>/ys, <span class="Constant">4</span>/color +<span id="L520" class="LineNr"> 520 </span> <span class="muComment"># cell 3: conveyors from filter to outputs</span> +<span id="L521" class="LineNr"> 521 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x2a8</span>/xf <span class="Constant">0x220</span>/yf, <span class="Constant">0x280</span>/x1 <span class="Constant">0x1ac</span>/y1, <span class="Constant">0x220</span>/x2 <span class="Constant">0x1a0</span>/y2, <span class="Constant">0x2a</span>/color +<span id="L522" class="LineNr"> 522 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x2a8</span>/xf <span class="Constant">0x220</span>/yf, <span class="Constant">0x220</span>/x1 <span class="Constant">0x220</span>/y1, <span class="Constant">0x220</span>/x2 <span class="Constant">0x208</span>/y2, <span class="Constant">0x2a</span>/color +<span id="L523" class="LineNr"> 523 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x2a8</span>/xf <span class="Constant">0x220</span>/yf, <span class="Constant">0x220</span>/x1 <span class="Constant">0x220</span>/y1, <span class="Constant">0x220</span>/x2 <span class="Constant">0x280</span>/y2, <span class="Constant">0x2a</span>/color +<span id="L524" class="LineNr"> 524 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x2a8</span>/xf <span class="Constant">0x220</span>/yf, <span class="Constant">0x2a8</span>/x1 <span class="Constant">0x1a0</span>/y1, <span class="Constant">0x290</span>/x2 <span class="Constant">0x1a0</span>/y2, <span class="Constant">0x2a</span>/color +<span id="L525" class="LineNr"> 525 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x2a8</span>/xf <span class="Constant">0x220</span>/yf, <span class="Constant">0x2a8</span>/x1 <span class="Constant">0x280</span>/y1, <span class="Constant">0x290</span>/x2 <span class="Constant">0x280</span>/y2, <span class="Constant">0x2a</span>/color +<span id="L526" class="LineNr"> 526 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x2a8</span>/xf <span class="Constant">0x220</span>/yf, <span class="Constant">0x300</span>/x1 <span class="Constant">0x220</span>/y1, <span class="Constant">0x300</span>/x2 <span class="Constant">0x1a0</span>/y2, <span class="Constant">0x2a</span>/color +<span id="L527" class="LineNr"> 527 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x2a8</span>/xf <span class="Constant">0x220</span>/yf, <span class="Constant">0x300</span>/x1 <span class="Constant">0x220</span>/y1 <span class="Constant">0x300</span>/x2 <span class="Constant">0x208</span>/y2, <span class="Constant">0x2a</span>/color +<span id="L528" class="LineNr"> 528 </span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x2a8</span>/xf <span class="Constant">0x220</span>/yf, <span class="Constant">0x300</span>/x1 <span class="Constant">0x220</span>/y1, <span class="Constant">0x300</span>/x2 <span class="Constant">0x280</span>/y2, <span class="Constant">0x2a</span>/color +<span id="L529" class="LineNr"> 529 </span> <span class="muComment"># cell 3: time-variant portion: 16 repeating steps</span> +<span id="L530" class="LineNr"> 530 </span> $render1:cell3: <span class="Delimiter">{</span> +<span id="L531" class="LineNr"> 531 </span> <span class="PreProc">var</span> tick-a/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, tick +<span id="L532" class="LineNr"> 532 </span> <span class="PreProc">var</span> progress/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *tick-a +<span id="L533" class="LineNr"> 533 </span> progress <span class="Special"><-</span> and <span class="Constant">0xf</span> +<span id="L534" class="LineNr"> 534 </span> <span class="muComment"># cell 3: 7 time steps for getting inputs to sum</span> +<span id="L535" class="LineNr"> 535 </span> <span class="Delimiter">{</span> +<span id="L536" class="LineNr"> 536 </span> compare progress, <span class="Constant">7</span> +<span id="L537" class="LineNr"> 537 </span> <span class="PreProc">break-if->=</span> +<span id="L538" class="LineNr"> 538 </span> <span class="PreProc">var</span> u/<span class="Constant">xmm7</span>: float <span class="Special"><-</span> convert progress +<span id="L539" class="LineNr"> 539 </span> <span class="PreProc">var</span> six/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">6</span> +<span id="L540" class="LineNr"> 540 </span> <span class="PreProc">var</span> six-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert six +<span id="L541" class="LineNr"> 541 </span> u <span class="Special"><-</span> divide six-f +<span id="L542" class="LineNr"> 542 </span> <span class="muComment"># points on conveyors from neighboring cells</span> +<span id="L543" class="LineNr"> 543 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x1e0</span>/x0 <span class="Constant">0x160</span>/y0, <span class="Constant">0x220</span>/x1 <span class="Constant">0x1f0</span>/ys, <span class="Constant">0x270</span>/xs <span class="Constant">0x1f0</span>/ys, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L544" class="LineNr"> 544 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x1e0</span>/x0 <span class="Constant">0x208</span>/y0, <span class="Constant">0x1e0</span>/x1 <span class="Constant">0x1f0</span>/ys, <span class="Constant">0x270</span>/xs <span class="Constant">0x1f0</span>/ys, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L545" class="LineNr"> 545 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x1e0</span>/x0 <span class="Constant">0x2c0</span>/y0, <span class="Constant">0x200</span>/x1 <span class="Constant">0x1f0</span>/ys, <span class="Constant">0x270</span>/xs <span class="Constant">0x1f0</span>/ys, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L546" class="LineNr"> 546 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x290</span>/x0 <span class="Constant">0x160</span>/y0, <span class="Constant">0x270</span>/x1 <span class="Constant">0x1a0</span>/y1, <span class="Constant">0x270</span>/xs <span class="Constant">0x1f0</span>/ys, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L547" class="LineNr"> 547 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x290</span>/x0 <span class="Constant">0x2c0</span>/y0, <span class="Constant">0x270</span>/x1 <span class="Constant">0x2c0</span>/y1, <span class="Constant">0x270</span>/xs <span class="Constant">0x1f0</span>/ys, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L548" class="LineNr"> 548 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x340</span>/x0 <span class="Constant">0x160</span>/y0, <span class="Constant">0x270</span>/x1 <span class="Constant">0x1a0</span>/y1, <span class="Constant">0x270</span>/xs <span class="Constant">0x1f0</span>/ys, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L549" class="LineNr"> 549 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x340</span>/x0 <span class="Constant">0x208</span>/y0, <span class="Constant">0x340</span>/x1 <span class="Constant">0x1f0</span>/y1, <span class="Constant">0x270</span>/xs <span class="Constant">0x1f0</span>/ys, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L550" class="LineNr"> 550 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x340</span>/x0 <span class="Constant">0x2c0</span>/y0, <span class="Constant">0x2a0</span>/x1 <span class="Constant">0x2c0</span>/y1, <span class="Constant">0x270</span>/xs <span class="Constant">0x1f0</span>/ys, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L551" class="LineNr"> 551 </span> <span class="PreProc">break</span> $render1:cell3 +<span id="L552" class="LineNr"> 552 </span> <span class="Delimiter">}</span> +<span id="L553" class="LineNr"> 553 </span> <span class="muComment"># cell 3: two time steps for getting count to filter</span> +<span id="L554" class="LineNr"> 554 </span> progress <span class="Special"><-</span> subtract <span class="Constant">7</span> +<span id="L555" class="LineNr"> 555 </span> <span class="Delimiter">{</span> +<span id="L556" class="LineNr"> 556 </span> compare progress, <span class="Constant">2</span> +<span id="L557" class="LineNr"> 557 </span> <span class="PreProc">break-if->=</span> +<span id="L558" class="LineNr"> 558 </span> <span class="PreProc">break</span> $render1:cell3 +<span id="L559" class="LineNr"> 559 </span> <span class="Delimiter">}</span> +<span id="L560" class="LineNr"> 560 </span> <span class="muComment"># cell 3: final 7 time steps for updating output</span> +<span id="L561" class="LineNr"> 561 </span> progress <span class="Special"><-</span> subtract <span class="Constant">2</span> +<span id="L562" class="LineNr"> 562 </span> <span class="muComment"># cell 3: points on conveyors to outputs</span> +<span id="L563" class="LineNr"> 563 </span> <span class="PreProc">var</span> u/<span class="Constant">xmm7</span>: float <span class="Special"><-</span> convert progress +<span id="L564" class="LineNr"> 564 </span> <span class="PreProc">var</span> six/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">6</span> +<span id="L565" class="LineNr"> 565 </span> <span class="PreProc">var</span> six-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert six +<span id="L566" class="LineNr"> 566 </span> u <span class="Special"><-</span> divide six-f +<span id="L567" class="LineNr"> 567 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x2a8</span>/xf <span class="Constant">0x220</span>/yf, <span class="Constant">0x280</span>/x1 <span class="Constant">0x1ac</span>/y1, <span class="Constant">0x220</span>/x2 <span class="Constant">0x1a0</span>/y2, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L568" class="LineNr"> 568 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x2a8</span>/xf <span class="Constant">0x220</span>/yf, <span class="Constant">0x220</span>/x1 <span class="Constant">0x220</span>/y1, <span class="Constant">0x220</span>/x2 <span class="Constant">0x208</span>/y2, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L569" class="LineNr"> 569 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x2a8</span>/xf <span class="Constant">0x220</span>/yf, <span class="Constant">0x220</span>/x1 <span class="Constant">0x220</span>/y1, <span class="Constant">0x220</span>/x2 <span class="Constant">0x280</span>/y2, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L570" class="LineNr"> 570 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x2a8</span>/xf <span class="Constant">0x220</span>/yf, <span class="Constant">0x2a8</span>/xf <span class="Constant">0x1a0</span>/y1, <span class="Constant">0x290</span>/x2 <span class="Constant">0x1a0</span>/y2, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L571" class="LineNr"> 571 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x2a8</span>/xf <span class="Constant">0x220</span>/yf, <span class="Constant">0x2a8</span>/xf <span class="Constant">0x280</span>/y1, <span class="Constant">0x290</span>/x2 <span class="Constant">0x280</span>/y2, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L572" class="LineNr"> 572 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x2a8</span>/xf <span class="Constant">0x220</span>/yf, <span class="Constant">0x300</span>/x1 <span class="Constant">0x220</span>/y1, <span class="Constant">0x300</span>/x2 <span class="Constant">0x1a0</span>/y2, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L573" class="LineNr"> 573 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x2a8</span>/xf <span class="Constant">0x220</span>/yf, <span class="Constant">0x300</span>/x1 <span class="Constant">0x220</span>/y1, <span class="Constant">0x300</span>/x2 <span class="Constant">0x208</span>/y2, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L574" class="LineNr"> 574 </span> <a href='hest-life.mu.html#L578'>draw-bezier-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, u, <span class="Constant">0x2a8</span>/xf <span class="Constant">0x220</span>/yf, <span class="Constant">0x300</span>/x1 <span class="Constant">0x220</span>/y1, <span class="Constant">0x300</span>/x2 <span class="Constant">0x280</span>/y2, <span class="Constant">7</span>/color, <span class="Constant">4</span>/radius +<span id="L575" class="LineNr"> 575 </span> <span class="Delimiter">}</span> +<span id="L576" class="LineNr"> 576 </span><span class="Delimiter">}</span> +<span id="L577" class="LineNr"> 577 </span> +<span id="L578" class="LineNr"> 578 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='hest-life.mu.html#L578'>draw-bezier-point</a></span> <a href='500fake-screen.mu.html#L14'>screen</a>: (addr <a href='500fake-screen.mu.html#L14'>screen</a>), u: float, x0: int, y0: int, x1: int, y1: int, x2: int, y2: int, color: int, radius: int <span class="Delimiter">{</span> +<span id="L579" class="LineNr"> 579 </span> <span class="PreProc">var</span> _cy/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='509bezier.mu.html#L298'>bezier-point</a> u, y0, y1, y2 +<span id="L580" class="LineNr"> 580 </span> <span class="PreProc">var</span> cy/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy _cy +<span id="L581" class="LineNr"> 581 </span> <span class="PreProc">var</span> cx/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='509bezier.mu.html#L298'>bezier-point</a> u, x0, x1, x2 +<span id="L582" class="LineNr"> 582 </span> <a href='508circle.mu.html#L80'>draw-disc</a> <a href='500fake-screen.mu.html#L14'>screen</a>, cx, cy, radius, color, <span class="Constant">0xf</span>/border-color=white +<span id="L583" class="LineNr"> 583 </span><span class="Delimiter">}</span> +<span id="L584" class="LineNr"> 584 </span> +<span id="L585" class="LineNr"> 585 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='hest-life.mu.html#L585'>draw-linear-point</a></span> <a href='500fake-screen.mu.html#L14'>screen</a>: (addr <a href='500fake-screen.mu.html#L14'>screen</a>), u: float, x0: int, y0: int, x1: int, y1: int, color: int, radius: int <span class="Delimiter">{</span> +<span id="L586" class="LineNr"> 586 </span> <span class="PreProc">var</span> _cy/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='507line.mu.html#L98'>line-point</a> u, y0, y1 +<span id="L587" class="LineNr"> 587 </span> <span class="PreProc">var</span> cy/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy _cy +<span id="L588" class="LineNr"> 588 </span> <span class="PreProc">var</span> cx/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='507line.mu.html#L98'>line-point</a> u, x0, x1 +<span id="L589" class="LineNr"> 589 </span> <a href='508circle.mu.html#L80'>draw-disc</a> <a href='500fake-screen.mu.html#L14'>screen</a>, cx, cy, radius, color, <span class="Constant">0xf</span>/border-color=white +<span id="L590" class="LineNr"> 590 </span><span class="Delimiter">}</span> +<span id="L591" class="LineNr"> 591 </span> +<span id="L592" class="LineNr"> 592 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='hest-life.mu.html#L592'>edit</a></span> keyboard: (addr keyboard), _self: (addr <a href='hest-life.mu.html#L47'>environment</a>) <span class="Delimiter">{</span> +<span id="L593" class="LineNr"> 593 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='hest-life.mu.html#L47'>environment</a>) <span class="Special"><-</span> copy _self +<span id="L594" class="LineNr"> 594 </span> <span class="PreProc">var</span> key/<span class="Constant">eax</span>: byte <span class="Special"><-</span> <a href='102keyboard.subx.html#L21'>read-key</a> keyboard +<span id="L595" class="LineNr"> 595 </span> <span class="muComment"># space: play/pause</span> +<span id="L596" class="LineNr"> 596 </span> <span class="Delimiter">{</span> +<span id="L597" class="LineNr"> 597 </span> compare key, <span class="Constant">0x20</span>/space +<span id="L598" class="LineNr"> 598 </span> <span class="PreProc">break-if-!=</span> +<span id="L599" class="LineNr"> 599 </span> <span class="PreProc">var</span> play?/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> get self, play? +<span id="L600" class="LineNr"> 600 </span> compare *play?, <span class="Constant">0</span>/false +<span id="L601" class="LineNr"> 601 </span> <span class="Delimiter">{</span> +<span id="L602" class="LineNr"> 602 </span> <span class="PreProc">break-if-=</span> +<span id="L603" class="LineNr"> 603 </span> copy-to *play?, <span class="Constant">0</span>/false +<span id="L604" class="LineNr"> 604 </span> <span class="PreProc">return</span> +<span id="L605" class="LineNr"> 605 </span> <span class="Delimiter">}</span> +<span id="L606" class="LineNr"> 606 </span> copy-to *play?, <span class="Constant">1</span>/true +<span id="L607" class="LineNr"> 607 </span> <span class="PreProc">return</span> +<span id="L608" class="LineNr"> 608 </span> <span class="Delimiter">}</span> +<span id="L609" class="LineNr"> 609 </span> <span class="muComment"># 0: back to start</span> +<span id="L610" class="LineNr"> 610 </span> <span class="Delimiter">{</span> +<span id="L611" class="LineNr"> 611 </span> compare key, <span class="Constant">0x30</span>/<span class="Constant">0</span> +<span id="L612" class="LineNr"> 612 </span> <span class="PreProc">break-if-!=</span> +<span id="L613" class="LineNr"> 613 </span> <a href='hest-life.mu.html#L741'>clear-environment</a> self +<span id="L614" class="LineNr"> 614 </span> <span class="PreProc">return</span> +<span id="L615" class="LineNr"> 615 </span> <span class="Delimiter">}</span> +<span id="L616" class="LineNr"> 616 </span> <span class="muComment"># l: loop from here to start</span> +<span id="L617" class="LineNr"> 617 </span> <span class="Delimiter">{</span> +<span id="L618" class="LineNr"> 618 </span> compare key, <span class="Constant">0x6c</span>/l +<span id="L619" class="LineNr"> 619 </span> <span class="PreProc">break-if-!=</span> +<span id="L620" class="LineNr"> 620 </span> <span class="PreProc">var</span> tick-a/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, tick +<span id="L621" class="LineNr"> 621 </span> <span class="PreProc">var</span> tick/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *tick-a +<span id="L622" class="LineNr"> 622 </span> <span class="PreProc">var</span> <span class="PreProc">loop</span>/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get self, <span class="PreProc">loop</span> +<span id="L623" class="LineNr"> 623 </span> copy-to *<span class="PreProc">loop</span>, tick +<span id="L624" class="LineNr"> 624 </span> <span class="PreProc">return</span> +<span id="L625" class="LineNr"> 625 </span> <span class="Delimiter">}</span> +<span id="L626" class="LineNr"> 626 </span> <span class="muComment"># L: reset loop</span> +<span id="L627" class="LineNr"> 627 </span> <span class="Delimiter">{</span> +<span id="L628" class="LineNr"> 628 </span> compare key, <span class="Constant">0x4c</span>/L +<span id="L629" class="LineNr"> 629 </span> <span class="PreProc">break-if-!=</span> +<span id="L630" class="LineNr"> 630 </span> <span class="PreProc">var</span> <span class="PreProc">loop</span>/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, <span class="PreProc">loop</span> +<span id="L631" class="LineNr"> 631 </span> copy-to *<span class="PreProc">loop</span>, <span class="Constant">0</span> +<span id="L632" class="LineNr"> 632 </span> <span class="PreProc">return</span> +<span id="L633" class="LineNr"> 633 </span> <span class="Delimiter">}</span> +<span id="L634" class="LineNr"> 634 </span> <span class="muComment"># -: zoom out</span> +<span id="L635" class="LineNr"> 635 </span> <span class="Delimiter">{</span> +<span id="L636" class="LineNr"> 636 </span> compare key, <span class="Constant">0x2d</span>/- +<span id="L637" class="LineNr"> 637 </span> <span class="PreProc">break-if-!=</span> +<span id="L638" class="LineNr"> 638 </span> <span class="PreProc">var</span> zoom/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, zoom +<span id="L639" class="LineNr"> 639 </span> compare *zoom, <span class="Constant">1</span> +<span id="L640" class="LineNr"> 640 </span> <span class="Delimiter">{</span> +<span id="L641" class="LineNr"> 641 </span> <span class="PreProc">break-if-!=</span> +<span id="L642" class="LineNr"> 642 </span> copy-to *zoom, <span class="Constant">4</span> +<span id="L643" class="LineNr"> 643 </span> <span class="Delimiter">}</span> +<span id="L644" class="LineNr"> 644 </span> compare *zoom, <span class="Constant">0</span> +<span id="L645" class="LineNr"> 645 </span> <span class="Delimiter">{</span> +<span id="L646" class="LineNr"> 646 </span> <span class="PreProc">break-if-!=</span> +<span id="L647" class="LineNr"> 647 </span> copy-to *zoom, <span class="Constant">1</span> +<span id="L648" class="LineNr"> 648 </span> <span class="Delimiter">}</span> +<span id="L649" class="LineNr"> 649 </span> <span class="muComment"># set tick to a multiple of zoom</span> +<span id="L650" class="LineNr"> 650 </span> <span class="PreProc">var</span> tick-a/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get self, tick +<span id="L651" class="LineNr"> 651 </span> <a href='506math.mu.html#L47'>clear-lowest-bits</a> tick-a, *zoom +<span id="L652" class="LineNr"> 652 </span> <span class="PreProc">return</span> +<span id="L653" class="LineNr"> 653 </span> <span class="Delimiter">}</span> +<span id="L654" class="LineNr"> 654 </span> <span class="muComment"># +: zoom in</span> +<span id="L655" class="LineNr"> 655 </span> <span class="Delimiter">{</span> +<span id="L656" class="LineNr"> 656 </span> compare key, <span class="Constant">0x2b</span>/+ +<span id="L657" class="LineNr"> 657 </span> <span class="PreProc">break-if-!=</span> +<span id="L658" class="LineNr"> 658 </span> <span class="PreProc">var</span> zoom/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, zoom +<span id="L659" class="LineNr"> 659 </span> compare *zoom, <span class="Constant">1</span> +<span id="L660" class="LineNr"> 660 </span> <span class="Delimiter">{</span> +<span id="L661" class="LineNr"> 661 </span> <span class="PreProc">break-if-!=</span> +<span id="L662" class="LineNr"> 662 </span> copy-to *zoom, <span class="Constant">0</span> +<span id="L663" class="LineNr"> 663 </span> <span class="Delimiter">}</span> +<span id="L664" class="LineNr"> 664 </span> compare *zoom, <span class="Constant">4</span> +<span id="L665" class="LineNr"> 665 </span> <span class="Delimiter">{</span> +<span id="L666" class="LineNr"> 666 </span> <span class="PreProc">break-if-!=</span> +<span id="L667" class="LineNr"> 667 </span> copy-to *zoom, <span class="Constant">1</span> +<span id="L668" class="LineNr"> 668 </span> <span class="Delimiter">}</span> +<span id="L669" class="LineNr"> 669 </span> <span class="muComment"># set tick to a multiple of zoom</span> +<span id="L670" class="LineNr"> 670 </span> <span class="PreProc">var</span> tick-a/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get self, tick +<span id="L671" class="LineNr"> 671 </span> <a href='506math.mu.html#L47'>clear-lowest-bits</a> tick-a, *zoom +<span id="L672" class="LineNr"> 672 </span> <span class="PreProc">return</span> +<span id="L673" class="LineNr"> 673 </span> <span class="Delimiter">}</span> +<span id="L674" class="LineNr"> 674 </span><span class="Delimiter">}</span> +<span id="L675" class="LineNr"> 675 </span> +<span id="L676" class="LineNr"> 676 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='hest-life.mu.html#L676'>step</a></span> _self: (addr <a href='hest-life.mu.html#L47'>environment</a>) <span class="Delimiter">{</span> +<span id="L677" class="LineNr"> 677 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='hest-life.mu.html#L47'>environment</a>) <span class="Special"><-</span> copy _self +<span id="L678" class="LineNr"> 678 </span> <span class="PreProc">var</span> tick-a/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get self, tick +<span id="L679" class="LineNr"> 679 </span> <span class="PreProc">var</span> zoom/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get self, zoom +<span id="L680" class="LineNr"> 680 </span> compare *zoom, <span class="Constant">0</span> +<span id="L681" class="LineNr"> 681 </span> <span class="Delimiter">{</span> +<span id="L682" class="LineNr"> 682 </span> <span class="PreProc">break-if-!=</span> +<span id="L683" class="LineNr"> 683 </span> increment *tick-a +<span id="L684" class="LineNr"> 684 </span> <span class="Delimiter">}</span> +<span id="L685" class="LineNr"> 685 </span> compare *zoom, <span class="Constant">1</span> +<span id="L686" class="LineNr"> 686 </span> <span class="Delimiter">{</span> +<span id="L687" class="LineNr"> 687 </span> <span class="PreProc">break-if-!=</span> +<span id="L688" class="LineNr"> 688 </span> <span class="muComment"># I wanted to speed up time, but that doesn't seem very usable.</span> +<span id="L689" class="LineNr"> 689 </span><span class="CommentedCode">#? add-to *tick-a, 2</span> +<span id="L690" class="LineNr"> 690 </span> increment *tick-a +<span id="L691" class="LineNr"> 691 </span> <span class="Delimiter">}</span> +<span id="L692" class="LineNr"> 692 </span> compare *zoom, <span class="Constant">4</span> +<span id="L693" class="LineNr"> 693 </span> <span class="Delimiter">{</span> +<span id="L694" class="LineNr"> 694 </span> <span class="PreProc">break-if-!=</span> +<span id="L695" class="LineNr"> 695 </span> add-to *tick-a, <span class="Constant">0x10</span> +<span id="L696" class="LineNr"> 696 </span> <span class="Delimiter">}</span> +<span id="L697" class="LineNr"> 697 </span> <span class="PreProc">var</span> tick/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *tick-a +<span id="L698" class="LineNr"> 698 </span> tick <span class="Special"><-</span> and <span class="Constant">0xf</span> +<span id="L699" class="LineNr"> 699 </span> compare tick, <span class="Constant">0</span> +<span id="L700" class="LineNr"> 700 </span> <span class="Delimiter">{</span> +<span id="L701" class="LineNr"> 701 </span> <span class="PreProc">break-if-!=</span> +<span id="L702" class="LineNr"> 702 </span> <a href='hest-life.mu.html#L905'>step4</a> self +<span id="L703" class="LineNr"> 703 </span> <span class="Delimiter">}</span> +<span id="L704" class="LineNr"> 704 </span> <span class="PreProc">var</span> loop-a/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, <span class="PreProc">loop</span> +<span id="L705" class="LineNr"> 705 </span> compare *loop-a, <span class="Constant">0</span> +<span id="L706" class="LineNr"> 706 </span> <span class="Delimiter">{</span> +<span id="L707" class="LineNr"> 707 </span> <span class="PreProc">break-if-=</span> +<span id="L708" class="LineNr"> 708 </span> <span class="PreProc">var</span> <span class="PreProc">loop</span>/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *loop-a +<span id="L709" class="LineNr"> 709 </span> compare *tick-a, <span class="PreProc">loop</span> +<span id="L710" class="LineNr"> 710 </span> <span class="PreProc">break-if-<</span> +<span id="L711" class="LineNr"> 711 </span> <a href='hest-life.mu.html#L741'>clear-environment</a> self +<span id="L712" class="LineNr"> 712 </span> <span class="Delimiter">}</span> +<span id="L713" class="LineNr"> 713 </span><span class="Delimiter">}</span> +<span id="L714" class="LineNr"> 714 </span> +<span id="L715" class="LineNr"> 715 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='hest-life.mu.html#L715'>initialize-environment</a></span> _self: (addr <a href='hest-life.mu.html#L47'>environment</a>) <span class="Delimiter">{</span> +<span id="L716" class="LineNr"> 716 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='hest-life.mu.html#L47'>environment</a>) <span class="Special"><-</span> copy _self +<span id="L717" class="LineNr"> 717 </span> <span class="PreProc">var</span> zoom/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, zoom +<span id="L718" class="LineNr"> 718 </span> copy-to *zoom, <span class="Constant">0</span> +<span id="L719" class="LineNr"> 719 </span> <span class="PreProc">var</span> play?/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> get self, play? +<span id="L720" class="LineNr"> 720 </span> copy-to *play?, <span class="Constant">1</span>/true +<span id="L721" class="LineNr"> 721 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array handle array <a href='hest-life.mu.html#L55'>cell</a>) <span class="Special"><-</span> get self, data +<span id="L722" class="LineNr"> 722 </span> populate data-ah, <span class="Constant">0x100</span> +<span id="L723" class="LineNr"> 723 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array handle array <a href='hest-life.mu.html#L55'>cell</a>) <span class="Special"><-</span> <a href='120allocate.subx.html#L223'>lookup</a> *data-ah +<span id="L724" class="LineNr"> 724 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L725" class="LineNr"> 725 </span> <span class="Delimiter">{</span> +<span id="L726" class="LineNr"> 726 </span> compare y, <span class="Constant">0xc0</span> +<span id="L727" class="LineNr"> 727 </span> <span class="PreProc">break-if->=</span> +<span id="L728" class="LineNr"> 728 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">eax</span>: (addr handle array <a href='hest-life.mu.html#L55'>cell</a>) <span class="Special"><-</span> index data, y +<span id="L729" class="LineNr"> 729 </span> populate dest-ah, <span class="Constant">0x100</span> +<span id="L730" class="LineNr"> 730 </span> y <span class="Special"><-</span> increment +<span id="L731" class="LineNr"> 731 </span> <span class="PreProc">loop</span> +<span id="L732" class="LineNr"> 732 </span> <span class="Delimiter">}</span> +<span id="L733" class="LineNr"> 733 </span> <a href='hest-life.mu.html#L774'>set</a> self, <span class="Constant">0x80</span>, <span class="Constant">0x5f</span>, <span class="Constant">1</span>/alive +<span id="L734" class="LineNr"> 734 </span> <a href='hest-life.mu.html#L774'>set</a> self, <span class="Constant">0x81</span>, <span class="Constant">0x5f</span>, <span class="Constant">1</span>/alive +<span id="L735" class="LineNr"> 735 </span> <a href='hest-life.mu.html#L774'>set</a> self, <span class="Constant">0x7f</span>, <span class="Constant">0x60</span>, <span class="Constant">1</span>/alive +<span id="L736" class="LineNr"> 736 </span> <a href='hest-life.mu.html#L774'>set</a> self, <span class="Constant">0x80</span>, <span class="Constant">0x60</span>, <span class="Constant">1</span>/alive +<span id="L737" class="LineNr"> 737 </span> <a href='hest-life.mu.html#L774'>set</a> self, <span class="Constant">0x80</span>, <span class="Constant">0x61</span>, <span class="Constant">1</span>/alive +<span id="L738" class="LineNr"> 738 </span> <a href='hest-life.mu.html#L834'>flush</a> self +<span id="L739" class="LineNr"> 739 </span><span class="Delimiter">}</span> +<span id="L740" class="LineNr"> 740 </span> +<span id="L741" class="LineNr"> 741 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='hest-life.mu.html#L741'>clear-environment</a></span> _self: (addr <a href='hest-life.mu.html#L47'>environment</a>) <span class="Delimiter">{</span> +<span id="L742" class="LineNr"> 742 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='hest-life.mu.html#L47'>environment</a>) <span class="Special"><-</span> copy _self +<span id="L743" class="LineNr"> 743 </span> <span class="PreProc">var</span> tick/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, tick +<span id="L744" class="LineNr"> 744 </span> copy-to *tick, <span class="Constant">0</span> +<span id="L745" class="LineNr"> 745 </span> <span class="muComment"># don't touch zoom or play settings</span> +<span id="L746" class="LineNr"> 746 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array handle array <a href='hest-life.mu.html#L55'>cell</a>) <span class="Special"><-</span> get self, data +<span id="L747" class="LineNr"> 747 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array handle array <a href='hest-life.mu.html#L55'>cell</a>) <span class="Special"><-</span> <a href='120allocate.subx.html#L223'>lookup</a> *data-ah +<span id="L748" class="LineNr"> 748 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L749" class="LineNr"> 749 </span> <span class="Delimiter">{</span> +<span id="L750" class="LineNr"> 750 </span> compare y, <span class="Constant">0xc0</span> +<span id="L751" class="LineNr"> 751 </span> <span class="PreProc">break-if->=</span> +<span id="L752" class="LineNr"> 752 </span> <span class="PreProc">var</span> row-ah/<span class="Constant">eax</span>: (addr handle array <a href='hest-life.mu.html#L55'>cell</a>) <span class="Special"><-</span> index data, y +<span id="L753" class="LineNr"> 753 </span> <span class="PreProc">var</span> row/<span class="Constant">eax</span>: (addr array <a href='hest-life.mu.html#L55'>cell</a>) <span class="Special"><-</span> <a href='120allocate.subx.html#L223'>lookup</a> *row-ah +<span id="L754" class="LineNr"> 754 </span> <span class="PreProc">var</span> x/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L755" class="LineNr"> 755 </span> <span class="Delimiter">{</span> +<span id="L756" class="LineNr"> 756 </span> compare x, <span class="Constant">0x100</span> +<span id="L757" class="LineNr"> 757 </span> <span class="PreProc">break-if->=</span> +<span id="L758" class="LineNr"> 758 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr <a href='hest-life.mu.html#L55'>cell</a>) <span class="Special"><-</span> index row, x +<span id="L759" class="LineNr"> 759 </span> clear-object dest +<span id="L760" class="LineNr"> 760 </span> x <span class="Special"><-</span> increment +<span id="L761" class="LineNr"> 761 </span> <span class="PreProc">loop</span> +<span id="L762" class="LineNr"> 762 </span> <span class="Delimiter">}</span> +<span id="L763" class="LineNr"> 763 </span> y <span class="Special"><-</span> increment +<span id="L764" class="LineNr"> 764 </span> <span class="PreProc">loop</span> +<span id="L765" class="LineNr"> 765 </span> <span class="Delimiter">}</span> +<span id="L766" class="LineNr"> 766 </span> <a href='hest-life.mu.html#L774'>set</a> self, <span class="Constant">0x80</span>, <span class="Constant">0x5f</span>, <span class="Constant">1</span>/alive +<span id="L767" class="LineNr"> 767 </span> <a href='hest-life.mu.html#L774'>set</a> self, <span class="Constant">0x81</span>, <span class="Constant">0x5f</span>, <span class="Constant">1</span>/alive +<span id="L768" class="LineNr"> 768 </span> <a href='hest-life.mu.html#L774'>set</a> self, <span class="Constant">0x7f</span>, <span class="Constant">0x60</span>, <span class="Constant">1</span>/alive +<span id="L769" class="LineNr"> 769 </span> <a href='hest-life.mu.html#L774'>set</a> self, <span class="Constant">0x80</span>, <span class="Constant">0x60</span>, <span class="Constant">1</span>/alive +<span id="L770" class="LineNr"> 770 </span> <a href='hest-life.mu.html#L774'>set</a> self, <span class="Constant">0x80</span>, <span class="Constant">0x61</span>, <span class="Constant">1</span>/alive +<span id="L771" class="LineNr"> 771 </span> <a href='hest-life.mu.html#L834'>flush</a> self +<span id="L772" class="LineNr"> 772 </span><span class="Delimiter">}</span> +<span id="L773" class="LineNr"> 773 </span> +<span id="L774" class="LineNr"> 774 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='hest-life.mu.html#L774'>set</a></span> _self: (addr <a href='hest-life.mu.html#L47'>environment</a>), _x: int, _y: int, _val: boolean <span class="Delimiter">{</span> +<span id="L775" class="LineNr"> 775 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='hest-life.mu.html#L47'>environment</a>) <span class="Special"><-</span> copy _self +<span id="L776" class="LineNr"> 776 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array handle array <a href='hest-life.mu.html#L55'>cell</a>) <span class="Special"><-</span> get self, data +<span id="L777" class="LineNr"> 777 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array handle array <a href='hest-life.mu.html#L55'>cell</a>) <span class="Special"><-</span> <a href='120allocate.subx.html#L223'>lookup</a> *data-ah +<span id="L778" class="LineNr"> 778 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy _y +<span id="L779" class="LineNr"> 779 </span> <span class="PreProc">var</span> row-ah/<span class="Constant">eax</span>: (addr handle array <a href='hest-life.mu.html#L55'>cell</a>) <span class="Special"><-</span> index data, y +<span id="L780" class="LineNr"> 780 </span> <span class="PreProc">var</span> row/<span class="Constant">eax</span>: (addr array <a href='hest-life.mu.html#L55'>cell</a>) <span class="Special"><-</span> <a href='120allocate.subx.html#L223'>lookup</a> *row-ah +<span id="L781" class="LineNr"> 781 </span> <span class="PreProc">var</span> x/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy _x +<span id="L782" class="LineNr"> 782 </span> <span class="PreProc">var</span> <a href='hest-life.mu.html#L55'>cell</a>/<span class="Constant">eax</span>: (addr <a href='hest-life.mu.html#L55'>cell</a>) <span class="Special"><-</span> index row, x +<span id="L783" class="LineNr"> 783 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> get <a href='hest-life.mu.html#L55'>cell</a>, next +<span id="L784" class="LineNr"> 784 </span> <span class="PreProc">var</span> val/<span class="Constant">ecx</span>: boolean <span class="Special"><-</span> copy _val +<span id="L785" class="LineNr"> 785 </span> copy-to *dest, val +<span id="L786" class="LineNr"> 786 </span><span class="Delimiter">}</span> +<span id="L787" class="LineNr"> 787 </span> +<span id="L788" class="LineNr"> 788 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='hest-life.mu.html#L788'>state</a></span> _self: (addr <a href='hest-life.mu.html#L47'>environment</a>), _x: int, _y: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L789" class="LineNr"> 789 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='hest-life.mu.html#L47'>environment</a>) <span class="Special"><-</span> copy _self +<span id="L790" class="LineNr"> 790 </span> <span class="PreProc">var</span> x/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy _x +<span id="L791" class="LineNr"> 791 </span> <span class="PreProc">var</span> y/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy _y +<span id="L792" class="LineNr"> 792 </span> <span class="muComment"># clip at the edge</span> +<span id="L793" class="LineNr"> 793 </span> compare x, <span class="Constant">0</span> +<span id="L794" class="LineNr"> 794 </span> <span class="Delimiter">{</span> +<span id="L795" class="LineNr"> 795 </span> <span class="PreProc">break-if->=</span> +<span id="L796" class="LineNr"> 796 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L797" class="LineNr"> 797 </span> <span class="Delimiter">}</span> +<span id="L798" class="LineNr"> 798 </span> compare y, <span class="Constant">0</span> +<span id="L799" class="LineNr"> 799 </span> <span class="Delimiter">{</span> +<span id="L800" class="LineNr"> 800 </span> <span class="PreProc">break-if->=</span> +<span id="L801" class="LineNr"> 801 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L802" class="LineNr"> 802 </span> <span class="Delimiter">}</span> +<span id="L803" class="LineNr"> 803 </span> compare x, <span class="Constant">0x100</span>/width +<span id="L804" class="LineNr"> 804 </span> <span class="Delimiter">{</span> +<span id="L805" class="LineNr"> 805 </span> <span class="PreProc">break-if-<</span> +<span id="L806" class="LineNr"> 806 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L807" class="LineNr"> 807 </span> <span class="Delimiter">}</span> +<span id="L808" class="LineNr"> 808 </span> compare y, <span class="Constant">0xc0</span>/height +<span id="L809" class="LineNr"> 809 </span> <span class="Delimiter">{</span> +<span id="L810" class="LineNr"> 810 </span> <span class="PreProc">break-if-<</span> +<span id="L811" class="LineNr"> 811 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L812" class="LineNr"> 812 </span> <span class="Delimiter">}</span> +<span id="L813" class="LineNr"> 813 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array handle array <a href='hest-life.mu.html#L55'>cell</a>) <span class="Special"><-</span> get self, data +<span id="L814" class="LineNr"> 814 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array handle array <a href='hest-life.mu.html#L55'>cell</a>) <span class="Special"><-</span> <a href='120allocate.subx.html#L223'>lookup</a> *data-ah +<span id="L815" class="LineNr"> 815 </span> <span class="PreProc">var</span> row-ah/<span class="Constant">eax</span>: (addr handle array <a href='hest-life.mu.html#L55'>cell</a>) <span class="Special"><-</span> index data, y +<span id="L816" class="LineNr"> 816 </span> <span class="PreProc">var</span> row/<span class="Constant">eax</span>: (addr array <a href='hest-life.mu.html#L55'>cell</a>) <span class="Special"><-</span> <a href='120allocate.subx.html#L223'>lookup</a> *row-ah +<span id="L817" class="LineNr"> 817 </span> <span class="PreProc">var</span> <a href='hest-life.mu.html#L55'>cell</a>/<span class="Constant">eax</span>: (addr <a href='hest-life.mu.html#L55'>cell</a>) <span class="Special"><-</span> index row, x +<span id="L818" class="LineNr"> 818 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> get <a href='hest-life.mu.html#L55'>cell</a>, curr +<span id="L819" class="LineNr"> 819 </span> <span class="PreProc">return</span> *src +<span id="L820" class="LineNr"> 820 </span><span class="Delimiter">}</span> +<span id="L821" class="LineNr"> 821 </span> +<span id="L822" class="LineNr"> 822 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='hest-life.mu.html#L822'>state-color</a></span> _self: (addr <a href='hest-life.mu.html#L47'>environment</a>), x: int, y: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L823" class="LineNr"> 823 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='hest-life.mu.html#L47'>environment</a>) <span class="Special"><-</span> copy _self +<span id="L824" class="LineNr"> 824 </span> <span class="PreProc">var</span> color/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0x1a</span>/dead +<span id="L825" class="LineNr"> 825 </span> <span class="Delimiter">{</span> +<span id="L826" class="LineNr"> 826 </span> <span class="PreProc">var</span> <a href='hest-life.mu.html#L788'>state</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='hest-life.mu.html#L788'>state</a> self, x, y +<span id="L827" class="LineNr"> 827 </span> compare <a href='hest-life.mu.html#L788'>state</a>, <span class="Constant">0</span>/dead +<span id="L828" class="LineNr"> 828 </span> <span class="PreProc">break-if-=</span> +<span id="L829" class="LineNr"> 829 </span> color <span class="Special"><-</span> copy <span class="Constant">0xf</span>/alive +<span id="L830" class="LineNr"> 830 </span> <span class="Delimiter">}</span> +<span id="L831" class="LineNr"> 831 </span> <span class="PreProc">return</span> color +<span id="L832" class="LineNr"> 832 </span><span class="Delimiter">}</span> +<span id="L833" class="LineNr"> 833 </span> +<span id="L834" class="LineNr"> 834 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='hest-life.mu.html#L834'>flush</a></span> _self: (addr <a href='hest-life.mu.html#L47'>environment</a>) <span class="Delimiter">{</span> +<span id="L835" class="LineNr"> 835 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='hest-life.mu.html#L47'>environment</a>) <span class="Special"><-</span> copy _self +<span id="L836" class="LineNr"> 836 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array handle array <a href='hest-life.mu.html#L55'>cell</a>) <span class="Special"><-</span> get self, data +<span id="L837" class="LineNr"> 837 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array handle array <a href='hest-life.mu.html#L55'>cell</a>) <span class="Special"><-</span> <a href='120allocate.subx.html#L223'>lookup</a> *data-ah +<span id="L838" class="LineNr"> 838 </span> <span class="PreProc">var</span> data/<span class="Constant">esi</span>: (addr array handle array <a href='hest-life.mu.html#L55'>cell</a>) <span class="Special"><-</span> copy _data +<span id="L839" class="LineNr"> 839 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L840" class="LineNr"> 840 </span> <span class="Delimiter">{</span> +<span id="L841" class="LineNr"> 841 </span> compare y, <span class="Constant">0xc0</span>/height +<span id="L842" class="LineNr"> 842 </span> <span class="PreProc">break-if->=</span> +<span id="L843" class="LineNr"> 843 </span> <span class="PreProc">var</span> row-ah/<span class="Constant">eax</span>: (addr handle array <a href='hest-life.mu.html#L55'>cell</a>) <span class="Special"><-</span> index data, y +<span id="L844" class="LineNr"> 844 </span> <span class="PreProc">var</span> _row/<span class="Constant">eax</span>: (addr array <a href='hest-life.mu.html#L55'>cell</a>) <span class="Special"><-</span> <a href='120allocate.subx.html#L223'>lookup</a> *row-ah +<span id="L845" class="LineNr"> 845 </span> <span class="PreProc">var</span> row/<span class="Constant">ebx</span>: (addr array <a href='hest-life.mu.html#L55'>cell</a>) <span class="Special"><-</span> copy _row +<span id="L846" class="LineNr"> 846 </span> <span class="PreProc">var</span> x/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L847" class="LineNr"> 847 </span> <span class="Delimiter">{</span> +<span id="L848" class="LineNr"> 848 </span> compare x, <span class="Constant">0x100</span>/width +<span id="L849" class="LineNr"> 849 </span> <span class="PreProc">break-if->=</span> +<span id="L850" class="LineNr"> 850 </span> <span class="PreProc">var</span> cell-a/<span class="Constant">eax</span>: (addr <a href='hest-life.mu.html#L55'>cell</a>) <span class="Special"><-</span> index row, x +<span id="L851" class="LineNr"> 851 </span> <span class="PreProc">var</span> curr-a/<span class="Constant">edi</span>: (addr boolean) <span class="Special"><-</span> get cell-a, curr +<span id="L852" class="LineNr"> 852 </span> <span class="PreProc">var</span> next-a/<span class="Constant">esi</span>: (addr boolean) <span class="Special"><-</span> get cell-a, next +<span id="L853" class="LineNr"> 853 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> copy *next-a +<span id="L854" class="LineNr"> 854 </span> copy-to *curr-a, val +<span id="L855" class="LineNr"> 855 </span> copy-to *next-a, <span class="Constant">0</span>/dead +<span id="L856" class="LineNr"> 856 </span> x <span class="Special"><-</span> increment +<span id="L857" class="LineNr"> 857 </span> <span class="PreProc">loop</span> +<span id="L858" class="LineNr"> 858 </span> <span class="Delimiter">}</span> +<span id="L859" class="LineNr"> 859 </span> y <span class="Special"><-</span> increment +<span id="L860" class="LineNr"> 860 </span> <span class="PreProc">loop</span> +<span id="L861" class="LineNr"> 861 </span> <span class="Delimiter">}</span> +<span id="L862" class="LineNr"> 862 </span><span class="Delimiter">}</span> +<span id="L863" class="LineNr"> 863 </span> +<span id="L864" class="LineNr"> 864 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='hest-life.mu.html#L864'>render4</a></span> <a href='500fake-screen.mu.html#L14'>screen</a>: (addr <a href='500fake-screen.mu.html#L14'>screen</a>), _self: (addr <a href='hest-life.mu.html#L47'>environment</a>) <span class="Delimiter">{</span> +<span id="L865" class="LineNr"> 865 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='hest-life.mu.html#L47'>environment</a>) <span class="Special"><-</span> copy _self +<span id="L866" class="LineNr"> 866 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L867" class="LineNr"> 867 </span> <span class="Delimiter">{</span> +<span id="L868" class="LineNr"> 868 </span> compare y, <span class="Constant">0xc0</span>/height +<span id="L869" class="LineNr"> 869 </span> <span class="PreProc">break-if->=</span> +<span id="L870" class="LineNr"> 870 </span> <span class="PreProc">var</span> x/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L871" class="LineNr"> 871 </span> <span class="Delimiter">{</span> +<span id="L872" class="LineNr"> 872 </span> compare x, <span class="Constant">0x100</span>/width +<span id="L873" class="LineNr"> 873 </span> <span class="PreProc">break-if->=</span> +<span id="L874" class="LineNr"> 874 </span> <span class="PreProc">var</span> <a href='hest-life.mu.html#L788'>state</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='hest-life.mu.html#L788'>state</a> self, x, y +<span id="L875" class="LineNr"> 875 </span> compare <a href='hest-life.mu.html#L788'>state</a>, <span class="Constant">0</span>/false +<span id="L876" class="LineNr"> 876 </span> <span class="Delimiter">{</span> +<span id="L877" class="LineNr"> 877 </span> <span class="PreProc">break-if-=</span> +<span id="L878" class="LineNr"> 878 </span> <a href='hest-life.mu.html#L893'>render4-cell</a> <a href='500fake-screen.mu.html#L14'>screen</a>, x, y, <span class="Constant">0xf</span>/alive +<span id="L879" class="LineNr"> 879 </span> <span class="Delimiter">}</span> +<span id="L880" class="LineNr"> 880 </span> compare <a href='hest-life.mu.html#L788'>state</a>, <span class="Constant">0</span>/false +<span id="L881" class="LineNr"> 881 </span> <span class="Delimiter">{</span> +<span id="L882" class="LineNr"> 882 </span> <span class="PreProc">break-if-!=</span> +<span id="L883" class="LineNr"> 883 </span> <a href='hest-life.mu.html#L893'>render4-cell</a> <a href='500fake-screen.mu.html#L14'>screen</a>, x, y, <span class="Constant">0x1a</span>/dead +<span id="L884" class="LineNr"> 884 </span> <span class="Delimiter">}</span> +<span id="L885" class="LineNr"> 885 </span> x <span class="Special"><-</span> increment +<span id="L886" class="LineNr"> 886 </span> <span class="PreProc">loop</span> +<span id="L887" class="LineNr"> 887 </span> <span class="Delimiter">}</span> +<span id="L888" class="LineNr"> 888 </span> y <span class="Special"><-</span> increment +<span id="L889" class="LineNr"> 889 </span> <span class="PreProc">loop</span> +<span id="L890" class="LineNr"> 890 </span> <span class="Delimiter">}</span> +<span id="L891" class="LineNr"> 891 </span><span class="Delimiter">}</span> +<span id="L892" class="LineNr"> 892 </span> +<span id="L893" class="LineNr"> 893 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='hest-life.mu.html#L893'>render4-cell</a></span> <a href='500fake-screen.mu.html#L14'>screen</a>: (addr <a href='500fake-screen.mu.html#L14'>screen</a>), x: int, y: int, color: int <span class="Delimiter">{</span> +<span id="L894" class="LineNr"> 894 </span> <span class="PreProc">var</span> xmin/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy x +<span id="L895" class="LineNr"> 895 </span> xmin <span class="Special"><-</span> shift-left <span class="Constant">2</span> +<span id="L896" class="LineNr"> 896 </span> <span class="PreProc">var</span> xmax/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy xmin +<span id="L897" class="LineNr"> 897 </span> xmax <span class="Special"><-</span> add <span class="Constant">4</span> +<span id="L898" class="LineNr"> 898 </span> <span class="PreProc">var</span> ymin/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy y +<span id="L899" class="LineNr"> 899 </span> ymin <span class="Special"><-</span> shift-left <span class="Constant">2</span> +<span id="L900" class="LineNr"> 900 </span> <span class="PreProc">var</span> ymax/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy ymin +<span id="L901" class="LineNr"> 901 </span> ymax <span class="Special"><-</span> add <span class="Constant">4</span> +<span id="L902" class="LineNr"> 902 </span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L14'>screen</a>, xmin ymin, xmax ymax, color +<span id="L903" class="LineNr"> 903 </span><span class="Delimiter">}</span> +<span id="L904" class="LineNr"> 904 </span> +<span id="L905" class="LineNr"> 905 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='hest-life.mu.html#L905'>step4</a></span> _self: (addr <a href='hest-life.mu.html#L47'>environment</a>) <span class="Delimiter">{</span> +<span id="L906" class="LineNr"> 906 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='hest-life.mu.html#L47'>environment</a>) <span class="Special"><-</span> copy _self +<span id="L907" class="LineNr"> 907 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L908" class="LineNr"> 908 </span> <span class="Delimiter">{</span> +<span id="L909" class="LineNr"> 909 </span> compare y, <span class="Constant">0xc0</span>/height +<span id="L910" class="LineNr"> 910 </span> <span class="PreProc">break-if->=</span> +<span id="L911" class="LineNr"> 911 </span> <span class="PreProc">var</span> x/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L912" class="LineNr"> 912 </span> <span class="Delimiter">{</span> +<span id="L913" class="LineNr"> 913 </span> compare x, <span class="Constant">0x100</span>/width +<span id="L914" class="LineNr"> 914 </span> <span class="PreProc">break-if->=</span> +<span id="L915" class="LineNr"> 915 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='hest-life.mu.html#L950'>num-live-neighbors</a> self, x, y +<span id="L916" class="LineNr"> 916 </span> <span class="muComment"># if neighbors < 2, die of loneliness</span> +<span id="L917" class="LineNr"> 917 </span> <span class="Delimiter">{</span> +<span id="L918" class="LineNr"> 918 </span> compare n, <span class="Constant">2</span> +<span id="L919" class="LineNr"> 919 </span> <span class="PreProc">break-if->=</span> +<span id="L920" class="LineNr"> 920 </span> <a href='hest-life.mu.html#L774'>set</a> self, x, y, <span class="Constant">0</span>/dead +<span id="L921" class="LineNr"> 921 </span> <span class="Delimiter">}</span> +<span id="L922" class="LineNr"> 922 </span> <span class="muComment"># if neighbors > 3, die of overcrowding</span> +<span id="L923" class="LineNr"> 923 </span> <span class="Delimiter">{</span> +<span id="L924" class="LineNr"> 924 </span> compare n, <span class="Constant">3</span> +<span id="L925" class="LineNr"> 925 </span> <span class="PreProc">break-if-<=</span> +<span id="L926" class="LineNr"> 926 </span> <a href='hest-life.mu.html#L774'>set</a> self, x, y, <span class="Constant">0</span>/dead +<span id="L927" class="LineNr"> 927 </span> <span class="Delimiter">}</span> +<span id="L928" class="LineNr"> 928 </span> <span class="muComment"># if neighbors = 2, preserve state</span> +<span id="L929" class="LineNr"> 929 </span> <span class="Delimiter">{</span> +<span id="L930" class="LineNr"> 930 </span> compare n, <span class="Constant">2</span> +<span id="L931" class="LineNr"> 931 </span> <span class="PreProc">break-if-!=</span> +<span id="L932" class="LineNr"> 932 </span> <span class="PreProc">var</span> old-state/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='hest-life.mu.html#L788'>state</a> self, x, y +<span id="L933" class="LineNr"> 933 </span> <a href='hest-life.mu.html#L774'>set</a> self, x, y, old-state +<span id="L934" class="LineNr"> 934 </span> <span class="Delimiter">}</span> +<span id="L935" class="LineNr"> 935 </span> <span class="muComment"># if neighbors = 3, cell quickens to life</span> +<span id="L936" class="LineNr"> 936 </span> <span class="Delimiter">{</span> +<span id="L937" class="LineNr"> 937 </span> compare n, <span class="Constant">3</span> +<span id="L938" class="LineNr"> 938 </span> <span class="PreProc">break-if-!=</span> +<span id="L939" class="LineNr"> 939 </span> <a href='hest-life.mu.html#L774'>set</a> self, x, y, <span class="Constant">1</span>/live +<span id="L940" class="LineNr"> 940 </span> <span class="Delimiter">}</span> +<span id="L941" class="LineNr"> 941 </span> x <span class="Special"><-</span> increment +<span id="L942" class="LineNr"> 942 </span> <span class="PreProc">loop</span> +<span id="L943" class="LineNr"> 943 </span> <span class="Delimiter">}</span> +<span id="L944" class="LineNr"> 944 </span> y <span class="Special"><-</span> increment +<span id="L945" class="LineNr"> 945 </span> <span class="PreProc">loop</span> +<span id="L946" class="LineNr"> 946 </span> <span class="Delimiter">}</span> +<span id="L947" class="LineNr"> 947 </span> <a href='hest-life.mu.html#L834'>flush</a> self +<span id="L948" class="LineNr"> 948 </span><span class="Delimiter">}</span> +<span id="L949" class="LineNr"> 949 </span> +<span id="L950" class="LineNr"> 950 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='hest-life.mu.html#L950'>num-live-neighbors</a></span> _self: (addr <a href='hest-life.mu.html#L47'>environment</a>), x: int, y: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L951" class="LineNr"> 951 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='hest-life.mu.html#L47'>environment</a>) <span class="Special"><-</span> copy _self +<span id="L952" class="LineNr"> 952 </span> <span class="PreProc">var</span> result/<span class="Constant">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L953" class="LineNr"> 953 </span> <span class="muComment"># row above: zig</span> +<span id="L954" class="LineNr"> 954 </span> decrement y +<span id="L955" class="LineNr"> 955 </span> decrement x +<span id="L956" class="LineNr"> 956 </span> <span class="PreProc">var</span> s/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='hest-life.mu.html#L788'>state</a> self, x, y +<span id="L957" class="LineNr"> 957 </span> <span class="Delimiter">{</span> +<span id="L958" class="LineNr"> 958 </span> compare s, <span class="Constant">0</span>/false +<span id="L959" class="LineNr"> 959 </span> <span class="PreProc">break-if-=</span> +<span id="L960" class="LineNr"> 960 </span> result <span class="Special"><-</span> increment +<span id="L961" class="LineNr"> 961 </span> <span class="Delimiter">}</span> +<span id="L962" class="LineNr"> 962 </span> increment x +<span id="L963" class="LineNr"> 963 </span> s <span class="Special"><-</span> <a href='hest-life.mu.html#L788'>state</a> self, x, y +<span id="L964" class="LineNr"> 964 </span> <span class="Delimiter">{</span> +<span id="L965" class="LineNr"> 965 </span> compare s, <span class="Constant">0</span>/false +<span id="L966" class="LineNr"> 966 </span> <span class="PreProc">break-if-=</span> +<span id="L967" class="LineNr"> 967 </span> result <span class="Special"><-</span> increment +<span id="L968" class="LineNr"> 968 </span> <span class="Delimiter">}</span> +<span id="L969" class="LineNr"> 969 </span> increment x +<span id="L970" class="LineNr"> 970 </span> s <span class="Special"><-</span> <a href='hest-life.mu.html#L788'>state</a> self, x, y +<span id="L971" class="LineNr"> 971 </span> <span class="Delimiter">{</span> +<span id="L972" class="LineNr"> 972 </span> compare s, <span class="Constant">0</span>/false +<span id="L973" class="LineNr"> 973 </span> <span class="PreProc">break-if-=</span> +<span id="L974" class="LineNr"> 974 </span> result <span class="Special"><-</span> increment +<span id="L975" class="LineNr"> 975 </span> <span class="Delimiter">}</span> +<span id="L976" class="LineNr"> 976 </span> <span class="muComment"># curr row: zag</span> +<span id="L977" class="LineNr"> 977 </span> increment y +<span id="L978" class="LineNr"> 978 </span> s <span class="Special"><-</span> <a href='hest-life.mu.html#L788'>state</a> self, x, y +<span id="L979" class="LineNr"> 979 </span> <span class="Delimiter">{</span> +<span id="L980" class="LineNr"> 980 </span> compare s, <span class="Constant">0</span>/false +<span id="L981" class="LineNr"> 981 </span> <span class="PreProc">break-if-=</span> +<span id="L982" class="LineNr"> 982 </span> result <span class="Special"><-</span> increment +<span id="L983" class="LineNr"> 983 </span> <span class="Delimiter">}</span> +<span id="L984" class="LineNr"> 984 </span> subtract-from x, <span class="Constant">2</span> +<span id="L985" class="LineNr"> 985 </span> s <span class="Special"><-</span> <a href='hest-life.mu.html#L788'>state</a> self, x, y +<span id="L986" class="LineNr"> 986 </span> <span class="Delimiter">{</span> +<span id="L987" class="LineNr"> 987 </span> compare s, <span class="Constant">0</span>/false +<span id="L988" class="LineNr"> 988 </span> <span class="PreProc">break-if-=</span> +<span id="L989" class="LineNr"> 989 </span> result <span class="Special"><-</span> increment +<span id="L990" class="LineNr"> 990 </span> <span class="Delimiter">}</span> +<span id="L991" class="LineNr"> 991 </span> <span class="muComment"># row below: zig</span> +<span id="L992" class="LineNr"> 992 </span> increment y +<span id="L993" class="LineNr"> 993 </span> s <span class="Special"><-</span> <a href='hest-life.mu.html#L788'>state</a> self, x, y +<span id="L994" class="LineNr"> 994 </span> <span class="Delimiter">{</span> +<span id="L995" class="LineNr"> 995 </span> compare s, <span class="Constant">0</span>/false +<span id="L996" class="LineNr"> 996 </span> <span class="PreProc">break-if-=</span> +<span id="L997" class="LineNr"> 997 </span> result <span class="Special"><-</span> increment +<span id="L998" class="LineNr"> 998 </span> <span class="Delimiter">}</span> +<span id="L999" class="LineNr"> 999 </span> increment x +<span id="L1000" class="LineNr">1000 </span> s <span class="Special"><-</span> <a href='hest-life.mu.html#L788'>state</a> self, x, y +<span id="L1001" class="LineNr">1001 </span> <span class="Delimiter">{</span> +<span id="L1002" class="LineNr">1002 </span> compare s, <span class="Constant">0</span>/false +<span id="L1003" class="LineNr">1003 </span> <span class="PreProc">break-if-=</span> +<span id="L1004" class="LineNr">1004 </span> result <span class="Special"><-</span> increment +<span id="L1005" class="LineNr">1005 </span> <span class="Delimiter">}</span> +<span id="L1006" class="LineNr">1006 </span> increment x +<span id="L1007" class="LineNr">1007 </span> s <span class="Special"><-</span> <a href='hest-life.mu.html#L788'>state</a> self, x, y +<span id="L1008" class="LineNr">1008 </span> <span class="Delimiter">{</span> +<span id="L1009" class="LineNr">1009 </span> compare s, <span class="Constant">0</span>/false +<span id="L1010" class="LineNr">1010 </span> <span class="PreProc">break-if-=</span> +<span id="L1011" class="LineNr">1011 </span> result <span class="Special"><-</span> increment +<span id="L1012" class="LineNr">1012 </span> <span class="Delimiter">}</span> +<span id="L1013" class="LineNr">1013 </span> <span class="PreProc">return</span> result +<span id="L1014" class="LineNr">1014 </span><span class="Delimiter">}</span> +<span id="L1015" class="LineNr">1015 </span> +<span id="L1016" class="LineNr">1016 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='hest-life.mu.html#L1016'>linger</a></span> _self: (addr <a href='hest-life.mu.html#L47'>environment</a>) <span class="Delimiter">{</span> +<span id="L1017" class="LineNr">1017 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='hest-life.mu.html#L47'>environment</a>) <span class="Special"><-</span> copy _self +<span id="L1018" class="LineNr">1018 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L1019" class="LineNr">1019 </span> <span class="Delimiter">{</span> +<span id="L1020" class="LineNr">1020 </span> compare i, <span class="Constant">0x10000000</span> <span class="muComment"># Kartik's Linux with -enable-kvm</span> +<span id="L1021" class="LineNr">1021 </span><span class="CommentedCode">#? compare i, 0x8000000 # Kartik's Mac with -accel tcg</span> +<span id="L1022" class="LineNr">1022 </span> <span class="PreProc">break-if->=</span> +<span id="L1023" class="LineNr">1023 </span> i <span class="Special"><-</span> increment +<span id="L1024" class="LineNr">1024 </span> <span class="PreProc">loop</span> +<span id="L1025" class="LineNr">1025 </span> <span class="Delimiter">}</span> +<span id="L1026" class="LineNr">1026 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/life.mu.html b/html/life.mu.html index 3de0b36c..c2bf5faf 100644 --- a/html/life.mu.html +++ b/html/life.mu.html @@ -280,12 +280,12 @@ if ('onhashchange' in window) { <span id="L221" class="LineNr">221 </span> <span class="PreProc">var</span> grid1-storage: (handle array boolean) <span id="L222" class="LineNr">222 </span> <span class="PreProc">var</span> grid1-ah/<span class="Constant">eax</span>: (addr handle array boolean) <span class="Special"><-</span> address grid1-storage <span id="L223" class="LineNr">223 </span> populate grid1-ah, <span class="Constant">0xc000</span> <span class="muComment"># width * height</span> -<span id="L224" class="LineNr">224 </span> <span class="PreProc">var</span> _grid1/<span class="Constant">eax</span>: (addr array boolean) <span class="Special"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *grid1-ah +<span id="L224" class="LineNr">224 </span> <span class="PreProc">var</span> _grid1/<span class="Constant">eax</span>: (addr array boolean) <span class="Special"><-</span> <a href='120allocate.subx.html#L223'>lookup</a> *grid1-ah <span id="L225" class="LineNr">225 </span> <span class="PreProc">var</span> grid1/<span class="Constant">esi</span>: (addr array boolean) <span class="Special"><-</span> copy _grid1 <span id="L226" class="LineNr">226 </span> <span class="PreProc">var</span> grid2-storage: (handle array boolean) <span id="L227" class="LineNr">227 </span> <span class="PreProc">var</span> grid2-ah/<span class="Constant">eax</span>: (addr handle array boolean) <span class="Special"><-</span> address grid2-storage <span id="L228" class="LineNr">228 </span> populate grid2-ah, <span class="Constant">0xc000</span> <span class="muComment"># width * height</span> -<span id="L229" class="LineNr">229 </span> <span class="PreProc">var</span> _grid2/<span class="Constant">eax</span>: (addr array boolean) <span class="Special"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *grid2-ah +<span id="L229" class="LineNr">229 </span> <span class="PreProc">var</span> _grid2/<span class="Constant">eax</span>: (addr array boolean) <span class="Special"><-</span> <a href='120allocate.subx.html#L223'>lookup</a> *grid2-ah <span id="L230" class="LineNr">230 </span> <span class="PreProc">var</span> grid2/<span class="Constant">edi</span>: (addr array boolean) <span class="Special"><-</span> copy _grid2 <span id="L231" class="LineNr">231 </span> <span class="muComment"># initialize grid1</span> <span id="L232" class="LineNr">232 </span> <a href='life.mu.html#L38'>set-state</a> grid1, <span class="Constant">0x80</span>, <span class="Constant">0x5f</span>, <span class="Constant">1</span>/live diff --git a/html/linux/304screen.subx.html b/html/linux/304screen.subx.html index 3ccb5d87..5f362f14 100644 --- a/html/linux/304screen.subx.html +++ b/html/linux/304screen.subx.html @@ -115,7 +115,7 @@ if ('onhashchange' in window) { <span id="L56" class="LineNr"> 56 </span> e8/call <a href='000init.subx.html#L77'>syscall_ioctl</a>/disp32 <span id="L57" class="LineNr"> 57 </span> <span class="subxComment"># some bitworking to extract 2 16-bit shorts</span> <span id="L58" class="LineNr"> 58 </span> 8b/-> *esi 0/r32/eax -<span id="L59" class="LineNr"> 59 </span> 81 4/subop/and %eax 0xffff/imm32 +<span id="L59" class="LineNr"> 59 </span> 25/and-eax-with 0xffff/imm32 <span id="L60" class="LineNr"> 60 </span> 8b/-> *esi 1/r32/ecx <span id="L61" class="LineNr"> 61 </span> c1/shift 5/subop/logical-right %ecx 0x10/imm8 <span id="L62" class="LineNr"> 62 </span><span class="Constant">$real-screen-size:end</span>: diff --git a/html/linux/306files.subx.html b/html/linux/306files.subx.html index 4c930570..bc0d3099 100644 --- a/html/linux/306files.subx.html +++ b/html/linux/306files.subx.html @@ -57,173 +57,171 @@ if ('onhashchange' in window) { <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Methods for constructing buffered-file objects.</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> -<span id="L3" class="LineNr"> 3 </span><span class="subxComment"># TODO: There are hard-coded parameters here for buffer sizes. When they</span> -<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># overflow, tracking down what's going on can get hairy.</span> -<span id="L5" class="LineNr"> 5 </span><span class="subxComment">#</span> -<span id="L6" class="LineNr"> 6 </span><span class="subxComment"># HACK: buffered-file stores naked addrs. This is safe because buffered-file</span> -<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># objects are opaque. But still sub-optimal; they'll be harder to reclaim when</span> -<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># we get around to that.</span> -<span id="L9" class="LineNr"> 9 </span> -<span id="L10" class="LineNr"> 10 </span>== code -<span id="L11" class="LineNr"> 11 </span> -<span id="L12" class="LineNr"> 12 </span><span class="subxFunction">open</span>: <span class="subxComment"># filename: (addr array byte), write?: boolean, out: (addr handle buffered-file)</span> -<span id="L13" class="LineNr"> 13 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14" class="LineNr"> 14 </span> 55/push-ebp -<span id="L15" class="LineNr"> 15 </span> 89/<- %ebp 4/r32/esp -<span id="L16" class="LineNr"> 16 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L17" class="LineNr"> 17 </span> 50/push-eax -<span id="L18" class="LineNr"> 18 </span> 51/push-ecx -<span id="L19" class="LineNr"> 19 </span> <span class="subxComment"># var new-fd/ecx: fd</span> -<span id="L20" class="LineNr"> 20 </span> (<a href='306files.subx.html#L43'>open-fd</a> *(ebp+8) *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L21" class="LineNr"> 21 </span> 89/<- %ecx 0/r32/eax -<span id="L22" class="LineNr"> 22 </span> <span class="subxComment"># if fd < 0 return</span> -<span id="L23" class="LineNr"> 23 </span> 3d/compare-eax-with 0/imm32 -<span id="L24" class="LineNr"> 24 </span> 7c/jump-if-< $open:end/disp8 -<span id="L25" class="LineNr"> 25 </span> <span class="subxComment"># allocate a buffered-file</span> -<span id="L26" class="LineNr"> 26 </span> (<a href='120allocate.subx.html#L66'>allocate</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> 0x1010 *(ebp+0x10)) <span class="subxComment"># file-buffer-size + 16 for other fields</span> -<span id="L27" class="LineNr"> 27 </span> <span class="subxComment"># var out-addr/eax: (addr buffered-file)</span> -<span id="L28" class="LineNr"> 28 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L29" class="LineNr"> 29 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L30" class="LineNr"> 30 </span> <span class="subxComment"># out-addr->size = 4KB</span> -<span id="L31" class="LineNr"> 31 </span> c7 0/subop/copy *(eax+0xc) 0x1000/imm32/file-buffer-size <span class="subxComment"># Stream-size + 4 for fd</span> -<span id="L32" class="LineNr"> 32 </span> <span class="subxComment"># out-addr->fd = fd</span> -<span id="L33" class="LineNr"> 33 </span> 89/<- *eax 1/r32/ecx -<span id="L34" class="LineNr"> 34 </span><span class="Constant">$open:end</span>: -<span id="L35" class="LineNr"> 35 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L36" class="LineNr"> 36 </span> 59/pop-to-ecx -<span id="L37" class="LineNr"> 37 </span> 58/pop-to-eax -<span id="L38" class="LineNr"> 38 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L39" class="LineNr"> 39 </span> 89/<- %esp 5/r32/ebp -<span id="L40" class="LineNr"> 40 </span> 5d/pop-to-ebp -<span id="L41" class="LineNr"> 41 </span> c3/return -<span id="L42" class="LineNr"> 42 </span> -<span id="L43" class="LineNr"> 43 </span><span class="subxFunction">open-fd</span>: <span class="subxComment"># filename: (addr array byte), write?: boolean -> result/eax: fd</span> -<span id="L44" class="LineNr"> 44 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L45" class="LineNr"> 45 </span> 55/push-ebp -<span id="L46" class="LineNr"> 46 </span> 89/<- %ebp 4/r32/esp -<span id="L47" class="LineNr"> 47 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L48" class="LineNr"> 48 </span> 51/push-ecx -<span id="L49" class="LineNr"> 49 </span> 52/push-edx -<span id="L50" class="LineNr"> 50 </span> 53/push-ebx -<span id="L51" class="LineNr"> 51 </span> 56/push-esi -<span id="L52" class="LineNr"> 52 </span> <span class="subxComment"># ecx = filename</span> -<span id="L53" class="LineNr"> 53 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L54" class="LineNr"> 54 </span> <span class="subxComment"># var size/edx: int = filename->length + 1 for the trailing null character</span> -<span id="L55" class="LineNr"> 55 </span> 8b/-> *ecx 2/r32/edx -<span id="L56" class="LineNr"> 56 </span> 42/increment-edx -<span id="L57" class="LineNr"> 57 </span> <span class="subxComment"># var s/esi: (stream size)</span> -<span id="L58" class="LineNr"> 58 </span> 29/subtract-from %esp 2/r32/edx -<span id="L59" class="LineNr"> 59 </span> 52/push-edx <span class="subxComment"># size</span> -<span id="L60" class="LineNr"> 60 </span> 68/push 0/imm32/read -<span id="L61" class="LineNr"> 61 </span> 68/push 0/imm32/write -<span id="L62" class="LineNr"> 62 </span> 89/<- %esi 4/r32/esp -<span id="L63" class="LineNr"> 63 </span> <span class="subxComment"># copy filename and a final null character</span> -<span id="L64" class="LineNr"> 64 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> %esi) -<span id="L65" class="LineNr"> 65 </span> (<a href='108write.subx.html#L24'>write</a> %esi %ecx) -<span id="L66" class="LineNr"> 66 </span> <span class="subxComment"># spill edx</span> -<span id="L67" class="LineNr"> 67 </span> 52/push-edx -<span id="L68" class="LineNr"> 68 </span> <span class="subxComment"># var fd/eax: fd = open(filename)</span> -<span id="L69" class="LineNr"> 69 </span> 8d/copy-address *(esi+0xc) 3/r32/ebx -<span id="L70" class="LineNr"> 70 </span> 8b/-> *(ebp+0xc) 1/r32/ecx/flags -<span id="L71" class="LineNr"> 71 </span> ba/copy-to-edx 0x180/imm32/permissions -<span id="L72" class="LineNr"> 72 </span> e8/call <a href='000init.subx.html#L35'>syscall_open</a>/disp32 -<span id="L73" class="LineNr"> 73 </span> <span class="subxComment"># restore edx</span> -<span id="L74" class="LineNr"> 74 </span> 5a/pop-to-edx -<span id="L75" class="LineNr"> 75 </span><span class="Constant">$open-fd:end</span>: -<span id="L76" class="LineNr"> 76 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L77" class="LineNr"> 77 </span> 01/add-to %esp 2/r32/edx -<span id="L78" class="LineNr"> 78 </span> 81 0/subop/add %esp 0xc/imm32 -<span id="L79" class="LineNr"> 79 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L80" class="LineNr"> 80 </span> 5e/pop-to-esi -<span id="L81" class="LineNr"> 81 </span> 5b/pop-to-ebx -<span id="L82" class="LineNr"> 82 </span> 5a/pop-to-edx -<span id="L83" class="LineNr"> 83 </span> 59/pop-to-ecx -<span id="L84" class="LineNr"> 84 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L85" class="LineNr"> 85 </span> 89/<- %esp 5/r32/ebp -<span id="L86" class="LineNr"> 86 </span> 5d/pop-to-ebp -<span id="L87" class="LineNr"> 87 </span> c3/return -<span id="L88" class="LineNr"> 88 </span> -<span id="L89" class="LineNr"> 89 </span><span class="subxFunction">populate-buffered-file-containing</span>: <span class="subxComment"># contents: (addr array byte), out: (addr handle buffered-file)</span> -<span id="L90" class="LineNr"> 90 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L91" class="LineNr"> 91 </span> 55/push-ebp -<span id="L92" class="LineNr"> 92 </span> 89/<- %ebp 4/r32/esp -<span id="L93" class="LineNr"> 93 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L94" class="LineNr"> 94 </span> 50/push-eax -<span id="L95" class="LineNr"> 95 </span> 51/push-ecx -<span id="L96" class="LineNr"> 96 </span> 56/push-esi -<span id="L97" class="LineNr"> 97 </span> 57/push-edi -<span id="L98" class="LineNr"> 98 </span> <span class="subxComment"># esi = contents</span> -<span id="L99" class="LineNr"> 99 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L100" class="LineNr">100 </span> <span class="subxComment"># var n/ecx: int = len(contents)</span> -<span id="L101" class="LineNr">101 </span> 8b/-> *esi 1/r32/ecx -<span id="L102" class="LineNr">102 </span> <span class="subxComment"># var stream/edi: (handle stream byte)</span> -<span id="L103" class="LineNr">103 </span> 68/push 0/imm32 -<span id="L104" class="LineNr">104 </span> 68/push 0/imm32 -<span id="L105" class="LineNr">105 </span> 89/<- %edi 4/r32/esp -<span id="L106" class="LineNr">106 </span> <span class="subxComment"># allocate stream</span> -<span id="L107" class="LineNr">107 </span> (<a href='121new-stream.subx.html#L8'>new-stream</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %ecx 1 %edi) -<span id="L108" class="LineNr">108 </span> <span class="subxComment"># var stream-addr/edi: (addr stream byte) = lookup(stream)</span> -<span id="L109" class="LineNr">109 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L110" class="LineNr">110 </span> 89/<- %edi 0/r32/eax -<span id="L111" class="LineNr">111 </span> <span class="subxComment"># write contents to stream</span> -<span id="L112" class="LineNr">112 </span> (<a href='108write.subx.html#L24'>write</a> %edi %esi) -<span id="L113" class="LineNr">113 </span> <span class="subxComment"># allocate buffered-file</span> -<span id="L114" class="LineNr">114 </span> (<a href='120allocate.subx.html#L66'>allocate</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> 0x110 *(ebp+0xc)) -<span id="L115" class="LineNr">115 </span> <span class="subxComment"># var out-addr/eax: (addr buffered-file)</span> -<span id="L116" class="LineNr">116 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L117" class="LineNr">117 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L118" class="LineNr">118 </span> <span class="subxComment"># out-addr->size = 256 bytes</span> -<span id="L119" class="LineNr">119 </span> c7 0/subop/copy *(eax+0xc) 0x100/imm32/file-buffer-size -<span id="L120" class="LineNr">120 </span> <span class="subxComment"># out-addr->fd = stream</span> -<span id="L121" class="LineNr">121 </span> 89/<- *eax 7/r32/edi -<span id="L122" class="LineNr">122 </span><span class="Constant">$populate-buffered-file-containing:end</span>: -<span id="L123" class="LineNr">123 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L124" class="LineNr">124 </span> 81 0/subop/add %esp 8/imm32 -<span id="L125" class="LineNr">125 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L126" class="LineNr">126 </span> 5f/pop-to-edi -<span id="L127" class="LineNr">127 </span> 5e/pop-to-esi -<span id="L128" class="LineNr">128 </span> 59/pop-to-ecx -<span id="L129" class="LineNr">129 </span> 58/pop-to-eax -<span id="L130" class="LineNr">130 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L131" class="LineNr">131 </span> 89/<- %esp 5/r32/ebp -<span id="L132" class="LineNr">132 </span> 5d/pop-to-ebp -<span id="L133" class="LineNr">133 </span> c3/return -<span id="L134" class="LineNr">134 </span> -<span id="L135" class="LineNr">135 </span><span class="subxFunction">new-buffered-file</span>: <span class="subxComment"># out: (addr handle buffered-file)</span> -<span id="L136" class="LineNr">136 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L137" class="LineNr">137 </span> 55/push-ebp -<span id="L138" class="LineNr">138 </span> 89/<- %ebp 4/r32/esp -<span id="L139" class="LineNr">139 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L140" class="LineNr">140 </span> 50/push-eax -<span id="L141" class="LineNr">141 </span> 51/push-ecx -<span id="L142" class="LineNr">142 </span> <span class="subxComment"># var stream/ecx: (handle stream byte)</span> -<span id="L143" class="LineNr">143 </span> 68/push 0/imm32 -<span id="L144" class="LineNr">144 </span> 68/push 0/imm32 -<span id="L145" class="LineNr">145 </span> 89/<- %ecx 4/r32/esp -<span id="L146" class="LineNr">146 </span> <span class="subxComment"># allocate stream</span> -<span id="L147" class="LineNr">147 </span> (<a href='121new-stream.subx.html#L8'>new-stream</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> 0x100 1 %ecx) -<span id="L148" class="LineNr">148 </span> <span class="subxComment"># var stream-addr/ecx: (addr stream byte) = lookup(stream)</span> -<span id="L149" class="LineNr">149 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> -<span id="L150" class="LineNr">150 </span> 89/<- %ecx 0/r32/eax -<span id="L151" class="LineNr">151 </span> <span class="subxComment"># allocate buffered-file</span> -<span id="L152" class="LineNr">152 </span> (<a href='120allocate.subx.html#L66'>allocate</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> 0x110 *(ebp+8)) -<span id="L153" class="LineNr">153 </span> <span class="subxComment"># var out-addr/eax: (addr buffered-file)</span> -<span id="L154" class="LineNr">154 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L155" class="LineNr">155 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L156" class="LineNr">156 </span> <span class="subxComment"># out-addr->size = 256 bytes</span> -<span id="L157" class="LineNr">157 </span> c7 0/subop/copy *(eax+0xc) 0x100/imm32/file-buffer-size -<span id="L158" class="LineNr">158 </span> <span class="subxComment"># out-addr->fd = stream</span> -<span id="L159" class="LineNr">159 </span> 89/<- *eax 1/r32/ecx -<span id="L160" class="LineNr">160 </span><span class="Constant">$new-buffered-file:end</span>: -<span id="L161" class="LineNr">161 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L162" class="LineNr">162 </span> 81 0/subop/add %esp 8/imm32 -<span id="L163" class="LineNr">163 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L164" class="LineNr">164 </span> 59/pop-to-ecx -<span id="L165" class="LineNr">165 </span> 58/pop-to-eax -<span id="L166" class="LineNr">166 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L167" class="LineNr">167 </span> 89/<- %esp 5/r32/ebp -<span id="L168" class="LineNr">168 </span> 5d/pop-to-ebp -<span id="L169" class="LineNr">169 </span> c3/return +<span id="L3" class="LineNr"> 3 </span><span class="subxComment"># HACK: buffered-file stores naked addrs. This is safe because buffered-file</span> +<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># objects are opaque. But still sub-optimal; they'll be harder to reclaim when</span> +<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># we get around to that.</span> +<span id="L6" class="LineNr"> 6 </span> +<span id="L7" class="LineNr"> 7 </span>== code +<span id="L8" class="LineNr"> 8 </span> +<span id="L9" class="LineNr"> 9 </span><span class="subxFunction">open</span>: <span class="subxComment"># filename: (addr array byte), write?: boolean, out: (addr handle buffered-file)</span> +<span id="L10" class="LineNr"> 10 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11" class="LineNr"> 11 </span> 55/push-ebp +<span id="L12" class="LineNr"> 12 </span> 89/<- %ebp 4/r32/esp +<span id="L13" class="LineNr"> 13 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L14" class="LineNr"> 14 </span> 50/push-eax +<span id="L15" class="LineNr"> 15 </span> 51/push-ecx +<span id="L16" class="LineNr"> 16 </span> <span class="subxComment"># var new-fd/ecx: fd</span> +<span id="L17" class="LineNr"> 17 </span> (<a href='306files.subx.html#L40'>open-fd</a> *(ebp+8) *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L18" class="LineNr"> 18 </span> 89/<- %ecx 0/r32/eax +<span id="L19" class="LineNr"> 19 </span> <span class="subxComment"># if fd < 0 return</span> +<span id="L20" class="LineNr"> 20 </span> 3d/compare-eax-with 0/imm32 +<span id="L21" class="LineNr"> 21 </span> 7c/jump-if-< $open:end/disp8 +<span id="L22" class="LineNr"> 22 </span> <span class="subxComment"># allocate a buffered-file</span> +<span id="L23" class="LineNr"> 23 </span> (<a href='120allocate.subx.html#L66'>allocate</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> 0x1010 *(ebp+0x10)) <span class="subxComment"># file-buffer-size + 16 for other fields</span> +<span id="L24" class="LineNr"> 24 </span> <span class="subxComment"># var out-addr/eax: (addr buffered-file)</span> +<span id="L25" class="LineNr"> 25 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L26" class="LineNr"> 26 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L27" class="LineNr"> 27 </span> <span class="subxComment"># out-addr->size = 4KB</span> +<span id="L28" class="LineNr"> 28 </span> c7 0/subop/copy *(eax+0xc) 0x1000/imm32/file-buffer-size <span class="subxComment"># Stream-size + 4 for fd</span> +<span id="L29" class="LineNr"> 29 </span> <span class="subxComment"># out-addr->fd = fd</span> +<span id="L30" class="LineNr"> 30 </span> 89/<- *eax 1/r32/ecx +<span id="L31" class="LineNr"> 31 </span><span class="Constant">$open:end</span>: +<span id="L32" class="LineNr"> 32 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L33" class="LineNr"> 33 </span> 59/pop-to-ecx +<span id="L34" class="LineNr"> 34 </span> 58/pop-to-eax +<span id="L35" class="LineNr"> 35 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36" class="LineNr"> 36 </span> 89/<- %esp 5/r32/ebp +<span id="L37" class="LineNr"> 37 </span> 5d/pop-to-ebp +<span id="L38" class="LineNr"> 38 </span> c3/return +<span id="L39" class="LineNr"> 39 </span> +<span id="L40" class="LineNr"> 40 </span><span class="subxFunction">open-fd</span>: <span class="subxComment"># filename: (addr array byte), write?: boolean -> result/eax: fd</span> +<span id="L41" class="LineNr"> 41 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L42" class="LineNr"> 42 </span> 55/push-ebp +<span id="L43" class="LineNr"> 43 </span> 89/<- %ebp 4/r32/esp +<span id="L44" class="LineNr"> 44 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L45" class="LineNr"> 45 </span> 51/push-ecx +<span id="L46" class="LineNr"> 46 </span> 52/push-edx +<span id="L47" class="LineNr"> 47 </span> 53/push-ebx +<span id="L48" class="LineNr"> 48 </span> 56/push-esi +<span id="L49" class="LineNr"> 49 </span> <span class="subxComment"># ecx = filename</span> +<span id="L50" class="LineNr"> 50 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L51" class="LineNr"> 51 </span> <span class="subxComment"># var size/edx: int = filename->length + 1 for the trailing null character</span> +<span id="L52" class="LineNr"> 52 </span> 8b/-> *ecx 2/r32/edx +<span id="L53" class="LineNr"> 53 </span> 42/increment-edx +<span id="L54" class="LineNr"> 54 </span> <span class="subxComment"># var s/esi: (stream size)</span> +<span id="L55" class="LineNr"> 55 </span> 29/subtract-from %esp 2/r32/edx +<span id="L56" class="LineNr"> 56 </span> 52/push-edx <span class="subxComment"># size</span> +<span id="L57" class="LineNr"> 57 </span> 68/push 0/imm32/read +<span id="L58" class="LineNr"> 58 </span> 68/push 0/imm32/write +<span id="L59" class="LineNr"> 59 </span> 89/<- %esi 4/r32/esp +<span id="L60" class="LineNr"> 60 </span> <span class="subxComment"># copy filename and a final null character</span> +<span id="L61" class="LineNr"> 61 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> %esi) +<span id="L62" class="LineNr"> 62 </span> (<a href='108write.subx.html#L24'>write</a> %esi %ecx) +<span id="L63" class="LineNr"> 63 </span> <span class="subxComment"># spill edx</span> +<span id="L64" class="LineNr"> 64 </span> 52/push-edx +<span id="L65" class="LineNr"> 65 </span> <span class="subxComment"># var fd/eax: fd = open(filename)</span> +<span id="L66" class="LineNr"> 66 </span> 8d/copy-address *(esi+0xc) 3/r32/ebx +<span id="L67" class="LineNr"> 67 </span> 8b/-> *(ebp+0xc) 1/r32/ecx/flags +<span id="L68" class="LineNr"> 68 </span> ba/copy-to-edx 0x180/imm32/permissions +<span id="L69" class="LineNr"> 69 </span> e8/call <a href='000init.subx.html#L35'>syscall_open</a>/disp32 +<span id="L70" class="LineNr"> 70 </span> <span class="subxComment"># restore edx</span> +<span id="L71" class="LineNr"> 71 </span> 5a/pop-to-edx +<span id="L72" class="LineNr"> 72 </span><span class="Constant">$open-fd:end</span>: +<span id="L73" class="LineNr"> 73 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L74" class="LineNr"> 74 </span> 01/add-to %esp 2/r32/edx +<span id="L75" class="LineNr"> 75 </span> 81 0/subop/add %esp 0xc/imm32 +<span id="L76" class="LineNr"> 76 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L77" class="LineNr"> 77 </span> 5e/pop-to-esi +<span id="L78" class="LineNr"> 78 </span> 5b/pop-to-ebx +<span id="L79" class="LineNr"> 79 </span> 5a/pop-to-edx +<span id="L80" class="LineNr"> 80 </span> 59/pop-to-ecx +<span id="L81" class="LineNr"> 81 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L82" class="LineNr"> 82 </span> 89/<- %esp 5/r32/ebp +<span id="L83" class="LineNr"> 83 </span> 5d/pop-to-ebp +<span id="L84" class="LineNr"> 84 </span> c3/return +<span id="L85" class="LineNr"> 85 </span> +<span id="L86" class="LineNr"> 86 </span><span class="subxFunction">populate-buffered-file-containing</span>: <span class="subxComment"># contents: (addr array byte), out: (addr handle buffered-file)</span> +<span id="L87" class="LineNr"> 87 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L88" class="LineNr"> 88 </span> 55/push-ebp +<span id="L89" class="LineNr"> 89 </span> 89/<- %ebp 4/r32/esp +<span id="L90" class="LineNr"> 90 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L91" class="LineNr"> 91 </span> 50/push-eax +<span id="L92" class="LineNr"> 92 </span> 51/push-ecx +<span id="L93" class="LineNr"> 93 </span> 56/push-esi +<span id="L94" class="LineNr"> 94 </span> 57/push-edi +<span id="L95" class="LineNr"> 95 </span> <span class="subxComment"># esi = contents</span> +<span id="L96" class="LineNr"> 96 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L97" class="LineNr"> 97 </span> <span class="subxComment"># var n/ecx: int = len(contents)</span> +<span id="L98" class="LineNr"> 98 </span> 8b/-> *esi 1/r32/ecx +<span id="L99" class="LineNr"> 99 </span> <span class="subxComment"># var stream/edi: (handle stream byte)</span> +<span id="L100" class="LineNr">100 </span> 68/push 0/imm32 +<span id="L101" class="LineNr">101 </span> 68/push 0/imm32 +<span id="L102" class="LineNr">102 </span> 89/<- %edi 4/r32/esp +<span id="L103" class="LineNr">103 </span> <span class="subxComment"># allocate stream</span> +<span id="L104" class="LineNr">104 </span> (<a href='121new-stream.subx.html#L8'>new-stream</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %ecx 1 %edi) +<span id="L105" class="LineNr">105 </span> <span class="subxComment"># var stream-addr/edi: (addr stream byte) = lookup(stream)</span> +<span id="L106" class="LineNr">106 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L107" class="LineNr">107 </span> 89/<- %edi 0/r32/eax +<span id="L108" class="LineNr">108 </span> <span class="subxComment"># write contents to stream</span> +<span id="L109" class="LineNr">109 </span> (<a href='108write.subx.html#L24'>write</a> %edi %esi) +<span id="L110" class="LineNr">110 </span> <span class="subxComment"># allocate buffered-file</span> +<span id="L111" class="LineNr">111 </span> (<a href='120allocate.subx.html#L66'>allocate</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> 0x110 *(ebp+0xc)) +<span id="L112" class="LineNr">112 </span> <span class="subxComment"># var out-addr/eax: (addr buffered-file)</span> +<span id="L113" class="LineNr">113 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L114" class="LineNr">114 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L115" class="LineNr">115 </span> <span class="subxComment"># out-addr->size = 256 bytes</span> +<span id="L116" class="LineNr">116 </span> c7 0/subop/copy *(eax+0xc) 0x100/imm32/file-buffer-size +<span id="L117" class="LineNr">117 </span> <span class="subxComment"># out-addr->fd = stream</span> +<span id="L118" class="LineNr">118 </span> 89/<- *eax 7/r32/edi +<span id="L119" class="LineNr">119 </span><span class="Constant">$populate-buffered-file-containing:end</span>: +<span id="L120" class="LineNr">120 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L121" class="LineNr">121 </span> 81 0/subop/add %esp 8/imm32 +<span id="L122" class="LineNr">122 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L123" class="LineNr">123 </span> 5f/pop-to-edi +<span id="L124" class="LineNr">124 </span> 5e/pop-to-esi +<span id="L125" class="LineNr">125 </span> 59/pop-to-ecx +<span id="L126" class="LineNr">126 </span> 58/pop-to-eax +<span id="L127" class="LineNr">127 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L128" class="LineNr">128 </span> 89/<- %esp 5/r32/ebp +<span id="L129" class="LineNr">129 </span> 5d/pop-to-ebp +<span id="L130" class="LineNr">130 </span> c3/return +<span id="L131" class="LineNr">131 </span> +<span id="L132" class="LineNr">132 </span><span class="subxComment"># TODO: hard-coded parameter</span> +<span id="L133" class="LineNr">133 </span><span class="subxFunction">new-buffered-file</span>: <span class="subxComment"># out: (addr handle buffered-file)</span> +<span id="L134" class="LineNr">134 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L135" class="LineNr">135 </span> 55/push-ebp +<span id="L136" class="LineNr">136 </span> 89/<- %ebp 4/r32/esp +<span id="L137" class="LineNr">137 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L138" class="LineNr">138 </span> 50/push-eax +<span id="L139" class="LineNr">139 </span> 51/push-ecx +<span id="L140" class="LineNr">140 </span> <span class="subxComment"># var stream/ecx: (handle stream byte)</span> +<span id="L141" class="LineNr">141 </span> 68/push 0/imm32 +<span id="L142" class="LineNr">142 </span> 68/push 0/imm32 +<span id="L143" class="LineNr">143 </span> 89/<- %ecx 4/r32/esp +<span id="L144" class="LineNr">144 </span> <span class="subxComment"># allocate stream</span> +<span id="L145" class="LineNr">145 </span> (<a href='121new-stream.subx.html#L8'>new-stream</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> 0x100 1 %ecx) +<span id="L146" class="LineNr">146 </span> <span class="subxComment"># var stream-addr/ecx: (addr stream byte) = lookup(stream)</span> +<span id="L147" class="LineNr">147 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> +<span id="L148" class="LineNr">148 </span> 89/<- %ecx 0/r32/eax +<span id="L149" class="LineNr">149 </span> <span class="subxComment"># allocate buffered-file</span> +<span id="L150" class="LineNr">150 </span> (<a href='120allocate.subx.html#L66'>allocate</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> 0x110 *(ebp+8)) +<span id="L151" class="LineNr">151 </span> <span class="subxComment"># var out-addr/eax: (addr buffered-file)</span> +<span id="L152" class="LineNr">152 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L153" class="LineNr">153 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L154" class="LineNr">154 </span> <span class="subxComment"># out-addr->size = 256 bytes</span> +<span id="L155" class="LineNr">155 </span> c7 0/subop/copy *(eax+0xc) 0x100/imm32/file-buffer-size +<span id="L156" class="LineNr">156 </span> <span class="subxComment"># out-addr->fd = stream</span> +<span id="L157" class="LineNr">157 </span> 89/<- *eax 1/r32/ecx +<span id="L158" class="LineNr">158 </span><span class="Constant">$new-buffered-file:end</span>: +<span id="L159" class="LineNr">159 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L160" class="LineNr">160 </span> 81 0/subop/add %esp 8/imm32 +<span id="L161" class="LineNr">161 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L162" class="LineNr">162 </span> 59/pop-to-ecx +<span id="L163" class="LineNr">163 </span> 58/pop-to-eax +<span id="L164" class="LineNr">164 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L165" class="LineNr">165 </span> 89/<- %esp 5/r32/ebp +<span id="L166" class="LineNr">166 </span> 5d/pop-to-ebp +<span id="L167" class="LineNr">167 </span> c3/return </pre> </body> </html> diff --git a/html/linux/311decimal-int.subx.html b/html/linux/311decimal-int.subx.html index fbb70646..ee7b5055 100644 --- a/html/linux/311decimal-int.subx.html +++ b/html/linux/311decimal-int.subx.html @@ -126,7 +126,7 @@ if ('onhashchange' in window) { <span id="L66" class="LineNr"> 66 </span> 4a/decrement-edx <span id="L67" class="LineNr"> 67 </span> <span class="subxComment"># if it's a newline, break</span> <span id="L68" class="LineNr"> 68 </span> 8a/byte-> *edx 0/r32/eax -<span id="L69" class="LineNr"> 69 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L69" class="LineNr"> 69 </span> 25/and-eax-with 0xff/imm32 <span id="L70" class="LineNr"> 70 </span> 3d/compare-eax-and 0xa/imm32/newline <span id="L71" class="LineNr"> 71 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 <span id="L72" class="LineNr"> 72 </span> <span class="subxComment"># not a newline, so restore it</span> diff --git a/html/linux/312copy.subx.html b/html/linux/312copy.subx.html index 7c7ee405..62213681 100644 --- a/html/linux/312copy.subx.html +++ b/html/linux/312copy.subx.html @@ -104,7 +104,7 @@ if ('onhashchange' in window) { <span id="L47" class="LineNr">47 </span> 89/<- %ecx 0/r32/eax <span id="L48" class="LineNr">48 </span> <span class="subxComment"># at this point dest is identical to src, including file descriptor. Now</span> <span id="L49" class="LineNr">49 </span> <span class="subxComment"># create an independent copy of the file descriptor</span> -<span id="L50" class="LineNr">50 </span> (<a href='306files.subx.html#L43'>open-fd</a> *(ebp+0x10) 0) <span class="subxComment"># false => eax</span> +<span id="L50" class="LineNr">50 </span> (<a href='306files.subx.html#L40'>open-fd</a> *(ebp+0x10) 0) <span class="subxComment"># false => eax</span> <span id="L51" class="LineNr">51 </span> 89/<- *edi 0/r32/eax <span id="L52" class="LineNr">52 </span> <span class="subxComment"># replicate offset in the new fd</span> <span id="L53" class="LineNr">53 </span> 89/<- %ebx 0/r32/eax <span class="subxComment"># fd</span> diff --git a/html/linux/313index-bounds-check.subx.html b/html/linux/313index-bounds-check.subx.html index 9eb299b9..07c1e75c 100644 --- a/html/linux/313index-bounds-check.subx.html +++ b/html/linux/313index-bounds-check.subx.html @@ -56,92 +56,108 @@ if ('onhashchange' in window) { <body onload='JumpToLine();'> <a href='https://github.com/akkartik/mu/blob/main/linux/313index-bounds-check.subx'>https://github.com/akkartik/mu/blob/main/linux/313index-bounds-check.subx</a> <pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Helper to check an array's bounds, and to abort if they're violated.</span> -<span id="L2" class="LineNr"> 2 </span><span class="subxComment"># Really only intended to be called from code generated by mu.subx.</span> -<span id="L3" class="LineNr"> 3 </span> -<span id="L4" class="LineNr"> 4 </span>== code -<span id="L5" class="LineNr"> 5 </span> -<span id="L6" class="LineNr"> 6 </span><span class="subxMinorFunction">__check-mu-array-bounds</span>: <span class="subxComment"># index: int, elem-size: int, arr-size: int, function-name: (addr array byte), array-name: (addr array byte)</span> -<span id="L7" class="LineNr"> 7 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8" class="LineNr"> 8 </span> 55/push-ebp -<span id="L9" class="LineNr"> 9 </span> 89/<- %ebp 4/r32/esp -<span id="L10" class="LineNr">10 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L11" class="LineNr">11 </span> 50/push-eax -<span id="L12" class="LineNr">12 </span> 51/push-ecx -<span id="L13" class="LineNr">13 </span> 52/push-edx -<span id="L14" class="LineNr">14 </span> <span class="subxS1Comment"># . not bothering saving ebx; it's only clobbered if we're going to abort</span> -<span id="L15" class="LineNr">15 </span> <span class="subxComment"># ecx = arr-size</span> -<span id="L16" class="LineNr">16 </span> 8b/-> *(ebp+0x10) 1/r32/ecx -<span id="L17" class="LineNr">17 </span> <span class="subxComment"># var overflow/edx: int = 0</span> -<span id="L18" class="LineNr">18 </span> ba/copy-to-edx 0/imm32 -<span id="L19" class="LineNr">19 </span> <span class="subxComment"># var offset/eax: int = index * elem-size</span> -<span id="L20" class="LineNr">20 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L21" class="LineNr">21 </span> f7 4/subop/multiply-eax-with *(ebp+0xc) -<span id="L22" class="LineNr">22 </span> <span class="subxComment"># check for overflow</span> -<span id="L23" class="LineNr">23 </span> 81 7/subop/compare %edx 0/imm32 -<span id="L24" class="LineNr">24 </span> 0f 85/jump-if-!= <a href='313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a>:overflow/disp32 -<span id="L25" class="LineNr">25 </span> <span class="subxComment"># check bounds</span> -<span id="L26" class="LineNr">26 </span> 39/compare %eax 1/r32/ecx -<span id="L27" class="LineNr">27 </span> 0f 82/jump-if-unsigned< $__check-mu-array-bounds:end/disp32 <span class="subxComment"># negative index should always abort</span> -<span id="L28" class="LineNr">28 </span> <span class="subxComment"># abort if necessary</span> -<span id="L29" class="LineNr">29 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"fn "</span>) -<span id="L30" class="LineNr">30 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+0x14)) -<span id="L31" class="LineNr">31 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">": offset "</span>) -<span id="L32" class="LineNr">32 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> %eax) -<span id="L33" class="LineNr">33 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">" is too large for array '"</span>) -<span id="L34" class="LineNr">34 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+0x18)) -<span id="L35" class="LineNr">35 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"'\n"</span>) -<span id="L36" class="LineNr">36 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>) -<span id="L37" class="LineNr">37 </span> <span class="subxComment"># exit(1)</span> -<span id="L38" class="LineNr">38 </span> bb/copy-to-ebx 1/imm32 -<span id="L39" class="LineNr">39 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 -<span id="L40" class="LineNr">40 </span> <span class="subxComment"># never gets here</span> -<span id="L41" class="LineNr">41 </span><span class="Constant">$__check-mu-array-bounds:end</span>: -<span id="L42" class="LineNr">42 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L43" class="LineNr">43 </span> 5a/pop-to-edx -<span id="L44" class="LineNr">44 </span> 59/pop-to-ecx -<span id="L45" class="LineNr">45 </span> 58/pop-to-eax -<span id="L46" class="LineNr">46 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L47" class="LineNr">47 </span> 89/<- %esp 5/r32/ebp -<span id="L48" class="LineNr">48 </span> 5d/pop-to-ebp -<span id="L49" class="LineNr">49 </span> c3/return -<span id="L50" class="LineNr">50 </span> -<span id="L51" class="LineNr">51 </span><span class="subxMinorFunction">__check-mu-array-bounds:overflow</span>: -<span id="L52" class="LineNr">52 </span> <span class="subxComment"># "fn " function-name ": offset to array '" array-name "' overflowed 32 bits\n"</span> -<span id="L53" class="LineNr">53 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"fn "</span>) -<span id="L54" class="LineNr">54 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+0x14)) -<span id="L55" class="LineNr">55 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">": offset to array '"</span>) -<span id="L56" class="LineNr">56 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+0x18)) -<span id="L57" class="LineNr">57 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"' overflowed 32 bits\n"</span>) -<span id="L58" class="LineNr">58 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>) -<span id="L59" class="LineNr">59 </span> <span class="subxComment"># exit(1)</span> -<span id="L60" class="LineNr">60 </span> bb/copy-to-ebx 1/imm32 -<span id="L61" class="LineNr">61 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 -<span id="L62" class="LineNr">62 </span> <span class="subxComment"># never gets here</span> -<span id="L63" class="LineNr">63 </span> -<span id="L64" class="LineNr">64 </span><span class="subxComment"># potential alternative</span> -<span id="L65" class="LineNr">65 </span> -<span id="L66" class="LineNr">66 </span><span class="CommentedCode">#? __bounds-check: # msg: (addr array byte)</span> -<span id="L67" class="LineNr">67 </span><span class="CommentedCode">#? (write-buffered Stderr "abort: array bounds exceeded in fn ")</span> -<span id="L68" class="LineNr">68 </span><span class="CommentedCode">#? 8b/-> *(esp+4) 0/r32/eax # we're going to abort, so just clobber away</span> -<span id="L69" class="LineNr">69 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L70" class="LineNr">70 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L71" class="LineNr">71 </span><span class="CommentedCode">#? # exit(1)</span> -<span id="L72" class="LineNr">72 </span><span class="CommentedCode">#? bb/copy-to-ebx 1/imm32</span> -<span id="L73" class="LineNr">73 </span><span class="CommentedCode">#? e8/call syscall_exit/disp32</span> -<span id="L74" class="LineNr">74 </span> -<span id="L75" class="LineNr">75 </span><span class="subxComment"># to be called as follows:</span> -<span id="L76" class="LineNr">76 </span><span class="subxComment"># var/reg <- index arr/rega: (addr array T), idx/regi: int</span> -<span id="L77" class="LineNr">77 </span><span class="subxComment"># | if size-of(T) is 1, 2, 4 or 8</span> -<span id="L78" class="LineNr">78 </span><span class="subxComment"># => # temporarily save array size to reg to check bounds</span> -<span id="L79" class="LineNr">79 </span><span class="subxComment"># "8b/-> *" rega " " reg "/r32"</span> -<span id="L80" class="LineNr">80 </span><span class="subxComment"># "c1/shift 5/subop/right %" reg " " log2(size-of(T)) "/imm32"</span> -<span id="L81" class="LineNr">81 </span><span class="subxComment"># "3b/compare " reg "/r32 *" rega</span> -<span id="L82" class="LineNr">82 </span><span class="subxComment"># "68/push \"" function "\"/imm32" # pass function name to error message</span> -<span id="L83" class="LineNr">83 </span><span class="subxComment"># "0f 8d/jump-if->= __bounds_check/disp32"</span> -<span id="L84" class="LineNr">84 </span><span class="subxComment"># "81 0/subop/add %esp 4/imm32" # drop function name</span> -<span id="L85" class="LineNr">85 </span><span class="subxComment"># # actually save the index addr in reg</span> -<span id="L86" class="LineNr">86 </span><span class="subxComment"># "8d/copy-address *(" rega "+" regi "<<" log2(size-of(T)) "+4) " reg "/r32"</span> +<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Helper to check an array's bounds, and to abort if they're violated.</span> +<span id="L2" class="LineNr"> 2 </span><span class="subxComment"># Really only intended to be called from code generated by mu.subx.</span> +<span id="L3" class="LineNr"> 3 </span> +<span id="L4" class="LineNr"> 4 </span>== code +<span id="L5" class="LineNr"> 5 </span> +<span id="L6" class="LineNr"> 6 </span><span class="subxMinorFunction">__check-mu-array-bounds</span>: <span class="subxComment"># index: int, elem-size: int, arr-size: int, function-name: (addr array byte), array-name: (addr array byte)</span> +<span id="L7" class="LineNr"> 7 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8" class="LineNr"> 8 </span> 55/push-ebp +<span id="L9" class="LineNr"> 9 </span> 89/<- %ebp 4/r32/esp +<span id="L10" class="LineNr"> 10 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L11" class="LineNr"> 11 </span> 50/push-eax +<span id="L12" class="LineNr"> 12 </span> 51/push-ecx +<span id="L13" class="LineNr"> 13 </span> 52/push-edx +<span id="L14" class="LineNr"> 14 </span> <span class="subxS1Comment"># . not bothering saving ebx; it's only clobbered if we're going to abort</span> +<span id="L15" class="LineNr"> 15 </span> <span class="subxComment"># ecx = arr-size</span> +<span id="L16" class="LineNr"> 16 </span> 8b/-> *(ebp+0x10) 1/r32/ecx +<span id="L17" class="LineNr"> 17 </span> <span class="subxComment"># var overflow/edx: int = 0</span> +<span id="L18" class="LineNr"> 18 </span> ba/copy-to-edx 0/imm32 +<span id="L19" class="LineNr"> 19 </span> <span class="subxComment"># var offset/eax: int = index * elem-size</span> +<span id="L20" class="LineNr"> 20 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L21" class="LineNr"> 21 </span> f7 4/subop/multiply-eax-with *(ebp+0xc) +<span id="L22" class="LineNr"> 22 </span> <span class="subxComment"># check for overflow</span> +<span id="L23" class="LineNr"> 23 </span> 81 7/subop/compare %edx 0/imm32 +<span id="L24" class="LineNr"> 24 </span> 0f 85/jump-if-!= <a href='313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a>:overflow/disp32 +<span id="L25" class="LineNr"> 25 </span> <span class="subxComment"># check bounds</span> +<span id="L26" class="LineNr"> 26 </span> 39/compare %eax 1/r32/ecx +<span id="L27" class="LineNr"> 27 </span> 0f 82/jump-if-unsigned< $__check-mu-array-bounds:end/disp32 <span class="subxComment"># negative index should always abort</span> +<span id="L28" class="LineNr"> 28 </span> <span class="subxComment"># abort if necessary</span> +<span id="L29" class="LineNr"> 29 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"fn "</span>) +<span id="L30" class="LineNr"> 30 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+0x14)) +<span id="L31" class="LineNr"> 31 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">": offset "</span>) +<span id="L32" class="LineNr"> 32 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> %eax) +<span id="L33" class="LineNr"> 33 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">" is too large for array '"</span>) +<span id="L34" class="LineNr"> 34 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+0x18)) +<span id="L35" class="LineNr"> 35 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"'\n"</span>) +<span id="L36" class="LineNr"> 36 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>) +<span id="L37" class="LineNr"> 37 </span> <span class="subxComment"># exit(1)</span> +<span id="L38" class="LineNr"> 38 </span> bb/copy-to-ebx 1/imm32 +<span id="L39" class="LineNr"> 39 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L40" class="LineNr"> 40 </span> <span class="subxComment"># never gets here</span> +<span id="L41" class="LineNr"> 41 </span><span class="Constant">$__check-mu-array-bounds:end</span>: +<span id="L42" class="LineNr"> 42 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L43" class="LineNr"> 43 </span> 5a/pop-to-edx +<span id="L44" class="LineNr"> 44 </span> 59/pop-to-ecx +<span id="L45" class="LineNr"> 45 </span> 58/pop-to-eax +<span id="L46" class="LineNr"> 46 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L47" class="LineNr"> 47 </span> 89/<- %esp 5/r32/ebp +<span id="L48" class="LineNr"> 48 </span> 5d/pop-to-ebp +<span id="L49" class="LineNr"> 49 </span> c3/return +<span id="L50" class="LineNr"> 50 </span> +<span id="L51" class="LineNr"> 51 </span><span class="subxMinorFunction">__check-mu-array-bounds:overflow</span>: +<span id="L52" class="LineNr"> 52 </span> <span class="subxComment"># "fn " function-name ": offset to array '" array-name "' overflowed 32 bits\n"</span> +<span id="L53" class="LineNr"> 53 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"fn "</span>) +<span id="L54" class="LineNr"> 54 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+0x14)) +<span id="L55" class="LineNr"> 55 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">": offset to array '"</span>) +<span id="L56" class="LineNr"> 56 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+0x18)) +<span id="L57" class="LineNr"> 57 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"' overflowed 32 bits\n"</span>) +<span id="L58" class="LineNr"> 58 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>) +<span id="L59" class="LineNr"> 59 </span> <span class="subxComment"># exit(1)</span> +<span id="L60" class="LineNr"> 60 </span> bb/copy-to-ebx 1/imm32 +<span id="L61" class="LineNr"> 61 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L62" class="LineNr"> 62 </span> <span class="subxComment"># never gets here</span> +<span id="L63" class="LineNr"> 63 </span> +<span id="L64" class="LineNr"> 64 </span><span class="subxComment"># potential alternative</span> +<span id="L65" class="LineNr"> 65 </span> +<span id="L66" class="LineNr"> 66 </span><span class="CommentedCode">#? __bounds-check: # msg: (addr array byte)</span> +<span id="L67" class="LineNr"> 67 </span><span class="CommentedCode">#? (write-buffered Stderr "abort: array bounds exceeded in fn ")</span> +<span id="L68" class="LineNr"> 68 </span><span class="CommentedCode">#? 8b/-> *(esp+4) 0/r32/eax # we're going to abort, so just clobber away</span> +<span id="L69" class="LineNr"> 69 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L70" class="LineNr"> 70 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L71" class="LineNr"> 71 </span><span class="CommentedCode">#? # exit(1)</span> +<span id="L72" class="LineNr"> 72 </span><span class="CommentedCode">#? bb/copy-to-ebx 1/imm32</span> +<span id="L73" class="LineNr"> 73 </span><span class="CommentedCode">#? e8/call syscall_exit/disp32</span> +<span id="L74" class="LineNr"> 74 </span> +<span id="L75" class="LineNr"> 75 </span><span class="subxComment"># to be called as follows:</span> +<span id="L76" class="LineNr"> 76 </span><span class="subxComment"># var/reg <- index arr/rega: (addr array T), idx/regi: int</span> +<span id="L77" class="LineNr"> 77 </span><span class="subxComment"># | if size-of(T) is 1, 2, 4 or 8</span> +<span id="L78" class="LineNr"> 78 </span><span class="subxComment"># => # temporarily save array size to reg to check bounds</span> +<span id="L79" class="LineNr"> 79 </span><span class="subxComment"># "8b/-> *" rega " " reg "/r32"</span> +<span id="L80" class="LineNr"> 80 </span><span class="subxComment"># "c1/shift 5/subop/right %" reg " " log2(size-of(T)) "/imm32"</span> +<span id="L81" class="LineNr"> 81 </span><span class="subxComment"># "3b/compare " reg "/r32 *" rega</span> +<span id="L82" class="LineNr"> 82 </span><span class="subxComment"># "68/push \"" function "\"/imm32" # pass function name to error message</span> +<span id="L83" class="LineNr"> 83 </span><span class="subxComment"># "0f 8d/jump-if->= __bounds_check/disp32"</span> +<span id="L84" class="LineNr"> 84 </span><span class="subxComment"># "81 0/subop/add %esp 4/imm32" # drop function name</span> +<span id="L85" class="LineNr"> 85 </span><span class="subxComment"># # actually save the index addr in reg</span> +<span id="L86" class="LineNr"> 86 </span><span class="subxComment"># "8d/copy-address *(" rega "+" regi "<<" log2(size-of(T)) "+4) " reg "/r32"</span> +<span id="L87" class="LineNr"> 87 </span> +<span id="L88" class="LineNr"> 88 </span><span class="subxMinorFunction">__mu-abort-null-index-base-address</span>: +<span id="L89" class="LineNr"> 89 </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">"null address in 'index'\n"</span>) +<span id="L90" class="LineNr"> 90 </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="L91" class="LineNr"> 91 </span> <span class="subxComment"># exit(1)</span> +<span id="L92" class="LineNr"> 92 </span> bb/copy-to-ebx 1/imm32 +<span id="L93" class="LineNr"> 93 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L94" class="LineNr"> 94 </span> <span class="subxComment"># never gets here</span> +<span id="L95" class="LineNr"> 95 </span> +<span id="L96" class="LineNr"> 96 </span><span class="subxMinorFunction">__mu-abort-null-get-base-address</span>: +<span id="L97" class="LineNr"> 97 </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">"null address in 'get'\n"</span>) +<span id="L98" class="LineNr"> 98 </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="L99" class="LineNr"> 99 </span> <span class="subxComment"># exit(1)</span> +<span id="L100" class="LineNr">100 </span> bb/copy-to-ebx 1/imm32 +<span id="L101" class="LineNr">101 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L102" class="LineNr">102 </span> <span class="subxComment"># never gets here</span> </pre> </body> </html> diff --git a/html/linux/400.mu.html b/html/linux/400.mu.html index f8250d21..9b1270b4 100644 --- a/html/linux/400.mu.html +++ b/html/linux/400.mu.html @@ -231,9 +231,9 @@ if ('onhashchange' in window) { <span id="L176" class="LineNr">176 </span><span class="PreProc">sig</span> <a href='305keyboard.subx.html#L72'>enable-keyboard-type-mode</a> <span id="L177" class="LineNr">177 </span><span class="PreProc">sig</span> <a href='305keyboard.subx.html#L132'>read-key-from-real-keyboard</a><span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span id="L178" class="LineNr">178 </span><span class="PreProc">sig</span> <a href='305keyboard.subx.html#L158'>read-line-from-real-keyboard</a> out: (addr stream byte) -<span id="L179" class="LineNr">179 </span><span class="PreProc">sig</span> <a href='306files.subx.html#L12'>open</a> filename: (addr array byte), write?: boolean, out: (addr handle buffered-file) -<span id="L180" class="LineNr">180 </span><span class="PreProc">sig</span> <a href='306files.subx.html#L89'>populate-buffered-file-containing</a> contents: (addr array byte), out: (addr handle buffered-file) -<span id="L181" class="LineNr">181 </span><span class="PreProc">sig</span> <a href='306files.subx.html#L135'>new-buffered-file</a> out: (addr handle buffered-file) +<span id="L179" class="LineNr">179 </span><span class="PreProc">sig</span> <a href='306files.subx.html#L9'>open</a> filename: (addr array byte), write?: boolean, out: (addr handle buffered-file) +<span id="L180" class="LineNr">180 </span><span class="PreProc">sig</span> <a href='306files.subx.html#L86'>populate-buffered-file-containing</a> contents: (addr array byte), out: (addr handle buffered-file) +<span id="L181" class="LineNr">181 </span><span class="PreProc">sig</span> <a href='306files.subx.html#L133'>new-buffered-file</a> out: (addr handle buffered-file) <span id="L182" class="LineNr">182 </span><span class="muComment">#sig size in: (addr array _) -> _/eax: int</span> <span id="L183" class="LineNr">183 </span> <span id="L184" class="LineNr">184 </span><span class="PreProc">sig</span> <a href='309stream.subx.html#L6'>stream-empty?</a> s: (addr stream _)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean diff --git a/html/linux/404stream.mu.html b/html/linux/404stream.mu.html index 77992e5f..a561ca5c 100644 --- a/html/linux/404stream.mu.html +++ b/html/linux/404stream.mu.html @@ -106,7 +106,7 @@ if ('onhashchange' in window) { <span id="L48" class="LineNr">48 </span><span class="PreProc">fn</span> <span class="muTest"><a href='404stream.mu.html#L48'>test-fake-input-buffered-file</a></span> <span class="Delimiter">{</span> <span id="L49" class="LineNr">49 </span> <span class="PreProc">var</span> foo: (handle buffered-file) <span id="L50" class="LineNr">50 </span> <span class="PreProc">var</span> foo-ah/<span class="Constant">eax</span>: (addr handle buffered-file) <span class="Special"><-</span> address foo -<span id="L51" class="LineNr">51 </span> <a href='306files.subx.html#L89'>populate-buffered-file-containing</a> <span class="Constant">"abc"</span>, foo-ah +<span id="L51" class="LineNr">51 </span> <a href='306files.subx.html#L86'>populate-buffered-file-containing</a> <span class="Constant">"abc"</span>, foo-ah <span id="L52" class="LineNr">52 </span> <span class="PreProc">var</span> foo-addr/<span class="Constant">eax</span>: (addr buffered-file) <span class="Special"><-</span> <a href='120allocate.subx.html#L258'>lookup</a> foo <span id="L53" class="LineNr">53 </span> <span class="PreProc">var</span> s: (stream byte <span class="Constant">0x100</span>) <span id="L54" class="LineNr">54 </span> <span class="PreProc">var</span> result/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address s @@ -117,7 +117,7 @@ if ('onhashchange' in window) { <span id="L59" class="LineNr">59 </span><span class="PreProc">fn</span> <span class="muTest"><a href='404stream.mu.html#L59'>test-fake-output-buffered-file</a></span> <span class="Delimiter">{</span> <span id="L60" class="LineNr">60 </span> <span class="PreProc">var</span> foo: (handle buffered-file) <span id="L61" class="LineNr">61 </span> <span class="PreProc">var</span> foo-ah/<span class="Constant">eax</span>: (addr handle buffered-file) <span class="Special"><-</span> address foo -<span id="L62" class="LineNr">62 </span> <a href='306files.subx.html#L135'>new-buffered-file</a> foo-ah +<span id="L62" class="LineNr">62 </span> <a href='306files.subx.html#L133'>new-buffered-file</a> foo-ah <span id="L63" class="LineNr">63 </span> <span class="PreProc">var</span> foo-addr/<span class="Constant">eax</span>: (addr buffered-file) <span class="Special"><-</span> <a href='120allocate.subx.html#L258'>lookup</a> foo <span id="L64" class="LineNr">64 </span> <a href='116write-buffered.subx.html#L8'>write-buffered</a> foo-addr, <span class="Constant">"abc"</span> <span id="L65" class="LineNr">65 </span> <span class="PreProc">var</span> s: (stream byte <span class="Constant">0x100</span>) diff --git a/html/linux/bootstrap/017jump_disp8.cc.html b/html/linux/bootstrap/017jump_disp8.cc.html index 0c36125f..97457a1f 100644 --- a/html/linux/bootstrap/017jump_disp8.cc.html +++ b/html/linux/bootstrap/017jump_disp8.cc.html @@ -463,6 +463,30 @@ if ('onhashchange' in window) { <span id="L405" class="LineNr">405 </span> <span class="Delimiter">);</span> <span id="L406" class="LineNr">406 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: jump 5"</span><span class="Delimiter">);</span> <span id="L407" class="LineNr">407 </span><span class="Delimiter">}</span> +<span id="L408" class="LineNr">408 </span> +<span id="L409" class="LineNr">409 </span><span class="Comment">//:: jump if overflow</span> +<span id="L410" class="LineNr">410 </span> +<span id="L411" class="LineNr">411 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> +<span id="L412" class="LineNr">412 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"70"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away if <a href='010vm.cc.html#L91'>OF</a> is set (jcc/jo)"</span><span class="Delimiter">);</span> +<span id="L413" class="LineNr">413 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"71"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away if <a href='010vm.cc.html#L91'>OF</a> is unset (jcc/jno)"</span><span class="Delimiter">);</span> +<span id="L414" class="LineNr">414 </span> +<span id="L415" class="LineNr">415 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> +<span id="L416" class="LineNr">416 </span><span class="Normal">case</span> <span class="Constant">0x70</span>: <span class="Delimiter">{</span> <span class="Comment">// jump disp8 if OF is set</span> +<span id="L417" class="LineNr">417 </span> <span class="Normal">const</span> <span class="Normal">int8_t</span> offset = <span class="Normal">static_cast</span><<span class="Normal">int</span>><span class="Delimiter">(</span><a href='010vm.cc.html#L338'>next</a><span class="Delimiter">());</span> +<span id="L418" class="LineNr">418 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='010vm.cc.html#L91'>OF</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L419" class="LineNr">419 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L420" class="LineNr">420 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> +<span id="L421" class="LineNr">421 </span> <span class="Delimiter">}</span> +<span id="L422" class="LineNr">422 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L423" class="LineNr">423 </span><span class="Delimiter">}</span> +<span id="L424" class="LineNr">424 </span><span class="Normal">case</span> <span class="Constant">0x71</span>: <span class="Delimiter">{</span> <span class="Comment">// jump disp8 if OF is unset</span> +<span id="L425" class="LineNr">425 </span> <span class="Normal">const</span> <span class="Normal">int8_t</span> offset = <span class="Normal">static_cast</span><<span class="Normal">int</span>><span class="Delimiter">(</span><a href='010vm.cc.html#L338'>next</a><span class="Delimiter">());</span> +<span id="L426" class="LineNr">426 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!OF<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L427" class="LineNr">427 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L428" class="LineNr">428 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> +<span id="L429" class="LineNr">429 </span> <span class="Delimiter">}</span> +<span id="L430" class="LineNr">430 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L431" class="LineNr">431 </span><span class="Delimiter">}</span> </pre> </body> </html> diff --git a/html/linux/bootstrap/018jump_disp32.cc.html b/html/linux/bootstrap/018jump_disp32.cc.html index 2a4e0a3a..2ff5010c 100644 --- a/html/linux/bootstrap/018jump_disp32.cc.html +++ b/html/linux/bootstrap/018jump_disp32.cc.html @@ -463,6 +463,30 @@ if ('onhashchange' in window) { <span id="L405" class="LineNr">405 </span> <span class="Delimiter">);</span> <span id="L406" class="LineNr">406 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: jump 5"</span><span class="Delimiter">);</span> <span id="L407" class="LineNr">407 </span><span class="Delimiter">}</span> +<span id="L408" class="LineNr">408 </span> +<span id="L409" class="LineNr">409 </span><span class="Comment">//:: jump if overflow</span> +<span id="L410" class="LineNr">410 </span> +<span id="L411" class="LineNr">411 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> +<span id="L412" class="LineNr">412 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L356'>Name_0f</a><span class="Delimiter">,</span> <span class="Constant">"80"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if <a href='010vm.cc.html#L91'>OF</a> is set (jcc/jo)"</span><span class="Delimiter">);</span> +<span id="L413" class="LineNr">413 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L356'>Name_0f</a><span class="Delimiter">,</span> <span class="Constant">"81"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if <a href='010vm.cc.html#L91'>OF</a> is unset (jcc/jno)"</span><span class="Delimiter">);</span> +<span id="L414" class="LineNr">414 </span> +<span id="L415" class="LineNr">415 </span><span class="Delimiter">:(before "End Two-Byte Opcodes Starting With 0f")</span> +<span id="L416" class="LineNr">416 </span><span class="Normal">case</span> <span class="Constant">0x80</span>: <span class="Delimiter">{</span> <span class="Comment">// jump disp8 if OF is set</span> +<span id="L417" class="LineNr">417 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> offset = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> +<span id="L418" class="LineNr">418 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='010vm.cc.html#L91'>OF</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L419" class="LineNr">419 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L420" class="LineNr">420 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> +<span id="L421" class="LineNr">421 </span> <span class="Delimiter">}</span> +<span id="L422" class="LineNr">422 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L423" class="LineNr">423 </span><span class="Delimiter">}</span> +<span id="L424" class="LineNr">424 </span><span class="Normal">case</span> <span class="Constant">0x81</span>: <span class="Delimiter">{</span> <span class="Comment">// jump disp8 if OF is unset</span> +<span id="L425" class="LineNr">425 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> offset = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> +<span id="L426" class="LineNr">426 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!OF<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L427" class="LineNr">427 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L428" class="LineNr">428 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> +<span id="L429" class="LineNr">429 </span> <span class="Delimiter">}</span> +<span id="L430" class="LineNr">430 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L431" class="LineNr">431 </span><span class="Delimiter">}</span> </pre> </body> </html> diff --git a/html/linux/braces.subx.html b/html/linux/braces.subx.html index 77774273..982a1604 100644 --- a/html/linux/braces.subx.html +++ b/html/linux/braces.subx.html @@ -70,10 +70,10 @@ if ('onhashchange' in window) { <span id="L11" class="LineNr"> 11 </span><span class="subxComment"># 74/jump-if-= loop/disp8</span> <span id="L12" class="LineNr"> 12 </span><span class="subxComment"># }</span> <span id="L13" class="LineNr"> 13 </span><span class="subxComment"># $ cat x.subx |braces</span> -<span id="L14" class="LineNr"> 14 </span><span class="subxComment"># _loop1:</span> -<span id="L15" class="LineNr"> 15 </span><span class="subxComment"># 7c/jump-if-< _break1/disp8</span> -<span id="L16" class="LineNr"> 16 </span><span class="subxComment"># 74/jump-if-= _loop1/disp8</span> -<span id="L17" class="LineNr"> 17 </span><span class="subxComment"># _break1:</span> +<span id="L14" class="LineNr"> 14 </span><span class="subxComment"># @loop1:</span> +<span id="L15" class="LineNr"> 15 </span><span class="subxComment"># 7c/jump-if-< @break1/disp8</span> +<span id="L16" class="LineNr"> 16 </span><span class="subxComment"># 74/jump-if-= @loop1/disp8</span> +<span id="L17" class="LineNr"> 17 </span><span class="subxComment"># @break1:</span> <span id="L18" class="LineNr"> 18 </span><span class="subxComment">#</span> <span id="L19" class="LineNr"> 19 </span><span class="subxComment"># Example 2:</span> <span id="L20" class="LineNr"> 20 </span><span class="subxComment"># $ cat x.subx</span> @@ -84,12 +84,12 @@ if ('onhashchange' in window) { <span id="L25" class="LineNr"> 25 </span><span class="subxComment"># 74/jump-if-= loop/disp8</span> <span id="L26" class="LineNr"> 26 </span><span class="subxComment"># }</span> <span id="L27" class="LineNr"> 27 </span><span class="subxComment"># $ cat x.subx |braces</span> -<span id="L28" class="LineNr"> 28 </span><span class="subxComment"># _loop1:</span> -<span id="L29" class="LineNr"> 29 </span><span class="subxComment"># 7c/jump-if-< _break1/disp8</span> -<span id="L30" class="LineNr"> 30 </span><span class="subxComment"># _break1:</span> -<span id="L31" class="LineNr"> 31 </span><span class="subxComment"># _loop2:</span> -<span id="L32" class="LineNr"> 32 </span><span class="subxComment"># 74/jump-if-= _loop2/disp8</span> -<span id="L33" class="LineNr"> 33 </span><span class="subxComment"># _break2:</span> +<span id="L28" class="LineNr"> 28 </span><span class="subxComment"># @loop1:</span> +<span id="L29" class="LineNr"> 29 </span><span class="subxComment"># 7c/jump-if-< @break1/disp8</span> +<span id="L30" class="LineNr"> 30 </span><span class="subxComment"># @break1:</span> +<span id="L31" class="LineNr"> 31 </span><span class="subxComment"># @loop2:</span> +<span id="L32" class="LineNr"> 32 </span><span class="subxComment"># 74/jump-if-= @loop2/disp8</span> +<span id="L33" class="LineNr"> 33 </span><span class="subxComment"># @break2:</span> <span id="L34" class="LineNr"> 34 </span><span class="subxComment">#</span> <span id="L35" class="LineNr"> 35 </span><span class="subxComment"># Example 3:</span> <span id="L36" class="LineNr"> 36 </span><span class="subxComment"># $ cat x.subx</span> @@ -100,12 +100,12 @@ if ('onhashchange' in window) { <span id="L41" class="LineNr"> 41 </span><span class="subxComment"># 7c/jump-if-< loop/disp8</span> <span id="L42" class="LineNr"> 42 </span><span class="subxComment"># }</span> <span id="L43" class="LineNr"> 43 </span><span class="subxComment"># $ cat x.subx |braces</span> -<span id="L44" class="LineNr"> 44 </span><span class="subxComment"># _loop1:</span> -<span id="L45" class="LineNr"> 45 </span><span class="subxComment"># _loop2:</span> -<span id="L46" class="LineNr"> 46 </span><span class="subxComment"># 74/jump-if-= _loop2/disp8</span> -<span id="L47" class="LineNr"> 47 </span><span class="subxComment"># _break2:</span> -<span id="L48" class="LineNr"> 48 </span><span class="subxComment"># 7c/jump-if-< _loop1/disp8</span> -<span id="L49" class="LineNr"> 49 </span><span class="subxComment"># _break1:</span> +<span id="L44" class="LineNr"> 44 </span><span class="subxComment"># @loop1:</span> +<span id="L45" class="LineNr"> 45 </span><span class="subxComment"># @loop2:</span> +<span id="L46" class="LineNr"> 46 </span><span class="subxComment"># 74/jump-if-= @loop2/disp8</span> +<span id="L47" class="LineNr"> 47 </span><span class="subxComment"># @break2:</span> +<span id="L48" class="LineNr"> 48 </span><span class="subxComment"># 7c/jump-if-< @loop1/disp8</span> +<span id="L49" class="LineNr"> 49 </span><span class="subxComment"># @break1:</span> <span id="L50" class="LineNr"> 50 </span> <span id="L51" class="LineNr"> 51 </span>== code <span id="L52" class="LineNr"> 52 </span> @@ -144,13 +144,13 @@ if ('onhashchange' in window) { <span id="L85" class="LineNr"> 85 </span> <span class="subxComment"># if (line->write == 0) break # end of file</span> <span id="L86" class="LineNr"> 86 </span> <span class="subxComment"># skip-chars-matching-whitespace(line)</span> <span id="L87" class="LineNr"> 87 </span> <span class="subxComment"># if line->data[line->read] == '{'</span> -<span id="L88" class="LineNr"> 88 </span> <span class="subxComment"># print(out, "_loop" next-label-id ":\n")</span> +<span id="L88" class="LineNr"> 88 </span> <span class="subxComment"># print(out, "@loop" next-label-id ":\n")</span> <span id="L89" class="LineNr"> 89 </span> <span class="subxComment"># push(label-stack, next-label-id)</span> <span id="L90" class="LineNr"> 90 </span> <span class="subxComment"># ++next-label-id</span> <span id="L91" class="LineNr"> 91 </span> <span class="subxComment"># continue</span> <span id="L92" class="LineNr"> 92 </span> <span class="subxComment"># if line->data[line->read] == '}'</span> <span id="L93" class="LineNr"> 93 </span> <span class="subxComment"># var top = pop(label-stack)</span> -<span id="L94" class="LineNr"> 94 </span> <span class="subxComment"># print(out, "_break" top ":\n")</span> +<span id="L94" class="LineNr"> 94 </span> <span class="subxComment"># print(out, "@break" top ":\n")</span> <span id="L95" class="LineNr"> 95 </span> <span class="subxComment"># continue</span> <span id="L96" class="LineNr"> 96 </span> <span class="subxComment"># while true</span> <span id="L97" class="LineNr"> 97 </span> <span class="subxComment"># var word-slice: (addr slice) = next-word-or-string(line)</span> @@ -160,11 +160,11 @@ if ('onhashchange' in window) { <span id="L101" class="LineNr">101 </span> <span class="subxComment"># continue</span> <span id="L102" class="LineNr">102 </span> <span class="subxComment"># if slice-starts-with?(word-slice, "break/")</span> <span id="L103" class="LineNr">103 </span> <span class="subxComment"># var top = top(label-stack)</span> -<span id="L104" class="LineNr">104 </span> <span class="subxComment"># print(out, "_break" top)</span> +<span id="L104" class="LineNr">104 </span> <span class="subxComment"># print(out, "@break" top)</span> <span id="L105" class="LineNr">105 </span> <span class="subxComment"># word-slice->start += len("break")</span> <span id="L106" class="LineNr">106 </span> <span class="subxComment"># else if slice-starts-with?(word-slice, "loop/")</span> <span id="L107" class="LineNr">107 </span> <span class="subxComment"># var top = top(label-stack)</span> -<span id="L108" class="LineNr">108 </span> <span class="subxComment"># print(out, "_loop" top)</span> +<span id="L108" class="LineNr">108 </span> <span class="subxComment"># print(out, "@loop" top)</span> <span id="L109" class="LineNr">109 </span> <span class="subxComment"># word-slice->start += len("loop")</span> <span id="L110" class="LineNr">110 </span> <span class="subxComment"># print(out, word-slice " ")</span> <span id="L111" class="LineNr">111 </span> <span class="subxComment"># print(out, "\n")</span> @@ -211,13 +211,13 @@ if ('onhashchange' in window) { <span id="L152" class="LineNr">152 </span> <span class="subxS1Comment"># . eax = line->data[line->read]</span> <span id="L153" class="LineNr">153 </span> 8b/-> *(ecx+4) 0/r32/eax <span id="L154" class="LineNr">154 </span> 8a/copy-byte *(ecx+eax+0xc) 0/r32/AL -<span id="L155" class="LineNr">155 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L155" class="LineNr">155 </span> 25/and-eax-with 0xff/imm32 <span id="L156" class="LineNr">156 </span> <span class="subxS1Comment"># . if (eax != '{') continue</span> <span id="L157" class="LineNr">157 </span> 3d/compare-eax-and 0x7b/imm32/open-curly <span id="L158" class="LineNr">158 </span> 0f 85/jump-if-!= $subx-braces:check-for-curly-closed/disp32 <span id="L159" class="LineNr">159 </span><span class="Constant">$subx-braces:emit-curly-open</span>: -<span id="L160" class="LineNr">160 </span> <span class="subxComment"># print(out, "_loop" next-label-id ":")</span> -<span id="L161" class="LineNr">161 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"_loop"</span>) +<span id="L160" class="LineNr">160 </span> <span class="subxComment"># print(out, "@loop" next-label-id ":")</span> +<span id="L161" class="LineNr">161 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"@loop"</span>) <span id="L162" class="LineNr">162 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+0xc) %ebx) <span id="L163" class="LineNr">163 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">":"</span>) <span id="L164" class="LineNr">164 </span> <span class="subxComment"># push(label-stack, next-label-id)</span> @@ -233,8 +233,8 @@ if ('onhashchange' in window) { <span id="L174" class="LineNr">174 </span><span class="Constant">$subx-braces:emit-curly-closed</span>: <span id="L175" class="LineNr">175 </span> <span class="subxComment"># eax = pop(label-stack)</span> <span id="L176" class="LineNr">176 </span> (<a href='203stack.subx.html#L234'>pop</a> %edx) -<span id="L177" class="LineNr">177 </span> <span class="subxComment"># print(out, "_break" eax ":")</span> -<span id="L178" class="LineNr">178 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"_break"</span>) +<span id="L177" class="LineNr">177 </span> <span class="subxComment"># print(out, "@break" eax ":")</span> +<span id="L178" class="LineNr">178 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"@break"</span>) <span id="L179" class="LineNr">179 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+0xc) %eax) <span id="L180" class="LineNr">180 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">":"</span>) <span id="L181" class="LineNr">181 </span> <span class="subxComment"># continue</span> @@ -251,7 +251,7 @@ if ('onhashchange' in window) { <span id="L192" class="LineNr">192 </span> <span class="subxS1Comment"># . eax = *word-slice->start</span> <span id="L193" class="LineNr">193 </span> 8b/-> *edi 0/r32/eax <span id="L194" class="LineNr">194 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L195" class="LineNr">195 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L195" class="LineNr">195 </span> 25/and-eax-with 0xff/imm32 <span id="L196" class="LineNr">196 </span> <span class="subxS1Comment"># . if (eax == '#') continue</span> <span id="L197" class="LineNr">197 </span> 3d/compare-eax-and 0x23/imm32/hash <span id="L198" class="LineNr">198 </span> 74/jump-if-= $subx-braces:word-loop/disp8 @@ -264,8 +264,8 @@ if ('onhashchange' in window) { <span id="L205" class="LineNr">205 </span> 74/jump-if-= $subx-braces:check-for-loop/disp8 <span id="L206" class="LineNr">206 </span><span class="Constant">$subx-braces:emit-break</span>: <span id="L207" class="LineNr">207 </span> (<a href='203stack.subx.html#L338'>top</a> %edx) -<span id="L208" class="LineNr">208 </span> <span class="subxComment"># print(out, "_break" eax)</span> -<span id="L209" class="LineNr">209 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"_break"</span>) +<span id="L208" class="LineNr">208 </span> <span class="subxComment"># print(out, "@break" eax)</span> +<span id="L209" class="LineNr">209 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"@break"</span>) <span id="L210" class="LineNr">210 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+0xc) %eax) <span id="L211" class="LineNr">211 </span> <span class="subxComment"># word-slice->start += len("break")</span> <span id="L212" class="LineNr">212 </span> 81 0/subop/add *edi 5/imm32/strlen @@ -280,8 +280,8 @@ if ('onhashchange' in window) { <span id="L221" class="LineNr">221 </span> 74/jump-if-= $subx-braces:emit-word-slice/disp8 <span id="L222" class="LineNr">222 </span><span class="Constant">$subx-braces:emit-loop</span>: <span id="L223" class="LineNr">223 </span> (<a href='203stack.subx.html#L338'>top</a> %edx) -<span id="L224" class="LineNr">224 </span> <span class="subxComment"># print(out, "_loop" eax)</span> -<span id="L225" class="LineNr">225 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"_loop"</span>) +<span id="L224" class="LineNr">224 </span> <span class="subxComment"># print(out, "@loop" eax)</span> +<span id="L225" class="LineNr">225 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"@loop"</span>) <span id="L226" class="LineNr">226 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+0xc) %eax) <span id="L227" class="LineNr">227 </span> <span class="subxComment"># word-slice->start += len("loop")</span> <span id="L228" class="LineNr">228 </span> 81 0/subop/add *edi 4/imm32/strlen @@ -343,10 +343,10 @@ if ('onhashchange' in window) { <span id="L288" class="LineNr">288 </span> <span class="subxComment"># }</span> <span id="L289" class="LineNr">289 </span> <span class="subxComment">#</span> <span id="L290" class="LineNr">290 </span> <span class="subxComment"># output:</span> -<span id="L291" class="LineNr">291 </span> <span class="subxComment"># _loop1:</span> -<span id="L292" class="LineNr">292 </span> <span class="subxComment"># ab _break1/imm32</span> -<span id="L293" class="LineNr">293 </span> <span class="subxComment"># cd _loop1/imm32</span> -<span id="L294" class="LineNr">294 </span> <span class="subxComment"># _break1:</span> +<span id="L291" class="LineNr">291 </span> <span class="subxComment"># @loop1:</span> +<span id="L292" class="LineNr">292 </span> <span class="subxComment"># ab @break1/imm32</span> +<span id="L293" class="LineNr">293 </span> <span class="subxComment"># cd @loop1/imm32</span> +<span id="L294" class="LineNr">294 </span> <span class="subxComment"># @break1:</span> <span id="L295" class="LineNr">295 </span> <span class="subxComment">#</span> <span id="L296" class="LineNr">296 </span> <span class="subxS1Comment"># . prologue</span> <span id="L297" class="LineNr">297 </span> 55/push-ebp @@ -362,7 +362,7 @@ if ('onhashchange' in window) { <span id="L307" class="LineNr">307 </span> <span class="subxComment"># check that the line just passed through</span> <span id="L308" class="LineNr">308 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L309" class="Folded">309 </span><span class="Folded">+-- 5 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L314" class="LineNr">314 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"_loop0x00000001:\nab _break0x00000001/imm32 \ncd _loop0x00000001/imm32 \n_break0x00000001:\n"</span> <span class="Constant">"F - test-subx-braces-1"</span>) +<span id="L314" class="LineNr">314 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"@loop0x00000001:\nab @break0x00000001/imm32 \ncd @loop0x00000001/imm32 \n@break0x00000001:\n"</span> <span class="Constant">"F - test-subx-braces-1"</span>) <span id="L315" class="LineNr">315 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L316" class="LineNr">316 </span> 89/<- %esp 5/r32/ebp <span id="L317" class="LineNr">317 </span> 5d/pop-to-ebp @@ -378,12 +378,12 @@ if ('onhashchange' in window) { <span id="L327" class="LineNr">327 </span> <span class="subxComment"># }</span> <span id="L328" class="LineNr">328 </span> <span class="subxComment">#</span> <span id="L329" class="LineNr">329 </span> <span class="subxComment"># output:</span> -<span id="L330" class="LineNr">330 </span> <span class="subxComment"># _loop1:</span> -<span id="L331" class="LineNr">331 </span> <span class="subxComment"># _loop2:</span> -<span id="L332" class="LineNr">332 </span> <span class="subxComment"># ab _break2/imm32</span> -<span id="L333" class="LineNr">333 </span> <span class="subxComment"># _break2:</span> -<span id="L334" class="LineNr">334 </span> <span class="subxComment"># cd _loop1/imm32</span> -<span id="L335" class="LineNr">335 </span> <span class="subxComment"># _break1:</span> +<span id="L330" class="LineNr">330 </span> <span class="subxComment"># @loop1:</span> +<span id="L331" class="LineNr">331 </span> <span class="subxComment"># @loop2:</span> +<span id="L332" class="LineNr">332 </span> <span class="subxComment"># ab @break2/imm32</span> +<span id="L333" class="LineNr">333 </span> <span class="subxComment"># @break2:</span> +<span id="L334" class="LineNr">334 </span> <span class="subxComment"># cd @loop1/imm32</span> +<span id="L335" class="LineNr">335 </span> <span class="subxComment"># @break1:</span> <span id="L336" class="LineNr">336 </span> <span class="subxComment">#</span> <span id="L337" class="LineNr">337 </span> <span class="subxS1Comment"># . prologue</span> <span id="L338" class="LineNr">338 </span> 55/push-ebp @@ -399,7 +399,7 @@ if ('onhashchange' in window) { <span id="L348" class="LineNr">348 </span> <span class="subxComment"># check that the line just passed through</span> <span id="L349" class="LineNr">349 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L350" class="Folded">350 </span><span class="Folded">+-- 5 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L355" class="LineNr">355 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"_loop0x00000001:\n_loop0x00000002:\nab _break0x00000002/imm32 \n_break0x00000002:\ncd _loop0x00000001/imm32 \n_break0x00000001:\n"</span> <span class="Constant">"F - test-subx-braces-2"</span>) +<span id="L355" class="LineNr">355 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"@loop0x00000001:\n@loop0x00000002:\nab @break0x00000002/imm32 \n@break0x00000002:\ncd @loop0x00000001/imm32 \n@break0x00000001:\n"</span> <span class="Constant">"F - test-subx-braces-2"</span>) <span id="L356" class="LineNr">356 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L357" class="LineNr">357 </span> 89/<- %esp 5/r32/ebp <span id="L358" class="LineNr">358 </span> 5d/pop-to-ebp diff --git a/html/linux/branches.mu.html b/html/linux/branches.mu.html new file mode 100644 index 00000000..39771bb1 --- /dev/null +++ b/html/linux/branches.mu.html @@ -0,0 +1,99 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - linux/branches.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-dark"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #a8a8a8; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #a8a8a8; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.PreProc { color: #c000c0; } +.LineNr { } +.Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/linux/branches.mu'>https://github.com/akkartik/mu/blob/main/linux/branches.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='branches.mu.html#L1'>foo</a></span> <span class="Delimiter">{</span> +<span id="L2" class="LineNr"> 2 </span> $foo: <span class="Delimiter">{</span> +<span id="L3" class="LineNr"> 3 </span> <span class="PreProc">break-if-=</span> +<span id="L4" class="LineNr"> 4 </span> <span class="PreProc">break-if-=</span> $foo +<span id="L5" class="LineNr"> 5 </span> <span class="PreProc">break-if-!=</span> +<span id="L6" class="LineNr"> 6 </span> <span class="PreProc">break-if-!=</span> $foo +<span id="L7" class="LineNr"> 7 </span> <span class="PreProc">break-if-<=</span> +<span id="L8" class="LineNr"> 8 </span> <span class="PreProc">break-if-<=</span> $foo +<span id="L9" class="LineNr"> 9 </span> <span class="PreProc">break-if->=</span> +<span id="L10" class="LineNr">10 </span> <span class="PreProc">break-if->=</span> $foo +<span id="L11" class="LineNr">11 </span> <span class="PreProc">break-if-<</span> +<span id="L12" class="LineNr">12 </span> <span class="PreProc">break-if-<</span> $foo +<span id="L13" class="LineNr">13 </span> <span class="PreProc">break-if-></span> +<span id="L14" class="LineNr">14 </span> <span class="PreProc">break-if-></span> $foo +<span id="L15" class="LineNr">15 </span> <span class="PreProc">break-if-carry</span> +<span id="L16" class="LineNr">16 </span> <span class="PreProc">break-if-carry</span> $foo +<span id="L17" class="LineNr">17 </span> <span class="PreProc">break-if-overflow</span> +<span id="L18" class="LineNr">18 </span> <span class="PreProc">break-if-overflow</span> $foo +<span id="L19" class="LineNr">19 </span> <span class="PreProc">loop-if-=</span> +<span id="L20" class="LineNr">20 </span> <span class="PreProc">loop-if-=</span> $foo +<span id="L21" class="LineNr">21 </span> <span class="PreProc">loop-if-!=</span> +<span id="L22" class="LineNr">22 </span> <span class="PreProc">loop-if-!=</span> $foo +<span id="L23" class="LineNr">23 </span> <span class="PreProc">loop-if-<=</span> +<span id="L24" class="LineNr">24 </span> <span class="PreProc">loop-if-<=</span> $foo +<span id="L25" class="LineNr">25 </span> <span class="PreProc">loop-if->=</span> +<span id="L26" class="LineNr">26 </span> <span class="PreProc">loop-if->=</span> $foo +<span id="L27" class="LineNr">27 </span> <span class="PreProc">loop-if-<</span> +<span id="L28" class="LineNr">28 </span> <span class="PreProc">loop-if-<</span> $foo +<span id="L29" class="LineNr">29 </span> <span class="PreProc">loop-if-></span> +<span id="L30" class="LineNr">30 </span> <span class="PreProc">loop-if-></span> $foo +<span id="L31" class="LineNr">31 </span> <span class="PreProc">loop-if-carry</span> +<span id="L32" class="LineNr">32 </span> <span class="PreProc">loop-if-carry</span> $foo +<span id="L33" class="LineNr">33 </span> <span class="PreProc">loop-if-not-carry</span> +<span id="L34" class="LineNr">34 </span> <span class="PreProc">loop-if-not-carry</span> $foo +<span id="L35" class="LineNr">35 </span> <span class="PreProc">loop-if-overflow</span> +<span id="L36" class="LineNr">36 </span> <span class="PreProc">loop-if-overflow</span> $foo +<span id="L37" class="LineNr">37 </span> <span class="PreProc">loop-if-not-overflow</span> +<span id="L38" class="LineNr">38 </span> <span class="PreProc">loop-if-not-overflow</span> $foo +<span id="L39" class="LineNr">39 </span> <span class="Delimiter">}</span> +<span id="L40" class="LineNr">40 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/linux/calls.subx.html b/html/linux/calls.subx.html index 2c586b7c..f6e181cc 100644 --- a/html/linux/calls.subx.html +++ b/html/linux/calls.subx.html @@ -450,7 +450,7 @@ if ('onhashchange' in window) { <span id="L428" class="LineNr"> 428 </span> <span class="subxS2Comment"># . . eax = *(curr->start+4)</span> <span id="L429" class="LineNr"> 429 </span> 8b/-> *ecx 0/r32/eax <span id="L430" class="LineNr"> 430 </span> 8a/copy-byte *(eax+4) 0/r32/eax -<span id="L431" class="LineNr"> 431 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L431" class="LineNr"> 431 </span> 25/and-eax-with 0xff/imm32 <span id="L432" class="LineNr"> 432 </span> <span class="subxS2Comment"># . . push args</span> <span id="L433" class="LineNr"> 433 </span> 50/push-eax <span id="L434" class="LineNr"> 434 </span> ff 6/subop/push *(ebp+8) @@ -473,7 +473,7 @@ if ('onhashchange' in window) { <span id="L451" class="LineNr"> 451 </span> 8b/-> *ecx 0/r32/eax <span id="L452" class="LineNr"> 452 </span> <span class="subxS1Comment"># . var c/eax: byte = *eax</span> <span id="L453" class="LineNr"> 453 </span> 8b/-> *eax 0/r32/eax -<span id="L454" class="LineNr"> 454 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L454" class="LineNr"> 454 </span> 25/and-eax-with 0xff/imm32 <span id="L455" class="LineNr"> 455 </span> <span class="subxS1Comment"># . if (c == '%') goto push-rm32</span> <span id="L456" class="LineNr"> 456 </span> 3d/compare-eax-and 0x25/imm32/percent <span id="L457" class="LineNr"> 457 </span> 74/jump-if-= $emit-call:push-rm32/disp8 @@ -1351,7 +1351,7 @@ if ('onhashchange' in window) { <span id="L1361" class="LineNr">1361 </span> 68/push 0xe/imm32 <span id="L1362" class="LineNr">1362 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> <span id="L1363" class="LineNr">1363 </span> 8b/-> *ecx 0/r32/eax -<span id="L1364" class="LineNr">1364 </span> 81 5/subop/subtract %eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1364" class="LineNr">1364 </span> 2d/subtract-from-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1365" class="LineNr">1365 </span> 50/push-eax <span id="L1366" class="LineNr">1366 </span> <span class="subxS2Comment"># . . call</span> <span id="L1367" class="LineNr">1367 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 @@ -1364,7 +1364,7 @@ if ('onhashchange' in window) { <span id="L1374" class="LineNr">1374 </span> 68/push 0x10/imm32 <span id="L1375" class="LineNr">1375 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> <span id="L1376" class="LineNr">1376 </span> 8b/-> *(ecx+4) 0/r32/eax -<span id="L1377" class="LineNr">1377 </span> 81 5/subop/subtract %eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1377" class="LineNr">1377 </span> 2d/subtract-from-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1378" class="LineNr">1378 </span> 50/push-eax <span id="L1379" class="LineNr">1379 </span> <span class="subxS2Comment"># . . call</span> <span id="L1380" class="LineNr">1380 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 @@ -1424,7 +1424,7 @@ if ('onhashchange' in window) { <span id="L1434" class="LineNr">1434 </span> 68/push 0xe/imm32 <span id="L1435" class="LineNr">1435 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> <span id="L1436" class="LineNr">1436 </span> 8b/-> *ecx 0/r32/eax -<span id="L1437" class="LineNr">1437 </span> 81 5/subop/subtract %eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1437" class="LineNr">1437 </span> 2d/subtract-from-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1438" class="LineNr">1438 </span> 50/push-eax <span id="L1439" class="LineNr">1439 </span> <span class="subxS2Comment"># . . call</span> <span id="L1440" class="LineNr">1440 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 @@ -1437,7 +1437,7 @@ if ('onhashchange' in window) { <span id="L1447" class="LineNr">1447 </span> 68/push 0x11/imm32 <span id="L1448" class="LineNr">1448 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> <span id="L1449" class="LineNr">1449 </span> 8b/-> *(ecx+4) 0/r32/eax -<span id="L1450" class="LineNr">1450 </span> 81 5/subop/subtract %eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1450" class="LineNr">1450 </span> 2d/subtract-from-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1451" class="LineNr">1451 </span> 50/push-eax <span id="L1452" class="LineNr">1452 </span> <span class="subxS2Comment"># . . call</span> <span id="L1453" class="LineNr">1453 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 @@ -1487,7 +1487,7 @@ if ('onhashchange' in window) { <span id="L1497" class="LineNr">1497 </span> 68/push 0xd/imm32 <span id="L1498" class="LineNr">1498 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> <span id="L1499" class="LineNr">1499 </span> 8b/-> *ecx 0/r32/eax -<span id="L1500" class="LineNr">1500 </span> 81 5/subop/subtract %eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1500" class="LineNr">1500 </span> 2d/subtract-from-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1501" class="LineNr">1501 </span> 50/push-eax <span id="L1502" class="LineNr">1502 </span> <span class="subxS2Comment"># . . call</span> <span id="L1503" class="LineNr">1503 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 @@ -1500,7 +1500,7 @@ if ('onhashchange' in window) { <span id="L1510" class="LineNr">1510 </span> 68/push 0x12/imm32 <span id="L1511" class="LineNr">1511 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> <span id="L1512" class="LineNr">1512 </span> 8b/-> *(ecx+4) 0/r32/eax -<span id="L1513" class="LineNr">1513 </span> 81 5/subop/subtract %eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1513" class="LineNr">1513 </span> 2d/subtract-from-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1514" class="LineNr">1514 </span> 50/push-eax <span id="L1515" class="LineNr">1515 </span> <span class="subxS2Comment"># . . call</span> <span id="L1516" class="LineNr">1516 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 @@ -1550,7 +1550,7 @@ if ('onhashchange' in window) { <span id="L1560" class="LineNr">1560 </span> 68/push 0xd/imm32 <span id="L1561" class="LineNr">1561 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> <span id="L1562" class="LineNr">1562 </span> 8b/-> *ecx 0/r32/eax -<span id="L1563" class="LineNr">1563 </span> 81 5/subop/subtract %eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1563" class="LineNr">1563 </span> 2d/subtract-from-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1564" class="LineNr">1564 </span> 50/push-eax <span id="L1565" class="LineNr">1565 </span> <span class="subxS2Comment"># . . call</span> <span id="L1566" class="LineNr">1566 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 @@ -1563,7 +1563,7 @@ if ('onhashchange' in window) { <span id="L1573" class="LineNr">1573 </span> 68/push 0x13/imm32 <span id="L1574" class="LineNr">1574 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> <span id="L1575" class="LineNr">1575 </span> 8b/-> *(ecx+4) 0/r32/eax -<span id="L1576" class="LineNr">1576 </span> 81 5/subop/subtract %eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1576" class="LineNr">1576 </span> 2d/subtract-from-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1577" class="LineNr">1577 </span> 50/push-eax <span id="L1578" class="LineNr">1578 </span> <span class="subxS2Comment"># . . call</span> <span id="L1579" class="LineNr">1579 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 @@ -1613,7 +1613,7 @@ if ('onhashchange' in window) { <span id="L1623" class="LineNr">1623 </span> 68/push 0xd/imm32 <span id="L1624" class="LineNr">1624 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> <span id="L1625" class="LineNr">1625 </span> 8b/-> *ecx 0/r32/eax -<span id="L1626" class="LineNr">1626 </span> 81 5/subop/subtract %eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1626" class="LineNr">1626 </span> 2d/subtract-from-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1627" class="LineNr">1627 </span> 50/push-eax <span id="L1628" class="LineNr">1628 </span> <span class="subxS2Comment"># . . call</span> <span id="L1629" class="LineNr">1629 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 @@ -1626,7 +1626,7 @@ if ('onhashchange' in window) { <span id="L1636" class="LineNr">1636 </span> 68/push 0x13/imm32 <span id="L1637" class="LineNr">1637 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> <span id="L1638" class="LineNr">1638 </span> 8b/-> *(ecx+4) 0/r32/eax -<span id="L1639" class="LineNr">1639 </span> 81 5/subop/subtract %eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1639" class="LineNr">1639 </span> 2d/subtract-from-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1640" class="LineNr">1640 </span> 50/push-eax <span id="L1641" class="LineNr">1641 </span> <span class="subxS2Comment"># . . call</span> <span id="L1642" class="LineNr">1642 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 @@ -1841,7 +1841,7 @@ if ('onhashchange' in window) { <span id="L1851" class="LineNr">1851 </span> 68/push 0xd/imm32 <span id="L1852" class="LineNr">1852 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> <span id="L1853" class="LineNr">1853 </span> 8b/-> *ecx 0/r32/eax -<span id="L1854" class="LineNr">1854 </span> 81 5/subop/subtract %eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1854" class="LineNr">1854 </span> 2d/subtract-from-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1855" class="LineNr">1855 </span> 50/push-eax <span id="L1856" class="LineNr">1856 </span> <span class="subxS2Comment"># . . call</span> <span id="L1857" class="LineNr">1857 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 @@ -1854,7 +1854,7 @@ if ('onhashchange' in window) { <span id="L1864" class="LineNr">1864 </span> 68/push 0x10/imm32 <span id="L1865" class="LineNr">1865 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> <span id="L1866" class="LineNr">1866 </span> 8b/-> *(ecx+4) 0/r32/eax -<span id="L1867" class="LineNr">1867 </span> 81 5/subop/subtract %eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1867" class="LineNr">1867 </span> 2d/subtract-from-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1868" class="LineNr">1868 </span> 50/push-eax <span id="L1869" class="LineNr">1869 </span> <span class="subxS2Comment"># . . call</span> <span id="L1870" class="LineNr">1870 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 diff --git a/html/linux/labels_baremetal.subx.html b/html/linux/labels_baremetal.subx.html new file mode 100644 index 00000000..61bdaaa9 --- /dev/null +++ b/html/linux/labels_baremetal.subx.html @@ -0,0 +1,2458 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - linux/labels_baremetal.subx</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-dark"> +<style type="text/css"> +<!-- +pre { font-family: monospace; color: #000000; background-color: #a8a8a8; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #a8a8a8; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.subxH1Comment { color: #005faf; text-decoration: underline; } +.subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } +.subxS2Comment { color: #8a8a8a; } +.LineNr { } +.Constant { color: #008787; } +.subxTest { color: #5f8700; } +.SpecialChar { color: #d70000; } +.Normal { color: #000000; background-color: #a8a8a8; padding-bottom: 1px; } +.CommentedCode { color: #8a8a8a; } +.subxFunction { color: #af5f00; text-decoration: underline; } +.Folded { color: #080808; background-color: #949494; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/linux/labels_baremetal.subx'>https://github.com/akkartik/mu/blob/main/linux/labels_baremetal.subx</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Assign addresses (co-ordinates) to instructions (landmarks) in a program</span> +<span id="L2" class="LineNr"> 2 </span><span class="subxComment"># (landscape).</span> +<span id="L3" class="LineNr"> 3 </span><span class="subxComment"># Read a list of addresses and labels from a file called 'labels',</span> +<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># then replace labels in stdin with their addresses.</span> +<span id="L5" class="LineNr"> 5 </span><span class="subxComment">#</span> +<span id="L6" class="LineNr"> 6 </span><span class="subxComment"># To build:</span> +<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># $ bootstrap/bootstrap translate [01]*.subx subx-params.subx labels_baremetal.subx -o labels_baremetal</span> +<span id="L8" class="LineNr"> 8 </span><span class="subxComment">#</span> +<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># Stdin should be a stream of bytes and some interspersed labels. Comments and</span> +<span id="L10" class="LineNr"> 10 </span><span class="subxComment"># '==' segment headers are allowed, but names are ignored. The emitted code</span> +<span id="L11" class="LineNr"> 11 </span><span class="subxComment"># will all lie in a single contiguous address range starting at address 0x7c00.</span> +<span id="L12" class="LineNr"> 12 </span><span class="subxComment"># Addresses in segment headers are optional. If provided, this program will</span> +<span id="L13" class="LineNr"> 13 </span><span class="subxComment"># insert padding in the output until the desired address is reached.</span> +<span id="L14" class="LineNr"> 14 </span><span class="subxComment">#</span> +<span id="L15" class="LineNr"> 15 </span><span class="subxComment"># $ cat x</span> +<span id="L16" class="LineNr"> 16 </span><span class="subxComment"># == code</span> +<span id="L17" class="LineNr"> 17 </span><span class="subxComment"># l1:</span> +<span id="L18" class="LineNr"> 18 </span><span class="subxComment"># aa bb l1/imm8</span> +<span id="L19" class="LineNr"> 19 </span><span class="subxComment"># cc dd l2/disp32</span> +<span id="L20" class="LineNr"> 20 </span><span class="subxComment"># l2:</span> +<span id="L21" class="LineNr"> 21 </span><span class="subxComment"># ee foo/imm32</span> +<span id="L22" class="LineNr"> 22 </span><span class="subxComment"># == data 0x7c10</span> +<span id="L23" class="LineNr"> 23 </span><span class="subxComment"># foo:</span> +<span id="L24" class="LineNr"> 24 </span><span class="subxComment"># 34</span> +<span id="L25" class="LineNr"> 25 </span><span class="subxComment">#</span> +<span id="L26" class="LineNr"> 26 </span><span class="subxComment"># The output is the stream of bytes without segment headers or label definitions,</span> +<span id="L27" class="LineNr"> 27 </span><span class="subxComment"># and with label references replaced with numeric values/displacements.</span> +<span id="L28" class="LineNr"> 28 </span><span class="subxComment">#</span> +<span id="L29" class="LineNr"> 29 </span><span class="subxComment"># $ cat x |bootstrap/bootstrap run survey_baremetal labels</span> +<span id="L30" class="LineNr"> 30 </span><span class="subxComment"># # 0x7c00</span> +<span id="L31" class="LineNr"> 31 </span><span class="subxComment"># aa bb nn # some computed address</span> +<span id="L32" class="LineNr"> 32 </span><span class="subxComment"># cc dd nn nn nn nn # some computed displacement</span> +<span id="L33" class="LineNr"> 33 </span><span class="subxComment"># ee nn nn nn nn # address right after this instruction</span> +<span id="L34" class="LineNr"> 34 </span><span class="subxComment"># # 0x7c0e</span> +<span id="L35" class="LineNr"> 35 </span><span class="subxComment"># 00 00 # padding</span> +<span id="L36" class="LineNr"> 36 </span><span class="subxComment"># # 0x7c10</span> +<span id="L37" class="LineNr"> 37 </span><span class="subxComment"># 34 # data segment interleaved with code</span> +<span id="L38" class="LineNr"> 38 </span> +<span id="L39" class="LineNr"> 39 </span>== code +<span id="L40" class="LineNr"> 40 </span><span class="subxComment"># instruction effective address register displacement immediate</span> +<span id="L41" class="LineNr"> 41 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> +<span id="L42" class="LineNr"> 42 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> +<span id="L43" class="LineNr"> 43 </span> +<span id="L44" class="LineNr"> 44 </span><span class="SpecialChar">Entry</span>: <span class="subxComment"># run tests if necessary, convert stdin if not</span> +<span id="L45" class="LineNr"> 45 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L46" class="LineNr"> 46 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L47" class="LineNr"> 47 </span> +<span id="L48" class="LineNr"> 48 </span> <span class="subxComment"># Heap = new-segment(Heap-size)</span> +<span id="L49" class="LineNr"> 49 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L50" class="LineNr"> 50 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L51" class="LineNr"> 51 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L34'>Heap-size</a></span>/disp32 <span class="subxComment"># push *Heap-size</span> +<span id="L52" class="LineNr"> 52 </span> <span class="subxS2Comment"># . . call</span> +<span id="L53" class="LineNr"> 53 </span> e8/call <a href='104new-segment.subx.html#L40'>new-segment</a>/disp32 +<span id="L54" class="LineNr"> 54 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L55" class="LineNr"> 55 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L56" class="LineNr"> 56 </span> <span class="subxComment"># initialize-trace-stream(Trace-size)</span> +<span id="L57" class="LineNr"> 57 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L58" class="LineNr"> 58 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar">Trace-size</span>/disp32 <span class="subxComment"># push *Heap-size</span> +<span id="L59" class="LineNr"> 59 </span> <span class="subxS2Comment"># . . call</span> +<span id="L60" class="LineNr"> 60 </span> e8/call <a href='107trace.subx.html#L43'>initialize-trace-stream</a>/disp32 +<span id="L61" class="LineNr"> 61 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L62" class="LineNr"> 62 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L63" class="LineNr"> 63 </span> +<span id="L64" class="LineNr"> 64 </span> <span class="subxH1Comment"># - if argc > 1 and argv[1] == "test", then return run_tests()</span> +<span id="L65" class="LineNr"> 65 </span> <span class="subxComment"># if (argc <= 1) goto interactive</span> +<span id="L66" class="LineNr"> 66 </span> 81 7/subop/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/disp8 1/imm32 <span class="subxComment"># compare *ebp</span> +<span id="L67" class="LineNr"> 67 </span> 7e/jump-if-<= $subx-labels-main:interactive/disp8 +<span id="L68" class="LineNr"> 68 </span> <span class="subxComment"># if (!kernel-string-equal?(argv[1], "test")) goto interactive</span> +<span id="L69" class="LineNr"> 69 </span> <span class="subxS1Comment"># . eax = kernel-string-equal?(argv[1], "test")</span> +<span id="L70" class="LineNr"> 70 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L71" class="LineNr"> 71 </span> 68/push <span class="Constant">"test"</span>/imm32 +<span id="L72" class="LineNr"> 72 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L73" class="LineNr"> 73 </span> <span class="subxS2Comment"># . . call</span> +<span id="L74" class="LineNr"> 74 </span> e8/call <a href='103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a>/disp32 +<span id="L75" class="LineNr"> 75 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L76" class="LineNr"> 76 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L77" class="LineNr"> 77 </span> <span class="subxS1Comment"># . if (eax == false) goto interactive</span> +<span id="L78" class="LineNr"> 78 </span> 3d/compare-eax-and 0/imm32/false +<span id="L79" class="LineNr"> 79 </span> 74/jump-if-= $subx-labels-main:interactive/disp8 +<span id="L80" class="LineNr"> 80 </span> <span class="subxComment"># run-tests()</span> +<span id="L81" class="LineNr"> 81 </span><span class="CommentedCode">#? e8/call test-emit-output-with-padding/disp32</span> +<span id="L82" class="LineNr"> 82 </span> e8/call run-tests/disp32 +<span id="L83" class="LineNr"> 83 </span> <span class="subxComment"># syscall(exit, *Num-test-failures)</span> +<span id="L84" class="LineNr"> 84 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="SpecialChar"><a href='102test.subx.html#L89'>Num-test-failures</a></span>/disp32 <span class="subxComment"># copy *Num-test-failures to ebx</span> +<span id="L85" class="LineNr"> 85 </span> eb/jump $subx-labels-main:end/disp8 +<span id="L86" class="LineNr"> 86 </span><span class="Constant">$subx-labels-main:interactive</span>: +<span id="L87" class="LineNr"> 87 </span> <span class="subxH1Comment"># - otherwise convert stdin</span> +<span id="L88" class="LineNr"> 88 </span> <span class="subxComment"># var labels-file/esi: (addr buffered-file) from syscall_open("labels", READ)</span> +<span id="L89" class="LineNr"> 89 </span> <span class="subxS1Comment"># . data</span> +<span id="L90" class="LineNr"> 90 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x1000/imm32 <span class="subxComment"># subtract from esp</span> +<span id="L91" class="LineNr"> 91 </span> <span class="subxS1Comment"># . size</span> +<span id="L92" class="LineNr"> 92 </span> 68/push 0x1000/imm32 +<span id="L93" class="LineNr"> 93 </span> <span class="subxS1Comment"># . read</span> +<span id="L94" class="LineNr"> 94 </span> 68/push 0/imm32/read +<span id="L95" class="LineNr"> 95 </span> <span class="subxS1Comment"># . write</span> +<span id="L96" class="LineNr"> 96 </span> 68/push 0/imm32/write +<span id="L97" class="LineNr"> 97 </span> <span class="subxS1Comment"># . fd = syscall_open("labels", READ)</span> +<span id="L98" class="LineNr"> 98 </span> bb/copy-to-ebx <span class="SpecialChar"><a href='labels_baremetal.subx.html#L128'>Label-file</a></span>/imm32 +<span id="L99" class="LineNr"> 99 </span> b9/copy-to-ecx 0/imm32/read-mode +<span id="L100" class="LineNr"> 100 </span> ba/copy-to-edx 0x180/imm32/permissions +<span id="L101" class="LineNr"> 101 </span> e8/call <a href='000init.subx.html#L35'>syscall_open</a>/disp32 +<span id="L102" class="LineNr"> 102 </span> 50/push-eax +<span id="L103" class="LineNr"> 103 </span> 89/copy 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to esi</span> +<span id="L104" class="LineNr"> 104 </span> <span class="subxComment"># subx-labels(Stdin, label-fd, Stdout)</span> +<span id="L105" class="LineNr"> 105 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L106" class="LineNr"> 106 </span> 68/push <span class="SpecialChar"><a href='115write-byte.subx.html#L10'>Stdout</a></span>/imm32 +<span id="L107" class="LineNr"> 107 </span> 56/push-esi +<span id="L108" class="LineNr"> 108 </span> 68/push <span class="SpecialChar"><a href='112read-byte.subx.html#L14'>Stdin</a></span>/imm32 +<span id="L109" class="LineNr"> 109 </span> <span class="subxS2Comment"># . . call</span> +<span id="L110" class="LineNr"> 110 </span> e8/call <a href='labels_baremetal.subx.html#L133'>subx-labels</a>/disp32 +<span id="L111" class="LineNr"> 111 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L112" class="LineNr"> 112 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L113" class="LineNr"> 113 </span><span class="CommentedCode">#? # . write-stream(2/stderr, Trace-stream)</span> +<span id="L114" class="LineNr"> 114 </span><span class="CommentedCode">#? # . . push args</span> +<span id="L115" class="LineNr"> 115 </span><span class="CommentedCode">#? ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 . . . Trace-stream/disp32 # push *Trace-stream</span> +<span id="L116" class="LineNr"> 116 </span><span class="CommentedCode">#? 68/push 2/imm32/stderr</span> +<span id="L117" class="LineNr"> 117 </span><span class="CommentedCode">#? # . . call</span> +<span id="L118" class="LineNr"> 118 </span><span class="CommentedCode">#? e8/call write-stream/disp32</span> +<span id="L119" class="LineNr"> 119 </span><span class="CommentedCode">#? # . . discard args</span> +<span id="L120" class="LineNr"> 120 </span><span class="CommentedCode">#? 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 8/imm32 # add to esp</span> +<span id="L121" class="LineNr"> 121 </span> <span class="subxComment"># syscall(exit, 0)</span> +<span id="L122" class="LineNr"> 122 </span> bb/copy-to-ebx 0/imm32 +<span id="L123" class="LineNr"> 123 </span><span class="Constant">$subx-labels-main:end</span>: +<span id="L124" class="LineNr"> 124 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L125" class="LineNr"> 125 </span> +<span id="L126" class="LineNr"> 126 </span>== data +<span id="L127" class="LineNr"> 127 </span> +<span id="L128" class="LineNr"> 128 </span><span class="SpecialChar">Label-file</span>: +<span id="L129" class="LineNr"> 129 </span> 6c/l 61/a 62/b 65/e 6c/l 73/s 00/nul +<span id="L130" class="LineNr"> 130 </span> +<span id="L131" class="LineNr"> 131 </span>== code +<span id="L132" class="LineNr"> 132 </span> +<span id="L133" class="LineNr"> 133 </span><span class="subxFunction">subx-labels</span>: <span class="subxComment"># infile: (addr buffered-file), labels-file: (addr buffered-file), out: (addr buffered-file)</span> +<span id="L134" class="LineNr"> 134 </span> <span class="subxComment"># pseudocode</span> +<span id="L135" class="LineNr"> 135 </span> <span class="subxComment"># var labels: (stream {label-name, address} Max-labels)</span> +<span id="L136" class="LineNr"> 136 </span> <span class="subxComment"># load-labels(labels-file, labels)</span> +<span id="L137" class="LineNr"> 137 </span> <span class="subxComment"># var in: (stream byte Input-size)</span> +<span id="L138" class="LineNr"> 138 </span> <span class="subxComment"># slurp(infile, in)</span> +<span id="L139" class="LineNr"> 139 </span> <span class="subxComment"># emit-output(in, out, labels)</span> +<span id="L140" class="LineNr"> 140 </span> <span class="subxComment">#</span> +<span id="L141" class="LineNr"> 141 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L142" class="LineNr"> 142 </span> 55/push-ebp +<span id="L143" class="LineNr"> 143 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L144" class="LineNr"> 144 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L145" class="LineNr"> 145 </span> 52/push-edx +<span id="L146" class="LineNr"> 146 </span> 56/push-esi +<span id="L147" class="LineNr"> 147 </span> <span class="subxComment"># var labels/edx: (stream {label-name, address} Max-labels)</span> +<span id="L148" class="LineNr"> 148 </span> <span class="subxComment"># (we get more rows than Max-labels advertises because row size is smaller than in survey_elf)</span> +<span id="L149" class="LineNr"> 149 </span> <span class="subxS1Comment"># . data</span> +<span id="L150" class="LineNr"> 150 </span> 2b/subtract 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="SpecialChar">Max-labels</span>/disp32 <span class="subxComment"># subtract *Max-labels from esp</span> +<span id="L151" class="LineNr"> 151 </span> <span class="subxS1Comment"># . size</span> +<span id="L152" class="LineNr"> 152 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar">Max-labels</span>/disp32 <span class="subxComment"># push *Max-labels</span> +<span id="L153" class="LineNr"> 153 </span> <span class="subxS1Comment"># . read</span> +<span id="L154" class="LineNr"> 154 </span> 68/push 0/imm32/read +<span id="L155" class="LineNr"> 155 </span> <span class="subxS1Comment"># . write</span> +<span id="L156" class="LineNr"> 156 </span> 68/push 0/imm32/write +<span id="L157" class="LineNr"> 157 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L158" class="LineNr"> 158 </span> <span class="subxComment"># load-labels(labels-file, labels)</span> +<span id="L159" class="LineNr"> 159 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L160" class="LineNr"> 160 </span> 52/push-edx +<span id="L161" class="LineNr"> 161 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L162" class="LineNr"> 162 </span> <span class="subxS2Comment"># . . call</span> +<span id="L163" class="LineNr"> 163 </span> e8/call <a href='labels_baremetal.subx.html#L213'>load-labels</a>/disp32 +<span id="L164" class="LineNr"> 164 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L165" class="LineNr"> 165 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L166" class="LineNr"> 166 </span> <span class="subxComment"># var in/esi: (stream byte Input-size)</span> +<span id="L167" class="LineNr"> 167 </span> <span class="subxS1Comment"># . data</span> +<span id="L168" class="LineNr"> 168 </span> 2b/subtract 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="SpecialChar">Input-size</span>/disp32 <span class="subxComment"># subtract *Input-size from esp</span> +<span id="L169" class="LineNr"> 169 </span> <span class="subxS1Comment"># . size</span> +<span id="L170" class="LineNr"> 170 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar">Input-size</span>/disp32 <span class="subxComment"># push *Input-size</span> +<span id="L171" class="LineNr"> 171 </span> <span class="subxS1Comment"># . read</span> +<span id="L172" class="LineNr"> 172 </span> 68/push 0/imm32/read +<span id="L173" class="LineNr"> 173 </span> <span class="subxS1Comment"># . write</span> +<span id="L174" class="LineNr"> 174 </span> 68/push 0/imm32/write +<span id="L175" class="LineNr"> 175 </span> 89/copy 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to esi</span> +<span id="L176" class="LineNr"> 176 </span> <span class="subxComment"># slurp(infile, in)</span> +<span id="L177" class="LineNr"> 177 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L178" class="LineNr"> 178 </span> 56/push-esi +<span id="L179" class="LineNr"> 179 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L180" class="LineNr"> 180 </span> <span class="subxS2Comment"># . . call</span> +<span id="L181" class="LineNr"> 181 </span> e8/call <a href='132slurp.subx.html#L8'>slurp</a>/disp32 +<span id="L182" class="LineNr"> 182 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L183" class="LineNr"> 183 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L184" class="LineNr"> 184 </span> <span class="subxComment"># emit-output(in, out, labels)</span> +<span id="L185" class="LineNr"> 185 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L186" class="LineNr"> 186 </span> 52/push-edx +<span id="L187" class="LineNr"> 187 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> +<span id="L188" class="LineNr"> 188 </span> 56/push-esi +<span id="L189" class="LineNr"> 189 </span> <span class="subxS2Comment"># . . call</span> +<span id="L190" class="LineNr"> 190 </span> e8/call <a href='labels_baremetal.subx.html#L395'>emit-output</a>/disp32 +<span id="L191" class="LineNr"> 191 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L192" class="LineNr"> 192 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L193" class="LineNr"> 193 </span> <span class="subxComment"># flush(out)</span> +<span id="L194" class="LineNr"> 194 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L195" class="LineNr"> 195 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> +<span id="L196" class="LineNr"> 196 </span> <span class="subxS2Comment"># . . call</span> +<span id="L197" class="LineNr"> 197 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L198" class="LineNr"> 198 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L199" class="LineNr"> 199 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L200" class="LineNr"> 200 </span><span class="Constant">$subx-labels:end</span>: +<span id="L201" class="LineNr"> 201 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L202" class="LineNr"> 202 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/imm32 <span class="subxComment"># add to esp</span> +<span id="L203" class="LineNr"> 203 </span> 03/add 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="SpecialChar">Max-labels</span>/disp32 <span class="subxComment"># add *Max-labels to esp</span> +<span id="L204" class="LineNr"> 204 </span> 03/add 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="SpecialChar">Input-size</span>/disp32 <span class="subxComment"># add *Input-size to esp</span> +<span id="L205" class="LineNr"> 205 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L206" class="LineNr"> 206 </span> 5e/pop-to-esi +<span id="L207" class="LineNr"> 207 </span> 5a/pop-to-edx +<span id="L208" class="LineNr"> 208 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L209" class="LineNr"> 209 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L210" class="LineNr"> 210 </span> 5d/pop-to-ebp +<span id="L211" class="LineNr"> 211 </span> c3/return +<span id="L212" class="LineNr"> 212 </span> +<span id="L213" class="LineNr"> 213 </span><span class="subxFunction">load-labels</span>: <span class="subxComment"># in: (addr buffered-file), labels: (stream {label-name, address} Max-labels)</span> +<span id="L214" class="LineNr"> 214 </span> <span class="subxComment"># pseudocode</span> +<span id="L215" class="LineNr"> 215 </span> <span class="subxComment"># var line: (stream byte 512)</span> +<span id="L216" class="LineNr"> 216 </span> <span class="subxComment"># while true</span> +<span id="L217" class="LineNr"> 217 </span> <span class="subxComment"># clear-stream(line)</span> +<span id="L218" class="LineNr"> 218 </span> <span class="subxComment"># read-line-buffered(in, line)</span> +<span id="L219" class="LineNr"> 219 </span> <span class="subxComment"># if (line->write == 0) break # end of file</span> +<span id="L220" class="LineNr"> 220 </span> <span class="subxComment"># var word-slice/ecx: (addr slice) = next-word(line)</span> +<span id="L221" class="LineNr"> 221 </span> <span class="subxComment"># var dest/edi: (addr int) = get-or-insert-slice(labels, word-slice, 12 bytes/row)</span> +<span id="L222" class="LineNr"> 222 </span> <span class="subxComment"># word-slice = next-word(line)</span> +<span id="L223" class="LineNr"> 223 </span> <span class="subxComment"># var address/eax: int = parse-hex-int-from-slice(word-slice)</span> +<span id="L224" class="LineNr"> 224 </span> <span class="subxComment"># *dest = address</span> +<span id="L225" class="LineNr"> 225 </span> <span class="subxComment">#</span> +<span id="L226" class="LineNr"> 226 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L227" class="LineNr"> 227 </span> 55/push-ebp +<span id="L228" class="LineNr"> 228 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L229" class="LineNr"> 229 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L230" class="LineNr"> 230 </span> 50/push-eax +<span id="L231" class="LineNr"> 231 </span> 51/push-ecx +<span id="L232" class="LineNr"> 232 </span> 52/push-edx +<span id="L233" class="LineNr"> 233 </span> 56/push-esi +<span id="L234" class="LineNr"> 234 </span> 57/push-edi +<span id="L235" class="LineNr"> 235 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> +<span id="L236" class="LineNr"> 236 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x200/imm32 <span class="subxComment"># subtract from esp</span> +<span id="L237" class="LineNr"> 237 </span> 68/push 0x200/imm32/size +<span id="L238" class="LineNr"> 238 </span> 68/push 0/imm32/read +<span id="L239" class="LineNr"> 239 </span> 68/push 0/imm32/write +<span id="L240" class="LineNr"> 240 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L241" class="LineNr"> 241 </span> <span class="subxComment"># var word-slice/edx: slice</span> +<span id="L242" class="LineNr"> 242 </span> 68/push 0/imm32/end +<span id="L243" class="LineNr"> 243 </span> 68/push 0/imm32/start +<span id="L244" class="LineNr"> 244 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L245" class="LineNr"> 245 </span><span class="Constant">$load-labels:loop</span>: +<span id="L246" class="LineNr"> 246 </span> <span class="subxComment"># clear-stream(line)</span> +<span id="L247" class="LineNr"> 247 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L248" class="LineNr"> 248 </span> 51/push-ecx +<span id="L249" class="LineNr"> 249 </span> <span class="subxS2Comment"># . . call</span> +<span id="L250" class="LineNr"> 250 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L251" class="LineNr"> 251 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L252" class="LineNr"> 252 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L253" class="LineNr"> 253 </span> <span class="subxComment"># read-line-buffered(in, line)</span> +<span id="L254" class="LineNr"> 254 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L255" class="LineNr"> 255 </span> 51/push-ecx +<span id="L256" class="LineNr"> 256 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L257" class="LineNr"> 257 </span> <span class="subxS2Comment"># . . call</span> +<span id="L258" class="LineNr"> 258 </span> e8/call <a href='122read-line.subx.html#L9'>read-line-buffered</a>/disp32 +<span id="L259" class="LineNr"> 259 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L260" class="LineNr"> 260 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L261" class="Folded"> 261 </span><span class="Folded">+-- 33 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L294" class="LineNr"> 294 </span> <span class="subxComment"># if (line->write == 0) break</span> +<span id="L295" class="LineNr"> 295 </span> 81 7/subop/compare 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># compare *ecx</span> +<span id="L296" class="LineNr"> 296 </span> 0f 84/jump-if-= $load-labels:end/disp32 +<span id="L297" class="LineNr"> 297 </span> <span class="subxComment"># next-word(line, word-slice)</span> +<span id="L298" class="LineNr"> 298 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L299" class="LineNr"> 299 </span> 52/push-edx +<span id="L300" class="LineNr"> 300 </span> 51/push-ecx +<span id="L301" class="LineNr"> 301 </span> <span class="subxS2Comment"># . . call</span> +<span id="L302" class="LineNr"> 302 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L303" class="LineNr"> 303 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L304" class="LineNr"> 304 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L305" class="Folded"> 305 </span><span class="Folded">+-- 33 lines: #? # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L338" class="LineNr"> 338 </span> <span class="subxComment"># var dest/edi: (addr int) = get-or-insert-slice(labels, word-slice, 12 bytes/row, Heap)</span> +<span id="L339" class="LineNr"> 339 </span> <span class="subxS1Comment"># . eax = get-or-insert-slice(labels, word-slice, 12 bytes/row, Heap)</span> +<span id="L340" class="LineNr"> 340 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L341" class="LineNr"> 341 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L342" class="LineNr"> 342 </span> 68/push 0xc/imm32/row-size +<span id="L343" class="LineNr"> 343 </span> 52/push-edx +<span id="L344" class="LineNr"> 344 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L345" class="LineNr"> 345 </span> <span class="subxS2Comment"># . . call</span> +<span id="L346" class="LineNr"> 346 </span> e8/call <a href='131table.subx.html#L1022'>get-or-insert-slice</a>/disp32 +<span id="L347" class="LineNr"> 347 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L348" class="LineNr"> 348 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L349" class="LineNr"> 349 </span> <span class="subxS1Comment"># . edi = eax</span> +<span id="L350" class="LineNr"> 350 </span> 89/copy 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to edi</span> +<span id="L351" class="LineNr"> 351 </span> <span class="subxComment"># next-word(line, word-slice)</span> +<span id="L352" class="LineNr"> 352 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L353" class="LineNr"> 353 </span> 52/push-edx +<span id="L354" class="LineNr"> 354 </span> 51/push-ecx +<span id="L355" class="LineNr"> 355 </span> <span class="subxS2Comment"># . . call</span> +<span id="L356" class="LineNr"> 356 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L357" class="LineNr"> 357 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L358" class="LineNr"> 358 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L359" class="LineNr"> 359 </span> <span class="subxComment"># var address/esi: int = parse-hex-int-from-slice(word-slice)</span> +<span id="L360" class="LineNr"> 360 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L361" class="LineNr"> 361 </span> 52/push-edx +<span id="L362" class="LineNr"> 362 </span> <span class="subxS2Comment"># . . call</span> +<span id="L363" class="LineNr"> 363 </span> e8/call <a href='118parse-hex-int.subx.html#L387'>parse-hex-int-from-slice</a>/disp32 +<span id="L364" class="LineNr"> 364 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L365" class="LineNr"> 365 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L366" class="LineNr"> 366 </span> <span class="subxS1Comment"># . esi = eax</span> +<span id="L367" class="LineNr"> 367 </span> 89/copy 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to esi</span> +<span id="L368" class="LineNr"> 368 </span> <span class="subxComment"># *dest = address</span> +<span id="L369" class="LineNr"> 369 </span> 89/copy 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esi to *edi</span> +<span id="L370" class="LineNr"> 370 </span> <span class="subxComment">#</span> +<span id="L371" class="LineNr"> 371 </span> e9/jump $load-labels:<span class="Constant">loop</span>/disp32 +<span id="L372" class="LineNr"> 372 </span><span class="Constant">$load-labels:end</span>: +<span id="L373" class="LineNr"> 373 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L374" class="LineNr"> 374 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x214/imm32 <span class="subxComment"># add to esp</span> +<span id="L375" class="LineNr"> 375 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L376" class="LineNr"> 376 </span> 5f/pop-to-edi +<span id="L377" class="LineNr"> 377 </span> 5e/pop-to-esi +<span id="L378" class="LineNr"> 378 </span> 5a/pop-to-edx +<span id="L379" class="LineNr"> 379 </span> 59/pop-to-ecx +<span id="L380" class="LineNr"> 380 </span> 58/pop-to-eax +<span id="L381" class="LineNr"> 381 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L382" class="LineNr"> 382 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L383" class="LineNr"> 383 </span> 5d/pop-to-ebp +<span id="L384" class="LineNr"> 384 </span> c3/return +<span id="L385" class="LineNr"> 385 </span> +<span id="L386" class="LineNr"> 386 </span><span class="subxComment"># global scratch space for emit-output</span> +<span id="L387" class="LineNr"> 387 </span>== data +<span id="L388" class="LineNr"> 388 </span> +<span id="L389" class="LineNr"> 389 </span><span class="subxFunction">emit-output:datum</span>: <span class="subxComment"># slice</span> +<span id="L390" class="LineNr"> 390 </span> 0/imm32/start +<span id="L391" class="LineNr"> 391 </span> 0/imm32/end +<span id="L392" class="LineNr"> 392 </span> +<span id="L393" class="LineNr"> 393 </span>== code +<span id="L394" class="LineNr"> 394 </span> +<span id="L395" class="LineNr"> 395 </span><span class="subxFunction">emit-output</span>: <span class="subxComment"># in: (addr stream byte), out: (addr buffered-file), labels: (addr stream {(handle array byte), address})</span> +<span id="L396" class="LineNr"> 396 </span> <span class="subxComment"># pseudocode:</span> +<span id="L397" class="LineNr"> 397 </span> <span class="subxComment"># var address-of-next-instruction = 0x7c00</span> +<span id="L398" class="LineNr"> 398 </span> <span class="subxComment"># var line: (stream byte 512)</span> +<span id="L399" class="LineNr"> 399 </span> <span class="subxComment"># line-loop:</span> +<span id="L400" class="LineNr"> 400 </span> <span class="subxComment"># while true</span> +<span id="L401" class="LineNr"> 401 </span> <span class="subxComment"># clear-stream(line)</span> +<span id="L402" class="LineNr"> 402 </span> <span class="subxComment"># read-line(in, line)</span> +<span id="L403" class="LineNr"> 403 </span> <span class="subxComment"># if (line->write == 0) break # end of file</span> +<span id="L404" class="LineNr"> 404 </span> <span class="subxComment"># address-of-next-instruction += num-bytes(line)</span> +<span id="L405" class="LineNr"> 405 </span> <span class="subxComment"># var far-jump-or-call? = far-jump-or-call?(line)</span> +<span id="L406" class="LineNr"> 406 </span> <span class="subxComment"># rewind-stream(line)</span> +<span id="L407" class="LineNr"> 407 </span> <span class="subxComment"># while true</span> +<span id="L408" class="LineNr"> 408 </span> <span class="subxComment"># var word-slice = next-word(line)</span> +<span id="L409" class="LineNr"> 409 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> +<span id="L410" class="LineNr"> 410 </span> <span class="subxComment"># break</span> +<span id="L411" class="LineNr"> 411 </span> <span class="subxComment"># if slice-starts-with?(word-slice, "#") # comment</span> +<span id="L412" class="LineNr"> 412 </span> <span class="subxComment"># break</span> +<span id="L413" class="LineNr"> 413 </span> <span class="subxComment"># if label?(word-slice) # no need for label declarations anymore</span> +<span id="L414" class="LineNr"> 414 </span> <span class="subxComment"># goto line-loop # don't insert empty lines</span> +<span id="L415" class="LineNr"> 415 </span> <span class="subxComment"># if slice-equal?(word-slice, "==") # no need for segment header lines</span> +<span id="L416" class="LineNr"> 416 </span> <span class="subxComment"># word-slice = next-word(line) # skip segment name</span> +<span id="L417" class="LineNr"> 417 </span> <span class="subxComment"># word-slice = next-word(line)</span> +<span id="L418" class="LineNr"> 418 </span> <span class="subxComment"># if !slice-empty?(word-slice)</span> +<span id="L419" class="LineNr"> 419 </span> <span class="subxComment"># new-address = parse-hex-int-from-slice(word-slice)</span> +<span id="L420" class="LineNr"> 420 </span> <span class="subxComment"># write-buffered(out, "# " address-of-next-instruction "\n")</span> +<span id="L421" class="LineNr"> 421 </span> <span class="subxComment"># while address-of-next-instruction < new-address</span> +<span id="L422" class="LineNr"> 422 </span> <span class="subxComment"># write-buffered("00")</span> +<span id="L423" class="LineNr"> 423 </span> <span class="subxComment"># ++address-of-next-instruction</span> +<span id="L424" class="LineNr"> 424 </span> <span class="subxComment"># write-buffered(out, "# " address-of-next-instruction "\n")</span> +<span id="L425" class="LineNr"> 425 </span> <span class="subxComment"># goto line-loop # don't insert empty lines</span> +<span id="L426" class="LineNr"> 426 </span> <span class="subxComment"># if length(word-slice) == 2</span> +<span id="L427" class="LineNr"> 427 </span> <span class="subxComment"># write-slice-buffered(out, word-slice)</span> +<span id="L428" class="LineNr"> 428 </span> <span class="subxComment"># write-buffered(out, " ")</span> +<span id="L429" class="LineNr"> 429 </span> <span class="subxComment"># continue</span> +<span id="L430" class="LineNr"> 430 </span> <span class="subxComment"># var datum: (addr slice) = next-token-from-slice(word-slice->start, word-slice->end, "/")</span> +<span id="L431" class="LineNr"> 431 </span> <span class="subxComment"># var address: (addr int) = get-slice(labels, datum)</span> +<span id="L432" class="LineNr"> 432 </span> <span class="subxComment"># if has-metadata?(word-slice, "imm8")</span> +<span id="L433" class="LineNr"> 433 </span> <span class="subxComment"># emit(out, *address, 1)</span> +<span id="L434" class="LineNr"> 434 </span> <span class="subxComment"># else if has-metadata?(word-slice, "imm16")</span> +<span id="L435" class="LineNr"> 435 </span> <span class="subxComment"># emit(out, *address, 2)</span> +<span id="L436" class="LineNr"> 436 </span> <span class="subxComment"># else if has-metadata?(word-slice, "imm32")</span> +<span id="L437" class="LineNr"> 437 </span> <span class="subxComment"># emit(out, *address, 4)</span> +<span id="L438" class="LineNr"> 438 </span> <span class="subxComment"># else if has-metadata?(word-slice, "disp8")</span> +<span id="L439" class="LineNr"> 439 </span> <span class="subxComment"># value = *address - address-of-next-instruction</span> +<span id="L440" class="LineNr"> 440 </span> <span class="subxComment"># emit(out, value, 1)</span> +<span id="L441" class="LineNr"> 441 </span> <span class="subxComment"># else if has-metadata?(word-slice, "disp32")</span> +<span id="L442" class="LineNr"> 442 </span> <span class="subxComment"># if far-jump-or-call?</span> +<span id="L443" class="LineNr"> 443 </span> <span class="subxComment"># value = *address - address-of-next-instruction</span> +<span id="L444" class="LineNr"> 444 </span> <span class="subxComment"># else</span> +<span id="L445" class="LineNr"> 445 </span> <span class="subxComment"># value = *address</span> +<span id="L446" class="LineNr"> 446 </span> <span class="subxComment"># emit(out, value, 4)</span> +<span id="L447" class="LineNr"> 447 </span> <span class="subxComment"># else</span> +<span id="L448" class="LineNr"> 448 </span> <span class="subxComment"># abort</span> +<span id="L449" class="LineNr"> 449 </span> <span class="subxComment"># write-buffered(out, "\n")</span> +<span id="L450" class="LineNr"> 450 </span> <span class="subxComment">#</span> +<span id="L451" class="LineNr"> 451 </span> <span class="subxComment"># registers:</span> +<span id="L452" class="LineNr"> 452 </span> <span class="subxComment"># line: ecx</span> +<span id="L453" class="LineNr"> 453 </span> <span class="subxComment"># word-slice: edx</span> +<span id="L454" class="LineNr"> 454 </span> <span class="subxComment"># address-of-next-instruction: ebx</span> +<span id="L455" class="LineNr"> 455 </span> <span class="subxComment"># far-jump-or-call?: edi</span> +<span id="L456" class="LineNr"> 456 </span> <span class="subxComment"># address: esi (inner loop only)</span> +<span id="L457" class="LineNr"> 457 </span> <span class="subxComment"># temporaries: eax, esi (outer loop)</span> +<span id="L458" class="LineNr"> 458 </span> <span class="subxComment">#</span> +<span id="L459" class="LineNr"> 459 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L460" class="LineNr"> 460 </span> 55/push-ebp +<span id="L461" class="LineNr"> 461 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L462" class="LineNr"> 462 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L463" class="LineNr"> 463 </span> 50/push-eax +<span id="L464" class="LineNr"> 464 </span> 51/push-ecx +<span id="L465" class="LineNr"> 465 </span> 52/push-edx +<span id="L466" class="LineNr"> 466 </span> 53/push-ebx +<span id="L467" class="LineNr"> 467 </span> 56/push-esi +<span id="L468" class="LineNr"> 468 </span> 57/push-edi +<span id="L469" class="LineNr"> 469 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> +<span id="L470" class="LineNr"> 470 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x200/imm32 <span class="subxComment"># subtract from esp</span> +<span id="L471" class="LineNr"> 471 </span> 68/push 0x200/imm32/size +<span id="L472" class="LineNr"> 472 </span> 68/push 0/imm32/read +<span id="L473" class="LineNr"> 473 </span> 68/push 0/imm32/write +<span id="L474" class="LineNr"> 474 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L475" class="LineNr"> 475 </span> <span class="subxComment"># var word-slice/edx: slice</span> +<span id="L476" class="LineNr"> 476 </span> 68/push 0/imm32/end +<span id="L477" class="LineNr"> 477 </span> 68/push 0/imm32/start +<span id="L478" class="LineNr"> 478 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L479" class="LineNr"> 479 </span> <span class="subxComment"># var address-of-next-instruction/ebx = 0x7c00</span> +<span id="L480" class="LineNr"> 480 </span> bb/copy-to-ebx 0x7c00/imm32 +<span id="L481" class="LineNr"> 481 </span><span class="Constant">$emit-output:line-loop</span>: +<span id="L482" class="LineNr"> 482 </span> <span class="subxComment"># clear-stream(line)</span> +<span id="L483" class="LineNr"> 483 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L484" class="LineNr"> 484 </span> 51/push-ecx +<span id="L485" class="LineNr"> 485 </span> <span class="subxS2Comment"># . . call</span> +<span id="L486" class="LineNr"> 486 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L487" class="LineNr"> 487 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L488" class="LineNr"> 488 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L489" class="LineNr"> 489 </span> <span class="subxComment"># read-line(in, line)</span> +<span id="L490" class="LineNr"> 490 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L491" class="LineNr"> 491 </span> 51/push-ecx +<span id="L492" class="LineNr"> 492 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L493" class="LineNr"> 493 </span> <span class="subxS2Comment"># . . call</span> +<span id="L494" class="LineNr"> 494 </span> e8/call <a href='122read-line.subx.html#L218'>read-line</a>/disp32 +<span id="L495" class="LineNr"> 495 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L496" class="LineNr"> 496 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L497" class="Folded"> 497 </span><span class="Folded">+-- 33 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L530" class="LineNr"> 530 </span><span class="Constant">$emit-output:check-for-end-of-input</span>: +<span id="L531" class="LineNr"> 531 </span> <span class="subxComment"># if (line->write == 0) break</span> +<span id="L532" class="LineNr"> 532 </span> 81 7/subop/compare 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># compare *ecx</span> +<span id="L533" class="LineNr"> 533 </span> 0f 84/jump-if-= $emit-output:end/disp32 +<span id="L534" class="LineNr"> 534 </span> <span class="subxComment"># address-of-next-instruction += num-bytes(line)</span> +<span id="L535" class="LineNr"> 535 </span> <span class="subxS1Comment"># . eax = num-bytes(line)</span> +<span id="L536" class="LineNr"> 536 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L537" class="LineNr"> 537 </span> 51/push-ecx +<span id="L538" class="LineNr"> 538 </span> <span class="subxS2Comment"># . . call</span> +<span id="L539" class="LineNr"> 539 </span> e8/call <a href='labels_baremetal.subx.html#L2293'>num-bytes</a>/disp32 +<span id="L540" class="LineNr"> 540 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L541" class="LineNr"> 541 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L542" class="LineNr"> 542 </span> <span class="subxS1Comment"># . ebx += eax</span> +<span id="L543" class="LineNr"> 543 </span> 01/add 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to ebx</span> +<span id="L544" class="LineNr"> 544 </span> <span class="subxComment"># var far-jump-or-call?/edi: boolean = far-jump-or-call?(line)</span> +<span id="L545" class="LineNr"> 545 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L546" class="LineNr"> 546 </span> 51/push-ecx +<span id="L547" class="LineNr"> 547 </span> <span class="subxS2Comment"># . . call</span> +<span id="L548" class="LineNr"> 548 </span> e8/call <a href='labels_baremetal.subx.html#L1966'>far-jump-or-call?</a>/disp32 +<span id="L549" class="LineNr"> 549 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L550" class="LineNr"> 550 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L551" class="LineNr"> 551 </span> <span class="subxComment"># rewind-stream(line)</span> +<span id="L552" class="LineNr"> 552 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L553" class="LineNr"> 553 </span> 51/push-ecx +<span id="L554" class="LineNr"> 554 </span> <span class="subxS2Comment"># . . call</span> +<span id="L555" class="LineNr"> 555 </span> e8/call <a href='106stream.subx.html#L56'>rewind-stream</a>/disp32 +<span id="L556" class="LineNr"> 556 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L557" class="LineNr"> 557 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L558" class="LineNr"> 558 </span><span class="Constant">$emit-output:word-loop</span>: +<span id="L559" class="LineNr"> 559 </span> <span class="subxComment"># next-word(line, word-slice)</span> +<span id="L560" class="LineNr"> 560 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L561" class="LineNr"> 561 </span> 52/push-edx +<span id="L562" class="LineNr"> 562 </span> 51/push-ecx +<span id="L563" class="LineNr"> 563 </span> <span class="subxS2Comment"># . . call</span> +<span id="L564" class="LineNr"> 564 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L565" class="LineNr"> 565 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L566" class="LineNr"> 566 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L567" class="Folded"> 567 </span><span class="Folded">+-- 33 lines: #? # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L600" class="LineNr"> 600 </span><span class="Constant">$emit-output:check-for-end-of-line</span>: +<span id="L601" class="LineNr"> 601 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> +<span id="L602" class="LineNr"> 602 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> +<span id="L603" class="LineNr"> 603 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L604" class="LineNr"> 604 </span> 52/push-edx +<span id="L605" class="LineNr"> 605 </span> <span class="subxS2Comment"># . . call</span> +<span id="L606" class="LineNr"> 606 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L607" class="LineNr"> 607 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L608" class="LineNr"> 608 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L609" class="LineNr"> 609 </span> <span class="subxS1Comment"># . if (eax != 0) break</span> +<span id="L610" class="LineNr"> 610 </span> 3d/compare-eax-and 0/imm32/false +<span id="L611" class="LineNr"> 611 </span> 0f 85/jump-if-!= $emit-output:next-line/disp32 +<span id="L612" class="LineNr"> 612 </span><span class="Constant">$emit-output:check-for-comment</span>: +<span id="L613" class="LineNr"> 613 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) break</span> +<span id="L614" class="LineNr"> 614 </span> <span class="subxS1Comment"># . start/esi = word-slice->start</span> +<span id="L615" class="LineNr"> 615 </span> 8b/copy 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edx to esi</span> +<span id="L616" class="LineNr"> 616 </span> <span class="subxS1Comment"># . c/eax = *start</span> +<span id="L617" class="LineNr"> 617 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L618" class="LineNr"> 618 </span> 8a/copy-byte 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *esi to AL</span> +<span id="L619" class="LineNr"> 619 </span> <span class="subxS1Comment"># . if (eax == '#') break</span> +<span id="L620" class="LineNr"> 620 </span> 3d/compare-eax-and 0x23/imm32/hash +<span id="L621" class="LineNr"> 621 </span> 0f 84/jump-if-= $emit-output:next-line/disp32 +<span id="L622" class="LineNr"> 622 </span><span class="Constant">$emit-output:check-for-label</span>: +<span id="L623" class="LineNr"> 623 </span> <span class="subxComment"># if label?(word-slice) break</span> +<span id="L624" class="LineNr"> 624 </span> <span class="subxS1Comment"># . eax = label?(word-slice)</span> +<span id="L625" class="LineNr"> 625 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L626" class="LineNr"> 626 </span> 52/push-edx +<span id="L627" class="LineNr"> 627 </span> <span class="subxS2Comment"># . . call</span> +<span id="L628" class="LineNr"> 628 </span> e8/call <a href='128subx-words.subx.html#L535'>label?</a>/disp32 +<span id="L629" class="LineNr"> 629 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L630" class="LineNr"> 630 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L631" class="LineNr"> 631 </span> <span class="subxS1Comment"># . if (eax != false) break</span> +<span id="L632" class="LineNr"> 632 </span> 3d/compare-eax-and 0/imm32/false +<span id="L633" class="LineNr"> 633 </span> 0f 85/jump-if-!= $emit-output:line-loop/disp32 +<span id="L634" class="LineNr"> 634 </span><span class="Constant">$emit-output:check-for-segment-header</span>: +<span id="L635" class="LineNr"> 635 </span> <span class="subxComment"># if !slice-equal?(word-slice, "==") goto next check</span> +<span id="L636" class="LineNr"> 636 </span> <span class="subxS1Comment"># . eax = slice-equal?(word-slice, "==")</span> +<span id="L637" class="LineNr"> 637 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L638" class="LineNr"> 638 </span> 68/push <span class="Constant">"=="</span>/imm32 +<span id="L639" class="LineNr"> 639 </span> 52/push-edx +<span id="L640" class="LineNr"> 640 </span> <span class="subxS2Comment"># . . call</span> +<span id="L641" class="LineNr"> 641 </span> e8/call <a href='123slice.subx.html#L120'>slice-equal?</a>/disp32 +<span id="L642" class="LineNr"> 642 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L643" class="LineNr"> 643 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L644" class="LineNr"> 644 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> +<span id="L645" class="LineNr"> 645 </span> 3d/compare-eax-and 0/imm32/false +<span id="L646" class="LineNr"> 646 </span> 0f 84/jump-if-= $emit-output:2-character/disp32 +<span id="L647" class="LineNr"> 647 </span> <span class="subxComment"># skip segment name</span> +<span id="L648" class="LineNr"> 648 </span> <span class="subxS1Comment"># . next-word(line, word-slice)</span> +<span id="L649" class="LineNr"> 649 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L650" class="LineNr"> 650 </span> 52/push-edx +<span id="L651" class="LineNr"> 651 </span> 51/push-ecx +<span id="L652" class="LineNr"> 652 </span> <span class="subxS2Comment"># . . call</span> +<span id="L653" class="LineNr"> 653 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L654" class="LineNr"> 654 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L655" class="LineNr"> 655 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L656" class="LineNr"> 656 </span> <span class="subxComment"># compute segment address if it exists</span> +<span id="L657" class="LineNr"> 657 </span> <span class="subxS1Comment"># . next-word(line, word-slice)</span> +<span id="L658" class="LineNr"> 658 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L659" class="LineNr"> 659 </span> 52/push-edx +<span id="L660" class="LineNr"> 660 </span> 51/push-ecx +<span id="L661" class="LineNr"> 661 </span> <span class="subxS2Comment"># . . call</span> +<span id="L662" class="LineNr"> 662 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L663" class="LineNr"> 663 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L664" class="LineNr"> 664 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L665" class="LineNr"> 665 </span> <span class="subxS1Comment"># . if slice-empty?(word-slice) goto padding-done</span> +<span id="L666" class="LineNr"> 666 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L667" class="LineNr"> 667 </span> 52/push-edx +<span id="L668" class="LineNr"> 668 </span> <span class="subxS2Comment"># . . call</span> +<span id="L669" class="LineNr"> 669 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L670" class="LineNr"> 670 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L671" class="LineNr"> 671 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L672" class="LineNr"> 672 </span> <span class="subxS2Comment"># . .</span> +<span id="L673" class="LineNr"> 673 </span> 3d/compare-eax-and 0/imm32/false +<span id="L674" class="LineNr"> 674 </span> 0f 85/jump-if-!= $emit-output:padding-done/disp32 +<span id="L675" class="LineNr"> 675 </span> <span class="subxS1Comment"># . var new-address/eax: int = parse-hex-int-from-slice(word-slice)</span> +<span id="L676" class="LineNr"> 676 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L677" class="LineNr"> 677 </span> 52/push-edx +<span id="L678" class="LineNr"> 678 </span> <span class="subxS2Comment"># . . call</span> +<span id="L679" class="LineNr"> 679 </span> e8/call <a href='118parse-hex-int.subx.html#L387'>parse-hex-int-from-slice</a>/disp32 +<span id="L680" class="LineNr"> 680 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L681" class="LineNr"> 681 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L682" class="LineNr"> 682 </span> <span class="subxComment"># write-buffered(out, "# " address-of-next-instruction "\n")</span> +<span id="L683" class="LineNr"> 683 </span> <span class="subxS1Comment"># . write-buffered(out, "# ")</span> +<span id="L684" class="LineNr"> 684 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L685" class="LineNr"> 685 </span> 68/push <span class="Constant">"# "</span>/imm32 +<span id="L686" class="LineNr"> 686 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L687" class="LineNr"> 687 </span> <span class="subxS2Comment"># . . call</span> +<span id="L688" class="LineNr"> 688 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L689" class="LineNr"> 689 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L690" class="LineNr"> 690 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L691" class="LineNr"> 691 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, address-of-next-instruction)</span> +<span id="L692" class="LineNr"> 692 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L693" class="LineNr"> 693 </span> 53/push-ebx +<span id="L694" class="LineNr"> 694 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L695" class="LineNr"> 695 </span> <span class="subxS2Comment"># . . call</span> +<span id="L696" class="LineNr"> 696 </span> e8/call <a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 +<span id="L697" class="LineNr"> 697 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L698" class="LineNr"> 698 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L699" class="LineNr"> 699 </span> <span class="subxS1Comment"># . write-buffered(out, "\n")</span> +<span id="L700" class="LineNr"> 700 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L701" class="LineNr"> 701 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L702" class="LineNr"> 702 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L703" class="LineNr"> 703 </span> <span class="subxS2Comment"># . . call</span> +<span id="L704" class="LineNr"> 704 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L705" class="LineNr"> 705 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L706" class="LineNr"> 706 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L707" class="LineNr"> 707 </span><span class="Constant">$emit-output:padding-loop</span>: +<span id="L708" class="LineNr"> 708 </span> <span class="subxComment"># if (address-of-next-instruction >= new-address) goto padding-loop-done</span> +<span id="L709" class="LineNr"> 709 </span> 39/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ebx with eax</span> +<span id="L710" class="LineNr"> 710 </span> 73/jump-if-addr>= $emit-output:padding-loop-done/disp8 +<span id="L711" class="LineNr"> 711 </span> <span class="subxComment"># if (address-of-next-instruction % 8 == 0) write-buffered("\n")</span> +<span id="L712" class="LineNr"> 712 </span> 53/push-ebx +<span id="L713" class="LineNr"> 713 </span> 81 4/subop/and 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/imm32 <span class="subxComment"># bitwise and of ebx</span> +<span id="L714" class="LineNr"> 714 </span> 81 7/subop/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># compare ebx</span> +<span id="L715" class="LineNr"> 715 </span> 5b/pop-to-ebx +<span id="L716" class="LineNr"> 716 </span> 75/jump-if-!= $emit-output:padding-core/disp8 +<span id="L717" class="LineNr"> 717 </span> <span class="subxS1Comment"># . write-buffered(out, "\n")</span> +<span id="L718" class="LineNr"> 718 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L719" class="LineNr"> 719 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L720" class="LineNr"> 720 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L721" class="LineNr"> 721 </span> <span class="subxS2Comment"># . . call</span> +<span id="L722" class="LineNr"> 722 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L723" class="LineNr"> 723 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L724" class="LineNr"> 724 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L725" class="LineNr"> 725 </span><span class="Constant">$emit-output:padding-core</span>: +<span id="L726" class="LineNr"> 726 </span> <span class="subxComment"># write-buffered("00")</span> +<span id="L727" class="LineNr"> 727 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L728" class="LineNr"> 728 </span> 68/push <span class="Constant">"00 "</span>/imm32 +<span id="L729" class="LineNr"> 729 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L730" class="LineNr"> 730 </span> <span class="subxS2Comment"># . . call</span> +<span id="L731" class="LineNr"> 731 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L732" class="LineNr"> 732 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L733" class="LineNr"> 733 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L734" class="LineNr"> 734 </span> <span class="subxComment"># ++address-of-next-instruction</span> +<span id="L735" class="LineNr"> 735 </span> 43/increment-ebx +<span id="L736" class="LineNr"> 736 </span> <span class="subxComment"># loop</span> +<span id="L737" class="LineNr"> 737 </span> eb/jump $emit-output:padding-loop/disp8 +<span id="L738" class="LineNr"> 738 </span><span class="Constant">$emit-output:padding-loop-done</span>: +<span id="L739" class="LineNr"> 739 </span> <span class="subxS1Comment"># . write-buffered(out, "\n")</span> +<span id="L740" class="LineNr"> 740 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L741" class="LineNr"> 741 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L742" class="LineNr"> 742 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L743" class="LineNr"> 743 </span> <span class="subxS2Comment"># . . call</span> +<span id="L744" class="LineNr"> 744 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L745" class="LineNr"> 745 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L746" class="LineNr"> 746 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L747" class="LineNr"> 747 </span><span class="Constant">$emit-output:padding-done</span>: +<span id="L748" class="LineNr"> 748 </span> <span class="subxComment"># write-buffered(out, "# " address-of-next-instruction "\n")</span> +<span id="L749" class="LineNr"> 749 </span> <span class="subxS1Comment"># . write-buffered(out, "# ")</span> +<span id="L750" class="LineNr"> 750 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L751" class="LineNr"> 751 </span> 68/push <span class="Constant">"# "</span>/imm32 +<span id="L752" class="LineNr"> 752 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L753" class="LineNr"> 753 </span> <span class="subxS2Comment"># . . call</span> +<span id="L754" class="LineNr"> 754 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L755" class="LineNr"> 755 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L756" class="LineNr"> 756 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L757" class="LineNr"> 757 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, address-of-next-instruction)</span> +<span id="L758" class="LineNr"> 758 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L759" class="LineNr"> 759 </span> 53/push-ebx +<span id="L760" class="LineNr"> 760 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L761" class="LineNr"> 761 </span> <span class="subxS2Comment"># . . call</span> +<span id="L762" class="LineNr"> 762 </span> e8/call <a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 +<span id="L763" class="LineNr"> 763 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L764" class="LineNr"> 764 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L765" class="LineNr"> 765 </span> <span class="subxS1Comment"># . write-buffered(out, "\n")</span> +<span id="L766" class="LineNr"> 766 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L767" class="LineNr"> 767 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L768" class="LineNr"> 768 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L769" class="LineNr"> 769 </span> <span class="subxS2Comment"># . . call</span> +<span id="L770" class="LineNr"> 770 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L771" class="LineNr"> 771 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L772" class="LineNr"> 772 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L773" class="LineNr"> 773 </span> <span class="subxComment">#</span> +<span id="L774" class="LineNr"> 774 </span> e9/jump $emit-output:line-loop/disp32 +<span id="L775" class="LineNr"> 775 </span><span class="Constant">$emit-output:2-character</span>: +<span id="L776" class="LineNr"> 776 </span> <span class="subxComment"># if (size(word-slice) != 2) goto next check</span> +<span id="L777" class="LineNr"> 777 </span> <span class="subxS1Comment"># . eax = size(word-slice)</span> +<span id="L778" class="LineNr"> 778 </span> 8b/copy 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(edx+4) to eax</span> +<span id="L779" class="LineNr"> 779 </span> 2b/subtract 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract *edx from eax</span> +<span id="L780" class="LineNr"> 780 </span> <span class="subxS1Comment"># . if (eax != 2) goto next check</span> +<span id="L781" class="LineNr"> 781 </span> 3d/compare-eax-and 2/imm32 +<span id="L782" class="LineNr"> 782 </span> 75/jump-if-!= $emit-output:check-metadata/disp8 +<span id="L783" class="LineNr"> 783 </span> <span class="subxComment"># write-slice-buffered(out, word-slice)</span> +<span id="L784" class="LineNr"> 784 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L785" class="LineNr"> 785 </span> 52/push-edx +<span id="L786" class="LineNr"> 786 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L787" class="LineNr"> 787 </span> <span class="subxS2Comment"># . . call</span> +<span id="L788" class="LineNr"> 788 </span> e8/call <a href='123slice.subx.html#L908'>write-slice-buffered</a>/disp32 +<span id="L789" class="LineNr"> 789 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L790" class="LineNr"> 790 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L791" class="LineNr"> 791 </span> <span class="subxComment"># write-buffered(out, " ")</span> +<span id="L792" class="LineNr"> 792 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L793" class="LineNr"> 793 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L93'>Space</a></span>/imm32 +<span id="L794" class="LineNr"> 794 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L795" class="LineNr"> 795 </span> <span class="subxS2Comment"># . . call</span> +<span id="L796" class="LineNr"> 796 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L797" class="LineNr"> 797 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L798" class="LineNr"> 798 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L799" class="LineNr"> 799 </span> <span class="subxComment"># continue</span> +<span id="L800" class="LineNr"> 800 </span> e9/jump $emit-output:word-loop/disp32 +<span id="L801" class="LineNr"> 801 </span><span class="Constant">$emit-output:check-metadata</span>: +<span id="L802" class="LineNr"> 802 </span> <span class="subxH1Comment"># - if we get here, 'word-slice' must be a label to be looked up</span> +<span id="L803" class="LineNr"> 803 </span> <span class="subxComment"># datum = next-token-from-slice(word-slice->start, word-slice->end, "/")</span> +<span id="L804" class="LineNr"> 804 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L805" class="LineNr"> 805 </span> 68/push <a href='labels_baremetal.subx.html#L395'>emit-output</a>:datum/imm32 +<span id="L806" class="LineNr"> 806 </span> 68/push 0x2f/imm32/slash +<span id="L807" class="LineNr"> 807 </span> ff 6/subop/push 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edx+4)</span> +<span id="L808" class="LineNr"> 808 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> +<span id="L809" class="LineNr"> 809 </span> <span class="subxS2Comment"># . . call</span> +<span id="L810" class="LineNr"> 810 </span> e8/call <a href='124next-token.subx.html#L163'>next-token-from-slice</a>/disp32 +<span id="L811" class="LineNr"> 811 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L812" class="LineNr"> 812 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L813" class="Folded"> 813 </span><span class="Folded">+-- 33 lines: #? # dump datum -------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L846" class="LineNr"> 846 </span> <span class="subxComment"># address/esi: (addr int) = get-slice(labels, datum, row-size=12, "label table")</span> +<span id="L847" class="LineNr"> 847 </span> <span class="subxS1Comment"># . eax = get-slice(labels, datum, row-size=24, "label table")</span> +<span id="L848" class="LineNr"> 848 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L849" class="LineNr"> 849 </span> 68/push <span class="Constant">"label table"</span>/imm32 +<span id="L850" class="LineNr"> 850 </span> 68/push 0xc/imm32/row-size +<span id="L851" class="LineNr"> 851 </span> 68/push <a href='labels_baremetal.subx.html#L395'>emit-output</a>:datum/imm32 +<span id="L852" class="LineNr"> 852 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> +<span id="L853" class="LineNr"> 853 </span> <span class="subxS2Comment"># . . call</span> +<span id="L854" class="LineNr"> 854 </span> e8/call <a href='131table.subx.html#L210'>get-slice</a>/disp32 +<span id="L855" class="LineNr"> 855 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L856" class="LineNr"> 856 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L857" class="LineNr"> 857 </span> <span class="subxS1Comment"># . esi = eax</span> +<span id="L858" class="LineNr"> 858 </span> 89/copy 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to esi</span> +<span id="L859" class="LineNr"> 859 </span><span class="Constant">$emit-output:check-imm8</span>: +<span id="L860" class="LineNr"> 860 </span> <span class="subxComment"># if (!has-metadata?(word-slice, "imm8")) goto next check</span> +<span id="L861" class="LineNr"> 861 </span> <span class="subxS1Comment"># . eax = has-metadata?(edx, "imm8")</span> +<span id="L862" class="LineNr"> 862 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L863" class="LineNr"> 863 </span> 68/push <span class="Constant">"imm8"</span>/imm32 +<span id="L864" class="LineNr"> 864 </span> 52/push-edx +<span id="L865" class="LineNr"> 865 </span> <span class="subxS2Comment"># . . call</span> +<span id="L866" class="LineNr"> 866 </span> e8/call <a href='128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L867" class="LineNr"> 867 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L868" class="LineNr"> 868 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L869" class="LineNr"> 869 </span> <span class="subxS1Comment"># . if (eax != false) abort</span> +<span id="L870" class="LineNr"> 870 </span> 3d/compare-eax-and 0/imm32/false +<span id="L871" class="LineNr"> 871 </span> 74/jump-if-= $emit-output:check-imm16/disp8 +<span id="L872" class="LineNr"> 872 </span><span class="Constant">$emit-output:emit-imm8</span>: +<span id="L873" class="LineNr"> 873 </span> <span class="subxComment"># emit-hex(out, *address, 1)</span> +<span id="L874" class="LineNr"> 874 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L875" class="LineNr"> 875 </span> 68/push 1/imm32 +<span id="L876" class="LineNr"> 876 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L877" class="LineNr"> 877 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L878" class="LineNr"> 878 </span> <span class="subxS2Comment"># . . call</span> +<span id="L879" class="LineNr"> 879 </span> e8/call <a href='129emit-hex.subx.html#L7'>emit-hex</a>/disp32 +<span id="L880" class="LineNr"> 880 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L881" class="LineNr"> 881 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L882" class="LineNr"> 882 </span> <span class="subxComment"># continue</span> +<span id="L883" class="LineNr"> 883 </span> e9/jump $emit-output:word-loop/disp32 +<span id="L884" class="LineNr"> 884 </span><span class="Constant">$emit-output:check-imm16</span>: +<span id="L885" class="LineNr"> 885 </span> <span class="subxComment"># if (!has-metadata?(word-slice, "imm16")) goto next check</span> +<span id="L886" class="LineNr"> 886 </span> <span class="subxS1Comment"># . eax = has-metadata?(edx, "imm16")</span> +<span id="L887" class="LineNr"> 887 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L888" class="LineNr"> 888 </span> 68/push <span class="Constant">"imm16"</span>/imm32 +<span id="L889" class="LineNr"> 889 </span> 52/push-edx +<span id="L890" class="LineNr"> 890 </span> <span class="subxS2Comment"># . . call</span> +<span id="L891" class="LineNr"> 891 </span> e8/call <a href='128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L892" class="LineNr"> 892 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L893" class="LineNr"> 893 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L894" class="LineNr"> 894 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> +<span id="L895" class="LineNr"> 895 </span> 3d/compare-eax-and 0/imm32/false +<span id="L896" class="LineNr"> 896 </span> 74/jump-if-= $emit-output:check-imm32/disp8 +<span id="L897" class="Folded"> 897 </span><span class="Folded">+-- 33 lines: #? # dump *address ----------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L930" class="LineNr"> 930 </span><span class="Constant">$emit-output:emit-imm16</span>: +<span id="L931" class="LineNr"> 931 </span> <span class="subxComment"># emit-hex(out, *address, 2)</span> +<span id="L932" class="LineNr"> 932 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L933" class="LineNr"> 933 </span> 68/push 2/imm32 +<span id="L934" class="LineNr"> 934 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L935" class="LineNr"> 935 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L936" class="LineNr"> 936 </span> <span class="subxS2Comment"># . . call</span> +<span id="L937" class="LineNr"> 937 </span> e8/call <a href='129emit-hex.subx.html#L7'>emit-hex</a>/disp32 +<span id="L938" class="LineNr"> 938 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L939" class="LineNr"> 939 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L940" class="LineNr"> 940 </span> <span class="subxComment"># TODO: ensure that the higher 2 bytes are zero</span> +<span id="L941" class="LineNr"> 941 </span> <span class="subxComment"># continue</span> +<span id="L942" class="LineNr"> 942 </span> e9/jump $emit-output:word-loop/disp32 +<span id="L943" class="LineNr"> 943 </span><span class="Constant">$emit-output:check-imm32</span>: +<span id="L944" class="LineNr"> 944 </span> <span class="subxComment"># if (!has-metadata?(word-slice, "imm32")) goto next check</span> +<span id="L945" class="LineNr"> 945 </span> <span class="subxS1Comment"># . eax = has-metadata?(edx, "imm32")</span> +<span id="L946" class="LineNr"> 946 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L947" class="LineNr"> 947 </span> 68/push <span class="Constant">"imm32"</span>/imm32 +<span id="L948" class="LineNr"> 948 </span> 52/push-edx +<span id="L949" class="LineNr"> 949 </span> <span class="subxS2Comment"># . . call</span> +<span id="L950" class="LineNr"> 950 </span> e8/call <a href='128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L951" class="LineNr"> 951 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L952" class="LineNr"> 952 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L953" class="LineNr"> 953 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> +<span id="L954" class="LineNr"> 954 </span> 3d/compare-eax-and 0/imm32/false +<span id="L955" class="LineNr"> 955 </span> 74/jump-if-= $emit-output:check-disp8/disp8 +<span id="L956" class="Folded"> 956 </span><span class="Folded">+-- 33 lines: #? # dump *address ----------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L989" class="LineNr"> 989 </span><span class="Constant">$emit-output:emit-imm32</span>: +<span id="L990" class="LineNr"> 990 </span> <span class="subxComment"># emit-hex(out, *address, 4)</span> +<span id="L991" class="LineNr"> 991 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L992" class="LineNr"> 992 </span> 68/push 4/imm32 +<span id="L993" class="LineNr"> 993 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L994" class="LineNr"> 994 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L995" class="LineNr"> 995 </span> <span class="subxS2Comment"># . . call</span> +<span id="L996" class="LineNr"> 996 </span> e8/call <a href='129emit-hex.subx.html#L7'>emit-hex</a>/disp32 +<span id="L997" class="LineNr"> 997 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L998" class="LineNr"> 998 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L999" class="LineNr"> 999 </span> <span class="subxComment"># continue</span> +<span id="L1000" class="LineNr">1000 </span> e9/jump $emit-output:word-loop/disp32 +<span id="L1001" class="LineNr">1001 </span><span class="Constant">$emit-output:check-disp8</span>: +<span id="L1002" class="LineNr">1002 </span> <span class="subxComment"># if (!has-metadata?(word-slice, "disp8")) goto next check</span> +<span id="L1003" class="LineNr">1003 </span> <span class="subxS1Comment"># . eax = has-metadata?(edx, "disp8")</span> +<span id="L1004" class="LineNr">1004 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1005" class="LineNr">1005 </span> 68/push <span class="Constant">"disp8"</span>/imm32 +<span id="L1006" class="LineNr">1006 </span> 52/push-edx +<span id="L1007" class="LineNr">1007 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1008" class="LineNr">1008 </span> e8/call <a href='128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L1009" class="LineNr">1009 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1010" class="LineNr">1010 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1011" class="LineNr">1011 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> +<span id="L1012" class="LineNr">1012 </span> 3d/compare-eax-and 0/imm32/false +<span id="L1013" class="LineNr">1013 </span> 74/jump-if-= $emit-output:check-disp16/disp8 +<span id="L1014" class="LineNr">1014 </span><span class="Constant">$emit-output:emit-disp8</span>: +<span id="L1015" class="LineNr">1015 </span> <span class="subxComment"># emit-hex(out, *address - address-of-next-instruction, 1)</span> +<span id="L1016" class="LineNr">1016 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1017" class="LineNr">1017 </span> 68/push 1/imm32 +<span id="L1018" class="LineNr">1018 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> +<span id="L1019" class="LineNr">1019 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ebx from eax</span> +<span id="L1020" class="LineNr">1020 </span> 50/push-eax +<span id="L1021" class="LineNr">1021 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1022" class="LineNr">1022 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1023" class="LineNr">1023 </span> e8/call <a href='129emit-hex.subx.html#L7'>emit-hex</a>/disp32 +<span id="L1024" class="LineNr">1024 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1025" class="LineNr">1025 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1026" class="LineNr">1026 </span> <span class="subxComment"># continue</span> +<span id="L1027" class="LineNr">1027 </span> e9/jump $emit-output:word-loop/disp32 +<span id="L1028" class="LineNr">1028 </span><span class="Constant">$emit-output:check-disp16</span>: +<span id="L1029" class="LineNr">1029 </span> <span class="subxComment"># if (!has-metadata?(word-slice, "disp16")) goto next check</span> +<span id="L1030" class="LineNr">1030 </span> <span class="subxS1Comment"># . eax = has-metadata?(edx, "disp16")</span> +<span id="L1031" class="LineNr">1031 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1032" class="LineNr">1032 </span> 68/push <span class="Constant">"disp16"</span>/imm32 +<span id="L1033" class="LineNr">1033 </span> 52/push-edx +<span id="L1034" class="LineNr">1034 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1035" class="LineNr">1035 </span> e8/call <a href='128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L1036" class="LineNr">1036 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1037" class="LineNr">1037 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1038" class="LineNr">1038 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> +<span id="L1039" class="LineNr">1039 </span> 3d/compare-eax-and 0/imm32/false +<span id="L1040" class="LineNr">1040 </span> 74/jump-if-= $emit-output:check-disp32/disp8 +<span id="L1041" class="LineNr">1041 </span><span class="Constant">$emit-output:emit-disp16</span>: +<span id="L1042" class="LineNr">1042 </span> <span class="subxComment"># emit-hex(out, *address - address-of-next-instruction, 2)</span> +<span id="L1043" class="LineNr">1043 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1044" class="LineNr">1044 </span> 68/push 2/imm32 +<span id="L1045" class="LineNr">1045 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> +<span id="L1046" class="LineNr">1046 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ebx from eax</span> +<span id="L1047" class="LineNr">1047 </span> 50/push-eax +<span id="L1048" class="LineNr">1048 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1049" class="LineNr">1049 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1050" class="LineNr">1050 </span> e8/call <a href='129emit-hex.subx.html#L7'>emit-hex</a>/disp32 +<span id="L1051" class="LineNr">1051 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1052" class="LineNr">1052 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1053" class="LineNr">1053 </span> <span class="subxComment"># continue</span> +<span id="L1054" class="LineNr">1054 </span> e9/jump $emit-output:word-loop/disp32 +<span id="L1055" class="LineNr">1055 </span><span class="Constant">$emit-output:check-disp32</span>: +<span id="L1056" class="LineNr">1056 </span> <span class="subxComment"># if (!has-metadata?(word-slice, "disp32")) abort</span> +<span id="L1057" class="LineNr">1057 </span> <span class="subxS1Comment"># . eax = has-metadata?(edx, "disp32")</span> +<span id="L1058" class="LineNr">1058 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1059" class="LineNr">1059 </span> 68/push <span class="Constant">"disp32"</span>/imm32 +<span id="L1060" class="LineNr">1060 </span> 52/push-edx +<span id="L1061" class="LineNr">1061 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1062" class="LineNr">1062 </span> e8/call <a href='128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L1063" class="LineNr">1063 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1064" class="LineNr">1064 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1065" class="LineNr">1065 </span> <span class="subxS1Comment"># . if (eax == false) abort</span> +<span id="L1066" class="LineNr">1066 </span> 3d/compare-eax-and 0/imm32/false +<span id="L1067" class="LineNr">1067 </span> 0f 84/jump-if-= $emit-output:abort/disp32 +<span id="L1068" class="LineNr">1068 </span><span class="Constant">$emit-output:emit-disp32</span>: +<span id="L1069" class="LineNr">1069 </span> <span class="subxComment"># var value/eax = *address</span> +<span id="L1070" class="LineNr">1070 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> +<span id="L1071" class="LineNr">1071 </span> <span class="subxComment"># if (far-jump-or-call?) value -= address-of-next-instruction</span> +<span id="L1072" class="LineNr">1072 </span> 81 7/subop/compare 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32/false <span class="subxComment"># compare edi</span> +<span id="L1073" class="LineNr">1073 </span> 74/jump-if-= $emit-output:really-emit-disp32/disp8 +<span id="L1074" class="LineNr">1074 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ebx from eax</span> +<span id="L1075" class="LineNr">1075 </span><span class="Constant">$emit-output:really-emit-disp32</span>: +<span id="L1076" class="LineNr">1076 </span> <span class="subxComment"># emit-hex(out, value, 4)</span> +<span id="L1077" class="LineNr">1077 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1078" class="LineNr">1078 </span> 68/push 4/imm32 +<span id="L1079" class="LineNr">1079 </span> 50/push-eax +<span id="L1080" class="LineNr">1080 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1081" class="LineNr">1081 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1082" class="LineNr">1082 </span> e8/call <a href='129emit-hex.subx.html#L7'>emit-hex</a>/disp32 +<span id="L1083" class="LineNr">1083 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1084" class="LineNr">1084 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1085" class="LineNr">1085 </span> <span class="subxComment"># continue</span> +<span id="L1086" class="LineNr">1086 </span> e9/jump $emit-output:word-loop/disp32 +<span id="L1087" class="LineNr">1087 </span><span class="Constant">$emit-output:next-line</span>: +<span id="L1088" class="LineNr">1088 </span> <span class="subxComment"># write-buffered(out, "\n")</span> +<span id="L1089" class="LineNr">1089 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1090" class="LineNr">1090 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L1091" class="LineNr">1091 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1092" class="LineNr">1092 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1093" class="LineNr">1093 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1094" class="LineNr">1094 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1095" class="LineNr">1095 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1096" class="LineNr">1096 </span> <span class="subxComment"># loop</span> +<span id="L1097" class="LineNr">1097 </span> e9/jump $emit-output:line-loop/disp32 +<span id="L1098" class="LineNr">1098 </span><span class="Constant">$emit-output:end</span>: +<span id="L1099" class="LineNr">1099 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L1100" class="LineNr">1100 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x214/imm32 <span class="subxComment"># add to esp</span> +<span id="L1101" class="LineNr">1101 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L1102" class="LineNr">1102 </span> 5f/pop-to-edi +<span id="L1103" class="LineNr">1103 </span> 5e/pop-to-esi +<span id="L1104" class="LineNr">1104 </span> 5b/pop-to-ebx +<span id="L1105" class="LineNr">1105 </span> 5a/pop-to-edx +<span id="L1106" class="LineNr">1106 </span> 59/pop-to-ecx +<span id="L1107" class="LineNr">1107 </span> 58/pop-to-eax +<span id="L1108" class="LineNr">1108 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1109" class="LineNr">1109 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1110" class="LineNr">1110 </span> 5d/pop-to-ebp +<span id="L1111" class="LineNr">1111 </span> c3/return +<span id="L1112" class="LineNr">1112 </span> +<span id="L1113" class="LineNr">1113 </span><span class="Constant">$emit-output:abort</span>: +<span id="L1114" class="LineNr">1114 </span> <span class="subxComment"># print(stderr, "missing metadata in " word-slice)</span> +<span id="L1115" class="LineNr">1115 </span> <span class="subxS1Comment"># . _write(2/stderr, "missing metadata in word ")</span> +<span id="L1116" class="LineNr">1116 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1117" class="LineNr">1117 </span> 68/push <span class="Constant">"emit-output: missing metadata in "</span>/imm32 +<span id="L1118" class="LineNr">1118 </span> 68/push 2/imm32/stderr +<span id="L1119" class="LineNr">1119 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1120" class="LineNr">1120 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 +<span id="L1121" class="LineNr">1121 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1122" class="LineNr">1122 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1123" class="LineNr">1123 </span> <span class="subxS1Comment"># . write-slice-buffered(Stderr, word-slice)</span> +<span id="L1124" class="LineNr">1124 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1125" class="LineNr">1125 </span> 52/push-edx +<span id="L1126" class="LineNr">1126 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1127" class="LineNr">1127 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1128" class="LineNr">1128 </span> e8/call <a href='123slice.subx.html#L908'>write-slice-buffered</a>/disp32 +<span id="L1129" class="LineNr">1129 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1130" class="LineNr">1130 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1131" class="LineNr">1131 </span> <span class="subxS1Comment"># . flush(Stderr)</span> +<span id="L1132" class="LineNr">1132 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1133" class="LineNr">1133 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1134" class="LineNr">1134 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1135" class="LineNr">1135 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1136" class="LineNr">1136 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1137" class="LineNr">1137 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1138" class="LineNr">1138 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L1139" class="LineNr">1139 </span> bb/copy-to-ebx 1/imm32 +<span id="L1140" class="LineNr">1140 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L1141" class="LineNr">1141 </span> <span class="subxComment"># never gets here</span> +<span id="L1142" class="LineNr">1142 </span> +<span id="L1143" class="LineNr">1143 </span><span class="subxTest">test-emit-output-non-far-control-flow</span>: +<span id="L1144" class="LineNr">1144 </span> <span class="subxComment"># labels turn into absolute addresses if opcodes are not far jumps or calls</span> +<span id="L1145" class="LineNr">1145 </span> <span class="subxComment">#</span> +<span id="L1146" class="LineNr">1146 </span> <span class="subxComment"># input:</span> +<span id="L1147" class="LineNr">1147 </span> <span class="subxComment"># in:</span> +<span id="L1148" class="LineNr">1148 </span> <span class="subxComment"># == code</span> +<span id="L1149" class="LineNr">1149 </span> <span class="subxComment"># ab cd ef gh</span> +<span id="L1150" class="LineNr">1150 </span> <span class="subxComment"># ij x/disp32</span> +<span id="L1151" class="LineNr">1151 </span> <span class="subxComment"># == data</span> +<span id="L1152" class="LineNr">1152 </span> <span class="subxComment"># 00</span> +<span id="L1153" class="LineNr">1153 </span> <span class="subxComment"># 34</span> +<span id="L1154" class="LineNr">1154 </span> <span class="subxComment"># labels:</span> +<span id="L1155" class="LineNr">1155 </span> <span class="subxComment"># - 'x': 0x11223344</span> +<span id="L1156" class="LineNr">1156 </span> <span class="subxComment">#</span> +<span id="L1157" class="LineNr">1157 </span> <span class="subxComment"># output:</span> +<span id="L1158" class="LineNr">1158 </span> <span class="subxComment"># ab cd ef gh</span> +<span id="L1159" class="LineNr">1159 </span> <span class="subxComment"># ij 44 33 22 11</span> +<span id="L1160" class="LineNr">1160 </span> <span class="subxComment"># 00</span> +<span id="L1161" class="LineNr">1161 </span> <span class="subxComment"># 34</span> +<span id="L1162" class="LineNr">1162 </span> <span class="subxComment">#</span> +<span id="L1163" class="LineNr">1163 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1164" class="LineNr">1164 </span> 55/push-ebp +<span id="L1165" class="LineNr">1165 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1166" class="LineNr">1166 </span> <span class="subxComment"># setup</span> +<span id="L1167" class="LineNr">1167 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L1168" class="LineNr">1168 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1169" class="LineNr">1169 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1170" class="LineNr">1170 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1171" class="LineNr">1171 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1172" class="LineNr">1172 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1173" class="LineNr">1173 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1174" class="LineNr">1174 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L1175" class="LineNr">1175 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1176" class="LineNr">1176 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1177" class="LineNr">1177 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1178" class="LineNr">1178 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1179" class="LineNr">1179 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1180" class="LineNr">1180 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1181" class="LineNr">1181 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L1182" class="LineNr">1182 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1183" class="LineNr">1183 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L1184" class="LineNr">1184 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1185" class="LineNr">1185 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1186" class="LineNr">1186 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1187" class="LineNr">1187 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1188" class="LineNr">1188 </span> <span class="subxS1Comment"># . var labels/edx: (stream byte 8*24)</span> +<span id="L1189" class="LineNr">1189 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc0/imm32 <span class="subxComment"># subtract from esp</span> +<span id="L1190" class="LineNr">1190 </span> 68/push 0xc0/imm32/size +<span id="L1191" class="LineNr">1191 </span> 68/push 0/imm32/read +<span id="L1192" class="LineNr">1192 </span> 68/push 0/imm32/write +<span id="L1193" class="LineNr">1193 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L1194" class="LineNr">1194 </span> <span class="subxS1Comment"># . var h/ebx: (handle array byte)</span> +<span id="L1195" class="LineNr">1195 </span> 68/push 0/imm32 +<span id="L1196" class="LineNr">1196 </span> 68/push 0/imm32 +<span id="L1197" class="LineNr">1197 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> +<span id="L1198" class="LineNr">1198 </span> <span class="subxComment"># initialize input</span> +<span id="L1199" class="LineNr">1199 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== code\n")</span> +<span id="L1200" class="LineNr">1200 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1201" class="LineNr">1201 </span> 68/push <span class="Constant">"== code\n"</span>/imm32 +<span id="L1202" class="LineNr">1202 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1203" class="LineNr">1203 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1204" class="LineNr">1204 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1205" class="LineNr">1205 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1206" class="LineNr">1206 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1207" class="LineNr">1207 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab cd ef gh\n")</span> +<span id="L1208" class="LineNr">1208 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1209" class="LineNr">1209 </span> 68/push <span class="Constant">"ab cd ef gh\n"</span>/imm32 +<span id="L1210" class="LineNr">1210 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1211" class="LineNr">1211 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1212" class="LineNr">1212 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1213" class="LineNr">1213 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1214" class="LineNr">1214 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1215" class="LineNr">1215 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ij x/disp32\n")</span> +<span id="L1216" class="LineNr">1216 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1217" class="LineNr">1217 </span> 68/push <span class="Constant">"ij x/disp32\n"</span>/imm32 +<span id="L1218" class="LineNr">1218 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1219" class="LineNr">1219 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1220" class="LineNr">1220 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1221" class="LineNr">1221 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1222" class="LineNr">1222 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1223" class="LineNr">1223 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== data\n")</span> +<span id="L1224" class="LineNr">1224 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1225" class="LineNr">1225 </span> 68/push <span class="Constant">"== data\n"</span>/imm32 +<span id="L1226" class="LineNr">1226 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1227" class="LineNr">1227 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1228" class="LineNr">1228 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1229" class="LineNr">1229 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1230" class="LineNr">1230 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1231" class="LineNr">1231 </span> <span class="subxS1Comment"># . write(_test-input-stream, "00\n")</span> +<span id="L1232" class="LineNr">1232 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1233" class="LineNr">1233 </span> 68/push <span class="Constant">"00\n"</span>/imm32 +<span id="L1234" class="LineNr">1234 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1235" class="LineNr">1235 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1236" class="LineNr">1236 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1237" class="LineNr">1237 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1238" class="LineNr">1238 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1239" class="LineNr">1239 </span> <span class="subxS1Comment"># . write(_test-input-stream, "34\n")</span> +<span id="L1240" class="LineNr">1240 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1241" class="LineNr">1241 </span> 68/push <span class="Constant">"34\n"</span>/imm32 +<span id="L1242" class="LineNr">1242 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1243" class="LineNr">1243 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1244" class="LineNr">1244 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1245" class="LineNr">1245 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1246" class="LineNr">1246 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1247" class="LineNr">1247 </span> <span class="subxS1Comment"># . stream-add2(labels, "x", 0x11223344)</span> +<span id="L1248" class="LineNr">1248 </span> 68/push 0x11223344/imm32/label-address +<span id="L1249" class="LineNr">1249 </span> <span class="subxS2Comment"># . . push handle for "x"</span> +<span id="L1250" class="LineNr">1250 </span> 53/push-ebx +<span id="L1251" class="LineNr">1251 </span> 68/push <span class="Constant">"x"</span>/imm32 +<span id="L1252" class="LineNr">1252 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L1253" class="LineNr">1253 </span> e8/call <a href='120allocate.subx.html#L720'>copy-array</a>/disp32 +<span id="L1254" class="LineNr">1254 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1255" class="LineNr">1255 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> +<span id="L1256" class="LineNr">1256 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> +<span id="L1257" class="LineNr">1257 </span> <span class="subxS2Comment"># . . push labels</span> +<span id="L1258" class="LineNr">1258 </span> 52/push-edx +<span id="L1259" class="LineNr">1259 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1260" class="LineNr">1260 </span> e8/call <a href='labels_baremetal.subx.html#L2100'>stream-add2</a>/disp32 +<span id="L1261" class="LineNr">1261 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1262" class="LineNr">1262 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L1263" class="LineNr">1263 </span> <span class="subxComment"># component under test</span> +<span id="L1264" class="LineNr">1264 </span> <span class="subxS1Comment"># . emit-output(_test-input-stream, _test-output-buffered-file, labels)</span> +<span id="L1265" class="LineNr">1265 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1266" class="LineNr">1266 </span> 52/push-edx +<span id="L1267" class="LineNr">1267 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1268" class="LineNr">1268 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1269" class="LineNr">1269 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1270" class="LineNr">1270 </span> e8/call <a href='labels_baremetal.subx.html#L395'>emit-output</a>/disp32 +<span id="L1271" class="LineNr">1271 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1272" class="LineNr">1272 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1273" class="LineNr">1273 </span> <span class="subxComment"># checks</span> +<span id="L1274" class="LineNr">1274 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L1275" class="LineNr">1275 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1276" class="LineNr">1276 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1277" class="LineNr">1277 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1278" class="LineNr">1278 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1279" class="LineNr">1279 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1280" class="LineNr">1280 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1281" class="Folded">1281 </span><span class="Folded">+-- 33 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1314" class="LineNr">1314 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "# 0x00007c00", msg)</span> +<span id="L1315" class="LineNr">1315 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1316" class="LineNr">1316 </span> 68/push <span class="Constant">"F - <a href='labels_baremetal.subx.html#L1143'>test-emit-output-non-far-control-flow</a>/0"</span>/imm32 +<span id="L1317" class="LineNr">1317 </span> 68/push <span class="Constant">"# 0x00007c00"</span>/imm32 +<span id="L1318" class="LineNr">1318 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1319" class="LineNr">1319 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1320" class="LineNr">1320 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L1321" class="LineNr">1321 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1322" class="LineNr">1322 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1323" class="LineNr">1323 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ab cd ef gh ", msg)</span> +<span id="L1324" class="LineNr">1324 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1325" class="LineNr">1325 </span> 68/push <span class="Constant">"F - <a href='labels_baremetal.subx.html#L1143'>test-emit-output-non-far-control-flow</a>/1"</span>/imm32 +<span id="L1326" class="LineNr">1326 </span> 68/push <span class="Constant">"ab cd ef gh "</span>/imm32 +<span id="L1327" class="LineNr">1327 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1328" class="LineNr">1328 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1329" class="LineNr">1329 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L1330" class="LineNr">1330 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1331" class="LineNr">1331 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1332" class="LineNr">1332 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ij 44 33 22 11 ", msg)</span> +<span id="L1333" class="LineNr">1333 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1334" class="LineNr">1334 </span> 68/push <span class="Constant">"F - <a href='labels_baremetal.subx.html#L1143'>test-emit-output-non-far-control-flow</a>/2"</span>/imm32 +<span id="L1335" class="LineNr">1335 </span> 68/push <span class="Constant">"ij 44 33 22 11 "</span>/imm32 +<span id="L1336" class="LineNr">1336 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1337" class="LineNr">1337 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1338" class="LineNr">1338 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L1339" class="LineNr">1339 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1340" class="LineNr">1340 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1341" class="LineNr">1341 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "# 0x00007c09", msg)</span> +<span id="L1342" class="LineNr">1342 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1343" class="LineNr">1343 </span> 68/push <span class="Constant">"F - <a href='labels_baremetal.subx.html#L1143'>test-emit-output-non-far-control-flow</a>/3"</span>/imm32 +<span id="L1344" class="LineNr">1344 </span> 68/push <span class="Constant">"# 0x00007c09"</span>/imm32 +<span id="L1345" class="LineNr">1345 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1346" class="LineNr">1346 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1347" class="LineNr">1347 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L1348" class="LineNr">1348 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1349" class="LineNr">1349 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1350" class="LineNr">1350 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "00 ", msg)</span> +<span id="L1351" class="LineNr">1351 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1352" class="LineNr">1352 </span> 68/push <span class="Constant">"F - <a href='labels_baremetal.subx.html#L1143'>test-emit-output-non-far-control-flow</a>/3"</span>/imm32 +<span id="L1353" class="LineNr">1353 </span> 68/push <span class="Constant">"00 "</span>/imm32 +<span id="L1354" class="LineNr">1354 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1355" class="LineNr">1355 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1356" class="LineNr">1356 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L1357" class="LineNr">1357 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1358" class="LineNr">1358 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1359" class="LineNr">1359 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "34 ", msg)</span> +<span id="L1360" class="LineNr">1360 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1361" class="LineNr">1361 </span> 68/push <span class="Constant">"F - <a href='labels_baremetal.subx.html#L1143'>test-emit-output-non-far-control-flow</a>/4"</span>/imm32 +<span id="L1362" class="LineNr">1362 </span> 68/push <span class="Constant">"34 "</span>/imm32 +<span id="L1363" class="LineNr">1363 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1364" class="LineNr">1364 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1365" class="LineNr">1365 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L1366" class="LineNr">1366 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1367" class="LineNr">1367 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1368" class="LineNr">1368 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1369" class="LineNr">1369 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1370" class="LineNr">1370 </span> 5d/pop-to-ebp +<span id="L1371" class="LineNr">1371 </span> c3/return +<span id="L1372" class="LineNr">1372 </span> +<span id="L1373" class="LineNr">1373 </span><span class="subxTest">test-emit-output-with-padding</span>: +<span id="L1374" class="LineNr">1374 </span> <span class="subxComment"># labels turn into absolute addresses if opcodes are not far jumps or calls</span> +<span id="L1375" class="LineNr">1375 </span> <span class="subxComment">#</span> +<span id="L1376" class="LineNr">1376 </span> <span class="subxComment"># input:</span> +<span id="L1377" class="LineNr">1377 </span> <span class="subxComment"># in:</span> +<span id="L1378" class="LineNr">1378 </span> <span class="subxComment"># == code</span> +<span id="L1379" class="LineNr">1379 </span> <span class="subxComment"># ab cd ef gh</span> +<span id="L1380" class="LineNr">1380 </span> <span class="subxComment"># == data 0x7c10</span> +<span id="L1381" class="LineNr">1381 </span> <span class="subxComment"># 34</span> +<span id="L1382" class="LineNr">1382 </span> <span class="subxComment">#</span> +<span id="L1383" class="LineNr">1383 </span> <span class="subxComment"># output:</span> +<span id="L1384" class="LineNr">1384 </span> <span class="subxComment"># ab cd ef gh</span> +<span id="L1385" class="LineNr">1385 </span> <span class="subxComment"># # 0x7c04</span> +<span id="L1386" class="LineNr">1386 </span> <span class="subxComment"># 00 00 00 00</span> +<span id="L1387" class="LineNr">1387 </span> <span class="subxComment"># 00 00 00 00 00 00 00 00</span> +<span id="L1388" class="LineNr">1388 </span> <span class="subxComment"># # 0x7c10</span> +<span id="L1389" class="LineNr">1389 </span> <span class="subxComment"># 34</span> +<span id="L1390" class="LineNr">1390 </span> <span class="subxComment">#</span> +<span id="L1391" class="LineNr">1391 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1392" class="LineNr">1392 </span> 55/push-ebp +<span id="L1393" class="LineNr">1393 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1394" class="LineNr">1394 </span> <span class="subxComment"># setup</span> +<span id="L1395" class="LineNr">1395 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L1396" class="LineNr">1396 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1397" class="LineNr">1397 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1398" class="LineNr">1398 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1399" class="LineNr">1399 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1400" class="LineNr">1400 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1401" class="LineNr">1401 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1402" class="LineNr">1402 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L1403" class="LineNr">1403 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1404" class="LineNr">1404 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1405" class="LineNr">1405 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1406" class="LineNr">1406 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1407" class="LineNr">1407 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1408" class="LineNr">1408 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1409" class="LineNr">1409 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L1410" class="LineNr">1410 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1411" class="LineNr">1411 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L1412" class="LineNr">1412 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1413" class="LineNr">1413 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1414" class="LineNr">1414 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1415" class="LineNr">1415 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1416" class="LineNr">1416 </span> <span class="subxS1Comment"># . var labels/edx: (stream byte 8*24)</span> +<span id="L1417" class="LineNr">1417 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc0/imm32 <span class="subxComment"># subtract from esp</span> +<span id="L1418" class="LineNr">1418 </span> 68/push 0xc0/imm32/size +<span id="L1419" class="LineNr">1419 </span> 68/push 0/imm32/read +<span id="L1420" class="LineNr">1420 </span> 68/push 0/imm32/write +<span id="L1421" class="LineNr">1421 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L1422" class="LineNr">1422 </span> <span class="subxS1Comment"># . var h/ebx: (handle array byte)</span> +<span id="L1423" class="LineNr">1423 </span> 68/push 0/imm32 +<span id="L1424" class="LineNr">1424 </span> 68/push 0/imm32 +<span id="L1425" class="LineNr">1425 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> +<span id="L1426" class="LineNr">1426 </span> <span class="subxComment"># initialize input</span> +<span id="L1427" class="LineNr">1427 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== code\n")</span> +<span id="L1428" class="LineNr">1428 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1429" class="LineNr">1429 </span> 68/push <span class="Constant">"== code\n"</span>/imm32 +<span id="L1430" class="LineNr">1430 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1431" class="LineNr">1431 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1432" class="LineNr">1432 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1433" class="LineNr">1433 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1434" class="LineNr">1434 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1435" class="LineNr">1435 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab cd ef gh\n")</span> +<span id="L1436" class="LineNr">1436 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1437" class="LineNr">1437 </span> 68/push <span class="Constant">"ab cd ef gh\n"</span>/imm32 +<span id="L1438" class="LineNr">1438 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1439" class="LineNr">1439 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1440" class="LineNr">1440 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1441" class="LineNr">1441 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1442" class="LineNr">1442 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1443" class="LineNr">1443 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== data 0x7c10\n")</span> +<span id="L1444" class="LineNr">1444 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1445" class="LineNr">1445 </span> 68/push <span class="Constant">"== data 0x7c10\n"</span>/imm32 +<span id="L1446" class="LineNr">1446 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1447" class="LineNr">1447 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1448" class="LineNr">1448 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1449" class="LineNr">1449 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1450" class="LineNr">1450 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1451" class="LineNr">1451 </span> <span class="subxS1Comment"># . write(_test-input-stream, "34\n")</span> +<span id="L1452" class="LineNr">1452 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1453" class="LineNr">1453 </span> 68/push <span class="Constant">"34\n"</span>/imm32 +<span id="L1454" class="LineNr">1454 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1455" class="LineNr">1455 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1456" class="LineNr">1456 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1457" class="LineNr">1457 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1458" class="LineNr">1458 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1459" class="LineNr">1459 </span> <span class="subxComment"># component under test</span> +<span id="L1460" class="LineNr">1460 </span> <span class="subxS1Comment"># . emit-output(_test-input-stream, _test-output-buffered-file, labels)</span> +<span id="L1461" class="LineNr">1461 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1462" class="LineNr">1462 </span> 52/push-edx +<span id="L1463" class="LineNr">1463 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1464" class="LineNr">1464 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1465" class="LineNr">1465 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1466" class="LineNr">1466 </span> e8/call <a href='labels_baremetal.subx.html#L395'>emit-output</a>/disp32 +<span id="L1467" class="LineNr">1467 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1468" class="LineNr">1468 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1469" class="LineNr">1469 </span> <span class="subxComment"># checks</span> +<span id="L1470" class="LineNr">1470 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L1471" class="LineNr">1471 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1472" class="LineNr">1472 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1473" class="LineNr">1473 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1474" class="LineNr">1474 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1475" class="LineNr">1475 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1476" class="LineNr">1476 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1477" class="Folded">1477 </span><span class="Folded">+-- 33 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1510" class="LineNr">1510 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "# 0x00007c00", msg)</span> +<span id="L1511" class="LineNr">1511 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1512" class="LineNr">1512 </span> 68/push <span class="Constant">"F - <a href='labels_baremetal.subx.html#L1373'>test-emit-output-with-padding</a>/0"</span>/imm32 +<span id="L1513" class="LineNr">1513 </span> 68/push <span class="Constant">"# 0x00007c00"</span>/imm32 +<span id="L1514" class="LineNr">1514 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1515" class="LineNr">1515 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1516" class="LineNr">1516 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L1517" class="LineNr">1517 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1518" class="LineNr">1518 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1519" class="LineNr">1519 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ab cd ef gh ", msg)</span> +<span id="L1520" class="LineNr">1520 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1521" class="LineNr">1521 </span> 68/push <span class="Constant">"F - <a href='labels_baremetal.subx.html#L1373'>test-emit-output-with-padding</a>/1"</span>/imm32 +<span id="L1522" class="LineNr">1522 </span> 68/push <span class="Constant">"ab cd ef gh "</span>/imm32 +<span id="L1523" class="LineNr">1523 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1524" class="LineNr">1524 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1525" class="LineNr">1525 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L1526" class="LineNr">1526 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1527" class="LineNr">1527 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1528" class="LineNr">1528 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "# 0x00007c04", msg)</span> +<span id="L1529" class="LineNr">1529 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1530" class="LineNr">1530 </span> 68/push <span class="Constant">"F - <a href='labels_baremetal.subx.html#L1373'>test-emit-output-with-padding</a>/0"</span>/imm32 +<span id="L1531" class="LineNr">1531 </span> 68/push <span class="Constant">"# 0x00007c04"</span>/imm32 +<span id="L1532" class="LineNr">1532 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1533" class="LineNr">1533 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1534" class="LineNr">1534 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L1535" class="LineNr">1535 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1536" class="LineNr">1536 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1537" class="LineNr">1537 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "00 00 00 00 ", msg)</span> +<span id="L1538" class="LineNr">1538 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1539" class="LineNr">1539 </span> 68/push <span class="Constant">"F - <a href='labels_baremetal.subx.html#L1373'>test-emit-output-with-padding</a>/2"</span>/imm32 +<span id="L1540" class="LineNr">1540 </span> 68/push <span class="Constant">"00 00 00 00 "</span>/imm32 +<span id="L1541" class="LineNr">1541 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1542" class="LineNr">1542 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1543" class="LineNr">1543 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L1544" class="LineNr">1544 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1545" class="LineNr">1545 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1546" class="LineNr">1546 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "00 00 00 00 ", msg)</span> +<span id="L1547" class="LineNr">1547 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1548" class="LineNr">1548 </span> 68/push <span class="Constant">"F - <a href='labels_baremetal.subx.html#L1373'>test-emit-output-with-padding</a>/3"</span>/imm32 +<span id="L1549" class="LineNr">1549 </span> 68/push <span class="Constant">"00 00 00 00 00 00 00 00 "</span>/imm32 +<span id="L1550" class="LineNr">1550 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1551" class="LineNr">1551 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1552" class="LineNr">1552 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L1553" class="LineNr">1553 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1554" class="LineNr">1554 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1555" class="LineNr">1555 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "# 0x00007c10", msg)</span> +<span id="L1556" class="LineNr">1556 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1557" class="LineNr">1557 </span> 68/push <span class="Constant">"F - <a href='labels_baremetal.subx.html#L1373'>test-emit-output-with-padding</a>/0"</span>/imm32 +<span id="L1558" class="LineNr">1558 </span> 68/push <span class="Constant">"# 0x00007c10"</span>/imm32 +<span id="L1559" class="LineNr">1559 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1560" class="LineNr">1560 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1561" class="LineNr">1561 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L1562" class="LineNr">1562 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1563" class="LineNr">1563 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1564" class="LineNr">1564 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "34 ", msg)</span> +<span id="L1565" class="LineNr">1565 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1566" class="LineNr">1566 </span> 68/push <span class="Constant">"F - <a href='labels_baremetal.subx.html#L1373'>test-emit-output-with-padding</a>/4"</span>/imm32 +<span id="L1567" class="LineNr">1567 </span> 68/push <span class="Constant">"34 "</span>/imm32 +<span id="L1568" class="LineNr">1568 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1569" class="LineNr">1569 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1570" class="LineNr">1570 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L1571" class="LineNr">1571 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1572" class="LineNr">1572 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1573" class="LineNr">1573 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1574" class="LineNr">1574 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1575" class="LineNr">1575 </span> 5d/pop-to-ebp +<span id="L1576" class="LineNr">1576 </span> c3/return +<span id="L1577" class="LineNr">1577 </span> +<span id="L1578" class="LineNr">1578 </span><span class="subxTest">test-emit-output-code-label</span>: +<span id="L1579" class="LineNr">1579 </span> <span class="subxComment"># labels turn into PC-relative addresses if opcodes are far jumps or calls</span> +<span id="L1580" class="LineNr">1580 </span> <span class="subxComment">#</span> +<span id="L1581" class="LineNr">1581 </span> <span class="subxComment"># input:</span> +<span id="L1582" class="LineNr">1582 </span> <span class="subxComment"># in:</span> +<span id="L1583" class="LineNr">1583 </span> <span class="subxComment"># == code</span> +<span id="L1584" class="LineNr">1584 </span> <span class="subxComment"># ab cd</span> +<span id="L1585" class="LineNr">1585 </span> <span class="subxComment"># ef gh</span> +<span id="L1586" class="LineNr">1586 </span> <span class="subxComment"># e8 l1/disp32</span> +<span id="L1587" class="LineNr">1587 </span> <span class="subxComment"># labels:</span> +<span id="L1588" class="LineNr">1588 </span> <span class="subxComment"># - 'l1': 0x7c10</span> +<span id="L1589" class="LineNr">1589 </span> <span class="subxComment">#</span> +<span id="L1590" class="LineNr">1590 </span> <span class="subxComment"># output:</span> +<span id="L1591" class="LineNr">1591 </span> <span class="subxComment"># ab cd</span> +<span id="L1592" class="LineNr">1592 </span> <span class="subxComment"># ef gh</span> +<span id="L1593" class="LineNr">1593 </span> <span class="subxComment"># e8 07 00 00 00 # 0x7c10 - 0x7c09 = 7</span> +<span id="L1594" class="LineNr">1594 </span> <span class="subxComment">#</span> +<span id="L1595" class="LineNr">1595 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1596" class="LineNr">1596 </span> 55/push-ebp +<span id="L1597" class="LineNr">1597 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1598" class="LineNr">1598 </span> <span class="subxComment"># setup</span> +<span id="L1599" class="LineNr">1599 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L1600" class="LineNr">1600 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1601" class="LineNr">1601 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1602" class="LineNr">1602 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1603" class="LineNr">1603 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1604" class="LineNr">1604 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1605" class="LineNr">1605 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1606" class="LineNr">1606 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L1607" class="LineNr">1607 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1608" class="LineNr">1608 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1609" class="LineNr">1609 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1610" class="LineNr">1610 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1611" class="LineNr">1611 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1612" class="LineNr">1612 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1613" class="LineNr">1613 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L1614" class="LineNr">1614 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1615" class="LineNr">1615 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L1616" class="LineNr">1616 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1617" class="LineNr">1617 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1618" class="LineNr">1618 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1619" class="LineNr">1619 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1620" class="LineNr">1620 </span> <span class="subxS1Comment"># . var labels/edx: (stream byte 8*24)</span> +<span id="L1621" class="LineNr">1621 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc0/imm32 <span class="subxComment"># subtract from esp</span> +<span id="L1622" class="LineNr">1622 </span> 68/push 0xc0/imm32/size +<span id="L1623" class="LineNr">1623 </span> 68/push 0/imm32/read +<span id="L1624" class="LineNr">1624 </span> 68/push 0/imm32/write +<span id="L1625" class="LineNr">1625 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L1626" class="LineNr">1626 </span> <span class="subxS1Comment"># . var h/ebx: (handle array byte)</span> +<span id="L1627" class="LineNr">1627 </span> 68/push 0/imm32 +<span id="L1628" class="LineNr">1628 </span> 68/push 0/imm32 +<span id="L1629" class="LineNr">1629 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> +<span id="L1630" class="LineNr">1630 </span> <span class="subxComment"># initialize input</span> +<span id="L1631" class="LineNr">1631 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== code\n")</span> +<span id="L1632" class="LineNr">1632 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1633" class="LineNr">1633 </span> 68/push <span class="Constant">"== code\n"</span>/imm32 +<span id="L1634" class="LineNr">1634 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1635" class="LineNr">1635 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1636" class="LineNr">1636 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1637" class="LineNr">1637 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1638" class="LineNr">1638 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1639" class="LineNr">1639 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab cd\n")</span> +<span id="L1640" class="LineNr">1640 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1641" class="LineNr">1641 </span> 68/push <span class="Constant">"ab cd\n"</span>/imm32 +<span id="L1642" class="LineNr">1642 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1643" class="LineNr">1643 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1644" class="LineNr">1644 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1645" class="LineNr">1645 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1646" class="LineNr">1646 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1647" class="LineNr">1647 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ef gh\n")</span> +<span id="L1648" class="LineNr">1648 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1649" class="LineNr">1649 </span> 68/push <span class="Constant">"ef gh\n"</span>/imm32 +<span id="L1650" class="LineNr">1650 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1651" class="LineNr">1651 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1652" class="LineNr">1652 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1653" class="LineNr">1653 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1654" class="LineNr">1654 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1655" class="LineNr">1655 </span> <span class="subxS1Comment"># . write(_test-input-stream, "e8 l1/disp32\n")</span> +<span id="L1656" class="LineNr">1656 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1657" class="LineNr">1657 </span> 68/push <span class="Constant">"e8 l1/disp32\n"</span>/imm32 +<span id="L1658" class="LineNr">1658 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1659" class="LineNr">1659 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1660" class="LineNr">1660 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1661" class="LineNr">1661 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1662" class="LineNr">1662 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1663" class="LineNr">1663 </span> <span class="subxS1Comment"># . stream-add2(labels, "l1", 0x7c10)</span> +<span id="L1664" class="LineNr">1664 </span> 68/push 0x7c10/imm32/label-address +<span id="L1665" class="LineNr">1665 </span> <span class="subxS2Comment"># . . push handle for "l1"</span> +<span id="L1666" class="LineNr">1666 </span> 53/push-ebx +<span id="L1667" class="LineNr">1667 </span> 68/push <span class="Constant">"l1"</span>/imm32 +<span id="L1668" class="LineNr">1668 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L1669" class="LineNr">1669 </span> e8/call <a href='120allocate.subx.html#L720'>copy-array</a>/disp32 +<span id="L1670" class="LineNr">1670 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1671" class="LineNr">1671 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> +<span id="L1672" class="LineNr">1672 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> +<span id="L1673" class="LineNr">1673 </span> <span class="subxS2Comment"># . . push labels</span> +<span id="L1674" class="LineNr">1674 </span> 52/push-edx +<span id="L1675" class="LineNr">1675 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1676" class="LineNr">1676 </span> e8/call <a href='labels_baremetal.subx.html#L2100'>stream-add2</a>/disp32 +<span id="L1677" class="LineNr">1677 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1678" class="LineNr">1678 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L1679" class="LineNr">1679 </span> <span class="subxComment"># component under test</span> +<span id="L1680" class="LineNr">1680 </span> <span class="subxS1Comment"># . emit-output(_test-input-stream, _test-output-buffered-file, labels)</span> +<span id="L1681" class="LineNr">1681 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1682" class="LineNr">1682 </span> 52/push-edx +<span id="L1683" class="LineNr">1683 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1684" class="LineNr">1684 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1685" class="LineNr">1685 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1686" class="LineNr">1686 </span> e8/call <a href='labels_baremetal.subx.html#L395'>emit-output</a>/disp32 +<span id="L1687" class="LineNr">1687 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1688" class="LineNr">1688 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1689" class="LineNr">1689 </span> <span class="subxComment"># checks</span> +<span id="L1690" class="LineNr">1690 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L1691" class="LineNr">1691 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1692" class="LineNr">1692 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1693" class="LineNr">1693 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1694" class="LineNr">1694 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1695" class="LineNr">1695 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1696" class="LineNr">1696 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1697" class="Folded">1697 </span><span class="Folded">+-- 33 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1730" class="LineNr">1730 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "# 0x00007c00", msg)</span> +<span id="L1731" class="LineNr">1731 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1732" class="LineNr">1732 </span> 68/push <span class="Constant">"F - <a href='labels_baremetal.subx.html#L1578'>test-emit-output-code-label</a>/0"</span>/imm32 +<span id="L1733" class="LineNr">1733 </span> 68/push <span class="Constant">"# 0x00007c00"</span>/imm32 +<span id="L1734" class="LineNr">1734 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1735" class="LineNr">1735 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1736" class="LineNr">1736 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L1737" class="LineNr">1737 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1738" class="LineNr">1738 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1739" class="LineNr">1739 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ab cd ", msg)</span> +<span id="L1740" class="LineNr">1740 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1741" class="LineNr">1741 </span> 68/push <span class="Constant">"F - <a href='labels_baremetal.subx.html#L1578'>test-emit-output-code-label</a>/1"</span>/imm32 +<span id="L1742" class="LineNr">1742 </span> 68/push <span class="Constant">"ab cd "</span>/imm32 +<span id="L1743" class="LineNr">1743 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1744" class="LineNr">1744 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1745" class="LineNr">1745 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L1746" class="LineNr">1746 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1747" class="LineNr">1747 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1748" class="LineNr">1748 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ef gh ", msg)</span> +<span id="L1749" class="LineNr">1749 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1750" class="LineNr">1750 </span> 68/push <span class="Constant">"F - <a href='labels_baremetal.subx.html#L1578'>test-emit-output-code-label</a>/2"</span>/imm32 +<span id="L1751" class="LineNr">1751 </span> 68/push <span class="Constant">"ef gh "</span>/imm32 +<span id="L1752" class="LineNr">1752 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1753" class="LineNr">1753 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1754" class="LineNr">1754 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L1755" class="LineNr">1755 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1756" class="LineNr">1756 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1757" class="LineNr">1757 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "e8 07 00 00 00 ", msg)</span> +<span id="L1758" class="LineNr">1758 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1759" class="LineNr">1759 </span> 68/push <span class="Constant">"F - <a href='labels_baremetal.subx.html#L1578'>test-emit-output-code-label</a>/3"</span>/imm32 +<span id="L1760" class="LineNr">1760 </span> 68/push <span class="Constant">"e8 07 00 00 00 "</span>/imm32 +<span id="L1761" class="LineNr">1761 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1762" class="LineNr">1762 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1763" class="LineNr">1763 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L1764" class="LineNr">1764 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1765" class="LineNr">1765 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1766" class="LineNr">1766 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1767" class="LineNr">1767 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1768" class="LineNr">1768 </span> 5d/pop-to-ebp +<span id="L1769" class="LineNr">1769 </span> c3/return +<span id="L1770" class="LineNr">1770 </span> +<span id="L1771" class="LineNr">1771 </span><span class="subxTest">test-emit-output-code-label-absolute</span>: +<span id="L1772" class="LineNr">1772 </span> <span class="subxComment"># labels can also convert to absolute addresses</span> +<span id="L1773" class="LineNr">1773 </span> <span class="subxComment">#</span> +<span id="L1774" class="LineNr">1774 </span> <span class="subxComment"># input:</span> +<span id="L1775" class="LineNr">1775 </span> <span class="subxComment"># in:</span> +<span id="L1776" class="LineNr">1776 </span> <span class="subxComment"># == code</span> +<span id="L1777" class="LineNr">1777 </span> <span class="subxComment"># ab cd</span> +<span id="L1778" class="LineNr">1778 </span> <span class="subxComment"># ef gh</span> +<span id="L1779" class="LineNr">1779 </span> <span class="subxComment"># ij l1/imm32</span> +<span id="L1780" class="LineNr">1780 </span> <span class="subxComment"># labels:</span> +<span id="L1781" class="LineNr">1781 </span> <span class="subxComment"># - 'l1': 0x1056</span> +<span id="L1782" class="LineNr">1782 </span> <span class="subxComment">#</span> +<span id="L1783" class="LineNr">1783 </span> <span class="subxComment"># output:</span> +<span id="L1784" class="LineNr">1784 </span> <span class="subxComment"># ab cd</span> +<span id="L1785" class="LineNr">1785 </span> <span class="subxComment"># ef gh</span> +<span id="L1786" class="LineNr">1786 </span> <span class="subxComment"># ij 56 10 00 00</span> +<span id="L1787" class="LineNr">1787 </span> <span class="subxComment">#</span> +<span id="L1788" class="LineNr">1788 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1789" class="LineNr">1789 </span> 55/push-ebp +<span id="L1790" class="LineNr">1790 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1791" class="LineNr">1791 </span> <span class="subxComment"># setup</span> +<span id="L1792" class="LineNr">1792 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L1793" class="LineNr">1793 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1794" class="LineNr">1794 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1795" class="LineNr">1795 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1796" class="LineNr">1796 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1797" class="LineNr">1797 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1798" class="LineNr">1798 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1799" class="LineNr">1799 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L1800" class="LineNr">1800 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1801" class="LineNr">1801 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1802" class="LineNr">1802 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1803" class="LineNr">1803 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1804" class="LineNr">1804 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1805" class="LineNr">1805 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1806" class="LineNr">1806 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L1807" class="LineNr">1807 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1808" class="LineNr">1808 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L1809" class="LineNr">1809 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1810" class="LineNr">1810 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1811" class="LineNr">1811 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1812" class="LineNr">1812 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1813" class="LineNr">1813 </span> <span class="subxS1Comment"># . var labels/edx: (stream byte 8*24)</span> +<span id="L1814" class="LineNr">1814 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc0/imm32 <span class="subxComment"># subtract from esp</span> +<span id="L1815" class="LineNr">1815 </span> 68/push 0xc0/imm32/size +<span id="L1816" class="LineNr">1816 </span> 68/push 0/imm32/read +<span id="L1817" class="LineNr">1817 </span> 68/push 0/imm32/write +<span id="L1818" class="LineNr">1818 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L1819" class="LineNr">1819 </span> <span class="subxS1Comment"># . var h/ebx: (handle array byte)</span> +<span id="L1820" class="LineNr">1820 </span> 68/push 0/imm32 +<span id="L1821" class="LineNr">1821 </span> 68/push 0/imm32 +<span id="L1822" class="LineNr">1822 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> +<span id="L1823" class="LineNr">1823 </span> <span class="subxComment"># initialize input</span> +<span id="L1824" class="LineNr">1824 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== code 0x1000\n")</span> +<span id="L1825" class="LineNr">1825 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1826" class="LineNr">1826 </span> 68/push <span class="Constant">"== code\n"</span>/imm32 +<span id="L1827" class="LineNr">1827 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1828" class="LineNr">1828 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1829" class="LineNr">1829 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1830" class="LineNr">1830 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1831" class="LineNr">1831 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1832" class="LineNr">1832 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab cd\n")</span> +<span id="L1833" class="LineNr">1833 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1834" class="LineNr">1834 </span> 68/push <span class="Constant">"ab cd\n"</span>/imm32 +<span id="L1835" class="LineNr">1835 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1836" class="LineNr">1836 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1837" class="LineNr">1837 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1838" class="LineNr">1838 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1839" class="LineNr">1839 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1840" class="LineNr">1840 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ef gh\n")</span> +<span id="L1841" class="LineNr">1841 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1842" class="LineNr">1842 </span> 68/push <span class="Constant">"ef gh\n"</span>/imm32 +<span id="L1843" class="LineNr">1843 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1844" class="LineNr">1844 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1845" class="LineNr">1845 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1846" class="LineNr">1846 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1847" class="LineNr">1847 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1848" class="LineNr">1848 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ij l1/imm32\n")</span> +<span id="L1849" class="LineNr">1849 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1850" class="LineNr">1850 </span> 68/push <span class="Constant">"ij l1/imm32\n"</span>/imm32 +<span id="L1851" class="LineNr">1851 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1852" class="LineNr">1852 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1853" class="LineNr">1853 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1854" class="LineNr">1854 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1855" class="LineNr">1855 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1856" class="LineNr">1856 </span> <span class="subxS1Comment"># . stream-add2(labels, "l1", 0x1056)</span> +<span id="L1857" class="LineNr">1857 </span> 68/push 0x1056/imm32/label-address +<span id="L1858" class="LineNr">1858 </span> <span class="subxS2Comment"># . . push handle for "l1"</span> +<span id="L1859" class="LineNr">1859 </span> 53/push-ebx +<span id="L1860" class="LineNr">1860 </span> 68/push <span class="Constant">"l1"</span>/imm32 +<span id="L1861" class="LineNr">1861 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L1862" class="LineNr">1862 </span> e8/call <a href='120allocate.subx.html#L720'>copy-array</a>/disp32 +<span id="L1863" class="LineNr">1863 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1864" class="LineNr">1864 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> +<span id="L1865" class="LineNr">1865 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> +<span id="L1866" class="LineNr">1866 </span> <span class="subxS2Comment"># . . push labels</span> +<span id="L1867" class="LineNr">1867 </span> 52/push-edx +<span id="L1868" class="LineNr">1868 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1869" class="LineNr">1869 </span> e8/call <a href='labels_baremetal.subx.html#L2100'>stream-add2</a>/disp32 +<span id="L1870" class="LineNr">1870 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1871" class="LineNr">1871 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L1872" class="LineNr">1872 </span> <span class="subxComment"># component under test</span> +<span id="L1873" class="LineNr">1873 </span> <span class="subxS1Comment"># . emit-output(_test-input-stream, _test-output-buffered-file, labels)</span> +<span id="L1874" class="LineNr">1874 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1875" class="LineNr">1875 </span> 52/push-edx +<span id="L1876" class="LineNr">1876 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1877" class="LineNr">1877 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1878" class="LineNr">1878 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1879" class="LineNr">1879 </span> e8/call <a href='labels_baremetal.subx.html#L395'>emit-output</a>/disp32 +<span id="L1880" class="LineNr">1880 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1881" class="LineNr">1881 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1882" class="LineNr">1882 </span> <span class="subxComment"># checks</span> +<span id="L1883" class="LineNr">1883 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L1884" class="LineNr">1884 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1885" class="LineNr">1885 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1886" class="LineNr">1886 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1887" class="LineNr">1887 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1888" class="LineNr">1888 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1889" class="LineNr">1889 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1890" class="Folded">1890 </span><span class="Folded">+-- 33 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1923" class="LineNr">1923 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "# 0x00007c00", msg)</span> +<span id="L1924" class="LineNr">1924 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1925" class="LineNr">1925 </span> 68/push <span class="Constant">"F - <a href='labels_baremetal.subx.html#L1771'>test-emit-output-code-label-absolute</a>/0"</span>/imm32 +<span id="L1926" class="LineNr">1926 </span> 68/push <span class="Constant">"# 0x00007c00"</span>/imm32 +<span id="L1927" class="LineNr">1927 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1928" class="LineNr">1928 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1929" class="LineNr">1929 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L1930" class="LineNr">1930 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1931" class="LineNr">1931 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1932" class="LineNr">1932 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ab cd ", msg)</span> +<span id="L1933" class="LineNr">1933 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1934" class="LineNr">1934 </span> 68/push <span class="Constant">"F - <a href='labels_baremetal.subx.html#L1771'>test-emit-output-code-label-absolute</a>/1"</span>/imm32 +<span id="L1935" class="LineNr">1935 </span> 68/push <span class="Constant">"ab cd "</span>/imm32 +<span id="L1936" class="LineNr">1936 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1937" class="LineNr">1937 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1938" class="LineNr">1938 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L1939" class="LineNr">1939 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1940" class="LineNr">1940 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1941" class="LineNr">1941 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ef gh ", msg)</span> +<span id="L1942" class="LineNr">1942 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1943" class="LineNr">1943 </span> 68/push <span class="Constant">"F - <a href='labels_baremetal.subx.html#L1771'>test-emit-output-code-label-absolute</a>/2"</span>/imm32 +<span id="L1944" class="LineNr">1944 </span> 68/push <span class="Constant">"ef gh "</span>/imm32 +<span id="L1945" class="LineNr">1945 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1946" class="LineNr">1946 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1947" class="LineNr">1947 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L1948" class="LineNr">1948 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1949" class="LineNr">1949 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1950" class="LineNr">1950 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ij f9 ff ff ff ", msg)</span> +<span id="L1951" class="LineNr">1951 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1952" class="LineNr">1952 </span> 68/push <span class="Constant">"F - <a href='labels_baremetal.subx.html#L1771'>test-emit-output-code-label-absolute</a>/3"</span>/imm32 +<span id="L1953" class="LineNr">1953 </span> 68/push <span class="Constant">"ij 56 10 00 00 "</span>/imm32 +<span id="L1954" class="LineNr">1954 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1955" class="LineNr">1955 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1956" class="LineNr">1956 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L1957" class="LineNr">1957 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1958" class="LineNr">1958 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1959" class="LineNr">1959 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1960" class="LineNr">1960 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1961" class="LineNr">1961 </span> 5d/pop-to-ebp +<span id="L1962" class="LineNr">1962 </span> c3/return +<span id="L1963" class="LineNr">1963 </span> +<span id="L1964" class="LineNr">1964 </span><span class="subxComment"># reads line to make some checks</span> +<span id="L1965" class="LineNr">1965 </span><span class="subxComment"># don't assume the read state of line after calling this function</span> +<span id="L1966" class="LineNr">1966 </span><span class="subxFunction">far-jump-or-call?</span>: <span class="subxComment"># line: (addr stream byte) -> result/edi: boolean</span> +<span id="L1967" class="LineNr">1967 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1968" class="LineNr">1968 </span> 55/push-ebp +<span id="L1969" class="LineNr">1969 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1970" class="LineNr">1970 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L1971" class="LineNr">1971 </span> 50/push-eax +<span id="L1972" class="LineNr">1972 </span> 51/push-ecx +<span id="L1973" class="LineNr">1973 </span> 52/push-edx +<span id="L1974" class="LineNr">1974 </span> 53/push-ebx +<span id="L1975" class="LineNr">1975 </span> <span class="subxComment"># ecx = line</span> +<span id="L1976" class="LineNr">1976 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> +<span id="L1977" class="LineNr">1977 </span> <span class="subxComment"># var word-slice/edx: slice</span> +<span id="L1978" class="LineNr">1978 </span> 68/push 0/imm32/end +<span id="L1979" class="LineNr">1979 </span> 68/push 0/imm32/start +<span id="L1980" class="LineNr">1980 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L1981" class="LineNr">1981 </span> <span class="subxComment"># var datum-slice/ebx: slice</span> +<span id="L1982" class="LineNr">1982 </span> 68/push 0/imm32/end +<span id="L1983" class="LineNr">1983 </span> 68/push 0/imm32/start +<span id="L1984" class="LineNr">1984 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> +<span id="L1985" class="LineNr">1985 </span> <span class="subxComment"># result = false</span> +<span id="L1986" class="LineNr">1986 </span> bf/copy-to-edi 0/imm32/false +<span id="L1987" class="LineNr">1987 </span><span class="Constant">$far-jump-or-call?:check-first-word</span>: +<span id="L1988" class="LineNr">1988 </span> <span class="subxComment"># next-word(line, word-slice)</span> +<span id="L1989" class="LineNr">1989 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1990" class="LineNr">1990 </span> 52/push-edx +<span id="L1991" class="LineNr">1991 </span> 51/push-ecx +<span id="L1992" class="LineNr">1992 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1993" class="LineNr">1993 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L1994" class="LineNr">1994 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1995" class="LineNr">1995 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1996" class="LineNr">1996 </span> <span class="subxComment"># if (slice-empty?(word-slice)) return false</span> +<span id="L1997" class="LineNr">1997 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> +<span id="L1998" class="LineNr">1998 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1999" class="LineNr">1999 </span> 52/push-edx +<span id="L2000" class="LineNr">2000 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2001" class="LineNr">2001 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L2002" class="LineNr">2002 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2003" class="LineNr">2003 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2004" class="LineNr">2004 </span> <span class="subxS1Comment"># . if (eax != 0) return</span> +<span id="L2005" class="LineNr">2005 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2006" class="LineNr">2006 </span> 0f 85/jump-if-!= $far-jump-or-call?:end/disp32 +<span id="L2007" class="LineNr">2007 </span> <span class="subxComment"># datum = next-token-from-slice(word-slice->start, word-slice->end, "/")</span> +<span id="L2008" class="LineNr">2008 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2009" class="LineNr">2009 </span> 53/push-ebx +<span id="L2010" class="LineNr">2010 </span> 68/push 0x2f/imm32/slash +<span id="L2011" class="LineNr">2011 </span> ff 6/subop/push 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edx+4)</span> +<span id="L2012" class="LineNr">2012 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> +<span id="L2013" class="LineNr">2013 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2014" class="LineNr">2014 </span> e8/call <a href='124next-token.subx.html#L163'>next-token-from-slice</a>/disp32 +<span id="L2015" class="LineNr">2015 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2016" class="LineNr">2016 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L2017" class="LineNr">2017 </span> <span class="subxComment"># if (datum-slice == "e8") return true</span> +<span id="L2018" class="LineNr">2018 </span> <span class="subxS1Comment"># . eax = slice-equal?(datum-slice, "e8")</span> +<span id="L2019" class="LineNr">2019 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2020" class="LineNr">2020 </span> 68/push <span class="Constant">"e8"</span>/imm32 +<span id="L2021" class="LineNr">2021 </span> 53/push-ebx +<span id="L2022" class="LineNr">2022 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2023" class="LineNr">2023 </span> e8/call <a href='123slice.subx.html#L120'>slice-equal?</a>/disp32 +<span id="L2024" class="LineNr">2024 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2025" class="LineNr">2025 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2026" class="LineNr">2026 </span> <span class="subxS1Comment"># . if (eax != false) return true</span> +<span id="L2027" class="LineNr">2027 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2028" class="LineNr">2028 </span> 75/jump-if-!= $far-jump-or-call?:return-true/disp8 +<span id="L2029" class="LineNr">2029 </span> <span class="subxComment"># if (datum-slice == "e9") return true</span> +<span id="L2030" class="LineNr">2030 </span> <span class="subxS1Comment"># . eax = slice-equal?(datum-slice, "e9")</span> +<span id="L2031" class="LineNr">2031 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2032" class="LineNr">2032 </span> 68/push <span class="Constant">"e9"</span>/imm32 +<span id="L2033" class="LineNr">2033 </span> 53/push-ebx +<span id="L2034" class="LineNr">2034 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2035" class="LineNr">2035 </span> e8/call <a href='123slice.subx.html#L120'>slice-equal?</a>/disp32 +<span id="L2036" class="LineNr">2036 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2037" class="LineNr">2037 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2038" class="LineNr">2038 </span> <span class="subxS1Comment"># . if (eax != false) return true</span> +<span id="L2039" class="LineNr">2039 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2040" class="LineNr">2040 </span> 75/jump-if-!= $far-jump-or-call?:return-true/disp8 +<span id="L2041" class="LineNr">2041 </span> <span class="subxComment"># if (datum-slice != "0f") return false</span> +<span id="L2042" class="LineNr">2042 </span> <span class="subxS1Comment"># . eax = slice-equal?(datum-slice, "0f")</span> +<span id="L2043" class="LineNr">2043 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2044" class="LineNr">2044 </span> 68/push <span class="Constant">"0f"</span>/imm32 +<span id="L2045" class="LineNr">2045 </span> 53/push-ebx +<span id="L2046" class="LineNr">2046 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2047" class="LineNr">2047 </span> e8/call <a href='123slice.subx.html#L120'>slice-equal?</a>/disp32 +<span id="L2048" class="LineNr">2048 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2049" class="LineNr">2049 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2050" class="LineNr">2050 </span> <span class="subxS1Comment"># . if (eax == false) return</span> +<span id="L2051" class="LineNr">2051 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2052" class="LineNr">2052 </span> 74/jump-if-= $far-jump-or-call?:end/disp8 +<span id="L2053" class="LineNr">2053 </span><span class="Constant">$far-jump-or-call?:check-second-word</span>: +<span id="L2054" class="LineNr">2054 </span> <span class="subxComment"># next-word(line, word-slice)</span> +<span id="L2055" class="LineNr">2055 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2056" class="LineNr">2056 </span> 52/push-edx +<span id="L2057" class="LineNr">2057 </span> 51/push-ecx +<span id="L2058" class="LineNr">2058 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2059" class="LineNr">2059 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L2060" class="LineNr">2060 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2061" class="LineNr">2061 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2062" class="LineNr">2062 </span> <span class="subxComment"># if (slice-empty?(word-slice)) return false</span> +<span id="L2063" class="LineNr">2063 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> +<span id="L2064" class="LineNr">2064 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2065" class="LineNr">2065 </span> 52/push-edx +<span id="L2066" class="LineNr">2066 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2067" class="LineNr">2067 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L2068" class="LineNr">2068 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2069" class="LineNr">2069 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2070" class="LineNr">2070 </span> <span class="subxS1Comment"># . if (eax != 0) return</span> +<span id="L2071" class="LineNr">2071 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2072" class="LineNr">2072 </span> 75/jump-if-!= $far-jump-or-call?:end/disp8 +<span id="L2073" class="LineNr">2073 </span> <span class="subxComment"># if datum of word-slice does not start with "8", return false</span> +<span id="L2074" class="LineNr">2074 </span> <span class="subxS1Comment"># . start/eax = word-slice->start</span> +<span id="L2075" class="LineNr">2075 </span> 8b/copy 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edx to eax</span> +<span id="L2076" class="LineNr">2076 </span> <span class="subxS1Comment"># . c/eax = *start</span> +<span id="L2077" class="LineNr">2077 </span> 8a/copy-byte 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *eax to AL</span> +<span id="L2078" class="LineNr">2078 </span> 25/and-eax-with 0xff/imm32 +<span id="L2079" class="LineNr">2079 </span> <span class="subxS1Comment"># . if (eax != '8') return</span> +<span id="L2080" class="LineNr">2080 </span> 3d/compare-eax-and 0x38/imm32/8 +<span id="L2081" class="LineNr">2081 </span> 75/jump-if-!= $far-jump-or-call?:end/disp8 +<span id="L2082" class="LineNr">2082 </span> <span class="subxComment"># otherwise return true</span> +<span id="L2083" class="LineNr">2083 </span><span class="Constant">$far-jump-or-call?:return-true</span>: +<span id="L2084" class="LineNr">2084 </span> bf/copy-to-edi 1/imm32/true +<span id="L2085" class="LineNr">2085 </span><span class="Constant">$far-jump-or-call?:end</span>: +<span id="L2086" class="LineNr">2086 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L2087" class="LineNr">2087 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L2088" class="LineNr">2088 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L2089" class="LineNr">2089 </span> 5b/pop-to-ebx +<span id="L2090" class="LineNr">2090 </span> 5a/pop-to-edx +<span id="L2091" class="LineNr">2091 </span> 59/pop-to-ecx +<span id="L2092" class="LineNr">2092 </span> 58/pop-to-eax +<span id="L2093" class="LineNr">2093 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2094" class="LineNr">2094 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2095" class="LineNr">2095 </span> 5d/pop-to-ebp +<span id="L2096" class="LineNr">2096 </span> c3/return +<span id="L2097" class="LineNr">2097 </span> +<span id="L2098" class="LineNr">2098 </span><span class="subxH1Comment"># - some helpers for tests</span> +<span id="L2099" class="LineNr">2099 </span> +<span id="L2100" class="LineNr">2100 </span><span class="subxFunction">stream-add2</span>: <span class="subxComment"># in: (addr stream byte), key: handle, val: int</span> +<span id="L2101" class="LineNr">2101 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2102" class="LineNr">2102 </span> 55/push-ebp +<span id="L2103" class="LineNr">2103 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2104" class="LineNr">2104 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L2105" class="LineNr">2105 </span> 50/push-eax +<span id="L2106" class="LineNr">2106 </span> 51/push-ecx +<span id="L2107" class="LineNr">2107 </span> 52/push-edx +<span id="L2108" class="LineNr">2108 </span> 56/push-esi +<span id="L2109" class="LineNr">2109 </span> <span class="subxComment"># esi = in</span> +<span id="L2110" class="LineNr">2110 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> +<span id="L2111" class="LineNr">2111 </span> <span class="subxComment"># curr/eax = &in->data[in->write]</span> +<span id="L2112" class="LineNr">2112 </span> <span class="subxS1Comment"># . eax = in->write</span> +<span id="L2113" class="LineNr">2113 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> +<span id="L2114" class="LineNr">2114 </span> <span class="subxS1Comment"># . eax = esi+eax+12</span> +<span id="L2115" class="LineNr">2115 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 0/index/eax <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+eax+12 to eax</span> +<span id="L2116" class="LineNr">2116 </span> <span class="subxComment"># max/edx = &in->data[in->size]</span> +<span id="L2117" class="LineNr">2117 </span> <span class="subxS1Comment"># . edx = in->size</span> +<span id="L2118" class="LineNr">2118 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+8) to edx</span> +<span id="L2119" class="LineNr">2119 </span> <span class="subxS1Comment"># . edx = esi+edx+12</span> +<span id="L2120" class="LineNr">2120 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 2/index/edx <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+edx+12 to edx</span> +<span id="L2121" class="LineNr">2121 </span> <span class="subxComment"># if (curr >= max) abort</span> +<span id="L2122" class="LineNr">2122 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with edx</span> +<span id="L2123" class="LineNr">2123 </span> 73/jump-if-addr>= $stream-add2:abort/disp8 +<span id="L2124" class="LineNr">2124 </span> <span class="subxComment"># *curr = key->alloc-id</span> +<span id="L2125" class="LineNr">2125 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to ecx</span> +<span id="L2126" class="LineNr">2126 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> +<span id="L2127" class="LineNr">2127 </span> <span class="subxComment"># curr += 4</span> +<span id="L2128" class="LineNr">2128 </span> 05/add-to-eax 4/imm32 +<span id="L2129" class="LineNr">2129 </span> <span class="subxComment"># if (curr >= max) abort</span> +<span id="L2130" class="LineNr">2130 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with edx</span> +<span id="L2131" class="LineNr">2131 </span> 73/jump-if-addr>= $stream-add2:abort/disp8 +<span id="L2132" class="LineNr">2132 </span> <span class="subxComment"># *curr = key->payload</span> +<span id="L2133" class="LineNr">2133 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to ecx</span> +<span id="L2134" class="LineNr">2134 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> +<span id="L2135" class="LineNr">2135 </span> <span class="subxComment"># curr += 4</span> +<span id="L2136" class="LineNr">2136 </span> 05/add-to-eax 4/imm32 +<span id="L2137" class="LineNr">2137 </span> <span class="subxComment"># if (curr >= max) abort</span> +<span id="L2138" class="LineNr">2138 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with edx</span> +<span id="L2139" class="LineNr">2139 </span> 73/jump-if-addr>= $stream-add2:abort/disp8 +<span id="L2140" class="LineNr">2140 </span> <span class="subxComment"># *curr = val</span> +<span id="L2141" class="LineNr">2141 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+20) to ecx</span> +<span id="L2142" class="LineNr">2142 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> +<span id="L2143" class="LineNr">2143 </span> <span class="subxComment"># in->write += 0xc</span> +<span id="L2144" class="LineNr">2144 </span> 81 0/subop/add 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to *esi</span> +<span id="L2145" class="LineNr">2145 </span><span class="Constant">$stream-add2:end</span>: +<span id="L2146" class="LineNr">2146 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L2147" class="LineNr">2147 </span> 5e/pop-to-esi +<span id="L2148" class="LineNr">2148 </span> 5a/pop-to-edx +<span id="L2149" class="LineNr">2149 </span> 59/pop-to-ecx +<span id="L2150" class="LineNr">2150 </span> 58/pop-to-eax +<span id="L2151" class="LineNr">2151 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2152" class="LineNr">2152 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2153" class="LineNr">2153 </span> 5d/pop-to-ebp +<span id="L2154" class="LineNr">2154 </span> c3/return +<span id="L2155" class="LineNr">2155 </span> +<span id="L2156" class="LineNr">2156 </span><span class="Constant">$stream-add2:abort</span>: +<span id="L2157" class="LineNr">2157 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> +<span id="L2158" class="LineNr">2158 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2159" class="LineNr">2159 </span> 68/push <span class="Constant">"overflow in stream-add2\n"</span>/imm32 +<span id="L2160" class="LineNr">2160 </span> 68/push 2/imm32/stderr +<span id="L2161" class="LineNr">2161 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2162" class="LineNr">2162 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 +<span id="L2163" class="LineNr">2163 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2164" class="LineNr">2164 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2165" class="LineNr">2165 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L2166" class="LineNr">2166 </span> bb/copy-to-ebx 1/imm32 +<span id="L2167" class="LineNr">2167 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L2168" class="LineNr">2168 </span> <span class="subxComment"># never gets here</span> +<span id="L2169" class="LineNr">2169 </span> +<span id="L2170" class="LineNr">2170 </span><span class="subxComment"># some variants of 'trace' that take multiple arguments in different combinations of types:</span> +<span id="L2171" class="LineNr">2171 </span><span class="subxComment"># n: int</span> +<span id="L2172" class="LineNr">2172 </span><span class="subxComment"># c: character [4-bytes, will eventually be UTF-8]</span> +<span id="L2173" class="LineNr">2173 </span><span class="subxComment"># s: (addr array byte)</span> +<span id="L2174" class="LineNr">2174 </span><span class="subxComment"># l: (addr slice)</span> +<span id="L2175" class="LineNr">2175 </span><span class="subxComment"># one gotcha: 's5' must not be empty</span> +<span id="L2176" class="LineNr">2176 </span> +<span id="L2177" class="LineNr">2177 </span><span class="subxFunction">trace-slsns</span>: <span class="subxComment"># s1: (addr array byte), l2: (addr slice), s3: (addr array byte), n4: int, s5: (addr array byte)</span> +<span id="L2178" class="LineNr">2178 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2179" class="LineNr">2179 </span> 55/push-ebp +<span id="L2180" class="LineNr">2180 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2181" class="LineNr">2181 </span> <span class="subxComment"># write(*Trace-stream, s1)</span> +<span id="L2182" class="LineNr">2182 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2183" class="LineNr">2183 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L2184" class="LineNr">2184 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> +<span id="L2185" class="LineNr">2185 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2186" class="LineNr">2186 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L2187" class="LineNr">2187 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2188" class="LineNr">2188 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2189" class="LineNr">2189 </span> <span class="subxComment"># write-slice(*Trace-stream, l2)</span> +<span id="L2190" class="LineNr">2190 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2191" class="LineNr">2191 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L2192" class="LineNr">2192 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> +<span id="L2193" class="LineNr">2193 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2194" class="LineNr">2194 </span> e8/call <a href='123slice.subx.html#L793'>write-slice</a>/disp32 +<span id="L2195" class="LineNr">2195 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2196" class="LineNr">2196 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2197" class="LineNr">2197 </span> <span class="subxComment"># write(*Trace-stream, s3)</span> +<span id="L2198" class="LineNr">2198 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2199" class="LineNr">2199 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> +<span id="L2200" class="LineNr">2200 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> +<span id="L2201" class="LineNr">2201 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2202" class="LineNr">2202 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L2203" class="LineNr">2203 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2204" class="LineNr">2204 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2205" class="LineNr">2205 </span> <span class="subxComment"># write-int32-hex(*Trace-stream, n4)</span> +<span id="L2206" class="LineNr">2206 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2207" class="LineNr">2207 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+20)</span> +<span id="L2208" class="LineNr">2208 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> +<span id="L2209" class="LineNr">2209 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2210" class="LineNr">2210 </span> e8/call <a href='117write-int-hex.subx.html#L178'>write-int32-hex</a>/disp32 +<span id="L2211" class="LineNr">2211 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2212" class="LineNr">2212 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2213" class="LineNr">2213 </span> <span class="subxComment"># trace(s5) # implicitly adds a newline and finalizes the trace line</span> +<span id="L2214" class="LineNr">2214 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2215" class="LineNr">2215 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+24)</span> +<span id="L2216" class="LineNr">2216 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2217" class="LineNr">2217 </span> e8/call <a href='107trace.subx.html#L81'>trace</a>/disp32 +<span id="L2218" class="LineNr">2218 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2219" class="LineNr">2219 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2220" class="LineNr">2220 </span><span class="Constant">$trace-slsns:end</span>: +<span id="L2221" class="LineNr">2221 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2222" class="LineNr">2222 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2223" class="LineNr">2223 </span> 5d/pop-to-ebp +<span id="L2224" class="LineNr">2224 </span> c3/return +<span id="L2225" class="LineNr">2225 </span> +<span id="L2226" class="LineNr">2226 </span><span class="subxTest">test-trace-slsns</span>: +<span id="L2227" class="LineNr">2227 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2228" class="LineNr">2228 </span> 55/push-ebp +<span id="L2229" class="LineNr">2229 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2230" class="LineNr">2230 </span> <span class="subxComment"># setup</span> +<span id="L2231" class="LineNr">2231 </span> <span class="subxS1Comment"># . *Trace-stream->write = 0</span> +<span id="L2232" class="LineNr">2232 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># copy *Trace-stream to eax</span> +<span id="L2233" class="LineNr">2233 </span> c7 0/subop/copy 0/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># clear *eax</span> +<span id="L2234" class="LineNr">2234 </span> <span class="subxComment"># (eax..ecx) = "b"</span> +<span id="L2235" class="LineNr">2235 </span> b8/copy-to-eax <span class="Constant">"b"</span>/imm32 +<span id="L2236" class="LineNr">2236 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L2237" class="LineNr">2237 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L2238" class="LineNr">2238 </span> 05/add-to-eax 4/imm32 +<span id="L2239" class="LineNr">2239 </span> <span class="subxComment"># var b/ebx: slice = {eax, ecx}</span> +<span id="L2240" class="LineNr">2240 </span> 51/push-ecx +<span id="L2241" class="LineNr">2241 </span> 50/push-eax +<span id="L2242" class="LineNr">2242 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> +<span id="L2243" class="LineNr">2243 </span> <span class="subxComment"># trace-slsls("A" b "c " 3 " e")</span> +<span id="L2244" class="LineNr">2244 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2245" class="LineNr">2245 </span> 68/push <span class="Constant">" e"</span>/imm32 +<span id="L2246" class="LineNr">2246 </span> 68/push 3/imm32 +<span id="L2247" class="LineNr">2247 </span> 68/push <span class="Constant">"c "</span>/imm32 +<span id="L2248" class="LineNr">2248 </span> 53/push-ebx +<span id="L2249" class="LineNr">2249 </span> 68/push <span class="Constant">"A"</span>/imm32 +<span id="L2250" class="LineNr">2250 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2251" class="LineNr">2251 </span> e8/call <a href='labels_baremetal.subx.html#L2177'>trace-slsns</a>/disp32 +<span id="L2252" class="LineNr">2252 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2253" class="LineNr">2253 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> +<span id="L2254" class="Folded">2254 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2280" class="LineNr">2280 </span> <span class="subxComment"># check-trace-contains("Abc 0x00000003 e")</span> +<span id="L2281" class="LineNr">2281 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2282" class="LineNr">2282 </span> 68/push <span class="Constant">"F - test-trace-slsls"</span>/imm32 +<span id="L2283" class="LineNr">2283 </span> 68/push <span class="Constant">"Abc 0x00000003 e"</span>/imm32 +<span id="L2284" class="LineNr">2284 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2285" class="LineNr">2285 </span> e8/call <a href='107trace.subx.html#L248'>check-trace-contains</a>/disp32 +<span id="L2286" class="LineNr">2286 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2287" class="LineNr">2287 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2288" class="LineNr">2288 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2289" class="LineNr">2289 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2290" class="LineNr">2290 </span> 5d/pop-to-ebp +<span id="L2291" class="LineNr">2291 </span> c3/return +<span id="L2292" class="LineNr">2292 </span> +<span id="L2293" class="LineNr">2293 </span><span class="subxFunction">num-bytes</span>: <span class="subxComment"># line: (addr stream byte) -> eax: int</span> +<span id="L2294" class="LineNr">2294 </span> <span class="subxComment"># pseudocode:</span> +<span id="L2295" class="LineNr">2295 </span> <span class="subxComment"># result = 0</span> +<span id="L2296" class="LineNr">2296 </span> <span class="subxComment"># while true</span> +<span id="L2297" class="LineNr">2297 </span> <span class="subxComment"># var word-slice = next-word(line)</span> +<span id="L2298" class="LineNr">2298 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> +<span id="L2299" class="LineNr">2299 </span> <span class="subxComment"># break</span> +<span id="L2300" class="LineNr">2300 </span> <span class="subxComment"># if slice-starts-with?(word-slice, "#") # comment</span> +<span id="L2301" class="LineNr">2301 </span> <span class="subxComment"># break</span> +<span id="L2302" class="LineNr">2302 </span> <span class="subxComment"># if label?(word-slice) # no need for label declarations anymore</span> +<span id="L2303" class="LineNr">2303 </span> <span class="subxComment"># break</span> +<span id="L2304" class="LineNr">2304 </span> <span class="subxComment"># if slice-equal?(word-slice, "==")</span> +<span id="L2305" class="LineNr">2305 </span> <span class="subxComment"># break # no need for segment header lines</span> +<span id="L2306" class="LineNr">2306 </span> <span class="subxComment"># result += compute-width(word-slice)</span> +<span id="L2307" class="LineNr">2307 </span> <span class="subxComment"># return result</span> +<span id="L2308" class="LineNr">2308 </span> <span class="subxComment">#</span> +<span id="L2309" class="LineNr">2309 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2310" class="LineNr">2310 </span> 55/push-ebp +<span id="L2311" class="LineNr">2311 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2312" class="LineNr">2312 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L2313" class="LineNr">2313 </span> 51/push-ecx +<span id="L2314" class="LineNr">2314 </span> 52/push-edx +<span id="L2315" class="LineNr">2315 </span> 53/push-ebx +<span id="L2316" class="LineNr">2316 </span> <span class="subxComment"># var result/eax = 0</span> +<span id="L2317" class="LineNr">2317 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L2318" class="LineNr">2318 </span> <span class="subxComment"># var word-slice/ecx: slice</span> +<span id="L2319" class="LineNr">2319 </span> 68/push 0/imm32/end +<span id="L2320" class="LineNr">2320 </span> 68/push 0/imm32/start +<span id="L2321" class="LineNr">2321 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L2322" class="Folded">2322 </span><span class="Folded">+-- 26 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2348" class="LineNr">2348 </span> <span class="subxS1Comment"># . rewind-stream(line)</span> +<span id="L2349" class="LineNr">2349 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2350" class="LineNr">2350 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L2351" class="LineNr">2351 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2352" class="LineNr">2352 </span> e8/call <a href='106stream.subx.html#L56'>rewind-stream</a>/disp32 +<span id="L2353" class="LineNr">2353 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2354" class="LineNr">2354 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2355" class="LineNr">2355 </span><span class="Constant">$num-bytes:loop</span>: +<span id="L2356" class="LineNr">2356 </span> <span class="subxComment"># next-word(line, word-slice)</span> +<span id="L2357" class="LineNr">2357 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2358" class="LineNr">2358 </span> 51/push-ecx +<span id="L2359" class="LineNr">2359 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L2360" class="LineNr">2360 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2361" class="LineNr">2361 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L2362" class="LineNr">2362 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2363" class="LineNr">2363 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2364" class="Folded">2364 </span><span class="Folded">+-- 40 lines: #? # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2404" class="LineNr">2404 </span><span class="Constant">$num-bytes:check0</span>: +<span id="L2405" class="LineNr">2405 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> +<span id="L2406" class="LineNr">2406 </span> <span class="subxS1Comment"># . save result</span> +<span id="L2407" class="LineNr">2407 </span> 50/push-eax +<span id="L2408" class="LineNr">2408 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> +<span id="L2409" class="LineNr">2409 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2410" class="LineNr">2410 </span> 51/push-ecx +<span id="L2411" class="LineNr">2411 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2412" class="LineNr">2412 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L2413" class="LineNr">2413 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2414" class="LineNr">2414 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2415" class="LineNr">2415 </span> <span class="subxS1Comment"># . if (eax != false) break</span> +<span id="L2416" class="LineNr">2416 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2417" class="LineNr">2417 </span> <span class="subxS1Comment"># . restore result now that ZF is set</span> +<span id="L2418" class="LineNr">2418 </span> 58/pop-to-eax +<span id="L2419" class="LineNr">2419 </span> 75/jump-if-!= $num-bytes:end/disp8 +<span id="L2420" class="LineNr">2420 </span><span class="Constant">$num-bytes:check-for-comment</span>: +<span id="L2421" class="LineNr">2421 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) break</span> +<span id="L2422" class="LineNr">2422 </span> <span class="subxS1Comment"># . start/edx = word-slice->start</span> +<span id="L2423" class="LineNr">2423 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to edx</span> +<span id="L2424" class="LineNr">2424 </span> <span class="subxS1Comment"># . c/ebx = *start</span> +<span id="L2425" class="LineNr">2425 </span> 31/xor 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ebx</span> +<span id="L2426" class="LineNr">2426 </span> 8a/copy-byte 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/BL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *edx to BL</span> +<span id="L2427" class="LineNr">2427 </span> <span class="subxS1Comment"># . if (ebx == '#') break</span> +<span id="L2428" class="LineNr">2428 </span> 81 7/subop/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x23/imm32/hash <span class="subxComment"># compare ebx</span> +<span id="L2429" class="LineNr">2429 </span> 74/jump-if-= $num-bytes:end/disp8 +<span id="L2430" class="LineNr">2430 </span><span class="Constant">$num-bytes:check-for-label</span>: +<span id="L2431" class="LineNr">2431 </span> <span class="subxComment"># if (slice-ends-with?(word-slice, ":")) break</span> +<span id="L2432" class="LineNr">2432 </span> <span class="subxS1Comment"># . end/edx = word-slice->end</span> +<span id="L2433" class="LineNr">2433 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to edx</span> +<span id="L2434" class="LineNr">2434 </span> <span class="subxS1Comment"># . c/ebx = *(end-1)</span> +<span id="L2435" class="LineNr">2435 </span> 31/xor 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ebx</span> +<span id="L2436" class="LineNr">2436 </span> 8a/copy-byte 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/BL -1/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to BL</span> +<span id="L2437" class="LineNr">2437 </span> <span class="subxS1Comment"># . if (ebx == ':') break</span> +<span id="L2438" class="LineNr">2438 </span> 81 7/subop/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x3a/imm32/colon <span class="subxComment"># compare ebx</span> +<span id="L2439" class="LineNr">2439 </span> 74/jump-if-= $num-bytes:end/disp8 +<span id="L2440" class="LineNr">2440 </span><span class="Constant">$num-bytes:check-for-segment-header</span>: +<span id="L2441" class="LineNr">2441 </span> <span class="subxComment"># if (slice-equal?(word-slice, "==")) break</span> +<span id="L2442" class="LineNr">2442 </span> <span class="subxS1Comment"># . push result</span> +<span id="L2443" class="LineNr">2443 </span> 50/push-eax +<span id="L2444" class="LineNr">2444 </span> <span class="subxS1Comment"># . eax = slice-equal?(word-slice, "==")</span> +<span id="L2445" class="LineNr">2445 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2446" class="LineNr">2446 </span> 68/push <span class="Constant">"=="</span>/imm32 +<span id="L2447" class="LineNr">2447 </span> 51/push-ecx +<span id="L2448" class="LineNr">2448 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2449" class="LineNr">2449 </span> e8/call <a href='123slice.subx.html#L120'>slice-equal?</a>/disp32 +<span id="L2450" class="LineNr">2450 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2451" class="LineNr">2451 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2452" class="LineNr">2452 </span> <span class="subxS1Comment"># . if (eax != false) break</span> +<span id="L2453" class="LineNr">2453 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2454" class="LineNr">2454 </span> <span class="subxS1Comment"># . restore result now that ZF is set</span> +<span id="L2455" class="LineNr">2455 </span> 58/pop-to-eax +<span id="L2456" class="LineNr">2456 </span> 75/jump-if-!= $num-bytes:end/disp8 +<span id="L2457" class="LineNr">2457 </span><span class="Constant">$num-bytes:loop-body</span>: +<span id="L2458" class="LineNr">2458 </span> <span class="subxComment"># result += compute-width-of-slice(word-slice)</span> +<span id="L2459" class="LineNr">2459 </span> <span class="subxS1Comment"># . copy result to edx</span> +<span id="L2460" class="LineNr">2460 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to edx</span> +<span id="L2461" class="LineNr">2461 </span> <span class="subxS1Comment"># . eax = compute-width-of-slice(word-slice)</span> +<span id="L2462" class="LineNr">2462 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2463" class="LineNr">2463 </span> 51/push-ecx +<span id="L2464" class="LineNr">2464 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2465" class="LineNr">2465 </span> e8/call <a href='133subx-widths.subx.html#L45'>compute-width-of-slice</a>/disp32 +<span id="L2466" class="LineNr">2466 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2467" class="LineNr">2467 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2468" class="LineNr">2468 </span> <span class="subxS1Comment"># . eax += result</span> +<span id="L2469" class="LineNr">2469 </span> 01/add 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add edx to eax</span> +<span id="L2470" class="LineNr">2470 </span> e9/jump $num-bytes:<span class="Constant">loop</span>/disp32 +<span id="L2471" class="LineNr">2471 </span><span class="Constant">$num-bytes:end</span>: +<span id="L2472" class="LineNr">2472 </span> <span class="subxS1Comment"># . rewind-stream(line)</span> +<span id="L2473" class="LineNr">2473 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2474" class="LineNr">2474 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L2475" class="LineNr">2475 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2476" class="LineNr">2476 </span> e8/call <a href='106stream.subx.html#L56'>rewind-stream</a>/disp32 +<span id="L2477" class="LineNr">2477 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2478" class="LineNr">2478 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2479" class="LineNr">2479 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L2480" class="LineNr">2480 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2481" class="LineNr">2481 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L2482" class="LineNr">2482 </span> 5b/pop-to-ebx +<span id="L2483" class="LineNr">2483 </span> 5a/pop-to-edx +<span id="L2484" class="LineNr">2484 </span> 59/pop-to-ecx +<span id="L2485" class="LineNr">2485 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2486" class="LineNr">2486 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2487" class="LineNr">2487 </span> 5d/pop-to-ebp +<span id="L2488" class="LineNr">2488 </span> c3/return +<span id="L2489" class="LineNr">2489 </span> +<span id="L2490" class="LineNr">2490 </span><span class="subxTest">test-num-bytes-handles-empty-string</span>: +<span id="L2491" class="LineNr">2491 </span> <span class="subxComment"># if a line starts with '#', return 0</span> +<span id="L2492" class="LineNr">2492 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2493" class="LineNr">2493 </span> 55/push-ebp +<span id="L2494" class="LineNr">2494 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2495" class="LineNr">2495 </span> <span class="subxComment"># setup</span> +<span id="L2496" class="LineNr">2496 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L2497" class="LineNr">2497 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2498" class="LineNr">2498 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2499" class="LineNr">2499 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2500" class="LineNr">2500 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2501" class="LineNr">2501 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2502" class="LineNr">2502 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2503" class="LineNr">2503 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L2504" class="LineNr">2504 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2505" class="LineNr">2505 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2506" class="LineNr">2506 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2507" class="LineNr">2507 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2508" class="LineNr">2508 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2509" class="LineNr">2509 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2510" class="LineNr">2510 </span> <span class="subxComment"># no contents in input</span> +<span id="L2511" class="LineNr">2511 </span> <span class="subxComment"># eax = num-bytes(_test-input-stream)</span> +<span id="L2512" class="LineNr">2512 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2513" class="LineNr">2513 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2514" class="LineNr">2514 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2515" class="LineNr">2515 </span> e8/call <a href='labels_baremetal.subx.html#L2293'>num-bytes</a>/disp32 +<span id="L2516" class="LineNr">2516 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2517" class="LineNr">2517 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2518" class="LineNr">2518 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> +<span id="L2519" class="LineNr">2519 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2520" class="LineNr">2520 </span> 68/push <span class="Constant">"F - test-num-bytes-handles-empty-string"</span>/imm32 +<span id="L2521" class="LineNr">2521 </span> 68/push 0/imm32/true +<span id="L2522" class="LineNr">2522 </span> 50/push-eax +<span id="L2523" class="LineNr">2523 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2524" class="LineNr">2524 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2525" class="LineNr">2525 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2526" class="LineNr">2526 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2527" class="LineNr">2527 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2528" class="LineNr">2528 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2529" class="LineNr">2529 </span> 5d/pop-to-ebp +<span id="L2530" class="LineNr">2530 </span> c3/return +<span id="L2531" class="LineNr">2531 </span> +<span id="L2532" class="LineNr">2532 </span><span class="subxTest">test-num-bytes-ignores-comments</span>: +<span id="L2533" class="LineNr">2533 </span> <span class="subxComment"># if a line starts with '#', return 0</span> +<span id="L2534" class="LineNr">2534 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2535" class="LineNr">2535 </span> 55/push-ebp +<span id="L2536" class="LineNr">2536 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2537" class="LineNr">2537 </span> <span class="subxComment"># setup</span> +<span id="L2538" class="LineNr">2538 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L2539" class="LineNr">2539 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2540" class="LineNr">2540 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2541" class="LineNr">2541 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2542" class="LineNr">2542 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2543" class="LineNr">2543 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2544" class="LineNr">2544 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2545" class="LineNr">2545 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L2546" class="LineNr">2546 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2547" class="LineNr">2547 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2548" class="LineNr">2548 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2549" class="LineNr">2549 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2550" class="LineNr">2550 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2551" class="LineNr">2551 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2552" class="LineNr">2552 </span> <span class="subxComment"># initialize input</span> +<span id="L2553" class="LineNr">2553 </span> <span class="subxS1Comment"># . write(_test-input-stream, "# abcd")</span> +<span id="L2554" class="LineNr">2554 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2555" class="LineNr">2555 </span> 68/push <span class="Constant">"# abcd"</span>/imm32 +<span id="L2556" class="LineNr">2556 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2557" class="LineNr">2557 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2558" class="LineNr">2558 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L2559" class="LineNr">2559 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2560" class="LineNr">2560 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2561" class="LineNr">2561 </span> <span class="subxComment"># eax = num-bytes(_test-input-stream)</span> +<span id="L2562" class="LineNr">2562 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2563" class="LineNr">2563 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2564" class="LineNr">2564 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2565" class="LineNr">2565 </span> e8/call <a href='labels_baremetal.subx.html#L2293'>num-bytes</a>/disp32 +<span id="L2566" class="LineNr">2566 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2567" class="LineNr">2567 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2568" class="LineNr">2568 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> +<span id="L2569" class="LineNr">2569 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2570" class="LineNr">2570 </span> 68/push <span class="Constant">"F - test-num-bytes-ignores-comments"</span>/imm32 +<span id="L2571" class="LineNr">2571 </span> 68/push 0/imm32/true +<span id="L2572" class="LineNr">2572 </span> 50/push-eax +<span id="L2573" class="LineNr">2573 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2574" class="LineNr">2574 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2575" class="LineNr">2575 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2576" class="LineNr">2576 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2577" class="LineNr">2577 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2578" class="LineNr">2578 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2579" class="LineNr">2579 </span> 5d/pop-to-ebp +<span id="L2580" class="LineNr">2580 </span> c3/return +<span id="L2581" class="LineNr">2581 </span> +<span id="L2582" class="LineNr">2582 </span><span class="subxTest">test-num-bytes-ignores-labels</span>: +<span id="L2583" class="LineNr">2583 </span> <span class="subxComment"># if the first word ends with ':', return 0</span> +<span id="L2584" class="LineNr">2584 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2585" class="LineNr">2585 </span> 55/push-ebp +<span id="L2586" class="LineNr">2586 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2587" class="LineNr">2587 </span> <span class="subxComment"># setup</span> +<span id="L2588" class="LineNr">2588 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L2589" class="LineNr">2589 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2590" class="LineNr">2590 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2591" class="LineNr">2591 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2592" class="LineNr">2592 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2593" class="LineNr">2593 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2594" class="LineNr">2594 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2595" class="LineNr">2595 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L2596" class="LineNr">2596 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2597" class="LineNr">2597 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2598" class="LineNr">2598 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2599" class="LineNr">2599 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2600" class="LineNr">2600 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2601" class="LineNr">2601 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2602" class="LineNr">2602 </span> <span class="subxComment"># initialize input</span> +<span id="L2603" class="LineNr">2603 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab: # cd")</span> +<span id="L2604" class="LineNr">2604 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2605" class="LineNr">2605 </span> 68/push <span class="Constant">"ab: # cd"</span>/imm32 +<span id="L2606" class="LineNr">2606 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2607" class="LineNr">2607 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2608" class="LineNr">2608 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L2609" class="LineNr">2609 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2610" class="LineNr">2610 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2611" class="LineNr">2611 </span> <span class="subxComment"># eax = num-bytes(_test-input-stream)</span> +<span id="L2612" class="LineNr">2612 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2613" class="LineNr">2613 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2614" class="LineNr">2614 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2615" class="LineNr">2615 </span> e8/call <a href='labels_baremetal.subx.html#L2293'>num-bytes</a>/disp32 +<span id="L2616" class="LineNr">2616 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2617" class="LineNr">2617 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2618" class="LineNr">2618 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> +<span id="L2619" class="LineNr">2619 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2620" class="LineNr">2620 </span> 68/push <span class="Constant">"F - test-num-bytes-ignores-labels"</span>/imm32 +<span id="L2621" class="LineNr">2621 </span> 68/push 0/imm32/true +<span id="L2622" class="LineNr">2622 </span> 50/push-eax +<span id="L2623" class="LineNr">2623 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2624" class="LineNr">2624 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2625" class="LineNr">2625 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2626" class="LineNr">2626 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2627" class="LineNr">2627 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2628" class="LineNr">2628 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2629" class="LineNr">2629 </span> 5d/pop-to-ebp +<span id="L2630" class="LineNr">2630 </span> c3/return +<span id="L2631" class="LineNr">2631 </span> +<span id="L2632" class="LineNr">2632 </span><span class="subxTest">test-num-bytes-ignores-segment-headers</span>: +<span id="L2633" class="LineNr">2633 </span> <span class="subxComment"># if the first word is '==', return 0</span> +<span id="L2634" class="LineNr">2634 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2635" class="LineNr">2635 </span> 55/push-ebp +<span id="L2636" class="LineNr">2636 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2637" class="LineNr">2637 </span> <span class="subxComment"># setup</span> +<span id="L2638" class="LineNr">2638 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L2639" class="LineNr">2639 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2640" class="LineNr">2640 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2641" class="LineNr">2641 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2642" class="LineNr">2642 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2643" class="LineNr">2643 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2644" class="LineNr">2644 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2645" class="LineNr">2645 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L2646" class="LineNr">2646 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2647" class="LineNr">2647 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2648" class="LineNr">2648 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2649" class="LineNr">2649 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2650" class="LineNr">2650 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2651" class="LineNr">2651 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2652" class="LineNr">2652 </span> <span class="subxComment"># initialize input</span> +<span id="L2653" class="LineNr">2653 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== ab cd")</span> +<span id="L2654" class="LineNr">2654 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2655" class="LineNr">2655 </span> 68/push <span class="Constant">"== ab cd"</span>/imm32 +<span id="L2656" class="LineNr">2656 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2657" class="LineNr">2657 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2658" class="LineNr">2658 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L2659" class="LineNr">2659 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2660" class="LineNr">2660 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2661" class="LineNr">2661 </span> <span class="subxComment"># eax = num-bytes(_test-input-stream)</span> +<span id="L2662" class="LineNr">2662 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2663" class="LineNr">2663 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2664" class="LineNr">2664 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2665" class="LineNr">2665 </span> e8/call <a href='labels_baremetal.subx.html#L2293'>num-bytes</a>/disp32 +<span id="L2666" class="LineNr">2666 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2667" class="LineNr">2667 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2668" class="LineNr">2668 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> +<span id="L2669" class="LineNr">2669 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2670" class="LineNr">2670 </span> 68/push <span class="Constant">"F - test-num-bytes-ignores-segment-headers"</span>/imm32 +<span id="L2671" class="LineNr">2671 </span> 68/push 0/imm32/true +<span id="L2672" class="LineNr">2672 </span> 50/push-eax +<span id="L2673" class="LineNr">2673 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2674" class="LineNr">2674 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2675" class="LineNr">2675 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2676" class="LineNr">2676 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2677" class="LineNr">2677 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2678" class="LineNr">2678 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2679" class="LineNr">2679 </span> 5d/pop-to-ebp +<span id="L2680" class="LineNr">2680 </span> c3/return +<span id="L2681" class="LineNr">2681 </span> +<span id="L2682" class="LineNr">2682 </span><span class="subxTest">test-num-bytes-counts-words-by-default</span>: +<span id="L2683" class="LineNr">2683 </span> <span class="subxComment"># without metadata, count words</span> +<span id="L2684" class="LineNr">2684 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2685" class="LineNr">2685 </span> 55/push-ebp +<span id="L2686" class="LineNr">2686 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2687" class="LineNr">2687 </span> <span class="subxComment"># setup</span> +<span id="L2688" class="LineNr">2688 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L2689" class="LineNr">2689 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2690" class="LineNr">2690 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2691" class="LineNr">2691 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2692" class="LineNr">2692 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2693" class="LineNr">2693 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2694" class="LineNr">2694 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2695" class="LineNr">2695 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L2696" class="LineNr">2696 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2697" class="LineNr">2697 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2698" class="LineNr">2698 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2699" class="LineNr">2699 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2700" class="LineNr">2700 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2701" class="LineNr">2701 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2702" class="LineNr">2702 </span> <span class="subxComment"># initialize input</span> +<span id="L2703" class="LineNr">2703 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab cd ef")</span> +<span id="L2704" class="LineNr">2704 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2705" class="LineNr">2705 </span> 68/push <span class="Constant">"ab cd ef"</span>/imm32 +<span id="L2706" class="LineNr">2706 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2707" class="LineNr">2707 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2708" class="LineNr">2708 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L2709" class="LineNr">2709 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2710" class="LineNr">2710 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2711" class="LineNr">2711 </span> <span class="subxComment"># eax = num-bytes(_test-input-stream)</span> +<span id="L2712" class="LineNr">2712 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2713" class="LineNr">2713 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2714" class="LineNr">2714 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2715" class="LineNr">2715 </span> e8/call <a href='labels_baremetal.subx.html#L2293'>num-bytes</a>/disp32 +<span id="L2716" class="LineNr">2716 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2717" class="LineNr">2717 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2718" class="LineNr">2718 </span> <span class="subxComment"># check-ints-equal(eax, 3, msg)</span> +<span id="L2719" class="LineNr">2719 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2720" class="LineNr">2720 </span> 68/push <span class="Constant">"F - test-num-bytes-counts-words-by-default"</span>/imm32 +<span id="L2721" class="LineNr">2721 </span> 68/push 3/imm32/true +<span id="L2722" class="LineNr">2722 </span> 50/push-eax +<span id="L2723" class="LineNr">2723 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2724" class="LineNr">2724 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2725" class="LineNr">2725 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2726" class="LineNr">2726 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2727" class="LineNr">2727 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2728" class="LineNr">2728 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2729" class="LineNr">2729 </span> 5d/pop-to-ebp +<span id="L2730" class="LineNr">2730 </span> c3/return +<span id="L2731" class="LineNr">2731 </span> +<span id="L2732" class="LineNr">2732 </span><span class="subxTest">test-num-bytes-ignores-trailing-comment</span>: +<span id="L2733" class="LineNr">2733 </span> <span class="subxComment"># trailing comments appropriately ignored</span> +<span id="L2734" class="LineNr">2734 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2735" class="LineNr">2735 </span> 55/push-ebp +<span id="L2736" class="LineNr">2736 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2737" class="LineNr">2737 </span> <span class="subxComment"># setup</span> +<span id="L2738" class="LineNr">2738 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L2739" class="LineNr">2739 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2740" class="LineNr">2740 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2741" class="LineNr">2741 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2742" class="LineNr">2742 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2743" class="LineNr">2743 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2744" class="LineNr">2744 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2745" class="LineNr">2745 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L2746" class="LineNr">2746 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2747" class="LineNr">2747 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2748" class="LineNr">2748 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2749" class="LineNr">2749 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2750" class="LineNr">2750 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2751" class="LineNr">2751 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2752" class="LineNr">2752 </span> <span class="subxComment"># initialize input</span> +<span id="L2753" class="LineNr">2753 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab cd # ef")</span> +<span id="L2754" class="LineNr">2754 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2755" class="LineNr">2755 </span> 68/push <span class="Constant">"ab cd # ef"</span>/imm32 +<span id="L2756" class="LineNr">2756 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2757" class="LineNr">2757 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2758" class="LineNr">2758 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L2759" class="LineNr">2759 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2760" class="LineNr">2760 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2761" class="LineNr">2761 </span> <span class="subxComment"># eax = num-bytes(_test-input-stream)</span> +<span id="L2762" class="LineNr">2762 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2763" class="LineNr">2763 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2764" class="LineNr">2764 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2765" class="LineNr">2765 </span> e8/call <a href='labels_baremetal.subx.html#L2293'>num-bytes</a>/disp32 +<span id="L2766" class="LineNr">2766 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2767" class="LineNr">2767 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2768" class="LineNr">2768 </span> <span class="subxComment"># check-ints-equal(eax, 2, msg)</span> +<span id="L2769" class="LineNr">2769 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2770" class="LineNr">2770 </span> 68/push <span class="Constant">"F - test-num-bytes-ignores-trailing-comment"</span>/imm32 +<span id="L2771" class="LineNr">2771 </span> 68/push 2/imm32/true +<span id="L2772" class="LineNr">2772 </span> 50/push-eax +<span id="L2773" class="LineNr">2773 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2774" class="LineNr">2774 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2775" class="LineNr">2775 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2776" class="LineNr">2776 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2777" class="LineNr">2777 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2778" class="LineNr">2778 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2779" class="LineNr">2779 </span> 5d/pop-to-ebp +<span id="L2780" class="LineNr">2780 </span> c3/return +<span id="L2781" class="LineNr">2781 </span> +<span id="L2782" class="LineNr">2782 </span><span class="subxTest">test-num-bytes-handles-imm32</span>: +<span id="L2783" class="LineNr">2783 </span> <span class="subxComment"># if a word has the /imm32 metadata, count it as 4 bytes</span> +<span id="L2784" class="LineNr">2784 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2785" class="LineNr">2785 </span> 55/push-ebp +<span id="L2786" class="LineNr">2786 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2787" class="LineNr">2787 </span> <span class="subxComment"># setup</span> +<span id="L2788" class="LineNr">2788 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L2789" class="LineNr">2789 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2790" class="LineNr">2790 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2791" class="LineNr">2791 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2792" class="LineNr">2792 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2793" class="LineNr">2793 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2794" class="LineNr">2794 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2795" class="LineNr">2795 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L2796" class="LineNr">2796 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2797" class="LineNr">2797 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2798" class="LineNr">2798 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2799" class="LineNr">2799 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2800" class="LineNr">2800 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2801" class="LineNr">2801 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2802" class="LineNr">2802 </span> <span class="subxComment"># initialize input</span> +<span id="L2803" class="LineNr">2803 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab cd/imm32 ef")</span> +<span id="L2804" class="LineNr">2804 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2805" class="LineNr">2805 </span> 68/push <span class="Constant">"ab cd/imm32 ef"</span>/imm32 +<span id="L2806" class="LineNr">2806 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2807" class="LineNr">2807 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2808" class="LineNr">2808 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L2809" class="LineNr">2809 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2810" class="LineNr">2810 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2811" class="LineNr">2811 </span> <span class="subxComment"># eax = num-bytes(_test-input-stream)</span> +<span id="L2812" class="LineNr">2812 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2813" class="LineNr">2813 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2814" class="LineNr">2814 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2815" class="LineNr">2815 </span> e8/call <a href='labels_baremetal.subx.html#L2293'>num-bytes</a>/disp32 +<span id="L2816" class="LineNr">2816 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2817" class="LineNr">2817 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2818" class="LineNr">2818 </span> <span class="subxComment"># check-ints-equal(eax, 6, msg)</span> +<span id="L2819" class="LineNr">2819 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2820" class="LineNr">2820 </span> 68/push <span class="Constant">"F - test-num-bytes-handles-imm32"</span>/imm32 +<span id="L2821" class="LineNr">2821 </span> 68/push 6/imm32/true +<span id="L2822" class="LineNr">2822 </span> 50/push-eax +<span id="L2823" class="LineNr">2823 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2824" class="LineNr">2824 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2825" class="LineNr">2825 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2826" class="LineNr">2826 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2827" class="LineNr">2827 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2828" class="LineNr">2828 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2829" class="LineNr">2829 </span> 5d/pop-to-ebp +<span id="L2830" class="LineNr">2830 </span> c3/return +<span id="L2831" class="LineNr">2831 </span> +<span id="L2832" class="LineNr">2832 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/linux/mu.subx.html b/html/linux/mu.subx.html index 38561550..e9b68096 100644 --- a/html/linux/mu.subx.html +++ b/html/linux/mu.subx.html @@ -575,7 +575,7 @@ if ('onhashchange' in window) { <span id="L513" class="LineNr"> 513 </span> <span class="subxS1Comment"># . save registers</span> <span id="L514" class="LineNr"> 514 </span> 50/push-eax <span id="L515" class="LineNr"> 515 </span> <span class="subxComment"># initialize global data structures</span> -<span id="L516" class="LineNr"> 516 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15691'>Next-block-index</a></span> 1/imm32 +<span id="L516" class="LineNr"> 516 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15713'>Next-block-index</a></span> 1/imm32 <span id="L517" class="LineNr"> 517 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax <span id="L518" class="LineNr"> 518 </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="L519" class="LineNr"> 519 </span> c7 0/subop/copy *_Program-functions 0/imm32 @@ -585,11 +585,11 @@ if ('onhashchange' in window) { <span id="L523" class="LineNr"> 523 </span> c7 0/subop/copy *_Program-signatures 0/imm32 <span id="L524" class="LineNr"> 524 </span> c7 0/subop/copy *_Program-signatures->payload 0/imm32 <span id="L525" class="LineNr"> 525 </span> <span class="subxComment">#</span> -<span id="L526" class="LineNr"> 526 </span> (<a href='mu.subx.html#L15699'>parse-mu</a> *(ebp+8) *(ebp+0x10) *(ebp+0x14)) -<span id="L527" class="LineNr"> 527 </span> (<a href='mu.subx.html#L20747'>populate-mu-type-sizes</a> *(ebp+0x10) *(ebp+0x14)) +<span id="L526" class="LineNr"> 526 </span> (<a href='mu.subx.html#L15721'>parse-mu</a> *(ebp+8) *(ebp+0x10) *(ebp+0x14)) +<span id="L527" class="LineNr"> 527 </span> (<a href='mu.subx.html#L20769'>populate-mu-type-sizes</a> *(ebp+0x10) *(ebp+0x14)) <span id="L528" class="LineNr"> 528 </span><span class="CommentedCode">#? (dump-typeinfos "=== typeinfos\n")</span> -<span id="L529" class="LineNr"> 529 </span> (<a href='mu.subx.html#L21276'>check-mu-types</a> *(ebp+0x10) *(ebp+0x14)) -<span id="L530" class="LineNr"> 530 </span> (<a href='mu.subx.html#L26966'>emit-subx</a> *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L529" class="LineNr"> 529 </span> (<a href='mu.subx.html#L21298'>check-mu-types</a> *(ebp+0x10) *(ebp+0x14)) +<span id="L530" class="LineNr"> 530 </span> (<a href='mu.subx.html#L26988'>emit-subx</a> *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) <span id="L531" class="LineNr"> 531 </span><span class="Constant">$convert-mu:end</span>: <span id="L532" class="LineNr"> 532 </span> <span class="subxS1Comment"># . restore registers</span> <span id="L533" class="LineNr"> 533 </span> 58/pop-to-eax @@ -5776,7519 +5776,7519 @@ if ('onhashchange' in window) { <span id="L6309" class="LineNr"> 6309 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6276'>test-convert-index-into-array</a>/8"</span>) <span id="L6310" class="LineNr"> 6310 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6276'>test-convert-index-into-array</a>/9"</span>) <span id="L6311" class="LineNr"> 6311 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> %ecx 0x00000004 *eax \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L6276'>test-convert-index-into-array</a>/10"</span>) -<span id="L6312" class="LineNr"> 6312 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + ecx<<0x00000002 + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6276'>test-convert-index-into-array</a>/11"</span>) -<span id="L6313" class="LineNr"> 6313 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6276'>test-convert-index-into-array</a>/12"</span>) -<span id="L6314" class="LineNr"> 6314 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6276'>test-convert-index-into-array</a>/13"</span>) -<span id="L6315" class="LineNr"> 6315 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6276'>test-convert-index-into-array</a>/14"</span>) -<span id="L6316" class="LineNr"> 6316 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6276'>test-convert-index-into-array</a>/15"</span>) -<span id="L6317" class="LineNr"> 6317 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array/16"</span>) -<span id="L6318" class="LineNr"> 6318 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6276'>test-convert-index-into-array</a>/17"</span>) -<span id="L6319" class="LineNr"> 6319 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6276'>test-convert-index-into-array</a>/18"</span>) -<span id="L6320" class="LineNr"> 6320 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6276'>test-convert-index-into-array</a>/19"</span>) -<span id="L6321" class="LineNr"> 6321 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6322" class="LineNr"> 6322 </span> 89/<- %esp 5/r32/ebp -<span id="L6323" class="LineNr"> 6323 </span> 5d/pop-to-ebp -<span id="L6324" class="LineNr"> 6324 </span> c3/return -<span id="L6325" class="LineNr"> 6325 </span> -<span id="L6326" class="LineNr"> 6326 </span><span class="subxTest">test-convert-index-into-array-of-bytes</span>: -<span id="L6327" class="LineNr"> 6327 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6328" class="LineNr"> 6328 </span> 55/push-ebp -<span id="L6329" class="LineNr"> 6329 </span> 89/<- %ebp 4/r32/esp -<span id="L6330" class="LineNr"> 6330 </span> <span class="subxComment"># setup</span> -<span id="L6331" class="LineNr"> 6331 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6332" class="LineNr"> 6332 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6333" class="LineNr"> 6333 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L6334" class="LineNr"> 6334 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6335" class="LineNr"> 6335 </span> <span class="subxComment">#</span> -<span id="L6336" class="LineNr"> 6336 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6337" class="LineNr"> 6337 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array byte) <- copy 0\n"</span>) -<span id="L6338" class="LineNr"> 6338 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var idx/ecx: int <- copy 3\n"</span>) -<span id="L6339" class="LineNr"> 6339 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr byte) <- index arr, idx\n"</span>) -<span id="L6340" class="LineNr"> 6340 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6341" class="LineNr"> 6341 </span> <span class="subxComment"># convert</span> -<span id="L6342" class="LineNr"> 6342 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L6343" class="LineNr"> 6343 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L6344" class="Folded"> 6344 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6350" class="LineNr"> 6350 </span> <span class="subxComment"># check output</span> -<span id="L6351" class="LineNr"> 6351 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6326'>test-convert-index-into-array-of-bytes</a>/0"</span>) -<span id="L6352" class="LineNr"> 6352 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes/1"</span>) -<span id="L6353" class="LineNr"> 6353 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6326'>test-convert-index-into-array-of-bytes</a>/2"</span>) -<span id="L6354" class="LineNr"> 6354 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6326'>test-convert-index-into-array-of-bytes</a>/3"</span>) -<span id="L6355" class="LineNr"> 6355 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6326'>test-convert-index-into-array-of-bytes</a>/4"</span>) -<span id="L6356" class="LineNr"> 6356 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6326'>test-convert-index-into-array-of-bytes</a>/5"</span>) -<span id="L6357" class="LineNr"> 6357 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6326'>test-convert-index-into-array-of-bytes</a>/6"</span>) -<span id="L6358" class="LineNr"> 6358 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6326'>test-convert-index-into-array-of-bytes</a>/7"</span>) -<span id="L6359" class="LineNr"> 6359 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6326'>test-convert-index-into-array-of-bytes</a>/8"</span>) -<span id="L6360" class="LineNr"> 6360 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6326'>test-convert-index-into-array-of-bytes</a>/9"</span>) -<span id="L6361" class="LineNr"> 6361 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> %ecx 0x00000001 *eax \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L6326'>test-convert-index-into-array-of-bytes</a>/10"</span>) -<span id="L6362" class="LineNr"> 6362 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + ecx<<0x00000000 + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6326'>test-convert-index-into-array-of-bytes</a>/11"</span>) -<span id="L6363" class="LineNr"> 6363 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6326'>test-convert-index-into-array-of-bytes</a>/12"</span>) -<span id="L6364" class="LineNr"> 6364 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6326'>test-convert-index-into-array-of-bytes</a>/13"</span>) -<span id="L6365" class="LineNr"> 6365 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6326'>test-convert-index-into-array-of-bytes</a>/14"</span>) -<span id="L6366" class="LineNr"> 6366 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6326'>test-convert-index-into-array-of-bytes</a>/15"</span>) -<span id="L6367" class="LineNr"> 6367 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes/16"</span>) -<span id="L6368" class="LineNr"> 6368 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6326'>test-convert-index-into-array-of-bytes</a>/17"</span>) -<span id="L6369" class="LineNr"> 6369 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6326'>test-convert-index-into-array-of-bytes</a>/18"</span>) -<span id="L6370" class="LineNr"> 6370 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6326'>test-convert-index-into-array-of-bytes</a>/19"</span>) -<span id="L6371" class="LineNr"> 6371 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6372" class="LineNr"> 6372 </span> 89/<- %esp 5/r32/ebp -<span id="L6373" class="LineNr"> 6373 </span> 5d/pop-to-ebp -<span id="L6374" class="LineNr"> 6374 </span> c3/return -<span id="L6375" class="LineNr"> 6375 </span> -<span id="L6376" class="LineNr"> 6376 </span><span class="subxTest">test-convert-index-into-array-with-literal</span>: -<span id="L6377" class="LineNr"> 6377 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6378" class="LineNr"> 6378 </span> 55/push-ebp -<span id="L6379" class="LineNr"> 6379 </span> 89/<- %ebp 4/r32/esp -<span id="L6380" class="LineNr"> 6380 </span> <span class="subxComment"># setup</span> -<span id="L6381" class="LineNr"> 6381 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6382" class="LineNr"> 6382 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6383" class="LineNr"> 6383 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L6384" class="LineNr"> 6384 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6385" class="LineNr"> 6385 </span> <span class="subxComment">#</span> -<span id="L6386" class="LineNr"> 6386 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6387" class="LineNr"> 6387 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array int) <- copy 0\n"</span>) -<span id="L6388" class="LineNr"> 6388 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr int) <- index arr, 2\n"</span>) -<span id="L6389" class="LineNr"> 6389 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6390" class="LineNr"> 6390 </span> <span class="subxComment"># convert</span> -<span id="L6391" class="LineNr"> 6391 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L6392" class="LineNr"> 6392 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L6393" class="Folded"> 6393 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6399" class="LineNr"> 6399 </span> <span class="subxComment"># check output</span> -<span id="L6400" class="LineNr"> 6400 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6376'>test-convert-index-into-array-with-literal</a>/0"</span>) -<span id="L6401" class="LineNr"> 6401 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-with-literal/1"</span>) -<span id="L6402" class="LineNr"> 6402 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6376'>test-convert-index-into-array-with-literal</a>/2"</span>) -<span id="L6403" class="LineNr"> 6403 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6376'>test-convert-index-into-array-with-literal</a>/3"</span>) -<span id="L6404" class="LineNr"> 6404 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6376'>test-convert-index-into-array-with-literal</a>/4"</span>) -<span id="L6405" class="LineNr"> 6405 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6376'>test-convert-index-into-array-with-literal</a>/5"</span>) -<span id="L6406" class="LineNr"> 6406 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6376'>test-convert-index-into-array-with-literal</a>/6"</span>) -<span id="L6407" class="LineNr"> 6407 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6376'>test-convert-index-into-array-with-literal</a>/7"</span>) -<span id="L6408" class="LineNr"> 6408 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> 2 0x00000004 *eax \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L6376'>test-convert-index-into-array-with-literal</a>/8"</span>) -<span id="L6409" class="LineNr"> 6409 </span> <span class="subxComment"># 2 * 4 bytes/elem + 4 bytes for size = offset 12</span> -<span id="L6410" class="LineNr"> 6410 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + 0x0000000c) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6376'>test-convert-index-into-array-with-literal</a>/9"</span>) -<span id="L6411" class="LineNr"> 6411 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6376'>test-convert-index-into-array-with-literal</a>/10"</span>) -<span id="L6412" class="LineNr"> 6412 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6376'>test-convert-index-into-array-with-literal</a>/11"</span>) -<span id="L6413" class="LineNr"> 6413 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6376'>test-convert-index-into-array-with-literal</a>/12"</span>) -<span id="L6414" class="LineNr"> 6414 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-with-literal/13"</span>) -<span id="L6415" class="LineNr"> 6415 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6376'>test-convert-index-into-array-with-literal</a>/14"</span>) -<span id="L6416" class="LineNr"> 6416 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6376'>test-convert-index-into-array-with-literal</a>/15"</span>) -<span id="L6417" class="LineNr"> 6417 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6376'>test-convert-index-into-array-with-literal</a>/16"</span>) -<span id="L6418" class="LineNr"> 6418 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6419" class="LineNr"> 6419 </span> 89/<- %esp 5/r32/ebp -<span id="L6420" class="LineNr"> 6420 </span> 5d/pop-to-ebp -<span id="L6421" class="LineNr"> 6421 </span> c3/return -<span id="L6422" class="LineNr"> 6422 </span> -<span id="L6423" class="LineNr"> 6423 </span><span class="subxTest">test-convert-index-into-array-of-bytes-with-literal</span>: -<span id="L6424" class="LineNr"> 6424 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6425" class="LineNr"> 6425 </span> 55/push-ebp -<span id="L6426" class="LineNr"> 6426 </span> 89/<- %ebp 4/r32/esp -<span id="L6427" class="LineNr"> 6427 </span> <span class="subxComment"># setup</span> -<span id="L6428" class="LineNr"> 6428 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6429" class="LineNr"> 6429 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6430" class="LineNr"> 6430 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L6431" class="LineNr"> 6431 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6432" class="LineNr"> 6432 </span> <span class="subxComment">#</span> -<span id="L6433" class="LineNr"> 6433 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6434" class="LineNr"> 6434 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array byte) <- copy 0\n"</span>) -<span id="L6435" class="LineNr"> 6435 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr byte) <- index arr, 2\n"</span>) -<span id="L6436" class="LineNr"> 6436 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6437" class="LineNr"> 6437 </span> <span class="subxComment"># convert</span> -<span id="L6438" class="LineNr"> 6438 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L6439" class="LineNr"> 6439 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L6440" class="Folded"> 6440 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6446" class="LineNr"> 6446 </span> <span class="subxComment"># check output</span> -<span id="L6447" class="LineNr"> 6447 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6423'>test-convert-index-into-array-of-bytes-with-literal</a>/0"</span>) -<span id="L6448" class="LineNr"> 6448 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-with-literal/1"</span>) -<span id="L6449" class="LineNr"> 6449 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6423'>test-convert-index-into-array-of-bytes-with-literal</a>/2"</span>) -<span id="L6450" class="LineNr"> 6450 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6423'>test-convert-index-into-array-of-bytes-with-literal</a>/3"</span>) -<span id="L6451" class="LineNr"> 6451 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6423'>test-convert-index-into-array-of-bytes-with-literal</a>/4"</span>) -<span id="L6452" class="LineNr"> 6452 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6423'>test-convert-index-into-array-of-bytes-with-literal</a>/5"</span>) -<span id="L6453" class="LineNr"> 6453 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6423'>test-convert-index-into-array-of-bytes-with-literal</a>/6"</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#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6423'>test-convert-index-into-array-of-bytes-with-literal</a>/7"</span>) -<span id="L6455" class="LineNr"> 6455 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> 2 0x00000001 *eax \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L6423'>test-convert-index-into-array-of-bytes-with-literal</a>/8"</span>) -<span id="L6456" class="LineNr"> 6456 </span> <span class="subxComment"># 2 * 1 byte/elem + 4 bytes for size = offset 6</span> -<span id="L6457" class="LineNr"> 6457 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + 0x00000006) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6423'>test-convert-index-into-array-of-bytes-with-literal</a>/8"</span>) -<span id="L6458" class="LineNr"> 6458 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6423'>test-convert-index-into-array-of-bytes-with-literal</a>/9"</span>) -<span id="L6459" class="LineNr"> 6459 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6423'>test-convert-index-into-array-of-bytes-with-literal</a>/10"</span>) -<span id="L6460" class="LineNr"> 6460 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6423'>test-convert-index-into-array-of-bytes-with-literal</a>/11"</span>) -<span id="L6461" class="LineNr"> 6461 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-with-literal/12"</span>) -<span id="L6462" class="LineNr"> 6462 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6423'>test-convert-index-into-array-of-bytes-with-literal</a>/13"</span>) -<span id="L6463" class="LineNr"> 6463 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6423'>test-convert-index-into-array-of-bytes-with-literal</a>/14"</span>) -<span id="L6464" class="LineNr"> 6464 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6423'>test-convert-index-into-array-of-bytes-with-literal</a>/15"</span>) -<span id="L6465" class="LineNr"> 6465 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6466" class="LineNr"> 6466 </span> 89/<- %esp 5/r32/ebp -<span id="L6467" class="LineNr"> 6467 </span> 5d/pop-to-ebp -<span id="L6468" class="LineNr"> 6468 </span> c3/return -<span id="L6469" class="LineNr"> 6469 </span> -<span id="L6470" class="LineNr"> 6470 </span><span class="subxTest">test-convert-index-into-array-on-stack</span>: -<span id="L6471" class="LineNr"> 6471 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6472" class="LineNr"> 6472 </span> 55/push-ebp -<span id="L6473" class="LineNr"> 6473 </span> 89/<- %ebp 4/r32/esp -<span id="L6474" class="LineNr"> 6474 </span> <span class="subxComment"># setup</span> -<span id="L6475" class="LineNr"> 6475 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6476" class="LineNr"> 6476 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6477" class="LineNr"> 6477 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L6478" class="LineNr"> 6478 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6479" class="LineNr"> 6479 </span> <span class="subxComment">#</span> -<span id="L6480" class="LineNr"> 6480 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6481" class="LineNr"> 6481 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr: (array int 3)\n"</span>) -<span id="L6482" class="LineNr"> 6482 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var idx/eax: int <- copy 2\n"</span>) -<span id="L6483" class="LineNr"> 6483 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr int) <- index arr, idx\n"</span>) -<span id="L6484" class="LineNr"> 6484 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6485" class="LineNr"> 6485 </span> <span class="subxComment"># convert</span> -<span id="L6486" class="LineNr"> 6486 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L6487" class="LineNr"> 6487 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L6488" class="Folded"> 6488 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6494" class="LineNr"> 6494 </span> <span class="subxComment"># check output</span> -<span id="L6495" class="LineNr"> 6495 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6470'>test-convert-index-into-array-on-stack</a>/0"</span>) -<span id="L6496" class="LineNr"> 6496 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-on-stack/1"</span>) -<span id="L6497" class="LineNr"> 6497 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6470'>test-convert-index-into-array-on-stack</a>/2"</span>) -<span id="L6498" class="LineNr"> 6498 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6470'>test-convert-index-into-array-on-stack</a>/3"</span>) -<span id="L6499" class="LineNr"> 6499 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6470'>test-convert-index-into-array-on-stack</a>/4"</span>) -<span id="L6500" class="LineNr"> 6500 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6470'>test-convert-index-into-array-on-stack</a>/5"</span>) -<span id="L6501" class="LineNr"> 6501 </span> <span class="subxComment"># var arr</span> -<span id="L6502" class="LineNr"> 6502 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='302stack_allocate.subx.html#L34'>push-n-zero-bytes</a> 0x0000000c)"</span> <span class="Constant">"F - <a href='mu.subx.html#L6470'>test-convert-index-into-array-on-stack</a>/6"</span>) -<span id="L6503" class="LineNr"> 6503 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6470'>test-convert-index-into-array-on-stack</a>/7"</span>) -<span id="L6504" class="LineNr"> 6504 </span> <span class="subxComment"># var idx</span> -<span id="L6505" class="LineNr"> 6505 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6470'>test-convert-index-into-array-on-stack</a>/8"</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#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 2/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6470'>test-convert-index-into-array-on-stack</a>/9"</span>) -<span id="L6507" class="LineNr"> 6507 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> %eax 0x00000004 *(ebp+0xfffffff0) \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L6470'>test-convert-index-into-array-on-stack</a>/10"</span>) -<span id="L6508" class="LineNr"> 6508 </span> <span class="subxComment"># var x is at (ebp-0x10) + idx<<2 + 4 = ebp + idx<<2 - 0xc</span> -<span id="L6509" class="LineNr"> 6509 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp + eax<<0x00000002 + 0xfffffff4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6470'>test-convert-index-into-array-on-stack</a>/11"</span>) -<span id="L6510" class="LineNr"> 6510 </span> <span class="subxComment"># reclaim idx</span> -<span id="L6511" class="LineNr"> 6511 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6470'>test-convert-index-into-array-on-stack</a>/12"</span>) -<span id="L6512" class="LineNr"> 6512 </span> <span class="subxComment"># reclaim arr</span> -<span id="L6513" class="LineNr"> 6513 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000010/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6470'>test-convert-index-into-array-on-stack</a>/13"</span>) -<span id="L6514" class="LineNr"> 6514 </span> <span class="subxComment">#</span> -<span id="L6515" class="LineNr"> 6515 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6470'>test-convert-index-into-array-on-stack</a>/14"</span>) -<span id="L6516" class="LineNr"> 6516 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6470'>test-convert-index-into-array-on-stack</a>/15"</span>) -<span id="L6517" class="LineNr"> 6517 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-on-stack/16"</span>) -<span id="L6518" class="LineNr"> 6518 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6470'>test-convert-index-into-array-on-stack</a>/17"</span>) -<span id="L6519" class="LineNr"> 6519 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6470'>test-convert-index-into-array-on-stack</a>/18"</span>) -<span id="L6520" class="LineNr"> 6520 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6470'>test-convert-index-into-array-on-stack</a>/19"</span>) -<span id="L6521" class="LineNr"> 6521 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6522" class="LineNr"> 6522 </span> 89/<- %esp 5/r32/ebp -<span id="L6523" class="LineNr"> 6523 </span> 5d/pop-to-ebp -<span id="L6524" class="LineNr"> 6524 </span> c3/return -<span id="L6525" class="LineNr"> 6525 </span> -<span id="L6526" class="LineNr"> 6526 </span><span class="subxTest">test-convert-index-into-array-on-stack-with-literal</span>: -<span id="L6527" class="LineNr"> 6527 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6528" class="LineNr"> 6528 </span> 55/push-ebp -<span id="L6529" class="LineNr"> 6529 </span> 89/<- %ebp 4/r32/esp -<span id="L6530" class="LineNr"> 6530 </span> <span class="subxComment"># setup</span> -<span id="L6531" class="LineNr"> 6531 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6532" class="LineNr"> 6532 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6533" class="LineNr"> 6533 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L6534" class="LineNr"> 6534 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6535" class="LineNr"> 6535 </span> <span class="subxComment">#</span> -<span id="L6536" class="LineNr"> 6536 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6537" class="LineNr"> 6537 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr: (array int 3)\n"</span>) -<span id="L6538" class="LineNr"> 6538 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr int) <- index arr, 2\n"</span>) -<span id="L6539" class="LineNr"> 6539 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6540" class="LineNr"> 6540 </span> <span class="subxComment"># convert</span> -<span id="L6541" class="LineNr"> 6541 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L6542" class="LineNr"> 6542 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L6543" class="Folded"> 6543 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6549" class="LineNr"> 6549 </span> <span class="subxComment"># check output</span> -<span id="L6550" class="LineNr"> 6550 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6526'>test-convert-index-into-array-on-stack-with-literal</a>/0"</span>) -<span id="L6551" class="LineNr"> 6551 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-on-stack-with-literal/1"</span>) -<span id="L6552" class="LineNr"> 6552 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6526'>test-convert-index-into-array-on-stack-with-literal</a>/2"</span>) -<span id="L6553" class="LineNr"> 6553 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6526'>test-convert-index-into-array-on-stack-with-literal</a>/3"</span>) -<span id="L6554" class="LineNr"> 6554 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6526'>test-convert-index-into-array-on-stack-with-literal</a>/4"</span>) -<span id="L6555" class="LineNr"> 6555 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6526'>test-convert-index-into-array-on-stack-with-literal</a>/5"</span>) -<span id="L6556" class="LineNr"> 6556 </span> <span class="subxComment"># var arr</span> -<span id="L6557" class="LineNr"> 6557 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='302stack_allocate.subx.html#L34'>push-n-zero-bytes</a> 0x0000000c)"</span> <span class="Constant">"F - <a href='mu.subx.html#L6526'>test-convert-index-into-array-on-stack-with-literal</a>/6"</span>) -<span id="L6558" class="LineNr"> 6558 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6526'>test-convert-index-into-array-on-stack-with-literal</a>/7"</span>) -<span id="L6559" class="LineNr"> 6559 </span> <span class="subxComment"># var x</span> -<span id="L6560" class="LineNr"> 6560 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6526'>test-convert-index-into-array-on-stack-with-literal</a>/8"</span>) -<span id="L6561" class="LineNr"> 6561 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> 2 0x00000004 *(ebp+0xfffffff0) \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L6526'>test-convert-index-into-array-on-stack-with-literal</a>/9"</span>) -<span id="L6562" class="LineNr"> 6562 </span> <span class="subxComment"># x is at (ebp-0x10) + 4 + 2*4 = ebp-4</span> -<span id="L6563" class="LineNr"> 6563 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp + 0xfffffffc) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6526'>test-convert-index-into-array-on-stack-with-literal</a>/10"</span>) -<span id="L6564" class="LineNr"> 6564 </span> <span class="subxComment"># reclaim x</span> -<span id="L6565" class="LineNr"> 6565 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6526'>test-convert-index-into-array-on-stack-with-literal</a>/11"</span>) -<span id="L6566" class="LineNr"> 6566 </span> <span class="subxComment"># reclaim arr</span> -<span id="L6567" class="LineNr"> 6567 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000010/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6526'>test-convert-index-into-array-on-stack-with-literal</a>/12"</span>) -<span id="L6568" class="LineNr"> 6568 </span> <span class="subxComment">#</span> -<span id="L6569" class="LineNr"> 6569 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6526'>test-convert-index-into-array-on-stack-with-literal</a>/13"</span>) -<span id="L6570" class="LineNr"> 6570 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6526'>test-convert-index-into-array-on-stack-with-literal</a>/14"</span>) -<span id="L6571" class="LineNr"> 6571 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-on-stack-with-literal/15"</span>) -<span id="L6572" class="LineNr"> 6572 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6526'>test-convert-index-into-array-on-stack-with-literal</a>/16"</span>) -<span id="L6573" class="LineNr"> 6573 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6526'>test-convert-index-into-array-on-stack-with-literal</a>/17"</span>) -<span id="L6574" class="LineNr"> 6574 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6526'>test-convert-index-into-array-on-stack-with-literal</a>/18"</span>) -<span id="L6575" class="LineNr"> 6575 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6576" class="LineNr"> 6576 </span> 89/<- %esp 5/r32/ebp -<span id="L6577" class="LineNr"> 6577 </span> 5d/pop-to-ebp -<span id="L6578" class="LineNr"> 6578 </span> c3/return -<span id="L6579" class="LineNr"> 6579 </span> -<span id="L6580" class="LineNr"> 6580 </span><span class="subxTest">test-convert-index-into-array-of-bytes-on-stack-with-literal</span>: -<span id="L6581" class="LineNr"> 6581 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6582" class="LineNr"> 6582 </span> 55/push-ebp -<span id="L6583" class="LineNr"> 6583 </span> 89/<- %ebp 4/r32/esp -<span id="L6584" class="LineNr"> 6584 </span> <span class="subxComment"># setup</span> -<span id="L6585" class="LineNr"> 6585 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6586" class="LineNr"> 6586 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6587" class="LineNr"> 6587 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L6588" class="LineNr"> 6588 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6589" class="LineNr"> 6589 </span> <span class="subxComment">#</span> -<span id="L6590" class="LineNr"> 6590 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6591" class="LineNr"> 6591 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr: (array byte 3)\n"</span>) -<span id="L6592" class="LineNr"> 6592 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr byte) <- index arr, 2\n"</span>) -<span id="L6593" class="LineNr"> 6593 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6594" class="LineNr"> 6594 </span> <span class="subxComment"># convert</span> -<span id="L6595" class="LineNr"> 6595 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L6596" class="LineNr"> 6596 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L6597" class="Folded"> 6597 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6603" class="LineNr"> 6603 </span> <span class="subxComment"># check output</span> -<span id="L6604" class="LineNr"> 6604 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6580'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/0"</span>) -<span id="L6605" class="LineNr"> 6605 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-on-stack-with-literal/1"</span>) -<span id="L6606" class="LineNr"> 6606 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6580'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/2"</span>) -<span id="L6607" class="LineNr"> 6607 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6580'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/3"</span>) -<span id="L6608" class="LineNr"> 6608 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6580'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/4"</span>) -<span id="L6609" class="LineNr"> 6609 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6580'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/5"</span>) -<span id="L6610" class="LineNr"> 6610 </span> <span class="subxComment"># var arr</span> -<span id="L6611" class="LineNr"> 6611 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='302stack_allocate.subx.html#L34'>push-n-zero-bytes</a> 0x00000003)"</span> <span class="Constant">"F - <a href='mu.subx.html#L6580'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/6"</span>) -<span id="L6612" class="LineNr"> 6612 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0x00000003/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6580'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/7"</span>) -<span id="L6613" class="LineNr"> 6613 </span> <span class="subxComment"># var x</span> -<span id="L6614" class="LineNr"> 6614 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6580'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/8"</span>) -<span id="L6615" class="LineNr"> 6615 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> 2 0x00000001 *(ebp+0xfffffff9) \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L6580'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/9"</span>) -<span id="L6616" class="LineNr"> 6616 </span> <span class="subxComment"># x is at (ebp-7) + 4 + 2 = ebp-1</span> -<span id="L6617" class="LineNr"> 6617 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp + 0xffffffff) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6580'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/10"</span>) -<span id="L6618" class="LineNr"> 6618 </span> <span class="subxComment"># reclaim x</span> -<span id="L6619" class="LineNr"> 6619 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6580'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/11"</span>) -<span id="L6620" class="LineNr"> 6620 </span> <span class="subxComment"># reclaim arr</span> -<span id="L6621" class="LineNr"> 6621 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000007/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6580'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/12"</span>) -<span id="L6622" class="LineNr"> 6622 </span> <span class="subxComment">#</span> -<span id="L6623" class="LineNr"> 6623 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6580'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/13"</span>) -<span id="L6624" class="LineNr"> 6624 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6580'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/14"</span>) -<span id="L6625" class="LineNr"> 6625 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-on-stack-with-literal/15"</span>) -<span id="L6626" class="LineNr"> 6626 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6580'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/16"</span>) -<span id="L6627" class="LineNr"> 6627 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6580'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/17"</span>) -<span id="L6628" class="LineNr"> 6628 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6580'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/18"</span>) -<span id="L6629" class="LineNr"> 6629 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6630" class="LineNr"> 6630 </span> 89/<- %esp 5/r32/ebp -<span id="L6631" class="LineNr"> 6631 </span> 5d/pop-to-ebp -<span id="L6632" class="LineNr"> 6632 </span> c3/return -<span id="L6633" class="LineNr"> 6633 </span> -<span id="L6634" class="LineNr"> 6634 </span><span class="subxTest">test-convert-index-into-array-using-offset</span>: -<span id="L6635" class="LineNr"> 6635 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6636" class="LineNr"> 6636 </span> 55/push-ebp -<span id="L6637" class="LineNr"> 6637 </span> 89/<- %ebp 4/r32/esp -<span id="L6638" class="LineNr"> 6638 </span> <span class="subxComment"># setup</span> -<span id="L6639" class="LineNr"> 6639 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6640" class="LineNr"> 6640 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6641" class="LineNr"> 6641 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L6642" class="LineNr"> 6642 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6643" class="LineNr"> 6643 </span> <span class="subxComment">#</span> -<span id="L6644" class="LineNr"> 6644 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6645" class="LineNr"> 6645 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array int) <- copy 0\n"</span>) -<span id="L6646" class="LineNr"> 6646 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var idx/ecx: int <- copy 3\n"</span>) -<span id="L6647" class="LineNr"> 6647 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var off/ecx: (offset int) <- compute-offset arr, idx\n"</span>) -<span id="L6648" class="LineNr"> 6648 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr int) <- index arr, off\n"</span>) -<span id="L6649" class="LineNr"> 6649 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6650" class="LineNr"> 6650 </span> <span class="subxComment"># convert</span> -<span id="L6651" class="LineNr"> 6651 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L6652" class="LineNr"> 6652 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L6653" class="Folded"> 6653 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6659" class="LineNr"> 6659 </span> <span class="subxComment"># check output</span> -<span id="L6660" class="LineNr"> 6660 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6634'>test-convert-index-into-array-using-offset</a>/0"</span>) -<span id="L6661" class="LineNr"> 6661 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-using-offset/1"</span>) -<span id="L6662" class="LineNr"> 6662 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6634'>test-convert-index-into-array-using-offset</a>/2"</span>) -<span id="L6663" class="LineNr"> 6663 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6634'>test-convert-index-into-array-using-offset</a>/3"</span>) -<span id="L6664" class="LineNr"> 6664 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6634'>test-convert-index-into-array-using-offset</a>/4"</span>) -<span id="L6665" class="LineNr"> 6665 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6634'>test-convert-index-into-array-using-offset</a>/5"</span>) -<span id="L6666" class="LineNr"> 6666 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6634'>test-convert-index-into-array-using-offset</a>/6"</span>) -<span id="L6667" class="LineNr"> 6667 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6634'>test-convert-index-into-array-using-offset</a>/7"</span>) -<span id="L6668" class="LineNr"> 6668 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6634'>test-convert-index-into-array-using-offset</a>/8"</span>) -<span id="L6669" class="LineNr"> 6669 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6634'>test-convert-index-into-array-using-offset</a>/9"</span>) -<span id="L6670" class="LineNr"> 6670 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 69/multiply %ecx 0x00000004/imm32 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6634'>test-convert-index-into-array-using-offset</a>/10"</span>) -<span id="L6671" class="LineNr"> 6671 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> %ecx 1 *eax \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L6634'>test-convert-index-into-array-using-offset</a>/11"</span>) -<span id="L6672" class="LineNr"> 6672 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + ecx + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6634'>test-convert-index-into-array-using-offset</a>/12"</span>) -<span id="L6673" class="LineNr"> 6673 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6634'>test-convert-index-into-array-using-offset</a>/13"</span>) -<span id="L6674" class="LineNr"> 6674 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6634'>test-convert-index-into-array-using-offset</a>/14"</span>) -<span id="L6675" class="LineNr"> 6675 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6634'>test-convert-index-into-array-using-offset</a>/15"</span>) -<span id="L6676" class="LineNr"> 6676 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6634'>test-convert-index-into-array-using-offset</a>/16"</span>) -<span id="L6677" class="LineNr"> 6677 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-using-offset/17"</span>) -<span id="L6678" class="LineNr"> 6678 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6634'>test-convert-index-into-array-using-offset</a>/18"</span>) -<span id="L6679" class="LineNr"> 6679 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6634'>test-convert-index-into-array-using-offset</a>/19"</span>) -<span id="L6680" class="LineNr"> 6680 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6634'>test-convert-index-into-array-using-offset</a>/20"</span>) -<span id="L6681" class="LineNr"> 6681 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6682" class="LineNr"> 6682 </span> 89/<- %esp 5/r32/ebp -<span id="L6683" class="LineNr"> 6683 </span> 5d/pop-to-ebp -<span id="L6684" class="LineNr"> 6684 </span> c3/return -<span id="L6685" class="LineNr"> 6685 </span> -<span id="L6686" class="LineNr"> 6686 </span><span class="subxTest">test-convert-index-into-array-of-bytes-using-offset</span>: -<span id="L6687" class="LineNr"> 6687 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6688" class="LineNr"> 6688 </span> 55/push-ebp -<span id="L6689" class="LineNr"> 6689 </span> 89/<- %ebp 4/r32/esp -<span id="L6690" class="LineNr"> 6690 </span> <span class="subxComment"># setup</span> -<span id="L6691" class="LineNr"> 6691 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6692" class="LineNr"> 6692 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6693" class="LineNr"> 6693 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L6694" class="LineNr"> 6694 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6695" class="LineNr"> 6695 </span> <span class="subxComment">#</span> -<span id="L6696" class="LineNr"> 6696 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6697" class="LineNr"> 6697 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array byte) <- copy 0\n"</span>) -<span id="L6698" class="LineNr"> 6698 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var idx/ecx: int <- copy 3\n"</span>) -<span id="L6699" class="LineNr"> 6699 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var off/ecx: (offset byte) <- compute-offset arr, idx\n"</span>) -<span id="L6700" class="LineNr"> 6700 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr byte) <- index arr, off\n"</span>) -<span id="L6701" class="LineNr"> 6701 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6702" class="LineNr"> 6702 </span> <span class="subxComment"># convert</span> -<span id="L6703" class="LineNr"> 6703 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L6704" class="LineNr"> 6704 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L6705" class="Folded"> 6705 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6711" class="LineNr"> 6711 </span> <span class="subxComment"># check output</span> -<span id="L6712" class="LineNr"> 6712 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6686'>test-convert-index-into-array-of-bytes-using-offset</a>/0"</span>) -<span id="L6713" class="LineNr"> 6713 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-using-offset/1"</span>) -<span id="L6714" class="LineNr"> 6714 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6686'>test-convert-index-into-array-of-bytes-using-offset</a>/2"</span>) -<span id="L6715" class="LineNr"> 6715 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6686'>test-convert-index-into-array-of-bytes-using-offset</a>/3"</span>) -<span id="L6716" class="LineNr"> 6716 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6686'>test-convert-index-into-array-of-bytes-using-offset</a>/4"</span>) -<span id="L6717" class="LineNr"> 6717 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6686'>test-convert-index-into-array-of-bytes-using-offset</a>/5"</span>) -<span id="L6718" class="LineNr"> 6718 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6686'>test-convert-index-into-array-of-bytes-using-offset</a>/6"</span>) -<span id="L6719" class="LineNr"> 6719 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6686'>test-convert-index-into-array-of-bytes-using-offset</a>/7"</span>) -<span id="L6720" class="LineNr"> 6720 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6686'>test-convert-index-into-array-of-bytes-using-offset</a>/8"</span>) -<span id="L6721" class="LineNr"> 6721 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6686'>test-convert-index-into-array-of-bytes-using-offset</a>/9"</span>) -<span id="L6722" class="LineNr"> 6722 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 69/multiply %ecx 0x00000001/imm32 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6686'>test-convert-index-into-array-of-bytes-using-offset</a>/10"</span>) -<span id="L6723" class="LineNr"> 6723 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> %ecx 1 *eax \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L6686'>test-convert-index-into-array-of-bytes-using-offset</a>/11"</span>) -<span id="L6724" class="LineNr"> 6724 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + ecx + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6686'>test-convert-index-into-array-of-bytes-using-offset</a>/12"</span>) -<span id="L6725" class="LineNr"> 6725 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6686'>test-convert-index-into-array-of-bytes-using-offset</a>/13"</span>) -<span id="L6726" class="LineNr"> 6726 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6686'>test-convert-index-into-array-of-bytes-using-offset</a>/14"</span>) -<span id="L6727" class="LineNr"> 6727 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6686'>test-convert-index-into-array-of-bytes-using-offset</a>/15"</span>) -<span id="L6728" class="LineNr"> 6728 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6686'>test-convert-index-into-array-of-bytes-using-offset</a>/16"</span>) -<span id="L6729" class="LineNr"> 6729 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-using-offset/17"</span>) -<span id="L6730" class="LineNr"> 6730 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6686'>test-convert-index-into-array-of-bytes-using-offset</a>/18"</span>) -<span id="L6731" class="LineNr"> 6731 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6686'>test-convert-index-into-array-of-bytes-using-offset</a>/19"</span>) -<span id="L6732" class="LineNr"> 6732 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6686'>test-convert-index-into-array-of-bytes-using-offset</a>/20"</span>) -<span id="L6733" class="LineNr"> 6733 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6734" class="LineNr"> 6734 </span> 89/<- %esp 5/r32/ebp -<span id="L6735" class="LineNr"> 6735 </span> 5d/pop-to-ebp -<span id="L6736" class="LineNr"> 6736 </span> c3/return -<span id="L6737" class="LineNr"> 6737 </span> -<span id="L6738" class="LineNr"> 6738 </span><span class="subxTest">test-convert-index-into-array-using-offset-on-stack</span>: -<span id="L6739" class="LineNr"> 6739 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6740" class="LineNr"> 6740 </span> 55/push-ebp -<span id="L6741" class="LineNr"> 6741 </span> 89/<- %ebp 4/r32/esp -<span id="L6742" class="LineNr"> 6742 </span> <span class="subxComment"># setup</span> -<span id="L6743" class="LineNr"> 6743 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6744" class="LineNr"> 6744 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6745" class="LineNr"> 6745 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L6746" class="LineNr"> 6746 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6747" class="LineNr"> 6747 </span> <span class="subxComment">#</span> -<span id="L6748" class="LineNr"> 6748 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6749" class="LineNr"> 6749 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array int) <- copy 0\n"</span>) -<span id="L6750" class="LineNr"> 6750 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var idx: int\n"</span>) -<span id="L6751" class="LineNr"> 6751 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var off/ecx: (offset int) <- compute-offset arr, idx\n"</span>) -<span id="L6752" class="LineNr"> 6752 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr int) <- index arr, off\n"</span>) -<span id="L6753" class="LineNr"> 6753 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6754" class="LineNr"> 6754 </span> <span class="subxComment"># convert</span> -<span id="L6755" class="LineNr"> 6755 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L6756" class="LineNr"> 6756 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L6757" class="Folded"> 6757 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6763" class="LineNr"> 6763 </span> <span class="subxComment"># check output</span> -<span id="L6764" class="LineNr"> 6764 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6738'>test-convert-index-into-array-using-offset-on-stack</a>/0"</span>) -<span id="L6765" class="LineNr"> 6765 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-using-offset-on-stack/1"</span>) -<span id="L6766" class="LineNr"> 6766 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6738'>test-convert-index-into-array-using-offset-on-stack</a>/2"</span>) -<span id="L6767" class="LineNr"> 6767 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6738'>test-convert-index-into-array-using-offset-on-stack</a>/3"</span>) -<span id="L6768" class="LineNr"> 6768 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6738'>test-convert-index-into-array-using-offset-on-stack</a>/4"</span>) -<span id="L6769" class="LineNr"> 6769 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6738'>test-convert-index-into-array-using-offset-on-stack</a>/5"</span>) -<span id="L6770" class="LineNr"> 6770 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6738'>test-convert-index-into-array-using-offset-on-stack</a>/6"</span>) -<span id="L6771" class="LineNr"> 6771 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6738'>test-convert-index-into-array-using-offset-on-stack</a>/7"</span>) -<span id="L6772" class="LineNr"> 6772 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6738'>test-convert-index-into-array-using-offset-on-stack</a>/8"</span>) -<span id="L6773" class="LineNr"> 6773 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6738'>test-convert-index-into-array-using-offset-on-stack</a>/9"</span>) -<span id="L6774" class="LineNr"> 6774 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 69/multiply *(ebp+0xfffffff8) 0x00000004/imm32 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6738'>test-convert-index-into-array-using-offset-on-stack</a>/10"</span>) -<span id="L6775" class="LineNr"> 6775 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> %ecx 1 *eax \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L6738'>test-convert-index-into-array-using-offset-on-stack</a>/11"</span>) -<span id="L6776" class="LineNr"> 6776 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + ecx + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6738'>test-convert-index-into-array-using-offset-on-stack</a>/12"</span>) -<span id="L6777" class="LineNr"> 6777 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6738'>test-convert-index-into-array-using-offset-on-stack</a>/13"</span>) -<span id="L6778" class="LineNr"> 6778 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6738'>test-convert-index-into-array-using-offset-on-stack</a>/14"</span>) -<span id="L6779" class="LineNr"> 6779 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6738'>test-convert-index-into-array-using-offset-on-stack</a>/15"</span>) -<span id="L6780" class="LineNr"> 6780 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6738'>test-convert-index-into-array-using-offset-on-stack</a>/16"</span>) -<span id="L6781" class="LineNr"> 6781 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6738'>test-convert-index-into-array-using-offset-on-stack</a>/17"</span>) -<span id="L6782" class="LineNr"> 6782 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-using-offset-on-stack/18"</span>) -<span id="L6783" class="LineNr"> 6783 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6738'>test-convert-index-into-array-using-offset-on-stack</a>/19"</span>) -<span id="L6784" class="LineNr"> 6784 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6738'>test-convert-index-into-array-using-offset-on-stack</a>/20"</span>) -<span id="L6785" class="LineNr"> 6785 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6738'>test-convert-index-into-array-using-offset-on-stack</a>/21"</span>) -<span id="L6786" class="LineNr"> 6786 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6787" class="LineNr"> 6787 </span> 89/<- %esp 5/r32/ebp -<span id="L6788" class="LineNr"> 6788 </span> 5d/pop-to-ebp -<span id="L6789" class="LineNr"> 6789 </span> c3/return -<span id="L6790" class="LineNr"> 6790 </span> -<span id="L6791" class="LineNr"> 6791 </span><span class="subxTest">test-convert-index-into-array-of-bytes-using-offset-on-stack</span>: -<span id="L6792" class="LineNr"> 6792 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6793" class="LineNr"> 6793 </span> 55/push-ebp -<span id="L6794" class="LineNr"> 6794 </span> 89/<- %ebp 4/r32/esp -<span id="L6795" class="LineNr"> 6795 </span> <span class="subxComment"># setup</span> -<span id="L6796" class="LineNr"> 6796 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6797" class="LineNr"> 6797 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6798" class="LineNr"> 6798 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L6799" class="LineNr"> 6799 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6800" class="LineNr"> 6800 </span> <span class="subxComment">#</span> -<span id="L6801" class="LineNr"> 6801 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6802" class="LineNr"> 6802 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array byte) <- copy 0\n"</span>) -<span id="L6803" class="LineNr"> 6803 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var idx: int\n"</span>) -<span id="L6804" class="LineNr"> 6804 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var off/ecx: (offset byte) <- compute-offset arr, idx\n"</span>) -<span id="L6805" class="LineNr"> 6805 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr byte) <- index arr, off\n"</span>) -<span id="L6806" class="LineNr"> 6806 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6807" class="LineNr"> 6807 </span> <span class="subxComment"># convert</span> -<span id="L6808" class="LineNr"> 6808 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L6809" class="LineNr"> 6809 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L6810" class="Folded"> 6810 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6816" class="LineNr"> 6816 </span> <span class="subxComment"># check output</span> -<span id="L6817" class="LineNr"> 6817 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6791'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/0"</span>) -<span id="L6818" class="LineNr"> 6818 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-using-offset-on-stack/1"</span>) -<span id="L6819" class="LineNr"> 6819 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6791'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/2"</span>) -<span id="L6820" class="LineNr"> 6820 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6791'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/3"</span>) -<span id="L6821" class="LineNr"> 6821 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6791'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/4"</span>) -<span id="L6822" class="LineNr"> 6822 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6791'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/5"</span>) -<span id="L6823" class="LineNr"> 6823 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6791'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/6"</span>) -<span id="L6824" class="LineNr"> 6824 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6791'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/7"</span>) -<span id="L6825" class="LineNr"> 6825 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6791'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/8"</span>) -<span id="L6826" class="LineNr"> 6826 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6791'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/9"</span>) -<span id="L6827" class="LineNr"> 6827 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 69/multiply *(ebp+0xfffffff8) 0x00000001/imm32 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6791'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/10"</span>) -<span id="L6828" class="LineNr"> 6828 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> %ecx 1 *eax \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L6791'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/11"</span>) -<span id="L6829" class="LineNr"> 6829 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + ecx + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6791'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/12"</span>) -<span id="L6830" class="LineNr"> 6830 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6791'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/13"</span>) -<span id="L6831" class="LineNr"> 6831 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6791'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/14"</span>) -<span id="L6832" class="LineNr"> 6832 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6791'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/15"</span>) -<span id="L6833" class="LineNr"> 6833 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6791'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/16"</span>) -<span id="L6834" class="LineNr"> 6834 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6791'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/17"</span>) -<span id="L6835" class="LineNr"> 6835 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-using-offset-on-stack/18"</span>) -<span id="L6836" class="LineNr"> 6836 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6791'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/19"</span>) -<span id="L6837" class="LineNr"> 6837 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6791'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/20"</span>) -<span id="L6838" class="LineNr"> 6838 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6791'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/21"</span>) -<span id="L6839" class="LineNr"> 6839 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6840" class="LineNr"> 6840 </span> 89/<- %esp 5/r32/ebp -<span id="L6841" class="LineNr"> 6841 </span> 5d/pop-to-ebp -<span id="L6842" class="LineNr"> 6842 </span> c3/return -<span id="L6843" class="LineNr"> 6843 </span> -<span id="L6844" class="LineNr"> 6844 </span><span class="subxTest">test-convert-function-and-type-definition</span>: -<span id="L6845" class="LineNr"> 6845 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6846" class="LineNr"> 6846 </span> 55/push-ebp -<span id="L6847" class="LineNr"> 6847 </span> 89/<- %ebp 4/r32/esp -<span id="L6848" class="LineNr"> 6848 </span> <span class="subxComment"># setup</span> -<span id="L6849" class="LineNr"> 6849 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6850" class="LineNr"> 6850 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6851" class="LineNr"> 6851 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L6852" class="LineNr"> 6852 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6853" class="LineNr"> 6853 </span> <span class="subxComment">#</span> -<span id="L6854" class="LineNr"> 6854 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo a: (addr t) {\n"</span>) -<span id="L6855" class="LineNr"> 6855 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var _a/eax: (addr t) <- copy a\n"</span>) -<span id="L6856" class="LineNr"> 6856 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> _a, x\n"</span>) -<span id="L6857" class="LineNr"> 6857 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> _a, y\n"</span>) -<span id="L6858" class="LineNr"> 6858 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6859" class="LineNr"> 6859 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L6860" class="LineNr"> 6860 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L6861" class="LineNr"> 6861 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) -<span id="L6862" class="LineNr"> 6862 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6863" class="LineNr"> 6863 </span> <span class="subxComment"># convert</span> -<span id="L6864" class="LineNr"> 6864 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L6865" class="LineNr"> 6865 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L6866" class="Folded"> 6866 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6872" class="LineNr"> 6872 </span> <span class="subxComment"># check output</span> -<span id="L6873" class="LineNr"> 6873 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6844'>test-convert-function-and-type-definition</a>/0"</span>) -<span id="L6874" class="LineNr"> 6874 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-and-type-definition/1"</span>) -<span id="L6875" class="LineNr"> 6875 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6844'>test-convert-function-and-type-definition</a>/2"</span>) -<span id="L6876" class="LineNr"> 6876 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6844'>test-convert-function-and-type-definition</a>/3"</span>) -<span id="L6877" class="LineNr"> 6877 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6844'>test-convert-function-and-type-definition</a>/4"</span>) -<span id="L6878" class="LineNr"> 6878 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6844'>test-convert-function-and-type-definition</a>/5"</span>) -<span id="L6879" class="LineNr"> 6879 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6844'>test-convert-function-and-type-definition</a>/6"</span>) -<span id="L6880" class="LineNr"> 6880 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6844'>test-convert-function-and-type-definition</a>/7"</span>) -<span id="L6881" class="LineNr"> 6881 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6844'>test-convert-function-and-type-definition</a>/8"</span>) -<span id="L6882" class="LineNr"> 6882 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + 0x00000000) 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6844'>test-convert-function-and-type-definition</a>/9"</span>) -<span id="L6883" class="LineNr"> 6883 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + 0x00000004) 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6844'>test-convert-function-and-type-definition</a>/11"</span>) -<span id="L6884" class="LineNr"> 6884 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6844'>test-convert-function-and-type-definition</a>/13"</span>) -<span id="L6885" class="LineNr"> 6885 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6844'>test-convert-function-and-type-definition</a>/14"</span>) -<span id="L6886" class="LineNr"> 6886 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6844'>test-convert-function-and-type-definition</a>/15"</span>) -<span id="L6887" class="LineNr"> 6887 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6844'>test-convert-function-and-type-definition</a>/16"</span>) -<span id="L6888" class="LineNr"> 6888 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-and-type-definition/17"</span>) -<span id="L6889" class="LineNr"> 6889 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6844'>test-convert-function-and-type-definition</a>/18"</span>) -<span id="L6890" class="LineNr"> 6890 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6844'>test-convert-function-and-type-definition</a>/19"</span>) -<span id="L6891" class="LineNr"> 6891 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6844'>test-convert-function-and-type-definition</a>/20"</span>) -<span id="L6892" class="LineNr"> 6892 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6893" class="LineNr"> 6893 </span> 89/<- %esp 5/r32/ebp -<span id="L6894" class="LineNr"> 6894 </span> 5d/pop-to-ebp -<span id="L6895" class="LineNr"> 6895 </span> c3/return -<span id="L6896" class="LineNr"> 6896 </span> -<span id="L6897" class="LineNr"> 6897 </span><span class="subxTest">test-type-definition-with-array</span>: -<span id="L6898" class="LineNr"> 6898 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6899" class="LineNr"> 6899 </span> 55/push-ebp -<span id="L6900" class="LineNr"> 6900 </span> 89/<- %ebp 4/r32/esp -<span id="L6901" class="LineNr"> 6901 </span> <span class="subxComment"># setup</span> -<span id="L6902" class="LineNr"> 6902 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6903" class="LineNr"> 6903 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6904" class="LineNr"> 6904 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L6905" class="LineNr"> 6905 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6906" class="LineNr"> 6906 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L6907" class="LineNr"> 6907 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L6908" class="LineNr"> 6908 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L6909" class="LineNr"> 6909 </span> 68/push 0/imm32 -<span id="L6910" class="LineNr"> 6910 </span> 68/push 0/imm32 -<span id="L6911" class="LineNr"> 6911 </span> 89/<- %edx 4/r32/esp -<span id="L6912" class="LineNr"> 6912 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L6913" class="LineNr"> 6913 </span> <span class="subxComment">#</span> -<span id="L6914" class="LineNr"> 6914 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L6915" class="LineNr"> 6915 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" a: (array int 3)\n"</span>) -<span id="L6916" class="LineNr"> 6916 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6917" class="LineNr"> 6917 </span> <span class="subxComment"># convert</span> -<span id="L6918" class="LineNr"> 6918 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L6919" class="LineNr"> 6919 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L6920" class="LineNr"> 6920 </span> <span class="subxComment"># restore ed</span> -<span id="L6921" class="LineNr"> 6921 </span> 89/<- %edx 4/r32/esp -<span id="L6922" class="LineNr"> 6922 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L6923" class="LineNr"> 6923 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L6924" class="Folded"> 6924 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6930" class="LineNr"> 6930 </span> <span class="subxComment"># check output</span> -<span id="L6931" class="LineNr"> 6931 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L6897'>test-type-definition-with-array</a>: output should be empty"</span>) -<span id="L6932" class="LineNr"> 6932 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"type t: 'array' elements not allowed for now"</span> <span class="Constant">"F - <a href='mu.subx.html#L6897'>test-type-definition-with-array</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L6933" class="LineNr"> 6933 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L6934" class="LineNr"> 6934 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L6897'>test-type-definition-with-array</a>: exit status"</span>) -<span id="L6935" class="LineNr"> 6935 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L6936" class="LineNr"> 6936 </span> 81 0/subop/add %esp 8/imm32 -<span id="L6937" class="LineNr"> 6937 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6938" class="LineNr"> 6938 </span> 5d/pop-to-ebp -<span id="L6939" class="LineNr"> 6939 </span> c3/return -<span id="L6940" class="LineNr"> 6940 </span> -<span id="L6941" class="LineNr"> 6941 </span><span class="subxTest">test-type-definition-with-addr</span>: -<span id="L6942" class="LineNr"> 6942 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6943" class="LineNr"> 6943 </span> 55/push-ebp -<span id="L6944" class="LineNr"> 6944 </span> 89/<- %ebp 4/r32/esp -<span id="L6945" class="LineNr"> 6945 </span> <span class="subxComment"># setup</span> -<span id="L6946" class="LineNr"> 6946 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6947" class="LineNr"> 6947 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6948" class="LineNr"> 6948 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L6949" class="LineNr"> 6949 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6950" class="LineNr"> 6950 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L6951" class="LineNr"> 6951 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L6952" class="LineNr"> 6952 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L6953" class="LineNr"> 6953 </span> 68/push 0/imm32 -<span id="L6954" class="LineNr"> 6954 </span> 68/push 0/imm32 -<span id="L6955" class="LineNr"> 6955 </span> 89/<- %edx 4/r32/esp -<span id="L6956" class="LineNr"> 6956 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L6957" class="LineNr"> 6957 </span> <span class="subxComment">#</span> -<span id="L6958" class="LineNr"> 6958 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L6959" class="LineNr"> 6959 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" a: (addr int)\n"</span>) -<span id="L6960" class="LineNr"> 6960 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6961" class="LineNr"> 6961 </span> <span class="subxComment"># convert</span> -<span id="L6962" class="LineNr"> 6962 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L6963" class="LineNr"> 6963 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L6964" class="LineNr"> 6964 </span> <span class="subxComment"># restore ed</span> -<span id="L6965" class="LineNr"> 6965 </span> 89/<- %edx 4/r32/esp -<span id="L6966" class="LineNr"> 6966 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L6967" class="LineNr"> 6967 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L6968" class="Folded"> 6968 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6974" class="LineNr"> 6974 </span> <span class="subxComment"># check output</span> -<span id="L6975" class="LineNr"> 6975 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L6941'>test-type-definition-with-addr</a>: output should be empty"</span>) -<span id="L6976" class="LineNr"> 6976 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"type t: 'addr' elements not allowed"</span> <span class="Constant">"F - <a href='mu.subx.html#L6941'>test-type-definition-with-addr</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L6977" class="LineNr"> 6977 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L6978" class="LineNr"> 6978 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L6941'>test-type-definition-with-addr</a>: exit status"</span>) -<span id="L6979" class="LineNr"> 6979 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L6980" class="LineNr"> 6980 </span> 81 0/subop/add %esp 8/imm32 -<span id="L6981" class="LineNr"> 6981 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6982" class="LineNr"> 6982 </span> 5d/pop-to-ebp -<span id="L6983" class="LineNr"> 6983 </span> c3/return -<span id="L6984" class="LineNr"> 6984 </span> -<span id="L6985" class="LineNr"> 6985 </span><span class="subxTest">test-convert-function-with-local-var-with-user-defined-type</span>: -<span id="L6986" class="LineNr"> 6986 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6987" class="LineNr"> 6987 </span> 55/push-ebp -<span id="L6988" class="LineNr"> 6988 </span> 89/<- %ebp 4/r32/esp -<span id="L6989" class="LineNr"> 6989 </span> <span class="subxComment"># setup</span> -<span id="L6990" class="LineNr"> 6990 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6991" class="LineNr"> 6991 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6992" class="LineNr"> 6992 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L6993" class="LineNr"> 6993 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6994" class="LineNr"> 6994 </span> <span class="subxComment">#</span> -<span id="L6995" class="LineNr"> 6995 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6996" class="LineNr"> 6996 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) -<span id="L6997" class="LineNr"> 6997 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6998" class="LineNr"> 6998 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L6999" class="LineNr"> 6999 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L7000" class="LineNr"> 7000 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) -<span id="L7001" class="LineNr"> 7001 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7002" class="LineNr"> 7002 </span> <span class="subxComment"># convert</span> -<span id="L7003" class="LineNr"> 7003 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L7004" class="LineNr"> 7004 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L7005" class="Folded"> 7005 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7011" class="LineNr"> 7011 </span> <span class="subxComment"># check output</span> -<span id="L7012" class="LineNr"> 7012 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6985'>test-convert-function-with-local-var-with-user-defined-type</a>/0"</span>) -<span id="L7013" class="LineNr"> 7013 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-with-user-defined-type/1"</span>) -<span id="L7014" class="LineNr"> 7014 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6985'>test-convert-function-with-local-var-with-user-defined-type</a>/2"</span>) -<span id="L7015" class="LineNr"> 7015 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6985'>test-convert-function-with-local-var-with-user-defined-type</a>/3"</span>) -<span id="L7016" class="LineNr"> 7016 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6985'>test-convert-function-with-local-var-with-user-defined-type</a>/4"</span>) -<span id="L7017" class="LineNr"> 7017 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6985'>test-convert-function-with-local-var-with-user-defined-type</a>/5"</span>) -<span id="L7018" class="LineNr"> 7018 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6985'>test-convert-function-with-local-var-with-user-defined-type</a>/6"</span>) -<span id="L7019" class="LineNr"> 7019 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6985'>test-convert-function-with-local-var-with-user-defined-type</a>/7"</span>) -<span id="L7020" class="LineNr"> 7020 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000008/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6985'>test-convert-function-with-local-var-with-user-defined-type</a>/8"</span>) -<span id="L7021" class="LineNr"> 7021 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6985'>test-convert-function-with-local-var-with-user-defined-type</a>/9"</span>) -<span id="L7022" class="LineNr"> 7022 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6985'>test-convert-function-with-local-var-with-user-defined-type</a>/10"</span>) -<span id="L7023" class="LineNr"> 7023 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-with-user-defined-type/11"</span>) -<span id="L7024" class="LineNr"> 7024 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6985'>test-convert-function-with-local-var-with-user-defined-type</a>/12"</span>) -<span id="L7025" class="LineNr"> 7025 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6985'>test-convert-function-with-local-var-with-user-defined-type</a>/13"</span>) -<span id="L7026" class="LineNr"> 7026 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6985'>test-convert-function-with-local-var-with-user-defined-type</a>/14"</span>) -<span id="L7027" class="LineNr"> 7027 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7028" class="LineNr"> 7028 </span> 89/<- %esp 5/r32/ebp -<span id="L7029" class="LineNr"> 7029 </span> 5d/pop-to-ebp -<span id="L7030" class="LineNr"> 7030 </span> c3/return -<span id="L7031" class="LineNr"> 7031 </span> -<span id="L7032" class="LineNr"> 7032 </span><span class="subxTest">test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</span>: -<span id="L7033" class="LineNr"> 7033 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7034" class="LineNr"> 7034 </span> 55/push-ebp -<span id="L7035" class="LineNr"> 7035 </span> 89/<- %ebp 4/r32/esp -<span id="L7036" class="LineNr"> 7036 </span> <span class="subxComment"># setup</span> -<span id="L7037" class="LineNr"> 7037 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7038" class="LineNr"> 7038 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7039" class="LineNr"> 7039 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L7040" class="LineNr"> 7040 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7041" class="LineNr"> 7041 </span> <span class="subxComment">#</span> -<span id="L7042" class="LineNr"> 7042 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7043" class="LineNr"> 7043 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) -<span id="L7044" class="LineNr"> 7044 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7045" class="LineNr"> 7045 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L7046" class="LineNr"> 7046 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: s\n"</span>) -<span id="L7047" class="LineNr"> 7047 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7048" class="LineNr"> 7048 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type s {\n"</span>) -<span id="L7049" class="LineNr"> 7049 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" z: int\n"</span>) -<span id="L7050" class="LineNr"> 7050 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7051" class="LineNr"> 7051 </span> <span class="subxComment"># convert</span> -<span id="L7052" class="LineNr"> 7052 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L7053" class="LineNr"> 7053 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L7054" class="Folded"> 7054 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7060" class="LineNr"> 7060 </span> <span class="subxComment"># check output</span> -<span id="L7061" class="LineNr"> 7061 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7032'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/0"</span>) -<span id="L7062" class="LineNr"> 7062 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type/1"</span>) -<span id="L7063" class="LineNr"> 7063 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7032'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/2"</span>) -<span id="L7064" class="LineNr"> 7064 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7032'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/3"</span>) -<span id="L7065" class="LineNr"> 7065 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7032'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/4"</span>) -<span id="L7066" class="LineNr"> 7066 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7032'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/5"</span>) -<span id="L7067" class="LineNr"> 7067 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7032'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/7"</span>) -<span id="L7068" class="LineNr"> 7068 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7032'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/8"</span>) -<span id="L7069" class="LineNr"> 7069 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7032'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/9"</span>) -<span id="L7070" class="LineNr"> 7070 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7032'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/10"</span>) -<span id="L7071" class="LineNr"> 7071 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type/11"</span>) -<span id="L7072" class="LineNr"> 7072 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7032'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/12"</span>) -<span id="L7073" class="LineNr"> 7073 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7032'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/13"</span>) -<span id="L7074" class="LineNr"> 7074 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7032'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/14"</span>) -<span id="L7075" class="LineNr"> 7075 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7076" class="LineNr"> 7076 </span> 89/<- %esp 5/r32/ebp -<span id="L7077" class="LineNr"> 7077 </span> 5d/pop-to-ebp -<span id="L7078" class="LineNr"> 7078 </span> c3/return -<span id="L7079" class="LineNr"> 7079 </span> -<span id="L7080" class="LineNr"> 7080 </span><span class="subxTest">test-convert-function-call-with-arg-of-user-defined-type</span>: -<span id="L7081" class="LineNr"> 7081 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7082" class="LineNr"> 7082 </span> 55/push-ebp -<span id="L7083" class="LineNr"> 7083 </span> 89/<- %ebp 4/r32/esp -<span id="L7084" class="LineNr"> 7084 </span> <span class="subxComment"># setup</span> -<span id="L7085" class="LineNr"> 7085 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7086" class="LineNr"> 7086 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7087" class="LineNr"> 7087 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L7088" class="LineNr"> 7088 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7089" class="LineNr"> 7089 </span> <span class="subxComment">#</span> -<span id="L7090" class="LineNr"> 7090 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) -<span id="L7091" class="LineNr"> 7091 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) -<span id="L7092" class="LineNr"> 7092 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" foo a\n"</span>) -<span id="L7093" class="LineNr"> 7093 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7094" class="LineNr"> 7094 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo x: t {\n"</span>) -<span id="L7095" class="LineNr"> 7095 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7096" class="LineNr"> 7096 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L7097" class="LineNr"> 7097 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L7098" class="LineNr"> 7098 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) -<span id="L7099" class="LineNr"> 7099 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7100" class="LineNr"> 7100 </span> <span class="subxComment"># convert</span> -<span id="L7101" class="LineNr"> 7101 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L7102" class="LineNr"> 7102 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L7103" class="Folded"> 7103 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7109" class="LineNr"> 7109 </span> <span class="subxComment"># check output</span> -<span id="L7110" class="LineNr"> 7110 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"f:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7080'>test-convert-function-call-with-arg-of-user-defined-type</a>/0"</span>) -<span id="L7111" class="LineNr"> 7111 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/1"</span>) -<span id="L7112" class="LineNr"> 7112 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7080'>test-convert-function-call-with-arg-of-user-defined-type</a>/2"</span>) -<span id="L7113" class="LineNr"> 7113 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7080'>test-convert-function-call-with-arg-of-user-defined-type</a>/3"</span>) -<span id="L7114" class="LineNr"> 7114 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7080'>test-convert-function-call-with-arg-of-user-defined-type</a>/4"</span>) -<span id="L7115" class="LineNr"> 7115 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7080'>test-convert-function-call-with-arg-of-user-defined-type</a>/5"</span>) -<span id="L7116" class="LineNr"> 7116 </span> <span class="subxComment"># var a: t</span> -<span id="L7117" class="LineNr"> 7117 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7080'>test-convert-function-call-with-arg-of-user-defined-type</a>/6"</span>) -<span id="L7118" class="LineNr"> 7118 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7080'>test-convert-function-call-with-arg-of-user-defined-type</a>/7"</span>) -<span id="L7119" class="LineNr"> 7119 </span> <span class="subxComment"># foo a</span> -<span id="L7120" class="LineNr"> 7120 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (foo *(ebp+0xfffffff8) *(ebp+0xfffffffc))"</span> <span class="Constant">"F - <a href='mu.subx.html#L7080'>test-convert-function-call-with-arg-of-user-defined-type</a>/8"</span>) -<span id="L7121" class="LineNr"> 7121 </span> <span class="subxComment">#</span> -<span id="L7122" class="LineNr"> 7122 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000008/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7080'>test-convert-function-call-with-arg-of-user-defined-type</a>/9"</span>) -<span id="L7123" class="LineNr"> 7123 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7080'>test-convert-function-call-with-arg-of-user-defined-type</a>/10"</span>) -<span id="L7124" class="LineNr"> 7124 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7080'>test-convert-function-call-with-arg-of-user-defined-type</a>/11"</span>) -<span id="L7125" class="LineNr"> 7125 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/12"</span>) -<span id="L7126" class="LineNr"> 7126 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7080'>test-convert-function-call-with-arg-of-user-defined-type</a>/13"</span>) -<span id="L7127" class="LineNr"> 7127 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7080'>test-convert-function-call-with-arg-of-user-defined-type</a>/14"</span>) -<span id="L7128" class="LineNr"> 7128 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7080'>test-convert-function-call-with-arg-of-user-defined-type</a>/15"</span>) -<span id="L7129" class="LineNr"> 7129 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7080'>test-convert-function-call-with-arg-of-user-defined-type</a>/16"</span>) -<span id="L7130" class="LineNr"> 7130 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/17"</span>) -<span id="L7131" class="LineNr"> 7131 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7080'>test-convert-function-call-with-arg-of-user-defined-type</a>/18"</span>) -<span id="L7132" class="LineNr"> 7132 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7080'>test-convert-function-call-with-arg-of-user-defined-type</a>/19"</span>) -<span id="L7133" class="LineNr"> 7133 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/20"</span>) -<span id="L7134" class="LineNr"> 7134 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7080'>test-convert-function-call-with-arg-of-user-defined-type</a>/21"</span>) -<span id="L7135" class="LineNr"> 7135 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7080'>test-convert-function-call-with-arg-of-user-defined-type</a>/22"</span>) -<span id="L7136" class="LineNr"> 7136 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7080'>test-convert-function-call-with-arg-of-user-defined-type</a>/23"</span>) -<span id="L7137" class="LineNr"> 7137 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7138" class="LineNr"> 7138 </span> 89/<- %esp 5/r32/ebp -<span id="L7139" class="LineNr"> 7139 </span> 5d/pop-to-ebp -<span id="L7140" class="LineNr"> 7140 </span> c3/return -<span id="L7141" class="LineNr"> 7141 </span> -<span id="L7142" class="LineNr"> 7142 </span><span class="subxTest">test-convert-function-call-with-arg-of-user-defined-type-register-indirect</span>: -<span id="L7143" class="LineNr"> 7143 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7144" class="LineNr"> 7144 </span> 55/push-ebp -<span id="L7145" class="LineNr"> 7145 </span> 89/<- %ebp 4/r32/esp -<span id="L7146" class="LineNr"> 7146 </span> <span class="subxComment"># setup</span> -<span id="L7147" class="LineNr"> 7147 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7148" class="LineNr"> 7148 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7149" class="LineNr"> 7149 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L7150" class="LineNr"> 7150 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7151" class="LineNr"> 7151 </span> <span class="subxComment">#</span> -<span id="L7152" class="LineNr"> 7152 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) -<span id="L7153" class="LineNr"> 7153 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr t) <- copy 0\n"</span>) -<span id="L7154" class="LineNr"> 7154 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" foo *a\n"</span>) -<span id="L7155" class="LineNr"> 7155 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7156" class="LineNr"> 7156 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo x: t {\n"</span>) -<span id="L7157" class="LineNr"> 7157 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7158" class="LineNr"> 7158 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L7159" class="LineNr"> 7159 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L7160" class="LineNr"> 7160 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) -<span id="L7161" class="LineNr"> 7161 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7162" class="LineNr"> 7162 </span> <span class="subxComment"># convert</span> -<span id="L7163" class="LineNr"> 7163 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L7164" class="LineNr"> 7164 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L7165" class="Folded"> 7165 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7171" class="LineNr"> 7171 </span> <span class="subxComment"># check output</span> -<span id="L7172" class="LineNr"> 7172 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"f:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7080'>test-convert-function-call-with-arg-of-user-defined-type</a>/0"</span>) -<span id="L7173" class="LineNr"> 7173 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/1"</span>) -<span id="L7174" class="LineNr"> 7174 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7080'>test-convert-function-call-with-arg-of-user-defined-type</a>/2"</span>) -<span id="L7175" class="LineNr"> 7175 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7080'>test-convert-function-call-with-arg-of-user-defined-type</a>/3"</span>) -<span id="L7176" class="LineNr"> 7176 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7080'>test-convert-function-call-with-arg-of-user-defined-type</a>/4"</span>) -<span id="L7177" class="LineNr"> 7177 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7080'>test-convert-function-call-with-arg-of-user-defined-type</a>/5"</span>) -<span id="L7178" class="LineNr"> 7178 </span> <span class="subxComment"># var a</span> -<span id="L7179" class="LineNr"> 7179 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L7080'>test-convert-function-call-with-arg-of-user-defined-type</a>/6"</span>) -<span id="L7180" class="LineNr"> 7180 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7080'>test-convert-function-call-with-arg-of-user-defined-type</a>/7"</span>) -<span id="L7181" class="LineNr"> 7181 </span> <span class="subxComment"># foo a</span> -<span id="L7182" class="LineNr"> 7182 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (foo *(eax+0x00000000) *(eax+0x00000004))"</span> <span class="Constant">"F - <a href='mu.subx.html#L7080'>test-convert-function-call-with-arg-of-user-defined-type</a>/8"</span>) -<span id="L7183" class="LineNr"> 7183 </span> <span class="subxComment">#</span> -<span id="L7184" class="LineNr"> 7184 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L7080'>test-convert-function-call-with-arg-of-user-defined-type</a>/9"</span>) -<span id="L7185" class="LineNr"> 7185 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7080'>test-convert-function-call-with-arg-of-user-defined-type</a>/10"</span>) -<span id="L7186" class="LineNr"> 7186 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7080'>test-convert-function-call-with-arg-of-user-defined-type</a>/11"</span>) -<span id="L7187" class="LineNr"> 7187 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/12"</span>) -<span id="L7188" class="LineNr"> 7188 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7080'>test-convert-function-call-with-arg-of-user-defined-type</a>/13"</span>) -<span id="L7189" class="LineNr"> 7189 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7080'>test-convert-function-call-with-arg-of-user-defined-type</a>/14"</span>) -<span id="L7190" class="LineNr"> 7190 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7080'>test-convert-function-call-with-arg-of-user-defined-type</a>/15"</span>) -<span id="L7191" class="LineNr"> 7191 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7080'>test-convert-function-call-with-arg-of-user-defined-type</a>/16"</span>) -<span id="L7192" class="LineNr"> 7192 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/17"</span>) -<span id="L7193" class="LineNr"> 7193 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7080'>test-convert-function-call-with-arg-of-user-defined-type</a>/18"</span>) -<span id="L7194" class="LineNr"> 7194 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7080'>test-convert-function-call-with-arg-of-user-defined-type</a>/19"</span>) -<span id="L7195" class="LineNr"> 7195 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/20"</span>) -<span id="L7196" class="LineNr"> 7196 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7080'>test-convert-function-call-with-arg-of-user-defined-type</a>/21"</span>) -<span id="L7197" class="LineNr"> 7197 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7080'>test-convert-function-call-with-arg-of-user-defined-type</a>/22"</span>) -<span id="L7198" class="LineNr"> 7198 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7080'>test-convert-function-call-with-arg-of-user-defined-type</a>/23"</span>) -<span id="L7199" class="LineNr"> 7199 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7200" class="LineNr"> 7200 </span> 89/<- %esp 5/r32/ebp -<span id="L7201" class="LineNr"> 7201 </span> 5d/pop-to-ebp -<span id="L7202" class="LineNr"> 7202 </span> c3/return -<span id="L7203" class="LineNr"> 7203 </span> -<span id="L7204" class="LineNr"> 7204 </span><span class="subxComment"># we don't have special support for call-by-reference; just explicitly create</span> -<span id="L7205" class="LineNr"> 7205 </span><span class="subxComment"># a new variable with the address of the arg</span> -<span id="L7206" class="LineNr"> 7206 </span><span class="subxTest">test-convert-function-call-with-arg-of-user-defined-type-by-reference</span>: -<span id="L7207" class="LineNr"> 7207 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7208" class="LineNr"> 7208 </span> 55/push-ebp -<span id="L7209" class="LineNr"> 7209 </span> 89/<- %ebp 4/r32/esp -<span id="L7210" class="LineNr"> 7210 </span> <span class="subxComment"># setup</span> -<span id="L7211" class="LineNr"> 7211 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7212" class="LineNr"> 7212 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7213" class="LineNr"> 7213 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L7214" class="LineNr"> 7214 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7215" class="LineNr"> 7215 </span> <span class="subxComment">#</span> -<span id="L7216" class="LineNr"> 7216 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) -<span id="L7217" class="LineNr"> 7217 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) -<span id="L7218" class="LineNr"> 7218 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: (addr t) <- address a\n"</span>) -<span id="L7219" class="LineNr"> 7219 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" foo b\n"</span>) -<span id="L7220" class="LineNr"> 7220 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7221" class="LineNr"> 7221 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo x: (addr t) {\n"</span>) -<span id="L7222" class="LineNr"> 7222 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: (addr t) <- copy x\n"</span>) -<span id="L7223" class="LineNr"> 7223 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7224" class="LineNr"> 7224 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L7225" class="LineNr"> 7225 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L7226" class="LineNr"> 7226 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) -<span id="L7227" class="LineNr"> 7227 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7228" class="LineNr"> 7228 </span> <span class="subxComment"># convert</span> -<span id="L7229" class="LineNr"> 7229 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L7230" class="LineNr"> 7230 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L7231" class="Folded"> 7231 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7237" class="LineNr"> 7237 </span> <span class="subxComment"># check output</span> -<span id="L7238" class="LineNr"> 7238 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"f:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7206'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/0"</span>) -<span id="L7239" class="LineNr"> 7239 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type-by-reference/1"</span>) -<span id="L7240" class="LineNr"> 7240 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7206'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/2"</span>) -<span id="L7241" class="LineNr"> 7241 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7206'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/3"</span>) -<span id="L7242" class="LineNr"> 7242 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7206'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/4"</span>) -<span id="L7243" class="LineNr"> 7243 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7206'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/5"</span>) -<span id="L7244" class="LineNr"> 7244 </span> <span class="subxComment"># var a: t</span> -<span id="L7245" class="LineNr"> 7245 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7206'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/6"</span>) -<span id="L7246" class="LineNr"> 7246 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7206'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/7"</span>) -<span id="L7247" class="LineNr"> 7247 </span> <span class="subxComment"># var b/eax: (addr t)</span> -<span id="L7248" class="LineNr"> 7248 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L7206'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/8"</span>) -<span id="L7249" class="LineNr"> 7249 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp+0xfffffff8) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7206'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/9"</span>) -<span id="L7250" class="LineNr"> 7250 </span> <span class="subxComment"># foo a</span> -<span id="L7251" class="LineNr"> 7251 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (foo %eax)"</span> <span class="Constant">"F - <a href='mu.subx.html#L7206'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/10"</span>) -<span id="L7252" class="LineNr"> 7252 </span> <span class="subxComment">#</span> -<span id="L7253" class="LineNr"> 7253 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L7206'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/11"</span>) -<span id="L7254" class="LineNr"> 7254 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000008/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7206'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/12"</span>) -<span id="L7255" class="LineNr"> 7255 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7206'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/13"</span>) -<span id="L7256" class="LineNr"> 7256 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7206'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/14"</span>) -<span id="L7257" class="LineNr"> 7257 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type-by-reference/15"</span>) -<span id="L7258" class="LineNr"> 7258 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7206'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/16"</span>) -<span id="L7259" class="LineNr"> 7259 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7206'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/17"</span>) -<span id="L7260" class="LineNr"> 7260 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7206'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/18"</span>) -<span id="L7261" class="LineNr"> 7261 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7206'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/19"</span>) -<span id="L7262" class="LineNr"> 7262 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type-by-reference/20"</span>) -<span id="L7263" class="LineNr"> 7263 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7206'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/21"</span>) -<span id="L7264" class="LineNr"> 7264 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7206'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/22"</span>) -<span id="L7265" class="LineNr"> 7265 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7206'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/23"</span>) -<span id="L7266" class="LineNr"> 7266 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7206'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/24"</span>) -<span id="L7267" class="LineNr"> 7267 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7206'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/25"</span>) -<span id="L7268" class="LineNr"> 7268 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x00000008) 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7206'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/26"</span>) -<span id="L7269" class="LineNr"> 7269 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7206'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/27"</span>) -<span id="L7270" class="LineNr"> 7270 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7206'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/28"</span>) -<span id="L7271" class="LineNr"> 7271 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7206'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/29"</span>) -<span id="L7272" class="LineNr"> 7272 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type-by-reference/30"</span>) -<span id="L7273" class="LineNr"> 7273 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7206'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/31"</span>) -<span id="L7274" class="LineNr"> 7274 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7206'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/32"</span>) -<span id="L7275" class="LineNr"> 7275 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7206'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/33"</span>) -<span id="L7276" class="LineNr"> 7276 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7277" class="LineNr"> 7277 </span> 89/<- %esp 5/r32/ebp -<span id="L7278" class="LineNr"> 7278 </span> 5d/pop-to-ebp -<span id="L7279" class="LineNr"> 7279 </span> c3/return -<span id="L7280" class="LineNr"> 7280 </span> -<span id="L7281" class="LineNr"> 7281 </span><span class="subxTest">test-convert-get-on-local-variable</span>: -<span id="L7282" class="LineNr"> 7282 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7283" class="LineNr"> 7283 </span> 55/push-ebp -<span id="L7284" class="LineNr"> 7284 </span> 89/<- %ebp 4/r32/esp -<span id="L7285" class="LineNr"> 7285 </span> <span class="subxComment"># setup</span> -<span id="L7286" class="LineNr"> 7286 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7287" class="LineNr"> 7287 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7288" class="LineNr"> 7288 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L7289" class="LineNr"> 7289 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7290" class="LineNr"> 7290 </span> <span class="subxComment">#</span> -<span id="L7291" class="LineNr"> 7291 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7292" class="LineNr"> 7292 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) -<span id="L7293" class="LineNr"> 7293 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> a, y\n"</span>) -<span id="L7294" class="LineNr"> 7294 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7295" class="LineNr"> 7295 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L7296" class="LineNr"> 7296 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L7297" class="LineNr"> 7297 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) -<span id="L7298" class="LineNr"> 7298 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7299" class="LineNr"> 7299 </span> <span class="subxComment"># convert</span> -<span id="L7300" class="LineNr"> 7300 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L7301" class="LineNr"> 7301 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L7302" class="Folded"> 7302 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7308" class="LineNr"> 7308 </span> <span class="subxComment"># check output</span> -<span id="L7309" class="LineNr"> 7309 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7281'>test-convert-get-on-local-variable</a>/0"</span>) -<span id="L7310" class="LineNr"> 7310 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-get-on-local-variable/1"</span>) -<span id="L7311" class="LineNr"> 7311 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7281'>test-convert-get-on-local-variable</a>/2"</span>) -<span id="L7312" class="LineNr"> 7312 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7281'>test-convert-get-on-local-variable</a>/3"</span>) -<span id="L7313" class="LineNr"> 7313 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7281'>test-convert-get-on-local-variable</a>/4"</span>) -<span id="L7314" class="LineNr"> 7314 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7281'>test-convert-get-on-local-variable</a>/5"</span>) -<span id="L7315" class="LineNr"> 7315 </span> <span class="subxComment"># var a</span> -<span id="L7316" class="LineNr"> 7316 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7281'>test-convert-get-on-local-variable</a>/6"</span>) -<span id="L7317" class="LineNr"> 7317 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7281'>test-convert-get-on-local-variable</a>/7"</span>) -<span id="L7318" class="LineNr"> 7318 </span> <span class="subxComment"># var c</span> -<span id="L7319" class="LineNr"> 7319 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7281'>test-convert-get-on-local-variable</a>/8"</span>) -<span id="L7320" class="LineNr"> 7320 </span> <span class="subxComment"># get</span> -<span id="L7321" class="LineNr"> 7321 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp+0xfffffffc) 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7281'>test-convert-get-on-local-variable</a>/9"</span>) -<span id="L7322" class="LineNr"> 7322 </span> <span class="subxComment"># reclaim c</span> -<span id="L7323" class="LineNr"> 7323 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7281'>test-convert-get-on-local-variable</a>/10"</span>) -<span id="L7324" class="LineNr"> 7324 </span> <span class="subxComment"># reclaim a</span> -<span id="L7325" class="LineNr"> 7325 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000008/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7281'>test-convert-get-on-local-variable</a>/11"</span>) -<span id="L7326" class="LineNr"> 7326 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7281'>test-convert-get-on-local-variable</a>/12"</span>) -<span id="L7327" class="LineNr"> 7327 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7281'>test-convert-get-on-local-variable</a>/13"</span>) -<span id="L7328" class="LineNr"> 7328 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-get-on-local-variable/14"</span>) -<span id="L7329" class="LineNr"> 7329 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7281'>test-convert-get-on-local-variable</a>/15"</span>) -<span id="L7330" class="LineNr"> 7330 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7281'>test-convert-get-on-local-variable</a>/16"</span>) -<span id="L7331" class="LineNr"> 7331 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7281'>test-convert-get-on-local-variable</a>/17"</span>) -<span id="L7332" class="LineNr"> 7332 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7333" class="LineNr"> 7333 </span> 89/<- %esp 5/r32/ebp -<span id="L7334" class="LineNr"> 7334 </span> 5d/pop-to-ebp -<span id="L7335" class="LineNr"> 7335 </span> c3/return -<span id="L7336" class="LineNr"> 7336 </span> -<span id="L7337" class="LineNr"> 7337 </span><span class="subxTest">test-convert-get-on-function-argument</span>: -<span id="L7338" class="LineNr"> 7338 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7339" class="LineNr"> 7339 </span> 55/push-ebp -<span id="L7340" class="LineNr"> 7340 </span> 89/<- %ebp 4/r32/esp -<span id="L7341" class="LineNr"> 7341 </span> <span class="subxComment"># setup</span> -<span id="L7342" class="LineNr"> 7342 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7343" class="LineNr"> 7343 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7344" class="LineNr"> 7344 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L7345" class="LineNr"> 7345 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7346" class="LineNr"> 7346 </span> <span class="subxComment">#</span> -<span id="L7347" class="LineNr"> 7347 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo a: t {\n"</span>) -<span id="L7348" class="LineNr"> 7348 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> a, y\n"</span>) -<span id="L7349" class="LineNr"> 7349 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7350" class="LineNr"> 7350 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L7351" class="LineNr"> 7351 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L7352" class="LineNr"> 7352 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) -<span id="L7353" class="LineNr"> 7353 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7354" class="LineNr"> 7354 </span> <span class="subxComment"># convert</span> -<span id="L7355" class="LineNr"> 7355 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L7356" class="LineNr"> 7356 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L7357" class="Folded"> 7357 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7363" class="LineNr"> 7363 </span> <span class="subxComment"># check output</span> -<span id="L7364" class="LineNr"> 7364 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7337'>test-convert-get-on-function-argument</a>/0"</span>) -<span id="L7365" class="LineNr"> 7365 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-get-on-function-argument/1"</span>) -<span id="L7366" class="LineNr"> 7366 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7337'>test-convert-get-on-function-argument</a>/2"</span>) -<span id="L7367" class="LineNr"> 7367 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7337'>test-convert-get-on-function-argument</a>/3"</span>) -<span id="L7368" class="LineNr"> 7368 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7337'>test-convert-get-on-function-argument</a>/4"</span>) -<span id="L7369" class="LineNr"> 7369 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7337'>test-convert-get-on-function-argument</a>/5"</span>) -<span id="L7370" class="LineNr"> 7370 </span> <span class="subxComment"># var c</span> -<span id="L7371" class="LineNr"> 7371 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7337'>test-convert-get-on-function-argument</a>/6"</span>) -<span id="L7372" class="LineNr"> 7372 </span> <span class="subxComment"># get</span> -<span id="L7373" class="LineNr"> 7373 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp+0x0000000c) 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7337'>test-convert-get-on-function-argument</a>/7"</span>) -<span id="L7374" class="LineNr"> 7374 </span> <span class="subxComment"># reclaim c</span> -<span id="L7375" class="LineNr"> 7375 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7337'>test-convert-get-on-function-argument</a>/8"</span>) -<span id="L7376" class="LineNr"> 7376 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7337'>test-convert-get-on-function-argument</a>/9"</span>) -<span id="L7377" class="LineNr"> 7377 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7337'>test-convert-get-on-function-argument</a>/10"</span>) -<span id="L7378" class="LineNr"> 7378 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-get-on-function-argument/11"</span>) -<span id="L7379" class="LineNr"> 7379 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7337'>test-convert-get-on-function-argument</a>/12"</span>) -<span id="L7380" class="LineNr"> 7380 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7337'>test-convert-get-on-function-argument</a>/13"</span>) -<span id="L7381" class="LineNr"> 7381 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7337'>test-convert-get-on-function-argument</a>/14"</span>) -<span id="L7382" class="LineNr"> 7382 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7383" class="LineNr"> 7383 </span> 89/<- %esp 5/r32/ebp -<span id="L7384" class="LineNr"> 7384 </span> 5d/pop-to-ebp -<span id="L7385" class="LineNr"> 7385 </span> c3/return -<span id="L7386" class="LineNr"> 7386 </span> -<span id="L7387" class="LineNr"> 7387 </span><span class="subxTest">test-convert-get-on-function-argument-with-known-type</span>: -<span id="L7388" class="LineNr"> 7388 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7389" class="LineNr"> 7389 </span> 55/push-ebp -<span id="L7390" class="LineNr"> 7390 </span> 89/<- %ebp 4/r32/esp -<span id="L7391" class="LineNr"> 7391 </span> <span class="subxComment"># setup</span> -<span id="L7392" class="LineNr"> 7392 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7393" class="LineNr"> 7393 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7394" class="LineNr"> 7394 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L7395" class="LineNr"> 7395 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7396" class="LineNr"> 7396 </span> <span class="subxComment">#</span> -<span id="L7397" class="LineNr"> 7397 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L7398" class="LineNr"> 7398 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L7399" class="LineNr"> 7399 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) -<span id="L7400" class="LineNr"> 7400 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7401" class="LineNr"> 7401 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo a: t {\n"</span>) -<span id="L7402" class="LineNr"> 7402 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> a, y\n"</span>) -<span id="L7403" class="LineNr"> 7403 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7404" class="LineNr"> 7404 </span> <span class="subxComment"># convert</span> -<span id="L7405" class="LineNr"> 7405 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L7406" class="LineNr"> 7406 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L7407" class="Folded"> 7407 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7413" class="LineNr"> 7413 </span> <span class="subxComment"># check output</span> -<span id="L7414" class="LineNr"> 7414 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7387'>test-convert-get-on-function-argument-with-known-type</a>/0"</span>) -<span id="L7415" class="LineNr"> 7415 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-get-on-function-argument-with-known-type/1"</span>) -<span id="L7416" class="LineNr"> 7416 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7387'>test-convert-get-on-function-argument-with-known-type</a>/2"</span>) -<span id="L7417" class="LineNr"> 7417 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7387'>test-convert-get-on-function-argument-with-known-type</a>/3"</span>) -<span id="L7418" class="LineNr"> 7418 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7387'>test-convert-get-on-function-argument-with-known-type</a>/4"</span>) -<span id="L7419" class="LineNr"> 7419 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7387'>test-convert-get-on-function-argument-with-known-type</a>/5"</span>) -<span id="L7420" class="LineNr"> 7420 </span> <span class="subxComment"># var c</span> -<span id="L7421" class="LineNr"> 7421 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7387'>test-convert-get-on-function-argument-with-known-type</a>/6"</span>) -<span id="L7422" class="LineNr"> 7422 </span> <span class="subxComment"># get</span> -<span id="L7423" class="LineNr"> 7423 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp+0x0000000c) 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7387'>test-convert-get-on-function-argument-with-known-type</a>/7"</span>) -<span id="L7424" class="LineNr"> 7424 </span> <span class="subxComment"># reclaim c</span> -<span id="L7425" class="LineNr"> 7425 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7387'>test-convert-get-on-function-argument-with-known-type</a>/8"</span>) -<span id="L7426" class="LineNr"> 7426 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7387'>test-convert-get-on-function-argument-with-known-type</a>/9"</span>) -<span id="L7427" class="LineNr"> 7427 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7387'>test-convert-get-on-function-argument-with-known-type</a>/10"</span>) -<span id="L7428" class="LineNr"> 7428 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-get-on-function-argument-with-known-type/11"</span>) -<span id="L7429" class="LineNr"> 7429 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7387'>test-convert-get-on-function-argument-with-known-type</a>/12"</span>) -<span id="L7430" class="LineNr"> 7430 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7387'>test-convert-get-on-function-argument-with-known-type</a>/13"</span>) -<span id="L7431" class="LineNr"> 7431 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7387'>test-convert-get-on-function-argument-with-known-type</a>/14"</span>) -<span id="L7432" class="LineNr"> 7432 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7433" class="LineNr"> 7433 </span> 89/<- %esp 5/r32/ebp -<span id="L7434" class="LineNr"> 7434 </span> 5d/pop-to-ebp -<span id="L7435" class="LineNr"> 7435 </span> c3/return -<span id="L7436" class="LineNr"> 7436 </span> -<span id="L7437" class="LineNr"> 7437 </span><span class="subxTest">test-add-with-too-many-inouts</span>: -<span id="L7438" class="LineNr"> 7438 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7439" class="LineNr"> 7439 </span> 55/push-ebp -<span id="L7440" class="LineNr"> 7440 </span> 89/<- %ebp 4/r32/esp -<span id="L7441" class="LineNr"> 7441 </span> <span class="subxComment"># setup</span> -<span id="L7442" class="LineNr"> 7442 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7443" class="LineNr"> 7443 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7444" class="LineNr"> 7444 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L7445" class="LineNr"> 7445 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7446" class="LineNr"> 7446 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L7447" class="LineNr"> 7447 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7448" class="LineNr"> 7448 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7449" class="LineNr"> 7449 </span> 68/push 0/imm32 -<span id="L7450" class="LineNr"> 7450 </span> 68/push 0/imm32 -<span id="L7451" class="LineNr"> 7451 </span> 89/<- %edx 4/r32/esp -<span id="L7452" class="LineNr"> 7452 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7453" class="LineNr"> 7453 </span> <span class="subxComment">#</span> -<span id="L7454" class="LineNr"> 7454 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7455" class="LineNr"> 7455 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) -<span id="L7456" class="LineNr"> 7456 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/ecx: int <- add a, 0\n"</span>) -<span id="L7457" class="LineNr"> 7457 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7458" class="LineNr"> 7458 </span> <span class="subxComment"># convert</span> -<span id="L7459" class="LineNr"> 7459 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L7460" class="LineNr"> 7460 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7461" class="LineNr"> 7461 </span> <span class="subxComment"># restore ed</span> -<span id="L7462" class="LineNr"> 7462 </span> 89/<- %edx 4/r32/esp -<span id="L7463" class="LineNr"> 7463 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L7464" class="LineNr"> 7464 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L7465" class="Folded"> 7465 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7471" class="LineNr"> 7471 </span> <span class="subxComment"># check output</span> -<span id="L7472" class="LineNr"> 7472 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7437'>test-add-with-too-many-inouts</a>: output should be empty"</span>) -<span id="L7473" class="LineNr"> 7473 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt add: too many inouts; most primitives support at most two arguments, across inouts and outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L7437'>test-add-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L7474" class="LineNr"> 7474 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7475" class="LineNr"> 7475 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7437'>test-add-with-too-many-inouts</a>: exit status"</span>) -<span id="L7476" class="LineNr"> 7476 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7477" class="LineNr"> 7477 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7478" class="LineNr"> 7478 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7479" class="LineNr"> 7479 </span> 5d/pop-to-ebp -<span id="L7480" class="LineNr"> 7480 </span> c3/return -<span id="L7481" class="LineNr"> 7481 </span> -<span id="L7482" class="LineNr"> 7482 </span><span class="subxTest">test-add-with-too-many-inouts-2</span>: -<span id="L7483" class="LineNr"> 7483 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7484" class="LineNr"> 7484 </span> 55/push-ebp -<span id="L7485" class="LineNr"> 7485 </span> 89/<- %ebp 4/r32/esp -<span id="L7486" class="LineNr"> 7486 </span> <span class="subxComment"># setup</span> -<span id="L7487" class="LineNr"> 7487 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7488" class="LineNr"> 7488 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7489" class="LineNr"> 7489 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L7490" class="LineNr"> 7490 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7491" class="LineNr"> 7491 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L7492" class="LineNr"> 7492 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7493" class="LineNr"> 7493 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7494" class="LineNr"> 7494 </span> 68/push 0/imm32 -<span id="L7495" class="LineNr"> 7495 </span> 68/push 0/imm32 -<span id="L7496" class="LineNr"> 7496 </span> 89/<- %edx 4/r32/esp -<span id="L7497" class="LineNr"> 7497 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7498" class="LineNr"> 7498 </span> <span class="subxComment">#</span> -<span id="L7499" class="LineNr"> 7499 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7500" class="LineNr"> 7500 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) -<span id="L7501" class="LineNr"> 7501 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" add-to a, 0, 1\n"</span>) -<span id="L7502" class="LineNr"> 7502 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7503" class="LineNr"> 7503 </span> <span class="subxComment"># convert</span> -<span id="L7504" class="LineNr"> 7504 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L7505" class="LineNr"> 7505 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7506" class="LineNr"> 7506 </span> <span class="subxComment"># restore ed</span> -<span id="L7507" class="LineNr"> 7507 </span> 89/<- %edx 4/r32/esp -<span id="L7508" class="LineNr"> 7508 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L7509" class="LineNr"> 7509 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L7510" class="Folded"> 7510 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7516" class="LineNr"> 7516 </span> <span class="subxComment"># check output</span> -<span id="L7517" class="LineNr"> 7517 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7482'>test-add-with-too-many-inouts-2</a>: output should be empty"</span>) -<span id="L7518" class="LineNr"> 7518 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt add-to: too many inouts; most primitives support at most two arguments, across inouts and outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L7482'>test-add-with-too-many-inouts-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L7519" class="LineNr"> 7519 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7520" class="LineNr"> 7520 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7482'>test-add-with-too-many-inouts-2</a>: exit status"</span>) -<span id="L7521" class="LineNr"> 7521 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7522" class="LineNr"> 7522 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7523" class="LineNr"> 7523 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7524" class="LineNr"> 7524 </span> 5d/pop-to-ebp -<span id="L7525" class="LineNr"> 7525 </span> c3/return -<span id="L7526" class="LineNr"> 7526 </span> -<span id="L7527" class="LineNr"> 7527 </span><span class="subxTest">test-add-with-too-many-outputs</span>: -<span id="L7528" class="LineNr"> 7528 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7529" class="LineNr"> 7529 </span> 55/push-ebp -<span id="L7530" class="LineNr"> 7530 </span> 89/<- %ebp 4/r32/esp -<span id="L7531" class="LineNr"> 7531 </span> <span class="subxComment"># setup</span> -<span id="L7532" class="LineNr"> 7532 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7533" class="LineNr"> 7533 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7534" class="LineNr"> 7534 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L7535" class="LineNr"> 7535 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7536" class="LineNr"> 7536 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L7537" class="LineNr"> 7537 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7538" class="LineNr"> 7538 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7539" class="LineNr"> 7539 </span> 68/push 0/imm32 -<span id="L7540" class="LineNr"> 7540 </span> 68/push 0/imm32 -<span id="L7541" class="LineNr"> 7541 </span> 89/<- %edx 4/r32/esp -<span id="L7542" class="LineNr"> 7542 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7543" class="LineNr"> 7543 </span> <span class="subxComment">#</span> -<span id="L7544" class="LineNr"> 7544 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7545" class="LineNr"> 7545 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: int <- copy 0\n"</span>) -<span id="L7546" class="LineNr"> 7546 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/ebx: int <- copy 0\n"</span>) -<span id="L7547" class="LineNr"> 7547 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: int <- copy 0\n"</span>) -<span id="L7548" class="LineNr"> 7548 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" c, b <- add a\n"</span>) -<span id="L7549" class="LineNr"> 7549 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7550" class="LineNr"> 7550 </span> <span class="subxComment"># convert</span> -<span id="L7551" class="LineNr"> 7551 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L7552" class="LineNr"> 7552 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7553" class="LineNr"> 7553 </span> <span class="subxComment"># restore ed</span> -<span id="L7554" class="LineNr"> 7554 </span> 89/<- %edx 4/r32/esp -<span id="L7555" class="LineNr"> 7555 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L7556" class="LineNr"> 7556 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L7557" class="Folded"> 7557 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7563" class="LineNr"> 7563 </span> <span class="subxComment"># check output</span> -<span id="L7564" class="LineNr"> 7564 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7527'>test-add-with-too-many-outputs</a>: output should be empty"</span>) -<span id="L7565" class="LineNr"> 7565 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt add: too many outputs; most primitives support at most one output"</span> <span class="Constant">"F - <a href='mu.subx.html#L7527'>test-add-with-too-many-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L7566" class="LineNr"> 7566 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7567" class="LineNr"> 7567 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7527'>test-add-with-too-many-outputs</a>: exit status"</span>) -<span id="L7568" class="LineNr"> 7568 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7569" class="LineNr"> 7569 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7570" class="LineNr"> 7570 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7571" class="LineNr"> 7571 </span> 5d/pop-to-ebp -<span id="L7572" class="LineNr"> 7572 </span> c3/return -<span id="L7573" class="LineNr"> 7573 </span> -<span id="L7574" class="LineNr"> 7574 </span><span class="subxTest">test-add-with-non-number</span>: -<span id="L7575" class="LineNr"> 7575 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7576" class="LineNr"> 7576 </span> 55/push-ebp -<span id="L7577" class="LineNr"> 7577 </span> 89/<- %ebp 4/r32/esp -<span id="L7578" class="LineNr"> 7578 </span> <span class="subxComment"># setup</span> -<span id="L7579" class="LineNr"> 7579 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7580" class="LineNr"> 7580 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7581" class="LineNr"> 7581 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L7582" class="LineNr"> 7582 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7583" class="LineNr"> 7583 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L7584" class="LineNr"> 7584 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7585" class="LineNr"> 7585 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7586" class="LineNr"> 7586 </span> 68/push 0/imm32 -<span id="L7587" class="LineNr"> 7587 </span> 68/push 0/imm32 -<span id="L7588" class="LineNr"> 7588 </span> 89/<- %edx 4/r32/esp -<span id="L7589" class="LineNr"> 7589 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7590" class="LineNr"> 7590 </span> <span class="subxComment">#</span> -<span id="L7591" class="LineNr"> 7591 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7592" class="LineNr"> 7592 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) -<span id="L7593" class="LineNr"> 7593 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/ecx: (addr int) <- add a\n"</span>) -<span id="L7594" class="LineNr"> 7594 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7595" class="LineNr"> 7595 </span> <span class="subxComment"># convert</span> -<span id="L7596" class="LineNr"> 7596 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L7597" class="LineNr"> 7597 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7598" class="LineNr"> 7598 </span> <span class="subxComment"># restore ed</span> -<span id="L7599" class="LineNr"> 7599 </span> 89/<- %edx 4/r32/esp -<span id="L7600" class="LineNr"> 7600 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L7601" class="LineNr"> 7601 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L7602" class="Folded"> 7602 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7608" class="LineNr"> 7608 </span> <span class="subxComment"># check output</span> -<span id="L7609" class="LineNr"> 7609 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7574'>test-add-with-non-number</a>: output should be empty"</span>) -<span id="L7610" class="LineNr"> 7610 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt add: 'b' must be a non-addr non-offset scalar"</span> <span class="Constant">"F - <a href='mu.subx.html#L7574'>test-add-with-non-number</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L7611" class="LineNr"> 7611 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7612" class="LineNr"> 7612 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7574'>test-add-with-non-number</a>: exit status"</span>) -<span id="L7613" class="LineNr"> 7613 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7614" class="LineNr"> 7614 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7615" class="LineNr"> 7615 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7616" class="LineNr"> 7616 </span> 5d/pop-to-ebp -<span id="L7617" class="LineNr"> 7617 </span> c3/return -<span id="L7618" class="LineNr"> 7618 </span> -<span id="L7619" class="LineNr"> 7619 </span><span class="subxTest">test-add-with-addr-dereferenced</span>: -<span id="L7620" class="LineNr"> 7620 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7621" class="LineNr"> 7621 </span> 55/push-ebp -<span id="L7622" class="LineNr"> 7622 </span> 89/<- %ebp 4/r32/esp -<span id="L7623" class="LineNr"> 7623 </span> <span class="subxComment"># setup</span> -<span id="L7624" class="LineNr"> 7624 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7625" class="LineNr"> 7625 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7626" class="LineNr"> 7626 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L7627" class="LineNr"> 7627 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7628" class="LineNr"> 7628 </span> <span class="subxComment">#</span> -<span id="L7629" class="LineNr"> 7629 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7630" class="LineNr"> 7630 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr int) <- copy 0\n"</span>) -<span id="L7631" class="LineNr"> 7631 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" add-to *a, 1\n"</span>) -<span id="L7632" class="LineNr"> 7632 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7633" class="LineNr"> 7633 </span> <span class="subxComment"># convert</span> -<span id="L7634" class="LineNr"> 7634 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L7635" class="LineNr"> 7635 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L7636" class="LineNr"> 7636 </span> <span class="subxComment"># no error</span> -<span id="L7637" class="LineNr"> 7637 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7638" class="LineNr"> 7638 </span> 89/<- %esp 5/r32/ebp -<span id="L7639" class="LineNr"> 7639 </span> 5d/pop-to-ebp -<span id="L7640" class="LineNr"> 7640 </span> c3/return -<span id="L7641" class="LineNr"> 7641 </span> -<span id="L7642" class="LineNr"> 7642 </span><span class="subxTest">test-copy-with-no-inout</span>: -<span id="L7643" class="LineNr"> 7643 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7644" class="LineNr"> 7644 </span> 55/push-ebp -<span id="L7645" class="LineNr"> 7645 </span> 89/<- %ebp 4/r32/esp -<span id="L7646" class="LineNr"> 7646 </span> <span class="subxComment"># setup</span> -<span id="L7647" class="LineNr"> 7647 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7648" class="LineNr"> 7648 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7649" class="LineNr"> 7649 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L7650" class="LineNr"> 7650 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7651" class="LineNr"> 7651 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L7652" class="LineNr"> 7652 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7653" class="LineNr"> 7653 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7654" class="LineNr"> 7654 </span> 68/push 0/imm32 -<span id="L7655" class="LineNr"> 7655 </span> 68/push 0/imm32 -<span id="L7656" class="LineNr"> 7656 </span> 89/<- %edx 4/r32/esp -<span id="L7657" class="LineNr"> 7657 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7658" class="LineNr"> 7658 </span> <span class="subxComment">#</span> -<span id="L7659" class="LineNr"> 7659 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7660" class="LineNr"> 7660 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy\n"</span>) -<span id="L7661" class="LineNr"> 7661 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7662" class="LineNr"> 7662 </span> <span class="subxComment"># convert</span> -<span id="L7663" class="LineNr"> 7663 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L7664" class="LineNr"> 7664 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7665" class="LineNr"> 7665 </span> <span class="subxComment"># restore ed</span> -<span id="L7666" class="LineNr"> 7666 </span> 89/<- %edx 4/r32/esp -<span id="L7667" class="LineNr"> 7667 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L7668" class="LineNr"> 7668 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L7669" class="Folded"> 7669 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7675" class="LineNr"> 7675 </span> <span class="subxComment"># check output</span> -<span id="L7676" class="LineNr"> 7676 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7642'>test-copy-with-no-inout</a>: output should be empty"</span>) -<span id="L7677" class="LineNr"> 7677 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy' expects an inout"</span> <span class="Constant">"F - <a href='mu.subx.html#L7642'>test-copy-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L7678" class="LineNr"> 7678 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7679" class="LineNr"> 7679 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7642'>test-copy-with-no-inout</a>: exit status"</span>) -<span id="L7680" class="LineNr"> 7680 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7681" class="LineNr"> 7681 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7682" class="LineNr"> 7682 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7683" class="LineNr"> 7683 </span> 5d/pop-to-ebp -<span id="L7684" class="LineNr"> 7684 </span> c3/return -<span id="L7685" class="LineNr"> 7685 </span> -<span id="L7686" class="LineNr"> 7686 </span><span class="subxTest">test-copy-with-multiple-inouts</span>: -<span id="L7687" class="LineNr"> 7687 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7688" class="LineNr"> 7688 </span> 55/push-ebp -<span id="L7689" class="LineNr"> 7689 </span> 89/<- %ebp 4/r32/esp -<span id="L7690" class="LineNr"> 7690 </span> <span class="subxComment"># setup</span> -<span id="L7691" class="LineNr"> 7691 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7692" class="LineNr"> 7692 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7693" class="LineNr"> 7693 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L7694" class="LineNr"> 7694 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7695" class="LineNr"> 7695 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L7696" class="LineNr"> 7696 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7697" class="LineNr"> 7697 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7698" class="LineNr"> 7698 </span> 68/push 0/imm32 -<span id="L7699" class="LineNr"> 7699 </span> 68/push 0/imm32 -<span id="L7700" class="LineNr"> 7700 </span> 89/<- %edx 4/r32/esp -<span id="L7701" class="LineNr"> 7701 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7702" class="LineNr"> 7702 </span> <span class="subxComment">#</span> -<span id="L7703" class="LineNr"> 7703 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7704" class="LineNr"> 7704 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy 0, 0\n"</span>) -<span id="L7705" class="LineNr"> 7705 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7706" class="LineNr"> 7706 </span> <span class="subxComment"># convert</span> -<span id="L7707" class="LineNr"> 7707 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L7708" class="LineNr"> 7708 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7709" class="LineNr"> 7709 </span> <span class="subxComment"># restore ed</span> -<span id="L7710" class="LineNr"> 7710 </span> 89/<- %edx 4/r32/esp -<span id="L7711" class="LineNr"> 7711 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L7712" class="LineNr"> 7712 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L7713" class="Folded"> 7713 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7719" class="LineNr"> 7719 </span> <span class="subxComment"># check output</span> -<span id="L7720" class="LineNr"> 7720 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7686'>test-copy-with-multiple-inouts</a>: output should be empty"</span>) -<span id="L7721" class="LineNr"> 7721 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy' must have just one inout"</span> <span class="Constant">"F - <a href='mu.subx.html#L7686'>test-copy-with-multiple-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L7722" class="LineNr"> 7722 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7723" class="LineNr"> 7723 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7686'>test-copy-with-multiple-inouts</a>: exit status"</span>) -<span id="L7724" class="LineNr"> 7724 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7725" class="LineNr"> 7725 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7726" class="LineNr"> 7726 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7727" class="LineNr"> 7727 </span> 5d/pop-to-ebp -<span id="L7728" class="LineNr"> 7728 </span> c3/return -<span id="L7729" class="LineNr"> 7729 </span> -<span id="L7730" class="LineNr"> 7730 </span><span class="subxTest">test-copy-with-no-output</span>: -<span id="L7731" class="LineNr"> 7731 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7732" class="LineNr"> 7732 </span> 55/push-ebp -<span id="L7733" class="LineNr"> 7733 </span> 89/<- %ebp 4/r32/esp -<span id="L7734" class="LineNr"> 7734 </span> <span class="subxComment"># setup</span> -<span id="L7735" class="LineNr"> 7735 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7736" class="LineNr"> 7736 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7737" class="LineNr"> 7737 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L7738" class="LineNr"> 7738 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7739" class="LineNr"> 7739 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L7740" class="LineNr"> 7740 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7741" class="LineNr"> 7741 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7742" class="LineNr"> 7742 </span> 68/push 0/imm32 -<span id="L7743" class="LineNr"> 7743 </span> 68/push 0/imm32 -<span id="L7744" class="LineNr"> 7744 </span> 89/<- %edx 4/r32/esp -<span id="L7745" class="LineNr"> 7745 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7746" class="LineNr"> 7746 </span> <span class="subxComment">#</span> -<span id="L7747" class="LineNr"> 7747 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7748" class="LineNr"> 7748 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy 0\n"</span>) -<span id="L7749" class="LineNr"> 7749 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7750" class="LineNr"> 7750 </span> <span class="subxComment"># convert</span> -<span id="L7751" class="LineNr"> 7751 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L7752" class="LineNr"> 7752 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7753" class="LineNr"> 7753 </span> <span class="subxComment"># restore ed</span> -<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#L425'>_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#L464'>_test-error-buffered-file</a>) -<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#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7730'>test-copy-with-no-output</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#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy' expects an output"</span> <span class="Constant">"F - <a href='mu.subx.html#L7730'>test-copy-with-no-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L7766" class="LineNr"> 7766 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7767" class="LineNr"> 7767 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7730'>test-copy-with-no-output</a>: exit status"</span>) -<span id="L7768" class="LineNr"> 7768 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7769" class="LineNr"> 7769 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7770" class="LineNr"> 7770 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7771" class="LineNr"> 7771 </span> 5d/pop-to-ebp -<span id="L7772" class="LineNr"> 7772 </span> c3/return -<span id="L7773" class="LineNr"> 7773 </span> -<span id="L7774" class="LineNr"> 7774 </span><span class="subxTest">test-copy-with-multiple-outputs</span>: -<span id="L7775" class="LineNr"> 7775 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7776" class="LineNr"> 7776 </span> 55/push-ebp -<span id="L7777" class="LineNr"> 7777 </span> 89/<- %ebp 4/r32/esp -<span id="L7778" class="LineNr"> 7778 </span> <span class="subxComment"># setup</span> -<span id="L7779" class="LineNr"> 7779 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7780" class="LineNr"> 7780 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7781" class="LineNr"> 7781 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L7782" class="LineNr"> 7782 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7783" class="LineNr"> 7783 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L7784" class="LineNr"> 7784 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7785" class="LineNr"> 7785 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7786" class="LineNr"> 7786 </span> 68/push 0/imm32 -<span id="L7787" class="LineNr"> 7787 </span> 68/push 0/imm32 -<span id="L7788" class="LineNr"> 7788 </span> 89/<- %edx 4/r32/esp -<span id="L7789" class="LineNr"> 7789 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7790" class="LineNr"> 7790 </span> <span class="subxComment">#</span> -<span id="L7791" class="LineNr"> 7791 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7792" class="LineNr"> 7792 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy 0\n"</span>) -<span id="L7793" class="LineNr"> 7793 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: boolean <- copy 0\n"</span>) -<span id="L7794" class="LineNr"> 7794 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x, y <- copy 0\n"</span>) -<span id="L7795" class="LineNr"> 7795 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7796" class="LineNr"> 7796 </span> <span class="subxComment"># convert</span> -<span id="L7797" class="LineNr"> 7797 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L7798" class="LineNr"> 7798 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7799" class="LineNr"> 7799 </span> <span class="subxComment"># restore ed</span> -<span id="L7800" class="LineNr"> 7800 </span> 89/<- %edx 4/r32/esp -<span id="L7801" class="LineNr"> 7801 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L7802" class="LineNr"> 7802 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L7803" class="Folded"> 7803 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7809" class="LineNr"> 7809 </span> <span class="subxComment"># check output</span> -<span id="L7810" class="LineNr"> 7810 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7774'>test-copy-with-multiple-outputs</a>: output should be empty"</span>) -<span id="L7811" class="LineNr"> 7811 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy' must have just one output"</span> <span class="Constant">"F - <a href='mu.subx.html#L7774'>test-copy-with-multiple-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L7812" class="LineNr"> 7812 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7813" class="LineNr"> 7813 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7774'>test-copy-with-multiple-outputs</a>: exit status"</span>) -<span id="L7814" class="LineNr"> 7814 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7815" class="LineNr"> 7815 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7816" class="LineNr"> 7816 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7817" class="LineNr"> 7817 </span> 5d/pop-to-ebp -<span id="L7818" class="LineNr"> 7818 </span> c3/return -<span id="L7819" class="LineNr"> 7819 </span> -<span id="L7820" class="LineNr"> 7820 </span><span class="subxTest">test-copy-invalid-value-to-address</span>: -<span id="L7821" class="LineNr"> 7821 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7822" class="LineNr"> 7822 </span> 55/push-ebp -<span id="L7823" class="LineNr"> 7823 </span> 89/<- %ebp 4/r32/esp -<span id="L7824" class="LineNr"> 7824 </span> <span class="subxComment"># setup</span> -<span id="L7825" class="LineNr"> 7825 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7826" class="LineNr"> 7826 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7827" class="LineNr"> 7827 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L7828" class="LineNr"> 7828 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7829" class="LineNr"> 7829 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L7830" class="LineNr"> 7830 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7831" class="LineNr"> 7831 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7832" class="LineNr"> 7832 </span> 68/push 0/imm32 -<span id="L7833" class="LineNr"> 7833 </span> 68/push 0/imm32 -<span id="L7834" class="LineNr"> 7834 </span> 89/<- %edx 4/r32/esp -<span id="L7835" class="LineNr"> 7835 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7836" class="LineNr"> 7836 </span> <span class="subxComment">#</span> -<span id="L7837" class="LineNr"> 7837 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7838" class="LineNr"> 7838 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- copy 0\n"</span>) -<span id="L7839" class="LineNr"> 7839 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr int) <- copy x\n"</span>) -<span id="L7840" class="LineNr"> 7840 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7841" class="LineNr"> 7841 </span> <span class="subxComment"># convert</span> -<span id="L7842" class="LineNr"> 7842 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L7843" class="LineNr"> 7843 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7844" class="LineNr"> 7844 </span> <span class="subxComment"># restore ed</span> -<span id="L7845" class="LineNr"> 7845 </span> 89/<- %edx 4/r32/esp -<span id="L7846" class="LineNr"> 7846 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L7847" class="LineNr"> 7847 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L7848" class="Folded"> 7848 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7854" class="LineNr"> 7854 </span> <span class="subxComment"># check output</span> -<span id="L7855" class="LineNr"> 7855 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7820'>test-copy-invalid-value-to-address</a>: output should be empty"</span>) -<span id="L7856" class="LineNr"> 7856 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy: 'y' must be a non-addr non-offset scalar"</span> <span class="Constant">"F - <a href='mu.subx.html#L7820'>test-copy-invalid-value-to-address</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L7857" class="LineNr"> 7857 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7858" class="LineNr"> 7858 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7820'>test-copy-invalid-value-to-address</a>: exit status"</span>) -<span id="L7859" class="LineNr"> 7859 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7860" class="LineNr"> 7860 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7861" class="LineNr"> 7861 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7862" class="LineNr"> 7862 </span> 5d/pop-to-ebp -<span id="L7863" class="LineNr"> 7863 </span> c3/return -<span id="L7864" class="LineNr"> 7864 </span> -<span id="L7865" class="LineNr"> 7865 </span><span class="subxTest">test-copy-null-value-to-address</span>: -<span id="L7866" class="LineNr"> 7866 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7867" class="LineNr"> 7867 </span> 55/push-ebp -<span id="L7868" class="LineNr"> 7868 </span> 89/<- %ebp 4/r32/esp -<span id="L7869" class="LineNr"> 7869 </span> <span class="subxComment"># setup</span> -<span id="L7870" class="LineNr"> 7870 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7871" class="LineNr"> 7871 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7872" class="LineNr"> 7872 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L7873" class="LineNr"> 7873 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7874" class="LineNr"> 7874 </span> <span class="subxComment">#</span> -<span id="L7875" class="LineNr"> 7875 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7876" class="LineNr"> 7876 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr int) <- copy 0\n"</span>) -<span id="L7877" class="LineNr"> 7877 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7878" class="LineNr"> 7878 </span> <span class="subxComment"># convert</span> -<span id="L7879" class="LineNr"> 7879 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L7880" class="LineNr"> 7880 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L7881" class="LineNr"> 7881 </span> <span class="subxComment"># no errors</span> -<span id="L7882" class="LineNr"> 7882 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7883" class="LineNr"> 7883 </span> 89/<- %esp 5/r32/ebp -<span id="L7884" class="LineNr"> 7884 </span> 5d/pop-to-ebp -<span id="L7885" class="LineNr"> 7885 </span> c3/return -<span id="L7886" class="LineNr"> 7886 </span> -<span id="L7887" class="LineNr"> 7887 </span><span class="subxTest">test-copy-invalid-value-to-offset</span>: -<span id="L7888" class="LineNr"> 7888 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7889" class="LineNr"> 7889 </span> 55/push-ebp -<span id="L7890" class="LineNr"> 7890 </span> 89/<- %ebp 4/r32/esp -<span id="L7891" class="LineNr"> 7891 </span> <span class="subxComment"># setup</span> -<span id="L7892" class="LineNr"> 7892 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7893" class="LineNr"> 7893 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7894" class="LineNr"> 7894 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L7895" class="LineNr"> 7895 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7896" class="LineNr"> 7896 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L7897" class="LineNr"> 7897 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7898" class="LineNr"> 7898 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7899" class="LineNr"> 7899 </span> 68/push 0/imm32 -<span id="L7900" class="LineNr"> 7900 </span> 68/push 0/imm32 -<span id="L7901" class="LineNr"> 7901 </span> 89/<- %edx 4/r32/esp -<span id="L7902" class="LineNr"> 7902 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7903" class="LineNr"> 7903 </span> <span class="subxComment">#</span> -<span id="L7904" class="LineNr"> 7904 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7905" class="LineNr"> 7905 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- copy 0\n"</span>) -<span id="L7906" class="LineNr"> 7906 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (offset int) <- copy x\n"</span>) -<span id="L7907" class="LineNr"> 7907 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7908" class="LineNr"> 7908 </span> <span class="subxComment"># convert</span> -<span id="L7909" class="LineNr"> 7909 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L7910" class="LineNr"> 7910 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7911" class="LineNr"> 7911 </span> <span class="subxComment"># restore ed</span> -<span id="L7912" class="LineNr"> 7912 </span> 89/<- %edx 4/r32/esp -<span id="L7913" class="LineNr"> 7913 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L7914" class="LineNr"> 7914 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L7915" class="Folded"> 7915 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7921" class="LineNr"> 7921 </span> <span class="subxComment"># check output</span> -<span id="L7922" class="LineNr"> 7922 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7820'>test-copy-invalid-value-to-address</a>: output should be empty"</span>) -<span id="L7923" class="LineNr"> 7923 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy: 'y' must be a non-addr non-offset scalar"</span> <span class="Constant">"F - <a href='mu.subx.html#L7820'>test-copy-invalid-value-to-address</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L7924" class="LineNr"> 7924 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7925" class="LineNr"> 7925 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7887'>test-copy-invalid-value-to-offset</a>: exit status"</span>) -<span id="L7926" class="LineNr"> 7926 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7927" class="LineNr"> 7927 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7928" class="LineNr"> 7928 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7929" class="LineNr"> 7929 </span> 5d/pop-to-ebp -<span id="L7930" class="LineNr"> 7930 </span> c3/return -<span id="L7931" class="LineNr"> 7931 </span> -<span id="L7932" class="LineNr"> 7932 </span><span class="subxTest">test-copy-null-value-to-offset</span>: -<span id="L7933" class="LineNr"> 7933 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7934" class="LineNr"> 7934 </span> 55/push-ebp -<span id="L7935" class="LineNr"> 7935 </span> 89/<- %ebp 4/r32/esp -<span id="L7936" class="LineNr"> 7936 </span> <span class="subxComment"># setup</span> -<span id="L7937" class="LineNr"> 7937 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7938" class="LineNr"> 7938 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7939" class="LineNr"> 7939 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L7940" class="LineNr"> 7940 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7941" class="LineNr"> 7941 </span> <span class="subxComment">#</span> -<span id="L7942" class="LineNr"> 7942 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7943" class="LineNr"> 7943 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (offset int) <- copy 0\n"</span>) -<span id="L7944" class="LineNr"> 7944 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7945" class="LineNr"> 7945 </span> <span class="subxComment"># convert</span> -<span id="L7946" class="LineNr"> 7946 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L7947" class="LineNr"> 7947 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L7948" class="Folded"> 7948 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7954" class="LineNr"> 7954 </span> <span class="subxComment"># no errors</span> -<span id="L7955" class="LineNr"> 7955 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7956" class="LineNr"> 7956 </span> 89/<- %esp 5/r32/ebp -<span id="L7957" class="LineNr"> 7957 </span> 5d/pop-to-ebp -<span id="L7958" class="LineNr"> 7958 </span> c3/return -<span id="L7959" class="LineNr"> 7959 </span> -<span id="L7960" class="LineNr"> 7960 </span><span class="subxTest">test-copy-non-literal-to-byte</span>: -<span id="L7961" class="LineNr"> 7961 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7962" class="LineNr"> 7962 </span> 55/push-ebp -<span id="L7963" class="LineNr"> 7963 </span> 89/<- %ebp 4/r32/esp -<span id="L7964" class="LineNr"> 7964 </span> <span class="subxComment"># setup</span> -<span id="L7965" class="LineNr"> 7965 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7966" class="LineNr"> 7966 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7967" class="LineNr"> 7967 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L7968" class="LineNr"> 7968 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7969" class="LineNr"> 7969 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L7970" class="LineNr"> 7970 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7971" class="LineNr"> 7971 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7972" class="LineNr"> 7972 </span> 68/push 0/imm32 -<span id="L7973" class="LineNr"> 7973 </span> 68/push 0/imm32 -<span id="L7974" class="LineNr"> 7974 </span> 89/<- %edx 4/r32/esp -<span id="L7975" class="LineNr"> 7975 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7976" class="LineNr"> 7976 </span> <span class="subxComment">#</span> -<span id="L7977" class="LineNr"> 7977 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7978" class="LineNr"> 7978 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: int <- copy 3\n"</span>) -<span id="L7979" class="LineNr"> 7979 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: byte <- copy x\n"</span>) -<span id="L7980" class="LineNr"> 7980 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7981" class="LineNr"> 7981 </span> <span class="subxComment"># convert</span> -<span id="L7982" class="LineNr"> 7982 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L7983" class="LineNr"> 7983 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7984" class="LineNr"> 7984 </span> <span class="subxComment"># restore ed</span> -<span id="L7985" class="LineNr"> 7985 </span> 89/<- %edx 4/r32/esp -<span id="L7986" class="LineNr"> 7986 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L7987" class="LineNr"> 7987 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L7988" class="Folded"> 7988 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7994" class="LineNr"> 7994 </span> <span class="subxComment"># check output</span> -<span id="L7995" class="LineNr"> 7995 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7960'>test-copy-non-literal-to-byte</a>: output should be empty"</span>) -<span id="L7996" class="LineNr"> 7996 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy: cannot copy non-literal to 'y' of type byte; use copy-byte"</span> <span class="Constant">"F - <a href='mu.subx.html#L7960'>test-copy-non-literal-to-byte</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L7997" class="LineNr"> 7997 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7998" class="LineNr"> 7998 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7960'>test-copy-non-literal-to-byte</a>: exit status"</span>) -<span id="L7999" class="LineNr"> 7999 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8000" class="LineNr"> 8000 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8001" class="LineNr"> 8001 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8002" class="LineNr"> 8002 </span> 5d/pop-to-ebp -<span id="L8003" class="LineNr"> 8003 </span> c3/return -<span id="L8004" class="LineNr"> 8004 </span> -<span id="L8005" class="LineNr"> 8005 </span><span class="subxTest">test-copy-deref-address</span>: -<span id="L8006" class="LineNr"> 8006 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8007" class="LineNr"> 8007 </span> 55/push-ebp -<span id="L8008" class="LineNr"> 8008 </span> 89/<- %ebp 4/r32/esp -<span id="L8009" class="LineNr"> 8009 </span> <span class="subxComment"># setup</span> -<span id="L8010" class="LineNr"> 8010 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8011" class="LineNr"> 8011 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8012" class="LineNr"> 8012 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8013" class="LineNr"> 8013 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8014" class="LineNr"> 8014 </span> <span class="subxComment">#</span> -<span id="L8015" class="LineNr"> 8015 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8016" class="LineNr"> 8016 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr addr int) <- copy 0\n"</span>) -<span id="L8017" class="LineNr"> 8017 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr int) <- copy *x\n"</span>) -<span id="L8018" class="LineNr"> 8018 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8019" class="LineNr"> 8019 </span> <span class="subxComment"># convert</span> -<span id="L8020" class="LineNr"> 8020 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L8021" class="LineNr"> 8021 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8022" class="LineNr"> 8022 </span> <span class="subxComment"># no errors</span> -<span id="L8023" class="LineNr"> 8023 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8024" class="LineNr"> 8024 </span> 5d/pop-to-ebp -<span id="L8025" class="LineNr"> 8025 </span> c3/return -<span id="L8026" class="LineNr"> 8026 </span> -<span id="L8027" class="LineNr"> 8027 </span><span class="subxTest">test-copy-to-non-register</span>: -<span id="L8028" class="LineNr"> 8028 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8029" class="LineNr"> 8029 </span> 55/push-ebp -<span id="L8030" class="LineNr"> 8030 </span> 89/<- %ebp 4/r32/esp -<span id="L8031" class="LineNr"> 8031 </span> <span class="subxComment"># setup</span> -<span id="L8032" class="LineNr"> 8032 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8033" class="LineNr"> 8033 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8034" class="LineNr"> 8034 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8035" class="LineNr"> 8035 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8036" class="LineNr"> 8036 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L8037" class="LineNr"> 8037 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8038" class="LineNr"> 8038 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8039" class="LineNr"> 8039 </span> 68/push 0/imm32 -<span id="L8040" class="LineNr"> 8040 </span> 68/push 0/imm32 -<span id="L8041" class="LineNr"> 8041 </span> 89/<- %edx 4/r32/esp -<span id="L8042" class="LineNr"> 8042 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8043" class="LineNr"> 8043 </span> <span class="subxComment">#</span> -<span id="L8044" class="LineNr"> 8044 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8045" class="LineNr"> 8045 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) -<span id="L8046" class="LineNr"> 8046 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- copy 0\n"</span>) -<span id="L8047" class="LineNr"> 8047 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8048" class="LineNr"> 8048 </span> <span class="subxComment"># convert</span> -<span id="L8049" class="LineNr"> 8049 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L8050" class="LineNr"> 8050 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8051" class="LineNr"> 8051 </span> <span class="subxComment"># restore ed</span> -<span id="L8052" class="LineNr"> 8052 </span> 89/<- %edx 4/r32/esp -<span id="L8053" class="LineNr"> 8053 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8054" class="LineNr"> 8054 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L8055" class="Folded"> 8055 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8061" class="LineNr"> 8061 </span> <span class="subxComment"># check output</span> -<span id="L8062" class="LineNr"> 8062 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8027'>test-copy-to-non-register</a>: output should be empty"</span>) -<span id="L8063" class="LineNr"> 8063 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy: output 'x' not in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L8027'>test-copy-to-non-register</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L8064" class="LineNr"> 8064 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8065" class="LineNr"> 8065 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8027'>test-copy-to-non-register</a>: exit status"</span>) -<span id="L8066" class="LineNr"> 8066 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8067" class="LineNr"> 8067 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8068" class="LineNr"> 8068 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8069" class="LineNr"> 8069 </span> 5d/pop-to-ebp -<span id="L8070" class="LineNr"> 8070 </span> c3/return -<span id="L8071" class="LineNr"> 8071 </span> -<span id="L8072" class="LineNr"> 8072 </span><span class="subxTest">test-copy-from-non-scalar-inout</span>: -<span id="L8073" class="LineNr"> 8073 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8074" class="LineNr"> 8074 </span> 55/push-ebp -<span id="L8075" class="LineNr"> 8075 </span> 89/<- %ebp 4/r32/esp -<span id="L8076" class="LineNr"> 8076 </span> <span class="subxComment"># setup</span> -<span id="L8077" class="LineNr"> 8077 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8078" class="LineNr"> 8078 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8079" class="LineNr"> 8079 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8080" class="LineNr"> 8080 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8081" class="LineNr"> 8081 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L8082" class="LineNr"> 8082 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8083" class="LineNr"> 8083 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8084" class="LineNr"> 8084 </span> 68/push 0/imm32 -<span id="L8085" class="LineNr"> 8085 </span> 68/push 0/imm32 -<span id="L8086" class="LineNr"> 8086 </span> 89/<- %edx 4/r32/esp -<span id="L8087" class="LineNr"> 8087 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8088" class="LineNr"> 8088 </span> <span class="subxComment">#</span> -<span id="L8089" class="LineNr"> 8089 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8090" class="LineNr"> 8090 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (handle int)\n"</span>) -<span id="L8091" class="LineNr"> 8091 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: int <- copy x\n"</span>) -<span id="L8092" class="LineNr"> 8092 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8093" class="LineNr"> 8093 </span> <span class="subxComment"># convert</span> -<span id="L8094" class="LineNr"> 8094 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L8095" class="LineNr"> 8095 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8096" class="LineNr"> 8096 </span> <span class="subxComment"># restore ed</span> -<span id="L8097" class="LineNr"> 8097 </span> 89/<- %edx 4/r32/esp -<span id="L8098" class="LineNr"> 8098 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8099" class="LineNr"> 8099 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L8100" class="Folded"> 8100 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8106" class="LineNr"> 8106 </span> <span class="subxComment"># check output</span> -<span id="L8107" class="LineNr"> 8107 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8072'>test-copy-from-non-scalar-inout</a>: output should be empty"</span>) -<span id="L8108" class="LineNr"> 8108 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy: 'x' is too large to fit in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L8072'>test-copy-from-non-scalar-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L8109" class="LineNr"> 8109 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8110" class="LineNr"> 8110 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8072'>test-copy-from-non-scalar-inout</a>: exit status"</span>) -<span id="L8111" class="LineNr"> 8111 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8112" class="LineNr"> 8112 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8113" class="LineNr"> 8113 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8114" class="LineNr"> 8114 </span> 5d/pop-to-ebp -<span id="L8115" class="LineNr"> 8115 </span> c3/return -<span id="L8116" class="LineNr"> 8116 </span> -<span id="L8117" class="LineNr"> 8117 </span><span class="subxTest">test-copy-to-with-no-inout</span>: -<span id="L8118" class="LineNr"> 8118 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8119" class="LineNr"> 8119 </span> 55/push-ebp -<span id="L8120" class="LineNr"> 8120 </span> 89/<- %ebp 4/r32/esp -<span id="L8121" class="LineNr"> 8121 </span> <span class="subxComment"># setup</span> -<span id="L8122" class="LineNr"> 8122 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8123" class="LineNr"> 8123 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8124" class="LineNr"> 8124 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8125" class="LineNr"> 8125 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8126" class="LineNr"> 8126 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L8127" class="LineNr"> 8127 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8128" class="LineNr"> 8128 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8129" class="LineNr"> 8129 </span> 68/push 0/imm32 -<span id="L8130" class="LineNr"> 8130 </span> 68/push 0/imm32 -<span id="L8131" class="LineNr"> 8131 </span> 89/<- %edx 4/r32/esp -<span id="L8132" class="LineNr"> 8132 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8133" class="LineNr"> 8133 </span> <span class="subxComment">#</span> -<span id="L8134" class="LineNr"> 8134 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8135" class="LineNr"> 8135 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to\n"</span>) -<span id="L8136" class="LineNr"> 8136 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8137" class="LineNr"> 8137 </span> <span class="subxComment"># convert</span> -<span id="L8138" class="LineNr"> 8138 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L8139" class="LineNr"> 8139 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8140" class="LineNr"> 8140 </span> <span class="subxComment"># restore ed</span> -<span id="L8141" class="LineNr"> 8141 </span> 89/<- %edx 4/r32/esp -<span id="L8142" class="LineNr"> 8142 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8143" class="LineNr"> 8143 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L8144" class="Folded"> 8144 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8150" class="LineNr"> 8150 </span> <span class="subxComment"># check output</span> -<span id="L8151" class="LineNr"> 8151 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8117'>test-copy-to-with-no-inout</a>: output should be empty"</span>) -<span id="L8152" class="LineNr"> 8152 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-to' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L8117'>test-copy-to-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L8153" class="LineNr"> 8153 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8154" class="LineNr"> 8154 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8117'>test-copy-to-with-no-inout</a>: exit status"</span>) -<span id="L8155" class="LineNr"> 8155 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8156" class="LineNr"> 8156 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8157" class="LineNr"> 8157 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8158" class="LineNr"> 8158 </span> 5d/pop-to-ebp -<span id="L8159" class="LineNr"> 8159 </span> c3/return -<span id="L8160" class="LineNr"> 8160 </span> -<span id="L8161" class="LineNr"> 8161 </span><span class="subxTest">test-copy-to-with-no-source</span>: -<span id="L8162" class="LineNr"> 8162 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8163" class="LineNr"> 8163 </span> 55/push-ebp -<span id="L8164" class="LineNr"> 8164 </span> 89/<- %ebp 4/r32/esp -<span id="L8165" class="LineNr"> 8165 </span> <span class="subxComment"># setup</span> -<span id="L8166" class="LineNr"> 8166 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8167" class="LineNr"> 8167 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8168" class="LineNr"> 8168 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8169" class="LineNr"> 8169 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8170" class="LineNr"> 8170 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L8171" class="LineNr"> 8171 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8172" class="LineNr"> 8172 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8173" class="LineNr"> 8173 </span> 68/push 0/imm32 -<span id="L8174" class="LineNr"> 8174 </span> 68/push 0/imm32 -<span id="L8175" class="LineNr"> 8175 </span> 89/<- %edx 4/r32/esp -<span id="L8176" class="LineNr"> 8176 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8177" class="LineNr"> 8177 </span> <span class="subxComment">#</span> -<span id="L8178" class="LineNr"> 8178 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8179" class="LineNr"> 8179 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: boolean\n"</span>) -<span id="L8180" class="LineNr"> 8180 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to x\n"</span>) -<span id="L8181" class="LineNr"> 8181 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8182" class="LineNr"> 8182 </span> <span class="subxComment"># convert</span> -<span id="L8183" class="LineNr"> 8183 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L8184" class="LineNr"> 8184 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8185" class="LineNr"> 8185 </span> <span class="subxComment"># restore ed</span> -<span id="L8186" class="LineNr"> 8186 </span> 89/<- %edx 4/r32/esp -<span id="L8187" class="LineNr"> 8187 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8188" class="LineNr"> 8188 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L8189" class="Folded"> 8189 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8195" class="LineNr"> 8195 </span> <span class="subxComment"># check output</span> -<span id="L8196" class="LineNr"> 8196 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8161'>test-copy-to-with-no-source</a>: output should be empty"</span>) -<span id="L8197" class="LineNr"> 8197 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-to' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L8161'>test-copy-to-with-no-source</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L8198" class="LineNr"> 8198 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8199" class="LineNr"> 8199 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8161'>test-copy-to-with-no-source</a>: exit status"</span>) -<span id="L8200" class="LineNr"> 8200 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8201" class="LineNr"> 8201 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8202" class="LineNr"> 8202 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8203" class="LineNr"> 8203 </span> 5d/pop-to-ebp -<span id="L8204" class="LineNr"> 8204 </span> c3/return -<span id="L8205" class="LineNr"> 8205 </span> -<span id="L8206" class="LineNr"> 8206 </span><span class="subxTest">test-copy-to-with-no-register</span>: -<span id="L8207" class="LineNr"> 8207 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8208" class="LineNr"> 8208 </span> 55/push-ebp -<span id="L8209" class="LineNr"> 8209 </span> 89/<- %ebp 4/r32/esp -<span id="L8210" class="LineNr"> 8210 </span> <span class="subxComment"># setup</span> -<span id="L8211" class="LineNr"> 8211 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8212" class="LineNr"> 8212 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8213" class="LineNr"> 8213 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8214" class="LineNr"> 8214 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8215" class="LineNr"> 8215 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L8216" class="LineNr"> 8216 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8217" class="LineNr"> 8217 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8218" class="LineNr"> 8218 </span> 68/push 0/imm32 -<span id="L8219" class="LineNr"> 8219 </span> 68/push 0/imm32 -<span id="L8220" class="LineNr"> 8220 </span> 89/<- %edx 4/r32/esp -<span id="L8221" class="LineNr"> 8221 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8222" class="LineNr"> 8222 </span> <span class="subxComment">#</span> -<span id="L8223" class="LineNr"> 8223 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8224" class="LineNr"> 8224 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: boolean\n"</span>) -<span id="L8225" class="LineNr"> 8225 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to x, x\n"</span>) -<span id="L8226" class="LineNr"> 8226 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8227" class="LineNr"> 8227 </span> <span class="subxComment"># convert</span> -<span id="L8228" class="LineNr"> 8228 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L8229" class="LineNr"> 8229 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8230" class="LineNr"> 8230 </span> <span class="subxComment"># restore ed</span> -<span id="L8231" class="LineNr"> 8231 </span> 89/<- %edx 4/r32/esp -<span id="L8232" class="LineNr"> 8232 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8233" class="LineNr"> 8233 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L8234" class="Folded"> 8234 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8240" class="LineNr"> 8240 </span> <span class="subxComment"># check output</span> -<span id="L8241" class="LineNr"> 8241 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8206'>test-copy-to-with-no-register</a>: output should be empty"</span>) -<span id="L8242" class="LineNr"> 8242 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-to: source (second inout) is in memory"</span> <span class="Constant">"F - <a href='mu.subx.html#L8206'>test-copy-to-with-no-register</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L8243" class="LineNr"> 8243 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8244" class="LineNr"> 8244 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8206'>test-copy-to-with-no-register</a>: exit status"</span>) -<span id="L8245" class="LineNr"> 8245 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8246" class="LineNr"> 8246 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8247" class="LineNr"> 8247 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8248" class="LineNr"> 8248 </span> 5d/pop-to-ebp -<span id="L8249" class="LineNr"> 8249 </span> c3/return -<span id="L8250" class="LineNr"> 8250 </span> -<span id="L8251" class="LineNr"> 8251 </span><span class="subxTest">test-copy-to-with-too-many-inouts</span>: -<span id="L8252" class="LineNr"> 8252 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8253" class="LineNr"> 8253 </span> 55/push-ebp -<span id="L8254" class="LineNr"> 8254 </span> 89/<- %ebp 4/r32/esp -<span id="L8255" class="LineNr"> 8255 </span> <span class="subxComment"># setup</span> -<span id="L8256" class="LineNr"> 8256 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8257" class="LineNr"> 8257 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8258" class="LineNr"> 8258 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8259" class="LineNr"> 8259 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8260" class="LineNr"> 8260 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L8261" class="LineNr"> 8261 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8262" class="LineNr"> 8262 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8263" class="LineNr"> 8263 </span> 68/push 0/imm32 -<span id="L8264" class="LineNr"> 8264 </span> 68/push 0/imm32 -<span id="L8265" class="LineNr"> 8265 </span> 89/<- %edx 4/r32/esp -<span id="L8266" class="LineNr"> 8266 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8267" class="LineNr"> 8267 </span> <span class="subxComment">#</span> -<span id="L8268" class="LineNr"> 8268 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8269" class="LineNr"> 8269 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: boolean\n"</span>) -<span id="L8270" class="LineNr"> 8270 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to x, 0, 0\n"</span>) -<span id="L8271" class="LineNr"> 8271 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8272" class="LineNr"> 8272 </span> <span class="subxComment"># convert</span> -<span id="L8273" class="LineNr"> 8273 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L8274" class="LineNr"> 8274 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8275" class="LineNr"> 8275 </span> <span class="subxComment"># restore ed</span> -<span id="L8276" class="LineNr"> 8276 </span> 89/<- %edx 4/r32/esp -<span id="L8277" class="LineNr"> 8277 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8278" class="LineNr"> 8278 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L8279" class="Folded"> 8279 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8285" class="LineNr"> 8285 </span> <span class="subxComment"># check output</span> -<span id="L8286" class="LineNr"> 8286 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8251'>test-copy-to-with-too-many-inouts</a>: output should be empty"</span>) -<span id="L8287" class="LineNr"> 8287 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-to' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L8251'>test-copy-to-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L8288" class="LineNr"> 8288 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8289" class="LineNr"> 8289 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8251'>test-copy-to-with-too-many-inouts</a>: exit status"</span>) -<span id="L8290" class="LineNr"> 8290 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8291" class="LineNr"> 8291 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8292" class="LineNr"> 8292 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8293" class="LineNr"> 8293 </span> 5d/pop-to-ebp -<span id="L8294" class="LineNr"> 8294 </span> c3/return -<span id="L8295" class="LineNr"> 8295 </span> -<span id="L8296" class="LineNr"> 8296 </span><span class="subxTest">test-copy-to-with-output</span>: -<span id="L8297" class="LineNr"> 8297 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8298" class="LineNr"> 8298 </span> 55/push-ebp -<span id="L8299" class="LineNr"> 8299 </span> 89/<- %ebp 4/r32/esp -<span id="L8300" class="LineNr"> 8300 </span> <span class="subxComment"># setup</span> -<span id="L8301" class="LineNr"> 8301 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8302" class="LineNr"> 8302 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8303" class="LineNr"> 8303 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8304" class="LineNr"> 8304 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8305" class="LineNr"> 8305 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L8306" class="LineNr"> 8306 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8307" class="LineNr"> 8307 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8308" class="LineNr"> 8308 </span> 68/push 0/imm32 -<span id="L8309" class="LineNr"> 8309 </span> 68/push 0/imm32 -<span id="L8310" class="LineNr"> 8310 </span> 89/<- %edx 4/r32/esp -<span id="L8311" class="LineNr"> 8311 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8312" class="LineNr"> 8312 </span> <span class="subxComment">#</span> -<span id="L8313" class="LineNr"> 8313 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8314" class="LineNr"> 8314 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy 0\n"</span>) -<span id="L8315" class="LineNr"> 8315 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: boolean <- copy 0\n"</span>) -<span id="L8316" class="LineNr"> 8316 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- copy-to y, 0\n"</span>) -<span id="L8317" class="LineNr"> 8317 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8318" class="LineNr"> 8318 </span> <span class="subxComment"># convert</span> -<span id="L8319" class="LineNr"> 8319 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L8320" class="LineNr"> 8320 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8321" class="LineNr"> 8321 </span> <span class="subxComment"># restore ed</span> -<span id="L8322" class="LineNr"> 8322 </span> 89/<- %edx 4/r32/esp -<span id="L8323" class="LineNr"> 8323 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8324" class="LineNr"> 8324 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L8325" class="Folded"> 8325 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8331" class="LineNr"> 8331 </span> <span class="subxComment"># check output</span> -<span id="L8332" class="LineNr"> 8332 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8296'>test-copy-to-with-output</a>: output should be empty"</span>) -<span id="L8333" class="LineNr"> 8333 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-to' must not have any outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L8296'>test-copy-to-with-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L8334" class="LineNr"> 8334 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8335" class="LineNr"> 8335 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8296'>test-copy-to-with-output</a>: exit status"</span>) -<span id="L8336" class="LineNr"> 8336 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8337" class="LineNr"> 8337 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8338" class="LineNr"> 8338 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8339" class="LineNr"> 8339 </span> 5d/pop-to-ebp -<span id="L8340" class="LineNr"> 8340 </span> c3/return -<span id="L8341" class="LineNr"> 8341 </span> -<span id="L8342" class="LineNr"> 8342 </span><span class="subxTest">test-copy-to-invalid-value-to-address</span>: -<span id="L8343" class="LineNr"> 8343 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8344" class="LineNr"> 8344 </span> 55/push-ebp -<span id="L8345" class="LineNr"> 8345 </span> 89/<- %ebp 4/r32/esp -<span id="L8346" class="LineNr"> 8346 </span> <span class="subxComment"># setup</span> -<span id="L8347" class="LineNr"> 8347 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8348" class="LineNr"> 8348 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8349" class="LineNr"> 8349 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8350" class="LineNr"> 8350 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8351" class="LineNr"> 8351 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L8352" class="LineNr"> 8352 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8353" class="LineNr"> 8353 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8354" class="LineNr"> 8354 </span> 68/push 0/imm32 -<span id="L8355" class="LineNr"> 8355 </span> 68/push 0/imm32 -<span id="L8356" class="LineNr"> 8356 </span> 89/<- %edx 4/r32/esp -<span id="L8357" class="LineNr"> 8357 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8358" class="LineNr"> 8358 </span> <span class="subxComment">#</span> -<span id="L8359" class="LineNr"> 8359 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8360" class="LineNr"> 8360 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- copy 0\n"</span>) -<span id="L8361" class="LineNr"> 8361 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: (addr int)\n"</span>) -<span id="L8362" class="LineNr"> 8362 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to y, x\n"</span>) -<span id="L8363" class="LineNr"> 8363 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8364" class="LineNr"> 8364 </span> <span class="subxComment"># convert</span> -<span id="L8365" class="LineNr"> 8365 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L8366" class="LineNr"> 8366 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8367" class="LineNr"> 8367 </span> <span class="subxComment"># restore ed</span> -<span id="L8368" class="LineNr"> 8368 </span> 89/<- %edx 4/r32/esp -<span id="L8369" class="LineNr"> 8369 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8370" class="LineNr"> 8370 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L8371" class="Folded"> 8371 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8377" class="LineNr"> 8377 </span> <span class="subxComment"># check output</span> -<span id="L8378" class="LineNr"> 8378 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8342'>test-copy-to-invalid-value-to-address</a>: output should be empty"</span>) -<span id="L8379" class="LineNr"> 8379 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-to: 'y' must be a non-addr non-offset scalar"</span> <span class="Constant">"F - <a href='mu.subx.html#L8342'>test-copy-to-invalid-value-to-address</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L8380" class="LineNr"> 8380 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8381" class="LineNr"> 8381 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8342'>test-copy-to-invalid-value-to-address</a>: exit status"</span>) -<span id="L8382" class="LineNr"> 8382 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8383" class="LineNr"> 8383 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8384" class="LineNr"> 8384 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8385" class="LineNr"> 8385 </span> 5d/pop-to-ebp -<span id="L8386" class="LineNr"> 8386 </span> c3/return -<span id="L8387" class="LineNr"> 8387 </span> -<span id="L8388" class="LineNr"> 8388 </span><span class="subxTest">test-copy-to-null-value-to-address</span>: -<span id="L8389" class="LineNr"> 8389 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8390" class="LineNr"> 8390 </span> 55/push-ebp -<span id="L8391" class="LineNr"> 8391 </span> 89/<- %ebp 4/r32/esp -<span id="L8392" class="LineNr"> 8392 </span> <span class="subxComment"># setup</span> -<span id="L8393" class="LineNr"> 8393 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8394" class="LineNr"> 8394 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8395" class="LineNr"> 8395 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8396" class="LineNr"> 8396 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8397" class="LineNr"> 8397 </span> <span class="subxComment">#</span> -<span id="L8398" class="LineNr"> 8398 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8399" class="LineNr"> 8399 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: (addr int)\n"</span>) -<span id="L8400" class="LineNr"> 8400 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to y, 0\n"</span>) -<span id="L8401" class="LineNr"> 8401 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8402" class="LineNr"> 8402 </span> <span class="subxComment"># convert</span> -<span id="L8403" class="LineNr"> 8403 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L8404" class="LineNr"> 8404 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8405" class="LineNr"> 8405 </span> <span class="subxComment"># no errors</span> -<span id="L8406" class="LineNr"> 8406 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8407" class="LineNr"> 8407 </span> 89/<- %esp 5/r32/ebp -<span id="L8408" class="LineNr"> 8408 </span> 5d/pop-to-ebp -<span id="L8409" class="LineNr"> 8409 </span> c3/return -<span id="L8410" class="LineNr"> 8410 </span> -<span id="L8411" class="LineNr"> 8411 </span><span class="subxTest">test-copy-to-invalid-value-to-offset</span>: -<span id="L8412" class="LineNr"> 8412 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8413" class="LineNr"> 8413 </span> 55/push-ebp -<span id="L8414" class="LineNr"> 8414 </span> 89/<- %ebp 4/r32/esp -<span id="L8415" class="LineNr"> 8415 </span> <span class="subxComment"># setup</span> -<span id="L8416" class="LineNr"> 8416 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8417" class="LineNr"> 8417 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8418" class="LineNr"> 8418 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8419" class="LineNr"> 8419 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8420" class="LineNr"> 8420 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L8421" class="LineNr"> 8421 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8422" class="LineNr"> 8422 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8423" class="LineNr"> 8423 </span> 68/push 0/imm32 -<span id="L8424" class="LineNr"> 8424 </span> 68/push 0/imm32 -<span id="L8425" class="LineNr"> 8425 </span> 89/<- %edx 4/r32/esp -<span id="L8426" class="LineNr"> 8426 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8427" class="LineNr"> 8427 </span> <span class="subxComment">#</span> -<span id="L8428" class="LineNr"> 8428 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8429" class="LineNr"> 8429 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- copy 0\n"</span>) -<span id="L8430" class="LineNr"> 8430 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: (offset int)\n"</span>) -<span id="L8431" class="LineNr"> 8431 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to y, x\n"</span>) -<span id="L8432" class="LineNr"> 8432 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8433" class="LineNr"> 8433 </span> <span class="subxComment"># convert</span> -<span id="L8434" class="LineNr"> 8434 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L8435" class="LineNr"> 8435 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8436" class="LineNr"> 8436 </span> <span class="subxComment"># restore ed</span> -<span id="L8437" class="LineNr"> 8437 </span> 89/<- %edx 4/r32/esp -<span id="L8438" class="LineNr"> 8438 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8439" class="LineNr"> 8439 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L8440" class="Folded"> 8440 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8446" class="LineNr"> 8446 </span> <span class="subxComment"># check output</span> -<span id="L8447" class="LineNr"> 8447 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8411'>test-copy-to-invalid-value-to-offset</a>: output should be empty"</span>) -<span id="L8448" class="LineNr"> 8448 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-to: 'y' must be a non-addr non-offset scalar"</span> <span class="Constant">"F - <a href='mu.subx.html#L8411'>test-copy-to-invalid-value-to-offset</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L8449" class="LineNr"> 8449 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8450" class="LineNr"> 8450 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8411'>test-copy-to-invalid-value-to-offset</a>: exit status"</span>) -<span id="L8451" class="LineNr"> 8451 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8452" class="LineNr"> 8452 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8453" class="LineNr"> 8453 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8454" class="LineNr"> 8454 </span> 5d/pop-to-ebp -<span id="L8455" class="LineNr"> 8455 </span> c3/return -<span id="L8456" class="LineNr"> 8456 </span> -<span id="L8457" class="LineNr"> 8457 </span><span class="subxTest">test-copy-to-null-value-to-offset</span>: -<span id="L8458" class="LineNr"> 8458 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8459" class="LineNr"> 8459 </span> 55/push-ebp -<span id="L8460" class="LineNr"> 8460 </span> 89/<- %ebp 4/r32/esp -<span id="L8461" class="LineNr"> 8461 </span> <span class="subxComment"># setup</span> -<span id="L8462" class="LineNr"> 8462 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8463" class="LineNr"> 8463 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8464" class="LineNr"> 8464 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8465" class="LineNr"> 8465 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8466" class="LineNr"> 8466 </span> <span class="subxComment">#</span> -<span id="L8467" class="LineNr"> 8467 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8468" class="LineNr"> 8468 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: (offset int)\n"</span>) -<span id="L8469" class="LineNr"> 8469 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to y, 0\n"</span>) -<span id="L8470" class="LineNr"> 8470 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8471" class="LineNr"> 8471 </span> <span class="subxComment"># convert</span> -<span id="L8472" class="LineNr"> 8472 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L8473" class="LineNr"> 8473 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8474" class="LineNr"> 8474 </span> <span class="subxComment"># no errors</span> -<span id="L8475" class="LineNr"> 8475 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8476" class="LineNr"> 8476 </span> 89/<- %esp 5/r32/ebp -<span id="L8477" class="LineNr"> 8477 </span> 5d/pop-to-ebp -<span id="L8478" class="LineNr"> 8478 </span> c3/return -<span id="L8479" class="LineNr"> 8479 </span> -<span id="L8480" class="LineNr"> 8480 </span><span class="subxTest">test-copy-to-non-literal-to-byte</span>: -<span id="L8481" class="LineNr"> 8481 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8482" class="LineNr"> 8482 </span> 55/push-ebp -<span id="L8483" class="LineNr"> 8483 </span> 89/<- %ebp 4/r32/esp -<span id="L8484" class="LineNr"> 8484 </span> <span class="subxComment"># setup</span> -<span id="L8485" class="LineNr"> 8485 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8486" class="LineNr"> 8486 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8487" class="LineNr"> 8487 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8488" class="LineNr"> 8488 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8489" class="LineNr"> 8489 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L8490" class="LineNr"> 8490 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8491" class="LineNr"> 8491 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8492" class="LineNr"> 8492 </span> 68/push 0/imm32 -<span id="L8493" class="LineNr"> 8493 </span> 68/push 0/imm32 -<span id="L8494" class="LineNr"> 8494 </span> 89/<- %edx 4/r32/esp -<span id="L8495" class="LineNr"> 8495 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8496" class="LineNr"> 8496 </span> <span class="subxComment">#</span> -<span id="L8497" class="LineNr"> 8497 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8498" class="LineNr"> 8498 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: byte <- copy 3\n"</span>) -<span id="L8499" class="LineNr"> 8499 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: (addr byte) <- copy 0\n"</span>) -<span id="L8500" class="LineNr"> 8500 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to *y, x\n"</span>) -<span id="L8501" class="LineNr"> 8501 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8502" class="LineNr"> 8502 </span> <span class="subxComment"># convert</span> -<span id="L8503" class="LineNr"> 8503 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L8504" class="LineNr"> 8504 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8505" class="LineNr"> 8505 </span> <span class="subxComment"># restore ed</span> -<span id="L8506" class="LineNr"> 8506 </span> 89/<- %edx 4/r32/esp -<span id="L8507" class="LineNr"> 8507 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8508" class="LineNr"> 8508 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L8509" class="Folded"> 8509 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8515" class="LineNr"> 8515 </span> <span class="subxComment"># check output</span> -<span id="L8516" class="LineNr"> 8516 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8480'>test-copy-to-non-literal-to-byte</a>: output should be empty"</span>) -<span id="L8517" class="LineNr"> 8517 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-to: cannot copy non-literal to type byte; use copy-byte-to"</span> <span class="Constant">"F - <a href='mu.subx.html#L8480'>test-copy-to-non-literal-to-byte</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L8518" class="LineNr"> 8518 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8519" class="LineNr"> 8519 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8480'>test-copy-to-non-literal-to-byte</a>: exit status"</span>) -<span id="L8520" class="LineNr"> 8520 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8521" class="LineNr"> 8521 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8522" class="LineNr"> 8522 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8523" class="LineNr"> 8523 </span> 5d/pop-to-ebp -<span id="L8524" class="LineNr"> 8524 </span> c3/return -<span id="L8525" class="LineNr"> 8525 </span> -<span id="L8526" class="LineNr"> 8526 </span><span class="subxTest">test-copy-to-deref-address</span>: -<span id="L8527" class="LineNr"> 8527 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8528" class="LineNr"> 8528 </span> 55/push-ebp -<span id="L8529" class="LineNr"> 8529 </span> 89/<- %ebp 4/r32/esp -<span id="L8530" class="LineNr"> 8530 </span> <span class="subxComment"># setup</span> -<span id="L8531" class="LineNr"> 8531 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8532" class="LineNr"> 8532 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8533" class="LineNr"> 8533 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8534" class="LineNr"> 8534 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8535" class="LineNr"> 8535 </span> <span class="subxComment">#</span> -<span id="L8536" class="LineNr"> 8536 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8537" class="LineNr"> 8537 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr int) <- copy 0\n"</span>) -<span id="L8538" class="LineNr"> 8538 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr addr int) <- copy 0\n"</span>) -<span id="L8539" class="LineNr"> 8539 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to *y, x\n"</span>) -<span id="L8540" class="LineNr"> 8540 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8541" class="LineNr"> 8541 </span> <span class="subxComment"># convert</span> -<span id="L8542" class="LineNr"> 8542 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L8543" class="LineNr"> 8543 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8544" class="LineNr"> 8544 </span> <span class="subxComment"># no errors</span> -<span id="L8545" class="LineNr"> 8545 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8546" class="LineNr"> 8546 </span> 5d/pop-to-ebp -<span id="L8547" class="LineNr"> 8547 </span> c3/return -<span id="L8548" class="LineNr"> 8548 </span> -<span id="L8549" class="LineNr"> 8549 </span><span class="subxTest">test-copy-to-from-non-scalar-inout</span>: -<span id="L8550" class="LineNr"> 8550 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8551" class="LineNr"> 8551 </span> 55/push-ebp -<span id="L8552" class="LineNr"> 8552 </span> 89/<- %ebp 4/r32/esp -<span id="L8553" class="LineNr"> 8553 </span> <span class="subxComment"># setup</span> -<span id="L8554" class="LineNr"> 8554 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8555" class="LineNr"> 8555 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8556" class="LineNr"> 8556 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8557" class="LineNr"> 8557 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8558" class="LineNr"> 8558 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L8559" class="LineNr"> 8559 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8560" class="LineNr"> 8560 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8561" class="LineNr"> 8561 </span> 68/push 0/imm32 -<span id="L8562" class="LineNr"> 8562 </span> 68/push 0/imm32 -<span id="L8563" class="LineNr"> 8563 </span> 89/<- %edx 4/r32/esp -<span id="L8564" class="LineNr"> 8564 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8565" class="LineNr"> 8565 </span> <span class="subxComment">#</span> -<span id="L8566" class="LineNr"> 8566 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8567" class="LineNr"> 8567 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (handle int)\n"</span>) -<span id="L8568" class="LineNr"> 8568 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: int\n"</span>) -<span id="L8569" class="LineNr"> 8569 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to y, x\n"</span>) -<span id="L8570" class="LineNr"> 8570 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8571" class="LineNr"> 8571 </span> <span class="subxComment"># convert</span> -<span id="L8572" class="LineNr"> 8572 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L8573" class="LineNr"> 8573 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8574" class="LineNr"> 8574 </span> <span class="subxComment"># restore ed</span> -<span id="L8575" class="LineNr"> 8575 </span> 89/<- %edx 4/r32/esp -<span id="L8576" class="LineNr"> 8576 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8577" class="LineNr"> 8577 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L8578" class="Folded"> 8578 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8584" class="LineNr"> 8584 </span> <span class="subxComment"># check output</span> -<span id="L8585" class="LineNr"> 8585 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8549'>test-copy-to-from-non-scalar-inout</a>: output should be empty"</span>) -<span id="L8586" class="LineNr"> 8586 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-to: 'x' is too large to copy"</span> <span class="Constant">"F - <a href='mu.subx.html#L8549'>test-copy-to-from-non-scalar-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L8587" class="LineNr"> 8587 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8588" class="LineNr"> 8588 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8549'>test-copy-to-from-non-scalar-inout</a>: exit status"</span>) -<span id="L8589" class="LineNr"> 8589 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8590" class="LineNr"> 8590 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8591" class="LineNr"> 8591 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8592" class="LineNr"> 8592 </span> 5d/pop-to-ebp -<span id="L8593" class="LineNr"> 8593 </span> c3/return -<span id="L8594" class="LineNr"> 8594 </span> -<span id="L8595" class="LineNr"> 8595 </span><span class="subxTest">test-copy-byte-with-no-inout</span>: -<span id="L8596" class="LineNr"> 8596 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8597" class="LineNr"> 8597 </span> 55/push-ebp -<span id="L8598" class="LineNr"> 8598 </span> 89/<- %ebp 4/r32/esp -<span id="L8599" class="LineNr"> 8599 </span> <span class="subxComment"># setup</span> -<span id="L8600" class="LineNr"> 8600 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8601" class="LineNr"> 8601 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8602" class="LineNr"> 8602 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8603" class="LineNr"> 8603 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8604" class="LineNr"> 8604 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L8605" class="LineNr"> 8605 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8606" class="LineNr"> 8606 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8607" class="LineNr"> 8607 </span> 68/push 0/imm32 -<span id="L8608" class="LineNr"> 8608 </span> 68/push 0/imm32 -<span id="L8609" class="LineNr"> 8609 </span> 89/<- %edx 4/r32/esp -<span id="L8610" class="LineNr"> 8610 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8611" class="LineNr"> 8611 </span> <span class="subxComment">#</span> -<span id="L8612" class="LineNr"> 8612 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8613" class="LineNr"> 8613 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: byte <- copy-byte\n"</span>) -<span id="L8614" class="LineNr"> 8614 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8615" class="LineNr"> 8615 </span> <span class="subxComment"># convert</span> -<span id="L8616" class="LineNr"> 8616 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L8617" class="LineNr"> 8617 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8618" class="LineNr"> 8618 </span> <span class="subxComment"># restore ed</span> -<span id="L8619" class="LineNr"> 8619 </span> 89/<- %edx 4/r32/esp -<span id="L8620" class="LineNr"> 8620 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8621" class="LineNr"> 8621 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L8622" class="Folded"> 8622 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8628" class="LineNr"> 8628 </span> <span class="subxComment"># check output</span> -<span id="L8629" class="LineNr"> 8629 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8595'>test-copy-byte-with-no-inout</a>: output should be empty"</span>) -<span id="L8630" class="LineNr"> 8630 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-byte' expects an inout"</span> <span class="Constant">"F - <a href='mu.subx.html#L8595'>test-copy-byte-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L8631" class="LineNr"> 8631 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8632" class="LineNr"> 8632 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8595'>test-copy-byte-with-no-inout</a>: exit status"</span>) -<span id="L8633" class="LineNr"> 8633 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8634" class="LineNr"> 8634 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8635" class="LineNr"> 8635 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8636" class="LineNr"> 8636 </span> 5d/pop-to-ebp -<span id="L8637" class="LineNr"> 8637 </span> c3/return -<span id="L8638" class="LineNr"> 8638 </span> -<span id="L8639" class="LineNr"> 8639 </span><span class="subxTest">test-copy-byte-with-multiple-inouts</span>: -<span id="L8640" class="LineNr"> 8640 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8641" class="LineNr"> 8641 </span> 55/push-ebp -<span id="L8642" class="LineNr"> 8642 </span> 89/<- %ebp 4/r32/esp -<span id="L8643" class="LineNr"> 8643 </span> <span class="subxComment"># setup</span> -<span id="L8644" class="LineNr"> 8644 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8645" class="LineNr"> 8645 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8646" class="LineNr"> 8646 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8647" class="LineNr"> 8647 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8648" class="LineNr"> 8648 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L8649" class="LineNr"> 8649 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8650" class="LineNr"> 8650 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8651" class="LineNr"> 8651 </span> 68/push 0/imm32 -<span id="L8652" class="LineNr"> 8652 </span> 68/push 0/imm32 -<span id="L8653" class="LineNr"> 8653 </span> 89/<- %edx 4/r32/esp -<span id="L8654" class="LineNr"> 8654 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8655" class="LineNr"> 8655 </span> <span class="subxComment">#</span> -<span id="L8656" class="LineNr"> 8656 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8657" class="LineNr"> 8657 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: byte <- copy-byte 0, 0\n"</span>) -<span id="L8658" class="LineNr"> 8658 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8659" class="LineNr"> 8659 </span> <span class="subxComment"># convert</span> -<span id="L8660" class="LineNr"> 8660 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L8661" class="LineNr"> 8661 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8662" class="LineNr"> 8662 </span> <span class="subxComment"># restore ed</span> -<span id="L8663" class="LineNr"> 8663 </span> 89/<- %edx 4/r32/esp -<span id="L8664" class="LineNr"> 8664 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8665" class="LineNr"> 8665 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L8666" class="Folded"> 8666 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8672" class="LineNr"> 8672 </span> <span class="subxComment"># check output</span> -<span id="L8673" class="LineNr"> 8673 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8639'>test-copy-byte-with-multiple-inouts</a>: output should be empty"</span>) -<span id="L8674" class="LineNr"> 8674 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-byte' must have just one inout"</span> <span class="Constant">"F - <a href='mu.subx.html#L8639'>test-copy-byte-with-multiple-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L8675" class="LineNr"> 8675 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8676" class="LineNr"> 8676 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8639'>test-copy-byte-with-multiple-inouts</a>: exit status"</span>) -<span id="L8677" class="LineNr"> 8677 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8678" class="LineNr"> 8678 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8679" class="LineNr"> 8679 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8680" class="LineNr"> 8680 </span> 5d/pop-to-ebp -<span id="L8681" class="LineNr"> 8681 </span> c3/return -<span id="L8682" class="LineNr"> 8682 </span> -<span id="L8683" class="LineNr"> 8683 </span><span class="subxTest">test-copy-byte-with-no-output</span>: -<span id="L8684" class="LineNr"> 8684 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8685" class="LineNr"> 8685 </span> 55/push-ebp -<span id="L8686" class="LineNr"> 8686 </span> 89/<- %ebp 4/r32/esp -<span id="L8687" class="LineNr"> 8687 </span> <span class="subxComment"># setup</span> -<span id="L8688" class="LineNr"> 8688 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8689" class="LineNr"> 8689 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8690" class="LineNr"> 8690 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8691" class="LineNr"> 8691 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8692" class="LineNr"> 8692 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L8693" class="LineNr"> 8693 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8694" class="LineNr"> 8694 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8695" class="LineNr"> 8695 </span> 68/push 0/imm32 -<span id="L8696" class="LineNr"> 8696 </span> 68/push 0/imm32 -<span id="L8697" class="LineNr"> 8697 </span> 89/<- %edx 4/r32/esp -<span id="L8698" class="LineNr"> 8698 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8699" class="LineNr"> 8699 </span> <span class="subxComment">#</span> -<span id="L8700" class="LineNr"> 8700 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8701" class="LineNr"> 8701 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-byte 0\n"</span>) -<span id="L8702" class="LineNr"> 8702 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8703" class="LineNr"> 8703 </span> <span class="subxComment"># convert</span> -<span id="L8704" class="LineNr"> 8704 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L8705" class="LineNr"> 8705 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8706" class="LineNr"> 8706 </span> <span class="subxComment"># restore ed</span> -<span id="L8707" class="LineNr"> 8707 </span> 89/<- %edx 4/r32/esp -<span id="L8708" class="LineNr"> 8708 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8709" class="LineNr"> 8709 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L8710" class="Folded"> 8710 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8716" class="LineNr"> 8716 </span> <span class="subxComment"># check output</span> -<span id="L8717" class="LineNr"> 8717 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8683'>test-copy-byte-with-no-output</a>: output should be empty"</span>) -<span id="L8718" class="LineNr"> 8718 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-byte' expects an output"</span> <span class="Constant">"F - <a href='mu.subx.html#L8683'>test-copy-byte-with-no-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L8719" class="LineNr"> 8719 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8720" class="LineNr"> 8720 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8683'>test-copy-byte-with-no-output</a>: exit status"</span>) -<span id="L8721" class="LineNr"> 8721 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8722" class="LineNr"> 8722 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8723" class="LineNr"> 8723 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8724" class="LineNr"> 8724 </span> 5d/pop-to-ebp -<span id="L8725" class="LineNr"> 8725 </span> c3/return -<span id="L8726" class="LineNr"> 8726 </span> -<span id="L8727" class="LineNr"> 8727 </span><span class="subxTest">test-copy-byte-with-multiple-outputs</span>: -<span id="L8728" class="LineNr"> 8728 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8729" class="LineNr"> 8729 </span> 55/push-ebp -<span id="L8730" class="LineNr"> 8730 </span> 89/<- %ebp 4/r32/esp -<span id="L8731" class="LineNr"> 8731 </span> <span class="subxComment"># setup</span> -<span id="L8732" class="LineNr"> 8732 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8733" class="LineNr"> 8733 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8734" class="LineNr"> 8734 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8735" class="LineNr"> 8735 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8736" class="LineNr"> 8736 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L8737" class="LineNr"> 8737 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8738" class="LineNr"> 8738 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8739" class="LineNr"> 8739 </span> 68/push 0/imm32 -<span id="L8740" class="LineNr"> 8740 </span> 68/push 0/imm32 -<span id="L8741" class="LineNr"> 8741 </span> 89/<- %edx 4/r32/esp -<span id="L8742" class="LineNr"> 8742 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8743" class="LineNr"> 8743 </span> <span class="subxComment">#</span> -<span id="L8744" class="LineNr"> 8744 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8745" class="LineNr"> 8745 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: byte <- copy 0\n"</span>) -<span id="L8746" class="LineNr"> 8746 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: byte <- copy 0\n"</span>) -<span id="L8747" class="LineNr"> 8747 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x, y <- copy-byte 0\n"</span>) -<span id="L8748" class="LineNr"> 8748 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8749" class="LineNr"> 8749 </span> <span class="subxComment"># convert</span> -<span id="L8750" class="LineNr"> 8750 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L8751" class="LineNr"> 8751 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8752" class="LineNr"> 8752 </span> <span class="subxComment"># restore ed</span> -<span id="L8753" class="LineNr"> 8753 </span> 89/<- %edx 4/r32/esp -<span id="L8754" class="LineNr"> 8754 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8755" class="LineNr"> 8755 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L8756" class="Folded"> 8756 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8762" class="LineNr"> 8762 </span> <span class="subxComment"># check output</span> -<span id="L8763" class="LineNr"> 8763 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8727'>test-copy-byte-with-multiple-outputs</a>: output should be empty"</span>) -<span id="L8764" class="LineNr"> 8764 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-byte' must have just one output"</span> <span class="Constant">"F - <a href='mu.subx.html#L8727'>test-copy-byte-with-multiple-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L8765" class="LineNr"> 8765 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8766" class="LineNr"> 8766 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8727'>test-copy-byte-with-multiple-outputs</a>: exit status"</span>) -<span id="L8767" class="LineNr"> 8767 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8768" class="LineNr"> 8768 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8769" class="LineNr"> 8769 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8770" class="LineNr"> 8770 </span> 5d/pop-to-ebp -<span id="L8771" class="LineNr"> 8771 </span> c3/return -<span id="L8772" class="LineNr"> 8772 </span> -<span id="L8773" class="LineNr"> 8773 </span><span class="subxTest">test-copy-byte-deref-address</span>: -<span id="L8774" class="LineNr"> 8774 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8775" class="LineNr"> 8775 </span> 55/push-ebp -<span id="L8776" class="LineNr"> 8776 </span> 89/<- %ebp 4/r32/esp -<span id="L8777" class="LineNr"> 8777 </span> <span class="subxComment"># setup</span> -<span id="L8778" class="LineNr"> 8778 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8779" class="LineNr"> 8779 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8780" class="LineNr"> 8780 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8781" class="LineNr"> 8781 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8782" class="LineNr"> 8782 </span> <span class="subxComment">#</span> -<span id="L8783" class="LineNr"> 8783 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8784" class="LineNr"> 8784 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr byte) <- copy 0\n"</span>) -<span id="L8785" class="LineNr"> 8785 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: byte <- copy-byte *x\n"</span>) -<span id="L8786" class="LineNr"> 8786 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8787" class="LineNr"> 8787 </span> <span class="subxComment"># convert</span> -<span id="L8788" class="LineNr"> 8788 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L8789" class="LineNr"> 8789 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8790" class="Folded"> 8790 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8796" class="LineNr"> 8796 </span> <span class="subxComment"># not bothering checking output</span> -<span id="L8797" class="LineNr"> 8797 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8773'>test-copy-byte-deref-address</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L8798" class="LineNr"> 8798 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8799" class="LineNr"> 8799 </span> 5d/pop-to-ebp -<span id="L8800" class="LineNr"> 8800 </span> c3/return -<span id="L8801" class="LineNr"> 8801 </span> -<span id="L8802" class="LineNr"> 8802 </span><span class="subxTest">test-copy-byte-with-invalid-output-type</span>: -<span id="L8803" class="LineNr"> 8803 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8804" class="LineNr"> 8804 </span> 55/push-ebp -<span id="L8805" class="LineNr"> 8805 </span> 89/<- %ebp 4/r32/esp -<span id="L8806" class="LineNr"> 8806 </span> <span class="subxComment"># setup</span> -<span id="L8807" class="LineNr"> 8807 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8808" class="LineNr"> 8808 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8809" class="LineNr"> 8809 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8810" class="LineNr"> 8810 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8811" class="LineNr"> 8811 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L8812" class="LineNr"> 8812 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8813" class="LineNr"> 8813 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8814" class="LineNr"> 8814 </span> 68/push 0/imm32 -<span id="L8815" class="LineNr"> 8815 </span> 68/push 0/imm32 -<span id="L8816" class="LineNr"> 8816 </span> 89/<- %edx 4/r32/esp -<span id="L8817" class="LineNr"> 8817 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8818" class="LineNr"> 8818 </span> <span class="subxComment">#</span> -<span id="L8819" class="LineNr"> 8819 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8820" class="LineNr"> 8820 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr byte) <- copy 0\n"</span>) -<span id="L8821" class="LineNr"> 8821 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: int <- copy-byte *x\n"</span>) -<span id="L8822" class="LineNr"> 8822 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8823" class="LineNr"> 8823 </span> <span class="subxComment"># convert</span> -<span id="L8824" class="LineNr"> 8824 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L8825" class="LineNr"> 8825 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8826" class="LineNr"> 8826 </span> <span class="subxComment"># restore ed</span> -<span id="L8827" class="LineNr"> 8827 </span> 89/<- %edx 4/r32/esp -<span id="L8828" class="LineNr"> 8828 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8829" class="LineNr"> 8829 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L8830" class="Folded"> 8830 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8836" class="LineNr"> 8836 </span> <span class="subxComment"># check output</span> -<span id="L8837" class="LineNr"> 8837 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8802'>test-copy-byte-with-invalid-output-type</a>: output should be empty"</span>) -<span id="L8838" class="LineNr"> 8838 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-byte' must <a href='108write.subx.html#L24'>write</a> to output of type byte"</span> <span class="Constant">"F - <a href='mu.subx.html#L8802'>test-copy-byte-with-invalid-output-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L8839" class="LineNr"> 8839 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8840" class="LineNr"> 8840 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8802'>test-copy-byte-with-invalid-output-type</a>: exit status"</span>) -<span id="L8841" class="LineNr"> 8841 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8842" class="LineNr"> 8842 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8843" class="LineNr"> 8843 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8844" class="LineNr"> 8844 </span> 5d/pop-to-ebp -<span id="L8845" class="LineNr"> 8845 </span> c3/return -<span id="L8846" class="LineNr"> 8846 </span> -<span id="L8847" class="LineNr"> 8847 </span><span class="subxTest">test-copy-byte-from-non-scalar-inout</span>: -<span id="L8848" class="LineNr"> 8848 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8849" class="LineNr"> 8849 </span> 55/push-ebp -<span id="L8850" class="LineNr"> 8850 </span> 89/<- %ebp 4/r32/esp -<span id="L8851" class="LineNr"> 8851 </span> <span class="subxComment"># setup</span> -<span id="L8852" class="LineNr"> 8852 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8853" class="LineNr"> 8853 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8854" class="LineNr"> 8854 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8855" class="LineNr"> 8855 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8856" class="LineNr"> 8856 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L8857" class="LineNr"> 8857 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8858" class="LineNr"> 8858 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8859" class="LineNr"> 8859 </span> 68/push 0/imm32 -<span id="L8860" class="LineNr"> 8860 </span> 68/push 0/imm32 -<span id="L8861" class="LineNr"> 8861 </span> 89/<- %edx 4/r32/esp -<span id="L8862" class="LineNr"> 8862 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8863" class="LineNr"> 8863 </span> <span class="subxComment">#</span> -<span id="L8864" class="LineNr"> 8864 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8865" class="LineNr"> 8865 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (handle int)\n"</span>) -<span id="L8866" class="LineNr"> 8866 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: byte <- copy-byte x\n"</span>) -<span id="L8867" class="LineNr"> 8867 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8868" class="LineNr"> 8868 </span> <span class="subxComment"># convert</span> -<span id="L8869" class="LineNr"> 8869 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L8870" class="LineNr"> 8870 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8871" class="LineNr"> 8871 </span> <span class="subxComment"># restore ed</span> -<span id="L8872" class="LineNr"> 8872 </span> 89/<- %edx 4/r32/esp -<span id="L8873" class="LineNr"> 8873 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8874" class="LineNr"> 8874 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L8875" class="Folded"> 8875 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8881" class="LineNr"> 8881 </span> <span class="subxComment"># check output</span> -<span id="L8882" class="LineNr"> 8882 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8847'>test-copy-byte-from-non-scalar-inout</a>: output should be empty"</span>) -<span id="L8883" class="LineNr"> 8883 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-byte: 'x' is too large to fit in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L8847'>test-copy-byte-from-non-scalar-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L8884" class="LineNr"> 8884 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8885" class="LineNr"> 8885 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8847'>test-copy-byte-from-non-scalar-inout</a>: exit status"</span>) -<span id="L8886" class="LineNr"> 8886 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8887" class="LineNr"> 8887 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8888" class="LineNr"> 8888 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8889" class="LineNr"> 8889 </span> 5d/pop-to-ebp -<span id="L8890" class="LineNr"> 8890 </span> c3/return -<span id="L8891" class="LineNr"> 8891 </span> -<span id="L8892" class="LineNr"> 8892 </span><span class="subxTest">test-copy-byte-to-with-no-inout</span>: -<span id="L8893" class="LineNr"> 8893 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8894" class="LineNr"> 8894 </span> 55/push-ebp -<span id="L8895" class="LineNr"> 8895 </span> 89/<- %ebp 4/r32/esp -<span id="L8896" class="LineNr"> 8896 </span> <span class="subxComment"># setup</span> -<span id="L8897" class="LineNr"> 8897 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8898" class="LineNr"> 8898 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8899" class="LineNr"> 8899 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8900" class="LineNr"> 8900 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8901" class="LineNr"> 8901 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L8902" class="LineNr"> 8902 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8903" class="LineNr"> 8903 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8904" class="LineNr"> 8904 </span> 68/push 0/imm32 -<span id="L8905" class="LineNr"> 8905 </span> 68/push 0/imm32 -<span id="L8906" class="LineNr"> 8906 </span> 89/<- %edx 4/r32/esp -<span id="L8907" class="LineNr"> 8907 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8908" class="LineNr"> 8908 </span> <span class="subxComment">#</span> -<span id="L8909" class="LineNr"> 8909 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8910" class="LineNr"> 8910 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-byte-to\n"</span>) -<span id="L8911" class="LineNr"> 8911 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8912" class="LineNr"> 8912 </span> <span class="subxComment"># convert</span> -<span id="L8913" class="LineNr"> 8913 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L8914" class="LineNr"> 8914 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8915" class="LineNr"> 8915 </span> <span class="subxComment"># restore ed</span> -<span id="L8916" class="LineNr"> 8916 </span> 89/<- %edx 4/r32/esp -<span id="L8917" class="LineNr"> 8917 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8918" class="LineNr"> 8918 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L8919" class="Folded"> 8919 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8925" class="LineNr"> 8925 </span> <span class="subxComment"># check output</span> -<span id="L8926" class="LineNr"> 8926 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8892'>test-copy-byte-to-with-no-inout</a>: output should be empty"</span>) -<span id="L8927" class="LineNr"> 8927 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-byte-to' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L8892'>test-copy-byte-to-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L8928" class="LineNr"> 8928 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8929" class="LineNr"> 8929 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8892'>test-copy-byte-to-with-no-inout</a>: exit status"</span>) -<span id="L8930" class="LineNr"> 8930 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8931" class="LineNr"> 8931 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8932" class="LineNr"> 8932 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8933" class="LineNr"> 8933 </span> 5d/pop-to-ebp -<span id="L8934" class="LineNr"> 8934 </span> c3/return -<span id="L8935" class="LineNr"> 8935 </span> -<span id="L8936" class="LineNr"> 8936 </span><span class="subxTest">test-copy-byte-to-with-no-source</span>: -<span id="L8937" class="LineNr"> 8937 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8938" class="LineNr"> 8938 </span> 55/push-ebp -<span id="L8939" class="LineNr"> 8939 </span> 89/<- %ebp 4/r32/esp -<span id="L8940" class="LineNr"> 8940 </span> <span class="subxComment"># setup</span> -<span id="L8941" class="LineNr"> 8941 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8942" class="LineNr"> 8942 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8943" class="LineNr"> 8943 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8944" class="LineNr"> 8944 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8945" class="LineNr"> 8945 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L8946" class="LineNr"> 8946 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8947" class="LineNr"> 8947 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8948" class="LineNr"> 8948 </span> 68/push 0/imm32 -<span id="L8949" class="LineNr"> 8949 </span> 68/push 0/imm32 -<span id="L8950" class="LineNr"> 8950 </span> 89/<- %edx 4/r32/esp -<span id="L8951" class="LineNr"> 8951 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8952" class="LineNr"> 8952 </span> <span class="subxComment">#</span> -<span id="L8953" class="LineNr"> 8953 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8954" class="LineNr"> 8954 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr byte) <- copy 0\n"</span>) -<span id="L8955" class="LineNr"> 8955 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-byte-to *x\n"</span>) -<span id="L8956" class="LineNr"> 8956 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8957" class="LineNr"> 8957 </span> <span class="subxComment"># convert</span> -<span id="L8958" class="LineNr"> 8958 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L8959" class="LineNr"> 8959 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8960" class="LineNr"> 8960 </span> <span class="subxComment"># restore ed</span> -<span id="L8961" class="LineNr"> 8961 </span> 89/<- %edx 4/r32/esp -<span id="L8962" class="LineNr"> 8962 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8963" class="LineNr"> 8963 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L8964" class="Folded"> 8964 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8970" class="LineNr"> 8970 </span> <span class="subxComment"># check output</span> -<span id="L8971" class="LineNr"> 8971 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8936'>test-copy-byte-to-with-no-source</a>: output should be empty"</span>) -<span id="L8972" class="LineNr"> 8972 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-byte-to' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L8936'>test-copy-byte-to-with-no-source</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L8973" class="LineNr"> 8973 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8974" class="LineNr"> 8974 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8936'>test-copy-byte-to-with-no-source</a>: exit status"</span>) -<span id="L8975" class="LineNr"> 8975 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8976" class="LineNr"> 8976 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8977" class="LineNr"> 8977 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8978" class="LineNr"> 8978 </span> 5d/pop-to-ebp -<span id="L8979" class="LineNr"> 8979 </span> c3/return -<span id="L8980" class="LineNr"> 8980 </span> -<span id="L8981" class="LineNr"> 8981 </span><span class="subxTest">test-copy-byte-to-with-too-many-inouts</span>: -<span id="L8982" class="LineNr"> 8982 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8983" class="LineNr"> 8983 </span> 55/push-ebp -<span id="L8984" class="LineNr"> 8984 </span> 89/<- %ebp 4/r32/esp -<span id="L8985" class="LineNr"> 8985 </span> <span class="subxComment"># setup</span> -<span id="L8986" class="LineNr"> 8986 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8987" class="LineNr"> 8987 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8988" class="LineNr"> 8988 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8989" class="LineNr"> 8989 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8990" class="LineNr"> 8990 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L8991" class="LineNr"> 8991 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8992" class="LineNr"> 8992 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8993" class="LineNr"> 8993 </span> 68/push 0/imm32 -<span id="L8994" class="LineNr"> 8994 </span> 68/push 0/imm32 -<span id="L8995" class="LineNr"> 8995 </span> 89/<- %edx 4/r32/esp -<span id="L8996" class="LineNr"> 8996 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8997" class="LineNr"> 8997 </span> <span class="subxComment">#</span> -<span id="L8998" class="LineNr"> 8998 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8999" class="LineNr"> 8999 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr byte) <- copy 0\n"</span>) -<span id="L9000" class="LineNr"> 9000 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-byte-to *x, 0, 0\n"</span>) -<span id="L9001" class="LineNr"> 9001 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9002" class="LineNr"> 9002 </span> <span class="subxComment"># convert</span> -<span id="L9003" class="LineNr"> 9003 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L9004" class="LineNr"> 9004 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9005" class="LineNr"> 9005 </span> <span class="subxComment"># restore ed</span> -<span id="L9006" class="LineNr"> 9006 </span> 89/<- %edx 4/r32/esp -<span id="L9007" class="LineNr"> 9007 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9008" class="LineNr"> 9008 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L9009" class="Folded"> 9009 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9015" class="LineNr"> 9015 </span> <span class="subxComment"># check output</span> -<span id="L9016" class="LineNr"> 9016 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8981'>test-copy-byte-to-with-too-many-inouts</a>: output should be empty"</span>) -<span id="L9017" class="LineNr"> 9017 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-byte-to' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L8981'>test-copy-byte-to-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L9018" class="LineNr"> 9018 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9019" class="LineNr"> 9019 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8981'>test-copy-byte-to-with-too-many-inouts</a>: exit status"</span>) -<span id="L9020" class="LineNr"> 9020 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9021" class="LineNr"> 9021 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9022" class="LineNr"> 9022 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9023" class="LineNr"> 9023 </span> 5d/pop-to-ebp -<span id="L9024" class="LineNr"> 9024 </span> c3/return -<span id="L9025" class="LineNr"> 9025 </span> -<span id="L9026" class="LineNr"> 9026 </span><span class="subxTest">test-copy-byte-to-with-output</span>: -<span id="L9027" class="LineNr"> 9027 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9028" class="LineNr"> 9028 </span> 55/push-ebp -<span id="L9029" class="LineNr"> 9029 </span> 89/<- %ebp 4/r32/esp -<span id="L9030" class="LineNr"> 9030 </span> <span class="subxComment"># setup</span> -<span id="L9031" class="LineNr"> 9031 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9032" class="LineNr"> 9032 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9033" class="LineNr"> 9033 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L9034" class="LineNr"> 9034 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9035" class="LineNr"> 9035 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L9036" class="LineNr"> 9036 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9037" class="LineNr"> 9037 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9038" class="LineNr"> 9038 </span> 68/push 0/imm32 -<span id="L9039" class="LineNr"> 9039 </span> 68/push 0/imm32 -<span id="L9040" class="LineNr"> 9040 </span> 89/<- %edx 4/r32/esp -<span id="L9041" class="LineNr"> 9041 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9042" class="LineNr"> 9042 </span> <span class="subxComment">#</span> -<span id="L9043" class="LineNr"> 9043 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9044" class="LineNr"> 9044 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: byte <- copy 0\n"</span>) -<span id="L9045" class="LineNr"> 9045 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr byte) <- copy 0\n"</span>) -<span id="L9046" class="LineNr"> 9046 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- copy-byte-to *y, 0\n"</span>) -<span id="L9047" class="LineNr"> 9047 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9048" class="LineNr"> 9048 </span> <span class="subxComment"># convert</span> -<span id="L9049" class="LineNr"> 9049 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L9050" class="LineNr"> 9050 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9051" class="LineNr"> 9051 </span> <span class="subxComment"># restore ed</span> -<span id="L9052" class="LineNr"> 9052 </span> 89/<- %edx 4/r32/esp -<span id="L9053" class="LineNr"> 9053 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9054" class="LineNr"> 9054 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L9055" class="Folded"> 9055 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9061" class="LineNr"> 9061 </span> <span class="subxComment"># check output</span> -<span id="L9062" class="LineNr"> 9062 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9026'>test-copy-byte-to-with-output</a>: output should be empty"</span>) -<span id="L9063" class="LineNr"> 9063 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-byte-to' must not have any outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L9026'>test-copy-byte-to-with-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L9064" class="LineNr"> 9064 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9065" class="LineNr"> 9065 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9026'>test-copy-byte-to-with-output</a>: exit status"</span>) -<span id="L9066" class="LineNr"> 9066 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9067" class="LineNr"> 9067 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9068" class="LineNr"> 9068 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9069" class="LineNr"> 9069 </span> 5d/pop-to-ebp -<span id="L9070" class="LineNr"> 9070 </span> c3/return -<span id="L9071" class="LineNr"> 9071 </span> -<span id="L9072" class="LineNr"> 9072 </span><span class="subxTest">test-copy-byte-to-with-invalid-output-type</span>: -<span id="L9073" class="LineNr"> 9073 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9074" class="LineNr"> 9074 </span> 55/push-ebp -<span id="L9075" class="LineNr"> 9075 </span> 89/<- %ebp 4/r32/esp -<span id="L9076" class="LineNr"> 9076 </span> <span class="subxComment"># setup</span> -<span id="L9077" class="LineNr"> 9077 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9078" class="LineNr"> 9078 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9079" class="LineNr"> 9079 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L9080" class="LineNr"> 9080 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9081" class="LineNr"> 9081 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L9082" class="LineNr"> 9082 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9083" class="LineNr"> 9083 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9084" class="LineNr"> 9084 </span> 68/push 0/imm32 -<span id="L9085" class="LineNr"> 9085 </span> 68/push 0/imm32 -<span id="L9086" class="LineNr"> 9086 </span> 89/<- %edx 4/r32/esp -<span id="L9087" class="LineNr"> 9087 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9088" class="LineNr"> 9088 </span> <span class="subxComment">#</span> -<span id="L9089" class="LineNr"> 9089 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9090" class="LineNr"> 9090 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: byte <- copy 0\n"</span>) -<span id="L9091" class="LineNr"> 9091 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: int\n"</span>) -<span id="L9092" class="LineNr"> 9092 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-byte-to y, x\n"</span>) -<span id="L9093" class="LineNr"> 9093 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9094" class="LineNr"> 9094 </span> <span class="subxComment"># convert</span> -<span id="L9095" class="LineNr"> 9095 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L9096" class="LineNr"> 9096 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9097" class="LineNr"> 9097 </span> <span class="subxComment"># restore ed</span> -<span id="L9098" class="LineNr"> 9098 </span> 89/<- %edx 4/r32/esp -<span id="L9099" class="LineNr"> 9099 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9100" class="LineNr"> 9100 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L9101" class="Folded"> 9101 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9107" class="LineNr"> 9107 </span> <span class="subxComment"># check output</span> -<span id="L9108" class="LineNr"> 9108 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9072'>test-copy-byte-to-with-invalid-output-type</a>: output should be empty"</span>) -<span id="L9109" class="LineNr"> 9109 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-byte-to: 'y' must be a byte"</span> <span class="Constant">"F - <a href='mu.subx.html#L9072'>test-copy-byte-to-with-invalid-output-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L9110" class="LineNr"> 9110 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9111" class="LineNr"> 9111 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9072'>test-copy-byte-to-with-invalid-output-type</a>: exit status"</span>) -<span id="L9112" class="LineNr"> 9112 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9113" class="LineNr"> 9113 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9114" class="LineNr"> 9114 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9115" class="LineNr"> 9115 </span> 5d/pop-to-ebp -<span id="L9116" class="LineNr"> 9116 </span> c3/return -<span id="L9117" class="LineNr"> 9117 </span> -<span id="L9118" class="LineNr"> 9118 </span><span class="subxTest">test-copy-byte-to-with-literal-inout</span>: -<span id="L9119" class="LineNr"> 9119 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9120" class="LineNr"> 9120 </span> 55/push-ebp -<span id="L9121" class="LineNr"> 9121 </span> 89/<- %ebp 4/r32/esp -<span id="L9122" class="LineNr"> 9122 </span> <span class="subxComment"># setup</span> -<span id="L9123" class="LineNr"> 9123 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9124" class="LineNr"> 9124 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9125" class="LineNr"> 9125 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L9126" class="LineNr"> 9126 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9127" class="LineNr"> 9127 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L9128" class="LineNr"> 9128 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9129" class="LineNr"> 9129 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9130" class="LineNr"> 9130 </span> 68/push 0/imm32 -<span id="L9131" class="LineNr"> 9131 </span> 68/push 0/imm32 -<span id="L9132" class="LineNr"> 9132 </span> 89/<- %edx 4/r32/esp -<span id="L9133" class="LineNr"> 9133 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9134" class="LineNr"> 9134 </span> <span class="subxComment">#</span> -<span id="L9135" class="LineNr"> 9135 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9136" class="LineNr"> 9136 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr byte) <- copy 0\n"</span>) -<span id="L9137" class="LineNr"> 9137 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-byte-to *x, 0\n"</span>) -<span id="L9138" class="LineNr"> 9138 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9139" class="LineNr"> 9139 </span> <span class="subxComment"># convert</span> -<span id="L9140" class="LineNr"> 9140 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L9141" class="LineNr"> 9141 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9142" class="LineNr"> 9142 </span> <span class="subxComment"># restore ed</span> -<span id="L9143" class="LineNr"> 9143 </span> 89/<- %edx 4/r32/esp -<span id="L9144" class="LineNr"> 9144 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9145" class="LineNr"> 9145 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L9146" class="Folded"> 9146 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9152" class="LineNr"> 9152 </span> <span class="subxComment"># check output</span> -<span id="L9153" class="LineNr"> 9153 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9118'>test-copy-byte-to-with-literal-inout</a>: output should be empty"</span>) -<span id="L9154" class="LineNr"> 9154 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-byte-to: source (second inout) must be in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L9118'>test-copy-byte-to-with-literal-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L9155" class="LineNr"> 9155 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9156" class="LineNr"> 9156 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9118'>test-copy-byte-to-with-literal-inout</a>: exit status"</span>) -<span id="L9157" class="LineNr"> 9157 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9158" class="LineNr"> 9158 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9159" class="LineNr"> 9159 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9160" class="LineNr"> 9160 </span> 5d/pop-to-ebp -<span id="L9161" class="LineNr"> 9161 </span> c3/return -<span id="L9162" class="LineNr"> 9162 </span> -<span id="L9163" class="LineNr"> 9163 </span><span class="subxTest">test-copy-byte-to-deref-address</span>: -<span id="L9164" class="LineNr"> 9164 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9165" class="LineNr"> 9165 </span> 55/push-ebp -<span id="L9166" class="LineNr"> 9166 </span> 89/<- %ebp 4/r32/esp -<span id="L9167" class="LineNr"> 9167 </span> <span class="subxComment"># setup</span> -<span id="L9168" class="LineNr"> 9168 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9169" class="LineNr"> 9169 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9170" class="LineNr"> 9170 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L9171" class="LineNr"> 9171 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9172" class="LineNr"> 9172 </span> <span class="subxComment">#</span> -<span id="L9173" class="LineNr"> 9173 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9174" class="LineNr"> 9174 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: byte <- copy 0\n"</span>) -<span id="L9175" class="LineNr"> 9175 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr byte) <- copy 0\n"</span>) -<span id="L9176" class="LineNr"> 9176 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-byte-to *y, x\n"</span>) -<span id="L9177" class="LineNr"> 9177 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9178" class="LineNr"> 9178 </span> <span class="subxComment"># convert</span> -<span id="L9179" class="LineNr"> 9179 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L9180" class="LineNr"> 9180 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9181" class="LineNr"> 9181 </span> <span class="subxComment"># no errors</span> -<span id="L9182" class="LineNr"> 9182 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9183" class="LineNr"> 9183 </span> 5d/pop-to-ebp -<span id="L9184" class="LineNr"> 9184 </span> c3/return -<span id="L9185" class="LineNr"> 9185 </span> -<span id="L9186" class="LineNr"> 9186 </span><span class="subxTest">test-copy-byte-to-from-non-scalar-inout</span>: -<span id="L9187" class="LineNr"> 9187 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9188" class="LineNr"> 9188 </span> 55/push-ebp -<span id="L9189" class="LineNr"> 9189 </span> 89/<- %ebp 4/r32/esp -<span id="L9190" class="LineNr"> 9190 </span> <span class="subxComment"># setup</span> -<span id="L9191" class="LineNr"> 9191 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9192" class="LineNr"> 9192 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9193" class="LineNr"> 9193 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L9194" class="LineNr"> 9194 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9195" class="LineNr"> 9195 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L9196" class="LineNr"> 9196 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9197" class="LineNr"> 9197 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9198" class="LineNr"> 9198 </span> 68/push 0/imm32 -<span id="L9199" class="LineNr"> 9199 </span> 68/push 0/imm32 -<span id="L9200" class="LineNr"> 9200 </span> 89/<- %edx 4/r32/esp -<span id="L9201" class="LineNr"> 9201 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9202" class="LineNr"> 9202 </span> <span class="subxComment">#</span> -<span id="L9203" class="LineNr"> 9203 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9204" class="LineNr"> 9204 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (handle int)\n"</span>) -<span id="L9205" class="LineNr"> 9205 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: (addr byte) <- copy 0\n"</span>) -<span id="L9206" class="LineNr"> 9206 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-byte-to *y, x\n"</span>) -<span id="L9207" class="LineNr"> 9207 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9208" class="LineNr"> 9208 </span> <span class="subxComment"># convert</span> -<span id="L9209" class="LineNr"> 9209 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L9210" class="LineNr"> 9210 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9211" class="LineNr"> 9211 </span> <span class="subxComment"># restore ed</span> -<span id="L9212" class="LineNr"> 9212 </span> 89/<- %edx 4/r32/esp -<span id="L9213" class="LineNr"> 9213 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9214" class="LineNr"> 9214 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L9215" class="Folded"> 9215 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9221" class="LineNr"> 9221 </span> <span class="subxComment"># check output</span> -<span id="L9222" class="LineNr"> 9222 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9186'>test-copy-byte-to-from-non-scalar-inout</a>: output should be empty"</span>) -<span id="L9223" class="LineNr"> 9223 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-byte-to: 'x' is too large to copy"</span> <span class="Constant">"F - <a href='mu.subx.html#L9186'>test-copy-byte-to-from-non-scalar-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L9224" class="LineNr"> 9224 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9225" class="LineNr"> 9225 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9186'>test-copy-byte-to-from-non-scalar-inout</a>: exit status"</span>) -<span id="L9226" class="LineNr"> 9226 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9227" class="LineNr"> 9227 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9228" class="LineNr"> 9228 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9229" class="LineNr"> 9229 </span> 5d/pop-to-ebp -<span id="L9230" class="LineNr"> 9230 </span> c3/return -<span id="L9231" class="LineNr"> 9231 </span> -<span id="L9232" class="LineNr"> 9232 </span><span class="subxTest">test-compare-with-no-inout</span>: -<span id="L9233" class="LineNr"> 9233 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9234" class="LineNr"> 9234 </span> 55/push-ebp -<span id="L9235" class="LineNr"> 9235 </span> 89/<- %ebp 4/r32/esp -<span id="L9236" class="LineNr"> 9236 </span> <span class="subxComment"># setup</span> -<span id="L9237" class="LineNr"> 9237 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9238" class="LineNr"> 9238 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9239" class="LineNr"> 9239 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L9240" class="LineNr"> 9240 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9241" class="LineNr"> 9241 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L9242" class="LineNr"> 9242 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9243" class="LineNr"> 9243 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9244" class="LineNr"> 9244 </span> 68/push 0/imm32 -<span id="L9245" class="LineNr"> 9245 </span> 68/push 0/imm32 -<span id="L9246" class="LineNr"> 9246 </span> 89/<- %edx 4/r32/esp -<span id="L9247" class="LineNr"> 9247 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9248" class="LineNr"> 9248 </span> <span class="subxComment">#</span> -<span id="L9249" class="LineNr"> 9249 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9250" class="LineNr"> 9250 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: boolean\n"</span>) -<span id="L9251" class="LineNr"> 9251 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare\n"</span>) -<span id="L9252" class="LineNr"> 9252 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9253" class="LineNr"> 9253 </span> <span class="subxComment"># convert</span> -<span id="L9254" class="LineNr"> 9254 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L9255" class="LineNr"> 9255 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9256" class="LineNr"> 9256 </span> <span class="subxComment"># restore ed</span> -<span id="L9257" class="LineNr"> 9257 </span> 89/<- %edx 4/r32/esp -<span id="L9258" class="LineNr"> 9258 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9259" class="LineNr"> 9259 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L9260" class="Folded"> 9260 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9266" class="LineNr"> 9266 </span> <span class="subxComment"># check output</span> -<span id="L9267" class="LineNr"> 9267 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9232'>test-compare-with-no-inout</a>: output should be empty"</span>) -<span id="L9268" class="LineNr"> 9268 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'compare' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L9232'>test-compare-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L9269" class="LineNr"> 9269 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9270" class="LineNr"> 9270 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9232'>test-compare-with-no-inout</a>: exit status"</span>) -<span id="L9271" class="LineNr"> 9271 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9272" class="LineNr"> 9272 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9273" class="LineNr"> 9273 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9274" class="LineNr"> 9274 </span> 5d/pop-to-ebp -<span id="L9275" class="LineNr"> 9275 </span> c3/return -<span id="L9276" class="LineNr"> 9276 </span> -<span id="L9277" class="LineNr"> 9277 </span><span class="subxTest">test-compare-with-just-one-inout</span>: -<span id="L9278" class="LineNr"> 9278 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9279" class="LineNr"> 9279 </span> 55/push-ebp -<span id="L9280" class="LineNr"> 9280 </span> 89/<- %ebp 4/r32/esp -<span id="L9281" class="LineNr"> 9281 </span> <span class="subxComment"># setup</span> -<span id="L9282" class="LineNr"> 9282 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9283" class="LineNr"> 9283 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9284" class="LineNr"> 9284 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L9285" class="LineNr"> 9285 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9286" class="LineNr"> 9286 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L9287" class="LineNr"> 9287 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9288" class="LineNr"> 9288 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9289" class="LineNr"> 9289 </span> 68/push 0/imm32 -<span id="L9290" class="LineNr"> 9290 </span> 68/push 0/imm32 -<span id="L9291" class="LineNr"> 9291 </span> 89/<- %edx 4/r32/esp -<span id="L9292" class="LineNr"> 9292 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9293" class="LineNr"> 9293 </span> <span class="subxComment">#</span> -<span id="L9294" class="LineNr"> 9294 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9295" class="LineNr"> 9295 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: boolean\n"</span>) -<span id="L9296" class="LineNr"> 9296 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare x\n"</span>) -<span id="L9297" class="LineNr"> 9297 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9298" class="LineNr"> 9298 </span> <span class="subxComment"># convert</span> -<span id="L9299" class="LineNr"> 9299 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L9300" class="LineNr"> 9300 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9301" class="LineNr"> 9301 </span> <span class="subxComment"># restore ed</span> -<span id="L9302" class="LineNr"> 9302 </span> 89/<- %edx 4/r32/esp -<span id="L9303" class="LineNr"> 9303 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9304" class="LineNr"> 9304 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L9305" class="Folded"> 9305 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9311" class="LineNr"> 9311 </span> <span class="subxComment"># check output</span> -<span id="L9312" class="LineNr"> 9312 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9277'>test-compare-with-just-one-inout</a>: output should be empty"</span>) -<span id="L9313" class="LineNr"> 9313 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'compare' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L9277'>test-compare-with-just-one-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L9314" class="LineNr"> 9314 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9315" class="LineNr"> 9315 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9277'>test-compare-with-just-one-inout</a>: exit status"</span>) -<span id="L9316" class="LineNr"> 9316 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9317" class="LineNr"> 9317 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9318" class="LineNr"> 9318 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9319" class="LineNr"> 9319 </span> 5d/pop-to-ebp -<span id="L9320" class="LineNr"> 9320 </span> c3/return -<span id="L9321" class="LineNr"> 9321 </span> -<span id="L9322" class="LineNr"> 9322 </span><span class="subxTest">test-compare-with-too-many-inouts</span>: -<span id="L9323" class="LineNr"> 9323 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9324" class="LineNr"> 9324 </span> 55/push-ebp -<span id="L9325" class="LineNr"> 9325 </span> 89/<- %ebp 4/r32/esp -<span id="L9326" class="LineNr"> 9326 </span> <span class="subxComment"># setup</span> -<span id="L9327" class="LineNr"> 9327 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9328" class="LineNr"> 9328 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9329" class="LineNr"> 9329 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L9330" class="LineNr"> 9330 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9331" class="LineNr"> 9331 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L9332" class="LineNr"> 9332 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9333" class="LineNr"> 9333 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9334" class="LineNr"> 9334 </span> 68/push 0/imm32 -<span id="L9335" class="LineNr"> 9335 </span> 68/push 0/imm32 -<span id="L9336" class="LineNr"> 9336 </span> 89/<- %edx 4/r32/esp -<span id="L9337" class="LineNr"> 9337 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9338" class="LineNr"> 9338 </span> <span class="subxComment">#</span> -<span id="L9339" class="LineNr"> 9339 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9340" class="LineNr"> 9340 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: boolean\n"</span>) -<span id="L9341" class="LineNr"> 9341 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare x, 0, 0\n"</span>) -<span id="L9342" class="LineNr"> 9342 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9343" class="LineNr"> 9343 </span> <span class="subxComment"># convert</span> -<span id="L9344" class="LineNr"> 9344 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L9345" class="LineNr"> 9345 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9346" class="LineNr"> 9346 </span> <span class="subxComment"># restore ed</span> -<span id="L9347" class="LineNr"> 9347 </span> 89/<- %edx 4/r32/esp -<span id="L9348" class="LineNr"> 9348 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9349" class="LineNr"> 9349 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L9350" class="Folded"> 9350 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9356" class="LineNr"> 9356 </span> <span class="subxComment"># check output</span> -<span id="L9357" class="LineNr"> 9357 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9322'>test-compare-with-too-many-inouts</a>: output should be empty"</span>) -<span id="L9358" class="LineNr"> 9358 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'compare' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L9322'>test-compare-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L9359" class="LineNr"> 9359 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9360" class="LineNr"> 9360 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9322'>test-compare-with-too-many-inouts</a>: exit status"</span>) -<span id="L9361" class="LineNr"> 9361 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9362" class="LineNr"> 9362 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9363" class="LineNr"> 9363 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9364" class="LineNr"> 9364 </span> 5d/pop-to-ebp -<span id="L9365" class="LineNr"> 9365 </span> c3/return -<span id="L9366" class="LineNr"> 9366 </span> -<span id="L9367" class="LineNr"> 9367 </span><span class="subxTest">test-compare-with-output</span>: -<span id="L9368" class="LineNr"> 9368 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9369" class="LineNr"> 9369 </span> 55/push-ebp -<span id="L9370" class="LineNr"> 9370 </span> 89/<- %ebp 4/r32/esp -<span id="L9371" class="LineNr"> 9371 </span> <span class="subxComment"># setup</span> -<span id="L9372" class="LineNr"> 9372 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9373" class="LineNr"> 9373 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9374" class="LineNr"> 9374 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L9375" class="LineNr"> 9375 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9376" class="LineNr"> 9376 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L9377" class="LineNr"> 9377 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9378" class="LineNr"> 9378 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9379" class="LineNr"> 9379 </span> 68/push 0/imm32 -<span id="L9380" class="LineNr"> 9380 </span> 68/push 0/imm32 -<span id="L9381" class="LineNr"> 9381 </span> 89/<- %edx 4/r32/esp -<span id="L9382" class="LineNr"> 9382 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9383" class="LineNr"> 9383 </span> <span class="subxComment">#</span> -<span id="L9384" class="LineNr"> 9384 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9385" class="LineNr"> 9385 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy 0\n"</span>) -<span id="L9386" class="LineNr"> 9386 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: boolean <- copy 0\n"</span>) -<span id="L9387" class="LineNr"> 9387 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- compare y, 0\n"</span>) -<span id="L9388" class="LineNr"> 9388 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9389" class="LineNr"> 9389 </span> <span class="subxComment"># convert</span> -<span id="L9390" class="LineNr"> 9390 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L9391" class="LineNr"> 9391 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9392" class="LineNr"> 9392 </span> <span class="subxComment"># restore ed</span> -<span id="L9393" class="LineNr"> 9393 </span> 89/<- %edx 4/r32/esp -<span id="L9394" class="LineNr"> 9394 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9395" class="LineNr"> 9395 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L9396" class="Folded"> 9396 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9402" class="LineNr"> 9402 </span> <span class="subxComment"># check output</span> -<span id="L9403" class="LineNr"> 9403 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9367'>test-compare-with-output</a>: output should be empty"</span>) -<span id="L9404" class="LineNr"> 9404 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'compare' must not have any outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L9367'>test-compare-with-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L9405" class="LineNr"> 9405 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9406" class="LineNr"> 9406 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9367'>test-compare-with-output</a>: exit status"</span>) -<span id="L9407" class="LineNr"> 9407 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9408" class="LineNr"> 9408 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9409" class="LineNr"> 9409 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9410" class="LineNr"> 9410 </span> 5d/pop-to-ebp -<span id="L9411" class="LineNr"> 9411 </span> c3/return -<span id="L9412" class="LineNr"> 9412 </span> -<span id="L9413" class="LineNr"> 9413 </span><span class="subxTest">test-compare-invalid-value-to-address</span>: -<span id="L9414" class="LineNr"> 9414 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9415" class="LineNr"> 9415 </span> 55/push-ebp -<span id="L9416" class="LineNr"> 9416 </span> 89/<- %ebp 4/r32/esp -<span id="L9417" class="LineNr"> 9417 </span> <span class="subxComment"># setup</span> -<span id="L9418" class="LineNr"> 9418 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9419" class="LineNr"> 9419 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9420" class="LineNr"> 9420 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L9421" class="LineNr"> 9421 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9422" class="LineNr"> 9422 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L9423" class="LineNr"> 9423 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9424" class="LineNr"> 9424 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9425" class="LineNr"> 9425 </span> 68/push 0/imm32 -<span id="L9426" class="LineNr"> 9426 </span> 68/push 0/imm32 -<span id="L9427" class="LineNr"> 9427 </span> 89/<- %edx 4/r32/esp -<span id="L9428" class="LineNr"> 9428 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9429" class="LineNr"> 9429 </span> <span class="subxComment">#</span> -<span id="L9430" class="LineNr"> 9430 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9431" class="LineNr"> 9431 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- copy 0\n"</span>) -<span id="L9432" class="LineNr"> 9432 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: (addr int)\n"</span>) -<span id="L9433" class="LineNr"> 9433 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare y, x\n"</span>) -<span id="L9434" class="LineNr"> 9434 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9435" class="LineNr"> 9435 </span> <span class="subxComment"># convert</span> -<span id="L9436" class="LineNr"> 9436 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L9437" class="LineNr"> 9437 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9438" class="LineNr"> 9438 </span> <span class="subxComment"># restore ed</span> -<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#L425'>_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#L464'>_test-error-buffered-file</a>) -<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#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9413'>test-compare-invalid-value-to-address</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#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compare: 'y' must be a non-addr non-offset scalar"</span> <span class="Constant">"F - <a href='mu.subx.html#L9413'>test-compare-invalid-value-to-address</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L9451" class="LineNr"> 9451 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9452" class="LineNr"> 9452 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9413'>test-compare-invalid-value-to-address</a>: exit status"</span>) -<span id="L9453" class="LineNr"> 9453 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9454" class="LineNr"> 9454 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9455" class="LineNr"> 9455 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9456" class="LineNr"> 9456 </span> 5d/pop-to-ebp -<span id="L9457" class="LineNr"> 9457 </span> c3/return -<span id="L9458" class="LineNr"> 9458 </span> -<span id="L9459" class="LineNr"> 9459 </span><span class="subxTest">test-compare-address</span>: -<span id="L9460" class="LineNr"> 9460 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9461" class="LineNr"> 9461 </span> 55/push-ebp -<span id="L9462" class="LineNr"> 9462 </span> 89/<- %ebp 4/r32/esp -<span id="L9463" class="LineNr"> 9463 </span> <span class="subxComment"># setup</span> -<span id="L9464" class="LineNr"> 9464 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9465" class="LineNr"> 9465 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9466" class="LineNr"> 9466 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L9467" class="LineNr"> 9467 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9468" class="LineNr"> 9468 </span> <span class="subxComment">#</span> -<span id="L9469" class="LineNr"> 9469 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9470" class="LineNr"> 9470 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr int) <- copy 0\n"</span>) -<span id="L9471" class="LineNr"> 9471 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr int) <- copy 0\n"</span>) -<span id="L9472" class="LineNr"> 9472 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare y, x\n"</span>) -<span id="L9473" class="LineNr"> 9473 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9474" class="LineNr"> 9474 </span> <span class="subxComment"># convert</span> -<span id="L9475" class="LineNr"> 9475 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L9476" class="LineNr"> 9476 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9477" class="LineNr"> 9477 </span> <span class="subxComment"># no errors</span> -<span id="L9478" class="LineNr"> 9478 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9479" class="LineNr"> 9479 </span> 5d/pop-to-ebp -<span id="L9480" class="LineNr"> 9480 </span> c3/return -<span id="L9481" class="LineNr"> 9481 </span> -<span id="L9482" class="LineNr"> 9482 </span><span class="subxTest">test-compare-deref-address</span>: -<span id="L9483" class="LineNr"> 9483 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9484" class="LineNr"> 9484 </span> 55/push-ebp -<span id="L9485" class="LineNr"> 9485 </span> 89/<- %ebp 4/r32/esp -<span id="L9486" class="LineNr"> 9486 </span> <span class="subxComment"># setup</span> -<span id="L9487" class="LineNr"> 9487 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9488" class="LineNr"> 9488 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9489" class="LineNr"> 9489 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L9490" class="LineNr"> 9490 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9491" class="LineNr"> 9491 </span> <span class="subxComment">#</span> -<span id="L9492" class="LineNr"> 9492 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9493" class="LineNr"> 9493 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr int) <- copy 0\n"</span>) -<span id="L9494" class="LineNr"> 9494 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr addr int) <- copy 0\n"</span>) -<span id="L9495" class="LineNr"> 9495 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare *y, x\n"</span>) -<span id="L9496" class="LineNr"> 9496 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9497" class="LineNr"> 9497 </span> <span class="subxComment"># convert</span> -<span id="L9498" class="LineNr"> 9498 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L9499" class="LineNr"> 9499 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9500" class="LineNr"> 9500 </span> <span class="subxComment"># no errors</span> -<span id="L9501" class="LineNr"> 9501 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9502" class="LineNr"> 9502 </span> 5d/pop-to-ebp -<span id="L9503" class="LineNr"> 9503 </span> c3/return -<span id="L9504" class="LineNr"> 9504 </span> -<span id="L9505" class="LineNr"> 9505 </span><span class="subxTest">test-compare-two-vars-in-memory</span>: -<span id="L9506" class="LineNr"> 9506 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9507" class="LineNr"> 9507 </span> 55/push-ebp -<span id="L9508" class="LineNr"> 9508 </span> 89/<- %ebp 4/r32/esp -<span id="L9509" class="LineNr"> 9509 </span> <span class="subxComment"># setup</span> -<span id="L9510" class="LineNr"> 9510 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9511" class="LineNr"> 9511 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9512" class="LineNr"> 9512 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L9513" class="LineNr"> 9513 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9514" class="LineNr"> 9514 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L9515" class="LineNr"> 9515 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9516" class="LineNr"> 9516 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9517" class="LineNr"> 9517 </span> 68/push 0/imm32 -<span id="L9518" class="LineNr"> 9518 </span> 68/push 0/imm32 -<span id="L9519" class="LineNr"> 9519 </span> 89/<- %edx 4/r32/esp -<span id="L9520" class="LineNr"> 9520 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9521" class="LineNr"> 9521 </span> <span class="subxComment">#</span> -<span id="L9522" class="LineNr"> 9522 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9523" class="LineNr"> 9523 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: boolean\n"</span>) -<span id="L9524" class="LineNr"> 9524 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare x, x\n"</span>) -<span id="L9525" class="LineNr"> 9525 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9526" class="LineNr"> 9526 </span> <span class="subxComment"># convert</span> -<span id="L9527" class="LineNr"> 9527 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L9528" class="LineNr"> 9528 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9529" class="LineNr"> 9529 </span> <span class="subxComment"># restore ed</span> -<span id="L9530" class="LineNr"> 9530 </span> 89/<- %edx 4/r32/esp -<span id="L9531" class="LineNr"> 9531 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9532" class="LineNr"> 9532 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L9533" class="Folded"> 9533 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9539" class="LineNr"> 9539 </span> <span class="subxComment"># check output</span> -<span id="L9540" class="LineNr"> 9540 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9505'>test-compare-two-vars-in-memory</a>: output should be empty"</span>) -<span id="L9541" class="LineNr"> 9541 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compare: both inouts are in memory"</span> <span class="Constant">"F - <a href='mu.subx.html#L9505'>test-compare-two-vars-in-memory</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L9542" class="LineNr"> 9542 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9543" class="LineNr"> 9543 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9505'>test-compare-two-vars-in-memory</a>: exit status"</span>) -<span id="L9544" class="LineNr"> 9544 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9545" class="LineNr"> 9545 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9546" class="LineNr"> 9546 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9547" class="LineNr"> 9547 </span> 5d/pop-to-ebp -<span id="L9548" class="LineNr"> 9548 </span> c3/return -<span id="L9549" class="LineNr"> 9549 </span> -<span id="L9550" class="LineNr"> 9550 </span><span class="subxTest">test-compare-non-scalar</span>: -<span id="L9551" class="LineNr"> 9551 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9552" class="LineNr"> 9552 </span> 55/push-ebp -<span id="L9553" class="LineNr"> 9553 </span> 89/<- %ebp 4/r32/esp -<span id="L9554" class="LineNr"> 9554 </span> <span class="subxComment"># setup</span> -<span id="L9555" class="LineNr"> 9555 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9556" class="LineNr"> 9556 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9557" class="LineNr"> 9557 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L9558" class="LineNr"> 9558 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9559" class="LineNr"> 9559 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L9560" class="LineNr"> 9560 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9561" class="LineNr"> 9561 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9562" class="LineNr"> 9562 </span> 68/push 0/imm32 -<span id="L9563" class="LineNr"> 9563 </span> 68/push 0/imm32 -<span id="L9564" class="LineNr"> 9564 </span> 89/<- %edx 4/r32/esp -<span id="L9565" class="LineNr"> 9565 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9566" class="LineNr"> 9566 </span> <span class="subxComment">#</span> -<span id="L9567" class="LineNr"> 9567 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9568" class="LineNr"> 9568 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (handle int)\n"</span>) -<span id="L9569" class="LineNr"> 9569 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: int\n"</span>) -<span id="L9570" class="LineNr"> 9570 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare y, x\n"</span>) -<span id="L9571" class="LineNr"> 9571 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9572" class="LineNr"> 9572 </span> <span class="subxComment"># convert</span> -<span id="L9573" class="LineNr"> 9573 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L9574" class="LineNr"> 9574 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9575" class="LineNr"> 9575 </span> <span class="subxComment"># restore ed</span> -<span id="L9576" class="LineNr"> 9576 </span> 89/<- %edx 4/r32/esp -<span id="L9577" class="LineNr"> 9577 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9578" class="LineNr"> 9578 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L9579" class="Folded"> 9579 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9585" class="LineNr"> 9585 </span> <span class="subxComment"># check output</span> -<span id="L9586" class="LineNr"> 9586 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9550'>test-compare-non-scalar</a>: output should be empty"</span>) -<span id="L9587" class="LineNr"> 9587 </span><span class="CommentedCode">#? (check-next-stream-line-equal _test-error-stream "fn foo: stmt compare: 'x' is too large to compare" "F - test-compare-non-scalar: error message")</span> -<span id="L9588" class="LineNr"> 9588 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compare: both inouts are in memory"</span> <span class="Constant">"F - <a href='mu.subx.html#L9550'>test-compare-non-scalar</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L9589" class="LineNr"> 9589 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9590" class="LineNr"> 9590 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9550'>test-compare-non-scalar</a>: exit status"</span>) -<span id="L9591" class="LineNr"> 9591 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9592" class="LineNr"> 9592 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9593" class="LineNr"> 9593 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9594" class="LineNr"> 9594 </span> 5d/pop-to-ebp -<span id="L9595" class="LineNr"> 9595 </span> c3/return -<span id="L9596" class="LineNr"> 9596 </span> -<span id="L9597" class="LineNr"> 9597 </span><span class="subxTest">test-compare-with-string-literal</span>: -<span id="L9598" class="LineNr"> 9598 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9599" class="LineNr"> 9599 </span> 55/push-ebp -<span id="L9600" class="LineNr"> 9600 </span> 89/<- %ebp 4/r32/esp -<span id="L9601" class="LineNr"> 9601 </span> <span class="subxComment"># setup</span> -<span id="L9602" class="LineNr"> 9602 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9603" class="LineNr"> 9603 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9604" class="LineNr"> 9604 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L9605" class="LineNr"> 9605 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9606" class="LineNr"> 9606 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L9607" class="LineNr"> 9607 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9608" class="LineNr"> 9608 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9609" class="LineNr"> 9609 </span> 68/push 0/imm32 -<span id="L9610" class="LineNr"> 9610 </span> 68/push 0/imm32 -<span id="L9611" class="LineNr"> 9611 </span> 89/<- %edx 4/r32/esp -<span id="L9612" class="LineNr"> 9612 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9613" class="LineNr"> 9613 </span> <span class="subxComment">#</span> -<span id="L9614" class="LineNr"> 9614 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9615" class="LineNr"> 9615 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr array byte) <- copy 0\n"</span>) -<span id="L9616" class="LineNr"> 9616 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare x, \"</span>abc\<span class="Constant">"\n"</span>) -<span id="L9617" class="LineNr"> 9617 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9618" class="LineNr"> 9618 </span> <span class="subxComment"># convert</span> -<span id="L9619" class="LineNr"> 9619 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L9620" class="LineNr"> 9620 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9621" class="LineNr"> 9621 </span> <span class="subxComment"># restore ed</span> -<span id="L9622" class="LineNr"> 9622 </span> 89/<- %edx 4/r32/esp -<span id="L9623" class="LineNr"> 9623 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9624" class="LineNr"> 9624 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L9625" class="Folded"> 9625 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9631" class="LineNr"> 9631 </span> <span class="subxComment"># check output</span> -<span id="L9632" class="LineNr"> 9632 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9597'>test-compare-with-string-literal</a>: output should be empty"</span>) -<span id="L9633" class="LineNr"> 9633 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compare: string literal \"</span>abc\<span class="Constant">" is not supported; use the <a href='105string-equal.subx.html#L15'>string-equal?</a> function"</span> <span class="Constant">"F - <a href='mu.subx.html#L9597'>test-compare-with-string-literal</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L9634" class="LineNr"> 9634 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9635" class="LineNr"> 9635 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9597'>test-compare-with-string-literal</a>: exit status"</span>) -<span id="L9636" class="LineNr"> 9636 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9637" class="LineNr"> 9637 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9638" class="LineNr"> 9638 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9639" class="LineNr"> 9639 </span> 5d/pop-to-ebp -<span id="L9640" class="LineNr"> 9640 </span> c3/return -<span id="L9641" class="LineNr"> 9641 </span> -<span id="L9642" class="LineNr"> 9642 </span><span class="subxTest">test-address-with-no-inout</span>: -<span id="L9643" class="LineNr"> 9643 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9644" class="LineNr"> 9644 </span> 55/push-ebp -<span id="L9645" class="LineNr"> 9645 </span> 89/<- %ebp 4/r32/esp -<span id="L9646" class="LineNr"> 9646 </span> <span class="subxComment"># setup</span> -<span id="L9647" class="LineNr"> 9647 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9648" class="LineNr"> 9648 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9649" class="LineNr"> 9649 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L9650" class="LineNr"> 9650 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9651" class="LineNr"> 9651 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L9652" class="LineNr"> 9652 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9653" class="LineNr"> 9653 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9654" class="LineNr"> 9654 </span> 68/push 0/imm32 -<span id="L9655" class="LineNr"> 9655 </span> 68/push 0/imm32 -<span id="L9656" class="LineNr"> 9656 </span> 89/<- %edx 4/r32/esp -<span id="L9657" class="LineNr"> 9657 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9658" class="LineNr"> 9658 </span> <span class="subxComment">#</span> -<span id="L9659" class="LineNr"> 9659 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9660" class="LineNr"> 9660 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- address\n"</span>) -<span id="L9661" class="LineNr"> 9661 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9662" class="LineNr"> 9662 </span> <span class="subxComment"># convert</span> -<span id="L9663" class="LineNr"> 9663 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L9664" class="LineNr"> 9664 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9665" class="LineNr"> 9665 </span> <span class="subxComment"># restore ed</span> -<span id="L9666" class="LineNr"> 9666 </span> 89/<- %edx 4/r32/esp -<span id="L9667" class="LineNr"> 9667 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9668" class="LineNr"> 9668 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L9669" class="Folded"> 9669 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9675" class="LineNr"> 9675 </span> <span class="subxComment"># check output</span> -<span id="L9676" class="LineNr"> 9676 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9642'>test-address-with-no-inout</a>: output should be empty"</span>) -<span id="L9677" class="LineNr"> 9677 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'address' expects an inout"</span> <span class="Constant">"F - <a href='mu.subx.html#L9642'>test-address-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L9678" class="LineNr"> 9678 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9679" class="LineNr"> 9679 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9642'>test-address-with-no-inout</a>: exit status"</span>) -<span id="L9680" class="LineNr"> 9680 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9681" class="LineNr"> 9681 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9682" class="LineNr"> 9682 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9683" class="LineNr"> 9683 </span> 5d/pop-to-ebp -<span id="L9684" class="LineNr"> 9684 </span> c3/return -<span id="L9685" class="LineNr"> 9685 </span> -<span id="L9686" class="LineNr"> 9686 </span><span class="subxTest">test-address-with-multiple-inouts</span>: -<span id="L9687" class="LineNr"> 9687 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9688" class="LineNr"> 9688 </span> 55/push-ebp -<span id="L9689" class="LineNr"> 9689 </span> 89/<- %ebp 4/r32/esp -<span id="L9690" class="LineNr"> 9690 </span> <span class="subxComment"># setup</span> -<span id="L9691" class="LineNr"> 9691 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9692" class="LineNr"> 9692 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9693" class="LineNr"> 9693 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L9694" class="LineNr"> 9694 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9695" class="LineNr"> 9695 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L9696" class="LineNr"> 9696 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9697" class="LineNr"> 9697 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9698" class="LineNr"> 9698 </span> 68/push 0/imm32 -<span id="L9699" class="LineNr"> 9699 </span> 68/push 0/imm32 -<span id="L9700" class="LineNr"> 9700 </span> 89/<- %edx 4/r32/esp -<span id="L9701" class="LineNr"> 9701 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9702" class="LineNr"> 9702 </span> <span class="subxComment">#</span> -<span id="L9703" class="LineNr"> 9703 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9704" class="LineNr"> 9704 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- address 0, 0\n"</span>) -<span id="L9705" class="LineNr"> 9705 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9706" class="LineNr"> 9706 </span> <span class="subxComment"># convert</span> -<span id="L9707" class="LineNr"> 9707 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L9708" class="LineNr"> 9708 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9709" class="LineNr"> 9709 </span> <span class="subxComment"># restore ed</span> -<span id="L9710" class="LineNr"> 9710 </span> 89/<- %edx 4/r32/esp -<span id="L9711" class="LineNr"> 9711 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9712" class="LineNr"> 9712 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L9713" class="Folded"> 9713 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9719" class="LineNr"> 9719 </span> <span class="subxComment"># check output</span> -<span id="L9720" class="LineNr"> 9720 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9686'>test-address-with-multiple-inouts</a>: output should be empty"</span>) -<span id="L9721" class="LineNr"> 9721 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'address' must have just one inout"</span> <span class="Constant">"F - <a href='mu.subx.html#L9686'>test-address-with-multiple-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L9722" class="LineNr"> 9722 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9723" class="LineNr"> 9723 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9686'>test-address-with-multiple-inouts</a>: exit status"</span>) -<span id="L9724" class="LineNr"> 9724 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9725" class="LineNr"> 9725 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9726" class="LineNr"> 9726 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9727" class="LineNr"> 9727 </span> 5d/pop-to-ebp -<span id="L9728" class="LineNr"> 9728 </span> c3/return -<span id="L9729" class="LineNr"> 9729 </span> -<span id="L9730" class="LineNr"> 9730 </span><span class="subxTest">test-address-with-no-output</span>: -<span id="L9731" class="LineNr"> 9731 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9732" class="LineNr"> 9732 </span> 55/push-ebp -<span id="L9733" class="LineNr"> 9733 </span> 89/<- %ebp 4/r32/esp -<span id="L9734" class="LineNr"> 9734 </span> <span class="subxComment"># setup</span> -<span id="L9735" class="LineNr"> 9735 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9736" class="LineNr"> 9736 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9737" class="LineNr"> 9737 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L9738" class="LineNr"> 9738 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9739" class="LineNr"> 9739 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L9740" class="LineNr"> 9740 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9741" class="LineNr"> 9741 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9742" class="LineNr"> 9742 </span> 68/push 0/imm32 -<span id="L9743" class="LineNr"> 9743 </span> 68/push 0/imm32 -<span id="L9744" class="LineNr"> 9744 </span> 89/<- %edx 4/r32/esp -<span id="L9745" class="LineNr"> 9745 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9746" class="LineNr"> 9746 </span> <span class="subxComment">#</span> -<span id="L9747" class="LineNr"> 9747 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9748" class="LineNr"> 9748 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" address 0\n"</span>) -<span id="L9749" class="LineNr"> 9749 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9750" class="LineNr"> 9750 </span> <span class="subxComment"># convert</span> -<span id="L9751" class="LineNr"> 9751 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L9752" class="LineNr"> 9752 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9753" class="LineNr"> 9753 </span> <span class="subxComment"># restore ed</span> -<span id="L9754" class="LineNr"> 9754 </span> 89/<- %edx 4/r32/esp -<span id="L9755" class="LineNr"> 9755 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9756" class="LineNr"> 9756 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L9757" class="Folded"> 9757 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9763" class="LineNr"> 9763 </span> <span class="subxComment"># check output</span> -<span id="L9764" class="LineNr"> 9764 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9730'>test-address-with-no-output</a>: output should be empty"</span>) -<span id="L9765" class="LineNr"> 9765 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'address' expects an output"</span> <span class="Constant">"F - <a href='mu.subx.html#L9730'>test-address-with-no-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L9766" class="LineNr"> 9766 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9767" class="LineNr"> 9767 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9730'>test-address-with-no-output</a>: exit status"</span>) -<span id="L9768" class="LineNr"> 9768 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9769" class="LineNr"> 9769 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9770" class="LineNr"> 9770 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9771" class="LineNr"> 9771 </span> 5d/pop-to-ebp -<span id="L9772" class="LineNr"> 9772 </span> c3/return -<span id="L9773" class="LineNr"> 9773 </span> -<span id="L9774" class="LineNr"> 9774 </span><span class="subxTest">test-address-with-multiple-outputs</span>: -<span id="L9775" class="LineNr"> 9775 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9776" class="LineNr"> 9776 </span> 55/push-ebp -<span id="L9777" class="LineNr"> 9777 </span> 89/<- %ebp 4/r32/esp -<span id="L9778" class="LineNr"> 9778 </span> <span class="subxComment"># setup</span> -<span id="L9779" class="LineNr"> 9779 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9780" class="LineNr"> 9780 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9781" class="LineNr"> 9781 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L9782" class="LineNr"> 9782 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9783" class="LineNr"> 9783 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L9784" class="LineNr"> 9784 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9785" class="LineNr"> 9785 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9786" class="LineNr"> 9786 </span> 68/push 0/imm32 -<span id="L9787" class="LineNr"> 9787 </span> 68/push 0/imm32 -<span id="L9788" class="LineNr"> 9788 </span> 89/<- %edx 4/r32/esp -<span id="L9789" class="LineNr"> 9789 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9790" class="LineNr"> 9790 </span> <span class="subxComment">#</span> -<span id="L9791" class="LineNr"> 9791 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9792" class="LineNr"> 9792 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy 0\n"</span>) -<span id="L9793" class="LineNr"> 9793 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: boolean <- copy 0\n"</span>) -<span id="L9794" class="LineNr"> 9794 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x, y <- address 0\n"</span>) -<span id="L9795" class="LineNr"> 9795 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9796" class="LineNr"> 9796 </span> <span class="subxComment"># convert</span> -<span id="L9797" class="LineNr"> 9797 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L9798" class="LineNr"> 9798 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9799" class="LineNr"> 9799 </span> <span class="subxComment"># restore ed</span> -<span id="L9800" class="LineNr"> 9800 </span> 89/<- %edx 4/r32/esp -<span id="L9801" class="LineNr"> 9801 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9802" class="LineNr"> 9802 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L9803" class="Folded"> 9803 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9809" class="LineNr"> 9809 </span> <span class="subxComment"># check output</span> -<span id="L9810" class="LineNr"> 9810 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9774'>test-address-with-multiple-outputs</a>: output should be empty"</span>) -<span id="L9811" class="LineNr"> 9811 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'address' must have just one output"</span> <span class="Constant">"F - <a href='mu.subx.html#L9774'>test-address-with-multiple-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L9812" class="LineNr"> 9812 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9813" class="LineNr"> 9813 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9774'>test-address-with-multiple-outputs</a>: exit status"</span>) -<span id="L9814" class="LineNr"> 9814 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9815" class="LineNr"> 9815 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9816" class="LineNr"> 9816 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9817" class="LineNr"> 9817 </span> 5d/pop-to-ebp -<span id="L9818" class="LineNr"> 9818 </span> c3/return -<span id="L9819" class="LineNr"> 9819 </span> -<span id="L9820" class="LineNr"> 9820 </span><span class="subxComment"># silly but it works</span> -<span id="L9821" class="LineNr"> 9821 </span><span class="subxTest">test-address-of-deref</span>: -<span id="L9822" class="LineNr"> 9822 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9823" class="LineNr"> 9823 </span> 55/push-ebp -<span id="L9824" class="LineNr"> 9824 </span> 89/<- %ebp 4/r32/esp -<span id="L9825" class="LineNr"> 9825 </span> <span class="subxComment"># setup</span> -<span id="L9826" class="LineNr"> 9826 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9827" class="LineNr"> 9827 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9828" class="LineNr"> 9828 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L9829" class="LineNr"> 9829 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9830" class="LineNr"> 9830 </span> <span class="subxComment">#</span> -<span id="L9831" class="LineNr"> 9831 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9832" class="LineNr"> 9832 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr int) <- copy 0\n"</span>) -<span id="L9833" class="LineNr"> 9833 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr int) <- address *x\n"</span>) -<span id="L9834" class="LineNr"> 9834 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9835" class="LineNr"> 9835 </span> <span class="subxComment"># convert</span> -<span id="L9836" class="LineNr"> 9836 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L9837" class="LineNr"> 9837 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9838" class="LineNr"> 9838 </span> <span class="subxComment"># no errors</span> -<span id="L9839" class="LineNr"> 9839 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9840" class="LineNr"> 9840 </span> 5d/pop-to-ebp -<span id="L9841" class="LineNr"> 9841 </span> c3/return -<span id="L9842" class="LineNr"> 9842 </span> -<span id="L9843" class="LineNr"> 9843 </span><span class="subxTest">test-address-to-non-register</span>: -<span id="L9844" class="LineNr"> 9844 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9845" class="LineNr"> 9845 </span> 55/push-ebp -<span id="L9846" class="LineNr"> 9846 </span> 89/<- %ebp 4/r32/esp -<span id="L9847" class="LineNr"> 9847 </span> <span class="subxComment"># setup</span> -<span id="L9848" class="LineNr"> 9848 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9849" class="LineNr"> 9849 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9850" class="LineNr"> 9850 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L9851" class="LineNr"> 9851 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9852" class="LineNr"> 9852 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L9853" class="LineNr"> 9853 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9854" class="LineNr"> 9854 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9855" class="LineNr"> 9855 </span> 68/push 0/imm32 -<span id="L9856" class="LineNr"> 9856 </span> 68/push 0/imm32 -<span id="L9857" class="LineNr"> 9857 </span> 89/<- %edx 4/r32/esp -<span id="L9858" class="LineNr"> 9858 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9859" class="LineNr"> 9859 </span> <span class="subxComment">#</span> -<span id="L9860" class="LineNr"> 9860 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9861" class="LineNr"> 9861 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr int)\n"</span>) -<span id="L9862" class="LineNr"> 9862 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- address 0\n"</span>) -<span id="L9863" class="LineNr"> 9863 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9864" class="LineNr"> 9864 </span> <span class="subxComment"># convert</span> -<span id="L9865" class="LineNr"> 9865 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L9866" class="LineNr"> 9866 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9867" class="LineNr"> 9867 </span> <span class="subxComment"># restore ed</span> -<span id="L9868" class="LineNr"> 9868 </span> 89/<- %edx 4/r32/esp -<span id="L9869" class="LineNr"> 9869 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9870" class="LineNr"> 9870 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L9871" class="Folded"> 9871 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9877" class="LineNr"> 9877 </span> <span class="subxComment"># check output</span> -<span id="L9878" class="LineNr"> 9878 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9843'>test-address-to-non-register</a>: output should be empty"</span>) -<span id="L9879" class="LineNr"> 9879 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt address: output 'x' not in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L9843'>test-address-to-non-register</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L9880" class="LineNr"> 9880 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9881" class="LineNr"> 9881 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9843'>test-address-to-non-register</a>: exit status"</span>) -<span id="L9882" class="LineNr"> 9882 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9883" class="LineNr"> 9883 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9884" class="LineNr"> 9884 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9885" class="LineNr"> 9885 </span> 5d/pop-to-ebp -<span id="L9886" class="LineNr"> 9886 </span> c3/return -<span id="L9887" class="LineNr"> 9887 </span> -<span id="L9888" class="LineNr"> 9888 </span><span class="subxTest">test-address-with-wrong-type</span>: -<span id="L9889" class="LineNr"> 9889 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9890" class="LineNr"> 9890 </span> 55/push-ebp -<span id="L9891" class="LineNr"> 9891 </span> 89/<- %ebp 4/r32/esp -<span id="L9892" class="LineNr"> 9892 </span> <span class="subxComment"># setup</span> -<span id="L9893" class="LineNr"> 9893 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9894" class="LineNr"> 9894 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9895" class="LineNr"> 9895 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L9896" class="LineNr"> 9896 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9897" class="LineNr"> 9897 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L9898" class="LineNr"> 9898 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9899" class="LineNr"> 9899 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9900" class="LineNr"> 9900 </span> 68/push 0/imm32 -<span id="L9901" class="LineNr"> 9901 </span> 68/push 0/imm32 -<span id="L9902" class="LineNr"> 9902 </span> 89/<- %edx 4/r32/esp -<span id="L9903" class="LineNr"> 9903 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9904" class="LineNr"> 9904 </span> <span class="subxComment">#</span> -<span id="L9905" class="LineNr"> 9905 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9906" class="LineNr"> 9906 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) -<span id="L9907" class="LineNr"> 9907 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: (addr boolean) <- address x\n"</span>) -<span id="L9908" class="LineNr"> 9908 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9909" class="LineNr"> 9909 </span> <span class="subxComment"># convert</span> -<span id="L9910" class="LineNr"> 9910 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L9911" class="LineNr"> 9911 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9912" class="LineNr"> 9912 </span> <span class="subxComment"># restore ed</span> -<span id="L9913" class="LineNr"> 9913 </span> 89/<- %edx 4/r32/esp -<span id="L9914" class="LineNr"> 9914 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9915" class="LineNr"> 9915 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L9916" class="Folded"> 9916 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9922" class="LineNr"> 9922 </span> <span class="subxComment"># check output</span> -<span id="L9923" class="LineNr"> 9923 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9888'>test-address-with-wrong-type</a>: output should be empty"</span>) -<span id="L9924" class="LineNr"> 9924 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt address: output 'y' cannot hold address of 'x'"</span> <span class="Constant">"F - <a href='mu.subx.html#L9888'>test-address-with-wrong-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L9925" class="LineNr"> 9925 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9926" class="LineNr"> 9926 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9888'>test-address-with-wrong-type</a>: exit status"</span>) -<span id="L9927" class="LineNr"> 9927 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9928" class="LineNr"> 9928 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9929" class="LineNr"> 9929 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9930" class="LineNr"> 9930 </span> 5d/pop-to-ebp -<span id="L9931" class="LineNr"> 9931 </span> c3/return -<span id="L9932" class="LineNr"> 9932 </span> -<span id="L9933" class="LineNr"> 9933 </span><span class="subxTest">test-address-with-right-type-for-array</span>: -<span id="L9934" class="LineNr"> 9934 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9935" class="LineNr"> 9935 </span> 55/push-ebp -<span id="L9936" class="LineNr"> 9936 </span> 89/<- %ebp 4/r32/esp -<span id="L9937" class="LineNr"> 9937 </span> <span class="subxComment"># setup</span> -<span id="L9938" class="LineNr"> 9938 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9939" class="LineNr"> 9939 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9940" class="LineNr"> 9940 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L9941" class="LineNr"> 9941 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9942" class="LineNr"> 9942 </span> <span class="subxComment">#</span> -<span id="L9943" class="LineNr"> 9943 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9944" class="LineNr"> 9944 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (array int 3)\n"</span>) -<span id="L9945" class="LineNr"> 9945 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: (addr array int) <- address x\n"</span>) -<span id="L9946" class="LineNr"> 9946 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9947" class="LineNr"> 9947 </span> <span class="subxComment"># convert</span> -<span id="L9948" class="LineNr"> 9948 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L9949" class="LineNr"> 9949 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9950" class="LineNr"> 9950 </span> <span class="subxComment"># no errors</span> -<span id="L9951" class="LineNr"> 9951 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9952" class="LineNr"> 9952 </span> 89/<- %esp 5/r32/ebp -<span id="L9953" class="LineNr"> 9953 </span> 5d/pop-to-ebp -<span id="L9954" class="LineNr"> 9954 </span> c3/return -<span id="L9955" class="LineNr"> 9955 </span> -<span id="L9956" class="LineNr"> 9956 </span><span class="subxTest">test-address-with-right-type-for-stream</span>: -<span id="L9957" class="LineNr"> 9957 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9958" class="LineNr"> 9958 </span> 55/push-ebp -<span id="L9959" class="LineNr"> 9959 </span> 89/<- %ebp 4/r32/esp -<span id="L9960" class="LineNr"> 9960 </span> <span class="subxComment"># setup</span> -<span id="L9961" class="LineNr"> 9961 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9962" class="LineNr"> 9962 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9963" class="LineNr"> 9963 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L9964" class="LineNr"> 9964 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9965" class="LineNr"> 9965 </span> <span class="subxComment">#</span> -<span id="L9966" class="LineNr"> 9966 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9967" class="LineNr"> 9967 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (stream int 3)\n"</span>) -<span id="L9968" class="LineNr"> 9968 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: (addr stream int) <- address x\n"</span>) -<span id="L9969" class="LineNr"> 9969 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9970" class="LineNr"> 9970 </span> <span class="subxComment"># convert</span> -<span id="L9971" class="LineNr"> 9971 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L9972" class="LineNr"> 9972 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9973" class="LineNr"> 9973 </span> <span class="subxComment"># no errors</span> -<span id="L9974" class="LineNr"> 9974 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9975" class="LineNr"> 9975 </span> 89/<- %esp 5/r32/ebp -<span id="L9976" class="LineNr"> 9976 </span> 5d/pop-to-ebp -<span id="L9977" class="LineNr"> 9977 </span> c3/return -<span id="L9978" class="LineNr"> 9978 </span> -<span id="L9979" class="LineNr"> 9979 </span><span class="subxTest">test-get-with-wrong-field</span>: -<span id="L9980" class="LineNr"> 9980 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9981" class="LineNr"> 9981 </span> 55/push-ebp -<span id="L9982" class="LineNr"> 9982 </span> 89/<- %ebp 4/r32/esp -<span id="L9983" class="LineNr"> 9983 </span> <span class="subxComment"># setup</span> -<span id="L9984" class="LineNr"> 9984 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9985" class="LineNr"> 9985 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9986" class="LineNr"> 9986 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L9987" class="LineNr"> 9987 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9988" class="LineNr"> 9988 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L9989" class="LineNr"> 9989 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9990" class="LineNr"> 9990 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9991" class="LineNr"> 9991 </span> 68/push 0/imm32 -<span id="L9992" class="LineNr"> 9992 </span> 68/push 0/imm32 -<span id="L9993" class="LineNr"> 9993 </span> 89/<- %edx 4/r32/esp -<span id="L9994" class="LineNr"> 9994 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9995" class="LineNr"> 9995 </span> <span class="subxComment">#</span> -<span id="L9996" class="LineNr"> 9996 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9997" class="LineNr"> 9997 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) -<span id="L9998" class="LineNr"> 9998 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> a, y\n"</span>) -<span id="L9999" class="LineNr"> 9999 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10000" class="LineNr">10000 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L10001" class="LineNr">10001 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L10002" class="LineNr">10002 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10003" class="LineNr">10003 </span> <span class="subxComment"># convert</span> -<span id="L10004" class="LineNr">10004 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L10005" class="LineNr">10005 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L10006" class="LineNr">10006 </span> <span class="subxComment"># restore ed</span> -<span id="L10007" class="LineNr">10007 </span> 89/<- %edx 4/r32/esp -<span id="L10008" class="LineNr">10008 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L10009" class="LineNr">10009 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L10010" class="Folded">10010 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10016" class="LineNr">10016 </span> <span class="subxComment"># check output</span> -<span id="L10017" class="LineNr">10017 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9979'>test-get-with-wrong-field</a>: output should be empty"</span>) -<span id="L10018" class="LineNr">10018 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='131table.subx.html#L26'>get</a>: type 't' has no member called 'y'"</span> <span class="Constant">"F - <a href='mu.subx.html#L9979'>test-get-with-wrong-field</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L10019" class="LineNr">10019 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L10020" class="LineNr">10020 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9979'>test-get-with-wrong-field</a>: exit status"</span>) -<span id="L10021" class="LineNr">10021 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L10022" class="LineNr">10022 </span> 81 0/subop/add %esp 8/imm32 -<span id="L10023" class="LineNr">10023 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10024" class="LineNr">10024 </span> 5d/pop-to-ebp -<span id="L10025" class="LineNr">10025 </span> c3/return -<span id="L10026" class="LineNr">10026 </span> -<span id="L10027" class="LineNr">10027 </span><span class="subxTest">test-get-with-wrong-base-type</span>: -<span id="L10028" class="LineNr">10028 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10029" class="LineNr">10029 </span> 55/push-ebp -<span id="L10030" class="LineNr">10030 </span> 89/<- %ebp 4/r32/esp -<span id="L10031" class="LineNr">10031 </span> <span class="subxComment"># setup</span> -<span id="L10032" class="LineNr">10032 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10033" class="LineNr">10033 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10034" class="LineNr">10034 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L10035" class="LineNr">10035 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10036" class="LineNr">10036 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L10037" class="LineNr">10037 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L10038" class="LineNr">10038 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L10039" class="LineNr">10039 </span> 68/push 0/imm32 -<span id="L10040" class="LineNr">10040 </span> 68/push 0/imm32 -<span id="L10041" class="LineNr">10041 </span> 89/<- %edx 4/r32/esp -<span id="L10042" class="LineNr">10042 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L10043" class="LineNr">10043 </span> <span class="subxComment">#</span> -<span id="L10044" class="LineNr">10044 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10045" class="LineNr">10045 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) -<span id="L10046" class="LineNr">10046 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> a, y\n"</span>) -<span id="L10047" class="LineNr">10047 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10048" class="LineNr">10048 </span> <span class="subxComment"># convert</span> -<span id="L10049" class="LineNr">10049 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L10050" class="LineNr">10050 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L10051" class="LineNr">10051 </span> <span class="subxComment"># restore ed</span> -<span id="L10052" class="LineNr">10052 </span> 89/<- %edx 4/r32/esp -<span id="L10053" class="LineNr">10053 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L10054" class="LineNr">10054 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L10055" class="Folded">10055 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10061" class="LineNr">10061 </span> <span class="subxComment"># check output</span> -<span id="L10062" class="LineNr">10062 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10027'>test-get-with-wrong-base-type</a>: output should be empty"</span>) -<span id="L10063" class="LineNr">10063 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='131table.subx.html#L26'>get</a>: var 'a' must have a 'type' definition"</span> <span class="Constant">"F - <a href='mu.subx.html#L10027'>test-get-with-wrong-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L10064" class="LineNr">10064 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L10065" class="LineNr">10065 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10027'>test-get-with-wrong-base-type</a>: exit status"</span>) -<span id="L10066" class="LineNr">10066 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L10067" class="LineNr">10067 </span> 81 0/subop/add %esp 8/imm32 -<span id="L10068" class="LineNr">10068 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10069" class="LineNr">10069 </span> 5d/pop-to-ebp -<span id="L10070" class="LineNr">10070 </span> c3/return -<span id="L10071" class="LineNr">10071 </span> -<span id="L10072" class="LineNr">10072 </span><span class="subxTest">test-get-with-wrong-base-type-2</span>: -<span id="L10073" class="LineNr">10073 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10074" class="LineNr">10074 </span> 55/push-ebp -<span id="L10075" class="LineNr">10075 </span> 89/<- %ebp 4/r32/esp -<span id="L10076" class="LineNr">10076 </span> <span class="subxComment"># setup</span> -<span id="L10077" class="LineNr">10077 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10078" class="LineNr">10078 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10079" class="LineNr">10079 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L10080" class="LineNr">10080 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10081" class="LineNr">10081 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L10082" class="LineNr">10082 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L10083" class="LineNr">10083 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L10084" class="LineNr">10084 </span> 68/push 0/imm32 -<span id="L10085" class="LineNr">10085 </span> 68/push 0/imm32 -<span id="L10086" class="LineNr">10086 </span> 89/<- %edx 4/r32/esp -<span id="L10087" class="LineNr">10087 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L10088" class="LineNr">10088 </span> <span class="subxComment">#</span> -<span id="L10089" class="LineNr">10089 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10090" class="LineNr">10090 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr t)\n"</span>) -<span id="L10091" class="LineNr">10091 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> a, y\n"</span>) -<span id="L10092" class="LineNr">10092 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10093" class="LineNr">10093 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L10094" class="LineNr">10094 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L10095" class="LineNr">10095 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10096" class="LineNr">10096 </span> <span class="subxComment"># convert</span> -<span id="L10097" class="LineNr">10097 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L10098" class="LineNr">10098 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L10099" class="LineNr">10099 </span> <span class="subxComment"># restore ed</span> -<span id="L10100" class="LineNr">10100 </span> 89/<- %edx 4/r32/esp -<span id="L10101" class="LineNr">10101 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L10102" class="LineNr">10102 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L10103" class="Folded">10103 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10109" class="LineNr">10109 </span> <span class="subxComment"># check output</span> -<span id="L10110" class="LineNr">10110 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10072'>test-get-with-wrong-base-type-2</a>: output should be empty"</span>) -<span id="L10111" class="LineNr">10111 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='131table.subx.html#L26'>get</a>: var 'a' is an 'addr' type, and so must live in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L10072'>test-get-with-wrong-base-type-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L10112" class="LineNr">10112 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L10113" class="LineNr">10113 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10072'>test-get-with-wrong-base-type-2</a>: exit status"</span>) -<span id="L10114" class="LineNr">10114 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L10115" class="LineNr">10115 </span> 81 0/subop/add %esp 8/imm32 -<span id="L10116" class="LineNr">10116 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10117" class="LineNr">10117 </span> 5d/pop-to-ebp -<span id="L10118" class="LineNr">10118 </span> c3/return -<span id="L10119" class="LineNr">10119 </span> -<span id="L10120" class="LineNr">10120 </span><span class="subxTest">test-get-with-wrong-base-type-3</span>: -<span id="L10121" class="LineNr">10121 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10122" class="LineNr">10122 </span> 55/push-ebp -<span id="L10123" class="LineNr">10123 </span> 89/<- %ebp 4/r32/esp -<span id="L10124" class="LineNr">10124 </span> <span class="subxComment"># setup</span> -<span id="L10125" class="LineNr">10125 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10126" class="LineNr">10126 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10127" class="LineNr">10127 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L10128" class="LineNr">10128 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10129" class="LineNr">10129 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L10130" class="LineNr">10130 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L10131" class="LineNr">10131 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L10132" class="LineNr">10132 </span> 68/push 0/imm32 -<span id="L10133" class="LineNr">10133 </span> 68/push 0/imm32 -<span id="L10134" class="LineNr">10134 </span> 89/<- %edx 4/r32/esp -<span id="L10135" class="LineNr">10135 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L10136" class="LineNr">10136 </span> <span class="subxComment">#</span> -<span id="L10137" class="LineNr">10137 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10138" class="LineNr">10138 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (handle int)\n"</span>) -<span id="L10139" class="LineNr">10139 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> a, y\n"</span>) -<span id="L10140" class="LineNr">10140 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10141" class="LineNr">10141 </span> <span class="subxComment"># convert</span> -<span id="L10142" class="LineNr">10142 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L10143" class="LineNr">10143 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L10144" class="LineNr">10144 </span> <span class="subxComment"># restore ed</span> -<span id="L10145" class="LineNr">10145 </span> 89/<- %edx 4/r32/esp -<span id="L10146" class="LineNr">10146 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L10147" class="LineNr">10147 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L10148" class="Folded">10148 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10154" class="LineNr">10154 </span> <span class="subxComment"># check output</span> -<span id="L10155" class="LineNr">10155 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10120'>test-get-with-wrong-base-type-3</a>: output should be empty"</span>) -<span id="L10156" class="LineNr">10156 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='131table.subx.html#L26'>get</a>: var 'a' must have a 'type' definition"</span> <span class="Constant">"F - <a href='mu.subx.html#L10120'>test-get-with-wrong-base-type-3</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L10157" class="LineNr">10157 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L10158" class="LineNr">10158 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10120'>test-get-with-wrong-base-type-3</a>: exit status"</span>) -<span id="L10159" class="LineNr">10159 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L10160" class="LineNr">10160 </span> 81 0/subop/add %esp 8/imm32 -<span id="L10161" class="LineNr">10161 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10162" class="LineNr">10162 </span> 5d/pop-to-ebp -<span id="L10163" class="LineNr">10163 </span> c3/return -<span id="L10164" class="LineNr">10164 </span> -<span id="L10165" class="LineNr">10165 </span><span class="subxTest">test-get-with-wrong-offset-type</span>: -<span id="L10166" class="LineNr">10166 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10167" class="LineNr">10167 </span> 55/push-ebp -<span id="L10168" class="LineNr">10168 </span> 89/<- %ebp 4/r32/esp -<span id="L10169" class="LineNr">10169 </span> <span class="subxComment"># setup</span> -<span id="L10170" class="LineNr">10170 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10171" class="LineNr">10171 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10172" class="LineNr">10172 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L10173" class="LineNr">10173 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10174" class="LineNr">10174 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L10175" class="LineNr">10175 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L10176" class="LineNr">10176 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L10177" class="LineNr">10177 </span> 68/push 0/imm32 -<span id="L10178" class="LineNr">10178 </span> 68/push 0/imm32 -<span id="L10179" class="LineNr">10179 </span> 89/<- %edx 4/r32/esp -<span id="L10180" class="LineNr">10180 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L10181" class="LineNr">10181 </span> <span class="subxComment">#</span> -<span id="L10182" class="LineNr">10182 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10183" class="LineNr">10183 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) -<span id="L10184" class="LineNr">10184 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: int\n"</span>) -<span id="L10185" class="LineNr">10185 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> a, b\n"</span>) -<span id="L10186" class="LineNr">10186 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10187" class="LineNr">10187 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L10188" class="LineNr">10188 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L10189" class="LineNr">10189 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10190" class="LineNr">10190 </span> <span class="subxComment"># convert</span> -<span id="L10191" class="LineNr">10191 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L10192" class="LineNr">10192 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L10193" class="LineNr">10193 </span> <span class="subxComment"># restore ed</span> -<span id="L10194" class="LineNr">10194 </span> 89/<- %edx 4/r32/esp -<span id="L10195" class="LineNr">10195 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L10196" class="LineNr">10196 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L10197" class="Folded">10197 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10203" class="LineNr">10203 </span> <span class="subxComment"># check output</span> -<span id="L10204" class="LineNr">10204 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10165'>test-get-with-wrong-offset-type</a>: output should be empty"</span>) -<span id="L10205" class="LineNr">10205 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='131table.subx.html#L26'>get</a>: type 't' has no member called 'b'"</span> <span class="Constant">"F - <a href='mu.subx.html#L10165'>test-get-with-wrong-offset-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L10206" class="LineNr">10206 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L10207" class="LineNr">10207 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10165'>test-get-with-wrong-offset-type</a>: exit status"</span>) -<span id="L10208" class="LineNr">10208 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L10209" class="LineNr">10209 </span> 81 0/subop/add %esp 8/imm32 -<span id="L10210" class="LineNr">10210 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10211" class="LineNr">10211 </span> 5d/pop-to-ebp -<span id="L10212" class="LineNr">10212 </span> c3/return -<span id="L10213" class="LineNr">10213 </span> -<span id="L10214" class="LineNr">10214 </span><span class="subxTest">test-get-with-wrong-output-type</span>: -<span id="L10215" class="LineNr">10215 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10216" class="LineNr">10216 </span> 55/push-ebp -<span id="L10217" class="LineNr">10217 </span> 89/<- %ebp 4/r32/esp -<span id="L10218" class="LineNr">10218 </span> <span class="subxComment"># setup</span> -<span id="L10219" class="LineNr">10219 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10220" class="LineNr">10220 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10221" class="LineNr">10221 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L10222" class="LineNr">10222 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10223" class="LineNr">10223 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L10224" class="LineNr">10224 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L10225" class="LineNr">10225 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L10226" class="LineNr">10226 </span> 68/push 0/imm32 -<span id="L10227" class="LineNr">10227 </span> 68/push 0/imm32 -<span id="L10228" class="LineNr">10228 </span> 89/<- %edx 4/r32/esp -<span id="L10229" class="LineNr">10229 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L10230" class="LineNr">10230 </span> <span class="subxComment">#</span> -<span id="L10231" class="LineNr">10231 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10232" class="LineNr">10232 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) -<span id="L10233" class="LineNr">10233 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c: (addr int)\n"</span>) -<span id="L10234" class="LineNr">10234 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" c <- <a href='131table.subx.html#L26'>get</a> a, x\n"</span>) -<span id="L10235" class="LineNr">10235 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10236" class="LineNr">10236 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L10237" class="LineNr">10237 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L10238" class="LineNr">10238 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10239" class="LineNr">10239 </span> <span class="subxComment"># convert</span> -<span id="L10240" class="LineNr">10240 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L10241" class="LineNr">10241 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L10242" class="LineNr">10242 </span> <span class="subxComment"># restore ed</span> -<span id="L10243" class="LineNr">10243 </span> 89/<- %edx 4/r32/esp -<span id="L10244" class="LineNr">10244 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L10245" class="LineNr">10245 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L10246" class="Folded">10246 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10252" class="LineNr">10252 </span> <span class="subxComment"># check output</span> -<span id="L10253" class="LineNr">10253 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10214'>test-get-with-wrong-output-type</a>: output should be empty"</span>) -<span id="L10254" class="LineNr">10254 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='131table.subx.html#L26'>get</a>: output 'c' is not in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L10214'>test-get-with-wrong-output-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L10255" class="LineNr">10255 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L10256" class="LineNr">10256 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10214'>test-get-with-wrong-output-type</a>: exit status"</span>) -<span id="L10257" class="LineNr">10257 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L10258" class="LineNr">10258 </span> 81 0/subop/add %esp 8/imm32 -<span id="L10259" class="LineNr">10259 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10260" class="LineNr">10260 </span> 5d/pop-to-ebp -<span id="L10261" class="LineNr">10261 </span> c3/return -<span id="L10262" class="LineNr">10262 </span> -<span id="L10263" class="LineNr">10263 </span><span class="subxTest">test-get-with-wrong-output-type-2</span>: -<span id="L10264" class="LineNr">10264 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10265" class="LineNr">10265 </span> 55/push-ebp -<span id="L10266" class="LineNr">10266 </span> 89/<- %ebp 4/r32/esp -<span id="L10267" class="LineNr">10267 </span> <span class="subxComment"># setup</span> -<span id="L10268" class="LineNr">10268 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10269" class="LineNr">10269 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10270" class="LineNr">10270 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L10271" class="LineNr">10271 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10272" class="LineNr">10272 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L10273" class="LineNr">10273 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L10274" class="LineNr">10274 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L10275" class="LineNr">10275 </span> 68/push 0/imm32 -<span id="L10276" class="LineNr">10276 </span> 68/push 0/imm32 -<span id="L10277" class="LineNr">10277 </span> 89/<- %edx 4/r32/esp -<span id="L10278" class="LineNr">10278 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L10279" class="LineNr">10279 </span> <span class="subxComment">#</span> -<span id="L10280" class="LineNr">10280 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10281" class="LineNr">10281 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) -<span id="L10282" class="LineNr">10282 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: int <- <a href='131table.subx.html#L26'>get</a> a, x\n"</span>) -<span id="L10283" class="LineNr">10283 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10284" class="LineNr">10284 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L10285" class="LineNr">10285 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L10286" class="LineNr">10286 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10287" class="LineNr">10287 </span> <span class="subxComment"># convert</span> -<span id="L10288" class="LineNr">10288 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L10289" class="LineNr">10289 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L10290" class="LineNr">10290 </span> <span class="subxComment"># restore ed</span> -<span id="L10291" class="LineNr">10291 </span> 89/<- %edx 4/r32/esp -<span id="L10292" class="LineNr">10292 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L10293" class="LineNr">10293 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L10294" class="Folded">10294 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10300" class="LineNr">10300 </span> <span class="subxComment"># check output</span> -<span id="L10301" class="LineNr">10301 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10263'>test-get-with-wrong-output-type-2</a>: output should be empty"</span>) -<span id="L10302" class="LineNr">10302 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='131table.subx.html#L26'>get</a>: output must be an addr"</span> <span class="Constant">"F - <a href='mu.subx.html#L10263'>test-get-with-wrong-output-type-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L10303" class="LineNr">10303 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L10304" class="LineNr">10304 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10263'>test-get-with-wrong-output-type-2</a>: exit status"</span>) -<span id="L10305" class="LineNr">10305 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L10306" class="LineNr">10306 </span> 81 0/subop/add %esp 8/imm32 -<span id="L10307" class="LineNr">10307 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10308" class="LineNr">10308 </span> 5d/pop-to-ebp -<span id="L10309" class="LineNr">10309 </span> c3/return -<span id="L10310" class="LineNr">10310 </span> -<span id="L10311" class="LineNr">10311 </span><span class="subxTest">test-get-with-wrong-output-type-3</span>: -<span id="L10312" class="LineNr">10312 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10313" class="LineNr">10313 </span> 55/push-ebp -<span id="L10314" class="LineNr">10314 </span> 89/<- %ebp 4/r32/esp -<span id="L10315" class="LineNr">10315 </span> <span class="subxComment"># setup</span> -<span id="L10316" class="LineNr">10316 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10317" class="LineNr">10317 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10318" class="LineNr">10318 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L10319" class="LineNr">10319 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10320" class="LineNr">10320 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L10321" class="LineNr">10321 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L10322" class="LineNr">10322 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L10323" class="LineNr">10323 </span> 68/push 0/imm32 -<span id="L10324" class="LineNr">10324 </span> 68/push 0/imm32 -<span id="L10325" class="LineNr">10325 </span> 89/<- %edx 4/r32/esp -<span id="L10326" class="LineNr">10326 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L10327" class="LineNr">10327 </span> <span class="subxComment">#</span> -<span id="L10328" class="LineNr">10328 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10329" class="LineNr">10329 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) -<span id="L10330" class="LineNr">10330 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (array int) <- <a href='131table.subx.html#L26'>get</a> a, x\n"</span>) -<span id="L10331" class="LineNr">10331 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10332" class="LineNr">10332 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L10333" class="LineNr">10333 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L10334" class="LineNr">10334 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10335" class="LineNr">10335 </span> <span class="subxComment"># convert</span> -<span id="L10336" class="LineNr">10336 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L10337" class="LineNr">10337 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L10338" class="LineNr">10338 </span> <span class="subxComment"># restore ed</span> -<span id="L10339" class="LineNr">10339 </span> 89/<- %edx 4/r32/esp -<span id="L10340" class="LineNr">10340 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L10341" class="LineNr">10341 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L10342" class="Folded">10342 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10348" class="LineNr">10348 </span> <span class="subxComment"># check output</span> -<span id="L10349" class="LineNr">10349 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10311'>test-get-with-wrong-output-type-3</a>: output should be empty"</span>) -<span id="L10350" class="LineNr">10350 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='131table.subx.html#L26'>get</a>: output must be an addr"</span> <span class="Constant">"F - <a href='mu.subx.html#L10311'>test-get-with-wrong-output-type-3</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L10351" class="LineNr">10351 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L10352" class="LineNr">10352 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10311'>test-get-with-wrong-output-type-3</a>: exit status"</span>) -<span id="L10353" class="LineNr">10353 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L10354" class="LineNr">10354 </span> 81 0/subop/add %esp 8/imm32 -<span id="L10355" class="LineNr">10355 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10356" class="LineNr">10356 </span> 5d/pop-to-ebp -<span id="L10357" class="LineNr">10357 </span> c3/return -<span id="L10358" class="LineNr">10358 </span> -<span id="L10359" class="LineNr">10359 </span><span class="subxTest">test-get-with-wrong-output-type-4</span>: -<span id="L10360" class="LineNr">10360 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10361" class="LineNr">10361 </span> 55/push-ebp -<span id="L10362" class="LineNr">10362 </span> 89/<- %ebp 4/r32/esp -<span id="L10363" class="LineNr">10363 </span> <span class="subxComment"># setup</span> -<span id="L10364" class="LineNr">10364 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10365" class="LineNr">10365 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10366" class="LineNr">10366 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L10367" class="LineNr">10367 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10368" class="LineNr">10368 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L10369" class="LineNr">10369 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L10370" class="LineNr">10370 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L10371" class="LineNr">10371 </span> 68/push 0/imm32 -<span id="L10372" class="LineNr">10372 </span> 68/push 0/imm32 -<span id="L10373" class="LineNr">10373 </span> 89/<- %edx 4/r32/esp -<span id="L10374" class="LineNr">10374 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L10375" class="LineNr">10375 </span> <span class="subxComment">#</span> -<span id="L10376" class="LineNr">10376 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10377" class="LineNr">10377 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) -<span id="L10378" class="LineNr">10378 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr boolean) <- <a href='131table.subx.html#L26'>get</a> a, x\n"</span>) -<span id="L10379" class="LineNr">10379 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10380" class="LineNr">10380 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L10381" class="LineNr">10381 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L10382" class="LineNr">10382 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10383" class="LineNr">10383 </span> <span class="subxComment"># convert</span> -<span id="L10384" class="LineNr">10384 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L10385" class="LineNr">10385 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L10386" class="LineNr">10386 </span> <span class="subxComment"># restore ed</span> -<span id="L10387" class="LineNr">10387 </span> 89/<- %edx 4/r32/esp -<span id="L10388" class="LineNr">10388 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L10389" class="LineNr">10389 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L10390" class="Folded">10390 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10396" class="LineNr">10396 </span> <span class="subxComment"># check output</span> -<span id="L10397" class="LineNr">10397 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10359'>test-get-with-wrong-output-type-4</a>: output should be empty"</span>) -<span id="L10398" class="LineNr">10398 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='131table.subx.html#L26'>get</a>: wrong output type for member 'x' of type 't'"</span> <span class="Constant">"F - <a href='mu.subx.html#L10359'>test-get-with-wrong-output-type-4</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L10399" class="LineNr">10399 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L10400" class="LineNr">10400 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10359'>test-get-with-wrong-output-type-4</a>: exit status"</span>) -<span id="L10401" class="LineNr">10401 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L10402" class="LineNr">10402 </span> 81 0/subop/add %esp 8/imm32 -<span id="L10403" class="LineNr">10403 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10404" class="LineNr">10404 </span> 5d/pop-to-ebp -<span id="L10405" class="LineNr">10405 </span> c3/return -<span id="L10406" class="LineNr">10406 </span> -<span id="L10407" class="LineNr">10407 </span><span class="subxTest">test-get-with-wrong-output-type-5</span>: -<span id="L10408" class="LineNr">10408 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10409" class="LineNr">10409 </span> 55/push-ebp -<span id="L10410" class="LineNr">10410 </span> 89/<- %ebp 4/r32/esp -<span id="L10411" class="LineNr">10411 </span> <span class="subxComment"># setup</span> -<span id="L10412" class="LineNr">10412 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10413" class="LineNr">10413 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10414" class="LineNr">10414 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L10415" class="LineNr">10415 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10416" class="LineNr">10416 </span> <span class="subxComment">#</span> -<span id="L10417" class="LineNr">10417 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10418" class="LineNr">10418 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) -<span id="L10419" class="LineNr">10419 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr handle int) <- <a href='131table.subx.html#L26'>get</a> a, x\n"</span>) -<span id="L10420" class="LineNr">10420 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10421" class="LineNr">10421 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L10422" class="LineNr">10422 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: (handle int)\n"</span>) -<span id="L10423" class="LineNr">10423 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10424" class="LineNr">10424 </span> <span class="subxComment"># convert</span> -<span id="L10425" class="LineNr">10425 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L10426" class="LineNr">10426 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L10427" class="LineNr">10427 </span> <span class="subxComment"># no errors</span> -<span id="L10428" class="LineNr">10428 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10429" class="LineNr">10429 </span> 89/<- %esp 5/r32/ebp -<span id="L10430" class="LineNr">10430 </span> 5d/pop-to-ebp -<span id="L10431" class="LineNr">10431 </span> c3/return -<span id="L10432" class="LineNr">10432 </span> -<span id="L10433" class="LineNr">10433 </span><span class="subxTest">test-get-with-too-few-inouts</span>: -<span id="L10434" class="LineNr">10434 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10435" class="LineNr">10435 </span> 55/push-ebp -<span id="L10436" class="LineNr">10436 </span> 89/<- %ebp 4/r32/esp -<span id="L10437" class="LineNr">10437 </span> <span class="subxComment"># setup</span> -<span id="L10438" class="LineNr">10438 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10439" class="LineNr">10439 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10440" class="LineNr">10440 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L10441" class="LineNr">10441 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10442" class="LineNr">10442 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L10443" class="LineNr">10443 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L10444" class="LineNr">10444 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L10445" class="LineNr">10445 </span> 68/push 0/imm32 -<span id="L10446" class="LineNr">10446 </span> 68/push 0/imm32 -<span id="L10447" class="LineNr">10447 </span> 89/<- %edx 4/r32/esp -<span id="L10448" class="LineNr">10448 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L10449" class="LineNr">10449 </span> <span class="subxComment">#</span> -<span id="L10450" class="LineNr">10450 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10451" class="LineNr">10451 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) -<span id="L10452" class="LineNr">10452 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> a\n"</span>) -<span id="L10453" class="LineNr">10453 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10454" class="LineNr">10454 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L10455" class="LineNr">10455 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L10456" class="LineNr">10456 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10457" class="LineNr">10457 </span> <span class="subxComment"># convert</span> -<span id="L10458" class="LineNr">10458 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L10459" class="LineNr">10459 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L10460" class="LineNr">10460 </span> <span class="subxComment"># restore ed</span> -<span id="L10461" class="LineNr">10461 </span> 89/<- %edx 4/r32/esp -<span id="L10462" class="LineNr">10462 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L10463" class="LineNr">10463 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L10464" class="Folded">10464 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10470" class="LineNr">10470 </span> <span class="subxComment"># check output</span> -<span id="L10471" class="LineNr">10471 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10433'>test-get-with-too-few-inouts</a>: output should be empty"</span>) -<span id="L10472" class="LineNr">10472 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='131table.subx.html#L26'>get</a>: too few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L10433'>test-get-with-too-few-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L10473" class="LineNr">10473 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L10474" class="LineNr">10474 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10433'>test-get-with-too-few-inouts</a>: exit status"</span>) -<span id="L10475" class="LineNr">10475 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L10476" class="LineNr">10476 </span> 81 0/subop/add %esp 8/imm32 -<span id="L10477" class="LineNr">10477 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10478" class="LineNr">10478 </span> 5d/pop-to-ebp -<span id="L10479" class="LineNr">10479 </span> c3/return -<span id="L10480" class="LineNr">10480 </span> -<span id="L10481" class="LineNr">10481 </span><span class="subxTest">test-get-with-too-many-inouts</span>: -<span id="L10482" class="LineNr">10482 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10483" class="LineNr">10483 </span> 55/push-ebp -<span id="L10484" class="LineNr">10484 </span> 89/<- %ebp 4/r32/esp -<span id="L10485" class="LineNr">10485 </span> <span class="subxComment"># setup</span> -<span id="L10486" class="LineNr">10486 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10487" class="LineNr">10487 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10488" class="LineNr">10488 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L10489" class="LineNr">10489 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10490" class="LineNr">10490 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L10491" class="LineNr">10491 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L10492" class="LineNr">10492 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L10493" class="LineNr">10493 </span> 68/push 0/imm32 -<span id="L10494" class="LineNr">10494 </span> 68/push 0/imm32 -<span id="L10495" class="LineNr">10495 </span> 89/<- %edx 4/r32/esp -<span id="L10496" class="LineNr">10496 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L10497" class="LineNr">10497 </span> <span class="subxComment">#</span> -<span id="L10498" class="LineNr">10498 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10499" class="LineNr">10499 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) -<span id="L10500" class="LineNr">10500 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> a, x, 0\n"</span>) -<span id="L10501" class="LineNr">10501 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10502" class="LineNr">10502 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L10503" class="LineNr">10503 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L10504" class="LineNr">10504 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10505" class="LineNr">10505 </span> <span class="subxComment"># convert</span> -<span id="L10506" class="LineNr">10506 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L10507" class="LineNr">10507 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L10508" class="LineNr">10508 </span> <span class="subxComment"># restore ed</span> -<span id="L10509" class="LineNr">10509 </span> 89/<- %edx 4/r32/esp -<span id="L10510" class="LineNr">10510 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L10511" class="LineNr">10511 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L10512" class="Folded">10512 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10518" class="LineNr">10518 </span> <span class="subxComment"># check output</span> -<span id="L10519" class="LineNr">10519 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10481'>test-get-with-too-many-inouts</a>: output should be empty"</span>) -<span id="L10520" class="LineNr">10520 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='131table.subx.html#L26'>get</a>: too many inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L10481'>test-get-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L10521" class="LineNr">10521 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L10522" class="LineNr">10522 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10481'>test-get-with-too-many-inouts</a>: exit status"</span>) -<span id="L10523" class="LineNr">10523 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L10524" class="LineNr">10524 </span> 81 0/subop/add %esp 8/imm32 -<span id="L10525" class="LineNr">10525 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10526" class="LineNr">10526 </span> 5d/pop-to-ebp -<span id="L10527" class="LineNr">10527 </span> c3/return -<span id="L10528" class="LineNr">10528 </span> -<span id="L10529" class="LineNr">10529 </span><span class="subxTest">test-get-with-no-output</span>: -<span id="L10530" class="LineNr">10530 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10531" class="LineNr">10531 </span> 55/push-ebp -<span id="L10532" class="LineNr">10532 </span> 89/<- %ebp 4/r32/esp -<span id="L10533" class="LineNr">10533 </span> <span class="subxComment"># setup</span> -<span id="L10534" class="LineNr">10534 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10535" class="LineNr">10535 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10536" class="LineNr">10536 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L10537" class="LineNr">10537 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10538" class="LineNr">10538 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L10539" class="LineNr">10539 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L10540" class="LineNr">10540 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L10541" class="LineNr">10541 </span> 68/push 0/imm32 -<span id="L10542" class="LineNr">10542 </span> 68/push 0/imm32 -<span id="L10543" class="LineNr">10543 </span> 89/<- %edx 4/r32/esp -<span id="L10544" class="LineNr">10544 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L10545" class="LineNr">10545 </span> <span class="subxComment">#</span> -<span id="L10546" class="LineNr">10546 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10547" class="LineNr">10547 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) -<span id="L10548" class="LineNr">10548 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='131table.subx.html#L26'>get</a> a, x\n"</span>) -<span id="L10549" class="LineNr">10549 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10550" class="LineNr">10550 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L10551" class="LineNr">10551 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L10552" class="LineNr">10552 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10553" class="LineNr">10553 </span> <span class="subxComment"># convert</span> -<span id="L10554" class="LineNr">10554 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L10555" class="LineNr">10555 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L10556" class="LineNr">10556 </span> <span class="subxComment"># restore ed</span> -<span id="L10557" class="LineNr">10557 </span> 89/<- %edx 4/r32/esp -<span id="L10558" class="LineNr">10558 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L10559" class="LineNr">10559 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L10560" class="Folded">10560 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10566" class="LineNr">10566 </span> <span class="subxComment"># check output</span> -<span id="L10567" class="LineNr">10567 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10529'>test-get-with-no-output</a>: output should be empty"</span>) -<span id="L10568" class="LineNr">10568 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='131table.subx.html#L26'>get</a>: must have an output"</span> <span class="Constant">"F - <a href='mu.subx.html#L10529'>test-get-with-no-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L10569" class="LineNr">10569 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L10570" class="LineNr">10570 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10529'>test-get-with-no-output</a>: exit status"</span>) -<span id="L10571" class="LineNr">10571 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L10572" class="LineNr">10572 </span> 81 0/subop/add %esp 8/imm32 -<span id="L10573" class="LineNr">10573 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10574" class="LineNr">10574 </span> 5d/pop-to-ebp -<span id="L10575" class="LineNr">10575 </span> c3/return -<span id="L10576" class="LineNr">10576 </span> -<span id="L10577" class="LineNr">10577 </span><span class="subxTest">test-get-with-too-many-outputs</span>: -<span id="L10578" class="LineNr">10578 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10579" class="LineNr">10579 </span> 55/push-ebp -<span id="L10580" class="LineNr">10580 </span> 89/<- %ebp 4/r32/esp -<span id="L10581" class="LineNr">10581 </span> <span class="subxComment"># setup</span> -<span id="L10582" class="LineNr">10582 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10583" class="LineNr">10583 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10584" class="LineNr">10584 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L10585" class="LineNr">10585 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10586" class="LineNr">10586 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L10587" class="LineNr">10587 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L10588" class="LineNr">10588 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L10589" class="LineNr">10589 </span> 68/push 0/imm32 -<span id="L10590" class="LineNr">10590 </span> 68/push 0/imm32 -<span id="L10591" class="LineNr">10591 </span> 89/<- %edx 4/r32/esp -<span id="L10592" class="LineNr">10592 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L10593" class="LineNr">10593 </span> <span class="subxComment">#</span> -<span id="L10594" class="LineNr">10594 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10595" class="LineNr">10595 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) -<span id="L10596" class="LineNr">10596 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: int\n"</span>) -<span id="L10597" class="LineNr">10597 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/eax: (addr int) <- copy 0\n"</span>) -<span id="L10598" class="LineNr">10598 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" c, b <- <a href='131table.subx.html#L26'>get</a> a, x\n"</span>) -<span id="L10599" class="LineNr">10599 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10600" class="LineNr">10600 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L10601" class="LineNr">10601 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L10602" class="LineNr">10602 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10603" class="LineNr">10603 </span> <span class="subxComment"># convert</span> -<span id="L10604" class="LineNr">10604 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L10605" class="LineNr">10605 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L10606" class="LineNr">10606 </span> <span class="subxComment"># restore ed</span> -<span id="L10607" class="LineNr">10607 </span> 89/<- %edx 4/r32/esp -<span id="L10608" class="LineNr">10608 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L10609" class="LineNr">10609 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L10610" class="Folded">10610 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10616" class="LineNr">10616 </span> <span class="subxComment"># check output</span> -<span id="L10617" class="LineNr">10617 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10577'>test-get-with-too-many-outputs</a>: output should be empty"</span>) -<span id="L10618" class="LineNr">10618 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='131table.subx.html#L26'>get</a>: too many outputs (1 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L10577'>test-get-with-too-many-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L10619" class="LineNr">10619 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L10620" class="LineNr">10620 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10577'>test-get-with-too-many-outputs</a>: exit status"</span>) -<span id="L10621" class="LineNr">10621 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L10622" class="LineNr">10622 </span> 81 0/subop/add %esp 8/imm32 -<span id="L10623" class="LineNr">10623 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10624" class="LineNr">10624 </span> 5d/pop-to-ebp -<span id="L10625" class="LineNr">10625 </span> c3/return -<span id="L10626" class="LineNr">10626 </span> -<span id="L10627" class="LineNr">10627 </span><span class="subxTest">test-convert-array-of-user-defined-types</span>: -<span id="L10628" class="LineNr">10628 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10629" class="LineNr">10629 </span> 55/push-ebp -<span id="L10630" class="LineNr">10630 </span> 89/<- %ebp 4/r32/esp -<span id="L10631" class="LineNr">10631 </span> <span class="subxComment"># setup</span> -<span id="L10632" class="LineNr">10632 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10633" class="LineNr">10633 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10634" class="LineNr">10634 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L10635" class="LineNr">10635 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10636" class="LineNr">10636 </span> <span class="subxComment">#</span> -<span id="L10637" class="LineNr">10637 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) <span class="subxComment"># each t is 8 bytes, which is a power of 2</span> -<span id="L10638" class="LineNr">10638 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L10639" class="LineNr">10639 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) -<span id="L10640" class="LineNr">10640 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10641" class="LineNr">10641 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10642" class="LineNr">10642 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array t) <- copy 0\n"</span>) -<span id="L10643" class="LineNr">10643 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var idx/ecx: int <- copy 3\n"</span>) -<span id="L10644" class="LineNr">10644 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr t) <- index arr, idx\n"</span>) -<span id="L10645" class="LineNr">10645 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10646" class="LineNr">10646 </span> <span class="subxComment"># convert</span> -<span id="L10647" class="LineNr">10647 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L10648" class="LineNr">10648 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L10649" class="Folded">10649 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10655" class="LineNr">10655 </span> <span class="subxComment"># check output</span> -<span id="L10656" class="LineNr">10656 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10627'>test-convert-array-of-user-defined-types</a>/0"</span>) -<span id="L10657" class="LineNr">10657 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-array-of-user-defined-types/1"</span>) -<span id="L10658" class="LineNr">10658 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10627'>test-convert-array-of-user-defined-types</a>/2"</span>) -<span id="L10659" class="LineNr">10659 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10627'>test-convert-array-of-user-defined-types</a>/3"</span>) -<span id="L10660" class="LineNr">10660 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L10627'>test-convert-array-of-user-defined-types</a>/4"</span>) -<span id="L10661" class="LineNr">10661 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10627'>test-convert-array-of-user-defined-types</a>/5"</span>) -<span id="L10662" class="LineNr">10662 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10627'>test-convert-array-of-user-defined-types</a>/6"</span>) -<span id="L10663" class="LineNr">10663 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10627'>test-convert-array-of-user-defined-types</a>/7"</span>) -<span id="L10664" class="LineNr">10664 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10627'>test-convert-array-of-user-defined-types</a>/8"</span>) -<span id="L10665" class="LineNr">10665 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10627'>test-convert-array-of-user-defined-types</a>/9"</span>) -<span id="L10666" class="LineNr">10666 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> %ecx 0x00000008 *eax \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L10627'>test-convert-array-of-user-defined-types</a>/10"</span>) -<span id="L10667" class="LineNr">10667 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + ecx<<0x00000003 + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10627'>test-convert-array-of-user-defined-types</a>/11"</span>) -<span id="L10668" class="LineNr">10668 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10627'>test-convert-array-of-user-defined-types</a>/12"</span>) -<span id="L10669" class="LineNr">10669 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10627'>test-convert-array-of-user-defined-types</a>/13"</span>) -<span id="L10670" class="LineNr">10670 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L10627'>test-convert-array-of-user-defined-types</a>/14"</span>) -<span id="L10671" class="LineNr">10671 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10627'>test-convert-array-of-user-defined-types</a>/15"</span>) -<span id="L10672" class="LineNr">10672 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-array-of-user-defined-types/16"</span>) -<span id="L10673" class="LineNr">10673 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10627'>test-convert-array-of-user-defined-types</a>/17"</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#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10627'>test-convert-array-of-user-defined-types</a>/18"</span>) -<span id="L10675" class="LineNr">10675 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L10627'>test-convert-array-of-user-defined-types</a>/19"</span>) -<span id="L10676" class="LineNr">10676 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10677" class="LineNr">10677 </span> 89/<- %esp 5/r32/ebp -<span id="L10678" class="LineNr">10678 </span> 5d/pop-to-ebp -<span id="L10679" class="LineNr">10679 </span> c3/return -<span id="L10680" class="LineNr">10680 </span> -<span id="L10681" class="LineNr">10681 </span><span class="subxTest">test-convert-length-of-array-of-user-defined-types-to-eax</span>: -<span id="L10682" class="LineNr">10682 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10683" class="LineNr">10683 </span> 55/push-ebp -<span id="L10684" class="LineNr">10684 </span> 89/<- %ebp 4/r32/esp -<span id="L10685" class="LineNr">10685 </span> <span class="subxComment"># setup</span> -<span id="L10686" class="LineNr">10686 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10687" class="LineNr">10687 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10688" class="LineNr">10688 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L10689" class="LineNr">10689 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10690" class="LineNr">10690 </span> <span class="subxComment">#</span> -<span id="L10691" class="LineNr">10691 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) <span class="subxComment"># size = 12, which is not a power of 2</span> -<span id="L10692" class="LineNr">10692 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L10693" class="LineNr">10693 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) -<span id="L10694" class="LineNr">10694 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" z: int\n"</span>) -<span id="L10695" class="LineNr">10695 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10696" class="LineNr">10696 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10697" class="LineNr">10697 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array t) <- copy 0\n"</span>) -<span id="L10698" class="LineNr">10698 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- length arr\n"</span>) -<span id="L10699" class="LineNr">10699 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10700" class="LineNr">10700 </span> <span class="subxComment"># convert</span> -<span id="L10701" class="LineNr">10701 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L10702" class="LineNr">10702 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L10703" class="Folded">10703 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10709" class="LineNr">10709 </span> <span class="subxComment"># check output</span> -<span id="L10710" class="LineNr">10710 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/0"</span>) -<span id="L10711" class="LineNr">10711 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types-to-eax/1"</span>) -<span id="L10712" class="LineNr">10712 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/2"</span>) -<span id="L10713" class="LineNr">10713 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/3"</span>) -<span id="L10714" class="LineNr">10714 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/4"</span>) -<span id="L10715" class="LineNr">10715 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/5"</span>) -<span id="L10716" class="LineNr">10716 </span> <span class="subxComment"># var arr</span> -<span id="L10717" class="LineNr">10717 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/6"</span>) -<span id="L10718" class="LineNr">10718 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/7"</span>) -<span id="L10719" class="LineNr">10719 </span> <span class="subxComment"># length instruction</span> -<span id="L10720" class="LineNr">10720 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 51/push-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/8"</span>) -<span id="L10721" class="LineNr">10721 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 52/push-edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/9"</span>) -<span id="L10722" class="LineNr">10722 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/10"</span>) -<span id="L10723" class="LineNr">10723 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 31/xor %edx 2/r32/edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/11"</span>) -<span id="L10724" class="LineNr">10724 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/12"</span>) -<span id="L10725" class="LineNr">10725 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f7 7/subop/idiv-eax-edx-by %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/13"</span>) -<span id="L10726" class="LineNr">10726 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5a/pop-to-edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/14"</span>) -<span id="L10727" class="LineNr">10727 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 59/pop-to-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/15"</span>) -<span id="L10728" class="LineNr">10728 </span> <span class="subxComment"># reclaim arr</span> -<span id="L10729" class="LineNr">10729 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/16"</span>) -<span id="L10730" class="LineNr">10730 </span> <span class="subxComment">#</span> -<span id="L10731" class="LineNr">10731 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/17"</span>) -<span id="L10732" class="LineNr">10732 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/18"</span>) -<span id="L10733" class="LineNr">10733 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types-to-eax/19"</span>) -<span id="L10734" class="LineNr">10734 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/20"</span>) -<span id="L10735" class="LineNr">10735 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/21"</span>) -<span id="L10736" class="LineNr">10736 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/22"</span>) -<span id="L10737" class="LineNr">10737 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10738" class="LineNr">10738 </span> 89/<- %esp 5/r32/ebp -<span id="L10739" class="LineNr">10739 </span> 5d/pop-to-ebp -<span id="L10740" class="LineNr">10740 </span> c3/return -<span id="L10741" class="LineNr">10741 </span> -<span id="L10742" class="LineNr">10742 </span><span class="subxTest">test-convert-length-of-array-of-user-defined-types-to-ecx</span>: -<span id="L10743" class="LineNr">10743 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10744" class="LineNr">10744 </span> 55/push-ebp -<span id="L10745" class="LineNr">10745 </span> 89/<- %ebp 4/r32/esp -<span id="L10746" class="LineNr">10746 </span> <span class="subxComment"># setup</span> -<span id="L10747" class="LineNr">10747 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10748" class="LineNr">10748 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10749" class="LineNr">10749 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L10750" class="LineNr">10750 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10751" class="LineNr">10751 </span> <span class="subxComment">#</span> -<span id="L10752" class="LineNr">10752 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) <span class="subxComment"># size = 12, which is not a power of 2</span> -<span id="L10753" class="LineNr">10753 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L10754" class="LineNr">10754 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) -<span id="L10755" class="LineNr">10755 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" z: int\n"</span>) -<span id="L10756" class="LineNr">10756 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10757" class="LineNr">10757 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10758" class="LineNr">10758 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array t) <- copy 0\n"</span>) -<span id="L10759" class="LineNr">10759 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: int <- length arr\n"</span>) -<span id="L10760" class="LineNr">10760 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10761" class="LineNr">10761 </span> <span class="subxComment"># convert</span> -<span id="L10762" class="LineNr">10762 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L10763" class="LineNr">10763 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L10764" class="Folded">10764 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10770" class="LineNr">10770 </span> <span class="subxComment"># check output</span> -<span id="L10771" class="LineNr">10771 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10742'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/0"</span>) -<span id="L10772" class="LineNr">10772 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types-to-ecx/1"</span>) -<span id="L10773" class="LineNr">10773 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10742'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/2"</span>) -<span id="L10774" class="LineNr">10774 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10742'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/3"</span>) -<span id="L10775" class="LineNr">10775 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L10742'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/4"</span>) -<span id="L10776" class="LineNr">10776 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10742'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/5"</span>) -<span id="L10777" class="LineNr">10777 </span> <span class="subxComment"># var a</span> -<span id="L10778" class="LineNr">10778 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10742'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/6"</span>) -<span id="L10779" class="LineNr">10779 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10742'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/7"</span>) -<span id="L10780" class="LineNr">10780 </span> <span class="subxComment"># var x</span> -<span id="L10781" class="LineNr">10781 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10742'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/8"</span>) -<span id="L10782" class="LineNr">10782 </span> <span class="subxComment"># length instruction</span> -<span id="L10783" class="LineNr">10783 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 50/push-eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10742'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/9"</span>) -<span id="L10784" class="LineNr">10784 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 52/push-edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10742'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/10"</span>) -<span id="L10785" class="LineNr">10785 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10742'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/11"</span>) -<span id="L10786" class="LineNr">10786 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 31/xor %edx 2/r32/edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10742'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/12"</span>) -<span id="L10787" class="LineNr">10787 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10742'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/13"</span>) -<span id="L10788" class="LineNr">10788 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f7 7/subop/idiv-eax-edx-by %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10742'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/14"</span>) -<span id="L10789" class="LineNr">10789 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ecx 0/r32/eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10742'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/15"</span>) -<span id="L10790" class="LineNr">10790 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5a/pop-to-edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10742'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/16"</span>) -<span id="L10791" class="LineNr">10791 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 58/pop-to-eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10742'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/17"</span>) -<span id="L10792" class="LineNr">10792 </span> <span class="subxComment"># reclaim x</span> -<span id="L10793" class="LineNr">10793 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10742'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/18"</span>) -<span id="L10794" class="LineNr">10794 </span> <span class="subxComment"># reclaim a</span> -<span id="L10795" class="LineNr">10795 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10742'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/19"</span>) -<span id="L10796" class="LineNr">10796 </span> <span class="subxComment">#</span> -<span id="L10797" class="LineNr">10797 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L10742'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/20"</span>) -<span id="L10798" class="LineNr">10798 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10742'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/21"</span>) -<span id="L10799" class="LineNr">10799 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types-to-ecx/22"</span>) -<span id="L10800" class="LineNr">10800 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10742'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/23"</span>) -<span id="L10801" class="LineNr">10801 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10742'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/24"</span>) -<span id="L10802" class="LineNr">10802 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L10742'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/25"</span>) -<span id="L10803" class="LineNr">10803 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10804" class="LineNr">10804 </span> 89/<- %esp 5/r32/ebp -<span id="L10805" class="LineNr">10805 </span> 5d/pop-to-ebp -<span id="L10806" class="LineNr">10806 </span> c3/return -<span id="L10807" class="LineNr">10807 </span> -<span id="L10808" class="LineNr">10808 </span><span class="subxTest">test-convert-length-of-array-of-user-defined-types-to-edx</span>: -<span id="L10809" class="LineNr">10809 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10810" class="LineNr">10810 </span> 55/push-ebp -<span id="L10811" class="LineNr">10811 </span> 89/<- %ebp 4/r32/esp -<span id="L10812" class="LineNr">10812 </span> <span class="subxComment"># setup</span> -<span id="L10813" class="LineNr">10813 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10814" class="LineNr">10814 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10815" class="LineNr">10815 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L10816" class="LineNr">10816 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10817" class="LineNr">10817 </span> <span class="subxComment">#</span> -<span id="L10818" class="LineNr">10818 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) <span class="subxComment"># size = 12, which is not a power of 2</span> -<span id="L10819" class="LineNr">10819 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L10820" class="LineNr">10820 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) -<span id="L10821" class="LineNr">10821 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" z: int\n"</span>) -<span id="L10822" class="LineNr">10822 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10823" class="LineNr">10823 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10824" class="LineNr">10824 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array t) <- copy 0\n"</span>) -<span id="L10825" class="LineNr">10825 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/edx: int <- length arr\n"</span>) -<span id="L10826" class="LineNr">10826 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10827" class="LineNr">10827 </span> <span class="subxComment"># convert</span> -<span id="L10828" class="LineNr">10828 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L10829" class="LineNr">10829 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L10830" class="Folded">10830 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10836" class="LineNr">10836 </span> <span class="subxComment"># check output</span> -<span id="L10837" class="LineNr">10837 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10808'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/0"</span>) -<span id="L10838" class="LineNr">10838 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types-to-edx/1"</span>) -<span id="L10839" class="LineNr">10839 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10808'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/2"</span>) -<span id="L10840" class="LineNr">10840 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10808'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/3"</span>) -<span id="L10841" class="LineNr">10841 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L10808'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/4"</span>) -<span id="L10842" class="LineNr">10842 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10808'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/5"</span>) -<span id="L10843" class="LineNr">10843 </span> <span class="subxComment"># var a</span> -<span id="L10844" class="LineNr">10844 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10808'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/6"</span>) -<span id="L10845" class="LineNr">10845 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10808'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/7"</span>) -<span id="L10846" class="LineNr">10846 </span> <span class="subxComment"># var x</span> -<span id="L10847" class="LineNr">10847 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10808'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/8"</span>) -<span id="L10848" class="LineNr">10848 </span> <span class="subxComment"># length instruction</span> -<span id="L10849" class="LineNr">10849 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 50/push-eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10808'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/9"</span>) -<span id="L10850" class="LineNr">10850 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 51/push-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10808'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/10"</span>) -<span id="L10851" class="LineNr">10851 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10808'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/11"</span>) -<span id="L10852" class="LineNr">10852 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 31/xor %edx 2/r32/edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10808'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/12"</span>) -<span id="L10853" class="LineNr">10853 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10808'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/13"</span>) -<span id="L10854" class="LineNr">10854 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f7 7/subop/idiv-eax-edx-by %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10808'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/14"</span>) -<span id="L10855" class="LineNr">10855 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %edx 0/r32/eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10808'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/15"</span>) -<span id="L10856" class="LineNr">10856 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 59/pop-to-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10808'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/16"</span>) -<span id="L10857" class="LineNr">10857 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 58/pop-to-eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10808'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/17"</span>) -<span id="L10858" class="LineNr">10858 </span> <span class="subxComment"># reclaim x</span> -<span id="L10859" class="LineNr">10859 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10808'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/18"</span>) -<span id="L10860" class="LineNr">10860 </span> <span class="subxComment"># reclaim a</span> -<span id="L10861" class="LineNr">10861 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10808'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/19"</span>) -<span id="L10862" class="LineNr">10862 </span> <span class="subxComment">#</span> -<span id="L10863" class="LineNr">10863 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L10808'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/20"</span>) -<span id="L10864" class="LineNr">10864 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10808'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/21"</span>) -<span id="L10865" class="LineNr">10865 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types-to-edx/22"</span>) -<span id="L10866" class="LineNr">10866 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10808'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/23"</span>) -<span id="L10867" class="LineNr">10867 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10808'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/24"</span>) -<span id="L10868" class="LineNr">10868 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L10808'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/25"</span>) -<span id="L10869" class="LineNr">10869 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10870" class="LineNr">10870 </span> 89/<- %esp 5/r32/ebp -<span id="L10871" class="LineNr">10871 </span> 5d/pop-to-ebp -<span id="L10872" class="LineNr">10872 </span> c3/return -<span id="L10873" class="LineNr">10873 </span> -<span id="L10874" class="LineNr">10874 </span><span class="subxTest">test-convert-length-of-array-of-user-defined-types</span>: -<span id="L10875" class="LineNr">10875 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10876" class="LineNr">10876 </span> 55/push-ebp -<span id="L10877" class="LineNr">10877 </span> 89/<- %ebp 4/r32/esp -<span id="L10878" class="LineNr">10878 </span> <span class="subxComment"># setup</span> -<span id="L10879" class="LineNr">10879 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10880" class="LineNr">10880 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10881" class="LineNr">10881 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L10882" class="LineNr">10882 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10883" class="LineNr">10883 </span> <span class="subxComment">#</span> -<span id="L10884" class="LineNr">10884 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) <span class="subxComment"># each t is 8 bytes, which is a power of 2</span> -<span id="L10885" class="LineNr">10885 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L10886" class="LineNr">10886 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) -<span id="L10887" class="LineNr">10887 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" z: int\n"</span>) -<span id="L10888" class="LineNr">10888 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10889" class="LineNr">10889 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10890" class="LineNr">10890 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array t) <- copy 0\n"</span>) -<span id="L10891" class="LineNr">10891 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ebx: int <- length arr\n"</span>) -<span id="L10892" class="LineNr">10892 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10893" class="LineNr">10893 </span> <span class="subxComment"># convert</span> -<span id="L10894" class="LineNr">10894 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L10895" class="LineNr">10895 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L10896" class="Folded">10896 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10902" class="LineNr">10902 </span> <span class="subxComment"># check output</span> -<span id="L10903" class="LineNr">10903 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10874'>test-convert-length-of-array-of-user-defined-types</a>/0"</span>) -<span id="L10904" class="LineNr">10904 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types/1"</span>) -<span id="L10905" class="LineNr">10905 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10874'>test-convert-length-of-array-of-user-defined-types</a>/2"</span>) -<span id="L10906" class="LineNr">10906 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10874'>test-convert-length-of-array-of-user-defined-types</a>/3"</span>) -<span id="L10907" class="LineNr">10907 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L10874'>test-convert-length-of-array-of-user-defined-types</a>/4"</span>) -<span id="L10908" class="LineNr">10908 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10874'>test-convert-length-of-array-of-user-defined-types</a>/5"</span>) -<span id="L10909" class="LineNr">10909 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10874'>test-convert-length-of-array-of-user-defined-types</a>/6"</span>) -<span id="L10910" class="LineNr">10910 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10874'>test-convert-length-of-array-of-user-defined-types</a>/7"</span>) -<span id="L10911" class="LineNr">10911 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ebx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10874'>test-convert-length-of-array-of-user-defined-types</a>/8"</span>) -<span id="L10912" class="LineNr">10912 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 50/push-eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10874'>test-convert-length-of-array-of-user-defined-types</a>/9"</span>) -<span id="L10913" class="LineNr">10913 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 51/push-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10874'>test-convert-length-of-array-of-user-defined-types</a>/10"</span>) -<span id="L10914" class="LineNr">10914 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 52/push-edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10874'>test-convert-length-of-array-of-user-defined-types</a>/11"</span>) -<span id="L10915" class="LineNr">10915 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10874'>test-convert-length-of-array-of-user-defined-types</a>/12"</span>) -<span id="L10916" class="LineNr">10916 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 31/xor %edx 2/r32/edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10874'>test-convert-length-of-array-of-user-defined-types</a>/13"</span>) -<span id="L10917" class="LineNr">10917 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10874'>test-convert-length-of-array-of-user-defined-types</a>/14"</span>) -<span id="L10918" class="LineNr">10918 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f7 7/subop/idiv-eax-edx-by %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10874'>test-convert-length-of-array-of-user-defined-types</a>/15"</span>) -<span id="L10919" class="LineNr">10919 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebx 0/r32/eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10874'>test-convert-length-of-array-of-user-defined-types</a>/16"</span>) -<span id="L10920" class="LineNr">10920 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5a/pop-to-edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10874'>test-convert-length-of-array-of-user-defined-types</a>/17"</span>) -<span id="L10921" class="LineNr">10921 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 59/pop-to-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10874'>test-convert-length-of-array-of-user-defined-types</a>/18"</span>) -<span id="L10922" class="LineNr">10922 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 58/pop-to-eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10874'>test-convert-length-of-array-of-user-defined-types</a>/19"</span>) -<span id="L10923" class="LineNr">10923 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ebx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10874'>test-convert-length-of-array-of-user-defined-types</a>/20"</span>) -<span id="L10924" class="LineNr">10924 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10874'>test-convert-length-of-array-of-user-defined-types</a>/21"</span>) -<span id="L10925" class="LineNr">10925 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L10874'>test-convert-length-of-array-of-user-defined-types</a>/22"</span>) -<span id="L10926" class="LineNr">10926 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10874'>test-convert-length-of-array-of-user-defined-types</a>/23"</span>) -<span id="L10927" class="LineNr">10927 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types/24"</span>) -<span id="L10928" class="LineNr">10928 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10874'>test-convert-length-of-array-of-user-defined-types</a>/25"</span>) -<span id="L10929" class="LineNr">10929 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10874'>test-convert-length-of-array-of-user-defined-types</a>/26"</span>) -<span id="L10930" class="LineNr">10930 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L10874'>test-convert-length-of-array-of-user-defined-types</a>/27"</span>) -<span id="L10931" class="LineNr">10931 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10932" class="LineNr">10932 </span> 89/<- %esp 5/r32/ebp -<span id="L10933" class="LineNr">10933 </span> 5d/pop-to-ebp -<span id="L10934" class="LineNr">10934 </span> c3/return -<span id="L10935" class="LineNr">10935 </span> -<span id="L10936" class="LineNr">10936 </span><span class="subxTest">test-index-with-non-array-atom-base-type</span>: -<span id="L10937" class="LineNr">10937 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10938" class="LineNr">10938 </span> 55/push-ebp -<span id="L10939" class="LineNr">10939 </span> 89/<- %ebp 4/r32/esp -<span id="L10940" class="LineNr">10940 </span> <span class="subxComment"># setup</span> -<span id="L10941" class="LineNr">10941 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10942" class="LineNr">10942 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10943" class="LineNr">10943 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L10944" class="LineNr">10944 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10945" class="LineNr">10945 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L10946" class="LineNr">10946 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L10947" class="LineNr">10947 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L10948" class="LineNr">10948 </span> 68/push 0/imm32 -<span id="L10949" class="LineNr">10949 </span> 68/push 0/imm32 -<span id="L10950" class="LineNr">10950 </span> 89/<- %edx 4/r32/esp -<span id="L10951" class="LineNr">10951 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L10952" class="LineNr">10952 </span> <span class="subxComment">#</span> -<span id="L10953" class="LineNr">10953 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10954" class="LineNr">10954 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) -<span id="L10955" class="LineNr">10955 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, 0\n"</span>) -<span id="L10956" class="LineNr">10956 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10957" class="LineNr">10957 </span> <span class="subxComment"># convert</span> -<span id="L10958" class="LineNr">10958 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L10959" class="LineNr">10959 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L10960" class="LineNr">10960 </span> <span class="subxComment"># restore ed</span> -<span id="L10961" class="LineNr">10961 </span> 89/<- %edx 4/r32/esp -<span id="L10962" class="LineNr">10962 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L10963" class="LineNr">10963 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L10964" class="Folded">10964 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10970" class="LineNr">10970 </span> <span class="subxComment"># check output</span> -<span id="L10971" class="LineNr">10971 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10936'>test-index-with-non-array-atom-base-type</a>: output should be empty"</span>) -<span id="L10972" class="LineNr">10972 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L10936'>test-index-with-non-array-atom-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L10973" class="LineNr">10973 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L10974" class="LineNr">10974 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10936'>test-index-with-non-array-atom-base-type</a>: exit status"</span>) -<span id="L10975" class="LineNr">10975 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L10976" class="LineNr">10976 </span> 81 0/subop/add %esp 8/imm32 -<span id="L10977" class="LineNr">10977 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10978" class="LineNr">10978 </span> 5d/pop-to-ebp -<span id="L10979" class="LineNr">10979 </span> c3/return -<span id="L10980" class="LineNr">10980 </span> -<span id="L10981" class="LineNr">10981 </span><span class="subxTest">test-index-with-non-array-compound-base-type</span>: -<span id="L10982" class="LineNr">10982 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10983" class="LineNr">10983 </span> 55/push-ebp -<span id="L10984" class="LineNr">10984 </span> 89/<- %ebp 4/r32/esp -<span id="L10985" class="LineNr">10985 </span> <span class="subxComment"># setup</span> -<span id="L10986" class="LineNr">10986 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10987" class="LineNr">10987 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10988" class="LineNr">10988 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L10989" class="LineNr">10989 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10990" class="LineNr">10990 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L10991" class="LineNr">10991 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L10992" class="LineNr">10992 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L10993" class="LineNr">10993 </span> 68/push 0/imm32 -<span id="L10994" class="LineNr">10994 </span> 68/push 0/imm32 -<span id="L10995" class="LineNr">10995 </span> 89/<- %edx 4/r32/esp -<span id="L10996" class="LineNr">10996 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L10997" class="LineNr">10997 </span> <span class="subxComment">#</span> -<span id="L10998" class="LineNr">10998 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10999" class="LineNr">10999 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (handle int)\n"</span>) -<span id="L11000" class="LineNr">11000 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, 0\n"</span>) -<span id="L11001" class="LineNr">11001 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11002" class="LineNr">11002 </span> <span class="subxComment"># convert</span> -<span id="L11003" class="LineNr">11003 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L11004" class="LineNr">11004 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11005" class="LineNr">11005 </span> <span class="subxComment"># restore ed</span> -<span id="L11006" class="LineNr">11006 </span> 89/<- %edx 4/r32/esp -<span id="L11007" class="LineNr">11007 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L11008" class="LineNr">11008 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L11009" class="Folded">11009 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11015" class="LineNr">11015 </span> <span class="subxComment"># check output</span> -<span id="L11016" class="LineNr">11016 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10981'>test-index-with-non-array-compound-base-type</a>: output should be empty"</span>) -<span id="L11017" class="LineNr">11017 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L10981'>test-index-with-non-array-compound-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L11018" class="LineNr">11018 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11019" class="LineNr">11019 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10981'>test-index-with-non-array-compound-base-type</a>: exit status"</span>) -<span id="L11020" class="LineNr">11020 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11021" class="LineNr">11021 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11022" class="LineNr">11022 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11023" class="LineNr">11023 </span> 5d/pop-to-ebp -<span id="L11024" class="LineNr">11024 </span> c3/return -<span id="L11025" class="LineNr">11025 </span> -<span id="L11026" class="LineNr">11026 </span><span class="subxTest">test-index-with-non-array-compound-base-type-2</span>: -<span id="L11027" class="LineNr">11027 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11028" class="LineNr">11028 </span> 55/push-ebp -<span id="L11029" class="LineNr">11029 </span> 89/<- %ebp 4/r32/esp -<span id="L11030" class="LineNr">11030 </span> <span class="subxComment"># setup</span> -<span id="L11031" class="LineNr">11031 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11032" class="LineNr">11032 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11033" class="LineNr">11033 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L11034" class="LineNr">11034 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11035" class="LineNr">11035 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L11036" class="LineNr">11036 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11037" class="LineNr">11037 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11038" class="LineNr">11038 </span> 68/push 0/imm32 -<span id="L11039" class="LineNr">11039 </span> 68/push 0/imm32 -<span id="L11040" class="LineNr">11040 </span> 89/<- %edx 4/r32/esp -<span id="L11041" class="LineNr">11041 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11042" class="LineNr">11042 </span> <span class="subxComment">#</span> -<span id="L11043" class="LineNr">11043 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11044" class="LineNr">11044 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr int)\n"</span>) -<span id="L11045" class="LineNr">11045 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, 0\n"</span>) -<span id="L11046" class="LineNr">11046 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11047" class="LineNr">11047 </span> <span class="subxComment"># convert</span> -<span id="L11048" class="LineNr">11048 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L11049" class="LineNr">11049 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11050" class="LineNr">11050 </span> <span class="subxComment"># restore ed</span> -<span id="L11051" class="LineNr">11051 </span> 89/<- %edx 4/r32/esp -<span id="L11052" class="LineNr">11052 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L11053" class="LineNr">11053 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L11054" class="Folded">11054 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11060" class="LineNr">11060 </span> <span class="subxComment"># check output</span> -<span id="L11061" class="LineNr">11061 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11026'>test-index-with-non-array-compound-base-type-2</a>: output should be empty"</span>) -<span id="L11062" class="LineNr">11062 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L11026'>test-index-with-non-array-compound-base-type-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L11063" class="LineNr">11063 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11064" class="LineNr">11064 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11026'>test-index-with-non-array-compound-base-type-2</a>: exit status"</span>) -<span id="L11065" class="LineNr">11065 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11066" class="LineNr">11066 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11067" class="LineNr">11067 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11068" class="LineNr">11068 </span> 5d/pop-to-ebp -<span id="L11069" class="LineNr">11069 </span> c3/return -<span id="L11070" class="LineNr">11070 </span> -<span id="L11071" class="LineNr">11071 </span><span class="subxTest">test-index-with-array-atom-base-type</span>: -<span id="L11072" class="LineNr">11072 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11073" class="LineNr">11073 </span> 55/push-ebp -<span id="L11074" class="LineNr">11074 </span> 89/<- %ebp 4/r32/esp -<span id="L11075" class="LineNr">11075 </span> <span class="subxComment"># setup</span> -<span id="L11076" class="LineNr">11076 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11077" class="LineNr">11077 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11078" class="LineNr">11078 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L11079" class="LineNr">11079 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11080" class="LineNr">11080 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L11081" class="LineNr">11081 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11082" class="LineNr">11082 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11083" class="LineNr">11083 </span> 68/push 0/imm32 -<span id="L11084" class="LineNr">11084 </span> 68/push 0/imm32 -<span id="L11085" class="LineNr">11085 </span> 89/<- %edx 4/r32/esp -<span id="L11086" class="LineNr">11086 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11087" class="LineNr">11087 </span> <span class="subxComment">#</span> -<span id="L11088" class="LineNr">11088 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11089" class="LineNr">11089 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: array\n"</span>) -<span id="L11090" class="LineNr">11090 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, 0\n"</span>) -<span id="L11091" class="LineNr">11091 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11092" class="LineNr">11092 </span> <span class="subxComment"># convert</span> -<span id="L11093" class="LineNr">11093 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L11094" class="LineNr">11094 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11095" class="LineNr">11095 </span> <span class="subxComment"># restore ed</span> -<span id="L11096" class="LineNr">11096 </span> 89/<- %edx 4/r32/esp -<span id="L11097" class="LineNr">11097 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L11098" class="LineNr">11098 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L11099" class="Folded">11099 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11105" class="LineNr">11105 </span> <span class="subxComment"># check output</span> -<span id="L11106" class="LineNr">11106 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11071'>test-index-with-array-atom-base-type</a>: output should be empty"</span>) -<span id="L11107" class="LineNr">11107 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: array 'a' must specify the type of its elements"</span> <span class="Constant">"F - <a href='mu.subx.html#L11071'>test-index-with-array-atom-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L11108" class="LineNr">11108 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11109" class="LineNr">11109 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11071'>test-index-with-array-atom-base-type</a>: exit status"</span>) -<span id="L11110" class="LineNr">11110 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11111" class="LineNr">11111 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11112" class="LineNr">11112 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11113" class="LineNr">11113 </span> 5d/pop-to-ebp -<span id="L11114" class="LineNr">11114 </span> c3/return -<span id="L11115" class="LineNr">11115 </span> -<span id="L11116" class="LineNr">11116 </span><span class="subxTest">test-index-with-addr-base-on-stack</span>: -<span id="L11117" class="LineNr">11117 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11118" class="LineNr">11118 </span> 55/push-ebp -<span id="L11119" class="LineNr">11119 </span> 89/<- %ebp 4/r32/esp -<span id="L11120" class="LineNr">11120 </span> <span class="subxComment"># setup</span> -<span id="L11121" class="LineNr">11121 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11122" class="LineNr">11122 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11123" class="LineNr">11123 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L11124" class="LineNr">11124 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11125" class="LineNr">11125 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L11126" class="LineNr">11126 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11127" class="LineNr">11127 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11128" class="LineNr">11128 </span> 68/push 0/imm32 -<span id="L11129" class="LineNr">11129 </span> 68/push 0/imm32 -<span id="L11130" class="LineNr">11130 </span> 89/<- %edx 4/r32/esp -<span id="L11131" class="LineNr">11131 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11132" class="LineNr">11132 </span> <span class="subxComment">#</span> -<span id="L11133" class="LineNr">11133 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11134" class="LineNr">11134 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr array int)\n"</span>) -<span id="L11135" class="LineNr">11135 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, 0\n"</span>) -<span id="L11136" class="LineNr">11136 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11137" class="LineNr">11137 </span> <span class="subxComment"># convert</span> -<span id="L11138" class="LineNr">11138 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L11139" class="LineNr">11139 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11140" class="LineNr">11140 </span> <span class="subxComment"># restore ed</span> -<span id="L11141" class="LineNr">11141 </span> 89/<- %edx 4/r32/esp -<span id="L11142" class="LineNr">11142 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L11143" class="LineNr">11143 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L11144" class="Folded">11144 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11150" class="LineNr">11150 </span> <span class="subxComment"># check output</span> -<span id="L11151" class="LineNr">11151 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11116'>test-index-with-addr-base-on-stack</a>: output should be empty"</span>) -<span id="L11152" class="LineNr">11152 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: var 'a' is an addr to an array, and so must live in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L11116'>test-index-with-addr-base-on-stack</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L11153" class="LineNr">11153 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11154" class="LineNr">11154 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11116'>test-index-with-addr-base-on-stack</a>: exit status"</span>) -<span id="L11155" class="LineNr">11155 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11156" class="LineNr">11156 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11157" class="LineNr">11157 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11158" class="LineNr">11158 </span> 5d/pop-to-ebp -<span id="L11159" class="LineNr">11159 </span> c3/return -<span id="L11160" class="LineNr">11160 </span> -<span id="L11161" class="LineNr">11161 </span><span class="subxTest">test-index-with-wrong-index-type</span>: -<span id="L11162" class="LineNr">11162 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11163" class="LineNr">11163 </span> 55/push-ebp -<span id="L11164" class="LineNr">11164 </span> 89/<- %ebp 4/r32/esp -<span id="L11165" class="LineNr">11165 </span> <span class="subxComment"># setup</span> -<span id="L11166" class="LineNr">11166 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11167" class="LineNr">11167 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11168" class="LineNr">11168 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L11169" class="LineNr">11169 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11170" class="LineNr">11170 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L11171" class="LineNr">11171 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11172" class="LineNr">11172 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11173" class="LineNr">11173 </span> 68/push 0/imm32 -<span id="L11174" class="LineNr">11174 </span> 68/push 0/imm32 -<span id="L11175" class="LineNr">11175 </span> 89/<- %edx 4/r32/esp -<span id="L11176" class="LineNr">11176 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11177" class="LineNr">11177 </span> <span class="subxComment">#</span> -<span id="L11178" class="LineNr">11178 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11179" class="LineNr">11179 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr array int) <- copy 0\n"</span>) -<span id="L11180" class="LineNr">11180 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: boolean\n"</span>) -<span id="L11181" class="LineNr">11181 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, b\n"</span>) -<span id="L11182" class="LineNr">11182 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11183" class="LineNr">11183 </span> <span class="subxComment"># convert</span> -<span id="L11184" class="LineNr">11184 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L11185" class="LineNr">11185 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11186" class="LineNr">11186 </span> <span class="subxComment"># restore ed</span> -<span id="L11187" class="LineNr">11187 </span> 89/<- %edx 4/r32/esp -<span id="L11188" class="LineNr">11188 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L11189" class="LineNr">11189 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L11190" class="Folded">11190 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11196" class="LineNr">11196 </span> <span class="subxComment"># check output</span> -<span id="L11197" class="LineNr">11197 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11161'>test-index-with-wrong-index-type</a>: output should be empty"</span>) -<span id="L11198" class="LineNr">11198 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: second argument 'b' must be an int or offset"</span> <span class="Constant">"F - <a href='mu.subx.html#L11161'>test-index-with-wrong-index-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L11199" class="LineNr">11199 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11200" class="LineNr">11200 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11161'>test-index-with-wrong-index-type</a>: exit status"</span>) -<span id="L11201" class="LineNr">11201 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11202" class="LineNr">11202 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11203" class="LineNr">11203 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11204" class="LineNr">11204 </span> 5d/pop-to-ebp -<span id="L11205" class="LineNr">11205 </span> c3/return -<span id="L11206" class="LineNr">11206 </span> -<span id="L11207" class="LineNr">11207 </span><span class="subxTest">test-index-with-offset-atom-index-type</span>: -<span id="L11208" class="LineNr">11208 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11209" class="LineNr">11209 </span> 55/push-ebp -<span id="L11210" class="LineNr">11210 </span> 89/<- %ebp 4/r32/esp -<span id="L11211" class="LineNr">11211 </span> <span class="subxComment"># setup</span> -<span id="L11212" class="LineNr">11212 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11213" class="LineNr">11213 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11214" class="LineNr">11214 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L11215" class="LineNr">11215 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11216" class="LineNr">11216 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L11217" class="LineNr">11217 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11218" class="LineNr">11218 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11219" class="LineNr">11219 </span> 68/push 0/imm32 -<span id="L11220" class="LineNr">11220 </span> 68/push 0/imm32 -<span id="L11221" class="LineNr">11221 </span> 89/<- %edx 4/r32/esp -<span id="L11222" class="LineNr">11222 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11223" class="LineNr">11223 </span> <span class="subxComment">#</span> -<span id="L11224" class="LineNr">11224 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11225" class="LineNr">11225 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr array int) <- copy 0\n"</span>) -<span id="L11226" class="LineNr">11226 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: offset\n"</span>) -<span id="L11227" class="LineNr">11227 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, b\n"</span>) -<span id="L11228" class="LineNr">11228 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11229" class="LineNr">11229 </span> <span class="subxComment"># convert</span> -<span id="L11230" class="LineNr">11230 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L11231" class="LineNr">11231 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11232" class="LineNr">11232 </span> <span class="subxComment"># restore ed</span> -<span id="L11233" class="LineNr">11233 </span> 89/<- %edx 4/r32/esp -<span id="L11234" class="LineNr">11234 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L11235" class="LineNr">11235 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L11236" class="Folded">11236 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11242" class="LineNr">11242 </span> <span class="subxComment"># check output</span> -<span id="L11243" class="LineNr">11243 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11207'>test-index-with-offset-atom-index-type</a>: output should be empty"</span>) -<span id="L11244" class="LineNr">11244 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: offset 'b' must specify the type of array elements"</span> <span class="Constant">"F - <a href='mu.subx.html#L11207'>test-index-with-offset-atom-index-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L11245" class="LineNr">11245 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11246" class="LineNr">11246 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11207'>test-index-with-offset-atom-index-type</a>: exit status"</span>) -<span id="L11247" class="LineNr">11247 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11248" class="LineNr">11248 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11249" class="LineNr">11249 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11250" class="LineNr">11250 </span> 5d/pop-to-ebp -<span id="L11251" class="LineNr">11251 </span> c3/return -<span id="L11252" class="LineNr">11252 </span> -<span id="L11253" class="LineNr">11253 </span><span class="subxTest">test-index-with-offset-on-stack</span>: -<span id="L11254" class="LineNr">11254 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11255" class="LineNr">11255 </span> 55/push-ebp -<span id="L11256" class="LineNr">11256 </span> 89/<- %ebp 4/r32/esp -<span id="L11257" class="LineNr">11257 </span> <span class="subxComment"># setup</span> -<span id="L11258" class="LineNr">11258 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11259" class="LineNr">11259 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11260" class="LineNr">11260 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L11261" class="LineNr">11261 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11262" class="LineNr">11262 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L11263" class="LineNr">11263 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11264" class="LineNr">11264 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11265" class="LineNr">11265 </span> 68/push 0/imm32 -<span id="L11266" class="LineNr">11266 </span> 68/push 0/imm32 -<span id="L11267" class="LineNr">11267 </span> 89/<- %edx 4/r32/esp -<span id="L11268" class="LineNr">11268 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11269" class="LineNr">11269 </span> <span class="subxComment">#</span> -<span id="L11270" class="LineNr">11270 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11271" class="LineNr">11271 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr array int) <- copy 0\n"</span>) -<span id="L11272" class="LineNr">11272 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: int\n"</span>) -<span id="L11273" class="LineNr">11273 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, b\n"</span>) -<span id="L11274" class="LineNr">11274 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11275" class="LineNr">11275 </span> <span class="subxComment"># convert</span> -<span id="L11276" class="LineNr">11276 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L11277" class="LineNr">11277 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11278" class="LineNr">11278 </span> <span class="subxComment"># restore ed</span> -<span id="L11279" class="LineNr">11279 </span> 89/<- %edx 4/r32/esp -<span id="L11280" class="LineNr">11280 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L11281" class="LineNr">11281 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L11282" class="Folded">11282 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11288" class="LineNr">11288 </span> <span class="subxComment"># check output</span> -<span id="L11289" class="LineNr">11289 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11253'>test-index-with-offset-on-stack</a>: output should be empty"</span>) -<span id="L11290" class="LineNr">11290 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: second argument 'b' must be in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L11253'>test-index-with-offset-on-stack</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L11291" class="LineNr">11291 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11292" class="LineNr">11292 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11253'>test-index-with-offset-on-stack</a>: exit status"</span>) -<span id="L11293" class="LineNr">11293 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11294" class="LineNr">11294 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11295" class="LineNr">11295 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11296" class="LineNr">11296 </span> 5d/pop-to-ebp -<span id="L11297" class="LineNr">11297 </span> c3/return -<span id="L11298" class="LineNr">11298 </span> -<span id="L11299" class="LineNr">11299 </span><span class="subxTest">test-index-needs-offset-type</span>: -<span id="L11300" class="LineNr">11300 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11301" class="LineNr">11301 </span> 55/push-ebp -<span id="L11302" class="LineNr">11302 </span> 89/<- %ebp 4/r32/esp -<span id="L11303" class="LineNr">11303 </span> <span class="subxComment"># setup</span> -<span id="L11304" class="LineNr">11304 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11305" class="LineNr">11305 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11306" class="LineNr">11306 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L11307" class="LineNr">11307 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11308" class="LineNr">11308 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L11309" class="LineNr">11309 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11310" class="LineNr">11310 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11311" class="LineNr">11311 </span> 68/push 0/imm32 -<span id="L11312" class="LineNr">11312 </span> 68/push 0/imm32 -<span id="L11313" class="LineNr">11313 </span> 89/<- %edx 4/r32/esp -<span id="L11314" class="LineNr">11314 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11315" class="LineNr">11315 </span> <span class="subxComment">#</span> -<span id="L11316" class="LineNr">11316 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11317" class="LineNr">11317 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr array t) <- copy 0\n"</span>) -<span id="L11318" class="LineNr">11318 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/ebx: int <- copy 0\n"</span>) -<span id="L11319" class="LineNr">11319 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, b\n"</span>) -<span id="L11320" class="LineNr">11320 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11321" class="LineNr">11321 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) <span class="subxComment"># size 12 is not a power of two</span> -<span id="L11322" class="LineNr">11322 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L11323" class="LineNr">11323 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) -<span id="L11324" class="LineNr">11324 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" z: int\n"</span>) -<span id="L11325" class="LineNr">11325 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11326" class="LineNr">11326 </span> <span class="subxComment"># convert</span> -<span id="L11327" class="LineNr">11327 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L11328" class="LineNr">11328 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11329" class="LineNr">11329 </span> <span class="subxComment"># restore ed</span> -<span id="L11330" class="LineNr">11330 </span> 89/<- %edx 4/r32/esp -<span id="L11331" class="LineNr">11331 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L11332" class="LineNr">11332 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L11333" class="Folded">11333 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11339" class="LineNr">11339 </span> <span class="subxComment"># check output</span> -<span id="L11340" class="LineNr">11340 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11299'>test-index-needs-offset-type</a>: output should be empty"</span>) -<span id="L11341" class="LineNr">11341 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: cannot take an int for array 'a'; create an offset instead. See mu.md for details."</span> <span class="Constant">"F - <a href='mu.subx.html#L11299'>test-index-needs-offset-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L11342" class="LineNr">11342 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11343" class="LineNr">11343 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11299'>test-index-needs-offset-type</a>: exit status"</span>) -<span id="L11344" class="LineNr">11344 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11345" class="LineNr">11345 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11346" class="LineNr">11346 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11347" class="LineNr">11347 </span> 5d/pop-to-ebp -<span id="L11348" class="LineNr">11348 </span> c3/return -<span id="L11349" class="LineNr">11349 </span> -<span id="L11350" class="LineNr">11350 </span><span class="subxTest">test-index-with-output-not-address</span>: -<span id="L11351" class="LineNr">11351 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11352" class="LineNr">11352 </span> 55/push-ebp -<span id="L11353" class="LineNr">11353 </span> 89/<- %ebp 4/r32/esp -<span id="L11354" class="LineNr">11354 </span> <span class="subxComment"># setup</span> -<span id="L11355" class="LineNr">11355 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11356" class="LineNr">11356 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11357" class="LineNr">11357 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L11358" class="LineNr">11358 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11359" class="LineNr">11359 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L11360" class="LineNr">11360 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11361" class="LineNr">11361 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11362" class="LineNr">11362 </span> 68/push 0/imm32 -<span id="L11363" class="LineNr">11363 </span> 68/push 0/imm32 -<span id="L11364" class="LineNr">11364 </span> 89/<- %edx 4/r32/esp -<span id="L11365" class="LineNr">11365 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11366" class="LineNr">11366 </span> <span class="subxComment">#</span> -<span id="L11367" class="LineNr">11367 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11368" class="LineNr">11368 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/ebx: (addr array boolean) <- copy 0\n"</span>) -<span id="L11369" class="LineNr">11369 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/edi: int <- index a, 0\n"</span>) -<span id="L11370" class="LineNr">11370 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11371" class="LineNr">11371 </span> <span class="subxComment"># convert</span> -<span id="L11372" class="LineNr">11372 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L11373" class="LineNr">11373 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11374" class="LineNr">11374 </span> <span class="subxComment"># restore ed</span> -<span id="L11375" class="LineNr">11375 </span> 89/<- %edx 4/r32/esp -<span id="L11376" class="LineNr">11376 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L11377" class="LineNr">11377 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L11378" class="Folded">11378 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11384" class="LineNr">11384 </span> <span class="subxComment"># check output</span> -<span id="L11385" class="LineNr">11385 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11350'>test-index-with-output-not-address</a>: output should be empty"</span>) -<span id="L11386" class="LineNr">11386 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: output 'o' must be an addr"</span> <span class="Constant">"F - <a href='mu.subx.html#L11350'>test-index-with-output-not-address</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L11387" class="LineNr">11387 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11388" class="LineNr">11388 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11350'>test-index-with-output-not-address</a>: exit status"</span>) -<span id="L11389" class="LineNr">11389 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11390" class="LineNr">11390 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11391" class="LineNr">11391 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11392" class="LineNr">11392 </span> 5d/pop-to-ebp -<span id="L11393" class="LineNr">11393 </span> c3/return -<span id="L11394" class="LineNr">11394 </span> -<span id="L11395" class="LineNr">11395 </span><span class="subxTest">test-index-with-output-not-address-2</span>: -<span id="L11396" class="LineNr">11396 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11397" class="LineNr">11397 </span> 55/push-ebp -<span id="L11398" class="LineNr">11398 </span> 89/<- %ebp 4/r32/esp -<span id="L11399" class="LineNr">11399 </span> <span class="subxComment"># setup</span> -<span id="L11400" class="LineNr">11400 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11401" class="LineNr">11401 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11402" class="LineNr">11402 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L11403" class="LineNr">11403 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11404" class="LineNr">11404 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L11405" class="LineNr">11405 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11406" class="LineNr">11406 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11407" class="LineNr">11407 </span> 68/push 0/imm32 -<span id="L11408" class="LineNr">11408 </span> 68/push 0/imm32 -<span id="L11409" class="LineNr">11409 </span> 89/<- %edx 4/r32/esp -<span id="L11410" class="LineNr">11410 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11411" class="LineNr">11411 </span> <span class="subxComment">#</span> -<span id="L11412" class="LineNr">11412 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11413" class="LineNr">11413 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/ebx: (addr array boolean) <- copy 0\n"</span>) -<span id="L11414" class="LineNr">11414 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/edi: (int) <- index a, 0\n"</span>) -<span id="L11415" class="LineNr">11415 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11416" class="LineNr">11416 </span> <span class="subxComment"># convert</span> -<span id="L11417" class="LineNr">11417 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L11418" class="LineNr">11418 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11419" class="LineNr">11419 </span> <span class="subxComment"># restore ed</span> -<span id="L11420" class="LineNr">11420 </span> 89/<- %edx 4/r32/esp -<span id="L11421" class="LineNr">11421 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L11422" class="LineNr">11422 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L11423" class="Folded">11423 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11429" class="LineNr">11429 </span> <span class="subxComment"># check output</span> -<span id="L11430" class="LineNr">11430 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11395'>test-index-with-output-not-address-2</a>: output should be empty"</span>) -<span id="L11431" class="LineNr">11431 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: output 'o' must be an addr"</span> <span class="Constant">"F - <a href='mu.subx.html#L11395'>test-index-with-output-not-address-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L11432" class="LineNr">11432 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11433" class="LineNr">11433 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11395'>test-index-with-output-not-address-2</a>: exit status"</span>) -<span id="L11434" class="LineNr">11434 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11435" class="LineNr">11435 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11436" class="LineNr">11436 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11437" class="LineNr">11437 </span> 5d/pop-to-ebp -<span id="L11438" class="LineNr">11438 </span> c3/return -<span id="L11439" class="LineNr">11439 </span> -<span id="L11440" class="LineNr">11440 </span><span class="subxTest">test-index-with-wrong-output-type</span>: -<span id="L11441" class="LineNr">11441 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11442" class="LineNr">11442 </span> 55/push-ebp -<span id="L11443" class="LineNr">11443 </span> 89/<- %ebp 4/r32/esp -<span id="L11444" class="LineNr">11444 </span> <span class="subxComment"># setup</span> -<span id="L11445" class="LineNr">11445 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11446" class="LineNr">11446 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11447" class="LineNr">11447 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L11448" class="LineNr">11448 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11449" class="LineNr">11449 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L11450" class="LineNr">11450 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11451" class="LineNr">11451 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11452" class="LineNr">11452 </span> 68/push 0/imm32 -<span id="L11453" class="LineNr">11453 </span> 68/push 0/imm32 -<span id="L11454" class="LineNr">11454 </span> 89/<- %edx 4/r32/esp -<span id="L11455" class="LineNr">11455 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11456" class="LineNr">11456 </span> <span class="subxComment">#</span> -<span id="L11457" class="LineNr">11457 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11458" class="LineNr">11458 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/ebx: (addr array boolean) <- copy 0\n"</span>) -<span id="L11459" class="LineNr">11459 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/edi: (addr int) <- index a, 0\n"</span>) -<span id="L11460" class="LineNr">11460 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11461" class="LineNr">11461 </span> <span class="subxComment"># convert</span> -<span id="L11462" class="LineNr">11462 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L11463" class="LineNr">11463 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11464" class="LineNr">11464 </span> <span class="subxComment"># restore ed</span> -<span id="L11465" class="LineNr">11465 </span> 89/<- %edx 4/r32/esp -<span id="L11466" class="LineNr">11466 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L11467" class="LineNr">11467 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L11468" class="Folded">11468 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11474" class="LineNr">11474 </span> <span class="subxComment"># check output</span> -<span id="L11475" class="LineNr">11475 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11440'>test-index-with-wrong-output-type</a>: output should be empty"</span>) -<span id="L11476" class="LineNr">11476 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: output 'o' does not have the right type"</span> <span class="Constant">"F - <a href='mu.subx.html#L11440'>test-index-with-wrong-output-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L11477" class="LineNr">11477 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11478" class="LineNr">11478 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11440'>test-index-with-wrong-output-type</a>: exit status"</span>) -<span id="L11479" class="LineNr">11479 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11480" class="LineNr">11480 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11481" class="LineNr">11481 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11482" class="LineNr">11482 </span> 5d/pop-to-ebp -<span id="L11483" class="LineNr">11483 </span> c3/return -<span id="L11484" class="LineNr">11484 </span> -<span id="L11485" class="LineNr">11485 </span><span class="subxTest">test-index-with-wrong-output-compound-type</span>: -<span id="L11486" class="LineNr">11486 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11487" class="LineNr">11487 </span> 55/push-ebp -<span id="L11488" class="LineNr">11488 </span> 89/<- %ebp 4/r32/esp -<span id="L11489" class="LineNr">11489 </span> <span class="subxComment"># setup</span> -<span id="L11490" class="LineNr">11490 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11491" class="LineNr">11491 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11492" class="LineNr">11492 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L11493" class="LineNr">11493 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11494" class="LineNr">11494 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L11495" class="LineNr">11495 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11496" class="LineNr">11496 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11497" class="LineNr">11497 </span> 68/push 0/imm32 -<span id="L11498" class="LineNr">11498 </span> 68/push 0/imm32 -<span id="L11499" class="LineNr">11499 </span> 89/<- %edx 4/r32/esp -<span id="L11500" class="LineNr">11500 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11501" class="LineNr">11501 </span> <span class="subxComment">#</span> -<span id="L11502" class="LineNr">11502 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11503" class="LineNr">11503 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/ebx: (addr array handle boolean) <- copy 0\n"</span>) -<span id="L11504" class="LineNr">11504 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/edi: (addr handle int) <- index a, 0\n"</span>) -<span id="L11505" class="LineNr">11505 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11506" class="LineNr">11506 </span> <span class="subxComment"># convert</span> -<span id="L11507" class="LineNr">11507 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L11508" class="LineNr">11508 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11509" class="LineNr">11509 </span> <span class="subxComment"># restore ed</span> -<span id="L11510" class="LineNr">11510 </span> 89/<- %edx 4/r32/esp -<span id="L11511" class="LineNr">11511 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L11512" class="LineNr">11512 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L11513" class="Folded">11513 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11519" class="LineNr">11519 </span> <span class="subxComment"># check output</span> -<span id="L11520" class="LineNr">11520 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11485'>test-index-with-wrong-output-compound-type</a>: output should be empty"</span>) -<span id="L11521" class="LineNr">11521 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: output 'o' does not have the right type"</span> <span class="Constant">"F - <a href='mu.subx.html#L11485'>test-index-with-wrong-output-compound-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L11522" class="LineNr">11522 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11523" class="LineNr">11523 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11485'>test-index-with-wrong-output-compound-type</a>: exit status"</span>) -<span id="L11524" class="LineNr">11524 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11525" class="LineNr">11525 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11526" class="LineNr">11526 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11527" class="LineNr">11527 </span> 5d/pop-to-ebp -<span id="L11528" class="LineNr">11528 </span> c3/return -<span id="L11529" class="LineNr">11529 </span> -<span id="L11530" class="LineNr">11530 </span><span class="subxTest">test-index-with-no-inouts</span>: -<span id="L11531" class="LineNr">11531 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11532" class="LineNr">11532 </span> 55/push-ebp -<span id="L11533" class="LineNr">11533 </span> 89/<- %ebp 4/r32/esp -<span id="L11534" class="LineNr">11534 </span> <span class="subxComment"># setup</span> -<span id="L11535" class="LineNr">11535 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11536" class="LineNr">11536 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11537" class="LineNr">11537 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L11538" class="LineNr">11538 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11539" class="LineNr">11539 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L11540" class="LineNr">11540 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11541" class="LineNr">11541 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11542" class="LineNr">11542 </span> 68/push 0/imm32 -<span id="L11543" class="LineNr">11543 </span> 68/push 0/imm32 -<span id="L11544" class="LineNr">11544 </span> 89/<- %edx 4/r32/esp -<span id="L11545" class="LineNr">11545 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11546" class="LineNr">11546 </span> <span class="subxComment">#</span> -<span id="L11547" class="LineNr">11547 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11548" class="LineNr">11548 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index\n"</span>) -<span id="L11549" class="LineNr">11549 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11550" class="LineNr">11550 </span> <span class="subxComment"># convert</span> -<span id="L11551" class="LineNr">11551 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L11552" class="LineNr">11552 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11553" class="LineNr">11553 </span> <span class="subxComment"># restore ed</span> -<span id="L11554" class="LineNr">11554 </span> 89/<- %edx 4/r32/esp -<span id="L11555" class="LineNr">11555 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L11556" class="LineNr">11556 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L11557" class="Folded">11557 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11563" class="LineNr">11563 </span> <span class="subxComment"># check output</span> -<span id="L11564" class="LineNr">11564 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11530'>test-index-with-no-inouts</a>: output should be empty"</span>) -<span id="L11565" class="LineNr">11565 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: too few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L11530'>test-index-with-no-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L11566" class="LineNr">11566 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11567" class="LineNr">11567 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11530'>test-index-with-no-inouts</a>: exit status"</span>) -<span id="L11568" class="LineNr">11568 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11569" class="LineNr">11569 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11570" class="LineNr">11570 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11571" class="LineNr">11571 </span> 5d/pop-to-ebp -<span id="L11572" class="LineNr">11572 </span> c3/return -<span id="L11573" class="LineNr">11573 </span> -<span id="L11574" class="LineNr">11574 </span><span class="subxTest">test-index-with-too-few-inouts</span>: -<span id="L11575" class="LineNr">11575 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11576" class="LineNr">11576 </span> 55/push-ebp -<span id="L11577" class="LineNr">11577 </span> 89/<- %ebp 4/r32/esp -<span id="L11578" class="LineNr">11578 </span> <span class="subxComment"># setup</span> -<span id="L11579" class="LineNr">11579 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11580" class="LineNr">11580 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11581" class="LineNr">11581 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L11582" class="LineNr">11582 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11583" class="LineNr">11583 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L11584" class="LineNr">11584 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11585" class="LineNr">11585 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11586" class="LineNr">11586 </span> 68/push 0/imm32 -<span id="L11587" class="LineNr">11587 </span> 68/push 0/imm32 -<span id="L11588" class="LineNr">11588 </span> 89/<- %edx 4/r32/esp -<span id="L11589" class="LineNr">11589 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11590" class="LineNr">11590 </span> <span class="subxComment">#</span> -<span id="L11591" class="LineNr">11591 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11592" class="LineNr">11592 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) -<span id="L11593" class="LineNr">11593 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a\n"</span>) -<span id="L11594" class="LineNr">11594 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11595" class="LineNr">11595 </span> <span class="subxComment"># convert</span> -<span id="L11596" class="LineNr">11596 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L11597" class="LineNr">11597 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11598" class="LineNr">11598 </span> <span class="subxComment"># restore ed</span> -<span id="L11599" class="LineNr">11599 </span> 89/<- %edx 4/r32/esp -<span id="L11600" class="LineNr">11600 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L11601" class="LineNr">11601 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L11602" class="Folded">11602 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11608" class="LineNr">11608 </span> <span class="subxComment"># check output</span> -<span id="L11609" class="LineNr">11609 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11574'>test-index-with-too-few-inouts</a>: output should be empty"</span>) -<span id="L11610" class="LineNr">11610 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: too few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L11574'>test-index-with-too-few-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L11611" class="LineNr">11611 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11612" class="LineNr">11612 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11574'>test-index-with-too-few-inouts</a>: exit status"</span>) -<span id="L11613" class="LineNr">11613 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11614" class="LineNr">11614 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11615" class="LineNr">11615 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11616" class="LineNr">11616 </span> 5d/pop-to-ebp -<span id="L11617" class="LineNr">11617 </span> c3/return -<span id="L11618" class="LineNr">11618 </span> -<span id="L11619" class="LineNr">11619 </span><span class="subxTest">test-index-with-too-many-inouts</span>: -<span id="L11620" class="LineNr">11620 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11621" class="LineNr">11621 </span> 55/push-ebp -<span id="L11622" class="LineNr">11622 </span> 89/<- %ebp 4/r32/esp -<span id="L11623" class="LineNr">11623 </span> <span class="subxComment"># setup</span> -<span id="L11624" class="LineNr">11624 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11625" class="LineNr">11625 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11626" class="LineNr">11626 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L11627" class="LineNr">11627 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11628" class="LineNr">11628 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L11629" class="LineNr">11629 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11630" class="LineNr">11630 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11631" class="LineNr">11631 </span> 68/push 0/imm32 -<span id="L11632" class="LineNr">11632 </span> 68/push 0/imm32 -<span id="L11633" class="LineNr">11633 </span> 89/<- %edx 4/r32/esp -<span id="L11634" class="LineNr">11634 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11635" class="LineNr">11635 </span> <span class="subxComment">#</span> -<span id="L11636" class="LineNr">11636 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11637" class="LineNr">11637 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) -<span id="L11638" class="LineNr">11638 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, 0, 0\n"</span>) -<span id="L11639" class="LineNr">11639 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11640" class="LineNr">11640 </span> <span class="subxComment"># convert</span> -<span id="L11641" class="LineNr">11641 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L11642" class="LineNr">11642 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11643" class="LineNr">11643 </span> <span class="subxComment"># restore ed</span> -<span id="L11644" class="LineNr">11644 </span> 89/<- %edx 4/r32/esp -<span id="L11645" class="LineNr">11645 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L11646" class="LineNr">11646 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L11647" class="Folded">11647 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11653" class="LineNr">11653 </span> <span class="subxComment"># check output</span> -<span id="L11654" class="LineNr">11654 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11619'>test-index-with-too-many-inouts</a>: output should be empty"</span>) -<span id="L11655" class="LineNr">11655 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: too many inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L11619'>test-index-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L11656" class="LineNr">11656 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11657" class="LineNr">11657 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11619'>test-index-with-too-many-inouts</a>: exit status"</span>) -<span id="L11658" class="LineNr">11658 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11659" class="LineNr">11659 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11660" class="LineNr">11660 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11661" class="LineNr">11661 </span> 5d/pop-to-ebp -<span id="L11662" class="LineNr">11662 </span> c3/return -<span id="L11663" class="LineNr">11663 </span> -<span id="L11664" class="LineNr">11664 </span><span class="subxTest">test-index-with-no-output</span>: -<span id="L11665" class="LineNr">11665 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11666" class="LineNr">11666 </span> 55/push-ebp -<span id="L11667" class="LineNr">11667 </span> 89/<- %ebp 4/r32/esp -<span id="L11668" class="LineNr">11668 </span> <span class="subxComment"># setup</span> -<span id="L11669" class="LineNr">11669 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11670" class="LineNr">11670 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11671" class="LineNr">11671 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L11672" class="LineNr">11672 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11673" class="LineNr">11673 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L11674" class="LineNr">11674 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11675" class="LineNr">11675 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11676" class="LineNr">11676 </span> 68/push 0/imm32 -<span id="L11677" class="LineNr">11677 </span> 68/push 0/imm32 -<span id="L11678" class="LineNr">11678 </span> 89/<- %edx 4/r32/esp -<span id="L11679" class="LineNr">11679 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11680" class="LineNr">11680 </span> <span class="subxComment">#</span> -<span id="L11681" class="LineNr">11681 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11682" class="LineNr">11682 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) -<span id="L11683" class="LineNr">11683 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" index a, 0\n"</span>) -<span id="L11684" class="LineNr">11684 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11685" class="LineNr">11685 </span> <span class="subxComment"># convert</span> -<span id="L11686" class="LineNr">11686 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L11687" class="LineNr">11687 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11688" class="LineNr">11688 </span> <span class="subxComment"># restore ed</span> -<span id="L11689" class="LineNr">11689 </span> 89/<- %edx 4/r32/esp -<span id="L11690" class="LineNr">11690 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L11691" class="LineNr">11691 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L11692" class="Folded">11692 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11698" class="LineNr">11698 </span> <span class="subxComment"># check output</span> -<span id="L11699" class="LineNr">11699 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11664'>test-index-with-no-output</a>: output should be empty"</span>) -<span id="L11700" class="LineNr">11700 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: must have an output"</span> <span class="Constant">"F - <a href='mu.subx.html#L11664'>test-index-with-no-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L11701" class="LineNr">11701 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11702" class="LineNr">11702 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11664'>test-index-with-no-output</a>: exit status"</span>) -<span id="L11703" class="LineNr">11703 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11704" class="LineNr">11704 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11705" class="LineNr">11705 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11706" class="LineNr">11706 </span> 5d/pop-to-ebp -<span id="L11707" class="LineNr">11707 </span> c3/return -<span id="L11708" class="LineNr">11708 </span> -<span id="L11709" class="LineNr">11709 </span><span class="subxTest">test-index-with-too-many-outputs</span>: -<span id="L11710" class="LineNr">11710 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11711" class="LineNr">11711 </span> 55/push-ebp -<span id="L11712" class="LineNr">11712 </span> 89/<- %ebp 4/r32/esp -<span id="L11713" class="LineNr">11713 </span> <span class="subxComment"># setup</span> -<span id="L11714" class="LineNr">11714 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11715" class="LineNr">11715 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11716" class="LineNr">11716 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L11717" class="LineNr">11717 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11718" class="LineNr">11718 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L11719" class="LineNr">11719 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11720" class="LineNr">11720 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11721" class="LineNr">11721 </span> 68/push 0/imm32 -<span id="L11722" class="LineNr">11722 </span> 68/push 0/imm32 -<span id="L11723" class="LineNr">11723 </span> 89/<- %edx 4/r32/esp -<span id="L11724" class="LineNr">11724 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11725" class="LineNr">11725 </span> <span class="subxComment">#</span> -<span id="L11726" class="LineNr">11726 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11727" class="LineNr">11727 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) -<span id="L11728" class="LineNr">11728 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: (addr int) <- copy 0\n"</span>) -<span id="L11729" class="LineNr">11729 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- copy 0\n"</span>) -<span id="L11730" class="LineNr">11730 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" b, c <- index a, 0\n"</span>) -<span id="L11731" class="LineNr">11731 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11732" class="LineNr">11732 </span> <span class="subxComment"># convert</span> -<span id="L11733" class="LineNr">11733 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L11734" class="LineNr">11734 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11735" class="LineNr">11735 </span> <span class="subxComment"># restore ed</span> -<span id="L11736" class="LineNr">11736 </span> 89/<- %edx 4/r32/esp -<span id="L11737" class="LineNr">11737 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L11738" class="LineNr">11738 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L11739" class="Folded">11739 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11745" class="LineNr">11745 </span> <span class="subxComment"># check output</span> -<span id="L11746" class="LineNr">11746 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11709'>test-index-with-too-many-outputs</a>: output should be empty"</span>) -<span id="L11747" class="LineNr">11747 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: too many outputs (1 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L11709'>test-index-with-too-many-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L11748" class="LineNr">11748 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11749" class="LineNr">11749 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11709'>test-index-with-too-many-outputs</a>: exit status"</span>) -<span id="L11750" class="LineNr">11750 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11751" class="LineNr">11751 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11752" class="LineNr">11752 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11753" class="LineNr">11753 </span> 5d/pop-to-ebp -<span id="L11754" class="LineNr">11754 </span> c3/return -<span id="L11755" class="LineNr">11755 </span> -<span id="L11756" class="LineNr">11756 </span><span class="subxTest">test-compute-offset-with-non-array-atom-base-type</span>: -<span id="L11757" class="LineNr">11757 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11758" class="LineNr">11758 </span> 55/push-ebp -<span id="L11759" class="LineNr">11759 </span> 89/<- %ebp 4/r32/esp -<span id="L11760" class="LineNr">11760 </span> <span class="subxComment"># setup</span> -<span id="L11761" class="LineNr">11761 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11762" class="LineNr">11762 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11763" class="LineNr">11763 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L11764" class="LineNr">11764 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11765" class="LineNr">11765 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L11766" class="LineNr">11766 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11767" class="LineNr">11767 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11768" class="LineNr">11768 </span> 68/push 0/imm32 -<span id="L11769" class="LineNr">11769 </span> 68/push 0/imm32 -<span id="L11770" class="LineNr">11770 </span> 89/<- %edx 4/r32/esp -<span id="L11771" class="LineNr">11771 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11772" class="LineNr">11772 </span> <span class="subxComment">#</span> -<span id="L11773" class="LineNr">11773 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11774" class="LineNr">11774 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) -<span id="L11775" class="LineNr">11775 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (offset int) <- compute-offset a, 0\n"</span>) -<span id="L11776" class="LineNr">11776 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11777" class="LineNr">11777 </span> <span class="subxComment"># convert</span> -<span id="L11778" class="LineNr">11778 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L11779" class="LineNr">11779 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11780" class="LineNr">11780 </span> <span class="subxComment"># restore ed</span> -<span id="L11781" class="LineNr">11781 </span> 89/<- %edx 4/r32/esp -<span id="L11782" class="LineNr">11782 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L11783" class="LineNr">11783 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L11784" class="Folded">11784 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11790" class="LineNr">11790 </span> <span class="subxComment"># check output</span> -<span id="L11791" class="LineNr">11791 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11756'>test-compute-offset-with-non-array-atom-base-type</a>: output should be empty"</span>) -<span id="L11792" class="LineNr">11792 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L11756'>test-compute-offset-with-non-array-atom-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L11793" class="LineNr">11793 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11794" class="LineNr">11794 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11756'>test-compute-offset-with-non-array-atom-base-type</a>: exit status"</span>) -<span id="L11795" class="LineNr">11795 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11796" class="LineNr">11796 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11797" class="LineNr">11797 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11798" class="LineNr">11798 </span> 5d/pop-to-ebp -<span id="L11799" class="LineNr">11799 </span> c3/return -<span id="L11800" class="LineNr">11800 </span> -<span id="L11801" class="LineNr">11801 </span><span class="subxTest">test-compute-offset-with-non-array-compound-base-type</span>: -<span id="L11802" class="LineNr">11802 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11803" class="LineNr">11803 </span> 55/push-ebp -<span id="L11804" class="LineNr">11804 </span> 89/<- %ebp 4/r32/esp -<span id="L11805" class="LineNr">11805 </span> <span class="subxComment"># setup</span> -<span id="L11806" class="LineNr">11806 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11807" class="LineNr">11807 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11808" class="LineNr">11808 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L11809" class="LineNr">11809 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11810" class="LineNr">11810 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L11811" class="LineNr">11811 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11812" class="LineNr">11812 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11813" class="LineNr">11813 </span> 68/push 0/imm32 -<span id="L11814" class="LineNr">11814 </span> 68/push 0/imm32 -<span id="L11815" class="LineNr">11815 </span> 89/<- %edx 4/r32/esp -<span id="L11816" class="LineNr">11816 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11817" class="LineNr">11817 </span> <span class="subxComment">#</span> -<span id="L11818" class="LineNr">11818 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11819" class="LineNr">11819 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (handle int)\n"</span>) -<span id="L11820" class="LineNr">11820 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (offset int) <- compute-offset a, 0\n"</span>) -<span id="L11821" class="LineNr">11821 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11822" class="LineNr">11822 </span> <span class="subxComment"># convert</span> -<span id="L11823" class="LineNr">11823 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L11824" class="LineNr">11824 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11825" class="LineNr">11825 </span> <span class="subxComment"># restore ed</span> -<span id="L11826" class="LineNr">11826 </span> 89/<- %edx 4/r32/esp -<span id="L11827" class="LineNr">11827 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L11828" class="LineNr">11828 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L11829" class="Folded">11829 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11835" class="LineNr">11835 </span> <span class="subxComment"># check output</span> -<span id="L11836" class="LineNr">11836 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11801'>test-compute-offset-with-non-array-compound-base-type</a>: output should be empty"</span>) -<span id="L11837" class="LineNr">11837 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L11801'>test-compute-offset-with-non-array-compound-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L11838" class="LineNr">11838 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11839" class="LineNr">11839 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11801'>test-compute-offset-with-non-array-compound-base-type</a>: exit status"</span>) -<span id="L11840" class="LineNr">11840 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11841" class="LineNr">11841 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11842" class="LineNr">11842 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11843" class="LineNr">11843 </span> 5d/pop-to-ebp -<span id="L11844" class="LineNr">11844 </span> c3/return -<span id="L11845" class="LineNr">11845 </span> -<span id="L11846" class="LineNr">11846 </span><span class="subxTest">test-compute-offset-with-non-array-compound-base-type-2</span>: -<span id="L11847" class="LineNr">11847 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11848" class="LineNr">11848 </span> 55/push-ebp -<span id="L11849" class="LineNr">11849 </span> 89/<- %ebp 4/r32/esp -<span id="L11850" class="LineNr">11850 </span> <span class="subxComment"># setup</span> -<span id="L11851" class="LineNr">11851 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11852" class="LineNr">11852 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11853" class="LineNr">11853 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L11854" class="LineNr">11854 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11855" class="LineNr">11855 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L11856" class="LineNr">11856 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11857" class="LineNr">11857 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11858" class="LineNr">11858 </span> 68/push 0/imm32 -<span id="L11859" class="LineNr">11859 </span> 68/push 0/imm32 -<span id="L11860" class="LineNr">11860 </span> 89/<- %edx 4/r32/esp -<span id="L11861" class="LineNr">11861 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11862" class="LineNr">11862 </span> <span class="subxComment">#</span> -<span id="L11863" class="LineNr">11863 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11864" class="LineNr">11864 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr int)\n"</span>) -<span id="L11865" class="LineNr">11865 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (offset int) <- compute-offset a, 0\n"</span>) -<span id="L11866" class="LineNr">11866 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11867" class="LineNr">11867 </span> <span class="subxComment"># convert</span> -<span id="L11868" class="LineNr">11868 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L11869" class="LineNr">11869 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11870" class="LineNr">11870 </span> <span class="subxComment"># restore ed</span> -<span id="L11871" class="LineNr">11871 </span> 89/<- %edx 4/r32/esp -<span id="L11872" class="LineNr">11872 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L11873" class="LineNr">11873 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L11874" class="Folded">11874 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11880" class="LineNr">11880 </span> <span class="subxComment"># check output</span> -<span id="L11881" class="LineNr">11881 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11846'>test-compute-offset-with-non-array-compound-base-type-2</a>: output should be empty"</span>) -<span id="L11882" class="LineNr">11882 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L11846'>test-compute-offset-with-non-array-compound-base-type-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L11883" class="LineNr">11883 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11884" class="LineNr">11884 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11846'>test-compute-offset-with-non-array-compound-base-type-2</a>: exit status"</span>) -<span id="L11885" class="LineNr">11885 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11886" class="LineNr">11886 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11887" class="LineNr">11887 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11888" class="LineNr">11888 </span> 5d/pop-to-ebp -<span id="L11889" class="LineNr">11889 </span> c3/return -<span id="L11890" class="LineNr">11890 </span> -<span id="L11891" class="LineNr">11891 </span><span class="subxTest">test-compute-offset-with-array-atom-base-type</span>: -<span id="L11892" class="LineNr">11892 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11893" class="LineNr">11893 </span> 55/push-ebp -<span id="L11894" class="LineNr">11894 </span> 89/<- %ebp 4/r32/esp -<span id="L11895" class="LineNr">11895 </span> <span class="subxComment"># setup</span> -<span id="L11896" class="LineNr">11896 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11897" class="LineNr">11897 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11898" class="LineNr">11898 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L11899" class="LineNr">11899 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11900" class="LineNr">11900 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L11901" class="LineNr">11901 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11902" class="LineNr">11902 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11903" class="LineNr">11903 </span> 68/push 0/imm32 -<span id="L11904" class="LineNr">11904 </span> 68/push 0/imm32 -<span id="L11905" class="LineNr">11905 </span> 89/<- %edx 4/r32/esp -<span id="L11906" class="LineNr">11906 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11907" class="LineNr">11907 </span> <span class="subxComment">#</span> -<span id="L11908" class="LineNr">11908 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11909" class="LineNr">11909 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: array\n"</span>) -<span id="L11910" class="LineNr">11910 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (offset int) <- compute-offset a, 0\n"</span>) -<span id="L11911" class="LineNr">11911 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11912" class="LineNr">11912 </span> <span class="subxComment"># convert</span> -<span id="L11913" class="LineNr">11913 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L11914" class="LineNr">11914 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11915" class="LineNr">11915 </span> <span class="subxComment"># restore ed</span> -<span id="L11916" class="LineNr">11916 </span> 89/<- %edx 4/r32/esp -<span id="L11917" class="LineNr">11917 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L11918" class="LineNr">11918 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L11919" class="Folded">11919 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11925" class="LineNr">11925 </span> <span class="subxComment"># check output</span> -<span id="L11926" class="LineNr">11926 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11891'>test-compute-offset-with-array-atom-base-type</a>: output should be empty"</span>) -<span id="L11927" class="LineNr">11927 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: array 'a' must specify the type of its elements"</span> <span class="Constant">"F - <a href='mu.subx.html#L11891'>test-compute-offset-with-array-atom-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L11928" class="LineNr">11928 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11929" class="LineNr">11929 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11891'>test-compute-offset-with-array-atom-base-type</a>: exit status"</span>) -<span id="L11930" class="LineNr">11930 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11931" class="LineNr">11931 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11932" class="LineNr">11932 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11933" class="LineNr">11933 </span> 5d/pop-to-ebp -<span id="L11934" class="LineNr">11934 </span> c3/return -<span id="L11935" class="LineNr">11935 </span> -<span id="L11936" class="LineNr">11936 </span><span class="subxTest">test-compute-offset-with-wrong-index-type</span>: -<span id="L11937" class="LineNr">11937 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11938" class="LineNr">11938 </span> 55/push-ebp -<span id="L11939" class="LineNr">11939 </span> 89/<- %ebp 4/r32/esp -<span id="L11940" class="LineNr">11940 </span> <span class="subxComment"># setup</span> -<span id="L11941" class="LineNr">11941 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11942" class="LineNr">11942 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11943" class="LineNr">11943 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L11944" class="LineNr">11944 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11945" class="LineNr">11945 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L11946" class="LineNr">11946 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11947" class="LineNr">11947 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11948" class="LineNr">11948 </span> 68/push 0/imm32 -<span id="L11949" class="LineNr">11949 </span> 68/push 0/imm32 -<span id="L11950" class="LineNr">11950 </span> 89/<- %edx 4/r32/esp -<span id="L11951" class="LineNr">11951 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11952" class="LineNr">11952 </span> <span class="subxComment">#</span> -<span id="L11953" class="LineNr">11953 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11954" class="LineNr">11954 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr array int) <- copy 0\n"</span>) -<span id="L11955" class="LineNr">11955 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: boolean\n"</span>) -<span id="L11956" class="LineNr">11956 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (offset int) <- compute-offset a, b\n"</span>) -<span id="L11957" class="LineNr">11957 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11958" class="LineNr">11958 </span> <span class="subxComment"># convert</span> -<span id="L11959" class="LineNr">11959 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L11960" class="LineNr">11960 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11961" class="LineNr">11961 </span> <span class="subxComment"># restore ed</span> -<span id="L11962" class="LineNr">11962 </span> 89/<- %edx 4/r32/esp -<span id="L11963" class="LineNr">11963 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L11964" class="LineNr">11964 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L11965" class="Folded">11965 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11971" class="LineNr">11971 </span> <span class="subxComment"># check output</span> -<span id="L11972" class="LineNr">11972 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11936'>test-compute-offset-with-wrong-index-type</a>: output should be empty"</span>) -<span id="L11973" class="LineNr">11973 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: second argument 'b' must be an int"</span> <span class="Constant">"F - <a href='mu.subx.html#L11936'>test-compute-offset-with-wrong-index-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L11974" class="LineNr">11974 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11975" class="LineNr">11975 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11936'>test-compute-offset-with-wrong-index-type</a>: exit status"</span>) -<span id="L11976" class="LineNr">11976 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11977" class="LineNr">11977 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11978" class="LineNr">11978 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11979" class="LineNr">11979 </span> 5d/pop-to-ebp -<span id="L11980" class="LineNr">11980 </span> c3/return -<span id="L11981" class="LineNr">11981 </span> -<span id="L11982" class="LineNr">11982 </span><span class="subxTest">test-compute-offset-with-output-not-offset</span>: -<span id="L11983" class="LineNr">11983 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11984" class="LineNr">11984 </span> 55/push-ebp -<span id="L11985" class="LineNr">11985 </span> 89/<- %ebp 4/r32/esp -<span id="L11986" class="LineNr">11986 </span> <span class="subxComment"># setup</span> -<span id="L11987" class="LineNr">11987 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11988" class="LineNr">11988 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11989" class="LineNr">11989 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L11990" class="LineNr">11990 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11991" class="LineNr">11991 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L11992" class="LineNr">11992 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11993" class="LineNr">11993 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11994" class="LineNr">11994 </span> 68/push 0/imm32 -<span id="L11995" class="LineNr">11995 </span> 68/push 0/imm32 -<span id="L11996" class="LineNr">11996 </span> 89/<- %edx 4/r32/esp -<span id="L11997" class="LineNr">11997 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11998" class="LineNr">11998 </span> <span class="subxComment">#</span> -<span id="L11999" class="LineNr">11999 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12000" class="LineNr">12000 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/ebx: (addr array boolean) <- copy 0\n"</span>) -<span id="L12001" class="LineNr">12001 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/edi: int <- compute-offset a, 0\n"</span>) -<span id="L12002" class="LineNr">12002 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12003" class="LineNr">12003 </span> <span class="subxComment"># convert</span> -<span id="L12004" class="LineNr">12004 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L12005" class="LineNr">12005 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12006" class="LineNr">12006 </span> <span class="subxComment"># restore ed</span> -<span id="L12007" class="LineNr">12007 </span> 89/<- %edx 4/r32/esp -<span id="L12008" class="LineNr">12008 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L12009" class="LineNr">12009 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L12010" class="Folded">12010 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12016" class="LineNr">12016 </span> <span class="subxComment"># check output</span> -<span id="L12017" class="LineNr">12017 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11982'>test-compute-offset-with-output-not-offset</a>: output should be empty"</span>) -<span id="L12018" class="LineNr">12018 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: output 'o' must be an offset"</span> <span class="Constant">"F - <a href='mu.subx.html#L11982'>test-compute-offset-with-output-not-offset</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L12019" class="LineNr">12019 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L12020" class="LineNr">12020 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11982'>test-compute-offset-with-output-not-offset</a>: exit status"</span>) -<span id="L12021" class="LineNr">12021 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L12022" class="LineNr">12022 </span> 81 0/subop/add %esp 8/imm32 -<span id="L12023" class="LineNr">12023 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12024" class="LineNr">12024 </span> 5d/pop-to-ebp -<span id="L12025" class="LineNr">12025 </span> c3/return -<span id="L12026" class="LineNr">12026 </span> -<span id="L12027" class="LineNr">12027 </span><span class="subxTest">test-compute-offset-with-output-not-address-2</span>: -<span id="L12028" class="LineNr">12028 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12029" class="LineNr">12029 </span> 55/push-ebp -<span id="L12030" class="LineNr">12030 </span> 89/<- %ebp 4/r32/esp -<span id="L12031" class="LineNr">12031 </span> <span class="subxComment"># setup</span> -<span id="L12032" class="LineNr">12032 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12033" class="LineNr">12033 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12034" class="LineNr">12034 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L12035" class="LineNr">12035 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12036" class="LineNr">12036 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L12037" class="LineNr">12037 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L12038" class="LineNr">12038 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L12039" class="LineNr">12039 </span> 68/push 0/imm32 -<span id="L12040" class="LineNr">12040 </span> 68/push 0/imm32 -<span id="L12041" class="LineNr">12041 </span> 89/<- %edx 4/r32/esp -<span id="L12042" class="LineNr">12042 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L12043" class="LineNr">12043 </span> <span class="subxComment">#</span> -<span id="L12044" class="LineNr">12044 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12045" class="LineNr">12045 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/ebx: (addr array boolean) <- copy 0\n"</span>) -<span id="L12046" class="LineNr">12046 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/edi: (int) <- compute-offset a, 0\n"</span>) -<span id="L12047" class="LineNr">12047 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12048" class="LineNr">12048 </span> <span class="subxComment"># convert</span> -<span id="L12049" class="LineNr">12049 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L12050" class="LineNr">12050 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12051" class="LineNr">12051 </span> <span class="subxComment"># restore ed</span> -<span id="L12052" class="LineNr">12052 </span> 89/<- %edx 4/r32/esp -<span id="L12053" class="LineNr">12053 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L12054" class="LineNr">12054 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L12055" class="Folded">12055 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12061" class="LineNr">12061 </span> <span class="subxComment"># check output</span> -<span id="L12062" class="LineNr">12062 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12027'>test-compute-offset-with-output-not-address-2</a>: output should be empty"</span>) -<span id="L12063" class="LineNr">12063 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: output 'o' must be an offset"</span> <span class="Constant">"F - <a href='mu.subx.html#L12027'>test-compute-offset-with-output-not-address-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L12064" class="LineNr">12064 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L12065" class="LineNr">12065 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12027'>test-compute-offset-with-output-not-address-2</a>: exit status"</span>) -<span id="L12066" class="LineNr">12066 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L12067" class="LineNr">12067 </span> 81 0/subop/add %esp 8/imm32 -<span id="L12068" class="LineNr">12068 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12069" class="LineNr">12069 </span> 5d/pop-to-ebp -<span id="L12070" class="LineNr">12070 </span> c3/return -<span id="L12071" class="LineNr">12071 </span> -<span id="L12072" class="LineNr">12072 </span><span class="subxTest">test-compute-offset-with-wrong-output-type</span>: -<span id="L12073" class="LineNr">12073 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12074" class="LineNr">12074 </span> 55/push-ebp -<span id="L12075" class="LineNr">12075 </span> 89/<- %ebp 4/r32/esp -<span id="L12076" class="LineNr">12076 </span> <span class="subxComment"># setup</span> -<span id="L12077" class="LineNr">12077 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12078" class="LineNr">12078 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12079" class="LineNr">12079 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L12080" class="LineNr">12080 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12081" class="LineNr">12081 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L12082" class="LineNr">12082 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L12083" class="LineNr">12083 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L12084" class="LineNr">12084 </span> 68/push 0/imm32 -<span id="L12085" class="LineNr">12085 </span> 68/push 0/imm32 -<span id="L12086" class="LineNr">12086 </span> 89/<- %edx 4/r32/esp -<span id="L12087" class="LineNr">12087 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L12088" class="LineNr">12088 </span> <span class="subxComment">#</span> -<span id="L12089" class="LineNr">12089 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12090" class="LineNr">12090 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/ebx: (addr array boolean) <- copy 0\n"</span>) -<span id="L12091" class="LineNr">12091 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/edi: (offset int) <- compute-offset a, 0\n"</span>) -<span id="L12092" class="LineNr">12092 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12093" class="LineNr">12093 </span> <span class="subxComment"># convert</span> -<span id="L12094" class="LineNr">12094 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L12095" class="LineNr">12095 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12096" class="LineNr">12096 </span> <span class="subxComment"># restore ed</span> -<span id="L12097" class="LineNr">12097 </span> 89/<- %edx 4/r32/esp -<span id="L12098" class="LineNr">12098 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L12099" class="LineNr">12099 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L12100" class="Folded">12100 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12106" class="LineNr">12106 </span> <span class="subxComment"># check output</span> -<span id="L12107" class="LineNr">12107 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12072'>test-compute-offset-with-wrong-output-type</a>: output should be empty"</span>) -<span id="L12108" class="LineNr">12108 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: output 'o' does not have the right type"</span> <span class="Constant">"F - <a href='mu.subx.html#L12072'>test-compute-offset-with-wrong-output-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L12109" class="LineNr">12109 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L12110" class="LineNr">12110 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12072'>test-compute-offset-with-wrong-output-type</a>: exit status"</span>) -<span id="L12111" class="LineNr">12111 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L12112" class="LineNr">12112 </span> 81 0/subop/add %esp 8/imm32 -<span id="L12113" class="LineNr">12113 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12114" class="LineNr">12114 </span> 5d/pop-to-ebp -<span id="L12115" class="LineNr">12115 </span> c3/return -<span id="L12116" class="LineNr">12116 </span> -<span id="L12117" class="LineNr">12117 </span><span class="subxTest">test-compute-offset-with-wrong-output-compound-type</span>: -<span id="L12118" class="LineNr">12118 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12119" class="LineNr">12119 </span> 55/push-ebp -<span id="L12120" class="LineNr">12120 </span> 89/<- %ebp 4/r32/esp -<span id="L12121" class="LineNr">12121 </span> <span class="subxComment"># setup</span> -<span id="L12122" class="LineNr">12122 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12123" class="LineNr">12123 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12124" class="LineNr">12124 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L12125" class="LineNr">12125 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12126" class="LineNr">12126 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L12127" class="LineNr">12127 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L12128" class="LineNr">12128 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L12129" class="LineNr">12129 </span> 68/push 0/imm32 -<span id="L12130" class="LineNr">12130 </span> 68/push 0/imm32 -<span id="L12131" class="LineNr">12131 </span> 89/<- %edx 4/r32/esp -<span id="L12132" class="LineNr">12132 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L12133" class="LineNr">12133 </span> <span class="subxComment">#</span> -<span id="L12134" class="LineNr">12134 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12135" class="LineNr">12135 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/ebx: (addr array handle boolean) <- copy 0\n"</span>) -<span id="L12136" class="LineNr">12136 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/edi: (offset handle int) <- compute-offset a, 0\n"</span>) -<span id="L12137" class="LineNr">12137 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12138" class="LineNr">12138 </span> <span class="subxComment"># convert</span> -<span id="L12139" class="LineNr">12139 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L12140" class="LineNr">12140 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12141" class="LineNr">12141 </span> <span class="subxComment"># restore ed</span> -<span id="L12142" class="LineNr">12142 </span> 89/<- %edx 4/r32/esp -<span id="L12143" class="LineNr">12143 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L12144" class="LineNr">12144 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L12145" class="Folded">12145 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12151" class="LineNr">12151 </span> <span class="subxComment"># check output</span> -<span id="L12152" class="LineNr">12152 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12117'>test-compute-offset-with-wrong-output-compound-type</a>: output should be empty"</span>) -<span id="L12153" class="LineNr">12153 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: output 'o' does not have the right type"</span> <span class="Constant">"F - <a href='mu.subx.html#L12117'>test-compute-offset-with-wrong-output-compound-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L12154" class="LineNr">12154 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L12155" class="LineNr">12155 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12117'>test-compute-offset-with-wrong-output-compound-type</a>: exit status"</span>) -<span id="L12156" class="LineNr">12156 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L12157" class="LineNr">12157 </span> 81 0/subop/add %esp 8/imm32 -<span id="L12158" class="LineNr">12158 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12159" class="LineNr">12159 </span> 5d/pop-to-ebp -<span id="L12160" class="LineNr">12160 </span> c3/return -<span id="L12161" class="LineNr">12161 </span> -<span id="L12162" class="LineNr">12162 </span><span class="subxTest">test-compute-offset-with-no-inouts</span>: -<span id="L12163" class="LineNr">12163 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12164" class="LineNr">12164 </span> 55/push-ebp -<span id="L12165" class="LineNr">12165 </span> 89/<- %ebp 4/r32/esp -<span id="L12166" class="LineNr">12166 </span> <span class="subxComment"># setup</span> -<span id="L12167" class="LineNr">12167 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12168" class="LineNr">12168 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12169" class="LineNr">12169 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L12170" class="LineNr">12170 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12171" class="LineNr">12171 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L12172" class="LineNr">12172 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L12173" class="LineNr">12173 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L12174" class="LineNr">12174 </span> 68/push 0/imm32 -<span id="L12175" class="LineNr">12175 </span> 68/push 0/imm32 -<span id="L12176" class="LineNr">12176 </span> 89/<- %edx 4/r32/esp -<span id="L12177" class="LineNr">12177 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L12178" class="LineNr">12178 </span> <span class="subxComment">#</span> -<span id="L12179" class="LineNr">12179 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12180" class="LineNr">12180 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (offset int) <- compute-offset\n"</span>) -<span id="L12181" class="LineNr">12181 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12182" class="LineNr">12182 </span> <span class="subxComment"># convert</span> -<span id="L12183" class="LineNr">12183 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L12184" class="LineNr">12184 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12185" class="LineNr">12185 </span> <span class="subxComment"># restore ed</span> -<span id="L12186" class="LineNr">12186 </span> 89/<- %edx 4/r32/esp -<span id="L12187" class="LineNr">12187 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L12188" class="LineNr">12188 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L12189" class="Folded">12189 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12195" class="LineNr">12195 </span> <span class="subxComment"># check output</span> -<span id="L12196" class="LineNr">12196 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12162'>test-compute-offset-with-no-inouts</a>: output should be empty"</span>) -<span id="L12197" class="LineNr">12197 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: too few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12162'>test-compute-offset-with-no-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L12198" class="LineNr">12198 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L12199" class="LineNr">12199 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12162'>test-compute-offset-with-no-inouts</a>: exit status"</span>) -<span id="L12200" class="LineNr">12200 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L12201" class="LineNr">12201 </span> 81 0/subop/add %esp 8/imm32 -<span id="L12202" class="LineNr">12202 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12203" class="LineNr">12203 </span> 5d/pop-to-ebp -<span id="L12204" class="LineNr">12204 </span> c3/return -<span id="L12205" class="LineNr">12205 </span> -<span id="L12206" class="LineNr">12206 </span><span class="subxTest">test-compute-offset-with-too-few-inouts</span>: -<span id="L12207" class="LineNr">12207 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12208" class="LineNr">12208 </span> 55/push-ebp -<span id="L12209" class="LineNr">12209 </span> 89/<- %ebp 4/r32/esp -<span id="L12210" class="LineNr">12210 </span> <span class="subxComment"># setup</span> -<span id="L12211" class="LineNr">12211 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12212" class="LineNr">12212 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12213" class="LineNr">12213 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L12214" class="LineNr">12214 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12215" class="LineNr">12215 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L12216" class="LineNr">12216 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L12217" class="LineNr">12217 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L12218" class="LineNr">12218 </span> 68/push 0/imm32 -<span id="L12219" class="LineNr">12219 </span> 68/push 0/imm32 -<span id="L12220" class="LineNr">12220 </span> 89/<- %edx 4/r32/esp -<span id="L12221" class="LineNr">12221 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L12222" class="LineNr">12222 </span> <span class="subxComment">#</span> -<span id="L12223" class="LineNr">12223 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12224" class="LineNr">12224 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) -<span id="L12225" class="LineNr">12225 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (offset int) <- compute-offset a\n"</span>) -<span id="L12226" class="LineNr">12226 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12227" class="LineNr">12227 </span> <span class="subxComment"># convert</span> -<span id="L12228" class="LineNr">12228 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L12229" class="LineNr">12229 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12230" class="LineNr">12230 </span> <span class="subxComment"># restore ed</span> -<span id="L12231" class="LineNr">12231 </span> 89/<- %edx 4/r32/esp -<span id="L12232" class="LineNr">12232 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L12233" class="LineNr">12233 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L12234" class="Folded">12234 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12240" class="LineNr">12240 </span> <span class="subxComment"># check output</span> -<span id="L12241" class="LineNr">12241 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12206'>test-compute-offset-with-too-few-inouts</a>: output should be empty"</span>) -<span id="L12242" class="LineNr">12242 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: too few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12206'>test-compute-offset-with-too-few-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L12243" class="LineNr">12243 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L12244" class="LineNr">12244 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12206'>test-compute-offset-with-too-few-inouts</a>: exit status"</span>) -<span id="L12245" class="LineNr">12245 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L12246" class="LineNr">12246 </span> 81 0/subop/add %esp 8/imm32 -<span id="L12247" class="LineNr">12247 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12248" class="LineNr">12248 </span> 5d/pop-to-ebp -<span id="L12249" class="LineNr">12249 </span> c3/return -<span id="L12250" class="LineNr">12250 </span> -<span id="L12251" class="LineNr">12251 </span><span class="subxTest">test-compute-offset-with-too-many-inouts</span>: -<span id="L12252" class="LineNr">12252 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12253" class="LineNr">12253 </span> 55/push-ebp -<span id="L12254" class="LineNr">12254 </span> 89/<- %ebp 4/r32/esp -<span id="L12255" class="LineNr">12255 </span> <span class="subxComment"># setup</span> -<span id="L12256" class="LineNr">12256 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12257" class="LineNr">12257 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12258" class="LineNr">12258 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L12259" class="LineNr">12259 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12260" class="LineNr">12260 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L12261" class="LineNr">12261 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L12262" class="LineNr">12262 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L12263" class="LineNr">12263 </span> 68/push 0/imm32 -<span id="L12264" class="LineNr">12264 </span> 68/push 0/imm32 -<span id="L12265" class="LineNr">12265 </span> 89/<- %edx 4/r32/esp -<span id="L12266" class="LineNr">12266 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L12267" class="LineNr">12267 </span> <span class="subxComment">#</span> -<span id="L12268" class="LineNr">12268 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12269" class="LineNr">12269 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) -<span id="L12270" class="LineNr">12270 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (offset int) <- compute-offset a, 0, 0\n"</span>) -<span id="L12271" class="LineNr">12271 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12272" class="LineNr">12272 </span> <span class="subxComment"># convert</span> -<span id="L12273" class="LineNr">12273 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L12274" class="LineNr">12274 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12275" class="LineNr">12275 </span> <span class="subxComment"># restore ed</span> -<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#L425'>_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#L464'>_test-error-buffered-file</a>) -<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#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12251'>test-compute-offset-with-too-many-inouts</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#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: too many inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12251'>test-compute-offset-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L12288" class="LineNr">12288 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L12289" class="LineNr">12289 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12251'>test-compute-offset-with-too-many-inouts</a>: exit status"</span>) -<span id="L12290" class="LineNr">12290 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L12291" class="LineNr">12291 </span> 81 0/subop/add %esp 8/imm32 -<span id="L12292" class="LineNr">12292 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12293" class="LineNr">12293 </span> 5d/pop-to-ebp -<span id="L12294" class="LineNr">12294 </span> c3/return -<span id="L12295" class="LineNr">12295 </span> -<span id="L12296" class="LineNr">12296 </span><span class="subxTest">test-compute-offset-with-no-output</span>: -<span id="L12297" class="LineNr">12297 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12298" class="LineNr">12298 </span> 55/push-ebp -<span id="L12299" class="LineNr">12299 </span> 89/<- %ebp 4/r32/esp -<span id="L12300" class="LineNr">12300 </span> <span class="subxComment"># setup</span> -<span id="L12301" class="LineNr">12301 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12302" class="LineNr">12302 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12303" class="LineNr">12303 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L12304" class="LineNr">12304 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12305" class="LineNr">12305 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L12306" class="LineNr">12306 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L12307" class="LineNr">12307 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L12308" class="LineNr">12308 </span> 68/push 0/imm32 -<span id="L12309" class="LineNr">12309 </span> 68/push 0/imm32 -<span id="L12310" class="LineNr">12310 </span> 89/<- %edx 4/r32/esp -<span id="L12311" class="LineNr">12311 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L12312" class="LineNr">12312 </span> <span class="subxComment">#</span> -<span id="L12313" class="LineNr">12313 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12314" class="LineNr">12314 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) -<span id="L12315" class="LineNr">12315 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compute-offset a, 0\n"</span>) -<span id="L12316" class="LineNr">12316 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12317" class="LineNr">12317 </span> <span class="subxComment"># convert</span> -<span id="L12318" class="LineNr">12318 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L12319" class="LineNr">12319 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12320" class="LineNr">12320 </span> <span class="subxComment"># restore ed</span> -<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#L425'>_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#L464'>_test-error-buffered-file</a>) -<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#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12296'>test-compute-offset-with-no-output</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#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: must have an output"</span> <span class="Constant">"F - <a href='mu.subx.html#L12296'>test-compute-offset-with-no-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L12333" class="LineNr">12333 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L12334" class="LineNr">12334 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12296'>test-compute-offset-with-no-output</a>: exit status"</span>) -<span id="L12335" class="LineNr">12335 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L12336" class="LineNr">12336 </span> 81 0/subop/add %esp 8/imm32 -<span id="L12337" class="LineNr">12337 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12338" class="LineNr">12338 </span> 5d/pop-to-ebp -<span id="L12339" class="LineNr">12339 </span> c3/return -<span id="L12340" class="LineNr">12340 </span> -<span id="L12341" class="LineNr">12341 </span><span class="subxTest">test-compute-offset-with-too-many-outputs</span>: -<span id="L12342" class="LineNr">12342 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12343" class="LineNr">12343 </span> 55/push-ebp -<span id="L12344" class="LineNr">12344 </span> 89/<- %ebp 4/r32/esp -<span id="L12345" class="LineNr">12345 </span> <span class="subxComment"># setup</span> -<span id="L12346" class="LineNr">12346 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12347" class="LineNr">12347 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12348" class="LineNr">12348 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L12349" class="LineNr">12349 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12350" class="LineNr">12350 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L12351" class="LineNr">12351 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L12352" class="LineNr">12352 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L12353" class="LineNr">12353 </span> 68/push 0/imm32 -<span id="L12354" class="LineNr">12354 </span> 68/push 0/imm32 -<span id="L12355" class="LineNr">12355 </span> 89/<- %edx 4/r32/esp -<span id="L12356" class="LineNr">12356 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L12357" class="LineNr">12357 </span> <span class="subxComment">#</span> -<span id="L12358" class="LineNr">12358 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12359" class="LineNr">12359 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) -<span id="L12360" class="LineNr">12360 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: (offset int) <- compute-offset a, 0\n"</span>) -<span id="L12361" class="LineNr">12361 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- copy 0\n"</span>) -<span id="L12362" class="LineNr">12362 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" b, c <- compute-offset a, 0\n"</span>) -<span id="L12363" class="LineNr">12363 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12364" class="LineNr">12364 </span> <span class="subxComment"># convert</span> -<span id="L12365" class="LineNr">12365 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L12366" class="LineNr">12366 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12367" class="LineNr">12367 </span> <span class="subxComment"># restore ed</span> -<span id="L12368" class="LineNr">12368 </span> 89/<- %edx 4/r32/esp -<span id="L12369" class="LineNr">12369 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L12370" class="LineNr">12370 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L12371" class="Folded">12371 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12377" class="LineNr">12377 </span> <span class="subxComment"># check output</span> -<span id="L12378" class="LineNr">12378 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12341'>test-compute-offset-with-too-many-outputs</a>: output should be empty"</span>) -<span id="L12379" class="LineNr">12379 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: too many outputs (1 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12341'>test-compute-offset-with-too-many-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L12380" class="LineNr">12380 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L12381" class="LineNr">12381 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12341'>test-compute-offset-with-too-many-outputs</a>: exit status"</span>) -<span id="L12382" class="LineNr">12382 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L12383" class="LineNr">12383 </span> 81 0/subop/add %esp 8/imm32 -<span id="L12384" class="LineNr">12384 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12385" class="LineNr">12385 </span> 5d/pop-to-ebp -<span id="L12386" class="LineNr">12386 </span> c3/return -<span id="L12387" class="LineNr">12387 </span> -<span id="L12388" class="LineNr">12388 </span><span class="subxTest">test-convert-read-from-stream</span>: -<span id="L12389" class="LineNr">12389 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12390" class="LineNr">12390 </span> 55/push-ebp -<span id="L12391" class="LineNr">12391 </span> 89/<- %ebp 4/r32/esp -<span id="L12392" class="LineNr">12392 </span> <span class="subxComment"># setup</span> -<span id="L12393" class="LineNr">12393 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12394" class="LineNr">12394 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12395" class="LineNr">12395 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L12396" class="LineNr">12396 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12397" class="LineNr">12397 </span> <span class="subxComment">#</span> -<span id="L12398" class="LineNr">12398 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12399" class="LineNr">12399 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var s/esi: (addr stream int) <- copy 0\n"</span>) -<span id="L12400" class="LineNr">12400 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/ecx: (addr int) <- copy 0\n"</span>) -<span id="L12401" class="LineNr">12401 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L107'>read-from-stream</a> s, o\n"</span>) -<span id="L12402" class="LineNr">12402 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12403" class="LineNr">12403 </span> <span class="subxComment"># convert</span> -<span id="L12404" class="LineNr">12404 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L12405" class="LineNr">12405 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12406" class="LineNr">12406 </span> <span class="subxComment"># restore ed</span> -<span id="L12407" class="LineNr">12407 </span> 89/<- %edx 4/r32/esp -<span id="L12408" class="LineNr">12408 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L12409" class="LineNr">12409 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L12410" class="Folded">12410 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12416" class="LineNr">12416 </span> <span class="subxComment"># check output</span> -<span id="L12417" class="LineNr">12417 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12388'>test-convert-read-from-stream</a>/0"</span>) -<span id="L12418" class="LineNr">12418 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-read-from-stream/1"</span>) -<span id="L12419" class="LineNr">12419 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12388'>test-convert-read-from-stream</a>/2"</span>) -<span id="L12420" class="LineNr">12420 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12388'>test-convert-read-from-stream</a>/3"</span>) -<span id="L12421" class="LineNr">12421 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L12388'>test-convert-read-from-stream</a>/4"</span>) -<span id="L12422" class="LineNr">12422 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12388'>test-convert-read-from-stream</a>/5"</span>) -<span id="L12423" class="LineNr">12423 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L12388'>test-convert-read-from-stream</a>/6"</span>) -<span id="L12424" class="LineNr">12424 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" be/copy-to-esi 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L12388'>test-convert-read-from-stream</a>/7"</span>) -<span id="L12425" class="LineNr">12425 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L12388'>test-convert-read-from-stream</a>/8"</span>) -<span id="L12426" class="LineNr">12426 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L12388'>test-convert-read-from-stream</a>/9"</span>) -<span id="L12427" class="LineNr">12427 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='309stream.subx.html#L107'>read-from-stream</a> %esi %ecx 0x00000004)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12388'>test-convert-read-from-stream</a>/10"</span>) -<span id="L12428" class="LineNr">12428 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L12388'>test-convert-read-from-stream</a>/11"</span>) -<span id="L12429" class="LineNr">12429 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L12388'>test-convert-read-from-stream</a>/12"</span>) -<span id="L12430" class="LineNr">12430 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L12388'>test-convert-read-from-stream</a>/13"</span>) -<span id="L12431" class="LineNr">12431 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12388'>test-convert-read-from-stream</a>/14"</span>) -<span id="L12432" class="LineNr">12432 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-read-from-stream/15"</span>) -<span id="L12433" class="LineNr">12433 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12388'>test-convert-read-from-stream</a>/16"</span>) -<span id="L12434" class="LineNr">12434 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12388'>test-convert-read-from-stream</a>/17"</span>) -<span id="L12435" class="LineNr">12435 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L12388'>test-convert-read-from-stream</a>/18"</span>) -<span id="L12436" class="LineNr">12436 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12437" class="LineNr">12437 </span> 89/<- %esp 5/r32/ebp -<span id="L12438" class="LineNr">12438 </span> 5d/pop-to-ebp -<span id="L12439" class="LineNr">12439 </span> c3/return -<span id="L12440" class="LineNr">12440 </span> -<span id="L12441" class="LineNr">12441 </span><span class="subxTest">test-convert-read-from-stream-with-correct-payload-size</span>: -<span id="L12442" class="LineNr">12442 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12443" class="LineNr">12443 </span> 55/push-ebp -<span id="L12444" class="LineNr">12444 </span> 89/<- %ebp 4/r32/esp -<span id="L12445" class="LineNr">12445 </span> <span class="subxComment"># setup</span> -<span id="L12446" class="LineNr">12446 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12447" class="LineNr">12447 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12448" class="LineNr">12448 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L12449" class="LineNr">12449 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12450" class="LineNr">12450 </span> <span class="subxComment">#</span> -<span id="L12451" class="LineNr">12451 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12452" class="LineNr">12452 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var s/esi: (addr stream handle int) <- copy 0\n"</span>) -<span id="L12453" class="LineNr">12453 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/ecx: (addr handle int) <- copy 0\n"</span>) -<span id="L12454" class="LineNr">12454 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L107'>read-from-stream</a> s, o\n"</span>) -<span id="L12455" class="LineNr">12455 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12456" class="LineNr">12456 </span> <span class="subxComment"># convert</span> -<span id="L12457" class="LineNr">12457 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L12458" class="LineNr">12458 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12459" class="LineNr">12459 </span> <span class="subxComment"># restore ed</span> -<span id="L12460" class="LineNr">12460 </span> 89/<- %edx 4/r32/esp -<span id="L12461" class="LineNr">12461 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L12462" class="LineNr">12462 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L12463" class="Folded">12463 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12469" class="LineNr">12469 </span> <span class="subxComment"># check output</span> -<span id="L12470" class="LineNr">12470 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12441'>test-convert-read-from-stream-with-correct-payload-size</a>/0"</span>) -<span id="L12471" class="LineNr">12471 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-read-from-stream-with-correct-payload-size/1"</span>) -<span id="L12472" class="LineNr">12472 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12441'>test-convert-read-from-stream-with-correct-payload-size</a>/2"</span>) -<span id="L12473" class="LineNr">12473 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12441'>test-convert-read-from-stream-with-correct-payload-size</a>/3"</span>) -<span id="L12474" class="LineNr">12474 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L12441'>test-convert-read-from-stream-with-correct-payload-size</a>/4"</span>) -<span id="L12475" class="LineNr">12475 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12441'>test-convert-read-from-stream-with-correct-payload-size</a>/5"</span>) -<span id="L12476" class="LineNr">12476 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L12441'>test-convert-read-from-stream-with-correct-payload-size</a>/6"</span>) -<span id="L12477" class="LineNr">12477 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" be/copy-to-esi 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L12441'>test-convert-read-from-stream-with-correct-payload-size</a>/7"</span>) -<span id="L12478" class="LineNr">12478 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L12441'>test-convert-read-from-stream-with-correct-payload-size</a>/8"</span>) -<span id="L12479" class="LineNr">12479 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L12441'>test-convert-read-from-stream-with-correct-payload-size</a>/9"</span>) -<span id="L12480" class="LineNr">12480 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='309stream.subx.html#L107'>read-from-stream</a> %esi %ecx 0x00000008)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12441'>test-convert-read-from-stream-with-correct-payload-size</a>/10"</span>) -<span id="L12481" class="LineNr">12481 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L12441'>test-convert-read-from-stream-with-correct-payload-size</a>/11"</span>) -<span id="L12482" class="LineNr">12482 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L12441'>test-convert-read-from-stream-with-correct-payload-size</a>/12"</span>) -<span id="L12483" class="LineNr">12483 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L12441'>test-convert-read-from-stream-with-correct-payload-size</a>/13"</span>) -<span id="L12484" class="LineNr">12484 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12441'>test-convert-read-from-stream-with-correct-payload-size</a>/14"</span>) -<span id="L12485" class="LineNr">12485 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-read-from-stream-with-correct-payload-size/15"</span>) -<span id="L12486" class="LineNr">12486 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12441'>test-convert-read-from-stream-with-correct-payload-size</a>/16"</span>) -<span id="L12487" class="LineNr">12487 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12441'>test-convert-read-from-stream-with-correct-payload-size</a>/17"</span>) -<span id="L12488" class="LineNr">12488 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L12441'>test-convert-read-from-stream-with-correct-payload-size</a>/18"</span>) -<span id="L12489" class="LineNr">12489 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12490" class="LineNr">12490 </span> 89/<- %esp 5/r32/ebp -<span id="L12491" class="LineNr">12491 </span> 5d/pop-to-ebp -<span id="L12492" class="LineNr">12492 </span> c3/return -<span id="L12493" class="LineNr">12493 </span> -<span id="L12494" class="LineNr">12494 </span><span class="subxTest">test-read-from-stream-with-non-stream-atom-base-type</span>: -<span id="L12495" class="LineNr">12495 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12496" class="LineNr">12496 </span> 55/push-ebp -<span id="L12497" class="LineNr">12497 </span> 89/<- %ebp 4/r32/esp -<span id="L12498" class="LineNr">12498 </span> <span class="subxComment"># setup</span> -<span id="L12499" class="LineNr">12499 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12500" class="LineNr">12500 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12501" class="LineNr">12501 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L12502" class="LineNr">12502 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12503" class="LineNr">12503 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L12504" class="LineNr">12504 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L12505" class="LineNr">12505 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L12506" class="LineNr">12506 </span> 68/push 0/imm32 -<span id="L12507" class="LineNr">12507 </span> 68/push 0/imm32 -<span id="L12508" class="LineNr">12508 </span> 89/<- %edx 4/r32/esp -<span id="L12509" class="LineNr">12509 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L12510" class="LineNr">12510 </span> <span class="subxComment">#</span> -<span id="L12511" class="LineNr">12511 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12512" class="LineNr">12512 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) -<span id="L12513" class="LineNr">12513 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L107'>read-from-stream</a> a, 0\n"</span>) -<span id="L12514" class="LineNr">12514 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12515" class="LineNr">12515 </span> <span class="subxComment"># convert</span> -<span id="L12516" class="LineNr">12516 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L12517" class="LineNr">12517 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12518" class="LineNr">12518 </span> <span class="subxComment"># restore ed</span> -<span id="L12519" class="LineNr">12519 </span> 89/<- %edx 4/r32/esp -<span id="L12520" class="LineNr">12520 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L12521" class="LineNr">12521 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L12522" class="Folded">12522 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12528" class="LineNr">12528 </span> <span class="subxComment"># check output</span> -<span id="L12529" class="LineNr">12529 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12494'>test-read-from-stream-with-non-stream-atom-base-type</a>: output should be empty"</span>) -<span id="L12530" class="LineNr">12530 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L107'>read-from-stream</a>: var 'a' must be an addr to a stream"</span> <span class="Constant">"F - <a href='mu.subx.html#L12494'>test-read-from-stream-with-non-stream-atom-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L12531" class="LineNr">12531 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L12532" class="LineNr">12532 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12494'>test-read-from-stream-with-non-stream-atom-base-type</a>: exit status"</span>) -<span id="L12533" class="LineNr">12533 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L12534" class="LineNr">12534 </span> 81 0/subop/add %esp 8/imm32 -<span id="L12535" class="LineNr">12535 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12536" class="LineNr">12536 </span> 5d/pop-to-ebp -<span id="L12537" class="LineNr">12537 </span> c3/return -<span id="L12538" class="LineNr">12538 </span> -<span id="L12539" class="LineNr">12539 </span><span class="subxTest">test-read-from-stream-with-non-stream-compound-base-type</span>: -<span id="L12540" class="LineNr">12540 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12541" class="LineNr">12541 </span> 55/push-ebp -<span id="L12542" class="LineNr">12542 </span> 89/<- %ebp 4/r32/esp -<span id="L12543" class="LineNr">12543 </span> <span class="subxComment"># setup</span> -<span id="L12544" class="LineNr">12544 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12545" class="LineNr">12545 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12546" class="LineNr">12546 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L12547" class="LineNr">12547 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12548" class="LineNr">12548 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L12549" class="LineNr">12549 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L12550" class="LineNr">12550 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L12551" class="LineNr">12551 </span> 68/push 0/imm32 -<span id="L12552" class="LineNr">12552 </span> 68/push 0/imm32 -<span id="L12553" class="LineNr">12553 </span> 89/<- %edx 4/r32/esp -<span id="L12554" class="LineNr">12554 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L12555" class="LineNr">12555 </span> <span class="subxComment">#</span> -<span id="L12556" class="LineNr">12556 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12557" class="LineNr">12557 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (handle int)\n"</span>) -<span id="L12558" class="LineNr">12558 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L107'>read-from-stream</a> a, 0\n"</span>) -<span id="L12559" class="LineNr">12559 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12560" class="LineNr">12560 </span> <span class="subxComment"># convert</span> -<span id="L12561" class="LineNr">12561 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L12562" class="LineNr">12562 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12563" class="LineNr">12563 </span> <span class="subxComment"># restore ed</span> -<span id="L12564" class="LineNr">12564 </span> 89/<- %edx 4/r32/esp -<span id="L12565" class="LineNr">12565 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L12566" class="LineNr">12566 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L12567" class="Folded">12567 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12573" class="LineNr">12573 </span> <span class="subxComment"># check output</span> -<span id="L12574" class="LineNr">12574 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12539'>test-read-from-stream-with-non-stream-compound-base-type</a>: output should be empty"</span>) -<span id="L12575" class="LineNr">12575 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L107'>read-from-stream</a>: var 'a' must be an addr to a stream"</span> <span class="Constant">"F - <a href='mu.subx.html#L12539'>test-read-from-stream-with-non-stream-compound-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L12576" class="LineNr">12576 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L12577" class="LineNr">12577 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12539'>test-read-from-stream-with-non-stream-compound-base-type</a>: exit status"</span>) -<span id="L12578" class="LineNr">12578 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L12579" class="LineNr">12579 </span> 81 0/subop/add %esp 8/imm32 -<span id="L12580" class="LineNr">12580 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12581" class="LineNr">12581 </span> 5d/pop-to-ebp -<span id="L12582" class="LineNr">12582 </span> c3/return -<span id="L12583" class="LineNr">12583 </span> -<span id="L12584" class="LineNr">12584 </span><span class="subxTest">test-read-from-stream-with-non-stream-compound-base-type-2</span>: -<span id="L12585" class="LineNr">12585 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12586" class="LineNr">12586 </span> 55/push-ebp -<span id="L12587" class="LineNr">12587 </span> 89/<- %ebp 4/r32/esp -<span id="L12588" class="LineNr">12588 </span> <span class="subxComment"># setup</span> -<span id="L12589" class="LineNr">12589 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12590" class="LineNr">12590 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12591" class="LineNr">12591 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L12592" class="LineNr">12592 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12593" class="LineNr">12593 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L12594" class="LineNr">12594 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L12595" class="LineNr">12595 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L12596" class="LineNr">12596 </span> 68/push 0/imm32 -<span id="L12597" class="LineNr">12597 </span> 68/push 0/imm32 -<span id="L12598" class="LineNr">12598 </span> 89/<- %edx 4/r32/esp -<span id="L12599" class="LineNr">12599 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L12600" class="LineNr">12600 </span> <span class="subxComment">#</span> -<span id="L12601" class="LineNr">12601 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12602" class="LineNr">12602 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr int)\n"</span>) -<span id="L12603" class="LineNr">12603 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L107'>read-from-stream</a> a, 0\n"</span>) -<span id="L12604" class="LineNr">12604 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12605" class="LineNr">12605 </span> <span class="subxComment"># convert</span> -<span id="L12606" class="LineNr">12606 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L12607" class="LineNr">12607 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12608" class="LineNr">12608 </span> <span class="subxComment"># restore ed</span> -<span id="L12609" class="LineNr">12609 </span> 89/<- %edx 4/r32/esp -<span id="L12610" class="LineNr">12610 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L12611" class="LineNr">12611 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L12612" class="Folded">12612 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12618" class="LineNr">12618 </span> <span class="subxComment"># check output</span> -<span id="L12619" class="LineNr">12619 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12584'>test-read-from-stream-with-non-stream-compound-base-type-2</a>: output should be empty"</span>) -<span id="L12620" class="LineNr">12620 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L107'>read-from-stream</a>: var 'a' must be an addr to a stream"</span> <span class="Constant">"F - <a href='mu.subx.html#L12584'>test-read-from-stream-with-non-stream-compound-base-type-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L12621" class="LineNr">12621 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L12622" class="LineNr">12622 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12584'>test-read-from-stream-with-non-stream-compound-base-type-2</a>: exit status"</span>) -<span id="L12623" class="LineNr">12623 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L12624" class="LineNr">12624 </span> 81 0/subop/add %esp 8/imm32 -<span id="L12625" class="LineNr">12625 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12626" class="LineNr">12626 </span> 5d/pop-to-ebp -<span id="L12627" class="LineNr">12627 </span> c3/return -<span id="L12628" class="LineNr">12628 </span> -<span id="L12629" class="LineNr">12629 </span><span class="subxTest">test-read-from-stream-with-stream-atom-base-type</span>: -<span id="L12630" class="LineNr">12630 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12631" class="LineNr">12631 </span> 55/push-ebp -<span id="L12632" class="LineNr">12632 </span> 89/<- %ebp 4/r32/esp -<span id="L12633" class="LineNr">12633 </span> <span class="subxComment"># setup</span> -<span id="L12634" class="LineNr">12634 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12635" class="LineNr">12635 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12636" class="LineNr">12636 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L12637" class="LineNr">12637 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12638" class="LineNr">12638 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L12639" class="LineNr">12639 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L12640" class="LineNr">12640 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L12641" class="LineNr">12641 </span> 68/push 0/imm32 -<span id="L12642" class="LineNr">12642 </span> 68/push 0/imm32 -<span id="L12643" class="LineNr">12643 </span> 89/<- %edx 4/r32/esp -<span id="L12644" class="LineNr">12644 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L12645" class="LineNr">12645 </span> <span class="subxComment">#</span> -<span id="L12646" class="LineNr">12646 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12647" class="LineNr">12647 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: stream\n"</span>) -<span id="L12648" class="LineNr">12648 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L107'>read-from-stream</a> a, 0\n"</span>) -<span id="L12649" class="LineNr">12649 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12650" class="LineNr">12650 </span> <span class="subxComment"># convert</span> -<span id="L12651" class="LineNr">12651 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L12652" class="LineNr">12652 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12653" class="LineNr">12653 </span> <span class="subxComment"># restore ed</span> -<span id="L12654" class="LineNr">12654 </span> 89/<- %edx 4/r32/esp -<span id="L12655" class="LineNr">12655 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L12656" class="LineNr">12656 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L12657" class="Folded">12657 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12663" class="LineNr">12663 </span> <span class="subxComment"># check output</span> -<span id="L12664" class="LineNr">12664 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12629'>test-read-from-stream-with-stream-atom-base-type</a>: output should be empty"</span>) -<span id="L12665" class="LineNr">12665 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L107'>read-from-stream</a>: var 'a' must be an addr to a stream"</span> <span class="Constant">"F - <a href='mu.subx.html#L12629'>test-read-from-stream-with-stream-atom-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L12666" class="LineNr">12666 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L12667" class="LineNr">12667 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12629'>test-read-from-stream-with-stream-atom-base-type</a>: exit status"</span>) -<span id="L12668" class="LineNr">12668 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L12669" class="LineNr">12669 </span> 81 0/subop/add %esp 8/imm32 -<span id="L12670" class="LineNr">12670 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12671" class="LineNr">12671 </span> 5d/pop-to-ebp -<span id="L12672" class="LineNr">12672 </span> c3/return -<span id="L12673" class="LineNr">12673 </span> -<span id="L12674" class="LineNr">12674 </span><span class="subxTest">test-read-from-stream-with-wrong-index-type</span>: -<span id="L12675" class="LineNr">12675 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12676" class="LineNr">12676 </span> 55/push-ebp -<span id="L12677" class="LineNr">12677 </span> 89/<- %ebp 4/r32/esp -<span id="L12678" class="LineNr">12678 </span> <span class="subxComment"># setup</span> -<span id="L12679" class="LineNr">12679 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12680" class="LineNr">12680 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12681" class="LineNr">12681 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L12682" class="LineNr">12682 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12683" class="LineNr">12683 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L12684" class="LineNr">12684 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L12685" class="LineNr">12685 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L12686" class="LineNr">12686 </span> 68/push 0/imm32 -<span id="L12687" class="LineNr">12687 </span> 68/push 0/imm32 -<span id="L12688" class="LineNr">12688 </span> 89/<- %edx 4/r32/esp -<span id="L12689" class="LineNr">12689 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L12690" class="LineNr">12690 </span> <span class="subxComment">#</span> -<span id="L12691" class="LineNr">12691 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12692" class="LineNr">12692 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr stream int) <- copy 0\n"</span>) -<span id="L12693" class="LineNr">12693 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: boolean\n"</span>) -<span id="L12694" class="LineNr">12694 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L107'>read-from-stream</a> a, b\n"</span>) -<span id="L12695" class="LineNr">12695 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12696" class="LineNr">12696 </span> <span class="subxComment"># convert</span> -<span id="L12697" class="LineNr">12697 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L12698" class="LineNr">12698 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12699" class="LineNr">12699 </span> <span class="subxComment"># restore ed</span> -<span id="L12700" class="LineNr">12700 </span> 89/<- %edx 4/r32/esp -<span id="L12701" class="LineNr">12701 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L12702" class="LineNr">12702 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L12703" class="Folded">12703 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12709" class="LineNr">12709 </span> <span class="subxComment"># check output</span> -<span id="L12710" class="LineNr">12710 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12674'>test-read-from-stream-with-wrong-index-type</a>: output should be empty"</span>) -<span id="L12711" class="LineNr">12711 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L107'>read-from-stream</a>: target 'b' must be an addr"</span> <span class="Constant">"F - <a href='mu.subx.html#L12674'>test-read-from-stream-with-wrong-index-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L12712" class="LineNr">12712 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L12713" class="LineNr">12713 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12674'>test-read-from-stream-with-wrong-index-type</a>: exit status"</span>) -<span id="L12714" class="LineNr">12714 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L12715" class="LineNr">12715 </span> 81 0/subop/add %esp 8/imm32 -<span id="L12716" class="LineNr">12716 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12717" class="LineNr">12717 </span> 5d/pop-to-ebp -<span id="L12718" class="LineNr">12718 </span> c3/return -<span id="L12719" class="LineNr">12719 </span> -<span id="L12720" class="LineNr">12720 </span><span class="subxTest">test-read-from-stream-with-no-inouts</span>: -<span id="L12721" class="LineNr">12721 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12722" class="LineNr">12722 </span> 55/push-ebp -<span id="L12723" class="LineNr">12723 </span> 89/<- %ebp 4/r32/esp -<span id="L12724" class="LineNr">12724 </span> <span class="subxComment"># setup</span> -<span id="L12725" class="LineNr">12725 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12726" class="LineNr">12726 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12727" class="LineNr">12727 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L12728" class="LineNr">12728 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12729" class="LineNr">12729 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L12730" class="LineNr">12730 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L12731" class="LineNr">12731 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L12732" class="LineNr">12732 </span> 68/push 0/imm32 -<span id="L12733" class="LineNr">12733 </span> 68/push 0/imm32 -<span id="L12734" class="LineNr">12734 </span> 89/<- %edx 4/r32/esp -<span id="L12735" class="LineNr">12735 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L12736" class="LineNr">12736 </span> <span class="subxComment">#</span> -<span id="L12737" class="LineNr">12737 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12738" class="LineNr">12738 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" read-from-stream\n"</span>) -<span id="L12739" class="LineNr">12739 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12740" class="LineNr">12740 </span> <span class="subxComment"># convert</span> -<span id="L12741" class="LineNr">12741 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L12742" class="LineNr">12742 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12743" class="LineNr">12743 </span> <span class="subxComment"># restore ed</span> -<span id="L12744" class="LineNr">12744 </span> 89/<- %edx 4/r32/esp -<span id="L12745" class="LineNr">12745 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L12746" class="LineNr">12746 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L12747" class="Folded">12747 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12753" class="LineNr">12753 </span> <span class="subxComment"># check output</span> -<span id="L12754" class="LineNr">12754 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12720'>test-read-from-stream-with-no-inouts</a>: output should be empty"</span>) -<span id="L12755" class="LineNr">12755 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L107'>read-from-stream</a>: too few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12720'>test-read-from-stream-with-no-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L12756" class="LineNr">12756 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L12757" class="LineNr">12757 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12720'>test-read-from-stream-with-no-inouts</a>: exit status"</span>) -<span id="L12758" class="LineNr">12758 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L12759" class="LineNr">12759 </span> 81 0/subop/add %esp 8/imm32 -<span id="L12760" class="LineNr">12760 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12761" class="LineNr">12761 </span> 5d/pop-to-ebp -<span id="L12762" class="LineNr">12762 </span> c3/return -<span id="L12763" class="LineNr">12763 </span> -<span id="L12764" class="LineNr">12764 </span><span class="subxTest">test-read-from-stream-with-too-few-inouts</span>: -<span id="L12765" class="LineNr">12765 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12766" class="LineNr">12766 </span> 55/push-ebp -<span id="L12767" class="LineNr">12767 </span> 89/<- %ebp 4/r32/esp -<span id="L12768" class="LineNr">12768 </span> <span class="subxComment"># setup</span> -<span id="L12769" class="LineNr">12769 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12770" class="LineNr">12770 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12771" class="LineNr">12771 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L12772" class="LineNr">12772 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12773" class="LineNr">12773 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L12774" class="LineNr">12774 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L12775" class="LineNr">12775 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L12776" class="LineNr">12776 </span> 68/push 0/imm32 -<span id="L12777" class="LineNr">12777 </span> 68/push 0/imm32 -<span id="L12778" class="LineNr">12778 </span> 89/<- %edx 4/r32/esp -<span id="L12779" class="LineNr">12779 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L12780" class="LineNr">12780 </span> <span class="subxComment">#</span> -<span id="L12781" class="LineNr">12781 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12782" class="LineNr">12782 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr stream int)\n"</span>) -<span id="L12783" class="LineNr">12783 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L107'>read-from-stream</a> a\n"</span>) -<span id="L12784" class="LineNr">12784 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12785" class="LineNr">12785 </span> <span class="subxComment"># convert</span> -<span id="L12786" class="LineNr">12786 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L12787" class="LineNr">12787 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12788" class="LineNr">12788 </span> <span class="subxComment"># restore ed</span> -<span id="L12789" class="LineNr">12789 </span> 89/<- %edx 4/r32/esp -<span id="L12790" class="LineNr">12790 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L12791" class="LineNr">12791 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L12792" class="Folded">12792 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12798" class="LineNr">12798 </span> <span class="subxComment"># check output</span> -<span id="L12799" class="LineNr">12799 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12764'>test-read-from-stream-with-too-few-inouts</a>: output should be empty"</span>) -<span id="L12800" class="LineNr">12800 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L107'>read-from-stream</a>: too few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12764'>test-read-from-stream-with-too-few-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L12801" class="LineNr">12801 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L12802" class="LineNr">12802 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12764'>test-read-from-stream-with-too-few-inouts</a>: exit status"</span>) -<span id="L12803" class="LineNr">12803 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L12804" class="LineNr">12804 </span> 81 0/subop/add %esp 8/imm32 -<span id="L12805" class="LineNr">12805 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12806" class="LineNr">12806 </span> 5d/pop-to-ebp -<span id="L12807" class="LineNr">12807 </span> c3/return -<span id="L12808" class="LineNr">12808 </span> -<span id="L12809" class="LineNr">12809 </span><span class="subxTest">test-read-from-stream-with-too-many-inouts</span>: -<span id="L12810" class="LineNr">12810 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12811" class="LineNr">12811 </span> 55/push-ebp -<span id="L12812" class="LineNr">12812 </span> 89/<- %ebp 4/r32/esp -<span id="L12813" class="LineNr">12813 </span> <span class="subxComment"># setup</span> -<span id="L12814" class="LineNr">12814 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12815" class="LineNr">12815 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12816" class="LineNr">12816 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L12817" class="LineNr">12817 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12818" class="LineNr">12818 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L12819" class="LineNr">12819 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L12820" class="LineNr">12820 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L12821" class="LineNr">12821 </span> 68/push 0/imm32 -<span id="L12822" class="LineNr">12822 </span> 68/push 0/imm32 -<span id="L12823" class="LineNr">12823 </span> 89/<- %edx 4/r32/esp -<span id="L12824" class="LineNr">12824 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L12825" class="LineNr">12825 </span> <span class="subxComment">#</span> -<span id="L12826" class="LineNr">12826 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12827" class="LineNr">12827 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr stream int)\n"</span>) -<span id="L12828" class="LineNr">12828 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: (addr int)\n"</span>) -<span id="L12829" class="LineNr">12829 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L107'>read-from-stream</a> a, b, 0\n"</span>) -<span id="L12830" class="LineNr">12830 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12831" class="LineNr">12831 </span> <span class="subxComment"># convert</span> -<span id="L12832" class="LineNr">12832 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L12833" class="LineNr">12833 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12834" class="LineNr">12834 </span> <span class="subxComment"># restore ed</span> -<span id="L12835" class="LineNr">12835 </span> 89/<- %edx 4/r32/esp -<span id="L12836" class="LineNr">12836 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L12837" class="LineNr">12837 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L12838" class="Folded">12838 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12844" class="LineNr">12844 </span> <span class="subxComment"># check output</span> -<span id="L12845" class="LineNr">12845 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12809'>test-read-from-stream-with-too-many-inouts</a>: output should be empty"</span>) -<span id="L12846" class="LineNr">12846 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L107'>read-from-stream</a>: too many inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12809'>test-read-from-stream-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L12847" class="LineNr">12847 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L12848" class="LineNr">12848 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12809'>test-read-from-stream-with-too-many-inouts</a>: exit status"</span>) -<span id="L12849" class="LineNr">12849 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L12850" class="LineNr">12850 </span> 81 0/subop/add %esp 8/imm32 -<span id="L12851" class="LineNr">12851 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12852" class="LineNr">12852 </span> 5d/pop-to-ebp -<span id="L12853" class="LineNr">12853 </span> c3/return -<span id="L12854" class="LineNr">12854 </span> -<span id="L12855" class="LineNr">12855 </span><span class="subxTest">test-read-from-stream-with-output</span>: -<span id="L12856" class="LineNr">12856 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12857" class="LineNr">12857 </span> 55/push-ebp -<span id="L12858" class="LineNr">12858 </span> 89/<- %ebp 4/r32/esp -<span id="L12859" class="LineNr">12859 </span> <span class="subxComment"># setup</span> -<span id="L12860" class="LineNr">12860 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12861" class="LineNr">12861 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12862" class="LineNr">12862 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L12863" class="LineNr">12863 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12864" class="LineNr">12864 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L12865" class="LineNr">12865 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L12866" class="LineNr">12866 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L12867" class="LineNr">12867 </span> 68/push 0/imm32 -<span id="L12868" class="LineNr">12868 </span> 68/push 0/imm32 -<span id="L12869" class="LineNr">12869 </span> 89/<- %edx 4/r32/esp -<span id="L12870" class="LineNr">12870 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L12871" class="LineNr">12871 </span> <span class="subxComment">#</span> -<span id="L12872" class="LineNr">12872 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12873" class="LineNr">12873 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr stream int)\n"</span>) -<span id="L12874" class="LineNr">12874 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: (addr int) <- copy 0\n"</span>) -<span id="L12875" class="LineNr">12875 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" b <- <a href='309stream.subx.html#L107'>read-from-stream</a> a, b\n"</span>) -<span id="L12876" class="LineNr">12876 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12877" class="LineNr">12877 </span> <span class="subxComment"># convert</span> -<span id="L12878" class="LineNr">12878 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L12879" class="LineNr">12879 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12880" class="LineNr">12880 </span> <span class="subxComment"># restore ed</span> -<span id="L12881" class="LineNr">12881 </span> 89/<- %edx 4/r32/esp -<span id="L12882" class="LineNr">12882 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L12883" class="LineNr">12883 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L12884" class="Folded">12884 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12890" class="LineNr">12890 </span> <span class="subxComment"># check output</span> -<span id="L12891" class="LineNr">12891 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12855'>test-read-from-stream-with-output</a>: output should be empty"</span>) -<span id="L12892" class="LineNr">12892 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L107'>read-from-stream</a>: unexpected output"</span> <span class="Constant">"F - <a href='mu.subx.html#L12855'>test-read-from-stream-with-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L12893" class="LineNr">12893 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L12894" class="LineNr">12894 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12855'>test-read-from-stream-with-output</a>: exit status"</span>) -<span id="L12895" class="LineNr">12895 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L12896" class="LineNr">12896 </span> 81 0/subop/add %esp 8/imm32 -<span id="L12897" class="LineNr">12897 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12898" class="LineNr">12898 </span> 5d/pop-to-ebp -<span id="L12899" class="LineNr">12899 </span> c3/return -<span id="L12900" class="LineNr">12900 </span> -<span id="L12901" class="LineNr">12901 </span><span class="subxTest">test-convert-write-to-stream</span>: -<span id="L12902" class="LineNr">12902 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12903" class="LineNr">12903 </span> 55/push-ebp -<span id="L12904" class="LineNr">12904 </span> 89/<- %ebp 4/r32/esp -<span id="L12905" class="LineNr">12905 </span> <span class="subxComment"># setup</span> -<span id="L12906" class="LineNr">12906 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12907" class="LineNr">12907 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12908" class="LineNr">12908 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L12909" class="LineNr">12909 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12910" class="LineNr">12910 </span> <span class="subxComment">#</span> -<span id="L12911" class="LineNr">12911 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12912" class="LineNr">12912 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var s/esi: (addr stream int) <- copy 0\n"</span>) -<span id="L12913" class="LineNr">12913 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/ecx: (addr int) <- copy 0\n"</span>) -<span id="L12914" class="LineNr">12914 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L54'>write-to-stream</a> s, o\n"</span>) -<span id="L12915" class="LineNr">12915 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12916" class="LineNr">12916 </span> <span class="subxComment"># convert</span> -<span id="L12917" class="LineNr">12917 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L12918" class="LineNr">12918 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12919" class="LineNr">12919 </span> <span class="subxComment"># restore ed</span> -<span id="L12920" class="LineNr">12920 </span> 89/<- %edx 4/r32/esp -<span id="L12921" class="LineNr">12921 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L12922" class="LineNr">12922 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L12923" class="Folded">12923 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12929" class="LineNr">12929 </span> <span class="subxComment"># check output</span> -<span id="L12930" class="LineNr">12930 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12901'>test-convert-write-to-stream</a>/0"</span>) -<span id="L12931" class="LineNr">12931 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-write-to-stream/1"</span>) -<span id="L12932" class="LineNr">12932 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12901'>test-convert-write-to-stream</a>/2"</span>) -<span id="L12933" class="LineNr">12933 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12901'>test-convert-write-to-stream</a>/3"</span>) -<span id="L12934" class="LineNr">12934 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L12901'>test-convert-write-to-stream</a>/4"</span>) -<span id="L12935" class="LineNr">12935 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12901'>test-convert-write-to-stream</a>/5"</span>) -<span id="L12936" class="LineNr">12936 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L12901'>test-convert-write-to-stream</a>/6"</span>) -<span id="L12937" class="LineNr">12937 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" be/copy-to-esi 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L12901'>test-convert-write-to-stream</a>/7"</span>) -<span id="L12938" class="LineNr">12938 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L12901'>test-convert-write-to-stream</a>/8"</span>) -<span id="L12939" class="LineNr">12939 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L12901'>test-convert-write-to-stream</a>/9"</span>) -<span id="L12940" class="LineNr">12940 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='309stream.subx.html#L54'>write-to-stream</a> %esi %ecx 0x00000004)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12901'>test-convert-write-to-stream</a>/10"</span>) -<span id="L12941" class="LineNr">12941 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L12901'>test-convert-write-to-stream</a>/11"</span>) -<span id="L12942" class="LineNr">12942 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L12901'>test-convert-write-to-stream</a>/12"</span>) -<span id="L12943" class="LineNr">12943 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L12901'>test-convert-write-to-stream</a>/13"</span>) -<span id="L12944" class="LineNr">12944 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12901'>test-convert-write-to-stream</a>/14"</span>) -<span id="L12945" class="LineNr">12945 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-write-to-stream/15"</span>) -<span id="L12946" class="LineNr">12946 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12901'>test-convert-write-to-stream</a>/16"</span>) -<span id="L12947" class="LineNr">12947 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12901'>test-convert-write-to-stream</a>/17"</span>) -<span id="L12948" class="LineNr">12948 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L12901'>test-convert-write-to-stream</a>/18"</span>) -<span id="L12949" class="LineNr">12949 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12950" class="LineNr">12950 </span> 89/<- %esp 5/r32/ebp -<span id="L12951" class="LineNr">12951 </span> 5d/pop-to-ebp -<span id="L12952" class="LineNr">12952 </span> c3/return -<span id="L12953" class="LineNr">12953 </span> -<span id="L12954" class="LineNr">12954 </span><span class="subxTest">test-convert-write-to-stream-with-correct-payload-size</span>: -<span id="L12955" class="LineNr">12955 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12956" class="LineNr">12956 </span> 55/push-ebp -<span id="L12957" class="LineNr">12957 </span> 89/<- %ebp 4/r32/esp -<span id="L12958" class="LineNr">12958 </span> <span class="subxComment"># setup</span> -<span id="L12959" class="LineNr">12959 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12960" class="LineNr">12960 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12961" class="LineNr">12961 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L12962" class="LineNr">12962 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12963" class="LineNr">12963 </span> <span class="subxComment">#</span> -<span id="L12964" class="LineNr">12964 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12965" class="LineNr">12965 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var s/esi: (addr stream handle int) <- copy 0\n"</span>) -<span id="L12966" class="LineNr">12966 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/ecx: (addr handle int) <- copy 0\n"</span>) -<span id="L12967" class="LineNr">12967 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L54'>write-to-stream</a> s, o\n"</span>) -<span id="L12968" class="LineNr">12968 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12969" class="LineNr">12969 </span> <span class="subxComment"># convert</span> -<span id="L12970" class="LineNr">12970 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L12971" class="LineNr">12971 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12972" class="LineNr">12972 </span> <span class="subxComment"># restore ed</span> -<span id="L12973" class="LineNr">12973 </span> 89/<- %edx 4/r32/esp -<span id="L12974" class="LineNr">12974 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L12975" class="LineNr">12975 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L12976" class="Folded">12976 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12982" class="LineNr">12982 </span> <span class="subxComment"># check output</span> -<span id="L12983" class="LineNr">12983 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12954'>test-convert-write-to-stream-with-correct-payload-size</a>/0"</span>) -<span id="L12984" class="LineNr">12984 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-write-to-stream-with-correct-payload-size/1"</span>) -<span id="L12985" class="LineNr">12985 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12954'>test-convert-write-to-stream-with-correct-payload-size</a>/2"</span>) -<span id="L12986" class="LineNr">12986 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12954'>test-convert-write-to-stream-with-correct-payload-size</a>/3"</span>) -<span id="L12987" class="LineNr">12987 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L12954'>test-convert-write-to-stream-with-correct-payload-size</a>/4"</span>) -<span id="L12988" class="LineNr">12988 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12954'>test-convert-write-to-stream-with-correct-payload-size</a>/5"</span>) -<span id="L12989" class="LineNr">12989 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L12954'>test-convert-write-to-stream-with-correct-payload-size</a>/6"</span>) -<span id="L12990" class="LineNr">12990 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" be/copy-to-esi 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L12954'>test-convert-write-to-stream-with-correct-payload-size</a>/7"</span>) -<span id="L12991" class="LineNr">12991 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L12954'>test-convert-write-to-stream-with-correct-payload-size</a>/8"</span>) -<span id="L12992" class="LineNr">12992 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L12954'>test-convert-write-to-stream-with-correct-payload-size</a>/9"</span>) -<span id="L12993" class="LineNr">12993 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='309stream.subx.html#L54'>write-to-stream</a> %esi %ecx 0x00000008)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12954'>test-convert-write-to-stream-with-correct-payload-size</a>/10"</span>) -<span id="L12994" class="LineNr">12994 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L12954'>test-convert-write-to-stream-with-correct-payload-size</a>/11"</span>) -<span id="L12995" class="LineNr">12995 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L12954'>test-convert-write-to-stream-with-correct-payload-size</a>/12"</span>) -<span id="L12996" class="LineNr">12996 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L12954'>test-convert-write-to-stream-with-correct-payload-size</a>/13"</span>) -<span id="L12997" class="LineNr">12997 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12954'>test-convert-write-to-stream-with-correct-payload-size</a>/14"</span>) -<span id="L12998" class="LineNr">12998 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-write-to-stream-with-correct-payload-size/15"</span>) -<span id="L12999" class="LineNr">12999 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12954'>test-convert-write-to-stream-with-correct-payload-size</a>/16"</span>) -<span id="L13000" class="LineNr">13000 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12954'>test-convert-write-to-stream-with-correct-payload-size</a>/17"</span>) -<span id="L13001" class="LineNr">13001 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L12954'>test-convert-write-to-stream-with-correct-payload-size</a>/18"</span>) -<span id="L13002" class="LineNr">13002 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13003" class="LineNr">13003 </span> 89/<- %esp 5/r32/ebp -<span id="L13004" class="LineNr">13004 </span> 5d/pop-to-ebp -<span id="L13005" class="LineNr">13005 </span> c3/return -<span id="L13006" class="LineNr">13006 </span> -<span id="L13007" class="LineNr">13007 </span><span class="subxTest">test-write-to-stream-with-non-stream-atom-base-type</span>: -<span id="L13008" class="LineNr">13008 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13009" class="LineNr">13009 </span> 55/push-ebp -<span id="L13010" class="LineNr">13010 </span> 89/<- %ebp 4/r32/esp -<span id="L13011" class="LineNr">13011 </span> <span class="subxComment"># setup</span> -<span id="L13012" class="LineNr">13012 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13013" class="LineNr">13013 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13014" class="LineNr">13014 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L13015" class="LineNr">13015 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13016" class="LineNr">13016 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L13017" class="LineNr">13017 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L13018" class="LineNr">13018 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L13019" class="LineNr">13019 </span> 68/push 0/imm32 -<span id="L13020" class="LineNr">13020 </span> 68/push 0/imm32 -<span id="L13021" class="LineNr">13021 </span> 89/<- %edx 4/r32/esp -<span id="L13022" class="LineNr">13022 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L13023" class="LineNr">13023 </span> <span class="subxComment">#</span> -<span id="L13024" class="LineNr">13024 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L13025" class="LineNr">13025 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) -<span id="L13026" class="LineNr">13026 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L54'>write-to-stream</a> a, 0\n"</span>) -<span id="L13027" class="LineNr">13027 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13028" class="LineNr">13028 </span> <span class="subxComment"># convert</span> -<span id="L13029" class="LineNr">13029 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L13030" class="LineNr">13030 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L13031" class="LineNr">13031 </span> <span class="subxComment"># restore ed</span> -<span id="L13032" class="LineNr">13032 </span> 89/<- %edx 4/r32/esp -<span id="L13033" class="LineNr">13033 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L13034" class="LineNr">13034 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L13035" class="Folded">13035 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13041" class="LineNr">13041 </span> <span class="subxComment"># check output</span> -<span id="L13042" class="LineNr">13042 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13007'>test-write-to-stream-with-non-stream-atom-base-type</a>: output should be empty"</span>) -<span id="L13043" class="LineNr">13043 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L54'>write-to-stream</a>: var 'a' must be an addr to a stream"</span> <span class="Constant">"F - <a href='mu.subx.html#L13007'>test-write-to-stream-with-non-stream-atom-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L13044" class="LineNr">13044 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L13045" class="LineNr">13045 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13007'>test-write-to-stream-with-non-stream-atom-base-type</a>: exit status"</span>) -<span id="L13046" class="LineNr">13046 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L13047" class="LineNr">13047 </span> 81 0/subop/add %esp 8/imm32 -<span id="L13048" class="LineNr">13048 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13049" class="LineNr">13049 </span> 5d/pop-to-ebp -<span id="L13050" class="LineNr">13050 </span> c3/return -<span id="L13051" class="LineNr">13051 </span> -<span id="L13052" class="LineNr">13052 </span><span class="subxTest">test-write-to-stream-with-non-stream-compound-base-type</span>: -<span id="L13053" class="LineNr">13053 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13054" class="LineNr">13054 </span> 55/push-ebp -<span id="L13055" class="LineNr">13055 </span> 89/<- %ebp 4/r32/esp -<span id="L13056" class="LineNr">13056 </span> <span class="subxComment"># setup</span> -<span id="L13057" class="LineNr">13057 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13058" class="LineNr">13058 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13059" class="LineNr">13059 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L13060" class="LineNr">13060 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13061" class="LineNr">13061 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L13062" class="LineNr">13062 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L13063" class="LineNr">13063 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L13064" class="LineNr">13064 </span> 68/push 0/imm32 -<span id="L13065" class="LineNr">13065 </span> 68/push 0/imm32 -<span id="L13066" class="LineNr">13066 </span> 89/<- %edx 4/r32/esp -<span id="L13067" class="LineNr">13067 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L13068" class="LineNr">13068 </span> <span class="subxComment">#</span> -<span id="L13069" class="LineNr">13069 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L13070" class="LineNr">13070 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (handle int)\n"</span>) -<span id="L13071" class="LineNr">13071 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L54'>write-to-stream</a> a, 0\n"</span>) -<span id="L13072" class="LineNr">13072 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13073" class="LineNr">13073 </span> <span class="subxComment"># convert</span> -<span id="L13074" class="LineNr">13074 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L13075" class="LineNr">13075 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L13076" class="LineNr">13076 </span> <span class="subxComment"># restore ed</span> -<span id="L13077" class="LineNr">13077 </span> 89/<- %edx 4/r32/esp -<span id="L13078" class="LineNr">13078 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L13079" class="LineNr">13079 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L13080" class="Folded">13080 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13086" class="LineNr">13086 </span> <span class="subxComment"># check output</span> -<span id="L13087" class="LineNr">13087 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13052'>test-write-to-stream-with-non-stream-compound-base-type</a>: output should be empty"</span>) -<span id="L13088" class="LineNr">13088 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L54'>write-to-stream</a>: var 'a' must be an addr to a stream"</span> <span class="Constant">"F - <a href='mu.subx.html#L13052'>test-write-to-stream-with-non-stream-compound-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L13089" class="LineNr">13089 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L13090" class="LineNr">13090 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13052'>test-write-to-stream-with-non-stream-compound-base-type</a>: exit status"</span>) -<span id="L13091" class="LineNr">13091 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L13092" class="LineNr">13092 </span> 81 0/subop/add %esp 8/imm32 -<span id="L13093" class="LineNr">13093 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13094" class="LineNr">13094 </span> 5d/pop-to-ebp -<span id="L13095" class="LineNr">13095 </span> c3/return -<span id="L13096" class="LineNr">13096 </span> -<span id="L13097" class="LineNr">13097 </span><span class="subxTest">test-write-to-stream-with-non-stream-compound-base-type-2</span>: -<span id="L13098" class="LineNr">13098 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13099" class="LineNr">13099 </span> 55/push-ebp -<span id="L13100" class="LineNr">13100 </span> 89/<- %ebp 4/r32/esp -<span id="L13101" class="LineNr">13101 </span> <span class="subxComment"># setup</span> -<span id="L13102" class="LineNr">13102 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13103" class="LineNr">13103 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13104" class="LineNr">13104 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L13105" class="LineNr">13105 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13106" class="LineNr">13106 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L13107" class="LineNr">13107 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L13108" class="LineNr">13108 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L13109" class="LineNr">13109 </span> 68/push 0/imm32 -<span id="L13110" class="LineNr">13110 </span> 68/push 0/imm32 -<span id="L13111" class="LineNr">13111 </span> 89/<- %edx 4/r32/esp -<span id="L13112" class="LineNr">13112 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L13113" class="LineNr">13113 </span> <span class="subxComment">#</span> -<span id="L13114" class="LineNr">13114 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L13115" class="LineNr">13115 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr int)\n"</span>) -<span id="L13116" class="LineNr">13116 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L54'>write-to-stream</a> a, 0\n"</span>) -<span id="L13117" class="LineNr">13117 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13118" class="LineNr">13118 </span> <span class="subxComment"># convert</span> -<span id="L13119" class="LineNr">13119 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L13120" class="LineNr">13120 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L13121" class="LineNr">13121 </span> <span class="subxComment"># restore ed</span> -<span id="L13122" class="LineNr">13122 </span> 89/<- %edx 4/r32/esp -<span id="L13123" class="LineNr">13123 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L13124" class="LineNr">13124 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L13125" class="Folded">13125 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13131" class="LineNr">13131 </span> <span class="subxComment"># check output</span> -<span id="L13132" class="LineNr">13132 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13097'>test-write-to-stream-with-non-stream-compound-base-type-2</a>: output should be empty"</span>) -<span id="L13133" class="LineNr">13133 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L54'>write-to-stream</a>: var 'a' must be an addr to a stream"</span> <span class="Constant">"F - <a href='mu.subx.html#L13097'>test-write-to-stream-with-non-stream-compound-base-type-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L13134" class="LineNr">13134 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L13135" class="LineNr">13135 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13097'>test-write-to-stream-with-non-stream-compound-base-type-2</a>: exit status"</span>) -<span id="L13136" class="LineNr">13136 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L13137" class="LineNr">13137 </span> 81 0/subop/add %esp 8/imm32 -<span id="L13138" class="LineNr">13138 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13139" class="LineNr">13139 </span> 5d/pop-to-ebp -<span id="L13140" class="LineNr">13140 </span> c3/return -<span id="L13141" class="LineNr">13141 </span> -<span id="L13142" class="LineNr">13142 </span><span class="subxTest">test-write-to-stream-with-stream-atom-base-type</span>: -<span id="L13143" class="LineNr">13143 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13144" class="LineNr">13144 </span> 55/push-ebp -<span id="L13145" class="LineNr">13145 </span> 89/<- %ebp 4/r32/esp -<span id="L13146" class="LineNr">13146 </span> <span class="subxComment"># setup</span> -<span id="L13147" class="LineNr">13147 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13148" class="LineNr">13148 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13149" class="LineNr">13149 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L13150" class="LineNr">13150 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13151" class="LineNr">13151 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L13152" class="LineNr">13152 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L13153" class="LineNr">13153 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L13154" class="LineNr">13154 </span> 68/push 0/imm32 -<span id="L13155" class="LineNr">13155 </span> 68/push 0/imm32 -<span id="L13156" class="LineNr">13156 </span> 89/<- %edx 4/r32/esp -<span id="L13157" class="LineNr">13157 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L13158" class="LineNr">13158 </span> <span class="subxComment">#</span> -<span id="L13159" class="LineNr">13159 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L13160" class="LineNr">13160 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: stream\n"</span>) -<span id="L13161" class="LineNr">13161 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L54'>write-to-stream</a> a, 0\n"</span>) -<span id="L13162" class="LineNr">13162 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13163" class="LineNr">13163 </span> <span class="subxComment"># convert</span> -<span id="L13164" class="LineNr">13164 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L13165" class="LineNr">13165 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L13166" class="LineNr">13166 </span> <span class="subxComment"># restore ed</span> -<span id="L13167" class="LineNr">13167 </span> 89/<- %edx 4/r32/esp -<span id="L13168" class="LineNr">13168 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L13169" class="LineNr">13169 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L13170" class="Folded">13170 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13176" class="LineNr">13176 </span> <span class="subxComment"># check output</span> -<span id="L13177" class="LineNr">13177 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13142'>test-write-to-stream-with-stream-atom-base-type</a>: output should be empty"</span>) -<span id="L13178" class="LineNr">13178 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L54'>write-to-stream</a>: var 'a' must be an addr to a stream"</span> <span class="Constant">"F - <a href='mu.subx.html#L13142'>test-write-to-stream-with-stream-atom-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L13179" class="LineNr">13179 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L13180" class="LineNr">13180 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13142'>test-write-to-stream-with-stream-atom-base-type</a>: exit status"</span>) -<span id="L13181" class="LineNr">13181 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L13182" class="LineNr">13182 </span> 81 0/subop/add %esp 8/imm32 -<span id="L13183" class="LineNr">13183 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13184" class="LineNr">13184 </span> 5d/pop-to-ebp -<span id="L13185" class="LineNr">13185 </span> c3/return -<span id="L13186" class="LineNr">13186 </span> -<span id="L13187" class="LineNr">13187 </span><span class="subxTest">test-write-to-stream-with-wrong-index-type</span>: -<span id="L13188" class="LineNr">13188 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13189" class="LineNr">13189 </span> 55/push-ebp -<span id="L13190" class="LineNr">13190 </span> 89/<- %ebp 4/r32/esp -<span id="L13191" class="LineNr">13191 </span> <span class="subxComment"># setup</span> -<span id="L13192" class="LineNr">13192 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13193" class="LineNr">13193 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13194" class="LineNr">13194 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L13195" class="LineNr">13195 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13196" class="LineNr">13196 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L13197" class="LineNr">13197 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L13198" class="LineNr">13198 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L13199" class="LineNr">13199 </span> 68/push 0/imm32 -<span id="L13200" class="LineNr">13200 </span> 68/push 0/imm32 -<span id="L13201" class="LineNr">13201 </span> 89/<- %edx 4/r32/esp -<span id="L13202" class="LineNr">13202 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L13203" class="LineNr">13203 </span> <span class="subxComment">#</span> -<span id="L13204" class="LineNr">13204 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L13205" class="LineNr">13205 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr stream int) <- copy 0\n"</span>) -<span id="L13206" class="LineNr">13206 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: boolean\n"</span>) -<span id="L13207" class="LineNr">13207 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L54'>write-to-stream</a> a, b\n"</span>) -<span id="L13208" class="LineNr">13208 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13209" class="LineNr">13209 </span> <span class="subxComment"># convert</span> -<span id="L13210" class="LineNr">13210 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L13211" class="LineNr">13211 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L13212" class="LineNr">13212 </span> <span class="subxComment"># restore ed</span> -<span id="L13213" class="LineNr">13213 </span> 89/<- %edx 4/r32/esp -<span id="L13214" class="LineNr">13214 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L13215" class="LineNr">13215 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L13216" class="Folded">13216 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13222" class="LineNr">13222 </span> <span class="subxComment"># check output</span> -<span id="L13223" class="LineNr">13223 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13187'>test-write-to-stream-with-wrong-index-type</a>: output should be empty"</span>) -<span id="L13224" class="LineNr">13224 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L54'>write-to-stream</a>: target 'b' must be an addr"</span> <span class="Constant">"F - <a href='mu.subx.html#L13187'>test-write-to-stream-with-wrong-index-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L13225" class="LineNr">13225 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L13226" class="LineNr">13226 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13187'>test-write-to-stream-with-wrong-index-type</a>: exit status"</span>) -<span id="L13227" class="LineNr">13227 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L13228" class="LineNr">13228 </span> 81 0/subop/add %esp 8/imm32 -<span id="L13229" class="LineNr">13229 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13230" class="LineNr">13230 </span> 5d/pop-to-ebp -<span id="L13231" class="LineNr">13231 </span> c3/return -<span id="L13232" class="LineNr">13232 </span> -<span id="L13233" class="LineNr">13233 </span><span class="subxTest">test-write-to-stream-with-no-inouts</span>: -<span id="L13234" class="LineNr">13234 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13235" class="LineNr">13235 </span> 55/push-ebp -<span id="L13236" class="LineNr">13236 </span> 89/<- %ebp 4/r32/esp -<span id="L13237" class="LineNr">13237 </span> <span class="subxComment"># setup</span> -<span id="L13238" class="LineNr">13238 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13239" class="LineNr">13239 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13240" class="LineNr">13240 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L13241" class="LineNr">13241 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13242" class="LineNr">13242 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L13243" class="LineNr">13243 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L13244" class="LineNr">13244 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L13245" class="LineNr">13245 </span> 68/push 0/imm32 -<span id="L13246" class="LineNr">13246 </span> 68/push 0/imm32 -<span id="L13247" class="LineNr">13247 </span> 89/<- %edx 4/r32/esp -<span id="L13248" class="LineNr">13248 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L13249" class="LineNr">13249 </span> <span class="subxComment">#</span> -<span id="L13250" class="LineNr">13250 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L13251" class="LineNr">13251 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" write-to-stream\n"</span>) -<span id="L13252" class="LineNr">13252 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13253" class="LineNr">13253 </span> <span class="subxComment"># convert</span> -<span id="L13254" class="LineNr">13254 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L13255" class="LineNr">13255 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L13256" class="LineNr">13256 </span> <span class="subxComment"># restore ed</span> -<span id="L13257" class="LineNr">13257 </span> 89/<- %edx 4/r32/esp -<span id="L13258" class="LineNr">13258 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L13259" class="LineNr">13259 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L13260" class="Folded">13260 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13266" class="LineNr">13266 </span> <span class="subxComment"># check output</span> -<span id="L13267" class="LineNr">13267 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13233'>test-write-to-stream-with-no-inouts</a>: output should be empty"</span>) -<span id="L13268" class="LineNr">13268 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L54'>write-to-stream</a>: too few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L13233'>test-write-to-stream-with-no-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L13269" class="LineNr">13269 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L13270" class="LineNr">13270 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13233'>test-write-to-stream-with-no-inouts</a>: exit status"</span>) -<span id="L13271" class="LineNr">13271 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L13272" class="LineNr">13272 </span> 81 0/subop/add %esp 8/imm32 -<span id="L13273" class="LineNr">13273 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13274" class="LineNr">13274 </span> 5d/pop-to-ebp -<span id="L13275" class="LineNr">13275 </span> c3/return -<span id="L13276" class="LineNr">13276 </span> -<span id="L13277" class="LineNr">13277 </span><span class="subxTest">test-write-to-stream-with-too-few-inouts</span>: -<span id="L13278" class="LineNr">13278 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13279" class="LineNr">13279 </span> 55/push-ebp -<span id="L13280" class="LineNr">13280 </span> 89/<- %ebp 4/r32/esp -<span id="L13281" class="LineNr">13281 </span> <span class="subxComment"># setup</span> -<span id="L13282" class="LineNr">13282 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13283" class="LineNr">13283 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13284" class="LineNr">13284 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L13285" class="LineNr">13285 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13286" class="LineNr">13286 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L13287" class="LineNr">13287 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L13288" class="LineNr">13288 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L13289" class="LineNr">13289 </span> 68/push 0/imm32 -<span id="L13290" class="LineNr">13290 </span> 68/push 0/imm32 -<span id="L13291" class="LineNr">13291 </span> 89/<- %edx 4/r32/esp -<span id="L13292" class="LineNr">13292 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L13293" class="LineNr">13293 </span> <span class="subxComment">#</span> -<span id="L13294" class="LineNr">13294 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L13295" class="LineNr">13295 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr stream int)\n"</span>) -<span id="L13296" class="LineNr">13296 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L54'>write-to-stream</a> a\n"</span>) -<span id="L13297" class="LineNr">13297 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13298" class="LineNr">13298 </span> <span class="subxComment"># convert</span> -<span id="L13299" class="LineNr">13299 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L13300" class="LineNr">13300 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L13301" class="LineNr">13301 </span> <span class="subxComment"># restore ed</span> -<span id="L13302" class="LineNr">13302 </span> 89/<- %edx 4/r32/esp -<span id="L13303" class="LineNr">13303 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L13304" class="LineNr">13304 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L13305" class="Folded">13305 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13311" class="LineNr">13311 </span> <span class="subxComment"># check output</span> -<span id="L13312" class="LineNr">13312 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13277'>test-write-to-stream-with-too-few-inouts</a>: output should be empty"</span>) -<span id="L13313" class="LineNr">13313 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L54'>write-to-stream</a>: too few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L13277'>test-write-to-stream-with-too-few-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L13314" class="LineNr">13314 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L13315" class="LineNr">13315 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13277'>test-write-to-stream-with-too-few-inouts</a>: exit status"</span>) -<span id="L13316" class="LineNr">13316 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L13317" class="LineNr">13317 </span> 81 0/subop/add %esp 8/imm32 -<span id="L13318" class="LineNr">13318 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13319" class="LineNr">13319 </span> 5d/pop-to-ebp -<span id="L13320" class="LineNr">13320 </span> c3/return -<span id="L13321" class="LineNr">13321 </span> -<span id="L13322" class="LineNr">13322 </span><span class="subxTest">test-write-to-stream-with-too-many-inouts</span>: -<span id="L13323" class="LineNr">13323 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13324" class="LineNr">13324 </span> 55/push-ebp -<span id="L13325" class="LineNr">13325 </span> 89/<- %ebp 4/r32/esp -<span id="L13326" class="LineNr">13326 </span> <span class="subxComment"># setup</span> -<span id="L13327" class="LineNr">13327 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13328" class="LineNr">13328 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13329" class="LineNr">13329 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L13330" class="LineNr">13330 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13331" class="LineNr">13331 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L13332" class="LineNr">13332 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L13333" class="LineNr">13333 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L13334" class="LineNr">13334 </span> 68/push 0/imm32 -<span id="L13335" class="LineNr">13335 </span> 68/push 0/imm32 -<span id="L13336" class="LineNr">13336 </span> 89/<- %edx 4/r32/esp -<span id="L13337" class="LineNr">13337 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L13338" class="LineNr">13338 </span> <span class="subxComment">#</span> -<span id="L13339" class="LineNr">13339 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L13340" class="LineNr">13340 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr stream int)\n"</span>) -<span id="L13341" class="LineNr">13341 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: (addr int)\n"</span>) -<span id="L13342" class="LineNr">13342 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L54'>write-to-stream</a> a, b, 0\n"</span>) -<span id="L13343" class="LineNr">13343 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13344" class="LineNr">13344 </span> <span class="subxComment"># convert</span> -<span id="L13345" class="LineNr">13345 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L13346" class="LineNr">13346 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L13347" class="LineNr">13347 </span> <span class="subxComment"># restore ed</span> -<span id="L13348" class="LineNr">13348 </span> 89/<- %edx 4/r32/esp -<span id="L13349" class="LineNr">13349 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L13350" class="LineNr">13350 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L13351" class="Folded">13351 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13357" class="LineNr">13357 </span> <span class="subxComment"># check output</span> -<span id="L13358" class="LineNr">13358 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13322'>test-write-to-stream-with-too-many-inouts</a>: output should be empty"</span>) -<span id="L13359" class="LineNr">13359 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L54'>write-to-stream</a>: too many inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L13322'>test-write-to-stream-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L13360" class="LineNr">13360 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L13361" class="LineNr">13361 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13322'>test-write-to-stream-with-too-many-inouts</a>: exit status"</span>) -<span id="L13362" class="LineNr">13362 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L13363" class="LineNr">13363 </span> 81 0/subop/add %esp 8/imm32 -<span id="L13364" class="LineNr">13364 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13365" class="LineNr">13365 </span> 5d/pop-to-ebp -<span id="L13366" class="LineNr">13366 </span> c3/return -<span id="L13367" class="LineNr">13367 </span> -<span id="L13368" class="LineNr">13368 </span><span class="subxTest">test-write-to-stream-with-output</span>: -<span id="L13369" class="LineNr">13369 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13370" class="LineNr">13370 </span> 55/push-ebp -<span id="L13371" class="LineNr">13371 </span> 89/<- %ebp 4/r32/esp -<span id="L13372" class="LineNr">13372 </span> <span class="subxComment"># setup</span> -<span id="L13373" class="LineNr">13373 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13374" class="LineNr">13374 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13375" class="LineNr">13375 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L13376" class="LineNr">13376 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13377" class="LineNr">13377 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L13378" class="LineNr">13378 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L13379" class="LineNr">13379 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L13380" class="LineNr">13380 </span> 68/push 0/imm32 -<span id="L13381" class="LineNr">13381 </span> 68/push 0/imm32 -<span id="L13382" class="LineNr">13382 </span> 89/<- %edx 4/r32/esp -<span id="L13383" class="LineNr">13383 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L13384" class="LineNr">13384 </span> <span class="subxComment">#</span> -<span id="L13385" class="LineNr">13385 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L13386" class="LineNr">13386 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr stream int)\n"</span>) -<span id="L13387" class="LineNr">13387 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: (addr int) <- copy 0\n"</span>) -<span id="L13388" class="LineNr">13388 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" b <- <a href='309stream.subx.html#L54'>write-to-stream</a> a, b\n"</span>) -<span id="L13389" class="LineNr">13389 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13390" class="LineNr">13390 </span> <span class="subxComment"># convert</span> -<span id="L13391" class="LineNr">13391 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L13392" class="LineNr">13392 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L13393" class="LineNr">13393 </span> <span class="subxComment"># restore ed</span> -<span id="L13394" class="LineNr">13394 </span> 89/<- %edx 4/r32/esp -<span id="L13395" class="LineNr">13395 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L13396" class="LineNr">13396 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L13397" class="Folded">13397 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13403" class="LineNr">13403 </span> <span class="subxComment"># check output</span> -<span id="L13404" class="LineNr">13404 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13368'>test-write-to-stream-with-output</a>: output should be empty"</span>) -<span id="L13405" class="LineNr">13405 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L54'>write-to-stream</a>: unexpected output"</span> <span class="Constant">"F - <a href='mu.subx.html#L13368'>test-write-to-stream-with-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L13406" class="LineNr">13406 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L13407" class="LineNr">13407 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13368'>test-write-to-stream-with-output</a>: exit status"</span>) -<span id="L13408" class="LineNr">13408 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L13409" class="LineNr">13409 </span> 81 0/subop/add %esp 8/imm32 -<span id="L13410" class="LineNr">13410 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13411" class="LineNr">13411 </span> 5d/pop-to-ebp -<span id="L13412" class="LineNr">13412 </span> c3/return -<span id="L13413" class="LineNr">13413 </span> -<span id="L13414" class="LineNr">13414 </span><span class="subxTest">test-length-with-non-array-atom-base-type</span>: -<span id="L13415" class="LineNr">13415 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13416" class="LineNr">13416 </span> 55/push-ebp -<span id="L13417" class="LineNr">13417 </span> 89/<- %ebp 4/r32/esp -<span id="L13418" class="LineNr">13418 </span> <span class="subxComment"># setup</span> -<span id="L13419" class="LineNr">13419 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13420" class="LineNr">13420 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13421" class="LineNr">13421 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L13422" class="LineNr">13422 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13423" class="LineNr">13423 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L13424" class="LineNr">13424 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L13425" class="LineNr">13425 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L13426" class="LineNr">13426 </span> 68/push 0/imm32 -<span id="L13427" class="LineNr">13427 </span> 68/push 0/imm32 -<span id="L13428" class="LineNr">13428 </span> 89/<- %edx 4/r32/esp -<span id="L13429" class="LineNr">13429 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L13430" class="LineNr">13430 </span> <span class="subxComment">#</span> -<span id="L13431" class="LineNr">13431 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L13432" class="LineNr">13432 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) -<span id="L13433" class="LineNr">13433 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: int <- length a\n"</span>) -<span id="L13434" class="LineNr">13434 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13435" class="LineNr">13435 </span> <span class="subxComment"># convert</span> -<span id="L13436" class="LineNr">13436 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L13437" class="LineNr">13437 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L13438" class="LineNr">13438 </span> <span class="subxComment"># restore ed</span> -<span id="L13439" class="LineNr">13439 </span> 89/<- %edx 4/r32/esp -<span id="L13440" class="LineNr">13440 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L13441" class="LineNr">13441 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L13442" class="Folded">13442 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13448" class="LineNr">13448 </span> <span class="subxComment"># check output</span> -<span id="L13449" class="LineNr">13449 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13414'>test-length-with-non-array-atom-base-type</a>: output should be empty"</span>) -<span id="L13450" class="LineNr">13450 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt length: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L13414'>test-length-with-non-array-atom-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L13451" class="LineNr">13451 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L13452" class="LineNr">13452 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13414'>test-length-with-non-array-atom-base-type</a>: exit status"</span>) -<span id="L13453" class="LineNr">13453 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L13454" class="LineNr">13454 </span> 81 0/subop/add %esp 8/imm32 -<span id="L13455" class="LineNr">13455 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13456" class="LineNr">13456 </span> 5d/pop-to-ebp -<span id="L13457" class="LineNr">13457 </span> c3/return -<span id="L13458" class="LineNr">13458 </span> -<span id="L13459" class="LineNr">13459 </span><span class="subxTest">test-length-with-non-array-compound-base-type</span>: -<span id="L13460" class="LineNr">13460 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13461" class="LineNr">13461 </span> 55/push-ebp -<span id="L13462" class="LineNr">13462 </span> 89/<- %ebp 4/r32/esp -<span id="L13463" class="LineNr">13463 </span> <span class="subxComment"># setup</span> -<span id="L13464" class="LineNr">13464 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13465" class="LineNr">13465 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13466" class="LineNr">13466 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L13467" class="LineNr">13467 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13468" class="LineNr">13468 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L13469" class="LineNr">13469 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L13470" class="LineNr">13470 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L13471" class="LineNr">13471 </span> 68/push 0/imm32 -<span id="L13472" class="LineNr">13472 </span> 68/push 0/imm32 -<span id="L13473" class="LineNr">13473 </span> 89/<- %edx 4/r32/esp -<span id="L13474" class="LineNr">13474 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L13475" class="LineNr">13475 </span> <span class="subxComment">#</span> -<span id="L13476" class="LineNr">13476 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L13477" class="LineNr">13477 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (handle int)\n"</span>) -<span id="L13478" class="LineNr">13478 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- length a, 0\n"</span>) -<span id="L13479" class="LineNr">13479 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13480" class="LineNr">13480 </span> <span class="subxComment"># convert</span> -<span id="L13481" class="LineNr">13481 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L13482" class="LineNr">13482 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L13483" class="LineNr">13483 </span> <span class="subxComment"># restore ed</span> -<span id="L13484" class="LineNr">13484 </span> 89/<- %edx 4/r32/esp -<span id="L13485" class="LineNr">13485 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L13486" class="LineNr">13486 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L13487" class="Folded">13487 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13493" class="LineNr">13493 </span> <span class="subxComment"># check output</span> -<span id="L13494" class="LineNr">13494 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13459'>test-length-with-non-array-compound-base-type</a>: output should be empty"</span>) -<span id="L13495" class="LineNr">13495 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt length: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L13459'>test-length-with-non-array-compound-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L13496" class="LineNr">13496 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L13497" class="LineNr">13497 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13459'>test-length-with-non-array-compound-base-type</a>: exit status"</span>) -<span id="L13498" class="LineNr">13498 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L13499" class="LineNr">13499 </span> 81 0/subop/add %esp 8/imm32 -<span id="L13500" class="LineNr">13500 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13501" class="LineNr">13501 </span> 5d/pop-to-ebp -<span id="L13502" class="LineNr">13502 </span> c3/return -<span id="L13503" class="LineNr">13503 </span> -<span id="L13504" class="LineNr">13504 </span><span class="subxTest">test-length-with-non-array-compound-base-type-2</span>: -<span id="L13505" class="LineNr">13505 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13506" class="LineNr">13506 </span> 55/push-ebp -<span id="L13507" class="LineNr">13507 </span> 89/<- %ebp 4/r32/esp -<span id="L13508" class="LineNr">13508 </span> <span class="subxComment"># setup</span> -<span id="L13509" class="LineNr">13509 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13510" class="LineNr">13510 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13511" class="LineNr">13511 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L13512" class="LineNr">13512 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13513" class="LineNr">13513 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L13514" class="LineNr">13514 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L13515" class="LineNr">13515 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L13516" class="LineNr">13516 </span> 68/push 0/imm32 -<span id="L13517" class="LineNr">13517 </span> 68/push 0/imm32 -<span id="L13518" class="LineNr">13518 </span> 89/<- %edx 4/r32/esp -<span id="L13519" class="LineNr">13519 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L13520" class="LineNr">13520 </span> <span class="subxComment">#</span> -<span id="L13521" class="LineNr">13521 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L13522" class="LineNr">13522 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr int)\n"</span>) -<span id="L13523" class="LineNr">13523 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- length a, 0\n"</span>) -<span id="L13524" class="LineNr">13524 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13525" class="LineNr">13525 </span> <span class="subxComment"># convert</span> -<span id="L13526" class="LineNr">13526 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L13527" class="LineNr">13527 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L13528" class="LineNr">13528 </span> <span class="subxComment"># restore ed</span> -<span id="L13529" class="LineNr">13529 </span> 89/<- %edx 4/r32/esp -<span id="L13530" class="LineNr">13530 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L13531" class="LineNr">13531 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L13532" class="Folded">13532 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13538" class="LineNr">13538 </span> <span class="subxComment"># check output</span> -<span id="L13539" class="LineNr">13539 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13504'>test-length-with-non-array-compound-base-type-2</a>: output should be empty"</span>) -<span id="L13540" class="LineNr">13540 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt length: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L13504'>test-length-with-non-array-compound-base-type-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L13541" class="LineNr">13541 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L13542" class="LineNr">13542 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13504'>test-length-with-non-array-compound-base-type-2</a>: exit status"</span>) -<span id="L13543" class="LineNr">13543 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L13544" class="LineNr">13544 </span> 81 0/subop/add %esp 8/imm32 -<span id="L13545" class="LineNr">13545 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13546" class="LineNr">13546 </span> 5d/pop-to-ebp -<span id="L13547" class="LineNr">13547 </span> c3/return -<span id="L13548" class="LineNr">13548 </span> -<span id="L13549" class="LineNr">13549 </span><span class="subxTest">test-length-with-array-atom-base-type</span>: -<span id="L13550" class="LineNr">13550 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13551" class="LineNr">13551 </span> 55/push-ebp -<span id="L13552" class="LineNr">13552 </span> 89/<- %ebp 4/r32/esp -<span id="L13553" class="LineNr">13553 </span> <span class="subxComment"># setup</span> -<span id="L13554" class="LineNr">13554 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13555" class="LineNr">13555 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13556" class="LineNr">13556 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L13557" class="LineNr">13557 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13558" class="LineNr">13558 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L13559" class="LineNr">13559 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L13560" class="LineNr">13560 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L13561" class="LineNr">13561 </span> 68/push 0/imm32 -<span id="L13562" class="LineNr">13562 </span> 68/push 0/imm32 -<span id="L13563" class="LineNr">13563 </span> 89/<- %edx 4/r32/esp -<span id="L13564" class="LineNr">13564 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L13565" class="LineNr">13565 </span> <span class="subxComment">#</span> -<span id="L13566" class="LineNr">13566 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L13567" class="LineNr">13567 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: array\n"</span>) -<span id="L13568" class="LineNr">13568 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- length a\n"</span>) -<span id="L13569" class="LineNr">13569 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13570" class="LineNr">13570 </span> <span class="subxComment"># convert</span> -<span id="L13571" class="LineNr">13571 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L13572" class="LineNr">13572 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L13573" class="LineNr">13573 </span> <span class="subxComment"># restore ed</span> -<span id="L13574" class="LineNr">13574 </span> 89/<- %edx 4/r32/esp -<span id="L13575" class="LineNr">13575 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L13576" class="LineNr">13576 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L13577" class="Folded">13577 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13583" class="LineNr">13583 </span> <span class="subxComment"># check output</span> -<span id="L13584" class="LineNr">13584 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13549'>test-length-with-array-atom-base-type</a>: output should be empty"</span>) -<span id="L13585" class="LineNr">13585 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt length: array 'a' must specify the type of its elements"</span> <span class="Constant">"F - <a href='mu.subx.html#L13549'>test-length-with-array-atom-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L13586" class="LineNr">13586 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L13587" class="LineNr">13587 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13549'>test-length-with-array-atom-base-type</a>: exit status"</span>) -<span id="L13588" class="LineNr">13588 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L13589" class="LineNr">13589 </span> 81 0/subop/add %esp 8/imm32 -<span id="L13590" class="LineNr">13590 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13591" class="LineNr">13591 </span> 5d/pop-to-ebp -<span id="L13592" class="LineNr">13592 </span> c3/return -<span id="L13593" class="LineNr">13593 </span> -<span id="L13594" class="LineNr">13594 </span><span class="subxTest">test-length-with-addr-base-on-stack</span>: -<span id="L13595" class="LineNr">13595 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13596" class="LineNr">13596 </span> 55/push-ebp -<span id="L13597" class="LineNr">13597 </span> 89/<- %ebp 4/r32/esp -<span id="L13598" class="LineNr">13598 </span> <span class="subxComment"># setup</span> -<span id="L13599" class="LineNr">13599 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13600" class="LineNr">13600 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13601" class="LineNr">13601 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L13602" class="LineNr">13602 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13603" class="LineNr">13603 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L13604" class="LineNr">13604 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L13605" class="LineNr">13605 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L13606" class="LineNr">13606 </span> 68/push 0/imm32 -<span id="L13607" class="LineNr">13607 </span> 68/push 0/imm32 -<span id="L13608" class="LineNr">13608 </span> 89/<- %edx 4/r32/esp -<span id="L13609" class="LineNr">13609 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L13610" class="LineNr">13610 </span> <span class="subxComment">#</span> -<span id="L13611" class="LineNr">13611 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L13612" class="LineNr">13612 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr array int)\n"</span>) -<span id="L13613" class="LineNr">13613 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- length a\n"</span>) -<span id="L13614" class="LineNr">13614 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13615" class="LineNr">13615 </span> <span class="subxComment"># convert</span> -<span id="L13616" class="LineNr">13616 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L13617" class="LineNr">13617 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L13618" class="LineNr">13618 </span> <span class="subxComment"># restore ed</span> -<span id="L13619" class="LineNr">13619 </span> 89/<- %edx 4/r32/esp -<span id="L13620" class="LineNr">13620 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L13621" class="LineNr">13621 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L13622" class="Folded">13622 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13628" class="LineNr">13628 </span> <span class="subxComment"># check output</span> -<span id="L13629" class="LineNr">13629 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13594'>test-length-with-addr-base-on-stack</a>: output should be empty"</span>) -<span id="L13630" class="LineNr">13630 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt length: var 'a' is an addr to an array, and so must live in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L13594'>test-length-with-addr-base-on-stack</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L13631" class="LineNr">13631 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L13632" class="LineNr">13632 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13594'>test-length-with-addr-base-on-stack</a>: exit status"</span>) -<span id="L13633" class="LineNr">13633 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L13634" class="LineNr">13634 </span> 81 0/subop/add %esp 8/imm32 -<span id="L13635" class="LineNr">13635 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13636" class="LineNr">13636 </span> 5d/pop-to-ebp -<span id="L13637" class="LineNr">13637 </span> c3/return -<span id="L13638" class="LineNr">13638 </span> -<span id="L13639" class="LineNr">13639 </span><span class="subxTest">test-length-with-wrong-output-type</span>: -<span id="L13640" class="LineNr">13640 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13641" class="LineNr">13641 </span> 55/push-ebp -<span id="L13642" class="LineNr">13642 </span> 89/<- %ebp 4/r32/esp -<span id="L13643" class="LineNr">13643 </span> <span class="subxComment"># setup</span> -<span id="L13644" class="LineNr">13644 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13645" class="LineNr">13645 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13646" class="LineNr">13646 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L13647" class="LineNr">13647 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13648" class="LineNr">13648 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L13649" class="LineNr">13649 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L13650" class="LineNr">13650 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L13651" class="LineNr">13651 </span> 68/push 0/imm32 -<span id="L13652" class="LineNr">13652 </span> 68/push 0/imm32 -<span id="L13653" class="LineNr">13653 </span> 89/<- %edx 4/r32/esp -<span id="L13654" class="LineNr">13654 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L13655" class="LineNr">13655 </span> <span class="subxComment">#</span> -<span id="L13656" class="LineNr">13656 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L13657" class="LineNr">13657 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/ebx: (addr array boolean) <- copy 0\n"</span>) -<span id="L13658" class="LineNr">13658 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/edi: (addr int) <- length a\n"</span>) -<span id="L13659" class="LineNr">13659 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13660" class="LineNr">13660 </span> <span class="subxComment"># convert</span> -<span id="L13661" class="LineNr">13661 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L13662" class="LineNr">13662 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L13663" class="LineNr">13663 </span> <span class="subxComment"># restore ed</span> -<span id="L13664" class="LineNr">13664 </span> 89/<- %edx 4/r32/esp -<span id="L13665" class="LineNr">13665 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L13666" class="LineNr">13666 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L13667" class="Folded">13667 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13673" class="LineNr">13673 </span> <span class="subxComment"># check output</span> -<span id="L13674" class="LineNr">13674 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13639'>test-length-with-wrong-output-type</a>: output should be empty"</span>) -<span id="L13675" class="LineNr">13675 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt length: output 'o' does not have the right type"</span> <span class="Constant">"F - <a href='mu.subx.html#L13639'>test-length-with-wrong-output-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L13676" class="LineNr">13676 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L13677" class="LineNr">13677 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13639'>test-length-with-wrong-output-type</a>: exit status"</span>) -<span id="L13678" class="LineNr">13678 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L13679" class="LineNr">13679 </span> 81 0/subop/add %esp 8/imm32 -<span id="L13680" class="LineNr">13680 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13681" class="LineNr">13681 </span> 5d/pop-to-ebp -<span id="L13682" class="LineNr">13682 </span> c3/return -<span id="L13683" class="LineNr">13683 </span> -<span id="L13684" class="LineNr">13684 </span><span class="subxTest">test-length-with-wrong-output-compound-type</span>: -<span id="L13685" class="LineNr">13685 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13686" class="LineNr">13686 </span> 55/push-ebp -<span id="L13687" class="LineNr">13687 </span> 89/<- %ebp 4/r32/esp -<span id="L13688" class="LineNr">13688 </span> <span class="subxComment"># setup</span> -<span id="L13689" class="LineNr">13689 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13690" class="LineNr">13690 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13691" class="LineNr">13691 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L13692" class="LineNr">13692 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13693" class="LineNr">13693 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L13694" class="LineNr">13694 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L13695" class="LineNr">13695 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L13696" class="LineNr">13696 </span> 68/push 0/imm32 -<span id="L13697" class="LineNr">13697 </span> 68/push 0/imm32 -<span id="L13698" class="LineNr">13698 </span> 89/<- %edx 4/r32/esp -<span id="L13699" class="LineNr">13699 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L13700" class="LineNr">13700 </span> <span class="subxComment">#</span> -<span id="L13701" class="LineNr">13701 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L13702" class="LineNr">13702 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/ebx: (addr array handle boolean) <- copy 0\n"</span>) -<span id="L13703" class="LineNr">13703 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/edi: (addr handle int) <- length a\n"</span>) -<span id="L13704" class="LineNr">13704 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13705" class="LineNr">13705 </span> <span class="subxComment"># convert</span> -<span id="L13706" class="LineNr">13706 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L13707" class="LineNr">13707 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L13708" class="LineNr">13708 </span> <span class="subxComment"># restore ed</span> -<span id="L13709" class="LineNr">13709 </span> 89/<- %edx 4/r32/esp -<span id="L13710" class="LineNr">13710 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L13711" class="LineNr">13711 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L13712" class="Folded">13712 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13718" class="LineNr">13718 </span> <span class="subxComment"># check output</span> -<span id="L13719" class="LineNr">13719 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13684'>test-length-with-wrong-output-compound-type</a>: output should be empty"</span>) -<span id="L13720" class="LineNr">13720 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt length: output 'o' does not have the right type"</span> <span class="Constant">"F - <a href='mu.subx.html#L13684'>test-length-with-wrong-output-compound-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L13721" class="LineNr">13721 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L13722" class="LineNr">13722 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13684'>test-length-with-wrong-output-compound-type</a>: exit status"</span>) -<span id="L13723" class="LineNr">13723 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L13724" class="LineNr">13724 </span> 81 0/subop/add %esp 8/imm32 -<span id="L13725" class="LineNr">13725 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13726" class="LineNr">13726 </span> 5d/pop-to-ebp -<span id="L13727" class="LineNr">13727 </span> c3/return -<span id="L13728" class="LineNr">13728 </span> -<span id="L13729" class="LineNr">13729 </span><span class="subxTest">test-length-with-no-inouts</span>: -<span id="L13730" class="LineNr">13730 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13731" class="LineNr">13731 </span> 55/push-ebp -<span id="L13732" class="LineNr">13732 </span> 89/<- %ebp 4/r32/esp -<span id="L13733" class="LineNr">13733 </span> <span class="subxComment"># setup</span> -<span id="L13734" class="LineNr">13734 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13735" class="LineNr">13735 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13736" class="LineNr">13736 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L13737" class="LineNr">13737 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13738" class="LineNr">13738 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L13739" class="LineNr">13739 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L13740" class="LineNr">13740 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L13741" class="LineNr">13741 </span> 68/push 0/imm32 -<span id="L13742" class="LineNr">13742 </span> 68/push 0/imm32 -<span id="L13743" class="LineNr">13743 </span> 89/<- %edx 4/r32/esp -<span id="L13744" class="LineNr">13744 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L13745" class="LineNr">13745 </span> <span class="subxComment">#</span> -<span id="L13746" class="LineNr">13746 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L13747" class="LineNr">13747 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: int <- length\n"</span>) -<span id="L13748" class="LineNr">13748 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13749" class="LineNr">13749 </span> <span class="subxComment"># convert</span> -<span id="L13750" class="LineNr">13750 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L13751" class="LineNr">13751 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L13752" class="LineNr">13752 </span> <span class="subxComment"># restore ed</span> -<span id="L13753" class="LineNr">13753 </span> 89/<- %edx 4/r32/esp -<span id="L13754" class="LineNr">13754 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L13755" class="LineNr">13755 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L13756" class="Folded">13756 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13762" class="LineNr">13762 </span> <span class="subxComment"># check output</span> -<span id="L13763" class="LineNr">13763 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13729'>test-length-with-no-inouts</a>: output should be empty"</span>) -<span id="L13764" class="LineNr">13764 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt length: too few inouts (1 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L13729'>test-length-with-no-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L13765" class="LineNr">13765 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L13766" class="LineNr">13766 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13729'>test-length-with-no-inouts</a>: exit status"</span>) -<span id="L13767" class="LineNr">13767 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L13768" class="LineNr">13768 </span> 81 0/subop/add %esp 8/imm32 -<span id="L13769" class="LineNr">13769 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13770" class="LineNr">13770 </span> 5d/pop-to-ebp -<span id="L13771" class="LineNr">13771 </span> c3/return -<span id="L13772" class="LineNr">13772 </span> -<span id="L13773" class="LineNr">13773 </span><span class="subxTest">test-length-with-too-many-inouts</span>: -<span id="L13774" class="LineNr">13774 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13775" class="LineNr">13775 </span> 55/push-ebp -<span id="L13776" class="LineNr">13776 </span> 89/<- %ebp 4/r32/esp -<span id="L13777" class="LineNr">13777 </span> <span class="subxComment"># setup</span> -<span id="L13778" class="LineNr">13778 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13779" class="LineNr">13779 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13780" class="LineNr">13780 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L13781" class="LineNr">13781 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13782" class="LineNr">13782 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L13783" class="LineNr">13783 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L13784" class="LineNr">13784 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L13785" class="LineNr">13785 </span> 68/push 0/imm32 -<span id="L13786" class="LineNr">13786 </span> 68/push 0/imm32 -<span id="L13787" class="LineNr">13787 </span> 89/<- %edx 4/r32/esp -<span id="L13788" class="LineNr">13788 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L13789" class="LineNr">13789 </span> <span class="subxComment">#</span> -<span id="L13790" class="LineNr">13790 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L13791" class="LineNr">13791 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) -<span id="L13792" class="LineNr">13792 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: int <- length a, 0, 0\n"</span>) -<span id="L13793" class="LineNr">13793 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13794" class="LineNr">13794 </span> <span class="subxComment"># convert</span> -<span id="L13795" class="LineNr">13795 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L13796" class="LineNr">13796 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L13797" class="LineNr">13797 </span> <span class="subxComment"># restore ed</span> -<span id="L13798" class="LineNr">13798 </span> 89/<- %edx 4/r32/esp -<span id="L13799" class="LineNr">13799 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L13800" class="LineNr">13800 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L13801" class="Folded">13801 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13807" class="LineNr">13807 </span> <span class="subxComment"># check output</span> -<span id="L13808" class="LineNr">13808 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13773'>test-length-with-too-many-inouts</a>: output should be empty"</span>) -<span id="L13809" class="LineNr">13809 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt length: too many inouts (1 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L13773'>test-length-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L13810" class="LineNr">13810 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L13811" class="LineNr">13811 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13773'>test-length-with-too-many-inouts</a>: exit status"</span>) -<span id="L13812" class="LineNr">13812 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L13813" class="LineNr">13813 </span> 81 0/subop/add %esp 8/imm32 -<span id="L13814" class="LineNr">13814 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13815" class="LineNr">13815 </span> 5d/pop-to-ebp -<span id="L13816" class="LineNr">13816 </span> c3/return -<span id="L13817" class="LineNr">13817 </span> -<span id="L13818" class="LineNr">13818 </span><span class="subxTest">test-length-with-no-output</span>: -<span id="L13819" class="LineNr">13819 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13820" class="LineNr">13820 </span> 55/push-ebp -<span id="L13821" class="LineNr">13821 </span> 89/<- %ebp 4/r32/esp -<span id="L13822" class="LineNr">13822 </span> <span class="subxComment"># setup</span> -<span id="L13823" class="LineNr">13823 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13824" class="LineNr">13824 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13825" class="LineNr">13825 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L13826" class="LineNr">13826 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13827" class="LineNr">13827 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L13828" class="LineNr">13828 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L13829" class="LineNr">13829 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L13830" class="LineNr">13830 </span> 68/push 0/imm32 -<span id="L13831" class="LineNr">13831 </span> 68/push 0/imm32 -<span id="L13832" class="LineNr">13832 </span> 89/<- %edx 4/r32/esp -<span id="L13833" class="LineNr">13833 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L13834" class="LineNr">13834 </span> <span class="subxComment">#</span> -<span id="L13835" class="LineNr">13835 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L13836" class="LineNr">13836 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) -<span id="L13837" class="LineNr">13837 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" length a\n"</span>) -<span id="L13838" class="LineNr">13838 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13839" class="LineNr">13839 </span> <span class="subxComment"># convert</span> -<span id="L13840" class="LineNr">13840 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L13841" class="LineNr">13841 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L13842" class="LineNr">13842 </span> <span class="subxComment"># restore ed</span> -<span id="L13843" class="LineNr">13843 </span> 89/<- %edx 4/r32/esp -<span id="L13844" class="LineNr">13844 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L13845" class="LineNr">13845 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L13846" class="Folded">13846 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13852" class="LineNr">13852 </span> <span class="subxComment"># check output</span> -<span id="L13853" class="LineNr">13853 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13818'>test-length-with-no-output</a>: output should be empty"</span>) -<span id="L13854" class="LineNr">13854 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt length: must have an output"</span> <span class="Constant">"F - <a href='mu.subx.html#L13818'>test-length-with-no-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L13855" class="LineNr">13855 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L13856" class="LineNr">13856 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13818'>test-length-with-no-output</a>: exit status"</span>) -<span id="L13857" class="LineNr">13857 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L13858" class="LineNr">13858 </span> 81 0/subop/add %esp 8/imm32 -<span id="L13859" class="LineNr">13859 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13860" class="LineNr">13860 </span> 5d/pop-to-ebp -<span id="L13861" class="LineNr">13861 </span> c3/return -<span id="L13862" class="LineNr">13862 </span> -<span id="L13863" class="LineNr">13863 </span><span class="subxTest">test-length-with-too-many-outputs</span>: -<span id="L13864" class="LineNr">13864 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13865" class="LineNr">13865 </span> 55/push-ebp -<span id="L13866" class="LineNr">13866 </span> 89/<- %ebp 4/r32/esp -<span id="L13867" class="LineNr">13867 </span> <span class="subxComment"># setup</span> -<span id="L13868" class="LineNr">13868 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13869" class="LineNr">13869 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13870" class="LineNr">13870 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L13871" class="LineNr">13871 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13872" class="LineNr">13872 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L13873" class="LineNr">13873 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L13874" class="LineNr">13874 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L13875" class="LineNr">13875 </span> 68/push 0/imm32 -<span id="L13876" class="LineNr">13876 </span> 68/push 0/imm32 -<span id="L13877" class="LineNr">13877 </span> 89/<- %edx 4/r32/esp -<span id="L13878" class="LineNr">13878 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L13879" class="LineNr">13879 </span> <span class="subxComment">#</span> -<span id="L13880" class="LineNr">13880 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L13881" class="LineNr">13881 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) -<span id="L13882" class="LineNr">13882 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: int <- copy 0\n"</span>) -<span id="L13883" class="LineNr">13883 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: int <- copy 0\n"</span>) -<span id="L13884" class="LineNr">13884 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" b, c <- length a\n"</span>) -<span id="L13885" class="LineNr">13885 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13886" class="LineNr">13886 </span> <span class="subxComment"># convert</span> -<span id="L13887" class="LineNr">13887 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L13888" class="LineNr">13888 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L13889" class="LineNr">13889 </span> <span class="subxComment"># restore ed</span> -<span id="L13890" class="LineNr">13890 </span> 89/<- %edx 4/r32/esp -<span id="L13891" class="LineNr">13891 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L13892" class="LineNr">13892 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L13893" class="Folded">13893 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13899" class="LineNr">13899 </span> <span class="subxComment"># check output</span> -<span id="L13900" class="LineNr">13900 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13863'>test-length-with-too-many-outputs</a>: output should be empty"</span>) -<span id="L13901" class="LineNr">13901 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt length: too many outputs (1 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L13863'>test-length-with-too-many-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L13902" class="LineNr">13902 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L13903" class="LineNr">13903 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13863'>test-length-with-too-many-outputs</a>: exit status"</span>) -<span id="L13904" class="LineNr">13904 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L13905" class="LineNr">13905 </span> 81 0/subop/add %esp 8/imm32 -<span id="L13906" class="LineNr">13906 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13907" class="LineNr">13907 </span> 5d/pop-to-ebp -<span id="L13908" class="LineNr">13908 </span> c3/return -<span id="L13909" class="LineNr">13909 </span> -<span id="L13910" class="LineNr">13910 </span><span class="subxTest">test-convert-function-with-return-register-and-local</span>: -<span id="L13911" class="LineNr">13911 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13912" class="LineNr">13912 </span> 55/push-ebp -<span id="L13913" class="LineNr">13913 </span> 89/<- %ebp 4/r32/esp -<span id="L13914" class="LineNr">13914 </span> <span class="subxComment"># setup</span> -<span id="L13915" class="LineNr">13915 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13916" class="LineNr">13916 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13917" class="LineNr">13917 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L13918" class="LineNr">13918 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13919" class="LineNr">13919 </span> <span class="subxComment">#</span> -<span id="L13920" class="LineNr">13920 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/eax: int {\n"</span>) -<span id="L13921" class="LineNr">13921 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: int <- copy 3\n"</span>) -<span id="L13922" class="LineNr">13922 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var z/ecx: int <- copy 4\n"</span>) -<span id="L13923" class="LineNr">13923 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return y\n"</span>) -<span id="L13924" class="LineNr">13924 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13925" class="LineNr">13925 </span> <span class="subxComment"># convert</span> -<span id="L13926" class="LineNr">13926 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L13927" class="LineNr">13927 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L13928" class="Folded">13928 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13934" class="LineNr">13934 </span> <span class="subxComment"># check output</span> -<span id="L13935" class="LineNr">13935 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L13910'>test-convert-function-with-return-register-and-local</a>/0"</span>) -<span id="L13936" class="LineNr">13936 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-return-register-and-local/1"</span>) -<span id="L13937" class="LineNr">13937 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L13910'>test-convert-function-with-return-register-and-local</a>/2"</span>) -<span id="L13938" class="LineNr">13938 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L13910'>test-convert-function-with-return-register-and-local</a>/3"</span>) -<span id="L13939" class="LineNr">13939 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L13910'>test-convert-function-with-return-register-and-local</a>/4"</span>) -<span id="L13940" class="LineNr">13940 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L13910'>test-convert-function-with-return-register-and-local</a>/5"</span>) -<span id="L13941" class="LineNr">13941 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L13910'>test-convert-function-with-return-register-and-local</a>/6"</span>) -<span id="L13942" class="LineNr">13942 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13910'>test-convert-function-with-return-register-and-local</a>/7"</span>) -<span id="L13943" class="LineNr">13943 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L13910'>test-convert-function-with-return-register-and-local</a>/8"</span>) -<span id="L13944" class="LineNr">13944 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13910'>test-convert-function-with-return-register-and-local</a>/9"</span>) -<span id="L13945" class="LineNr">13945 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> %eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13910'>test-convert-function-with-return-register-and-local</a>/10"</span>) -<span id="L13946" class="LineNr">13946 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L13910'>test-convert-function-with-return-register-and-local</a>/11"</span>) -<span id="L13947" class="LineNr">13947 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13910'>test-convert-function-with-return-register-and-local</a>/12"</span>) -<span id="L13948" class="LineNr">13948 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13910'>test-convert-function-with-return-register-and-local</a>/13"</span>) -<span id="L13949" class="LineNr">13949 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L13910'>test-convert-function-with-return-register-and-local</a>/14"</span>) -<span id="L13950" class="LineNr">13950 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L13910'>test-convert-function-with-return-register-and-local</a>/15"</span>) -<span id="L13951" class="LineNr">13951 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-return-register-and-local/16"</span>) -<span id="L13952" class="LineNr">13952 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L13910'>test-convert-function-with-return-register-and-local</a>/17"</span>) -<span id="L13953" class="LineNr">13953 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L13910'>test-convert-function-with-return-register-and-local</a>/18"</span>) -<span id="L13954" class="LineNr">13954 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L13910'>test-convert-function-with-return-register-and-local</a>/19"</span>) -<span id="L13955" class="LineNr">13955 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13956" class="LineNr">13956 </span> 89/<- %esp 5/r32/ebp -<span id="L13957" class="LineNr">13957 </span> 5d/pop-to-ebp -<span id="L13958" class="LineNr">13958 </span> c3/return -<span id="L13959" class="LineNr">13959 </span> -<span id="L13960" class="LineNr">13960 </span><span class="subxTest">test-convert-function-with-return-register-and-local-2</span>: -<span id="L13961" class="LineNr">13961 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13962" class="LineNr">13962 </span> 55/push-ebp -<span id="L13963" class="LineNr">13963 </span> 89/<- %ebp 4/r32/esp -<span id="L13964" class="LineNr">13964 </span> <span class="subxComment"># setup</span> -<span id="L13965" class="LineNr">13965 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13966" class="LineNr">13966 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13967" class="LineNr">13967 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L13968" class="LineNr">13968 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13969" class="LineNr">13969 </span> <span class="subxComment">#</span> -<span id="L13970" class="LineNr">13970 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/eax: int {\n"</span>) -<span id="L13971" class="LineNr">13971 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: int <- copy 3\n"</span>) -<span id="L13972" class="LineNr">13972 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var z/ecx: int <- copy 4\n"</span>) -<span id="L13973" class="LineNr">13973 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return z\n"</span>) -<span id="L13974" class="LineNr">13974 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13975" class="LineNr">13975 </span> <span class="subxComment"># convert</span> -<span id="L13976" class="LineNr">13976 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L13977" class="LineNr">13977 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L13978" class="Folded">13978 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13984" class="LineNr">13984 </span> <span class="subxComment"># check output</span> -<span id="L13985" class="LineNr">13985 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L13960'>test-convert-function-with-return-register-and-local-2</a>/0"</span>) -<span id="L13986" class="LineNr">13986 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-return-register-and-local-2/1"</span>) -<span id="L13987" class="LineNr">13987 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L13960'>test-convert-function-with-return-register-and-local-2</a>/2"</span>) -<span id="L13988" class="LineNr">13988 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L13960'>test-convert-function-with-return-register-and-local-2</a>/3"</span>) -<span id="L13989" class="LineNr">13989 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L13960'>test-convert-function-with-return-register-and-local-2</a>/4"</span>) -<span id="L13990" class="LineNr">13990 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L13960'>test-convert-function-with-return-register-and-local-2</a>/5"</span>) -<span id="L13991" class="LineNr">13991 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L13960'>test-convert-function-with-return-register-and-local-2</a>/6"</span>) -<span id="L13992" class="LineNr">13992 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13960'>test-convert-function-with-return-register-and-local-2</a>/7"</span>) -<span id="L13993" class="LineNr">13993 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L13960'>test-convert-function-with-return-register-and-local-2</a>/8"</span>) -<span id="L13994" class="LineNr">13994 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13960'>test-convert-function-with-return-register-and-local-2</a>/9"</span>) -<span id="L13995" class="LineNr">13995 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> %ecx 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13960'>test-convert-function-with-return-register-and-local-2</a>/10"</span>) -<span id="L13996" class="LineNr">13996 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L13960'>test-convert-function-with-return-register-and-local-2</a>/11"</span>) -<span id="L13997" class="LineNr">13997 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13960'>test-convert-function-with-return-register-and-local-2</a>/12"</span>) -<span id="L13998" class="LineNr">13998 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13960'>test-convert-function-with-return-register-and-local-2</a>/13"</span>) -<span id="L13999" class="LineNr">13999 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L13960'>test-convert-function-with-return-register-and-local-2</a>/14"</span>) -<span id="L14000" class="LineNr">14000 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L13960'>test-convert-function-with-return-register-and-local-2</a>/15"</span>) -<span id="L14001" class="LineNr">14001 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-return-register-and-local-2/16"</span>) -<span id="L14002" class="LineNr">14002 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L13960'>test-convert-function-with-return-register-and-local-2</a>/17"</span>) -<span id="L14003" class="LineNr">14003 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L13960'>test-convert-function-with-return-register-and-local-2</a>/18"</span>) -<span id="L14004" class="LineNr">14004 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L13960'>test-convert-function-with-return-register-and-local-2</a>/19"</span>) -<span id="L14005" class="LineNr">14005 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14006" class="LineNr">14006 </span> 89/<- %esp 5/r32/ebp -<span id="L14007" class="LineNr">14007 </span> 5d/pop-to-ebp -<span id="L14008" class="LineNr">14008 </span> c3/return -<span id="L14009" class="LineNr">14009 </span> -<span id="L14010" class="LineNr">14010 </span><span class="subxTest">test-convert-function-with-return-float-register-and-local</span>: -<span id="L14011" class="LineNr">14011 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14012" class="LineNr">14012 </span> 55/push-ebp -<span id="L14013" class="LineNr">14013 </span> 89/<- %ebp 4/r32/esp -<span id="L14014" class="LineNr">14014 </span> <span class="subxComment"># setup</span> -<span id="L14015" class="LineNr">14015 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14016" class="LineNr">14016 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14017" class="LineNr">14017 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L14018" class="LineNr">14018 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14019" class="LineNr">14019 </span> <span class="subxComment">#</span> -<span id="L14020" class="LineNr">14020 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/xmm1: float {\n"</span>) -<span id="L14021" class="LineNr">14021 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: int <- copy 3\n"</span>) -<span id="L14022" class="LineNr">14022 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var g/xmm0: float <- convert y\n"</span>) -<span id="L14023" class="LineNr">14023 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var h/xmm1: float <- convert y\n"</span>) -<span id="L14024" class="LineNr">14024 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return g\n"</span>) -<span id="L14025" class="LineNr">14025 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14026" class="LineNr">14026 </span> <span class="subxComment"># convert</span> -<span id="L14027" class="LineNr">14027 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L14028" class="LineNr">14028 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L14029" class="Folded">14029 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14035" class="LineNr">14035 </span> <span class="subxComment"># check output</span> -<span id="L14036" class="LineNr">14036 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L14010'>test-convert-function-with-return-float-register-and-local</a>/0"</span>) -<span id="L14037" class="LineNr">14037 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-return-float-register-and-local/1"</span>) -<span id="L14038" class="LineNr">14038 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L14010'>test-convert-function-with-return-float-register-and-local</a>/2"</span>) -<span id="L14039" class="LineNr">14039 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L14010'>test-convert-function-with-return-float-register-and-local</a>/3"</span>) -<span id="L14040" class="LineNr">14040 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L14010'>test-convert-function-with-return-float-register-and-local</a>/4"</span>) -<span id="L14041" class="LineNr">14041 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L14010'>test-convert-function-with-return-float-register-and-local</a>/5"</span>) -<span id="L14042" class="LineNr">14042 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L14010'>test-convert-function-with-return-float-register-and-local</a>/6"</span>) <span class="subxComment"># var y</span> -<span id="L14043" class="LineNr">14043 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14010'>test-convert-function-with-return-float-register-and-local</a>/7"</span>) -<span id="L14044" class="LineNr">14044 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 5/subop/subtract %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14010'>test-convert-function-with-return-float-register-and-local</a>/8"</span>) <span class="subxComment"># var g</span> -<span id="L14045" class="LineNr">14045 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 11/<- *esp 0/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14010'>test-convert-function-with-return-float-register-and-local</a>/9"</span>) -<span id="L14046" class="LineNr">14046 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 2a/convert-to-float %eax 0x00000000/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14010'>test-convert-function-with-return-float-register-and-local</a>/10"</span>) -<span id="L14047" class="LineNr">14047 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 5/subop/subtract %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14010'>test-convert-function-with-return-float-register-and-local</a>/11"</span>) <span class="subxComment"># var h</span> -<span id="L14048" class="LineNr">14048 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 11/<- *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14010'>test-convert-function-with-return-float-register-and-local</a>/12"</span>) -<span id="L14049" class="LineNr">14049 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 2a/convert-to-float %eax 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14010'>test-convert-function-with-return-float-register-and-local</a>/13"</span>) -<span id="L14050" class="LineNr">14050 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 10/-> %xmm0 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14010'>test-convert-function-with-return-float-register-and-local</a>/14"</span>) <span class="subxComment"># return g</span> -<span id="L14051" class="LineNr">14051 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6017'>test-convert-floating-point-dereferenced</a>/15"</span>) <span class="subxComment"># reclaim h</span> -<span id="L14052" class="LineNr">14052 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 10/-> *esp 0/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6017'>test-convert-floating-point-dereferenced</a>/16"</span>) <span class="subxComment"># reclaim g</span> -<span id="L14053" class="LineNr">14053 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6017'>test-convert-floating-point-dereferenced</a>/17"</span>) -<span id="L14054" class="LineNr">14054 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L14010'>test-convert-function-with-return-float-register-and-local</a>/18"</span>) <span class="subxComment"># reclaim y</span> -<span id="L14055" class="LineNr">14055 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14010'>test-convert-function-with-return-float-register-and-local</a>/19"</span>) -<span id="L14056" class="LineNr">14056 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L14010'>test-convert-function-with-return-float-register-and-local</a>/20"</span>) -<span id="L14057" class="LineNr">14057 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L14010'>test-convert-function-with-return-float-register-and-local</a>/21"</span>) -<span id="L14058" class="LineNr">14058 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-return-float-register-and-local/22"</span>) -<span id="L14059" class="LineNr">14059 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L14010'>test-convert-function-with-return-float-register-and-local</a>/23"</span>) -<span id="L14060" class="LineNr">14060 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L14010'>test-convert-function-with-return-float-register-and-local</a>/24"</span>) -<span id="L14061" class="LineNr">14061 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L14010'>test-convert-function-with-return-float-register-and-local</a>/25"</span>) -<span id="L14062" class="LineNr">14062 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14063" class="LineNr">14063 </span> 89/<- %esp 5/r32/ebp -<span id="L14064" class="LineNr">14064 </span> 5d/pop-to-ebp -<span id="L14065" class="LineNr">14065 </span> c3/return -<span id="L14066" class="LineNr">14066 </span> -<span id="L14067" class="LineNr">14067 </span><span class="subxTest">test-convert-function-with-return-and-local-vars</span>: -<span id="L14068" class="LineNr">14068 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14069" class="LineNr">14069 </span> 55/push-ebp -<span id="L14070" class="LineNr">14070 </span> 89/<- %ebp 4/r32/esp -<span id="L14071" class="LineNr">14071 </span> <span class="subxComment"># setup</span> -<span id="L14072" class="LineNr">14072 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14073" class="LineNr">14073 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14074" class="LineNr">14074 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L14075" class="LineNr">14075 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14076" class="LineNr">14076 </span> <span class="subxComment">#</span> -<span id="L14077" class="LineNr">14077 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/eax: int {\n"</span>) -<span id="L14078" class="LineNr">14078 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L14079" class="LineNr">14079 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) -<span id="L14080" class="LineNr">14080 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L14081" class="LineNr">14081 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: int\n"</span>) -<span id="L14082" class="LineNr">14082 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return y\n"</span>) -<span id="L14083" class="LineNr">14083 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) -<span id="L14084" class="LineNr">14084 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L14085" class="LineNr">14085 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L14086" class="LineNr">14086 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return 0\n"</span>) -<span id="L14087" class="LineNr">14087 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14088" class="LineNr">14088 </span> <span class="subxComment"># convert</span> -<span id="L14089" class="LineNr">14089 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L14090" class="LineNr">14090 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L14091" class="Folded">14091 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14097" class="LineNr">14097 </span> <span class="subxComment"># check output</span> -<span id="L14098" class="LineNr">14098 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L14067'>test-convert-function-with-return-and-local-vars</a>/0"</span>) -<span id="L14099" class="LineNr">14099 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-return-and-local-vars/1"</span>) -<span id="L14100" class="LineNr">14100 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L14067'>test-convert-function-with-return-and-local-vars</a>/2"</span>) -<span id="L14101" class="LineNr">14101 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L14067'>test-convert-function-with-return-and-local-vars</a>/3"</span>) -<span id="L14102" class="LineNr">14102 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L14067'>test-convert-function-with-return-and-local-vars</a>/4"</span>) -<span id="L14103" class="LineNr">14103 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L14067'>test-convert-function-with-return-and-local-vars</a>/5"</span>) -<span id="L14104" class="LineNr">14104 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L14067'>test-convert-function-with-return-and-local-vars</a>/6"</span>) -<span id="L14105" class="LineNr">14105 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L14067'>test-convert-function-with-return-and-local-vars</a>/7"</span>) -<span id="L14106" class="LineNr">14106 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14067'>test-convert-function-with-return-and-local-vars</a>/8"</span>) <span class="subxComment"># var x</span> -<span id="L14107" class="LineNr">14107 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L14067'>test-convert-function-with-return-and-local-vars</a>/9"</span>) -<span id="L14108" class="LineNr">14108 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L14067'>test-convert-function-with-return-and-local-vars</a>/10"</span>) -<span id="L14109" class="LineNr">14109 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14067'>test-convert-function-with-return-and-local-vars</a>/11"</span>) <span class="subxComment"># var y</span> -<span id="L14110" class="LineNr">14110 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0xfffffff8) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14067'>test-convert-function-with-return-and-local-vars</a>/12"</span>) -<span id="L14111" class="LineNr">14111 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14067'>test-convert-function-with-return-and-local-vars</a>/13"</span>) -<span id="L14112" class="LineNr">14112 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14067'>test-convert-function-with-return-and-local-vars</a>/14"</span>) -<span id="L14113" class="LineNr">14113 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14067'>test-convert-function-with-return-and-local-vars</a>/15"</span>) -<span id="L14114" class="LineNr">14114 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L14067'>test-convert-function-with-return-and-local-vars</a>/16"</span>) -<span id="L14115" class="LineNr">14115 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L14067'>test-convert-function-with-return-and-local-vars</a>/17"</span>) -<span id="L14116" class="LineNr">14116 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14067'>test-convert-function-with-return-and-local-vars</a>/18"</span>) -<span id="L14117" class="LineNr">14117 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L14067'>test-convert-function-with-return-and-local-vars</a>/19"</span>) -<span id="L14118" class="LineNr">14118 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L14067'>test-convert-function-with-return-and-local-vars</a>/20"</span>) -<span id="L14119" class="LineNr">14119 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c7 0/subop/copy %eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14067'>test-convert-function-with-return-and-local-vars</a>/21"</span>) -<span id="L14120" class="LineNr">14120 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14067'>test-convert-function-with-return-and-local-vars</a>/21"</span>) -<span id="L14121" class="LineNr">14121 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L14067'>test-convert-function-with-return-and-local-vars</a>/21"</span>) -<span id="L14122" class="LineNr">14122 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L14067'>test-convert-function-with-return-and-local-vars</a>/22"</span>) -<span id="L14123" class="LineNr">14123 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-return-and-local-vars/23"</span>) -<span id="L14124" class="LineNr">14124 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L14067'>test-convert-function-with-return-and-local-vars</a>/24"</span>) -<span id="L14125" class="LineNr">14125 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L14067'>test-convert-function-with-return-and-local-vars</a>/25"</span>) -<span id="L14126" class="LineNr">14126 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L14067'>test-convert-function-with-return-and-local-vars</a>/26"</span>) -<span id="L14127" class="LineNr">14127 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14128" class="LineNr">14128 </span> 89/<- %esp 5/r32/ebp -<span id="L14129" class="LineNr">14129 </span> 5d/pop-to-ebp -<span id="L14130" class="LineNr">14130 </span> c3/return -<span id="L14131" class="LineNr">14131 </span> -<span id="L14132" class="LineNr">14132 </span><span class="subxTest">test-copy-object-with-no-inout</span>: -<span id="L14133" class="LineNr">14133 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14134" class="LineNr">14134 </span> 55/push-ebp -<span id="L14135" class="LineNr">14135 </span> 89/<- %ebp 4/r32/esp -<span id="L14136" class="LineNr">14136 </span> <span class="subxComment"># setup</span> -<span id="L14137" class="LineNr">14137 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14138" class="LineNr">14138 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14139" class="LineNr">14139 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L14140" class="LineNr">14140 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14141" class="LineNr">14141 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L14142" class="LineNr">14142 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14143" class="LineNr">14143 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L14144" class="LineNr">14144 </span> 68/push 0/imm32 -<span id="L14145" class="LineNr">14145 </span> 68/push 0/imm32 -<span id="L14146" class="LineNr">14146 </span> 89/<- %edx 4/r32/esp -<span id="L14147" class="LineNr">14147 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14148" class="LineNr">14148 </span> <span class="subxComment">#</span> -<span id="L14149" class="LineNr">14149 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14150" class="LineNr">14150 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-object\n"</span>) -<span id="L14151" class="LineNr">14151 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14152" class="LineNr">14152 </span> <span class="subxComment"># convert</span> -<span id="L14153" class="LineNr">14153 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L14154" class="LineNr">14154 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L14155" class="LineNr">14155 </span> <span class="subxComment"># restore ed</span> -<span id="L14156" class="LineNr">14156 </span> 89/<- %edx 4/r32/esp -<span id="L14157" class="LineNr">14157 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L14158" class="LineNr">14158 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L14159" class="Folded">14159 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14165" class="LineNr">14165 </span> <span class="subxComment"># check output</span> -<span id="L14166" class="LineNr">14166 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14132'>test-copy-object-with-no-inout</a>: output should be empty"</span>) -<span id="L14167" class="LineNr">14167 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-object' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L14132'>test-copy-object-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L14168" class="LineNr">14168 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14169" class="LineNr">14169 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14132'>test-copy-object-with-no-inout</a>: exit status"</span>) -<span id="L14170" class="LineNr">14170 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L14171" class="LineNr">14171 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14172" class="LineNr">14172 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14173" class="LineNr">14173 </span> 5d/pop-to-ebp -<span id="L14174" class="LineNr">14174 </span> c3/return -<span id="L14175" class="LineNr">14175 </span> -<span id="L14176" class="LineNr">14176 </span><span class="subxTest">test-copy-object-with-no-source</span>: -<span id="L14177" class="LineNr">14177 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14178" class="LineNr">14178 </span> 55/push-ebp -<span id="L14179" class="LineNr">14179 </span> 89/<- %ebp 4/r32/esp -<span id="L14180" class="LineNr">14180 </span> <span class="subxComment"># setup</span> -<span id="L14181" class="LineNr">14181 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14182" class="LineNr">14182 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14183" class="LineNr">14183 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L14184" class="LineNr">14184 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14185" class="LineNr">14185 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L14186" class="LineNr">14186 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14187" class="LineNr">14187 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L14188" class="LineNr">14188 </span> 68/push 0/imm32 -<span id="L14189" class="LineNr">14189 </span> 68/push 0/imm32 -<span id="L14190" class="LineNr">14190 </span> 89/<- %edx 4/r32/esp -<span id="L14191" class="LineNr">14191 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14192" class="LineNr">14192 </span> <span class="subxComment">#</span> -<span id="L14193" class="LineNr">14193 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14194" class="LineNr">14194 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr int)\n"</span>) -<span id="L14195" class="LineNr">14195 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-object x\n"</span>) -<span id="L14196" class="LineNr">14196 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14197" class="LineNr">14197 </span> <span class="subxComment"># convert</span> -<span id="L14198" class="LineNr">14198 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L14199" class="LineNr">14199 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L14200" class="LineNr">14200 </span> <span class="subxComment"># restore ed</span> -<span id="L14201" class="LineNr">14201 </span> 89/<- %edx 4/r32/esp -<span id="L14202" class="LineNr">14202 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L14203" class="LineNr">14203 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L14204" class="Folded">14204 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14210" class="LineNr">14210 </span> <span class="subxComment"># check output</span> -<span id="L14211" class="LineNr">14211 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14176'>test-copy-object-with-no-source</a>: output should be empty"</span>) -<span id="L14212" class="LineNr">14212 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-object' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L14176'>test-copy-object-with-no-source</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L14213" class="LineNr">14213 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14214" class="LineNr">14214 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14176'>test-copy-object-with-no-source</a>: exit status"</span>) -<span id="L14215" class="LineNr">14215 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L14216" class="LineNr">14216 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14217" class="LineNr">14217 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14218" class="LineNr">14218 </span> 5d/pop-to-ebp -<span id="L14219" class="LineNr">14219 </span> c3/return -<span id="L14220" class="LineNr">14220 </span> -<span id="L14221" class="LineNr">14221 </span><span class="subxTest">test-copy-object-with-too-many-inouts</span>: -<span id="L14222" class="LineNr">14222 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14223" class="LineNr">14223 </span> 55/push-ebp -<span id="L14224" class="LineNr">14224 </span> 89/<- %ebp 4/r32/esp -<span id="L14225" class="LineNr">14225 </span> <span class="subxComment"># setup</span> -<span id="L14226" class="LineNr">14226 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14227" class="LineNr">14227 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14228" class="LineNr">14228 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L14229" class="LineNr">14229 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14230" class="LineNr">14230 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L14231" class="LineNr">14231 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14232" class="LineNr">14232 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L14233" class="LineNr">14233 </span> 68/push 0/imm32 -<span id="L14234" class="LineNr">14234 </span> 68/push 0/imm32 -<span id="L14235" class="LineNr">14235 </span> 89/<- %edx 4/r32/esp -<span id="L14236" class="LineNr">14236 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14237" class="LineNr">14237 </span> <span class="subxComment">#</span> -<span id="L14238" class="LineNr">14238 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14239" class="LineNr">14239 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr boolean)\n"</span>) -<span id="L14240" class="LineNr">14240 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-object x, x, x\n"</span>) -<span id="L14241" class="LineNr">14241 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14242" class="LineNr">14242 </span> <span class="subxComment"># convert</span> -<span id="L14243" class="LineNr">14243 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L14244" class="LineNr">14244 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L14245" class="LineNr">14245 </span> <span class="subxComment"># restore ed</span> -<span id="L14246" class="LineNr">14246 </span> 89/<- %edx 4/r32/esp -<span id="L14247" class="LineNr">14247 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L14248" class="LineNr">14248 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L14249" class="Folded">14249 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14255" class="LineNr">14255 </span> <span class="subxComment"># check output</span> -<span id="L14256" class="LineNr">14256 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14221'>test-copy-object-with-too-many-inouts</a>: output should be empty"</span>) -<span id="L14257" class="LineNr">14257 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-object' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L14221'>test-copy-object-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L14258" class="LineNr">14258 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14259" class="LineNr">14259 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14221'>test-copy-object-with-too-many-inouts</a>: exit status"</span>) -<span id="L14260" class="LineNr">14260 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L14261" class="LineNr">14261 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14262" class="LineNr">14262 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14263" class="LineNr">14263 </span> 5d/pop-to-ebp -<span id="L14264" class="LineNr">14264 </span> c3/return -<span id="L14265" class="LineNr">14265 </span> -<span id="L14266" class="LineNr">14266 </span><span class="subxTest">test-copy-object-with-output</span>: -<span id="L14267" class="LineNr">14267 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14268" class="LineNr">14268 </span> 55/push-ebp -<span id="L14269" class="LineNr">14269 </span> 89/<- %ebp 4/r32/esp -<span id="L14270" class="LineNr">14270 </span> <span class="subxComment"># setup</span> -<span id="L14271" class="LineNr">14271 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14272" class="LineNr">14272 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14273" class="LineNr">14273 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L14274" class="LineNr">14274 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14275" class="LineNr">14275 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L14276" class="LineNr">14276 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14277" class="LineNr">14277 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L14278" class="LineNr">14278 </span> 68/push 0/imm32 -<span id="L14279" class="LineNr">14279 </span> 68/push 0/imm32 -<span id="L14280" class="LineNr">14280 </span> 89/<- %edx 4/r32/esp -<span id="L14281" class="LineNr">14281 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14282" class="LineNr">14282 </span> <span class="subxComment">#</span> -<span id="L14283" class="LineNr">14283 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14284" class="LineNr">14284 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr boolean) <- copy 0\n"</span>) -<span id="L14285" class="LineNr">14285 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr boolean) <- copy 0\n"</span>) -<span id="L14286" class="LineNr">14286 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- copy-object x, y\n"</span>) -<span id="L14287" class="LineNr">14287 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14288" class="LineNr">14288 </span> <span class="subxComment"># convert</span> -<span id="L14289" class="LineNr">14289 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L14290" class="LineNr">14290 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L14291" class="LineNr">14291 </span> <span class="subxComment"># restore ed</span> -<span id="L14292" class="LineNr">14292 </span> 89/<- %edx 4/r32/esp -<span id="L14293" class="LineNr">14293 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L14294" class="LineNr">14294 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L14295" class="Folded">14295 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14301" class="LineNr">14301 </span> <span class="subxComment"># check output</span> -<span id="L14302" class="LineNr">14302 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14266'>test-copy-object-with-output</a>: output should be empty"</span>) -<span id="L14303" class="LineNr">14303 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-object' must not have any outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L14266'>test-copy-object-with-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L14304" class="LineNr">14304 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14305" class="LineNr">14305 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14266'>test-copy-object-with-output</a>: exit status"</span>) -<span id="L14306" class="LineNr">14306 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L14307" class="LineNr">14307 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14308" class="LineNr">14308 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14309" class="LineNr">14309 </span> 5d/pop-to-ebp -<span id="L14310" class="LineNr">14310 </span> c3/return -<span id="L14311" class="LineNr">14311 </span> -<span id="L14312" class="LineNr">14312 </span><span class="subxTest">test-copy-object-deref-address</span>: -<span id="L14313" class="LineNr">14313 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14314" class="LineNr">14314 </span> 55/push-ebp -<span id="L14315" class="LineNr">14315 </span> 89/<- %ebp 4/r32/esp -<span id="L14316" class="LineNr">14316 </span> <span class="subxComment"># setup</span> -<span id="L14317" class="LineNr">14317 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14318" class="LineNr">14318 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14319" class="LineNr">14319 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L14320" class="LineNr">14320 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14321" class="LineNr">14321 </span> <span class="subxComment">#</span> -<span id="L14322" class="LineNr">14322 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14323" class="LineNr">14323 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr int) <- copy 0\n"</span>) -<span id="L14324" class="LineNr">14324 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr addr int) <- copy 0\n"</span>) -<span id="L14325" class="LineNr">14325 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-object *y, x\n"</span>) -<span id="L14326" class="LineNr">14326 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14327" class="LineNr">14327 </span> <span class="subxComment"># convert</span> -<span id="L14328" class="LineNr">14328 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L14329" class="LineNr">14329 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L14330" class="LineNr">14330 </span> <span class="subxComment"># no errors</span> -<span id="L14331" class="LineNr">14331 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14332" class="LineNr">14332 </span> 5d/pop-to-ebp -<span id="L14333" class="LineNr">14333 </span> c3/return -<span id="L14334" class="LineNr">14334 </span> -<span id="L14335" class="LineNr">14335 </span><span class="subxTest">test-copy-object-non-addr</span>: -<span id="L14336" class="LineNr">14336 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14337" class="LineNr">14337 </span> 55/push-ebp -<span id="L14338" class="LineNr">14338 </span> 89/<- %ebp 4/r32/esp -<span id="L14339" class="LineNr">14339 </span> <span class="subxComment"># setup</span> -<span id="L14340" class="LineNr">14340 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14341" class="LineNr">14341 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14342" class="LineNr">14342 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L14343" class="LineNr">14343 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14344" class="LineNr">14344 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L14345" class="LineNr">14345 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14346" class="LineNr">14346 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L14347" class="LineNr">14347 </span> 68/push 0/imm32 -<span id="L14348" class="LineNr">14348 </span> 68/push 0/imm32 -<span id="L14349" class="LineNr">14349 </span> 89/<- %edx 4/r32/esp -<span id="L14350" class="LineNr">14350 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14351" class="LineNr">14351 </span> <span class="subxComment">#</span> -<span id="L14352" class="LineNr">14352 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14353" class="LineNr">14353 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) -<span id="L14354" class="LineNr">14354 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: int\n"</span>) -<span id="L14355" class="LineNr">14355 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-object y, x\n"</span>) -<span id="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">"}\n"</span>) -<span id="L14357" class="LineNr">14357 </span> <span class="subxComment"># convert</span> -<span id="L14358" class="LineNr">14358 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L14359" class="LineNr">14359 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L14360" class="LineNr">14360 </span> <span class="subxComment"># restore ed</span> -<span id="L14361" class="LineNr">14361 </span> 89/<- %edx 4/r32/esp -<span id="L14362" class="LineNr">14362 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L14363" class="LineNr">14363 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L14364" class="Folded">14364 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14370" class="LineNr">14370 </span> <span class="subxComment"># check output</span> -<span id="L14371" class="LineNr">14371 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14335'>test-copy-object-non-addr</a>: output should be empty"</span>) -<span id="L14372" class="LineNr">14372 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-object: two inouts with identical addr types expected"</span> <span class="Constant">"F - <a href='mu.subx.html#L14335'>test-copy-object-non-addr</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L14373" class="LineNr">14373 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14374" class="LineNr">14374 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14335'>test-copy-object-non-addr</a>: exit status"</span>) -<span id="L14375" class="LineNr">14375 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L14376" class="LineNr">14376 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14377" class="LineNr">14377 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14378" class="LineNr">14378 </span> 5d/pop-to-ebp -<span id="L14379" class="LineNr">14379 </span> c3/return -<span id="L14380" class="LineNr">14380 </span> -<span id="L14381" class="LineNr">14381 </span><span class="subxTest">test-copy-object-non-equal</span>: -<span id="L14382" class="LineNr">14382 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14383" class="LineNr">14383 </span> 55/push-ebp -<span id="L14384" class="LineNr">14384 </span> 89/<- %ebp 4/r32/esp -<span id="L14385" class="LineNr">14385 </span> <span class="subxComment"># setup</span> -<span id="L14386" class="LineNr">14386 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14387" class="LineNr">14387 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14388" class="LineNr">14388 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L14389" class="LineNr">14389 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14390" class="LineNr">14390 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L14391" class="LineNr">14391 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14392" class="LineNr">14392 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L14393" class="LineNr">14393 </span> 68/push 0/imm32 -<span id="L14394" class="LineNr">14394 </span> 68/push 0/imm32 -<span id="L14395" class="LineNr">14395 </span> 89/<- %edx 4/r32/esp -<span id="L14396" class="LineNr">14396 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14397" class="LineNr">14397 </span> <span class="subxComment">#</span> -<span id="L14398" class="LineNr">14398 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14399" class="LineNr">14399 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr int)\n"</span>) -<span id="L14400" class="LineNr">14400 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: (addr boolean)\n"</span>) -<span id="L14401" class="LineNr">14401 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-object y, x\n"</span>) -<span id="L14402" class="LineNr">14402 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14403" class="LineNr">14403 </span> <span class="subxComment"># convert</span> -<span id="L14404" class="LineNr">14404 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L14405" class="LineNr">14405 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L14406" class="LineNr">14406 </span> <span class="subxComment"># restore ed</span> -<span id="L14407" class="LineNr">14407 </span> 89/<- %edx 4/r32/esp -<span id="L14408" class="LineNr">14408 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L14409" class="LineNr">14409 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L14410" class="Folded">14410 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14416" class="LineNr">14416 </span> <span class="subxComment"># check output</span> -<span id="L14417" class="LineNr">14417 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14381'>test-copy-object-non-equal</a>: output should be empty"</span>) -<span id="L14418" class="LineNr">14418 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-object: two inouts with identical addr types expected"</span> <span class="Constant">"F - <a href='mu.subx.html#L14381'>test-copy-object-non-equal</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L14419" class="LineNr">14419 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14420" class="LineNr">14420 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14381'>test-copy-object-non-equal</a>: exit status"</span>) -<span id="L14421" class="LineNr">14421 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L14422" class="LineNr">14422 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14423" class="LineNr">14423 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14424" class="LineNr">14424 </span> 5d/pop-to-ebp -<span id="L14425" class="LineNr">14425 </span> c3/return -<span id="L14426" class="LineNr">14426 </span> -<span id="L14427" class="LineNr">14427 </span><span class="subxTest">test-allocate-with-no-inout</span>: -<span id="L14428" class="LineNr">14428 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14429" class="LineNr">14429 </span> 55/push-ebp -<span id="L14430" class="LineNr">14430 </span> 89/<- %ebp 4/r32/esp -<span id="L14431" class="LineNr">14431 </span> <span class="subxComment"># setup</span> -<span id="L14432" class="LineNr">14432 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14433" class="LineNr">14433 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14434" class="LineNr">14434 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L14435" class="LineNr">14435 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14436" class="LineNr">14436 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L14437" class="LineNr">14437 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14438" class="LineNr">14438 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L14439" class="LineNr">14439 </span> 68/push 0/imm32 -<span id="L14440" class="LineNr">14440 </span> 68/push 0/imm32 -<span id="L14441" class="LineNr">14441 </span> 89/<- %edx 4/r32/esp -<span id="L14442" class="LineNr">14442 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14443" class="LineNr">14443 </span> <span class="subxComment">#</span> -<span id="L14444" class="LineNr">14444 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14445" class="LineNr">14445 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" allocate\n"</span>) -<span id="L14446" class="LineNr">14446 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14447" class="LineNr">14447 </span> <span class="subxComment"># convert</span> -<span id="L14448" class="LineNr">14448 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L14449" class="LineNr">14449 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L14450" class="LineNr">14450 </span> <span class="subxComment"># restore ed</span> -<span id="L14451" class="LineNr">14451 </span> 89/<- %edx 4/r32/esp -<span id="L14452" class="LineNr">14452 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L14453" class="LineNr">14453 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L14454" class="Folded">14454 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14460" class="LineNr">14460 </span> <span class="subxComment"># check output</span> -<span id="L14461" class="LineNr">14461 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14427'>test-allocate-with-no-inout</a>: output should be empty"</span>) -<span id="L14462" class="LineNr">14462 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'allocate' must have a single inout"</span> <span class="Constant">"F - <a href='mu.subx.html#L14427'>test-allocate-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L14463" class="LineNr">14463 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14464" class="LineNr">14464 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14427'>test-allocate-with-no-inout</a>: exit status"</span>) -<span id="L14465" class="LineNr">14465 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L14466" class="LineNr">14466 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14467" class="LineNr">14467 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14468" class="LineNr">14468 </span> 5d/pop-to-ebp -<span id="L14469" class="LineNr">14469 </span> c3/return -<span id="L14470" class="LineNr">14470 </span> -<span id="L14471" class="LineNr">14471 </span><span class="subxTest">test-allocate-with-too-many-inouts</span>: -<span id="L14472" class="LineNr">14472 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14473" class="LineNr">14473 </span> 55/push-ebp -<span id="L14474" class="LineNr">14474 </span> 89/<- %ebp 4/r32/esp -<span id="L14475" class="LineNr">14475 </span> <span class="subxComment"># setup</span> -<span id="L14476" class="LineNr">14476 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14477" class="LineNr">14477 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14478" class="LineNr">14478 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L14479" class="LineNr">14479 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14480" class="LineNr">14480 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L14481" class="LineNr">14481 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14482" class="LineNr">14482 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L14483" class="LineNr">14483 </span> 68/push 0/imm32 -<span id="L14484" class="LineNr">14484 </span> 68/push 0/imm32 -<span id="L14485" class="LineNr">14485 </span> 89/<- %edx 4/r32/esp -<span id="L14486" class="LineNr">14486 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14487" class="LineNr">14487 </span> <span class="subxComment">#</span> -<span id="L14488" class="LineNr">14488 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14489" class="LineNr">14489 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr handle int)\n"</span>) -<span id="L14490" class="LineNr">14490 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='120allocate.subx.html#L66'>allocate</a> x, 0\n"</span>) -<span id="L14491" class="LineNr">14491 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14492" class="LineNr">14492 </span> <span class="subxComment"># convert</span> -<span id="L14493" class="LineNr">14493 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L14494" class="LineNr">14494 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L14495" class="LineNr">14495 </span> <span class="subxComment"># restore ed</span> -<span id="L14496" class="LineNr">14496 </span> 89/<- %edx 4/r32/esp -<span id="L14497" class="LineNr">14497 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L14498" class="LineNr">14498 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L14499" class="Folded">14499 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14505" class="LineNr">14505 </span> <span class="subxComment"># check output</span> -<span id="L14506" class="LineNr">14506 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14471'>test-allocate-with-too-many-inouts</a>: output should be empty"</span>) -<span id="L14507" class="LineNr">14507 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'allocate' must have a single inout"</span> <span class="Constant">"F - <a href='mu.subx.html#L14471'>test-allocate-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L14508" class="LineNr">14508 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14509" class="LineNr">14509 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14471'>test-allocate-with-too-many-inouts</a>: exit status"</span>) -<span id="L14510" class="LineNr">14510 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L14511" class="LineNr">14511 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14512" class="LineNr">14512 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14513" class="LineNr">14513 </span> 5d/pop-to-ebp -<span id="L14514" class="LineNr">14514 </span> c3/return -<span id="L14515" class="LineNr">14515 </span> -<span id="L14516" class="LineNr">14516 </span><span class="subxTest">test-allocate-with-output</span>: -<span id="L14517" class="LineNr">14517 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14518" class="LineNr">14518 </span> 55/push-ebp -<span id="L14519" class="LineNr">14519 </span> 89/<- %ebp 4/r32/esp -<span id="L14520" class="LineNr">14520 </span> <span class="subxComment"># setup</span> -<span id="L14521" class="LineNr">14521 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14522" class="LineNr">14522 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14523" class="LineNr">14523 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L14524" class="LineNr">14524 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14525" class="LineNr">14525 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L14526" class="LineNr">14526 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14527" class="LineNr">14527 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L14528" class="LineNr">14528 </span> 68/push 0/imm32 -<span id="L14529" class="LineNr">14529 </span> 68/push 0/imm32 -<span id="L14530" class="LineNr">14530 </span> 89/<- %edx 4/r32/esp -<span id="L14531" class="LineNr">14531 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14532" class="LineNr">14532 </span> <span class="subxComment">#</span> -<span id="L14533" class="LineNr">14533 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14534" class="LineNr">14534 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy 0\n"</span>) -<span id="L14535" class="LineNr">14535 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr handle int) <- copy 0\n"</span>) -<span id="L14536" class="LineNr">14536 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- <a href='120allocate.subx.html#L66'>allocate</a> y\n"</span>) -<span id="L14537" class="LineNr">14537 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14538" class="LineNr">14538 </span> <span class="subxComment"># convert</span> -<span id="L14539" class="LineNr">14539 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L14540" class="LineNr">14540 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L14541" class="LineNr">14541 </span> <span class="subxComment"># restore ed</span> -<span id="L14542" class="LineNr">14542 </span> 89/<- %edx 4/r32/esp -<span id="L14543" class="LineNr">14543 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L14544" class="LineNr">14544 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L14545" class="Folded">14545 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14551" class="LineNr">14551 </span> <span class="subxComment"># check output</span> -<span id="L14552" class="LineNr">14552 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14516'>test-allocate-with-output</a>: output should be empty"</span>) -<span id="L14553" class="LineNr">14553 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'allocate' must not have any outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L14516'>test-allocate-with-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L14554" class="LineNr">14554 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14555" class="LineNr">14555 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14516'>test-allocate-with-output</a>: exit status"</span>) -<span id="L14556" class="LineNr">14556 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L14557" class="LineNr">14557 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14558" class="LineNr">14558 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14559" class="LineNr">14559 </span> 5d/pop-to-ebp -<span id="L14560" class="LineNr">14560 </span> c3/return -<span id="L14561" class="LineNr">14561 </span> -<span id="L14562" class="LineNr">14562 </span><span class="subxTest">test-allocate-non-addr</span>: -<span id="L14563" class="LineNr">14563 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14564" class="LineNr">14564 </span> 55/push-ebp -<span id="L14565" class="LineNr">14565 </span> 89/<- %ebp 4/r32/esp -<span id="L14566" class="LineNr">14566 </span> <span class="subxComment"># setup</span> -<span id="L14567" class="LineNr">14567 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14568" class="LineNr">14568 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14569" class="LineNr">14569 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L14570" class="LineNr">14570 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14571" class="LineNr">14571 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L14572" class="LineNr">14572 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14573" class="LineNr">14573 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L14574" class="LineNr">14574 </span> 68/push 0/imm32 -<span id="L14575" class="LineNr">14575 </span> 68/push 0/imm32 -<span id="L14576" class="LineNr">14576 </span> 89/<- %edx 4/r32/esp -<span id="L14577" class="LineNr">14577 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14578" class="LineNr">14578 </span> <span class="subxComment">#</span> -<span id="L14579" class="LineNr">14579 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14580" class="LineNr">14580 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: (handle int)\n"</span>) -<span id="L14581" class="LineNr">14581 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='120allocate.subx.html#L66'>allocate</a> y\n"</span>) -<span id="L14582" class="LineNr">14582 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14583" class="LineNr">14583 </span> <span class="subxComment"># convert</span> -<span id="L14584" class="LineNr">14584 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L14585" class="LineNr">14585 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L14586" class="LineNr">14586 </span> <span class="subxComment"># restore ed</span> -<span id="L14587" class="LineNr">14587 </span> 89/<- %edx 4/r32/esp -<span id="L14588" class="LineNr">14588 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L14589" class="LineNr">14589 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L14590" class="Folded">14590 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14596" class="LineNr">14596 </span> <span class="subxComment"># check output</span> -<span id="L14597" class="LineNr">14597 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14562'>test-allocate-non-addr</a>: output must be empty"</span>) -<span id="L14598" class="LineNr">14598 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='120allocate.subx.html#L66'>allocate</a>: inout 'y' must have type (addr handle ...)"</span> <span class="Constant">"F - <a href='mu.subx.html#L14562'>test-allocate-non-addr</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L14599" class="LineNr">14599 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14600" class="LineNr">14600 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14562'>test-allocate-non-addr</a>: exit status"</span>) -<span id="L14601" class="LineNr">14601 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L14602" class="LineNr">14602 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14603" class="LineNr">14603 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14604" class="LineNr">14604 </span> 5d/pop-to-ebp -<span id="L14605" class="LineNr">14605 </span> c3/return -<span id="L14606" class="LineNr">14606 </span> -<span id="L14607" class="LineNr">14607 </span><span class="subxTest">test-allocate-non-addr-handle</span>: -<span id="L14608" class="LineNr">14608 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14609" class="LineNr">14609 </span> 55/push-ebp -<span id="L14610" class="LineNr">14610 </span> 89/<- %ebp 4/r32/esp -<span id="L14611" class="LineNr">14611 </span> <span class="subxComment"># setup</span> -<span id="L14612" class="LineNr">14612 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14613" class="LineNr">14613 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14614" class="LineNr">14614 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L14615" class="LineNr">14615 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14616" class="LineNr">14616 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L14617" class="LineNr">14617 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14618" class="LineNr">14618 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L14619" class="LineNr">14619 </span> 68/push 0/imm32 -<span id="L14620" class="LineNr">14620 </span> 68/push 0/imm32 -<span id="L14621" class="LineNr">14621 </span> 89/<- %edx 4/r32/esp -<span id="L14622" class="LineNr">14622 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14623" class="LineNr">14623 </span> <span class="subxComment">#</span> -<span id="L14624" class="LineNr">14624 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14625" class="LineNr">14625 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr int) <- copy 0\n"</span>) -<span id="L14626" class="LineNr">14626 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='120allocate.subx.html#L66'>allocate</a> y\n"</span>) -<span id="L14627" class="LineNr">14627 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14628" class="LineNr">14628 </span> <span class="subxComment"># convert</span> -<span id="L14629" class="LineNr">14629 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L14630" class="LineNr">14630 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L14631" class="LineNr">14631 </span> <span class="subxComment"># restore ed</span> -<span id="L14632" class="LineNr">14632 </span> 89/<- %edx 4/r32/esp -<span id="L14633" class="LineNr">14633 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L14634" class="LineNr">14634 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L14635" class="Folded">14635 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14641" class="LineNr">14641 </span> <span class="subxComment"># check output</span> -<span id="L14642" class="LineNr">14642 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14607'>test-allocate-non-addr-handle</a>: output should be empty"</span>) -<span id="L14643" class="LineNr">14643 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='120allocate.subx.html#L66'>allocate</a>: inout 'y' must have type (addr handle ...)"</span> <span class="Constant">"F - <a href='mu.subx.html#L14607'>test-allocate-non-addr-handle</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L14644" class="LineNr">14644 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14645" class="LineNr">14645 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14607'>test-allocate-non-addr-handle</a>: exit status"</span>) -<span id="L14646" class="LineNr">14646 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L14647" class="LineNr">14647 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14648" class="LineNr">14648 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14649" class="LineNr">14649 </span> 5d/pop-to-ebp -<span id="L14650" class="LineNr">14650 </span> c3/return -<span id="L14651" class="LineNr">14651 </span> -<span id="L14652" class="LineNr">14652 </span><span class="subxTest">test-allocate-deref-address</span>: -<span id="L14653" class="LineNr">14653 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14654" class="LineNr">14654 </span> 55/push-ebp -<span id="L14655" class="LineNr">14655 </span> 89/<- %ebp 4/r32/esp -<span id="L14656" class="LineNr">14656 </span> <span class="subxComment"># setup</span> -<span id="L14657" class="LineNr">14657 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14658" class="LineNr">14658 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14659" class="LineNr">14659 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L14660" class="LineNr">14660 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14661" class="LineNr">14661 </span> <span class="subxComment">#</span> -<span id="L14662" class="LineNr">14662 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14663" class="LineNr">14663 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr addr handle int) <- copy 0\n"</span>) -<span id="L14664" class="LineNr">14664 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='120allocate.subx.html#L66'>allocate</a> *y\n"</span>) -<span id="L14665" class="LineNr">14665 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14666" class="LineNr">14666 </span> <span class="subxComment"># convert</span> -<span id="L14667" class="LineNr">14667 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L14668" class="LineNr">14668 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L14669" class="LineNr">14669 </span> <span class="subxComment"># no errors</span> +<span id="L6312" class="LineNr"> 6312 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 7/subop/compare %eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6276'>test-convert-index-into-array</a>/11"</span>) +<span id="L6313" class="LineNr"> 6313 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 84/jump-if-= <a href='313index-bounds-check.subx.html#L88'>__mu-abort-null-index-base-address</a>/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6276'>test-convert-index-into-array</a>/12"</span>) +<span id="L6314" class="LineNr"> 6314 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + ecx<<0x00000002 + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6276'>test-convert-index-into-array</a>/13"</span>) +<span id="L6315" class="LineNr"> 6315 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6276'>test-convert-index-into-array</a>/14"</span>) +<span id="L6316" class="LineNr"> 6316 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6276'>test-convert-index-into-array</a>/15"</span>) +<span id="L6317" class="LineNr"> 6317 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6276'>test-convert-index-into-array</a>/16"</span>) +<span id="L6318" class="LineNr"> 6318 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6276'>test-convert-index-into-array</a>/17"</span>) +<span id="L6319" class="LineNr"> 6319 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array/18"</span>) +<span id="L6320" class="LineNr"> 6320 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6276'>test-convert-index-into-array</a>/19"</span>) +<span id="L6321" class="LineNr"> 6321 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6276'>test-convert-index-into-array</a>/20"</span>) +<span id="L6322" class="LineNr"> 6322 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6276'>test-convert-index-into-array</a>/21"</span>) +<span id="L6323" class="LineNr"> 6323 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6324" class="LineNr"> 6324 </span> 89/<- %esp 5/r32/ebp +<span id="L6325" class="LineNr"> 6325 </span> 5d/pop-to-ebp +<span id="L6326" class="LineNr"> 6326 </span> c3/return +<span id="L6327" class="LineNr"> 6327 </span> +<span id="L6328" class="LineNr"> 6328 </span><span class="subxTest">test-convert-index-into-array-of-bytes</span>: +<span id="L6329" class="LineNr"> 6329 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6330" class="LineNr"> 6330 </span> 55/push-ebp +<span id="L6331" class="LineNr"> 6331 </span> 89/<- %ebp 4/r32/esp +<span id="L6332" class="LineNr"> 6332 </span> <span class="subxComment"># setup</span> +<span id="L6333" class="LineNr"> 6333 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6334" class="LineNr"> 6334 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6335" class="LineNr"> 6335 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6336" class="LineNr"> 6336 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6337" class="LineNr"> 6337 </span> <span class="subxComment">#</span> +<span id="L6338" class="LineNr"> 6338 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6339" class="LineNr"> 6339 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array byte) <- copy 0\n"</span>) +<span id="L6340" class="LineNr"> 6340 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var idx/ecx: int <- copy 3\n"</span>) +<span id="L6341" class="LineNr"> 6341 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr byte) <- index arr, idx\n"</span>) +<span id="L6342" class="LineNr"> 6342 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6343" class="LineNr"> 6343 </span> <span class="subxComment"># convert</span> +<span id="L6344" class="LineNr"> 6344 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L6345" class="LineNr"> 6345 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6346" class="Folded"> 6346 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6352" class="LineNr"> 6352 </span> <span class="subxComment"># check output</span> +<span id="L6353" class="LineNr"> 6353 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6328'>test-convert-index-into-array-of-bytes</a>/0"</span>) +<span id="L6354" class="LineNr"> 6354 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes/1"</span>) +<span id="L6355" class="LineNr"> 6355 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6328'>test-convert-index-into-array-of-bytes</a>/2"</span>) +<span id="L6356" class="LineNr"> 6356 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6328'>test-convert-index-into-array-of-bytes</a>/3"</span>) +<span id="L6357" class="LineNr"> 6357 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6328'>test-convert-index-into-array-of-bytes</a>/4"</span>) +<span id="L6358" class="LineNr"> 6358 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6328'>test-convert-index-into-array-of-bytes</a>/5"</span>) +<span id="L6359" class="LineNr"> 6359 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6328'>test-convert-index-into-array-of-bytes</a>/6"</span>) +<span id="L6360" class="LineNr"> 6360 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6328'>test-convert-index-into-array-of-bytes</a>/7"</span>) +<span id="L6361" class="LineNr"> 6361 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6328'>test-convert-index-into-array-of-bytes</a>/8"</span>) +<span id="L6362" class="LineNr"> 6362 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6328'>test-convert-index-into-array-of-bytes</a>/9"</span>) +<span id="L6363" class="LineNr"> 6363 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> %ecx 0x00000001 *eax \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L6328'>test-convert-index-into-array-of-bytes</a>/10"</span>) +<span id="L6364" class="LineNr"> 6364 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 7/subop/compare %eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6328'>test-convert-index-into-array-of-bytes</a>/11"</span>) +<span id="L6365" class="LineNr"> 6365 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 84/jump-if-= <a href='313index-bounds-check.subx.html#L88'>__mu-abort-null-index-base-address</a>/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6328'>test-convert-index-into-array-of-bytes</a>/12"</span>) +<span id="L6366" class="LineNr"> 6366 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + ecx<<0x00000000 + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6328'>test-convert-index-into-array-of-bytes</a>/13"</span>) +<span id="L6367" class="LineNr"> 6367 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6328'>test-convert-index-into-array-of-bytes</a>/14"</span>) +<span id="L6368" class="LineNr"> 6368 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6328'>test-convert-index-into-array-of-bytes</a>/15"</span>) +<span id="L6369" class="LineNr"> 6369 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6328'>test-convert-index-into-array-of-bytes</a>/16"</span>) +<span id="L6370" class="LineNr"> 6370 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6328'>test-convert-index-into-array-of-bytes</a>/17"</span>) +<span id="L6371" class="LineNr"> 6371 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes/18"</span>) +<span id="L6372" class="LineNr"> 6372 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6328'>test-convert-index-into-array-of-bytes</a>/19"</span>) +<span id="L6373" class="LineNr"> 6373 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6328'>test-convert-index-into-array-of-bytes</a>/20"</span>) +<span id="L6374" class="LineNr"> 6374 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6328'>test-convert-index-into-array-of-bytes</a>/21"</span>) +<span id="L6375" class="LineNr"> 6375 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6376" class="LineNr"> 6376 </span> 89/<- %esp 5/r32/ebp +<span id="L6377" class="LineNr"> 6377 </span> 5d/pop-to-ebp +<span id="L6378" class="LineNr"> 6378 </span> c3/return +<span id="L6379" class="LineNr"> 6379 </span> +<span id="L6380" class="LineNr"> 6380 </span><span class="subxTest">test-convert-index-into-array-with-literal</span>: +<span id="L6381" class="LineNr"> 6381 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6382" class="LineNr"> 6382 </span> 55/push-ebp +<span id="L6383" class="LineNr"> 6383 </span> 89/<- %ebp 4/r32/esp +<span id="L6384" class="LineNr"> 6384 </span> <span class="subxComment"># setup</span> +<span id="L6385" class="LineNr"> 6385 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6386" class="LineNr"> 6386 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6387" class="LineNr"> 6387 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6388" class="LineNr"> 6388 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6389" class="LineNr"> 6389 </span> <span class="subxComment">#</span> +<span id="L6390" class="LineNr"> 6390 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6391" class="LineNr"> 6391 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array int) <- copy 0\n"</span>) +<span id="L6392" class="LineNr"> 6392 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr int) <- index arr, 2\n"</span>) +<span id="L6393" class="LineNr"> 6393 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6394" class="LineNr"> 6394 </span> <span class="subxComment"># convert</span> +<span id="L6395" class="LineNr"> 6395 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L6396" class="LineNr"> 6396 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6397" class="Folded"> 6397 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6403" class="LineNr"> 6403 </span> <span class="subxComment"># check output</span> +<span id="L6404" class="LineNr"> 6404 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6380'>test-convert-index-into-array-with-literal</a>/0"</span>) +<span id="L6405" class="LineNr"> 6405 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-with-literal/1"</span>) +<span id="L6406" class="LineNr"> 6406 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6380'>test-convert-index-into-array-with-literal</a>/2"</span>) +<span id="L6407" class="LineNr"> 6407 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6380'>test-convert-index-into-array-with-literal</a>/3"</span>) +<span id="L6408" class="LineNr"> 6408 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6380'>test-convert-index-into-array-with-literal</a>/4"</span>) +<span id="L6409" class="LineNr"> 6409 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6380'>test-convert-index-into-array-with-literal</a>/5"</span>) +<span id="L6410" class="LineNr"> 6410 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6380'>test-convert-index-into-array-with-literal</a>/6"</span>) +<span id="L6411" class="LineNr"> 6411 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6380'>test-convert-index-into-array-with-literal</a>/7"</span>) +<span id="L6412" class="LineNr"> 6412 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> 2 0x00000004 *eax \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L6380'>test-convert-index-into-array-with-literal</a>/8"</span>) +<span id="L6413" class="LineNr"> 6413 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 7/subop/compare %eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6380'>test-convert-index-into-array-with-literal</a>/9"</span>) +<span id="L6414" class="LineNr"> 6414 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 84/jump-if-= <a href='313index-bounds-check.subx.html#L88'>__mu-abort-null-index-base-address</a>/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6380'>test-convert-index-into-array-with-literal</a>/10"</span>) +<span id="L6415" class="LineNr"> 6415 </span> <span class="subxComment"># 2 * 4 bytes/elem + 4 bytes for size = offset 12</span> +<span id="L6416" class="LineNr"> 6416 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + 0x0000000c) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6380'>test-convert-index-into-array-with-literal</a>/11"</span>) +<span id="L6417" class="LineNr"> 6417 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6380'>test-convert-index-into-array-with-literal</a>/12"</span>) +<span id="L6418" class="LineNr"> 6418 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6380'>test-convert-index-into-array-with-literal</a>/13"</span>) +<span id="L6419" class="LineNr"> 6419 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6380'>test-convert-index-into-array-with-literal</a>/14"</span>) +<span id="L6420" class="LineNr"> 6420 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-with-literal/15"</span>) +<span id="L6421" class="LineNr"> 6421 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6380'>test-convert-index-into-array-with-literal</a>/16"</span>) +<span id="L6422" class="LineNr"> 6422 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6380'>test-convert-index-into-array-with-literal</a>/17"</span>) +<span id="L6423" class="LineNr"> 6423 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6380'>test-convert-index-into-array-with-literal</a>/18"</span>) +<span id="L6424" class="LineNr"> 6424 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6425" class="LineNr"> 6425 </span> 89/<- %esp 5/r32/ebp +<span id="L6426" class="LineNr"> 6426 </span> 5d/pop-to-ebp +<span id="L6427" class="LineNr"> 6427 </span> c3/return +<span id="L6428" class="LineNr"> 6428 </span> +<span id="L6429" class="LineNr"> 6429 </span><span class="subxTest">test-convert-index-into-array-of-bytes-with-literal</span>: +<span id="L6430" class="LineNr"> 6430 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6431" class="LineNr"> 6431 </span> 55/push-ebp +<span id="L6432" class="LineNr"> 6432 </span> 89/<- %ebp 4/r32/esp +<span id="L6433" class="LineNr"> 6433 </span> <span class="subxComment"># setup</span> +<span id="L6434" class="LineNr"> 6434 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6435" class="LineNr"> 6435 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6436" class="LineNr"> 6436 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6437" class="LineNr"> 6437 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6438" class="LineNr"> 6438 </span> <span class="subxComment">#</span> +<span id="L6439" class="LineNr"> 6439 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6440" class="LineNr"> 6440 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array byte) <- copy 0\n"</span>) +<span id="L6441" class="LineNr"> 6441 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr byte) <- index arr, 2\n"</span>) +<span id="L6442" class="LineNr"> 6442 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6443" class="LineNr"> 6443 </span> <span class="subxComment"># convert</span> +<span id="L6444" class="LineNr"> 6444 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L6445" class="LineNr"> 6445 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<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#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6429'>test-convert-index-into-array-of-bytes-with-literal</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#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-with-literal/1"</span>) +<span id="L6455" class="LineNr"> 6455 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6429'>test-convert-index-into-array-of-bytes-with-literal</a>/2"</span>) +<span id="L6456" class="LineNr"> 6456 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6429'>test-convert-index-into-array-of-bytes-with-literal</a>/3"</span>) +<span id="L6457" class="LineNr"> 6457 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6429'>test-convert-index-into-array-of-bytes-with-literal</a>/4"</span>) +<span id="L6458" class="LineNr"> 6458 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6429'>test-convert-index-into-array-of-bytes-with-literal</a>/5"</span>) +<span id="L6459" class="LineNr"> 6459 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6429'>test-convert-index-into-array-of-bytes-with-literal</a>/6"</span>) +<span id="L6460" class="LineNr"> 6460 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6429'>test-convert-index-into-array-of-bytes-with-literal</a>/7"</span>) +<span id="L6461" class="LineNr"> 6461 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> 2 0x00000001 *eax \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L6429'>test-convert-index-into-array-of-bytes-with-literal</a>/8"</span>) +<span id="L6462" class="LineNr"> 6462 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 7/subop/compare %eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6429'>test-convert-index-into-array-of-bytes-with-literal</a>/9"</span>) +<span id="L6463" class="LineNr"> 6463 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 84/jump-if-= <a href='313index-bounds-check.subx.html#L88'>__mu-abort-null-index-base-address</a>/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6429'>test-convert-index-into-array-of-bytes-with-literal</a>/10"</span>) +<span id="L6464" class="LineNr"> 6464 </span> <span class="subxComment"># 2 * 1 byte/elem + 4 bytes for size = offset 6</span> +<span id="L6465" class="LineNr"> 6465 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + 0x00000006) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6429'>test-convert-index-into-array-of-bytes-with-literal</a>/11"</span>) +<span id="L6466" class="LineNr"> 6466 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6429'>test-convert-index-into-array-of-bytes-with-literal</a>/12"</span>) +<span id="L6467" class="LineNr"> 6467 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6429'>test-convert-index-into-array-of-bytes-with-literal</a>/13"</span>) +<span id="L6468" class="LineNr"> 6468 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6429'>test-convert-index-into-array-of-bytes-with-literal</a>/14"</span>) +<span id="L6469" class="LineNr"> 6469 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-with-literal/15"</span>) +<span id="L6470" class="LineNr"> 6470 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6429'>test-convert-index-into-array-of-bytes-with-literal</a>/16"</span>) +<span id="L6471" class="LineNr"> 6471 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6429'>test-convert-index-into-array-of-bytes-with-literal</a>/17"</span>) +<span id="L6472" class="LineNr"> 6472 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6429'>test-convert-index-into-array-of-bytes-with-literal</a>/18"</span>) +<span id="L6473" class="LineNr"> 6473 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6474" class="LineNr"> 6474 </span> 89/<- %esp 5/r32/ebp +<span id="L6475" class="LineNr"> 6475 </span> 5d/pop-to-ebp +<span id="L6476" class="LineNr"> 6476 </span> c3/return +<span id="L6477" class="LineNr"> 6477 </span> +<span id="L6478" class="LineNr"> 6478 </span><span class="subxTest">test-convert-index-into-array-on-stack</span>: +<span id="L6479" class="LineNr"> 6479 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6480" class="LineNr"> 6480 </span> 55/push-ebp +<span id="L6481" class="LineNr"> 6481 </span> 89/<- %ebp 4/r32/esp +<span id="L6482" class="LineNr"> 6482 </span> <span class="subxComment"># setup</span> +<span id="L6483" class="LineNr"> 6483 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6484" class="LineNr"> 6484 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6485" class="LineNr"> 6485 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6486" class="LineNr"> 6486 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6487" class="LineNr"> 6487 </span> <span class="subxComment">#</span> +<span id="L6488" class="LineNr"> 6488 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6489" class="LineNr"> 6489 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr: (array int 3)\n"</span>) +<span id="L6490" class="LineNr"> 6490 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var idx/eax: int <- copy 2\n"</span>) +<span id="L6491" class="LineNr"> 6491 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr int) <- index arr, idx\n"</span>) +<span id="L6492" class="LineNr"> 6492 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6493" class="LineNr"> 6493 </span> <span class="subxComment"># convert</span> +<span id="L6494" class="LineNr"> 6494 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L6495" class="LineNr"> 6495 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6496" class="Folded"> 6496 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6502" class="LineNr"> 6502 </span> <span class="subxComment"># check output</span> +<span id="L6503" class="LineNr"> 6503 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6478'>test-convert-index-into-array-on-stack</a>/0"</span>) +<span id="L6504" class="LineNr"> 6504 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-on-stack/1"</span>) +<span id="L6505" class="LineNr"> 6505 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6478'>test-convert-index-into-array-on-stack</a>/2"</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#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6478'>test-convert-index-into-array-on-stack</a>/3"</span>) +<span id="L6507" class="LineNr"> 6507 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6478'>test-convert-index-into-array-on-stack</a>/4"</span>) +<span id="L6508" class="LineNr"> 6508 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6478'>test-convert-index-into-array-on-stack</a>/5"</span>) +<span id="L6509" class="LineNr"> 6509 </span> <span class="subxComment"># var arr</span> +<span id="L6510" class="LineNr"> 6510 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='302stack_allocate.subx.html#L34'>push-n-zero-bytes</a> 0x0000000c)"</span> <span class="Constant">"F - <a href='mu.subx.html#L6478'>test-convert-index-into-array-on-stack</a>/6"</span>) +<span id="L6511" class="LineNr"> 6511 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6478'>test-convert-index-into-array-on-stack</a>/7"</span>) +<span id="L6512" class="LineNr"> 6512 </span> <span class="subxComment"># var idx</span> +<span id="L6513" class="LineNr"> 6513 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6478'>test-convert-index-into-array-on-stack</a>/8"</span>) +<span id="L6514" class="LineNr"> 6514 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 2/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6478'>test-convert-index-into-array-on-stack</a>/9"</span>) +<span id="L6515" class="LineNr"> 6515 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> %eax 0x00000004 *(ebp+0xfffffff0) \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L6478'>test-convert-index-into-array-on-stack</a>/10"</span>) +<span id="L6516" class="LineNr"> 6516 </span> <span class="subxComment"># var x is at (ebp-0x10) + idx<<2 + 4 = ebp + idx<<2 - 0xc</span> +<span id="L6517" class="LineNr"> 6517 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp + eax<<0x00000002 + 0xfffffff4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6478'>test-convert-index-into-array-on-stack</a>/11"</span>) +<span id="L6518" class="LineNr"> 6518 </span> <span class="subxComment"># reclaim idx</span> +<span id="L6519" class="LineNr"> 6519 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6478'>test-convert-index-into-array-on-stack</a>/12"</span>) +<span id="L6520" class="LineNr"> 6520 </span> <span class="subxComment"># reclaim arr</span> +<span id="L6521" class="LineNr"> 6521 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000010/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6478'>test-convert-index-into-array-on-stack</a>/13"</span>) +<span id="L6522" class="LineNr"> 6522 </span> <span class="subxComment">#</span> +<span id="L6523" class="LineNr"> 6523 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6478'>test-convert-index-into-array-on-stack</a>/14"</span>) +<span id="L6524" class="LineNr"> 6524 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6478'>test-convert-index-into-array-on-stack</a>/15"</span>) +<span id="L6525" class="LineNr"> 6525 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-on-stack/16"</span>) +<span id="L6526" class="LineNr"> 6526 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6478'>test-convert-index-into-array-on-stack</a>/17"</span>) +<span id="L6527" class="LineNr"> 6527 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6478'>test-convert-index-into-array-on-stack</a>/18"</span>) +<span id="L6528" class="LineNr"> 6528 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6478'>test-convert-index-into-array-on-stack</a>/19"</span>) +<span id="L6529" class="LineNr"> 6529 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6530" class="LineNr"> 6530 </span> 89/<- %esp 5/r32/ebp +<span id="L6531" class="LineNr"> 6531 </span> 5d/pop-to-ebp +<span id="L6532" class="LineNr"> 6532 </span> c3/return +<span id="L6533" class="LineNr"> 6533 </span> +<span id="L6534" class="LineNr"> 6534 </span><span class="subxTest">test-convert-index-into-array-on-stack-with-literal</span>: +<span id="L6535" class="LineNr"> 6535 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6536" class="LineNr"> 6536 </span> 55/push-ebp +<span id="L6537" class="LineNr"> 6537 </span> 89/<- %ebp 4/r32/esp +<span id="L6538" class="LineNr"> 6538 </span> <span class="subxComment"># setup</span> +<span id="L6539" class="LineNr"> 6539 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6540" class="LineNr"> 6540 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6541" class="LineNr"> 6541 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6542" class="LineNr"> 6542 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6543" class="LineNr"> 6543 </span> <span class="subxComment">#</span> +<span id="L6544" class="LineNr"> 6544 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6545" class="LineNr"> 6545 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr: (array int 3)\n"</span>) +<span id="L6546" class="LineNr"> 6546 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr int) <- index arr, 2\n"</span>) +<span id="L6547" class="LineNr"> 6547 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6548" class="LineNr"> 6548 </span> <span class="subxComment"># convert</span> +<span id="L6549" class="LineNr"> 6549 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L6550" class="LineNr"> 6550 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6551" class="Folded"> 6551 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6557" class="LineNr"> 6557 </span> <span class="subxComment"># check output</span> +<span id="L6558" class="LineNr"> 6558 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6534'>test-convert-index-into-array-on-stack-with-literal</a>/0"</span>) +<span id="L6559" class="LineNr"> 6559 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-on-stack-with-literal/1"</span>) +<span id="L6560" class="LineNr"> 6560 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6534'>test-convert-index-into-array-on-stack-with-literal</a>/2"</span>) +<span id="L6561" class="LineNr"> 6561 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6534'>test-convert-index-into-array-on-stack-with-literal</a>/3"</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#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6534'>test-convert-index-into-array-on-stack-with-literal</a>/4"</span>) +<span id="L6563" class="LineNr"> 6563 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6534'>test-convert-index-into-array-on-stack-with-literal</a>/5"</span>) +<span id="L6564" class="LineNr"> 6564 </span> <span class="subxComment"># var arr</span> +<span id="L6565" class="LineNr"> 6565 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='302stack_allocate.subx.html#L34'>push-n-zero-bytes</a> 0x0000000c)"</span> <span class="Constant">"F - <a href='mu.subx.html#L6534'>test-convert-index-into-array-on-stack-with-literal</a>/6"</span>) +<span id="L6566" class="LineNr"> 6566 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6534'>test-convert-index-into-array-on-stack-with-literal</a>/7"</span>) +<span id="L6567" class="LineNr"> 6567 </span> <span class="subxComment"># var x</span> +<span id="L6568" class="LineNr"> 6568 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6534'>test-convert-index-into-array-on-stack-with-literal</a>/8"</span>) +<span id="L6569" class="LineNr"> 6569 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> 2 0x00000004 *(ebp+0xfffffff0) \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L6534'>test-convert-index-into-array-on-stack-with-literal</a>/9"</span>) +<span id="L6570" class="LineNr"> 6570 </span> <span class="subxComment"># x is at (ebp-0x10) + 4 + 2*4 = ebp-4</span> +<span id="L6571" class="LineNr"> 6571 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp + 0xfffffffc) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6534'>test-convert-index-into-array-on-stack-with-literal</a>/10"</span>) +<span id="L6572" class="LineNr"> 6572 </span> <span class="subxComment"># reclaim x</span> +<span id="L6573" class="LineNr"> 6573 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6534'>test-convert-index-into-array-on-stack-with-literal</a>/11"</span>) +<span id="L6574" class="LineNr"> 6574 </span> <span class="subxComment"># reclaim arr</span> +<span id="L6575" class="LineNr"> 6575 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000010/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6534'>test-convert-index-into-array-on-stack-with-literal</a>/12"</span>) +<span id="L6576" class="LineNr"> 6576 </span> <span class="subxComment">#</span> +<span id="L6577" class="LineNr"> 6577 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6534'>test-convert-index-into-array-on-stack-with-literal</a>/13"</span>) +<span id="L6578" class="LineNr"> 6578 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6534'>test-convert-index-into-array-on-stack-with-literal</a>/14"</span>) +<span id="L6579" class="LineNr"> 6579 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-on-stack-with-literal/15"</span>) +<span id="L6580" class="LineNr"> 6580 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6534'>test-convert-index-into-array-on-stack-with-literal</a>/16"</span>) +<span id="L6581" class="LineNr"> 6581 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6534'>test-convert-index-into-array-on-stack-with-literal</a>/17"</span>) +<span id="L6582" class="LineNr"> 6582 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6534'>test-convert-index-into-array-on-stack-with-literal</a>/18"</span>) +<span id="L6583" class="LineNr"> 6583 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6584" class="LineNr"> 6584 </span> 89/<- %esp 5/r32/ebp +<span id="L6585" class="LineNr"> 6585 </span> 5d/pop-to-ebp +<span id="L6586" class="LineNr"> 6586 </span> c3/return +<span id="L6587" class="LineNr"> 6587 </span> +<span id="L6588" class="LineNr"> 6588 </span><span class="subxTest">test-convert-index-into-array-of-bytes-on-stack-with-literal</span>: +<span id="L6589" class="LineNr"> 6589 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6590" class="LineNr"> 6590 </span> 55/push-ebp +<span id="L6591" class="LineNr"> 6591 </span> 89/<- %ebp 4/r32/esp +<span id="L6592" class="LineNr"> 6592 </span> <span class="subxComment"># setup</span> +<span id="L6593" class="LineNr"> 6593 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6594" class="LineNr"> 6594 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6595" class="LineNr"> 6595 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6596" class="LineNr"> 6596 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6597" class="LineNr"> 6597 </span> <span class="subxComment">#</span> +<span id="L6598" class="LineNr"> 6598 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6599" class="LineNr"> 6599 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr: (array byte 3)\n"</span>) +<span id="L6600" class="LineNr"> 6600 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr byte) <- index arr, 2\n"</span>) +<span id="L6601" class="LineNr"> 6601 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6602" class="LineNr"> 6602 </span> <span class="subxComment"># convert</span> +<span id="L6603" class="LineNr"> 6603 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L6604" class="LineNr"> 6604 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6605" class="Folded"> 6605 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6611" class="LineNr"> 6611 </span> <span class="subxComment"># check output</span> +<span id="L6612" class="LineNr"> 6612 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6588'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/0"</span>) +<span id="L6613" class="LineNr"> 6613 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-on-stack-with-literal/1"</span>) +<span id="L6614" class="LineNr"> 6614 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6588'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/2"</span>) +<span id="L6615" class="LineNr"> 6615 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6588'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/3"</span>) +<span id="L6616" class="LineNr"> 6616 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6588'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/4"</span>) +<span id="L6617" class="LineNr"> 6617 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6588'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/5"</span>) +<span id="L6618" class="LineNr"> 6618 </span> <span class="subxComment"># var arr</span> +<span id="L6619" class="LineNr"> 6619 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='302stack_allocate.subx.html#L34'>push-n-zero-bytes</a> 0x00000003)"</span> <span class="Constant">"F - <a href='mu.subx.html#L6588'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/6"</span>) +<span id="L6620" class="LineNr"> 6620 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0x00000003/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6588'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/7"</span>) +<span id="L6621" class="LineNr"> 6621 </span> <span class="subxComment"># var x</span> +<span id="L6622" class="LineNr"> 6622 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6588'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/8"</span>) +<span id="L6623" class="LineNr"> 6623 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> 2 0x00000001 *(ebp+0xfffffff9) \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L6588'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/9"</span>) +<span id="L6624" class="LineNr"> 6624 </span> <span class="subxComment"># x is at (ebp-7) + 4 + 2 = ebp-1</span> +<span id="L6625" class="LineNr"> 6625 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp + 0xffffffff) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6588'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/10"</span>) +<span id="L6626" class="LineNr"> 6626 </span> <span class="subxComment"># reclaim x</span> +<span id="L6627" class="LineNr"> 6627 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6588'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/11"</span>) +<span id="L6628" class="LineNr"> 6628 </span> <span class="subxComment"># reclaim arr</span> +<span id="L6629" class="LineNr"> 6629 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000007/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6588'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/12"</span>) +<span id="L6630" class="LineNr"> 6630 </span> <span class="subxComment">#</span> +<span id="L6631" class="LineNr"> 6631 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6588'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/13"</span>) +<span id="L6632" class="LineNr"> 6632 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6588'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/14"</span>) +<span id="L6633" class="LineNr"> 6633 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-on-stack-with-literal/15"</span>) +<span id="L6634" class="LineNr"> 6634 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6588'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/16"</span>) +<span id="L6635" class="LineNr"> 6635 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6588'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/17"</span>) +<span id="L6636" class="LineNr"> 6636 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6588'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/18"</span>) +<span id="L6637" class="LineNr"> 6637 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6638" class="LineNr"> 6638 </span> 89/<- %esp 5/r32/ebp +<span id="L6639" class="LineNr"> 6639 </span> 5d/pop-to-ebp +<span id="L6640" class="LineNr"> 6640 </span> c3/return +<span id="L6641" class="LineNr"> 6641 </span> +<span id="L6642" class="LineNr"> 6642 </span><span class="subxTest">test-convert-index-into-array-using-offset</span>: +<span id="L6643" class="LineNr"> 6643 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6644" class="LineNr"> 6644 </span> 55/push-ebp +<span id="L6645" class="LineNr"> 6645 </span> 89/<- %ebp 4/r32/esp +<span id="L6646" class="LineNr"> 6646 </span> <span class="subxComment"># setup</span> +<span id="L6647" class="LineNr"> 6647 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6648" class="LineNr"> 6648 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6649" class="LineNr"> 6649 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6650" class="LineNr"> 6650 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6651" class="LineNr"> 6651 </span> <span class="subxComment">#</span> +<span id="L6652" class="LineNr"> 6652 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6653" class="LineNr"> 6653 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array int) <- copy 0\n"</span>) +<span id="L6654" class="LineNr"> 6654 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var idx/ecx: int <- copy 3\n"</span>) +<span id="L6655" class="LineNr"> 6655 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var off/ecx: (offset int) <- compute-offset arr, idx\n"</span>) +<span id="L6656" class="LineNr"> 6656 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr int) <- index arr, off\n"</span>) +<span id="L6657" class="LineNr"> 6657 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6658" class="LineNr"> 6658 </span> <span class="subxComment"># convert</span> +<span id="L6659" class="LineNr"> 6659 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L6660" class="LineNr"> 6660 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6661" class="Folded"> 6661 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6667" class="LineNr"> 6667 </span> <span class="subxComment"># check output</span> +<span id="L6668" class="LineNr"> 6668 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6642'>test-convert-index-into-array-using-offset</a>/0"</span>) +<span id="L6669" class="LineNr"> 6669 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-using-offset/1"</span>) +<span id="L6670" class="LineNr"> 6670 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6642'>test-convert-index-into-array-using-offset</a>/2"</span>) +<span id="L6671" class="LineNr"> 6671 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6642'>test-convert-index-into-array-using-offset</a>/3"</span>) +<span id="L6672" class="LineNr"> 6672 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6642'>test-convert-index-into-array-using-offset</a>/4"</span>) +<span id="L6673" class="LineNr"> 6673 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6642'>test-convert-index-into-array-using-offset</a>/5"</span>) +<span id="L6674" class="LineNr"> 6674 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6642'>test-convert-index-into-array-using-offset</a>/6"</span>) +<span id="L6675" class="LineNr"> 6675 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6642'>test-convert-index-into-array-using-offset</a>/7"</span>) +<span id="L6676" class="LineNr"> 6676 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6642'>test-convert-index-into-array-using-offset</a>/8"</span>) +<span id="L6677" class="LineNr"> 6677 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6642'>test-convert-index-into-array-using-offset</a>/9"</span>) +<span id="L6678" class="LineNr"> 6678 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 69/multiply %ecx 0x00000004/imm32 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6642'>test-convert-index-into-array-using-offset</a>/10"</span>) +<span id="L6679" class="LineNr"> 6679 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> %ecx 1 *eax \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L6642'>test-convert-index-into-array-using-offset</a>/11"</span>) +<span id="L6680" class="LineNr"> 6680 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 7/subop/compare %eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6642'>test-convert-index-into-array-using-offset</a>/12"</span>) +<span id="L6681" class="LineNr"> 6681 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 84/jump-if-= <a href='313index-bounds-check.subx.html#L88'>__mu-abort-null-index-base-address</a>/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6642'>test-convert-index-into-array-using-offset</a>/13"</span>) +<span id="L6682" class="LineNr"> 6682 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + ecx + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6642'>test-convert-index-into-array-using-offset</a>/15"</span>) +<span id="L6683" class="LineNr"> 6683 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6642'>test-convert-index-into-array-using-offset</a>/16"</span>) +<span id="L6684" class="LineNr"> 6684 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6642'>test-convert-index-into-array-using-offset</a>/17"</span>) +<span id="L6685" class="LineNr"> 6685 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6642'>test-convert-index-into-array-using-offset</a>/18"</span>) +<span id="L6686" class="LineNr"> 6686 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6642'>test-convert-index-into-array-using-offset</a>/19"</span>) +<span id="L6687" class="LineNr"> 6687 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-using-offset/20"</span>) +<span id="L6688" class="LineNr"> 6688 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6642'>test-convert-index-into-array-using-offset</a>/21"</span>) +<span id="L6689" class="LineNr"> 6689 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6642'>test-convert-index-into-array-using-offset</a>/22"</span>) +<span id="L6690" class="LineNr"> 6690 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6642'>test-convert-index-into-array-using-offset</a>/23"</span>) +<span id="L6691" class="LineNr"> 6691 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6692" class="LineNr"> 6692 </span> 89/<- %esp 5/r32/ebp +<span id="L6693" class="LineNr"> 6693 </span> 5d/pop-to-ebp +<span id="L6694" class="LineNr"> 6694 </span> c3/return +<span id="L6695" class="LineNr"> 6695 </span> +<span id="L6696" class="LineNr"> 6696 </span><span class="subxTest">test-convert-index-into-array-of-bytes-using-offset</span>: +<span id="L6697" class="LineNr"> 6697 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6698" class="LineNr"> 6698 </span> 55/push-ebp +<span id="L6699" class="LineNr"> 6699 </span> 89/<- %ebp 4/r32/esp +<span id="L6700" class="LineNr"> 6700 </span> <span class="subxComment"># setup</span> +<span id="L6701" class="LineNr"> 6701 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6702" class="LineNr"> 6702 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6703" class="LineNr"> 6703 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6704" class="LineNr"> 6704 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6705" class="LineNr"> 6705 </span> <span class="subxComment">#</span> +<span id="L6706" class="LineNr"> 6706 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6707" class="LineNr"> 6707 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array byte) <- copy 0\n"</span>) +<span id="L6708" class="LineNr"> 6708 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var idx/ecx: int <- copy 3\n"</span>) +<span id="L6709" class="LineNr"> 6709 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var off/ecx: (offset byte) <- compute-offset arr, idx\n"</span>) +<span id="L6710" class="LineNr"> 6710 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr byte) <- index arr, off\n"</span>) +<span id="L6711" class="LineNr"> 6711 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6712" class="LineNr"> 6712 </span> <span class="subxComment"># convert</span> +<span id="L6713" class="LineNr"> 6713 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L6714" class="LineNr"> 6714 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6715" class="Folded"> 6715 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6721" class="LineNr"> 6721 </span> <span class="subxComment"># check output</span> +<span id="L6722" class="LineNr"> 6722 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6696'>test-convert-index-into-array-of-bytes-using-offset</a>/0"</span>) +<span id="L6723" class="LineNr"> 6723 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-using-offset/1"</span>) +<span id="L6724" class="LineNr"> 6724 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6696'>test-convert-index-into-array-of-bytes-using-offset</a>/2"</span>) +<span id="L6725" class="LineNr"> 6725 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6696'>test-convert-index-into-array-of-bytes-using-offset</a>/3"</span>) +<span id="L6726" class="LineNr"> 6726 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6696'>test-convert-index-into-array-of-bytes-using-offset</a>/4"</span>) +<span id="L6727" class="LineNr"> 6727 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6696'>test-convert-index-into-array-of-bytes-using-offset</a>/5"</span>) +<span id="L6728" class="LineNr"> 6728 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6696'>test-convert-index-into-array-of-bytes-using-offset</a>/6"</span>) +<span id="L6729" class="LineNr"> 6729 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6696'>test-convert-index-into-array-of-bytes-using-offset</a>/7"</span>) +<span id="L6730" class="LineNr"> 6730 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6696'>test-convert-index-into-array-of-bytes-using-offset</a>/8"</span>) +<span id="L6731" class="LineNr"> 6731 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6696'>test-convert-index-into-array-of-bytes-using-offset</a>/9"</span>) +<span id="L6732" class="LineNr"> 6732 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 69/multiply %ecx 0x00000001/imm32 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6696'>test-convert-index-into-array-of-bytes-using-offset</a>/10"</span>) +<span id="L6733" class="LineNr"> 6733 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> %ecx 1 *eax \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L6696'>test-convert-index-into-array-of-bytes-using-offset</a>/11"</span>) +<span id="L6734" class="LineNr"> 6734 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 7/subop/compare %eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6696'>test-convert-index-into-array-of-bytes-using-offset</a>/12"</span>) +<span id="L6735" class="LineNr"> 6735 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 84/jump-if-= <a href='313index-bounds-check.subx.html#L88'>__mu-abort-null-index-base-address</a>/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6696'>test-convert-index-into-array-of-bytes-using-offset</a>/13"</span>) +<span id="L6736" class="LineNr"> 6736 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + ecx + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6696'>test-convert-index-into-array-of-bytes-using-offset</a>/14"</span>) +<span id="L6737" class="LineNr"> 6737 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6696'>test-convert-index-into-array-of-bytes-using-offset</a>/15"</span>) +<span id="L6738" class="LineNr"> 6738 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6696'>test-convert-index-into-array-of-bytes-using-offset</a>/16"</span>) +<span id="L6739" class="LineNr"> 6739 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6696'>test-convert-index-into-array-of-bytes-using-offset</a>/17"</span>) +<span id="L6740" class="LineNr"> 6740 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6696'>test-convert-index-into-array-of-bytes-using-offset</a>/18"</span>) +<span id="L6741" class="LineNr"> 6741 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-using-offset/19"</span>) +<span id="L6742" class="LineNr"> 6742 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6696'>test-convert-index-into-array-of-bytes-using-offset</a>/20"</span>) +<span id="L6743" class="LineNr"> 6743 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6696'>test-convert-index-into-array-of-bytes-using-offset</a>/21"</span>) +<span id="L6744" class="LineNr"> 6744 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6696'>test-convert-index-into-array-of-bytes-using-offset</a>/22"</span>) +<span id="L6745" class="LineNr"> 6745 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6746" class="LineNr"> 6746 </span> 89/<- %esp 5/r32/ebp +<span id="L6747" class="LineNr"> 6747 </span> 5d/pop-to-ebp +<span id="L6748" class="LineNr"> 6748 </span> c3/return +<span id="L6749" class="LineNr"> 6749 </span> +<span id="L6750" class="LineNr"> 6750 </span><span class="subxTest">test-convert-index-into-array-using-offset-on-stack</span>: +<span id="L6751" class="LineNr"> 6751 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6752" class="LineNr"> 6752 </span> 55/push-ebp +<span id="L6753" class="LineNr"> 6753 </span> 89/<- %ebp 4/r32/esp +<span id="L6754" class="LineNr"> 6754 </span> <span class="subxComment"># setup</span> +<span id="L6755" class="LineNr"> 6755 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6756" class="LineNr"> 6756 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6757" class="LineNr"> 6757 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6758" class="LineNr"> 6758 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6759" class="LineNr"> 6759 </span> <span class="subxComment">#</span> +<span id="L6760" class="LineNr"> 6760 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6761" class="LineNr"> 6761 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array int) <- copy 0\n"</span>) +<span id="L6762" class="LineNr"> 6762 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var idx: int\n"</span>) +<span id="L6763" class="LineNr"> 6763 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var off/ecx: (offset int) <- compute-offset arr, idx\n"</span>) +<span id="L6764" class="LineNr"> 6764 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr int) <- index arr, off\n"</span>) +<span id="L6765" class="LineNr"> 6765 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6766" class="LineNr"> 6766 </span> <span class="subxComment"># convert</span> +<span id="L6767" class="LineNr"> 6767 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L6768" class="LineNr"> 6768 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6769" class="Folded"> 6769 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6775" class="LineNr"> 6775 </span> <span class="subxComment"># check output</span> +<span id="L6776" class="LineNr"> 6776 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6750'>test-convert-index-into-array-using-offset-on-stack</a>/0"</span>) +<span id="L6777" class="LineNr"> 6777 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-using-offset-on-stack/1"</span>) +<span id="L6778" class="LineNr"> 6778 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6750'>test-convert-index-into-array-using-offset-on-stack</a>/2"</span>) +<span id="L6779" class="LineNr"> 6779 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6750'>test-convert-index-into-array-using-offset-on-stack</a>/3"</span>) +<span id="L6780" class="LineNr"> 6780 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6750'>test-convert-index-into-array-using-offset-on-stack</a>/4"</span>) +<span id="L6781" class="LineNr"> 6781 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6750'>test-convert-index-into-array-using-offset-on-stack</a>/5"</span>) +<span id="L6782" class="LineNr"> 6782 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6750'>test-convert-index-into-array-using-offset-on-stack</a>/6"</span>) +<span id="L6783" class="LineNr"> 6783 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6750'>test-convert-index-into-array-using-offset-on-stack</a>/7"</span>) +<span id="L6784" class="LineNr"> 6784 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6750'>test-convert-index-into-array-using-offset-on-stack</a>/8"</span>) +<span id="L6785" class="LineNr"> 6785 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6750'>test-convert-index-into-array-using-offset-on-stack</a>/9"</span>) +<span id="L6786" class="LineNr"> 6786 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 69/multiply *(ebp+0xfffffff8) 0x00000004/imm32 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6750'>test-convert-index-into-array-using-offset-on-stack</a>/10"</span>) +<span id="L6787" class="LineNr"> 6787 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> %ecx 1 *eax \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L6750'>test-convert-index-into-array-using-offset-on-stack</a>/11"</span>) +<span id="L6788" class="LineNr"> 6788 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 7/subop/compare %eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6750'>test-convert-index-into-array-using-offset-on-stack</a>/12"</span>) +<span id="L6789" class="LineNr"> 6789 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 84/jump-if-= <a href='313index-bounds-check.subx.html#L88'>__mu-abort-null-index-base-address</a>/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6750'>test-convert-index-into-array-using-offset-on-stack</a>/13"</span>) +<span id="L6790" class="LineNr"> 6790 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + ecx + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6750'>test-convert-index-into-array-using-offset-on-stack</a>/14"</span>) +<span id="L6791" class="LineNr"> 6791 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6750'>test-convert-index-into-array-using-offset-on-stack</a>/15"</span>) +<span id="L6792" class="LineNr"> 6792 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6750'>test-convert-index-into-array-using-offset-on-stack</a>/16"</span>) +<span id="L6793" class="LineNr"> 6793 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6750'>test-convert-index-into-array-using-offset-on-stack</a>/17"</span>) +<span id="L6794" class="LineNr"> 6794 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6750'>test-convert-index-into-array-using-offset-on-stack</a>/18"</span>) +<span id="L6795" class="LineNr"> 6795 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6750'>test-convert-index-into-array-using-offset-on-stack</a>/19"</span>) +<span id="L6796" class="LineNr"> 6796 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-using-offset-on-stack/20"</span>) +<span id="L6797" class="LineNr"> 6797 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6750'>test-convert-index-into-array-using-offset-on-stack</a>/21"</span>) +<span id="L6798" class="LineNr"> 6798 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6750'>test-convert-index-into-array-using-offset-on-stack</a>/22"</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#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6750'>test-convert-index-into-array-using-offset-on-stack</a>/23"</span>) +<span id="L6800" class="LineNr"> 6800 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6801" class="LineNr"> 6801 </span> 89/<- %esp 5/r32/ebp +<span id="L6802" class="LineNr"> 6802 </span> 5d/pop-to-ebp +<span id="L6803" class="LineNr"> 6803 </span> c3/return +<span id="L6804" class="LineNr"> 6804 </span> +<span id="L6805" class="LineNr"> 6805 </span><span class="subxTest">test-convert-index-into-array-of-bytes-using-offset-on-stack</span>: +<span id="L6806" class="LineNr"> 6806 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6807" class="LineNr"> 6807 </span> 55/push-ebp +<span id="L6808" class="LineNr"> 6808 </span> 89/<- %ebp 4/r32/esp +<span id="L6809" class="LineNr"> 6809 </span> <span class="subxComment"># setup</span> +<span id="L6810" class="LineNr"> 6810 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6811" class="LineNr"> 6811 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6812" class="LineNr"> 6812 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6813" class="LineNr"> 6813 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6814" class="LineNr"> 6814 </span> <span class="subxComment">#</span> +<span id="L6815" class="LineNr"> 6815 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6816" class="LineNr"> 6816 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array byte) <- copy 0\n"</span>) +<span id="L6817" class="LineNr"> 6817 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var idx: int\n"</span>) +<span id="L6818" class="LineNr"> 6818 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var off/ecx: (offset byte) <- compute-offset arr, idx\n"</span>) +<span id="L6819" class="LineNr"> 6819 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr byte) <- index arr, off\n"</span>) +<span id="L6820" class="LineNr"> 6820 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6821" class="LineNr"> 6821 </span> <span class="subxComment"># convert</span> +<span id="L6822" class="LineNr"> 6822 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L6823" class="LineNr"> 6823 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6824" class="Folded"> 6824 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6830" class="LineNr"> 6830 </span> <span class="subxComment"># check output</span> +<span id="L6831" class="LineNr"> 6831 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6805'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/0"</span>) +<span id="L6832" class="LineNr"> 6832 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-using-offset-on-stack/1"</span>) +<span id="L6833" class="LineNr"> 6833 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6805'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/2"</span>) +<span id="L6834" class="LineNr"> 6834 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6805'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/3"</span>) +<span id="L6835" class="LineNr"> 6835 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6805'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/4"</span>) +<span id="L6836" class="LineNr"> 6836 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6805'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/5"</span>) +<span id="L6837" class="LineNr"> 6837 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6805'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/6"</span>) +<span id="L6838" class="LineNr"> 6838 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6805'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/7"</span>) +<span id="L6839" class="LineNr"> 6839 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6805'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/8"</span>) +<span id="L6840" class="LineNr"> 6840 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6805'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/9"</span>) +<span id="L6841" class="LineNr"> 6841 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 69/multiply *(ebp+0xfffffff8) 0x00000001/imm32 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6805'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/10"</span>) +<span id="L6842" class="LineNr"> 6842 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> %ecx 1 *eax \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L6805'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/11"</span>) +<span id="L6843" class="LineNr"> 6843 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 7/subop/compare %eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6805'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/12"</span>) +<span id="L6844" class="LineNr"> 6844 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 84/jump-if-= <a href='313index-bounds-check.subx.html#L88'>__mu-abort-null-index-base-address</a>/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6805'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/13"</span>) +<span id="L6845" class="LineNr"> 6845 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + ecx + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6805'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/14"</span>) +<span id="L6846" class="LineNr"> 6846 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6805'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/15"</span>) +<span id="L6847" class="LineNr"> 6847 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6805'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/16"</span>) +<span id="L6848" class="LineNr"> 6848 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6805'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/17"</span>) +<span id="L6849" class="LineNr"> 6849 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6805'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/18"</span>) +<span id="L6850" class="LineNr"> 6850 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6805'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/19"</span>) +<span id="L6851" class="LineNr"> 6851 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-using-offset-on-stack/20"</span>) +<span id="L6852" class="LineNr"> 6852 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6805'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/21"</span>) +<span id="L6853" class="LineNr"> 6853 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6805'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/22"</span>) +<span id="L6854" class="LineNr"> 6854 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6805'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/23"</span>) +<span id="L6855" class="LineNr"> 6855 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6856" class="LineNr"> 6856 </span> 89/<- %esp 5/r32/ebp +<span id="L6857" class="LineNr"> 6857 </span> 5d/pop-to-ebp +<span id="L6858" class="LineNr"> 6858 </span> c3/return +<span id="L6859" class="LineNr"> 6859 </span> +<span id="L6860" class="LineNr"> 6860 </span><span class="subxTest">test-convert-function-and-type-definition</span>: +<span id="L6861" class="LineNr"> 6861 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6862" class="LineNr"> 6862 </span> 55/push-ebp +<span id="L6863" class="LineNr"> 6863 </span> 89/<- %ebp 4/r32/esp +<span id="L6864" class="LineNr"> 6864 </span> <span class="subxComment"># setup</span> +<span id="L6865" class="LineNr"> 6865 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6866" class="LineNr"> 6866 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6867" class="LineNr"> 6867 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6868" class="LineNr"> 6868 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6869" class="LineNr"> 6869 </span> <span class="subxComment">#</span> +<span id="L6870" class="LineNr"> 6870 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo a: (addr t) {\n"</span>) +<span id="L6871" class="LineNr"> 6871 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var _a/eax: (addr t) <- copy a\n"</span>) +<span id="L6872" class="LineNr"> 6872 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> _a, x\n"</span>) +<span id="L6873" class="LineNr"> 6873 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> _a, y\n"</span>) +<span id="L6874" class="LineNr"> 6874 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6875" class="LineNr"> 6875 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L6876" class="LineNr"> 6876 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L6877" class="LineNr"> 6877 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) +<span id="L6878" class="LineNr"> 6878 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6879" class="LineNr"> 6879 </span> <span class="subxComment"># convert</span> +<span id="L6880" class="LineNr"> 6880 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L6881" class="LineNr"> 6881 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6882" class="Folded"> 6882 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6888" class="LineNr"> 6888 </span> <span class="subxComment"># check output</span> +<span id="L6889" class="LineNr"> 6889 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6860'>test-convert-function-and-type-definition</a>/0"</span>) +<span id="L6890" class="LineNr"> 6890 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-and-type-definition/1"</span>) +<span id="L6891" class="LineNr"> 6891 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6860'>test-convert-function-and-type-definition</a>/2"</span>) +<span id="L6892" class="LineNr"> 6892 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6860'>test-convert-function-and-type-definition</a>/3"</span>) +<span id="L6893" class="LineNr"> 6893 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6860'>test-convert-function-and-type-definition</a>/4"</span>) +<span id="L6894" class="LineNr"> 6894 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6860'>test-convert-function-and-type-definition</a>/5"</span>) +<span id="L6895" class="LineNr"> 6895 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6860'>test-convert-function-and-type-definition</a>/6"</span>) +<span id="L6896" class="LineNr"> 6896 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6860'>test-convert-function-and-type-definition</a>/7"</span>) +<span id="L6897" class="LineNr"> 6897 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6860'>test-convert-function-and-type-definition</a>/8"</span>) +<span id="L6898" class="LineNr"> 6898 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 7/subop/compare %eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6860'>test-convert-function-and-type-definition</a>/9"</span>) +<span id="L6899" class="LineNr"> 6899 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 84/jump-if-= <a href='313index-bounds-check.subx.html#L96'>__mu-abort-null-get-base-address</a>/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6860'>test-convert-function-and-type-definition</a>/10"</span>) +<span id="L6900" class="LineNr"> 6900 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + 0x00000000) 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6860'>test-convert-function-and-type-definition</a>/11"</span>) +<span id="L6901" class="LineNr"> 6901 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 7/subop/compare %eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6860'>test-convert-function-and-type-definition</a>/12"</span>) +<span id="L6902" class="LineNr"> 6902 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 84/jump-if-= <a href='313index-bounds-check.subx.html#L96'>__mu-abort-null-get-base-address</a>/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6860'>test-convert-function-and-type-definition</a>/13"</span>) +<span id="L6903" class="LineNr"> 6903 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + 0x00000004) 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6860'>test-convert-function-and-type-definition</a>/14"</span>) +<span id="L6904" class="LineNr"> 6904 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6860'>test-convert-function-and-type-definition</a>/15"</span>) +<span id="L6905" class="LineNr"> 6905 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6860'>test-convert-function-and-type-definition</a>/16"</span>) +<span id="L6906" class="LineNr"> 6906 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6860'>test-convert-function-and-type-definition</a>/17"</span>) +<span id="L6907" class="LineNr"> 6907 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6860'>test-convert-function-and-type-definition</a>/18"</span>) +<span id="L6908" class="LineNr"> 6908 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-and-type-definition/19"</span>) +<span id="L6909" class="LineNr"> 6909 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6860'>test-convert-function-and-type-definition</a>/20"</span>) +<span id="L6910" class="LineNr"> 6910 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6860'>test-convert-function-and-type-definition</a>/21"</span>) +<span id="L6911" class="LineNr"> 6911 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6860'>test-convert-function-and-type-definition</a>/22"</span>) +<span id="L6912" class="LineNr"> 6912 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6913" class="LineNr"> 6913 </span> 89/<- %esp 5/r32/ebp +<span id="L6914" class="LineNr"> 6914 </span> 5d/pop-to-ebp +<span id="L6915" class="LineNr"> 6915 </span> c3/return +<span id="L6916" class="LineNr"> 6916 </span> +<span id="L6917" class="LineNr"> 6917 </span><span class="subxTest">test-type-definition-with-array</span>: +<span id="L6918" class="LineNr"> 6918 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6919" class="LineNr"> 6919 </span> 55/push-ebp +<span id="L6920" class="LineNr"> 6920 </span> 89/<- %ebp 4/r32/esp +<span id="L6921" class="LineNr"> 6921 </span> <span class="subxComment"># setup</span> +<span id="L6922" class="LineNr"> 6922 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6923" class="LineNr"> 6923 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6924" class="LineNr"> 6924 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6925" class="LineNr"> 6925 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6926" class="LineNr"> 6926 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L6927" class="LineNr"> 6927 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L6928" class="LineNr"> 6928 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L6929" class="LineNr"> 6929 </span> 68/push 0/imm32 +<span id="L6930" class="LineNr"> 6930 </span> 68/push 0/imm32 +<span id="L6931" class="LineNr"> 6931 </span> 89/<- %edx 4/r32/esp +<span id="L6932" class="LineNr"> 6932 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L6933" class="LineNr"> 6933 </span> <span class="subxComment">#</span> +<span id="L6934" class="LineNr"> 6934 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L6935" class="LineNr"> 6935 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" a: (array int 3)\n"</span>) +<span id="L6936" class="LineNr"> 6936 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6937" class="LineNr"> 6937 </span> <span class="subxComment"># convert</span> +<span id="L6938" class="LineNr"> 6938 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L6939" class="LineNr"> 6939 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L6940" class="LineNr"> 6940 </span> <span class="subxComment"># restore ed</span> +<span id="L6941" class="LineNr"> 6941 </span> 89/<- %edx 4/r32/esp +<span id="L6942" class="LineNr"> 6942 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6943" class="LineNr"> 6943 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L6944" class="Folded"> 6944 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6950" class="LineNr"> 6950 </span> <span class="subxComment"># check output</span> +<span id="L6951" class="LineNr"> 6951 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L6917'>test-type-definition-with-array</a>: output should be empty"</span>) +<span id="L6952" class="LineNr"> 6952 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"type t: 'array' elements not allowed for now"</span> <span class="Constant">"F - <a href='mu.subx.html#L6917'>test-type-definition-with-array</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L6953" class="LineNr"> 6953 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L6954" class="LineNr"> 6954 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L6917'>test-type-definition-with-array</a>: exit status"</span>) +<span id="L6955" class="LineNr"> 6955 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L6956" class="LineNr"> 6956 </span> 81 0/subop/add %esp 8/imm32 +<span id="L6957" class="LineNr"> 6957 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6958" class="LineNr"> 6958 </span> 5d/pop-to-ebp +<span id="L6959" class="LineNr"> 6959 </span> c3/return +<span id="L6960" class="LineNr"> 6960 </span> +<span id="L6961" class="LineNr"> 6961 </span><span class="subxTest">test-type-definition-with-addr</span>: +<span id="L6962" class="LineNr"> 6962 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6963" class="LineNr"> 6963 </span> 55/push-ebp +<span id="L6964" class="LineNr"> 6964 </span> 89/<- %ebp 4/r32/esp +<span id="L6965" class="LineNr"> 6965 </span> <span class="subxComment"># setup</span> +<span id="L6966" class="LineNr"> 6966 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6967" class="LineNr"> 6967 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6968" class="LineNr"> 6968 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6969" class="LineNr"> 6969 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6970" class="LineNr"> 6970 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L6971" class="LineNr"> 6971 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L6972" class="LineNr"> 6972 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L6973" class="LineNr"> 6973 </span> 68/push 0/imm32 +<span id="L6974" class="LineNr"> 6974 </span> 68/push 0/imm32 +<span id="L6975" class="LineNr"> 6975 </span> 89/<- %edx 4/r32/esp +<span id="L6976" class="LineNr"> 6976 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L6977" class="LineNr"> 6977 </span> <span class="subxComment">#</span> +<span id="L6978" class="LineNr"> 6978 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L6979" class="LineNr"> 6979 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" a: (addr int)\n"</span>) +<span id="L6980" class="LineNr"> 6980 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6981" class="LineNr"> 6981 </span> <span class="subxComment"># convert</span> +<span id="L6982" class="LineNr"> 6982 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L6983" class="LineNr"> 6983 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L6984" class="LineNr"> 6984 </span> <span class="subxComment"># restore ed</span> +<span id="L6985" class="LineNr"> 6985 </span> 89/<- %edx 4/r32/esp +<span id="L6986" class="LineNr"> 6986 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6987" class="LineNr"> 6987 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L6988" class="Folded"> 6988 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6994" class="LineNr"> 6994 </span> <span class="subxComment"># check output</span> +<span id="L6995" class="LineNr"> 6995 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L6961'>test-type-definition-with-addr</a>: output should be empty"</span>) +<span id="L6996" class="LineNr"> 6996 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"type t: 'addr' elements not allowed"</span> <span class="Constant">"F - <a href='mu.subx.html#L6961'>test-type-definition-with-addr</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L6997" class="LineNr"> 6997 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L6998" class="LineNr"> 6998 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L6961'>test-type-definition-with-addr</a>: exit status"</span>) +<span id="L6999" class="LineNr"> 6999 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7000" class="LineNr"> 7000 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7001" class="LineNr"> 7001 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7002" class="LineNr"> 7002 </span> 5d/pop-to-ebp +<span id="L7003" class="LineNr"> 7003 </span> c3/return +<span id="L7004" class="LineNr"> 7004 </span> +<span id="L7005" class="LineNr"> 7005 </span><span class="subxTest">test-convert-function-with-local-var-with-user-defined-type</span>: +<span id="L7006" class="LineNr"> 7006 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7007" class="LineNr"> 7007 </span> 55/push-ebp +<span id="L7008" class="LineNr"> 7008 </span> 89/<- %ebp 4/r32/esp +<span id="L7009" class="LineNr"> 7009 </span> <span class="subxComment"># setup</span> +<span id="L7010" class="LineNr"> 7010 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7011" class="LineNr"> 7011 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7012" class="LineNr"> 7012 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7013" class="LineNr"> 7013 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7014" class="LineNr"> 7014 </span> <span class="subxComment">#</span> +<span id="L7015" class="LineNr"> 7015 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7016" class="LineNr"> 7016 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) +<span id="L7017" class="LineNr"> 7017 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7018" class="LineNr"> 7018 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L7019" class="LineNr"> 7019 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L7020" class="LineNr"> 7020 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) +<span id="L7021" class="LineNr"> 7021 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7022" class="LineNr"> 7022 </span> <span class="subxComment"># convert</span> +<span id="L7023" class="LineNr"> 7023 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L7024" class="LineNr"> 7024 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7025" class="Folded"> 7025 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7031" class="LineNr"> 7031 </span> <span class="subxComment"># check output</span> +<span id="L7032" class="LineNr"> 7032 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7005'>test-convert-function-with-local-var-with-user-defined-type</a>/0"</span>) +<span id="L7033" class="LineNr"> 7033 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-with-user-defined-type/1"</span>) +<span id="L7034" class="LineNr"> 7034 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7005'>test-convert-function-with-local-var-with-user-defined-type</a>/2"</span>) +<span id="L7035" class="LineNr"> 7035 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7005'>test-convert-function-with-local-var-with-user-defined-type</a>/3"</span>) +<span id="L7036" class="LineNr"> 7036 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7005'>test-convert-function-with-local-var-with-user-defined-type</a>/4"</span>) +<span id="L7037" class="LineNr"> 7037 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7005'>test-convert-function-with-local-var-with-user-defined-type</a>/5"</span>) +<span id="L7038" class="LineNr"> 7038 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7005'>test-convert-function-with-local-var-with-user-defined-type</a>/6"</span>) +<span id="L7039" class="LineNr"> 7039 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7005'>test-convert-function-with-local-var-with-user-defined-type</a>/7"</span>) +<span id="L7040" class="LineNr"> 7040 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000008/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7005'>test-convert-function-with-local-var-with-user-defined-type</a>/8"</span>) +<span id="L7041" class="LineNr"> 7041 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7005'>test-convert-function-with-local-var-with-user-defined-type</a>/9"</span>) +<span id="L7042" class="LineNr"> 7042 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7005'>test-convert-function-with-local-var-with-user-defined-type</a>/10"</span>) +<span id="L7043" class="LineNr"> 7043 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-with-user-defined-type/11"</span>) +<span id="L7044" class="LineNr"> 7044 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7005'>test-convert-function-with-local-var-with-user-defined-type</a>/12"</span>) +<span id="L7045" class="LineNr"> 7045 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7005'>test-convert-function-with-local-var-with-user-defined-type</a>/13"</span>) +<span id="L7046" class="LineNr"> 7046 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7005'>test-convert-function-with-local-var-with-user-defined-type</a>/14"</span>) +<span id="L7047" class="LineNr"> 7047 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7048" class="LineNr"> 7048 </span> 89/<- %esp 5/r32/ebp +<span id="L7049" class="LineNr"> 7049 </span> 5d/pop-to-ebp +<span id="L7050" class="LineNr"> 7050 </span> c3/return +<span id="L7051" class="LineNr"> 7051 </span> +<span id="L7052" class="LineNr"> 7052 </span><span class="subxTest">test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</span>: +<span id="L7053" class="LineNr"> 7053 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7054" class="LineNr"> 7054 </span> 55/push-ebp +<span id="L7055" class="LineNr"> 7055 </span> 89/<- %ebp 4/r32/esp +<span id="L7056" class="LineNr"> 7056 </span> <span class="subxComment"># setup</span> +<span id="L7057" class="LineNr"> 7057 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7058" class="LineNr"> 7058 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7059" class="LineNr"> 7059 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7060" class="LineNr"> 7060 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7061" class="LineNr"> 7061 </span> <span class="subxComment">#</span> +<span id="L7062" class="LineNr"> 7062 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7063" class="LineNr"> 7063 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) +<span id="L7064" class="LineNr"> 7064 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7065" class="LineNr"> 7065 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L7066" class="LineNr"> 7066 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: s\n"</span>) +<span id="L7067" class="LineNr"> 7067 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7068" class="LineNr"> 7068 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type s {\n"</span>) +<span id="L7069" class="LineNr"> 7069 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" z: int\n"</span>) +<span id="L7070" class="LineNr"> 7070 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7071" class="LineNr"> 7071 </span> <span class="subxComment"># convert</span> +<span id="L7072" class="LineNr"> 7072 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L7073" class="LineNr"> 7073 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7074" class="Folded"> 7074 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7080" class="LineNr"> 7080 </span> <span class="subxComment"># check output</span> +<span id="L7081" class="LineNr"> 7081 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7052'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/0"</span>) +<span id="L7082" class="LineNr"> 7082 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type/1"</span>) +<span id="L7083" class="LineNr"> 7083 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7052'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/2"</span>) +<span id="L7084" class="LineNr"> 7084 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7052'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/3"</span>) +<span id="L7085" class="LineNr"> 7085 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7052'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/4"</span>) +<span id="L7086" class="LineNr"> 7086 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7052'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/5"</span>) +<span id="L7087" class="LineNr"> 7087 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7052'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/7"</span>) +<span id="L7088" class="LineNr"> 7088 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7052'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/8"</span>) +<span id="L7089" class="LineNr"> 7089 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7052'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/9"</span>) +<span id="L7090" class="LineNr"> 7090 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7052'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/10"</span>) +<span id="L7091" class="LineNr"> 7091 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type/11"</span>) +<span id="L7092" class="LineNr"> 7092 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7052'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/12"</span>) +<span id="L7093" class="LineNr"> 7093 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7052'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/13"</span>) +<span id="L7094" class="LineNr"> 7094 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7052'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/14"</span>) +<span id="L7095" class="LineNr"> 7095 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7096" class="LineNr"> 7096 </span> 89/<- %esp 5/r32/ebp +<span id="L7097" class="LineNr"> 7097 </span> 5d/pop-to-ebp +<span id="L7098" class="LineNr"> 7098 </span> c3/return +<span id="L7099" class="LineNr"> 7099 </span> +<span id="L7100" class="LineNr"> 7100 </span><span class="subxTest">test-convert-function-call-with-arg-of-user-defined-type</span>: +<span id="L7101" class="LineNr"> 7101 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7102" class="LineNr"> 7102 </span> 55/push-ebp +<span id="L7103" class="LineNr"> 7103 </span> 89/<- %ebp 4/r32/esp +<span id="L7104" class="LineNr"> 7104 </span> <span class="subxComment"># setup</span> +<span id="L7105" class="LineNr"> 7105 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7106" class="LineNr"> 7106 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7107" class="LineNr"> 7107 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7108" class="LineNr"> 7108 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7109" class="LineNr"> 7109 </span> <span class="subxComment">#</span> +<span id="L7110" class="LineNr"> 7110 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) +<span id="L7111" class="LineNr"> 7111 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) +<span id="L7112" class="LineNr"> 7112 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" foo a\n"</span>) +<span id="L7113" class="LineNr"> 7113 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7114" class="LineNr"> 7114 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo x: t {\n"</span>) +<span id="L7115" class="LineNr"> 7115 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7116" class="LineNr"> 7116 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L7117" class="LineNr"> 7117 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L7118" class="LineNr"> 7118 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) +<span id="L7119" class="LineNr"> 7119 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7120" class="LineNr"> 7120 </span> <span class="subxComment"># convert</span> +<span id="L7121" class="LineNr"> 7121 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L7122" class="LineNr"> 7122 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7123" class="Folded"> 7123 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7129" class="LineNr"> 7129 </span> <span class="subxComment"># check output</span> +<span id="L7130" class="LineNr"> 7130 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"f:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7100'>test-convert-function-call-with-arg-of-user-defined-type</a>/0"</span>) +<span id="L7131" class="LineNr"> 7131 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/1"</span>) +<span id="L7132" class="LineNr"> 7132 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7100'>test-convert-function-call-with-arg-of-user-defined-type</a>/2"</span>) +<span id="L7133" class="LineNr"> 7133 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7100'>test-convert-function-call-with-arg-of-user-defined-type</a>/3"</span>) +<span id="L7134" class="LineNr"> 7134 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7100'>test-convert-function-call-with-arg-of-user-defined-type</a>/4"</span>) +<span id="L7135" class="LineNr"> 7135 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7100'>test-convert-function-call-with-arg-of-user-defined-type</a>/5"</span>) +<span id="L7136" class="LineNr"> 7136 </span> <span class="subxComment"># var a: t</span> +<span id="L7137" class="LineNr"> 7137 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7100'>test-convert-function-call-with-arg-of-user-defined-type</a>/6"</span>) +<span id="L7138" class="LineNr"> 7138 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7100'>test-convert-function-call-with-arg-of-user-defined-type</a>/7"</span>) +<span id="L7139" class="LineNr"> 7139 </span> <span class="subxComment"># foo a</span> +<span id="L7140" class="LineNr"> 7140 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (foo *(ebp+0xfffffff8) *(ebp+0xfffffffc))"</span> <span class="Constant">"F - <a href='mu.subx.html#L7100'>test-convert-function-call-with-arg-of-user-defined-type</a>/8"</span>) +<span id="L7141" class="LineNr"> 7141 </span> <span class="subxComment">#</span> +<span id="L7142" class="LineNr"> 7142 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000008/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7100'>test-convert-function-call-with-arg-of-user-defined-type</a>/9"</span>) +<span id="L7143" class="LineNr"> 7143 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7100'>test-convert-function-call-with-arg-of-user-defined-type</a>/10"</span>) +<span id="L7144" class="LineNr"> 7144 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7100'>test-convert-function-call-with-arg-of-user-defined-type</a>/11"</span>) +<span id="L7145" class="LineNr"> 7145 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/12"</span>) +<span id="L7146" class="LineNr"> 7146 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7100'>test-convert-function-call-with-arg-of-user-defined-type</a>/13"</span>) +<span id="L7147" class="LineNr"> 7147 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7100'>test-convert-function-call-with-arg-of-user-defined-type</a>/14"</span>) +<span id="L7148" class="LineNr"> 7148 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7100'>test-convert-function-call-with-arg-of-user-defined-type</a>/15"</span>) +<span id="L7149" class="LineNr"> 7149 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7100'>test-convert-function-call-with-arg-of-user-defined-type</a>/16"</span>) +<span id="L7150" class="LineNr"> 7150 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/17"</span>) +<span id="L7151" class="LineNr"> 7151 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7100'>test-convert-function-call-with-arg-of-user-defined-type</a>/18"</span>) +<span id="L7152" class="LineNr"> 7152 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7100'>test-convert-function-call-with-arg-of-user-defined-type</a>/19"</span>) +<span id="L7153" class="LineNr"> 7153 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/20"</span>) +<span id="L7154" class="LineNr"> 7154 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7100'>test-convert-function-call-with-arg-of-user-defined-type</a>/21"</span>) +<span id="L7155" class="LineNr"> 7155 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7100'>test-convert-function-call-with-arg-of-user-defined-type</a>/22"</span>) +<span id="L7156" class="LineNr"> 7156 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7100'>test-convert-function-call-with-arg-of-user-defined-type</a>/23"</span>) +<span id="L7157" class="LineNr"> 7157 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7158" class="LineNr"> 7158 </span> 89/<- %esp 5/r32/ebp +<span id="L7159" class="LineNr"> 7159 </span> 5d/pop-to-ebp +<span id="L7160" class="LineNr"> 7160 </span> c3/return +<span id="L7161" class="LineNr"> 7161 </span> +<span id="L7162" class="LineNr"> 7162 </span><span class="subxTest">test-convert-function-call-with-arg-of-user-defined-type-register-indirect</span>: +<span id="L7163" class="LineNr"> 7163 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7164" class="LineNr"> 7164 </span> 55/push-ebp +<span id="L7165" class="LineNr"> 7165 </span> 89/<- %ebp 4/r32/esp +<span id="L7166" class="LineNr"> 7166 </span> <span class="subxComment"># setup</span> +<span id="L7167" class="LineNr"> 7167 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7168" class="LineNr"> 7168 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7169" class="LineNr"> 7169 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7170" class="LineNr"> 7170 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7171" class="LineNr"> 7171 </span> <span class="subxComment">#</span> +<span id="L7172" class="LineNr"> 7172 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) +<span id="L7173" class="LineNr"> 7173 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr t) <- copy 0\n"</span>) +<span id="L7174" class="LineNr"> 7174 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" foo *a\n"</span>) +<span id="L7175" class="LineNr"> 7175 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7176" class="LineNr"> 7176 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo x: t {\n"</span>) +<span id="L7177" class="LineNr"> 7177 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7178" class="LineNr"> 7178 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L7179" class="LineNr"> 7179 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L7180" class="LineNr"> 7180 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) +<span id="L7181" class="LineNr"> 7181 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7182" class="LineNr"> 7182 </span> <span class="subxComment"># convert</span> +<span id="L7183" class="LineNr"> 7183 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L7184" class="LineNr"> 7184 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7185" class="Folded"> 7185 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7191" class="LineNr"> 7191 </span> <span class="subxComment"># check output</span> +<span id="L7192" class="LineNr"> 7192 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"f:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7100'>test-convert-function-call-with-arg-of-user-defined-type</a>/0"</span>) +<span id="L7193" class="LineNr"> 7193 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/1"</span>) +<span id="L7194" class="LineNr"> 7194 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7100'>test-convert-function-call-with-arg-of-user-defined-type</a>/2"</span>) +<span id="L7195" class="LineNr"> 7195 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7100'>test-convert-function-call-with-arg-of-user-defined-type</a>/3"</span>) +<span id="L7196" class="LineNr"> 7196 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7100'>test-convert-function-call-with-arg-of-user-defined-type</a>/4"</span>) +<span id="L7197" class="LineNr"> 7197 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7100'>test-convert-function-call-with-arg-of-user-defined-type</a>/5"</span>) +<span id="L7198" class="LineNr"> 7198 </span> <span class="subxComment"># var a</span> +<span id="L7199" class="LineNr"> 7199 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L7100'>test-convert-function-call-with-arg-of-user-defined-type</a>/6"</span>) +<span id="L7200" class="LineNr"> 7200 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7100'>test-convert-function-call-with-arg-of-user-defined-type</a>/7"</span>) +<span id="L7201" class="LineNr"> 7201 </span> <span class="subxComment"># foo a</span> +<span id="L7202" class="LineNr"> 7202 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (foo *(eax+0x00000000) *(eax+0x00000004))"</span> <span class="Constant">"F - <a href='mu.subx.html#L7100'>test-convert-function-call-with-arg-of-user-defined-type</a>/8"</span>) +<span id="L7203" class="LineNr"> 7203 </span> <span class="subxComment">#</span> +<span id="L7204" class="LineNr"> 7204 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L7100'>test-convert-function-call-with-arg-of-user-defined-type</a>/9"</span>) +<span id="L7205" class="LineNr"> 7205 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7100'>test-convert-function-call-with-arg-of-user-defined-type</a>/10"</span>) +<span id="L7206" class="LineNr"> 7206 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7100'>test-convert-function-call-with-arg-of-user-defined-type</a>/11"</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#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/12"</span>) +<span id="L7208" class="LineNr"> 7208 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7100'>test-convert-function-call-with-arg-of-user-defined-type</a>/13"</span>) +<span id="L7209" class="LineNr"> 7209 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7100'>test-convert-function-call-with-arg-of-user-defined-type</a>/14"</span>) +<span id="L7210" class="LineNr"> 7210 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7100'>test-convert-function-call-with-arg-of-user-defined-type</a>/15"</span>) +<span id="L7211" class="LineNr"> 7211 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7100'>test-convert-function-call-with-arg-of-user-defined-type</a>/16"</span>) +<span id="L7212" class="LineNr"> 7212 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/17"</span>) +<span id="L7213" class="LineNr"> 7213 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7100'>test-convert-function-call-with-arg-of-user-defined-type</a>/18"</span>) +<span id="L7214" class="LineNr"> 7214 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7100'>test-convert-function-call-with-arg-of-user-defined-type</a>/19"</span>) +<span id="L7215" class="LineNr"> 7215 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/20"</span>) +<span id="L7216" class="LineNr"> 7216 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7100'>test-convert-function-call-with-arg-of-user-defined-type</a>/21"</span>) +<span id="L7217" class="LineNr"> 7217 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7100'>test-convert-function-call-with-arg-of-user-defined-type</a>/22"</span>) +<span id="L7218" class="LineNr"> 7218 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7100'>test-convert-function-call-with-arg-of-user-defined-type</a>/23"</span>) +<span id="L7219" class="LineNr"> 7219 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7220" class="LineNr"> 7220 </span> 89/<- %esp 5/r32/ebp +<span id="L7221" class="LineNr"> 7221 </span> 5d/pop-to-ebp +<span id="L7222" class="LineNr"> 7222 </span> c3/return +<span id="L7223" class="LineNr"> 7223 </span> +<span id="L7224" class="LineNr"> 7224 </span><span class="subxComment"># we don't have special support for call-by-reference; just explicitly create</span> +<span id="L7225" class="LineNr"> 7225 </span><span class="subxComment"># a new variable with the address of the arg</span> +<span id="L7226" class="LineNr"> 7226 </span><span class="subxTest">test-convert-function-call-with-arg-of-user-defined-type-by-reference</span>: +<span id="L7227" class="LineNr"> 7227 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7228" class="LineNr"> 7228 </span> 55/push-ebp +<span id="L7229" class="LineNr"> 7229 </span> 89/<- %ebp 4/r32/esp +<span id="L7230" class="LineNr"> 7230 </span> <span class="subxComment"># setup</span> +<span id="L7231" class="LineNr"> 7231 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7232" class="LineNr"> 7232 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7233" class="LineNr"> 7233 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7234" class="LineNr"> 7234 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7235" class="LineNr"> 7235 </span> <span class="subxComment">#</span> +<span id="L7236" class="LineNr"> 7236 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) +<span id="L7237" class="LineNr"> 7237 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) +<span id="L7238" class="LineNr"> 7238 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: (addr t) <- address a\n"</span>) +<span id="L7239" class="LineNr"> 7239 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" foo b\n"</span>) +<span id="L7240" class="LineNr"> 7240 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7241" class="LineNr"> 7241 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo x: (addr t) {\n"</span>) +<span id="L7242" class="LineNr"> 7242 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: (addr t) <- copy x\n"</span>) +<span id="L7243" class="LineNr"> 7243 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7244" class="LineNr"> 7244 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L7245" class="LineNr"> 7245 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L7246" class="LineNr"> 7246 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) +<span id="L7247" class="LineNr"> 7247 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7248" class="LineNr"> 7248 </span> <span class="subxComment"># convert</span> +<span id="L7249" class="LineNr"> 7249 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L7250" class="LineNr"> 7250 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7251" class="Folded"> 7251 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7257" class="LineNr"> 7257 </span> <span class="subxComment"># check output</span> +<span id="L7258" class="LineNr"> 7258 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"f:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7226'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/0"</span>) +<span id="L7259" class="LineNr"> 7259 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type-by-reference/1"</span>) +<span id="L7260" class="LineNr"> 7260 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7226'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/2"</span>) +<span id="L7261" class="LineNr"> 7261 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7226'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/3"</span>) +<span id="L7262" class="LineNr"> 7262 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7226'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/4"</span>) +<span id="L7263" class="LineNr"> 7263 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7226'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/5"</span>) +<span id="L7264" class="LineNr"> 7264 </span> <span class="subxComment"># var a: t</span> +<span id="L7265" class="LineNr"> 7265 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7226'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/6"</span>) +<span id="L7266" class="LineNr"> 7266 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7226'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/7"</span>) +<span id="L7267" class="LineNr"> 7267 </span> <span class="subxComment"># var b/eax: (addr t)</span> +<span id="L7268" class="LineNr"> 7268 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L7226'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/8"</span>) +<span id="L7269" class="LineNr"> 7269 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp+0xfffffff8) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7226'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/9"</span>) +<span id="L7270" class="LineNr"> 7270 </span> <span class="subxComment"># foo a</span> +<span id="L7271" class="LineNr"> 7271 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (foo %eax)"</span> <span class="Constant">"F - <a href='mu.subx.html#L7226'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/10"</span>) +<span id="L7272" class="LineNr"> 7272 </span> <span class="subxComment">#</span> +<span id="L7273" class="LineNr"> 7273 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L7226'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/11"</span>) +<span id="L7274" class="LineNr"> 7274 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000008/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7226'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/12"</span>) +<span id="L7275" class="LineNr"> 7275 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7226'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/13"</span>) +<span id="L7276" class="LineNr"> 7276 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7226'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/14"</span>) +<span id="L7277" class="LineNr"> 7277 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type-by-reference/15"</span>) +<span id="L7278" class="LineNr"> 7278 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7226'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/16"</span>) +<span id="L7279" class="LineNr"> 7279 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7226'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/17"</span>) +<span id="L7280" class="LineNr"> 7280 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7226'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/18"</span>) +<span id="L7281" class="LineNr"> 7281 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7226'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/19"</span>) +<span id="L7282" class="LineNr"> 7282 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type-by-reference/20"</span>) +<span id="L7283" class="LineNr"> 7283 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7226'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/21"</span>) +<span id="L7284" class="LineNr"> 7284 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7226'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/22"</span>) +<span id="L7285" class="LineNr"> 7285 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7226'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/23"</span>) +<span id="L7286" class="LineNr"> 7286 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7226'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/24"</span>) +<span id="L7287" class="LineNr"> 7287 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7226'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/25"</span>) +<span id="L7288" class="LineNr"> 7288 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x00000008) 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7226'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/26"</span>) +<span id="L7289" class="LineNr"> 7289 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7226'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/27"</span>) +<span id="L7290" class="LineNr"> 7290 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7226'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/28"</span>) +<span id="L7291" class="LineNr"> 7291 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7226'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/29"</span>) +<span id="L7292" class="LineNr"> 7292 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type-by-reference/30"</span>) +<span id="L7293" class="LineNr"> 7293 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7226'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/31"</span>) +<span id="L7294" class="LineNr"> 7294 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7226'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/32"</span>) +<span id="L7295" class="LineNr"> 7295 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7226'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/33"</span>) +<span id="L7296" class="LineNr"> 7296 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7297" class="LineNr"> 7297 </span> 89/<- %esp 5/r32/ebp +<span id="L7298" class="LineNr"> 7298 </span> 5d/pop-to-ebp +<span id="L7299" class="LineNr"> 7299 </span> c3/return +<span id="L7300" class="LineNr"> 7300 </span> +<span id="L7301" class="LineNr"> 7301 </span><span class="subxTest">test-convert-get-on-local-variable</span>: +<span id="L7302" class="LineNr"> 7302 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7303" class="LineNr"> 7303 </span> 55/push-ebp +<span id="L7304" class="LineNr"> 7304 </span> 89/<- %ebp 4/r32/esp +<span id="L7305" class="LineNr"> 7305 </span> <span class="subxComment"># setup</span> +<span id="L7306" class="LineNr"> 7306 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7307" class="LineNr"> 7307 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7308" class="LineNr"> 7308 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7309" class="LineNr"> 7309 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7310" class="LineNr"> 7310 </span> <span class="subxComment">#</span> +<span id="L7311" class="LineNr"> 7311 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7312" class="LineNr"> 7312 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) +<span id="L7313" class="LineNr"> 7313 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> a, y\n"</span>) +<span id="L7314" class="LineNr"> 7314 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7315" class="LineNr"> 7315 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L7316" class="LineNr"> 7316 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L7317" class="LineNr"> 7317 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) +<span id="L7318" class="LineNr"> 7318 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7319" class="LineNr"> 7319 </span> <span class="subxComment"># convert</span> +<span id="L7320" class="LineNr"> 7320 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L7321" class="LineNr"> 7321 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7322" class="Folded"> 7322 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7328" class="LineNr"> 7328 </span> <span class="subxComment"># check output</span> +<span id="L7329" class="LineNr"> 7329 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7301'>test-convert-get-on-local-variable</a>/0"</span>) +<span id="L7330" class="LineNr"> 7330 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-get-on-local-variable/1"</span>) +<span id="L7331" class="LineNr"> 7331 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7301'>test-convert-get-on-local-variable</a>/2"</span>) +<span id="L7332" class="LineNr"> 7332 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7301'>test-convert-get-on-local-variable</a>/3"</span>) +<span id="L7333" class="LineNr"> 7333 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7301'>test-convert-get-on-local-variable</a>/4"</span>) +<span id="L7334" class="LineNr"> 7334 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7301'>test-convert-get-on-local-variable</a>/5"</span>) +<span id="L7335" class="LineNr"> 7335 </span> <span class="subxComment"># var a</span> +<span id="L7336" class="LineNr"> 7336 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7301'>test-convert-get-on-local-variable</a>/6"</span>) +<span id="L7337" class="LineNr"> 7337 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7301'>test-convert-get-on-local-variable</a>/7"</span>) +<span id="L7338" class="LineNr"> 7338 </span> <span class="subxComment"># var c</span> +<span id="L7339" class="LineNr"> 7339 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7301'>test-convert-get-on-local-variable</a>/8"</span>) +<span id="L7340" class="LineNr"> 7340 </span> <span class="subxComment"># get</span> +<span id="L7341" class="LineNr"> 7341 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp+0xfffffffc) 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7301'>test-convert-get-on-local-variable</a>/9"</span>) +<span id="L7342" class="LineNr"> 7342 </span> <span class="subxComment"># reclaim c</span> +<span id="L7343" class="LineNr"> 7343 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7301'>test-convert-get-on-local-variable</a>/10"</span>) +<span id="L7344" class="LineNr"> 7344 </span> <span class="subxComment"># reclaim a</span> +<span id="L7345" class="LineNr"> 7345 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000008/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7301'>test-convert-get-on-local-variable</a>/11"</span>) +<span id="L7346" class="LineNr"> 7346 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7301'>test-convert-get-on-local-variable</a>/12"</span>) +<span id="L7347" class="LineNr"> 7347 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7301'>test-convert-get-on-local-variable</a>/13"</span>) +<span id="L7348" class="LineNr"> 7348 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-get-on-local-variable/14"</span>) +<span id="L7349" class="LineNr"> 7349 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7301'>test-convert-get-on-local-variable</a>/15"</span>) +<span id="L7350" class="LineNr"> 7350 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7301'>test-convert-get-on-local-variable</a>/16"</span>) +<span id="L7351" class="LineNr"> 7351 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7301'>test-convert-get-on-local-variable</a>/17"</span>) +<span id="L7352" class="LineNr"> 7352 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7353" class="LineNr"> 7353 </span> 89/<- %esp 5/r32/ebp +<span id="L7354" class="LineNr"> 7354 </span> 5d/pop-to-ebp +<span id="L7355" class="LineNr"> 7355 </span> c3/return +<span id="L7356" class="LineNr"> 7356 </span> +<span id="L7357" class="LineNr"> 7357 </span><span class="subxTest">test-convert-get-on-function-argument</span>: +<span id="L7358" class="LineNr"> 7358 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7359" class="LineNr"> 7359 </span> 55/push-ebp +<span id="L7360" class="LineNr"> 7360 </span> 89/<- %ebp 4/r32/esp +<span id="L7361" class="LineNr"> 7361 </span> <span class="subxComment"># setup</span> +<span id="L7362" class="LineNr"> 7362 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7363" class="LineNr"> 7363 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7364" class="LineNr"> 7364 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7365" class="LineNr"> 7365 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7366" class="LineNr"> 7366 </span> <span class="subxComment">#</span> +<span id="L7367" class="LineNr"> 7367 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo a: t {\n"</span>) +<span id="L7368" class="LineNr"> 7368 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> a, y\n"</span>) +<span id="L7369" class="LineNr"> 7369 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7370" class="LineNr"> 7370 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L7371" class="LineNr"> 7371 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L7372" class="LineNr"> 7372 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) +<span id="L7373" class="LineNr"> 7373 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7374" class="LineNr"> 7374 </span> <span class="subxComment"># convert</span> +<span id="L7375" class="LineNr"> 7375 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L7376" class="LineNr"> 7376 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7377" class="Folded"> 7377 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7383" class="LineNr"> 7383 </span> <span class="subxComment"># check output</span> +<span id="L7384" class="LineNr"> 7384 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7357'>test-convert-get-on-function-argument</a>/0"</span>) +<span id="L7385" class="LineNr"> 7385 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-get-on-function-argument/1"</span>) +<span id="L7386" class="LineNr"> 7386 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7357'>test-convert-get-on-function-argument</a>/2"</span>) +<span id="L7387" class="LineNr"> 7387 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7357'>test-convert-get-on-function-argument</a>/3"</span>) +<span id="L7388" class="LineNr"> 7388 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7357'>test-convert-get-on-function-argument</a>/4"</span>) +<span id="L7389" class="LineNr"> 7389 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7357'>test-convert-get-on-function-argument</a>/5"</span>) +<span id="L7390" class="LineNr"> 7390 </span> <span class="subxComment"># var c</span> +<span id="L7391" class="LineNr"> 7391 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7357'>test-convert-get-on-function-argument</a>/6"</span>) +<span id="L7392" class="LineNr"> 7392 </span> <span class="subxComment"># get</span> +<span id="L7393" class="LineNr"> 7393 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp+0x0000000c) 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7357'>test-convert-get-on-function-argument</a>/7"</span>) +<span id="L7394" class="LineNr"> 7394 </span> <span class="subxComment"># reclaim c</span> +<span id="L7395" class="LineNr"> 7395 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7357'>test-convert-get-on-function-argument</a>/8"</span>) +<span id="L7396" class="LineNr"> 7396 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7357'>test-convert-get-on-function-argument</a>/9"</span>) +<span id="L7397" class="LineNr"> 7397 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7357'>test-convert-get-on-function-argument</a>/10"</span>) +<span id="L7398" class="LineNr"> 7398 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-get-on-function-argument/11"</span>) +<span id="L7399" class="LineNr"> 7399 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7357'>test-convert-get-on-function-argument</a>/12"</span>) +<span id="L7400" class="LineNr"> 7400 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7357'>test-convert-get-on-function-argument</a>/13"</span>) +<span id="L7401" class="LineNr"> 7401 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7357'>test-convert-get-on-function-argument</a>/14"</span>) +<span id="L7402" class="LineNr"> 7402 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7403" class="LineNr"> 7403 </span> 89/<- %esp 5/r32/ebp +<span id="L7404" class="LineNr"> 7404 </span> 5d/pop-to-ebp +<span id="L7405" class="LineNr"> 7405 </span> c3/return +<span id="L7406" class="LineNr"> 7406 </span> +<span id="L7407" class="LineNr"> 7407 </span><span class="subxTest">test-convert-get-on-function-argument-with-known-type</span>: +<span id="L7408" class="LineNr"> 7408 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7409" class="LineNr"> 7409 </span> 55/push-ebp +<span id="L7410" class="LineNr"> 7410 </span> 89/<- %ebp 4/r32/esp +<span id="L7411" class="LineNr"> 7411 </span> <span class="subxComment"># setup</span> +<span id="L7412" class="LineNr"> 7412 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7413" class="LineNr"> 7413 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7414" class="LineNr"> 7414 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7415" class="LineNr"> 7415 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7416" class="LineNr"> 7416 </span> <span class="subxComment">#</span> +<span id="L7417" class="LineNr"> 7417 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L7418" class="LineNr"> 7418 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L7419" class="LineNr"> 7419 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) +<span id="L7420" class="LineNr"> 7420 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7421" class="LineNr"> 7421 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo a: t {\n"</span>) +<span id="L7422" class="LineNr"> 7422 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> a, y\n"</span>) +<span id="L7423" class="LineNr"> 7423 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7424" class="LineNr"> 7424 </span> <span class="subxComment"># convert</span> +<span id="L7425" class="LineNr"> 7425 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L7426" class="LineNr"> 7426 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7427" class="Folded"> 7427 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7433" class="LineNr"> 7433 </span> <span class="subxComment"># check output</span> +<span id="L7434" class="LineNr"> 7434 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7407'>test-convert-get-on-function-argument-with-known-type</a>/0"</span>) +<span id="L7435" class="LineNr"> 7435 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-get-on-function-argument-with-known-type/1"</span>) +<span id="L7436" class="LineNr"> 7436 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7407'>test-convert-get-on-function-argument-with-known-type</a>/2"</span>) +<span id="L7437" class="LineNr"> 7437 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7407'>test-convert-get-on-function-argument-with-known-type</a>/3"</span>) +<span id="L7438" class="LineNr"> 7438 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7407'>test-convert-get-on-function-argument-with-known-type</a>/4"</span>) +<span id="L7439" class="LineNr"> 7439 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7407'>test-convert-get-on-function-argument-with-known-type</a>/5"</span>) +<span id="L7440" class="LineNr"> 7440 </span> <span class="subxComment"># var c</span> +<span id="L7441" class="LineNr"> 7441 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7407'>test-convert-get-on-function-argument-with-known-type</a>/6"</span>) +<span id="L7442" class="LineNr"> 7442 </span> <span class="subxComment"># get</span> +<span id="L7443" class="LineNr"> 7443 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp+0x0000000c) 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7407'>test-convert-get-on-function-argument-with-known-type</a>/7"</span>) +<span id="L7444" class="LineNr"> 7444 </span> <span class="subxComment"># reclaim c</span> +<span id="L7445" class="LineNr"> 7445 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7407'>test-convert-get-on-function-argument-with-known-type</a>/8"</span>) +<span id="L7446" class="LineNr"> 7446 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7407'>test-convert-get-on-function-argument-with-known-type</a>/9"</span>) +<span id="L7447" class="LineNr"> 7447 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7407'>test-convert-get-on-function-argument-with-known-type</a>/10"</span>) +<span id="L7448" class="LineNr"> 7448 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-get-on-function-argument-with-known-type/11"</span>) +<span id="L7449" class="LineNr"> 7449 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7407'>test-convert-get-on-function-argument-with-known-type</a>/12"</span>) +<span id="L7450" class="LineNr"> 7450 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7407'>test-convert-get-on-function-argument-with-known-type</a>/13"</span>) +<span id="L7451" class="LineNr"> 7451 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7407'>test-convert-get-on-function-argument-with-known-type</a>/14"</span>) +<span id="L7452" class="LineNr"> 7452 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7453" class="LineNr"> 7453 </span> 89/<- %esp 5/r32/ebp +<span id="L7454" class="LineNr"> 7454 </span> 5d/pop-to-ebp +<span id="L7455" class="LineNr"> 7455 </span> c3/return +<span id="L7456" class="LineNr"> 7456 </span> +<span id="L7457" class="LineNr"> 7457 </span><span class="subxTest">test-add-with-too-many-inouts</span>: +<span id="L7458" class="LineNr"> 7458 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7459" class="LineNr"> 7459 </span> 55/push-ebp +<span id="L7460" class="LineNr"> 7460 </span> 89/<- %ebp 4/r32/esp +<span id="L7461" class="LineNr"> 7461 </span> <span class="subxComment"># setup</span> +<span id="L7462" class="LineNr"> 7462 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7463" class="LineNr"> 7463 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7464" class="LineNr"> 7464 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7465" class="LineNr"> 7465 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7466" class="LineNr"> 7466 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L7467" class="LineNr"> 7467 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7468" class="LineNr"> 7468 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7469" class="LineNr"> 7469 </span> 68/push 0/imm32 +<span id="L7470" class="LineNr"> 7470 </span> 68/push 0/imm32 +<span id="L7471" class="LineNr"> 7471 </span> 89/<- %edx 4/r32/esp +<span id="L7472" class="LineNr"> 7472 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7473" class="LineNr"> 7473 </span> <span class="subxComment">#</span> +<span id="L7474" class="LineNr"> 7474 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7475" class="LineNr"> 7475 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) +<span id="L7476" class="LineNr"> 7476 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/ecx: int <- add a, 0\n"</span>) +<span id="L7477" class="LineNr"> 7477 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7478" class="LineNr"> 7478 </span> <span class="subxComment"># convert</span> +<span id="L7479" class="LineNr"> 7479 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L7480" class="LineNr"> 7480 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7481" class="LineNr"> 7481 </span> <span class="subxComment"># restore ed</span> +<span id="L7482" class="LineNr"> 7482 </span> 89/<- %edx 4/r32/esp +<span id="L7483" class="LineNr"> 7483 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7484" class="LineNr"> 7484 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L7485" class="Folded"> 7485 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7491" class="LineNr"> 7491 </span> <span class="subxComment"># check output</span> +<span id="L7492" class="LineNr"> 7492 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7457'>test-add-with-too-many-inouts</a>: output should be empty"</span>) +<span id="L7493" class="LineNr"> 7493 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt add: too many inouts; most primitives support at most two arguments, across inouts and outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L7457'>test-add-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L7494" class="LineNr"> 7494 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7495" class="LineNr"> 7495 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7457'>test-add-with-too-many-inouts</a>: exit status"</span>) +<span id="L7496" class="LineNr"> 7496 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7497" class="LineNr"> 7497 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7498" class="LineNr"> 7498 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7499" class="LineNr"> 7499 </span> 5d/pop-to-ebp +<span id="L7500" class="LineNr"> 7500 </span> c3/return +<span id="L7501" class="LineNr"> 7501 </span> +<span id="L7502" class="LineNr"> 7502 </span><span class="subxTest">test-add-with-too-many-inouts-2</span>: +<span id="L7503" class="LineNr"> 7503 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7504" class="LineNr"> 7504 </span> 55/push-ebp +<span id="L7505" class="LineNr"> 7505 </span> 89/<- %ebp 4/r32/esp +<span id="L7506" class="LineNr"> 7506 </span> <span class="subxComment"># setup</span> +<span id="L7507" class="LineNr"> 7507 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7508" class="LineNr"> 7508 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7509" class="LineNr"> 7509 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7510" class="LineNr"> 7510 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7511" class="LineNr"> 7511 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L7512" class="LineNr"> 7512 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7513" class="LineNr"> 7513 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7514" class="LineNr"> 7514 </span> 68/push 0/imm32 +<span id="L7515" class="LineNr"> 7515 </span> 68/push 0/imm32 +<span id="L7516" class="LineNr"> 7516 </span> 89/<- %edx 4/r32/esp +<span id="L7517" class="LineNr"> 7517 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7518" class="LineNr"> 7518 </span> <span class="subxComment">#</span> +<span id="L7519" class="LineNr"> 7519 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7520" class="LineNr"> 7520 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) +<span id="L7521" class="LineNr"> 7521 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" add-to a, 0, 1\n"</span>) +<span id="L7522" class="LineNr"> 7522 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7523" class="LineNr"> 7523 </span> <span class="subxComment"># convert</span> +<span id="L7524" class="LineNr"> 7524 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L7525" class="LineNr"> 7525 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7526" class="LineNr"> 7526 </span> <span class="subxComment"># restore ed</span> +<span id="L7527" class="LineNr"> 7527 </span> 89/<- %edx 4/r32/esp +<span id="L7528" class="LineNr"> 7528 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7529" class="LineNr"> 7529 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L7530" class="Folded"> 7530 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7536" class="LineNr"> 7536 </span> <span class="subxComment"># check output</span> +<span id="L7537" class="LineNr"> 7537 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7502'>test-add-with-too-many-inouts-2</a>: output should be empty"</span>) +<span id="L7538" class="LineNr"> 7538 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt add-to: too many inouts; most primitives support at most two arguments, across inouts and outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L7502'>test-add-with-too-many-inouts-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L7539" class="LineNr"> 7539 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7540" class="LineNr"> 7540 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7502'>test-add-with-too-many-inouts-2</a>: exit status"</span>) +<span id="L7541" class="LineNr"> 7541 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7542" class="LineNr"> 7542 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7543" class="LineNr"> 7543 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7544" class="LineNr"> 7544 </span> 5d/pop-to-ebp +<span id="L7545" class="LineNr"> 7545 </span> c3/return +<span id="L7546" class="LineNr"> 7546 </span> +<span id="L7547" class="LineNr"> 7547 </span><span class="subxTest">test-add-with-too-many-outputs</span>: +<span id="L7548" class="LineNr"> 7548 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7549" class="LineNr"> 7549 </span> 55/push-ebp +<span id="L7550" class="LineNr"> 7550 </span> 89/<- %ebp 4/r32/esp +<span id="L7551" class="LineNr"> 7551 </span> <span class="subxComment"># setup</span> +<span id="L7552" class="LineNr"> 7552 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7553" class="LineNr"> 7553 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7554" class="LineNr"> 7554 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7555" class="LineNr"> 7555 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7556" class="LineNr"> 7556 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L7557" class="LineNr"> 7557 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7558" class="LineNr"> 7558 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7559" class="LineNr"> 7559 </span> 68/push 0/imm32 +<span id="L7560" class="LineNr"> 7560 </span> 68/push 0/imm32 +<span id="L7561" class="LineNr"> 7561 </span> 89/<- %edx 4/r32/esp +<span id="L7562" class="LineNr"> 7562 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7563" class="LineNr"> 7563 </span> <span class="subxComment">#</span> +<span id="L7564" class="LineNr"> 7564 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7565" class="LineNr"> 7565 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: int <- copy 0\n"</span>) +<span id="L7566" class="LineNr"> 7566 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/ebx: int <- copy 0\n"</span>) +<span id="L7567" class="LineNr"> 7567 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: int <- copy 0\n"</span>) +<span id="L7568" class="LineNr"> 7568 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" c, b <- add a\n"</span>) +<span id="L7569" class="LineNr"> 7569 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7570" class="LineNr"> 7570 </span> <span class="subxComment"># convert</span> +<span id="L7571" class="LineNr"> 7571 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L7572" class="LineNr"> 7572 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7573" class="LineNr"> 7573 </span> <span class="subxComment"># restore ed</span> +<span id="L7574" class="LineNr"> 7574 </span> 89/<- %edx 4/r32/esp +<span id="L7575" class="LineNr"> 7575 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7576" class="LineNr"> 7576 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L7577" class="Folded"> 7577 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7583" class="LineNr"> 7583 </span> <span class="subxComment"># check output</span> +<span id="L7584" class="LineNr"> 7584 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7547'>test-add-with-too-many-outputs</a>: output should be empty"</span>) +<span id="L7585" class="LineNr"> 7585 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt add: too many outputs; most primitives support at most one output"</span> <span class="Constant">"F - <a href='mu.subx.html#L7547'>test-add-with-too-many-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L7586" class="LineNr"> 7586 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7587" class="LineNr"> 7587 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7547'>test-add-with-too-many-outputs</a>: exit status"</span>) +<span id="L7588" class="LineNr"> 7588 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7589" class="LineNr"> 7589 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7590" class="LineNr"> 7590 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7591" class="LineNr"> 7591 </span> 5d/pop-to-ebp +<span id="L7592" class="LineNr"> 7592 </span> c3/return +<span id="L7593" class="LineNr"> 7593 </span> +<span id="L7594" class="LineNr"> 7594 </span><span class="subxTest">test-add-with-non-number</span>: +<span id="L7595" class="LineNr"> 7595 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7596" class="LineNr"> 7596 </span> 55/push-ebp +<span id="L7597" class="LineNr"> 7597 </span> 89/<- %ebp 4/r32/esp +<span id="L7598" class="LineNr"> 7598 </span> <span class="subxComment"># setup</span> +<span id="L7599" class="LineNr"> 7599 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7600" class="LineNr"> 7600 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7601" class="LineNr"> 7601 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7602" class="LineNr"> 7602 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7603" class="LineNr"> 7603 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L7604" class="LineNr"> 7604 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7605" class="LineNr"> 7605 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7606" class="LineNr"> 7606 </span> 68/push 0/imm32 +<span id="L7607" class="LineNr"> 7607 </span> 68/push 0/imm32 +<span id="L7608" class="LineNr"> 7608 </span> 89/<- %edx 4/r32/esp +<span id="L7609" class="LineNr"> 7609 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7610" class="LineNr"> 7610 </span> <span class="subxComment">#</span> +<span id="L7611" class="LineNr"> 7611 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7612" class="LineNr"> 7612 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) +<span id="L7613" class="LineNr"> 7613 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/ecx: (addr int) <- add a\n"</span>) +<span id="L7614" class="LineNr"> 7614 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7615" class="LineNr"> 7615 </span> <span class="subxComment"># convert</span> +<span id="L7616" class="LineNr"> 7616 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L7617" class="LineNr"> 7617 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7618" class="LineNr"> 7618 </span> <span class="subxComment"># restore ed</span> +<span id="L7619" class="LineNr"> 7619 </span> 89/<- %edx 4/r32/esp +<span id="L7620" class="LineNr"> 7620 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7621" class="LineNr"> 7621 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L7622" class="Folded"> 7622 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7628" class="LineNr"> 7628 </span> <span class="subxComment"># check output</span> +<span id="L7629" class="LineNr"> 7629 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7594'>test-add-with-non-number</a>: output should be empty"</span>) +<span id="L7630" class="LineNr"> 7630 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt add: 'b' must be a non-addr non-offset scalar"</span> <span class="Constant">"F - <a href='mu.subx.html#L7594'>test-add-with-non-number</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L7631" class="LineNr"> 7631 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7632" class="LineNr"> 7632 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7594'>test-add-with-non-number</a>: exit status"</span>) +<span id="L7633" class="LineNr"> 7633 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7634" class="LineNr"> 7634 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7635" class="LineNr"> 7635 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7636" class="LineNr"> 7636 </span> 5d/pop-to-ebp +<span id="L7637" class="LineNr"> 7637 </span> c3/return +<span id="L7638" class="LineNr"> 7638 </span> +<span id="L7639" class="LineNr"> 7639 </span><span class="subxTest">test-add-with-addr-dereferenced</span>: +<span id="L7640" class="LineNr"> 7640 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7641" class="LineNr"> 7641 </span> 55/push-ebp +<span id="L7642" class="LineNr"> 7642 </span> 89/<- %ebp 4/r32/esp +<span id="L7643" class="LineNr"> 7643 </span> <span class="subxComment"># setup</span> +<span id="L7644" class="LineNr"> 7644 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7645" class="LineNr"> 7645 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7646" class="LineNr"> 7646 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7647" class="LineNr"> 7647 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7648" class="LineNr"> 7648 </span> <span class="subxComment">#</span> +<span id="L7649" class="LineNr"> 7649 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7650" class="LineNr"> 7650 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr int) <- copy 0\n"</span>) +<span id="L7651" class="LineNr"> 7651 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" add-to *a, 1\n"</span>) +<span id="L7652" class="LineNr"> 7652 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7653" class="LineNr"> 7653 </span> <span class="subxComment"># convert</span> +<span id="L7654" class="LineNr"> 7654 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L7655" class="LineNr"> 7655 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7656" class="LineNr"> 7656 </span> <span class="subxComment"># no error</span> +<span id="L7657" class="LineNr"> 7657 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7658" class="LineNr"> 7658 </span> 89/<- %esp 5/r32/ebp +<span id="L7659" class="LineNr"> 7659 </span> 5d/pop-to-ebp +<span id="L7660" class="LineNr"> 7660 </span> c3/return +<span id="L7661" class="LineNr"> 7661 </span> +<span id="L7662" class="LineNr"> 7662 </span><span class="subxTest">test-copy-with-no-inout</span>: +<span id="L7663" class="LineNr"> 7663 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7664" class="LineNr"> 7664 </span> 55/push-ebp +<span id="L7665" class="LineNr"> 7665 </span> 89/<- %ebp 4/r32/esp +<span id="L7666" class="LineNr"> 7666 </span> <span class="subxComment"># setup</span> +<span id="L7667" class="LineNr"> 7667 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7668" class="LineNr"> 7668 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7669" class="LineNr"> 7669 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7670" class="LineNr"> 7670 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7671" class="LineNr"> 7671 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L7672" class="LineNr"> 7672 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7673" class="LineNr"> 7673 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7674" class="LineNr"> 7674 </span> 68/push 0/imm32 +<span id="L7675" class="LineNr"> 7675 </span> 68/push 0/imm32 +<span id="L7676" class="LineNr"> 7676 </span> 89/<- %edx 4/r32/esp +<span id="L7677" class="LineNr"> 7677 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7678" class="LineNr"> 7678 </span> <span class="subxComment">#</span> +<span id="L7679" class="LineNr"> 7679 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7680" class="LineNr"> 7680 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy\n"</span>) +<span id="L7681" class="LineNr"> 7681 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7682" class="LineNr"> 7682 </span> <span class="subxComment"># convert</span> +<span id="L7683" class="LineNr"> 7683 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L7684" class="LineNr"> 7684 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7685" class="LineNr"> 7685 </span> <span class="subxComment"># restore ed</span> +<span id="L7686" class="LineNr"> 7686 </span> 89/<- %edx 4/r32/esp +<span id="L7687" class="LineNr"> 7687 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7688" class="LineNr"> 7688 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L7689" class="Folded"> 7689 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7695" class="LineNr"> 7695 </span> <span class="subxComment"># check output</span> +<span id="L7696" class="LineNr"> 7696 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7662'>test-copy-with-no-inout</a>: output should be empty"</span>) +<span id="L7697" class="LineNr"> 7697 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy' expects an inout"</span> <span class="Constant">"F - <a href='mu.subx.html#L7662'>test-copy-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L7698" class="LineNr"> 7698 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7699" class="LineNr"> 7699 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7662'>test-copy-with-no-inout</a>: exit status"</span>) +<span id="L7700" class="LineNr"> 7700 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7701" class="LineNr"> 7701 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7702" class="LineNr"> 7702 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7703" class="LineNr"> 7703 </span> 5d/pop-to-ebp +<span id="L7704" class="LineNr"> 7704 </span> c3/return +<span id="L7705" class="LineNr"> 7705 </span> +<span id="L7706" class="LineNr"> 7706 </span><span class="subxTest">test-copy-with-multiple-inouts</span>: +<span id="L7707" class="LineNr"> 7707 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7708" class="LineNr"> 7708 </span> 55/push-ebp +<span id="L7709" class="LineNr"> 7709 </span> 89/<- %ebp 4/r32/esp +<span id="L7710" class="LineNr"> 7710 </span> <span class="subxComment"># setup</span> +<span id="L7711" class="LineNr"> 7711 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7712" class="LineNr"> 7712 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7713" class="LineNr"> 7713 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7714" class="LineNr"> 7714 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7715" class="LineNr"> 7715 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L7716" class="LineNr"> 7716 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7717" class="LineNr"> 7717 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7718" class="LineNr"> 7718 </span> 68/push 0/imm32 +<span id="L7719" class="LineNr"> 7719 </span> 68/push 0/imm32 +<span id="L7720" class="LineNr"> 7720 </span> 89/<- %edx 4/r32/esp +<span id="L7721" class="LineNr"> 7721 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7722" class="LineNr"> 7722 </span> <span class="subxComment">#</span> +<span id="L7723" class="LineNr"> 7723 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7724" class="LineNr"> 7724 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy 0, 0\n"</span>) +<span id="L7725" class="LineNr"> 7725 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7726" class="LineNr"> 7726 </span> <span class="subxComment"># convert</span> +<span id="L7727" class="LineNr"> 7727 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L7728" class="LineNr"> 7728 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7729" class="LineNr"> 7729 </span> <span class="subxComment"># restore ed</span> +<span id="L7730" class="LineNr"> 7730 </span> 89/<- %edx 4/r32/esp +<span id="L7731" class="LineNr"> 7731 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7732" class="LineNr"> 7732 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L7733" class="Folded"> 7733 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7739" class="LineNr"> 7739 </span> <span class="subxComment"># check output</span> +<span id="L7740" class="LineNr"> 7740 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7706'>test-copy-with-multiple-inouts</a>: output should be empty"</span>) +<span id="L7741" class="LineNr"> 7741 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy' must have just one inout"</span> <span class="Constant">"F - <a href='mu.subx.html#L7706'>test-copy-with-multiple-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L7742" class="LineNr"> 7742 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7743" class="LineNr"> 7743 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7706'>test-copy-with-multiple-inouts</a>: exit status"</span>) +<span id="L7744" class="LineNr"> 7744 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7745" class="LineNr"> 7745 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7746" class="LineNr"> 7746 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7747" class="LineNr"> 7747 </span> 5d/pop-to-ebp +<span id="L7748" class="LineNr"> 7748 </span> c3/return +<span id="L7749" class="LineNr"> 7749 </span> +<span id="L7750" class="LineNr"> 7750 </span><span class="subxTest">test-copy-with-no-output</span>: +<span id="L7751" class="LineNr"> 7751 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7752" class="LineNr"> 7752 </span> 55/push-ebp +<span id="L7753" class="LineNr"> 7753 </span> 89/<- %ebp 4/r32/esp +<span id="L7754" class="LineNr"> 7754 </span> <span class="subxComment"># setup</span> +<span id="L7755" class="LineNr"> 7755 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7756" class="LineNr"> 7756 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7757" class="LineNr"> 7757 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7758" class="LineNr"> 7758 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7759" class="LineNr"> 7759 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L7760" class="LineNr"> 7760 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7761" class="LineNr"> 7761 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7762" class="LineNr"> 7762 </span> 68/push 0/imm32 +<span id="L7763" class="LineNr"> 7763 </span> 68/push 0/imm32 +<span id="L7764" class="LineNr"> 7764 </span> 89/<- %edx 4/r32/esp +<span id="L7765" class="LineNr"> 7765 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7766" class="LineNr"> 7766 </span> <span class="subxComment">#</span> +<span id="L7767" class="LineNr"> 7767 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7768" class="LineNr"> 7768 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy 0\n"</span>) +<span id="L7769" class="LineNr"> 7769 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7770" class="LineNr"> 7770 </span> <span class="subxComment"># convert</span> +<span id="L7771" class="LineNr"> 7771 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L7772" class="LineNr"> 7772 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7773" class="LineNr"> 7773 </span> <span class="subxComment"># restore ed</span> +<span id="L7774" class="LineNr"> 7774 </span> 89/<- %edx 4/r32/esp +<span id="L7775" class="LineNr"> 7775 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7776" class="LineNr"> 7776 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L7777" class="Folded"> 7777 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7783" class="LineNr"> 7783 </span> <span class="subxComment"># check output</span> +<span id="L7784" class="LineNr"> 7784 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7750'>test-copy-with-no-output</a>: output should be empty"</span>) +<span id="L7785" class="LineNr"> 7785 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy' expects an output"</span> <span class="Constant">"F - <a href='mu.subx.html#L7750'>test-copy-with-no-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L7786" class="LineNr"> 7786 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7787" class="LineNr"> 7787 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7750'>test-copy-with-no-output</a>: exit status"</span>) +<span id="L7788" class="LineNr"> 7788 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7789" class="LineNr"> 7789 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7790" class="LineNr"> 7790 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7791" class="LineNr"> 7791 </span> 5d/pop-to-ebp +<span id="L7792" class="LineNr"> 7792 </span> c3/return +<span id="L7793" class="LineNr"> 7793 </span> +<span id="L7794" class="LineNr"> 7794 </span><span class="subxTest">test-copy-with-multiple-outputs</span>: +<span id="L7795" class="LineNr"> 7795 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7796" class="LineNr"> 7796 </span> 55/push-ebp +<span id="L7797" class="LineNr"> 7797 </span> 89/<- %ebp 4/r32/esp +<span id="L7798" class="LineNr"> 7798 </span> <span class="subxComment"># setup</span> +<span id="L7799" class="LineNr"> 7799 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7800" class="LineNr"> 7800 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7801" class="LineNr"> 7801 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7802" class="LineNr"> 7802 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7803" class="LineNr"> 7803 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L7804" class="LineNr"> 7804 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7805" class="LineNr"> 7805 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7806" class="LineNr"> 7806 </span> 68/push 0/imm32 +<span id="L7807" class="LineNr"> 7807 </span> 68/push 0/imm32 +<span id="L7808" class="LineNr"> 7808 </span> 89/<- %edx 4/r32/esp +<span id="L7809" class="LineNr"> 7809 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7810" class="LineNr"> 7810 </span> <span class="subxComment">#</span> +<span id="L7811" class="LineNr"> 7811 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7812" class="LineNr"> 7812 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy 0\n"</span>) +<span id="L7813" class="LineNr"> 7813 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: boolean <- copy 0\n"</span>) +<span id="L7814" class="LineNr"> 7814 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x, y <- copy 0\n"</span>) +<span id="L7815" class="LineNr"> 7815 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7816" class="LineNr"> 7816 </span> <span class="subxComment"># convert</span> +<span id="L7817" class="LineNr"> 7817 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L7818" class="LineNr"> 7818 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7819" class="LineNr"> 7819 </span> <span class="subxComment"># restore ed</span> +<span id="L7820" class="LineNr"> 7820 </span> 89/<- %edx 4/r32/esp +<span id="L7821" class="LineNr"> 7821 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7822" class="LineNr"> 7822 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L7823" class="Folded"> 7823 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7829" class="LineNr"> 7829 </span> <span class="subxComment"># check output</span> +<span id="L7830" class="LineNr"> 7830 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7794'>test-copy-with-multiple-outputs</a>: output should be empty"</span>) +<span id="L7831" class="LineNr"> 7831 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy' must have just one output"</span> <span class="Constant">"F - <a href='mu.subx.html#L7794'>test-copy-with-multiple-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L7832" class="LineNr"> 7832 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7833" class="LineNr"> 7833 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7794'>test-copy-with-multiple-outputs</a>: exit status"</span>) +<span id="L7834" class="LineNr"> 7834 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7835" class="LineNr"> 7835 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7836" class="LineNr"> 7836 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7837" class="LineNr"> 7837 </span> 5d/pop-to-ebp +<span id="L7838" class="LineNr"> 7838 </span> c3/return +<span id="L7839" class="LineNr"> 7839 </span> +<span id="L7840" class="LineNr"> 7840 </span><span class="subxTest">test-copy-invalid-value-to-address</span>: +<span id="L7841" class="LineNr"> 7841 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7842" class="LineNr"> 7842 </span> 55/push-ebp +<span id="L7843" class="LineNr"> 7843 </span> 89/<- %ebp 4/r32/esp +<span id="L7844" class="LineNr"> 7844 </span> <span class="subxComment"># setup</span> +<span id="L7845" class="LineNr"> 7845 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7846" class="LineNr"> 7846 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7847" class="LineNr"> 7847 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7848" class="LineNr"> 7848 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7849" class="LineNr"> 7849 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L7850" class="LineNr"> 7850 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7851" class="LineNr"> 7851 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7852" class="LineNr"> 7852 </span> 68/push 0/imm32 +<span id="L7853" class="LineNr"> 7853 </span> 68/push 0/imm32 +<span id="L7854" class="LineNr"> 7854 </span> 89/<- %edx 4/r32/esp +<span id="L7855" class="LineNr"> 7855 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7856" class="LineNr"> 7856 </span> <span class="subxComment">#</span> +<span id="L7857" class="LineNr"> 7857 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7858" class="LineNr"> 7858 </span> (<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="L7859" class="LineNr"> 7859 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr int) <- copy x\n"</span>) +<span id="L7860" class="LineNr"> 7860 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7861" class="LineNr"> 7861 </span> <span class="subxComment"># convert</span> +<span id="L7862" class="LineNr"> 7862 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L7863" class="LineNr"> 7863 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7864" class="LineNr"> 7864 </span> <span class="subxComment"># restore ed</span> +<span id="L7865" class="LineNr"> 7865 </span> 89/<- %edx 4/r32/esp +<span id="L7866" class="LineNr"> 7866 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7867" class="LineNr"> 7867 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L7868" class="Folded"> 7868 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7874" class="LineNr"> 7874 </span> <span class="subxComment"># check output</span> +<span id="L7875" class="LineNr"> 7875 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7840'>test-copy-invalid-value-to-address</a>: output should be empty"</span>) +<span id="L7876" class="LineNr"> 7876 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy: 'y' must be a non-addr non-offset scalar"</span> <span class="Constant">"F - <a href='mu.subx.html#L7840'>test-copy-invalid-value-to-address</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L7877" class="LineNr"> 7877 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7878" class="LineNr"> 7878 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7840'>test-copy-invalid-value-to-address</a>: exit status"</span>) +<span id="L7879" class="LineNr"> 7879 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7880" class="LineNr"> 7880 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7881" class="LineNr"> 7881 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7882" class="LineNr"> 7882 </span> 5d/pop-to-ebp +<span id="L7883" class="LineNr"> 7883 </span> c3/return +<span id="L7884" class="LineNr"> 7884 </span> +<span id="L7885" class="LineNr"> 7885 </span><span class="subxTest">test-copy-null-value-to-address</span>: +<span id="L7886" class="LineNr"> 7886 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7887" class="LineNr"> 7887 </span> 55/push-ebp +<span id="L7888" class="LineNr"> 7888 </span> 89/<- %ebp 4/r32/esp +<span id="L7889" class="LineNr"> 7889 </span> <span class="subxComment"># setup</span> +<span id="L7890" class="LineNr"> 7890 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7891" class="LineNr"> 7891 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7892" class="LineNr"> 7892 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7893" class="LineNr"> 7893 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7894" class="LineNr"> 7894 </span> <span class="subxComment">#</span> +<span id="L7895" class="LineNr"> 7895 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7896" class="LineNr"> 7896 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr int) <- copy 0\n"</span>) +<span id="L7897" class="LineNr"> 7897 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7898" class="LineNr"> 7898 </span> <span class="subxComment"># convert</span> +<span id="L7899" class="LineNr"> 7899 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L7900" class="LineNr"> 7900 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7901" class="LineNr"> 7901 </span> <span class="subxComment"># no errors</span> +<span id="L7902" class="LineNr"> 7902 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7903" class="LineNr"> 7903 </span> 89/<- %esp 5/r32/ebp +<span id="L7904" class="LineNr"> 7904 </span> 5d/pop-to-ebp +<span id="L7905" class="LineNr"> 7905 </span> c3/return +<span id="L7906" class="LineNr"> 7906 </span> +<span id="L7907" class="LineNr"> 7907 </span><span class="subxTest">test-copy-invalid-value-to-offset</span>: +<span id="L7908" class="LineNr"> 7908 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7909" class="LineNr"> 7909 </span> 55/push-ebp +<span id="L7910" class="LineNr"> 7910 </span> 89/<- %ebp 4/r32/esp +<span id="L7911" class="LineNr"> 7911 </span> <span class="subxComment"># setup</span> +<span id="L7912" class="LineNr"> 7912 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7913" class="LineNr"> 7913 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7914" class="LineNr"> 7914 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7915" class="LineNr"> 7915 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7916" class="LineNr"> 7916 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L7917" class="LineNr"> 7917 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7918" class="LineNr"> 7918 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7919" class="LineNr"> 7919 </span> 68/push 0/imm32 +<span id="L7920" class="LineNr"> 7920 </span> 68/push 0/imm32 +<span id="L7921" class="LineNr"> 7921 </span> 89/<- %edx 4/r32/esp +<span id="L7922" class="LineNr"> 7922 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7923" class="LineNr"> 7923 </span> <span class="subxComment">#</span> +<span id="L7924" class="LineNr"> 7924 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7925" class="LineNr"> 7925 </span> (<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="L7926" class="LineNr"> 7926 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (offset int) <- copy x\n"</span>) +<span id="L7927" class="LineNr"> 7927 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7928" class="LineNr"> 7928 </span> <span class="subxComment"># convert</span> +<span id="L7929" class="LineNr"> 7929 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L7930" class="LineNr"> 7930 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7931" class="LineNr"> 7931 </span> <span class="subxComment"># restore ed</span> +<span id="L7932" class="LineNr"> 7932 </span> 89/<- %edx 4/r32/esp +<span id="L7933" class="LineNr"> 7933 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7934" class="LineNr"> 7934 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L7935" class="Folded"> 7935 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7941" class="LineNr"> 7941 </span> <span class="subxComment"># check output</span> +<span id="L7942" class="LineNr"> 7942 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7840'>test-copy-invalid-value-to-address</a>: output should be empty"</span>) +<span id="L7943" class="LineNr"> 7943 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy: 'y' must be a non-addr non-offset scalar"</span> <span class="Constant">"F - <a href='mu.subx.html#L7840'>test-copy-invalid-value-to-address</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L7944" class="LineNr"> 7944 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7945" class="LineNr"> 7945 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7907'>test-copy-invalid-value-to-offset</a>: exit status"</span>) +<span id="L7946" class="LineNr"> 7946 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7947" class="LineNr"> 7947 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7948" class="LineNr"> 7948 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7949" class="LineNr"> 7949 </span> 5d/pop-to-ebp +<span id="L7950" class="LineNr"> 7950 </span> c3/return +<span id="L7951" class="LineNr"> 7951 </span> +<span id="L7952" class="LineNr"> 7952 </span><span class="subxTest">test-copy-null-value-to-offset</span>: +<span id="L7953" class="LineNr"> 7953 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7954" class="LineNr"> 7954 </span> 55/push-ebp +<span id="L7955" class="LineNr"> 7955 </span> 89/<- %ebp 4/r32/esp +<span id="L7956" class="LineNr"> 7956 </span> <span class="subxComment"># setup</span> +<span id="L7957" class="LineNr"> 7957 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7958" class="LineNr"> 7958 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7959" class="LineNr"> 7959 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7960" class="LineNr"> 7960 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7961" class="LineNr"> 7961 </span> <span class="subxComment">#</span> +<span id="L7962" class="LineNr"> 7962 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7963" class="LineNr"> 7963 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (offset int) <- copy 0\n"</span>) +<span id="L7964" class="LineNr"> 7964 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7965" class="LineNr"> 7965 </span> <span class="subxComment"># convert</span> +<span id="L7966" class="LineNr"> 7966 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L7967" class="LineNr"> 7967 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7968" class="Folded"> 7968 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7974" class="LineNr"> 7974 </span> <span class="subxComment"># no errors</span> +<span id="L7975" class="LineNr"> 7975 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7976" class="LineNr"> 7976 </span> 89/<- %esp 5/r32/ebp +<span id="L7977" class="LineNr"> 7977 </span> 5d/pop-to-ebp +<span id="L7978" class="LineNr"> 7978 </span> c3/return +<span id="L7979" class="LineNr"> 7979 </span> +<span id="L7980" class="LineNr"> 7980 </span><span class="subxTest">test-copy-non-literal-to-byte</span>: +<span id="L7981" class="LineNr"> 7981 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7982" class="LineNr"> 7982 </span> 55/push-ebp +<span id="L7983" class="LineNr"> 7983 </span> 89/<- %ebp 4/r32/esp +<span id="L7984" class="LineNr"> 7984 </span> <span class="subxComment"># setup</span> +<span id="L7985" class="LineNr"> 7985 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7986" class="LineNr"> 7986 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7987" class="LineNr"> 7987 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7988" class="LineNr"> 7988 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7989" class="LineNr"> 7989 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L7990" class="LineNr"> 7990 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7991" class="LineNr"> 7991 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7992" class="LineNr"> 7992 </span> 68/push 0/imm32 +<span id="L7993" class="LineNr"> 7993 </span> 68/push 0/imm32 +<span id="L7994" class="LineNr"> 7994 </span> 89/<- %edx 4/r32/esp +<span id="L7995" class="LineNr"> 7995 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7996" class="LineNr"> 7996 </span> <span class="subxComment">#</span> +<span id="L7997" class="LineNr"> 7997 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7998" class="LineNr"> 7998 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: int <- copy 3\n"</span>) +<span id="L7999" class="LineNr"> 7999 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: byte <- copy x\n"</span>) +<span id="L8000" class="LineNr"> 8000 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8001" class="LineNr"> 8001 </span> <span class="subxComment"># convert</span> +<span id="L8002" class="LineNr"> 8002 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8003" class="LineNr"> 8003 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8004" class="LineNr"> 8004 </span> <span class="subxComment"># restore ed</span> +<span id="L8005" class="LineNr"> 8005 </span> 89/<- %edx 4/r32/esp +<span id="L8006" class="LineNr"> 8006 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8007" class="LineNr"> 8007 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8008" class="Folded"> 8008 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8014" class="LineNr"> 8014 </span> <span class="subxComment"># check output</span> +<span id="L8015" class="LineNr"> 8015 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7980'>test-copy-non-literal-to-byte</a>: output should be empty"</span>) +<span id="L8016" class="LineNr"> 8016 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy: cannot copy non-literal to 'y' of type byte; use copy-byte"</span> <span class="Constant">"F - <a href='mu.subx.html#L7980'>test-copy-non-literal-to-byte</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8017" class="LineNr"> 8017 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8018" class="LineNr"> 8018 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7980'>test-copy-non-literal-to-byte</a>: exit status"</span>) +<span id="L8019" class="LineNr"> 8019 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8020" class="LineNr"> 8020 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8021" class="LineNr"> 8021 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8022" class="LineNr"> 8022 </span> 5d/pop-to-ebp +<span id="L8023" class="LineNr"> 8023 </span> c3/return +<span id="L8024" class="LineNr"> 8024 </span> +<span id="L8025" class="LineNr"> 8025 </span><span class="subxTest">test-copy-deref-address</span>: +<span id="L8026" class="LineNr"> 8026 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8027" class="LineNr"> 8027 </span> 55/push-ebp +<span id="L8028" class="LineNr"> 8028 </span> 89/<- %ebp 4/r32/esp +<span id="L8029" class="LineNr"> 8029 </span> <span class="subxComment"># setup</span> +<span id="L8030" class="LineNr"> 8030 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8031" class="LineNr"> 8031 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8032" class="LineNr"> 8032 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8033" class="LineNr"> 8033 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8034" class="LineNr"> 8034 </span> <span class="subxComment">#</span> +<span id="L8035" class="LineNr"> 8035 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8036" class="LineNr"> 8036 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr addr int) <- copy 0\n"</span>) +<span id="L8037" class="LineNr"> 8037 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr int) <- copy *x\n"</span>) +<span id="L8038" class="LineNr"> 8038 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8039" class="LineNr"> 8039 </span> <span class="subxComment"># convert</span> +<span id="L8040" class="LineNr"> 8040 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L8041" class="LineNr"> 8041 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8042" class="LineNr"> 8042 </span> <span class="subxComment"># no errors</span> +<span id="L8043" class="LineNr"> 8043 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8044" class="LineNr"> 8044 </span> 5d/pop-to-ebp +<span id="L8045" class="LineNr"> 8045 </span> c3/return +<span id="L8046" class="LineNr"> 8046 </span> +<span id="L8047" class="LineNr"> 8047 </span><span class="subxTest">test-copy-to-non-register</span>: +<span id="L8048" class="LineNr"> 8048 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8049" class="LineNr"> 8049 </span> 55/push-ebp +<span id="L8050" class="LineNr"> 8050 </span> 89/<- %ebp 4/r32/esp +<span id="L8051" class="LineNr"> 8051 </span> <span class="subxComment"># setup</span> +<span id="L8052" class="LineNr"> 8052 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8053" class="LineNr"> 8053 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8054" class="LineNr"> 8054 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8055" class="LineNr"> 8055 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8056" class="LineNr"> 8056 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8057" class="LineNr"> 8057 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8058" class="LineNr"> 8058 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8059" class="LineNr"> 8059 </span> 68/push 0/imm32 +<span id="L8060" class="LineNr"> 8060 </span> 68/push 0/imm32 +<span id="L8061" class="LineNr"> 8061 </span> 89/<- %edx 4/r32/esp +<span id="L8062" class="LineNr"> 8062 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8063" class="LineNr"> 8063 </span> <span class="subxComment">#</span> +<span id="L8064" class="LineNr"> 8064 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8065" class="LineNr"> 8065 </span> (<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="L8066" class="LineNr"> 8066 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- copy 0\n"</span>) +<span id="L8067" class="LineNr"> 8067 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8068" class="LineNr"> 8068 </span> <span class="subxComment"># convert</span> +<span id="L8069" class="LineNr"> 8069 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8070" class="LineNr"> 8070 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8071" class="LineNr"> 8071 </span> <span class="subxComment"># restore ed</span> +<span id="L8072" class="LineNr"> 8072 </span> 89/<- %edx 4/r32/esp +<span id="L8073" class="LineNr"> 8073 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8074" class="LineNr"> 8074 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8075" class="Folded"> 8075 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8081" class="LineNr"> 8081 </span> <span class="subxComment"># check output</span> +<span id="L8082" class="LineNr"> 8082 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8047'>test-copy-to-non-register</a>: output should be empty"</span>) +<span id="L8083" class="LineNr"> 8083 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy: output 'x' not in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L8047'>test-copy-to-non-register</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8084" class="LineNr"> 8084 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8085" class="LineNr"> 8085 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8047'>test-copy-to-non-register</a>: exit status"</span>) +<span id="L8086" class="LineNr"> 8086 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8087" class="LineNr"> 8087 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8088" class="LineNr"> 8088 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8089" class="LineNr"> 8089 </span> 5d/pop-to-ebp +<span id="L8090" class="LineNr"> 8090 </span> c3/return +<span id="L8091" class="LineNr"> 8091 </span> +<span id="L8092" class="LineNr"> 8092 </span><span class="subxTest">test-copy-from-non-scalar-inout</span>: +<span id="L8093" class="LineNr"> 8093 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8094" class="LineNr"> 8094 </span> 55/push-ebp +<span id="L8095" class="LineNr"> 8095 </span> 89/<- %ebp 4/r32/esp +<span id="L8096" class="LineNr"> 8096 </span> <span class="subxComment"># setup</span> +<span id="L8097" class="LineNr"> 8097 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8098" class="LineNr"> 8098 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8099" class="LineNr"> 8099 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8100" class="LineNr"> 8100 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8101" class="LineNr"> 8101 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8102" class="LineNr"> 8102 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8103" class="LineNr"> 8103 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8104" class="LineNr"> 8104 </span> 68/push 0/imm32 +<span id="L8105" class="LineNr"> 8105 </span> 68/push 0/imm32 +<span id="L8106" class="LineNr"> 8106 </span> 89/<- %edx 4/r32/esp +<span id="L8107" class="LineNr"> 8107 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8108" class="LineNr"> 8108 </span> <span class="subxComment">#</span> +<span id="L8109" class="LineNr"> 8109 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8110" class="LineNr"> 8110 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (handle int)\n"</span>) +<span id="L8111" class="LineNr"> 8111 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: int <- copy x\n"</span>) +<span id="L8112" class="LineNr"> 8112 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8113" class="LineNr"> 8113 </span> <span class="subxComment"># convert</span> +<span id="L8114" class="LineNr"> 8114 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8115" class="LineNr"> 8115 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8116" class="LineNr"> 8116 </span> <span class="subxComment"># restore ed</span> +<span id="L8117" class="LineNr"> 8117 </span> 89/<- %edx 4/r32/esp +<span id="L8118" class="LineNr"> 8118 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8119" class="LineNr"> 8119 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8120" class="Folded"> 8120 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8126" class="LineNr"> 8126 </span> <span class="subxComment"># check output</span> +<span id="L8127" class="LineNr"> 8127 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8092'>test-copy-from-non-scalar-inout</a>: output should be empty"</span>) +<span id="L8128" class="LineNr"> 8128 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy: 'x' is too large to fit in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L8092'>test-copy-from-non-scalar-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8129" class="LineNr"> 8129 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8130" class="LineNr"> 8130 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8092'>test-copy-from-non-scalar-inout</a>: exit status"</span>) +<span id="L8131" class="LineNr"> 8131 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8132" class="LineNr"> 8132 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8133" class="LineNr"> 8133 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8134" class="LineNr"> 8134 </span> 5d/pop-to-ebp +<span id="L8135" class="LineNr"> 8135 </span> c3/return +<span id="L8136" class="LineNr"> 8136 </span> +<span id="L8137" class="LineNr"> 8137 </span><span class="subxTest">test-copy-to-with-no-inout</span>: +<span id="L8138" class="LineNr"> 8138 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8139" class="LineNr"> 8139 </span> 55/push-ebp +<span id="L8140" class="LineNr"> 8140 </span> 89/<- %ebp 4/r32/esp +<span id="L8141" class="LineNr"> 8141 </span> <span class="subxComment"># setup</span> +<span id="L8142" class="LineNr"> 8142 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8143" class="LineNr"> 8143 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8144" class="LineNr"> 8144 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8145" class="LineNr"> 8145 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8146" class="LineNr"> 8146 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8147" class="LineNr"> 8147 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8148" class="LineNr"> 8148 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8149" class="LineNr"> 8149 </span> 68/push 0/imm32 +<span id="L8150" class="LineNr"> 8150 </span> 68/push 0/imm32 +<span id="L8151" class="LineNr"> 8151 </span> 89/<- %edx 4/r32/esp +<span id="L8152" class="LineNr"> 8152 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8153" class="LineNr"> 8153 </span> <span class="subxComment">#</span> +<span id="L8154" class="LineNr"> 8154 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8155" class="LineNr"> 8155 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to\n"</span>) +<span id="L8156" class="LineNr"> 8156 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8157" class="LineNr"> 8157 </span> <span class="subxComment"># convert</span> +<span id="L8158" class="LineNr"> 8158 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8159" class="LineNr"> 8159 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8160" class="LineNr"> 8160 </span> <span class="subxComment"># restore ed</span> +<span id="L8161" class="LineNr"> 8161 </span> 89/<- %edx 4/r32/esp +<span id="L8162" class="LineNr"> 8162 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8163" class="LineNr"> 8163 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8164" class="Folded"> 8164 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8170" class="LineNr"> 8170 </span> <span class="subxComment"># check output</span> +<span id="L8171" class="LineNr"> 8171 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8137'>test-copy-to-with-no-inout</a>: output should be empty"</span>) +<span id="L8172" class="LineNr"> 8172 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-to' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L8137'>test-copy-to-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8173" class="LineNr"> 8173 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8174" class="LineNr"> 8174 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8137'>test-copy-to-with-no-inout</a>: exit status"</span>) +<span id="L8175" class="LineNr"> 8175 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8176" class="LineNr"> 8176 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8177" class="LineNr"> 8177 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8178" class="LineNr"> 8178 </span> 5d/pop-to-ebp +<span id="L8179" class="LineNr"> 8179 </span> c3/return +<span id="L8180" class="LineNr"> 8180 </span> +<span id="L8181" class="LineNr"> 8181 </span><span class="subxTest">test-copy-to-with-no-source</span>: +<span id="L8182" class="LineNr"> 8182 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8183" class="LineNr"> 8183 </span> 55/push-ebp +<span id="L8184" class="LineNr"> 8184 </span> 89/<- %ebp 4/r32/esp +<span id="L8185" class="LineNr"> 8185 </span> <span class="subxComment"># setup</span> +<span id="L8186" class="LineNr"> 8186 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8187" class="LineNr"> 8187 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8188" class="LineNr"> 8188 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8189" class="LineNr"> 8189 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8190" class="LineNr"> 8190 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8191" class="LineNr"> 8191 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8192" class="LineNr"> 8192 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8193" class="LineNr"> 8193 </span> 68/push 0/imm32 +<span id="L8194" class="LineNr"> 8194 </span> 68/push 0/imm32 +<span id="L8195" class="LineNr"> 8195 </span> 89/<- %edx 4/r32/esp +<span id="L8196" class="LineNr"> 8196 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8197" class="LineNr"> 8197 </span> <span class="subxComment">#</span> +<span id="L8198" class="LineNr"> 8198 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8199" class="LineNr"> 8199 </span> (<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="L8200" class="LineNr"> 8200 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to x\n"</span>) +<span id="L8201" class="LineNr"> 8201 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8202" class="LineNr"> 8202 </span> <span class="subxComment"># convert</span> +<span id="L8203" class="LineNr"> 8203 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8204" class="LineNr"> 8204 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8205" class="LineNr"> 8205 </span> <span class="subxComment"># restore ed</span> +<span id="L8206" class="LineNr"> 8206 </span> 89/<- %edx 4/r32/esp +<span id="L8207" class="LineNr"> 8207 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8208" class="LineNr"> 8208 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8209" class="Folded"> 8209 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8215" class="LineNr"> 8215 </span> <span class="subxComment"># check output</span> +<span id="L8216" class="LineNr"> 8216 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8181'>test-copy-to-with-no-source</a>: output should be empty"</span>) +<span id="L8217" class="LineNr"> 8217 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-to' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L8181'>test-copy-to-with-no-source</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8218" class="LineNr"> 8218 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8219" class="LineNr"> 8219 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8181'>test-copy-to-with-no-source</a>: exit status"</span>) +<span id="L8220" class="LineNr"> 8220 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8221" class="LineNr"> 8221 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8222" class="LineNr"> 8222 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8223" class="LineNr"> 8223 </span> 5d/pop-to-ebp +<span id="L8224" class="LineNr"> 8224 </span> c3/return +<span id="L8225" class="LineNr"> 8225 </span> +<span id="L8226" class="LineNr"> 8226 </span><span class="subxTest">test-copy-to-with-no-register</span>: +<span id="L8227" class="LineNr"> 8227 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8228" class="LineNr"> 8228 </span> 55/push-ebp +<span id="L8229" class="LineNr"> 8229 </span> 89/<- %ebp 4/r32/esp +<span id="L8230" class="LineNr"> 8230 </span> <span class="subxComment"># setup</span> +<span id="L8231" class="LineNr"> 8231 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8232" class="LineNr"> 8232 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8233" class="LineNr"> 8233 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8234" class="LineNr"> 8234 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8235" class="LineNr"> 8235 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8236" class="LineNr"> 8236 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8237" class="LineNr"> 8237 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8238" class="LineNr"> 8238 </span> 68/push 0/imm32 +<span id="L8239" class="LineNr"> 8239 </span> 68/push 0/imm32 +<span id="L8240" class="LineNr"> 8240 </span> 89/<- %edx 4/r32/esp +<span id="L8241" class="LineNr"> 8241 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8242" class="LineNr"> 8242 </span> <span class="subxComment">#</span> +<span id="L8243" class="LineNr"> 8243 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8244" class="LineNr"> 8244 </span> (<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="L8245" class="LineNr"> 8245 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to x, x\n"</span>) +<span id="L8246" class="LineNr"> 8246 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8247" class="LineNr"> 8247 </span> <span class="subxComment"># convert</span> +<span id="L8248" class="LineNr"> 8248 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8249" class="LineNr"> 8249 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8250" class="LineNr"> 8250 </span> <span class="subxComment"># restore ed</span> +<span id="L8251" class="LineNr"> 8251 </span> 89/<- %edx 4/r32/esp +<span id="L8252" class="LineNr"> 8252 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8253" class="LineNr"> 8253 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8254" class="Folded"> 8254 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8260" class="LineNr"> 8260 </span> <span class="subxComment"># check output</span> +<span id="L8261" class="LineNr"> 8261 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8226'>test-copy-to-with-no-register</a>: output should be empty"</span>) +<span id="L8262" class="LineNr"> 8262 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-to: source (second inout) is in memory"</span> <span class="Constant">"F - <a href='mu.subx.html#L8226'>test-copy-to-with-no-register</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8263" class="LineNr"> 8263 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8264" class="LineNr"> 8264 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8226'>test-copy-to-with-no-register</a>: exit status"</span>) +<span id="L8265" class="LineNr"> 8265 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8266" class="LineNr"> 8266 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8267" class="LineNr"> 8267 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8268" class="LineNr"> 8268 </span> 5d/pop-to-ebp +<span id="L8269" class="LineNr"> 8269 </span> c3/return +<span id="L8270" class="LineNr"> 8270 </span> +<span id="L8271" class="LineNr"> 8271 </span><span class="subxTest">test-copy-to-with-too-many-inouts</span>: +<span id="L8272" class="LineNr"> 8272 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8273" class="LineNr"> 8273 </span> 55/push-ebp +<span id="L8274" class="LineNr"> 8274 </span> 89/<- %ebp 4/r32/esp +<span id="L8275" class="LineNr"> 8275 </span> <span class="subxComment"># setup</span> +<span id="L8276" class="LineNr"> 8276 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8277" class="LineNr"> 8277 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8278" class="LineNr"> 8278 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8279" class="LineNr"> 8279 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8280" class="LineNr"> 8280 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8281" class="LineNr"> 8281 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8282" class="LineNr"> 8282 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8283" class="LineNr"> 8283 </span> 68/push 0/imm32 +<span id="L8284" class="LineNr"> 8284 </span> 68/push 0/imm32 +<span id="L8285" class="LineNr"> 8285 </span> 89/<- %edx 4/r32/esp +<span id="L8286" class="LineNr"> 8286 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8287" class="LineNr"> 8287 </span> <span class="subxComment">#</span> +<span id="L8288" class="LineNr"> 8288 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8289" class="LineNr"> 8289 </span> (<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="L8290" class="LineNr"> 8290 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to x, 0, 0\n"</span>) +<span id="L8291" class="LineNr"> 8291 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8292" class="LineNr"> 8292 </span> <span class="subxComment"># convert</span> +<span id="L8293" class="LineNr"> 8293 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8294" class="LineNr"> 8294 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8295" class="LineNr"> 8295 </span> <span class="subxComment"># restore ed</span> +<span id="L8296" class="LineNr"> 8296 </span> 89/<- %edx 4/r32/esp +<span id="L8297" class="LineNr"> 8297 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8298" class="LineNr"> 8298 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8299" class="Folded"> 8299 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8305" class="LineNr"> 8305 </span> <span class="subxComment"># check output</span> +<span id="L8306" class="LineNr"> 8306 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8271'>test-copy-to-with-too-many-inouts</a>: output should be empty"</span>) +<span id="L8307" class="LineNr"> 8307 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-to' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L8271'>test-copy-to-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8308" class="LineNr"> 8308 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8309" class="LineNr"> 8309 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8271'>test-copy-to-with-too-many-inouts</a>: exit status"</span>) +<span id="L8310" class="LineNr"> 8310 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8311" class="LineNr"> 8311 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8312" class="LineNr"> 8312 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8313" class="LineNr"> 8313 </span> 5d/pop-to-ebp +<span id="L8314" class="LineNr"> 8314 </span> c3/return +<span id="L8315" class="LineNr"> 8315 </span> +<span id="L8316" class="LineNr"> 8316 </span><span class="subxTest">test-copy-to-with-output</span>: +<span id="L8317" class="LineNr"> 8317 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8318" class="LineNr"> 8318 </span> 55/push-ebp +<span id="L8319" class="LineNr"> 8319 </span> 89/<- %ebp 4/r32/esp +<span id="L8320" class="LineNr"> 8320 </span> <span class="subxComment"># setup</span> +<span id="L8321" class="LineNr"> 8321 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8322" class="LineNr"> 8322 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8323" class="LineNr"> 8323 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8324" class="LineNr"> 8324 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8325" class="LineNr"> 8325 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8326" class="LineNr"> 8326 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8327" class="LineNr"> 8327 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8328" class="LineNr"> 8328 </span> 68/push 0/imm32 +<span id="L8329" class="LineNr"> 8329 </span> 68/push 0/imm32 +<span id="L8330" class="LineNr"> 8330 </span> 89/<- %edx 4/r32/esp +<span id="L8331" class="LineNr"> 8331 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8332" class="LineNr"> 8332 </span> <span class="subxComment">#</span> +<span id="L8333" class="LineNr"> 8333 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8334" class="LineNr"> 8334 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy 0\n"</span>) +<span id="L8335" class="LineNr"> 8335 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: boolean <- copy 0\n"</span>) +<span id="L8336" class="LineNr"> 8336 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- copy-to y, 0\n"</span>) +<span id="L8337" class="LineNr"> 8337 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8338" class="LineNr"> 8338 </span> <span class="subxComment"># convert</span> +<span id="L8339" class="LineNr"> 8339 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8340" class="LineNr"> 8340 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8341" class="LineNr"> 8341 </span> <span class="subxComment"># restore ed</span> +<span id="L8342" class="LineNr"> 8342 </span> 89/<- %edx 4/r32/esp +<span id="L8343" class="LineNr"> 8343 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8344" class="LineNr"> 8344 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8345" class="Folded"> 8345 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8351" class="LineNr"> 8351 </span> <span class="subxComment"># check output</span> +<span id="L8352" class="LineNr"> 8352 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8316'>test-copy-to-with-output</a>: output should be empty"</span>) +<span id="L8353" class="LineNr"> 8353 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-to' must not have any outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L8316'>test-copy-to-with-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8354" class="LineNr"> 8354 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8355" class="LineNr"> 8355 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8316'>test-copy-to-with-output</a>: exit status"</span>) +<span id="L8356" class="LineNr"> 8356 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8357" class="LineNr"> 8357 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8358" class="LineNr"> 8358 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8359" class="LineNr"> 8359 </span> 5d/pop-to-ebp +<span id="L8360" class="LineNr"> 8360 </span> c3/return +<span id="L8361" class="LineNr"> 8361 </span> +<span id="L8362" class="LineNr"> 8362 </span><span class="subxTest">test-copy-to-invalid-value-to-address</span>: +<span id="L8363" class="LineNr"> 8363 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8364" class="LineNr"> 8364 </span> 55/push-ebp +<span id="L8365" class="LineNr"> 8365 </span> 89/<- %ebp 4/r32/esp +<span id="L8366" class="LineNr"> 8366 </span> <span class="subxComment"># setup</span> +<span id="L8367" class="LineNr"> 8367 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8368" class="LineNr"> 8368 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8369" class="LineNr"> 8369 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8370" class="LineNr"> 8370 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8371" class="LineNr"> 8371 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8372" class="LineNr"> 8372 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8373" class="LineNr"> 8373 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8374" class="LineNr"> 8374 </span> 68/push 0/imm32 +<span id="L8375" class="LineNr"> 8375 </span> 68/push 0/imm32 +<span id="L8376" class="LineNr"> 8376 </span> 89/<- %edx 4/r32/esp +<span id="L8377" class="LineNr"> 8377 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8378" class="LineNr"> 8378 </span> <span class="subxComment">#</span> +<span id="L8379" class="LineNr"> 8379 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8380" class="LineNr"> 8380 </span> (<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="L8381" class="LineNr"> 8381 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: (addr int)\n"</span>) +<span id="L8382" class="LineNr"> 8382 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to y, x\n"</span>) +<span id="L8383" class="LineNr"> 8383 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8384" class="LineNr"> 8384 </span> <span class="subxComment"># convert</span> +<span id="L8385" class="LineNr"> 8385 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8386" class="LineNr"> 8386 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8387" class="LineNr"> 8387 </span> <span class="subxComment"># restore ed</span> +<span id="L8388" class="LineNr"> 8388 </span> 89/<- %edx 4/r32/esp +<span id="L8389" class="LineNr"> 8389 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8390" class="LineNr"> 8390 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8391" class="Folded"> 8391 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8397" class="LineNr"> 8397 </span> <span class="subxComment"># check output</span> +<span id="L8398" class="LineNr"> 8398 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8362'>test-copy-to-invalid-value-to-address</a>: output should be empty"</span>) +<span id="L8399" class="LineNr"> 8399 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-to: 'y' must be a non-addr non-offset scalar"</span> <span class="Constant">"F - <a href='mu.subx.html#L8362'>test-copy-to-invalid-value-to-address</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8400" class="LineNr"> 8400 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8401" class="LineNr"> 8401 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8362'>test-copy-to-invalid-value-to-address</a>: exit status"</span>) +<span id="L8402" class="LineNr"> 8402 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8403" class="LineNr"> 8403 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8404" class="LineNr"> 8404 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8405" class="LineNr"> 8405 </span> 5d/pop-to-ebp +<span id="L8406" class="LineNr"> 8406 </span> c3/return +<span id="L8407" class="LineNr"> 8407 </span> +<span id="L8408" class="LineNr"> 8408 </span><span class="subxTest">test-copy-to-null-value-to-address</span>: +<span id="L8409" class="LineNr"> 8409 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8410" class="LineNr"> 8410 </span> 55/push-ebp +<span id="L8411" class="LineNr"> 8411 </span> 89/<- %ebp 4/r32/esp +<span id="L8412" class="LineNr"> 8412 </span> <span class="subxComment"># setup</span> +<span id="L8413" class="LineNr"> 8413 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8414" class="LineNr"> 8414 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8415" class="LineNr"> 8415 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8416" class="LineNr"> 8416 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8417" class="LineNr"> 8417 </span> <span class="subxComment">#</span> +<span id="L8418" class="LineNr"> 8418 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8419" class="LineNr"> 8419 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: (addr int)\n"</span>) +<span id="L8420" class="LineNr"> 8420 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to y, 0\n"</span>) +<span id="L8421" class="LineNr"> 8421 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8422" class="LineNr"> 8422 </span> <span class="subxComment"># convert</span> +<span id="L8423" class="LineNr"> 8423 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L8424" class="LineNr"> 8424 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8425" class="LineNr"> 8425 </span> <span class="subxComment"># no errors</span> +<span id="L8426" class="LineNr"> 8426 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8427" class="LineNr"> 8427 </span> 89/<- %esp 5/r32/ebp +<span id="L8428" class="LineNr"> 8428 </span> 5d/pop-to-ebp +<span id="L8429" class="LineNr"> 8429 </span> c3/return +<span id="L8430" class="LineNr"> 8430 </span> +<span id="L8431" class="LineNr"> 8431 </span><span class="subxTest">test-copy-to-invalid-value-to-offset</span>: +<span id="L8432" class="LineNr"> 8432 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8433" class="LineNr"> 8433 </span> 55/push-ebp +<span id="L8434" class="LineNr"> 8434 </span> 89/<- %ebp 4/r32/esp +<span id="L8435" class="LineNr"> 8435 </span> <span class="subxComment"># setup</span> +<span id="L8436" class="LineNr"> 8436 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8437" class="LineNr"> 8437 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8438" class="LineNr"> 8438 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8439" class="LineNr"> 8439 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8440" class="LineNr"> 8440 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8441" class="LineNr"> 8441 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8442" class="LineNr"> 8442 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8443" class="LineNr"> 8443 </span> 68/push 0/imm32 +<span id="L8444" class="LineNr"> 8444 </span> 68/push 0/imm32 +<span id="L8445" class="LineNr"> 8445 </span> 89/<- %edx 4/r32/esp +<span id="L8446" class="LineNr"> 8446 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8447" class="LineNr"> 8447 </span> <span class="subxComment">#</span> +<span id="L8448" class="LineNr"> 8448 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8449" class="LineNr"> 8449 </span> (<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="L8450" class="LineNr"> 8450 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: (offset int)\n"</span>) +<span id="L8451" class="LineNr"> 8451 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to y, x\n"</span>) +<span id="L8452" class="LineNr"> 8452 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8453" class="LineNr"> 8453 </span> <span class="subxComment"># convert</span> +<span id="L8454" class="LineNr"> 8454 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8455" class="LineNr"> 8455 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8456" class="LineNr"> 8456 </span> <span class="subxComment"># restore ed</span> +<span id="L8457" class="LineNr"> 8457 </span> 89/<- %edx 4/r32/esp +<span id="L8458" class="LineNr"> 8458 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8459" class="LineNr"> 8459 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8460" class="Folded"> 8460 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8466" class="LineNr"> 8466 </span> <span class="subxComment"># check output</span> +<span id="L8467" class="LineNr"> 8467 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8431'>test-copy-to-invalid-value-to-offset</a>: output should be empty"</span>) +<span id="L8468" class="LineNr"> 8468 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-to: 'y' must be a non-addr non-offset scalar"</span> <span class="Constant">"F - <a href='mu.subx.html#L8431'>test-copy-to-invalid-value-to-offset</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8469" class="LineNr"> 8469 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8470" class="LineNr"> 8470 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8431'>test-copy-to-invalid-value-to-offset</a>: exit status"</span>) +<span id="L8471" class="LineNr"> 8471 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8472" class="LineNr"> 8472 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8473" class="LineNr"> 8473 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8474" class="LineNr"> 8474 </span> 5d/pop-to-ebp +<span id="L8475" class="LineNr"> 8475 </span> c3/return +<span id="L8476" class="LineNr"> 8476 </span> +<span id="L8477" class="LineNr"> 8477 </span><span class="subxTest">test-copy-to-null-value-to-offset</span>: +<span id="L8478" class="LineNr"> 8478 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8479" class="LineNr"> 8479 </span> 55/push-ebp +<span id="L8480" class="LineNr"> 8480 </span> 89/<- %ebp 4/r32/esp +<span id="L8481" class="LineNr"> 8481 </span> <span class="subxComment"># setup</span> +<span id="L8482" class="LineNr"> 8482 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8483" class="LineNr"> 8483 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8484" class="LineNr"> 8484 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8485" class="LineNr"> 8485 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8486" class="LineNr"> 8486 </span> <span class="subxComment">#</span> +<span id="L8487" class="LineNr"> 8487 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8488" class="LineNr"> 8488 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: (offset int)\n"</span>) +<span id="L8489" class="LineNr"> 8489 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to y, 0\n"</span>) +<span id="L8490" class="LineNr"> 8490 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8491" class="LineNr"> 8491 </span> <span class="subxComment"># convert</span> +<span id="L8492" class="LineNr"> 8492 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L8493" class="LineNr"> 8493 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8494" class="LineNr"> 8494 </span> <span class="subxComment"># no errors</span> +<span id="L8495" class="LineNr"> 8495 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8496" class="LineNr"> 8496 </span> 89/<- %esp 5/r32/ebp +<span id="L8497" class="LineNr"> 8497 </span> 5d/pop-to-ebp +<span id="L8498" class="LineNr"> 8498 </span> c3/return +<span id="L8499" class="LineNr"> 8499 </span> +<span id="L8500" class="LineNr"> 8500 </span><span class="subxTest">test-copy-to-non-literal-to-byte</span>: +<span id="L8501" class="LineNr"> 8501 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8502" class="LineNr"> 8502 </span> 55/push-ebp +<span id="L8503" class="LineNr"> 8503 </span> 89/<- %ebp 4/r32/esp +<span id="L8504" class="LineNr"> 8504 </span> <span class="subxComment"># setup</span> +<span id="L8505" class="LineNr"> 8505 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8506" class="LineNr"> 8506 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8507" class="LineNr"> 8507 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8508" class="LineNr"> 8508 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8509" class="LineNr"> 8509 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8510" class="LineNr"> 8510 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8511" class="LineNr"> 8511 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8512" class="LineNr"> 8512 </span> 68/push 0/imm32 +<span id="L8513" class="LineNr"> 8513 </span> 68/push 0/imm32 +<span id="L8514" class="LineNr"> 8514 </span> 89/<- %edx 4/r32/esp +<span id="L8515" class="LineNr"> 8515 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8516" class="LineNr"> 8516 </span> <span class="subxComment">#</span> +<span id="L8517" class="LineNr"> 8517 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8518" class="LineNr"> 8518 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: byte <- copy 3\n"</span>) +<span id="L8519" class="LineNr"> 8519 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: (addr byte) <- copy 0\n"</span>) +<span id="L8520" class="LineNr"> 8520 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to *y, x\n"</span>) +<span id="L8521" class="LineNr"> 8521 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8522" class="LineNr"> 8522 </span> <span class="subxComment"># convert</span> +<span id="L8523" class="LineNr"> 8523 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8524" class="LineNr"> 8524 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8525" class="LineNr"> 8525 </span> <span class="subxComment"># restore ed</span> +<span id="L8526" class="LineNr"> 8526 </span> 89/<- %edx 4/r32/esp +<span id="L8527" class="LineNr"> 8527 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8528" class="LineNr"> 8528 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8529" class="Folded"> 8529 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8535" class="LineNr"> 8535 </span> <span class="subxComment"># check output</span> +<span id="L8536" class="LineNr"> 8536 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8500'>test-copy-to-non-literal-to-byte</a>: output should be empty"</span>) +<span id="L8537" class="LineNr"> 8537 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-to: cannot copy non-literal to type byte; use copy-byte-to"</span> <span class="Constant">"F - <a href='mu.subx.html#L8500'>test-copy-to-non-literal-to-byte</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8538" class="LineNr"> 8538 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8539" class="LineNr"> 8539 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8500'>test-copy-to-non-literal-to-byte</a>: exit status"</span>) +<span id="L8540" class="LineNr"> 8540 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8541" class="LineNr"> 8541 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8542" class="LineNr"> 8542 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8543" class="LineNr"> 8543 </span> 5d/pop-to-ebp +<span id="L8544" class="LineNr"> 8544 </span> c3/return +<span id="L8545" class="LineNr"> 8545 </span> +<span id="L8546" class="LineNr"> 8546 </span><span class="subxTest">test-copy-to-deref-address</span>: +<span id="L8547" class="LineNr"> 8547 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8548" class="LineNr"> 8548 </span> 55/push-ebp +<span id="L8549" class="LineNr"> 8549 </span> 89/<- %ebp 4/r32/esp +<span id="L8550" class="LineNr"> 8550 </span> <span class="subxComment"># setup</span> +<span id="L8551" class="LineNr"> 8551 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8552" class="LineNr"> 8552 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8553" class="LineNr"> 8553 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8554" class="LineNr"> 8554 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8555" class="LineNr"> 8555 </span> <span class="subxComment">#</span> +<span id="L8556" class="LineNr"> 8556 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8557" class="LineNr"> 8557 </span> (<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="L8558" class="LineNr"> 8558 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr addr int) <- copy 0\n"</span>) +<span id="L8559" class="LineNr"> 8559 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to *y, x\n"</span>) +<span id="L8560" class="LineNr"> 8560 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8561" class="LineNr"> 8561 </span> <span class="subxComment"># convert</span> +<span id="L8562" class="LineNr"> 8562 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L8563" class="LineNr"> 8563 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8564" class="LineNr"> 8564 </span> <span class="subxComment"># no errors</span> +<span id="L8565" class="LineNr"> 8565 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8566" class="LineNr"> 8566 </span> 5d/pop-to-ebp +<span id="L8567" class="LineNr"> 8567 </span> c3/return +<span id="L8568" class="LineNr"> 8568 </span> +<span id="L8569" class="LineNr"> 8569 </span><span class="subxTest">test-copy-to-from-non-scalar-inout</span>: +<span id="L8570" class="LineNr"> 8570 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8571" class="LineNr"> 8571 </span> 55/push-ebp +<span id="L8572" class="LineNr"> 8572 </span> 89/<- %ebp 4/r32/esp +<span id="L8573" class="LineNr"> 8573 </span> <span class="subxComment"># setup</span> +<span id="L8574" class="LineNr"> 8574 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8575" class="LineNr"> 8575 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8576" class="LineNr"> 8576 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8577" class="LineNr"> 8577 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8578" class="LineNr"> 8578 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8579" class="LineNr"> 8579 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8580" class="LineNr"> 8580 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8581" class="LineNr"> 8581 </span> 68/push 0/imm32 +<span id="L8582" class="LineNr"> 8582 </span> 68/push 0/imm32 +<span id="L8583" class="LineNr"> 8583 </span> 89/<- %edx 4/r32/esp +<span id="L8584" class="LineNr"> 8584 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8585" class="LineNr"> 8585 </span> <span class="subxComment">#</span> +<span id="L8586" class="LineNr"> 8586 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8587" class="LineNr"> 8587 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (handle int)\n"</span>) +<span id="L8588" class="LineNr"> 8588 </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="L8589" class="LineNr"> 8589 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to y, x\n"</span>) +<span id="L8590" class="LineNr"> 8590 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8591" class="LineNr"> 8591 </span> <span class="subxComment"># convert</span> +<span id="L8592" class="LineNr"> 8592 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8593" class="LineNr"> 8593 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8594" class="LineNr"> 8594 </span> <span class="subxComment"># restore ed</span> +<span id="L8595" class="LineNr"> 8595 </span> 89/<- %edx 4/r32/esp +<span id="L8596" class="LineNr"> 8596 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8597" class="LineNr"> 8597 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8598" class="Folded"> 8598 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8604" class="LineNr"> 8604 </span> <span class="subxComment"># check output</span> +<span id="L8605" class="LineNr"> 8605 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8569'>test-copy-to-from-non-scalar-inout</a>: output should be empty"</span>) +<span id="L8606" class="LineNr"> 8606 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-to: 'x' is too large to copy"</span> <span class="Constant">"F - <a href='mu.subx.html#L8569'>test-copy-to-from-non-scalar-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8607" class="LineNr"> 8607 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8608" class="LineNr"> 8608 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8569'>test-copy-to-from-non-scalar-inout</a>: exit status"</span>) +<span id="L8609" class="LineNr"> 8609 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8610" class="LineNr"> 8610 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8611" class="LineNr"> 8611 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8612" class="LineNr"> 8612 </span> 5d/pop-to-ebp +<span id="L8613" class="LineNr"> 8613 </span> c3/return +<span id="L8614" class="LineNr"> 8614 </span> +<span id="L8615" class="LineNr"> 8615 </span><span class="subxTest">test-copy-byte-with-no-inout</span>: +<span id="L8616" class="LineNr"> 8616 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8617" class="LineNr"> 8617 </span> 55/push-ebp +<span id="L8618" class="LineNr"> 8618 </span> 89/<- %ebp 4/r32/esp +<span id="L8619" class="LineNr"> 8619 </span> <span class="subxComment"># setup</span> +<span id="L8620" class="LineNr"> 8620 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8621" class="LineNr"> 8621 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8622" class="LineNr"> 8622 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8623" class="LineNr"> 8623 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8624" class="LineNr"> 8624 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8625" class="LineNr"> 8625 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8626" class="LineNr"> 8626 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8627" class="LineNr"> 8627 </span> 68/push 0/imm32 +<span id="L8628" class="LineNr"> 8628 </span> 68/push 0/imm32 +<span id="L8629" class="LineNr"> 8629 </span> 89/<- %edx 4/r32/esp +<span id="L8630" class="LineNr"> 8630 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8631" class="LineNr"> 8631 </span> <span class="subxComment">#</span> +<span id="L8632" class="LineNr"> 8632 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8633" class="LineNr"> 8633 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: byte <- copy-byte\n"</span>) +<span id="L8634" class="LineNr"> 8634 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8635" class="LineNr"> 8635 </span> <span class="subxComment"># convert</span> +<span id="L8636" class="LineNr"> 8636 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8637" class="LineNr"> 8637 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8638" class="LineNr"> 8638 </span> <span class="subxComment"># restore ed</span> +<span id="L8639" class="LineNr"> 8639 </span> 89/<- %edx 4/r32/esp +<span id="L8640" class="LineNr"> 8640 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8641" class="LineNr"> 8641 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8642" class="Folded"> 8642 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8648" class="LineNr"> 8648 </span> <span class="subxComment"># check output</span> +<span id="L8649" class="LineNr"> 8649 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8615'>test-copy-byte-with-no-inout</a>: output should be empty"</span>) +<span id="L8650" class="LineNr"> 8650 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-byte' expects an inout"</span> <span class="Constant">"F - <a href='mu.subx.html#L8615'>test-copy-byte-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8651" class="LineNr"> 8651 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8652" class="LineNr"> 8652 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8615'>test-copy-byte-with-no-inout</a>: exit status"</span>) +<span id="L8653" class="LineNr"> 8653 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8654" class="LineNr"> 8654 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8655" class="LineNr"> 8655 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8656" class="LineNr"> 8656 </span> 5d/pop-to-ebp +<span id="L8657" class="LineNr"> 8657 </span> c3/return +<span id="L8658" class="LineNr"> 8658 </span> +<span id="L8659" class="LineNr"> 8659 </span><span class="subxTest">test-copy-byte-with-multiple-inouts</span>: +<span id="L8660" class="LineNr"> 8660 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8661" class="LineNr"> 8661 </span> 55/push-ebp +<span id="L8662" class="LineNr"> 8662 </span> 89/<- %ebp 4/r32/esp +<span id="L8663" class="LineNr"> 8663 </span> <span class="subxComment"># setup</span> +<span id="L8664" class="LineNr"> 8664 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8665" class="LineNr"> 8665 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8666" class="LineNr"> 8666 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8667" class="LineNr"> 8667 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8668" class="LineNr"> 8668 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8669" class="LineNr"> 8669 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8670" class="LineNr"> 8670 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8671" class="LineNr"> 8671 </span> 68/push 0/imm32 +<span id="L8672" class="LineNr"> 8672 </span> 68/push 0/imm32 +<span id="L8673" class="LineNr"> 8673 </span> 89/<- %edx 4/r32/esp +<span id="L8674" class="LineNr"> 8674 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8675" class="LineNr"> 8675 </span> <span class="subxComment">#</span> +<span id="L8676" class="LineNr"> 8676 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8677" class="LineNr"> 8677 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: byte <- copy-byte 0, 0\n"</span>) +<span id="L8678" class="LineNr"> 8678 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8679" class="LineNr"> 8679 </span> <span class="subxComment"># convert</span> +<span id="L8680" class="LineNr"> 8680 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8681" class="LineNr"> 8681 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8682" class="LineNr"> 8682 </span> <span class="subxComment"># restore ed</span> +<span id="L8683" class="LineNr"> 8683 </span> 89/<- %edx 4/r32/esp +<span id="L8684" class="LineNr"> 8684 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8685" class="LineNr"> 8685 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8686" class="Folded"> 8686 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8692" class="LineNr"> 8692 </span> <span class="subxComment"># check output</span> +<span id="L8693" class="LineNr"> 8693 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8659'>test-copy-byte-with-multiple-inouts</a>: output should be empty"</span>) +<span id="L8694" class="LineNr"> 8694 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-byte' must have just one inout"</span> <span class="Constant">"F - <a href='mu.subx.html#L8659'>test-copy-byte-with-multiple-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8695" class="LineNr"> 8695 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8696" class="LineNr"> 8696 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8659'>test-copy-byte-with-multiple-inouts</a>: exit status"</span>) +<span id="L8697" class="LineNr"> 8697 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8698" class="LineNr"> 8698 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8699" class="LineNr"> 8699 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8700" class="LineNr"> 8700 </span> 5d/pop-to-ebp +<span id="L8701" class="LineNr"> 8701 </span> c3/return +<span id="L8702" class="LineNr"> 8702 </span> +<span id="L8703" class="LineNr"> 8703 </span><span class="subxTest">test-copy-byte-with-no-output</span>: +<span id="L8704" class="LineNr"> 8704 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8705" class="LineNr"> 8705 </span> 55/push-ebp +<span id="L8706" class="LineNr"> 8706 </span> 89/<- %ebp 4/r32/esp +<span id="L8707" class="LineNr"> 8707 </span> <span class="subxComment"># setup</span> +<span id="L8708" class="LineNr"> 8708 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8709" class="LineNr"> 8709 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8710" class="LineNr"> 8710 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8711" class="LineNr"> 8711 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8712" class="LineNr"> 8712 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8713" class="LineNr"> 8713 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8714" class="LineNr"> 8714 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8715" class="LineNr"> 8715 </span> 68/push 0/imm32 +<span id="L8716" class="LineNr"> 8716 </span> 68/push 0/imm32 +<span id="L8717" class="LineNr"> 8717 </span> 89/<- %edx 4/r32/esp +<span id="L8718" class="LineNr"> 8718 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8719" class="LineNr"> 8719 </span> <span class="subxComment">#</span> +<span id="L8720" class="LineNr"> 8720 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8721" class="LineNr"> 8721 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-byte 0\n"</span>) +<span id="L8722" class="LineNr"> 8722 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8723" class="LineNr"> 8723 </span> <span class="subxComment"># convert</span> +<span id="L8724" class="LineNr"> 8724 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8725" class="LineNr"> 8725 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8726" class="LineNr"> 8726 </span> <span class="subxComment"># restore ed</span> +<span id="L8727" class="LineNr"> 8727 </span> 89/<- %edx 4/r32/esp +<span id="L8728" class="LineNr"> 8728 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8729" class="LineNr"> 8729 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8730" class="Folded"> 8730 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8736" class="LineNr"> 8736 </span> <span class="subxComment"># check output</span> +<span id="L8737" class="LineNr"> 8737 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8703'>test-copy-byte-with-no-output</a>: output should be empty"</span>) +<span id="L8738" class="LineNr"> 8738 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-byte' expects an output"</span> <span class="Constant">"F - <a href='mu.subx.html#L8703'>test-copy-byte-with-no-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8739" class="LineNr"> 8739 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8740" class="LineNr"> 8740 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8703'>test-copy-byte-with-no-output</a>: exit status"</span>) +<span id="L8741" class="LineNr"> 8741 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8742" class="LineNr"> 8742 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8743" class="LineNr"> 8743 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8744" class="LineNr"> 8744 </span> 5d/pop-to-ebp +<span id="L8745" class="LineNr"> 8745 </span> c3/return +<span id="L8746" class="LineNr"> 8746 </span> +<span id="L8747" class="LineNr"> 8747 </span><span class="subxTest">test-copy-byte-with-multiple-outputs</span>: +<span id="L8748" class="LineNr"> 8748 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8749" class="LineNr"> 8749 </span> 55/push-ebp +<span id="L8750" class="LineNr"> 8750 </span> 89/<- %ebp 4/r32/esp +<span id="L8751" class="LineNr"> 8751 </span> <span class="subxComment"># setup</span> +<span id="L8752" class="LineNr"> 8752 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8753" class="LineNr"> 8753 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8754" class="LineNr"> 8754 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8755" class="LineNr"> 8755 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8756" class="LineNr"> 8756 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8757" class="LineNr"> 8757 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8758" class="LineNr"> 8758 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8759" class="LineNr"> 8759 </span> 68/push 0/imm32 +<span id="L8760" class="LineNr"> 8760 </span> 68/push 0/imm32 +<span id="L8761" class="LineNr"> 8761 </span> 89/<- %edx 4/r32/esp +<span id="L8762" class="LineNr"> 8762 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8763" class="LineNr"> 8763 </span> <span class="subxComment">#</span> +<span id="L8764" class="LineNr"> 8764 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8765" class="LineNr"> 8765 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: byte <- copy 0\n"</span>) +<span id="L8766" class="LineNr"> 8766 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: byte <- copy 0\n"</span>) +<span id="L8767" class="LineNr"> 8767 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x, y <- copy-byte 0\n"</span>) +<span id="L8768" class="LineNr"> 8768 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8769" class="LineNr"> 8769 </span> <span class="subxComment"># convert</span> +<span id="L8770" class="LineNr"> 8770 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8771" class="LineNr"> 8771 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8772" class="LineNr"> 8772 </span> <span class="subxComment"># restore ed</span> +<span id="L8773" class="LineNr"> 8773 </span> 89/<- %edx 4/r32/esp +<span id="L8774" class="LineNr"> 8774 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8775" class="LineNr"> 8775 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8776" class="Folded"> 8776 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8782" class="LineNr"> 8782 </span> <span class="subxComment"># check output</span> +<span id="L8783" class="LineNr"> 8783 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8747'>test-copy-byte-with-multiple-outputs</a>: output should be empty"</span>) +<span id="L8784" class="LineNr"> 8784 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-byte' must have just one output"</span> <span class="Constant">"F - <a href='mu.subx.html#L8747'>test-copy-byte-with-multiple-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8785" class="LineNr"> 8785 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8786" class="LineNr"> 8786 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8747'>test-copy-byte-with-multiple-outputs</a>: exit status"</span>) +<span id="L8787" class="LineNr"> 8787 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8788" class="LineNr"> 8788 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8789" class="LineNr"> 8789 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8790" class="LineNr"> 8790 </span> 5d/pop-to-ebp +<span id="L8791" class="LineNr"> 8791 </span> c3/return +<span id="L8792" class="LineNr"> 8792 </span> +<span id="L8793" class="LineNr"> 8793 </span><span class="subxTest">test-copy-byte-deref-address</span>: +<span id="L8794" class="LineNr"> 8794 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8795" class="LineNr"> 8795 </span> 55/push-ebp +<span id="L8796" class="LineNr"> 8796 </span> 89/<- %ebp 4/r32/esp +<span id="L8797" class="LineNr"> 8797 </span> <span class="subxComment"># setup</span> +<span id="L8798" class="LineNr"> 8798 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8799" class="LineNr"> 8799 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8800" class="LineNr"> 8800 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8801" class="LineNr"> 8801 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8802" class="LineNr"> 8802 </span> <span class="subxComment">#</span> +<span id="L8803" class="LineNr"> 8803 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8804" class="LineNr"> 8804 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr byte) <- copy 0\n"</span>) +<span id="L8805" class="LineNr"> 8805 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: byte <- copy-byte *x\n"</span>) +<span id="L8806" class="LineNr"> 8806 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8807" class="LineNr"> 8807 </span> <span class="subxComment"># convert</span> +<span id="L8808" class="LineNr"> 8808 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L8809" class="LineNr"> 8809 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8810" class="Folded"> 8810 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8816" class="LineNr"> 8816 </span> <span class="subxComment"># not bothering checking output</span> +<span id="L8817" class="LineNr"> 8817 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8793'>test-copy-byte-deref-address</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8818" class="LineNr"> 8818 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8819" class="LineNr"> 8819 </span> 5d/pop-to-ebp +<span id="L8820" class="LineNr"> 8820 </span> c3/return +<span id="L8821" class="LineNr"> 8821 </span> +<span id="L8822" class="LineNr"> 8822 </span><span class="subxTest">test-copy-byte-with-invalid-output-type</span>: +<span id="L8823" class="LineNr"> 8823 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8824" class="LineNr"> 8824 </span> 55/push-ebp +<span id="L8825" class="LineNr"> 8825 </span> 89/<- %ebp 4/r32/esp +<span id="L8826" class="LineNr"> 8826 </span> <span class="subxComment"># setup</span> +<span id="L8827" class="LineNr"> 8827 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8828" class="LineNr"> 8828 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8829" class="LineNr"> 8829 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8830" class="LineNr"> 8830 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8831" class="LineNr"> 8831 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8832" class="LineNr"> 8832 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8833" class="LineNr"> 8833 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8834" class="LineNr"> 8834 </span> 68/push 0/imm32 +<span id="L8835" class="LineNr"> 8835 </span> 68/push 0/imm32 +<span id="L8836" class="LineNr"> 8836 </span> 89/<- %edx 4/r32/esp +<span id="L8837" class="LineNr"> 8837 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8838" class="LineNr"> 8838 </span> <span class="subxComment">#</span> +<span id="L8839" class="LineNr"> 8839 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8840" class="LineNr"> 8840 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr byte) <- copy 0\n"</span>) +<span id="L8841" class="LineNr"> 8841 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: int <- copy-byte *x\n"</span>) +<span id="L8842" class="LineNr"> 8842 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8843" class="LineNr"> 8843 </span> <span class="subxComment"># convert</span> +<span id="L8844" class="LineNr"> 8844 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8845" class="LineNr"> 8845 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8846" class="LineNr"> 8846 </span> <span class="subxComment"># restore ed</span> +<span id="L8847" class="LineNr"> 8847 </span> 89/<- %edx 4/r32/esp +<span id="L8848" class="LineNr"> 8848 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8849" class="LineNr"> 8849 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8850" class="Folded"> 8850 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8856" class="LineNr"> 8856 </span> <span class="subxComment"># check output</span> +<span id="L8857" class="LineNr"> 8857 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8822'>test-copy-byte-with-invalid-output-type</a>: output should be empty"</span>) +<span id="L8858" class="LineNr"> 8858 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-byte' must <a href='108write.subx.html#L24'>write</a> to output of type byte"</span> <span class="Constant">"F - <a href='mu.subx.html#L8822'>test-copy-byte-with-invalid-output-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8859" class="LineNr"> 8859 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8860" class="LineNr"> 8860 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8822'>test-copy-byte-with-invalid-output-type</a>: exit status"</span>) +<span id="L8861" class="LineNr"> 8861 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8862" class="LineNr"> 8862 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8863" class="LineNr"> 8863 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8864" class="LineNr"> 8864 </span> 5d/pop-to-ebp +<span id="L8865" class="LineNr"> 8865 </span> c3/return +<span id="L8866" class="LineNr"> 8866 </span> +<span id="L8867" class="LineNr"> 8867 </span><span class="subxTest">test-copy-byte-from-non-scalar-inout</span>: +<span id="L8868" class="LineNr"> 8868 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8869" class="LineNr"> 8869 </span> 55/push-ebp +<span id="L8870" class="LineNr"> 8870 </span> 89/<- %ebp 4/r32/esp +<span id="L8871" class="LineNr"> 8871 </span> <span class="subxComment"># setup</span> +<span id="L8872" class="LineNr"> 8872 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8873" class="LineNr"> 8873 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8874" class="LineNr"> 8874 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8875" class="LineNr"> 8875 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8876" class="LineNr"> 8876 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8877" class="LineNr"> 8877 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8878" class="LineNr"> 8878 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8879" class="LineNr"> 8879 </span> 68/push 0/imm32 +<span id="L8880" class="LineNr"> 8880 </span> 68/push 0/imm32 +<span id="L8881" class="LineNr"> 8881 </span> 89/<- %edx 4/r32/esp +<span id="L8882" class="LineNr"> 8882 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8883" class="LineNr"> 8883 </span> <span class="subxComment">#</span> +<span id="L8884" class="LineNr"> 8884 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8885" class="LineNr"> 8885 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (handle int)\n"</span>) +<span id="L8886" class="LineNr"> 8886 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: byte <- copy-byte x\n"</span>) +<span id="L8887" class="LineNr"> 8887 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8888" class="LineNr"> 8888 </span> <span class="subxComment"># convert</span> +<span id="L8889" class="LineNr"> 8889 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8890" class="LineNr"> 8890 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8891" class="LineNr"> 8891 </span> <span class="subxComment"># restore ed</span> +<span id="L8892" class="LineNr"> 8892 </span> 89/<- %edx 4/r32/esp +<span id="L8893" class="LineNr"> 8893 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8894" class="LineNr"> 8894 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8895" class="Folded"> 8895 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8901" class="LineNr"> 8901 </span> <span class="subxComment"># check output</span> +<span id="L8902" class="LineNr"> 8902 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8867'>test-copy-byte-from-non-scalar-inout</a>: output should be empty"</span>) +<span id="L8903" class="LineNr"> 8903 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-byte: 'x' is too large to fit in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L8867'>test-copy-byte-from-non-scalar-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8904" class="LineNr"> 8904 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8905" class="LineNr"> 8905 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8867'>test-copy-byte-from-non-scalar-inout</a>: exit status"</span>) +<span id="L8906" class="LineNr"> 8906 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8907" class="LineNr"> 8907 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8908" class="LineNr"> 8908 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8909" class="LineNr"> 8909 </span> 5d/pop-to-ebp +<span id="L8910" class="LineNr"> 8910 </span> c3/return +<span id="L8911" class="LineNr"> 8911 </span> +<span id="L8912" class="LineNr"> 8912 </span><span class="subxTest">test-copy-byte-to-with-no-inout</span>: +<span id="L8913" class="LineNr"> 8913 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8914" class="LineNr"> 8914 </span> 55/push-ebp +<span id="L8915" class="LineNr"> 8915 </span> 89/<- %ebp 4/r32/esp +<span id="L8916" class="LineNr"> 8916 </span> <span class="subxComment"># setup</span> +<span id="L8917" class="LineNr"> 8917 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8918" class="LineNr"> 8918 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8919" class="LineNr"> 8919 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8920" class="LineNr"> 8920 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8921" class="LineNr"> 8921 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8922" class="LineNr"> 8922 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8923" class="LineNr"> 8923 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8924" class="LineNr"> 8924 </span> 68/push 0/imm32 +<span id="L8925" class="LineNr"> 8925 </span> 68/push 0/imm32 +<span id="L8926" class="LineNr"> 8926 </span> 89/<- %edx 4/r32/esp +<span id="L8927" class="LineNr"> 8927 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8928" class="LineNr"> 8928 </span> <span class="subxComment">#</span> +<span id="L8929" class="LineNr"> 8929 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8930" class="LineNr"> 8930 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-byte-to\n"</span>) +<span id="L8931" class="LineNr"> 8931 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8932" class="LineNr"> 8932 </span> <span class="subxComment"># convert</span> +<span id="L8933" class="LineNr"> 8933 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8934" class="LineNr"> 8934 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8935" class="LineNr"> 8935 </span> <span class="subxComment"># restore ed</span> +<span id="L8936" class="LineNr"> 8936 </span> 89/<- %edx 4/r32/esp +<span id="L8937" class="LineNr"> 8937 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8938" class="LineNr"> 8938 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8939" class="Folded"> 8939 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8945" class="LineNr"> 8945 </span> <span class="subxComment"># check output</span> +<span id="L8946" class="LineNr"> 8946 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8912'>test-copy-byte-to-with-no-inout</a>: output should be empty"</span>) +<span id="L8947" class="LineNr"> 8947 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-byte-to' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L8912'>test-copy-byte-to-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8948" class="LineNr"> 8948 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8949" class="LineNr"> 8949 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8912'>test-copy-byte-to-with-no-inout</a>: exit status"</span>) +<span id="L8950" class="LineNr"> 8950 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8951" class="LineNr"> 8951 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8952" class="LineNr"> 8952 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8953" class="LineNr"> 8953 </span> 5d/pop-to-ebp +<span id="L8954" class="LineNr"> 8954 </span> c3/return +<span id="L8955" class="LineNr"> 8955 </span> +<span id="L8956" class="LineNr"> 8956 </span><span class="subxTest">test-copy-byte-to-with-no-source</span>: +<span id="L8957" class="LineNr"> 8957 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8958" class="LineNr"> 8958 </span> 55/push-ebp +<span id="L8959" class="LineNr"> 8959 </span> 89/<- %ebp 4/r32/esp +<span id="L8960" class="LineNr"> 8960 </span> <span class="subxComment"># setup</span> +<span id="L8961" class="LineNr"> 8961 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8962" class="LineNr"> 8962 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8963" class="LineNr"> 8963 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8964" class="LineNr"> 8964 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8965" class="LineNr"> 8965 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8966" class="LineNr"> 8966 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8967" class="LineNr"> 8967 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8968" class="LineNr"> 8968 </span> 68/push 0/imm32 +<span id="L8969" class="LineNr"> 8969 </span> 68/push 0/imm32 +<span id="L8970" class="LineNr"> 8970 </span> 89/<- %edx 4/r32/esp +<span id="L8971" class="LineNr"> 8971 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8972" class="LineNr"> 8972 </span> <span class="subxComment">#</span> +<span id="L8973" class="LineNr"> 8973 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8974" class="LineNr"> 8974 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr byte) <- copy 0\n"</span>) +<span id="L8975" class="LineNr"> 8975 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-byte-to *x\n"</span>) +<span id="L8976" class="LineNr"> 8976 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8977" class="LineNr"> 8977 </span> <span class="subxComment"># convert</span> +<span id="L8978" class="LineNr"> 8978 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8979" class="LineNr"> 8979 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8980" class="LineNr"> 8980 </span> <span class="subxComment"># restore ed</span> +<span id="L8981" class="LineNr"> 8981 </span> 89/<- %edx 4/r32/esp +<span id="L8982" class="LineNr"> 8982 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8983" class="LineNr"> 8983 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8984" class="Folded"> 8984 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8990" class="LineNr"> 8990 </span> <span class="subxComment"># check output</span> +<span id="L8991" class="LineNr"> 8991 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8956'>test-copy-byte-to-with-no-source</a>: output should be empty"</span>) +<span id="L8992" class="LineNr"> 8992 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-byte-to' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L8956'>test-copy-byte-to-with-no-source</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8993" class="LineNr"> 8993 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8994" class="LineNr"> 8994 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8956'>test-copy-byte-to-with-no-source</a>: exit status"</span>) +<span id="L8995" class="LineNr"> 8995 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8996" class="LineNr"> 8996 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8997" class="LineNr"> 8997 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8998" class="LineNr"> 8998 </span> 5d/pop-to-ebp +<span id="L8999" class="LineNr"> 8999 </span> c3/return +<span id="L9000" class="LineNr"> 9000 </span> +<span id="L9001" class="LineNr"> 9001 </span><span class="subxTest">test-copy-byte-to-with-too-many-inouts</span>: +<span id="L9002" class="LineNr"> 9002 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9003" class="LineNr"> 9003 </span> 55/push-ebp +<span id="L9004" class="LineNr"> 9004 </span> 89/<- %ebp 4/r32/esp +<span id="L9005" class="LineNr"> 9005 </span> <span class="subxComment"># setup</span> +<span id="L9006" class="LineNr"> 9006 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9007" class="LineNr"> 9007 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9008" class="LineNr"> 9008 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9009" class="LineNr"> 9009 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9010" class="LineNr"> 9010 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9011" class="LineNr"> 9011 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9012" class="LineNr"> 9012 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9013" class="LineNr"> 9013 </span> 68/push 0/imm32 +<span id="L9014" class="LineNr"> 9014 </span> 68/push 0/imm32 +<span id="L9015" class="LineNr"> 9015 </span> 89/<- %edx 4/r32/esp +<span id="L9016" class="LineNr"> 9016 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9017" class="LineNr"> 9017 </span> <span class="subxComment">#</span> +<span id="L9018" class="LineNr"> 9018 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9019" class="LineNr"> 9019 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr byte) <- copy 0\n"</span>) +<span id="L9020" class="LineNr"> 9020 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-byte-to *x, 0, 0\n"</span>) +<span id="L9021" class="LineNr"> 9021 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9022" class="LineNr"> 9022 </span> <span class="subxComment"># convert</span> +<span id="L9023" class="LineNr"> 9023 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9024" class="LineNr"> 9024 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9025" class="LineNr"> 9025 </span> <span class="subxComment"># restore ed</span> +<span id="L9026" class="LineNr"> 9026 </span> 89/<- %edx 4/r32/esp +<span id="L9027" class="LineNr"> 9027 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9028" class="LineNr"> 9028 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9029" class="Folded"> 9029 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9035" class="LineNr"> 9035 </span> <span class="subxComment"># check output</span> +<span id="L9036" class="LineNr"> 9036 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9001'>test-copy-byte-to-with-too-many-inouts</a>: output should be empty"</span>) +<span id="L9037" class="LineNr"> 9037 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-byte-to' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L9001'>test-copy-byte-to-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9038" class="LineNr"> 9038 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9039" class="LineNr"> 9039 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9001'>test-copy-byte-to-with-too-many-inouts</a>: exit status"</span>) +<span id="L9040" class="LineNr"> 9040 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9041" class="LineNr"> 9041 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9042" class="LineNr"> 9042 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9043" class="LineNr"> 9043 </span> 5d/pop-to-ebp +<span id="L9044" class="LineNr"> 9044 </span> c3/return +<span id="L9045" class="LineNr"> 9045 </span> +<span id="L9046" class="LineNr"> 9046 </span><span class="subxTest">test-copy-byte-to-with-output</span>: +<span id="L9047" class="LineNr"> 9047 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9048" class="LineNr"> 9048 </span> 55/push-ebp +<span id="L9049" class="LineNr"> 9049 </span> 89/<- %ebp 4/r32/esp +<span id="L9050" class="LineNr"> 9050 </span> <span class="subxComment"># setup</span> +<span id="L9051" class="LineNr"> 9051 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9052" class="LineNr"> 9052 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9053" class="LineNr"> 9053 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9054" class="LineNr"> 9054 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9055" class="LineNr"> 9055 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9056" class="LineNr"> 9056 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9057" class="LineNr"> 9057 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9058" class="LineNr"> 9058 </span> 68/push 0/imm32 +<span id="L9059" class="LineNr"> 9059 </span> 68/push 0/imm32 +<span id="L9060" class="LineNr"> 9060 </span> 89/<- %edx 4/r32/esp +<span id="L9061" class="LineNr"> 9061 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9062" class="LineNr"> 9062 </span> <span class="subxComment">#</span> +<span id="L9063" class="LineNr"> 9063 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9064" class="LineNr"> 9064 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: byte <- copy 0\n"</span>) +<span id="L9065" class="LineNr"> 9065 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr byte) <- copy 0\n"</span>) +<span id="L9066" class="LineNr"> 9066 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- copy-byte-to *y, 0\n"</span>) +<span id="L9067" class="LineNr"> 9067 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9068" class="LineNr"> 9068 </span> <span class="subxComment"># convert</span> +<span id="L9069" class="LineNr"> 9069 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9070" class="LineNr"> 9070 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9071" class="LineNr"> 9071 </span> <span class="subxComment"># restore ed</span> +<span id="L9072" class="LineNr"> 9072 </span> 89/<- %edx 4/r32/esp +<span id="L9073" class="LineNr"> 9073 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9074" class="LineNr"> 9074 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9075" class="Folded"> 9075 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9081" class="LineNr"> 9081 </span> <span class="subxComment"># check output</span> +<span id="L9082" class="LineNr"> 9082 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9046'>test-copy-byte-to-with-output</a>: output should be empty"</span>) +<span id="L9083" class="LineNr"> 9083 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-byte-to' must not have any outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L9046'>test-copy-byte-to-with-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9084" class="LineNr"> 9084 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9085" class="LineNr"> 9085 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9046'>test-copy-byte-to-with-output</a>: exit status"</span>) +<span id="L9086" class="LineNr"> 9086 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9087" class="LineNr"> 9087 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9088" class="LineNr"> 9088 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9089" class="LineNr"> 9089 </span> 5d/pop-to-ebp +<span id="L9090" class="LineNr"> 9090 </span> c3/return +<span id="L9091" class="LineNr"> 9091 </span> +<span id="L9092" class="LineNr"> 9092 </span><span class="subxTest">test-copy-byte-to-with-invalid-output-type</span>: +<span id="L9093" class="LineNr"> 9093 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9094" class="LineNr"> 9094 </span> 55/push-ebp +<span id="L9095" class="LineNr"> 9095 </span> 89/<- %ebp 4/r32/esp +<span id="L9096" class="LineNr"> 9096 </span> <span class="subxComment"># setup</span> +<span id="L9097" class="LineNr"> 9097 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9098" class="LineNr"> 9098 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9099" class="LineNr"> 9099 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9100" class="LineNr"> 9100 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9101" class="LineNr"> 9101 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9102" class="LineNr"> 9102 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9103" class="LineNr"> 9103 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9104" class="LineNr"> 9104 </span> 68/push 0/imm32 +<span id="L9105" class="LineNr"> 9105 </span> 68/push 0/imm32 +<span id="L9106" class="LineNr"> 9106 </span> 89/<- %edx 4/r32/esp +<span id="L9107" class="LineNr"> 9107 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9108" class="LineNr"> 9108 </span> <span class="subxComment">#</span> +<span id="L9109" class="LineNr"> 9109 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9110" class="LineNr"> 9110 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: byte <- copy 0\n"</span>) +<span id="L9111" class="LineNr"> 9111 </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="L9112" class="LineNr"> 9112 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-byte-to y, x\n"</span>) +<span id="L9113" class="LineNr"> 9113 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9114" class="LineNr"> 9114 </span> <span class="subxComment"># convert</span> +<span id="L9115" class="LineNr"> 9115 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9116" class="LineNr"> 9116 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9117" class="LineNr"> 9117 </span> <span class="subxComment"># restore ed</span> +<span id="L9118" class="LineNr"> 9118 </span> 89/<- %edx 4/r32/esp +<span id="L9119" class="LineNr"> 9119 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9120" class="LineNr"> 9120 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9121" class="Folded"> 9121 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9127" class="LineNr"> 9127 </span> <span class="subxComment"># check output</span> +<span id="L9128" class="LineNr"> 9128 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9092'>test-copy-byte-to-with-invalid-output-type</a>: output should be empty"</span>) +<span id="L9129" class="LineNr"> 9129 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-byte-to: 'y' must be a byte"</span> <span class="Constant">"F - <a href='mu.subx.html#L9092'>test-copy-byte-to-with-invalid-output-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9130" class="LineNr"> 9130 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9131" class="LineNr"> 9131 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9092'>test-copy-byte-to-with-invalid-output-type</a>: exit status"</span>) +<span id="L9132" class="LineNr"> 9132 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9133" class="LineNr"> 9133 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9134" class="LineNr"> 9134 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9135" class="LineNr"> 9135 </span> 5d/pop-to-ebp +<span id="L9136" class="LineNr"> 9136 </span> c3/return +<span id="L9137" class="LineNr"> 9137 </span> +<span id="L9138" class="LineNr"> 9138 </span><span class="subxTest">test-copy-byte-to-with-literal-inout</span>: +<span id="L9139" class="LineNr"> 9139 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9140" class="LineNr"> 9140 </span> 55/push-ebp +<span id="L9141" class="LineNr"> 9141 </span> 89/<- %ebp 4/r32/esp +<span id="L9142" class="LineNr"> 9142 </span> <span class="subxComment"># setup</span> +<span id="L9143" class="LineNr"> 9143 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9144" class="LineNr"> 9144 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9145" class="LineNr"> 9145 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9146" class="LineNr"> 9146 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9147" class="LineNr"> 9147 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9148" class="LineNr"> 9148 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9149" class="LineNr"> 9149 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9150" class="LineNr"> 9150 </span> 68/push 0/imm32 +<span id="L9151" class="LineNr"> 9151 </span> 68/push 0/imm32 +<span id="L9152" class="LineNr"> 9152 </span> 89/<- %edx 4/r32/esp +<span id="L9153" class="LineNr"> 9153 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9154" class="LineNr"> 9154 </span> <span class="subxComment">#</span> +<span id="L9155" class="LineNr"> 9155 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9156" class="LineNr"> 9156 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr byte) <- copy 0\n"</span>) +<span id="L9157" class="LineNr"> 9157 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-byte-to *x, 0\n"</span>) +<span id="L9158" class="LineNr"> 9158 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9159" class="LineNr"> 9159 </span> <span class="subxComment"># convert</span> +<span id="L9160" class="LineNr"> 9160 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9161" class="LineNr"> 9161 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9162" class="LineNr"> 9162 </span> <span class="subxComment"># restore ed</span> +<span id="L9163" class="LineNr"> 9163 </span> 89/<- %edx 4/r32/esp +<span id="L9164" class="LineNr"> 9164 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9165" class="LineNr"> 9165 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9166" class="Folded"> 9166 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9172" class="LineNr"> 9172 </span> <span class="subxComment"># check output</span> +<span id="L9173" class="LineNr"> 9173 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9138'>test-copy-byte-to-with-literal-inout</a>: output should be empty"</span>) +<span id="L9174" class="LineNr"> 9174 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-byte-to: source (second inout) must be in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L9138'>test-copy-byte-to-with-literal-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9175" class="LineNr"> 9175 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9176" class="LineNr"> 9176 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9138'>test-copy-byte-to-with-literal-inout</a>: exit status"</span>) +<span id="L9177" class="LineNr"> 9177 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9178" class="LineNr"> 9178 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9179" class="LineNr"> 9179 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9180" class="LineNr"> 9180 </span> 5d/pop-to-ebp +<span id="L9181" class="LineNr"> 9181 </span> c3/return +<span id="L9182" class="LineNr"> 9182 </span> +<span id="L9183" class="LineNr"> 9183 </span><span class="subxTest">test-copy-byte-to-deref-address</span>: +<span id="L9184" class="LineNr"> 9184 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9185" class="LineNr"> 9185 </span> 55/push-ebp +<span id="L9186" class="LineNr"> 9186 </span> 89/<- %ebp 4/r32/esp +<span id="L9187" class="LineNr"> 9187 </span> <span class="subxComment"># setup</span> +<span id="L9188" class="LineNr"> 9188 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9189" class="LineNr"> 9189 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9190" class="LineNr"> 9190 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9191" class="LineNr"> 9191 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9192" class="LineNr"> 9192 </span> <span class="subxComment">#</span> +<span id="L9193" class="LineNr"> 9193 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9194" class="LineNr"> 9194 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: byte <- copy 0\n"</span>) +<span id="L9195" class="LineNr"> 9195 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr byte) <- copy 0\n"</span>) +<span id="L9196" class="LineNr"> 9196 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-byte-to *y, x\n"</span>) +<span id="L9197" class="LineNr"> 9197 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9198" class="LineNr"> 9198 </span> <span class="subxComment"># convert</span> +<span id="L9199" class="LineNr"> 9199 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L9200" class="LineNr"> 9200 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9201" class="LineNr"> 9201 </span> <span class="subxComment"># no errors</span> +<span id="L9202" class="LineNr"> 9202 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9203" class="LineNr"> 9203 </span> 5d/pop-to-ebp +<span id="L9204" class="LineNr"> 9204 </span> c3/return +<span id="L9205" class="LineNr"> 9205 </span> +<span id="L9206" class="LineNr"> 9206 </span><span class="subxTest">test-copy-byte-to-from-non-scalar-inout</span>: +<span id="L9207" class="LineNr"> 9207 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9208" class="LineNr"> 9208 </span> 55/push-ebp +<span id="L9209" class="LineNr"> 9209 </span> 89/<- %ebp 4/r32/esp +<span id="L9210" class="LineNr"> 9210 </span> <span class="subxComment"># setup</span> +<span id="L9211" class="LineNr"> 9211 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9212" class="LineNr"> 9212 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9213" class="LineNr"> 9213 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9214" class="LineNr"> 9214 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9215" class="LineNr"> 9215 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9216" class="LineNr"> 9216 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9217" class="LineNr"> 9217 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9218" class="LineNr"> 9218 </span> 68/push 0/imm32 +<span id="L9219" class="LineNr"> 9219 </span> 68/push 0/imm32 +<span id="L9220" class="LineNr"> 9220 </span> 89/<- %edx 4/r32/esp +<span id="L9221" class="LineNr"> 9221 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9222" class="LineNr"> 9222 </span> <span class="subxComment">#</span> +<span id="L9223" class="LineNr"> 9223 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9224" class="LineNr"> 9224 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (handle int)\n"</span>) +<span id="L9225" class="LineNr"> 9225 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: (addr byte) <- copy 0\n"</span>) +<span id="L9226" class="LineNr"> 9226 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-byte-to *y, x\n"</span>) +<span id="L9227" class="LineNr"> 9227 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9228" class="LineNr"> 9228 </span> <span class="subxComment"># convert</span> +<span id="L9229" class="LineNr"> 9229 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9230" class="LineNr"> 9230 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9231" class="LineNr"> 9231 </span> <span class="subxComment"># restore ed</span> +<span id="L9232" class="LineNr"> 9232 </span> 89/<- %edx 4/r32/esp +<span id="L9233" class="LineNr"> 9233 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9234" class="LineNr"> 9234 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9235" class="Folded"> 9235 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9241" class="LineNr"> 9241 </span> <span class="subxComment"># check output</span> +<span id="L9242" class="LineNr"> 9242 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9206'>test-copy-byte-to-from-non-scalar-inout</a>: output should be empty"</span>) +<span id="L9243" class="LineNr"> 9243 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-byte-to: 'x' is too large to copy"</span> <span class="Constant">"F - <a href='mu.subx.html#L9206'>test-copy-byte-to-from-non-scalar-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9244" class="LineNr"> 9244 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9245" class="LineNr"> 9245 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9206'>test-copy-byte-to-from-non-scalar-inout</a>: exit status"</span>) +<span id="L9246" class="LineNr"> 9246 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9247" class="LineNr"> 9247 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9248" class="LineNr"> 9248 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9249" class="LineNr"> 9249 </span> 5d/pop-to-ebp +<span id="L9250" class="LineNr"> 9250 </span> c3/return +<span id="L9251" class="LineNr"> 9251 </span> +<span id="L9252" class="LineNr"> 9252 </span><span class="subxTest">test-compare-with-no-inout</span>: +<span id="L9253" class="LineNr"> 9253 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9254" class="LineNr"> 9254 </span> 55/push-ebp +<span id="L9255" class="LineNr"> 9255 </span> 89/<- %ebp 4/r32/esp +<span id="L9256" class="LineNr"> 9256 </span> <span class="subxComment"># setup</span> +<span id="L9257" class="LineNr"> 9257 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9258" class="LineNr"> 9258 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9259" class="LineNr"> 9259 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9260" class="LineNr"> 9260 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9261" class="LineNr"> 9261 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9262" class="LineNr"> 9262 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9263" class="LineNr"> 9263 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9264" class="LineNr"> 9264 </span> 68/push 0/imm32 +<span id="L9265" class="LineNr"> 9265 </span> 68/push 0/imm32 +<span id="L9266" class="LineNr"> 9266 </span> 89/<- %edx 4/r32/esp +<span id="L9267" class="LineNr"> 9267 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9268" class="LineNr"> 9268 </span> <span class="subxComment">#</span> +<span id="L9269" class="LineNr"> 9269 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9270" class="LineNr"> 9270 </span> (<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="L9271" class="LineNr"> 9271 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare\n"</span>) +<span id="L9272" class="LineNr"> 9272 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9273" class="LineNr"> 9273 </span> <span class="subxComment"># convert</span> +<span id="L9274" class="LineNr"> 9274 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9275" class="LineNr"> 9275 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9276" class="LineNr"> 9276 </span> <span class="subxComment"># restore ed</span> +<span id="L9277" class="LineNr"> 9277 </span> 89/<- %edx 4/r32/esp +<span id="L9278" class="LineNr"> 9278 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9279" class="LineNr"> 9279 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9280" class="Folded"> 9280 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9286" class="LineNr"> 9286 </span> <span class="subxComment"># check output</span> +<span id="L9287" class="LineNr"> 9287 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9252'>test-compare-with-no-inout</a>: output should be empty"</span>) +<span id="L9288" class="LineNr"> 9288 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'compare' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L9252'>test-compare-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9289" class="LineNr"> 9289 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9290" class="LineNr"> 9290 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9252'>test-compare-with-no-inout</a>: exit status"</span>) +<span id="L9291" class="LineNr"> 9291 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9292" class="LineNr"> 9292 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9293" class="LineNr"> 9293 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9294" class="LineNr"> 9294 </span> 5d/pop-to-ebp +<span id="L9295" class="LineNr"> 9295 </span> c3/return +<span id="L9296" class="LineNr"> 9296 </span> +<span id="L9297" class="LineNr"> 9297 </span><span class="subxTest">test-compare-with-just-one-inout</span>: +<span id="L9298" class="LineNr"> 9298 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9299" class="LineNr"> 9299 </span> 55/push-ebp +<span id="L9300" class="LineNr"> 9300 </span> 89/<- %ebp 4/r32/esp +<span id="L9301" class="LineNr"> 9301 </span> <span class="subxComment"># setup</span> +<span id="L9302" class="LineNr"> 9302 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9303" class="LineNr"> 9303 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9304" class="LineNr"> 9304 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9305" class="LineNr"> 9305 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9306" class="LineNr"> 9306 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9307" class="LineNr"> 9307 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9308" class="LineNr"> 9308 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9309" class="LineNr"> 9309 </span> 68/push 0/imm32 +<span id="L9310" class="LineNr"> 9310 </span> 68/push 0/imm32 +<span id="L9311" class="LineNr"> 9311 </span> 89/<- %edx 4/r32/esp +<span id="L9312" class="LineNr"> 9312 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9313" class="LineNr"> 9313 </span> <span class="subxComment">#</span> +<span id="L9314" class="LineNr"> 9314 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9315" class="LineNr"> 9315 </span> (<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="L9316" class="LineNr"> 9316 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare x\n"</span>) +<span id="L9317" class="LineNr"> 9317 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9318" class="LineNr"> 9318 </span> <span class="subxComment"># convert</span> +<span id="L9319" class="LineNr"> 9319 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9320" class="LineNr"> 9320 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9321" class="LineNr"> 9321 </span> <span class="subxComment"># restore ed</span> +<span id="L9322" class="LineNr"> 9322 </span> 89/<- %edx 4/r32/esp +<span id="L9323" class="LineNr"> 9323 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9324" class="LineNr"> 9324 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9325" class="Folded"> 9325 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9331" class="LineNr"> 9331 </span> <span class="subxComment"># check output</span> +<span id="L9332" class="LineNr"> 9332 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9297'>test-compare-with-just-one-inout</a>: output should be empty"</span>) +<span id="L9333" class="LineNr"> 9333 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'compare' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L9297'>test-compare-with-just-one-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9334" class="LineNr"> 9334 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9335" class="LineNr"> 9335 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9297'>test-compare-with-just-one-inout</a>: exit status"</span>) +<span id="L9336" class="LineNr"> 9336 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9337" class="LineNr"> 9337 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9338" class="LineNr"> 9338 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9339" class="LineNr"> 9339 </span> 5d/pop-to-ebp +<span id="L9340" class="LineNr"> 9340 </span> c3/return +<span id="L9341" class="LineNr"> 9341 </span> +<span id="L9342" class="LineNr"> 9342 </span><span class="subxTest">test-compare-with-too-many-inouts</span>: +<span id="L9343" class="LineNr"> 9343 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9344" class="LineNr"> 9344 </span> 55/push-ebp +<span id="L9345" class="LineNr"> 9345 </span> 89/<- %ebp 4/r32/esp +<span id="L9346" class="LineNr"> 9346 </span> <span class="subxComment"># setup</span> +<span id="L9347" class="LineNr"> 9347 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9348" class="LineNr"> 9348 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9349" class="LineNr"> 9349 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9350" class="LineNr"> 9350 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9351" class="LineNr"> 9351 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9352" class="LineNr"> 9352 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9353" class="LineNr"> 9353 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9354" class="LineNr"> 9354 </span> 68/push 0/imm32 +<span id="L9355" class="LineNr"> 9355 </span> 68/push 0/imm32 +<span id="L9356" class="LineNr"> 9356 </span> 89/<- %edx 4/r32/esp +<span id="L9357" class="LineNr"> 9357 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9358" class="LineNr"> 9358 </span> <span class="subxComment">#</span> +<span id="L9359" class="LineNr"> 9359 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9360" class="LineNr"> 9360 </span> (<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="L9361" class="LineNr"> 9361 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare x, 0, 0\n"</span>) +<span id="L9362" class="LineNr"> 9362 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9363" class="LineNr"> 9363 </span> <span class="subxComment"># convert</span> +<span id="L9364" class="LineNr"> 9364 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9365" class="LineNr"> 9365 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9366" class="LineNr"> 9366 </span> <span class="subxComment"># restore ed</span> +<span id="L9367" class="LineNr"> 9367 </span> 89/<- %edx 4/r32/esp +<span id="L9368" class="LineNr"> 9368 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9369" class="LineNr"> 9369 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9370" class="Folded"> 9370 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9376" class="LineNr"> 9376 </span> <span class="subxComment"># check output</span> +<span id="L9377" class="LineNr"> 9377 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9342'>test-compare-with-too-many-inouts</a>: output should be empty"</span>) +<span id="L9378" class="LineNr"> 9378 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'compare' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L9342'>test-compare-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9379" class="LineNr"> 9379 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9380" class="LineNr"> 9380 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9342'>test-compare-with-too-many-inouts</a>: exit status"</span>) +<span id="L9381" class="LineNr"> 9381 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9382" class="LineNr"> 9382 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9383" class="LineNr"> 9383 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9384" class="LineNr"> 9384 </span> 5d/pop-to-ebp +<span id="L9385" class="LineNr"> 9385 </span> c3/return +<span id="L9386" class="LineNr"> 9386 </span> +<span id="L9387" class="LineNr"> 9387 </span><span class="subxTest">test-compare-with-output</span>: +<span id="L9388" class="LineNr"> 9388 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9389" class="LineNr"> 9389 </span> 55/push-ebp +<span id="L9390" class="LineNr"> 9390 </span> 89/<- %ebp 4/r32/esp +<span id="L9391" class="LineNr"> 9391 </span> <span class="subxComment"># setup</span> +<span id="L9392" class="LineNr"> 9392 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9393" class="LineNr"> 9393 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9394" class="LineNr"> 9394 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9395" class="LineNr"> 9395 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9396" class="LineNr"> 9396 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9397" class="LineNr"> 9397 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9398" class="LineNr"> 9398 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9399" class="LineNr"> 9399 </span> 68/push 0/imm32 +<span id="L9400" class="LineNr"> 9400 </span> 68/push 0/imm32 +<span id="L9401" class="LineNr"> 9401 </span> 89/<- %edx 4/r32/esp +<span id="L9402" class="LineNr"> 9402 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9403" class="LineNr"> 9403 </span> <span class="subxComment">#</span> +<span id="L9404" class="LineNr"> 9404 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9405" class="LineNr"> 9405 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy 0\n"</span>) +<span id="L9406" class="LineNr"> 9406 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: boolean <- copy 0\n"</span>) +<span id="L9407" class="LineNr"> 9407 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- compare y, 0\n"</span>) +<span id="L9408" class="LineNr"> 9408 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9409" class="LineNr"> 9409 </span> <span class="subxComment"># convert</span> +<span id="L9410" class="LineNr"> 9410 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9411" class="LineNr"> 9411 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9412" class="LineNr"> 9412 </span> <span class="subxComment"># restore ed</span> +<span id="L9413" class="LineNr"> 9413 </span> 89/<- %edx 4/r32/esp +<span id="L9414" class="LineNr"> 9414 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9415" class="LineNr"> 9415 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9416" class="Folded"> 9416 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9422" class="LineNr"> 9422 </span> <span class="subxComment"># check output</span> +<span id="L9423" class="LineNr"> 9423 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9387'>test-compare-with-output</a>: output should be empty"</span>) +<span id="L9424" class="LineNr"> 9424 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'compare' must not have any outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L9387'>test-compare-with-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9425" class="LineNr"> 9425 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9426" class="LineNr"> 9426 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9387'>test-compare-with-output</a>: exit status"</span>) +<span id="L9427" class="LineNr"> 9427 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9428" class="LineNr"> 9428 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9429" class="LineNr"> 9429 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9430" class="LineNr"> 9430 </span> 5d/pop-to-ebp +<span id="L9431" class="LineNr"> 9431 </span> c3/return +<span id="L9432" class="LineNr"> 9432 </span> +<span id="L9433" class="LineNr"> 9433 </span><span class="subxTest">test-compare-invalid-value-to-address</span>: +<span id="L9434" class="LineNr"> 9434 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9435" class="LineNr"> 9435 </span> 55/push-ebp +<span id="L9436" class="LineNr"> 9436 </span> 89/<- %ebp 4/r32/esp +<span id="L9437" class="LineNr"> 9437 </span> <span class="subxComment"># setup</span> +<span id="L9438" class="LineNr"> 9438 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9439" class="LineNr"> 9439 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9440" class="LineNr"> 9440 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9441" class="LineNr"> 9441 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9442" class="LineNr"> 9442 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9443" class="LineNr"> 9443 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9444" class="LineNr"> 9444 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9445" class="LineNr"> 9445 </span> 68/push 0/imm32 +<span id="L9446" class="LineNr"> 9446 </span> 68/push 0/imm32 +<span id="L9447" class="LineNr"> 9447 </span> 89/<- %edx 4/r32/esp +<span id="L9448" class="LineNr"> 9448 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9449" class="LineNr"> 9449 </span> <span class="subxComment">#</span> +<span id="L9450" class="LineNr"> 9450 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9451" class="LineNr"> 9451 </span> (<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="L9452" class="LineNr"> 9452 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: (addr int)\n"</span>) +<span id="L9453" class="LineNr"> 9453 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare y, x\n"</span>) +<span id="L9454" class="LineNr"> 9454 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9455" class="LineNr"> 9455 </span> <span class="subxComment"># convert</span> +<span id="L9456" class="LineNr"> 9456 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9457" class="LineNr"> 9457 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9458" class="LineNr"> 9458 </span> <span class="subxComment"># restore ed</span> +<span id="L9459" class="LineNr"> 9459 </span> 89/<- %edx 4/r32/esp +<span id="L9460" class="LineNr"> 9460 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9461" class="LineNr"> 9461 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9462" class="Folded"> 9462 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9468" class="LineNr"> 9468 </span> <span class="subxComment"># check output</span> +<span id="L9469" class="LineNr"> 9469 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9433'>test-compare-invalid-value-to-address</a>: output should be empty"</span>) +<span id="L9470" class="LineNr"> 9470 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compare: 'y' must be a non-addr non-offset scalar"</span> <span class="Constant">"F - <a href='mu.subx.html#L9433'>test-compare-invalid-value-to-address</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9471" class="LineNr"> 9471 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9472" class="LineNr"> 9472 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9433'>test-compare-invalid-value-to-address</a>: exit status"</span>) +<span id="L9473" class="LineNr"> 9473 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9474" class="LineNr"> 9474 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9475" class="LineNr"> 9475 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9476" class="LineNr"> 9476 </span> 5d/pop-to-ebp +<span id="L9477" class="LineNr"> 9477 </span> c3/return +<span id="L9478" class="LineNr"> 9478 </span> +<span id="L9479" class="LineNr"> 9479 </span><span class="subxTest">test-compare-address</span>: +<span id="L9480" class="LineNr"> 9480 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9481" class="LineNr"> 9481 </span> 55/push-ebp +<span id="L9482" class="LineNr"> 9482 </span> 89/<- %ebp 4/r32/esp +<span id="L9483" class="LineNr"> 9483 </span> <span class="subxComment"># setup</span> +<span id="L9484" class="LineNr"> 9484 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9485" class="LineNr"> 9485 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9486" class="LineNr"> 9486 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9487" class="LineNr"> 9487 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9488" class="LineNr"> 9488 </span> <span class="subxComment">#</span> +<span id="L9489" class="LineNr"> 9489 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9490" class="LineNr"> 9490 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr int) <- copy 0\n"</span>) +<span id="L9491" class="LineNr"> 9491 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr int) <- copy 0\n"</span>) +<span id="L9492" class="LineNr"> 9492 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare y, x\n"</span>) +<span id="L9493" class="LineNr"> 9493 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9494" class="LineNr"> 9494 </span> <span class="subxComment"># convert</span> +<span id="L9495" class="LineNr"> 9495 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L9496" class="LineNr"> 9496 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9497" class="LineNr"> 9497 </span> <span class="subxComment"># no errors</span> +<span id="L9498" class="LineNr"> 9498 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9499" class="LineNr"> 9499 </span> 5d/pop-to-ebp +<span id="L9500" class="LineNr"> 9500 </span> c3/return +<span id="L9501" class="LineNr"> 9501 </span> +<span id="L9502" class="LineNr"> 9502 </span><span class="subxTest">test-compare-deref-address</span>: +<span id="L9503" class="LineNr"> 9503 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9504" class="LineNr"> 9504 </span> 55/push-ebp +<span id="L9505" class="LineNr"> 9505 </span> 89/<- %ebp 4/r32/esp +<span id="L9506" class="LineNr"> 9506 </span> <span class="subxComment"># setup</span> +<span id="L9507" class="LineNr"> 9507 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9508" class="LineNr"> 9508 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9509" class="LineNr"> 9509 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9510" class="LineNr"> 9510 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9511" class="LineNr"> 9511 </span> <span class="subxComment">#</span> +<span id="L9512" class="LineNr"> 9512 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9513" class="LineNr"> 9513 </span> (<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="L9514" class="LineNr"> 9514 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr addr int) <- copy 0\n"</span>) +<span id="L9515" class="LineNr"> 9515 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare *y, x\n"</span>) +<span id="L9516" class="LineNr"> 9516 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9517" class="LineNr"> 9517 </span> <span class="subxComment"># convert</span> +<span id="L9518" class="LineNr"> 9518 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L9519" class="LineNr"> 9519 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9520" class="LineNr"> 9520 </span> <span class="subxComment"># no errors</span> +<span id="L9521" class="LineNr"> 9521 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9522" class="LineNr"> 9522 </span> 5d/pop-to-ebp +<span id="L9523" class="LineNr"> 9523 </span> c3/return +<span id="L9524" class="LineNr"> 9524 </span> +<span id="L9525" class="LineNr"> 9525 </span><span class="subxTest">test-compare-two-vars-in-memory</span>: +<span id="L9526" class="LineNr"> 9526 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9527" class="LineNr"> 9527 </span> 55/push-ebp +<span id="L9528" class="LineNr"> 9528 </span> 89/<- %ebp 4/r32/esp +<span id="L9529" class="LineNr"> 9529 </span> <span class="subxComment"># setup</span> +<span id="L9530" class="LineNr"> 9530 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9531" class="LineNr"> 9531 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9532" class="LineNr"> 9532 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9533" class="LineNr"> 9533 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9534" class="LineNr"> 9534 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9535" class="LineNr"> 9535 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9536" class="LineNr"> 9536 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9537" class="LineNr"> 9537 </span> 68/push 0/imm32 +<span id="L9538" class="LineNr"> 9538 </span> 68/push 0/imm32 +<span id="L9539" class="LineNr"> 9539 </span> 89/<- %edx 4/r32/esp +<span id="L9540" class="LineNr"> 9540 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9541" class="LineNr"> 9541 </span> <span class="subxComment">#</span> +<span id="L9542" class="LineNr"> 9542 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9543" class="LineNr"> 9543 </span> (<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="L9544" class="LineNr"> 9544 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare x, x\n"</span>) +<span id="L9545" class="LineNr"> 9545 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9546" class="LineNr"> 9546 </span> <span class="subxComment"># convert</span> +<span id="L9547" class="LineNr"> 9547 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9548" class="LineNr"> 9548 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9549" class="LineNr"> 9549 </span> <span class="subxComment"># restore ed</span> +<span id="L9550" class="LineNr"> 9550 </span> 89/<- %edx 4/r32/esp +<span id="L9551" class="LineNr"> 9551 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9552" class="LineNr"> 9552 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9553" class="Folded"> 9553 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9559" class="LineNr"> 9559 </span> <span class="subxComment"># check output</span> +<span id="L9560" class="LineNr"> 9560 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9525'>test-compare-two-vars-in-memory</a>: output should be empty"</span>) +<span id="L9561" class="LineNr"> 9561 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compare: both inouts are in memory"</span> <span class="Constant">"F - <a href='mu.subx.html#L9525'>test-compare-two-vars-in-memory</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9562" class="LineNr"> 9562 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9563" class="LineNr"> 9563 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9525'>test-compare-two-vars-in-memory</a>: exit status"</span>) +<span id="L9564" class="LineNr"> 9564 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9565" class="LineNr"> 9565 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9566" class="LineNr"> 9566 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9567" class="LineNr"> 9567 </span> 5d/pop-to-ebp +<span id="L9568" class="LineNr"> 9568 </span> c3/return +<span id="L9569" class="LineNr"> 9569 </span> +<span id="L9570" class="LineNr"> 9570 </span><span class="subxTest">test-compare-non-scalar</span>: +<span id="L9571" class="LineNr"> 9571 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9572" class="LineNr"> 9572 </span> 55/push-ebp +<span id="L9573" class="LineNr"> 9573 </span> 89/<- %ebp 4/r32/esp +<span id="L9574" class="LineNr"> 9574 </span> <span class="subxComment"># setup</span> +<span id="L9575" class="LineNr"> 9575 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9576" class="LineNr"> 9576 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9577" class="LineNr"> 9577 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9578" class="LineNr"> 9578 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9579" class="LineNr"> 9579 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9580" class="LineNr"> 9580 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9581" class="LineNr"> 9581 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9582" class="LineNr"> 9582 </span> 68/push 0/imm32 +<span id="L9583" class="LineNr"> 9583 </span> 68/push 0/imm32 +<span id="L9584" class="LineNr"> 9584 </span> 89/<- %edx 4/r32/esp +<span id="L9585" class="LineNr"> 9585 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9586" class="LineNr"> 9586 </span> <span class="subxComment">#</span> +<span id="L9587" class="LineNr"> 9587 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9588" class="LineNr"> 9588 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (handle int)\n"</span>) +<span id="L9589" class="LineNr"> 9589 </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="L9590" class="LineNr"> 9590 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare y, x\n"</span>) +<span id="L9591" class="LineNr"> 9591 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9592" class="LineNr"> 9592 </span> <span class="subxComment"># convert</span> +<span id="L9593" class="LineNr"> 9593 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9594" class="LineNr"> 9594 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9595" class="LineNr"> 9595 </span> <span class="subxComment"># restore ed</span> +<span id="L9596" class="LineNr"> 9596 </span> 89/<- %edx 4/r32/esp +<span id="L9597" class="LineNr"> 9597 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9598" class="LineNr"> 9598 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9599" class="Folded"> 9599 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9605" class="LineNr"> 9605 </span> <span class="subxComment"># check output</span> +<span id="L9606" class="LineNr"> 9606 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9570'>test-compare-non-scalar</a>: output should be empty"</span>) +<span id="L9607" class="LineNr"> 9607 </span><span class="CommentedCode">#? (check-next-stream-line-equal _test-error-stream "fn foo: stmt compare: 'x' is too large to compare" "F - test-compare-non-scalar: error message")</span> +<span id="L9608" class="LineNr"> 9608 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compare: both inouts are in memory"</span> <span class="Constant">"F - <a href='mu.subx.html#L9570'>test-compare-non-scalar</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9609" class="LineNr"> 9609 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9610" class="LineNr"> 9610 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9570'>test-compare-non-scalar</a>: exit status"</span>) +<span id="L9611" class="LineNr"> 9611 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9612" class="LineNr"> 9612 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9613" class="LineNr"> 9613 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9614" class="LineNr"> 9614 </span> 5d/pop-to-ebp +<span id="L9615" class="LineNr"> 9615 </span> c3/return +<span id="L9616" class="LineNr"> 9616 </span> +<span id="L9617" class="LineNr"> 9617 </span><span class="subxTest">test-compare-with-string-literal</span>: +<span id="L9618" class="LineNr"> 9618 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9619" class="LineNr"> 9619 </span> 55/push-ebp +<span id="L9620" class="LineNr"> 9620 </span> 89/<- %ebp 4/r32/esp +<span id="L9621" class="LineNr"> 9621 </span> <span class="subxComment"># setup</span> +<span id="L9622" class="LineNr"> 9622 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9623" class="LineNr"> 9623 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9624" class="LineNr"> 9624 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9625" class="LineNr"> 9625 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9626" class="LineNr"> 9626 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9627" class="LineNr"> 9627 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9628" class="LineNr"> 9628 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9629" class="LineNr"> 9629 </span> 68/push 0/imm32 +<span id="L9630" class="LineNr"> 9630 </span> 68/push 0/imm32 +<span id="L9631" class="LineNr"> 9631 </span> 89/<- %edx 4/r32/esp +<span id="L9632" class="LineNr"> 9632 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9633" class="LineNr"> 9633 </span> <span class="subxComment">#</span> +<span id="L9634" class="LineNr"> 9634 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9635" class="LineNr"> 9635 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr array byte) <- copy 0\n"</span>) +<span id="L9636" class="LineNr"> 9636 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare x, \"</span>abc\<span class="Constant">"\n"</span>) +<span id="L9637" class="LineNr"> 9637 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9638" class="LineNr"> 9638 </span> <span class="subxComment"># convert</span> +<span id="L9639" class="LineNr"> 9639 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9640" class="LineNr"> 9640 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9641" class="LineNr"> 9641 </span> <span class="subxComment"># restore ed</span> +<span id="L9642" class="LineNr"> 9642 </span> 89/<- %edx 4/r32/esp +<span id="L9643" class="LineNr"> 9643 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9644" class="LineNr"> 9644 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9645" class="Folded"> 9645 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9651" class="LineNr"> 9651 </span> <span class="subxComment"># check output</span> +<span id="L9652" class="LineNr"> 9652 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9617'>test-compare-with-string-literal</a>: output should be empty"</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#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compare: string literal \"</span>abc\<span class="Constant">" is not supported; use the <a href='105string-equal.subx.html#L15'>string-equal?</a> function"</span> <span class="Constant">"F - <a href='mu.subx.html#L9617'>test-compare-with-string-literal</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9654" class="LineNr"> 9654 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9655" class="LineNr"> 9655 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9617'>test-compare-with-string-literal</a>: exit status"</span>) +<span id="L9656" class="LineNr"> 9656 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9657" class="LineNr"> 9657 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9658" class="LineNr"> 9658 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9659" class="LineNr"> 9659 </span> 5d/pop-to-ebp +<span id="L9660" class="LineNr"> 9660 </span> c3/return +<span id="L9661" class="LineNr"> 9661 </span> +<span id="L9662" class="LineNr"> 9662 </span><span class="subxTest">test-address-with-no-inout</span>: +<span id="L9663" class="LineNr"> 9663 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9664" class="LineNr"> 9664 </span> 55/push-ebp +<span id="L9665" class="LineNr"> 9665 </span> 89/<- %ebp 4/r32/esp +<span id="L9666" class="LineNr"> 9666 </span> <span class="subxComment"># setup</span> +<span id="L9667" class="LineNr"> 9667 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9668" class="LineNr"> 9668 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9669" class="LineNr"> 9669 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9670" class="LineNr"> 9670 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9671" class="LineNr"> 9671 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9672" class="LineNr"> 9672 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9673" class="LineNr"> 9673 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9674" class="LineNr"> 9674 </span> 68/push 0/imm32 +<span id="L9675" class="LineNr"> 9675 </span> 68/push 0/imm32 +<span id="L9676" class="LineNr"> 9676 </span> 89/<- %edx 4/r32/esp +<span id="L9677" class="LineNr"> 9677 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9678" class="LineNr"> 9678 </span> <span class="subxComment">#</span> +<span id="L9679" class="LineNr"> 9679 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9680" class="LineNr"> 9680 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- address\n"</span>) +<span id="L9681" class="LineNr"> 9681 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9682" class="LineNr"> 9682 </span> <span class="subxComment"># convert</span> +<span id="L9683" class="LineNr"> 9683 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9684" class="LineNr"> 9684 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9685" class="LineNr"> 9685 </span> <span class="subxComment"># restore ed</span> +<span id="L9686" class="LineNr"> 9686 </span> 89/<- %edx 4/r32/esp +<span id="L9687" class="LineNr"> 9687 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9688" class="LineNr"> 9688 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9689" class="Folded"> 9689 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9695" class="LineNr"> 9695 </span> <span class="subxComment"># check output</span> +<span id="L9696" class="LineNr"> 9696 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9662'>test-address-with-no-inout</a>: output should be empty"</span>) +<span id="L9697" class="LineNr"> 9697 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'address' expects an inout"</span> <span class="Constant">"F - <a href='mu.subx.html#L9662'>test-address-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9698" class="LineNr"> 9698 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9699" class="LineNr"> 9699 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9662'>test-address-with-no-inout</a>: exit status"</span>) +<span id="L9700" class="LineNr"> 9700 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9701" class="LineNr"> 9701 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9702" class="LineNr"> 9702 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9703" class="LineNr"> 9703 </span> 5d/pop-to-ebp +<span id="L9704" class="LineNr"> 9704 </span> c3/return +<span id="L9705" class="LineNr"> 9705 </span> +<span id="L9706" class="LineNr"> 9706 </span><span class="subxTest">test-address-with-multiple-inouts</span>: +<span id="L9707" class="LineNr"> 9707 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9708" class="LineNr"> 9708 </span> 55/push-ebp +<span id="L9709" class="LineNr"> 9709 </span> 89/<- %ebp 4/r32/esp +<span id="L9710" class="LineNr"> 9710 </span> <span class="subxComment"># setup</span> +<span id="L9711" class="LineNr"> 9711 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9712" class="LineNr"> 9712 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9713" class="LineNr"> 9713 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9714" class="LineNr"> 9714 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9715" class="LineNr"> 9715 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9716" class="LineNr"> 9716 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9717" class="LineNr"> 9717 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9718" class="LineNr"> 9718 </span> 68/push 0/imm32 +<span id="L9719" class="LineNr"> 9719 </span> 68/push 0/imm32 +<span id="L9720" class="LineNr"> 9720 </span> 89/<- %edx 4/r32/esp +<span id="L9721" class="LineNr"> 9721 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9722" class="LineNr"> 9722 </span> <span class="subxComment">#</span> +<span id="L9723" class="LineNr"> 9723 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9724" class="LineNr"> 9724 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- address 0, 0\n"</span>) +<span id="L9725" class="LineNr"> 9725 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9726" class="LineNr"> 9726 </span> <span class="subxComment"># convert</span> +<span id="L9727" class="LineNr"> 9727 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9728" class="LineNr"> 9728 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9729" class="LineNr"> 9729 </span> <span class="subxComment"># restore ed</span> +<span id="L9730" class="LineNr"> 9730 </span> 89/<- %edx 4/r32/esp +<span id="L9731" class="LineNr"> 9731 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9732" class="LineNr"> 9732 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9733" class="Folded"> 9733 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9739" class="LineNr"> 9739 </span> <span class="subxComment"># check output</span> +<span id="L9740" class="LineNr"> 9740 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9706'>test-address-with-multiple-inouts</a>: output should be empty"</span>) +<span id="L9741" class="LineNr"> 9741 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'address' must have just one inout"</span> <span class="Constant">"F - <a href='mu.subx.html#L9706'>test-address-with-multiple-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9742" class="LineNr"> 9742 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9743" class="LineNr"> 9743 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9706'>test-address-with-multiple-inouts</a>: exit status"</span>) +<span id="L9744" class="LineNr"> 9744 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9745" class="LineNr"> 9745 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9746" class="LineNr"> 9746 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9747" class="LineNr"> 9747 </span> 5d/pop-to-ebp +<span id="L9748" class="LineNr"> 9748 </span> c3/return +<span id="L9749" class="LineNr"> 9749 </span> +<span id="L9750" class="LineNr"> 9750 </span><span class="subxTest">test-address-with-no-output</span>: +<span id="L9751" class="LineNr"> 9751 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9752" class="LineNr"> 9752 </span> 55/push-ebp +<span id="L9753" class="LineNr"> 9753 </span> 89/<- %ebp 4/r32/esp +<span id="L9754" class="LineNr"> 9754 </span> <span class="subxComment"># setup</span> +<span id="L9755" class="LineNr"> 9755 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9756" class="LineNr"> 9756 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9757" class="LineNr"> 9757 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9758" class="LineNr"> 9758 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9759" class="LineNr"> 9759 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9760" class="LineNr"> 9760 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9761" class="LineNr"> 9761 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9762" class="LineNr"> 9762 </span> 68/push 0/imm32 +<span id="L9763" class="LineNr"> 9763 </span> 68/push 0/imm32 +<span id="L9764" class="LineNr"> 9764 </span> 89/<- %edx 4/r32/esp +<span id="L9765" class="LineNr"> 9765 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9766" class="LineNr"> 9766 </span> <span class="subxComment">#</span> +<span id="L9767" class="LineNr"> 9767 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9768" class="LineNr"> 9768 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" address 0\n"</span>) +<span id="L9769" class="LineNr"> 9769 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9770" class="LineNr"> 9770 </span> <span class="subxComment"># convert</span> +<span id="L9771" class="LineNr"> 9771 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9772" class="LineNr"> 9772 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9773" class="LineNr"> 9773 </span> <span class="subxComment"># restore ed</span> +<span id="L9774" class="LineNr"> 9774 </span> 89/<- %edx 4/r32/esp +<span id="L9775" class="LineNr"> 9775 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9776" class="LineNr"> 9776 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9777" class="Folded"> 9777 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9783" class="LineNr"> 9783 </span> <span class="subxComment"># check output</span> +<span id="L9784" class="LineNr"> 9784 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9750'>test-address-with-no-output</a>: output should be empty"</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#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'address' expects an output"</span> <span class="Constant">"F - <a href='mu.subx.html#L9750'>test-address-with-no-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9786" class="LineNr"> 9786 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9787" class="LineNr"> 9787 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9750'>test-address-with-no-output</a>: exit status"</span>) +<span id="L9788" class="LineNr"> 9788 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9789" class="LineNr"> 9789 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9790" class="LineNr"> 9790 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9791" class="LineNr"> 9791 </span> 5d/pop-to-ebp +<span id="L9792" class="LineNr"> 9792 </span> c3/return +<span id="L9793" class="LineNr"> 9793 </span> +<span id="L9794" class="LineNr"> 9794 </span><span class="subxTest">test-address-with-multiple-outputs</span>: +<span id="L9795" class="LineNr"> 9795 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9796" class="LineNr"> 9796 </span> 55/push-ebp +<span id="L9797" class="LineNr"> 9797 </span> 89/<- %ebp 4/r32/esp +<span id="L9798" class="LineNr"> 9798 </span> <span class="subxComment"># setup</span> +<span id="L9799" class="LineNr"> 9799 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9800" class="LineNr"> 9800 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9801" class="LineNr"> 9801 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9802" class="LineNr"> 9802 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9803" class="LineNr"> 9803 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9804" class="LineNr"> 9804 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9805" class="LineNr"> 9805 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9806" class="LineNr"> 9806 </span> 68/push 0/imm32 +<span id="L9807" class="LineNr"> 9807 </span> 68/push 0/imm32 +<span id="L9808" class="LineNr"> 9808 </span> 89/<- %edx 4/r32/esp +<span id="L9809" class="LineNr"> 9809 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9810" class="LineNr"> 9810 </span> <span class="subxComment">#</span> +<span id="L9811" class="LineNr"> 9811 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9812" class="LineNr"> 9812 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy 0\n"</span>) +<span id="L9813" class="LineNr"> 9813 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: boolean <- copy 0\n"</span>) +<span id="L9814" class="LineNr"> 9814 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x, y <- address 0\n"</span>) +<span id="L9815" class="LineNr"> 9815 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9816" class="LineNr"> 9816 </span> <span class="subxComment"># convert</span> +<span id="L9817" class="LineNr"> 9817 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9818" class="LineNr"> 9818 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9819" class="LineNr"> 9819 </span> <span class="subxComment"># restore ed</span> +<span id="L9820" class="LineNr"> 9820 </span> 89/<- %edx 4/r32/esp +<span id="L9821" class="LineNr"> 9821 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9822" class="LineNr"> 9822 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9823" class="Folded"> 9823 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9829" class="LineNr"> 9829 </span> <span class="subxComment"># check output</span> +<span id="L9830" class="LineNr"> 9830 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9794'>test-address-with-multiple-outputs</a>: output should be empty"</span>) +<span id="L9831" class="LineNr"> 9831 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'address' must have just one output"</span> <span class="Constant">"F - <a href='mu.subx.html#L9794'>test-address-with-multiple-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9832" class="LineNr"> 9832 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9833" class="LineNr"> 9833 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9794'>test-address-with-multiple-outputs</a>: exit status"</span>) +<span id="L9834" class="LineNr"> 9834 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9835" class="LineNr"> 9835 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9836" class="LineNr"> 9836 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9837" class="LineNr"> 9837 </span> 5d/pop-to-ebp +<span id="L9838" class="LineNr"> 9838 </span> c3/return +<span id="L9839" class="LineNr"> 9839 </span> +<span id="L9840" class="LineNr"> 9840 </span><span class="subxComment"># silly but it works</span> +<span id="L9841" class="LineNr"> 9841 </span><span class="subxTest">test-address-of-deref</span>: +<span id="L9842" class="LineNr"> 9842 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9843" class="LineNr"> 9843 </span> 55/push-ebp +<span id="L9844" class="LineNr"> 9844 </span> 89/<- %ebp 4/r32/esp +<span id="L9845" class="LineNr"> 9845 </span> <span class="subxComment"># setup</span> +<span id="L9846" class="LineNr"> 9846 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9847" class="LineNr"> 9847 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9848" class="LineNr"> 9848 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9849" class="LineNr"> 9849 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9850" class="LineNr"> 9850 </span> <span class="subxComment">#</span> +<span id="L9851" class="LineNr"> 9851 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9852" class="LineNr"> 9852 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr int) <- copy 0\n"</span>) +<span id="L9853" class="LineNr"> 9853 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr int) <- address *x\n"</span>) +<span id="L9854" class="LineNr"> 9854 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9855" class="LineNr"> 9855 </span> <span class="subxComment"># convert</span> +<span id="L9856" class="LineNr"> 9856 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L9857" class="LineNr"> 9857 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9858" class="LineNr"> 9858 </span> <span class="subxComment"># no errors</span> +<span id="L9859" class="LineNr"> 9859 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9860" class="LineNr"> 9860 </span> 5d/pop-to-ebp +<span id="L9861" class="LineNr"> 9861 </span> c3/return +<span id="L9862" class="LineNr"> 9862 </span> +<span id="L9863" class="LineNr"> 9863 </span><span class="subxTest">test-address-to-non-register</span>: +<span id="L9864" class="LineNr"> 9864 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9865" class="LineNr"> 9865 </span> 55/push-ebp +<span id="L9866" class="LineNr"> 9866 </span> 89/<- %ebp 4/r32/esp +<span id="L9867" class="LineNr"> 9867 </span> <span class="subxComment"># setup</span> +<span id="L9868" class="LineNr"> 9868 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9869" class="LineNr"> 9869 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9870" class="LineNr"> 9870 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9871" class="LineNr"> 9871 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9872" class="LineNr"> 9872 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9873" class="LineNr"> 9873 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9874" class="LineNr"> 9874 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9875" class="LineNr"> 9875 </span> 68/push 0/imm32 +<span id="L9876" class="LineNr"> 9876 </span> 68/push 0/imm32 +<span id="L9877" class="LineNr"> 9877 </span> 89/<- %edx 4/r32/esp +<span id="L9878" class="LineNr"> 9878 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9879" class="LineNr"> 9879 </span> <span class="subxComment">#</span> +<span id="L9880" class="LineNr"> 9880 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9881" class="LineNr"> 9881 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr int)\n"</span>) +<span id="L9882" class="LineNr"> 9882 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- address 0\n"</span>) +<span id="L9883" class="LineNr"> 9883 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9884" class="LineNr"> 9884 </span> <span class="subxComment"># convert</span> +<span id="L9885" class="LineNr"> 9885 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9886" class="LineNr"> 9886 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9887" class="LineNr"> 9887 </span> <span class="subxComment"># restore ed</span> +<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#L425'>_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#L464'>_test-error-buffered-file</a>) +<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#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9863'>test-address-to-non-register</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#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt address: output 'x' not in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L9863'>test-address-to-non-register</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9900" class="LineNr"> 9900 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9901" class="LineNr"> 9901 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9863'>test-address-to-non-register</a>: exit status"</span>) +<span id="L9902" class="LineNr"> 9902 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9903" class="LineNr"> 9903 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9904" class="LineNr"> 9904 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9905" class="LineNr"> 9905 </span> 5d/pop-to-ebp +<span id="L9906" class="LineNr"> 9906 </span> c3/return +<span id="L9907" class="LineNr"> 9907 </span> +<span id="L9908" class="LineNr"> 9908 </span><span class="subxTest">test-address-with-wrong-type</span>: +<span id="L9909" class="LineNr"> 9909 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9910" class="LineNr"> 9910 </span> 55/push-ebp +<span id="L9911" class="LineNr"> 9911 </span> 89/<- %ebp 4/r32/esp +<span id="L9912" class="LineNr"> 9912 </span> <span class="subxComment"># setup</span> +<span id="L9913" class="LineNr"> 9913 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9914" class="LineNr"> 9914 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9915" class="LineNr"> 9915 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9916" class="LineNr"> 9916 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9917" class="LineNr"> 9917 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9918" class="LineNr"> 9918 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9919" class="LineNr"> 9919 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9920" class="LineNr"> 9920 </span> 68/push 0/imm32 +<span id="L9921" class="LineNr"> 9921 </span> 68/push 0/imm32 +<span id="L9922" class="LineNr"> 9922 </span> 89/<- %edx 4/r32/esp +<span id="L9923" class="LineNr"> 9923 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9924" class="LineNr"> 9924 </span> <span class="subxComment">#</span> +<span id="L9925" class="LineNr"> 9925 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9926" class="LineNr"> 9926 </span> (<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="L9927" class="LineNr"> 9927 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: (addr boolean) <- address x\n"</span>) +<span id="L9928" class="LineNr"> 9928 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9929" class="LineNr"> 9929 </span> <span class="subxComment"># convert</span> +<span id="L9930" class="LineNr"> 9930 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9931" class="LineNr"> 9931 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9932" class="LineNr"> 9932 </span> <span class="subxComment"># restore ed</span> +<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#L425'>_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#L464'>_test-error-buffered-file</a>) +<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#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9908'>test-address-with-wrong-type</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#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt address: output 'y' cannot hold address of 'x'"</span> <span class="Constant">"F - <a href='mu.subx.html#L9908'>test-address-with-wrong-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9945" class="LineNr"> 9945 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9946" class="LineNr"> 9946 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9908'>test-address-with-wrong-type</a>: exit status"</span>) +<span id="L9947" class="LineNr"> 9947 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9948" class="LineNr"> 9948 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9949" class="LineNr"> 9949 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9950" class="LineNr"> 9950 </span> 5d/pop-to-ebp +<span id="L9951" class="LineNr"> 9951 </span> c3/return +<span id="L9952" class="LineNr"> 9952 </span> +<span id="L9953" class="LineNr"> 9953 </span><span class="subxTest">test-address-with-right-type-for-array</span>: +<span id="L9954" class="LineNr"> 9954 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9955" class="LineNr"> 9955 </span> 55/push-ebp +<span id="L9956" class="LineNr"> 9956 </span> 89/<- %ebp 4/r32/esp +<span id="L9957" class="LineNr"> 9957 </span> <span class="subxComment"># setup</span> +<span id="L9958" class="LineNr"> 9958 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9959" class="LineNr"> 9959 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9960" class="LineNr"> 9960 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9961" class="LineNr"> 9961 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9962" class="LineNr"> 9962 </span> <span class="subxComment">#</span> +<span id="L9963" class="LineNr"> 9963 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9964" class="LineNr"> 9964 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (array int 3)\n"</span>) +<span id="L9965" class="LineNr"> 9965 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: (addr array int) <- address x\n"</span>) +<span id="L9966" class="LineNr"> 9966 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9967" class="LineNr"> 9967 </span> <span class="subxComment"># convert</span> +<span id="L9968" class="LineNr"> 9968 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L9969" class="LineNr"> 9969 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9970" class="LineNr"> 9970 </span> <span class="subxComment"># no errors</span> +<span id="L9971" class="LineNr"> 9971 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9972" class="LineNr"> 9972 </span> 89/<- %esp 5/r32/ebp +<span id="L9973" class="LineNr"> 9973 </span> 5d/pop-to-ebp +<span id="L9974" class="LineNr"> 9974 </span> c3/return +<span id="L9975" class="LineNr"> 9975 </span> +<span id="L9976" class="LineNr"> 9976 </span><span class="subxTest">test-address-with-right-type-for-stream</span>: +<span id="L9977" class="LineNr"> 9977 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9978" class="LineNr"> 9978 </span> 55/push-ebp +<span id="L9979" class="LineNr"> 9979 </span> 89/<- %ebp 4/r32/esp +<span id="L9980" class="LineNr"> 9980 </span> <span class="subxComment"># setup</span> +<span id="L9981" class="LineNr"> 9981 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9982" class="LineNr"> 9982 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9983" class="LineNr"> 9983 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9984" class="LineNr"> 9984 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9985" class="LineNr"> 9985 </span> <span class="subxComment">#</span> +<span id="L9986" class="LineNr"> 9986 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9987" class="LineNr"> 9987 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (stream int 3)\n"</span>) +<span id="L9988" class="LineNr"> 9988 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: (addr stream int) <- address x\n"</span>) +<span id="L9989" class="LineNr"> 9989 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9990" class="LineNr"> 9990 </span> <span class="subxComment"># convert</span> +<span id="L9991" class="LineNr"> 9991 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L9992" class="LineNr"> 9992 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9993" class="LineNr"> 9993 </span> <span class="subxComment"># no errors</span> +<span id="L9994" class="LineNr"> 9994 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9995" class="LineNr"> 9995 </span> 89/<- %esp 5/r32/ebp +<span id="L9996" class="LineNr"> 9996 </span> 5d/pop-to-ebp +<span id="L9997" class="LineNr"> 9997 </span> c3/return +<span id="L9998" class="LineNr"> 9998 </span> +<span id="L9999" class="LineNr"> 9999 </span><span class="subxTest">test-get-with-wrong-field</span>: +<span id="L10000" class="LineNr">10000 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10001" class="LineNr">10001 </span> 55/push-ebp +<span id="L10002" class="LineNr">10002 </span> 89/<- %ebp 4/r32/esp +<span id="L10003" class="LineNr">10003 </span> <span class="subxComment"># setup</span> +<span id="L10004" class="LineNr">10004 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10005" class="LineNr">10005 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10006" class="LineNr">10006 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10007" class="LineNr">10007 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10008" class="LineNr">10008 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L10009" class="LineNr">10009 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L10010" class="LineNr">10010 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L10011" class="LineNr">10011 </span> 68/push 0/imm32 +<span id="L10012" class="LineNr">10012 </span> 68/push 0/imm32 +<span id="L10013" class="LineNr">10013 </span> 89/<- %edx 4/r32/esp +<span id="L10014" class="LineNr">10014 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L10015" class="LineNr">10015 </span> <span class="subxComment">#</span> +<span id="L10016" class="LineNr">10016 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10017" class="LineNr">10017 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) +<span id="L10018" class="LineNr">10018 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> a, y\n"</span>) +<span id="L10019" class="LineNr">10019 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10020" class="LineNr">10020 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L10021" class="LineNr">10021 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L10022" class="LineNr">10022 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10023" class="LineNr">10023 </span> <span class="subxComment"># convert</span> +<span id="L10024" class="LineNr">10024 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L10025" class="LineNr">10025 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L10026" class="LineNr">10026 </span> <span class="subxComment"># restore ed</span> +<span id="L10027" class="LineNr">10027 </span> 89/<- %edx 4/r32/esp +<span id="L10028" class="LineNr">10028 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10029" class="LineNr">10029 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L10030" class="Folded">10030 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10036" class="LineNr">10036 </span> <span class="subxComment"># check output</span> +<span id="L10037" class="LineNr">10037 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9999'>test-get-with-wrong-field</a>: output should be empty"</span>) +<span id="L10038" class="LineNr">10038 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='131table.subx.html#L26'>get</a>: type 't' has no member called 'y'"</span> <span class="Constant">"F - <a href='mu.subx.html#L9999'>test-get-with-wrong-field</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L10039" class="LineNr">10039 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L10040" class="LineNr">10040 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9999'>test-get-with-wrong-field</a>: exit status"</span>) +<span id="L10041" class="LineNr">10041 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L10042" class="LineNr">10042 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10043" class="LineNr">10043 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10044" class="LineNr">10044 </span> 5d/pop-to-ebp +<span id="L10045" class="LineNr">10045 </span> c3/return +<span id="L10046" class="LineNr">10046 </span> +<span id="L10047" class="LineNr">10047 </span><span class="subxTest">test-get-with-wrong-base-type</span>: +<span id="L10048" class="LineNr">10048 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10049" class="LineNr">10049 </span> 55/push-ebp +<span id="L10050" class="LineNr">10050 </span> 89/<- %ebp 4/r32/esp +<span id="L10051" class="LineNr">10051 </span> <span class="subxComment"># setup</span> +<span id="L10052" class="LineNr">10052 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10053" class="LineNr">10053 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10054" class="LineNr">10054 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10055" class="LineNr">10055 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10056" class="LineNr">10056 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L10057" class="LineNr">10057 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L10058" class="LineNr">10058 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L10059" class="LineNr">10059 </span> 68/push 0/imm32 +<span id="L10060" class="LineNr">10060 </span> 68/push 0/imm32 +<span id="L10061" class="LineNr">10061 </span> 89/<- %edx 4/r32/esp +<span id="L10062" class="LineNr">10062 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L10063" class="LineNr">10063 </span> <span class="subxComment">#</span> +<span id="L10064" class="LineNr">10064 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10065" class="LineNr">10065 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) +<span id="L10066" class="LineNr">10066 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> a, y\n"</span>) +<span id="L10067" class="LineNr">10067 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10068" class="LineNr">10068 </span> <span class="subxComment"># convert</span> +<span id="L10069" class="LineNr">10069 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L10070" class="LineNr">10070 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L10071" class="LineNr">10071 </span> <span class="subxComment"># restore ed</span> +<span id="L10072" class="LineNr">10072 </span> 89/<- %edx 4/r32/esp +<span id="L10073" class="LineNr">10073 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10074" class="LineNr">10074 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L10075" class="Folded">10075 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10081" class="LineNr">10081 </span> <span class="subxComment"># check output</span> +<span id="L10082" class="LineNr">10082 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10047'>test-get-with-wrong-base-type</a>: output should be empty"</span>) +<span id="L10083" class="LineNr">10083 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='131table.subx.html#L26'>get</a>: var 'a' must have a 'type' definition"</span> <span class="Constant">"F - <a href='mu.subx.html#L10047'>test-get-with-wrong-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L10084" class="LineNr">10084 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L10085" class="LineNr">10085 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10047'>test-get-with-wrong-base-type</a>: exit status"</span>) +<span id="L10086" class="LineNr">10086 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L10087" class="LineNr">10087 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10088" class="LineNr">10088 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10089" class="LineNr">10089 </span> 5d/pop-to-ebp +<span id="L10090" class="LineNr">10090 </span> c3/return +<span id="L10091" class="LineNr">10091 </span> +<span id="L10092" class="LineNr">10092 </span><span class="subxTest">test-get-with-wrong-base-type-2</span>: +<span id="L10093" class="LineNr">10093 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10094" class="LineNr">10094 </span> 55/push-ebp +<span id="L10095" class="LineNr">10095 </span> 89/<- %ebp 4/r32/esp +<span id="L10096" class="LineNr">10096 </span> <span class="subxComment"># setup</span> +<span id="L10097" class="LineNr">10097 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10098" class="LineNr">10098 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10099" class="LineNr">10099 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10100" class="LineNr">10100 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10101" class="LineNr">10101 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L10102" class="LineNr">10102 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L10103" class="LineNr">10103 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L10104" class="LineNr">10104 </span> 68/push 0/imm32 +<span id="L10105" class="LineNr">10105 </span> 68/push 0/imm32 +<span id="L10106" class="LineNr">10106 </span> 89/<- %edx 4/r32/esp +<span id="L10107" class="LineNr">10107 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L10108" class="LineNr">10108 </span> <span class="subxComment">#</span> +<span id="L10109" class="LineNr">10109 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10110" class="LineNr">10110 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr t)\n"</span>) +<span id="L10111" class="LineNr">10111 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> a, y\n"</span>) +<span id="L10112" class="LineNr">10112 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10113" class="LineNr">10113 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L10114" class="LineNr">10114 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L10115" class="LineNr">10115 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10116" class="LineNr">10116 </span> <span class="subxComment"># convert</span> +<span id="L10117" class="LineNr">10117 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L10118" class="LineNr">10118 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L10119" class="LineNr">10119 </span> <span class="subxComment"># restore ed</span> +<span id="L10120" class="LineNr">10120 </span> 89/<- %edx 4/r32/esp +<span id="L10121" class="LineNr">10121 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10122" class="LineNr">10122 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L10123" class="Folded">10123 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10129" class="LineNr">10129 </span> <span class="subxComment"># check output</span> +<span id="L10130" class="LineNr">10130 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10092'>test-get-with-wrong-base-type-2</a>: output should be empty"</span>) +<span id="L10131" class="LineNr">10131 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='131table.subx.html#L26'>get</a>: var 'a' is an 'addr' type, and so must live in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L10092'>test-get-with-wrong-base-type-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L10132" class="LineNr">10132 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L10133" class="LineNr">10133 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10092'>test-get-with-wrong-base-type-2</a>: exit status"</span>) +<span id="L10134" class="LineNr">10134 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L10135" class="LineNr">10135 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10136" class="LineNr">10136 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10137" class="LineNr">10137 </span> 5d/pop-to-ebp +<span id="L10138" class="LineNr">10138 </span> c3/return +<span id="L10139" class="LineNr">10139 </span> +<span id="L10140" class="LineNr">10140 </span><span class="subxTest">test-get-with-wrong-base-type-3</span>: +<span id="L10141" class="LineNr">10141 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10142" class="LineNr">10142 </span> 55/push-ebp +<span id="L10143" class="LineNr">10143 </span> 89/<- %ebp 4/r32/esp +<span id="L10144" class="LineNr">10144 </span> <span class="subxComment"># setup</span> +<span id="L10145" class="LineNr">10145 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10146" class="LineNr">10146 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10147" class="LineNr">10147 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10148" class="LineNr">10148 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10149" class="LineNr">10149 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L10150" class="LineNr">10150 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L10151" class="LineNr">10151 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L10152" class="LineNr">10152 </span> 68/push 0/imm32 +<span id="L10153" class="LineNr">10153 </span> 68/push 0/imm32 +<span id="L10154" class="LineNr">10154 </span> 89/<- %edx 4/r32/esp +<span id="L10155" class="LineNr">10155 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L10156" class="LineNr">10156 </span> <span class="subxComment">#</span> +<span id="L10157" class="LineNr">10157 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10158" class="LineNr">10158 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (handle int)\n"</span>) +<span id="L10159" class="LineNr">10159 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> a, y\n"</span>) +<span id="L10160" class="LineNr">10160 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10161" class="LineNr">10161 </span> <span class="subxComment"># convert</span> +<span id="L10162" class="LineNr">10162 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L10163" class="LineNr">10163 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L10164" class="LineNr">10164 </span> <span class="subxComment"># restore ed</span> +<span id="L10165" class="LineNr">10165 </span> 89/<- %edx 4/r32/esp +<span id="L10166" class="LineNr">10166 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10167" class="LineNr">10167 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L10168" class="Folded">10168 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10174" class="LineNr">10174 </span> <span class="subxComment"># check output</span> +<span id="L10175" class="LineNr">10175 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10140'>test-get-with-wrong-base-type-3</a>: output should be empty"</span>) +<span id="L10176" class="LineNr">10176 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='131table.subx.html#L26'>get</a>: var 'a' must have a 'type' definition"</span> <span class="Constant">"F - <a href='mu.subx.html#L10140'>test-get-with-wrong-base-type-3</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L10177" class="LineNr">10177 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L10178" class="LineNr">10178 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10140'>test-get-with-wrong-base-type-3</a>: exit status"</span>) +<span id="L10179" class="LineNr">10179 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L10180" class="LineNr">10180 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10181" class="LineNr">10181 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10182" class="LineNr">10182 </span> 5d/pop-to-ebp +<span id="L10183" class="LineNr">10183 </span> c3/return +<span id="L10184" class="LineNr">10184 </span> +<span id="L10185" class="LineNr">10185 </span><span class="subxTest">test-get-with-wrong-offset-type</span>: +<span id="L10186" class="LineNr">10186 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10187" class="LineNr">10187 </span> 55/push-ebp +<span id="L10188" class="LineNr">10188 </span> 89/<- %ebp 4/r32/esp +<span id="L10189" class="LineNr">10189 </span> <span class="subxComment"># setup</span> +<span id="L10190" class="LineNr">10190 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10191" class="LineNr">10191 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10192" class="LineNr">10192 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10193" class="LineNr">10193 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10194" class="LineNr">10194 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L10195" class="LineNr">10195 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L10196" class="LineNr">10196 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L10197" class="LineNr">10197 </span> 68/push 0/imm32 +<span id="L10198" class="LineNr">10198 </span> 68/push 0/imm32 +<span id="L10199" class="LineNr">10199 </span> 89/<- %edx 4/r32/esp +<span id="L10200" class="LineNr">10200 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L10201" class="LineNr">10201 </span> <span class="subxComment">#</span> +<span id="L10202" class="LineNr">10202 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10203" class="LineNr">10203 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) +<span id="L10204" class="LineNr">10204 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: int\n"</span>) +<span id="L10205" class="LineNr">10205 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> a, b\n"</span>) +<span id="L10206" class="LineNr">10206 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10207" class="LineNr">10207 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L10208" class="LineNr">10208 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L10209" class="LineNr">10209 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10210" class="LineNr">10210 </span> <span class="subxComment"># convert</span> +<span id="L10211" class="LineNr">10211 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L10212" class="LineNr">10212 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L10213" class="LineNr">10213 </span> <span class="subxComment"># restore ed</span> +<span id="L10214" class="LineNr">10214 </span> 89/<- %edx 4/r32/esp +<span id="L10215" class="LineNr">10215 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10216" class="LineNr">10216 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L10217" class="Folded">10217 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10223" class="LineNr">10223 </span> <span class="subxComment"># check output</span> +<span id="L10224" class="LineNr">10224 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10185'>test-get-with-wrong-offset-type</a>: output should be empty"</span>) +<span id="L10225" class="LineNr">10225 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='131table.subx.html#L26'>get</a>: type 't' has no member called 'b'"</span> <span class="Constant">"F - <a href='mu.subx.html#L10185'>test-get-with-wrong-offset-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L10226" class="LineNr">10226 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L10227" class="LineNr">10227 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10185'>test-get-with-wrong-offset-type</a>: exit status"</span>) +<span id="L10228" class="LineNr">10228 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L10229" class="LineNr">10229 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10230" class="LineNr">10230 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10231" class="LineNr">10231 </span> 5d/pop-to-ebp +<span id="L10232" class="LineNr">10232 </span> c3/return +<span id="L10233" class="LineNr">10233 </span> +<span id="L10234" class="LineNr">10234 </span><span class="subxTest">test-get-with-wrong-output-type</span>: +<span id="L10235" class="LineNr">10235 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10236" class="LineNr">10236 </span> 55/push-ebp +<span id="L10237" class="LineNr">10237 </span> 89/<- %ebp 4/r32/esp +<span id="L10238" class="LineNr">10238 </span> <span class="subxComment"># setup</span> +<span id="L10239" class="LineNr">10239 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10240" class="LineNr">10240 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10241" class="LineNr">10241 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10242" class="LineNr">10242 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10243" class="LineNr">10243 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L10244" class="LineNr">10244 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L10245" class="LineNr">10245 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L10246" class="LineNr">10246 </span> 68/push 0/imm32 +<span id="L10247" class="LineNr">10247 </span> 68/push 0/imm32 +<span id="L10248" class="LineNr">10248 </span> 89/<- %edx 4/r32/esp +<span id="L10249" class="LineNr">10249 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L10250" class="LineNr">10250 </span> <span class="subxComment">#</span> +<span id="L10251" class="LineNr">10251 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10252" class="LineNr">10252 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) +<span id="L10253" class="LineNr">10253 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c: (addr int)\n"</span>) +<span id="L10254" class="LineNr">10254 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" c <- <a href='131table.subx.html#L26'>get</a> a, x\n"</span>) +<span id="L10255" class="LineNr">10255 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10256" class="LineNr">10256 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L10257" class="LineNr">10257 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L10258" class="LineNr">10258 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10259" class="LineNr">10259 </span> <span class="subxComment"># convert</span> +<span id="L10260" class="LineNr">10260 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L10261" class="LineNr">10261 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L10262" class="LineNr">10262 </span> <span class="subxComment"># restore ed</span> +<span id="L10263" class="LineNr">10263 </span> 89/<- %edx 4/r32/esp +<span id="L10264" class="LineNr">10264 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10265" class="LineNr">10265 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L10266" class="Folded">10266 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10272" class="LineNr">10272 </span> <span class="subxComment"># check output</span> +<span id="L10273" class="LineNr">10273 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10234'>test-get-with-wrong-output-type</a>: output should be empty"</span>) +<span id="L10274" class="LineNr">10274 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='131table.subx.html#L26'>get</a>: output 'c' is not in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L10234'>test-get-with-wrong-output-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L10275" class="LineNr">10275 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L10276" class="LineNr">10276 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10234'>test-get-with-wrong-output-type</a>: exit status"</span>) +<span id="L10277" class="LineNr">10277 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L10278" class="LineNr">10278 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10279" class="LineNr">10279 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10280" class="LineNr">10280 </span> 5d/pop-to-ebp +<span id="L10281" class="LineNr">10281 </span> c3/return +<span id="L10282" class="LineNr">10282 </span> +<span id="L10283" class="LineNr">10283 </span><span class="subxTest">test-get-with-wrong-output-type-2</span>: +<span id="L10284" class="LineNr">10284 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10285" class="LineNr">10285 </span> 55/push-ebp +<span id="L10286" class="LineNr">10286 </span> 89/<- %ebp 4/r32/esp +<span id="L10287" class="LineNr">10287 </span> <span class="subxComment"># setup</span> +<span id="L10288" class="LineNr">10288 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10289" class="LineNr">10289 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10290" class="LineNr">10290 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10291" class="LineNr">10291 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10292" class="LineNr">10292 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L10293" class="LineNr">10293 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L10294" class="LineNr">10294 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L10295" class="LineNr">10295 </span> 68/push 0/imm32 +<span id="L10296" class="LineNr">10296 </span> 68/push 0/imm32 +<span id="L10297" class="LineNr">10297 </span> 89/<- %edx 4/r32/esp +<span id="L10298" class="LineNr">10298 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L10299" class="LineNr">10299 </span> <span class="subxComment">#</span> +<span id="L10300" class="LineNr">10300 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10301" class="LineNr">10301 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) +<span id="L10302" class="LineNr">10302 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: int <- <a href='131table.subx.html#L26'>get</a> a, x\n"</span>) +<span id="L10303" class="LineNr">10303 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10304" class="LineNr">10304 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L10305" class="LineNr">10305 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L10306" class="LineNr">10306 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10307" class="LineNr">10307 </span> <span class="subxComment"># convert</span> +<span id="L10308" class="LineNr">10308 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L10309" class="LineNr">10309 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L10310" class="LineNr">10310 </span> <span class="subxComment"># restore ed</span> +<span id="L10311" class="LineNr">10311 </span> 89/<- %edx 4/r32/esp +<span id="L10312" class="LineNr">10312 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10313" class="LineNr">10313 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L10314" class="Folded">10314 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10320" class="LineNr">10320 </span> <span class="subxComment"># check output</span> +<span id="L10321" class="LineNr">10321 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10283'>test-get-with-wrong-output-type-2</a>: output should be empty"</span>) +<span id="L10322" class="LineNr">10322 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='131table.subx.html#L26'>get</a>: output must be an addr"</span> <span class="Constant">"F - <a href='mu.subx.html#L10283'>test-get-with-wrong-output-type-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L10323" class="LineNr">10323 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L10324" class="LineNr">10324 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10283'>test-get-with-wrong-output-type-2</a>: exit status"</span>) +<span id="L10325" class="LineNr">10325 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L10326" class="LineNr">10326 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10327" class="LineNr">10327 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10328" class="LineNr">10328 </span> 5d/pop-to-ebp +<span id="L10329" class="LineNr">10329 </span> c3/return +<span id="L10330" class="LineNr">10330 </span> +<span id="L10331" class="LineNr">10331 </span><span class="subxTest">test-get-with-wrong-output-type-3</span>: +<span id="L10332" class="LineNr">10332 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10333" class="LineNr">10333 </span> 55/push-ebp +<span id="L10334" class="LineNr">10334 </span> 89/<- %ebp 4/r32/esp +<span id="L10335" class="LineNr">10335 </span> <span class="subxComment"># setup</span> +<span id="L10336" class="LineNr">10336 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10337" class="LineNr">10337 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10338" class="LineNr">10338 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10339" class="LineNr">10339 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10340" class="LineNr">10340 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L10341" class="LineNr">10341 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L10342" class="LineNr">10342 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L10343" class="LineNr">10343 </span> 68/push 0/imm32 +<span id="L10344" class="LineNr">10344 </span> 68/push 0/imm32 +<span id="L10345" class="LineNr">10345 </span> 89/<- %edx 4/r32/esp +<span id="L10346" class="LineNr">10346 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L10347" class="LineNr">10347 </span> <span class="subxComment">#</span> +<span id="L10348" class="LineNr">10348 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10349" class="LineNr">10349 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) +<span id="L10350" class="LineNr">10350 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (array int) <- <a href='131table.subx.html#L26'>get</a> a, x\n"</span>) +<span id="L10351" class="LineNr">10351 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10352" class="LineNr">10352 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L10353" class="LineNr">10353 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L10354" class="LineNr">10354 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10355" class="LineNr">10355 </span> <span class="subxComment"># convert</span> +<span id="L10356" class="LineNr">10356 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L10357" class="LineNr">10357 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L10358" class="LineNr">10358 </span> <span class="subxComment"># restore ed</span> +<span id="L10359" class="LineNr">10359 </span> 89/<- %edx 4/r32/esp +<span id="L10360" class="LineNr">10360 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10361" class="LineNr">10361 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L10362" class="Folded">10362 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10368" class="LineNr">10368 </span> <span class="subxComment"># check output</span> +<span id="L10369" class="LineNr">10369 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10331'>test-get-with-wrong-output-type-3</a>: output should be empty"</span>) +<span id="L10370" class="LineNr">10370 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='131table.subx.html#L26'>get</a>: output must be an addr"</span> <span class="Constant">"F - <a href='mu.subx.html#L10331'>test-get-with-wrong-output-type-3</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L10371" class="LineNr">10371 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L10372" class="LineNr">10372 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10331'>test-get-with-wrong-output-type-3</a>: exit status"</span>) +<span id="L10373" class="LineNr">10373 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L10374" class="LineNr">10374 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10375" class="LineNr">10375 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10376" class="LineNr">10376 </span> 5d/pop-to-ebp +<span id="L10377" class="LineNr">10377 </span> c3/return +<span id="L10378" class="LineNr">10378 </span> +<span id="L10379" class="LineNr">10379 </span><span class="subxTest">test-get-with-wrong-output-type-4</span>: +<span id="L10380" class="LineNr">10380 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10381" class="LineNr">10381 </span> 55/push-ebp +<span id="L10382" class="LineNr">10382 </span> 89/<- %ebp 4/r32/esp +<span id="L10383" class="LineNr">10383 </span> <span class="subxComment"># setup</span> +<span id="L10384" class="LineNr">10384 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10385" class="LineNr">10385 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10386" class="LineNr">10386 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10387" class="LineNr">10387 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10388" class="LineNr">10388 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L10389" class="LineNr">10389 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L10390" class="LineNr">10390 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L10391" class="LineNr">10391 </span> 68/push 0/imm32 +<span id="L10392" class="LineNr">10392 </span> 68/push 0/imm32 +<span id="L10393" class="LineNr">10393 </span> 89/<- %edx 4/r32/esp +<span id="L10394" class="LineNr">10394 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L10395" class="LineNr">10395 </span> <span class="subxComment">#</span> +<span id="L10396" class="LineNr">10396 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10397" class="LineNr">10397 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) +<span id="L10398" class="LineNr">10398 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr boolean) <- <a href='131table.subx.html#L26'>get</a> a, x\n"</span>) +<span id="L10399" class="LineNr">10399 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10400" class="LineNr">10400 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L10401" class="LineNr">10401 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L10402" class="LineNr">10402 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10403" class="LineNr">10403 </span> <span class="subxComment"># convert</span> +<span id="L10404" class="LineNr">10404 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L10405" class="LineNr">10405 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L10406" class="LineNr">10406 </span> <span class="subxComment"># restore ed</span> +<span id="L10407" class="LineNr">10407 </span> 89/<- %edx 4/r32/esp +<span id="L10408" class="LineNr">10408 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10409" class="LineNr">10409 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L10410" class="Folded">10410 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10416" class="LineNr">10416 </span> <span class="subxComment"># check output</span> +<span id="L10417" class="LineNr">10417 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10379'>test-get-with-wrong-output-type-4</a>: output should be empty"</span>) +<span id="L10418" class="LineNr">10418 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='131table.subx.html#L26'>get</a>: wrong output type for member 'x' of type 't'"</span> <span class="Constant">"F - <a href='mu.subx.html#L10379'>test-get-with-wrong-output-type-4</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L10419" class="LineNr">10419 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L10420" class="LineNr">10420 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10379'>test-get-with-wrong-output-type-4</a>: exit status"</span>) +<span id="L10421" class="LineNr">10421 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L10422" class="LineNr">10422 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10423" class="LineNr">10423 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10424" class="LineNr">10424 </span> 5d/pop-to-ebp +<span id="L10425" class="LineNr">10425 </span> c3/return +<span id="L10426" class="LineNr">10426 </span> +<span id="L10427" class="LineNr">10427 </span><span class="subxTest">test-get-with-wrong-output-type-5</span>: +<span id="L10428" class="LineNr">10428 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10429" class="LineNr">10429 </span> 55/push-ebp +<span id="L10430" class="LineNr">10430 </span> 89/<- %ebp 4/r32/esp +<span id="L10431" class="LineNr">10431 </span> <span class="subxComment"># setup</span> +<span id="L10432" class="LineNr">10432 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10433" class="LineNr">10433 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10434" class="LineNr">10434 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10435" class="LineNr">10435 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10436" class="LineNr">10436 </span> <span class="subxComment">#</span> +<span id="L10437" class="LineNr">10437 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10438" class="LineNr">10438 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) +<span id="L10439" class="LineNr">10439 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr handle int) <- <a href='131table.subx.html#L26'>get</a> a, x\n"</span>) +<span id="L10440" class="LineNr">10440 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10441" class="LineNr">10441 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L10442" class="LineNr">10442 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: (handle int)\n"</span>) +<span id="L10443" class="LineNr">10443 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10444" class="LineNr">10444 </span> <span class="subxComment"># convert</span> +<span id="L10445" class="LineNr">10445 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L10446" class="LineNr">10446 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10447" class="LineNr">10447 </span> <span class="subxComment"># no errors</span> +<span id="L10448" class="LineNr">10448 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10449" class="LineNr">10449 </span> 89/<- %esp 5/r32/ebp +<span id="L10450" class="LineNr">10450 </span> 5d/pop-to-ebp +<span id="L10451" class="LineNr">10451 </span> c3/return +<span id="L10452" class="LineNr">10452 </span> +<span id="L10453" class="LineNr">10453 </span><span class="subxTest">test-get-with-too-few-inouts</span>: +<span id="L10454" class="LineNr">10454 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10455" class="LineNr">10455 </span> 55/push-ebp +<span id="L10456" class="LineNr">10456 </span> 89/<- %ebp 4/r32/esp +<span id="L10457" class="LineNr">10457 </span> <span class="subxComment"># setup</span> +<span id="L10458" class="LineNr">10458 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10459" class="LineNr">10459 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10460" class="LineNr">10460 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10461" class="LineNr">10461 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10462" class="LineNr">10462 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L10463" class="LineNr">10463 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L10464" class="LineNr">10464 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L10465" class="LineNr">10465 </span> 68/push 0/imm32 +<span id="L10466" class="LineNr">10466 </span> 68/push 0/imm32 +<span id="L10467" class="LineNr">10467 </span> 89/<- %edx 4/r32/esp +<span id="L10468" class="LineNr">10468 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L10469" class="LineNr">10469 </span> <span class="subxComment">#</span> +<span id="L10470" class="LineNr">10470 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10471" class="LineNr">10471 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) +<span id="L10472" class="LineNr">10472 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> a\n"</span>) +<span id="L10473" class="LineNr">10473 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10474" class="LineNr">10474 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L10475" class="LineNr">10475 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L10476" class="LineNr">10476 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10477" class="LineNr">10477 </span> <span class="subxComment"># convert</span> +<span id="L10478" class="LineNr">10478 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L10479" class="LineNr">10479 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L10480" class="LineNr">10480 </span> <span class="subxComment"># restore ed</span> +<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#L425'>_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#L464'>_test-error-buffered-file</a>) +<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#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10453'>test-get-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#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='131table.subx.html#L26'>get</a>: too few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L10453'>test-get-with-too-few-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L10493" class="LineNr">10493 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L10494" class="LineNr">10494 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10453'>test-get-with-too-few-inouts</a>: exit status"</span>) +<span id="L10495" class="LineNr">10495 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L10496" class="LineNr">10496 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10497" class="LineNr">10497 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10498" class="LineNr">10498 </span> 5d/pop-to-ebp +<span id="L10499" class="LineNr">10499 </span> c3/return +<span id="L10500" class="LineNr">10500 </span> +<span id="L10501" class="LineNr">10501 </span><span class="subxTest">test-get-with-too-many-inouts</span>: +<span id="L10502" class="LineNr">10502 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10503" class="LineNr">10503 </span> 55/push-ebp +<span id="L10504" class="LineNr">10504 </span> 89/<- %ebp 4/r32/esp +<span id="L10505" class="LineNr">10505 </span> <span class="subxComment"># setup</span> +<span id="L10506" class="LineNr">10506 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10507" class="LineNr">10507 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10508" class="LineNr">10508 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10509" class="LineNr">10509 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10510" class="LineNr">10510 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L10511" class="LineNr">10511 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L10512" class="LineNr">10512 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L10513" class="LineNr">10513 </span> 68/push 0/imm32 +<span id="L10514" class="LineNr">10514 </span> 68/push 0/imm32 +<span id="L10515" class="LineNr">10515 </span> 89/<- %edx 4/r32/esp +<span id="L10516" class="LineNr">10516 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L10517" class="LineNr">10517 </span> <span class="subxComment">#</span> +<span id="L10518" class="LineNr">10518 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10519" class="LineNr">10519 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) +<span id="L10520" class="LineNr">10520 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> a, x, 0\n"</span>) +<span id="L10521" class="LineNr">10521 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10522" class="LineNr">10522 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L10523" class="LineNr">10523 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L10524" class="LineNr">10524 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10525" class="LineNr">10525 </span> <span class="subxComment"># convert</span> +<span id="L10526" class="LineNr">10526 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L10527" class="LineNr">10527 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L10528" class="LineNr">10528 </span> <span class="subxComment"># restore ed</span> +<span id="L10529" class="LineNr">10529 </span> 89/<- %edx 4/r32/esp +<span id="L10530" class="LineNr">10530 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10531" class="LineNr">10531 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L10532" class="Folded">10532 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10538" class="LineNr">10538 </span> <span class="subxComment"># check output</span> +<span id="L10539" class="LineNr">10539 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10501'>test-get-with-too-many-inouts</a>: output should be empty"</span>) +<span id="L10540" class="LineNr">10540 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='131table.subx.html#L26'>get</a>: too many inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L10501'>test-get-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L10541" class="LineNr">10541 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L10542" class="LineNr">10542 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10501'>test-get-with-too-many-inouts</a>: exit status"</span>) +<span id="L10543" class="LineNr">10543 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L10544" class="LineNr">10544 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10545" class="LineNr">10545 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10546" class="LineNr">10546 </span> 5d/pop-to-ebp +<span id="L10547" class="LineNr">10547 </span> c3/return +<span id="L10548" class="LineNr">10548 </span> +<span id="L10549" class="LineNr">10549 </span><span class="subxTest">test-get-with-no-output</span>: +<span id="L10550" class="LineNr">10550 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10551" class="LineNr">10551 </span> 55/push-ebp +<span id="L10552" class="LineNr">10552 </span> 89/<- %ebp 4/r32/esp +<span id="L10553" class="LineNr">10553 </span> <span class="subxComment"># setup</span> +<span id="L10554" class="LineNr">10554 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10555" class="LineNr">10555 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10556" class="LineNr">10556 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10557" class="LineNr">10557 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10558" class="LineNr">10558 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L10559" class="LineNr">10559 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L10560" class="LineNr">10560 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L10561" class="LineNr">10561 </span> 68/push 0/imm32 +<span id="L10562" class="LineNr">10562 </span> 68/push 0/imm32 +<span id="L10563" class="LineNr">10563 </span> 89/<- %edx 4/r32/esp +<span id="L10564" class="LineNr">10564 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L10565" class="LineNr">10565 </span> <span class="subxComment">#</span> +<span id="L10566" class="LineNr">10566 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10567" class="LineNr">10567 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) +<span id="L10568" class="LineNr">10568 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='131table.subx.html#L26'>get</a> a, x\n"</span>) +<span id="L10569" class="LineNr">10569 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10570" class="LineNr">10570 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L10571" class="LineNr">10571 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L10572" class="LineNr">10572 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10573" class="LineNr">10573 </span> <span class="subxComment"># convert</span> +<span id="L10574" class="LineNr">10574 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L10575" class="LineNr">10575 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L10576" class="LineNr">10576 </span> <span class="subxComment"># restore ed</span> +<span id="L10577" class="LineNr">10577 </span> 89/<- %edx 4/r32/esp +<span id="L10578" class="LineNr">10578 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10579" class="LineNr">10579 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L10580" class="Folded">10580 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10586" class="LineNr">10586 </span> <span class="subxComment"># check output</span> +<span id="L10587" class="LineNr">10587 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10549'>test-get-with-no-output</a>: output should be empty"</span>) +<span id="L10588" class="LineNr">10588 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='131table.subx.html#L26'>get</a>: must have an output"</span> <span class="Constant">"F - <a href='mu.subx.html#L10549'>test-get-with-no-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L10589" class="LineNr">10589 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L10590" class="LineNr">10590 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10549'>test-get-with-no-output</a>: exit status"</span>) +<span id="L10591" class="LineNr">10591 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L10592" class="LineNr">10592 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10593" class="LineNr">10593 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10594" class="LineNr">10594 </span> 5d/pop-to-ebp +<span id="L10595" class="LineNr">10595 </span> c3/return +<span id="L10596" class="LineNr">10596 </span> +<span id="L10597" class="LineNr">10597 </span><span class="subxTest">test-get-with-too-many-outputs</span>: +<span id="L10598" class="LineNr">10598 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10599" class="LineNr">10599 </span> 55/push-ebp +<span id="L10600" class="LineNr">10600 </span> 89/<- %ebp 4/r32/esp +<span id="L10601" class="LineNr">10601 </span> <span class="subxComment"># setup</span> +<span id="L10602" class="LineNr">10602 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10603" class="LineNr">10603 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10604" class="LineNr">10604 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10605" class="LineNr">10605 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10606" class="LineNr">10606 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L10607" class="LineNr">10607 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L10608" class="LineNr">10608 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L10609" class="LineNr">10609 </span> 68/push 0/imm32 +<span id="L10610" class="LineNr">10610 </span> 68/push 0/imm32 +<span id="L10611" class="LineNr">10611 </span> 89/<- %edx 4/r32/esp +<span id="L10612" class="LineNr">10612 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L10613" class="LineNr">10613 </span> <span class="subxComment">#</span> +<span id="L10614" class="LineNr">10614 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10615" class="LineNr">10615 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) +<span id="L10616" class="LineNr">10616 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: int\n"</span>) +<span id="L10617" class="LineNr">10617 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/eax: (addr int) <- copy 0\n"</span>) +<span id="L10618" class="LineNr">10618 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" c, b <- <a href='131table.subx.html#L26'>get</a> a, x\n"</span>) +<span id="L10619" class="LineNr">10619 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10620" class="LineNr">10620 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L10621" class="LineNr">10621 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L10622" class="LineNr">10622 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10623" class="LineNr">10623 </span> <span class="subxComment"># convert</span> +<span id="L10624" class="LineNr">10624 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L10625" class="LineNr">10625 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L10626" class="LineNr">10626 </span> <span class="subxComment"># restore ed</span> +<span id="L10627" class="LineNr">10627 </span> 89/<- %edx 4/r32/esp +<span id="L10628" class="LineNr">10628 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10629" class="LineNr">10629 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L10630" class="Folded">10630 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10636" class="LineNr">10636 </span> <span class="subxComment"># check output</span> +<span id="L10637" class="LineNr">10637 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10597'>test-get-with-too-many-outputs</a>: output should be empty"</span>) +<span id="L10638" class="LineNr">10638 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='131table.subx.html#L26'>get</a>: too many outputs (1 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L10597'>test-get-with-too-many-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L10639" class="LineNr">10639 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L10640" class="LineNr">10640 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10597'>test-get-with-too-many-outputs</a>: exit status"</span>) +<span id="L10641" class="LineNr">10641 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L10642" class="LineNr">10642 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10643" class="LineNr">10643 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10644" class="LineNr">10644 </span> 5d/pop-to-ebp +<span id="L10645" class="LineNr">10645 </span> c3/return +<span id="L10646" class="LineNr">10646 </span> +<span id="L10647" class="LineNr">10647 </span><span class="subxTest">test-convert-array-of-user-defined-types</span>: +<span id="L10648" class="LineNr">10648 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10649" class="LineNr">10649 </span> 55/push-ebp +<span id="L10650" class="LineNr">10650 </span> 89/<- %ebp 4/r32/esp +<span id="L10651" class="LineNr">10651 </span> <span class="subxComment"># setup</span> +<span id="L10652" class="LineNr">10652 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10653" class="LineNr">10653 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10654" class="LineNr">10654 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10655" class="LineNr">10655 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10656" class="LineNr">10656 </span> <span class="subxComment">#</span> +<span id="L10657" class="LineNr">10657 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) <span class="subxComment"># each t is 8 bytes, which is a power of 2</span> +<span id="L10658" class="LineNr">10658 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L10659" class="LineNr">10659 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) +<span id="L10660" class="LineNr">10660 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10661" class="LineNr">10661 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10662" class="LineNr">10662 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array t) <- copy 0\n"</span>) +<span id="L10663" class="LineNr">10663 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var idx/ecx: int <- copy 3\n"</span>) +<span id="L10664" class="LineNr">10664 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr t) <- index arr, idx\n"</span>) +<span id="L10665" class="LineNr">10665 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10666" class="LineNr">10666 </span> <span class="subxComment"># convert</span> +<span id="L10667" class="LineNr">10667 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L10668" class="LineNr">10668 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10669" class="Folded">10669 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10675" class="LineNr">10675 </span> <span class="subxComment"># check output</span> +<span id="L10676" class="LineNr">10676 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10647'>test-convert-array-of-user-defined-types</a>/0"</span>) +<span id="L10677" class="LineNr">10677 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-array-of-user-defined-types/1"</span>) +<span id="L10678" class="LineNr">10678 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10647'>test-convert-array-of-user-defined-types</a>/2"</span>) +<span id="L10679" class="LineNr">10679 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10647'>test-convert-array-of-user-defined-types</a>/3"</span>) +<span id="L10680" class="LineNr">10680 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L10647'>test-convert-array-of-user-defined-types</a>/4"</span>) +<span id="L10681" class="LineNr">10681 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10647'>test-convert-array-of-user-defined-types</a>/5"</span>) +<span id="L10682" class="LineNr">10682 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10647'>test-convert-array-of-user-defined-types</a>/6"</span>) +<span id="L10683" class="LineNr">10683 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10647'>test-convert-array-of-user-defined-types</a>/7"</span>) +<span id="L10684" class="LineNr">10684 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10647'>test-convert-array-of-user-defined-types</a>/8"</span>) +<span id="L10685" class="LineNr">10685 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10647'>test-convert-array-of-user-defined-types</a>/9"</span>) +<span id="L10686" class="LineNr">10686 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> %ecx 0x00000008 *eax \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L10647'>test-convert-array-of-user-defined-types</a>/10"</span>) +<span id="L10687" class="LineNr">10687 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 7/subop/compare %eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10647'>test-convert-array-of-user-defined-types</a>/12"</span>) +<span id="L10688" class="LineNr">10688 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 84/jump-if-= <a href='313index-bounds-check.subx.html#L88'>__mu-abort-null-index-base-address</a>/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10647'>test-convert-array-of-user-defined-types</a>/13"</span>) +<span id="L10689" class="LineNr">10689 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + ecx<<0x00000003 + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10647'>test-convert-array-of-user-defined-types</a>/14"</span>) +<span id="L10690" class="LineNr">10690 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10647'>test-convert-array-of-user-defined-types</a>/15"</span>) +<span id="L10691" class="LineNr">10691 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10647'>test-convert-array-of-user-defined-types</a>/16"</span>) +<span id="L10692" class="LineNr">10692 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L10647'>test-convert-array-of-user-defined-types</a>/17"</span>) +<span id="L10693" class="LineNr">10693 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10647'>test-convert-array-of-user-defined-types</a>/18"</span>) +<span id="L10694" class="LineNr">10694 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-array-of-user-defined-types/19"</span>) +<span id="L10695" class="LineNr">10695 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10647'>test-convert-array-of-user-defined-types</a>/20"</span>) +<span id="L10696" class="LineNr">10696 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10647'>test-convert-array-of-user-defined-types</a>/21"</span>) +<span id="L10697" class="LineNr">10697 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L10647'>test-convert-array-of-user-defined-types</a>/22"</span>) +<span id="L10698" class="LineNr">10698 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10699" class="LineNr">10699 </span> 89/<- %esp 5/r32/ebp +<span id="L10700" class="LineNr">10700 </span> 5d/pop-to-ebp +<span id="L10701" class="LineNr">10701 </span> c3/return +<span id="L10702" class="LineNr">10702 </span> +<span id="L10703" class="LineNr">10703 </span><span class="subxTest">test-convert-length-of-array-of-user-defined-types-to-eax</span>: +<span id="L10704" class="LineNr">10704 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10705" class="LineNr">10705 </span> 55/push-ebp +<span id="L10706" class="LineNr">10706 </span> 89/<- %ebp 4/r32/esp +<span id="L10707" class="LineNr">10707 </span> <span class="subxComment"># setup</span> +<span id="L10708" class="LineNr">10708 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10709" class="LineNr">10709 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10710" class="LineNr">10710 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10711" class="LineNr">10711 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10712" class="LineNr">10712 </span> <span class="subxComment">#</span> +<span id="L10713" class="LineNr">10713 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) <span class="subxComment"># size = 12, which is not a power of 2</span> +<span id="L10714" class="LineNr">10714 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L10715" class="LineNr">10715 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) +<span id="L10716" class="LineNr">10716 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" z: int\n"</span>) +<span id="L10717" class="LineNr">10717 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10718" class="LineNr">10718 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10719" class="LineNr">10719 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array t) <- copy 0\n"</span>) +<span id="L10720" class="LineNr">10720 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- length arr\n"</span>) +<span id="L10721" class="LineNr">10721 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10722" class="LineNr">10722 </span> <span class="subxComment"># convert</span> +<span id="L10723" class="LineNr">10723 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L10724" class="LineNr">10724 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10725" class="Folded">10725 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10731" class="LineNr">10731 </span> <span class="subxComment"># check output</span> +<span id="L10732" class="LineNr">10732 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10703'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/0"</span>) +<span id="L10733" class="LineNr">10733 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types-to-eax/1"</span>) +<span id="L10734" class="LineNr">10734 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10703'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/2"</span>) +<span id="L10735" class="LineNr">10735 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10703'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/3"</span>) +<span id="L10736" class="LineNr">10736 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L10703'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/4"</span>) +<span id="L10737" class="LineNr">10737 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10703'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/5"</span>) +<span id="L10738" class="LineNr">10738 </span> <span class="subxComment"># var arr</span> +<span id="L10739" class="LineNr">10739 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10703'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/6"</span>) +<span id="L10740" class="LineNr">10740 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10703'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/7"</span>) +<span id="L10741" class="LineNr">10741 </span> <span class="subxComment"># length instruction</span> +<span id="L10742" class="LineNr">10742 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 51/push-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10703'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/8"</span>) +<span id="L10743" class="LineNr">10743 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 52/push-edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10703'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/9"</span>) +<span id="L10744" class="LineNr">10744 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10703'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/10"</span>) +<span id="L10745" class="LineNr">10745 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 31/xor %edx 2/r32/edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10703'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/11"</span>) +<span id="L10746" class="LineNr">10746 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10703'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/12"</span>) +<span id="L10747" class="LineNr">10747 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f7 7/subop/idiv-eax-edx-by %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10703'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/13"</span>) +<span id="L10748" class="LineNr">10748 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5a/pop-to-edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10703'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/14"</span>) +<span id="L10749" class="LineNr">10749 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 59/pop-to-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10703'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/15"</span>) +<span id="L10750" class="LineNr">10750 </span> <span class="subxComment"># reclaim arr</span> +<span id="L10751" class="LineNr">10751 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10703'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/16"</span>) +<span id="L10752" class="LineNr">10752 </span> <span class="subxComment">#</span> +<span id="L10753" class="LineNr">10753 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L10703'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/17"</span>) +<span id="L10754" class="LineNr">10754 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10703'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/18"</span>) +<span id="L10755" class="LineNr">10755 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types-to-eax/19"</span>) +<span id="L10756" class="LineNr">10756 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10703'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/20"</span>) +<span id="L10757" class="LineNr">10757 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10703'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/21"</span>) +<span id="L10758" class="LineNr">10758 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L10703'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/22"</span>) +<span id="L10759" class="LineNr">10759 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10760" class="LineNr">10760 </span> 89/<- %esp 5/r32/ebp +<span id="L10761" class="LineNr">10761 </span> 5d/pop-to-ebp +<span id="L10762" class="LineNr">10762 </span> c3/return +<span id="L10763" class="LineNr">10763 </span> +<span id="L10764" class="LineNr">10764 </span><span class="subxTest">test-convert-length-of-array-of-user-defined-types-to-ecx</span>: +<span id="L10765" class="LineNr">10765 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10766" class="LineNr">10766 </span> 55/push-ebp +<span id="L10767" class="LineNr">10767 </span> 89/<- %ebp 4/r32/esp +<span id="L10768" class="LineNr">10768 </span> <span class="subxComment"># setup</span> +<span id="L10769" class="LineNr">10769 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10770" class="LineNr">10770 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10771" class="LineNr">10771 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10772" class="LineNr">10772 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10773" class="LineNr">10773 </span> <span class="subxComment">#</span> +<span id="L10774" class="LineNr">10774 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) <span class="subxComment"># size = 12, which is not a power of 2</span> +<span id="L10775" class="LineNr">10775 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L10776" class="LineNr">10776 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) +<span id="L10777" class="LineNr">10777 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" z: int\n"</span>) +<span id="L10778" class="LineNr">10778 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10779" class="LineNr">10779 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10780" class="LineNr">10780 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array t) <- copy 0\n"</span>) +<span id="L10781" class="LineNr">10781 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: int <- length arr\n"</span>) +<span id="L10782" class="LineNr">10782 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10783" class="LineNr">10783 </span> <span class="subxComment"># convert</span> +<span id="L10784" class="LineNr">10784 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L10785" class="LineNr">10785 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10786" class="Folded">10786 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10792" class="LineNr">10792 </span> <span class="subxComment"># check output</span> +<span id="L10793" class="LineNr">10793 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10764'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/0"</span>) +<span id="L10794" class="LineNr">10794 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types-to-ecx/1"</span>) +<span id="L10795" class="LineNr">10795 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10764'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/2"</span>) +<span id="L10796" class="LineNr">10796 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10764'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/3"</span>) +<span id="L10797" class="LineNr">10797 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L10764'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/4"</span>) +<span id="L10798" class="LineNr">10798 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10764'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/5"</span>) +<span id="L10799" class="LineNr">10799 </span> <span class="subxComment"># var a</span> +<span id="L10800" class="LineNr">10800 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10764'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/6"</span>) +<span id="L10801" class="LineNr">10801 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10764'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/7"</span>) +<span id="L10802" class="LineNr">10802 </span> <span class="subxComment"># var x</span> +<span id="L10803" class="LineNr">10803 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10764'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/8"</span>) +<span id="L10804" class="LineNr">10804 </span> <span class="subxComment"># length instruction</span> +<span id="L10805" class="LineNr">10805 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 50/push-eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10764'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/9"</span>) +<span id="L10806" class="LineNr">10806 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 52/push-edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10764'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/10"</span>) +<span id="L10807" class="LineNr">10807 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10764'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/11"</span>) +<span id="L10808" class="LineNr">10808 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 31/xor %edx 2/r32/edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10764'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/12"</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#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10764'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/13"</span>) +<span id="L10810" class="LineNr">10810 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f7 7/subop/idiv-eax-edx-by %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10764'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/14"</span>) +<span id="L10811" class="LineNr">10811 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ecx 0/r32/eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10764'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/15"</span>) +<span id="L10812" class="LineNr">10812 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5a/pop-to-edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10764'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/16"</span>) +<span id="L10813" class="LineNr">10813 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 58/pop-to-eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10764'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/17"</span>) +<span id="L10814" class="LineNr">10814 </span> <span class="subxComment"># reclaim x</span> +<span id="L10815" class="LineNr">10815 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10764'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/18"</span>) +<span id="L10816" class="LineNr">10816 </span> <span class="subxComment"># reclaim a</span> +<span id="L10817" class="LineNr">10817 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10764'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/19"</span>) +<span id="L10818" class="LineNr">10818 </span> <span class="subxComment">#</span> +<span id="L10819" class="LineNr">10819 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L10764'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/20"</span>) +<span id="L10820" class="LineNr">10820 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10764'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/21"</span>) +<span id="L10821" class="LineNr">10821 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types-to-ecx/22"</span>) +<span id="L10822" class="LineNr">10822 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10764'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/23"</span>) +<span id="L10823" class="LineNr">10823 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10764'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/24"</span>) +<span id="L10824" class="LineNr">10824 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L10764'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/25"</span>) +<span id="L10825" class="LineNr">10825 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10826" class="LineNr">10826 </span> 89/<- %esp 5/r32/ebp +<span id="L10827" class="LineNr">10827 </span> 5d/pop-to-ebp +<span id="L10828" class="LineNr">10828 </span> c3/return +<span id="L10829" class="LineNr">10829 </span> +<span id="L10830" class="LineNr">10830 </span><span class="subxTest">test-convert-length-of-array-of-user-defined-types-to-edx</span>: +<span id="L10831" class="LineNr">10831 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10832" class="LineNr">10832 </span> 55/push-ebp +<span id="L10833" class="LineNr">10833 </span> 89/<- %ebp 4/r32/esp +<span id="L10834" class="LineNr">10834 </span> <span class="subxComment"># setup</span> +<span id="L10835" class="LineNr">10835 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10836" class="LineNr">10836 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10837" class="LineNr">10837 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10838" class="LineNr">10838 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10839" class="LineNr">10839 </span> <span class="subxComment">#</span> +<span id="L10840" class="LineNr">10840 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) <span class="subxComment"># size = 12, which is not a power of 2</span> +<span id="L10841" class="LineNr">10841 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L10842" class="LineNr">10842 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) +<span id="L10843" class="LineNr">10843 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" z: int\n"</span>) +<span id="L10844" class="LineNr">10844 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10845" class="LineNr">10845 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10846" class="LineNr">10846 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array t) <- copy 0\n"</span>) +<span id="L10847" class="LineNr">10847 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/edx: int <- length arr\n"</span>) +<span id="L10848" class="LineNr">10848 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10849" class="LineNr">10849 </span> <span class="subxComment"># convert</span> +<span id="L10850" class="LineNr">10850 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L10851" class="LineNr">10851 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10852" class="Folded">10852 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10858" class="LineNr">10858 </span> <span class="subxComment"># check output</span> +<span id="L10859" class="LineNr">10859 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10830'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/0"</span>) +<span id="L10860" class="LineNr">10860 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types-to-edx/1"</span>) +<span id="L10861" class="LineNr">10861 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10830'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/2"</span>) +<span id="L10862" class="LineNr">10862 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10830'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/3"</span>) +<span id="L10863" class="LineNr">10863 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L10830'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/4"</span>) +<span id="L10864" class="LineNr">10864 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10830'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/5"</span>) +<span id="L10865" class="LineNr">10865 </span> <span class="subxComment"># var a</span> +<span id="L10866" class="LineNr">10866 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10830'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/6"</span>) +<span id="L10867" class="LineNr">10867 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10830'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/7"</span>) +<span id="L10868" class="LineNr">10868 </span> <span class="subxComment"># var x</span> +<span id="L10869" class="LineNr">10869 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10830'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/8"</span>) +<span id="L10870" class="LineNr">10870 </span> <span class="subxComment"># length instruction</span> +<span id="L10871" class="LineNr">10871 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 50/push-eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10830'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/9"</span>) +<span id="L10872" class="LineNr">10872 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 51/push-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10830'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/10"</span>) +<span id="L10873" class="LineNr">10873 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10830'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/11"</span>) +<span id="L10874" class="LineNr">10874 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 31/xor %edx 2/r32/edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10830'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/12"</span>) +<span id="L10875" class="LineNr">10875 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10830'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/13"</span>) +<span id="L10876" class="LineNr">10876 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f7 7/subop/idiv-eax-edx-by %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10830'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/14"</span>) +<span id="L10877" class="LineNr">10877 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %edx 0/r32/eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10830'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/15"</span>) +<span id="L10878" class="LineNr">10878 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 59/pop-to-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10830'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/16"</span>) +<span id="L10879" class="LineNr">10879 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 58/pop-to-eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10830'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/17"</span>) +<span id="L10880" class="LineNr">10880 </span> <span class="subxComment"># reclaim x</span> +<span id="L10881" class="LineNr">10881 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10830'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/18"</span>) +<span id="L10882" class="LineNr">10882 </span> <span class="subxComment"># reclaim a</span> +<span id="L10883" class="LineNr">10883 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10830'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/19"</span>) +<span id="L10884" class="LineNr">10884 </span> <span class="subxComment">#</span> +<span id="L10885" class="LineNr">10885 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L10830'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/20"</span>) +<span id="L10886" class="LineNr">10886 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10830'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/21"</span>) +<span id="L10887" class="LineNr">10887 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types-to-edx/22"</span>) +<span id="L10888" class="LineNr">10888 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10830'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/23"</span>) +<span id="L10889" class="LineNr">10889 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10830'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/24"</span>) +<span id="L10890" class="LineNr">10890 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L10830'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/25"</span>) +<span id="L10891" class="LineNr">10891 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10892" class="LineNr">10892 </span> 89/<- %esp 5/r32/ebp +<span id="L10893" class="LineNr">10893 </span> 5d/pop-to-ebp +<span id="L10894" class="LineNr">10894 </span> c3/return +<span id="L10895" class="LineNr">10895 </span> +<span id="L10896" class="LineNr">10896 </span><span class="subxTest">test-convert-length-of-array-of-user-defined-types</span>: +<span id="L10897" class="LineNr">10897 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10898" class="LineNr">10898 </span> 55/push-ebp +<span id="L10899" class="LineNr">10899 </span> 89/<- %ebp 4/r32/esp +<span id="L10900" class="LineNr">10900 </span> <span class="subxComment"># setup</span> +<span id="L10901" class="LineNr">10901 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10902" class="LineNr">10902 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10903" class="LineNr">10903 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10904" class="LineNr">10904 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10905" class="LineNr">10905 </span> <span class="subxComment">#</span> +<span id="L10906" class="LineNr">10906 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) <span class="subxComment"># each t is 8 bytes, which is a power of 2</span> +<span id="L10907" class="LineNr">10907 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L10908" class="LineNr">10908 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) +<span id="L10909" class="LineNr">10909 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" z: int\n"</span>) +<span id="L10910" class="LineNr">10910 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10911" class="LineNr">10911 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10912" class="LineNr">10912 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array t) <- copy 0\n"</span>) +<span id="L10913" class="LineNr">10913 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ebx: int <- length arr\n"</span>) +<span id="L10914" class="LineNr">10914 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10915" class="LineNr">10915 </span> <span class="subxComment"># convert</span> +<span id="L10916" class="LineNr">10916 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L10917" class="LineNr">10917 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10918" class="Folded">10918 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10924" class="LineNr">10924 </span> <span class="subxComment"># check output</span> +<span id="L10925" class="LineNr">10925 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10896'>test-convert-length-of-array-of-user-defined-types</a>/0"</span>) +<span id="L10926" class="LineNr">10926 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types/1"</span>) +<span id="L10927" class="LineNr">10927 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10896'>test-convert-length-of-array-of-user-defined-types</a>/2"</span>) +<span id="L10928" class="LineNr">10928 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10896'>test-convert-length-of-array-of-user-defined-types</a>/3"</span>) +<span id="L10929" class="LineNr">10929 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L10896'>test-convert-length-of-array-of-user-defined-types</a>/4"</span>) +<span id="L10930" class="LineNr">10930 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10896'>test-convert-length-of-array-of-user-defined-types</a>/5"</span>) +<span id="L10931" class="LineNr">10931 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10896'>test-convert-length-of-array-of-user-defined-types</a>/6"</span>) +<span id="L10932" class="LineNr">10932 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10896'>test-convert-length-of-array-of-user-defined-types</a>/7"</span>) +<span id="L10933" class="LineNr">10933 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ebx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10896'>test-convert-length-of-array-of-user-defined-types</a>/8"</span>) +<span id="L10934" class="LineNr">10934 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 50/push-eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10896'>test-convert-length-of-array-of-user-defined-types</a>/9"</span>) +<span id="L10935" class="LineNr">10935 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 51/push-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10896'>test-convert-length-of-array-of-user-defined-types</a>/10"</span>) +<span id="L10936" class="LineNr">10936 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 52/push-edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10896'>test-convert-length-of-array-of-user-defined-types</a>/11"</span>) +<span id="L10937" class="LineNr">10937 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10896'>test-convert-length-of-array-of-user-defined-types</a>/12"</span>) +<span id="L10938" class="LineNr">10938 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 31/xor %edx 2/r32/edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10896'>test-convert-length-of-array-of-user-defined-types</a>/13"</span>) +<span id="L10939" class="LineNr">10939 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10896'>test-convert-length-of-array-of-user-defined-types</a>/14"</span>) +<span id="L10940" class="LineNr">10940 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f7 7/subop/idiv-eax-edx-by %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10896'>test-convert-length-of-array-of-user-defined-types</a>/15"</span>) +<span id="L10941" class="LineNr">10941 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebx 0/r32/eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10896'>test-convert-length-of-array-of-user-defined-types</a>/16"</span>) +<span id="L10942" class="LineNr">10942 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5a/pop-to-edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10896'>test-convert-length-of-array-of-user-defined-types</a>/17"</span>) +<span id="L10943" class="LineNr">10943 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 59/pop-to-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10896'>test-convert-length-of-array-of-user-defined-types</a>/18"</span>) +<span id="L10944" class="LineNr">10944 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 58/pop-to-eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10896'>test-convert-length-of-array-of-user-defined-types</a>/19"</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#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ebx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10896'>test-convert-length-of-array-of-user-defined-types</a>/20"</span>) +<span id="L10946" class="LineNr">10946 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10896'>test-convert-length-of-array-of-user-defined-types</a>/21"</span>) +<span id="L10947" class="LineNr">10947 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L10896'>test-convert-length-of-array-of-user-defined-types</a>/22"</span>) +<span id="L10948" class="LineNr">10948 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10896'>test-convert-length-of-array-of-user-defined-types</a>/23"</span>) +<span id="L10949" class="LineNr">10949 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types/24"</span>) +<span id="L10950" class="LineNr">10950 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10896'>test-convert-length-of-array-of-user-defined-types</a>/25"</span>) +<span id="L10951" class="LineNr">10951 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10896'>test-convert-length-of-array-of-user-defined-types</a>/26"</span>) +<span id="L10952" class="LineNr">10952 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L10896'>test-convert-length-of-array-of-user-defined-types</a>/27"</span>) +<span id="L10953" class="LineNr">10953 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10954" class="LineNr">10954 </span> 89/<- %esp 5/r32/ebp +<span id="L10955" class="LineNr">10955 </span> 5d/pop-to-ebp +<span id="L10956" class="LineNr">10956 </span> c3/return +<span id="L10957" class="LineNr">10957 </span> +<span id="L10958" class="LineNr">10958 </span><span class="subxTest">test-index-with-non-array-atom-base-type</span>: +<span id="L10959" class="LineNr">10959 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10960" class="LineNr">10960 </span> 55/push-ebp +<span id="L10961" class="LineNr">10961 </span> 89/<- %ebp 4/r32/esp +<span id="L10962" class="LineNr">10962 </span> <span class="subxComment"># setup</span> +<span id="L10963" class="LineNr">10963 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10964" class="LineNr">10964 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10965" class="LineNr">10965 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10966" class="LineNr">10966 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10967" class="LineNr">10967 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L10968" class="LineNr">10968 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L10969" class="LineNr">10969 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L10970" class="LineNr">10970 </span> 68/push 0/imm32 +<span id="L10971" class="LineNr">10971 </span> 68/push 0/imm32 +<span id="L10972" class="LineNr">10972 </span> 89/<- %edx 4/r32/esp +<span id="L10973" class="LineNr">10973 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L10974" class="LineNr">10974 </span> <span class="subxComment">#</span> +<span id="L10975" class="LineNr">10975 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10976" class="LineNr">10976 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) +<span id="L10977" class="LineNr">10977 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, 0\n"</span>) +<span id="L10978" class="LineNr">10978 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10979" class="LineNr">10979 </span> <span class="subxComment"># convert</span> +<span id="L10980" class="LineNr">10980 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L10981" class="LineNr">10981 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L10982" class="LineNr">10982 </span> <span class="subxComment"># restore ed</span> +<span id="L10983" class="LineNr">10983 </span> 89/<- %edx 4/r32/esp +<span id="L10984" class="LineNr">10984 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10985" class="LineNr">10985 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L10986" class="Folded">10986 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10992" class="LineNr">10992 </span> <span class="subxComment"># check output</span> +<span id="L10993" class="LineNr">10993 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10958'>test-index-with-non-array-atom-base-type</a>: output should be empty"</span>) +<span id="L10994" class="LineNr">10994 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L10958'>test-index-with-non-array-atom-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L10995" class="LineNr">10995 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L10996" class="LineNr">10996 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10958'>test-index-with-non-array-atom-base-type</a>: exit status"</span>) +<span id="L10997" class="LineNr">10997 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L10998" class="LineNr">10998 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10999" class="LineNr">10999 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11000" class="LineNr">11000 </span> 5d/pop-to-ebp +<span id="L11001" class="LineNr">11001 </span> c3/return +<span id="L11002" class="LineNr">11002 </span> +<span id="L11003" class="LineNr">11003 </span><span class="subxTest">test-index-with-non-array-compound-base-type</span>: +<span id="L11004" class="LineNr">11004 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11005" class="LineNr">11005 </span> 55/push-ebp +<span id="L11006" class="LineNr">11006 </span> 89/<- %ebp 4/r32/esp +<span id="L11007" class="LineNr">11007 </span> <span class="subxComment"># setup</span> +<span id="L11008" class="LineNr">11008 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11009" class="LineNr">11009 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11010" class="LineNr">11010 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11011" class="LineNr">11011 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11012" class="LineNr">11012 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11013" class="LineNr">11013 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11014" class="LineNr">11014 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11015" class="LineNr">11015 </span> 68/push 0/imm32 +<span id="L11016" class="LineNr">11016 </span> 68/push 0/imm32 +<span id="L11017" class="LineNr">11017 </span> 89/<- %edx 4/r32/esp +<span id="L11018" class="LineNr">11018 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11019" class="LineNr">11019 </span> <span class="subxComment">#</span> +<span id="L11020" class="LineNr">11020 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11021" class="LineNr">11021 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (handle int)\n"</span>) +<span id="L11022" class="LineNr">11022 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, 0\n"</span>) +<span id="L11023" class="LineNr">11023 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11024" class="LineNr">11024 </span> <span class="subxComment"># convert</span> +<span id="L11025" class="LineNr">11025 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11026" class="LineNr">11026 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11027" class="LineNr">11027 </span> <span class="subxComment"># restore ed</span> +<span id="L11028" class="LineNr">11028 </span> 89/<- %edx 4/r32/esp +<span id="L11029" class="LineNr">11029 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11030" class="LineNr">11030 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11031" class="Folded">11031 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11037" class="LineNr">11037 </span> <span class="subxComment"># check output</span> +<span id="L11038" class="LineNr">11038 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11003'>test-index-with-non-array-compound-base-type</a>: output should be empty"</span>) +<span id="L11039" class="LineNr">11039 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L11003'>test-index-with-non-array-compound-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11040" class="LineNr">11040 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11041" class="LineNr">11041 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11003'>test-index-with-non-array-compound-base-type</a>: exit status"</span>) +<span id="L11042" class="LineNr">11042 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11043" class="LineNr">11043 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11044" class="LineNr">11044 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11045" class="LineNr">11045 </span> 5d/pop-to-ebp +<span id="L11046" class="LineNr">11046 </span> c3/return +<span id="L11047" class="LineNr">11047 </span> +<span id="L11048" class="LineNr">11048 </span><span class="subxTest">test-index-with-non-array-compound-base-type-2</span>: +<span id="L11049" class="LineNr">11049 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11050" class="LineNr">11050 </span> 55/push-ebp +<span id="L11051" class="LineNr">11051 </span> 89/<- %ebp 4/r32/esp +<span id="L11052" class="LineNr">11052 </span> <span class="subxComment"># setup</span> +<span id="L11053" class="LineNr">11053 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11054" class="LineNr">11054 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11055" class="LineNr">11055 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11056" class="LineNr">11056 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11057" class="LineNr">11057 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11058" class="LineNr">11058 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11059" class="LineNr">11059 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11060" class="LineNr">11060 </span> 68/push 0/imm32 +<span id="L11061" class="LineNr">11061 </span> 68/push 0/imm32 +<span id="L11062" class="LineNr">11062 </span> 89/<- %edx 4/r32/esp +<span id="L11063" class="LineNr">11063 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11064" class="LineNr">11064 </span> <span class="subxComment">#</span> +<span id="L11065" class="LineNr">11065 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11066" class="LineNr">11066 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr int)\n"</span>) +<span id="L11067" class="LineNr">11067 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, 0\n"</span>) +<span id="L11068" class="LineNr">11068 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11069" class="LineNr">11069 </span> <span class="subxComment"># convert</span> +<span id="L11070" class="LineNr">11070 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11071" class="LineNr">11071 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11072" class="LineNr">11072 </span> <span class="subxComment"># restore ed</span> +<span id="L11073" class="LineNr">11073 </span> 89/<- %edx 4/r32/esp +<span id="L11074" class="LineNr">11074 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11075" class="LineNr">11075 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11076" class="Folded">11076 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11082" class="LineNr">11082 </span> <span class="subxComment"># check output</span> +<span id="L11083" class="LineNr">11083 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11048'>test-index-with-non-array-compound-base-type-2</a>: output should be empty"</span>) +<span id="L11084" class="LineNr">11084 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L11048'>test-index-with-non-array-compound-base-type-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11085" class="LineNr">11085 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11086" class="LineNr">11086 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11048'>test-index-with-non-array-compound-base-type-2</a>: exit status"</span>) +<span id="L11087" class="LineNr">11087 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11088" class="LineNr">11088 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11089" class="LineNr">11089 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11090" class="LineNr">11090 </span> 5d/pop-to-ebp +<span id="L11091" class="LineNr">11091 </span> c3/return +<span id="L11092" class="LineNr">11092 </span> +<span id="L11093" class="LineNr">11093 </span><span class="subxTest">test-index-with-array-atom-base-type</span>: +<span id="L11094" class="LineNr">11094 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11095" class="LineNr">11095 </span> 55/push-ebp +<span id="L11096" class="LineNr">11096 </span> 89/<- %ebp 4/r32/esp +<span id="L11097" class="LineNr">11097 </span> <span class="subxComment"># setup</span> +<span id="L11098" class="LineNr">11098 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11099" class="LineNr">11099 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11100" class="LineNr">11100 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11101" class="LineNr">11101 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11102" class="LineNr">11102 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11103" class="LineNr">11103 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11104" class="LineNr">11104 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11105" class="LineNr">11105 </span> 68/push 0/imm32 +<span id="L11106" class="LineNr">11106 </span> 68/push 0/imm32 +<span id="L11107" class="LineNr">11107 </span> 89/<- %edx 4/r32/esp +<span id="L11108" class="LineNr">11108 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11109" class="LineNr">11109 </span> <span class="subxComment">#</span> +<span id="L11110" class="LineNr">11110 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11111" class="LineNr">11111 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: array\n"</span>) +<span id="L11112" class="LineNr">11112 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, 0\n"</span>) +<span id="L11113" class="LineNr">11113 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11114" class="LineNr">11114 </span> <span class="subxComment"># convert</span> +<span id="L11115" class="LineNr">11115 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11116" class="LineNr">11116 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11117" class="LineNr">11117 </span> <span class="subxComment"># restore ed</span> +<span id="L11118" class="LineNr">11118 </span> 89/<- %edx 4/r32/esp +<span id="L11119" class="LineNr">11119 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11120" class="LineNr">11120 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11121" class="Folded">11121 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11127" class="LineNr">11127 </span> <span class="subxComment"># check output</span> +<span id="L11128" class="LineNr">11128 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11093'>test-index-with-array-atom-base-type</a>: output should be empty"</span>) +<span id="L11129" class="LineNr">11129 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: array 'a' must specify the type of its elements"</span> <span class="Constant">"F - <a href='mu.subx.html#L11093'>test-index-with-array-atom-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11130" class="LineNr">11130 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11131" class="LineNr">11131 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11093'>test-index-with-array-atom-base-type</a>: exit status"</span>) +<span id="L11132" class="LineNr">11132 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11133" class="LineNr">11133 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11134" class="LineNr">11134 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11135" class="LineNr">11135 </span> 5d/pop-to-ebp +<span id="L11136" class="LineNr">11136 </span> c3/return +<span id="L11137" class="LineNr">11137 </span> +<span id="L11138" class="LineNr">11138 </span><span class="subxTest">test-index-with-addr-base-on-stack</span>: +<span id="L11139" class="LineNr">11139 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11140" class="LineNr">11140 </span> 55/push-ebp +<span id="L11141" class="LineNr">11141 </span> 89/<- %ebp 4/r32/esp +<span id="L11142" class="LineNr">11142 </span> <span class="subxComment"># setup</span> +<span id="L11143" class="LineNr">11143 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11144" class="LineNr">11144 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11145" class="LineNr">11145 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11146" class="LineNr">11146 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11147" class="LineNr">11147 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11148" class="LineNr">11148 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11149" class="LineNr">11149 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11150" class="LineNr">11150 </span> 68/push 0/imm32 +<span id="L11151" class="LineNr">11151 </span> 68/push 0/imm32 +<span id="L11152" class="LineNr">11152 </span> 89/<- %edx 4/r32/esp +<span id="L11153" class="LineNr">11153 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11154" class="LineNr">11154 </span> <span class="subxComment">#</span> +<span id="L11155" class="LineNr">11155 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11156" class="LineNr">11156 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr array int)\n"</span>) +<span id="L11157" class="LineNr">11157 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, 0\n"</span>) +<span id="L11158" class="LineNr">11158 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11159" class="LineNr">11159 </span> <span class="subxComment"># convert</span> +<span id="L11160" class="LineNr">11160 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11161" class="LineNr">11161 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11162" class="LineNr">11162 </span> <span class="subxComment"># restore ed</span> +<span id="L11163" class="LineNr">11163 </span> 89/<- %edx 4/r32/esp +<span id="L11164" class="LineNr">11164 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11165" class="LineNr">11165 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11166" class="Folded">11166 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11172" class="LineNr">11172 </span> <span class="subxComment"># check output</span> +<span id="L11173" class="LineNr">11173 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11138'>test-index-with-addr-base-on-stack</a>: output should be empty"</span>) +<span id="L11174" class="LineNr">11174 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: var 'a' is an addr to an array, and so must live in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L11138'>test-index-with-addr-base-on-stack</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11175" class="LineNr">11175 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11176" class="LineNr">11176 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11138'>test-index-with-addr-base-on-stack</a>: exit status"</span>) +<span id="L11177" class="LineNr">11177 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11178" class="LineNr">11178 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11179" class="LineNr">11179 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11180" class="LineNr">11180 </span> 5d/pop-to-ebp +<span id="L11181" class="LineNr">11181 </span> c3/return +<span id="L11182" class="LineNr">11182 </span> +<span id="L11183" class="LineNr">11183 </span><span class="subxTest">test-index-with-wrong-index-type</span>: +<span id="L11184" class="LineNr">11184 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11185" class="LineNr">11185 </span> 55/push-ebp +<span id="L11186" class="LineNr">11186 </span> 89/<- %ebp 4/r32/esp +<span id="L11187" class="LineNr">11187 </span> <span class="subxComment"># setup</span> +<span id="L11188" class="LineNr">11188 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11189" class="LineNr">11189 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11190" class="LineNr">11190 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11191" class="LineNr">11191 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11192" class="LineNr">11192 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11193" class="LineNr">11193 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11194" class="LineNr">11194 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11195" class="LineNr">11195 </span> 68/push 0/imm32 +<span id="L11196" class="LineNr">11196 </span> 68/push 0/imm32 +<span id="L11197" class="LineNr">11197 </span> 89/<- %edx 4/r32/esp +<span id="L11198" class="LineNr">11198 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11199" class="LineNr">11199 </span> <span class="subxComment">#</span> +<span id="L11200" class="LineNr">11200 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11201" class="LineNr">11201 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr array int) <- copy 0\n"</span>) +<span id="L11202" class="LineNr">11202 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: boolean\n"</span>) +<span id="L11203" class="LineNr">11203 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, b\n"</span>) +<span id="L11204" class="LineNr">11204 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11205" class="LineNr">11205 </span> <span class="subxComment"># convert</span> +<span id="L11206" class="LineNr">11206 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11207" class="LineNr">11207 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11208" class="LineNr">11208 </span> <span class="subxComment"># restore ed</span> +<span id="L11209" class="LineNr">11209 </span> 89/<- %edx 4/r32/esp +<span id="L11210" class="LineNr">11210 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11211" class="LineNr">11211 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11212" class="Folded">11212 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11218" class="LineNr">11218 </span> <span class="subxComment"># check output</span> +<span id="L11219" class="LineNr">11219 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11183'>test-index-with-wrong-index-type</a>: output should be empty"</span>) +<span id="L11220" class="LineNr">11220 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: second argument 'b' must be an int or offset"</span> <span class="Constant">"F - <a href='mu.subx.html#L11183'>test-index-with-wrong-index-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11221" class="LineNr">11221 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11222" class="LineNr">11222 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11183'>test-index-with-wrong-index-type</a>: exit status"</span>) +<span id="L11223" class="LineNr">11223 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11224" class="LineNr">11224 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11225" class="LineNr">11225 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11226" class="LineNr">11226 </span> 5d/pop-to-ebp +<span id="L11227" class="LineNr">11227 </span> c3/return +<span id="L11228" class="LineNr">11228 </span> +<span id="L11229" class="LineNr">11229 </span><span class="subxTest">test-index-with-offset-atom-index-type</span>: +<span id="L11230" class="LineNr">11230 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11231" class="LineNr">11231 </span> 55/push-ebp +<span id="L11232" class="LineNr">11232 </span> 89/<- %ebp 4/r32/esp +<span id="L11233" class="LineNr">11233 </span> <span class="subxComment"># setup</span> +<span id="L11234" class="LineNr">11234 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11235" class="LineNr">11235 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11236" class="LineNr">11236 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11237" class="LineNr">11237 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11238" class="LineNr">11238 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11239" class="LineNr">11239 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11240" class="LineNr">11240 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11241" class="LineNr">11241 </span> 68/push 0/imm32 +<span id="L11242" class="LineNr">11242 </span> 68/push 0/imm32 +<span id="L11243" class="LineNr">11243 </span> 89/<- %edx 4/r32/esp +<span id="L11244" class="LineNr">11244 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11245" class="LineNr">11245 </span> <span class="subxComment">#</span> +<span id="L11246" class="LineNr">11246 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11247" class="LineNr">11247 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr array int) <- copy 0\n"</span>) +<span id="L11248" class="LineNr">11248 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: offset\n"</span>) +<span id="L11249" class="LineNr">11249 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, b\n"</span>) +<span id="L11250" class="LineNr">11250 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11251" class="LineNr">11251 </span> <span class="subxComment"># convert</span> +<span id="L11252" class="LineNr">11252 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11253" class="LineNr">11253 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11254" class="LineNr">11254 </span> <span class="subxComment"># restore ed</span> +<span id="L11255" class="LineNr">11255 </span> 89/<- %edx 4/r32/esp +<span id="L11256" class="LineNr">11256 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11257" class="LineNr">11257 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11258" class="Folded">11258 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11264" class="LineNr">11264 </span> <span class="subxComment"># check output</span> +<span id="L11265" class="LineNr">11265 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11229'>test-index-with-offset-atom-index-type</a>: output should be empty"</span>) +<span id="L11266" class="LineNr">11266 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: offset 'b' must specify the type of array elements"</span> <span class="Constant">"F - <a href='mu.subx.html#L11229'>test-index-with-offset-atom-index-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11267" class="LineNr">11267 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11268" class="LineNr">11268 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11229'>test-index-with-offset-atom-index-type</a>: exit status"</span>) +<span id="L11269" class="LineNr">11269 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11270" class="LineNr">11270 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11271" class="LineNr">11271 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11272" class="LineNr">11272 </span> 5d/pop-to-ebp +<span id="L11273" class="LineNr">11273 </span> c3/return +<span id="L11274" class="LineNr">11274 </span> +<span id="L11275" class="LineNr">11275 </span><span class="subxTest">test-index-with-offset-on-stack</span>: +<span id="L11276" class="LineNr">11276 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11277" class="LineNr">11277 </span> 55/push-ebp +<span id="L11278" class="LineNr">11278 </span> 89/<- %ebp 4/r32/esp +<span id="L11279" class="LineNr">11279 </span> <span class="subxComment"># setup</span> +<span id="L11280" class="LineNr">11280 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11281" class="LineNr">11281 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11282" class="LineNr">11282 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11283" class="LineNr">11283 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11284" class="LineNr">11284 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11285" class="LineNr">11285 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11286" class="LineNr">11286 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11287" class="LineNr">11287 </span> 68/push 0/imm32 +<span id="L11288" class="LineNr">11288 </span> 68/push 0/imm32 +<span id="L11289" class="LineNr">11289 </span> 89/<- %edx 4/r32/esp +<span id="L11290" class="LineNr">11290 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11291" class="LineNr">11291 </span> <span class="subxComment">#</span> +<span id="L11292" class="LineNr">11292 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11293" class="LineNr">11293 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr array int) <- copy 0\n"</span>) +<span id="L11294" class="LineNr">11294 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: int\n"</span>) +<span id="L11295" class="LineNr">11295 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, b\n"</span>) +<span id="L11296" class="LineNr">11296 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11297" class="LineNr">11297 </span> <span class="subxComment"># convert</span> +<span id="L11298" class="LineNr">11298 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11299" class="LineNr">11299 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11300" class="LineNr">11300 </span> <span class="subxComment"># restore ed</span> +<span id="L11301" class="LineNr">11301 </span> 89/<- %edx 4/r32/esp +<span id="L11302" class="LineNr">11302 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11303" class="LineNr">11303 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11304" class="Folded">11304 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11310" class="LineNr">11310 </span> <span class="subxComment"># check output</span> +<span id="L11311" class="LineNr">11311 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11275'>test-index-with-offset-on-stack</a>: output should be empty"</span>) +<span id="L11312" class="LineNr">11312 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: second argument 'b' must be in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L11275'>test-index-with-offset-on-stack</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11313" class="LineNr">11313 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11314" class="LineNr">11314 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11275'>test-index-with-offset-on-stack</a>: exit status"</span>) +<span id="L11315" class="LineNr">11315 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11316" class="LineNr">11316 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11317" class="LineNr">11317 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11318" class="LineNr">11318 </span> 5d/pop-to-ebp +<span id="L11319" class="LineNr">11319 </span> c3/return +<span id="L11320" class="LineNr">11320 </span> +<span id="L11321" class="LineNr">11321 </span><span class="subxTest">test-index-needs-offset-type</span>: +<span id="L11322" class="LineNr">11322 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11323" class="LineNr">11323 </span> 55/push-ebp +<span id="L11324" class="LineNr">11324 </span> 89/<- %ebp 4/r32/esp +<span id="L11325" class="LineNr">11325 </span> <span class="subxComment"># setup</span> +<span id="L11326" class="LineNr">11326 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11327" class="LineNr">11327 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11328" class="LineNr">11328 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11329" class="LineNr">11329 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11330" class="LineNr">11330 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11331" class="LineNr">11331 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11332" class="LineNr">11332 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11333" class="LineNr">11333 </span> 68/push 0/imm32 +<span id="L11334" class="LineNr">11334 </span> 68/push 0/imm32 +<span id="L11335" class="LineNr">11335 </span> 89/<- %edx 4/r32/esp +<span id="L11336" class="LineNr">11336 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11337" class="LineNr">11337 </span> <span class="subxComment">#</span> +<span id="L11338" class="LineNr">11338 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11339" class="LineNr">11339 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr array t) <- copy 0\n"</span>) +<span id="L11340" class="LineNr">11340 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/ebx: int <- copy 0\n"</span>) +<span id="L11341" class="LineNr">11341 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, b\n"</span>) +<span id="L11342" class="LineNr">11342 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11343" class="LineNr">11343 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) <span class="subxComment"># size 12 is not a power of two</span> +<span id="L11344" class="LineNr">11344 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L11345" class="LineNr">11345 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) +<span id="L11346" class="LineNr">11346 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" z: int\n"</span>) +<span id="L11347" class="LineNr">11347 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11348" class="LineNr">11348 </span> <span class="subxComment"># convert</span> +<span id="L11349" class="LineNr">11349 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11350" class="LineNr">11350 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11351" class="LineNr">11351 </span> <span class="subxComment"># restore ed</span> +<span id="L11352" class="LineNr">11352 </span> 89/<- %edx 4/r32/esp +<span id="L11353" class="LineNr">11353 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11354" class="LineNr">11354 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11355" class="Folded">11355 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11361" class="LineNr">11361 </span> <span class="subxComment"># check output</span> +<span id="L11362" class="LineNr">11362 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11321'>test-index-needs-offset-type</a>: output should be empty"</span>) +<span id="L11363" class="LineNr">11363 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: cannot take an int for array 'a'; create an offset instead. See mu.md for details."</span> <span class="Constant">"F - <a href='mu.subx.html#L11321'>test-index-needs-offset-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11364" class="LineNr">11364 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11365" class="LineNr">11365 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11321'>test-index-needs-offset-type</a>: exit status"</span>) +<span id="L11366" class="LineNr">11366 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11367" class="LineNr">11367 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11368" class="LineNr">11368 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11369" class="LineNr">11369 </span> 5d/pop-to-ebp +<span id="L11370" class="LineNr">11370 </span> c3/return +<span id="L11371" class="LineNr">11371 </span> +<span id="L11372" class="LineNr">11372 </span><span class="subxTest">test-index-with-output-not-address</span>: +<span id="L11373" class="LineNr">11373 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11374" class="LineNr">11374 </span> 55/push-ebp +<span id="L11375" class="LineNr">11375 </span> 89/<- %ebp 4/r32/esp +<span id="L11376" class="LineNr">11376 </span> <span class="subxComment"># setup</span> +<span id="L11377" class="LineNr">11377 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11378" class="LineNr">11378 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11379" class="LineNr">11379 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11380" class="LineNr">11380 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11381" class="LineNr">11381 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11382" class="LineNr">11382 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11383" class="LineNr">11383 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11384" class="LineNr">11384 </span> 68/push 0/imm32 +<span id="L11385" class="LineNr">11385 </span> 68/push 0/imm32 +<span id="L11386" class="LineNr">11386 </span> 89/<- %edx 4/r32/esp +<span id="L11387" class="LineNr">11387 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11388" class="LineNr">11388 </span> <span class="subxComment">#</span> +<span id="L11389" class="LineNr">11389 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11390" class="LineNr">11390 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/ebx: (addr array boolean) <- copy 0\n"</span>) +<span id="L11391" class="LineNr">11391 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/edi: int <- index a, 0\n"</span>) +<span id="L11392" class="LineNr">11392 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11393" class="LineNr">11393 </span> <span class="subxComment"># convert</span> +<span id="L11394" class="LineNr">11394 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11395" class="LineNr">11395 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11396" class="LineNr">11396 </span> <span class="subxComment"># restore ed</span> +<span id="L11397" class="LineNr">11397 </span> 89/<- %edx 4/r32/esp +<span id="L11398" class="LineNr">11398 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11399" class="LineNr">11399 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11400" class="Folded">11400 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11406" class="LineNr">11406 </span> <span class="subxComment"># check output</span> +<span id="L11407" class="LineNr">11407 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11372'>test-index-with-output-not-address</a>: output should be empty"</span>) +<span id="L11408" class="LineNr">11408 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: output 'o' must be an addr"</span> <span class="Constant">"F - <a href='mu.subx.html#L11372'>test-index-with-output-not-address</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11409" class="LineNr">11409 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11410" class="LineNr">11410 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11372'>test-index-with-output-not-address</a>: exit status"</span>) +<span id="L11411" class="LineNr">11411 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11412" class="LineNr">11412 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11413" class="LineNr">11413 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11414" class="LineNr">11414 </span> 5d/pop-to-ebp +<span id="L11415" class="LineNr">11415 </span> c3/return +<span id="L11416" class="LineNr">11416 </span> +<span id="L11417" class="LineNr">11417 </span><span class="subxTest">test-index-with-output-not-address-2</span>: +<span id="L11418" class="LineNr">11418 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11419" class="LineNr">11419 </span> 55/push-ebp +<span id="L11420" class="LineNr">11420 </span> 89/<- %ebp 4/r32/esp +<span id="L11421" class="LineNr">11421 </span> <span class="subxComment"># setup</span> +<span id="L11422" class="LineNr">11422 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11423" class="LineNr">11423 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11424" class="LineNr">11424 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11425" class="LineNr">11425 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11426" class="LineNr">11426 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11427" class="LineNr">11427 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11428" class="LineNr">11428 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11429" class="LineNr">11429 </span> 68/push 0/imm32 +<span id="L11430" class="LineNr">11430 </span> 68/push 0/imm32 +<span id="L11431" class="LineNr">11431 </span> 89/<- %edx 4/r32/esp +<span id="L11432" class="LineNr">11432 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11433" class="LineNr">11433 </span> <span class="subxComment">#</span> +<span id="L11434" class="LineNr">11434 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11435" class="LineNr">11435 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/ebx: (addr array boolean) <- copy 0\n"</span>) +<span id="L11436" class="LineNr">11436 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/edi: (int) <- index a, 0\n"</span>) +<span id="L11437" class="LineNr">11437 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11438" class="LineNr">11438 </span> <span class="subxComment"># convert</span> +<span id="L11439" class="LineNr">11439 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11440" class="LineNr">11440 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11441" class="LineNr">11441 </span> <span class="subxComment"># restore ed</span> +<span id="L11442" class="LineNr">11442 </span> 89/<- %edx 4/r32/esp +<span id="L11443" class="LineNr">11443 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11444" class="LineNr">11444 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11445" class="Folded">11445 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11451" class="LineNr">11451 </span> <span class="subxComment"># check output</span> +<span id="L11452" class="LineNr">11452 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11417'>test-index-with-output-not-address-2</a>: output should be empty"</span>) +<span id="L11453" class="LineNr">11453 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: output 'o' must be an addr"</span> <span class="Constant">"F - <a href='mu.subx.html#L11417'>test-index-with-output-not-address-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11454" class="LineNr">11454 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11455" class="LineNr">11455 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11417'>test-index-with-output-not-address-2</a>: exit status"</span>) +<span id="L11456" class="LineNr">11456 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11457" class="LineNr">11457 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11458" class="LineNr">11458 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11459" class="LineNr">11459 </span> 5d/pop-to-ebp +<span id="L11460" class="LineNr">11460 </span> c3/return +<span id="L11461" class="LineNr">11461 </span> +<span id="L11462" class="LineNr">11462 </span><span class="subxTest">test-index-with-wrong-output-type</span>: +<span id="L11463" class="LineNr">11463 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11464" class="LineNr">11464 </span> 55/push-ebp +<span id="L11465" class="LineNr">11465 </span> 89/<- %ebp 4/r32/esp +<span id="L11466" class="LineNr">11466 </span> <span class="subxComment"># setup</span> +<span id="L11467" class="LineNr">11467 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11468" class="LineNr">11468 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11469" class="LineNr">11469 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11470" class="LineNr">11470 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11471" class="LineNr">11471 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11472" class="LineNr">11472 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11473" class="LineNr">11473 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11474" class="LineNr">11474 </span> 68/push 0/imm32 +<span id="L11475" class="LineNr">11475 </span> 68/push 0/imm32 +<span id="L11476" class="LineNr">11476 </span> 89/<- %edx 4/r32/esp +<span id="L11477" class="LineNr">11477 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11478" class="LineNr">11478 </span> <span class="subxComment">#</span> +<span id="L11479" class="LineNr">11479 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11480" class="LineNr">11480 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/ebx: (addr array boolean) <- copy 0\n"</span>) +<span id="L11481" class="LineNr">11481 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/edi: (addr int) <- index a, 0\n"</span>) +<span id="L11482" class="LineNr">11482 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11483" class="LineNr">11483 </span> <span class="subxComment"># convert</span> +<span id="L11484" class="LineNr">11484 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11485" class="LineNr">11485 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11486" class="LineNr">11486 </span> <span class="subxComment"># restore ed</span> +<span id="L11487" class="LineNr">11487 </span> 89/<- %edx 4/r32/esp +<span id="L11488" class="LineNr">11488 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11489" class="LineNr">11489 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11490" class="Folded">11490 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11496" class="LineNr">11496 </span> <span class="subxComment"># check output</span> +<span id="L11497" class="LineNr">11497 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11462'>test-index-with-wrong-output-type</a>: output should be empty"</span>) +<span id="L11498" class="LineNr">11498 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: output 'o' does not have the right type"</span> <span class="Constant">"F - <a href='mu.subx.html#L11462'>test-index-with-wrong-output-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11499" class="LineNr">11499 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11500" class="LineNr">11500 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11462'>test-index-with-wrong-output-type</a>: exit status"</span>) +<span id="L11501" class="LineNr">11501 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11502" class="LineNr">11502 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11503" class="LineNr">11503 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11504" class="LineNr">11504 </span> 5d/pop-to-ebp +<span id="L11505" class="LineNr">11505 </span> c3/return +<span id="L11506" class="LineNr">11506 </span> +<span id="L11507" class="LineNr">11507 </span><span class="subxTest">test-index-with-wrong-output-compound-type</span>: +<span id="L11508" class="LineNr">11508 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11509" class="LineNr">11509 </span> 55/push-ebp +<span id="L11510" class="LineNr">11510 </span> 89/<- %ebp 4/r32/esp +<span id="L11511" class="LineNr">11511 </span> <span class="subxComment"># setup</span> +<span id="L11512" class="LineNr">11512 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11513" class="LineNr">11513 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11514" class="LineNr">11514 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11515" class="LineNr">11515 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11516" class="LineNr">11516 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11517" class="LineNr">11517 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11518" class="LineNr">11518 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11519" class="LineNr">11519 </span> 68/push 0/imm32 +<span id="L11520" class="LineNr">11520 </span> 68/push 0/imm32 +<span id="L11521" class="LineNr">11521 </span> 89/<- %edx 4/r32/esp +<span id="L11522" class="LineNr">11522 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11523" class="LineNr">11523 </span> <span class="subxComment">#</span> +<span id="L11524" class="LineNr">11524 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11525" class="LineNr">11525 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/ebx: (addr array handle boolean) <- copy 0\n"</span>) +<span id="L11526" class="LineNr">11526 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/edi: (addr handle int) <- index a, 0\n"</span>) +<span id="L11527" class="LineNr">11527 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11528" class="LineNr">11528 </span> <span class="subxComment"># convert</span> +<span id="L11529" class="LineNr">11529 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11530" class="LineNr">11530 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11531" class="LineNr">11531 </span> <span class="subxComment"># restore ed</span> +<span id="L11532" class="LineNr">11532 </span> 89/<- %edx 4/r32/esp +<span id="L11533" class="LineNr">11533 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11534" class="LineNr">11534 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11535" class="Folded">11535 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11541" class="LineNr">11541 </span> <span class="subxComment"># check output</span> +<span id="L11542" class="LineNr">11542 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11507'>test-index-with-wrong-output-compound-type</a>: output should be empty"</span>) +<span id="L11543" class="LineNr">11543 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: output 'o' does not have the right type"</span> <span class="Constant">"F - <a href='mu.subx.html#L11507'>test-index-with-wrong-output-compound-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11544" class="LineNr">11544 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11545" class="LineNr">11545 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11507'>test-index-with-wrong-output-compound-type</a>: exit status"</span>) +<span id="L11546" class="LineNr">11546 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11547" class="LineNr">11547 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11548" class="LineNr">11548 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11549" class="LineNr">11549 </span> 5d/pop-to-ebp +<span id="L11550" class="LineNr">11550 </span> c3/return +<span id="L11551" class="LineNr">11551 </span> +<span id="L11552" class="LineNr">11552 </span><span class="subxTest">test-index-with-no-inouts</span>: +<span id="L11553" class="LineNr">11553 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11554" class="LineNr">11554 </span> 55/push-ebp +<span id="L11555" class="LineNr">11555 </span> 89/<- %ebp 4/r32/esp +<span id="L11556" class="LineNr">11556 </span> <span class="subxComment"># setup</span> +<span id="L11557" class="LineNr">11557 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11558" class="LineNr">11558 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11559" class="LineNr">11559 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11560" class="LineNr">11560 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11561" class="LineNr">11561 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11562" class="LineNr">11562 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11563" class="LineNr">11563 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11564" class="LineNr">11564 </span> 68/push 0/imm32 +<span id="L11565" class="LineNr">11565 </span> 68/push 0/imm32 +<span id="L11566" class="LineNr">11566 </span> 89/<- %edx 4/r32/esp +<span id="L11567" class="LineNr">11567 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11568" class="LineNr">11568 </span> <span class="subxComment">#</span> +<span id="L11569" class="LineNr">11569 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11570" class="LineNr">11570 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index\n"</span>) +<span id="L11571" class="LineNr">11571 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11572" class="LineNr">11572 </span> <span class="subxComment"># convert</span> +<span id="L11573" class="LineNr">11573 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11574" class="LineNr">11574 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11575" class="LineNr">11575 </span> <span class="subxComment"># restore ed</span> +<span id="L11576" class="LineNr">11576 </span> 89/<- %edx 4/r32/esp +<span id="L11577" class="LineNr">11577 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11578" class="LineNr">11578 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11579" class="Folded">11579 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11585" class="LineNr">11585 </span> <span class="subxComment"># check output</span> +<span id="L11586" class="LineNr">11586 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11552'>test-index-with-no-inouts</a>: output should be empty"</span>) +<span id="L11587" class="LineNr">11587 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: too few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L11552'>test-index-with-no-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11588" class="LineNr">11588 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11589" class="LineNr">11589 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11552'>test-index-with-no-inouts</a>: exit status"</span>) +<span id="L11590" class="LineNr">11590 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11591" class="LineNr">11591 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11592" class="LineNr">11592 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11593" class="LineNr">11593 </span> 5d/pop-to-ebp +<span id="L11594" class="LineNr">11594 </span> c3/return +<span id="L11595" class="LineNr">11595 </span> +<span id="L11596" class="LineNr">11596 </span><span class="subxTest">test-index-with-too-few-inouts</span>: +<span id="L11597" class="LineNr">11597 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11598" class="LineNr">11598 </span> 55/push-ebp +<span id="L11599" class="LineNr">11599 </span> 89/<- %ebp 4/r32/esp +<span id="L11600" class="LineNr">11600 </span> <span class="subxComment"># setup</span> +<span id="L11601" class="LineNr">11601 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11602" class="LineNr">11602 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11603" class="LineNr">11603 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11604" class="LineNr">11604 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11605" class="LineNr">11605 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11606" class="LineNr">11606 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11607" class="LineNr">11607 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11608" class="LineNr">11608 </span> 68/push 0/imm32 +<span id="L11609" class="LineNr">11609 </span> 68/push 0/imm32 +<span id="L11610" class="LineNr">11610 </span> 89/<- %edx 4/r32/esp +<span id="L11611" class="LineNr">11611 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11612" class="LineNr">11612 </span> <span class="subxComment">#</span> +<span id="L11613" class="LineNr">11613 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11614" class="LineNr">11614 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) +<span id="L11615" class="LineNr">11615 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a\n"</span>) +<span id="L11616" class="LineNr">11616 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11617" class="LineNr">11617 </span> <span class="subxComment"># convert</span> +<span id="L11618" class="LineNr">11618 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11619" class="LineNr">11619 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11620" class="LineNr">11620 </span> <span class="subxComment"># restore ed</span> +<span id="L11621" class="LineNr">11621 </span> 89/<- %edx 4/r32/esp +<span id="L11622" class="LineNr">11622 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11623" class="LineNr">11623 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11624" class="Folded">11624 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11630" class="LineNr">11630 </span> <span class="subxComment"># check output</span> +<span id="L11631" class="LineNr">11631 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11596'>test-index-with-too-few-inouts</a>: output should be empty"</span>) +<span id="L11632" class="LineNr">11632 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: too few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L11596'>test-index-with-too-few-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11633" class="LineNr">11633 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11634" class="LineNr">11634 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11596'>test-index-with-too-few-inouts</a>: exit status"</span>) +<span id="L11635" class="LineNr">11635 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11636" class="LineNr">11636 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11637" class="LineNr">11637 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11638" class="LineNr">11638 </span> 5d/pop-to-ebp +<span id="L11639" class="LineNr">11639 </span> c3/return +<span id="L11640" class="LineNr">11640 </span> +<span id="L11641" class="LineNr">11641 </span><span class="subxTest">test-index-with-too-many-inouts</span>: +<span id="L11642" class="LineNr">11642 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11643" class="LineNr">11643 </span> 55/push-ebp +<span id="L11644" class="LineNr">11644 </span> 89/<- %ebp 4/r32/esp +<span id="L11645" class="LineNr">11645 </span> <span class="subxComment"># setup</span> +<span id="L11646" class="LineNr">11646 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11647" class="LineNr">11647 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11648" class="LineNr">11648 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11649" class="LineNr">11649 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11650" class="LineNr">11650 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11651" class="LineNr">11651 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11652" class="LineNr">11652 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11653" class="LineNr">11653 </span> 68/push 0/imm32 +<span id="L11654" class="LineNr">11654 </span> 68/push 0/imm32 +<span id="L11655" class="LineNr">11655 </span> 89/<- %edx 4/r32/esp +<span id="L11656" class="LineNr">11656 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11657" class="LineNr">11657 </span> <span class="subxComment">#</span> +<span id="L11658" class="LineNr">11658 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11659" class="LineNr">11659 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) +<span id="L11660" class="LineNr">11660 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, 0, 0\n"</span>) +<span id="L11661" class="LineNr">11661 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11662" class="LineNr">11662 </span> <span class="subxComment"># convert</span> +<span id="L11663" class="LineNr">11663 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11664" class="LineNr">11664 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11665" class="LineNr">11665 </span> <span class="subxComment"># restore ed</span> +<span id="L11666" class="LineNr">11666 </span> 89/<- %edx 4/r32/esp +<span id="L11667" class="LineNr">11667 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11668" class="LineNr">11668 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11669" class="Folded">11669 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11675" class="LineNr">11675 </span> <span class="subxComment"># check output</span> +<span id="L11676" class="LineNr">11676 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11641'>test-index-with-too-many-inouts</a>: output should be empty"</span>) +<span id="L11677" class="LineNr">11677 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: too many inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L11641'>test-index-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11678" class="LineNr">11678 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11679" class="LineNr">11679 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11641'>test-index-with-too-many-inouts</a>: exit status"</span>) +<span id="L11680" class="LineNr">11680 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11681" class="LineNr">11681 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11682" class="LineNr">11682 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11683" class="LineNr">11683 </span> 5d/pop-to-ebp +<span id="L11684" class="LineNr">11684 </span> c3/return +<span id="L11685" class="LineNr">11685 </span> +<span id="L11686" class="LineNr">11686 </span><span class="subxTest">test-index-with-no-output</span>: +<span id="L11687" class="LineNr">11687 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11688" class="LineNr">11688 </span> 55/push-ebp +<span id="L11689" class="LineNr">11689 </span> 89/<- %ebp 4/r32/esp +<span id="L11690" class="LineNr">11690 </span> <span class="subxComment"># setup</span> +<span id="L11691" class="LineNr">11691 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11692" class="LineNr">11692 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11693" class="LineNr">11693 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11694" class="LineNr">11694 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11695" class="LineNr">11695 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11696" class="LineNr">11696 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11697" class="LineNr">11697 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11698" class="LineNr">11698 </span> 68/push 0/imm32 +<span id="L11699" class="LineNr">11699 </span> 68/push 0/imm32 +<span id="L11700" class="LineNr">11700 </span> 89/<- %edx 4/r32/esp +<span id="L11701" class="LineNr">11701 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11702" class="LineNr">11702 </span> <span class="subxComment">#</span> +<span id="L11703" class="LineNr">11703 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11704" class="LineNr">11704 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) +<span id="L11705" class="LineNr">11705 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" index a, 0\n"</span>) +<span id="L11706" class="LineNr">11706 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11707" class="LineNr">11707 </span> <span class="subxComment"># convert</span> +<span id="L11708" class="LineNr">11708 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11709" class="LineNr">11709 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11710" class="LineNr">11710 </span> <span class="subxComment"># restore ed</span> +<span id="L11711" class="LineNr">11711 </span> 89/<- %edx 4/r32/esp +<span id="L11712" class="LineNr">11712 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11713" class="LineNr">11713 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11714" class="Folded">11714 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11720" class="LineNr">11720 </span> <span class="subxComment"># check output</span> +<span id="L11721" class="LineNr">11721 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11686'>test-index-with-no-output</a>: output should be empty"</span>) +<span id="L11722" class="LineNr">11722 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: must have an output"</span> <span class="Constant">"F - <a href='mu.subx.html#L11686'>test-index-with-no-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11723" class="LineNr">11723 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11724" class="LineNr">11724 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11686'>test-index-with-no-output</a>: exit status"</span>) +<span id="L11725" class="LineNr">11725 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11726" class="LineNr">11726 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11727" class="LineNr">11727 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11728" class="LineNr">11728 </span> 5d/pop-to-ebp +<span id="L11729" class="LineNr">11729 </span> c3/return +<span id="L11730" class="LineNr">11730 </span> +<span id="L11731" class="LineNr">11731 </span><span class="subxTest">test-index-with-too-many-outputs</span>: +<span id="L11732" class="LineNr">11732 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11733" class="LineNr">11733 </span> 55/push-ebp +<span id="L11734" class="LineNr">11734 </span> 89/<- %ebp 4/r32/esp +<span id="L11735" class="LineNr">11735 </span> <span class="subxComment"># setup</span> +<span id="L11736" class="LineNr">11736 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11737" class="LineNr">11737 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11738" class="LineNr">11738 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11739" class="LineNr">11739 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11740" class="LineNr">11740 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11741" class="LineNr">11741 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11742" class="LineNr">11742 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11743" class="LineNr">11743 </span> 68/push 0/imm32 +<span id="L11744" class="LineNr">11744 </span> 68/push 0/imm32 +<span id="L11745" class="LineNr">11745 </span> 89/<- %edx 4/r32/esp +<span id="L11746" class="LineNr">11746 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11747" class="LineNr">11747 </span> <span class="subxComment">#</span> +<span id="L11748" class="LineNr">11748 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11749" class="LineNr">11749 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) +<span id="L11750" class="LineNr">11750 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: (addr int) <- copy 0\n"</span>) +<span id="L11751" class="LineNr">11751 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- copy 0\n"</span>) +<span id="L11752" class="LineNr">11752 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" b, c <- index a, 0\n"</span>) +<span id="L11753" class="LineNr">11753 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11754" class="LineNr">11754 </span> <span class="subxComment"># convert</span> +<span id="L11755" class="LineNr">11755 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11756" class="LineNr">11756 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11757" class="LineNr">11757 </span> <span class="subxComment"># restore ed</span> +<span id="L11758" class="LineNr">11758 </span> 89/<- %edx 4/r32/esp +<span id="L11759" class="LineNr">11759 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11760" class="LineNr">11760 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11761" class="Folded">11761 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11767" class="LineNr">11767 </span> <span class="subxComment"># check output</span> +<span id="L11768" class="LineNr">11768 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11731'>test-index-with-too-many-outputs</a>: output should be empty"</span>) +<span id="L11769" class="LineNr">11769 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: too many outputs (1 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L11731'>test-index-with-too-many-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11770" class="LineNr">11770 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11771" class="LineNr">11771 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11731'>test-index-with-too-many-outputs</a>: exit status"</span>) +<span id="L11772" class="LineNr">11772 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11773" class="LineNr">11773 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11774" class="LineNr">11774 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11775" class="LineNr">11775 </span> 5d/pop-to-ebp +<span id="L11776" class="LineNr">11776 </span> c3/return +<span id="L11777" class="LineNr">11777 </span> +<span id="L11778" class="LineNr">11778 </span><span class="subxTest">test-compute-offset-with-non-array-atom-base-type</span>: +<span id="L11779" class="LineNr">11779 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11780" class="LineNr">11780 </span> 55/push-ebp +<span id="L11781" class="LineNr">11781 </span> 89/<- %ebp 4/r32/esp +<span id="L11782" class="LineNr">11782 </span> <span class="subxComment"># setup</span> +<span id="L11783" class="LineNr">11783 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11784" class="LineNr">11784 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11785" class="LineNr">11785 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11786" class="LineNr">11786 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11787" class="LineNr">11787 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11788" class="LineNr">11788 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11789" class="LineNr">11789 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11790" class="LineNr">11790 </span> 68/push 0/imm32 +<span id="L11791" class="LineNr">11791 </span> 68/push 0/imm32 +<span id="L11792" class="LineNr">11792 </span> 89/<- %edx 4/r32/esp +<span id="L11793" class="LineNr">11793 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11794" class="LineNr">11794 </span> <span class="subxComment">#</span> +<span id="L11795" class="LineNr">11795 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11796" class="LineNr">11796 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) +<span id="L11797" class="LineNr">11797 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (offset int) <- compute-offset a, 0\n"</span>) +<span id="L11798" class="LineNr">11798 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11799" class="LineNr">11799 </span> <span class="subxComment"># convert</span> +<span id="L11800" class="LineNr">11800 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11801" class="LineNr">11801 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11802" class="LineNr">11802 </span> <span class="subxComment"># restore ed</span> +<span id="L11803" class="LineNr">11803 </span> 89/<- %edx 4/r32/esp +<span id="L11804" class="LineNr">11804 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11805" class="LineNr">11805 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11806" class="Folded">11806 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11812" class="LineNr">11812 </span> <span class="subxComment"># check output</span> +<span id="L11813" class="LineNr">11813 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11778'>test-compute-offset-with-non-array-atom-base-type</a>: output should be empty"</span>) +<span id="L11814" class="LineNr">11814 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L11778'>test-compute-offset-with-non-array-atom-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11815" class="LineNr">11815 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11816" class="LineNr">11816 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11778'>test-compute-offset-with-non-array-atom-base-type</a>: exit status"</span>) +<span id="L11817" class="LineNr">11817 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11818" class="LineNr">11818 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11819" class="LineNr">11819 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11820" class="LineNr">11820 </span> 5d/pop-to-ebp +<span id="L11821" class="LineNr">11821 </span> c3/return +<span id="L11822" class="LineNr">11822 </span> +<span id="L11823" class="LineNr">11823 </span><span class="subxTest">test-compute-offset-with-non-array-compound-base-type</span>: +<span id="L11824" class="LineNr">11824 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11825" class="LineNr">11825 </span> 55/push-ebp +<span id="L11826" class="LineNr">11826 </span> 89/<- %ebp 4/r32/esp +<span id="L11827" class="LineNr">11827 </span> <span class="subxComment"># setup</span> +<span id="L11828" class="LineNr">11828 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11829" class="LineNr">11829 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11830" class="LineNr">11830 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11831" class="LineNr">11831 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11832" class="LineNr">11832 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11833" class="LineNr">11833 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11834" class="LineNr">11834 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11835" class="LineNr">11835 </span> 68/push 0/imm32 +<span id="L11836" class="LineNr">11836 </span> 68/push 0/imm32 +<span id="L11837" class="LineNr">11837 </span> 89/<- %edx 4/r32/esp +<span id="L11838" class="LineNr">11838 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11839" class="LineNr">11839 </span> <span class="subxComment">#</span> +<span id="L11840" class="LineNr">11840 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11841" class="LineNr">11841 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (handle int)\n"</span>) +<span id="L11842" class="LineNr">11842 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (offset int) <- compute-offset a, 0\n"</span>) +<span id="L11843" class="LineNr">11843 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11844" class="LineNr">11844 </span> <span class="subxComment"># convert</span> +<span id="L11845" class="LineNr">11845 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11846" class="LineNr">11846 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11847" class="LineNr">11847 </span> <span class="subxComment"># restore ed</span> +<span id="L11848" class="LineNr">11848 </span> 89/<- %edx 4/r32/esp +<span id="L11849" class="LineNr">11849 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11850" class="LineNr">11850 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11851" class="Folded">11851 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11857" class="LineNr">11857 </span> <span class="subxComment"># check output</span> +<span id="L11858" class="LineNr">11858 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11823'>test-compute-offset-with-non-array-compound-base-type</a>: output should be empty"</span>) +<span id="L11859" class="LineNr">11859 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L11823'>test-compute-offset-with-non-array-compound-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11860" class="LineNr">11860 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11861" class="LineNr">11861 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11823'>test-compute-offset-with-non-array-compound-base-type</a>: exit status"</span>) +<span id="L11862" class="LineNr">11862 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11863" class="LineNr">11863 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11864" class="LineNr">11864 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11865" class="LineNr">11865 </span> 5d/pop-to-ebp +<span id="L11866" class="LineNr">11866 </span> c3/return +<span id="L11867" class="LineNr">11867 </span> +<span id="L11868" class="LineNr">11868 </span><span class="subxTest">test-compute-offset-with-non-array-compound-base-type-2</span>: +<span id="L11869" class="LineNr">11869 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11870" class="LineNr">11870 </span> 55/push-ebp +<span id="L11871" class="LineNr">11871 </span> 89/<- %ebp 4/r32/esp +<span id="L11872" class="LineNr">11872 </span> <span class="subxComment"># setup</span> +<span id="L11873" class="LineNr">11873 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11874" class="LineNr">11874 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11875" class="LineNr">11875 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11876" class="LineNr">11876 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11877" class="LineNr">11877 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11878" class="LineNr">11878 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11879" class="LineNr">11879 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11880" class="LineNr">11880 </span> 68/push 0/imm32 +<span id="L11881" class="LineNr">11881 </span> 68/push 0/imm32 +<span id="L11882" class="LineNr">11882 </span> 89/<- %edx 4/r32/esp +<span id="L11883" class="LineNr">11883 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11884" class="LineNr">11884 </span> <span class="subxComment">#</span> +<span id="L11885" class="LineNr">11885 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11886" class="LineNr">11886 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr int)\n"</span>) +<span id="L11887" class="LineNr">11887 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (offset int) <- compute-offset a, 0\n"</span>) +<span id="L11888" class="LineNr">11888 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11889" class="LineNr">11889 </span> <span class="subxComment"># convert</span> +<span id="L11890" class="LineNr">11890 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11891" class="LineNr">11891 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11892" class="LineNr">11892 </span> <span class="subxComment"># restore ed</span> +<span id="L11893" class="LineNr">11893 </span> 89/<- %edx 4/r32/esp +<span id="L11894" class="LineNr">11894 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11895" class="LineNr">11895 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11896" class="Folded">11896 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11902" class="LineNr">11902 </span> <span class="subxComment"># check output</span> +<span id="L11903" class="LineNr">11903 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11868'>test-compute-offset-with-non-array-compound-base-type-2</a>: output should be empty"</span>) +<span id="L11904" class="LineNr">11904 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L11868'>test-compute-offset-with-non-array-compound-base-type-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11905" class="LineNr">11905 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11906" class="LineNr">11906 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11868'>test-compute-offset-with-non-array-compound-base-type-2</a>: exit status"</span>) +<span id="L11907" class="LineNr">11907 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11908" class="LineNr">11908 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11909" class="LineNr">11909 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11910" class="LineNr">11910 </span> 5d/pop-to-ebp +<span id="L11911" class="LineNr">11911 </span> c3/return +<span id="L11912" class="LineNr">11912 </span> +<span id="L11913" class="LineNr">11913 </span><span class="subxTest">test-compute-offset-with-array-atom-base-type</span>: +<span id="L11914" class="LineNr">11914 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11915" class="LineNr">11915 </span> 55/push-ebp +<span id="L11916" class="LineNr">11916 </span> 89/<- %ebp 4/r32/esp +<span id="L11917" class="LineNr">11917 </span> <span class="subxComment"># setup</span> +<span id="L11918" class="LineNr">11918 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11919" class="LineNr">11919 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11920" class="LineNr">11920 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11921" class="LineNr">11921 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11922" class="LineNr">11922 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11923" class="LineNr">11923 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11924" class="LineNr">11924 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11925" class="LineNr">11925 </span> 68/push 0/imm32 +<span id="L11926" class="LineNr">11926 </span> 68/push 0/imm32 +<span id="L11927" class="LineNr">11927 </span> 89/<- %edx 4/r32/esp +<span id="L11928" class="LineNr">11928 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11929" class="LineNr">11929 </span> <span class="subxComment">#</span> +<span id="L11930" class="LineNr">11930 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11931" class="LineNr">11931 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: array\n"</span>) +<span id="L11932" class="LineNr">11932 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (offset int) <- compute-offset a, 0\n"</span>) +<span id="L11933" class="LineNr">11933 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11934" class="LineNr">11934 </span> <span class="subxComment"># convert</span> +<span id="L11935" class="LineNr">11935 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11936" class="LineNr">11936 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11937" class="LineNr">11937 </span> <span class="subxComment"># restore ed</span> +<span id="L11938" class="LineNr">11938 </span> 89/<- %edx 4/r32/esp +<span id="L11939" class="LineNr">11939 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11940" class="LineNr">11940 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11941" class="Folded">11941 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11947" class="LineNr">11947 </span> <span class="subxComment"># check output</span> +<span id="L11948" class="LineNr">11948 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11913'>test-compute-offset-with-array-atom-base-type</a>: output should be empty"</span>) +<span id="L11949" class="LineNr">11949 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: array 'a' must specify the type of its elements"</span> <span class="Constant">"F - <a href='mu.subx.html#L11913'>test-compute-offset-with-array-atom-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11950" class="LineNr">11950 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11951" class="LineNr">11951 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11913'>test-compute-offset-with-array-atom-base-type</a>: exit status"</span>) +<span id="L11952" class="LineNr">11952 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11953" class="LineNr">11953 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11954" class="LineNr">11954 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11955" class="LineNr">11955 </span> 5d/pop-to-ebp +<span id="L11956" class="LineNr">11956 </span> c3/return +<span id="L11957" class="LineNr">11957 </span> +<span id="L11958" class="LineNr">11958 </span><span class="subxTest">test-compute-offset-with-wrong-index-type</span>: +<span id="L11959" class="LineNr">11959 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11960" class="LineNr">11960 </span> 55/push-ebp +<span id="L11961" class="LineNr">11961 </span> 89/<- %ebp 4/r32/esp +<span id="L11962" class="LineNr">11962 </span> <span class="subxComment"># setup</span> +<span id="L11963" class="LineNr">11963 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11964" class="LineNr">11964 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11965" class="LineNr">11965 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11966" class="LineNr">11966 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11967" class="LineNr">11967 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11968" class="LineNr">11968 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11969" class="LineNr">11969 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11970" class="LineNr">11970 </span> 68/push 0/imm32 +<span id="L11971" class="LineNr">11971 </span> 68/push 0/imm32 +<span id="L11972" class="LineNr">11972 </span> 89/<- %edx 4/r32/esp +<span id="L11973" class="LineNr">11973 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11974" class="LineNr">11974 </span> <span class="subxComment">#</span> +<span id="L11975" class="LineNr">11975 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11976" class="LineNr">11976 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr array int) <- copy 0\n"</span>) +<span id="L11977" class="LineNr">11977 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: boolean\n"</span>) +<span id="L11978" class="LineNr">11978 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (offset int) <- compute-offset a, b\n"</span>) +<span id="L11979" class="LineNr">11979 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11980" class="LineNr">11980 </span> <span class="subxComment"># convert</span> +<span id="L11981" class="LineNr">11981 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11982" class="LineNr">11982 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11983" class="LineNr">11983 </span> <span class="subxComment"># restore ed</span> +<span id="L11984" class="LineNr">11984 </span> 89/<- %edx 4/r32/esp +<span id="L11985" class="LineNr">11985 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11986" class="LineNr">11986 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11987" class="Folded">11987 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11993" class="LineNr">11993 </span> <span class="subxComment"># check output</span> +<span id="L11994" class="LineNr">11994 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11958'>test-compute-offset-with-wrong-index-type</a>: output should be empty"</span>) +<span id="L11995" class="LineNr">11995 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: second argument 'b' must be an int"</span> <span class="Constant">"F - <a href='mu.subx.html#L11958'>test-compute-offset-with-wrong-index-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11996" class="LineNr">11996 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11997" class="LineNr">11997 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11958'>test-compute-offset-with-wrong-index-type</a>: exit status"</span>) +<span id="L11998" class="LineNr">11998 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11999" class="LineNr">11999 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12000" class="LineNr">12000 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12001" class="LineNr">12001 </span> 5d/pop-to-ebp +<span id="L12002" class="LineNr">12002 </span> c3/return +<span id="L12003" class="LineNr">12003 </span> +<span id="L12004" class="LineNr">12004 </span><span class="subxTest">test-compute-offset-with-output-not-offset</span>: +<span id="L12005" class="LineNr">12005 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12006" class="LineNr">12006 </span> 55/push-ebp +<span id="L12007" class="LineNr">12007 </span> 89/<- %ebp 4/r32/esp +<span id="L12008" class="LineNr">12008 </span> <span class="subxComment"># setup</span> +<span id="L12009" class="LineNr">12009 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12010" class="LineNr">12010 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12011" class="LineNr">12011 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12012" class="LineNr">12012 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12013" class="LineNr">12013 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12014" class="LineNr">12014 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L12015" class="LineNr">12015 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L12016" class="LineNr">12016 </span> 68/push 0/imm32 +<span id="L12017" class="LineNr">12017 </span> 68/push 0/imm32 +<span id="L12018" class="LineNr">12018 </span> 89/<- %edx 4/r32/esp +<span id="L12019" class="LineNr">12019 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L12020" class="LineNr">12020 </span> <span class="subxComment">#</span> +<span id="L12021" class="LineNr">12021 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12022" class="LineNr">12022 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/ebx: (addr array boolean) <- copy 0\n"</span>) +<span id="L12023" class="LineNr">12023 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/edi: int <- compute-offset a, 0\n"</span>) +<span id="L12024" class="LineNr">12024 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12025" class="LineNr">12025 </span> <span class="subxComment"># convert</span> +<span id="L12026" class="LineNr">12026 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12027" class="LineNr">12027 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12028" class="LineNr">12028 </span> <span class="subxComment"># restore ed</span> +<span id="L12029" class="LineNr">12029 </span> 89/<- %edx 4/r32/esp +<span id="L12030" class="LineNr">12030 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12031" class="LineNr">12031 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12032" class="Folded">12032 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12038" class="LineNr">12038 </span> <span class="subxComment"># check output</span> +<span id="L12039" class="LineNr">12039 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12004'>test-compute-offset-with-output-not-offset</a>: output should be empty"</span>) +<span id="L12040" class="LineNr">12040 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: output 'o' must be an offset"</span> <span class="Constant">"F - <a href='mu.subx.html#L12004'>test-compute-offset-with-output-not-offset</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12041" class="LineNr">12041 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12042" class="LineNr">12042 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12004'>test-compute-offset-with-output-not-offset</a>: exit status"</span>) +<span id="L12043" class="LineNr">12043 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12044" class="LineNr">12044 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12045" class="LineNr">12045 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12046" class="LineNr">12046 </span> 5d/pop-to-ebp +<span id="L12047" class="LineNr">12047 </span> c3/return +<span id="L12048" class="LineNr">12048 </span> +<span id="L12049" class="LineNr">12049 </span><span class="subxTest">test-compute-offset-with-output-not-address-2</span>: +<span id="L12050" class="LineNr">12050 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12051" class="LineNr">12051 </span> 55/push-ebp +<span id="L12052" class="LineNr">12052 </span> 89/<- %ebp 4/r32/esp +<span id="L12053" class="LineNr">12053 </span> <span class="subxComment"># setup</span> +<span id="L12054" class="LineNr">12054 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12055" class="LineNr">12055 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12056" class="LineNr">12056 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12057" class="LineNr">12057 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12058" class="LineNr">12058 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12059" class="LineNr">12059 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L12060" class="LineNr">12060 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L12061" class="LineNr">12061 </span> 68/push 0/imm32 +<span id="L12062" class="LineNr">12062 </span> 68/push 0/imm32 +<span id="L12063" class="LineNr">12063 </span> 89/<- %edx 4/r32/esp +<span id="L12064" class="LineNr">12064 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L12065" class="LineNr">12065 </span> <span class="subxComment">#</span> +<span id="L12066" class="LineNr">12066 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12067" class="LineNr">12067 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/ebx: (addr array boolean) <- copy 0\n"</span>) +<span id="L12068" class="LineNr">12068 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/edi: (int) <- compute-offset a, 0\n"</span>) +<span id="L12069" class="LineNr">12069 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12070" class="LineNr">12070 </span> <span class="subxComment"># convert</span> +<span id="L12071" class="LineNr">12071 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12072" class="LineNr">12072 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12073" class="LineNr">12073 </span> <span class="subxComment"># restore ed</span> +<span id="L12074" class="LineNr">12074 </span> 89/<- %edx 4/r32/esp +<span id="L12075" class="LineNr">12075 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12076" class="LineNr">12076 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12077" class="Folded">12077 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12083" class="LineNr">12083 </span> <span class="subxComment"># check output</span> +<span id="L12084" class="LineNr">12084 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12049'>test-compute-offset-with-output-not-address-2</a>: output should be empty"</span>) +<span id="L12085" class="LineNr">12085 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: output 'o' must be an offset"</span> <span class="Constant">"F - <a href='mu.subx.html#L12049'>test-compute-offset-with-output-not-address-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12086" class="LineNr">12086 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12087" class="LineNr">12087 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12049'>test-compute-offset-with-output-not-address-2</a>: exit status"</span>) +<span id="L12088" class="LineNr">12088 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12089" class="LineNr">12089 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12090" class="LineNr">12090 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12091" class="LineNr">12091 </span> 5d/pop-to-ebp +<span id="L12092" class="LineNr">12092 </span> c3/return +<span id="L12093" class="LineNr">12093 </span> +<span id="L12094" class="LineNr">12094 </span><span class="subxTest">test-compute-offset-with-wrong-output-type</span>: +<span id="L12095" class="LineNr">12095 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12096" class="LineNr">12096 </span> 55/push-ebp +<span id="L12097" class="LineNr">12097 </span> 89/<- %ebp 4/r32/esp +<span id="L12098" class="LineNr">12098 </span> <span class="subxComment"># setup</span> +<span id="L12099" class="LineNr">12099 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12100" class="LineNr">12100 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12101" class="LineNr">12101 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12102" class="LineNr">12102 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12103" class="LineNr">12103 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12104" class="LineNr">12104 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L12105" class="LineNr">12105 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L12106" class="LineNr">12106 </span> 68/push 0/imm32 +<span id="L12107" class="LineNr">12107 </span> 68/push 0/imm32 +<span id="L12108" class="LineNr">12108 </span> 89/<- %edx 4/r32/esp +<span id="L12109" class="LineNr">12109 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L12110" class="LineNr">12110 </span> <span class="subxComment">#</span> +<span id="L12111" class="LineNr">12111 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12112" class="LineNr">12112 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/ebx: (addr array boolean) <- copy 0\n"</span>) +<span id="L12113" class="LineNr">12113 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/edi: (offset int) <- compute-offset a, 0\n"</span>) +<span id="L12114" class="LineNr">12114 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12115" class="LineNr">12115 </span> <span class="subxComment"># convert</span> +<span id="L12116" class="LineNr">12116 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12117" class="LineNr">12117 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12118" class="LineNr">12118 </span> <span class="subxComment"># restore ed</span> +<span id="L12119" class="LineNr">12119 </span> 89/<- %edx 4/r32/esp +<span id="L12120" class="LineNr">12120 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12121" class="LineNr">12121 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12122" class="Folded">12122 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12128" class="LineNr">12128 </span> <span class="subxComment"># check output</span> +<span id="L12129" class="LineNr">12129 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12094'>test-compute-offset-with-wrong-output-type</a>: output should be empty"</span>) +<span id="L12130" class="LineNr">12130 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: output 'o' does not have the right type"</span> <span class="Constant">"F - <a href='mu.subx.html#L12094'>test-compute-offset-with-wrong-output-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12131" class="LineNr">12131 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12132" class="LineNr">12132 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12094'>test-compute-offset-with-wrong-output-type</a>: exit status"</span>) +<span id="L12133" class="LineNr">12133 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12134" class="LineNr">12134 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12135" class="LineNr">12135 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12136" class="LineNr">12136 </span> 5d/pop-to-ebp +<span id="L12137" class="LineNr">12137 </span> c3/return +<span id="L12138" class="LineNr">12138 </span> +<span id="L12139" class="LineNr">12139 </span><span class="subxTest">test-compute-offset-with-wrong-output-compound-type</span>: +<span id="L12140" class="LineNr">12140 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12141" class="LineNr">12141 </span> 55/push-ebp +<span id="L12142" class="LineNr">12142 </span> 89/<- %ebp 4/r32/esp +<span id="L12143" class="LineNr">12143 </span> <span class="subxComment"># setup</span> +<span id="L12144" class="LineNr">12144 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12145" class="LineNr">12145 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12146" class="LineNr">12146 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12147" class="LineNr">12147 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12148" class="LineNr">12148 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12149" class="LineNr">12149 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L12150" class="LineNr">12150 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L12151" class="LineNr">12151 </span> 68/push 0/imm32 +<span id="L12152" class="LineNr">12152 </span> 68/push 0/imm32 +<span id="L12153" class="LineNr">12153 </span> 89/<- %edx 4/r32/esp +<span id="L12154" class="LineNr">12154 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L12155" class="LineNr">12155 </span> <span class="subxComment">#</span> +<span id="L12156" class="LineNr">12156 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12157" class="LineNr">12157 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/ebx: (addr array handle boolean) <- copy 0\n"</span>) +<span id="L12158" class="LineNr">12158 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/edi: (offset handle int) <- compute-offset a, 0\n"</span>) +<span id="L12159" class="LineNr">12159 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12160" class="LineNr">12160 </span> <span class="subxComment"># convert</span> +<span id="L12161" class="LineNr">12161 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12162" class="LineNr">12162 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12163" class="LineNr">12163 </span> <span class="subxComment"># restore ed</span> +<span id="L12164" class="LineNr">12164 </span> 89/<- %edx 4/r32/esp +<span id="L12165" class="LineNr">12165 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12166" class="LineNr">12166 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12167" class="Folded">12167 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12173" class="LineNr">12173 </span> <span class="subxComment"># check output</span> +<span id="L12174" class="LineNr">12174 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12139'>test-compute-offset-with-wrong-output-compound-type</a>: output should be empty"</span>) +<span id="L12175" class="LineNr">12175 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: output 'o' does not have the right type"</span> <span class="Constant">"F - <a href='mu.subx.html#L12139'>test-compute-offset-with-wrong-output-compound-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12176" class="LineNr">12176 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12177" class="LineNr">12177 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12139'>test-compute-offset-with-wrong-output-compound-type</a>: exit status"</span>) +<span id="L12178" class="LineNr">12178 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12179" class="LineNr">12179 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12180" class="LineNr">12180 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12181" class="LineNr">12181 </span> 5d/pop-to-ebp +<span id="L12182" class="LineNr">12182 </span> c3/return +<span id="L12183" class="LineNr">12183 </span> +<span id="L12184" class="LineNr">12184 </span><span class="subxTest">test-compute-offset-with-no-inouts</span>: +<span id="L12185" class="LineNr">12185 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12186" class="LineNr">12186 </span> 55/push-ebp +<span id="L12187" class="LineNr">12187 </span> 89/<- %ebp 4/r32/esp +<span id="L12188" class="LineNr">12188 </span> <span class="subxComment"># setup</span> +<span id="L12189" class="LineNr">12189 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12190" class="LineNr">12190 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12191" class="LineNr">12191 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12192" class="LineNr">12192 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12193" class="LineNr">12193 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12194" class="LineNr">12194 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L12195" class="LineNr">12195 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L12196" class="LineNr">12196 </span> 68/push 0/imm32 +<span id="L12197" class="LineNr">12197 </span> 68/push 0/imm32 +<span id="L12198" class="LineNr">12198 </span> 89/<- %edx 4/r32/esp +<span id="L12199" class="LineNr">12199 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L12200" class="LineNr">12200 </span> <span class="subxComment">#</span> +<span id="L12201" class="LineNr">12201 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12202" class="LineNr">12202 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (offset int) <- compute-offset\n"</span>) +<span id="L12203" class="LineNr">12203 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12204" class="LineNr">12204 </span> <span class="subxComment"># convert</span> +<span id="L12205" class="LineNr">12205 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12206" class="LineNr">12206 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12207" class="LineNr">12207 </span> <span class="subxComment"># restore ed</span> +<span id="L12208" class="LineNr">12208 </span> 89/<- %edx 4/r32/esp +<span id="L12209" class="LineNr">12209 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12210" class="LineNr">12210 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12211" class="Folded">12211 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12217" class="LineNr">12217 </span> <span class="subxComment"># check output</span> +<span id="L12218" class="LineNr">12218 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12184'>test-compute-offset-with-no-inouts</a>: output should be empty"</span>) +<span id="L12219" class="LineNr">12219 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: too few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12184'>test-compute-offset-with-no-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12220" class="LineNr">12220 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12221" class="LineNr">12221 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12184'>test-compute-offset-with-no-inouts</a>: exit status"</span>) +<span id="L12222" class="LineNr">12222 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12223" class="LineNr">12223 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12224" class="LineNr">12224 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12225" class="LineNr">12225 </span> 5d/pop-to-ebp +<span id="L12226" class="LineNr">12226 </span> c3/return +<span id="L12227" class="LineNr">12227 </span> +<span id="L12228" class="LineNr">12228 </span><span class="subxTest">test-compute-offset-with-too-few-inouts</span>: +<span id="L12229" class="LineNr">12229 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12230" class="LineNr">12230 </span> 55/push-ebp +<span id="L12231" class="LineNr">12231 </span> 89/<- %ebp 4/r32/esp +<span id="L12232" class="LineNr">12232 </span> <span class="subxComment"># setup</span> +<span id="L12233" class="LineNr">12233 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12234" class="LineNr">12234 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12235" class="LineNr">12235 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12236" class="LineNr">12236 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12237" class="LineNr">12237 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12238" class="LineNr">12238 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L12239" class="LineNr">12239 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L12240" class="LineNr">12240 </span> 68/push 0/imm32 +<span id="L12241" class="LineNr">12241 </span> 68/push 0/imm32 +<span id="L12242" class="LineNr">12242 </span> 89/<- %edx 4/r32/esp +<span id="L12243" class="LineNr">12243 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L12244" class="LineNr">12244 </span> <span class="subxComment">#</span> +<span id="L12245" class="LineNr">12245 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12246" class="LineNr">12246 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) +<span id="L12247" class="LineNr">12247 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (offset int) <- compute-offset a\n"</span>) +<span id="L12248" class="LineNr">12248 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12249" class="LineNr">12249 </span> <span class="subxComment"># convert</span> +<span id="L12250" class="LineNr">12250 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12251" class="LineNr">12251 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12252" class="LineNr">12252 </span> <span class="subxComment"># restore ed</span> +<span id="L12253" class="LineNr">12253 </span> 89/<- %edx 4/r32/esp +<span id="L12254" class="LineNr">12254 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12255" class="LineNr">12255 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12256" class="Folded">12256 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12262" class="LineNr">12262 </span> <span class="subxComment"># check output</span> +<span id="L12263" class="LineNr">12263 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12228'>test-compute-offset-with-too-few-inouts</a>: output should be empty"</span>) +<span id="L12264" class="LineNr">12264 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: too few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12228'>test-compute-offset-with-too-few-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12265" class="LineNr">12265 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12266" class="LineNr">12266 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12228'>test-compute-offset-with-too-few-inouts</a>: exit status"</span>) +<span id="L12267" class="LineNr">12267 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12268" class="LineNr">12268 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12269" class="LineNr">12269 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12270" class="LineNr">12270 </span> 5d/pop-to-ebp +<span id="L12271" class="LineNr">12271 </span> c3/return +<span id="L12272" class="LineNr">12272 </span> +<span id="L12273" class="LineNr">12273 </span><span class="subxTest">test-compute-offset-with-too-many-inouts</span>: +<span id="L12274" class="LineNr">12274 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12275" class="LineNr">12275 </span> 55/push-ebp +<span id="L12276" class="LineNr">12276 </span> 89/<- %ebp 4/r32/esp +<span id="L12277" class="LineNr">12277 </span> <span class="subxComment"># setup</span> +<span id="L12278" class="LineNr">12278 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12279" class="LineNr">12279 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12280" class="LineNr">12280 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12281" class="LineNr">12281 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12282" class="LineNr">12282 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12283" class="LineNr">12283 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L12284" class="LineNr">12284 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L12285" class="LineNr">12285 </span> 68/push 0/imm32 +<span id="L12286" class="LineNr">12286 </span> 68/push 0/imm32 +<span id="L12287" class="LineNr">12287 </span> 89/<- %edx 4/r32/esp +<span id="L12288" class="LineNr">12288 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L12289" class="LineNr">12289 </span> <span class="subxComment">#</span> +<span id="L12290" class="LineNr">12290 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12291" class="LineNr">12291 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) +<span id="L12292" class="LineNr">12292 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (offset int) <- compute-offset a, 0, 0\n"</span>) +<span id="L12293" class="LineNr">12293 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12294" class="LineNr">12294 </span> <span class="subxComment"># convert</span> +<span id="L12295" class="LineNr">12295 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12296" class="LineNr">12296 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12297" class="LineNr">12297 </span> <span class="subxComment"># restore ed</span> +<span id="L12298" class="LineNr">12298 </span> 89/<- %edx 4/r32/esp +<span id="L12299" class="LineNr">12299 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12300" class="LineNr">12300 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12301" class="Folded">12301 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12307" class="LineNr">12307 </span> <span class="subxComment"># check output</span> +<span id="L12308" class="LineNr">12308 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12273'>test-compute-offset-with-too-many-inouts</a>: output should be empty"</span>) +<span id="L12309" class="LineNr">12309 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: too many inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12273'>test-compute-offset-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12310" class="LineNr">12310 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12311" class="LineNr">12311 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12273'>test-compute-offset-with-too-many-inouts</a>: exit status"</span>) +<span id="L12312" class="LineNr">12312 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12313" class="LineNr">12313 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12314" class="LineNr">12314 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12315" class="LineNr">12315 </span> 5d/pop-to-ebp +<span id="L12316" class="LineNr">12316 </span> c3/return +<span id="L12317" class="LineNr">12317 </span> +<span id="L12318" class="LineNr">12318 </span><span class="subxTest">test-compute-offset-with-no-output</span>: +<span id="L12319" class="LineNr">12319 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12320" class="LineNr">12320 </span> 55/push-ebp +<span id="L12321" class="LineNr">12321 </span> 89/<- %ebp 4/r32/esp +<span id="L12322" class="LineNr">12322 </span> <span class="subxComment"># setup</span> +<span id="L12323" class="LineNr">12323 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12324" class="LineNr">12324 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12325" class="LineNr">12325 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12326" class="LineNr">12326 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12327" class="LineNr">12327 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12328" class="LineNr">12328 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L12329" class="LineNr">12329 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L12330" class="LineNr">12330 </span> 68/push 0/imm32 +<span id="L12331" class="LineNr">12331 </span> 68/push 0/imm32 +<span id="L12332" class="LineNr">12332 </span> 89/<- %edx 4/r32/esp +<span id="L12333" class="LineNr">12333 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L12334" class="LineNr">12334 </span> <span class="subxComment">#</span> +<span id="L12335" class="LineNr">12335 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12336" class="LineNr">12336 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) +<span id="L12337" class="LineNr">12337 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compute-offset a, 0\n"</span>) +<span id="L12338" class="LineNr">12338 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12339" class="LineNr">12339 </span> <span class="subxComment"># convert</span> +<span id="L12340" class="LineNr">12340 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12341" class="LineNr">12341 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12342" class="LineNr">12342 </span> <span class="subxComment"># restore ed</span> +<span id="L12343" class="LineNr">12343 </span> 89/<- %edx 4/r32/esp +<span id="L12344" class="LineNr">12344 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12345" class="LineNr">12345 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12346" class="Folded">12346 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12352" class="LineNr">12352 </span> <span class="subxComment"># check output</span> +<span id="L12353" class="LineNr">12353 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12318'>test-compute-offset-with-no-output</a>: output should be empty"</span>) +<span id="L12354" class="LineNr">12354 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: must have an output"</span> <span class="Constant">"F - <a href='mu.subx.html#L12318'>test-compute-offset-with-no-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12355" class="LineNr">12355 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12356" class="LineNr">12356 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12318'>test-compute-offset-with-no-output</a>: exit status"</span>) +<span id="L12357" class="LineNr">12357 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12358" class="LineNr">12358 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12359" class="LineNr">12359 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12360" class="LineNr">12360 </span> 5d/pop-to-ebp +<span id="L12361" class="LineNr">12361 </span> c3/return +<span id="L12362" class="LineNr">12362 </span> +<span id="L12363" class="LineNr">12363 </span><span class="subxTest">test-compute-offset-with-too-many-outputs</span>: +<span id="L12364" class="LineNr">12364 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12365" class="LineNr">12365 </span> 55/push-ebp +<span id="L12366" class="LineNr">12366 </span> 89/<- %ebp 4/r32/esp +<span id="L12367" class="LineNr">12367 </span> <span class="subxComment"># setup</span> +<span id="L12368" class="LineNr">12368 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12369" class="LineNr">12369 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12370" class="LineNr">12370 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12371" class="LineNr">12371 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12372" class="LineNr">12372 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12373" class="LineNr">12373 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L12374" class="LineNr">12374 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L12375" class="LineNr">12375 </span> 68/push 0/imm32 +<span id="L12376" class="LineNr">12376 </span> 68/push 0/imm32 +<span id="L12377" class="LineNr">12377 </span> 89/<- %edx 4/r32/esp +<span id="L12378" class="LineNr">12378 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L12379" class="LineNr">12379 </span> <span class="subxComment">#</span> +<span id="L12380" class="LineNr">12380 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12381" class="LineNr">12381 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) +<span id="L12382" class="LineNr">12382 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: (offset int) <- compute-offset a, 0\n"</span>) +<span id="L12383" class="LineNr">12383 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- copy 0\n"</span>) +<span id="L12384" class="LineNr">12384 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" b, c <- compute-offset a, 0\n"</span>) +<span id="L12385" class="LineNr">12385 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12386" class="LineNr">12386 </span> <span class="subxComment"># convert</span> +<span id="L12387" class="LineNr">12387 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12388" class="LineNr">12388 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12389" class="LineNr">12389 </span> <span class="subxComment"># restore ed</span> +<span id="L12390" class="LineNr">12390 </span> 89/<- %edx 4/r32/esp +<span id="L12391" class="LineNr">12391 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12392" class="LineNr">12392 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12393" class="Folded">12393 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12399" class="LineNr">12399 </span> <span class="subxComment"># check output</span> +<span id="L12400" class="LineNr">12400 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12363'>test-compute-offset-with-too-many-outputs</a>: output should be empty"</span>) +<span id="L12401" class="LineNr">12401 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: too many outputs (1 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12363'>test-compute-offset-with-too-many-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12402" class="LineNr">12402 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12403" class="LineNr">12403 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12363'>test-compute-offset-with-too-many-outputs</a>: exit status"</span>) +<span id="L12404" class="LineNr">12404 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12405" class="LineNr">12405 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12406" class="LineNr">12406 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12407" class="LineNr">12407 </span> 5d/pop-to-ebp +<span id="L12408" class="LineNr">12408 </span> c3/return +<span id="L12409" class="LineNr">12409 </span> +<span id="L12410" class="LineNr">12410 </span><span class="subxTest">test-convert-read-from-stream</span>: +<span id="L12411" class="LineNr">12411 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12412" class="LineNr">12412 </span> 55/push-ebp +<span id="L12413" class="LineNr">12413 </span> 89/<- %ebp 4/r32/esp +<span id="L12414" class="LineNr">12414 </span> <span class="subxComment"># setup</span> +<span id="L12415" class="LineNr">12415 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12416" class="LineNr">12416 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12417" class="LineNr">12417 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12418" class="LineNr">12418 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12419" class="LineNr">12419 </span> <span class="subxComment">#</span> +<span id="L12420" class="LineNr">12420 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12421" class="LineNr">12421 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var s/esi: (addr stream int) <- copy 0\n"</span>) +<span id="L12422" class="LineNr">12422 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/ecx: (addr int) <- copy 0\n"</span>) +<span id="L12423" class="LineNr">12423 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L107'>read-from-stream</a> s, o\n"</span>) +<span id="L12424" class="LineNr">12424 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12425" class="LineNr">12425 </span> <span class="subxComment"># convert</span> +<span id="L12426" class="LineNr">12426 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L12427" class="LineNr">12427 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12428" class="LineNr">12428 </span> <span class="subxComment"># restore ed</span> +<span id="L12429" class="LineNr">12429 </span> 89/<- %edx 4/r32/esp +<span id="L12430" class="LineNr">12430 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12431" class="LineNr">12431 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12432" class="Folded">12432 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12438" class="LineNr">12438 </span> <span class="subxComment"># check output</span> +<span id="L12439" class="LineNr">12439 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12410'>test-convert-read-from-stream</a>/0"</span>) +<span id="L12440" class="LineNr">12440 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-read-from-stream/1"</span>) +<span id="L12441" class="LineNr">12441 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12410'>test-convert-read-from-stream</a>/2"</span>) +<span id="L12442" class="LineNr">12442 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12410'>test-convert-read-from-stream</a>/3"</span>) +<span id="L12443" class="LineNr">12443 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L12410'>test-convert-read-from-stream</a>/4"</span>) +<span id="L12444" class="LineNr">12444 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12410'>test-convert-read-from-stream</a>/5"</span>) +<span id="L12445" class="LineNr">12445 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L12410'>test-convert-read-from-stream</a>/6"</span>) +<span id="L12446" class="LineNr">12446 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" be/copy-to-esi 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L12410'>test-convert-read-from-stream</a>/7"</span>) +<span id="L12447" class="LineNr">12447 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L12410'>test-convert-read-from-stream</a>/8"</span>) +<span id="L12448" class="LineNr">12448 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L12410'>test-convert-read-from-stream</a>/9"</span>) +<span id="L12449" class="LineNr">12449 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='309stream.subx.html#L107'>read-from-stream</a> %esi %ecx 0x00000004)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12410'>test-convert-read-from-stream</a>/10"</span>) +<span id="L12450" class="LineNr">12450 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L12410'>test-convert-read-from-stream</a>/11"</span>) +<span id="L12451" class="LineNr">12451 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L12410'>test-convert-read-from-stream</a>/12"</span>) +<span id="L12452" class="LineNr">12452 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L12410'>test-convert-read-from-stream</a>/13"</span>) +<span id="L12453" class="LineNr">12453 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12410'>test-convert-read-from-stream</a>/14"</span>) +<span id="L12454" class="LineNr">12454 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-read-from-stream/15"</span>) +<span id="L12455" class="LineNr">12455 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12410'>test-convert-read-from-stream</a>/16"</span>) +<span id="L12456" class="LineNr">12456 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12410'>test-convert-read-from-stream</a>/17"</span>) +<span id="L12457" class="LineNr">12457 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L12410'>test-convert-read-from-stream</a>/18"</span>) +<span id="L12458" class="LineNr">12458 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12459" class="LineNr">12459 </span> 89/<- %esp 5/r32/ebp +<span id="L12460" class="LineNr">12460 </span> 5d/pop-to-ebp +<span id="L12461" class="LineNr">12461 </span> c3/return +<span id="L12462" class="LineNr">12462 </span> +<span id="L12463" class="LineNr">12463 </span><span class="subxTest">test-convert-read-from-stream-with-correct-payload-size</span>: +<span id="L12464" class="LineNr">12464 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12465" class="LineNr">12465 </span> 55/push-ebp +<span id="L12466" class="LineNr">12466 </span> 89/<- %ebp 4/r32/esp +<span id="L12467" class="LineNr">12467 </span> <span class="subxComment"># setup</span> +<span id="L12468" class="LineNr">12468 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12469" class="LineNr">12469 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12470" class="LineNr">12470 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12471" class="LineNr">12471 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12472" class="LineNr">12472 </span> <span class="subxComment">#</span> +<span id="L12473" class="LineNr">12473 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12474" class="LineNr">12474 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var s/esi: (addr stream handle int) <- copy 0\n"</span>) +<span id="L12475" class="LineNr">12475 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/ecx: (addr handle int) <- copy 0\n"</span>) +<span id="L12476" class="LineNr">12476 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L107'>read-from-stream</a> s, o\n"</span>) +<span id="L12477" class="LineNr">12477 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12478" class="LineNr">12478 </span> <span class="subxComment"># convert</span> +<span id="L12479" class="LineNr">12479 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L12480" class="LineNr">12480 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12481" class="LineNr">12481 </span> <span class="subxComment"># restore ed</span> +<span id="L12482" class="LineNr">12482 </span> 89/<- %edx 4/r32/esp +<span id="L12483" class="LineNr">12483 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12484" class="LineNr">12484 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12485" class="Folded">12485 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12491" class="LineNr">12491 </span> <span class="subxComment"># check output</span> +<span id="L12492" class="LineNr">12492 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12463'>test-convert-read-from-stream-with-correct-payload-size</a>/0"</span>) +<span id="L12493" class="LineNr">12493 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-read-from-stream-with-correct-payload-size/1"</span>) +<span id="L12494" class="LineNr">12494 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12463'>test-convert-read-from-stream-with-correct-payload-size</a>/2"</span>) +<span id="L12495" class="LineNr">12495 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12463'>test-convert-read-from-stream-with-correct-payload-size</a>/3"</span>) +<span id="L12496" class="LineNr">12496 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L12463'>test-convert-read-from-stream-with-correct-payload-size</a>/4"</span>) +<span id="L12497" class="LineNr">12497 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12463'>test-convert-read-from-stream-with-correct-payload-size</a>/5"</span>) +<span id="L12498" class="LineNr">12498 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L12463'>test-convert-read-from-stream-with-correct-payload-size</a>/6"</span>) +<span id="L12499" class="LineNr">12499 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" be/copy-to-esi 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L12463'>test-convert-read-from-stream-with-correct-payload-size</a>/7"</span>) +<span id="L12500" class="LineNr">12500 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L12463'>test-convert-read-from-stream-with-correct-payload-size</a>/8"</span>) +<span id="L12501" class="LineNr">12501 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L12463'>test-convert-read-from-stream-with-correct-payload-size</a>/9"</span>) +<span id="L12502" class="LineNr">12502 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='309stream.subx.html#L107'>read-from-stream</a> %esi %ecx 0x00000008)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12463'>test-convert-read-from-stream-with-correct-payload-size</a>/10"</span>) +<span id="L12503" class="LineNr">12503 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L12463'>test-convert-read-from-stream-with-correct-payload-size</a>/11"</span>) +<span id="L12504" class="LineNr">12504 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L12463'>test-convert-read-from-stream-with-correct-payload-size</a>/12"</span>) +<span id="L12505" class="LineNr">12505 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L12463'>test-convert-read-from-stream-with-correct-payload-size</a>/13"</span>) +<span id="L12506" class="LineNr">12506 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12463'>test-convert-read-from-stream-with-correct-payload-size</a>/14"</span>) +<span id="L12507" class="LineNr">12507 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-read-from-stream-with-correct-payload-size/15"</span>) +<span id="L12508" class="LineNr">12508 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12463'>test-convert-read-from-stream-with-correct-payload-size</a>/16"</span>) +<span id="L12509" class="LineNr">12509 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12463'>test-convert-read-from-stream-with-correct-payload-size</a>/17"</span>) +<span id="L12510" class="LineNr">12510 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L12463'>test-convert-read-from-stream-with-correct-payload-size</a>/18"</span>) +<span id="L12511" class="LineNr">12511 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12512" class="LineNr">12512 </span> 89/<- %esp 5/r32/ebp +<span id="L12513" class="LineNr">12513 </span> 5d/pop-to-ebp +<span id="L12514" class="LineNr">12514 </span> c3/return +<span id="L12515" class="LineNr">12515 </span> +<span id="L12516" class="LineNr">12516 </span><span class="subxTest">test-read-from-stream-with-non-stream-atom-base-type</span>: +<span id="L12517" class="LineNr">12517 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12518" class="LineNr">12518 </span> 55/push-ebp +<span id="L12519" class="LineNr">12519 </span> 89/<- %ebp 4/r32/esp +<span id="L12520" class="LineNr">12520 </span> <span class="subxComment"># setup</span> +<span id="L12521" class="LineNr">12521 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12522" class="LineNr">12522 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12523" class="LineNr">12523 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12524" class="LineNr">12524 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12525" class="LineNr">12525 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12526" class="LineNr">12526 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L12527" class="LineNr">12527 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L12528" class="LineNr">12528 </span> 68/push 0/imm32 +<span id="L12529" class="LineNr">12529 </span> 68/push 0/imm32 +<span id="L12530" class="LineNr">12530 </span> 89/<- %edx 4/r32/esp +<span id="L12531" class="LineNr">12531 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L12532" class="LineNr">12532 </span> <span class="subxComment">#</span> +<span id="L12533" class="LineNr">12533 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12534" class="LineNr">12534 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) +<span id="L12535" class="LineNr">12535 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L107'>read-from-stream</a> a, 0\n"</span>) +<span id="L12536" class="LineNr">12536 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12537" class="LineNr">12537 </span> <span class="subxComment"># convert</span> +<span id="L12538" class="LineNr">12538 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12539" class="LineNr">12539 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12540" class="LineNr">12540 </span> <span class="subxComment"># restore ed</span> +<span id="L12541" class="LineNr">12541 </span> 89/<- %edx 4/r32/esp +<span id="L12542" class="LineNr">12542 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12543" class="LineNr">12543 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12544" class="Folded">12544 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12550" class="LineNr">12550 </span> <span class="subxComment"># check output</span> +<span id="L12551" class="LineNr">12551 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12516'>test-read-from-stream-with-non-stream-atom-base-type</a>: output should be empty"</span>) +<span id="L12552" class="LineNr">12552 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L107'>read-from-stream</a>: var 'a' must be an addr to a stream"</span> <span class="Constant">"F - <a href='mu.subx.html#L12516'>test-read-from-stream-with-non-stream-atom-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12553" class="LineNr">12553 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12554" class="LineNr">12554 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12516'>test-read-from-stream-with-non-stream-atom-base-type</a>: exit status"</span>) +<span id="L12555" class="LineNr">12555 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12556" class="LineNr">12556 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12557" class="LineNr">12557 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12558" class="LineNr">12558 </span> 5d/pop-to-ebp +<span id="L12559" class="LineNr">12559 </span> c3/return +<span id="L12560" class="LineNr">12560 </span> +<span id="L12561" class="LineNr">12561 </span><span class="subxTest">test-read-from-stream-with-non-stream-compound-base-type</span>: +<span id="L12562" class="LineNr">12562 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12563" class="LineNr">12563 </span> 55/push-ebp +<span id="L12564" class="LineNr">12564 </span> 89/<- %ebp 4/r32/esp +<span id="L12565" class="LineNr">12565 </span> <span class="subxComment"># setup</span> +<span id="L12566" class="LineNr">12566 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12567" class="LineNr">12567 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12568" class="LineNr">12568 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12569" class="LineNr">12569 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12570" class="LineNr">12570 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12571" class="LineNr">12571 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L12572" class="LineNr">12572 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L12573" class="LineNr">12573 </span> 68/push 0/imm32 +<span id="L12574" class="LineNr">12574 </span> 68/push 0/imm32 +<span id="L12575" class="LineNr">12575 </span> 89/<- %edx 4/r32/esp +<span id="L12576" class="LineNr">12576 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L12577" class="LineNr">12577 </span> <span class="subxComment">#</span> +<span id="L12578" class="LineNr">12578 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12579" class="LineNr">12579 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (handle int)\n"</span>) +<span id="L12580" class="LineNr">12580 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L107'>read-from-stream</a> a, 0\n"</span>) +<span id="L12581" class="LineNr">12581 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12582" class="LineNr">12582 </span> <span class="subxComment"># convert</span> +<span id="L12583" class="LineNr">12583 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12584" class="LineNr">12584 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12585" class="LineNr">12585 </span> <span class="subxComment"># restore ed</span> +<span id="L12586" class="LineNr">12586 </span> 89/<- %edx 4/r32/esp +<span id="L12587" class="LineNr">12587 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12588" class="LineNr">12588 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12589" class="Folded">12589 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12595" class="LineNr">12595 </span> <span class="subxComment"># check output</span> +<span id="L12596" class="LineNr">12596 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12561'>test-read-from-stream-with-non-stream-compound-base-type</a>: output should be empty"</span>) +<span id="L12597" class="LineNr">12597 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L107'>read-from-stream</a>: var 'a' must be an addr to a stream"</span> <span class="Constant">"F - <a href='mu.subx.html#L12561'>test-read-from-stream-with-non-stream-compound-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12598" class="LineNr">12598 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12599" class="LineNr">12599 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12561'>test-read-from-stream-with-non-stream-compound-base-type</a>: exit status"</span>) +<span id="L12600" class="LineNr">12600 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12601" class="LineNr">12601 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12602" class="LineNr">12602 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12603" class="LineNr">12603 </span> 5d/pop-to-ebp +<span id="L12604" class="LineNr">12604 </span> c3/return +<span id="L12605" class="LineNr">12605 </span> +<span id="L12606" class="LineNr">12606 </span><span class="subxTest">test-read-from-stream-with-non-stream-compound-base-type-2</span>: +<span id="L12607" class="LineNr">12607 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12608" class="LineNr">12608 </span> 55/push-ebp +<span id="L12609" class="LineNr">12609 </span> 89/<- %ebp 4/r32/esp +<span id="L12610" class="LineNr">12610 </span> <span class="subxComment"># setup</span> +<span id="L12611" class="LineNr">12611 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12612" class="LineNr">12612 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12613" class="LineNr">12613 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12614" class="LineNr">12614 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12615" class="LineNr">12615 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12616" class="LineNr">12616 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L12617" class="LineNr">12617 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L12618" class="LineNr">12618 </span> 68/push 0/imm32 +<span id="L12619" class="LineNr">12619 </span> 68/push 0/imm32 +<span id="L12620" class="LineNr">12620 </span> 89/<- %edx 4/r32/esp +<span id="L12621" class="LineNr">12621 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L12622" class="LineNr">12622 </span> <span class="subxComment">#</span> +<span id="L12623" class="LineNr">12623 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12624" class="LineNr">12624 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr int)\n"</span>) +<span id="L12625" class="LineNr">12625 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L107'>read-from-stream</a> a, 0\n"</span>) +<span id="L12626" class="LineNr">12626 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12627" class="LineNr">12627 </span> <span class="subxComment"># convert</span> +<span id="L12628" class="LineNr">12628 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12629" class="LineNr">12629 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12630" class="LineNr">12630 </span> <span class="subxComment"># restore ed</span> +<span id="L12631" class="LineNr">12631 </span> 89/<- %edx 4/r32/esp +<span id="L12632" class="LineNr">12632 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12633" class="LineNr">12633 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12634" class="Folded">12634 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12640" class="LineNr">12640 </span> <span class="subxComment"># check output</span> +<span id="L12641" class="LineNr">12641 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12606'>test-read-from-stream-with-non-stream-compound-base-type-2</a>: output should be empty"</span>) +<span id="L12642" class="LineNr">12642 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L107'>read-from-stream</a>: var 'a' must be an addr to a stream"</span> <span class="Constant">"F - <a href='mu.subx.html#L12606'>test-read-from-stream-with-non-stream-compound-base-type-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12643" class="LineNr">12643 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12644" class="LineNr">12644 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12606'>test-read-from-stream-with-non-stream-compound-base-type-2</a>: exit status"</span>) +<span id="L12645" class="LineNr">12645 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12646" class="LineNr">12646 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12647" class="LineNr">12647 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12648" class="LineNr">12648 </span> 5d/pop-to-ebp +<span id="L12649" class="LineNr">12649 </span> c3/return +<span id="L12650" class="LineNr">12650 </span> +<span id="L12651" class="LineNr">12651 </span><span class="subxTest">test-read-from-stream-with-stream-atom-base-type</span>: +<span id="L12652" class="LineNr">12652 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12653" class="LineNr">12653 </span> 55/push-ebp +<span id="L12654" class="LineNr">12654 </span> 89/<- %ebp 4/r32/esp +<span id="L12655" class="LineNr">12655 </span> <span class="subxComment"># setup</span> +<span id="L12656" class="LineNr">12656 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12657" class="LineNr">12657 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12658" class="LineNr">12658 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12659" class="LineNr">12659 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12660" class="LineNr">12660 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12661" class="LineNr">12661 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L12662" class="LineNr">12662 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L12663" class="LineNr">12663 </span> 68/push 0/imm32 +<span id="L12664" class="LineNr">12664 </span> 68/push 0/imm32 +<span id="L12665" class="LineNr">12665 </span> 89/<- %edx 4/r32/esp +<span id="L12666" class="LineNr">12666 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L12667" class="LineNr">12667 </span> <span class="subxComment">#</span> +<span id="L12668" class="LineNr">12668 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12669" class="LineNr">12669 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: stream\n"</span>) +<span id="L12670" class="LineNr">12670 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L107'>read-from-stream</a> a, 0\n"</span>) +<span id="L12671" class="LineNr">12671 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12672" class="LineNr">12672 </span> <span class="subxComment"># convert</span> +<span id="L12673" class="LineNr">12673 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12674" class="LineNr">12674 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12675" class="LineNr">12675 </span> <span class="subxComment"># restore ed</span> +<span id="L12676" class="LineNr">12676 </span> 89/<- %edx 4/r32/esp +<span id="L12677" class="LineNr">12677 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12678" class="LineNr">12678 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12679" class="Folded">12679 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12685" class="LineNr">12685 </span> <span class="subxComment"># check output</span> +<span id="L12686" class="LineNr">12686 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12651'>test-read-from-stream-with-stream-atom-base-type</a>: output should be empty"</span>) +<span id="L12687" class="LineNr">12687 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L107'>read-from-stream</a>: var 'a' must be an addr to a stream"</span> <span class="Constant">"F - <a href='mu.subx.html#L12651'>test-read-from-stream-with-stream-atom-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12688" class="LineNr">12688 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12689" class="LineNr">12689 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12651'>test-read-from-stream-with-stream-atom-base-type</a>: exit status"</span>) +<span id="L12690" class="LineNr">12690 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12691" class="LineNr">12691 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12692" class="LineNr">12692 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12693" class="LineNr">12693 </span> 5d/pop-to-ebp +<span id="L12694" class="LineNr">12694 </span> c3/return +<span id="L12695" class="LineNr">12695 </span> +<span id="L12696" class="LineNr">12696 </span><span class="subxTest">test-read-from-stream-with-wrong-index-type</span>: +<span id="L12697" class="LineNr">12697 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12698" class="LineNr">12698 </span> 55/push-ebp +<span id="L12699" class="LineNr">12699 </span> 89/<- %ebp 4/r32/esp +<span id="L12700" class="LineNr">12700 </span> <span class="subxComment"># setup</span> +<span id="L12701" class="LineNr">12701 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12702" class="LineNr">12702 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12703" class="LineNr">12703 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12704" class="LineNr">12704 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12705" class="LineNr">12705 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12706" class="LineNr">12706 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L12707" class="LineNr">12707 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L12708" class="LineNr">12708 </span> 68/push 0/imm32 +<span id="L12709" class="LineNr">12709 </span> 68/push 0/imm32 +<span id="L12710" class="LineNr">12710 </span> 89/<- %edx 4/r32/esp +<span id="L12711" class="LineNr">12711 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L12712" class="LineNr">12712 </span> <span class="subxComment">#</span> +<span id="L12713" class="LineNr">12713 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12714" class="LineNr">12714 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr stream int) <- copy 0\n"</span>) +<span id="L12715" class="LineNr">12715 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: boolean\n"</span>) +<span id="L12716" class="LineNr">12716 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L107'>read-from-stream</a> a, b\n"</span>) +<span id="L12717" class="LineNr">12717 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12718" class="LineNr">12718 </span> <span class="subxComment"># convert</span> +<span id="L12719" class="LineNr">12719 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12720" class="LineNr">12720 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12721" class="LineNr">12721 </span> <span class="subxComment"># restore ed</span> +<span id="L12722" class="LineNr">12722 </span> 89/<- %edx 4/r32/esp +<span id="L12723" class="LineNr">12723 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12724" class="LineNr">12724 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12725" class="Folded">12725 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12731" class="LineNr">12731 </span> <span class="subxComment"># check output</span> +<span id="L12732" class="LineNr">12732 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12696'>test-read-from-stream-with-wrong-index-type</a>: output should be empty"</span>) +<span id="L12733" class="LineNr">12733 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L107'>read-from-stream</a>: target 'b' must be an addr"</span> <span class="Constant">"F - <a href='mu.subx.html#L12696'>test-read-from-stream-with-wrong-index-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12734" class="LineNr">12734 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12735" class="LineNr">12735 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12696'>test-read-from-stream-with-wrong-index-type</a>: exit status"</span>) +<span id="L12736" class="LineNr">12736 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12737" class="LineNr">12737 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12738" class="LineNr">12738 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12739" class="LineNr">12739 </span> 5d/pop-to-ebp +<span id="L12740" class="LineNr">12740 </span> c3/return +<span id="L12741" class="LineNr">12741 </span> +<span id="L12742" class="LineNr">12742 </span><span class="subxTest">test-read-from-stream-with-no-inouts</span>: +<span id="L12743" class="LineNr">12743 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12744" class="LineNr">12744 </span> 55/push-ebp +<span id="L12745" class="LineNr">12745 </span> 89/<- %ebp 4/r32/esp +<span id="L12746" class="LineNr">12746 </span> <span class="subxComment"># setup</span> +<span id="L12747" class="LineNr">12747 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12748" class="LineNr">12748 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12749" class="LineNr">12749 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12750" class="LineNr">12750 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12751" class="LineNr">12751 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12752" class="LineNr">12752 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L12753" class="LineNr">12753 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L12754" class="LineNr">12754 </span> 68/push 0/imm32 +<span id="L12755" class="LineNr">12755 </span> 68/push 0/imm32 +<span id="L12756" class="LineNr">12756 </span> 89/<- %edx 4/r32/esp +<span id="L12757" class="LineNr">12757 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L12758" class="LineNr">12758 </span> <span class="subxComment">#</span> +<span id="L12759" class="LineNr">12759 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12760" class="LineNr">12760 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" read-from-stream\n"</span>) +<span id="L12761" class="LineNr">12761 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12762" class="LineNr">12762 </span> <span class="subxComment"># convert</span> +<span id="L12763" class="LineNr">12763 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12764" class="LineNr">12764 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12765" class="LineNr">12765 </span> <span class="subxComment"># restore ed</span> +<span id="L12766" class="LineNr">12766 </span> 89/<- %edx 4/r32/esp +<span id="L12767" class="LineNr">12767 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12768" class="LineNr">12768 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12769" class="Folded">12769 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12775" class="LineNr">12775 </span> <span class="subxComment"># check output</span> +<span id="L12776" class="LineNr">12776 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12742'>test-read-from-stream-with-no-inouts</a>: output should be empty"</span>) +<span id="L12777" class="LineNr">12777 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L107'>read-from-stream</a>: too few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12742'>test-read-from-stream-with-no-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12778" class="LineNr">12778 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12779" class="LineNr">12779 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12742'>test-read-from-stream-with-no-inouts</a>: exit status"</span>) +<span id="L12780" class="LineNr">12780 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12781" class="LineNr">12781 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12782" class="LineNr">12782 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12783" class="LineNr">12783 </span> 5d/pop-to-ebp +<span id="L12784" class="LineNr">12784 </span> c3/return +<span id="L12785" class="LineNr">12785 </span> +<span id="L12786" class="LineNr">12786 </span><span class="subxTest">test-read-from-stream-with-too-few-inouts</span>: +<span id="L12787" class="LineNr">12787 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12788" class="LineNr">12788 </span> 55/push-ebp +<span id="L12789" class="LineNr">12789 </span> 89/<- %ebp 4/r32/esp +<span id="L12790" class="LineNr">12790 </span> <span class="subxComment"># setup</span> +<span id="L12791" class="LineNr">12791 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12792" class="LineNr">12792 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12793" class="LineNr">12793 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12794" class="LineNr">12794 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12795" class="LineNr">12795 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12796" class="LineNr">12796 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L12797" class="LineNr">12797 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L12798" class="LineNr">12798 </span> 68/push 0/imm32 +<span id="L12799" class="LineNr">12799 </span> 68/push 0/imm32 +<span id="L12800" class="LineNr">12800 </span> 89/<- %edx 4/r32/esp +<span id="L12801" class="LineNr">12801 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L12802" class="LineNr">12802 </span> <span class="subxComment">#</span> +<span id="L12803" class="LineNr">12803 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12804" class="LineNr">12804 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr stream int)\n"</span>) +<span id="L12805" class="LineNr">12805 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L107'>read-from-stream</a> a\n"</span>) +<span id="L12806" class="LineNr">12806 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12807" class="LineNr">12807 </span> <span class="subxComment"># convert</span> +<span id="L12808" class="LineNr">12808 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12809" class="LineNr">12809 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12810" class="LineNr">12810 </span> <span class="subxComment"># restore ed</span> +<span id="L12811" class="LineNr">12811 </span> 89/<- %edx 4/r32/esp +<span id="L12812" class="LineNr">12812 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12813" class="LineNr">12813 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12814" class="Folded">12814 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12820" class="LineNr">12820 </span> <span class="subxComment"># check output</span> +<span id="L12821" class="LineNr">12821 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12786'>test-read-from-stream-with-too-few-inouts</a>: output should be empty"</span>) +<span id="L12822" class="LineNr">12822 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L107'>read-from-stream</a>: too few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12786'>test-read-from-stream-with-too-few-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12823" class="LineNr">12823 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12824" class="LineNr">12824 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12786'>test-read-from-stream-with-too-few-inouts</a>: exit status"</span>) +<span id="L12825" class="LineNr">12825 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12826" class="LineNr">12826 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12827" class="LineNr">12827 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12828" class="LineNr">12828 </span> 5d/pop-to-ebp +<span id="L12829" class="LineNr">12829 </span> c3/return +<span id="L12830" class="LineNr">12830 </span> +<span id="L12831" class="LineNr">12831 </span><span class="subxTest">test-read-from-stream-with-too-many-inouts</span>: +<span id="L12832" class="LineNr">12832 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12833" class="LineNr">12833 </span> 55/push-ebp +<span id="L12834" class="LineNr">12834 </span> 89/<- %ebp 4/r32/esp +<span id="L12835" class="LineNr">12835 </span> <span class="subxComment"># setup</span> +<span id="L12836" class="LineNr">12836 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12837" class="LineNr">12837 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12838" class="LineNr">12838 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12839" class="LineNr">12839 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12840" class="LineNr">12840 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12841" class="LineNr">12841 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L12842" class="LineNr">12842 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L12843" class="LineNr">12843 </span> 68/push 0/imm32 +<span id="L12844" class="LineNr">12844 </span> 68/push 0/imm32 +<span id="L12845" class="LineNr">12845 </span> 89/<- %edx 4/r32/esp +<span id="L12846" class="LineNr">12846 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L12847" class="LineNr">12847 </span> <span class="subxComment">#</span> +<span id="L12848" class="LineNr">12848 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12849" class="LineNr">12849 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr stream int)\n"</span>) +<span id="L12850" class="LineNr">12850 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: (addr int)\n"</span>) +<span id="L12851" class="LineNr">12851 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L107'>read-from-stream</a> a, b, 0\n"</span>) +<span id="L12852" class="LineNr">12852 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12853" class="LineNr">12853 </span> <span class="subxComment"># convert</span> +<span id="L12854" class="LineNr">12854 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12855" class="LineNr">12855 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12856" class="LineNr">12856 </span> <span class="subxComment"># restore ed</span> +<span id="L12857" class="LineNr">12857 </span> 89/<- %edx 4/r32/esp +<span id="L12858" class="LineNr">12858 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12859" class="LineNr">12859 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12860" class="Folded">12860 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-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#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12831'>test-read-from-stream-with-too-many-inouts</a>: output should be empty"</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#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L107'>read-from-stream</a>: too many inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12831'>test-read-from-stream-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12869" class="LineNr">12869 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12870" class="LineNr">12870 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12831'>test-read-from-stream-with-too-many-inouts</a>: exit status"</span>) +<span id="L12871" class="LineNr">12871 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12872" class="LineNr">12872 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12873" class="LineNr">12873 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12874" class="LineNr">12874 </span> 5d/pop-to-ebp +<span id="L12875" class="LineNr">12875 </span> c3/return +<span id="L12876" class="LineNr">12876 </span> +<span id="L12877" class="LineNr">12877 </span><span class="subxTest">test-read-from-stream-with-output</span>: +<span id="L12878" class="LineNr">12878 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12879" class="LineNr">12879 </span> 55/push-ebp +<span id="L12880" class="LineNr">12880 </span> 89/<- %ebp 4/r32/esp +<span id="L12881" class="LineNr">12881 </span> <span class="subxComment"># setup</span> +<span id="L12882" class="LineNr">12882 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12883" class="LineNr">12883 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12884" class="LineNr">12884 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12885" class="LineNr">12885 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12886" class="LineNr">12886 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12887" class="LineNr">12887 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L12888" class="LineNr">12888 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L12889" class="LineNr">12889 </span> 68/push 0/imm32 +<span id="L12890" class="LineNr">12890 </span> 68/push 0/imm32 +<span id="L12891" class="LineNr">12891 </span> 89/<- %edx 4/r32/esp +<span id="L12892" class="LineNr">12892 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L12893" class="LineNr">12893 </span> <span class="subxComment">#</span> +<span id="L12894" class="LineNr">12894 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12895" class="LineNr">12895 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr stream int)\n"</span>) +<span id="L12896" class="LineNr">12896 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: (addr int) <- copy 0\n"</span>) +<span id="L12897" class="LineNr">12897 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" b <- <a href='309stream.subx.html#L107'>read-from-stream</a> a, b\n"</span>) +<span id="L12898" class="LineNr">12898 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12899" class="LineNr">12899 </span> <span class="subxComment"># convert</span> +<span id="L12900" class="LineNr">12900 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12901" class="LineNr">12901 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12902" class="LineNr">12902 </span> <span class="subxComment"># restore ed</span> +<span id="L12903" class="LineNr">12903 </span> 89/<- %edx 4/r32/esp +<span id="L12904" class="LineNr">12904 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12905" class="LineNr">12905 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12906" class="Folded">12906 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12912" class="LineNr">12912 </span> <span class="subxComment"># check output</span> +<span id="L12913" class="LineNr">12913 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12877'>test-read-from-stream-with-output</a>: output should be empty"</span>) +<span id="L12914" class="LineNr">12914 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L107'>read-from-stream</a>: unexpected output"</span> <span class="Constant">"F - <a href='mu.subx.html#L12877'>test-read-from-stream-with-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12915" class="LineNr">12915 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12916" class="LineNr">12916 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12877'>test-read-from-stream-with-output</a>: exit status"</span>) +<span id="L12917" class="LineNr">12917 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12918" class="LineNr">12918 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12919" class="LineNr">12919 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12920" class="LineNr">12920 </span> 5d/pop-to-ebp +<span id="L12921" class="LineNr">12921 </span> c3/return +<span id="L12922" class="LineNr">12922 </span> +<span id="L12923" class="LineNr">12923 </span><span class="subxTest">test-convert-write-to-stream</span>: +<span id="L12924" class="LineNr">12924 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12925" class="LineNr">12925 </span> 55/push-ebp +<span id="L12926" class="LineNr">12926 </span> 89/<- %ebp 4/r32/esp +<span id="L12927" class="LineNr">12927 </span> <span class="subxComment"># setup</span> +<span id="L12928" class="LineNr">12928 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12929" class="LineNr">12929 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12930" class="LineNr">12930 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12931" class="LineNr">12931 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12932" class="LineNr">12932 </span> <span class="subxComment">#</span> +<span id="L12933" class="LineNr">12933 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12934" class="LineNr">12934 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var s/esi: (addr stream int) <- copy 0\n"</span>) +<span id="L12935" class="LineNr">12935 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/ecx: (addr int) <- copy 0\n"</span>) +<span id="L12936" class="LineNr">12936 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L54'>write-to-stream</a> s, o\n"</span>) +<span id="L12937" class="LineNr">12937 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12938" class="LineNr">12938 </span> <span class="subxComment"># convert</span> +<span id="L12939" class="LineNr">12939 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L12940" class="LineNr">12940 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12941" class="LineNr">12941 </span> <span class="subxComment"># restore ed</span> +<span id="L12942" class="LineNr">12942 </span> 89/<- %edx 4/r32/esp +<span id="L12943" class="LineNr">12943 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12944" class="LineNr">12944 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12945" class="Folded">12945 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12951" class="LineNr">12951 </span> <span class="subxComment"># check output</span> +<span id="L12952" class="LineNr">12952 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12923'>test-convert-write-to-stream</a>/0"</span>) +<span id="L12953" class="LineNr">12953 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-write-to-stream/1"</span>) +<span id="L12954" class="LineNr">12954 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12923'>test-convert-write-to-stream</a>/2"</span>) +<span id="L12955" class="LineNr">12955 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12923'>test-convert-write-to-stream</a>/3"</span>) +<span id="L12956" class="LineNr">12956 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L12923'>test-convert-write-to-stream</a>/4"</span>) +<span id="L12957" class="LineNr">12957 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12923'>test-convert-write-to-stream</a>/5"</span>) +<span id="L12958" class="LineNr">12958 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L12923'>test-convert-write-to-stream</a>/6"</span>) +<span id="L12959" class="LineNr">12959 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" be/copy-to-esi 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L12923'>test-convert-write-to-stream</a>/7"</span>) +<span id="L12960" class="LineNr">12960 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L12923'>test-convert-write-to-stream</a>/8"</span>) +<span id="L12961" class="LineNr">12961 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L12923'>test-convert-write-to-stream</a>/9"</span>) +<span id="L12962" class="LineNr">12962 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='309stream.subx.html#L54'>write-to-stream</a> %esi %ecx 0x00000004)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12923'>test-convert-write-to-stream</a>/10"</span>) +<span id="L12963" class="LineNr">12963 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L12923'>test-convert-write-to-stream</a>/11"</span>) +<span id="L12964" class="LineNr">12964 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L12923'>test-convert-write-to-stream</a>/12"</span>) +<span id="L12965" class="LineNr">12965 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L12923'>test-convert-write-to-stream</a>/13"</span>) +<span id="L12966" class="LineNr">12966 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12923'>test-convert-write-to-stream</a>/14"</span>) +<span id="L12967" class="LineNr">12967 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-write-to-stream/15"</span>) +<span id="L12968" class="LineNr">12968 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12923'>test-convert-write-to-stream</a>/16"</span>) +<span id="L12969" class="LineNr">12969 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12923'>test-convert-write-to-stream</a>/17"</span>) +<span id="L12970" class="LineNr">12970 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L12923'>test-convert-write-to-stream</a>/18"</span>) +<span id="L12971" class="LineNr">12971 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12972" class="LineNr">12972 </span> 89/<- %esp 5/r32/ebp +<span id="L12973" class="LineNr">12973 </span> 5d/pop-to-ebp +<span id="L12974" class="LineNr">12974 </span> c3/return +<span id="L12975" class="LineNr">12975 </span> +<span id="L12976" class="LineNr">12976 </span><span class="subxTest">test-convert-write-to-stream-with-correct-payload-size</span>: +<span id="L12977" class="LineNr">12977 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12978" class="LineNr">12978 </span> 55/push-ebp +<span id="L12979" class="LineNr">12979 </span> 89/<- %ebp 4/r32/esp +<span id="L12980" class="LineNr">12980 </span> <span class="subxComment"># setup</span> +<span id="L12981" class="LineNr">12981 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12982" class="LineNr">12982 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12983" class="LineNr">12983 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12984" class="LineNr">12984 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12985" class="LineNr">12985 </span> <span class="subxComment">#</span> +<span id="L12986" class="LineNr">12986 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12987" class="LineNr">12987 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var s/esi: (addr stream handle int) <- copy 0\n"</span>) +<span id="L12988" class="LineNr">12988 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/ecx: (addr handle int) <- copy 0\n"</span>) +<span id="L12989" class="LineNr">12989 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L54'>write-to-stream</a> s, o\n"</span>) +<span id="L12990" class="LineNr">12990 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12991" class="LineNr">12991 </span> <span class="subxComment"># convert</span> +<span id="L12992" class="LineNr">12992 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L12993" class="LineNr">12993 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12994" class="LineNr">12994 </span> <span class="subxComment"># restore ed</span> +<span id="L12995" class="LineNr">12995 </span> 89/<- %edx 4/r32/esp +<span id="L12996" class="LineNr">12996 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12997" class="LineNr">12997 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12998" class="Folded">12998 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13004" class="LineNr">13004 </span> <span class="subxComment"># check output</span> +<span id="L13005" class="LineNr">13005 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12976'>test-convert-write-to-stream-with-correct-payload-size</a>/0"</span>) +<span id="L13006" class="LineNr">13006 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-write-to-stream-with-correct-payload-size/1"</span>) +<span id="L13007" class="LineNr">13007 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12976'>test-convert-write-to-stream-with-correct-payload-size</a>/2"</span>) +<span id="L13008" class="LineNr">13008 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12976'>test-convert-write-to-stream-with-correct-payload-size</a>/3"</span>) +<span id="L13009" class="LineNr">13009 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L12976'>test-convert-write-to-stream-with-correct-payload-size</a>/4"</span>) +<span id="L13010" class="LineNr">13010 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12976'>test-convert-write-to-stream-with-correct-payload-size</a>/5"</span>) +<span id="L13011" class="LineNr">13011 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L12976'>test-convert-write-to-stream-with-correct-payload-size</a>/6"</span>) +<span id="L13012" class="LineNr">13012 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" be/copy-to-esi 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L12976'>test-convert-write-to-stream-with-correct-payload-size</a>/7"</span>) +<span id="L13013" class="LineNr">13013 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L12976'>test-convert-write-to-stream-with-correct-payload-size</a>/8"</span>) +<span id="L13014" class="LineNr">13014 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L12976'>test-convert-write-to-stream-with-correct-payload-size</a>/9"</span>) +<span id="L13015" class="LineNr">13015 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='309stream.subx.html#L54'>write-to-stream</a> %esi %ecx 0x00000008)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12976'>test-convert-write-to-stream-with-correct-payload-size</a>/10"</span>) +<span id="L13016" class="LineNr">13016 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L12976'>test-convert-write-to-stream-with-correct-payload-size</a>/11"</span>) +<span id="L13017" class="LineNr">13017 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L12976'>test-convert-write-to-stream-with-correct-payload-size</a>/12"</span>) +<span id="L13018" class="LineNr">13018 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L12976'>test-convert-write-to-stream-with-correct-payload-size</a>/13"</span>) +<span id="L13019" class="LineNr">13019 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12976'>test-convert-write-to-stream-with-correct-payload-size</a>/14"</span>) +<span id="L13020" class="LineNr">13020 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-write-to-stream-with-correct-payload-size/15"</span>) +<span id="L13021" class="LineNr">13021 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12976'>test-convert-write-to-stream-with-correct-payload-size</a>/16"</span>) +<span id="L13022" class="LineNr">13022 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12976'>test-convert-write-to-stream-with-correct-payload-size</a>/17"</span>) +<span id="L13023" class="LineNr">13023 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L12976'>test-convert-write-to-stream-with-correct-payload-size</a>/18"</span>) +<span id="L13024" class="LineNr">13024 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13025" class="LineNr">13025 </span> 89/<- %esp 5/r32/ebp +<span id="L13026" class="LineNr">13026 </span> 5d/pop-to-ebp +<span id="L13027" class="LineNr">13027 </span> c3/return +<span id="L13028" class="LineNr">13028 </span> +<span id="L13029" class="LineNr">13029 </span><span class="subxTest">test-write-to-stream-with-non-stream-atom-base-type</span>: +<span id="L13030" class="LineNr">13030 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13031" class="LineNr">13031 </span> 55/push-ebp +<span id="L13032" class="LineNr">13032 </span> 89/<- %ebp 4/r32/esp +<span id="L13033" class="LineNr">13033 </span> <span class="subxComment"># setup</span> +<span id="L13034" class="LineNr">13034 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13035" class="LineNr">13035 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13036" class="LineNr">13036 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13037" class="LineNr">13037 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13038" class="LineNr">13038 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13039" class="LineNr">13039 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13040" class="LineNr">13040 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13041" class="LineNr">13041 </span> 68/push 0/imm32 +<span id="L13042" class="LineNr">13042 </span> 68/push 0/imm32 +<span id="L13043" class="LineNr">13043 </span> 89/<- %edx 4/r32/esp +<span id="L13044" class="LineNr">13044 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13045" class="LineNr">13045 </span> <span class="subxComment">#</span> +<span id="L13046" class="LineNr">13046 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13047" class="LineNr">13047 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) +<span id="L13048" class="LineNr">13048 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L54'>write-to-stream</a> a, 0\n"</span>) +<span id="L13049" class="LineNr">13049 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13050" class="LineNr">13050 </span> <span class="subxComment"># convert</span> +<span id="L13051" class="LineNr">13051 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13052" class="LineNr">13052 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13053" class="LineNr">13053 </span> <span class="subxComment"># restore ed</span> +<span id="L13054" class="LineNr">13054 </span> 89/<- %edx 4/r32/esp +<span id="L13055" class="LineNr">13055 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13056" class="LineNr">13056 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13057" class="Folded">13057 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13063" class="LineNr">13063 </span> <span class="subxComment"># check output</span> +<span id="L13064" class="LineNr">13064 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13029'>test-write-to-stream-with-non-stream-atom-base-type</a>: output should be empty"</span>) +<span id="L13065" class="LineNr">13065 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L54'>write-to-stream</a>: var 'a' must be an addr to a stream"</span> <span class="Constant">"F - <a href='mu.subx.html#L13029'>test-write-to-stream-with-non-stream-atom-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13066" class="LineNr">13066 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13067" class="LineNr">13067 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13029'>test-write-to-stream-with-non-stream-atom-base-type</a>: exit status"</span>) +<span id="L13068" class="LineNr">13068 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13069" class="LineNr">13069 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13070" class="LineNr">13070 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13071" class="LineNr">13071 </span> 5d/pop-to-ebp +<span id="L13072" class="LineNr">13072 </span> c3/return +<span id="L13073" class="LineNr">13073 </span> +<span id="L13074" class="LineNr">13074 </span><span class="subxTest">test-write-to-stream-with-non-stream-compound-base-type</span>: +<span id="L13075" class="LineNr">13075 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13076" class="LineNr">13076 </span> 55/push-ebp +<span id="L13077" class="LineNr">13077 </span> 89/<- %ebp 4/r32/esp +<span id="L13078" class="LineNr">13078 </span> <span class="subxComment"># setup</span> +<span id="L13079" class="LineNr">13079 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13080" class="LineNr">13080 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13081" class="LineNr">13081 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13082" class="LineNr">13082 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13083" class="LineNr">13083 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13084" class="LineNr">13084 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13085" class="LineNr">13085 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13086" class="LineNr">13086 </span> 68/push 0/imm32 +<span id="L13087" class="LineNr">13087 </span> 68/push 0/imm32 +<span id="L13088" class="LineNr">13088 </span> 89/<- %edx 4/r32/esp +<span id="L13089" class="LineNr">13089 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13090" class="LineNr">13090 </span> <span class="subxComment">#</span> +<span id="L13091" class="LineNr">13091 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13092" class="LineNr">13092 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (handle int)\n"</span>) +<span id="L13093" class="LineNr">13093 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L54'>write-to-stream</a> a, 0\n"</span>) +<span id="L13094" class="LineNr">13094 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13095" class="LineNr">13095 </span> <span class="subxComment"># convert</span> +<span id="L13096" class="LineNr">13096 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13097" class="LineNr">13097 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13098" class="LineNr">13098 </span> <span class="subxComment"># restore ed</span> +<span id="L13099" class="LineNr">13099 </span> 89/<- %edx 4/r32/esp +<span id="L13100" class="LineNr">13100 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13101" class="LineNr">13101 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13102" class="Folded">13102 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13108" class="LineNr">13108 </span> <span class="subxComment"># check output</span> +<span id="L13109" class="LineNr">13109 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13074'>test-write-to-stream-with-non-stream-compound-base-type</a>: output should be empty"</span>) +<span id="L13110" class="LineNr">13110 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L54'>write-to-stream</a>: var 'a' must be an addr to a stream"</span> <span class="Constant">"F - <a href='mu.subx.html#L13074'>test-write-to-stream-with-non-stream-compound-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13111" class="LineNr">13111 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13112" class="LineNr">13112 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13074'>test-write-to-stream-with-non-stream-compound-base-type</a>: exit status"</span>) +<span id="L13113" class="LineNr">13113 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13114" class="LineNr">13114 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13115" class="LineNr">13115 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13116" class="LineNr">13116 </span> 5d/pop-to-ebp +<span id="L13117" class="LineNr">13117 </span> c3/return +<span id="L13118" class="LineNr">13118 </span> +<span id="L13119" class="LineNr">13119 </span><span class="subxTest">test-write-to-stream-with-non-stream-compound-base-type-2</span>: +<span id="L13120" class="LineNr">13120 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13121" class="LineNr">13121 </span> 55/push-ebp +<span id="L13122" class="LineNr">13122 </span> 89/<- %ebp 4/r32/esp +<span id="L13123" class="LineNr">13123 </span> <span class="subxComment"># setup</span> +<span id="L13124" class="LineNr">13124 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13125" class="LineNr">13125 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13126" class="LineNr">13126 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13127" class="LineNr">13127 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13128" class="LineNr">13128 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13129" class="LineNr">13129 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13130" class="LineNr">13130 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13131" class="LineNr">13131 </span> 68/push 0/imm32 +<span id="L13132" class="LineNr">13132 </span> 68/push 0/imm32 +<span id="L13133" class="LineNr">13133 </span> 89/<- %edx 4/r32/esp +<span id="L13134" class="LineNr">13134 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13135" class="LineNr">13135 </span> <span class="subxComment">#</span> +<span id="L13136" class="LineNr">13136 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13137" class="LineNr">13137 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr int)\n"</span>) +<span id="L13138" class="LineNr">13138 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L54'>write-to-stream</a> a, 0\n"</span>) +<span id="L13139" class="LineNr">13139 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13140" class="LineNr">13140 </span> <span class="subxComment"># convert</span> +<span id="L13141" class="LineNr">13141 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13142" class="LineNr">13142 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13143" class="LineNr">13143 </span> <span class="subxComment"># restore ed</span> +<span id="L13144" class="LineNr">13144 </span> 89/<- %edx 4/r32/esp +<span id="L13145" class="LineNr">13145 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13146" class="LineNr">13146 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13147" class="Folded">13147 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13153" class="LineNr">13153 </span> <span class="subxComment"># check output</span> +<span id="L13154" class="LineNr">13154 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13119'>test-write-to-stream-with-non-stream-compound-base-type-2</a>: output should be empty"</span>) +<span id="L13155" class="LineNr">13155 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L54'>write-to-stream</a>: var 'a' must be an addr to a stream"</span> <span class="Constant">"F - <a href='mu.subx.html#L13119'>test-write-to-stream-with-non-stream-compound-base-type-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13156" class="LineNr">13156 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13157" class="LineNr">13157 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13119'>test-write-to-stream-with-non-stream-compound-base-type-2</a>: exit status"</span>) +<span id="L13158" class="LineNr">13158 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13159" class="LineNr">13159 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13160" class="LineNr">13160 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13161" class="LineNr">13161 </span> 5d/pop-to-ebp +<span id="L13162" class="LineNr">13162 </span> c3/return +<span id="L13163" class="LineNr">13163 </span> +<span id="L13164" class="LineNr">13164 </span><span class="subxTest">test-write-to-stream-with-stream-atom-base-type</span>: +<span id="L13165" class="LineNr">13165 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13166" class="LineNr">13166 </span> 55/push-ebp +<span id="L13167" class="LineNr">13167 </span> 89/<- %ebp 4/r32/esp +<span id="L13168" class="LineNr">13168 </span> <span class="subxComment"># setup</span> +<span id="L13169" class="LineNr">13169 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13170" class="LineNr">13170 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13171" class="LineNr">13171 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13172" class="LineNr">13172 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13173" class="LineNr">13173 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13174" class="LineNr">13174 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13175" class="LineNr">13175 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13176" class="LineNr">13176 </span> 68/push 0/imm32 +<span id="L13177" class="LineNr">13177 </span> 68/push 0/imm32 +<span id="L13178" class="LineNr">13178 </span> 89/<- %edx 4/r32/esp +<span id="L13179" class="LineNr">13179 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13180" class="LineNr">13180 </span> <span class="subxComment">#</span> +<span id="L13181" class="LineNr">13181 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13182" class="LineNr">13182 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: stream\n"</span>) +<span id="L13183" class="LineNr">13183 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L54'>write-to-stream</a> a, 0\n"</span>) +<span id="L13184" class="LineNr">13184 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13185" class="LineNr">13185 </span> <span class="subxComment"># convert</span> +<span id="L13186" class="LineNr">13186 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13187" class="LineNr">13187 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13188" class="LineNr">13188 </span> <span class="subxComment"># restore ed</span> +<span id="L13189" class="LineNr">13189 </span> 89/<- %edx 4/r32/esp +<span id="L13190" class="LineNr">13190 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13191" class="LineNr">13191 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13192" class="Folded">13192 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13198" class="LineNr">13198 </span> <span class="subxComment"># check output</span> +<span id="L13199" class="LineNr">13199 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13164'>test-write-to-stream-with-stream-atom-base-type</a>: output should be empty"</span>) +<span id="L13200" class="LineNr">13200 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L54'>write-to-stream</a>: var 'a' must be an addr to a stream"</span> <span class="Constant">"F - <a href='mu.subx.html#L13164'>test-write-to-stream-with-stream-atom-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13201" class="LineNr">13201 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13202" class="LineNr">13202 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13164'>test-write-to-stream-with-stream-atom-base-type</a>: exit status"</span>) +<span id="L13203" class="LineNr">13203 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13204" class="LineNr">13204 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13205" class="LineNr">13205 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13206" class="LineNr">13206 </span> 5d/pop-to-ebp +<span id="L13207" class="LineNr">13207 </span> c3/return +<span id="L13208" class="LineNr">13208 </span> +<span id="L13209" class="LineNr">13209 </span><span class="subxTest">test-write-to-stream-with-wrong-index-type</span>: +<span id="L13210" class="LineNr">13210 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13211" class="LineNr">13211 </span> 55/push-ebp +<span id="L13212" class="LineNr">13212 </span> 89/<- %ebp 4/r32/esp +<span id="L13213" class="LineNr">13213 </span> <span class="subxComment"># setup</span> +<span id="L13214" class="LineNr">13214 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13215" class="LineNr">13215 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13216" class="LineNr">13216 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13217" class="LineNr">13217 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13218" class="LineNr">13218 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13219" class="LineNr">13219 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13220" class="LineNr">13220 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13221" class="LineNr">13221 </span> 68/push 0/imm32 +<span id="L13222" class="LineNr">13222 </span> 68/push 0/imm32 +<span id="L13223" class="LineNr">13223 </span> 89/<- %edx 4/r32/esp +<span id="L13224" class="LineNr">13224 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13225" class="LineNr">13225 </span> <span class="subxComment">#</span> +<span id="L13226" class="LineNr">13226 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13227" class="LineNr">13227 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr stream int) <- copy 0\n"</span>) +<span id="L13228" class="LineNr">13228 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: boolean\n"</span>) +<span id="L13229" class="LineNr">13229 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L54'>write-to-stream</a> a, b\n"</span>) +<span id="L13230" class="LineNr">13230 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13231" class="LineNr">13231 </span> <span class="subxComment"># convert</span> +<span id="L13232" class="LineNr">13232 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13233" class="LineNr">13233 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13234" class="LineNr">13234 </span> <span class="subxComment"># restore ed</span> +<span id="L13235" class="LineNr">13235 </span> 89/<- %edx 4/r32/esp +<span id="L13236" class="LineNr">13236 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13237" class="LineNr">13237 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13238" class="Folded">13238 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13244" class="LineNr">13244 </span> <span class="subxComment"># check output</span> +<span id="L13245" class="LineNr">13245 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13209'>test-write-to-stream-with-wrong-index-type</a>: output should be empty"</span>) +<span id="L13246" class="LineNr">13246 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L54'>write-to-stream</a>: target 'b' must be an addr"</span> <span class="Constant">"F - <a href='mu.subx.html#L13209'>test-write-to-stream-with-wrong-index-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13247" class="LineNr">13247 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13248" class="LineNr">13248 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13209'>test-write-to-stream-with-wrong-index-type</a>: exit status"</span>) +<span id="L13249" class="LineNr">13249 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13250" class="LineNr">13250 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13251" class="LineNr">13251 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13252" class="LineNr">13252 </span> 5d/pop-to-ebp +<span id="L13253" class="LineNr">13253 </span> c3/return +<span id="L13254" class="LineNr">13254 </span> +<span id="L13255" class="LineNr">13255 </span><span class="subxTest">test-write-to-stream-with-no-inouts</span>: +<span id="L13256" class="LineNr">13256 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13257" class="LineNr">13257 </span> 55/push-ebp +<span id="L13258" class="LineNr">13258 </span> 89/<- %ebp 4/r32/esp +<span id="L13259" class="LineNr">13259 </span> <span class="subxComment"># setup</span> +<span id="L13260" class="LineNr">13260 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13261" class="LineNr">13261 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13262" class="LineNr">13262 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13263" class="LineNr">13263 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13264" class="LineNr">13264 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13265" class="LineNr">13265 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13266" class="LineNr">13266 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13267" class="LineNr">13267 </span> 68/push 0/imm32 +<span id="L13268" class="LineNr">13268 </span> 68/push 0/imm32 +<span id="L13269" class="LineNr">13269 </span> 89/<- %edx 4/r32/esp +<span id="L13270" class="LineNr">13270 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13271" class="LineNr">13271 </span> <span class="subxComment">#</span> +<span id="L13272" class="LineNr">13272 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13273" class="LineNr">13273 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" write-to-stream\n"</span>) +<span id="L13274" class="LineNr">13274 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13275" class="LineNr">13275 </span> <span class="subxComment"># convert</span> +<span id="L13276" class="LineNr">13276 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13277" class="LineNr">13277 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13278" class="LineNr">13278 </span> <span class="subxComment"># restore ed</span> +<span id="L13279" class="LineNr">13279 </span> 89/<- %edx 4/r32/esp +<span id="L13280" class="LineNr">13280 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13281" class="LineNr">13281 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13282" class="Folded">13282 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13288" class="LineNr">13288 </span> <span class="subxComment"># check output</span> +<span id="L13289" class="LineNr">13289 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13255'>test-write-to-stream-with-no-inouts</a>: output should be empty"</span>) +<span id="L13290" class="LineNr">13290 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L54'>write-to-stream</a>: too few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L13255'>test-write-to-stream-with-no-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13291" class="LineNr">13291 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13292" class="LineNr">13292 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13255'>test-write-to-stream-with-no-inouts</a>: exit status"</span>) +<span id="L13293" class="LineNr">13293 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13294" class="LineNr">13294 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13295" class="LineNr">13295 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13296" class="LineNr">13296 </span> 5d/pop-to-ebp +<span id="L13297" class="LineNr">13297 </span> c3/return +<span id="L13298" class="LineNr">13298 </span> +<span id="L13299" class="LineNr">13299 </span><span class="subxTest">test-write-to-stream-with-too-few-inouts</span>: +<span id="L13300" class="LineNr">13300 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13301" class="LineNr">13301 </span> 55/push-ebp +<span id="L13302" class="LineNr">13302 </span> 89/<- %ebp 4/r32/esp +<span id="L13303" class="LineNr">13303 </span> <span class="subxComment"># setup</span> +<span id="L13304" class="LineNr">13304 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13305" class="LineNr">13305 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13306" class="LineNr">13306 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13307" class="LineNr">13307 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13308" class="LineNr">13308 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13309" class="LineNr">13309 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13310" class="LineNr">13310 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13311" class="LineNr">13311 </span> 68/push 0/imm32 +<span id="L13312" class="LineNr">13312 </span> 68/push 0/imm32 +<span id="L13313" class="LineNr">13313 </span> 89/<- %edx 4/r32/esp +<span id="L13314" class="LineNr">13314 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13315" class="LineNr">13315 </span> <span class="subxComment">#</span> +<span id="L13316" class="LineNr">13316 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13317" class="LineNr">13317 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr stream int)\n"</span>) +<span id="L13318" class="LineNr">13318 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L54'>write-to-stream</a> a\n"</span>) +<span id="L13319" class="LineNr">13319 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13320" class="LineNr">13320 </span> <span class="subxComment"># convert</span> +<span id="L13321" class="LineNr">13321 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13322" class="LineNr">13322 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13323" class="LineNr">13323 </span> <span class="subxComment"># restore ed</span> +<span id="L13324" class="LineNr">13324 </span> 89/<- %edx 4/r32/esp +<span id="L13325" class="LineNr">13325 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13326" class="LineNr">13326 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13327" class="Folded">13327 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13333" class="LineNr">13333 </span> <span class="subxComment"># check output</span> +<span id="L13334" class="LineNr">13334 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13299'>test-write-to-stream-with-too-few-inouts</a>: output should be empty"</span>) +<span id="L13335" class="LineNr">13335 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L54'>write-to-stream</a>: too few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L13299'>test-write-to-stream-with-too-few-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13336" class="LineNr">13336 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13337" class="LineNr">13337 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13299'>test-write-to-stream-with-too-few-inouts</a>: exit status"</span>) +<span id="L13338" class="LineNr">13338 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13339" class="LineNr">13339 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13340" class="LineNr">13340 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13341" class="LineNr">13341 </span> 5d/pop-to-ebp +<span id="L13342" class="LineNr">13342 </span> c3/return +<span id="L13343" class="LineNr">13343 </span> +<span id="L13344" class="LineNr">13344 </span><span class="subxTest">test-write-to-stream-with-too-many-inouts</span>: +<span id="L13345" class="LineNr">13345 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13346" class="LineNr">13346 </span> 55/push-ebp +<span id="L13347" class="LineNr">13347 </span> 89/<- %ebp 4/r32/esp +<span id="L13348" class="LineNr">13348 </span> <span class="subxComment"># setup</span> +<span id="L13349" class="LineNr">13349 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13350" class="LineNr">13350 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13351" class="LineNr">13351 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13352" class="LineNr">13352 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13353" class="LineNr">13353 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13354" class="LineNr">13354 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13355" class="LineNr">13355 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13356" class="LineNr">13356 </span> 68/push 0/imm32 +<span id="L13357" class="LineNr">13357 </span> 68/push 0/imm32 +<span id="L13358" class="LineNr">13358 </span> 89/<- %edx 4/r32/esp +<span id="L13359" class="LineNr">13359 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13360" class="LineNr">13360 </span> <span class="subxComment">#</span> +<span id="L13361" class="LineNr">13361 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13362" class="LineNr">13362 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr stream int)\n"</span>) +<span id="L13363" class="LineNr">13363 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: (addr int)\n"</span>) +<span id="L13364" class="LineNr">13364 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L54'>write-to-stream</a> a, b, 0\n"</span>) +<span id="L13365" class="LineNr">13365 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13366" class="LineNr">13366 </span> <span class="subxComment"># convert</span> +<span id="L13367" class="LineNr">13367 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13368" class="LineNr">13368 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13369" class="LineNr">13369 </span> <span class="subxComment"># restore ed</span> +<span id="L13370" class="LineNr">13370 </span> 89/<- %edx 4/r32/esp +<span id="L13371" class="LineNr">13371 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13372" class="LineNr">13372 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13373" class="Folded">13373 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13379" class="LineNr">13379 </span> <span class="subxComment"># check output</span> +<span id="L13380" class="LineNr">13380 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13344'>test-write-to-stream-with-too-many-inouts</a>: output should be empty"</span>) +<span id="L13381" class="LineNr">13381 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L54'>write-to-stream</a>: too many inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L13344'>test-write-to-stream-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13382" class="LineNr">13382 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13383" class="LineNr">13383 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13344'>test-write-to-stream-with-too-many-inouts</a>: exit status"</span>) +<span id="L13384" class="LineNr">13384 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13385" class="LineNr">13385 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13386" class="LineNr">13386 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13387" class="LineNr">13387 </span> 5d/pop-to-ebp +<span id="L13388" class="LineNr">13388 </span> c3/return +<span id="L13389" class="LineNr">13389 </span> +<span id="L13390" class="LineNr">13390 </span><span class="subxTest">test-write-to-stream-with-output</span>: +<span id="L13391" class="LineNr">13391 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13392" class="LineNr">13392 </span> 55/push-ebp +<span id="L13393" class="LineNr">13393 </span> 89/<- %ebp 4/r32/esp +<span id="L13394" class="LineNr">13394 </span> <span class="subxComment"># setup</span> +<span id="L13395" class="LineNr">13395 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13396" class="LineNr">13396 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13397" class="LineNr">13397 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13398" class="LineNr">13398 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13399" class="LineNr">13399 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13400" class="LineNr">13400 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13401" class="LineNr">13401 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13402" class="LineNr">13402 </span> 68/push 0/imm32 +<span id="L13403" class="LineNr">13403 </span> 68/push 0/imm32 +<span id="L13404" class="LineNr">13404 </span> 89/<- %edx 4/r32/esp +<span id="L13405" class="LineNr">13405 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13406" class="LineNr">13406 </span> <span class="subxComment">#</span> +<span id="L13407" class="LineNr">13407 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13408" class="LineNr">13408 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr stream int)\n"</span>) +<span id="L13409" class="LineNr">13409 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: (addr int) <- copy 0\n"</span>) +<span id="L13410" class="LineNr">13410 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" b <- <a href='309stream.subx.html#L54'>write-to-stream</a> a, b\n"</span>) +<span id="L13411" class="LineNr">13411 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13412" class="LineNr">13412 </span> <span class="subxComment"># convert</span> +<span id="L13413" class="LineNr">13413 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13414" class="LineNr">13414 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13415" class="LineNr">13415 </span> <span class="subxComment"># restore ed</span> +<span id="L13416" class="LineNr">13416 </span> 89/<- %edx 4/r32/esp +<span id="L13417" class="LineNr">13417 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13418" class="LineNr">13418 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13419" class="Folded">13419 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13425" class="LineNr">13425 </span> <span class="subxComment"># check output</span> +<span id="L13426" class="LineNr">13426 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13390'>test-write-to-stream-with-output</a>: output should be empty"</span>) +<span id="L13427" class="LineNr">13427 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L54'>write-to-stream</a>: unexpected output"</span> <span class="Constant">"F - <a href='mu.subx.html#L13390'>test-write-to-stream-with-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13428" class="LineNr">13428 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13429" class="LineNr">13429 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13390'>test-write-to-stream-with-output</a>: exit status"</span>) +<span id="L13430" class="LineNr">13430 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13431" class="LineNr">13431 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13432" class="LineNr">13432 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13433" class="LineNr">13433 </span> 5d/pop-to-ebp +<span id="L13434" class="LineNr">13434 </span> c3/return +<span id="L13435" class="LineNr">13435 </span> +<span id="L13436" class="LineNr">13436 </span><span class="subxTest">test-length-with-non-array-atom-base-type</span>: +<span id="L13437" class="LineNr">13437 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13438" class="LineNr">13438 </span> 55/push-ebp +<span id="L13439" class="LineNr">13439 </span> 89/<- %ebp 4/r32/esp +<span id="L13440" class="LineNr">13440 </span> <span class="subxComment"># setup</span> +<span id="L13441" class="LineNr">13441 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13442" class="LineNr">13442 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13443" class="LineNr">13443 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13444" class="LineNr">13444 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13445" class="LineNr">13445 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13446" class="LineNr">13446 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13447" class="LineNr">13447 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13448" class="LineNr">13448 </span> 68/push 0/imm32 +<span id="L13449" class="LineNr">13449 </span> 68/push 0/imm32 +<span id="L13450" class="LineNr">13450 </span> 89/<- %edx 4/r32/esp +<span id="L13451" class="LineNr">13451 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13452" class="LineNr">13452 </span> <span class="subxComment">#</span> +<span id="L13453" class="LineNr">13453 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13454" class="LineNr">13454 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) +<span id="L13455" class="LineNr">13455 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: int <- length a\n"</span>) +<span id="L13456" class="LineNr">13456 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13457" class="LineNr">13457 </span> <span class="subxComment"># convert</span> +<span id="L13458" class="LineNr">13458 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13459" class="LineNr">13459 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13460" class="LineNr">13460 </span> <span class="subxComment"># restore ed</span> +<span id="L13461" class="LineNr">13461 </span> 89/<- %edx 4/r32/esp +<span id="L13462" class="LineNr">13462 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13463" class="LineNr">13463 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13464" class="Folded">13464 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13470" class="LineNr">13470 </span> <span class="subxComment"># check output</span> +<span id="L13471" class="LineNr">13471 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13436'>test-length-with-non-array-atom-base-type</a>: output should be empty"</span>) +<span id="L13472" class="LineNr">13472 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt length: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L13436'>test-length-with-non-array-atom-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13473" class="LineNr">13473 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13474" class="LineNr">13474 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13436'>test-length-with-non-array-atom-base-type</a>: exit status"</span>) +<span id="L13475" class="LineNr">13475 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13476" class="LineNr">13476 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13477" class="LineNr">13477 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13478" class="LineNr">13478 </span> 5d/pop-to-ebp +<span id="L13479" class="LineNr">13479 </span> c3/return +<span id="L13480" class="LineNr">13480 </span> +<span id="L13481" class="LineNr">13481 </span><span class="subxTest">test-length-with-non-array-compound-base-type</span>: +<span id="L13482" class="LineNr">13482 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13483" class="LineNr">13483 </span> 55/push-ebp +<span id="L13484" class="LineNr">13484 </span> 89/<- %ebp 4/r32/esp +<span id="L13485" class="LineNr">13485 </span> <span class="subxComment"># setup</span> +<span id="L13486" class="LineNr">13486 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13487" class="LineNr">13487 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13488" class="LineNr">13488 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13489" class="LineNr">13489 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13490" class="LineNr">13490 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13491" class="LineNr">13491 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13492" class="LineNr">13492 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13493" class="LineNr">13493 </span> 68/push 0/imm32 +<span id="L13494" class="LineNr">13494 </span> 68/push 0/imm32 +<span id="L13495" class="LineNr">13495 </span> 89/<- %edx 4/r32/esp +<span id="L13496" class="LineNr">13496 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13497" class="LineNr">13497 </span> <span class="subxComment">#</span> +<span id="L13498" class="LineNr">13498 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13499" class="LineNr">13499 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (handle int)\n"</span>) +<span id="L13500" class="LineNr">13500 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- length a, 0\n"</span>) +<span id="L13501" class="LineNr">13501 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13502" class="LineNr">13502 </span> <span class="subxComment"># convert</span> +<span id="L13503" class="LineNr">13503 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13504" class="LineNr">13504 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13505" class="LineNr">13505 </span> <span class="subxComment"># restore ed</span> +<span id="L13506" class="LineNr">13506 </span> 89/<- %edx 4/r32/esp +<span id="L13507" class="LineNr">13507 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13508" class="LineNr">13508 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13509" class="Folded">13509 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13515" class="LineNr">13515 </span> <span class="subxComment"># check output</span> +<span id="L13516" class="LineNr">13516 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13481'>test-length-with-non-array-compound-base-type</a>: output should be empty"</span>) +<span id="L13517" class="LineNr">13517 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt length: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L13481'>test-length-with-non-array-compound-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13518" class="LineNr">13518 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13519" class="LineNr">13519 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13481'>test-length-with-non-array-compound-base-type</a>: exit status"</span>) +<span id="L13520" class="LineNr">13520 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13521" class="LineNr">13521 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13522" class="LineNr">13522 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13523" class="LineNr">13523 </span> 5d/pop-to-ebp +<span id="L13524" class="LineNr">13524 </span> c3/return +<span id="L13525" class="LineNr">13525 </span> +<span id="L13526" class="LineNr">13526 </span><span class="subxTest">test-length-with-non-array-compound-base-type-2</span>: +<span id="L13527" class="LineNr">13527 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13528" class="LineNr">13528 </span> 55/push-ebp +<span id="L13529" class="LineNr">13529 </span> 89/<- %ebp 4/r32/esp +<span id="L13530" class="LineNr">13530 </span> <span class="subxComment"># setup</span> +<span id="L13531" class="LineNr">13531 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13532" class="LineNr">13532 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13533" class="LineNr">13533 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13534" class="LineNr">13534 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13535" class="LineNr">13535 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13536" class="LineNr">13536 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13537" class="LineNr">13537 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13538" class="LineNr">13538 </span> 68/push 0/imm32 +<span id="L13539" class="LineNr">13539 </span> 68/push 0/imm32 +<span id="L13540" class="LineNr">13540 </span> 89/<- %edx 4/r32/esp +<span id="L13541" class="LineNr">13541 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13542" class="LineNr">13542 </span> <span class="subxComment">#</span> +<span id="L13543" class="LineNr">13543 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13544" class="LineNr">13544 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr int)\n"</span>) +<span id="L13545" class="LineNr">13545 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- length a, 0\n"</span>) +<span id="L13546" class="LineNr">13546 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13547" class="LineNr">13547 </span> <span class="subxComment"># convert</span> +<span id="L13548" class="LineNr">13548 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13549" class="LineNr">13549 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13550" class="LineNr">13550 </span> <span class="subxComment"># restore ed</span> +<span id="L13551" class="LineNr">13551 </span> 89/<- %edx 4/r32/esp +<span id="L13552" class="LineNr">13552 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13553" class="LineNr">13553 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13554" class="Folded">13554 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13560" class="LineNr">13560 </span> <span class="subxComment"># check output</span> +<span id="L13561" class="LineNr">13561 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13526'>test-length-with-non-array-compound-base-type-2</a>: output should be empty"</span>) +<span id="L13562" class="LineNr">13562 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt length: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L13526'>test-length-with-non-array-compound-base-type-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13563" class="LineNr">13563 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13564" class="LineNr">13564 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13526'>test-length-with-non-array-compound-base-type-2</a>: exit status"</span>) +<span id="L13565" class="LineNr">13565 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13566" class="LineNr">13566 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13567" class="LineNr">13567 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13568" class="LineNr">13568 </span> 5d/pop-to-ebp +<span id="L13569" class="LineNr">13569 </span> c3/return +<span id="L13570" class="LineNr">13570 </span> +<span id="L13571" class="LineNr">13571 </span><span class="subxTest">test-length-with-array-atom-base-type</span>: +<span id="L13572" class="LineNr">13572 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13573" class="LineNr">13573 </span> 55/push-ebp +<span id="L13574" class="LineNr">13574 </span> 89/<- %ebp 4/r32/esp +<span id="L13575" class="LineNr">13575 </span> <span class="subxComment"># setup</span> +<span id="L13576" class="LineNr">13576 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13577" class="LineNr">13577 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13578" class="LineNr">13578 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13579" class="LineNr">13579 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13580" class="LineNr">13580 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13581" class="LineNr">13581 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13582" class="LineNr">13582 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13583" class="LineNr">13583 </span> 68/push 0/imm32 +<span id="L13584" class="LineNr">13584 </span> 68/push 0/imm32 +<span id="L13585" class="LineNr">13585 </span> 89/<- %edx 4/r32/esp +<span id="L13586" class="LineNr">13586 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13587" class="LineNr">13587 </span> <span class="subxComment">#</span> +<span id="L13588" class="LineNr">13588 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13589" class="LineNr">13589 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: array\n"</span>) +<span id="L13590" class="LineNr">13590 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- length a\n"</span>) +<span id="L13591" class="LineNr">13591 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13592" class="LineNr">13592 </span> <span class="subxComment"># convert</span> +<span id="L13593" class="LineNr">13593 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13594" class="LineNr">13594 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13595" class="LineNr">13595 </span> <span class="subxComment"># restore ed</span> +<span id="L13596" class="LineNr">13596 </span> 89/<- %edx 4/r32/esp +<span id="L13597" class="LineNr">13597 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13598" class="LineNr">13598 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13599" class="Folded">13599 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13605" class="LineNr">13605 </span> <span class="subxComment"># check output</span> +<span id="L13606" class="LineNr">13606 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13571'>test-length-with-array-atom-base-type</a>: output should be empty"</span>) +<span id="L13607" class="LineNr">13607 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt length: array 'a' must specify the type of its elements"</span> <span class="Constant">"F - <a href='mu.subx.html#L13571'>test-length-with-array-atom-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13608" class="LineNr">13608 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13609" class="LineNr">13609 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13571'>test-length-with-array-atom-base-type</a>: exit status"</span>) +<span id="L13610" class="LineNr">13610 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13611" class="LineNr">13611 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13612" class="LineNr">13612 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13613" class="LineNr">13613 </span> 5d/pop-to-ebp +<span id="L13614" class="LineNr">13614 </span> c3/return +<span id="L13615" class="LineNr">13615 </span> +<span id="L13616" class="LineNr">13616 </span><span class="subxTest">test-length-with-addr-base-on-stack</span>: +<span id="L13617" class="LineNr">13617 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13618" class="LineNr">13618 </span> 55/push-ebp +<span id="L13619" class="LineNr">13619 </span> 89/<- %ebp 4/r32/esp +<span id="L13620" class="LineNr">13620 </span> <span class="subxComment"># setup</span> +<span id="L13621" class="LineNr">13621 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13622" class="LineNr">13622 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13623" class="LineNr">13623 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13624" class="LineNr">13624 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13625" class="LineNr">13625 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13626" class="LineNr">13626 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13627" class="LineNr">13627 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13628" class="LineNr">13628 </span> 68/push 0/imm32 +<span id="L13629" class="LineNr">13629 </span> 68/push 0/imm32 +<span id="L13630" class="LineNr">13630 </span> 89/<- %edx 4/r32/esp +<span id="L13631" class="LineNr">13631 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13632" class="LineNr">13632 </span> <span class="subxComment">#</span> +<span id="L13633" class="LineNr">13633 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13634" class="LineNr">13634 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr array int)\n"</span>) +<span id="L13635" class="LineNr">13635 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- length a\n"</span>) +<span id="L13636" class="LineNr">13636 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13637" class="LineNr">13637 </span> <span class="subxComment"># convert</span> +<span id="L13638" class="LineNr">13638 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13639" class="LineNr">13639 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13640" class="LineNr">13640 </span> <span class="subxComment"># restore ed</span> +<span id="L13641" class="LineNr">13641 </span> 89/<- %edx 4/r32/esp +<span id="L13642" class="LineNr">13642 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13643" class="LineNr">13643 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13644" class="Folded">13644 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13650" class="LineNr">13650 </span> <span class="subxComment"># check output</span> +<span id="L13651" class="LineNr">13651 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13616'>test-length-with-addr-base-on-stack</a>: output should be empty"</span>) +<span id="L13652" class="LineNr">13652 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt length: var 'a' is an addr to an array, and so must live in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L13616'>test-length-with-addr-base-on-stack</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13653" class="LineNr">13653 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13654" class="LineNr">13654 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13616'>test-length-with-addr-base-on-stack</a>: exit status"</span>) +<span id="L13655" class="LineNr">13655 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13656" class="LineNr">13656 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13657" class="LineNr">13657 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13658" class="LineNr">13658 </span> 5d/pop-to-ebp +<span id="L13659" class="LineNr">13659 </span> c3/return +<span id="L13660" class="LineNr">13660 </span> +<span id="L13661" class="LineNr">13661 </span><span class="subxTest">test-length-with-wrong-output-type</span>: +<span id="L13662" class="LineNr">13662 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13663" class="LineNr">13663 </span> 55/push-ebp +<span id="L13664" class="LineNr">13664 </span> 89/<- %ebp 4/r32/esp +<span id="L13665" class="LineNr">13665 </span> <span class="subxComment"># setup</span> +<span id="L13666" class="LineNr">13666 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13667" class="LineNr">13667 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13668" class="LineNr">13668 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13669" class="LineNr">13669 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13670" class="LineNr">13670 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13671" class="LineNr">13671 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13672" class="LineNr">13672 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13673" class="LineNr">13673 </span> 68/push 0/imm32 +<span id="L13674" class="LineNr">13674 </span> 68/push 0/imm32 +<span id="L13675" class="LineNr">13675 </span> 89/<- %edx 4/r32/esp +<span id="L13676" class="LineNr">13676 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13677" class="LineNr">13677 </span> <span class="subxComment">#</span> +<span id="L13678" class="LineNr">13678 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13679" class="LineNr">13679 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/ebx: (addr array boolean) <- copy 0\n"</span>) +<span id="L13680" class="LineNr">13680 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/edi: (addr int) <- length a\n"</span>) +<span id="L13681" class="LineNr">13681 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13682" class="LineNr">13682 </span> <span class="subxComment"># convert</span> +<span id="L13683" class="LineNr">13683 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13684" class="LineNr">13684 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13685" class="LineNr">13685 </span> <span class="subxComment"># restore ed</span> +<span id="L13686" class="LineNr">13686 </span> 89/<- %edx 4/r32/esp +<span id="L13687" class="LineNr">13687 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13688" class="LineNr">13688 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13689" class="Folded">13689 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13695" class="LineNr">13695 </span> <span class="subxComment"># check output</span> +<span id="L13696" class="LineNr">13696 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13661'>test-length-with-wrong-output-type</a>: output should be empty"</span>) +<span id="L13697" class="LineNr">13697 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt length: output 'o' does not have the right type"</span> <span class="Constant">"F - <a href='mu.subx.html#L13661'>test-length-with-wrong-output-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13698" class="LineNr">13698 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13699" class="LineNr">13699 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13661'>test-length-with-wrong-output-type</a>: exit status"</span>) +<span id="L13700" class="LineNr">13700 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13701" class="LineNr">13701 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13702" class="LineNr">13702 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13703" class="LineNr">13703 </span> 5d/pop-to-ebp +<span id="L13704" class="LineNr">13704 </span> c3/return +<span id="L13705" class="LineNr">13705 </span> +<span id="L13706" class="LineNr">13706 </span><span class="subxTest">test-length-with-wrong-output-compound-type</span>: +<span id="L13707" class="LineNr">13707 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13708" class="LineNr">13708 </span> 55/push-ebp +<span id="L13709" class="LineNr">13709 </span> 89/<- %ebp 4/r32/esp +<span id="L13710" class="LineNr">13710 </span> <span class="subxComment"># setup</span> +<span id="L13711" class="LineNr">13711 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13712" class="LineNr">13712 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13713" class="LineNr">13713 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13714" class="LineNr">13714 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13715" class="LineNr">13715 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13716" class="LineNr">13716 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13717" class="LineNr">13717 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13718" class="LineNr">13718 </span> 68/push 0/imm32 +<span id="L13719" class="LineNr">13719 </span> 68/push 0/imm32 +<span id="L13720" class="LineNr">13720 </span> 89/<- %edx 4/r32/esp +<span id="L13721" class="LineNr">13721 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13722" class="LineNr">13722 </span> <span class="subxComment">#</span> +<span id="L13723" class="LineNr">13723 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13724" class="LineNr">13724 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/ebx: (addr array handle boolean) <- copy 0\n"</span>) +<span id="L13725" class="LineNr">13725 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/edi: (addr handle int) <- length a\n"</span>) +<span id="L13726" class="LineNr">13726 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13727" class="LineNr">13727 </span> <span class="subxComment"># convert</span> +<span id="L13728" class="LineNr">13728 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13729" class="LineNr">13729 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13730" class="LineNr">13730 </span> <span class="subxComment"># restore ed</span> +<span id="L13731" class="LineNr">13731 </span> 89/<- %edx 4/r32/esp +<span id="L13732" class="LineNr">13732 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13733" class="LineNr">13733 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13734" class="Folded">13734 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13740" class="LineNr">13740 </span> <span class="subxComment"># check output</span> +<span id="L13741" class="LineNr">13741 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13706'>test-length-with-wrong-output-compound-type</a>: output should be empty"</span>) +<span id="L13742" class="LineNr">13742 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt length: output 'o' does not have the right type"</span> <span class="Constant">"F - <a href='mu.subx.html#L13706'>test-length-with-wrong-output-compound-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13743" class="LineNr">13743 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13744" class="LineNr">13744 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13706'>test-length-with-wrong-output-compound-type</a>: exit status"</span>) +<span id="L13745" class="LineNr">13745 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13746" class="LineNr">13746 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13747" class="LineNr">13747 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13748" class="LineNr">13748 </span> 5d/pop-to-ebp +<span id="L13749" class="LineNr">13749 </span> c3/return +<span id="L13750" class="LineNr">13750 </span> +<span id="L13751" class="LineNr">13751 </span><span class="subxTest">test-length-with-no-inouts</span>: +<span id="L13752" class="LineNr">13752 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13753" class="LineNr">13753 </span> 55/push-ebp +<span id="L13754" class="LineNr">13754 </span> 89/<- %ebp 4/r32/esp +<span id="L13755" class="LineNr">13755 </span> <span class="subxComment"># setup</span> +<span id="L13756" class="LineNr">13756 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13757" class="LineNr">13757 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13758" class="LineNr">13758 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13759" class="LineNr">13759 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13760" class="LineNr">13760 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13761" class="LineNr">13761 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13762" class="LineNr">13762 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13763" class="LineNr">13763 </span> 68/push 0/imm32 +<span id="L13764" class="LineNr">13764 </span> 68/push 0/imm32 +<span id="L13765" class="LineNr">13765 </span> 89/<- %edx 4/r32/esp +<span id="L13766" class="LineNr">13766 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13767" class="LineNr">13767 </span> <span class="subxComment">#</span> +<span id="L13768" class="LineNr">13768 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13769" class="LineNr">13769 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: int <- length\n"</span>) +<span id="L13770" class="LineNr">13770 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13771" class="LineNr">13771 </span> <span class="subxComment"># convert</span> +<span id="L13772" class="LineNr">13772 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13773" class="LineNr">13773 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13774" class="LineNr">13774 </span> <span class="subxComment"># restore ed</span> +<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#L425'>_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#L464'>_test-error-buffered-file</a>) +<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#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13751'>test-length-with-no-inouts</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#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt length: too few inouts (1 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L13751'>test-length-with-no-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13787" class="LineNr">13787 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13788" class="LineNr">13788 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13751'>test-length-with-no-inouts</a>: exit status"</span>) +<span id="L13789" class="LineNr">13789 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13790" class="LineNr">13790 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13791" class="LineNr">13791 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13792" class="LineNr">13792 </span> 5d/pop-to-ebp +<span id="L13793" class="LineNr">13793 </span> c3/return +<span id="L13794" class="LineNr">13794 </span> +<span id="L13795" class="LineNr">13795 </span><span class="subxTest">test-length-with-too-many-inouts</span>: +<span id="L13796" class="LineNr">13796 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13797" class="LineNr">13797 </span> 55/push-ebp +<span id="L13798" class="LineNr">13798 </span> 89/<- %ebp 4/r32/esp +<span id="L13799" class="LineNr">13799 </span> <span class="subxComment"># setup</span> +<span id="L13800" class="LineNr">13800 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13801" class="LineNr">13801 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13802" class="LineNr">13802 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13803" class="LineNr">13803 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13804" class="LineNr">13804 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13805" class="LineNr">13805 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13806" class="LineNr">13806 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13807" class="LineNr">13807 </span> 68/push 0/imm32 +<span id="L13808" class="LineNr">13808 </span> 68/push 0/imm32 +<span id="L13809" class="LineNr">13809 </span> 89/<- %edx 4/r32/esp +<span id="L13810" class="LineNr">13810 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13811" class="LineNr">13811 </span> <span class="subxComment">#</span> +<span id="L13812" class="LineNr">13812 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13813" class="LineNr">13813 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) +<span id="L13814" class="LineNr">13814 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: int <- length a, 0, 0\n"</span>) +<span id="L13815" class="LineNr">13815 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13816" class="LineNr">13816 </span> <span class="subxComment"># convert</span> +<span id="L13817" class="LineNr">13817 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13818" class="LineNr">13818 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13819" class="LineNr">13819 </span> <span class="subxComment"># restore ed</span> +<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#L425'>_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#L464'>_test-error-buffered-file</a>) +<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#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13795'>test-length-with-too-many-inouts</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#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt length: too many inouts (1 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L13795'>test-length-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13832" class="LineNr">13832 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13833" class="LineNr">13833 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13795'>test-length-with-too-many-inouts</a>: exit status"</span>) +<span id="L13834" class="LineNr">13834 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13835" class="LineNr">13835 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13836" class="LineNr">13836 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13837" class="LineNr">13837 </span> 5d/pop-to-ebp +<span id="L13838" class="LineNr">13838 </span> c3/return +<span id="L13839" class="LineNr">13839 </span> +<span id="L13840" class="LineNr">13840 </span><span class="subxTest">test-length-with-no-output</span>: +<span id="L13841" class="LineNr">13841 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13842" class="LineNr">13842 </span> 55/push-ebp +<span id="L13843" class="LineNr">13843 </span> 89/<- %ebp 4/r32/esp +<span id="L13844" class="LineNr">13844 </span> <span class="subxComment"># setup</span> +<span id="L13845" class="LineNr">13845 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13846" class="LineNr">13846 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13847" class="LineNr">13847 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13848" class="LineNr">13848 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13849" class="LineNr">13849 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13850" class="LineNr">13850 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13851" class="LineNr">13851 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13852" class="LineNr">13852 </span> 68/push 0/imm32 +<span id="L13853" class="LineNr">13853 </span> 68/push 0/imm32 +<span id="L13854" class="LineNr">13854 </span> 89/<- %edx 4/r32/esp +<span id="L13855" class="LineNr">13855 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13856" class="LineNr">13856 </span> <span class="subxComment">#</span> +<span id="L13857" class="LineNr">13857 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13858" class="LineNr">13858 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) +<span id="L13859" class="LineNr">13859 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" length a\n"</span>) +<span id="L13860" class="LineNr">13860 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13861" class="LineNr">13861 </span> <span class="subxComment"># convert</span> +<span id="L13862" class="LineNr">13862 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13863" class="LineNr">13863 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13864" class="LineNr">13864 </span> <span class="subxComment"># restore ed</span> +<span id="L13865" class="LineNr">13865 </span> 89/<- %edx 4/r32/esp +<span id="L13866" class="LineNr">13866 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13867" class="LineNr">13867 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13868" class="Folded">13868 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13874" class="LineNr">13874 </span> <span class="subxComment"># check output</span> +<span id="L13875" class="LineNr">13875 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13840'>test-length-with-no-output</a>: output should be empty"</span>) +<span id="L13876" class="LineNr">13876 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt length: must have an output"</span> <span class="Constant">"F - <a href='mu.subx.html#L13840'>test-length-with-no-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13877" class="LineNr">13877 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13878" class="LineNr">13878 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13840'>test-length-with-no-output</a>: exit status"</span>) +<span id="L13879" class="LineNr">13879 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13880" class="LineNr">13880 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13881" class="LineNr">13881 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13882" class="LineNr">13882 </span> 5d/pop-to-ebp +<span id="L13883" class="LineNr">13883 </span> c3/return +<span id="L13884" class="LineNr">13884 </span> +<span id="L13885" class="LineNr">13885 </span><span class="subxTest">test-length-with-too-many-outputs</span>: +<span id="L13886" class="LineNr">13886 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13887" class="LineNr">13887 </span> 55/push-ebp +<span id="L13888" class="LineNr">13888 </span> 89/<- %ebp 4/r32/esp +<span id="L13889" class="LineNr">13889 </span> <span class="subxComment"># setup</span> +<span id="L13890" class="LineNr">13890 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13891" class="LineNr">13891 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13892" class="LineNr">13892 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13893" class="LineNr">13893 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13894" class="LineNr">13894 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13895" class="LineNr">13895 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13896" class="LineNr">13896 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13897" class="LineNr">13897 </span> 68/push 0/imm32 +<span id="L13898" class="LineNr">13898 </span> 68/push 0/imm32 +<span id="L13899" class="LineNr">13899 </span> 89/<- %edx 4/r32/esp +<span id="L13900" class="LineNr">13900 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13901" class="LineNr">13901 </span> <span class="subxComment">#</span> +<span id="L13902" class="LineNr">13902 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13903" class="LineNr">13903 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) +<span id="L13904" class="LineNr">13904 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: int <- copy 0\n"</span>) +<span id="L13905" class="LineNr">13905 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: int <- copy 0\n"</span>) +<span id="L13906" class="LineNr">13906 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" b, c <- length a\n"</span>) +<span id="L13907" class="LineNr">13907 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13908" class="LineNr">13908 </span> <span class="subxComment"># convert</span> +<span id="L13909" class="LineNr">13909 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13910" class="LineNr">13910 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13911" class="LineNr">13911 </span> <span class="subxComment"># restore ed</span> +<span id="L13912" class="LineNr">13912 </span> 89/<- %edx 4/r32/esp +<span id="L13913" class="LineNr">13913 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13914" class="LineNr">13914 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13915" class="Folded">13915 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13921" class="LineNr">13921 </span> <span class="subxComment"># check output</span> +<span id="L13922" class="LineNr">13922 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13885'>test-length-with-too-many-outputs</a>: output should be empty"</span>) +<span id="L13923" class="LineNr">13923 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt length: too many outputs (1 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L13885'>test-length-with-too-many-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13924" class="LineNr">13924 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13925" class="LineNr">13925 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13885'>test-length-with-too-many-outputs</a>: exit status"</span>) +<span id="L13926" class="LineNr">13926 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13927" class="LineNr">13927 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13928" class="LineNr">13928 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13929" class="LineNr">13929 </span> 5d/pop-to-ebp +<span id="L13930" class="LineNr">13930 </span> c3/return +<span id="L13931" class="LineNr">13931 </span> +<span id="L13932" class="LineNr">13932 </span><span class="subxTest">test-convert-function-with-return-register-and-local</span>: +<span id="L13933" class="LineNr">13933 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13934" class="LineNr">13934 </span> 55/push-ebp +<span id="L13935" class="LineNr">13935 </span> 89/<- %ebp 4/r32/esp +<span id="L13936" class="LineNr">13936 </span> <span class="subxComment"># setup</span> +<span id="L13937" class="LineNr">13937 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13938" class="LineNr">13938 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13939" class="LineNr">13939 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13940" class="LineNr">13940 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13941" class="LineNr">13941 </span> <span class="subxComment">#</span> +<span id="L13942" class="LineNr">13942 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/eax: int {\n"</span>) +<span id="L13943" class="LineNr">13943 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: int <- copy 3\n"</span>) +<span id="L13944" class="LineNr">13944 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var z/ecx: int <- copy 4\n"</span>) +<span id="L13945" class="LineNr">13945 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return y\n"</span>) +<span id="L13946" class="LineNr">13946 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13947" class="LineNr">13947 </span> <span class="subxComment"># convert</span> +<span id="L13948" class="LineNr">13948 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L13949" class="LineNr">13949 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13950" class="Folded">13950 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13956" class="LineNr">13956 </span> <span class="subxComment"># check output</span> +<span id="L13957" class="LineNr">13957 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L13932'>test-convert-function-with-return-register-and-local</a>/0"</span>) +<span id="L13958" class="LineNr">13958 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-return-register-and-local/1"</span>) +<span id="L13959" class="LineNr">13959 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L13932'>test-convert-function-with-return-register-and-local</a>/2"</span>) +<span id="L13960" class="LineNr">13960 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L13932'>test-convert-function-with-return-register-and-local</a>/3"</span>) +<span id="L13961" class="LineNr">13961 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L13932'>test-convert-function-with-return-register-and-local</a>/4"</span>) +<span id="L13962" class="LineNr">13962 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L13932'>test-convert-function-with-return-register-and-local</a>/5"</span>) +<span id="L13963" class="LineNr">13963 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L13932'>test-convert-function-with-return-register-and-local</a>/6"</span>) +<span id="L13964" class="LineNr">13964 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13932'>test-convert-function-with-return-register-and-local</a>/7"</span>) +<span id="L13965" class="LineNr">13965 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L13932'>test-convert-function-with-return-register-and-local</a>/8"</span>) +<span id="L13966" class="LineNr">13966 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13932'>test-convert-function-with-return-register-and-local</a>/9"</span>) +<span id="L13967" class="LineNr">13967 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> %eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13932'>test-convert-function-with-return-register-and-local</a>/10"</span>) +<span id="L13968" class="LineNr">13968 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L13932'>test-convert-function-with-return-register-and-local</a>/11"</span>) +<span id="L13969" class="LineNr">13969 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13932'>test-convert-function-with-return-register-and-local</a>/12"</span>) +<span id="L13970" class="LineNr">13970 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13932'>test-convert-function-with-return-register-and-local</a>/13"</span>) +<span id="L13971" class="LineNr">13971 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L13932'>test-convert-function-with-return-register-and-local</a>/14"</span>) +<span id="L13972" class="LineNr">13972 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L13932'>test-convert-function-with-return-register-and-local</a>/15"</span>) +<span id="L13973" class="LineNr">13973 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-return-register-and-local/16"</span>) +<span id="L13974" class="LineNr">13974 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L13932'>test-convert-function-with-return-register-and-local</a>/17"</span>) +<span id="L13975" class="LineNr">13975 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L13932'>test-convert-function-with-return-register-and-local</a>/18"</span>) +<span id="L13976" class="LineNr">13976 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L13932'>test-convert-function-with-return-register-and-local</a>/19"</span>) +<span id="L13977" class="LineNr">13977 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13978" class="LineNr">13978 </span> 89/<- %esp 5/r32/ebp +<span id="L13979" class="LineNr">13979 </span> 5d/pop-to-ebp +<span id="L13980" class="LineNr">13980 </span> c3/return +<span id="L13981" class="LineNr">13981 </span> +<span id="L13982" class="LineNr">13982 </span><span class="subxTest">test-convert-function-with-return-register-and-local-2</span>: +<span id="L13983" class="LineNr">13983 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13984" class="LineNr">13984 </span> 55/push-ebp +<span id="L13985" class="LineNr">13985 </span> 89/<- %ebp 4/r32/esp +<span id="L13986" class="LineNr">13986 </span> <span class="subxComment"># setup</span> +<span id="L13987" class="LineNr">13987 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13988" class="LineNr">13988 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13989" class="LineNr">13989 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13990" class="LineNr">13990 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13991" class="LineNr">13991 </span> <span class="subxComment">#</span> +<span id="L13992" class="LineNr">13992 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/eax: int {\n"</span>) +<span id="L13993" class="LineNr">13993 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: int <- copy 3\n"</span>) +<span id="L13994" class="LineNr">13994 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var z/ecx: int <- copy 4\n"</span>) +<span id="L13995" class="LineNr">13995 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return z\n"</span>) +<span id="L13996" class="LineNr">13996 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13997" class="LineNr">13997 </span> <span class="subxComment"># convert</span> +<span id="L13998" class="LineNr">13998 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L13999" class="LineNr">13999 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14000" class="Folded">14000 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14006" class="LineNr">14006 </span> <span class="subxComment"># check output</span> +<span id="L14007" class="LineNr">14007 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L13982'>test-convert-function-with-return-register-and-local-2</a>/0"</span>) +<span id="L14008" class="LineNr">14008 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-return-register-and-local-2/1"</span>) +<span id="L14009" class="LineNr">14009 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L13982'>test-convert-function-with-return-register-and-local-2</a>/2"</span>) +<span id="L14010" class="LineNr">14010 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L13982'>test-convert-function-with-return-register-and-local-2</a>/3"</span>) +<span id="L14011" class="LineNr">14011 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L13982'>test-convert-function-with-return-register-and-local-2</a>/4"</span>) +<span id="L14012" class="LineNr">14012 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L13982'>test-convert-function-with-return-register-and-local-2</a>/5"</span>) +<span id="L14013" class="LineNr">14013 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L13982'>test-convert-function-with-return-register-and-local-2</a>/6"</span>) +<span id="L14014" class="LineNr">14014 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13982'>test-convert-function-with-return-register-and-local-2</a>/7"</span>) +<span id="L14015" class="LineNr">14015 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L13982'>test-convert-function-with-return-register-and-local-2</a>/8"</span>) +<span id="L14016" class="LineNr">14016 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13982'>test-convert-function-with-return-register-and-local-2</a>/9"</span>) +<span id="L14017" class="LineNr">14017 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> %ecx 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13982'>test-convert-function-with-return-register-and-local-2</a>/10"</span>) +<span id="L14018" class="LineNr">14018 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L13982'>test-convert-function-with-return-register-and-local-2</a>/11"</span>) +<span id="L14019" class="LineNr">14019 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13982'>test-convert-function-with-return-register-and-local-2</a>/12"</span>) +<span id="L14020" class="LineNr">14020 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13982'>test-convert-function-with-return-register-and-local-2</a>/13"</span>) +<span id="L14021" class="LineNr">14021 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L13982'>test-convert-function-with-return-register-and-local-2</a>/14"</span>) +<span id="L14022" class="LineNr">14022 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L13982'>test-convert-function-with-return-register-and-local-2</a>/15"</span>) +<span id="L14023" class="LineNr">14023 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-return-register-and-local-2/16"</span>) +<span id="L14024" class="LineNr">14024 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L13982'>test-convert-function-with-return-register-and-local-2</a>/17"</span>) +<span id="L14025" class="LineNr">14025 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L13982'>test-convert-function-with-return-register-and-local-2</a>/18"</span>) +<span id="L14026" class="LineNr">14026 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L13982'>test-convert-function-with-return-register-and-local-2</a>/19"</span>) +<span id="L14027" class="LineNr">14027 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14028" class="LineNr">14028 </span> 89/<- %esp 5/r32/ebp +<span id="L14029" class="LineNr">14029 </span> 5d/pop-to-ebp +<span id="L14030" class="LineNr">14030 </span> c3/return +<span id="L14031" class="LineNr">14031 </span> +<span id="L14032" class="LineNr">14032 </span><span class="subxTest">test-convert-function-with-return-float-register-and-local</span>: +<span id="L14033" class="LineNr">14033 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14034" class="LineNr">14034 </span> 55/push-ebp +<span id="L14035" class="LineNr">14035 </span> 89/<- %ebp 4/r32/esp +<span id="L14036" class="LineNr">14036 </span> <span class="subxComment"># setup</span> +<span id="L14037" class="LineNr">14037 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14038" class="LineNr">14038 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14039" class="LineNr">14039 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14040" class="LineNr">14040 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14041" class="LineNr">14041 </span> <span class="subxComment">#</span> +<span id="L14042" class="LineNr">14042 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/xmm1: float {\n"</span>) +<span id="L14043" class="LineNr">14043 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: int <- copy 3\n"</span>) +<span id="L14044" class="LineNr">14044 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var g/xmm0: float <- convert y\n"</span>) +<span id="L14045" class="LineNr">14045 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var h/xmm1: float <- convert y\n"</span>) +<span id="L14046" class="LineNr">14046 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return g\n"</span>) +<span id="L14047" class="LineNr">14047 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14048" class="LineNr">14048 </span> <span class="subxComment"># convert</span> +<span id="L14049" class="LineNr">14049 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L14050" class="LineNr">14050 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14051" class="Folded">14051 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14057" class="LineNr">14057 </span> <span class="subxComment"># check output</span> +<span id="L14058" class="LineNr">14058 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L14032'>test-convert-function-with-return-float-register-and-local</a>/0"</span>) +<span id="L14059" class="LineNr">14059 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-return-float-register-and-local/1"</span>) +<span id="L14060" class="LineNr">14060 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L14032'>test-convert-function-with-return-float-register-and-local</a>/2"</span>) +<span id="L14061" class="LineNr">14061 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L14032'>test-convert-function-with-return-float-register-and-local</a>/3"</span>) +<span id="L14062" class="LineNr">14062 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L14032'>test-convert-function-with-return-float-register-and-local</a>/4"</span>) +<span id="L14063" class="LineNr">14063 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L14032'>test-convert-function-with-return-float-register-and-local</a>/5"</span>) +<span id="L14064" class="LineNr">14064 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L14032'>test-convert-function-with-return-float-register-and-local</a>/6"</span>) <span class="subxComment"># var y</span> +<span id="L14065" class="LineNr">14065 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14032'>test-convert-function-with-return-float-register-and-local</a>/7"</span>) +<span id="L14066" class="LineNr">14066 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 5/subop/subtract %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14032'>test-convert-function-with-return-float-register-and-local</a>/8"</span>) <span class="subxComment"># var g</span> +<span id="L14067" class="LineNr">14067 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 11/<- *esp 0/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14032'>test-convert-function-with-return-float-register-and-local</a>/9"</span>) +<span id="L14068" class="LineNr">14068 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 2a/convert-to-float %eax 0x00000000/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14032'>test-convert-function-with-return-float-register-and-local</a>/10"</span>) +<span id="L14069" class="LineNr">14069 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 5/subop/subtract %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14032'>test-convert-function-with-return-float-register-and-local</a>/11"</span>) <span class="subxComment"># var h</span> +<span id="L14070" class="LineNr">14070 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 11/<- *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14032'>test-convert-function-with-return-float-register-and-local</a>/12"</span>) +<span id="L14071" class="LineNr">14071 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 2a/convert-to-float %eax 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14032'>test-convert-function-with-return-float-register-and-local</a>/13"</span>) +<span id="L14072" class="LineNr">14072 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 10/-> %xmm0 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14032'>test-convert-function-with-return-float-register-and-local</a>/14"</span>) <span class="subxComment"># return g</span> +<span id="L14073" class="LineNr">14073 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6017'>test-convert-floating-point-dereferenced</a>/15"</span>) <span class="subxComment"># reclaim h</span> +<span id="L14074" class="LineNr">14074 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 10/-> *esp 0/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6017'>test-convert-floating-point-dereferenced</a>/16"</span>) <span class="subxComment"># reclaim g</span> +<span id="L14075" class="LineNr">14075 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6017'>test-convert-floating-point-dereferenced</a>/17"</span>) +<span id="L14076" class="LineNr">14076 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L14032'>test-convert-function-with-return-float-register-and-local</a>/18"</span>) <span class="subxComment"># reclaim y</span> +<span id="L14077" class="LineNr">14077 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14032'>test-convert-function-with-return-float-register-and-local</a>/19"</span>) +<span id="L14078" class="LineNr">14078 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L14032'>test-convert-function-with-return-float-register-and-local</a>/20"</span>) +<span id="L14079" class="LineNr">14079 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L14032'>test-convert-function-with-return-float-register-and-local</a>/21"</span>) +<span id="L14080" class="LineNr">14080 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-return-float-register-and-local/22"</span>) +<span id="L14081" class="LineNr">14081 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L14032'>test-convert-function-with-return-float-register-and-local</a>/23"</span>) +<span id="L14082" class="LineNr">14082 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L14032'>test-convert-function-with-return-float-register-and-local</a>/24"</span>) +<span id="L14083" class="LineNr">14083 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L14032'>test-convert-function-with-return-float-register-and-local</a>/25"</span>) +<span id="L14084" class="LineNr">14084 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14085" class="LineNr">14085 </span> 89/<- %esp 5/r32/ebp +<span id="L14086" class="LineNr">14086 </span> 5d/pop-to-ebp +<span id="L14087" class="LineNr">14087 </span> c3/return +<span id="L14088" class="LineNr">14088 </span> +<span id="L14089" class="LineNr">14089 </span><span class="subxTest">test-convert-function-with-return-and-local-vars</span>: +<span id="L14090" class="LineNr">14090 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14091" class="LineNr">14091 </span> 55/push-ebp +<span id="L14092" class="LineNr">14092 </span> 89/<- %ebp 4/r32/esp +<span id="L14093" class="LineNr">14093 </span> <span class="subxComment"># setup</span> +<span id="L14094" class="LineNr">14094 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14095" class="LineNr">14095 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14096" class="LineNr">14096 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14097" class="LineNr">14097 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14098" class="LineNr">14098 </span> <span class="subxComment">#</span> +<span id="L14099" class="LineNr">14099 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/eax: int {\n"</span>) +<span id="L14100" class="LineNr">14100 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L14101" class="LineNr">14101 </span> (<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="L14102" class="LineNr">14102 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L14103" class="LineNr">14103 </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="L14104" class="LineNr">14104 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return y\n"</span>) +<span id="L14105" class="LineNr">14105 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) +<span id="L14106" class="LineNr">14106 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L14107" class="LineNr">14107 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L14108" class="LineNr">14108 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return 0\n"</span>) +<span id="L14109" class="LineNr">14109 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14110" class="LineNr">14110 </span> <span class="subxComment"># convert</span> +<span id="L14111" class="LineNr">14111 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L14112" class="LineNr">14112 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14113" class="Folded">14113 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14119" class="LineNr">14119 </span> <span class="subxComment"># check output</span> +<span id="L14120" class="LineNr">14120 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L14089'>test-convert-function-with-return-and-local-vars</a>/0"</span>) +<span id="L14121" class="LineNr">14121 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-return-and-local-vars/1"</span>) +<span id="L14122" class="LineNr">14122 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L14089'>test-convert-function-with-return-and-local-vars</a>/2"</span>) +<span id="L14123" class="LineNr">14123 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L14089'>test-convert-function-with-return-and-local-vars</a>/3"</span>) +<span id="L14124" class="LineNr">14124 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L14089'>test-convert-function-with-return-and-local-vars</a>/4"</span>) +<span id="L14125" class="LineNr">14125 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L14089'>test-convert-function-with-return-and-local-vars</a>/5"</span>) +<span id="L14126" class="LineNr">14126 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L14089'>test-convert-function-with-return-and-local-vars</a>/6"</span>) +<span id="L14127" class="LineNr">14127 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L14089'>test-convert-function-with-return-and-local-vars</a>/7"</span>) +<span id="L14128" class="LineNr">14128 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14089'>test-convert-function-with-return-and-local-vars</a>/8"</span>) <span class="subxComment"># var x</span> +<span id="L14129" class="LineNr">14129 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L14089'>test-convert-function-with-return-and-local-vars</a>/9"</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#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L14089'>test-convert-function-with-return-and-local-vars</a>/10"</span>) +<span id="L14131" class="LineNr">14131 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14089'>test-convert-function-with-return-and-local-vars</a>/11"</span>) <span class="subxComment"># var y</span> +<span id="L14132" class="LineNr">14132 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0xfffffff8) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14089'>test-convert-function-with-return-and-local-vars</a>/12"</span>) +<span id="L14133" class="LineNr">14133 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14089'>test-convert-function-with-return-and-local-vars</a>/13"</span>) +<span id="L14134" class="LineNr">14134 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14089'>test-convert-function-with-return-and-local-vars</a>/14"</span>) +<span id="L14135" class="LineNr">14135 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14089'>test-convert-function-with-return-and-local-vars</a>/15"</span>) +<span id="L14136" class="LineNr">14136 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L14089'>test-convert-function-with-return-and-local-vars</a>/16"</span>) +<span id="L14137" class="LineNr">14137 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L14089'>test-convert-function-with-return-and-local-vars</a>/17"</span>) +<span id="L14138" class="LineNr">14138 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14089'>test-convert-function-with-return-and-local-vars</a>/18"</span>) +<span id="L14139" class="LineNr">14139 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L14089'>test-convert-function-with-return-and-local-vars</a>/19"</span>) +<span id="L14140" class="LineNr">14140 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L14089'>test-convert-function-with-return-and-local-vars</a>/20"</span>) +<span id="L14141" class="LineNr">14141 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c7 0/subop/copy %eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14089'>test-convert-function-with-return-and-local-vars</a>/21"</span>) +<span id="L14142" class="LineNr">14142 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14089'>test-convert-function-with-return-and-local-vars</a>/21"</span>) +<span id="L14143" class="LineNr">14143 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L14089'>test-convert-function-with-return-and-local-vars</a>/21"</span>) +<span id="L14144" class="LineNr">14144 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L14089'>test-convert-function-with-return-and-local-vars</a>/22"</span>) +<span id="L14145" class="LineNr">14145 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-return-and-local-vars/23"</span>) +<span id="L14146" class="LineNr">14146 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L14089'>test-convert-function-with-return-and-local-vars</a>/24"</span>) +<span id="L14147" class="LineNr">14147 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L14089'>test-convert-function-with-return-and-local-vars</a>/25"</span>) +<span id="L14148" class="LineNr">14148 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L14089'>test-convert-function-with-return-and-local-vars</a>/26"</span>) +<span id="L14149" class="LineNr">14149 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14150" class="LineNr">14150 </span> 89/<- %esp 5/r32/ebp +<span id="L14151" class="LineNr">14151 </span> 5d/pop-to-ebp +<span id="L14152" class="LineNr">14152 </span> c3/return +<span id="L14153" class="LineNr">14153 </span> +<span id="L14154" class="LineNr">14154 </span><span class="subxTest">test-copy-object-with-no-inout</span>: +<span id="L14155" class="LineNr">14155 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14156" class="LineNr">14156 </span> 55/push-ebp +<span id="L14157" class="LineNr">14157 </span> 89/<- %ebp 4/r32/esp +<span id="L14158" class="LineNr">14158 </span> <span class="subxComment"># setup</span> +<span id="L14159" class="LineNr">14159 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14160" class="LineNr">14160 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14161" class="LineNr">14161 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14162" class="LineNr">14162 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14163" class="LineNr">14163 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14164" class="LineNr">14164 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14165" class="LineNr">14165 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14166" class="LineNr">14166 </span> 68/push 0/imm32 +<span id="L14167" class="LineNr">14167 </span> 68/push 0/imm32 +<span id="L14168" class="LineNr">14168 </span> 89/<- %edx 4/r32/esp +<span id="L14169" class="LineNr">14169 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14170" class="LineNr">14170 </span> <span class="subxComment">#</span> +<span id="L14171" class="LineNr">14171 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14172" class="LineNr">14172 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-object\n"</span>) +<span id="L14173" class="LineNr">14173 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14174" class="LineNr">14174 </span> <span class="subxComment"># convert</span> +<span id="L14175" class="LineNr">14175 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14176" class="LineNr">14176 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14177" class="LineNr">14177 </span> <span class="subxComment"># restore ed</span> +<span id="L14178" class="LineNr">14178 </span> 89/<- %edx 4/r32/esp +<span id="L14179" class="LineNr">14179 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14180" class="LineNr">14180 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14181" class="Folded">14181 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14187" class="LineNr">14187 </span> <span class="subxComment"># check output</span> +<span id="L14188" class="LineNr">14188 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14154'>test-copy-object-with-no-inout</a>: output should be empty"</span>) +<span id="L14189" class="LineNr">14189 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-object' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L14154'>test-copy-object-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14190" class="LineNr">14190 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14191" class="LineNr">14191 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14154'>test-copy-object-with-no-inout</a>: exit status"</span>) +<span id="L14192" class="LineNr">14192 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14193" class="LineNr">14193 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14194" class="LineNr">14194 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14195" class="LineNr">14195 </span> 5d/pop-to-ebp +<span id="L14196" class="LineNr">14196 </span> c3/return +<span id="L14197" class="LineNr">14197 </span> +<span id="L14198" class="LineNr">14198 </span><span class="subxTest">test-copy-object-with-no-source</span>: +<span id="L14199" class="LineNr">14199 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14200" class="LineNr">14200 </span> 55/push-ebp +<span id="L14201" class="LineNr">14201 </span> 89/<- %ebp 4/r32/esp +<span id="L14202" class="LineNr">14202 </span> <span class="subxComment"># setup</span> +<span id="L14203" class="LineNr">14203 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14204" class="LineNr">14204 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14205" class="LineNr">14205 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14206" class="LineNr">14206 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14207" class="LineNr">14207 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14208" class="LineNr">14208 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14209" class="LineNr">14209 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14210" class="LineNr">14210 </span> 68/push 0/imm32 +<span id="L14211" class="LineNr">14211 </span> 68/push 0/imm32 +<span id="L14212" class="LineNr">14212 </span> 89/<- %edx 4/r32/esp +<span id="L14213" class="LineNr">14213 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14214" class="LineNr">14214 </span> <span class="subxComment">#</span> +<span id="L14215" class="LineNr">14215 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14216" class="LineNr">14216 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr int)\n"</span>) +<span id="L14217" class="LineNr">14217 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-object x\n"</span>) +<span id="L14218" class="LineNr">14218 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14219" class="LineNr">14219 </span> <span class="subxComment"># convert</span> +<span id="L14220" class="LineNr">14220 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14221" class="LineNr">14221 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14222" class="LineNr">14222 </span> <span class="subxComment"># restore ed</span> +<span id="L14223" class="LineNr">14223 </span> 89/<- %edx 4/r32/esp +<span id="L14224" class="LineNr">14224 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14225" class="LineNr">14225 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14226" class="Folded">14226 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14232" class="LineNr">14232 </span> <span class="subxComment"># check output</span> +<span id="L14233" class="LineNr">14233 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14198'>test-copy-object-with-no-source</a>: output should be empty"</span>) +<span id="L14234" class="LineNr">14234 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-object' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L14198'>test-copy-object-with-no-source</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14235" class="LineNr">14235 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14236" class="LineNr">14236 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14198'>test-copy-object-with-no-source</a>: exit status"</span>) +<span id="L14237" class="LineNr">14237 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14238" class="LineNr">14238 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14239" class="LineNr">14239 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14240" class="LineNr">14240 </span> 5d/pop-to-ebp +<span id="L14241" class="LineNr">14241 </span> c3/return +<span id="L14242" class="LineNr">14242 </span> +<span id="L14243" class="LineNr">14243 </span><span class="subxTest">test-copy-object-with-too-many-inouts</span>: +<span id="L14244" class="LineNr">14244 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14245" class="LineNr">14245 </span> 55/push-ebp +<span id="L14246" class="LineNr">14246 </span> 89/<- %ebp 4/r32/esp +<span id="L14247" class="LineNr">14247 </span> <span class="subxComment"># setup</span> +<span id="L14248" class="LineNr">14248 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14249" class="LineNr">14249 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14250" class="LineNr">14250 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14251" class="LineNr">14251 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14252" class="LineNr">14252 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14253" class="LineNr">14253 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14254" class="LineNr">14254 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14255" class="LineNr">14255 </span> 68/push 0/imm32 +<span id="L14256" class="LineNr">14256 </span> 68/push 0/imm32 +<span id="L14257" class="LineNr">14257 </span> 89/<- %edx 4/r32/esp +<span id="L14258" class="LineNr">14258 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14259" class="LineNr">14259 </span> <span class="subxComment">#</span> +<span id="L14260" class="LineNr">14260 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14261" class="LineNr">14261 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr boolean)\n"</span>) +<span id="L14262" class="LineNr">14262 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-object x, x, x\n"</span>) +<span id="L14263" class="LineNr">14263 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14264" class="LineNr">14264 </span> <span class="subxComment"># convert</span> +<span id="L14265" class="LineNr">14265 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14266" class="LineNr">14266 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14267" class="LineNr">14267 </span> <span class="subxComment"># restore ed</span> +<span id="L14268" class="LineNr">14268 </span> 89/<- %edx 4/r32/esp +<span id="L14269" class="LineNr">14269 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14270" class="LineNr">14270 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14271" class="Folded">14271 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14277" class="LineNr">14277 </span> <span class="subxComment"># check output</span> +<span id="L14278" class="LineNr">14278 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14243'>test-copy-object-with-too-many-inouts</a>: output should be empty"</span>) +<span id="L14279" class="LineNr">14279 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-object' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L14243'>test-copy-object-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14280" class="LineNr">14280 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14281" class="LineNr">14281 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14243'>test-copy-object-with-too-many-inouts</a>: exit status"</span>) +<span id="L14282" class="LineNr">14282 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14283" class="LineNr">14283 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14284" class="LineNr">14284 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14285" class="LineNr">14285 </span> 5d/pop-to-ebp +<span id="L14286" class="LineNr">14286 </span> c3/return +<span id="L14287" class="LineNr">14287 </span> +<span id="L14288" class="LineNr">14288 </span><span class="subxTest">test-copy-object-with-output</span>: +<span id="L14289" class="LineNr">14289 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14290" class="LineNr">14290 </span> 55/push-ebp +<span id="L14291" class="LineNr">14291 </span> 89/<- %ebp 4/r32/esp +<span id="L14292" class="LineNr">14292 </span> <span class="subxComment"># setup</span> +<span id="L14293" class="LineNr">14293 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14294" class="LineNr">14294 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14295" class="LineNr">14295 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14296" class="LineNr">14296 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14297" class="LineNr">14297 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14298" class="LineNr">14298 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14299" class="LineNr">14299 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14300" class="LineNr">14300 </span> 68/push 0/imm32 +<span id="L14301" class="LineNr">14301 </span> 68/push 0/imm32 +<span id="L14302" class="LineNr">14302 </span> 89/<- %edx 4/r32/esp +<span id="L14303" class="LineNr">14303 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14304" class="LineNr">14304 </span> <span class="subxComment">#</span> +<span id="L14305" class="LineNr">14305 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14306" class="LineNr">14306 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr boolean) <- copy 0\n"</span>) +<span id="L14307" class="LineNr">14307 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr boolean) <- copy 0\n"</span>) +<span id="L14308" class="LineNr">14308 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- copy-object x, y\n"</span>) +<span id="L14309" class="LineNr">14309 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14310" class="LineNr">14310 </span> <span class="subxComment"># convert</span> +<span id="L14311" class="LineNr">14311 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14312" class="LineNr">14312 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14313" class="LineNr">14313 </span> <span class="subxComment"># restore ed</span> +<span id="L14314" class="LineNr">14314 </span> 89/<- %edx 4/r32/esp +<span id="L14315" class="LineNr">14315 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14316" class="LineNr">14316 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14317" class="Folded">14317 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14323" class="LineNr">14323 </span> <span class="subxComment"># check output</span> +<span id="L14324" class="LineNr">14324 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14288'>test-copy-object-with-output</a>: output should be empty"</span>) +<span id="L14325" class="LineNr">14325 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-object' must not have any outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L14288'>test-copy-object-with-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14326" class="LineNr">14326 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14327" class="LineNr">14327 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14288'>test-copy-object-with-output</a>: exit status"</span>) +<span id="L14328" class="LineNr">14328 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14329" class="LineNr">14329 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14330" class="LineNr">14330 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14331" class="LineNr">14331 </span> 5d/pop-to-ebp +<span id="L14332" class="LineNr">14332 </span> c3/return +<span id="L14333" class="LineNr">14333 </span> +<span id="L14334" class="LineNr">14334 </span><span class="subxTest">test-copy-object-deref-address</span>: +<span id="L14335" class="LineNr">14335 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14336" class="LineNr">14336 </span> 55/push-ebp +<span id="L14337" class="LineNr">14337 </span> 89/<- %ebp 4/r32/esp +<span id="L14338" class="LineNr">14338 </span> <span class="subxComment"># setup</span> +<span id="L14339" class="LineNr">14339 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14340" class="LineNr">14340 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14341" class="LineNr">14341 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14342" class="LineNr">14342 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14343" class="LineNr">14343 </span> <span class="subxComment">#</span> +<span id="L14344" class="LineNr">14344 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14345" class="LineNr">14345 </span> (<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="L14346" class="LineNr">14346 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr addr int) <- copy 0\n"</span>) +<span id="L14347" class="LineNr">14347 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-object *y, x\n"</span>) +<span id="L14348" class="LineNr">14348 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14349" class="LineNr">14349 </span> <span class="subxComment"># convert</span> +<span id="L14350" class="LineNr">14350 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L14351" class="LineNr">14351 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14352" class="LineNr">14352 </span> <span class="subxComment"># no errors</span> +<span id="L14353" class="LineNr">14353 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14354" class="LineNr">14354 </span> 5d/pop-to-ebp +<span id="L14355" class="LineNr">14355 </span> c3/return +<span id="L14356" class="LineNr">14356 </span> +<span id="L14357" class="LineNr">14357 </span><span class="subxTest">test-copy-object-non-addr</span>: +<span id="L14358" class="LineNr">14358 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14359" class="LineNr">14359 </span> 55/push-ebp +<span id="L14360" class="LineNr">14360 </span> 89/<- %ebp 4/r32/esp +<span id="L14361" class="LineNr">14361 </span> <span class="subxComment"># setup</span> +<span id="L14362" class="LineNr">14362 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14363" class="LineNr">14363 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14364" class="LineNr">14364 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14365" class="LineNr">14365 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14366" class="LineNr">14366 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14367" class="LineNr">14367 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14368" class="LineNr">14368 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14369" class="LineNr">14369 </span> 68/push 0/imm32 +<span id="L14370" class="LineNr">14370 </span> 68/push 0/imm32 +<span id="L14371" class="LineNr">14371 </span> 89/<- %edx 4/r32/esp +<span id="L14372" class="LineNr">14372 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14373" class="LineNr">14373 </span> <span class="subxComment">#</span> +<span id="L14374" class="LineNr">14374 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14375" class="LineNr">14375 </span> (<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="L14376" class="LineNr">14376 </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="L14377" class="LineNr">14377 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-object y, x\n"</span>) +<span id="L14378" class="LineNr">14378 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14379" class="LineNr">14379 </span> <span class="subxComment"># convert</span> +<span id="L14380" class="LineNr">14380 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14381" class="LineNr">14381 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14382" class="LineNr">14382 </span> <span class="subxComment"># restore ed</span> +<span id="L14383" class="LineNr">14383 </span> 89/<- %edx 4/r32/esp +<span id="L14384" class="LineNr">14384 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14385" class="LineNr">14385 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14386" class="Folded">14386 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14392" class="LineNr">14392 </span> <span class="subxComment"># check output</span> +<span id="L14393" class="LineNr">14393 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14357'>test-copy-object-non-addr</a>: output should be empty"</span>) +<span id="L14394" class="LineNr">14394 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-object: two inouts with identical addr types expected"</span> <span class="Constant">"F - <a href='mu.subx.html#L14357'>test-copy-object-non-addr</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14395" class="LineNr">14395 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14396" class="LineNr">14396 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14357'>test-copy-object-non-addr</a>: exit status"</span>) +<span id="L14397" class="LineNr">14397 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14398" class="LineNr">14398 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14399" class="LineNr">14399 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14400" class="LineNr">14400 </span> 5d/pop-to-ebp +<span id="L14401" class="LineNr">14401 </span> c3/return +<span id="L14402" class="LineNr">14402 </span> +<span id="L14403" class="LineNr">14403 </span><span class="subxTest">test-copy-object-non-equal</span>: +<span id="L14404" class="LineNr">14404 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14405" class="LineNr">14405 </span> 55/push-ebp +<span id="L14406" class="LineNr">14406 </span> 89/<- %ebp 4/r32/esp +<span id="L14407" class="LineNr">14407 </span> <span class="subxComment"># setup</span> +<span id="L14408" class="LineNr">14408 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14409" class="LineNr">14409 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14410" class="LineNr">14410 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14411" class="LineNr">14411 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14412" class="LineNr">14412 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14413" class="LineNr">14413 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14414" class="LineNr">14414 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14415" class="LineNr">14415 </span> 68/push 0/imm32 +<span id="L14416" class="LineNr">14416 </span> 68/push 0/imm32 +<span id="L14417" class="LineNr">14417 </span> 89/<- %edx 4/r32/esp +<span id="L14418" class="LineNr">14418 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14419" class="LineNr">14419 </span> <span class="subxComment">#</span> +<span id="L14420" class="LineNr">14420 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14421" class="LineNr">14421 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr int)\n"</span>) +<span id="L14422" class="LineNr">14422 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: (addr boolean)\n"</span>) +<span id="L14423" class="LineNr">14423 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-object y, x\n"</span>) +<span id="L14424" class="LineNr">14424 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14425" class="LineNr">14425 </span> <span class="subxComment"># convert</span> +<span id="L14426" class="LineNr">14426 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14427" class="LineNr">14427 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14428" class="LineNr">14428 </span> <span class="subxComment"># restore ed</span> +<span id="L14429" class="LineNr">14429 </span> 89/<- %edx 4/r32/esp +<span id="L14430" class="LineNr">14430 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14431" class="LineNr">14431 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14432" class="Folded">14432 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14438" class="LineNr">14438 </span> <span class="subxComment"># check output</span> +<span id="L14439" class="LineNr">14439 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14403'>test-copy-object-non-equal</a>: output should be empty"</span>) +<span id="L14440" class="LineNr">14440 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-object: two inouts with identical addr types expected"</span> <span class="Constant">"F - <a href='mu.subx.html#L14403'>test-copy-object-non-equal</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14441" class="LineNr">14441 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14442" class="LineNr">14442 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14403'>test-copy-object-non-equal</a>: exit status"</span>) +<span id="L14443" class="LineNr">14443 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14444" class="LineNr">14444 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14445" class="LineNr">14445 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14446" class="LineNr">14446 </span> 5d/pop-to-ebp +<span id="L14447" class="LineNr">14447 </span> c3/return +<span id="L14448" class="LineNr">14448 </span> +<span id="L14449" class="LineNr">14449 </span><span class="subxTest">test-allocate-with-no-inout</span>: +<span id="L14450" class="LineNr">14450 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14451" class="LineNr">14451 </span> 55/push-ebp +<span id="L14452" class="LineNr">14452 </span> 89/<- %ebp 4/r32/esp +<span id="L14453" class="LineNr">14453 </span> <span class="subxComment"># setup</span> +<span id="L14454" class="LineNr">14454 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14455" class="LineNr">14455 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14456" class="LineNr">14456 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14457" class="LineNr">14457 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14458" class="LineNr">14458 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14459" class="LineNr">14459 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14460" class="LineNr">14460 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14461" class="LineNr">14461 </span> 68/push 0/imm32 +<span id="L14462" class="LineNr">14462 </span> 68/push 0/imm32 +<span id="L14463" class="LineNr">14463 </span> 89/<- %edx 4/r32/esp +<span id="L14464" class="LineNr">14464 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14465" class="LineNr">14465 </span> <span class="subxComment">#</span> +<span id="L14466" class="LineNr">14466 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14467" class="LineNr">14467 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" allocate\n"</span>) +<span id="L14468" class="LineNr">14468 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14469" class="LineNr">14469 </span> <span class="subxComment"># convert</span> +<span id="L14470" class="LineNr">14470 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14471" class="LineNr">14471 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14472" class="LineNr">14472 </span> <span class="subxComment"># restore ed</span> +<span id="L14473" class="LineNr">14473 </span> 89/<- %edx 4/r32/esp +<span id="L14474" class="LineNr">14474 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14475" class="LineNr">14475 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14476" class="Folded">14476 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14482" class="LineNr">14482 </span> <span class="subxComment"># check output</span> +<span id="L14483" class="LineNr">14483 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14449'>test-allocate-with-no-inout</a>: output should be empty"</span>) +<span id="L14484" class="LineNr">14484 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'allocate' must have a single inout"</span> <span class="Constant">"F - <a href='mu.subx.html#L14449'>test-allocate-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14485" class="LineNr">14485 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14486" class="LineNr">14486 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14449'>test-allocate-with-no-inout</a>: exit status"</span>) +<span id="L14487" class="LineNr">14487 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14488" class="LineNr">14488 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14489" class="LineNr">14489 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14490" class="LineNr">14490 </span> 5d/pop-to-ebp +<span id="L14491" class="LineNr">14491 </span> c3/return +<span id="L14492" class="LineNr">14492 </span> +<span id="L14493" class="LineNr">14493 </span><span class="subxTest">test-allocate-with-too-many-inouts</span>: +<span id="L14494" class="LineNr">14494 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14495" class="LineNr">14495 </span> 55/push-ebp +<span id="L14496" class="LineNr">14496 </span> 89/<- %ebp 4/r32/esp +<span id="L14497" class="LineNr">14497 </span> <span class="subxComment"># setup</span> +<span id="L14498" class="LineNr">14498 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14499" class="LineNr">14499 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14500" class="LineNr">14500 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14501" class="LineNr">14501 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14502" class="LineNr">14502 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14503" class="LineNr">14503 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14504" class="LineNr">14504 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14505" class="LineNr">14505 </span> 68/push 0/imm32 +<span id="L14506" class="LineNr">14506 </span> 68/push 0/imm32 +<span id="L14507" class="LineNr">14507 </span> 89/<- %edx 4/r32/esp +<span id="L14508" class="LineNr">14508 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14509" class="LineNr">14509 </span> <span class="subxComment">#</span> +<span id="L14510" class="LineNr">14510 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14511" class="LineNr">14511 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr handle int)\n"</span>) +<span id="L14512" class="LineNr">14512 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='120allocate.subx.html#L66'>allocate</a> x, 0\n"</span>) +<span id="L14513" class="LineNr">14513 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14514" class="LineNr">14514 </span> <span class="subxComment"># convert</span> +<span id="L14515" class="LineNr">14515 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14516" class="LineNr">14516 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14517" class="LineNr">14517 </span> <span class="subxComment"># restore ed</span> +<span id="L14518" class="LineNr">14518 </span> 89/<- %edx 4/r32/esp +<span id="L14519" class="LineNr">14519 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14520" class="LineNr">14520 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14521" class="Folded">14521 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14527" class="LineNr">14527 </span> <span class="subxComment"># check output</span> +<span id="L14528" class="LineNr">14528 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14493'>test-allocate-with-too-many-inouts</a>: output should be empty"</span>) +<span id="L14529" class="LineNr">14529 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'allocate' must have a single inout"</span> <span class="Constant">"F - <a href='mu.subx.html#L14493'>test-allocate-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14530" class="LineNr">14530 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14531" class="LineNr">14531 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14493'>test-allocate-with-too-many-inouts</a>: exit status"</span>) +<span id="L14532" class="LineNr">14532 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14533" class="LineNr">14533 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14534" class="LineNr">14534 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14535" class="LineNr">14535 </span> 5d/pop-to-ebp +<span id="L14536" class="LineNr">14536 </span> c3/return +<span id="L14537" class="LineNr">14537 </span> +<span id="L14538" class="LineNr">14538 </span><span class="subxTest">test-allocate-with-output</span>: +<span id="L14539" class="LineNr">14539 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14540" class="LineNr">14540 </span> 55/push-ebp +<span id="L14541" class="LineNr">14541 </span> 89/<- %ebp 4/r32/esp +<span id="L14542" class="LineNr">14542 </span> <span class="subxComment"># setup</span> +<span id="L14543" class="LineNr">14543 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14544" class="LineNr">14544 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14545" class="LineNr">14545 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14546" class="LineNr">14546 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14547" class="LineNr">14547 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14548" class="LineNr">14548 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14549" class="LineNr">14549 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14550" class="LineNr">14550 </span> 68/push 0/imm32 +<span id="L14551" class="LineNr">14551 </span> 68/push 0/imm32 +<span id="L14552" class="LineNr">14552 </span> 89/<- %edx 4/r32/esp +<span id="L14553" class="LineNr">14553 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14554" class="LineNr">14554 </span> <span class="subxComment">#</span> +<span id="L14555" class="LineNr">14555 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14556" class="LineNr">14556 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy 0\n"</span>) +<span id="L14557" class="LineNr">14557 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr handle int) <- copy 0\n"</span>) +<span id="L14558" class="LineNr">14558 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- <a href='120allocate.subx.html#L66'>allocate</a> y\n"</span>) +<span id="L14559" class="LineNr">14559 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14560" class="LineNr">14560 </span> <span class="subxComment"># convert</span> +<span id="L14561" class="LineNr">14561 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14562" class="LineNr">14562 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14563" class="LineNr">14563 </span> <span class="subxComment"># restore ed</span> +<span id="L14564" class="LineNr">14564 </span> 89/<- %edx 4/r32/esp +<span id="L14565" class="LineNr">14565 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14566" class="LineNr">14566 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14567" class="Folded">14567 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14573" class="LineNr">14573 </span> <span class="subxComment"># check output</span> +<span id="L14574" class="LineNr">14574 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14538'>test-allocate-with-output</a>: output should be empty"</span>) +<span id="L14575" class="LineNr">14575 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'allocate' must not have any outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L14538'>test-allocate-with-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14576" class="LineNr">14576 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14577" class="LineNr">14577 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14538'>test-allocate-with-output</a>: exit status"</span>) +<span id="L14578" class="LineNr">14578 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14579" class="LineNr">14579 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14580" class="LineNr">14580 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14581" class="LineNr">14581 </span> 5d/pop-to-ebp +<span id="L14582" class="LineNr">14582 </span> c3/return +<span id="L14583" class="LineNr">14583 </span> +<span id="L14584" class="LineNr">14584 </span><span class="subxTest">test-allocate-non-addr</span>: +<span id="L14585" class="LineNr">14585 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14586" class="LineNr">14586 </span> 55/push-ebp +<span id="L14587" class="LineNr">14587 </span> 89/<- %ebp 4/r32/esp +<span id="L14588" class="LineNr">14588 </span> <span class="subxComment"># setup</span> +<span id="L14589" class="LineNr">14589 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14590" class="LineNr">14590 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14591" class="LineNr">14591 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14592" class="LineNr">14592 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14593" class="LineNr">14593 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14594" class="LineNr">14594 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14595" class="LineNr">14595 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14596" class="LineNr">14596 </span> 68/push 0/imm32 +<span id="L14597" class="LineNr">14597 </span> 68/push 0/imm32 +<span id="L14598" class="LineNr">14598 </span> 89/<- %edx 4/r32/esp +<span id="L14599" class="LineNr">14599 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14600" class="LineNr">14600 </span> <span class="subxComment">#</span> +<span id="L14601" class="LineNr">14601 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14602" class="LineNr">14602 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: (handle int)\n"</span>) +<span id="L14603" class="LineNr">14603 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='120allocate.subx.html#L66'>allocate</a> y\n"</span>) +<span id="L14604" class="LineNr">14604 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14605" class="LineNr">14605 </span> <span class="subxComment"># convert</span> +<span id="L14606" class="LineNr">14606 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14607" class="LineNr">14607 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14608" class="LineNr">14608 </span> <span class="subxComment"># restore ed</span> +<span id="L14609" class="LineNr">14609 </span> 89/<- %edx 4/r32/esp +<span id="L14610" class="LineNr">14610 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14611" class="LineNr">14611 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14612" class="Folded">14612 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14618" class="LineNr">14618 </span> <span class="subxComment"># check output</span> +<span id="L14619" class="LineNr">14619 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14584'>test-allocate-non-addr</a>: output must be empty"</span>) +<span id="L14620" class="LineNr">14620 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='120allocate.subx.html#L66'>allocate</a>: inout 'y' must have type (addr handle ...)"</span> <span class="Constant">"F - <a href='mu.subx.html#L14584'>test-allocate-non-addr</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14621" class="LineNr">14621 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14622" class="LineNr">14622 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14584'>test-allocate-non-addr</a>: exit status"</span>) +<span id="L14623" class="LineNr">14623 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14624" class="LineNr">14624 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14625" class="LineNr">14625 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14626" class="LineNr">14626 </span> 5d/pop-to-ebp +<span id="L14627" class="LineNr">14627 </span> c3/return +<span id="L14628" class="LineNr">14628 </span> +<span id="L14629" class="LineNr">14629 </span><span class="subxTest">test-allocate-non-addr-handle</span>: +<span id="L14630" class="LineNr">14630 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14631" class="LineNr">14631 </span> 55/push-ebp +<span id="L14632" class="LineNr">14632 </span> 89/<- %ebp 4/r32/esp +<span id="L14633" class="LineNr">14633 </span> <span class="subxComment"># setup</span> +<span id="L14634" class="LineNr">14634 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14635" class="LineNr">14635 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14636" class="LineNr">14636 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14637" class="LineNr">14637 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14638" class="LineNr">14638 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14639" class="LineNr">14639 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14640" class="LineNr">14640 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14641" class="LineNr">14641 </span> 68/push 0/imm32 +<span id="L14642" class="LineNr">14642 </span> 68/push 0/imm32 +<span id="L14643" class="LineNr">14643 </span> 89/<- %edx 4/r32/esp +<span id="L14644" class="LineNr">14644 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14645" class="LineNr">14645 </span> <span class="subxComment">#</span> +<span id="L14646" class="LineNr">14646 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14647" class="LineNr">14647 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr int) <- copy 0\n"</span>) +<span id="L14648" class="LineNr">14648 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='120allocate.subx.html#L66'>allocate</a> y\n"</span>) +<span id="L14649" class="LineNr">14649 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14650" class="LineNr">14650 </span> <span class="subxComment"># convert</span> +<span id="L14651" class="LineNr">14651 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14652" class="LineNr">14652 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14653" class="LineNr">14653 </span> <span class="subxComment"># restore ed</span> +<span id="L14654" class="LineNr">14654 </span> 89/<- %edx 4/r32/esp +<span id="L14655" class="LineNr">14655 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14656" class="LineNr">14656 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14657" class="Folded">14657 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14663" class="LineNr">14663 </span> <span class="subxComment"># check output</span> +<span id="L14664" class="LineNr">14664 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14629'>test-allocate-non-addr-handle</a>: output should be empty"</span>) +<span id="L14665" class="LineNr">14665 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='120allocate.subx.html#L66'>allocate</a>: inout 'y' must have type (addr handle ...)"</span> <span class="Constant">"F - <a href='mu.subx.html#L14629'>test-allocate-non-addr-handle</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14666" class="LineNr">14666 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14667" class="LineNr">14667 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14629'>test-allocate-non-addr-handle</a>: exit status"</span>) +<span id="L14668" class="LineNr">14668 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14669" class="LineNr">14669 </span> 81 0/subop/add %esp 8/imm32 <span id="L14670" class="LineNr">14670 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L14671" class="LineNr">14671 </span> 5d/pop-to-ebp <span id="L14672" class="LineNr">14672 </span> c3/return <span id="L14673" class="LineNr">14673 </span> -<span id="L14674" class="LineNr">14674 </span><span class="subxTest">test-populate-with-no-inout</span>: +<span id="L14674" class="LineNr">14674 </span><span class="subxTest">test-allocate-deref-address</span>: <span id="L14675" class="LineNr">14675 </span> <span class="subxS1Comment"># . prologue</span> <span id="L14676" class="LineNr">14676 </span> 55/push-ebp <span id="L14677" class="LineNr">14677 </span> 89/<- %ebp 4/r32/esp @@ -13297,260 +13297,260 @@ if ('onhashchange' in window) { <span id="L14680" class="LineNr">14680 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) <span id="L14681" class="LineNr">14681 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) <span id="L14682" class="LineNr">14682 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14683" class="LineNr">14683 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L14684" class="LineNr">14684 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14685" class="LineNr">14685 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L14686" class="LineNr">14686 </span> 68/push 0/imm32 -<span id="L14687" class="LineNr">14687 </span> 68/push 0/imm32 -<span id="L14688" class="LineNr">14688 </span> 89/<- %edx 4/r32/esp -<span id="L14689" class="LineNr">14689 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14690" class="LineNr">14690 </span> <span class="subxComment">#</span> -<span id="L14691" class="LineNr">14691 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14692" class="LineNr">14692 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate\n"</span>) -<span id="L14693" class="LineNr">14693 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14694" class="LineNr">14694 </span> <span class="subxComment"># convert</span> -<span id="L14695" class="LineNr">14695 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L14696" class="LineNr">14696 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L14697" class="LineNr">14697 </span> <span class="subxComment"># restore ed</span> -<span id="L14698" class="LineNr">14698 </span> 89/<- %edx 4/r32/esp -<span id="L14699" class="LineNr">14699 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L14700" class="LineNr">14700 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L14701" class="Folded">14701 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14707" class="LineNr">14707 </span> <span class="subxComment"># check output</span> -<span id="L14708" class="LineNr">14708 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14674'>test-populate-with-no-inout</a>: output should be empty"</span>) -<span id="L14709" class="LineNr">14709 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'populate' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L14674'>test-populate-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L14710" class="LineNr">14710 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14711" class="LineNr">14711 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14674'>test-populate-with-no-inout</a>: exit status"</span>) -<span id="L14712" class="LineNr">14712 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L14713" class="LineNr">14713 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14714" class="LineNr">14714 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14715" class="LineNr">14715 </span> 5d/pop-to-ebp -<span id="L14716" class="LineNr">14716 </span> c3/return -<span id="L14717" class="LineNr">14717 </span> -<span id="L14718" class="LineNr">14718 </span><span class="subxTest">test-populate-with-too-many-inouts</span>: -<span id="L14719" class="LineNr">14719 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14720" class="LineNr">14720 </span> 55/push-ebp -<span id="L14721" class="LineNr">14721 </span> 89/<- %ebp 4/r32/esp -<span id="L14722" class="LineNr">14722 </span> <span class="subxComment"># setup</span> -<span id="L14723" class="LineNr">14723 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14724" class="LineNr">14724 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14725" class="LineNr">14725 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L14726" class="LineNr">14726 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14727" class="LineNr">14727 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L14728" class="LineNr">14728 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14729" class="LineNr">14729 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L14730" class="LineNr">14730 </span> 68/push 0/imm32 -<span id="L14731" class="LineNr">14731 </span> 68/push 0/imm32 -<span id="L14732" class="LineNr">14732 </span> 89/<- %edx 4/r32/esp -<span id="L14733" class="LineNr">14733 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14734" class="LineNr">14734 </span> <span class="subxComment">#</span> -<span id="L14735" class="LineNr">14735 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14736" class="LineNr">14736 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr handle int)\n"</span>) -<span id="L14737" class="LineNr">14737 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate x, 3, 0\n"</span>) -<span id="L14738" class="LineNr">14738 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14739" class="LineNr">14739 </span> <span class="subxComment"># convert</span> -<span id="L14740" class="LineNr">14740 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L14741" class="LineNr">14741 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L14742" class="LineNr">14742 </span> <span class="subxComment"># restore ed</span> -<span id="L14743" class="LineNr">14743 </span> 89/<- %edx 4/r32/esp -<span id="L14744" class="LineNr">14744 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L14745" class="LineNr">14745 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L14746" class="Folded">14746 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14752" class="LineNr">14752 </span> <span class="subxComment"># check output</span> -<span id="L14753" class="LineNr">14753 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14718'>test-populate-with-too-many-inouts</a>: output should be empty"</span>) -<span id="L14754" class="LineNr">14754 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'populate' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L14718'>test-populate-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L14755" class="LineNr">14755 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14756" class="LineNr">14756 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14718'>test-populate-with-too-many-inouts</a>: exit status"</span>) -<span id="L14757" class="LineNr">14757 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L14758" class="LineNr">14758 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14759" class="LineNr">14759 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14760" class="LineNr">14760 </span> 5d/pop-to-ebp -<span id="L14761" class="LineNr">14761 </span> c3/return -<span id="L14762" class="LineNr">14762 </span> -<span id="L14763" class="LineNr">14763 </span><span class="subxTest">test-populate-with-output</span>: -<span id="L14764" class="LineNr">14764 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14765" class="LineNr">14765 </span> 55/push-ebp -<span id="L14766" class="LineNr">14766 </span> 89/<- %ebp 4/r32/esp -<span id="L14767" class="LineNr">14767 </span> <span class="subxComment"># setup</span> -<span id="L14768" class="LineNr">14768 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14769" class="LineNr">14769 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14770" class="LineNr">14770 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L14771" class="LineNr">14771 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14772" class="LineNr">14772 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L14773" class="LineNr">14773 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14774" class="LineNr">14774 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L14775" class="LineNr">14775 </span> 68/push 0/imm32 -<span id="L14776" class="LineNr">14776 </span> 68/push 0/imm32 -<span id="L14777" class="LineNr">14777 </span> 89/<- %edx 4/r32/esp -<span id="L14778" class="LineNr">14778 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14779" class="LineNr">14779 </span> <span class="subxComment">#</span> -<span id="L14780" class="LineNr">14780 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14781" class="LineNr">14781 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy 0\n"</span>) -<span id="L14782" class="LineNr">14782 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr handle int) <- copy 0\n"</span>) -<span id="L14783" class="LineNr">14783 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- populate y\n"</span>) -<span id="L14784" class="LineNr">14784 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14785" class="LineNr">14785 </span> <span class="subxComment"># convert</span> -<span id="L14786" class="LineNr">14786 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L14787" class="LineNr">14787 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L14788" class="LineNr">14788 </span> <span class="subxComment"># restore ed</span> -<span id="L14789" class="LineNr">14789 </span> 89/<- %edx 4/r32/esp -<span id="L14790" class="LineNr">14790 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L14791" class="LineNr">14791 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L14792" class="Folded">14792 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14798" class="LineNr">14798 </span> <span class="subxComment"># check output</span> -<span id="L14799" class="LineNr">14799 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14763'>test-populate-with-output</a>: output should be empty"</span>) -<span id="L14800" class="LineNr">14800 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'populate' must not have any outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L14763'>test-populate-with-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L14801" class="LineNr">14801 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14802" class="LineNr">14802 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14763'>test-populate-with-output</a>: exit status"</span>) -<span id="L14803" class="LineNr">14803 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L14804" class="LineNr">14804 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14805" class="LineNr">14805 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14806" class="LineNr">14806 </span> 5d/pop-to-ebp -<span id="L14807" class="LineNr">14807 </span> c3/return -<span id="L14808" class="LineNr">14808 </span> -<span id="L14809" class="LineNr">14809 </span><span class="subxTest">test-populate-non-addr</span>: -<span id="L14810" class="LineNr">14810 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14811" class="LineNr">14811 </span> 55/push-ebp -<span id="L14812" class="LineNr">14812 </span> 89/<- %ebp 4/r32/esp -<span id="L14813" class="LineNr">14813 </span> <span class="subxComment"># setup</span> -<span id="L14814" class="LineNr">14814 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14815" class="LineNr">14815 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14816" class="LineNr">14816 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L14817" class="LineNr">14817 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14818" class="LineNr">14818 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L14819" class="LineNr">14819 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14820" class="LineNr">14820 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L14821" class="LineNr">14821 </span> 68/push 0/imm32 -<span id="L14822" class="LineNr">14822 </span> 68/push 0/imm32 -<span id="L14823" class="LineNr">14823 </span> 89/<- %edx 4/r32/esp -<span id="L14824" class="LineNr">14824 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14825" class="LineNr">14825 </span> <span class="subxComment">#</span> -<span id="L14826" class="LineNr">14826 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14827" class="LineNr">14827 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: (handle int)\n"</span>) -<span id="L14828" class="LineNr">14828 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate y, 3\n"</span>) -<span id="L14829" class="LineNr">14829 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14830" class="LineNr">14830 </span> <span class="subxComment"># convert</span> -<span id="L14831" class="LineNr">14831 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L14832" class="LineNr">14832 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L14833" class="LineNr">14833 </span> <span class="subxComment"># restore ed</span> -<span id="L14834" class="LineNr">14834 </span> 89/<- %edx 4/r32/esp -<span id="L14835" class="LineNr">14835 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L14836" class="LineNr">14836 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L14837" class="Folded">14837 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14843" class="LineNr">14843 </span> <span class="subxComment"># check output</span> -<span id="L14844" class="LineNr">14844 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14809'>test-populate-non-addr</a>: output must be empty"</span>) -<span id="L14845" class="LineNr">14845 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt populate: first inout 'y' must have type (addr handle array ...)"</span> <span class="Constant">"F - <a href='mu.subx.html#L14809'>test-populate-non-addr</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L14846" class="LineNr">14846 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14847" class="LineNr">14847 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14809'>test-populate-non-addr</a>: exit status"</span>) -<span id="L14848" class="LineNr">14848 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L14849" class="LineNr">14849 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14850" class="LineNr">14850 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14851" class="LineNr">14851 </span> 5d/pop-to-ebp -<span id="L14852" class="LineNr">14852 </span> c3/return -<span id="L14853" class="LineNr">14853 </span> -<span id="L14854" class="LineNr">14854 </span><span class="subxTest">test-populate-non-addr-handle</span>: -<span id="L14855" class="LineNr">14855 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14856" class="LineNr">14856 </span> 55/push-ebp -<span id="L14857" class="LineNr">14857 </span> 89/<- %ebp 4/r32/esp -<span id="L14858" class="LineNr">14858 </span> <span class="subxComment"># setup</span> -<span id="L14859" class="LineNr">14859 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14860" class="LineNr">14860 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14861" class="LineNr">14861 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L14862" class="LineNr">14862 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14863" class="LineNr">14863 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L14864" class="LineNr">14864 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14865" class="LineNr">14865 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L14866" class="LineNr">14866 </span> 68/push 0/imm32 -<span id="L14867" class="LineNr">14867 </span> 68/push 0/imm32 -<span id="L14868" class="LineNr">14868 </span> 89/<- %edx 4/r32/esp -<span id="L14869" class="LineNr">14869 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14870" class="LineNr">14870 </span> <span class="subxComment">#</span> -<span id="L14871" class="LineNr">14871 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14872" class="LineNr">14872 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr int) <- copy 0\n"</span>) -<span id="L14873" class="LineNr">14873 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate y, 3\n"</span>) -<span id="L14874" class="LineNr">14874 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14875" class="LineNr">14875 </span> <span class="subxComment"># convert</span> -<span id="L14876" class="LineNr">14876 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L14877" class="LineNr">14877 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L14878" class="LineNr">14878 </span> <span class="subxComment"># restore ed</span> -<span id="L14879" class="LineNr">14879 </span> 89/<- %edx 4/r32/esp -<span id="L14880" class="LineNr">14880 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L14881" class="LineNr">14881 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L14882" class="Folded">14882 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14888" class="LineNr">14888 </span> <span class="subxComment"># check output</span> -<span id="L14889" class="LineNr">14889 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14854'>test-populate-non-addr-handle</a>: output should be empty"</span>) -<span id="L14890" class="LineNr">14890 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt populate: first inout 'y' must have type (addr handle array ...)"</span> <span class="Constant">"F - <a href='mu.subx.html#L14854'>test-populate-non-addr-handle</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L14891" class="LineNr">14891 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14892" class="LineNr">14892 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14854'>test-populate-non-addr-handle</a>: exit status"</span>) -<span id="L14893" class="LineNr">14893 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L14894" class="LineNr">14894 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14895" class="LineNr">14895 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14896" class="LineNr">14896 </span> 5d/pop-to-ebp -<span id="L14897" class="LineNr">14897 </span> c3/return -<span id="L14898" class="LineNr">14898 </span> -<span id="L14899" class="LineNr">14899 </span><span class="subxTest">test-populate-non-addr-handle-array</span>: -<span id="L14900" class="LineNr">14900 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14901" class="LineNr">14901 </span> 55/push-ebp -<span id="L14902" class="LineNr">14902 </span> 89/<- %ebp 4/r32/esp -<span id="L14903" class="LineNr">14903 </span> <span class="subxComment"># setup</span> -<span id="L14904" class="LineNr">14904 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14905" class="LineNr">14905 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14906" class="LineNr">14906 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L14907" class="LineNr">14907 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14908" class="LineNr">14908 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L14909" class="LineNr">14909 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14910" class="LineNr">14910 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L14911" class="LineNr">14911 </span> 68/push 0/imm32 -<span id="L14912" class="LineNr">14912 </span> 68/push 0/imm32 -<span id="L14913" class="LineNr">14913 </span> 89/<- %edx 4/r32/esp -<span id="L14914" class="LineNr">14914 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14915" class="LineNr">14915 </span> <span class="subxComment">#</span> -<span id="L14916" class="LineNr">14916 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14917" class="LineNr">14917 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr handle int) <- copy 0\n"</span>) -<span id="L14918" class="LineNr">14918 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate y, 3\n"</span>) -<span id="L14919" class="LineNr">14919 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14920" class="LineNr">14920 </span> <span class="subxComment"># convert</span> -<span id="L14921" class="LineNr">14921 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L14922" class="LineNr">14922 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L14923" class="LineNr">14923 </span> <span class="subxComment"># restore ed</span> -<span id="L14924" class="LineNr">14924 </span> 89/<- %edx 4/r32/esp -<span id="L14925" class="LineNr">14925 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L14926" class="LineNr">14926 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L14927" class="Folded">14927 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14933" class="LineNr">14933 </span> <span class="subxComment"># check output</span> -<span id="L14934" class="LineNr">14934 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14899'>test-populate-non-addr-handle-array</a>: output should be empty"</span>) -<span id="L14935" class="LineNr">14935 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt populate: first inout 'y' must have type (addr handle array ...)"</span> <span class="Constant">"F - <a href='mu.subx.html#L14899'>test-populate-non-addr-handle-array</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L14936" class="LineNr">14936 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14937" class="LineNr">14937 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14899'>test-populate-non-addr-handle-array</a>: exit status"</span>) -<span id="L14938" class="LineNr">14938 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L14939" class="LineNr">14939 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14940" class="LineNr">14940 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14941" class="LineNr">14941 </span> 5d/pop-to-ebp -<span id="L14942" class="LineNr">14942 </span> c3/return -<span id="L14943" class="LineNr">14943 </span> -<span id="L14944" class="LineNr">14944 </span><span class="subxTest">test-populate-deref-address</span>: -<span id="L14945" class="LineNr">14945 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14946" class="LineNr">14946 </span> 55/push-ebp -<span id="L14947" class="LineNr">14947 </span> 89/<- %ebp 4/r32/esp -<span id="L14948" class="LineNr">14948 </span> <span class="subxComment"># setup</span> -<span id="L14949" class="LineNr">14949 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14950" class="LineNr">14950 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14951" class="LineNr">14951 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L14952" class="LineNr">14952 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14953" class="LineNr">14953 </span> <span class="subxComment">#</span> -<span id="L14954" class="LineNr">14954 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14955" class="LineNr">14955 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr addr handle array int) <- copy 0\n"</span>) -<span id="L14956" class="LineNr">14956 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate *y, 3\n"</span>) -<span id="L14957" class="LineNr">14957 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14958" class="LineNr">14958 </span> <span class="subxComment"># convert</span> -<span id="L14959" class="LineNr">14959 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L14960" class="LineNr">14960 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L14961" class="LineNr">14961 </span> <span class="subxComment"># no errors</span> +<span id="L14683" class="LineNr">14683 </span> <span class="subxComment">#</span> +<span id="L14684" class="LineNr">14684 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14685" class="LineNr">14685 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr addr handle int) <- copy 0\n"</span>) +<span id="L14686" class="LineNr">14686 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='120allocate.subx.html#L66'>allocate</a> *y\n"</span>) +<span id="L14687" class="LineNr">14687 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14688" class="LineNr">14688 </span> <span class="subxComment"># convert</span> +<span id="L14689" class="LineNr">14689 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L14690" class="LineNr">14690 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14691" class="LineNr">14691 </span> <span class="subxComment"># no errors</span> +<span id="L14692" class="LineNr">14692 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14693" class="LineNr">14693 </span> 5d/pop-to-ebp +<span id="L14694" class="LineNr">14694 </span> c3/return +<span id="L14695" class="LineNr">14695 </span> +<span id="L14696" class="LineNr">14696 </span><span class="subxTest">test-populate-with-no-inout</span>: +<span id="L14697" class="LineNr">14697 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14698" class="LineNr">14698 </span> 55/push-ebp +<span id="L14699" class="LineNr">14699 </span> 89/<- %ebp 4/r32/esp +<span id="L14700" class="LineNr">14700 </span> <span class="subxComment"># setup</span> +<span id="L14701" class="LineNr">14701 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14702" class="LineNr">14702 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14703" class="LineNr">14703 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14704" class="LineNr">14704 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14705" class="LineNr">14705 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14706" class="LineNr">14706 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14707" class="LineNr">14707 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14708" class="LineNr">14708 </span> 68/push 0/imm32 +<span id="L14709" class="LineNr">14709 </span> 68/push 0/imm32 +<span id="L14710" class="LineNr">14710 </span> 89/<- %edx 4/r32/esp +<span id="L14711" class="LineNr">14711 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14712" class="LineNr">14712 </span> <span class="subxComment">#</span> +<span id="L14713" class="LineNr">14713 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14714" class="LineNr">14714 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate\n"</span>) +<span id="L14715" class="LineNr">14715 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14716" class="LineNr">14716 </span> <span class="subxComment"># convert</span> +<span id="L14717" class="LineNr">14717 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14718" class="LineNr">14718 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14719" class="LineNr">14719 </span> <span class="subxComment"># restore ed</span> +<span id="L14720" class="LineNr">14720 </span> 89/<- %edx 4/r32/esp +<span id="L14721" class="LineNr">14721 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14722" class="LineNr">14722 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14723" class="Folded">14723 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14729" class="LineNr">14729 </span> <span class="subxComment"># check output</span> +<span id="L14730" class="LineNr">14730 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14696'>test-populate-with-no-inout</a>: output should be empty"</span>) +<span id="L14731" class="LineNr">14731 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'populate' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L14696'>test-populate-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14732" class="LineNr">14732 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14733" class="LineNr">14733 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14696'>test-populate-with-no-inout</a>: exit status"</span>) +<span id="L14734" class="LineNr">14734 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14735" class="LineNr">14735 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14736" class="LineNr">14736 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14737" class="LineNr">14737 </span> 5d/pop-to-ebp +<span id="L14738" class="LineNr">14738 </span> c3/return +<span id="L14739" class="LineNr">14739 </span> +<span id="L14740" class="LineNr">14740 </span><span class="subxTest">test-populate-with-too-many-inouts</span>: +<span id="L14741" class="LineNr">14741 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14742" class="LineNr">14742 </span> 55/push-ebp +<span id="L14743" class="LineNr">14743 </span> 89/<- %ebp 4/r32/esp +<span id="L14744" class="LineNr">14744 </span> <span class="subxComment"># setup</span> +<span id="L14745" class="LineNr">14745 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14746" class="LineNr">14746 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14747" class="LineNr">14747 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14748" class="LineNr">14748 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14749" class="LineNr">14749 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14750" class="LineNr">14750 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14751" class="LineNr">14751 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14752" class="LineNr">14752 </span> 68/push 0/imm32 +<span id="L14753" class="LineNr">14753 </span> 68/push 0/imm32 +<span id="L14754" class="LineNr">14754 </span> 89/<- %edx 4/r32/esp +<span id="L14755" class="LineNr">14755 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14756" class="LineNr">14756 </span> <span class="subxComment">#</span> +<span id="L14757" class="LineNr">14757 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14758" class="LineNr">14758 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr handle int)\n"</span>) +<span id="L14759" class="LineNr">14759 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate x, 3, 0\n"</span>) +<span id="L14760" class="LineNr">14760 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14761" class="LineNr">14761 </span> <span class="subxComment"># convert</span> +<span id="L14762" class="LineNr">14762 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14763" class="LineNr">14763 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14764" class="LineNr">14764 </span> <span class="subxComment"># restore ed</span> +<span id="L14765" class="LineNr">14765 </span> 89/<- %edx 4/r32/esp +<span id="L14766" class="LineNr">14766 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14767" class="LineNr">14767 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14768" class="Folded">14768 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14774" class="LineNr">14774 </span> <span class="subxComment"># check output</span> +<span id="L14775" class="LineNr">14775 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14740'>test-populate-with-too-many-inouts</a>: output should be empty"</span>) +<span id="L14776" class="LineNr">14776 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'populate' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L14740'>test-populate-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14777" class="LineNr">14777 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14778" class="LineNr">14778 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14740'>test-populate-with-too-many-inouts</a>: exit status"</span>) +<span id="L14779" class="LineNr">14779 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14780" class="LineNr">14780 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14781" class="LineNr">14781 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14782" class="LineNr">14782 </span> 5d/pop-to-ebp +<span id="L14783" class="LineNr">14783 </span> c3/return +<span id="L14784" class="LineNr">14784 </span> +<span id="L14785" class="LineNr">14785 </span><span class="subxTest">test-populate-with-output</span>: +<span id="L14786" class="LineNr">14786 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14787" class="LineNr">14787 </span> 55/push-ebp +<span id="L14788" class="LineNr">14788 </span> 89/<- %ebp 4/r32/esp +<span id="L14789" class="LineNr">14789 </span> <span class="subxComment"># setup</span> +<span id="L14790" class="LineNr">14790 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14791" class="LineNr">14791 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14792" class="LineNr">14792 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14793" class="LineNr">14793 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14794" class="LineNr">14794 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14795" class="LineNr">14795 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14796" class="LineNr">14796 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14797" class="LineNr">14797 </span> 68/push 0/imm32 +<span id="L14798" class="LineNr">14798 </span> 68/push 0/imm32 +<span id="L14799" class="LineNr">14799 </span> 89/<- %edx 4/r32/esp +<span id="L14800" class="LineNr">14800 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14801" class="LineNr">14801 </span> <span class="subxComment">#</span> +<span id="L14802" class="LineNr">14802 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14803" class="LineNr">14803 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy 0\n"</span>) +<span id="L14804" class="LineNr">14804 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr handle int) <- copy 0\n"</span>) +<span id="L14805" class="LineNr">14805 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- populate y\n"</span>) +<span id="L14806" class="LineNr">14806 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14807" class="LineNr">14807 </span> <span class="subxComment"># convert</span> +<span id="L14808" class="LineNr">14808 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14809" class="LineNr">14809 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14810" class="LineNr">14810 </span> <span class="subxComment"># restore ed</span> +<span id="L14811" class="LineNr">14811 </span> 89/<- %edx 4/r32/esp +<span id="L14812" class="LineNr">14812 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14813" class="LineNr">14813 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14814" class="Folded">14814 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14820" class="LineNr">14820 </span> <span class="subxComment"># check output</span> +<span id="L14821" class="LineNr">14821 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14785'>test-populate-with-output</a>: output should be empty"</span>) +<span id="L14822" class="LineNr">14822 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'populate' must not have any outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L14785'>test-populate-with-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14823" class="LineNr">14823 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14824" class="LineNr">14824 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14785'>test-populate-with-output</a>: exit status"</span>) +<span id="L14825" class="LineNr">14825 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14826" class="LineNr">14826 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14827" class="LineNr">14827 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14828" class="LineNr">14828 </span> 5d/pop-to-ebp +<span id="L14829" class="LineNr">14829 </span> c3/return +<span id="L14830" class="LineNr">14830 </span> +<span id="L14831" class="LineNr">14831 </span><span class="subxTest">test-populate-non-addr</span>: +<span id="L14832" class="LineNr">14832 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14833" class="LineNr">14833 </span> 55/push-ebp +<span id="L14834" class="LineNr">14834 </span> 89/<- %ebp 4/r32/esp +<span id="L14835" class="LineNr">14835 </span> <span class="subxComment"># setup</span> +<span id="L14836" class="LineNr">14836 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14837" class="LineNr">14837 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14838" class="LineNr">14838 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14839" class="LineNr">14839 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14840" class="LineNr">14840 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14841" class="LineNr">14841 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14842" class="LineNr">14842 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14843" class="LineNr">14843 </span> 68/push 0/imm32 +<span id="L14844" class="LineNr">14844 </span> 68/push 0/imm32 +<span id="L14845" class="LineNr">14845 </span> 89/<- %edx 4/r32/esp +<span id="L14846" class="LineNr">14846 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14847" class="LineNr">14847 </span> <span class="subxComment">#</span> +<span id="L14848" class="LineNr">14848 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14849" class="LineNr">14849 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: (handle int)\n"</span>) +<span id="L14850" class="LineNr">14850 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate y, 3\n"</span>) +<span id="L14851" class="LineNr">14851 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14852" class="LineNr">14852 </span> <span class="subxComment"># convert</span> +<span id="L14853" class="LineNr">14853 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14854" class="LineNr">14854 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14855" class="LineNr">14855 </span> <span class="subxComment"># restore ed</span> +<span id="L14856" class="LineNr">14856 </span> 89/<- %edx 4/r32/esp +<span id="L14857" class="LineNr">14857 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14858" class="LineNr">14858 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14859" class="Folded">14859 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14865" class="LineNr">14865 </span> <span class="subxComment"># check output</span> +<span id="L14866" class="LineNr">14866 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14831'>test-populate-non-addr</a>: output must be empty"</span>) +<span id="L14867" class="LineNr">14867 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt populate: first inout 'y' must have type (addr handle array ...)"</span> <span class="Constant">"F - <a href='mu.subx.html#L14831'>test-populate-non-addr</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14868" class="LineNr">14868 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14869" class="LineNr">14869 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14831'>test-populate-non-addr</a>: exit status"</span>) +<span id="L14870" class="LineNr">14870 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14871" class="LineNr">14871 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14872" class="LineNr">14872 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14873" class="LineNr">14873 </span> 5d/pop-to-ebp +<span id="L14874" class="LineNr">14874 </span> c3/return +<span id="L14875" class="LineNr">14875 </span> +<span id="L14876" class="LineNr">14876 </span><span class="subxTest">test-populate-non-addr-handle</span>: +<span id="L14877" class="LineNr">14877 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14878" class="LineNr">14878 </span> 55/push-ebp +<span id="L14879" class="LineNr">14879 </span> 89/<- %ebp 4/r32/esp +<span id="L14880" class="LineNr">14880 </span> <span class="subxComment"># setup</span> +<span id="L14881" class="LineNr">14881 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14882" class="LineNr">14882 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14883" class="LineNr">14883 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14884" class="LineNr">14884 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14885" class="LineNr">14885 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14886" class="LineNr">14886 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14887" class="LineNr">14887 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14888" class="LineNr">14888 </span> 68/push 0/imm32 +<span id="L14889" class="LineNr">14889 </span> 68/push 0/imm32 +<span id="L14890" class="LineNr">14890 </span> 89/<- %edx 4/r32/esp +<span id="L14891" class="LineNr">14891 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14892" class="LineNr">14892 </span> <span class="subxComment">#</span> +<span id="L14893" class="LineNr">14893 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14894" class="LineNr">14894 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr int) <- copy 0\n"</span>) +<span id="L14895" class="LineNr">14895 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate y, 3\n"</span>) +<span id="L14896" class="LineNr">14896 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14897" class="LineNr">14897 </span> <span class="subxComment"># convert</span> +<span id="L14898" class="LineNr">14898 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14899" class="LineNr">14899 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14900" class="LineNr">14900 </span> <span class="subxComment"># restore ed</span> +<span id="L14901" class="LineNr">14901 </span> 89/<- %edx 4/r32/esp +<span id="L14902" class="LineNr">14902 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14903" class="LineNr">14903 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14904" class="Folded">14904 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14910" class="LineNr">14910 </span> <span class="subxComment"># check output</span> +<span id="L14911" class="LineNr">14911 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14876'>test-populate-non-addr-handle</a>: output should be empty"</span>) +<span id="L14912" class="LineNr">14912 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt populate: first inout 'y' must have type (addr handle array ...)"</span> <span class="Constant">"F - <a href='mu.subx.html#L14876'>test-populate-non-addr-handle</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14913" class="LineNr">14913 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14914" class="LineNr">14914 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14876'>test-populate-non-addr-handle</a>: exit status"</span>) +<span id="L14915" class="LineNr">14915 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14916" class="LineNr">14916 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14917" class="LineNr">14917 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14918" class="LineNr">14918 </span> 5d/pop-to-ebp +<span id="L14919" class="LineNr">14919 </span> c3/return +<span id="L14920" class="LineNr">14920 </span> +<span id="L14921" class="LineNr">14921 </span><span class="subxTest">test-populate-non-addr-handle-array</span>: +<span id="L14922" class="LineNr">14922 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14923" class="LineNr">14923 </span> 55/push-ebp +<span id="L14924" class="LineNr">14924 </span> 89/<- %ebp 4/r32/esp +<span id="L14925" class="LineNr">14925 </span> <span class="subxComment"># setup</span> +<span id="L14926" class="LineNr">14926 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14927" class="LineNr">14927 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14928" class="LineNr">14928 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14929" class="LineNr">14929 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14930" class="LineNr">14930 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14931" class="LineNr">14931 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14932" class="LineNr">14932 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14933" class="LineNr">14933 </span> 68/push 0/imm32 +<span id="L14934" class="LineNr">14934 </span> 68/push 0/imm32 +<span id="L14935" class="LineNr">14935 </span> 89/<- %edx 4/r32/esp +<span id="L14936" class="LineNr">14936 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14937" class="LineNr">14937 </span> <span class="subxComment">#</span> +<span id="L14938" class="LineNr">14938 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14939" class="LineNr">14939 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr handle int) <- copy 0\n"</span>) +<span id="L14940" class="LineNr">14940 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate y, 3\n"</span>) +<span id="L14941" class="LineNr">14941 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14942" class="LineNr">14942 </span> <span class="subxComment"># convert</span> +<span id="L14943" class="LineNr">14943 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14944" class="LineNr">14944 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14945" class="LineNr">14945 </span> <span class="subxComment"># restore ed</span> +<span id="L14946" class="LineNr">14946 </span> 89/<- %edx 4/r32/esp +<span id="L14947" class="LineNr">14947 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14948" class="LineNr">14948 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14949" class="Folded">14949 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14955" class="LineNr">14955 </span> <span class="subxComment"># check output</span> +<span id="L14956" class="LineNr">14956 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14921'>test-populate-non-addr-handle-array</a>: output should be empty"</span>) +<span id="L14957" class="LineNr">14957 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt populate: first inout 'y' must have type (addr handle array ...)"</span> <span class="Constant">"F - <a href='mu.subx.html#L14921'>test-populate-non-addr-handle-array</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14958" class="LineNr">14958 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14959" class="LineNr">14959 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14921'>test-populate-non-addr-handle-array</a>: exit status"</span>) +<span id="L14960" class="LineNr">14960 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14961" class="LineNr">14961 </span> 81 0/subop/add %esp 8/imm32 <span id="L14962" class="LineNr">14962 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L14963" class="LineNr">14963 </span> 5d/pop-to-ebp <span id="L14964" class="LineNr">14964 </span> c3/return <span id="L14965" class="LineNr">14965 </span> -<span id="L14966" class="LineNr">14966 </span><span class="subxTest">test-populate-stream-with-no-inout</span>: +<span id="L14966" class="LineNr">14966 </span><span class="subxTest">test-populate-deref-address</span>: <span id="L14967" class="LineNr">14967 </span> <span class="subxS1Comment"># . prologue</span> <span id="L14968" class="LineNr">14968 </span> 55/push-ebp <span id="L14969" class="LineNr">14969 </span> 89/<- %ebp 4/r32/esp @@ -13559,260 +13559,260 @@ if ('onhashchange' in window) { <span id="L14972" class="LineNr">14972 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) <span id="L14973" class="LineNr">14973 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) <span id="L14974" class="LineNr">14974 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14975" class="LineNr">14975 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L14976" class="LineNr">14976 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14977" class="LineNr">14977 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L14978" class="LineNr">14978 </span> 68/push 0/imm32 -<span id="L14979" class="LineNr">14979 </span> 68/push 0/imm32 -<span id="L14980" class="LineNr">14980 </span> 89/<- %edx 4/r32/esp -<span id="L14981" class="LineNr">14981 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14982" class="LineNr">14982 </span> <span class="subxComment">#</span> -<span id="L14983" class="LineNr">14983 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14984" class="LineNr">14984 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate-stream\n"</span>) -<span id="L14985" class="LineNr">14985 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14986" class="LineNr">14986 </span> <span class="subxComment"># convert</span> -<span id="L14987" class="LineNr">14987 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L14988" class="LineNr">14988 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L14989" class="LineNr">14989 </span> <span class="subxComment"># restore ed</span> -<span id="L14990" class="LineNr">14990 </span> 89/<- %edx 4/r32/esp -<span id="L14991" class="LineNr">14991 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L14992" class="LineNr">14992 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L14993" class="Folded">14993 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14999" class="LineNr">14999 </span> <span class="subxComment"># check output</span> -<span id="L15000" class="LineNr">15000 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14966'>test-populate-stream-with-no-inout</a>: output should be empty"</span>) -<span id="L15001" class="LineNr">15001 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'populate-stream' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L14966'>test-populate-stream-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L15002" class="LineNr">15002 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L15003" class="LineNr">15003 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14966'>test-populate-stream-with-no-inout</a>: exit status"</span>) -<span id="L15004" class="LineNr">15004 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L15005" class="LineNr">15005 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15006" class="LineNr">15006 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15007" class="LineNr">15007 </span> 5d/pop-to-ebp -<span id="L15008" class="LineNr">15008 </span> c3/return -<span id="L15009" class="LineNr">15009 </span> -<span id="L15010" class="LineNr">15010 </span><span class="subxTest">test-populate-stream-with-too-many-inouts</span>: -<span id="L15011" class="LineNr">15011 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15012" class="LineNr">15012 </span> 55/push-ebp -<span id="L15013" class="LineNr">15013 </span> 89/<- %ebp 4/r32/esp -<span id="L15014" class="LineNr">15014 </span> <span class="subxComment"># setup</span> -<span id="L15015" class="LineNr">15015 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L15016" class="LineNr">15016 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L15017" class="LineNr">15017 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L15018" class="LineNr">15018 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L15019" class="LineNr">15019 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L15020" class="LineNr">15020 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L15021" class="LineNr">15021 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L15022" class="LineNr">15022 </span> 68/push 0/imm32 -<span id="L15023" class="LineNr">15023 </span> 68/push 0/imm32 -<span id="L15024" class="LineNr">15024 </span> 89/<- %edx 4/r32/esp -<span id="L15025" class="LineNr">15025 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L15026" class="LineNr">15026 </span> <span class="subxComment">#</span> -<span id="L15027" class="LineNr">15027 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L15028" class="LineNr">15028 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr handle int)\n"</span>) -<span id="L15029" class="LineNr">15029 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate-stream x, 3, 0\n"</span>) -<span id="L15030" class="LineNr">15030 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L15031" class="LineNr">15031 </span> <span class="subxComment"># convert</span> -<span id="L15032" class="LineNr">15032 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L15033" class="LineNr">15033 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L15034" class="LineNr">15034 </span> <span class="subxComment"># restore ed</span> -<span id="L15035" class="LineNr">15035 </span> 89/<- %edx 4/r32/esp -<span id="L15036" class="LineNr">15036 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L15037" class="LineNr">15037 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L15038" class="Folded">15038 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L15044" class="LineNr">15044 </span> <span class="subxComment"># check output</span> -<span id="L15045" class="LineNr">15045 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15010'>test-populate-stream-with-too-many-inouts</a>: output should be empty"</span>) -<span id="L15046" class="LineNr">15046 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'populate-stream' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L15010'>test-populate-stream-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L15047" class="LineNr">15047 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L15048" class="LineNr">15048 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15010'>test-populate-stream-with-too-many-inouts</a>: exit status"</span>) -<span id="L15049" class="LineNr">15049 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L15050" class="LineNr">15050 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15051" class="LineNr">15051 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15052" class="LineNr">15052 </span> 5d/pop-to-ebp -<span id="L15053" class="LineNr">15053 </span> c3/return -<span id="L15054" class="LineNr">15054 </span> -<span id="L15055" class="LineNr">15055 </span><span class="subxTest">test-populate-stream-with-output</span>: -<span id="L15056" class="LineNr">15056 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15057" class="LineNr">15057 </span> 55/push-ebp -<span id="L15058" class="LineNr">15058 </span> 89/<- %ebp 4/r32/esp -<span id="L15059" class="LineNr">15059 </span> <span class="subxComment"># setup</span> -<span id="L15060" class="LineNr">15060 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L15061" class="LineNr">15061 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L15062" class="LineNr">15062 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L15063" class="LineNr">15063 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L15064" class="LineNr">15064 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L15065" class="LineNr">15065 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L15066" class="LineNr">15066 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L15067" class="LineNr">15067 </span> 68/push 0/imm32 -<span id="L15068" class="LineNr">15068 </span> 68/push 0/imm32 -<span id="L15069" class="LineNr">15069 </span> 89/<- %edx 4/r32/esp -<span id="L15070" class="LineNr">15070 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L15071" class="LineNr">15071 </span> <span class="subxComment">#</span> -<span id="L15072" class="LineNr">15072 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L15073" class="LineNr">15073 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy 0\n"</span>) -<span id="L15074" class="LineNr">15074 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr handle int) <- copy 0\n"</span>) -<span id="L15075" class="LineNr">15075 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- populate-stream y\n"</span>) -<span id="L15076" class="LineNr">15076 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L15077" class="LineNr">15077 </span> <span class="subxComment"># convert</span> -<span id="L15078" class="LineNr">15078 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L15079" class="LineNr">15079 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L15080" class="LineNr">15080 </span> <span class="subxComment"># restore ed</span> -<span id="L15081" class="LineNr">15081 </span> 89/<- %edx 4/r32/esp -<span id="L15082" class="LineNr">15082 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L15083" class="LineNr">15083 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L15084" class="Folded">15084 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L15090" class="LineNr">15090 </span> <span class="subxComment"># check output</span> -<span id="L15091" class="LineNr">15091 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15055'>test-populate-stream-with-output</a>: output should be empty"</span>) -<span id="L15092" class="LineNr">15092 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'populate-stream' must not have any outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L15055'>test-populate-stream-with-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L15093" class="LineNr">15093 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L15094" class="LineNr">15094 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15055'>test-populate-stream-with-output</a>: exit status"</span>) -<span id="L15095" class="LineNr">15095 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L15096" class="LineNr">15096 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15097" class="LineNr">15097 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15098" class="LineNr">15098 </span> 5d/pop-to-ebp -<span id="L15099" class="LineNr">15099 </span> c3/return -<span id="L15100" class="LineNr">15100 </span> -<span id="L15101" class="LineNr">15101 </span><span class="subxTest">test-populate-stream-non-addr</span>: -<span id="L15102" class="LineNr">15102 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15103" class="LineNr">15103 </span> 55/push-ebp -<span id="L15104" class="LineNr">15104 </span> 89/<- %ebp 4/r32/esp -<span id="L15105" class="LineNr">15105 </span> <span class="subxComment"># setup</span> -<span id="L15106" class="LineNr">15106 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L15107" class="LineNr">15107 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L15108" class="LineNr">15108 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L15109" class="LineNr">15109 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L15110" class="LineNr">15110 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L15111" class="LineNr">15111 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L15112" class="LineNr">15112 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L15113" class="LineNr">15113 </span> 68/push 0/imm32 -<span id="L15114" class="LineNr">15114 </span> 68/push 0/imm32 -<span id="L15115" class="LineNr">15115 </span> 89/<- %edx 4/r32/esp -<span id="L15116" class="LineNr">15116 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L15117" class="LineNr">15117 </span> <span class="subxComment">#</span> -<span id="L15118" class="LineNr">15118 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L15119" class="LineNr">15119 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: (handle int)\n"</span>) -<span id="L15120" class="LineNr">15120 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate-stream y, 3\n"</span>) -<span id="L15121" class="LineNr">15121 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L15122" class="LineNr">15122 </span> <span class="subxComment"># convert</span> -<span id="L15123" class="LineNr">15123 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L15124" class="LineNr">15124 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L15125" class="LineNr">15125 </span> <span class="subxComment"># restore ed</span> -<span id="L15126" class="LineNr">15126 </span> 89/<- %edx 4/r32/esp -<span id="L15127" class="LineNr">15127 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L15128" class="LineNr">15128 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L15129" class="Folded">15129 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L15135" class="LineNr">15135 </span> <span class="subxComment"># check output</span> -<span id="L15136" class="LineNr">15136 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15101'>test-populate-stream-non-addr</a>: output must be empty"</span>) -<span id="L15137" class="LineNr">15137 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt populate-stream: first inout 'y' must have type (addr handle stream ...)"</span> <span class="Constant">"F - <a href='mu.subx.html#L15101'>test-populate-stream-non-addr</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L15138" class="LineNr">15138 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L15139" class="LineNr">15139 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15101'>test-populate-stream-non-addr</a>: exit status"</span>) -<span id="L15140" class="LineNr">15140 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L15141" class="LineNr">15141 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15142" class="LineNr">15142 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15143" class="LineNr">15143 </span> 5d/pop-to-ebp -<span id="L15144" class="LineNr">15144 </span> c3/return -<span id="L15145" class="LineNr">15145 </span> -<span id="L15146" class="LineNr">15146 </span><span class="subxTest">test-populate-stream-non-addr-handle</span>: -<span id="L15147" class="LineNr">15147 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15148" class="LineNr">15148 </span> 55/push-ebp -<span id="L15149" class="LineNr">15149 </span> 89/<- %ebp 4/r32/esp -<span id="L15150" class="LineNr">15150 </span> <span class="subxComment"># setup</span> -<span id="L15151" class="LineNr">15151 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L15152" class="LineNr">15152 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L15153" class="LineNr">15153 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L15154" class="LineNr">15154 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L15155" class="LineNr">15155 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L15156" class="LineNr">15156 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L15157" class="LineNr">15157 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L15158" class="LineNr">15158 </span> 68/push 0/imm32 -<span id="L15159" class="LineNr">15159 </span> 68/push 0/imm32 -<span id="L15160" class="LineNr">15160 </span> 89/<- %edx 4/r32/esp -<span id="L15161" class="LineNr">15161 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L15162" class="LineNr">15162 </span> <span class="subxComment">#</span> -<span id="L15163" class="LineNr">15163 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L15164" class="LineNr">15164 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr int) <- copy 0\n"</span>) -<span id="L15165" class="LineNr">15165 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate-stream y, 3\n"</span>) -<span id="L15166" class="LineNr">15166 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L15167" class="LineNr">15167 </span> <span class="subxComment"># convert</span> -<span id="L15168" class="LineNr">15168 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L15169" class="LineNr">15169 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L15170" class="LineNr">15170 </span> <span class="subxComment"># restore ed</span> -<span id="L15171" class="LineNr">15171 </span> 89/<- %edx 4/r32/esp -<span id="L15172" class="LineNr">15172 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L15173" class="LineNr">15173 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L15174" class="Folded">15174 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L15180" class="LineNr">15180 </span> <span class="subxComment"># check output</span> -<span id="L15181" class="LineNr">15181 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15146'>test-populate-stream-non-addr-handle</a>: output should be empty"</span>) -<span id="L15182" class="LineNr">15182 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt populate-stream: first inout 'y' must have type (addr handle stream ...)"</span> <span class="Constant">"F - <a href='mu.subx.html#L15146'>test-populate-stream-non-addr-handle</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L15183" class="LineNr">15183 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L15184" class="LineNr">15184 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15146'>test-populate-stream-non-addr-handle</a>: exit status"</span>) -<span id="L15185" class="LineNr">15185 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L15186" class="LineNr">15186 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15187" class="LineNr">15187 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15188" class="LineNr">15188 </span> 5d/pop-to-ebp -<span id="L15189" class="LineNr">15189 </span> c3/return -<span id="L15190" class="LineNr">15190 </span> -<span id="L15191" class="LineNr">15191 </span><span class="subxTest">test-populate-stream-non-addr-handle-stream</span>: -<span id="L15192" class="LineNr">15192 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15193" class="LineNr">15193 </span> 55/push-ebp -<span id="L15194" class="LineNr">15194 </span> 89/<- %ebp 4/r32/esp -<span id="L15195" class="LineNr">15195 </span> <span class="subxComment"># setup</span> -<span id="L15196" class="LineNr">15196 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L15197" class="LineNr">15197 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L15198" class="LineNr">15198 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L15199" class="LineNr">15199 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L15200" class="LineNr">15200 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L15201" class="LineNr">15201 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L15202" class="LineNr">15202 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L15203" class="LineNr">15203 </span> 68/push 0/imm32 -<span id="L15204" class="LineNr">15204 </span> 68/push 0/imm32 -<span id="L15205" class="LineNr">15205 </span> 89/<- %edx 4/r32/esp -<span id="L15206" class="LineNr">15206 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L15207" class="LineNr">15207 </span> <span class="subxComment">#</span> -<span id="L15208" class="LineNr">15208 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L15209" class="LineNr">15209 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr handle int) <- copy 0\n"</span>) -<span id="L15210" class="LineNr">15210 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate-stream y, 3\n"</span>) -<span id="L15211" class="LineNr">15211 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L15212" class="LineNr">15212 </span> <span class="subxComment"># convert</span> -<span id="L15213" class="LineNr">15213 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L15214" class="LineNr">15214 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L15215" class="LineNr">15215 </span> <span class="subxComment"># restore ed</span> -<span id="L15216" class="LineNr">15216 </span> 89/<- %edx 4/r32/esp -<span id="L15217" class="LineNr">15217 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L15218" class="LineNr">15218 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L15219" class="Folded">15219 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L15225" class="LineNr">15225 </span> <span class="subxComment"># check output</span> -<span id="L15226" class="LineNr">15226 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15191'>test-populate-stream-non-addr-handle-stream</a>: output should be empty"</span>) -<span id="L15227" class="LineNr">15227 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt populate-stream: first inout 'y' must have type (addr handle stream ...)"</span> <span class="Constant">"F - <a href='mu.subx.html#L15191'>test-populate-stream-non-addr-handle-stream</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L15228" class="LineNr">15228 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L15229" class="LineNr">15229 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15191'>test-populate-stream-non-addr-handle-stream</a>: exit status"</span>) -<span id="L15230" class="LineNr">15230 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L15231" class="LineNr">15231 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15232" class="LineNr">15232 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15233" class="LineNr">15233 </span> 5d/pop-to-ebp -<span id="L15234" class="LineNr">15234 </span> c3/return -<span id="L15235" class="LineNr">15235 </span> -<span id="L15236" class="LineNr">15236 </span><span class="subxTest">test-populate-stream-deref-address</span>: -<span id="L15237" class="LineNr">15237 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15238" class="LineNr">15238 </span> 55/push-ebp -<span id="L15239" class="LineNr">15239 </span> 89/<- %ebp 4/r32/esp -<span id="L15240" class="LineNr">15240 </span> <span class="subxComment"># setup</span> -<span id="L15241" class="LineNr">15241 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L15242" class="LineNr">15242 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L15243" class="LineNr">15243 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L15244" class="LineNr">15244 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L15245" class="LineNr">15245 </span> <span class="subxComment">#</span> -<span id="L15246" class="LineNr">15246 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L15247" class="LineNr">15247 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr addr handle stream int) <- copy 0\n"</span>) -<span id="L15248" class="LineNr">15248 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate-stream *y, 3\n"</span>) -<span id="L15249" class="LineNr">15249 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L15250" class="LineNr">15250 </span> <span class="subxComment"># convert</span> -<span id="L15251" class="LineNr">15251 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L15252" class="LineNr">15252 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L15253" class="LineNr">15253 </span> <span class="subxComment"># no errors</span> +<span id="L14975" class="LineNr">14975 </span> <span class="subxComment">#</span> +<span id="L14976" class="LineNr">14976 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14977" class="LineNr">14977 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr addr handle array int) <- copy 0\n"</span>) +<span id="L14978" class="LineNr">14978 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate *y, 3\n"</span>) +<span id="L14979" class="LineNr">14979 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14980" class="LineNr">14980 </span> <span class="subxComment"># convert</span> +<span id="L14981" class="LineNr">14981 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L14982" class="LineNr">14982 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14983" class="LineNr">14983 </span> <span class="subxComment"># no errors</span> +<span id="L14984" class="LineNr">14984 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14985" class="LineNr">14985 </span> 5d/pop-to-ebp +<span id="L14986" class="LineNr">14986 </span> c3/return +<span id="L14987" class="LineNr">14987 </span> +<span id="L14988" class="LineNr">14988 </span><span class="subxTest">test-populate-stream-with-no-inout</span>: +<span id="L14989" class="LineNr">14989 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14990" class="LineNr">14990 </span> 55/push-ebp +<span id="L14991" class="LineNr">14991 </span> 89/<- %ebp 4/r32/esp +<span id="L14992" class="LineNr">14992 </span> <span class="subxComment"># setup</span> +<span id="L14993" class="LineNr">14993 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14994" class="LineNr">14994 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14995" class="LineNr">14995 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14996" class="LineNr">14996 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14997" class="LineNr">14997 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14998" class="LineNr">14998 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14999" class="LineNr">14999 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L15000" class="LineNr">15000 </span> 68/push 0/imm32 +<span id="L15001" class="LineNr">15001 </span> 68/push 0/imm32 +<span id="L15002" class="LineNr">15002 </span> 89/<- %edx 4/r32/esp +<span id="L15003" class="LineNr">15003 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L15004" class="LineNr">15004 </span> <span class="subxComment">#</span> +<span id="L15005" class="LineNr">15005 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L15006" class="LineNr">15006 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate-stream\n"</span>) +<span id="L15007" class="LineNr">15007 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L15008" class="LineNr">15008 </span> <span class="subxComment"># convert</span> +<span id="L15009" class="LineNr">15009 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L15010" class="LineNr">15010 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L15011" class="LineNr">15011 </span> <span class="subxComment"># restore ed</span> +<span id="L15012" class="LineNr">15012 </span> 89/<- %edx 4/r32/esp +<span id="L15013" class="LineNr">15013 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15014" class="LineNr">15014 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L15015" class="Folded">15015 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15021" class="LineNr">15021 </span> <span class="subxComment"># check output</span> +<span id="L15022" class="LineNr">15022 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14988'>test-populate-stream-with-no-inout</a>: output should be empty"</span>) +<span id="L15023" class="LineNr">15023 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'populate-stream' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L14988'>test-populate-stream-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L15024" class="LineNr">15024 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L15025" class="LineNr">15025 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14988'>test-populate-stream-with-no-inout</a>: exit status"</span>) +<span id="L15026" class="LineNr">15026 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L15027" class="LineNr">15027 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15028" class="LineNr">15028 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15029" class="LineNr">15029 </span> 5d/pop-to-ebp +<span id="L15030" class="LineNr">15030 </span> c3/return +<span id="L15031" class="LineNr">15031 </span> +<span id="L15032" class="LineNr">15032 </span><span class="subxTest">test-populate-stream-with-too-many-inouts</span>: +<span id="L15033" class="LineNr">15033 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15034" class="LineNr">15034 </span> 55/push-ebp +<span id="L15035" class="LineNr">15035 </span> 89/<- %ebp 4/r32/esp +<span id="L15036" class="LineNr">15036 </span> <span class="subxComment"># setup</span> +<span id="L15037" class="LineNr">15037 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15038" class="LineNr">15038 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L15039" class="LineNr">15039 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L15040" class="LineNr">15040 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L15041" class="LineNr">15041 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L15042" class="LineNr">15042 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L15043" class="LineNr">15043 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L15044" class="LineNr">15044 </span> 68/push 0/imm32 +<span id="L15045" class="LineNr">15045 </span> 68/push 0/imm32 +<span id="L15046" class="LineNr">15046 </span> 89/<- %edx 4/r32/esp +<span id="L15047" class="LineNr">15047 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L15048" class="LineNr">15048 </span> <span class="subxComment">#</span> +<span id="L15049" class="LineNr">15049 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L15050" class="LineNr">15050 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr handle int)\n"</span>) +<span id="L15051" class="LineNr">15051 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate-stream x, 3, 0\n"</span>) +<span id="L15052" class="LineNr">15052 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L15053" class="LineNr">15053 </span> <span class="subxComment"># convert</span> +<span id="L15054" class="LineNr">15054 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L15055" class="LineNr">15055 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L15056" class="LineNr">15056 </span> <span class="subxComment"># restore ed</span> +<span id="L15057" class="LineNr">15057 </span> 89/<- %edx 4/r32/esp +<span id="L15058" class="LineNr">15058 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15059" class="LineNr">15059 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L15060" class="Folded">15060 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15066" class="LineNr">15066 </span> <span class="subxComment"># check output</span> +<span id="L15067" class="LineNr">15067 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15032'>test-populate-stream-with-too-many-inouts</a>: output should be empty"</span>) +<span id="L15068" class="LineNr">15068 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'populate-stream' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L15032'>test-populate-stream-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L15069" class="LineNr">15069 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L15070" class="LineNr">15070 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15032'>test-populate-stream-with-too-many-inouts</a>: exit status"</span>) +<span id="L15071" class="LineNr">15071 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L15072" class="LineNr">15072 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15073" class="LineNr">15073 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15074" class="LineNr">15074 </span> 5d/pop-to-ebp +<span id="L15075" class="LineNr">15075 </span> c3/return +<span id="L15076" class="LineNr">15076 </span> +<span id="L15077" class="LineNr">15077 </span><span class="subxTest">test-populate-stream-with-output</span>: +<span id="L15078" class="LineNr">15078 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15079" class="LineNr">15079 </span> 55/push-ebp +<span id="L15080" class="LineNr">15080 </span> 89/<- %ebp 4/r32/esp +<span id="L15081" class="LineNr">15081 </span> <span class="subxComment"># setup</span> +<span id="L15082" class="LineNr">15082 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15083" class="LineNr">15083 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L15084" class="LineNr">15084 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L15085" class="LineNr">15085 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L15086" class="LineNr">15086 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L15087" class="LineNr">15087 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L15088" class="LineNr">15088 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L15089" class="LineNr">15089 </span> 68/push 0/imm32 +<span id="L15090" class="LineNr">15090 </span> 68/push 0/imm32 +<span id="L15091" class="LineNr">15091 </span> 89/<- %edx 4/r32/esp +<span id="L15092" class="LineNr">15092 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L15093" class="LineNr">15093 </span> <span class="subxComment">#</span> +<span id="L15094" class="LineNr">15094 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L15095" class="LineNr">15095 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy 0\n"</span>) +<span id="L15096" class="LineNr">15096 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr handle int) <- copy 0\n"</span>) +<span id="L15097" class="LineNr">15097 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- populate-stream y\n"</span>) +<span id="L15098" class="LineNr">15098 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L15099" class="LineNr">15099 </span> <span class="subxComment"># convert</span> +<span id="L15100" class="LineNr">15100 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L15101" class="LineNr">15101 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L15102" class="LineNr">15102 </span> <span class="subxComment"># restore ed</span> +<span id="L15103" class="LineNr">15103 </span> 89/<- %edx 4/r32/esp +<span id="L15104" class="LineNr">15104 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15105" class="LineNr">15105 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L15106" class="Folded">15106 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15112" class="LineNr">15112 </span> <span class="subxComment"># check output</span> +<span id="L15113" class="LineNr">15113 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15077'>test-populate-stream-with-output</a>: output should be empty"</span>) +<span id="L15114" class="LineNr">15114 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'populate-stream' must not have any outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L15077'>test-populate-stream-with-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L15115" class="LineNr">15115 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L15116" class="LineNr">15116 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15077'>test-populate-stream-with-output</a>: exit status"</span>) +<span id="L15117" class="LineNr">15117 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L15118" class="LineNr">15118 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15119" class="LineNr">15119 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15120" class="LineNr">15120 </span> 5d/pop-to-ebp +<span id="L15121" class="LineNr">15121 </span> c3/return +<span id="L15122" class="LineNr">15122 </span> +<span id="L15123" class="LineNr">15123 </span><span class="subxTest">test-populate-stream-non-addr</span>: +<span id="L15124" class="LineNr">15124 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15125" class="LineNr">15125 </span> 55/push-ebp +<span id="L15126" class="LineNr">15126 </span> 89/<- %ebp 4/r32/esp +<span id="L15127" class="LineNr">15127 </span> <span class="subxComment"># setup</span> +<span id="L15128" class="LineNr">15128 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15129" class="LineNr">15129 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L15130" class="LineNr">15130 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L15131" class="LineNr">15131 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L15132" class="LineNr">15132 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L15133" class="LineNr">15133 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L15134" class="LineNr">15134 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L15135" class="LineNr">15135 </span> 68/push 0/imm32 +<span id="L15136" class="LineNr">15136 </span> 68/push 0/imm32 +<span id="L15137" class="LineNr">15137 </span> 89/<- %edx 4/r32/esp +<span id="L15138" class="LineNr">15138 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L15139" class="LineNr">15139 </span> <span class="subxComment">#</span> +<span id="L15140" class="LineNr">15140 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L15141" class="LineNr">15141 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: (handle int)\n"</span>) +<span id="L15142" class="LineNr">15142 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate-stream y, 3\n"</span>) +<span id="L15143" class="LineNr">15143 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L15144" class="LineNr">15144 </span> <span class="subxComment"># convert</span> +<span id="L15145" class="LineNr">15145 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L15146" class="LineNr">15146 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L15147" class="LineNr">15147 </span> <span class="subxComment"># restore ed</span> +<span id="L15148" class="LineNr">15148 </span> 89/<- %edx 4/r32/esp +<span id="L15149" class="LineNr">15149 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15150" class="LineNr">15150 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L15151" class="Folded">15151 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15157" class="LineNr">15157 </span> <span class="subxComment"># check output</span> +<span id="L15158" class="LineNr">15158 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15123'>test-populate-stream-non-addr</a>: output must be empty"</span>) +<span id="L15159" class="LineNr">15159 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt populate-stream: first inout 'y' must have type (addr handle stream ...)"</span> <span class="Constant">"F - <a href='mu.subx.html#L15123'>test-populate-stream-non-addr</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L15160" class="LineNr">15160 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L15161" class="LineNr">15161 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15123'>test-populate-stream-non-addr</a>: exit status"</span>) +<span id="L15162" class="LineNr">15162 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L15163" class="LineNr">15163 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15164" class="LineNr">15164 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15165" class="LineNr">15165 </span> 5d/pop-to-ebp +<span id="L15166" class="LineNr">15166 </span> c3/return +<span id="L15167" class="LineNr">15167 </span> +<span id="L15168" class="LineNr">15168 </span><span class="subxTest">test-populate-stream-non-addr-handle</span>: +<span id="L15169" class="LineNr">15169 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15170" class="LineNr">15170 </span> 55/push-ebp +<span id="L15171" class="LineNr">15171 </span> 89/<- %ebp 4/r32/esp +<span id="L15172" class="LineNr">15172 </span> <span class="subxComment"># setup</span> +<span id="L15173" class="LineNr">15173 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15174" class="LineNr">15174 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L15175" class="LineNr">15175 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L15176" class="LineNr">15176 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L15177" class="LineNr">15177 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L15178" class="LineNr">15178 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L15179" class="LineNr">15179 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L15180" class="LineNr">15180 </span> 68/push 0/imm32 +<span id="L15181" class="LineNr">15181 </span> 68/push 0/imm32 +<span id="L15182" class="LineNr">15182 </span> 89/<- %edx 4/r32/esp +<span id="L15183" class="LineNr">15183 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L15184" class="LineNr">15184 </span> <span class="subxComment">#</span> +<span id="L15185" class="LineNr">15185 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L15186" class="LineNr">15186 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr int) <- copy 0\n"</span>) +<span id="L15187" class="LineNr">15187 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate-stream y, 3\n"</span>) +<span id="L15188" class="LineNr">15188 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L15189" class="LineNr">15189 </span> <span class="subxComment"># convert</span> +<span id="L15190" class="LineNr">15190 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L15191" class="LineNr">15191 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L15192" class="LineNr">15192 </span> <span class="subxComment"># restore ed</span> +<span id="L15193" class="LineNr">15193 </span> 89/<- %edx 4/r32/esp +<span id="L15194" class="LineNr">15194 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15195" class="LineNr">15195 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L15196" class="Folded">15196 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15202" class="LineNr">15202 </span> <span class="subxComment"># check output</span> +<span id="L15203" class="LineNr">15203 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15168'>test-populate-stream-non-addr-handle</a>: output should be empty"</span>) +<span id="L15204" class="LineNr">15204 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt populate-stream: first inout 'y' must have type (addr handle stream ...)"</span> <span class="Constant">"F - <a href='mu.subx.html#L15168'>test-populate-stream-non-addr-handle</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L15205" class="LineNr">15205 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L15206" class="LineNr">15206 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15168'>test-populate-stream-non-addr-handle</a>: exit status"</span>) +<span id="L15207" class="LineNr">15207 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L15208" class="LineNr">15208 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15209" class="LineNr">15209 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15210" class="LineNr">15210 </span> 5d/pop-to-ebp +<span id="L15211" class="LineNr">15211 </span> c3/return +<span id="L15212" class="LineNr">15212 </span> +<span id="L15213" class="LineNr">15213 </span><span class="subxTest">test-populate-stream-non-addr-handle-stream</span>: +<span id="L15214" class="LineNr">15214 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15215" class="LineNr">15215 </span> 55/push-ebp +<span id="L15216" class="LineNr">15216 </span> 89/<- %ebp 4/r32/esp +<span id="L15217" class="LineNr">15217 </span> <span class="subxComment"># setup</span> +<span id="L15218" class="LineNr">15218 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15219" class="LineNr">15219 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L15220" class="LineNr">15220 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L15221" class="LineNr">15221 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L15222" class="LineNr">15222 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L15223" class="LineNr">15223 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L15224" class="LineNr">15224 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L15225" class="LineNr">15225 </span> 68/push 0/imm32 +<span id="L15226" class="LineNr">15226 </span> 68/push 0/imm32 +<span id="L15227" class="LineNr">15227 </span> 89/<- %edx 4/r32/esp +<span id="L15228" class="LineNr">15228 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L15229" class="LineNr">15229 </span> <span class="subxComment">#</span> +<span id="L15230" class="LineNr">15230 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L15231" class="LineNr">15231 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr handle int) <- copy 0\n"</span>) +<span id="L15232" class="LineNr">15232 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate-stream y, 3\n"</span>) +<span id="L15233" class="LineNr">15233 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L15234" class="LineNr">15234 </span> <span class="subxComment"># convert</span> +<span id="L15235" class="LineNr">15235 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L15236" class="LineNr">15236 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L15237" class="LineNr">15237 </span> <span class="subxComment"># restore ed</span> +<span id="L15238" class="LineNr">15238 </span> 89/<- %edx 4/r32/esp +<span id="L15239" class="LineNr">15239 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15240" class="LineNr">15240 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L15241" class="Folded">15241 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15247" class="LineNr">15247 </span> <span class="subxComment"># check output</span> +<span id="L15248" class="LineNr">15248 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15213'>test-populate-stream-non-addr-handle-stream</a>: output should be empty"</span>) +<span id="L15249" class="LineNr">15249 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt populate-stream: first inout 'y' must have type (addr handle stream ...)"</span> <span class="Constant">"F - <a href='mu.subx.html#L15213'>test-populate-stream-non-addr-handle-stream</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L15250" class="LineNr">15250 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L15251" class="LineNr">15251 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15213'>test-populate-stream-non-addr-handle-stream</a>: exit status"</span>) +<span id="L15252" class="LineNr">15252 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L15253" class="LineNr">15253 </span> 81 0/subop/add %esp 8/imm32 <span id="L15254" class="LineNr">15254 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L15255" class="LineNr">15255 </span> 5d/pop-to-ebp <span id="L15256" class="LineNr">15256 </span> c3/return <span id="L15257" class="LineNr">15257 </span> -<span id="L15258" class="LineNr">15258 </span><span class="subxTest">test-convert-with-no-inout</span>: +<span id="L15258" class="LineNr">15258 </span><span class="subxTest">test-populate-stream-deref-address</span>: <span id="L15259" class="LineNr">15259 </span> <span class="subxS1Comment"># . prologue</span> <span id="L15260" class="LineNr">15260 </span> 55/push-ebp <span id="L15261" class="LineNr">15261 </span> 89/<- %ebp 4/r32/esp @@ -13821,178 +13821,178 @@ if ('onhashchange' in window) { <span id="L15264" class="LineNr">15264 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) <span id="L15265" class="LineNr">15265 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) <span id="L15266" class="LineNr">15266 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L15267" class="LineNr">15267 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L15268" class="LineNr">15268 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L15269" class="LineNr">15269 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L15270" class="LineNr">15270 </span> 68/push 0/imm32 -<span id="L15271" class="LineNr">15271 </span> 68/push 0/imm32 -<span id="L15272" class="LineNr">15272 </span> 89/<- %edx 4/r32/esp -<span id="L15273" class="LineNr">15273 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L15274" class="LineNr">15274 </span> <span class="subxComment">#</span> -<span id="L15275" class="LineNr">15275 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L15276" class="LineNr">15276 </span> (<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="L15277" class="LineNr">15277 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L15278" class="LineNr">15278 </span> <span class="subxComment"># convert</span> -<span id="L15279" class="LineNr">15279 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L15280" class="LineNr">15280 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L15281" class="LineNr">15281 </span> <span class="subxComment"># restore ed</span> -<span id="L15282" class="LineNr">15282 </span> 89/<- %edx 4/r32/esp -<span id="L15283" class="LineNr">15283 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L15284" class="LineNr">15284 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L15285" class="Folded">15285 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L15291" class="LineNr">15291 </span> <span class="subxComment"># check output</span> -<span id="L15292" class="LineNr">15292 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15258'>test-convert-with-no-inout</a>: output should be empty"</span>) -<span id="L15293" class="LineNr">15293 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'convert' expects an inout"</span> <span class="Constant">"F - <a href='mu.subx.html#L15258'>test-convert-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L15294" class="LineNr">15294 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L15295" class="LineNr">15295 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15258'>test-convert-with-no-inout</a>: exit status"</span>) -<span id="L15296" class="LineNr">15296 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L15297" class="LineNr">15297 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15298" class="LineNr">15298 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15299" class="LineNr">15299 </span> 5d/pop-to-ebp -<span id="L15300" class="LineNr">15300 </span> c3/return -<span id="L15301" class="LineNr">15301 </span> -<span id="L15302" class="LineNr">15302 </span><span class="subxTest">test-convert-with-multiple-inouts</span>: -<span id="L15303" class="LineNr">15303 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15304" class="LineNr">15304 </span> 55/push-ebp -<span id="L15305" class="LineNr">15305 </span> 89/<- %ebp 4/r32/esp -<span id="L15306" class="LineNr">15306 </span> <span class="subxComment"># setup</span> -<span id="L15307" class="LineNr">15307 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L15308" class="LineNr">15308 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L15309" class="LineNr">15309 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L15310" class="LineNr">15310 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L15311" class="LineNr">15311 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L15312" class="LineNr">15312 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L15313" class="LineNr">15313 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L15314" class="LineNr">15314 </span> 68/push 0/imm32 -<span id="L15315" class="LineNr">15315 </span> 68/push 0/imm32 -<span id="L15316" class="LineNr">15316 </span> 89/<- %edx 4/r32/esp -<span id="L15317" class="LineNr">15317 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L15318" class="LineNr">15318 </span> <span class="subxComment">#</span> -<span id="L15319" class="LineNr">15319 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L15320" class="LineNr">15320 </span> (<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="L15321" class="LineNr">15321 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L15322" class="LineNr">15322 </span> <span class="subxComment"># convert</span> -<span id="L15323" class="LineNr">15323 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L15324" class="LineNr">15324 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L15325" class="LineNr">15325 </span> <span class="subxComment"># restore ed</span> -<span id="L15326" class="LineNr">15326 </span> 89/<- %edx 4/r32/esp -<span id="L15327" class="LineNr">15327 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L15328" class="LineNr">15328 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L15329" class="Folded">15329 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L15335" class="LineNr">15335 </span> <span class="subxComment"># check output</span> -<span id="L15336" class="LineNr">15336 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15302'>test-convert-with-multiple-inouts</a>: output should be empty"</span>) -<span id="L15337" class="LineNr">15337 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'convert' must have just one inout"</span> <span class="Constant">"F - <a href='mu.subx.html#L15302'>test-convert-with-multiple-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L15338" class="LineNr">15338 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L15339" class="LineNr">15339 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15302'>test-convert-with-multiple-inouts</a>: exit status"</span>) -<span id="L15340" class="LineNr">15340 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L15341" class="LineNr">15341 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15342" class="LineNr">15342 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15343" class="LineNr">15343 </span> 5d/pop-to-ebp -<span id="L15344" class="LineNr">15344 </span> c3/return -<span id="L15345" class="LineNr">15345 </span> -<span id="L15346" class="LineNr">15346 </span><span class="subxTest">test-convert-with-no-output</span>: -<span id="L15347" class="LineNr">15347 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15348" class="LineNr">15348 </span> 55/push-ebp -<span id="L15349" class="LineNr">15349 </span> 89/<- %ebp 4/r32/esp -<span id="L15350" class="LineNr">15350 </span> <span class="subxComment"># setup</span> -<span id="L15351" class="LineNr">15351 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L15352" class="LineNr">15352 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L15353" class="LineNr">15353 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L15354" class="LineNr">15354 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L15355" class="LineNr">15355 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L15356" class="LineNr">15356 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L15357" class="LineNr">15357 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L15358" class="LineNr">15358 </span> 68/push 0/imm32 -<span id="L15359" class="LineNr">15359 </span> 68/push 0/imm32 -<span id="L15360" class="LineNr">15360 </span> 89/<- %edx 4/r32/esp -<span id="L15361" class="LineNr">15361 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L15362" class="LineNr">15362 </span> <span class="subxComment">#</span> -<span id="L15363" class="LineNr">15363 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L15364" class="LineNr">15364 </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="L15365" class="LineNr">15365 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L15366" class="LineNr">15366 </span> <span class="subxComment"># convert</span> -<span id="L15367" class="LineNr">15367 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L15368" class="LineNr">15368 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L15369" class="LineNr">15369 </span> <span class="subxComment"># restore ed</span> -<span id="L15370" class="LineNr">15370 </span> 89/<- %edx 4/r32/esp -<span id="L15371" class="LineNr">15371 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L15372" class="LineNr">15372 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L15373" class="Folded">15373 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L15379" class="LineNr">15379 </span> <span class="subxComment"># check output</span> -<span id="L15380" class="LineNr">15380 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15346'>test-convert-with-no-output</a>: output should be empty"</span>) -<span id="L15381" class="LineNr">15381 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'convert' expects an output"</span> <span class="Constant">"F - <a href='mu.subx.html#L15346'>test-convert-with-no-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L15382" class="LineNr">15382 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L15383" class="LineNr">15383 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15346'>test-convert-with-no-output</a>: exit status"</span>) -<span id="L15384" class="LineNr">15384 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L15385" class="LineNr">15385 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15386" class="LineNr">15386 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15387" class="LineNr">15387 </span> 5d/pop-to-ebp -<span id="L15388" class="LineNr">15388 </span> c3/return -<span id="L15389" class="LineNr">15389 </span> -<span id="L15390" class="LineNr">15390 </span><span class="subxTest">test-convert-with-multiple-outputs</span>: -<span id="L15391" class="LineNr">15391 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15392" class="LineNr">15392 </span> 55/push-ebp -<span id="L15393" class="LineNr">15393 </span> 89/<- %ebp 4/r32/esp -<span id="L15394" class="LineNr">15394 </span> <span class="subxComment"># setup</span> -<span id="L15395" class="LineNr">15395 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L15396" class="LineNr">15396 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L15397" class="LineNr">15397 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L15398" class="LineNr">15398 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L15399" class="LineNr">15399 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L15400" class="LineNr">15400 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L15401" class="LineNr">15401 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L15402" class="LineNr">15402 </span> 68/push 0/imm32 -<span id="L15403" class="LineNr">15403 </span> 68/push 0/imm32 -<span id="L15404" class="LineNr">15404 </span> 89/<- %edx 4/r32/esp -<span id="L15405" class="LineNr">15405 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L15406" class="LineNr">15406 </span> <span class="subxComment">#</span> -<span id="L15407" class="LineNr">15407 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L15408" class="LineNr">15408 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- copy 0\n"</span>) -<span id="L15409" class="LineNr">15409 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: int <- copy 0\n"</span>) -<span id="L15410" class="LineNr">15410 </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="L15411" class="LineNr">15411 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L15412" class="LineNr">15412 </span> <span class="subxComment"># convert</span> -<span id="L15413" class="LineNr">15413 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L15414" class="LineNr">15414 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L15415" class="LineNr">15415 </span> <span class="subxComment"># restore ed</span> -<span id="L15416" class="LineNr">15416 </span> 89/<- %edx 4/r32/esp -<span id="L15417" class="LineNr">15417 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L15418" class="LineNr">15418 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L15419" class="Folded">15419 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L15425" class="LineNr">15425 </span> <span class="subxComment"># check output</span> -<span id="L15426" class="LineNr">15426 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15390'>test-convert-with-multiple-outputs</a>: output should be empty"</span>) -<span id="L15427" class="LineNr">15427 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'convert' must have just one output"</span> <span class="Constant">"F - <a href='mu.subx.html#L15390'>test-convert-with-multiple-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L15428" class="LineNr">15428 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L15429" class="LineNr">15429 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15390'>test-convert-with-multiple-outputs</a>: exit status"</span>) -<span id="L15430" class="LineNr">15430 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L15431" class="LineNr">15431 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15432" class="LineNr">15432 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15433" class="LineNr">15433 </span> 5d/pop-to-ebp -<span id="L15434" class="LineNr">15434 </span> c3/return -<span id="L15435" class="LineNr">15435 </span> -<span id="L15436" class="LineNr">15436 </span><span class="subxTest">test-convert-deref-address</span>: -<span id="L15437" class="LineNr">15437 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15438" class="LineNr">15438 </span> 55/push-ebp -<span id="L15439" class="LineNr">15439 </span> 89/<- %ebp 4/r32/esp -<span id="L15440" class="LineNr">15440 </span> <span class="subxComment"># setup</span> -<span id="L15441" class="LineNr">15441 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L15442" class="LineNr">15442 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L15443" class="LineNr">15443 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L15444" class="LineNr">15444 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L15445" class="LineNr">15445 </span> <span class="subxComment">#</span> -<span id="L15446" class="LineNr">15446 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L15447" class="LineNr">15447 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr int) <- copy 0\n"</span>) -<span id="L15448" class="LineNr">15448 </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="L15449" class="LineNr">15449 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L15450" class="LineNr">15450 </span> <span class="subxComment"># convert</span> -<span id="L15451" class="LineNr">15451 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L15452" class="LineNr">15452 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L15453" class="LineNr">15453 </span> <span class="subxComment"># no errors</span> +<span id="L15267" class="LineNr">15267 </span> <span class="subxComment">#</span> +<span id="L15268" class="LineNr">15268 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L15269" class="LineNr">15269 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr addr handle stream int) <- copy 0\n"</span>) +<span id="L15270" class="LineNr">15270 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate-stream *y, 3\n"</span>) +<span id="L15271" class="LineNr">15271 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L15272" class="LineNr">15272 </span> <span class="subxComment"># convert</span> +<span id="L15273" class="LineNr">15273 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L15274" class="LineNr">15274 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15275" class="LineNr">15275 </span> <span class="subxComment"># no errors</span> +<span id="L15276" class="LineNr">15276 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15277" class="LineNr">15277 </span> 5d/pop-to-ebp +<span id="L15278" class="LineNr">15278 </span> c3/return +<span id="L15279" class="LineNr">15279 </span> +<span id="L15280" class="LineNr">15280 </span><span class="subxTest">test-convert-with-no-inout</span>: +<span id="L15281" class="LineNr">15281 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15282" class="LineNr">15282 </span> 55/push-ebp +<span id="L15283" class="LineNr">15283 </span> 89/<- %ebp 4/r32/esp +<span id="L15284" class="LineNr">15284 </span> <span class="subxComment"># setup</span> +<span id="L15285" class="LineNr">15285 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15286" class="LineNr">15286 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L15287" class="LineNr">15287 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L15288" class="LineNr">15288 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L15289" class="LineNr">15289 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L15290" class="LineNr">15290 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L15291" class="LineNr">15291 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L15292" class="LineNr">15292 </span> 68/push 0/imm32 +<span id="L15293" class="LineNr">15293 </span> 68/push 0/imm32 +<span id="L15294" class="LineNr">15294 </span> 89/<- %edx 4/r32/esp +<span id="L15295" class="LineNr">15295 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L15296" class="LineNr">15296 </span> <span class="subxComment">#</span> +<span id="L15297" class="LineNr">15297 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L15298" class="LineNr">15298 </span> (<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="L15299" class="LineNr">15299 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L15300" class="LineNr">15300 </span> <span class="subxComment"># convert</span> +<span id="L15301" class="LineNr">15301 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L15302" class="LineNr">15302 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L15303" class="LineNr">15303 </span> <span class="subxComment"># restore ed</span> +<span id="L15304" class="LineNr">15304 </span> 89/<- %edx 4/r32/esp +<span id="L15305" class="LineNr">15305 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15306" class="LineNr">15306 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L15307" class="Folded">15307 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15313" class="LineNr">15313 </span> <span class="subxComment"># check output</span> +<span id="L15314" class="LineNr">15314 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15280'>test-convert-with-no-inout</a>: output should be empty"</span>) +<span id="L15315" class="LineNr">15315 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'convert' expects an inout"</span> <span class="Constant">"F - <a href='mu.subx.html#L15280'>test-convert-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L15316" class="LineNr">15316 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L15317" class="LineNr">15317 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15280'>test-convert-with-no-inout</a>: exit status"</span>) +<span id="L15318" class="LineNr">15318 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L15319" class="LineNr">15319 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15320" class="LineNr">15320 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15321" class="LineNr">15321 </span> 5d/pop-to-ebp +<span id="L15322" class="LineNr">15322 </span> c3/return +<span id="L15323" class="LineNr">15323 </span> +<span id="L15324" class="LineNr">15324 </span><span class="subxTest">test-convert-with-multiple-inouts</span>: +<span id="L15325" class="LineNr">15325 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15326" class="LineNr">15326 </span> 55/push-ebp +<span id="L15327" class="LineNr">15327 </span> 89/<- %ebp 4/r32/esp +<span id="L15328" class="LineNr">15328 </span> <span class="subxComment"># setup</span> +<span id="L15329" class="LineNr">15329 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15330" class="LineNr">15330 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L15331" class="LineNr">15331 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L15332" class="LineNr">15332 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L15333" class="LineNr">15333 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L15334" class="LineNr">15334 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L15335" class="LineNr">15335 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L15336" class="LineNr">15336 </span> 68/push 0/imm32 +<span id="L15337" class="LineNr">15337 </span> 68/push 0/imm32 +<span id="L15338" class="LineNr">15338 </span> 89/<- %edx 4/r32/esp +<span id="L15339" class="LineNr">15339 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L15340" class="LineNr">15340 </span> <span class="subxComment">#</span> +<span id="L15341" class="LineNr">15341 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L15342" class="LineNr">15342 </span> (<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="L15343" class="LineNr">15343 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L15344" class="LineNr">15344 </span> <span class="subxComment"># convert</span> +<span id="L15345" class="LineNr">15345 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L15346" class="LineNr">15346 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L15347" class="LineNr">15347 </span> <span class="subxComment"># restore ed</span> +<span id="L15348" class="LineNr">15348 </span> 89/<- %edx 4/r32/esp +<span id="L15349" class="LineNr">15349 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15350" class="LineNr">15350 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L15351" class="Folded">15351 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15357" class="LineNr">15357 </span> <span class="subxComment"># check output</span> +<span id="L15358" class="LineNr">15358 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15324'>test-convert-with-multiple-inouts</a>: output should be empty"</span>) +<span id="L15359" class="LineNr">15359 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'convert' must have just one inout"</span> <span class="Constant">"F - <a href='mu.subx.html#L15324'>test-convert-with-multiple-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L15360" class="LineNr">15360 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L15361" class="LineNr">15361 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15324'>test-convert-with-multiple-inouts</a>: exit status"</span>) +<span id="L15362" class="LineNr">15362 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L15363" class="LineNr">15363 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15364" class="LineNr">15364 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15365" class="LineNr">15365 </span> 5d/pop-to-ebp +<span id="L15366" class="LineNr">15366 </span> c3/return +<span id="L15367" class="LineNr">15367 </span> +<span id="L15368" class="LineNr">15368 </span><span class="subxTest">test-convert-with-no-output</span>: +<span id="L15369" class="LineNr">15369 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15370" class="LineNr">15370 </span> 55/push-ebp +<span id="L15371" class="LineNr">15371 </span> 89/<- %ebp 4/r32/esp +<span id="L15372" class="LineNr">15372 </span> <span class="subxComment"># setup</span> +<span id="L15373" class="LineNr">15373 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15374" class="LineNr">15374 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L15375" class="LineNr">15375 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L15376" class="LineNr">15376 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L15377" class="LineNr">15377 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L15378" class="LineNr">15378 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L15379" class="LineNr">15379 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L15380" class="LineNr">15380 </span> 68/push 0/imm32 +<span id="L15381" class="LineNr">15381 </span> 68/push 0/imm32 +<span id="L15382" class="LineNr">15382 </span> 89/<- %edx 4/r32/esp +<span id="L15383" class="LineNr">15383 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L15384" class="LineNr">15384 </span> <span class="subxComment">#</span> +<span id="L15385" class="LineNr">15385 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L15386" class="LineNr">15386 </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="L15387" class="LineNr">15387 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L15388" class="LineNr">15388 </span> <span class="subxComment"># convert</span> +<span id="L15389" class="LineNr">15389 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L15390" class="LineNr">15390 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L15391" class="LineNr">15391 </span> <span class="subxComment"># restore ed</span> +<span id="L15392" class="LineNr">15392 </span> 89/<- %edx 4/r32/esp +<span id="L15393" class="LineNr">15393 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15394" class="LineNr">15394 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L15395" class="Folded">15395 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15401" class="LineNr">15401 </span> <span class="subxComment"># check output</span> +<span id="L15402" class="LineNr">15402 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15368'>test-convert-with-no-output</a>: output should be empty"</span>) +<span id="L15403" class="LineNr">15403 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'convert' expects an output"</span> <span class="Constant">"F - <a href='mu.subx.html#L15368'>test-convert-with-no-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L15404" class="LineNr">15404 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L15405" class="LineNr">15405 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15368'>test-convert-with-no-output</a>: exit status"</span>) +<span id="L15406" class="LineNr">15406 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L15407" class="LineNr">15407 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15408" class="LineNr">15408 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15409" class="LineNr">15409 </span> 5d/pop-to-ebp +<span id="L15410" class="LineNr">15410 </span> c3/return +<span id="L15411" class="LineNr">15411 </span> +<span id="L15412" class="LineNr">15412 </span><span class="subxTest">test-convert-with-multiple-outputs</span>: +<span id="L15413" class="LineNr">15413 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15414" class="LineNr">15414 </span> 55/push-ebp +<span id="L15415" class="LineNr">15415 </span> 89/<- %ebp 4/r32/esp +<span id="L15416" class="LineNr">15416 </span> <span class="subxComment"># setup</span> +<span id="L15417" class="LineNr">15417 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15418" class="LineNr">15418 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L15419" class="LineNr">15419 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L15420" class="LineNr">15420 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L15421" class="LineNr">15421 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L15422" class="LineNr">15422 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L15423" class="LineNr">15423 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L15424" class="LineNr">15424 </span> 68/push 0/imm32 +<span id="L15425" class="LineNr">15425 </span> 68/push 0/imm32 +<span id="L15426" class="LineNr">15426 </span> 89/<- %edx 4/r32/esp +<span id="L15427" class="LineNr">15427 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L15428" class="LineNr">15428 </span> <span class="subxComment">#</span> +<span id="L15429" class="LineNr">15429 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L15430" class="LineNr">15430 </span> (<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="L15431" class="LineNr">15431 </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="L15432" class="LineNr">15432 </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="L15433" class="LineNr">15433 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L15434" class="LineNr">15434 </span> <span class="subxComment"># convert</span> +<span id="L15435" class="LineNr">15435 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L15436" class="LineNr">15436 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L15437" class="LineNr">15437 </span> <span class="subxComment"># restore ed</span> +<span id="L15438" class="LineNr">15438 </span> 89/<- %edx 4/r32/esp +<span id="L15439" class="LineNr">15439 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15440" class="LineNr">15440 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L15441" class="Folded">15441 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15447" class="LineNr">15447 </span> <span class="subxComment"># check output</span> +<span id="L15448" class="LineNr">15448 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15412'>test-convert-with-multiple-outputs</a>: output should be empty"</span>) +<span id="L15449" class="LineNr">15449 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'convert' must have just one output"</span> <span class="Constant">"F - <a href='mu.subx.html#L15412'>test-convert-with-multiple-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L15450" class="LineNr">15450 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L15451" class="LineNr">15451 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15412'>test-convert-with-multiple-outputs</a>: exit status"</span>) +<span id="L15452" class="LineNr">15452 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L15453" class="LineNr">15453 </span> 81 0/subop/add %esp 8/imm32 <span id="L15454" class="LineNr">15454 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L15455" class="LineNr">15455 </span> 5d/pop-to-ebp <span id="L15456" class="LineNr">15456 </span> c3/return <span id="L15457" class="LineNr">15457 </span> -<span id="L15458" class="LineNr">15458 </span><span class="subxTest">test-convert-to-non-register</span>: +<span id="L15458" class="LineNr">15458 </span><span class="subxTest">test-convert-deref-address</span>: <span id="L15459" class="LineNr">15459 </span> <span class="subxS1Comment"># . prologue</span> <span id="L15460" class="LineNr">15460 </span> 55/push-ebp <span id="L15461" class="LineNr">15461 </span> 89/<- %ebp 4/r32/esp @@ -14001,1159 +14001,1159 @@ if ('onhashchange' in window) { <span id="L15464" class="LineNr">15464 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) <span id="L15465" class="LineNr">15465 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) <span id="L15466" class="LineNr">15466 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L15467" class="LineNr">15467 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L15468" class="LineNr">15468 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L15469" class="LineNr">15469 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L15470" class="LineNr">15470 </span> 68/push 0/imm32 -<span id="L15471" class="LineNr">15471 </span> 68/push 0/imm32 -<span id="L15472" class="LineNr">15472 </span> 89/<- %edx 4/r32/esp -<span id="L15473" class="LineNr">15473 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L15474" class="LineNr">15474 </span> <span class="subxComment">#</span> -<span id="L15475" class="LineNr">15475 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L15476" class="LineNr">15476 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: float\n"</span>) -<span id="L15477" class="LineNr">15477 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: int\n"</span>) -<span id="L15478" class="LineNr">15478 </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="L15479" class="LineNr">15479 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L15480" class="LineNr">15480 </span> <span class="subxComment"># convert</span> -<span id="L15481" class="LineNr">15481 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L15482" class="LineNr">15482 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L15483" class="LineNr">15483 </span> <span class="subxComment"># restore ed</span> -<span id="L15484" class="LineNr">15484 </span> 89/<- %edx 4/r32/esp -<span id="L15485" class="LineNr">15485 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L15486" class="LineNr">15486 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L15487" class="Folded">15487 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L15493" class="LineNr">15493 </span> <span class="subxComment"># check output</span> -<span id="L15494" class="LineNr">15494 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15458'>test-convert-to-non-register</a>: output should be empty"</span>) -<span id="L15495" class="LineNr">15495 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt convert: output 'x' not in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L15458'>test-convert-to-non-register</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L15496" class="LineNr">15496 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L15497" class="LineNr">15497 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15458'>test-convert-to-non-register</a>: exit status"</span>) -<span id="L15498" class="LineNr">15498 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L15499" class="LineNr">15499 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15500" class="LineNr">15500 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15501" class="LineNr">15501 </span> 5d/pop-to-ebp -<span id="L15502" class="LineNr">15502 </span> c3/return -<span id="L15503" class="LineNr">15503 </span> -<span id="L15504" class="LineNr">15504 </span><span class="subxTest">test-convert-invalid-inout-type</span>: -<span id="L15505" class="LineNr">15505 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15506" class="LineNr">15506 </span> 55/push-ebp -<span id="L15507" class="LineNr">15507 </span> 89/<- %ebp 4/r32/esp -<span id="L15508" class="LineNr">15508 </span> <span class="subxComment"># setup</span> -<span id="L15509" class="LineNr">15509 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L15510" class="LineNr">15510 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L15511" class="LineNr">15511 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L15512" class="LineNr">15512 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L15513" class="LineNr">15513 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L15514" class="LineNr">15514 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L15515" class="LineNr">15515 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L15516" class="LineNr">15516 </span> 68/push 0/imm32 -<span id="L15517" class="LineNr">15517 </span> 68/push 0/imm32 -<span id="L15518" class="LineNr">15518 </span> 89/<- %edx 4/r32/esp -<span id="L15519" class="LineNr">15519 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L15520" class="LineNr">15520 </span> <span class="subxComment">#</span> -<span id="L15521" class="LineNr">15521 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L15522" class="LineNr">15522 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: boolean\n"</span>) -<span id="L15523" class="LineNr">15523 </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="L15524" class="LineNr">15524 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L15525" class="LineNr">15525 </span> <span class="subxComment"># convert</span> -<span id="L15526" class="LineNr">15526 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L15527" class="LineNr">15527 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L15528" class="LineNr">15528 </span> <span class="subxComment"># restore ed</span> -<span id="L15529" class="LineNr">15529 </span> 89/<- %edx 4/r32/esp -<span id="L15530" class="LineNr">15530 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L15531" class="LineNr">15531 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L15532" class="Folded">15532 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L15538" class="LineNr">15538 </span> <span class="subxComment"># check output</span> -<span id="L15539" class="LineNr">15539 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15504'>test-convert-invalid-inout-type</a>: output should be empty"</span>) -<span id="L15540" class="LineNr">15540 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt convert: inout 'x' must be an int or float"</span> <span class="Constant">"F - <a href='mu.subx.html#L15504'>test-convert-invalid-inout-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L15541" class="LineNr">15541 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L15542" class="LineNr">15542 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15504'>test-convert-invalid-inout-type</a>: exit status"</span>) -<span id="L15543" class="LineNr">15543 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L15544" class="LineNr">15544 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15545" class="LineNr">15545 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15546" class="LineNr">15546 </span> 5d/pop-to-ebp -<span id="L15547" class="LineNr">15547 </span> c3/return -<span id="L15548" class="LineNr">15548 </span> -<span id="L15549" class="LineNr">15549 </span><span class="subxTest">test-convert-invalid-output-type</span>: -<span id="L15550" class="LineNr">15550 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15551" class="LineNr">15551 </span> 55/push-ebp -<span id="L15552" class="LineNr">15552 </span> 89/<- %ebp 4/r32/esp -<span id="L15553" class="LineNr">15553 </span> <span class="subxComment"># setup</span> -<span id="L15554" class="LineNr">15554 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L15555" class="LineNr">15555 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L15556" class="LineNr">15556 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L15557" class="LineNr">15557 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L15558" class="LineNr">15558 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L15559" class="LineNr">15559 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L15560" class="LineNr">15560 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L15561" class="LineNr">15561 </span> 68/push 0/imm32 -<span id="L15562" class="LineNr">15562 </span> 68/push 0/imm32 -<span id="L15563" class="LineNr">15563 </span> 89/<- %edx 4/r32/esp -<span id="L15564" class="LineNr">15564 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L15565" class="LineNr">15565 </span> <span class="subxComment">#</span> -<span id="L15566" class="LineNr">15566 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L15567" class="LineNr">15567 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: float\n"</span>) -<span id="L15568" class="LineNr">15568 </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="L15569" class="LineNr">15569 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L15570" class="LineNr">15570 </span> <span class="subxComment"># convert</span> -<span id="L15571" class="LineNr">15571 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L15572" class="LineNr">15572 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L15573" class="LineNr">15573 </span> <span class="subxComment"># restore ed</span> -<span id="L15574" class="LineNr">15574 </span> 89/<- %edx 4/r32/esp -<span id="L15575" class="LineNr">15575 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L15576" class="LineNr">15576 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L15577" class="Folded">15577 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L15583" class="LineNr">15583 </span> <span class="subxComment"># check output</span> -<span id="L15584" class="LineNr">15584 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15549'>test-convert-invalid-output-type</a>: output should be empty"</span>) -<span id="L15585" class="LineNr">15585 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt convert: output 'y' must be an int or float"</span> <span class="Constant">"F - <a href='mu.subx.html#L15549'>test-convert-invalid-output-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L15586" class="LineNr">15586 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L15587" class="LineNr">15587 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15549'>test-convert-invalid-output-type</a>: exit status"</span>) -<span id="L15588" class="LineNr">15588 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L15589" class="LineNr">15589 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15590" class="LineNr">15590 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15591" class="LineNr">15591 </span> 5d/pop-to-ebp -<span id="L15592" class="LineNr">15592 </span> c3/return -<span id="L15593" class="LineNr">15593 </span> -<span id="L15594" class="LineNr">15594 </span><span class="subxTest">test-convert-int-to-int</span>: -<span id="L15595" class="LineNr">15595 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15596" class="LineNr">15596 </span> 55/push-ebp -<span id="L15597" class="LineNr">15597 </span> 89/<- %ebp 4/r32/esp -<span id="L15598" class="LineNr">15598 </span> <span class="subxComment"># setup</span> -<span id="L15599" class="LineNr">15599 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L15600" class="LineNr">15600 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L15601" class="LineNr">15601 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L15602" class="LineNr">15602 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L15603" class="LineNr">15603 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L15604" class="LineNr">15604 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L15605" class="LineNr">15605 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L15606" class="LineNr">15606 </span> 68/push 0/imm32 -<span id="L15607" class="LineNr">15607 </span> 68/push 0/imm32 -<span id="L15608" class="LineNr">15608 </span> 89/<- %edx 4/r32/esp -<span id="L15609" class="LineNr">15609 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L15610" class="LineNr">15610 </span> <span class="subxComment">#</span> -<span id="L15611" class="LineNr">15611 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L15612" class="LineNr">15612 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) -<span id="L15613" class="LineNr">15613 </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="L15614" class="LineNr">15614 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L15615" class="LineNr">15615 </span> <span class="subxComment"># convert</span> -<span id="L15616" class="LineNr">15616 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L15617" class="LineNr">15617 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L15618" class="LineNr">15618 </span> <span class="subxComment"># restore ed</span> -<span id="L15619" class="LineNr">15619 </span> 89/<- %edx 4/r32/esp -<span id="L15620" class="LineNr">15620 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L15621" class="LineNr">15621 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L15622" class="Folded">15622 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L15628" class="LineNr">15628 </span> <span class="subxComment"># check output</span> -<span id="L15629" class="LineNr">15629 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15594'>test-convert-int-to-int</a>: output should be empty"</span>) -<span id="L15630" class="LineNr">15630 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt convert: no need to convert int to int"</span> <span class="Constant">"F - <a href='mu.subx.html#L15594'>test-convert-int-to-int</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L15631" class="LineNr">15631 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L15632" class="LineNr">15632 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15594'>test-convert-int-to-int</a>: exit status"</span>) -<span id="L15633" class="LineNr">15633 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L15634" class="LineNr">15634 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15635" class="LineNr">15635 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15636" class="LineNr">15636 </span> 5d/pop-to-ebp -<span id="L15637" class="LineNr">15637 </span> c3/return -<span id="L15638" class="LineNr">15638 </span> -<span id="L15639" class="LineNr">15639 </span><span class="subxTest">test-convert-float-to-float</span>: -<span id="L15640" class="LineNr">15640 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15641" class="LineNr">15641 </span> 55/push-ebp -<span id="L15642" class="LineNr">15642 </span> 89/<- %ebp 4/r32/esp -<span id="L15643" class="LineNr">15643 </span> <span class="subxComment"># setup</span> -<span id="L15644" class="LineNr">15644 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L15645" class="LineNr">15645 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L15646" class="LineNr">15646 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L15647" class="LineNr">15647 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L15648" class="LineNr">15648 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L15649" class="LineNr">15649 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L15650" class="LineNr">15650 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L15651" class="LineNr">15651 </span> 68/push 0/imm32 -<span id="L15652" class="LineNr">15652 </span> 68/push 0/imm32 -<span id="L15653" class="LineNr">15653 </span> 89/<- %edx 4/r32/esp -<span id="L15654" class="LineNr">15654 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L15655" class="LineNr">15655 </span> <span class="subxComment">#</span> -<span id="L15656" class="LineNr">15656 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L15657" class="LineNr">15657 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: float\n"</span>) -<span id="L15658" class="LineNr">15658 </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="L15659" class="LineNr">15659 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L15660" class="LineNr">15660 </span> <span class="subxComment"># convert</span> -<span id="L15661" class="LineNr">15661 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L15662" class="LineNr">15662 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L15663" class="LineNr">15663 </span> <span class="subxComment"># restore ed</span> -<span id="L15664" class="LineNr">15664 </span> 89/<- %edx 4/r32/esp -<span id="L15665" class="LineNr">15665 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L15666" class="LineNr">15666 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L15667" class="Folded">15667 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L15673" class="LineNr">15673 </span> <span class="subxComment"># check output</span> -<span id="L15674" class="LineNr">15674 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15639'>test-convert-float-to-float</a>: output should be empty"</span>) -<span id="L15675" class="LineNr">15675 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt convert: no need to convert float to float"</span> <span class="Constant">"F - <a href='mu.subx.html#L15639'>test-convert-float-to-float</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L15676" class="LineNr">15676 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L15677" class="LineNr">15677 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15639'>test-convert-float-to-float</a>: exit status"</span>) -<span id="L15678" class="LineNr">15678 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L15679" class="LineNr">15679 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15680" class="LineNr">15680 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15681" class="LineNr">15681 </span> 5d/pop-to-ebp -<span id="L15682" class="LineNr">15682 </span> c3/return -<span id="L15683" class="LineNr">15683 </span> -<span id="L15684" class="LineNr">15684 </span><span class="subxComment">#######################################################</span> -<span id="L15685" class="LineNr">15685 </span><span class="subxComment"># Parsing</span> -<span id="L15686" class="LineNr">15686 </span><span class="subxComment">#######################################################</span> -<span id="L15687" class="LineNr">15687 </span> -<span id="L15688" class="LineNr">15688 </span>== data -<span id="L15689" class="LineNr">15689 </span> -<span id="L15690" class="LineNr">15690 </span><span class="subxComment"># Global state added to each var record when parsing a function</span> -<span id="L15691" class="LineNr">15691 </span><span class="SpecialChar">Next-block-index</span>: <span class="subxComment"># (addr int)</span> -<span id="L15692" class="LineNr">15692 </span> 1/imm32 -<span id="L15693" class="LineNr">15693 </span> -<span id="L15694" class="LineNr">15694 </span><span class="SpecialChar">Curr-block-depth</span>: <span class="subxComment"># (addr int)</span> -<span id="L15695" class="LineNr">15695 </span> 1/imm32 -<span id="L15696" class="LineNr">15696 </span> -<span id="L15697" class="LineNr">15697 </span>== code -<span id="L15698" class="LineNr">15698 </span> -<span id="L15699" class="LineNr">15699 </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="L15700" class="LineNr">15700 </span> <span class="subxComment"># pseudocode</span> -<span id="L15701" class="LineNr">15701 </span> <span class="subxComment"># var curr-function: (addr handle function) = Program->functions</span> -<span id="L15702" class="LineNr">15702 </span> <span class="subxComment"># var curr-signature: (addr handle function) = Program->signatures</span> -<span id="L15703" class="LineNr">15703 </span> <span class="subxComment"># var curr-type: (addr handle typeinfo) = Program->types</span> -<span id="L15704" class="LineNr">15704 </span> <span class="subxComment"># var line: (stream byte 512)</span> -<span id="L15705" class="LineNr">15705 </span> <span class="subxComment"># var word-slice: slice</span> -<span id="L15706" class="LineNr">15706 </span> <span class="subxComment"># while true # line loop</span> -<span id="L15707" class="LineNr">15707 </span> <span class="subxComment"># clear-stream(line)</span> -<span id="L15708" class="LineNr">15708 </span> <span class="subxComment"># read-line-buffered(in, line)</span> -<span id="L15709" class="LineNr">15709 </span> <span class="subxComment"># if (line->write == 0) break # end of file</span> -<span id="L15710" class="LineNr">15710 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> -<span id="L15711" class="LineNr">15711 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> -<span id="L15712" class="LineNr">15712 </span> <span class="subxComment"># continue</span> -<span id="L15713" class="LineNr">15713 </span> <span class="subxComment"># else if slice-starts-with?(word-slice, "#") # comment</span> -<span id="L15714" class="LineNr">15714 </span> <span class="subxComment"># continue # end of line</span> -<span id="L15715" class="LineNr">15715 </span> <span class="subxComment"># else if slice-equal?(word-slice, "fn")</span> -<span id="L15716" class="LineNr">15716 </span> <span class="subxComment"># var new-function: (handle function) = allocate(function)</span> -<span id="L15717" class="LineNr">15717 </span> <span class="subxComment"># var vars: (stack live-var 256)</span> -<span id="L15718" class="LineNr">15718 </span> <span class="subxComment"># populate-mu-function-header(line, new-function, vars)</span> -<span id="L15719" class="LineNr">15719 </span> <span class="subxComment"># populate-mu-function-body(in, new-function, vars)</span> -<span id="L15720" class="LineNr">15720 </span> <span class="subxComment"># assert(vars->top == 0)</span> -<span id="L15721" class="LineNr">15721 </span> <span class="subxComment"># *curr-function = new-function</span> -<span id="L15722" class="LineNr">15722 </span> <span class="subxComment"># curr-function = &new-function->next</span> -<span id="L15723" class="LineNr">15723 </span> <span class="subxComment"># else if slice-equal?(word-slice, "sig")</span> -<span id="L15724" class="LineNr">15724 </span> <span class="subxComment"># var new-function: (handle function) = allocate(function)</span> -<span id="L15725" class="LineNr">15725 </span> <span class="subxComment"># populate-mu-function-signature(line, new-function)</span> -<span id="L15726" class="LineNr">15726 </span> <span class="subxComment"># *curr-signature = new-function</span> -<span id="L15727" class="LineNr">15727 </span> <span class="subxComment"># curr-signature = &new-function->next</span> -<span id="L15728" class="LineNr">15728 </span> <span class="subxComment"># else if slice-equal?(word-slice, "type")</span> -<span id="L15729" class="LineNr">15729 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> -<span id="L15730" class="LineNr">15730 </span> <span class="subxComment"># type-id = pos-or-insert-slice(Type-id, word-slice)</span> -<span id="L15731" class="LineNr">15731 </span> <span class="subxComment"># var new-type: (handle typeinfo) = find-or-create-typeinfo(type-id)</span> -<span id="L15732" class="LineNr">15732 </span> <span class="subxComment"># assert(next-word(line) == "{")</span> -<span id="L15733" class="LineNr">15733 </span> <span class="subxComment"># populate-mu-type(in, new-type)</span> -<span id="L15734" class="LineNr">15734 </span> <span class="subxComment"># else</span> -<span id="L15735" class="LineNr">15735 </span> <span class="subxComment"># abort()</span> -<span id="L15736" class="LineNr">15736 </span> <span class="subxComment">#</span> -<span id="L15737" class="LineNr">15737 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15738" class="LineNr">15738 </span> 55/push-ebp -<span id="L15739" class="LineNr">15739 </span> 89/<- %ebp 4/r32/esp -<span id="L15740" class="LineNr">15740 </span> <span class="subxComment"># var curr-signature: (addr handle function) at *(ebp-4)</span> -<span id="L15741" class="LineNr">15741 </span> 68/push <a href='mu.subx.html#L249'>_Program-signatures</a>/imm32 -<span id="L15742" class="LineNr">15742 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L15743" class="LineNr">15743 </span> 50/push-eax -<span id="L15744" class="LineNr">15744 </span> 51/push-ecx -<span id="L15745" class="LineNr">15745 </span> 52/push-edx -<span id="L15746" class="LineNr">15746 </span> 53/push-ebx -<span id="L15747" class="LineNr">15747 </span> 56/push-esi -<span id="L15748" class="LineNr">15748 </span> 57/push-edi -<span id="L15749" class="LineNr">15749 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> -<span id="L15750" class="LineNr">15750 </span> 81 5/subop/subtract %esp 0x200/imm32 -<span id="L15751" class="LineNr">15751 </span> 68/push 0x200/imm32/size -<span id="L15752" class="LineNr">15752 </span> 68/push 0/imm32/read -<span id="L15753" class="LineNr">15753 </span> 68/push 0/imm32/write -<span id="L15754" class="LineNr">15754 </span> 89/<- %ecx 4/r32/esp -<span id="L15755" class="LineNr">15755 </span> <span class="subxComment"># var word-slice/edx: slice</span> -<span id="L15756" class="LineNr">15756 </span> 68/push 0/imm32/end -<span id="L15757" class="LineNr">15757 </span> 68/push 0/imm32/start -<span id="L15758" class="LineNr">15758 </span> 89/<- %edx 4/r32/esp -<span id="L15759" class="LineNr">15759 </span> <span class="subxComment"># var curr-function/edi: (addr handle function)</span> -<span id="L15760" class="LineNr">15760 </span> bf/copy-to-edi <a href='mu.subx.html#L241'>_Program-functions</a>/imm32 -<span id="L15761" class="LineNr">15761 </span> <span class="subxComment"># var vars/ebx: (stack live-var 256)</span> -<span id="L15762" class="LineNr">15762 </span> 81 5/subop/subtract %esp 0xc00/imm32 -<span id="L15763" class="LineNr">15763 </span> 68/push 0xc00/imm32/size -<span id="L15764" class="LineNr">15764 </span> 68/push 0/imm32/top -<span id="L15765" class="LineNr">15765 </span> 89/<- %ebx 4/r32/esp -<span id="L15766" class="LineNr">15766 </span> { -<span id="L15767" class="LineNr">15767 </span><span class="Constant">$parse-mu:line-loop</span>: -<span id="L15768" class="LineNr">15768 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> %ecx) -<span id="L15769" class="LineNr">15769 </span> (<a href='122read-line.subx.html#L9'>read-line-buffered</a> *(ebp+8) %ecx) -<span id="L15770" class="LineNr">15770 </span> <span class="subxComment"># if (line->write == 0) break</span> -<span id="L15771" class="LineNr">15771 </span> 81 7/subop/compare *ecx 0/imm32 -<span id="L15772" class="LineNr">15772 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L15773" class="Folded">15773 </span><span class="Folded">+-- 6 lines: #? # dump line ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L15779" class="LineNr">15779 </span> (<a href='mu.subx.html#L17283'>next-mu-token</a> %ecx %edx) -<span id="L15780" class="LineNr">15780 </span> <span class="subxComment"># if slice-empty?(word-slice) continue</span> -<span id="L15781" class="LineNr">15781 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %edx) <span class="subxComment"># => eax</span> -<span id="L15782" class="LineNr">15782 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15783" class="LineNr">15783 </span> 0f 85/jump-if-!= <span class="Constant">loop</span>/disp32 -<span id="L15784" class="LineNr">15784 </span> <span class="subxComment"># if (*word-slice->start == "#") continue</span> -<span id="L15785" class="LineNr">15785 </span> <span class="subxS1Comment"># . eax = *word-slice->start</span> -<span id="L15786" class="LineNr">15786 </span> 8b/-> *edx 0/r32/eax -<span id="L15787" class="LineNr">15787 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L15788" class="LineNr">15788 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L15789" class="LineNr">15789 </span> <span class="subxS1Comment"># . if (eax == '#') continue</span> -<span id="L15790" class="LineNr">15790 </span> 3d/compare-eax-and 0x23/imm32/hash -<span id="L15791" class="LineNr">15791 </span> 0f 84/jump-if-= <span class="Constant">loop</span>/disp32 -<span id="L15792" class="LineNr">15792 </span> <span class="subxComment"># if (slice-equal?(word-slice, "fn")) parse a function</span> -<span id="L15793" class="LineNr">15793 </span> { -<span id="L15794" class="LineNr">15794 </span><span class="Constant">$parse-mu:fn</span>: -<span id="L15795" class="LineNr">15795 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"fn"</span>) <span class="subxComment"># => eax</span> -<span id="L15796" class="LineNr">15796 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15797" class="LineNr">15797 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L15798" class="LineNr">15798 </span> <span class="subxComment"># var new-function/esi: (handle function)</span> -<span id="L15799" class="LineNr">15799 </span> 68/push 0/imm32 -<span id="L15800" class="LineNr">15800 </span> 68/push 0/imm32 -<span id="L15801" class="LineNr">15801 </span> 89/<- %esi 4/r32/esp -<span id="L15802" class="LineNr">15802 </span> <span class="subxComment"># populate-mu-function(line, in, vars, new-function)</span> -<span id="L15803" class="LineNr">15803 </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="L15804" class="LineNr">15804 </span> <span class="subxComment"># var new-function-addr/eax: (addr function)</span> -<span id="L15805" class="LineNr">15805 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L15806" class="LineNr">15806 </span> <span class="subxComment"># initialize vars</span> -<span id="L15807" class="LineNr">15807 </span> (<a href='203stack.subx.html#L13'>clear-stack</a> %ebx) -<span id="L15808" class="LineNr">15808 </span> <span class="subxComment">#</span> -<span id="L15809" class="LineNr">15809 </span> (<a href='mu.subx.html#L15948'>populate-mu-function-header</a> %ecx %eax %ebx *(ebp+0xc) *(ebp+0x10)) -<span id="L15810" class="LineNr">15810 </span> (<a href='mu.subx.html#L18065'>populate-mu-function-body</a> *(ebp+8) %eax %ebx *(ebp+0xc) *(ebp+0x10)) -<span id="L15811" class="LineNr">15811 </span> <span class="subxComment"># *curr-function = new-function</span> -<span id="L15812" class="LineNr">15812 </span> 8b/-> *esi 0/r32/eax -<span id="L15813" class="LineNr">15813 </span> 89/<- *edi 0/r32/eax -<span id="L15814" class="LineNr">15814 </span> 8b/-> *(esi+4) 0/r32/eax -<span id="L15815" class="LineNr">15815 </span> 89/<- *(edi+4) 0/r32/eax -<span id="L15816" class="LineNr">15816 </span> <span class="subxComment"># curr-function = &new-function->next</span> -<span id="L15817" class="LineNr">15817 </span> <span class="subxS1Comment"># . var tmp/eax: (addr function) = lookup(new-function)</span> -<span id="L15818" class="LineNr">15818 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L15819" class="LineNr">15819 </span> <span class="subxS1Comment"># . curr-function = &tmp->next</span> -<span id="L15820" class="LineNr">15820 </span> 8d/copy-address *(eax+0x20) 7/r32/edi <span class="subxComment"># Function-next</span> -<span id="L15821" class="LineNr">15821 </span> <span class="subxComment"># reclaim new-function</span> -<span id="L15822" class="LineNr">15822 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15823" class="LineNr">15823 </span> <span class="subxComment">#</span> -<span id="L15824" class="LineNr">15824 </span> e9/jump $parse-mu:line-loop/disp32 -<span id="L15825" class="LineNr">15825 </span> } -<span id="L15826" class="LineNr">15826 </span> <span class="subxComment"># if (slice-equal?(word-slice, "sig")) parse a function signature</span> -<span id="L15827" class="LineNr">15827 </span> <span class="subxComment"># Function signatures are for providing types to SubX functions.</span> -<span id="L15828" class="LineNr">15828 </span> { -<span id="L15829" class="LineNr">15829 </span><span class="Constant">$parse-mu:sig</span>: -<span id="L15830" class="LineNr">15830 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"sig"</span>) <span class="subxComment"># => eax</span> -<span id="L15831" class="LineNr">15831 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15832" class="LineNr">15832 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L15833" class="LineNr">15833 </span> <span class="subxComment"># edi = curr-function</span> -<span id="L15834" class="LineNr">15834 </span> 57/push-edi -<span id="L15835" class="LineNr">15835 </span> 8b/-> *(ebp-4) 7/r32/edi -<span id="L15836" class="LineNr">15836 </span> <span class="subxComment"># var new-function/esi: (handle function)</span> -<span id="L15837" class="LineNr">15837 </span> 68/push 0/imm32 -<span id="L15838" class="LineNr">15838 </span> 68/push 0/imm32 -<span id="L15839" class="LineNr">15839 </span> 89/<- %esi 4/r32/esp -<span id="L15840" class="LineNr">15840 </span> <span class="subxComment"># populate-mu-function(line, in, vars, new-function)</span> -<span id="L15841" class="LineNr">15841 </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="L15842" class="LineNr">15842 </span> <span class="subxComment"># var new-function-addr/eax: (addr function)</span> -<span id="L15843" class="LineNr">15843 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L15844" class="LineNr">15844 </span> <span class="subxComment">#</span> -<span id="L15845" class="LineNr">15845 </span> (<a href='mu.subx.html#L16268'>populate-mu-function-signature</a> %ecx %eax *(ebp+0xc) *(ebp+0x10)) -<span id="L15846" class="LineNr">15846 </span> <span class="subxComment"># *curr-signature = new-function</span> -<span id="L15847" class="LineNr">15847 </span> 8b/-> *esi 0/r32/eax -<span id="L15848" class="LineNr">15848 </span> 89/<- *edi 0/r32/eax -<span id="L15849" class="LineNr">15849 </span> 8b/-> *(esi+4) 0/r32/eax -<span id="L15850" class="LineNr">15850 </span> 89/<- *(edi+4) 0/r32/eax -<span id="L15851" class="LineNr">15851 </span> <span class="subxComment"># curr-signature = &new-function->next</span> -<span id="L15852" class="LineNr">15852 </span> <span class="subxS1Comment"># . var tmp/eax: (addr function) = lookup(new-function)</span> -<span id="L15853" class="LineNr">15853 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L15854" class="LineNr">15854 </span> <span class="subxS1Comment"># . curr-function = &tmp->next</span> -<span id="L15855" class="LineNr">15855 </span> 8d/copy-address *(eax+0x20) 7/r32/edi <span class="subxComment"># Function-next</span> -<span id="L15856" class="LineNr">15856 </span> <span class="subxComment"># reclaim new-function</span> -<span id="L15857" class="LineNr">15857 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15858" class="LineNr">15858 </span> <span class="subxComment"># save curr-function</span> -<span id="L15859" class="LineNr">15859 </span> 89/<- *(ebp-4) 7/r32/edi -<span id="L15860" class="LineNr">15860 </span> <span class="subxComment"># restore edi</span> -<span id="L15861" class="LineNr">15861 </span> 5f/pop-to-edi -<span id="L15862" class="LineNr">15862 </span> <span class="subxComment">#</span> -<span id="L15863" class="LineNr">15863 </span> e9/jump $parse-mu:line-loop/disp32 -<span id="L15864" class="LineNr">15864 </span> } -<span id="L15865" class="LineNr">15865 </span> <span class="subxComment"># if (slice-equal?(word-slice, "type")) parse a type (struct/record) definition</span> -<span id="L15866" class="LineNr">15866 </span> { -<span id="L15867" class="LineNr">15867 </span><span class="Constant">$parse-mu:type</span>: -<span id="L15868" class="LineNr">15868 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"type"</span>) <span class="subxComment"># => eax</span> -<span id="L15869" class="LineNr">15869 </span> 3d/compare-eax-and 0/imm32 -<span id="L15870" class="LineNr">15870 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L15871" class="LineNr">15871 </span> (<a href='mu.subx.html#L17283'>next-mu-token</a> %ecx %edx) -<span id="L15872" class="LineNr">15872 </span> <span class="subxComment"># var type-id/eax: int</span> -<span id="L15873" class="LineNr">15873 </span> (<a href='mu.subx.html#L17453'>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="L15874" class="LineNr">15874 </span> <span class="subxComment"># spill</span> -<span id="L15875" class="LineNr">15875 </span> 51/push-ecx -<span id="L15876" class="LineNr">15876 </span> <span class="subxComment"># var new-type/ecx: (handle typeinfo)</span> -<span id="L15877" class="LineNr">15877 </span> 68/push 0/imm32 -<span id="L15878" class="LineNr">15878 </span> 68/push 0/imm32 -<span id="L15879" class="LineNr">15879 </span> 89/<- %ecx 4/r32/esp -<span id="L15880" class="LineNr">15880 </span> (<a href='mu.subx.html#L20243'>find-or-create-typeinfo</a> %eax %ecx) -<span id="L15881" class="LineNr">15881 </span> <span class="subxComment">#</span> -<span id="L15882" class="LineNr">15882 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> -<span id="L15883" class="LineNr">15883 </span> <span class="subxComment"># TODO: ensure that 'line' has nothing else but '{'</span> -<span id="L15884" class="LineNr">15884 </span><span class="CommentedCode">#? (dump-typeinfos "=== aaa\n")</span> -<span id="L15885" class="LineNr">15885 </span> (<a href='mu.subx.html#L20477'>populate-mu-type</a> *(ebp+8) %eax *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L15886" class="LineNr">15886 </span><span class="CommentedCode">#? (dump-typeinfos "=== zzz\n")</span> -<span id="L15887" class="LineNr">15887 </span> <span class="subxComment"># reclaim new-type</span> -<span id="L15888" class="LineNr">15888 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15889" class="LineNr">15889 </span> <span class="subxComment"># restore</span> -<span id="L15890" class="LineNr">15890 </span> 59/pop-to-ecx -<span id="L15891" class="LineNr">15891 </span> e9/jump $parse-mu:line-loop/disp32 -<span id="L15892" class="LineNr">15892 </span> } -<span id="L15893" class="LineNr">15893 </span> <span class="subxComment"># otherwise abort</span> -<span id="L15894" class="LineNr">15894 </span> e9/jump $parse-mu:error1/disp32 -<span id="L15895" class="LineNr">15895 </span> } <span class="subxComment"># end line loop</span> -<span id="L15896" class="LineNr">15896 </span><span class="Constant">$parse-mu:end</span>: -<span id="L15897" class="LineNr">15897 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L15898" class="LineNr">15898 </span> 81 0/subop/add %esp 0x20c/imm32 <span class="subxComment"># line</span> -<span id="L15899" class="LineNr">15899 </span> 81 0/subop/add %esp 0xc08/imm32 <span class="subxComment"># vars</span> -<span id="L15900" class="LineNr">15900 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15901" class="LineNr">15901 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L15902" class="LineNr">15902 </span> 5f/pop-to-edi -<span id="L15903" class="LineNr">15903 </span> 5e/pop-to-esi -<span id="L15904" class="LineNr">15904 </span> 5b/pop-to-ebx -<span id="L15905" class="LineNr">15905 </span> 5a/pop-to-edx -<span id="L15906" class="LineNr">15906 </span> 59/pop-to-ecx -<span id="L15907" class="LineNr">15907 </span> 58/pop-to-eax -<span id="L15908" class="LineNr">15908 </span> <span class="subxS1Comment"># . reclaim local</span> -<span id="L15909" class="LineNr">15909 </span> 81 0/subop/add %esp 4/imm32 -<span id="L15910" class="LineNr">15910 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15911" class="LineNr">15911 </span> 89/<- %esp 5/r32/ebp -<span id="L15912" class="LineNr">15912 </span> 5d/pop-to-ebp -<span id="L15913" class="LineNr">15913 </span> c3/return -<span id="L15914" class="LineNr">15914 </span> -<span id="L15915" class="LineNr">15915 </span><span class="Constant">$parse-mu:error1</span>: -<span id="L15916" class="LineNr">15916 </span> <span class="subxComment"># error("unexpected top-level command: " word-slice "\n")</span> -<span id="L15917" class="LineNr">15917 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"unexpected top-level command: "</span>) -<span id="L15918" class="LineNr">15918 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0xc) %edx) -<span id="L15919" class="LineNr">15919 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"\n"</span>) -<span id="L15920" class="LineNr">15920 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L15921" class="LineNr">15921 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L15922" class="LineNr">15922 </span> <span class="subxComment"># never gets here</span> -<span id="L15923" class="LineNr">15923 </span> -<span id="L15924" class="LineNr">15924 </span><span class="Constant">$parse-mu:error2</span>: -<span id="L15925" class="LineNr">15925 </span> <span class="subxComment"># error(vars->top " vars not reclaimed after fn '" new-function->name "'\n")</span> -<span id="L15926" class="LineNr">15926 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+0xc) *ebx) -<span id="L15927" class="LineNr">15927 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">" vars not reclaimed after fn '"</span>) -<span id="L15928" class="LineNr">15928 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0xc) *eax) <span class="subxComment"># Function-name</span> -<span id="L15929" class="LineNr">15929 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"'\n"</span>) -<span id="L15930" class="LineNr">15930 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L15931" class="LineNr">15931 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L15932" class="LineNr">15932 </span> <span class="subxComment"># never gets here</span> -<span id="L15933" class="LineNr">15933 </span> -<span id="L15934" class="LineNr">15934 </span><span class="subxComment"># scenarios considered:</span> -<span id="L15935" class="LineNr">15935 </span><span class="subxComment"># ✗ fn foo # no block</span> -<span id="L15936" class="LineNr">15936 </span><span class="subxComment"># ✓ fn foo {</span> -<span id="L15937" class="LineNr">15937 </span><span class="subxComment"># ✗ fn foo { {</span> -<span id="L15938" class="LineNr">15938 </span><span class="subxComment"># ✗ fn foo { }</span> -<span id="L15939" class="LineNr">15939 </span><span class="subxComment"># ✗ fn foo { } {</span> -<span id="L15940" class="LineNr">15940 </span><span class="subxComment"># ✗ fn foo x {</span> -<span id="L15941" class="LineNr">15941 </span><span class="subxComment"># ✗ fn foo x: {</span> -<span id="L15942" class="LineNr">15942 </span><span class="subxComment"># ✓ fn foo x: int {</span> -<span id="L15943" class="LineNr">15943 </span><span class="subxComment"># ✓ fn foo x: int {</span> -<span id="L15944" class="LineNr">15944 </span><span class="subxComment"># ✓ fn foo x: int -> _/eax: int {</span> -<span id="L15945" class="LineNr">15945 </span><span class="subxComment"># TODO:</span> -<span id="L15946" class="LineNr">15946 </span><span class="subxComment"># disallow outputs of type `(... addr ...)`</span> -<span id="L15947" class="LineNr">15947 </span><span class="subxComment"># disallow inputs of type `(... addr ... addr ...)`</span> -<span id="L15948" class="LineNr">15948 </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="L15949" class="LineNr">15949 </span> <span class="subxComment"># pseudocode:</span> -<span id="L15950" class="LineNr">15950 </span> <span class="subxComment"># var word-slice: slice</span> -<span id="L15951" class="LineNr">15951 </span> <span class="subxComment"># next-mu-token(first-line, word-slice)</span> -<span id="L15952" class="LineNr">15952 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> -<span id="L15953" class="LineNr">15953 </span> <span class="subxComment"># assert(word-slice not in '{' '}' '->')</span> -<span id="L15954" class="LineNr">15954 </span> <span class="subxComment"># out->name = slice-to-string(word-slice)</span> -<span id="L15955" class="LineNr">15955 </span> <span class="subxComment"># ## inouts</span> -<span id="L15956" class="LineNr">15956 </span> <span class="subxComment"># while true</span> -<span id="L15957" class="LineNr">15957 </span> <span class="subxComment"># word-slice = next-mu-token(first-line)</span> -<span id="L15958" class="LineNr">15958 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> -<span id="L15959" class="LineNr">15959 </span> <span class="subxComment"># if (word-slice == '{') goto done</span> -<span id="L15960" class="LineNr">15960 </span> <span class="subxComment"># if (word-slice == '->') break</span> -<span id="L15961" class="LineNr">15961 </span> <span class="subxComment"># assert(word-slice != '}')</span> -<span id="L15962" class="LineNr">15962 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, first-line)</span> -<span id="L15963" class="LineNr">15963 </span> <span class="subxComment"># assert(v->register == null)</span> -<span id="L15964" class="LineNr">15964 </span> <span class="subxComment"># # v->block-depth is implicitly 0</span> -<span id="L15965" class="LineNr">15965 </span> <span class="subxComment"># out->inouts = append(v, out->inouts)</span> -<span id="L15966" class="LineNr">15966 </span> <span class="subxComment"># push(vars, {v, false})</span> -<span id="L15967" class="LineNr">15967 </span> <span class="subxComment"># ## outputs</span> -<span id="L15968" class="LineNr">15968 </span> <span class="subxComment"># while true</span> -<span id="L15969" class="LineNr">15969 </span> <span class="subxComment"># word-slice = next-mu-token(first-line)</span> -<span id="L15970" class="LineNr">15970 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> -<span id="L15971" class="LineNr">15971 </span> <span class="subxComment"># if (word-slice == '{') break</span> -<span id="L15972" class="LineNr">15972 </span> <span class="subxComment"># assert(word-slice not in '}' '->')</span> -<span id="L15973" class="LineNr">15973 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, first-line)</span> -<span id="L15974" class="LineNr">15974 </span> <span class="subxComment"># assert(v->register != null)</span> -<span id="L15975" class="LineNr">15975 </span> <span class="subxComment"># assert(v->name == "_")</span> -<span id="L15976" class="LineNr">15976 </span> <span class="subxComment"># out->outputs = append(v, out->outputs)</span> -<span id="L15977" class="LineNr">15977 </span> <span class="subxComment"># done:</span> -<span id="L15978" class="LineNr">15978 </span> <span class="subxComment">#</span> -<span id="L15979" class="LineNr">15979 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15980" class="LineNr">15980 </span> 55/push-ebp -<span id="L15981" class="LineNr">15981 </span> 89/<- %ebp 4/r32/esp -<span id="L15982" class="LineNr">15982 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L15983" class="LineNr">15983 </span> 50/push-eax -<span id="L15984" class="LineNr">15984 </span> 51/push-ecx -<span id="L15985" class="LineNr">15985 </span> 52/push-edx -<span id="L15986" class="LineNr">15986 </span> 53/push-ebx -<span id="L15987" class="LineNr">15987 </span> 57/push-edi -<span id="L15988" class="LineNr">15988 </span> <span class="subxComment"># edi = out</span> -<span id="L15989" class="LineNr">15989 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L15990" class="LineNr">15990 </span> <span class="subxComment"># var word-slice/ecx: slice</span> -<span id="L15991" class="LineNr">15991 </span> 68/push 0/imm32/end -<span id="L15992" class="LineNr">15992 </span> 68/push 0/imm32/start -<span id="L15993" class="LineNr">15993 </span> 89/<- %ecx 4/r32/esp -<span id="L15994" class="LineNr">15994 </span> <span class="subxComment"># var v/ebx: (handle var)</span> -<span id="L15995" class="LineNr">15995 </span> 68/push 0/imm32 -<span id="L15996" class="LineNr">15996 </span> 68/push 0/imm32 -<span id="L15997" class="LineNr">15997 </span> 89/<- %ebx 4/r32/esp -<span id="L15998" class="LineNr">15998 </span> <span class="subxComment"># read function name</span> -<span id="L15999" class="LineNr">15999 </span> (<a href='mu.subx.html#L17283'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L16000" class="LineNr">16000 </span> <span class="subxComment"># error checking</span> -<span id="L16001" class="LineNr">16001 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> -<span id="L16002" class="LineNr">16002 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L16003" class="LineNr">16003 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16004" class="LineNr">16004 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 -<span id="L16005" class="LineNr">16005 </span> <span class="subxComment"># if (word-slice == '{') abort</span> -<span id="L16006" class="LineNr">16006 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> -<span id="L16007" class="LineNr">16007 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16008" class="LineNr">16008 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 -<span id="L16009" class="LineNr">16009 </span> <span class="subxComment"># if (word-slice == '->') abort</span> -<span id="L16010" class="LineNr">16010 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> -<span id="L16011" class="LineNr">16011 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16012" class="LineNr">16012 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 -<span id="L16013" class="LineNr">16013 </span> <span class="subxComment"># if (word-slice == '}') abort</span> -<span id="L16014" class="LineNr">16014 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> -<span id="L16015" class="LineNr">16015 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16016" class="LineNr">16016 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 -<span id="L16017" class="LineNr">16017 </span> <span class="subxComment"># if word-slice already defined, abort</span> -<span id="L16018" class="LineNr">16018 </span> (<a href='mu.subx.html#L16620'>function-exists?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L16019" class="LineNr">16019 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16020" class="LineNr">16020 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-duplicate/disp32 -<span id="L16021" class="LineNr">16021 </span> <span class="subxComment">#</span> -<span id="L16022" class="LineNr">16022 </span> (<a href='123slice.subx.html#L487'>slice-starts-with?</a> %ecx <span class="Constant">"break"</span>) <span class="subxComment"># => eax</span> -<span id="L16023" class="LineNr">16023 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16024" class="LineNr">16024 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-break/disp32 -<span id="L16025" class="LineNr">16025 </span> (<a href='123slice.subx.html#L487'>slice-starts-with?</a> %ecx <span class="Constant">"loop"</span>) <span class="subxComment"># => eax</span> -<span id="L16026" class="LineNr">16026 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16027" class="LineNr">16027 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-loop/disp32 -<span id="L16028" class="LineNr">16028 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"lookup"</span>) <span class="subxComment"># => eax</span> +<span id="L15467" class="LineNr">15467 </span> <span class="subxComment">#</span> +<span id="L15468" class="LineNr">15468 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L15469" class="LineNr">15469 </span> (<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="L15470" class="LineNr">15470 </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="L15471" class="LineNr">15471 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L15472" class="LineNr">15472 </span> <span class="subxComment"># convert</span> +<span id="L15473" class="LineNr">15473 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L15474" class="LineNr">15474 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15475" class="LineNr">15475 </span> <span class="subxComment"># no errors</span> +<span id="L15476" class="LineNr">15476 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15477" class="LineNr">15477 </span> 5d/pop-to-ebp +<span id="L15478" class="LineNr">15478 </span> c3/return +<span id="L15479" class="LineNr">15479 </span> +<span id="L15480" class="LineNr">15480 </span><span class="subxTest">test-convert-to-non-register</span>: +<span id="L15481" class="LineNr">15481 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15482" class="LineNr">15482 </span> 55/push-ebp +<span id="L15483" class="LineNr">15483 </span> 89/<- %ebp 4/r32/esp +<span id="L15484" class="LineNr">15484 </span> <span class="subxComment"># setup</span> +<span id="L15485" class="LineNr">15485 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15486" class="LineNr">15486 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L15487" class="LineNr">15487 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L15488" class="LineNr">15488 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L15489" class="LineNr">15489 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L15490" class="LineNr">15490 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L15491" class="LineNr">15491 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L15492" class="LineNr">15492 </span> 68/push 0/imm32 +<span id="L15493" class="LineNr">15493 </span> 68/push 0/imm32 +<span id="L15494" class="LineNr">15494 </span> 89/<- %edx 4/r32/esp +<span id="L15495" class="LineNr">15495 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L15496" class="LineNr">15496 </span> <span class="subxComment">#</span> +<span id="L15497" class="LineNr">15497 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L15498" class="LineNr">15498 </span> (<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="L15499" class="LineNr">15499 </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="L15500" class="LineNr">15500 </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="L15501" class="LineNr">15501 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L15502" class="LineNr">15502 </span> <span class="subxComment"># convert</span> +<span id="L15503" class="LineNr">15503 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L15504" class="LineNr">15504 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L15505" class="LineNr">15505 </span> <span class="subxComment"># restore ed</span> +<span id="L15506" class="LineNr">15506 </span> 89/<- %edx 4/r32/esp +<span id="L15507" class="LineNr">15507 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15508" class="LineNr">15508 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L15509" class="Folded">15509 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15515" class="LineNr">15515 </span> <span class="subxComment"># check output</span> +<span id="L15516" class="LineNr">15516 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15480'>test-convert-to-non-register</a>: output should be empty"</span>) +<span id="L15517" class="LineNr">15517 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt convert: output 'x' not in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L15480'>test-convert-to-non-register</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L15518" class="LineNr">15518 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L15519" class="LineNr">15519 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15480'>test-convert-to-non-register</a>: exit status"</span>) +<span id="L15520" class="LineNr">15520 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L15521" class="LineNr">15521 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15522" class="LineNr">15522 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15523" class="LineNr">15523 </span> 5d/pop-to-ebp +<span id="L15524" class="LineNr">15524 </span> c3/return +<span id="L15525" class="LineNr">15525 </span> +<span id="L15526" class="LineNr">15526 </span><span class="subxTest">test-convert-invalid-inout-type</span>: +<span id="L15527" class="LineNr">15527 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15528" class="LineNr">15528 </span> 55/push-ebp +<span id="L15529" class="LineNr">15529 </span> 89/<- %ebp 4/r32/esp +<span id="L15530" class="LineNr">15530 </span> <span class="subxComment"># setup</span> +<span id="L15531" class="LineNr">15531 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15532" class="LineNr">15532 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L15533" class="LineNr">15533 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L15534" class="LineNr">15534 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L15535" class="LineNr">15535 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L15536" class="LineNr">15536 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L15537" class="LineNr">15537 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L15538" class="LineNr">15538 </span> 68/push 0/imm32 +<span id="L15539" class="LineNr">15539 </span> 68/push 0/imm32 +<span id="L15540" class="LineNr">15540 </span> 89/<- %edx 4/r32/esp +<span id="L15541" class="LineNr">15541 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L15542" class="LineNr">15542 </span> <span class="subxComment">#</span> +<span id="L15543" class="LineNr">15543 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L15544" class="LineNr">15544 </span> (<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="L15545" class="LineNr">15545 </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="L15546" class="LineNr">15546 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L15547" class="LineNr">15547 </span> <span class="subxComment"># convert</span> +<span id="L15548" class="LineNr">15548 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L15549" class="LineNr">15549 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L15550" class="LineNr">15550 </span> <span class="subxComment"># restore ed</span> +<span id="L15551" class="LineNr">15551 </span> 89/<- %edx 4/r32/esp +<span id="L15552" class="LineNr">15552 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15553" class="LineNr">15553 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L15554" class="Folded">15554 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15560" class="LineNr">15560 </span> <span class="subxComment"># check output</span> +<span id="L15561" class="LineNr">15561 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15526'>test-convert-invalid-inout-type</a>: output should be empty"</span>) +<span id="L15562" class="LineNr">15562 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt convert: inout 'x' must be an int or float"</span> <span class="Constant">"F - <a href='mu.subx.html#L15526'>test-convert-invalid-inout-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L15563" class="LineNr">15563 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L15564" class="LineNr">15564 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15526'>test-convert-invalid-inout-type</a>: exit status"</span>) +<span id="L15565" class="LineNr">15565 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L15566" class="LineNr">15566 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15567" class="LineNr">15567 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15568" class="LineNr">15568 </span> 5d/pop-to-ebp +<span id="L15569" class="LineNr">15569 </span> c3/return +<span id="L15570" class="LineNr">15570 </span> +<span id="L15571" class="LineNr">15571 </span><span class="subxTest">test-convert-invalid-output-type</span>: +<span id="L15572" class="LineNr">15572 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15573" class="LineNr">15573 </span> 55/push-ebp +<span id="L15574" class="LineNr">15574 </span> 89/<- %ebp 4/r32/esp +<span id="L15575" class="LineNr">15575 </span> <span class="subxComment"># setup</span> +<span id="L15576" class="LineNr">15576 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15577" class="LineNr">15577 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L15578" class="LineNr">15578 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L15579" class="LineNr">15579 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L15580" class="LineNr">15580 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L15581" class="LineNr">15581 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L15582" class="LineNr">15582 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L15583" class="LineNr">15583 </span> 68/push 0/imm32 +<span id="L15584" class="LineNr">15584 </span> 68/push 0/imm32 +<span id="L15585" class="LineNr">15585 </span> 89/<- %edx 4/r32/esp +<span id="L15586" class="LineNr">15586 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L15587" class="LineNr">15587 </span> <span class="subxComment">#</span> +<span id="L15588" class="LineNr">15588 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L15589" class="LineNr">15589 </span> (<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="L15590" class="LineNr">15590 </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="L15591" class="LineNr">15591 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L15592" class="LineNr">15592 </span> <span class="subxComment"># convert</span> +<span id="L15593" class="LineNr">15593 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L15594" class="LineNr">15594 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L15595" class="LineNr">15595 </span> <span class="subxComment"># restore ed</span> +<span id="L15596" class="LineNr">15596 </span> 89/<- %edx 4/r32/esp +<span id="L15597" class="LineNr">15597 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15598" class="LineNr">15598 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L15599" class="Folded">15599 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15605" class="LineNr">15605 </span> <span class="subxComment"># check output</span> +<span id="L15606" class="LineNr">15606 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15571'>test-convert-invalid-output-type</a>: output should be empty"</span>) +<span id="L15607" class="LineNr">15607 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt convert: output 'y' must be an int or float"</span> <span class="Constant">"F - <a href='mu.subx.html#L15571'>test-convert-invalid-output-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L15608" class="LineNr">15608 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L15609" class="LineNr">15609 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15571'>test-convert-invalid-output-type</a>: exit status"</span>) +<span id="L15610" class="LineNr">15610 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L15611" class="LineNr">15611 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15612" class="LineNr">15612 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15613" class="LineNr">15613 </span> 5d/pop-to-ebp +<span id="L15614" class="LineNr">15614 </span> c3/return +<span id="L15615" class="LineNr">15615 </span> +<span id="L15616" class="LineNr">15616 </span><span class="subxTest">test-convert-int-to-int</span>: +<span id="L15617" class="LineNr">15617 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15618" class="LineNr">15618 </span> 55/push-ebp +<span id="L15619" class="LineNr">15619 </span> 89/<- %ebp 4/r32/esp +<span id="L15620" class="LineNr">15620 </span> <span class="subxComment"># setup</span> +<span id="L15621" class="LineNr">15621 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15622" class="LineNr">15622 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L15623" class="LineNr">15623 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L15624" class="LineNr">15624 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L15625" class="LineNr">15625 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L15626" class="LineNr">15626 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L15627" class="LineNr">15627 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L15628" class="LineNr">15628 </span> 68/push 0/imm32 +<span id="L15629" class="LineNr">15629 </span> 68/push 0/imm32 +<span id="L15630" class="LineNr">15630 </span> 89/<- %edx 4/r32/esp +<span id="L15631" class="LineNr">15631 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L15632" class="LineNr">15632 </span> <span class="subxComment">#</span> +<span id="L15633" class="LineNr">15633 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L15634" class="LineNr">15634 </span> (<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="L15635" class="LineNr">15635 </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="L15636" class="LineNr">15636 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L15637" class="LineNr">15637 </span> <span class="subxComment"># convert</span> +<span id="L15638" class="LineNr">15638 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L15639" class="LineNr">15639 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L15640" class="LineNr">15640 </span> <span class="subxComment"># restore ed</span> +<span id="L15641" class="LineNr">15641 </span> 89/<- %edx 4/r32/esp +<span id="L15642" class="LineNr">15642 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15643" class="LineNr">15643 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L15644" class="Folded">15644 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15650" class="LineNr">15650 </span> <span class="subxComment"># check output</span> +<span id="L15651" class="LineNr">15651 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15616'>test-convert-int-to-int</a>: output should be empty"</span>) +<span id="L15652" class="LineNr">15652 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt convert: no need to convert int to int"</span> <span class="Constant">"F - <a href='mu.subx.html#L15616'>test-convert-int-to-int</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L15653" class="LineNr">15653 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L15654" class="LineNr">15654 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15616'>test-convert-int-to-int</a>: exit status"</span>) +<span id="L15655" class="LineNr">15655 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L15656" class="LineNr">15656 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15657" class="LineNr">15657 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15658" class="LineNr">15658 </span> 5d/pop-to-ebp +<span id="L15659" class="LineNr">15659 </span> c3/return +<span id="L15660" class="LineNr">15660 </span> +<span id="L15661" class="LineNr">15661 </span><span class="subxTest">test-convert-float-to-float</span>: +<span id="L15662" class="LineNr">15662 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15663" class="LineNr">15663 </span> 55/push-ebp +<span id="L15664" class="LineNr">15664 </span> 89/<- %ebp 4/r32/esp +<span id="L15665" class="LineNr">15665 </span> <span class="subxComment"># setup</span> +<span id="L15666" class="LineNr">15666 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15667" class="LineNr">15667 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L15668" class="LineNr">15668 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L15669" class="LineNr">15669 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L15670" class="LineNr">15670 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L15671" class="LineNr">15671 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L15672" class="LineNr">15672 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L15673" class="LineNr">15673 </span> 68/push 0/imm32 +<span id="L15674" class="LineNr">15674 </span> 68/push 0/imm32 +<span id="L15675" class="LineNr">15675 </span> 89/<- %edx 4/r32/esp +<span id="L15676" class="LineNr">15676 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L15677" class="LineNr">15677 </span> <span class="subxComment">#</span> +<span id="L15678" class="LineNr">15678 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L15679" class="LineNr">15679 </span> (<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="L15680" class="LineNr">15680 </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="L15681" class="LineNr">15681 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L15682" class="LineNr">15682 </span> <span class="subxComment"># convert</span> +<span id="L15683" class="LineNr">15683 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L15684" class="LineNr">15684 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L15685" class="LineNr">15685 </span> <span class="subxComment"># restore ed</span> +<span id="L15686" class="LineNr">15686 </span> 89/<- %edx 4/r32/esp +<span id="L15687" class="LineNr">15687 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15688" class="LineNr">15688 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L15689" class="Folded">15689 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15695" class="LineNr">15695 </span> <span class="subxComment"># check output</span> +<span id="L15696" class="LineNr">15696 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15661'>test-convert-float-to-float</a>: output should be empty"</span>) +<span id="L15697" class="LineNr">15697 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt convert: no need to convert float to float"</span> <span class="Constant">"F - <a href='mu.subx.html#L15661'>test-convert-float-to-float</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L15698" class="LineNr">15698 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L15699" class="LineNr">15699 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15661'>test-convert-float-to-float</a>: exit status"</span>) +<span id="L15700" class="LineNr">15700 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L15701" class="LineNr">15701 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15702" class="LineNr">15702 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15703" class="LineNr">15703 </span> 5d/pop-to-ebp +<span id="L15704" class="LineNr">15704 </span> c3/return +<span id="L15705" class="LineNr">15705 </span> +<span id="L15706" class="LineNr">15706 </span><span class="subxComment">#######################################################</span> +<span id="L15707" class="LineNr">15707 </span><span class="subxComment"># Parsing</span> +<span id="L15708" class="LineNr">15708 </span><span class="subxComment">#######################################################</span> +<span id="L15709" class="LineNr">15709 </span> +<span id="L15710" class="LineNr">15710 </span>== data +<span id="L15711" class="LineNr">15711 </span> +<span id="L15712" class="LineNr">15712 </span><span class="subxComment"># Global state added to each var record when parsing a function</span> +<span id="L15713" class="LineNr">15713 </span><span class="SpecialChar">Next-block-index</span>: <span class="subxComment"># (addr int)</span> +<span id="L15714" class="LineNr">15714 </span> 1/imm32 +<span id="L15715" class="LineNr">15715 </span> +<span id="L15716" class="LineNr">15716 </span><span class="SpecialChar">Curr-block-depth</span>: <span class="subxComment"># (addr int)</span> +<span id="L15717" class="LineNr">15717 </span> 1/imm32 +<span id="L15718" class="LineNr">15718 </span> +<span id="L15719" class="LineNr">15719 </span>== code +<span id="L15720" class="LineNr">15720 </span> +<span id="L15721" class="LineNr">15721 </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="L15722" class="LineNr">15722 </span> <span class="subxComment"># pseudocode</span> +<span id="L15723" class="LineNr">15723 </span> <span class="subxComment"># var curr-function: (addr handle function) = Program->functions</span> +<span id="L15724" class="LineNr">15724 </span> <span class="subxComment"># var curr-signature: (addr handle function) = Program->signatures</span> +<span id="L15725" class="LineNr">15725 </span> <span class="subxComment"># var curr-type: (addr handle typeinfo) = Program->types</span> +<span id="L15726" class="LineNr">15726 </span> <span class="subxComment"># var line: (stream byte 512)</span> +<span id="L15727" class="LineNr">15727 </span> <span class="subxComment"># var word-slice: slice</span> +<span id="L15728" class="LineNr">15728 </span> <span class="subxComment"># while true # line loop</span> +<span id="L15729" class="LineNr">15729 </span> <span class="subxComment"># clear-stream(line)</span> +<span id="L15730" class="LineNr">15730 </span> <span class="subxComment"># read-line-buffered(in, line)</span> +<span id="L15731" class="LineNr">15731 </span> <span class="subxComment"># if (line->write == 0) break # end of file</span> +<span id="L15732" class="LineNr">15732 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> +<span id="L15733" class="LineNr">15733 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> +<span id="L15734" class="LineNr">15734 </span> <span class="subxComment"># continue</span> +<span id="L15735" class="LineNr">15735 </span> <span class="subxComment"># else if slice-starts-with?(word-slice, "#") # comment</span> +<span id="L15736" class="LineNr">15736 </span> <span class="subxComment"># continue # end of line</span> +<span id="L15737" class="LineNr">15737 </span> <span class="subxComment"># else if slice-equal?(word-slice, "fn")</span> +<span id="L15738" class="LineNr">15738 </span> <span class="subxComment"># var new-function: (handle function) = allocate(function)</span> +<span id="L15739" class="LineNr">15739 </span> <span class="subxComment"># var vars: (stack live-var 256)</span> +<span id="L15740" class="LineNr">15740 </span> <span class="subxComment"># populate-mu-function-header(line, new-function, vars)</span> +<span id="L15741" class="LineNr">15741 </span> <span class="subxComment"># populate-mu-function-body(in, new-function, vars)</span> +<span id="L15742" class="LineNr">15742 </span> <span class="subxComment"># assert(vars->top == 0)</span> +<span id="L15743" class="LineNr">15743 </span> <span class="subxComment"># *curr-function = new-function</span> +<span id="L15744" class="LineNr">15744 </span> <span class="subxComment"># curr-function = &new-function->next</span> +<span id="L15745" class="LineNr">15745 </span> <span class="subxComment"># else if slice-equal?(word-slice, "sig")</span> +<span id="L15746" class="LineNr">15746 </span> <span class="subxComment"># var new-function: (handle function) = allocate(function)</span> +<span id="L15747" class="LineNr">15747 </span> <span class="subxComment"># populate-mu-function-signature(line, new-function)</span> +<span id="L15748" class="LineNr">15748 </span> <span class="subxComment"># *curr-signature = new-function</span> +<span id="L15749" class="LineNr">15749 </span> <span class="subxComment"># curr-signature = &new-function->next</span> +<span id="L15750" class="LineNr">15750 </span> <span class="subxComment"># else if slice-equal?(word-slice, "type")</span> +<span id="L15751" class="LineNr">15751 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> +<span id="L15752" class="LineNr">15752 </span> <span class="subxComment"># type-id = pos-or-insert-slice(Type-id, word-slice)</span> +<span id="L15753" class="LineNr">15753 </span> <span class="subxComment"># var new-type: (handle typeinfo) = find-or-create-typeinfo(type-id)</span> +<span id="L15754" class="LineNr">15754 </span> <span class="subxComment"># assert(next-word(line) == "{")</span> +<span id="L15755" class="LineNr">15755 </span> <span class="subxComment"># populate-mu-type(in, new-type)</span> +<span id="L15756" class="LineNr">15756 </span> <span class="subxComment"># else</span> +<span id="L15757" class="LineNr">15757 </span> <span class="subxComment"># abort()</span> +<span id="L15758" class="LineNr">15758 </span> <span class="subxComment">#</span> +<span id="L15759" class="LineNr">15759 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15760" class="LineNr">15760 </span> 55/push-ebp +<span id="L15761" class="LineNr">15761 </span> 89/<- %ebp 4/r32/esp +<span id="L15762" class="LineNr">15762 </span> <span class="subxComment"># var curr-signature: (addr handle function) at *(ebp-4)</span> +<span id="L15763" class="LineNr">15763 </span> 68/push <a href='mu.subx.html#L249'>_Program-signatures</a>/imm32 +<span id="L15764" class="LineNr">15764 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L15765" class="LineNr">15765 </span> 50/push-eax +<span id="L15766" class="LineNr">15766 </span> 51/push-ecx +<span id="L15767" class="LineNr">15767 </span> 52/push-edx +<span id="L15768" class="LineNr">15768 </span> 53/push-ebx +<span id="L15769" class="LineNr">15769 </span> 56/push-esi +<span id="L15770" class="LineNr">15770 </span> 57/push-edi +<span id="L15771" class="LineNr">15771 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> +<span id="L15772" class="LineNr">15772 </span> 81 5/subop/subtract %esp 0x200/imm32 +<span id="L15773" class="LineNr">15773 </span> 68/push 0x200/imm32/size +<span id="L15774" class="LineNr">15774 </span> 68/push 0/imm32/read +<span id="L15775" class="LineNr">15775 </span> 68/push 0/imm32/write +<span id="L15776" class="LineNr">15776 </span> 89/<- %ecx 4/r32/esp +<span id="L15777" class="LineNr">15777 </span> <span class="subxComment"># var word-slice/edx: slice</span> +<span id="L15778" class="LineNr">15778 </span> 68/push 0/imm32/end +<span id="L15779" class="LineNr">15779 </span> 68/push 0/imm32/start +<span id="L15780" class="LineNr">15780 </span> 89/<- %edx 4/r32/esp +<span id="L15781" class="LineNr">15781 </span> <span class="subxComment"># var curr-function/edi: (addr handle function)</span> +<span id="L15782" class="LineNr">15782 </span> bf/copy-to-edi <a href='mu.subx.html#L241'>_Program-functions</a>/imm32 +<span id="L15783" class="LineNr">15783 </span> <span class="subxComment"># var vars/ebx: (stack live-var 256)</span> +<span id="L15784" class="LineNr">15784 </span> 81 5/subop/subtract %esp 0xc00/imm32 +<span id="L15785" class="LineNr">15785 </span> 68/push 0xc00/imm32/size +<span id="L15786" class="LineNr">15786 </span> 68/push 0/imm32/top +<span id="L15787" class="LineNr">15787 </span> 89/<- %ebx 4/r32/esp +<span id="L15788" class="LineNr">15788 </span> { +<span id="L15789" class="LineNr">15789 </span><span class="Constant">$parse-mu:line-loop</span>: +<span id="L15790" class="LineNr">15790 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> %ecx) +<span id="L15791" class="LineNr">15791 </span> (<a href='122read-line.subx.html#L9'>read-line-buffered</a> *(ebp+8) %ecx) +<span id="L15792" class="LineNr">15792 </span> <span class="subxComment"># if (line->write == 0) break</span> +<span id="L15793" class="LineNr">15793 </span> 81 7/subop/compare *ecx 0/imm32 +<span id="L15794" class="LineNr">15794 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L15795" class="Folded">15795 </span><span class="Folded">+-- 6 lines: #? # dump line ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15801" class="LineNr">15801 </span> (<a href='mu.subx.html#L17305'>next-mu-token</a> %ecx %edx) +<span id="L15802" class="LineNr">15802 </span> <span class="subxComment"># if slice-empty?(word-slice) continue</span> +<span id="L15803" class="LineNr">15803 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %edx) <span class="subxComment"># => eax</span> +<span id="L15804" class="LineNr">15804 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15805" class="LineNr">15805 </span> 0f 85/jump-if-!= <span class="Constant">loop</span>/disp32 +<span id="L15806" class="LineNr">15806 </span> <span class="subxComment"># if (*word-slice->start == "#") continue</span> +<span id="L15807" class="LineNr">15807 </span> <span class="subxS1Comment"># . eax = *word-slice->start</span> +<span id="L15808" class="LineNr">15808 </span> 8b/-> *edx 0/r32/eax +<span id="L15809" class="LineNr">15809 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L15810" class="LineNr">15810 </span> 25/and-eax-with 0xff/imm32 +<span id="L15811" class="LineNr">15811 </span> <span class="subxS1Comment"># . if (eax == '#') continue</span> +<span id="L15812" class="LineNr">15812 </span> 3d/compare-eax-and 0x23/imm32/hash +<span id="L15813" class="LineNr">15813 </span> 0f 84/jump-if-= <span class="Constant">loop</span>/disp32 +<span id="L15814" class="LineNr">15814 </span> <span class="subxComment"># if (slice-equal?(word-slice, "fn")) parse a function</span> +<span id="L15815" class="LineNr">15815 </span> { +<span id="L15816" class="LineNr">15816 </span><span class="Constant">$parse-mu:fn</span>: +<span id="L15817" class="LineNr">15817 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"fn"</span>) <span class="subxComment"># => eax</span> +<span id="L15818" class="LineNr">15818 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15819" class="LineNr">15819 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L15820" class="LineNr">15820 </span> <span class="subxComment"># var new-function/esi: (handle function)</span> +<span id="L15821" class="LineNr">15821 </span> 68/push 0/imm32 +<span id="L15822" class="LineNr">15822 </span> 68/push 0/imm32 +<span id="L15823" class="LineNr">15823 </span> 89/<- %esi 4/r32/esp +<span id="L15824" class="LineNr">15824 </span> <span class="subxComment"># populate-mu-function(line, in, vars, new-function)</span> +<span id="L15825" class="LineNr">15825 </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="L15826" class="LineNr">15826 </span> <span class="subxComment"># var new-function-addr/eax: (addr function)</span> +<span id="L15827" class="LineNr">15827 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L15828" class="LineNr">15828 </span> <span class="subxComment"># initialize vars</span> +<span id="L15829" class="LineNr">15829 </span> (<a href='203stack.subx.html#L13'>clear-stack</a> %ebx) +<span id="L15830" class="LineNr">15830 </span> <span class="subxComment">#</span> +<span id="L15831" class="LineNr">15831 </span> (<a href='mu.subx.html#L15970'>populate-mu-function-header</a> %ecx %eax %ebx *(ebp+0xc) *(ebp+0x10)) +<span id="L15832" class="LineNr">15832 </span> (<a href='mu.subx.html#L18087'>populate-mu-function-body</a> *(ebp+8) %eax %ebx *(ebp+0xc) *(ebp+0x10)) +<span id="L15833" class="LineNr">15833 </span> <span class="subxComment"># *curr-function = new-function</span> +<span id="L15834" class="LineNr">15834 </span> 8b/-> *esi 0/r32/eax +<span id="L15835" class="LineNr">15835 </span> 89/<- *edi 0/r32/eax +<span id="L15836" class="LineNr">15836 </span> 8b/-> *(esi+4) 0/r32/eax +<span id="L15837" class="LineNr">15837 </span> 89/<- *(edi+4) 0/r32/eax +<span id="L15838" class="LineNr">15838 </span> <span class="subxComment"># curr-function = &new-function->next</span> +<span id="L15839" class="LineNr">15839 </span> <span class="subxS1Comment"># . var tmp/eax: (addr function) = lookup(new-function)</span> +<span id="L15840" class="LineNr">15840 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L15841" class="LineNr">15841 </span> <span class="subxS1Comment"># . curr-function = &tmp->next</span> +<span id="L15842" class="LineNr">15842 </span> 8d/copy-address *(eax+0x20) 7/r32/edi <span class="subxComment"># Function-next</span> +<span id="L15843" class="LineNr">15843 </span> <span class="subxComment"># reclaim new-function</span> +<span id="L15844" class="LineNr">15844 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15845" class="LineNr">15845 </span> <span class="subxComment">#</span> +<span id="L15846" class="LineNr">15846 </span> e9/jump $parse-mu:line-loop/disp32 +<span id="L15847" class="LineNr">15847 </span> } +<span id="L15848" class="LineNr">15848 </span> <span class="subxComment"># if (slice-equal?(word-slice, "sig")) parse a function signature</span> +<span id="L15849" class="LineNr">15849 </span> <span class="subxComment"># Function signatures are for providing types to SubX functions.</span> +<span id="L15850" class="LineNr">15850 </span> { +<span id="L15851" class="LineNr">15851 </span><span class="Constant">$parse-mu:sig</span>: +<span id="L15852" class="LineNr">15852 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"sig"</span>) <span class="subxComment"># => eax</span> +<span id="L15853" class="LineNr">15853 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15854" class="LineNr">15854 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L15855" class="LineNr">15855 </span> <span class="subxComment"># edi = curr-function</span> +<span id="L15856" class="LineNr">15856 </span> 57/push-edi +<span id="L15857" class="LineNr">15857 </span> 8b/-> *(ebp-4) 7/r32/edi +<span id="L15858" class="LineNr">15858 </span> <span class="subxComment"># var new-function/esi: (handle function)</span> +<span id="L15859" class="LineNr">15859 </span> 68/push 0/imm32 +<span id="L15860" class="LineNr">15860 </span> 68/push 0/imm32 +<span id="L15861" class="LineNr">15861 </span> 89/<- %esi 4/r32/esp +<span id="L15862" class="LineNr">15862 </span> <span class="subxComment"># populate-mu-function(line, in, vars, new-function)</span> +<span id="L15863" class="LineNr">15863 </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="L15864" class="LineNr">15864 </span> <span class="subxComment"># var new-function-addr/eax: (addr function)</span> +<span id="L15865" class="LineNr">15865 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L15866" class="LineNr">15866 </span> <span class="subxComment">#</span> +<span id="L15867" class="LineNr">15867 </span> (<a href='mu.subx.html#L16290'>populate-mu-function-signature</a> %ecx %eax *(ebp+0xc) *(ebp+0x10)) +<span id="L15868" class="LineNr">15868 </span> <span class="subxComment"># *curr-signature = new-function</span> +<span id="L15869" class="LineNr">15869 </span> 8b/-> *esi 0/r32/eax +<span id="L15870" class="LineNr">15870 </span> 89/<- *edi 0/r32/eax +<span id="L15871" class="LineNr">15871 </span> 8b/-> *(esi+4) 0/r32/eax +<span id="L15872" class="LineNr">15872 </span> 89/<- *(edi+4) 0/r32/eax +<span id="L15873" class="LineNr">15873 </span> <span class="subxComment"># curr-signature = &new-function->next</span> +<span id="L15874" class="LineNr">15874 </span> <span class="subxS1Comment"># . var tmp/eax: (addr function) = lookup(new-function)</span> +<span id="L15875" class="LineNr">15875 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L15876" class="LineNr">15876 </span> <span class="subxS1Comment"># . curr-function = &tmp->next</span> +<span id="L15877" class="LineNr">15877 </span> 8d/copy-address *(eax+0x20) 7/r32/edi <span class="subxComment"># Function-next</span> +<span id="L15878" class="LineNr">15878 </span> <span class="subxComment"># reclaim new-function</span> +<span id="L15879" class="LineNr">15879 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15880" class="LineNr">15880 </span> <span class="subxComment"># save curr-function</span> +<span id="L15881" class="LineNr">15881 </span> 89/<- *(ebp-4) 7/r32/edi +<span id="L15882" class="LineNr">15882 </span> <span class="subxComment"># restore edi</span> +<span id="L15883" class="LineNr">15883 </span> 5f/pop-to-edi +<span id="L15884" class="LineNr">15884 </span> <span class="subxComment">#</span> +<span id="L15885" class="LineNr">15885 </span> e9/jump $parse-mu:line-loop/disp32 +<span id="L15886" class="LineNr">15886 </span> } +<span id="L15887" class="LineNr">15887 </span> <span class="subxComment"># if (slice-equal?(word-slice, "type")) parse a type (struct/record) definition</span> +<span id="L15888" class="LineNr">15888 </span> { +<span id="L15889" class="LineNr">15889 </span><span class="Constant">$parse-mu:type</span>: +<span id="L15890" class="LineNr">15890 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"type"</span>) <span class="subxComment"># => eax</span> +<span id="L15891" class="LineNr">15891 </span> 3d/compare-eax-and 0/imm32 +<span id="L15892" class="LineNr">15892 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L15893" class="LineNr">15893 </span> (<a href='mu.subx.html#L17305'>next-mu-token</a> %ecx %edx) +<span id="L15894" class="LineNr">15894 </span> <span class="subxComment"># var type-id/eax: int</span> +<span id="L15895" class="LineNr">15895 </span> (<a href='mu.subx.html#L17475'>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="L15896" class="LineNr">15896 </span> <span class="subxComment"># spill</span> +<span id="L15897" class="LineNr">15897 </span> 51/push-ecx +<span id="L15898" class="LineNr">15898 </span> <span class="subxComment"># var new-type/ecx: (handle typeinfo)</span> +<span id="L15899" class="LineNr">15899 </span> 68/push 0/imm32 +<span id="L15900" class="LineNr">15900 </span> 68/push 0/imm32 +<span id="L15901" class="LineNr">15901 </span> 89/<- %ecx 4/r32/esp +<span id="L15902" class="LineNr">15902 </span> (<a href='mu.subx.html#L20265'>find-or-create-typeinfo</a> %eax %ecx) +<span id="L15903" class="LineNr">15903 </span> <span class="subxComment">#</span> +<span id="L15904" class="LineNr">15904 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> +<span id="L15905" class="LineNr">15905 </span> <span class="subxComment"># TODO: ensure that 'line' has nothing else but '{'</span> +<span id="L15906" class="LineNr">15906 </span><span class="CommentedCode">#? (dump-typeinfos "=== aaa\n")</span> +<span id="L15907" class="LineNr">15907 </span> (<a href='mu.subx.html#L20499'>populate-mu-type</a> *(ebp+8) %eax *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L15908" class="LineNr">15908 </span><span class="CommentedCode">#? (dump-typeinfos "=== zzz\n")</span> +<span id="L15909" class="LineNr">15909 </span> <span class="subxComment"># reclaim new-type</span> +<span id="L15910" class="LineNr">15910 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15911" class="LineNr">15911 </span> <span class="subxComment"># restore</span> +<span id="L15912" class="LineNr">15912 </span> 59/pop-to-ecx +<span id="L15913" class="LineNr">15913 </span> e9/jump $parse-mu:line-loop/disp32 +<span id="L15914" class="LineNr">15914 </span> } +<span id="L15915" class="LineNr">15915 </span> <span class="subxComment"># otherwise abort</span> +<span id="L15916" class="LineNr">15916 </span> e9/jump $parse-mu:error1/disp32 +<span id="L15917" class="LineNr">15917 </span> } <span class="subxComment"># end line loop</span> +<span id="L15918" class="LineNr">15918 </span><span class="Constant">$parse-mu:end</span>: +<span id="L15919" class="LineNr">15919 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L15920" class="LineNr">15920 </span> 81 0/subop/add %esp 0x20c/imm32 <span class="subxComment"># line</span> +<span id="L15921" class="LineNr">15921 </span> 81 0/subop/add %esp 0xc08/imm32 <span class="subxComment"># vars</span> +<span id="L15922" class="LineNr">15922 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15923" class="LineNr">15923 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L15924" class="LineNr">15924 </span> 5f/pop-to-edi +<span id="L15925" class="LineNr">15925 </span> 5e/pop-to-esi +<span id="L15926" class="LineNr">15926 </span> 5b/pop-to-ebx +<span id="L15927" class="LineNr">15927 </span> 5a/pop-to-edx +<span id="L15928" class="LineNr">15928 </span> 59/pop-to-ecx +<span id="L15929" class="LineNr">15929 </span> 58/pop-to-eax +<span id="L15930" class="LineNr">15930 </span> <span class="subxS1Comment"># . reclaim local</span> +<span id="L15931" class="LineNr">15931 </span> 81 0/subop/add %esp 4/imm32 +<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="Constant">$parse-mu:error1</span>: +<span id="L15938" class="LineNr">15938 </span> <span class="subxComment"># error("unexpected top-level command: " word-slice "\n")</span> +<span id="L15939" class="LineNr">15939 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"unexpected top-level command: "</span>) +<span id="L15940" class="LineNr">15940 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0xc) %edx) +<span id="L15941" class="LineNr">15941 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"\n"</span>) +<span id="L15942" class="LineNr">15942 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L15943" class="LineNr">15943 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) +<span id="L15944" class="LineNr">15944 </span> <span class="subxComment"># never gets here</span> +<span id="L15945" class="LineNr">15945 </span> +<span id="L15946" class="LineNr">15946 </span><span class="Constant">$parse-mu:error2</span>: +<span id="L15947" class="LineNr">15947 </span> <span class="subxComment"># error(vars->top " vars not reclaimed after fn '" new-function->name "'\n")</span> +<span id="L15948" class="LineNr">15948 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+0xc) *ebx) +<span id="L15949" class="LineNr">15949 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">" vars not reclaimed after fn '"</span>) +<span id="L15950" class="LineNr">15950 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0xc) *eax) <span class="subxComment"># Function-name</span> +<span id="L15951" class="LineNr">15951 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"'\n"</span>) +<span id="L15952" class="LineNr">15952 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L15953" class="LineNr">15953 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) +<span id="L15954" class="LineNr">15954 </span> <span class="subxComment"># never gets here</span> +<span id="L15955" class="LineNr">15955 </span> +<span id="L15956" class="LineNr">15956 </span><span class="subxComment"># scenarios considered:</span> +<span id="L15957" class="LineNr">15957 </span><span class="subxComment"># ✗ fn foo # no block</span> +<span id="L15958" class="LineNr">15958 </span><span class="subxComment"># ✓ fn foo {</span> +<span id="L15959" class="LineNr">15959 </span><span class="subxComment"># ✗ fn foo { {</span> +<span id="L15960" class="LineNr">15960 </span><span class="subxComment"># ✗ fn foo { }</span> +<span id="L15961" class="LineNr">15961 </span><span class="subxComment"># ✗ fn foo { } {</span> +<span id="L15962" class="LineNr">15962 </span><span class="subxComment"># ✗ fn foo x {</span> +<span id="L15963" class="LineNr">15963 </span><span class="subxComment"># ✗ fn foo x: {</span> +<span id="L15964" class="LineNr">15964 </span><span class="subxComment"># ✓ fn foo x: int {</span> +<span id="L15965" class="LineNr">15965 </span><span class="subxComment"># ✓ fn foo x: int {</span> +<span id="L15966" class="LineNr">15966 </span><span class="subxComment"># ✓ fn foo x: int -> _/eax: int {</span> +<span id="L15967" class="LineNr">15967 </span><span class="subxComment"># TODO:</span> +<span id="L15968" class="LineNr">15968 </span><span class="subxComment"># disallow outputs of type `(... addr ...)`</span> +<span id="L15969" class="LineNr">15969 </span><span class="subxComment"># disallow inputs of type `(... addr ... addr ...)`</span> +<span id="L15970" class="LineNr">15970 </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="L15971" class="LineNr">15971 </span> <span class="subxComment"># pseudocode:</span> +<span id="L15972" class="LineNr">15972 </span> <span class="subxComment"># var word-slice: slice</span> +<span id="L15973" class="LineNr">15973 </span> <span class="subxComment"># next-mu-token(first-line, word-slice)</span> +<span id="L15974" class="LineNr">15974 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> +<span id="L15975" class="LineNr">15975 </span> <span class="subxComment"># assert(word-slice not in '{' '}' '->')</span> +<span id="L15976" class="LineNr">15976 </span> <span class="subxComment"># out->name = slice-to-string(word-slice)</span> +<span id="L15977" class="LineNr">15977 </span> <span class="subxComment"># ## inouts</span> +<span id="L15978" class="LineNr">15978 </span> <span class="subxComment"># while true</span> +<span id="L15979" class="LineNr">15979 </span> <span class="subxComment"># word-slice = next-mu-token(first-line)</span> +<span id="L15980" class="LineNr">15980 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> +<span id="L15981" class="LineNr">15981 </span> <span class="subxComment"># if (word-slice == '{') goto done</span> +<span id="L15982" class="LineNr">15982 </span> <span class="subxComment"># if (word-slice == '->') break</span> +<span id="L15983" class="LineNr">15983 </span> <span class="subxComment"># assert(word-slice != '}')</span> +<span id="L15984" class="LineNr">15984 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, first-line)</span> +<span id="L15985" class="LineNr">15985 </span> <span class="subxComment"># assert(v->register == null)</span> +<span id="L15986" class="LineNr">15986 </span> <span class="subxComment"># # v->block-depth is implicitly 0</span> +<span id="L15987" class="LineNr">15987 </span> <span class="subxComment"># out->inouts = append(v, out->inouts)</span> +<span id="L15988" class="LineNr">15988 </span> <span class="subxComment"># push(vars, {v, false})</span> +<span id="L15989" class="LineNr">15989 </span> <span class="subxComment"># ## outputs</span> +<span id="L15990" class="LineNr">15990 </span> <span class="subxComment"># while true</span> +<span id="L15991" class="LineNr">15991 </span> <span class="subxComment"># word-slice = next-mu-token(first-line)</span> +<span id="L15992" class="LineNr">15992 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> +<span id="L15993" class="LineNr">15993 </span> <span class="subxComment"># if (word-slice == '{') break</span> +<span id="L15994" class="LineNr">15994 </span> <span class="subxComment"># assert(word-slice not in '}' '->')</span> +<span id="L15995" class="LineNr">15995 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, first-line)</span> +<span id="L15996" class="LineNr">15996 </span> <span class="subxComment"># assert(v->register != null)</span> +<span id="L15997" class="LineNr">15997 </span> <span class="subxComment"># assert(v->name == "_")</span> +<span id="L15998" class="LineNr">15998 </span> <span class="subxComment"># out->outputs = append(v, out->outputs)</span> +<span id="L15999" class="LineNr">15999 </span> <span class="subxComment"># done:</span> +<span id="L16000" class="LineNr">16000 </span> <span class="subxComment">#</span> +<span id="L16001" class="LineNr">16001 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16002" class="LineNr">16002 </span> 55/push-ebp +<span id="L16003" class="LineNr">16003 </span> 89/<- %ebp 4/r32/esp +<span id="L16004" class="LineNr">16004 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L16005" class="LineNr">16005 </span> 50/push-eax +<span id="L16006" class="LineNr">16006 </span> 51/push-ecx +<span id="L16007" class="LineNr">16007 </span> 52/push-edx +<span id="L16008" class="LineNr">16008 </span> 53/push-ebx +<span id="L16009" class="LineNr">16009 </span> 57/push-edi +<span id="L16010" class="LineNr">16010 </span> <span class="subxComment"># edi = out</span> +<span id="L16011" class="LineNr">16011 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L16012" class="LineNr">16012 </span> <span class="subxComment"># var word-slice/ecx: slice</span> +<span id="L16013" class="LineNr">16013 </span> 68/push 0/imm32/end +<span id="L16014" class="LineNr">16014 </span> 68/push 0/imm32/start +<span id="L16015" class="LineNr">16015 </span> 89/<- %ecx 4/r32/esp +<span id="L16016" class="LineNr">16016 </span> <span class="subxComment"># var v/ebx: (handle var)</span> +<span id="L16017" class="LineNr">16017 </span> 68/push 0/imm32 +<span id="L16018" class="LineNr">16018 </span> 68/push 0/imm32 +<span id="L16019" class="LineNr">16019 </span> 89/<- %ebx 4/r32/esp +<span id="L16020" class="LineNr">16020 </span> <span class="subxComment"># read function name</span> +<span id="L16021" class="LineNr">16021 </span> (<a href='mu.subx.html#L17305'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L16022" class="LineNr">16022 </span> <span class="subxComment"># error checking</span> +<span id="L16023" class="LineNr">16023 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> +<span id="L16024" class="LineNr">16024 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L16025" class="LineNr">16025 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16026" class="LineNr">16026 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 +<span id="L16027" class="LineNr">16027 </span> <span class="subxComment"># if (word-slice == '{') abort</span> +<span id="L16028" class="LineNr">16028 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> <span id="L16029" class="LineNr">16029 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16030" class="LineNr">16030 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-lookup/disp32 -<span id="L16031" class="LineNr">16031 </span> <span class="subxComment"># save function name</span> -<span id="L16032" class="LineNr">16032 </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="L16033" class="LineNr">16033 </span> <span class="subxComment"># save function inouts</span> -<span id="L16034" class="LineNr">16034 </span> { -<span id="L16035" class="LineNr">16035 </span><span class="Constant">$populate-mu-function-header:check-for-inout</span>: -<span id="L16036" class="LineNr">16036 </span> (<a href='mu.subx.html#L17283'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L16037" class="LineNr">16037 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> -<span id="L16038" class="LineNr">16038 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L16039" class="LineNr">16039 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16040" class="LineNr">16040 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 -<span id="L16041" class="LineNr">16041 </span> <span class="subxComment"># if (word-slice == '{') goto done</span> -<span id="L16042" class="LineNr">16042 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> -<span id="L16043" class="LineNr">16043 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16044" class="LineNr">16044 </span> 0f 85/jump-if-!= $populate-mu-function-header:done/disp32 -<span id="L16045" class="LineNr">16045 </span> <span class="subxComment"># if (word-slice == '->') break</span> -<span id="L16046" class="LineNr">16046 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> -<span id="L16047" class="LineNr">16047 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16048" class="LineNr">16048 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L16049" class="LineNr">16049 </span> <span class="subxComment"># if (word-slice == '}') abort</span> -<span id="L16050" class="LineNr">16050 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> -<span id="L16051" class="LineNr">16051 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16052" class="LineNr">16052 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 -<span id="L16053" class="LineNr">16053 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> -<span id="L16054" class="LineNr">16054 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16055" class="LineNr">16055 </span> (<a href='mu.subx.html#L16928'>parse-var-with-type</a> %ecx *(ebp+8) %ebx %eax *(ebp+0x14) *(ebp+0x18)) -<span id="L16056" class="LineNr">16056 </span> <span class="subxComment"># if (v->register != null) abort</span> -<span id="L16057" class="LineNr">16057 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> -<span id="L16058" class="LineNr">16058 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L16059" class="LineNr">16059 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L16060" class="LineNr">16060 </span> 0f 85/jump-if-!= $populate-mu-function-header:error2/disp32 -<span id="L16061" class="LineNr">16061 </span> <span class="subxComment"># if function name is not "main"</span> -<span id="L16062" class="LineNr">16062 </span> <span class="subxComment"># and v->type contains an 'addr' anywhere except the start, abort</span> -<span id="L16063" class="LineNr">16063 </span> { -<span id="L16064" class="LineNr">16064 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16065" class="LineNr">16065 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"main"</span>) <span class="subxComment"># => eax</span> -<span id="L16066" class="LineNr">16066 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16067" class="LineNr">16067 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L16068" class="LineNr">16068 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L16069" class="LineNr">16069 </span> (<a href='mu.subx.html#L16566'>addr-payload-contains-addr?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L16070" class="LineNr">16070 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16071" class="LineNr">16071 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-nested-addr-inout/disp32 -<span id="L16072" class="LineNr">16072 </span> } -<span id="L16073" class="LineNr">16073 </span> <span class="subxComment"># v->block-depth is implicitly 0</span> -<span id="L16074" class="LineNr">16074 </span> <span class="subxComment">#</span> -<span id="L16075" class="LineNr">16075 </span> <span class="subxComment"># out->inouts = append(v, out->inouts)</span> -<span id="L16076" class="LineNr">16076 </span> 8d/copy-address *(edi+8) 0/r32/eax <span class="subxComment"># Function-inouts</span> -<span id="L16077" class="LineNr">16077 </span> (<a href='mu.subx.html#L20012'>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="L16078" class="LineNr">16078 </span> <span class="subxComment"># push(vars, {v, false})</span> -<span id="L16079" class="LineNr">16079 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *ebx) -<span id="L16080" class="LineNr">16080 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ebx+4)) -<span id="L16081" class="LineNr">16081 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) 0) <span class="subxComment"># false</span> -<span id="L16082" class="LineNr">16082 </span> <span class="subxComment">#</span> -<span id="L16083" class="LineNr">16083 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L16084" class="LineNr">16084 </span> } -<span id="L16085" class="LineNr">16085 </span> <span class="subxComment"># save function outputs</span> -<span id="L16086" class="LineNr">16086 </span> { -<span id="L16087" class="LineNr">16087 </span><span class="Constant">$populate-mu-function-header:check-for-out</span>: -<span id="L16088" class="LineNr">16088 </span> (<a href='mu.subx.html#L17283'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L16089" class="LineNr">16089 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> -<span id="L16090" class="LineNr">16090 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L16091" class="LineNr">16091 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16092" class="LineNr">16092 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 -<span id="L16093" class="LineNr">16093 </span> <span class="subxComment"># if (word-slice == '{') break</span> -<span id="L16094" class="LineNr">16094 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> -<span id="L16095" class="LineNr">16095 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16096" class="LineNr">16096 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L16097" class="LineNr">16097 </span> <span class="subxComment"># if (word-slice == '->') abort</span> -<span id="L16098" class="LineNr">16098 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> -<span id="L16099" class="LineNr">16099 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16100" class="LineNr">16100 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 -<span id="L16101" class="LineNr">16101 </span> <span class="subxComment"># if (word-slice == '}') abort</span> -<span id="L16102" class="LineNr">16102 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> -<span id="L16103" class="LineNr">16103 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16104" class="LineNr">16104 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 -<span id="L16105" class="LineNr">16105 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> -<span id="L16106" class="LineNr">16106 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16107" class="LineNr">16107 </span> (<a href='mu.subx.html#L16928'>parse-var-with-type</a> %ecx *(ebp+8) %ebx %eax *(ebp+0x14) *(ebp+0x18)) -<span id="L16108" class="LineNr">16108 </span> <span class="subxComment"># assert(var->register != null)</span> -<span id="L16109" class="LineNr">16109 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> -<span id="L16110" class="LineNr">16110 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L16111" class="LineNr">16111 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L16112" class="LineNr">16112 </span> 0f 84/jump-if-= $populate-mu-function-header:error3/disp32 -<span id="L16113" class="LineNr">16113 </span> <span class="subxComment"># if (var->name != "_") abort</span> -<span id="L16114" class="LineNr">16114 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16115" class="LineNr">16115 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"_"</span>) <span class="subxComment"># => eax</span> -<span id="L16116" class="LineNr">16116 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16117" class="LineNr">16117 </span> 0f 84/jump-if-= $populate-mu-function-header:error4/disp32 -<span id="L16118" class="LineNr">16118 </span> <span class="subxComment"># if v->type is an addr, abort</span> -<span id="L16119" class="LineNr">16119 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L16120" class="LineNr">16120 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L16121" class="LineNr">16121 </span> (<a href='mu.subx.html#L35916'>mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L16122" class="LineNr">16122 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16123" class="LineNr">16123 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-addr-output/disp32 -<span id="L16124" class="LineNr">16124 </span> <span class="subxComment"># out->outputs = append(v, out->outputs)</span> -<span id="L16125" class="LineNr">16125 </span> 8d/copy-address *(edi+0x10) 0/r32/eax <span class="subxComment"># Function-outputs</span> -<span id="L16126" class="LineNr">16126 </span> (<a href='mu.subx.html#L20012'>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="L16127" class="LineNr">16127 </span> <span class="subxComment">#</span> -<span id="L16128" class="LineNr">16128 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L16129" class="LineNr">16129 </span> } -<span id="L16130" class="LineNr">16130 </span><span class="Constant">$populate-mu-function-header:done</span>: -<span id="L16131" class="LineNr">16131 </span> (<a href='mu.subx.html#L18377'>check-no-tokens-left</a> *(ebp+8)) -<span id="L16132" class="LineNr">16132 </span><span class="Constant">$populate-mu-function-header:end</span>: -<span id="L16133" class="LineNr">16133 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L16134" class="LineNr">16134 </span> 81 0/subop/add %esp 0x10/imm32 -<span id="L16135" class="LineNr">16135 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L16136" class="LineNr">16136 </span> 5f/pop-to-edi -<span id="L16137" class="LineNr">16137 </span> 5b/pop-to-ebx -<span id="L16138" class="LineNr">16138 </span> 5a/pop-to-edx -<span id="L16139" class="LineNr">16139 </span> 59/pop-to-ecx -<span id="L16140" class="LineNr">16140 </span> 58/pop-to-eax -<span id="L16141" class="LineNr">16141 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16142" class="LineNr">16142 </span> 89/<- %esp 5/r32/ebp -<span id="L16143" class="LineNr">16143 </span> 5d/pop-to-ebp -<span id="L16144" class="LineNr">16144 </span> c3/return -<span id="L16145" class="LineNr">16145 </span> -<span id="L16146" class="LineNr">16146 </span><span class="Constant">$populate-mu-function-header:error1</span>: -<span id="L16147" class="LineNr">16147 </span> <span class="subxComment"># error("function header not in form 'fn <name> {'")</span> -<span id="L16148" class="LineNr">16148 </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="L16149" class="LineNr">16149 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L16150" class="LineNr">16150 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) -<span id="L16151" class="LineNr">16151 </span> (<a href='125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x14) *(ebp+8)) -<span id="L16152" class="LineNr">16152 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"'\n"</span>) -<span id="L16153" class="LineNr">16153 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L16154" class="LineNr">16154 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L16155" class="LineNr">16155 </span> <span class="subxComment"># never gets here</span> -<span id="L16156" class="LineNr">16156 </span> -<span id="L16157" class="LineNr">16157 </span><span class="Constant">$populate-mu-function-header:error2</span>: -<span id="L16158" class="LineNr">16158 </span> <span class="subxComment"># error("fn " fn ": function inout '" var "' cannot be in a register")</span> -<span id="L16159" class="LineNr">16159 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L16160" class="LineNr">16160 </span> 50/push-eax -<span id="L16161" class="LineNr">16161 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16162" class="LineNr">16162 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L16163" class="LineNr">16163 </span> 58/pop-to-eax -<span id="L16164" class="LineNr">16164 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": function inout '"</span>) -<span id="L16165" class="LineNr">16165 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16166" class="LineNr">16166 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L16167" class="LineNr">16167 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' cannot be in a register"</span>) -<span id="L16168" class="LineNr">16168 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L16169" class="LineNr">16169 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L16170" class="LineNr">16170 </span> <span class="subxComment"># never gets here</span> -<span id="L16171" class="LineNr">16171 </span> -<span id="L16172" class="LineNr">16172 </span><span class="Constant">$populate-mu-function-header:error3</span>: -<span id="L16173" class="LineNr">16173 </span> <span class="subxComment"># error("fn " fn ": function output '" var "' must be in a register")</span> -<span id="L16174" class="LineNr">16174 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L16175" class="LineNr">16175 </span> 50/push-eax -<span id="L16176" class="LineNr">16176 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16177" class="LineNr">16177 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L16178" class="LineNr">16178 </span> 58/pop-to-eax -<span id="L16179" class="LineNr">16179 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": function output '"</span>) -<span id="L16180" class="LineNr">16180 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L16181" class="LineNr">16181 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16182" class="LineNr">16182 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L16183" class="LineNr">16183 </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="L16184" class="LineNr">16184 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) -<span id="L16185" class="LineNr">16185 </span> (<a href='125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x14) *(ebp+8)) -<span id="L16186" class="LineNr">16186 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"'\n"</span>) -<span id="L16187" class="LineNr">16187 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L16188" class="LineNr">16188 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L16189" class="LineNr">16189 </span> <span class="subxComment"># never gets here</span> -<span id="L16190" class="LineNr">16190 </span> -<span id="L16191" class="LineNr">16191 </span><span class="Constant">$populate-mu-function-header:error4</span>: -<span id="L16192" class="LineNr">16192 </span> <span class="subxComment"># error("fn " fn ": function outputs cannot be named; rename '" var "' in the header to '_'")</span> -<span id="L16193" class="LineNr">16193 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L16194" class="LineNr">16194 </span> 50/push-eax -<span id="L16195" class="LineNr">16195 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16196" class="LineNr">16196 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L16197" class="LineNr">16197 </span> 58/pop-to-eax -<span id="L16198" class="LineNr">16198 </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="L16199" class="LineNr">16199 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L16200" class="LineNr">16200 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16201" class="LineNr">16201 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L16202" class="LineNr">16202 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' in the header to '_'\n"</span>) -<span id="L16203" class="LineNr">16203 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L16204" class="LineNr">16204 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L16205" class="LineNr">16205 </span> <span class="subxComment"># never gets here</span> -<span id="L16206" class="LineNr">16206 </span> -<span id="L16207" class="LineNr">16207 </span><span class="Constant">$populate-mu-function-header:error-duplicate</span>: -<span id="L16208" class="LineNr">16208 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L16209" class="LineNr">16209 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x14) %ecx) -<span id="L16210" class="LineNr">16210 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">" defined more than once\n"</span>) -<span id="L16211" class="LineNr">16211 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L16212" class="LineNr">16212 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L16213" class="LineNr">16213 </span> <span class="subxComment"># never gets here</span> -<span id="L16214" class="LineNr">16214 </span> -<span id="L16215" class="LineNr">16215 </span><span class="Constant">$populate-mu-function-header:error-break</span>: -<span id="L16216" class="LineNr">16216 </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="L16217" class="LineNr">16217 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L16218" class="LineNr">16218 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L16219" class="LineNr">16219 </span> <span class="subxComment"># never gets here</span> -<span id="L16220" class="LineNr">16220 </span> -<span id="L16221" class="LineNr">16221 </span><span class="Constant">$populate-mu-function-header:error-loop</span>: -<span id="L16222" class="LineNr">16222 </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="L16223" class="LineNr">16223 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L16224" class="LineNr">16224 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L16225" class="LineNr">16225 </span> <span class="subxComment"># never gets here</span> -<span id="L16226" class="LineNr">16226 </span> -<span id="L16227" class="LineNr">16227 </span><span class="Constant">$populate-mu-function-header:error-lookup</span>: -<span id="L16228" class="LineNr">16228 </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="L16229" class="LineNr">16229 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L16230" class="LineNr">16230 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L16231" class="LineNr">16231 </span> <span class="subxComment"># never gets here</span> -<span id="L16232" class="LineNr">16232 </span> -<span id="L16233" class="LineNr">16233 </span><span class="Constant">$populate-mu-function-header:error-addr-output</span>: -<span id="L16234" class="LineNr">16234 </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="L16235" class="LineNr">16235 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L16236" class="LineNr">16236 </span> 50/push-eax -<span id="L16237" class="LineNr">16237 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16238" class="LineNr">16238 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L16239" class="LineNr">16239 </span> 58/pop-to-eax -<span id="L16240" class="LineNr">16240 </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="L16241" class="LineNr">16241 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L16242" class="LineNr">16242 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L16243" class="LineNr">16243 </span> <span class="subxComment"># never gets here</span> -<span id="L16244" class="LineNr">16244 </span> -<span id="L16245" class="LineNr">16245 </span><span class="Constant">$populate-mu-function-header:error-nested-addr-inout</span>: -<span id="L16246" class="LineNr">16246 </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="L16247" class="LineNr">16247 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L16248" class="LineNr">16248 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16249" class="LineNr">16249 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L16250" class="LineNr">16250 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": inout '"</span>) -<span id="L16251" class="LineNr">16251 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L16252" class="LineNr">16252 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16253" class="LineNr">16253 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L16254" class="LineNr">16254 </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="L16255" class="LineNr">16255 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L16256" class="LineNr">16256 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L16257" class="LineNr">16257 </span> <span class="subxComment"># never gets here</span> -<span id="L16258" class="LineNr">16258 </span> -<span id="L16259" class="LineNr">16259 </span><span class="subxComment"># scenarios considered:</span> -<span id="L16260" class="LineNr">16260 </span><span class="subxComment"># ✓ fn foo</span> -<span id="L16261" class="LineNr">16261 </span><span class="subxComment"># ✗ fn foo {</span> -<span id="L16262" class="LineNr">16262 </span><span class="subxComment"># ✓ fn foo x</span> -<span id="L16263" class="LineNr">16263 </span><span class="subxComment"># ✓ fn foo x: int</span> -<span id="L16264" class="LineNr">16264 </span><span class="subxComment"># ✓ fn foo x: int -> _/eax: int</span> -<span id="L16265" class="LineNr">16265 </span><span class="subxComment"># TODO:</span> -<span id="L16266" class="LineNr">16266 </span><span class="subxComment"># disallow outputs of type `(... addr ...)`</span> -<span id="L16267" class="LineNr">16267 </span><span class="subxComment"># disallow inputs of type `(... addr ... addr ...)`</span> -<span id="L16268" class="LineNr">16268 </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="L16269" class="LineNr">16269 </span> <span class="subxComment"># pseudocode:</span> -<span id="L16270" class="LineNr">16270 </span> <span class="subxComment"># var word-slice: slice</span> -<span id="L16271" class="LineNr">16271 </span> <span class="subxComment"># next-mu-token(first-line, word-slice)</span> -<span id="L16272" class="LineNr">16272 </span> <span class="subxComment"># assert(word-slice not in '{' '}' '->')</span> -<span id="L16273" class="LineNr">16273 </span> <span class="subxComment"># out->name = slice-to-string(word-slice)</span> -<span id="L16274" class="LineNr">16274 </span> <span class="subxComment"># ## inouts</span> -<span id="L16275" class="LineNr">16275 </span> <span class="subxComment"># while true</span> -<span id="L16276" class="LineNr">16276 </span> <span class="subxComment"># word-slice = next-mu-token(first-line)</span> -<span id="L16277" class="LineNr">16277 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> -<span id="L16278" class="LineNr">16278 </span> <span class="subxComment"># if (word-slice == '->') break</span> -<span id="L16279" class="LineNr">16279 </span> <span class="subxComment"># assert(word-slice not in '{' '}')</span> -<span id="L16280" class="LineNr">16280 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, first-line)</span> -<span id="L16281" class="LineNr">16281 </span> <span class="subxComment"># assert(v->register == null)</span> -<span id="L16282" class="LineNr">16282 </span> <span class="subxComment"># # v->block-depth is implicitly 0</span> -<span id="L16283" class="LineNr">16283 </span> <span class="subxComment"># out->inouts = append(v, out->inouts)</span> -<span id="L16284" class="LineNr">16284 </span> <span class="subxComment"># ## outputs</span> -<span id="L16285" class="LineNr">16285 </span> <span class="subxComment"># while true</span> -<span id="L16286" class="LineNr">16286 </span> <span class="subxComment"># word-slice = next-mu-token(first-line)</span> -<span id="L16287" class="LineNr">16287 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> -<span id="L16288" class="LineNr">16288 </span> <span class="subxComment"># assert(word-slice not in '{' '}' '->')</span> -<span id="L16289" class="LineNr">16289 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, first-line)</span> -<span id="L16290" class="LineNr">16290 </span> <span class="subxComment"># assert(v->register != null)</span> -<span id="L16291" class="LineNr">16291 </span> <span class="subxComment"># out->outputs = append(v, out->outputs)</span> -<span id="L16292" class="LineNr">16292 </span> <span class="subxComment">#</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="subxS1Comment"># . save registers</span> -<span id="L16297" class="LineNr">16297 </span> 50/push-eax -<span id="L16298" class="LineNr">16298 </span> 51/push-ecx -<span id="L16299" class="LineNr">16299 </span> 52/push-edx -<span id="L16300" class="LineNr">16300 </span> 53/push-ebx -<span id="L16301" class="LineNr">16301 </span> 57/push-edi -<span id="L16302" class="LineNr">16302 </span> <span class="subxComment"># edi = out</span> -<span id="L16303" class="LineNr">16303 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L16304" class="LineNr">16304 </span> <span class="subxComment"># var word-slice/ecx: slice</span> -<span id="L16305" class="LineNr">16305 </span> 68/push 0/imm32/end -<span id="L16306" class="LineNr">16306 </span> 68/push 0/imm32/start -<span id="L16307" class="LineNr">16307 </span> 89/<- %ecx 4/r32/esp -<span id="L16308" class="LineNr">16308 </span> <span class="subxComment"># var v/ebx: (handle var)</span> -<span id="L16309" class="LineNr">16309 </span> 68/push 0/imm32 -<span id="L16310" class="LineNr">16310 </span> 68/push 0/imm32 -<span id="L16311" class="LineNr">16311 </span> 89/<- %ebx 4/r32/esp -<span id="L16312" class="LineNr">16312 </span> <span class="subxComment"># read function name</span> -<span id="L16313" class="LineNr">16313 </span> (<a href='mu.subx.html#L17283'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L16314" class="LineNr">16314 </span> <span class="subxComment"># error checking</span> -<span id="L16315" class="LineNr">16315 </span> <span class="subxComment"># if (word-slice == '{') abort</span> -<span id="L16316" class="LineNr">16316 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> -<span id="L16317" class="LineNr">16317 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16318" class="LineNr">16318 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 -<span id="L16319" class="LineNr">16319 </span> <span class="subxComment"># if (word-slice == '->') abort</span> -<span id="L16320" class="LineNr">16320 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> -<span id="L16321" class="LineNr">16321 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16322" class="LineNr">16322 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 -<span id="L16323" class="LineNr">16323 </span> <span class="subxComment"># if (word-slice == '}') abort</span> -<span id="L16324" class="LineNr">16324 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> -<span id="L16325" class="LineNr">16325 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16326" class="LineNr">16326 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 -<span id="L16327" class="LineNr">16327 </span> <span class="subxComment"># if word-slice already defined, abort</span> -<span id="L16328" class="LineNr">16328 </span> (<a href='mu.subx.html#L16620'>function-exists?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L16329" class="LineNr">16329 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16330" class="LineNr">16330 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error-duplicate/disp32 -<span id="L16331" class="LineNr">16331 </span> <span class="subxComment">#</span> -<span id="L16332" class="LineNr">16332 </span> (<a href='123slice.subx.html#L487'>slice-starts-with?</a> %ecx <span class="Constant">"break"</span>) <span class="subxComment"># => eax</span> -<span id="L16333" class="LineNr">16333 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16334" class="LineNr">16334 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error-break/disp32 -<span id="L16335" class="LineNr">16335 </span> (<a href='123slice.subx.html#L487'>slice-starts-with?</a> %ecx <span class="Constant">"loop"</span>) <span class="subxComment"># => eax</span> -<span id="L16336" class="LineNr">16336 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16337" class="LineNr">16337 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error-loop/disp32 -<span id="L16338" class="LineNr">16338 </span> <span class="subxComment"># save function name</span> -<span id="L16339" class="LineNr">16339 </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="L16340" class="LineNr">16340 </span> <span class="subxComment"># save function inouts</span> -<span id="L16341" class="LineNr">16341 </span> { -<span id="L16342" class="LineNr">16342 </span><span class="Constant">$populate-mu-function-signature:check-for-inout</span>: -<span id="L16343" class="LineNr">16343 </span> (<a href='mu.subx.html#L17283'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L16344" class="LineNr">16344 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L16345" class="LineNr">16345 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16346" class="LineNr">16346 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L16347" class="LineNr">16347 </span> <span class="subxComment"># if (word-slice == '->') break</span> -<span id="L16348" class="LineNr">16348 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> -<span id="L16349" class="LineNr">16349 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16350" class="LineNr">16350 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L16351" class="LineNr">16351 </span> <span class="subxComment"># if (word-slice == '{') abort</span> -<span id="L16352" class="LineNr">16352 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> -<span id="L16353" class="LineNr">16353 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16354" class="LineNr">16354 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 -<span id="L16355" class="LineNr">16355 </span> <span class="subxComment"># if (word-slice == '}') abort</span> -<span id="L16356" class="LineNr">16356 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> -<span id="L16357" class="LineNr">16357 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16358" class="LineNr">16358 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 -<span id="L16359" class="LineNr">16359 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> -<span id="L16360" class="LineNr">16360 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16361" class="LineNr">16361 </span> (<a href='mu.subx.html#L16928'>parse-var-with-type</a> %ecx *(ebp+8) %ebx %eax *(ebp+0x10) *(ebp+0x14)) -<span id="L16362" class="LineNr">16362 </span> <span class="subxComment"># if (v->register != null) abort</span> -<span id="L16363" class="LineNr">16363 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> -<span id="L16364" class="LineNr">16364 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L16365" class="LineNr">16365 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L16366" class="LineNr">16366 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error2/disp32 -<span id="L16367" class="LineNr">16367 </span> <span class="subxComment"># if function name is not "main"</span> -<span id="L16368" class="LineNr">16368 </span> <span class="subxComment"># and v->type contains an 'addr' anywhere except the start, abort</span> -<span id="L16369" class="LineNr">16369 </span> { -<span id="L16370" class="LineNr">16370 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16371" class="LineNr">16371 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"main"</span>) <span class="subxComment"># => eax</span> -<span id="L16372" class="LineNr">16372 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16373" class="LineNr">16373 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L16374" class="LineNr">16374 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L16375" class="LineNr">16375 </span> (<a href='mu.subx.html#L16566'>addr-payload-contains-addr?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L16376" class="LineNr">16376 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16377" class="LineNr">16377 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error-nested-addr-inout/disp32 -<span id="L16378" class="LineNr">16378 </span> } -<span id="L16379" class="LineNr">16379 </span> <span class="subxComment"># assert(v->register == null)</span> -<span id="L16380" class="LineNr">16380 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> -<span id="L16381" class="LineNr">16381 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L16382" class="LineNr">16382 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L16383" class="LineNr">16383 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error2/disp32 -<span id="L16384" class="LineNr">16384 </span> <span class="subxComment"># v->block-depth is implicitly 0</span> -<span id="L16385" class="LineNr">16385 </span> <span class="subxComment">#</span> -<span id="L16386" class="LineNr">16386 </span> <span class="subxComment"># out->inouts = append(v, out->inouts)</span> -<span id="L16387" class="LineNr">16387 </span> 8d/copy-address *(edi+8) 0/r32/eax <span class="subxComment"># Function-inouts</span> -<span id="L16388" class="LineNr">16388 </span> (<a href='mu.subx.html#L20012'>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="L16389" class="LineNr">16389 </span> <span class="subxComment">#</span> -<span id="L16390" class="LineNr">16390 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L16391" class="LineNr">16391 </span> } -<span id="L16392" class="LineNr">16392 </span> <span class="subxComment"># save function outputs</span> -<span id="L16393" class="LineNr">16393 </span> { -<span id="L16394" class="LineNr">16394 </span><span class="Constant">$populate-mu-function-signature:check-for-out</span>: -<span id="L16395" class="LineNr">16395 </span> (<a href='mu.subx.html#L17283'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L16396" class="LineNr">16396 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L16397" class="LineNr">16397 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16398" class="LineNr">16398 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L16399" class="LineNr">16399 </span> <span class="subxComment"># if (word-slice == '{') abort</span> -<span id="L16400" class="LineNr">16400 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> -<span id="L16401" class="LineNr">16401 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16402" class="LineNr">16402 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 -<span id="L16403" class="LineNr">16403 </span> <span class="subxComment"># if (word-slice == '->') abort</span> -<span id="L16404" class="LineNr">16404 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> -<span id="L16405" class="LineNr">16405 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16406" class="LineNr">16406 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 -<span id="L16407" class="LineNr">16407 </span> <span class="subxComment"># if (word-slice == '}') abort</span> -<span id="L16408" class="LineNr">16408 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> -<span id="L16409" class="LineNr">16409 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16410" class="LineNr">16410 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 -<span id="L16411" class="LineNr">16411 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> -<span id="L16412" class="LineNr">16412 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16413" class="LineNr">16413 </span> (<a href='mu.subx.html#L16928'>parse-var-with-type</a> %ecx *(ebp+8) %ebx %eax *(ebp+0x10) *(ebp+0x14)) -<span id="L16414" class="LineNr">16414 </span> <span class="subxComment"># assert(var->register != null)</span> -<span id="L16415" class="LineNr">16415 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> -<span id="L16416" class="LineNr">16416 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L16417" class="LineNr">16417 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L16418" class="LineNr">16418 </span> 0f 84/jump-if-= $populate-mu-function-signature:error3/disp32 -<span id="L16419" class="LineNr">16419 </span> <span class="subxComment"># if (var->name != "_") abort</span> -<span id="L16420" class="LineNr">16420 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16421" class="LineNr">16421 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"_"</span>) <span class="subxComment"># => eax</span> -<span id="L16422" class="LineNr">16422 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16423" class="LineNr">16423 </span> 0f 84/jump-if-= $populate-mu-function-signature:error4/disp32 -<span id="L16424" class="LineNr">16424 </span> <span class="subxComment"># if function name is not "lookup"</span> -<span id="L16425" class="LineNr">16425 </span> <span class="subxComment"># and v->type is an addr, abort</span> -<span id="L16426" class="LineNr">16426 </span> { -<span id="L16427" class="LineNr">16427 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16428" class="LineNr">16428 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"lookup"</span>) <span class="subxComment"># => eax</span> -<span id="L16429" class="LineNr">16429 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16430" class="LineNr">16430 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L16431" class="LineNr">16431 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L16432" class="LineNr">16432 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L16433" class="LineNr">16433 </span> (<a href='mu.subx.html#L35916'>mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L16434" class="LineNr">16434 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16435" class="LineNr">16435 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error-addr-output/disp32 -<span id="L16436" class="LineNr">16436 </span> } -<span id="L16437" class="LineNr">16437 </span> <span class="subxComment"># out->outputs = append(v, out->outputs)</span> -<span id="L16438" class="LineNr">16438 </span> 8d/copy-address *(edi+0x10) 0/r32/eax <span class="subxComment"># Function-outputs</span> -<span id="L16439" class="LineNr">16439 </span> (<a href='mu.subx.html#L20012'>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="L16440" class="LineNr">16440 </span> <span class="subxComment">#</span> -<span id="L16441" class="LineNr">16441 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L16442" class="LineNr">16442 </span> } -<span id="L16443" class="LineNr">16443 </span><span class="Constant">$populate-mu-function-signature:done</span>: -<span id="L16444" class="LineNr">16444 </span> (<a href='mu.subx.html#L18377'>check-no-tokens-left</a> *(ebp+8)) -<span id="L16445" class="LineNr">16445 </span><span class="Constant">$populate-mu-function-signature:end</span>: -<span id="L16446" class="LineNr">16446 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L16447" class="LineNr">16447 </span> 81 0/subop/add %esp 0x10/imm32 -<span id="L16448" class="LineNr">16448 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L16449" class="LineNr">16449 </span> 5f/pop-to-edi -<span id="L16450" class="LineNr">16450 </span> 5b/pop-to-ebx -<span id="L16451" class="LineNr">16451 </span> 5a/pop-to-edx -<span id="L16452" class="LineNr">16452 </span> 59/pop-to-ecx -<span id="L16453" class="LineNr">16453 </span> 58/pop-to-eax -<span id="L16454" class="LineNr">16454 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16455" class="LineNr">16455 </span> 89/<- %esp 5/r32/ebp -<span id="L16456" class="LineNr">16456 </span> 5d/pop-to-ebp -<span id="L16457" class="LineNr">16457 </span> c3/return -<span id="L16458" class="LineNr">16458 </span> -<span id="L16459" class="LineNr">16459 </span><span class="Constant">$populate-mu-function-signature:error1</span>: -<span id="L16460" class="LineNr">16460 </span> <span class="subxComment"># error("function signature not in form 'fn <name> {'")</span> -<span id="L16461" class="LineNr">16461 </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="L16462" class="LineNr">16462 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L16463" class="LineNr">16463 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) -<span id="L16464" class="LineNr">16464 </span> (<a href='125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x10) *(ebp+8)) -<span id="L16465" class="LineNr">16465 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) -<span id="L16466" class="LineNr">16466 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L16467" class="LineNr">16467 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L16468" class="LineNr">16468 </span> <span class="subxComment"># never gets here</span> -<span id="L16469" class="LineNr">16469 </span> -<span id="L16470" class="LineNr">16470 </span><span class="Constant">$populate-mu-function-signature:error2</span>: -<span id="L16471" class="LineNr">16471 </span> <span class="subxComment"># error("fn " fn ": function inout '" var "' cannot be in a register")</span> -<span id="L16472" class="LineNr">16472 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L16473" class="LineNr">16473 </span> 50/push-eax -<span id="L16474" class="LineNr">16474 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16475" class="LineNr">16475 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L16476" class="LineNr">16476 </span> 58/pop-to-eax -<span id="L16477" class="LineNr">16477 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": function inout '"</span>) -<span id="L16478" class="LineNr">16478 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16479" class="LineNr">16479 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L16480" class="LineNr">16480 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' cannot be in a register"</span>) -<span id="L16481" class="LineNr">16481 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L16482" class="LineNr">16482 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L16483" class="LineNr">16483 </span> <span class="subxComment"># never gets here</span> -<span id="L16484" class="LineNr">16484 </span> -<span id="L16485" class="LineNr">16485 </span><span class="Constant">$populate-mu-function-signature:error3</span>: -<span id="L16486" class="LineNr">16486 </span> <span class="subxComment"># error("fn " fn ": function output '" var "' must be in a register")</span> -<span id="L16487" class="LineNr">16487 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L16488" class="LineNr">16488 </span> 50/push-eax -<span id="L16489" class="LineNr">16489 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16490" class="LineNr">16490 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L16491" class="LineNr">16491 </span> 58/pop-to-eax -<span id="L16492" class="LineNr">16492 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": function output '"</span>) -<span id="L16493" class="LineNr">16493 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L16494" class="LineNr">16494 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16495" class="LineNr">16495 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L16496" class="LineNr">16496 </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="L16497" class="LineNr">16497 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) -<span id="L16498" class="LineNr">16498 </span> (<a href='125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x10) *(ebp+8)) -<span id="L16499" class="LineNr">16499 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) -<span id="L16500" class="LineNr">16500 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L16501" class="LineNr">16501 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L16502" class="LineNr">16502 </span> <span class="subxComment"># never gets here</span> -<span id="L16503" class="LineNr">16503 </span> -<span id="L16504" class="LineNr">16504 </span><span class="Constant">$populate-mu-function-signature:error4</span>: -<span id="L16505" class="LineNr">16505 </span> <span class="subxComment"># error("fn " fn ": function outputs cannot be named; rename '" var "' in the header to '_'")</span> -<span id="L16506" class="LineNr">16506 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L16507" class="LineNr">16507 </span> 50/push-eax -<span id="L16508" class="LineNr">16508 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16509" class="LineNr">16509 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L16510" class="LineNr">16510 </span> 58/pop-to-eax -<span id="L16511" class="LineNr">16511 </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="L16512" class="LineNr">16512 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L16513" class="LineNr">16513 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16514" class="LineNr">16514 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L16515" class="LineNr">16515 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' in the header to '_'\n"</span>) -<span id="L16516" class="LineNr">16516 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L16517" class="LineNr">16517 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L16518" class="LineNr">16518 </span> <span class="subxComment"># never gets here</span> -<span id="L16519" class="LineNr">16519 </span> -<span id="L16520" class="LineNr">16520 </span><span class="Constant">$populate-mu-function-signature:error-duplicate</span>: -<span id="L16521" class="LineNr">16521 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L16522" class="LineNr">16522 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x10) %ecx) -<span id="L16523" class="LineNr">16523 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">" defined more than once\n"</span>) -<span id="L16524" class="LineNr">16524 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L16525" class="LineNr">16525 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L16526" class="LineNr">16526 </span> <span class="subxComment"># never gets here</span> -<span id="L16527" class="LineNr">16527 </span> -<span id="L16528" class="LineNr">16528 </span><span class="Constant">$populate-mu-function-signature:error-break</span>: -<span id="L16529" class="LineNr">16529 </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="L16530" class="LineNr">16530 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L16531" class="LineNr">16531 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L16532" class="LineNr">16532 </span> <span class="subxComment"># never gets here</span> -<span id="L16533" class="LineNr">16533 </span> -<span id="L16534" class="LineNr">16534 </span><span class="Constant">$populate-mu-function-signature:error-loop</span>: -<span id="L16535" class="LineNr">16535 </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="L16536" class="LineNr">16536 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L16537" class="LineNr">16537 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L16538" class="LineNr">16538 </span> <span class="subxComment"># never gets here</span> -<span id="L16539" class="LineNr">16539 </span> -<span id="L16540" class="LineNr">16540 </span><span class="Constant">$populate-mu-function-signature:error-addr-output</span>: -<span id="L16541" class="LineNr">16541 </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="L16542" class="LineNr">16542 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L16543" class="LineNr">16543 </span> 50/push-eax -<span id="L16544" class="LineNr">16544 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16545" class="LineNr">16545 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L16546" class="LineNr">16546 </span> 58/pop-to-eax -<span id="L16547" class="LineNr">16547 </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="L16548" class="LineNr">16548 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L16549" class="LineNr">16549 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L16550" class="LineNr">16550 </span> <span class="subxComment"># never gets here</span> -<span id="L16551" class="LineNr">16551 </span> -<span id="L16552" class="LineNr">16552 </span><span class="Constant">$populate-mu-function-signature:error-nested-addr-inout</span>: -<span id="L16553" class="LineNr">16553 </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="L16554" class="LineNr">16554 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L16555" class="LineNr">16555 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16556" class="LineNr">16556 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L16557" class="LineNr">16557 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": inout '"</span>) -<span id="L16558" class="LineNr">16558 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L16559" class="LineNr">16559 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16560" class="LineNr">16560 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L16561" class="LineNr">16561 </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="L16562" class="LineNr">16562 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L16563" class="LineNr">16563 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L16564" class="LineNr">16564 </span> <span class="subxComment"># never gets here</span> -<span id="L16565" class="LineNr">16565 </span> -<span id="L16566" class="LineNr">16566 </span><span class="subxFunction">addr-payload-contains-addr?</span>: <span class="subxComment"># v: (addr var) -> result/eax: boolean</span> -<span id="L16567" class="LineNr">16567 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16568" class="LineNr">16568 </span> 55/push-ebp -<span id="L16569" class="LineNr">16569 </span> 89/<- %ebp 4/r32/esp -<span id="L16570" class="LineNr">16570 </span> <span class="subxComment"># var t/eax: (addr type-tree) = v->type</span> -<span id="L16571" class="LineNr">16571 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L16572" class="LineNr">16572 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L16573" class="LineNr">16573 </span> <span class="subxComment"># if t->right contains addr, return true</span> -<span id="L16574" class="LineNr">16574 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L16575" class="LineNr">16575 </span> (<a href='mu.subx.html#L16583'>type-tree-contains?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L16576" class="LineNr">16576 </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="L16577" class="LineNr">16577 </span><span class="Constant">$addr-payload-contains-addr?:end</span>: -<span id="L16578" class="LineNr">16578 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16579" class="LineNr">16579 </span> 89/<- %esp 5/r32/ebp -<span id="L16580" class="LineNr">16580 </span> 5d/pop-to-ebp -<span id="L16581" class="LineNr">16581 </span> c3/return -<span id="L16582" class="LineNr">16582 </span> -<span id="L16583" class="LineNr">16583 </span><span class="subxFunction">type-tree-contains?</span>: <span class="subxComment"># t: (addr type-tree), n: type-id -> result/eax: boolean</span> -<span id="L16584" class="LineNr">16584 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16585" class="LineNr">16585 </span> 55/push-ebp -<span id="L16586" class="LineNr">16586 </span> 89/<- %ebp 4/r32/esp -<span id="L16587" class="LineNr">16587 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L16588" class="LineNr">16588 </span> 51/push-ecx -<span id="L16589" class="LineNr">16589 </span> <span class="subxComment"># if t is null, return false</span> -<span id="L16590" class="LineNr">16590 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L16591" class="LineNr">16591 </span> 3d/compare-eax-and 0/imm32 -<span id="L16592" class="LineNr">16592 </span> 0f 84/jump-if-= $type-tree-contains?:end/disp32 <span class="subxComment"># eax changes type</span> -<span id="L16593" class="LineNr">16593 </span> <span class="subxComment"># if t is an atom, return (t->value == n)</span> -<span id="L16594" class="LineNr">16594 </span> 81 7/subop/compare *eax 0/imm32/false -<span id="L16595" class="LineNr">16595 </span> { -<span id="L16596" class="LineNr">16596 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L16597" class="LineNr">16597 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L16598" class="LineNr">16598 </span> 39/compare *(eax+4) 1/r32/ecx <span class="subxComment"># Type-tree-value</span> -<span id="L16599" class="LineNr">16599 </span> 0f 94/set-if-= %al -<span id="L16600" class="LineNr">16600 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L16601" class="LineNr">16601 </span> eb/jump $type-tree-contains?:end/disp8 -<span id="L16602" class="LineNr">16602 </span> } -<span id="L16603" class="LineNr">16603 </span> <span class="subxComment"># if t->left contains n, return true</span> -<span id="L16604" class="LineNr">16604 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L16605" class="LineNr">16605 </span> (<a href='mu.subx.html#L16583'>type-tree-contains?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L16606" class="LineNr">16606 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16607" class="LineNr">16607 </span> 75/jump-if-!= $type-tree-contains?:end/disp8 -<span id="L16608" class="LineNr">16608 </span> <span class="subxComment"># otherwise return whether t->right contains n</span> -<span id="L16609" class="LineNr">16609 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L16610" class="LineNr">16610 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L16611" class="LineNr">16611 </span> (<a href='mu.subx.html#L16583'>type-tree-contains?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L16612" class="LineNr">16612 </span><span class="Constant">$type-tree-contains?:end</span>: -<span id="L16613" class="LineNr">16613 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L16614" class="LineNr">16614 </span> 59/pop-to-ecx -<span id="L16615" class="LineNr">16615 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16616" class="LineNr">16616 </span> 89/<- %esp 5/r32/ebp -<span id="L16617" class="LineNr">16617 </span> 5d/pop-to-ebp -<span id="L16618" class="LineNr">16618 </span> c3/return -<span id="L16619" class="LineNr">16619 </span> -<span id="L16620" class="LineNr">16620 </span><span class="subxFunction">function-exists?</span>: <span class="subxComment"># s: (addr slice) -> result/eax: boolean</span> -<span id="L16621" class="LineNr">16621 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16622" class="LineNr">16622 </span> 55/push-ebp -<span id="L16623" class="LineNr">16623 </span> 89/<- %ebp 4/r32/esp -<span id="L16624" class="LineNr">16624 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L16625" class="LineNr">16625 </span> 51/push-ecx -<span id="L16626" class="LineNr">16626 </span> <span class="subxComment"># var curr/ecx: (addr function) = functions</span> -<span id="L16627" class="LineNr">16627 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *_Program-functions *_Program-functions->payload) <span class="subxComment"># => eax</span> -<span id="L16628" class="LineNr">16628 </span> 89/<- %ecx 0/r32/eax -<span id="L16629" class="LineNr">16629 </span> { -<span id="L16630" class="LineNr">16630 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L16631" class="LineNr">16631 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L16632" class="LineNr">16632 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L16633" class="LineNr">16633 </span> <span class="subxComment"># if (curr->name == s) return true</span> -<span id="L16634" class="LineNr">16634 </span> { -<span id="L16635" class="LineNr">16635 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16636" class="LineNr">16636 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> *(ebp+8) %eax) <span class="subxComment"># => eax</span> -<span id="L16637" class="LineNr">16637 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16638" class="LineNr">16638 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L16639" class="LineNr">16639 </span> b8/copy-to-eax 1/imm32/true -<span id="L16640" class="LineNr">16640 </span> e9/jump $function-exists?:end/disp32 -<span id="L16641" class="LineNr">16641 </span> } -<span id="L16642" class="LineNr">16642 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L16643" class="LineNr">16643 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x20) *(ecx+0x24)) <span class="subxComment"># Function-next Function-next => eax</span> -<span id="L16644" class="LineNr">16644 </span> 89/<- %ecx 0/r32/eax -<span id="L16645" class="LineNr">16645 </span> <span class="subxComment">#</span> -<span id="L16646" class="LineNr">16646 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L16647" class="LineNr">16647 </span> } -<span id="L16648" class="LineNr">16648 </span> <span class="subxComment"># var curr/ecx: (addr function) = signatures</span> -<span id="L16649" class="LineNr">16649 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *_Program-signatures *_Program-signatures->payload) <span class="subxComment"># => eax</span> +<span id="L16030" class="LineNr">16030 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 +<span id="L16031" class="LineNr">16031 </span> <span class="subxComment"># if (word-slice == '->') abort</span> +<span id="L16032" class="LineNr">16032 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> +<span id="L16033" class="LineNr">16033 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16034" class="LineNr">16034 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 +<span id="L16035" class="LineNr">16035 </span> <span class="subxComment"># if (word-slice == '}') abort</span> +<span id="L16036" class="LineNr">16036 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> +<span id="L16037" class="LineNr">16037 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16038" class="LineNr">16038 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 +<span id="L16039" class="LineNr">16039 </span> <span class="subxComment"># if word-slice already defined, abort</span> +<span id="L16040" class="LineNr">16040 </span> (<a href='mu.subx.html#L16642'>function-exists?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L16041" class="LineNr">16041 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16042" class="LineNr">16042 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-duplicate/disp32 +<span id="L16043" class="LineNr">16043 </span> <span class="subxComment">#</span> +<span id="L16044" class="LineNr">16044 </span> (<a href='123slice.subx.html#L487'>slice-starts-with?</a> %ecx <span class="Constant">"break"</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-!= $populate-mu-function-header:error-break/disp32 +<span id="L16047" class="LineNr">16047 </span> (<a href='123slice.subx.html#L487'>slice-starts-with?</a> %ecx <span class="Constant">"loop"</span>) <span class="subxComment"># => eax</span> +<span id="L16048" class="LineNr">16048 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16049" class="LineNr">16049 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-loop/disp32 +<span id="L16050" class="LineNr">16050 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"lookup"</span>) <span class="subxComment"># => eax</span> +<span id="L16051" class="LineNr">16051 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16052" class="LineNr">16052 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-lookup/disp32 +<span id="L16053" class="LineNr">16053 </span> <span class="subxComment"># save function name</span> +<span id="L16054" class="LineNr">16054 </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="L16055" class="LineNr">16055 </span> <span class="subxComment"># save function inouts</span> +<span id="L16056" class="LineNr">16056 </span> { +<span id="L16057" class="LineNr">16057 </span><span class="Constant">$populate-mu-function-header:check-for-inout</span>: +<span id="L16058" class="LineNr">16058 </span> (<a href='mu.subx.html#L17305'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L16059" class="LineNr">16059 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> +<span id="L16060" class="LineNr">16060 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L16061" class="LineNr">16061 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16062" class="LineNr">16062 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 +<span id="L16063" class="LineNr">16063 </span> <span class="subxComment"># if (word-slice == '{') goto done</span> +<span id="L16064" class="LineNr">16064 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> +<span id="L16065" class="LineNr">16065 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16066" class="LineNr">16066 </span> 0f 85/jump-if-!= $populate-mu-function-header:done/disp32 +<span id="L16067" class="LineNr">16067 </span> <span class="subxComment"># if (word-slice == '->') break</span> +<span id="L16068" class="LineNr">16068 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> +<span id="L16069" class="LineNr">16069 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16070" class="LineNr">16070 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L16071" class="LineNr">16071 </span> <span class="subxComment"># if (word-slice == '}') abort</span> +<span id="L16072" class="LineNr">16072 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> +<span id="L16073" class="LineNr">16073 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16074" class="LineNr">16074 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 +<span id="L16075" class="LineNr">16075 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> +<span id="L16076" class="LineNr">16076 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16077" class="LineNr">16077 </span> (<a href='mu.subx.html#L16950'>parse-var-with-type</a> %ecx *(ebp+8) %ebx %eax *(ebp+0x14) *(ebp+0x18)) +<span id="L16078" class="LineNr">16078 </span> <span class="subxComment"># if (v->register != null) abort</span> +<span id="L16079" class="LineNr">16079 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> +<span id="L16080" class="LineNr">16080 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L16081" class="LineNr">16081 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L16082" class="LineNr">16082 </span> 0f 85/jump-if-!= $populate-mu-function-header:error2/disp32 +<span id="L16083" class="LineNr">16083 </span> <span class="subxComment"># if function name is not "main"</span> +<span id="L16084" class="LineNr">16084 </span> <span class="subxComment"># and v->type contains an 'addr' anywhere except the start, abort</span> +<span id="L16085" class="LineNr">16085 </span> { +<span id="L16086" class="LineNr">16086 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16087" class="LineNr">16087 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"main"</span>) <span class="subxComment"># => eax</span> +<span id="L16088" class="LineNr">16088 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16089" class="LineNr">16089 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L16090" class="LineNr">16090 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L16091" class="LineNr">16091 </span> (<a href='mu.subx.html#L16588'>addr-payload-contains-addr?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L16092" class="LineNr">16092 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16093" class="LineNr">16093 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-nested-addr-inout/disp32 +<span id="L16094" class="LineNr">16094 </span> } +<span id="L16095" class="LineNr">16095 </span> <span class="subxComment"># v->block-depth is implicitly 0</span> +<span id="L16096" class="LineNr">16096 </span> <span class="subxComment">#</span> +<span id="L16097" class="LineNr">16097 </span> <span class="subxComment"># out->inouts = append(v, out->inouts)</span> +<span id="L16098" class="LineNr">16098 </span> 8d/copy-address *(edi+8) 0/r32/eax <span class="subxComment"># Function-inouts</span> +<span id="L16099" class="LineNr">16099 </span> (<a href='mu.subx.html#L20034'>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="L16100" class="LineNr">16100 </span> <span class="subxComment"># push(vars, {v, false})</span> +<span id="L16101" class="LineNr">16101 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *ebx) +<span id="L16102" class="LineNr">16102 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ebx+4)) +<span id="L16103" class="LineNr">16103 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) 0) <span class="subxComment"># false</span> +<span id="L16104" class="LineNr">16104 </span> <span class="subxComment">#</span> +<span id="L16105" class="LineNr">16105 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L16106" class="LineNr">16106 </span> } +<span id="L16107" class="LineNr">16107 </span> <span class="subxComment"># save function outputs</span> +<span id="L16108" class="LineNr">16108 </span> { +<span id="L16109" class="LineNr">16109 </span><span class="Constant">$populate-mu-function-header:check-for-out</span>: +<span id="L16110" class="LineNr">16110 </span> (<a href='mu.subx.html#L17305'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L16111" class="LineNr">16111 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> +<span id="L16112" class="LineNr">16112 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L16113" class="LineNr">16113 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16114" class="LineNr">16114 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 +<span id="L16115" class="LineNr">16115 </span> <span class="subxComment"># if (word-slice == '{') break</span> +<span id="L16116" class="LineNr">16116 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> +<span id="L16117" class="LineNr">16117 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16118" class="LineNr">16118 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L16119" class="LineNr">16119 </span> <span class="subxComment"># if (word-slice == '->') abort</span> +<span id="L16120" class="LineNr">16120 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> +<span id="L16121" class="LineNr">16121 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16122" class="LineNr">16122 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 +<span id="L16123" class="LineNr">16123 </span> <span class="subxComment"># if (word-slice == '}') abort</span> +<span id="L16124" class="LineNr">16124 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> +<span id="L16125" class="LineNr">16125 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16126" class="LineNr">16126 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 +<span id="L16127" class="LineNr">16127 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> +<span id="L16128" class="LineNr">16128 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16129" class="LineNr">16129 </span> (<a href='mu.subx.html#L16950'>parse-var-with-type</a> %ecx *(ebp+8) %ebx %eax *(ebp+0x14) *(ebp+0x18)) +<span id="L16130" class="LineNr">16130 </span> <span class="subxComment"># assert(var->register != null)</span> +<span id="L16131" class="LineNr">16131 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> +<span id="L16132" class="LineNr">16132 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L16133" class="LineNr">16133 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L16134" class="LineNr">16134 </span> 0f 84/jump-if-= $populate-mu-function-header:error3/disp32 +<span id="L16135" class="LineNr">16135 </span> <span class="subxComment"># if (var->name != "_") abort</span> +<span id="L16136" class="LineNr">16136 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16137" class="LineNr">16137 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"_"</span>) <span class="subxComment"># => eax</span> +<span id="L16138" class="LineNr">16138 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16139" class="LineNr">16139 </span> 0f 84/jump-if-= $populate-mu-function-header:error4/disp32 +<span id="L16140" class="LineNr">16140 </span> <span class="subxComment"># if v->type is an addr, abort</span> +<span id="L16141" class="LineNr">16141 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L16142" class="LineNr">16142 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L16143" class="LineNr">16143 </span> (<a href='mu.subx.html#L36245'>mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L16144" class="LineNr">16144 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16145" class="LineNr">16145 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-addr-output/disp32 +<span id="L16146" class="LineNr">16146 </span> <span class="subxComment"># out->outputs = append(v, out->outputs)</span> +<span id="L16147" class="LineNr">16147 </span> 8d/copy-address *(edi+0x10) 0/r32/eax <span class="subxComment"># Function-outputs</span> +<span id="L16148" class="LineNr">16148 </span> (<a href='mu.subx.html#L20034'>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="L16149" class="LineNr">16149 </span> <span class="subxComment">#</span> +<span id="L16150" class="LineNr">16150 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L16151" class="LineNr">16151 </span> } +<span id="L16152" class="LineNr">16152 </span><span class="Constant">$populate-mu-function-header:done</span>: +<span id="L16153" class="LineNr">16153 </span> (<a href='mu.subx.html#L18399'>check-no-tokens-left</a> *(ebp+8)) +<span id="L16154" class="LineNr">16154 </span><span class="Constant">$populate-mu-function-header:end</span>: +<span id="L16155" class="LineNr">16155 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L16156" class="LineNr">16156 </span> 81 0/subop/add %esp 0x10/imm32 +<span id="L16157" class="LineNr">16157 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L16158" class="LineNr">16158 </span> 5f/pop-to-edi +<span id="L16159" class="LineNr">16159 </span> 5b/pop-to-ebx +<span id="L16160" class="LineNr">16160 </span> 5a/pop-to-edx +<span id="L16161" class="LineNr">16161 </span> 59/pop-to-ecx +<span id="L16162" class="LineNr">16162 </span> 58/pop-to-eax +<span id="L16163" class="LineNr">16163 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16164" class="LineNr">16164 </span> 89/<- %esp 5/r32/ebp +<span id="L16165" class="LineNr">16165 </span> 5d/pop-to-ebp +<span id="L16166" class="LineNr">16166 </span> c3/return +<span id="L16167" class="LineNr">16167 </span> +<span id="L16168" class="LineNr">16168 </span><span class="Constant">$populate-mu-function-header:error1</span>: +<span id="L16169" class="LineNr">16169 </span> <span class="subxComment"># error("function header not in form 'fn <name> {'")</span> +<span id="L16170" class="LineNr">16170 </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="L16171" class="LineNr">16171 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L16172" class="LineNr">16172 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) +<span id="L16173" class="LineNr">16173 </span> (<a href='125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x14) *(ebp+8)) +<span id="L16174" class="LineNr">16174 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"'\n"</span>) +<span id="L16175" class="LineNr">16175 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L16176" class="LineNr">16176 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L16177" class="LineNr">16177 </span> <span class="subxComment"># never gets here</span> +<span id="L16178" class="LineNr">16178 </span> +<span id="L16179" class="LineNr">16179 </span><span class="Constant">$populate-mu-function-header:error2</span>: +<span id="L16180" class="LineNr">16180 </span> <span class="subxComment"># error("fn " fn ": function inout '" var "' cannot be in a register")</span> +<span id="L16181" class="LineNr">16181 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L16182" class="LineNr">16182 </span> 50/push-eax +<span id="L16183" class="LineNr">16183 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16184" class="LineNr">16184 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L16185" class="LineNr">16185 </span> 58/pop-to-eax +<span id="L16186" class="LineNr">16186 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": function inout '"</span>) +<span id="L16187" class="LineNr">16187 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16188" class="LineNr">16188 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L16189" class="LineNr">16189 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' cannot be in a register"</span>) +<span id="L16190" class="LineNr">16190 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L16191" class="LineNr">16191 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L16192" class="LineNr">16192 </span> <span class="subxComment"># never gets here</span> +<span id="L16193" class="LineNr">16193 </span> +<span id="L16194" class="LineNr">16194 </span><span class="Constant">$populate-mu-function-header:error3</span>: +<span id="L16195" class="LineNr">16195 </span> <span class="subxComment"># error("fn " fn ": function output '" var "' must be in a register")</span> +<span id="L16196" class="LineNr">16196 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L16197" class="LineNr">16197 </span> 50/push-eax +<span id="L16198" class="LineNr">16198 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16199" class="LineNr">16199 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L16200" class="LineNr">16200 </span> 58/pop-to-eax +<span id="L16201" class="LineNr">16201 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": function output '"</span>) +<span id="L16202" class="LineNr">16202 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L16203" class="LineNr">16203 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16204" class="LineNr">16204 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L16205" class="LineNr">16205 </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="L16206" class="LineNr">16206 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) +<span id="L16207" class="LineNr">16207 </span> (<a href='125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x14) *(ebp+8)) +<span id="L16208" class="LineNr">16208 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"'\n"</span>) +<span id="L16209" class="LineNr">16209 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L16210" class="LineNr">16210 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L16211" class="LineNr">16211 </span> <span class="subxComment"># never gets here</span> +<span id="L16212" class="LineNr">16212 </span> +<span id="L16213" class="LineNr">16213 </span><span class="Constant">$populate-mu-function-header:error4</span>: +<span id="L16214" class="LineNr">16214 </span> <span class="subxComment"># error("fn " fn ": function outputs cannot be named; rename '" var "' in the header to '_'")</span> +<span id="L16215" class="LineNr">16215 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L16216" class="LineNr">16216 </span> 50/push-eax +<span id="L16217" class="LineNr">16217 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16218" class="LineNr">16218 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L16219" class="LineNr">16219 </span> 58/pop-to-eax +<span id="L16220" class="LineNr">16220 </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="L16221" class="LineNr">16221 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L16222" class="LineNr">16222 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16223" class="LineNr">16223 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L16224" class="LineNr">16224 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' in the header to '_'\n"</span>) +<span id="L16225" class="LineNr">16225 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L16226" class="LineNr">16226 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L16227" class="LineNr">16227 </span> <span class="subxComment"># never gets here</span> +<span id="L16228" class="LineNr">16228 </span> +<span id="L16229" class="LineNr">16229 </span><span class="Constant">$populate-mu-function-header:error-duplicate</span>: +<span id="L16230" class="LineNr">16230 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L16231" class="LineNr">16231 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x14) %ecx) +<span id="L16232" class="LineNr">16232 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">" defined more than once\n"</span>) +<span id="L16233" class="LineNr">16233 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L16234" class="LineNr">16234 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L16235" class="LineNr">16235 </span> <span class="subxComment"># never gets here</span> +<span id="L16236" class="LineNr">16236 </span> +<span id="L16237" class="LineNr">16237 </span><span class="Constant">$populate-mu-function-header:error-break</span>: +<span id="L16238" class="LineNr">16238 </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="L16239" class="LineNr">16239 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L16240" class="LineNr">16240 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L16241" class="LineNr">16241 </span> <span class="subxComment"># never gets here</span> +<span id="L16242" class="LineNr">16242 </span> +<span id="L16243" class="LineNr">16243 </span><span class="Constant">$populate-mu-function-header:error-loop</span>: +<span id="L16244" class="LineNr">16244 </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="L16245" class="LineNr">16245 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L16246" class="LineNr">16246 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L16247" class="LineNr">16247 </span> <span class="subxComment"># never gets here</span> +<span id="L16248" class="LineNr">16248 </span> +<span id="L16249" class="LineNr">16249 </span><span class="Constant">$populate-mu-function-header:error-lookup</span>: +<span id="L16250" class="LineNr">16250 </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="L16251" class="LineNr">16251 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L16252" class="LineNr">16252 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L16253" class="LineNr">16253 </span> <span class="subxComment"># never gets here</span> +<span id="L16254" class="LineNr">16254 </span> +<span id="L16255" class="LineNr">16255 </span><span class="Constant">$populate-mu-function-header:error-addr-output</span>: +<span id="L16256" class="LineNr">16256 </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="L16257" class="LineNr">16257 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L16258" class="LineNr">16258 </span> 50/push-eax +<span id="L16259" class="LineNr">16259 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16260" class="LineNr">16260 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L16261" class="LineNr">16261 </span> 58/pop-to-eax +<span id="L16262" class="LineNr">16262 </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="L16263" class="LineNr">16263 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L16264" class="LineNr">16264 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L16265" class="LineNr">16265 </span> <span class="subxComment"># never gets here</span> +<span id="L16266" class="LineNr">16266 </span> +<span id="L16267" class="LineNr">16267 </span><span class="Constant">$populate-mu-function-header:error-nested-addr-inout</span>: +<span id="L16268" class="LineNr">16268 </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="L16269" class="LineNr">16269 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L16270" class="LineNr">16270 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16271" class="LineNr">16271 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L16272" class="LineNr">16272 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": inout '"</span>) +<span id="L16273" class="LineNr">16273 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L16274" class="LineNr">16274 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16275" class="LineNr">16275 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L16276" class="LineNr">16276 </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="L16277" class="LineNr">16277 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L16278" class="LineNr">16278 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L16279" class="LineNr">16279 </span> <span class="subxComment"># never gets here</span> +<span id="L16280" class="LineNr">16280 </span> +<span id="L16281" class="LineNr">16281 </span><span class="subxComment"># scenarios considered:</span> +<span id="L16282" class="LineNr">16282 </span><span class="subxComment"># ✓ fn foo</span> +<span id="L16283" class="LineNr">16283 </span><span class="subxComment"># ✗ fn foo {</span> +<span id="L16284" class="LineNr">16284 </span><span class="subxComment"># ✓ fn foo x</span> +<span id="L16285" class="LineNr">16285 </span><span class="subxComment"># ✓ fn foo x: int</span> +<span id="L16286" class="LineNr">16286 </span><span class="subxComment"># ✓ fn foo x: int -> _/eax: int</span> +<span id="L16287" class="LineNr">16287 </span><span class="subxComment"># TODO:</span> +<span id="L16288" class="LineNr">16288 </span><span class="subxComment"># disallow outputs of type `(... addr ...)`</span> +<span id="L16289" class="LineNr">16289 </span><span class="subxComment"># disallow inputs of type `(... addr ... addr ...)`</span> +<span id="L16290" class="LineNr">16290 </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="L16291" class="LineNr">16291 </span> <span class="subxComment"># pseudocode:</span> +<span id="L16292" class="LineNr">16292 </span> <span class="subxComment"># var word-slice: slice</span> +<span id="L16293" class="LineNr">16293 </span> <span class="subxComment"># next-mu-token(first-line, word-slice)</span> +<span id="L16294" class="LineNr">16294 </span> <span class="subxComment"># assert(word-slice not in '{' '}' '->')</span> +<span id="L16295" class="LineNr">16295 </span> <span class="subxComment"># out->name = slice-to-string(word-slice)</span> +<span id="L16296" class="LineNr">16296 </span> <span class="subxComment"># ## inouts</span> +<span id="L16297" class="LineNr">16297 </span> <span class="subxComment"># while true</span> +<span id="L16298" class="LineNr">16298 </span> <span class="subxComment"># word-slice = next-mu-token(first-line)</span> +<span id="L16299" class="LineNr">16299 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> +<span id="L16300" class="LineNr">16300 </span> <span class="subxComment"># if (word-slice == '->') break</span> +<span id="L16301" class="LineNr">16301 </span> <span class="subxComment"># assert(word-slice not in '{' '}')</span> +<span id="L16302" class="LineNr">16302 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, first-line)</span> +<span id="L16303" class="LineNr">16303 </span> <span class="subxComment"># assert(v->register == null)</span> +<span id="L16304" class="LineNr">16304 </span> <span class="subxComment"># # v->block-depth is implicitly 0</span> +<span id="L16305" class="LineNr">16305 </span> <span class="subxComment"># out->inouts = append(v, out->inouts)</span> +<span id="L16306" class="LineNr">16306 </span> <span class="subxComment"># ## outputs</span> +<span id="L16307" class="LineNr">16307 </span> <span class="subxComment"># while true</span> +<span id="L16308" class="LineNr">16308 </span> <span class="subxComment"># word-slice = next-mu-token(first-line)</span> +<span id="L16309" class="LineNr">16309 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> +<span id="L16310" class="LineNr">16310 </span> <span class="subxComment"># assert(word-slice not in '{' '}' '->')</span> +<span id="L16311" class="LineNr">16311 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, first-line)</span> +<span id="L16312" class="LineNr">16312 </span> <span class="subxComment"># assert(v->register != null)</span> +<span id="L16313" class="LineNr">16313 </span> <span class="subxComment"># out->outputs = append(v, out->outputs)</span> +<span id="L16314" class="LineNr">16314 </span> <span class="subxComment">#</span> +<span id="L16315" class="LineNr">16315 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16316" class="LineNr">16316 </span> 55/push-ebp +<span id="L16317" class="LineNr">16317 </span> 89/<- %ebp 4/r32/esp +<span id="L16318" class="LineNr">16318 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L16319" class="LineNr">16319 </span> 50/push-eax +<span id="L16320" class="LineNr">16320 </span> 51/push-ecx +<span id="L16321" class="LineNr">16321 </span> 52/push-edx +<span id="L16322" class="LineNr">16322 </span> 53/push-ebx +<span id="L16323" class="LineNr">16323 </span> 57/push-edi +<span id="L16324" class="LineNr">16324 </span> <span class="subxComment"># edi = out</span> +<span id="L16325" class="LineNr">16325 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L16326" class="LineNr">16326 </span> <span class="subxComment"># var word-slice/ecx: slice</span> +<span id="L16327" class="LineNr">16327 </span> 68/push 0/imm32/end +<span id="L16328" class="LineNr">16328 </span> 68/push 0/imm32/start +<span id="L16329" class="LineNr">16329 </span> 89/<- %ecx 4/r32/esp +<span id="L16330" class="LineNr">16330 </span> <span class="subxComment"># var v/ebx: (handle var)</span> +<span id="L16331" class="LineNr">16331 </span> 68/push 0/imm32 +<span id="L16332" class="LineNr">16332 </span> 68/push 0/imm32 +<span id="L16333" class="LineNr">16333 </span> 89/<- %ebx 4/r32/esp +<span id="L16334" class="LineNr">16334 </span> <span class="subxComment"># read function name</span> +<span id="L16335" class="LineNr">16335 </span> (<a href='mu.subx.html#L17305'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L16336" class="LineNr">16336 </span> <span class="subxComment"># error checking</span> +<span id="L16337" class="LineNr">16337 </span> <span class="subxComment"># if (word-slice == '{') abort</span> +<span id="L16338" class="LineNr">16338 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> +<span id="L16339" class="LineNr">16339 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16340" class="LineNr">16340 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 +<span id="L16341" class="LineNr">16341 </span> <span class="subxComment"># if (word-slice == '->') abort</span> +<span id="L16342" class="LineNr">16342 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> +<span id="L16343" class="LineNr">16343 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16344" class="LineNr">16344 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 +<span id="L16345" class="LineNr">16345 </span> <span class="subxComment"># if (word-slice == '}') abort</span> +<span id="L16346" class="LineNr">16346 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> +<span id="L16347" class="LineNr">16347 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16348" class="LineNr">16348 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 +<span id="L16349" class="LineNr">16349 </span> <span class="subxComment"># if word-slice already defined, abort</span> +<span id="L16350" class="LineNr">16350 </span> (<a href='mu.subx.html#L16642'>function-exists?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L16351" class="LineNr">16351 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16352" class="LineNr">16352 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error-duplicate/disp32 +<span id="L16353" class="LineNr">16353 </span> <span class="subxComment">#</span> +<span id="L16354" class="LineNr">16354 </span> (<a href='123slice.subx.html#L487'>slice-starts-with?</a> %ecx <span class="Constant">"break"</span>) <span class="subxComment"># => eax</span> +<span id="L16355" class="LineNr">16355 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16356" class="LineNr">16356 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error-break/disp32 +<span id="L16357" class="LineNr">16357 </span> (<a href='123slice.subx.html#L487'>slice-starts-with?</a> %ecx <span class="Constant">"loop"</span>) <span class="subxComment"># => eax</span> +<span id="L16358" class="LineNr">16358 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16359" class="LineNr">16359 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error-loop/disp32 +<span id="L16360" class="LineNr">16360 </span> <span class="subxComment"># save function name</span> +<span id="L16361" class="LineNr">16361 </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="L16362" class="LineNr">16362 </span> <span class="subxComment"># save function inouts</span> +<span id="L16363" class="LineNr">16363 </span> { +<span id="L16364" class="LineNr">16364 </span><span class="Constant">$populate-mu-function-signature:check-for-inout</span>: +<span id="L16365" class="LineNr">16365 </span> (<a href='mu.subx.html#L17305'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L16366" class="LineNr">16366 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L16367" class="LineNr">16367 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16368" class="LineNr">16368 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L16369" class="LineNr">16369 </span> <span class="subxComment"># if (word-slice == '->') break</span> +<span id="L16370" class="LineNr">16370 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> +<span id="L16371" class="LineNr">16371 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16372" class="LineNr">16372 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L16373" class="LineNr">16373 </span> <span class="subxComment"># if (word-slice == '{') abort</span> +<span id="L16374" class="LineNr">16374 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> +<span id="L16375" class="LineNr">16375 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16376" class="LineNr">16376 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 +<span id="L16377" class="LineNr">16377 </span> <span class="subxComment"># if (word-slice == '}') abort</span> +<span id="L16378" class="LineNr">16378 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> +<span id="L16379" class="LineNr">16379 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16380" class="LineNr">16380 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 +<span id="L16381" class="LineNr">16381 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> +<span id="L16382" class="LineNr">16382 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16383" class="LineNr">16383 </span> (<a href='mu.subx.html#L16950'>parse-var-with-type</a> %ecx *(ebp+8) %ebx %eax *(ebp+0x10) *(ebp+0x14)) +<span id="L16384" class="LineNr">16384 </span> <span class="subxComment"># if (v->register != null) abort</span> +<span id="L16385" class="LineNr">16385 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> +<span id="L16386" class="LineNr">16386 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L16387" class="LineNr">16387 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L16388" class="LineNr">16388 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error2/disp32 +<span id="L16389" class="LineNr">16389 </span> <span class="subxComment"># if function name is not "main"</span> +<span id="L16390" class="LineNr">16390 </span> <span class="subxComment"># and v->type contains an 'addr' anywhere except the start, abort</span> +<span id="L16391" class="LineNr">16391 </span> { +<span id="L16392" class="LineNr">16392 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16393" class="LineNr">16393 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"main"</span>) <span class="subxComment"># => eax</span> +<span id="L16394" class="LineNr">16394 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16395" class="LineNr">16395 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L16396" class="LineNr">16396 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L16397" class="LineNr">16397 </span> (<a href='mu.subx.html#L16588'>addr-payload-contains-addr?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L16398" class="LineNr">16398 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16399" class="LineNr">16399 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error-nested-addr-inout/disp32 +<span id="L16400" class="LineNr">16400 </span> } +<span id="L16401" class="LineNr">16401 </span> <span class="subxComment"># assert(v->register == null)</span> +<span id="L16402" class="LineNr">16402 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> +<span id="L16403" class="LineNr">16403 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L16404" class="LineNr">16404 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L16405" class="LineNr">16405 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error2/disp32 +<span id="L16406" class="LineNr">16406 </span> <span class="subxComment"># v->block-depth is implicitly 0</span> +<span id="L16407" class="LineNr">16407 </span> <span class="subxComment">#</span> +<span id="L16408" class="LineNr">16408 </span> <span class="subxComment"># out->inouts = append(v, out->inouts)</span> +<span id="L16409" class="LineNr">16409 </span> 8d/copy-address *(edi+8) 0/r32/eax <span class="subxComment"># Function-inouts</span> +<span id="L16410" class="LineNr">16410 </span> (<a href='mu.subx.html#L20034'>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="L16411" class="LineNr">16411 </span> <span class="subxComment">#</span> +<span id="L16412" class="LineNr">16412 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L16413" class="LineNr">16413 </span> } +<span id="L16414" class="LineNr">16414 </span> <span class="subxComment"># save function outputs</span> +<span id="L16415" class="LineNr">16415 </span> { +<span id="L16416" class="LineNr">16416 </span><span class="Constant">$populate-mu-function-signature:check-for-out</span>: +<span id="L16417" class="LineNr">16417 </span> (<a href='mu.subx.html#L17305'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L16418" class="LineNr">16418 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L16419" class="LineNr">16419 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16420" class="LineNr">16420 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L16421" class="LineNr">16421 </span> <span class="subxComment"># if (word-slice == '{') abort</span> +<span id="L16422" class="LineNr">16422 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> +<span id="L16423" class="LineNr">16423 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16424" class="LineNr">16424 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 +<span id="L16425" class="LineNr">16425 </span> <span class="subxComment"># if (word-slice == '->') abort</span> +<span id="L16426" class="LineNr">16426 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> +<span id="L16427" class="LineNr">16427 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16428" class="LineNr">16428 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 +<span id="L16429" class="LineNr">16429 </span> <span class="subxComment"># if (word-slice == '}') abort</span> +<span id="L16430" class="LineNr">16430 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <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> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 +<span id="L16433" class="LineNr">16433 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> +<span id="L16434" class="LineNr">16434 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16435" class="LineNr">16435 </span> (<a href='mu.subx.html#L16950'>parse-var-with-type</a> %ecx *(ebp+8) %ebx %eax *(ebp+0x10) *(ebp+0x14)) +<span id="L16436" class="LineNr">16436 </span> <span class="subxComment"># assert(var->register != null)</span> +<span id="L16437" class="LineNr">16437 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> +<span id="L16438" class="LineNr">16438 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L16439" class="LineNr">16439 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L16440" class="LineNr">16440 </span> 0f 84/jump-if-= $populate-mu-function-signature:error3/disp32 +<span id="L16441" class="LineNr">16441 </span> <span class="subxComment"># if (var->name != "_") abort</span> +<span id="L16442" class="LineNr">16442 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16443" class="LineNr">16443 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"_"</span>) <span class="subxComment"># => eax</span> +<span id="L16444" class="LineNr">16444 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16445" class="LineNr">16445 </span> 0f 84/jump-if-= $populate-mu-function-signature:error4/disp32 +<span id="L16446" class="LineNr">16446 </span> <span class="subxComment"># if function name is not "lookup"</span> +<span id="L16447" class="LineNr">16447 </span> <span class="subxComment"># and v->type is an addr, abort</span> +<span id="L16448" class="LineNr">16448 </span> { +<span id="L16449" class="LineNr">16449 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16450" class="LineNr">16450 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"lookup"</span>) <span class="subxComment"># => eax</span> +<span id="L16451" class="LineNr">16451 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16452" class="LineNr">16452 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L16453" class="LineNr">16453 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L16454" class="LineNr">16454 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L16455" class="LineNr">16455 </span> (<a href='mu.subx.html#L36245'>mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L16456" class="LineNr">16456 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16457" class="LineNr">16457 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error-addr-output/disp32 +<span id="L16458" class="LineNr">16458 </span> } +<span id="L16459" class="LineNr">16459 </span> <span class="subxComment"># out->outputs = append(v, out->outputs)</span> +<span id="L16460" class="LineNr">16460 </span> 8d/copy-address *(edi+0x10) 0/r32/eax <span class="subxComment"># Function-outputs</span> +<span id="L16461" class="LineNr">16461 </span> (<a href='mu.subx.html#L20034'>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="L16462" class="LineNr">16462 </span> <span class="subxComment">#</span> +<span id="L16463" class="LineNr">16463 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L16464" class="LineNr">16464 </span> } +<span id="L16465" class="LineNr">16465 </span><span class="Constant">$populate-mu-function-signature:done</span>: +<span id="L16466" class="LineNr">16466 </span> (<a href='mu.subx.html#L18399'>check-no-tokens-left</a> *(ebp+8)) +<span id="L16467" class="LineNr">16467 </span><span class="Constant">$populate-mu-function-signature:end</span>: +<span id="L16468" class="LineNr">16468 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L16469" class="LineNr">16469 </span> 81 0/subop/add %esp 0x10/imm32 +<span id="L16470" class="LineNr">16470 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L16471" class="LineNr">16471 </span> 5f/pop-to-edi +<span id="L16472" class="LineNr">16472 </span> 5b/pop-to-ebx +<span id="L16473" class="LineNr">16473 </span> 5a/pop-to-edx +<span id="L16474" class="LineNr">16474 </span> 59/pop-to-ecx +<span id="L16475" class="LineNr">16475 </span> 58/pop-to-eax +<span id="L16476" class="LineNr">16476 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16477" class="LineNr">16477 </span> 89/<- %esp 5/r32/ebp +<span id="L16478" class="LineNr">16478 </span> 5d/pop-to-ebp +<span id="L16479" class="LineNr">16479 </span> c3/return +<span id="L16480" class="LineNr">16480 </span> +<span id="L16481" class="LineNr">16481 </span><span class="Constant">$populate-mu-function-signature:error1</span>: +<span id="L16482" class="LineNr">16482 </span> <span class="subxComment"># error("function signature not in form 'fn <name> {'")</span> +<span id="L16483" class="LineNr">16483 </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="L16484" class="LineNr">16484 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L16485" class="LineNr">16485 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) +<span id="L16486" class="LineNr">16486 </span> (<a href='125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x10) *(ebp+8)) +<span id="L16487" class="LineNr">16487 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) +<span id="L16488" class="LineNr">16488 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L16489" class="LineNr">16489 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L16490" class="LineNr">16490 </span> <span class="subxComment"># never gets here</span> +<span id="L16491" class="LineNr">16491 </span> +<span id="L16492" class="LineNr">16492 </span><span class="Constant">$populate-mu-function-signature:error2</span>: +<span id="L16493" class="LineNr">16493 </span> <span class="subxComment"># error("fn " fn ": function inout '" var "' cannot be in a register")</span> +<span id="L16494" class="LineNr">16494 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L16495" class="LineNr">16495 </span> 50/push-eax +<span id="L16496" class="LineNr">16496 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16497" class="LineNr">16497 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L16498" class="LineNr">16498 </span> 58/pop-to-eax +<span id="L16499" class="LineNr">16499 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": function inout '"</span>) +<span id="L16500" class="LineNr">16500 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16501" class="LineNr">16501 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L16502" class="LineNr">16502 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' cannot be in a register"</span>) +<span id="L16503" class="LineNr">16503 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L16504" class="LineNr">16504 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L16505" class="LineNr">16505 </span> <span class="subxComment"># never gets here</span> +<span id="L16506" class="LineNr">16506 </span> +<span id="L16507" class="LineNr">16507 </span><span class="Constant">$populate-mu-function-signature:error3</span>: +<span id="L16508" class="LineNr">16508 </span> <span class="subxComment"># error("fn " fn ": function output '" var "' must be in a register")</span> +<span id="L16509" class="LineNr">16509 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L16510" class="LineNr">16510 </span> 50/push-eax +<span id="L16511" class="LineNr">16511 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16512" class="LineNr">16512 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L16513" class="LineNr">16513 </span> 58/pop-to-eax +<span id="L16514" class="LineNr">16514 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": function output '"</span>) +<span id="L16515" class="LineNr">16515 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L16516" class="LineNr">16516 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16517" class="LineNr">16517 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L16518" class="LineNr">16518 </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="L16519" class="LineNr">16519 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) +<span id="L16520" class="LineNr">16520 </span> (<a href='125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x10) *(ebp+8)) +<span id="L16521" class="LineNr">16521 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) +<span id="L16522" class="LineNr">16522 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L16523" class="LineNr">16523 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L16524" class="LineNr">16524 </span> <span class="subxComment"># never gets here</span> +<span id="L16525" class="LineNr">16525 </span> +<span id="L16526" class="LineNr">16526 </span><span class="Constant">$populate-mu-function-signature:error4</span>: +<span id="L16527" class="LineNr">16527 </span> <span class="subxComment"># error("fn " fn ": function outputs cannot be named; rename '" var "' in the header to '_'")</span> +<span id="L16528" class="LineNr">16528 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L16529" class="LineNr">16529 </span> 50/push-eax +<span id="L16530" class="LineNr">16530 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16531" class="LineNr">16531 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L16532" class="LineNr">16532 </span> 58/pop-to-eax +<span id="L16533" class="LineNr">16533 </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="L16534" class="LineNr">16534 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L16535" class="LineNr">16535 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16536" class="LineNr">16536 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L16537" class="LineNr">16537 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' in the header to '_'\n"</span>) +<span id="L16538" class="LineNr">16538 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L16539" class="LineNr">16539 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L16540" class="LineNr">16540 </span> <span class="subxComment"># never gets here</span> +<span id="L16541" class="LineNr">16541 </span> +<span id="L16542" class="LineNr">16542 </span><span class="Constant">$populate-mu-function-signature:error-duplicate</span>: +<span id="L16543" class="LineNr">16543 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L16544" class="LineNr">16544 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x10) %ecx) +<span id="L16545" class="LineNr">16545 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">" defined more than once\n"</span>) +<span id="L16546" class="LineNr">16546 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L16547" class="LineNr">16547 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L16548" class="LineNr">16548 </span> <span class="subxComment"># never gets here</span> +<span id="L16549" class="LineNr">16549 </span> +<span id="L16550" class="LineNr">16550 </span><span class="Constant">$populate-mu-function-signature:error-break</span>: +<span id="L16551" class="LineNr">16551 </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="L16552" class="LineNr">16552 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L16553" class="LineNr">16553 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L16554" class="LineNr">16554 </span> <span class="subxComment"># never gets here</span> +<span id="L16555" class="LineNr">16555 </span> +<span id="L16556" class="LineNr">16556 </span><span class="Constant">$populate-mu-function-signature:error-loop</span>: +<span id="L16557" class="LineNr">16557 </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="L16558" class="LineNr">16558 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L16559" class="LineNr">16559 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L16560" class="LineNr">16560 </span> <span class="subxComment"># never gets here</span> +<span id="L16561" class="LineNr">16561 </span> +<span id="L16562" class="LineNr">16562 </span><span class="Constant">$populate-mu-function-signature:error-addr-output</span>: +<span id="L16563" class="LineNr">16563 </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="L16564" class="LineNr">16564 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L16565" class="LineNr">16565 </span> 50/push-eax +<span id="L16566" class="LineNr">16566 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16567" class="LineNr">16567 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L16568" class="LineNr">16568 </span> 58/pop-to-eax +<span id="L16569" class="LineNr">16569 </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="L16570" class="LineNr">16570 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L16571" class="LineNr">16571 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L16572" class="LineNr">16572 </span> <span class="subxComment"># never gets here</span> +<span id="L16573" class="LineNr">16573 </span> +<span id="L16574" class="LineNr">16574 </span><span class="Constant">$populate-mu-function-signature:error-nested-addr-inout</span>: +<span id="L16575" class="LineNr">16575 </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="L16576" class="LineNr">16576 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L16577" class="LineNr">16577 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16578" class="LineNr">16578 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L16579" class="LineNr">16579 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": inout '"</span>) +<span id="L16580" class="LineNr">16580 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L16581" class="LineNr">16581 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16582" class="LineNr">16582 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L16583" class="LineNr">16583 </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="L16584" class="LineNr">16584 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L16585" class="LineNr">16585 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L16586" class="LineNr">16586 </span> <span class="subxComment"># never gets here</span> +<span id="L16587" class="LineNr">16587 </span> +<span id="L16588" class="LineNr">16588 </span><span class="subxFunction">addr-payload-contains-addr?</span>: <span class="subxComment"># v: (addr var) -> result/eax: boolean</span> +<span id="L16589" class="LineNr">16589 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16590" class="LineNr">16590 </span> 55/push-ebp +<span id="L16591" class="LineNr">16591 </span> 89/<- %ebp 4/r32/esp +<span id="L16592" class="LineNr">16592 </span> <span class="subxComment"># var t/eax: (addr type-tree) = v->type</span> +<span id="L16593" class="LineNr">16593 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L16594" class="LineNr">16594 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L16595" class="LineNr">16595 </span> <span class="subxComment"># if t->right contains addr, return true</span> +<span id="L16596" class="LineNr">16596 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L16597" class="LineNr">16597 </span> (<a href='mu.subx.html#L16605'>type-tree-contains?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L16598" class="LineNr">16598 </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="L16599" class="LineNr">16599 </span><span class="Constant">$addr-payload-contains-addr?:end</span>: +<span id="L16600" class="LineNr">16600 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16601" class="LineNr">16601 </span> 89/<- %esp 5/r32/ebp +<span id="L16602" class="LineNr">16602 </span> 5d/pop-to-ebp +<span id="L16603" class="LineNr">16603 </span> c3/return +<span id="L16604" class="LineNr">16604 </span> +<span id="L16605" class="LineNr">16605 </span><span class="subxFunction">type-tree-contains?</span>: <span class="subxComment"># t: (addr type-tree), n: type-id -> result/eax: boolean</span> +<span id="L16606" class="LineNr">16606 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16607" class="LineNr">16607 </span> 55/push-ebp +<span id="L16608" class="LineNr">16608 </span> 89/<- %ebp 4/r32/esp +<span id="L16609" class="LineNr">16609 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L16610" class="LineNr">16610 </span> 51/push-ecx +<span id="L16611" class="LineNr">16611 </span> <span class="subxComment"># if t is null, return false</span> +<span id="L16612" class="LineNr">16612 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L16613" class="LineNr">16613 </span> 3d/compare-eax-and 0/imm32 +<span id="L16614" class="LineNr">16614 </span> 0f 84/jump-if-= $type-tree-contains?:end/disp32 <span class="subxComment"># eax changes type</span> +<span id="L16615" class="LineNr">16615 </span> <span class="subxComment"># if t is an atom, return (t->value == n)</span> +<span id="L16616" class="LineNr">16616 </span> 81 7/subop/compare *eax 0/imm32/false +<span id="L16617" class="LineNr">16617 </span> { +<span id="L16618" class="LineNr">16618 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L16619" class="LineNr">16619 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L16620" class="LineNr">16620 </span> 39/compare *(eax+4) 1/r32/ecx <span class="subxComment"># Type-tree-value</span> +<span id="L16621" class="LineNr">16621 </span> 0f 94/set-if-= %al +<span id="L16622" class="LineNr">16622 </span> 25/and-eax-with 0xff/imm32 +<span id="L16623" class="LineNr">16623 </span> eb/jump $type-tree-contains?:end/disp8 +<span id="L16624" class="LineNr">16624 </span> } +<span id="L16625" class="LineNr">16625 </span> <span class="subxComment"># if t->left contains n, return true</span> +<span id="L16626" class="LineNr">16626 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L16627" class="LineNr">16627 </span> (<a href='mu.subx.html#L16605'>type-tree-contains?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L16628" class="LineNr">16628 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16629" class="LineNr">16629 </span> 75/jump-if-!= $type-tree-contains?:end/disp8 +<span id="L16630" class="LineNr">16630 </span> <span class="subxComment"># otherwise return whether t->right contains n</span> +<span id="L16631" class="LineNr">16631 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L16632" class="LineNr">16632 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L16633" class="LineNr">16633 </span> (<a href='mu.subx.html#L16605'>type-tree-contains?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L16634" class="LineNr">16634 </span><span class="Constant">$type-tree-contains?:end</span>: +<span id="L16635" class="LineNr">16635 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L16636" class="LineNr">16636 </span> 59/pop-to-ecx +<span id="L16637" class="LineNr">16637 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16638" class="LineNr">16638 </span> 89/<- %esp 5/r32/ebp +<span id="L16639" class="LineNr">16639 </span> 5d/pop-to-ebp +<span id="L16640" class="LineNr">16640 </span> c3/return +<span id="L16641" class="LineNr">16641 </span> +<span id="L16642" class="LineNr">16642 </span><span class="subxFunction">function-exists?</span>: <span class="subxComment"># s: (addr slice) -> result/eax: boolean</span> +<span id="L16643" class="LineNr">16643 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16644" class="LineNr">16644 </span> 55/push-ebp +<span id="L16645" class="LineNr">16645 </span> 89/<- %ebp 4/r32/esp +<span id="L16646" class="LineNr">16646 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L16647" class="LineNr">16647 </span> 51/push-ecx +<span id="L16648" class="LineNr">16648 </span> <span class="subxComment"># var curr/ecx: (addr function) = functions</span> +<span id="L16649" class="LineNr">16649 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *_Program-functions *_Program-functions->payload) <span class="subxComment"># => eax</span> <span id="L16650" class="LineNr">16650 </span> 89/<- %ecx 0/r32/eax <span id="L16651" class="LineNr">16651 </span> { <span id="L16652" class="LineNr">16652 </span> <span class="subxComment"># if (curr == null) break</span> @@ -15166,7 +15166,7 @@ if ('onhashchange' in window) { <span id="L16659" class="LineNr">16659 </span> 3d/compare-eax-and 0/imm32/false <span id="L16660" class="LineNr">16660 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 <span id="L16661" class="LineNr">16661 </span> b8/copy-to-eax 1/imm32/true -<span id="L16662" class="LineNr">16662 </span> eb/jump $function-exists?:end/disp8 +<span id="L16662" class="LineNr">16662 </span> e9/jump $function-exists?:end/disp32 <span id="L16663" class="LineNr">16663 </span> } <span id="L16664" class="LineNr">16664 </span> <span class="subxComment"># curr = curr->next</span> <span id="L16665" class="LineNr">16665 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x20) *(ecx+0x24)) <span class="subxComment"># Function-next Function-next => eax</span> @@ -15174,1277 +15174,1277 @@ if ('onhashchange' in window) { <span id="L16667" class="LineNr">16667 </span> <span class="subxComment">#</span> <span id="L16668" class="LineNr">16668 </span> eb/jump <span class="Constant">loop</span>/disp8 <span id="L16669" class="LineNr">16669 </span> } -<span id="L16670" class="LineNr">16670 </span> <span class="subxComment"># return false</span> -<span id="L16671" class="LineNr">16671 </span> b8/copy-to-eax 0/imm32/false -<span id="L16672" class="LineNr">16672 </span><span class="Constant">$function-exists?:end</span>: -<span id="L16673" class="LineNr">16673 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L16674" class="LineNr">16674 </span> 59/pop-to-ecx -<span id="L16675" class="LineNr">16675 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16676" class="LineNr">16676 </span> 89/<- %esp 5/r32/ebp -<span id="L16677" class="LineNr">16677 </span> 5d/pop-to-ebp -<span id="L16678" class="LineNr">16678 </span> c3/return -<span id="L16679" class="LineNr">16679 </span> -<span id="L16680" class="LineNr">16680 </span><span class="subxTest">test-function-header-with-arg</span>: -<span id="L16681" class="LineNr">16681 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16682" class="LineNr">16682 </span> 55/push-ebp -<span id="L16683" class="LineNr">16683 </span> 89/<- %ebp 4/r32/esp -<span id="L16684" class="LineNr">16684 </span> <span class="subxComment"># setup</span> -<span id="L16685" class="LineNr">16685 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L16686" class="LineNr">16686 </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="L16687" class="LineNr">16687 </span> c7 0/subop/copy *_Program-functions 0/imm32 -<span id="L16688" class="LineNr">16688 </span> c7 0/subop/copy *_Program-functions->payload 0/imm32 -<span id="L16689" class="LineNr">16689 </span> c7 0/subop/copy *_Program-types 0/imm32 -<span id="L16690" class="LineNr">16690 </span> c7 0/subop/copy *_Program-types->payload 0/imm32 -<span id="L16691" class="LineNr">16691 </span> c7 0/subop/copy *_Program-signatures 0/imm32 -<span id="L16692" class="LineNr">16692 </span> c7 0/subop/copy *_Program-signatures->payload 0/imm32 -<span id="L16693" class="LineNr">16693 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L16694" class="LineNr">16694 </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="L16695" class="LineNr">16695 </span> <span class="subxComment"># var result/ecx: function</span> -<span id="L16696" class="LineNr">16696 </span> 2b/subtract *<span class="SpecialChar"><a href='mu.subx.html#L275'>Function-size</a></span> 4/r32/esp -<span id="L16697" class="LineNr">16697 </span> 89/<- %ecx 4/r32/esp -<span id="L16698" class="LineNr">16698 </span> (<a href='120allocate.subx.html#L889'>zero-out</a> %ecx *<span class="SpecialChar"><a href='mu.subx.html#L275'>Function-size</a></span>) -<span id="L16699" class="LineNr">16699 </span> <span class="subxComment"># var vars/ebx: (stack live-var 16)</span> -<span id="L16700" class="LineNr">16700 </span> 81 5/subop/subtract %esp 0xc0/imm32 -<span id="L16701" class="LineNr">16701 </span> 68/push 0xc0/imm32/size -<span id="L16702" class="LineNr">16702 </span> 68/push 0/imm32/top -<span id="L16703" class="LineNr">16703 </span> 89/<- %ebx 4/r32/esp -<span id="L16704" class="LineNr">16704 </span> <span class="subxComment"># convert</span> -<span id="L16705" class="LineNr">16705 </span> (<a href='mu.subx.html#L15948'>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="L16706" class="LineNr">16706 </span> <span class="subxComment"># check result->name</span> -<span id="L16707" class="LineNr">16707 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16708" class="LineNr">16708 </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#L16680'>test-function-header-with-arg</a>/name"</span>) -<span id="L16709" class="LineNr">16709 </span> <span class="subxComment"># var v/edx: (addr var) = result->inouts->value</span> -<span id="L16710" class="LineNr">16710 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> -<span id="L16711" class="LineNr">16711 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L16712" class="LineNr">16712 </span> 89/<- %edx 0/r32/eax -<span id="L16713" class="LineNr">16713 </span> <span class="subxComment"># check v->name</span> -<span id="L16714" class="LineNr">16714 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16715" class="LineNr">16715 </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#L16680'>test-function-header-with-arg</a>/inout:0"</span>) -<span id="L16716" class="LineNr">16716 </span> <span class="subxComment"># check v->type</span> -<span id="L16717" class="LineNr">16717 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L16718" class="LineNr">16718 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16680'>test-function-header-with-arg</a>/inout:0/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L16719" class="LineNr">16719 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16680'>test-function-header-with-arg</a>/inout:0/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L16720" class="LineNr">16720 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16680'>test-function-header-with-arg</a>/inout:0/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L16721" class="LineNr">16721 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16722" class="LineNr">16722 </span> 89/<- %esp 5/r32/ebp -<span id="L16723" class="LineNr">16723 </span> 5d/pop-to-ebp -<span id="L16724" class="LineNr">16724 </span> c3/return -<span id="L16725" class="LineNr">16725 </span> -<span id="L16726" class="LineNr">16726 </span><span class="subxTest">test-function-header-with-multiple-args</span>: -<span id="L16727" class="LineNr">16727 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16728" class="LineNr">16728 </span> 55/push-ebp -<span id="L16729" class="LineNr">16729 </span> 89/<- %ebp 4/r32/esp -<span id="L16730" class="LineNr">16730 </span> <span class="subxComment"># setup</span> -<span id="L16731" class="LineNr">16731 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L16732" class="LineNr">16732 </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="L16733" class="LineNr">16733 </span> c7 0/subop/copy *_Program-functions 0/imm32 -<span id="L16734" class="LineNr">16734 </span> c7 0/subop/copy *_Program-functions->payload 0/imm32 -<span id="L16735" class="LineNr">16735 </span> c7 0/subop/copy *_Program-types 0/imm32 -<span id="L16736" class="LineNr">16736 </span> c7 0/subop/copy *_Program-types->payload 0/imm32 -<span id="L16737" class="LineNr">16737 </span> c7 0/subop/copy *_Program-signatures 0/imm32 -<span id="L16738" class="LineNr">16738 </span> c7 0/subop/copy *_Program-signatures->payload 0/imm32 -<span id="L16739" class="LineNr">16739 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L16740" class="LineNr">16740 </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="L16741" class="LineNr">16741 </span> <span class="subxComment"># result/ecx: function</span> -<span id="L16742" class="LineNr">16742 </span> 2b/subtract *<span class="SpecialChar"><a href='mu.subx.html#L275'>Function-size</a></span> 4/r32/esp -<span id="L16743" class="LineNr">16743 </span> 89/<- %ecx 4/r32/esp -<span id="L16744" class="LineNr">16744 </span> (<a href='120allocate.subx.html#L889'>zero-out</a> %ecx *<span class="SpecialChar"><a href='mu.subx.html#L275'>Function-size</a></span>) -<span id="L16745" class="LineNr">16745 </span> <span class="subxComment"># var vars/ebx: (stack live-var 16)</span> -<span id="L16746" class="LineNr">16746 </span> 81 5/subop/subtract %esp 0xc0/imm32 -<span id="L16747" class="LineNr">16747 </span> 68/push 0xc0/imm32/size -<span id="L16748" class="LineNr">16748 </span> 68/push 0/imm32/top -<span id="L16749" class="LineNr">16749 </span> 89/<- %ebx 4/r32/esp -<span id="L16750" class="LineNr">16750 </span> <span class="subxComment"># convert</span> -<span id="L16751" class="LineNr">16751 </span> (<a href='mu.subx.html#L15948'>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="L16752" class="LineNr">16752 </span> <span class="subxComment"># check result->name</span> -<span id="L16753" class="LineNr">16753 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16754" class="LineNr">16754 </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#L16726'>test-function-header-with-multiple-args</a>/name"</span>) -<span id="L16755" class="LineNr">16755 </span> <span class="subxComment"># var inouts/edx: (addr list var) = lookup(result->inouts)</span> -<span id="L16756" class="LineNr">16756 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> -<span id="L16757" class="LineNr">16757 </span> 89/<- %edx 0/r32/eax -<span id="L16758" class="LineNr">16758 </span><span class="Constant">$test-function-header-with-multiple-args:inout0</span>: -<span id="L16759" class="LineNr">16759 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(inouts->value)</span> -<span id="L16760" class="LineNr">16760 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L16761" class="LineNr">16761 </span> 89/<- %ebx 0/r32/eax -<span id="L16762" class="LineNr">16762 </span> <span class="subxComment"># check v->name</span> -<span id="L16763" class="LineNr">16763 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16764" class="LineNr">16764 </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#L16726'>test-function-header-with-multiple-args</a>/inout:0"</span>) <span class="subxComment"># Var-name</span> -<span id="L16765" class="LineNr">16765 </span> <span class="subxComment"># check v->type</span> -<span id="L16766" class="LineNr">16766 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L16767" class="LineNr">16767 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16726'>test-function-header-with-multiple-args</a>/inout:0/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L16768" class="LineNr">16768 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16726'>test-function-header-with-multiple-args</a>/inout:0/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L16769" class="LineNr">16769 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16726'>test-function-header-with-multiple-args</a>/inout:0/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L16770" class="LineNr">16770 </span><span class="Constant">$test-function-header-with-multiple-args:inout1</span>: -<span id="L16771" class="LineNr">16771 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> -<span id="L16772" class="LineNr">16772 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L16773" class="LineNr">16773 </span> 89/<- %edx 0/r32/eax -<span id="L16774" class="LineNr">16774 </span> <span class="subxComment"># v = lookup(inouts->value)</span> -<span id="L16775" class="LineNr">16775 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L16776" class="LineNr">16776 </span> 89/<- %ebx 0/r32/eax -<span id="L16777" class="LineNr">16777 </span> <span class="subxComment"># check v->name</span> -<span id="L16778" class="LineNr">16778 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16779" class="LineNr">16779 </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#L16726'>test-function-header-with-multiple-args</a>/inout:1"</span>) <span class="subxComment"># Var-name</span> -<span id="L16780" class="LineNr">16780 </span> <span class="subxComment"># check v->type</span> -<span id="L16781" class="LineNr">16781 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L16782" class="LineNr">16782 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16726'>test-function-header-with-multiple-args</a>/inout:1/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L16783" class="LineNr">16783 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16726'>test-function-header-with-multiple-args</a>/inout:1/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L16784" class="LineNr">16784 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16726'>test-function-header-with-multiple-args</a>/inout:1/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L16785" class="LineNr">16785 </span><span class="Constant">$test-function-header-with-multiple-args:inout2</span>: -<span id="L16786" class="LineNr">16786 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> -<span id="L16787" class="LineNr">16787 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L16788" class="LineNr">16788 </span> 89/<- %edx 0/r32/eax -<span id="L16789" class="LineNr">16789 </span> <span class="subxComment"># v = lookup(inouts->value)</span> -<span id="L16790" class="LineNr">16790 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L16791" class="LineNr">16791 </span> 89/<- %ebx 0/r32/eax -<span id="L16792" class="LineNr">16792 </span> <span class="subxComment"># check v->name</span> -<span id="L16793" class="LineNr">16793 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16794" class="LineNr">16794 </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#L16726'>test-function-header-with-multiple-args</a>/inout:2"</span>) <span class="subxComment"># Var-name</span> -<span id="L16795" class="LineNr">16795 </span> <span class="subxComment"># check v->type</span> -<span id="L16796" class="LineNr">16796 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L16797" class="LineNr">16797 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16726'>test-function-header-with-multiple-args</a>/inout:2/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L16798" class="LineNr">16798 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16726'>test-function-header-with-multiple-args</a>/inout:2/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L16799" class="LineNr">16799 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16726'>test-function-header-with-multiple-args</a>/inout:2/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L16800" class="LineNr">16800 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16801" class="LineNr">16801 </span> 89/<- %esp 5/r32/ebp -<span id="L16802" class="LineNr">16802 </span> 5d/pop-to-ebp -<span id="L16803" class="LineNr">16803 </span> c3/return -<span id="L16804" class="LineNr">16804 </span> -<span id="L16805" class="LineNr">16805 </span><span class="subxTest">test-function-header-with-multiple-args-and-outputs</span>: -<span id="L16806" class="LineNr">16806 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16807" class="LineNr">16807 </span> 55/push-ebp -<span id="L16808" class="LineNr">16808 </span> 89/<- %ebp 4/r32/esp -<span id="L16809" class="LineNr">16809 </span> <span class="subxComment"># setup</span> -<span id="L16810" class="LineNr">16810 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L16811" class="LineNr">16811 </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="L16812" class="LineNr">16812 </span> c7 0/subop/copy *_Program-functions 0/imm32 -<span id="L16813" class="LineNr">16813 </span> c7 0/subop/copy *_Program-functions->payload 0/imm32 -<span id="L16814" class="LineNr">16814 </span> c7 0/subop/copy *_Program-types 0/imm32 -<span id="L16815" class="LineNr">16815 </span> c7 0/subop/copy *_Program-types->payload 0/imm32 -<span id="L16816" class="LineNr">16816 </span> c7 0/subop/copy *_Program-signatures 0/imm32 -<span id="L16817" class="LineNr">16817 </span> c7 0/subop/copy *_Program-signatures->payload 0/imm32 -<span id="L16818" class="LineNr">16818 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L16819" class="LineNr">16819 </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="L16820" class="LineNr">16820 </span> <span class="subxComment"># result/ecx: function</span> -<span id="L16821" class="LineNr">16821 </span> 2b/subtract *<span class="SpecialChar"><a href='mu.subx.html#L275'>Function-size</a></span> 4/r32/esp -<span id="L16822" class="LineNr">16822 </span> 89/<- %ecx 4/r32/esp -<span id="L16823" class="LineNr">16823 </span> (<a href='120allocate.subx.html#L889'>zero-out</a> %ecx *<span class="SpecialChar"><a href='mu.subx.html#L275'>Function-size</a></span>) -<span id="L16824" class="LineNr">16824 </span> <span class="subxComment"># var vars/ebx: (stack live-var 16)</span> -<span id="L16825" class="LineNr">16825 </span> 81 5/subop/subtract %esp 0xc0/imm32 -<span id="L16826" class="LineNr">16826 </span> 68/push 0xc0/imm32/size -<span id="L16827" class="LineNr">16827 </span> 68/push 0/imm32/top -<span id="L16828" class="LineNr">16828 </span> 89/<- %ebx 4/r32/esp -<span id="L16829" class="LineNr">16829 </span> <span class="subxComment"># convert</span> -<span id="L16830" class="LineNr">16830 </span> (<a href='mu.subx.html#L15948'>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="L16831" class="LineNr">16831 </span> <span class="subxComment"># check result->name</span> -<span id="L16832" class="LineNr">16832 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16833" class="LineNr">16833 </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#L16805'>test-function-header-with-multiple-args-and-outputs</a>/name"</span>) -<span id="L16834" class="LineNr">16834 </span> <span class="subxComment"># var inouts/edx: (addr list var) = lookup(result->inouts)</span> -<span id="L16835" class="LineNr">16835 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> -<span id="L16836" class="LineNr">16836 </span> 89/<- %edx 0/r32/eax -<span id="L16837" class="LineNr">16837 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:inout0</span>: -<span id="L16838" class="LineNr">16838 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(inouts->value)</span> -<span id="L16839" class="LineNr">16839 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L16840" class="LineNr">16840 </span> 89/<- %ebx 0/r32/eax -<span id="L16841" class="LineNr">16841 </span> <span class="subxComment"># check v->name</span> -<span id="L16842" class="LineNr">16842 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16843" class="LineNr">16843 </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#L16805'>test-function-header-with-multiple-args-and-outputs</a>/inout:0"</span>) -<span id="L16844" class="LineNr">16844 </span> <span class="subxComment"># check v->type</span> -<span id="L16845" class="LineNr">16845 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L16846" class="LineNr">16846 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16805'>test-function-header-with-multiple-args-and-outputs</a>/inout:0/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L16847" class="LineNr">16847 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16805'>test-function-header-with-multiple-args-and-outputs</a>/inout:0/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L16848" class="LineNr">16848 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16805'>test-function-header-with-multiple-args-and-outputs</a>/inout:0/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L16849" class="LineNr">16849 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:inout1</span>: -<span id="L16850" class="LineNr">16850 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> -<span id="L16851" class="LineNr">16851 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L16852" class="LineNr">16852 </span> 89/<- %edx 0/r32/eax -<span id="L16853" class="LineNr">16853 </span> <span class="subxComment"># v = lookup(inouts->value)</span> -<span id="L16854" class="LineNr">16854 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L16855" class="LineNr">16855 </span> 89/<- %ebx 0/r32/eax -<span id="L16856" class="LineNr">16856 </span> <span class="subxComment"># check v->name</span> -<span id="L16857" class="LineNr">16857 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16858" class="LineNr">16858 </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#L16805'>test-function-header-with-multiple-args-and-outputs</a>/inout:1"</span>) -<span id="L16859" class="LineNr">16859 </span> <span class="subxComment"># check v->type</span> -<span id="L16860" class="LineNr">16860 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L16861" class="LineNr">16861 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16805'>test-function-header-with-multiple-args-and-outputs</a>/inout:1/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L16862" class="LineNr">16862 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16805'>test-function-header-with-multiple-args-and-outputs</a>/inout:1/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L16863" class="LineNr">16863 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16805'>test-function-header-with-multiple-args-and-outputs</a>/inout:1/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L16864" class="LineNr">16864 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:inout2</span>: -<span id="L16865" class="LineNr">16865 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> -<span id="L16866" class="LineNr">16866 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L16867" class="LineNr">16867 </span> 89/<- %edx 0/r32/eax -<span id="L16868" class="LineNr">16868 </span> <span class="subxComment"># v = lookup(inouts->value)</span> -<span id="L16869" class="LineNr">16869 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L16870" class="LineNr">16870 </span> 89/<- %ebx 0/r32/eax -<span id="L16871" class="LineNr">16871 </span> <span class="subxComment"># check v->name</span> -<span id="L16872" class="LineNr">16872 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16873" class="LineNr">16873 </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#L16805'>test-function-header-with-multiple-args-and-outputs</a>/inout:2"</span>) -<span id="L16874" class="LineNr">16874 </span> <span class="subxComment"># check v->type</span> -<span id="L16875" class="LineNr">16875 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L16876" class="LineNr">16876 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16805'>test-function-header-with-multiple-args-and-outputs</a>/inout:2/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L16877" class="LineNr">16877 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16805'>test-function-header-with-multiple-args-and-outputs</a>/inout:2/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L16878" class="LineNr">16878 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16805'>test-function-header-with-multiple-args-and-outputs</a>/inout:2/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L16879" class="LineNr">16879 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:out0</span>: -<span id="L16880" class="LineNr">16880 </span> <span class="subxComment"># var outputs/edx: (addr list var) = lookup(result->outputs)</span> -<span id="L16881" class="LineNr">16881 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x10) *(ecx+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> -<span id="L16882" class="LineNr">16882 </span> 89/<- %edx 0/r32/eax -<span id="L16883" class="LineNr">16883 </span> <span class="subxComment"># v = lookup(outputs->value)</span> -<span id="L16884" class="LineNr">16884 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L16885" class="LineNr">16885 </span> 89/<- %ebx 0/r32/eax -<span id="L16886" class="LineNr">16886 </span> <span class="subxComment"># check v->name</span> -<span id="L16887" class="LineNr">16887 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16888" class="LineNr">16888 </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#L16805'>test-function-header-with-multiple-args-and-outputs</a>/output:0"</span>) -<span id="L16889" class="LineNr">16889 </span> <span class="subxComment"># check v->register</span> -<span id="L16890" class="LineNr">16890 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L16891" class="LineNr">16891 </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#L16805'>test-function-header-with-multiple-args-and-outputs</a>/output:0/register"</span>) -<span id="L16892" class="LineNr">16892 </span> <span class="subxComment"># check v->type</span> -<span id="L16893" class="LineNr">16893 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L16894" class="LineNr">16894 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16805'>test-function-header-with-multiple-args-and-outputs</a>/output:0/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L16895" class="LineNr">16895 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16805'>test-function-header-with-multiple-args-and-outputs</a>/output:0/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L16896" class="LineNr">16896 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16805'>test-function-header-with-multiple-args-and-outputs</a>/output:0/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L16897" class="LineNr">16897 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:out1</span>: -<span id="L16898" class="LineNr">16898 </span> <span class="subxComment"># outputs = lookup(outputs->next)</span> -<span id="L16899" class="LineNr">16899 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L16900" class="LineNr">16900 </span> 89/<- %edx 0/r32/eax -<span id="L16901" class="LineNr">16901 </span> <span class="subxComment"># v = lookup(inouts->value)</span> -<span id="L16902" class="LineNr">16902 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L16903" class="LineNr">16903 </span> 89/<- %ebx 0/r32/eax -<span id="L16904" class="LineNr">16904 </span> <span class="subxComment"># check v->name</span> -<span id="L16905" class="LineNr">16905 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16906" class="LineNr">16906 </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#L16805'>test-function-header-with-multiple-args-and-outputs</a>/output:1"</span>) -<span id="L16907" class="LineNr">16907 </span> <span class="subxComment"># check v->register</span> -<span id="L16908" class="LineNr">16908 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L16909" class="LineNr">16909 </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#L16805'>test-function-header-with-multiple-args-and-outputs</a>/output:1/register"</span>) -<span id="L16910" class="LineNr">16910 </span> <span class="subxComment"># check v->type</span> -<span id="L16911" class="LineNr">16911 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L16912" class="LineNr">16912 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16805'>test-function-header-with-multiple-args-and-outputs</a>/output:1/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L16913" class="LineNr">16913 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16805'>test-function-header-with-multiple-args-and-outputs</a>/output:1/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L16914" class="LineNr">16914 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0c) 0 <span class="Constant">"F - <a href='mu.subx.html#L16805'>test-function-header-with-multiple-args-and-outputs</a>/output:1/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L16915" class="LineNr">16915 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16916" class="LineNr">16916 </span> 89/<- %esp 5/r32/ebp -<span id="L16917" class="LineNr">16917 </span> 5d/pop-to-ebp -<span id="L16918" class="LineNr">16918 </span> c3/return -<span id="L16919" class="LineNr">16919 </span> -<span id="L16920" class="LineNr">16920 </span><span class="subxComment"># format for variables with types</span> -<span id="L16921" class="LineNr">16921 </span><span class="subxComment"># x: int</span> -<span id="L16922" class="LineNr">16922 </span><span class="subxComment"># x: int,</span> -<span id="L16923" class="LineNr">16923 </span><span class="subxComment"># x/eax: int</span> -<span id="L16924" class="LineNr">16924 </span><span class="subxComment"># x/eax: int,</span> -<span id="L16925" class="LineNr">16925 </span><span class="subxComment"># ignores at most one trailing comma</span> -<span id="L16926" class="LineNr">16926 </span><span class="subxComment"># does not support other, non-register metadata</span> -<span id="L16927" class="LineNr">16927 </span><span class="subxComment"># WARNING: modifies name</span> -<span id="L16928" class="LineNr">16928 </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="L16929" class="LineNr">16929 </span> <span class="subxComment"># pseudocode:</span> -<span id="L16930" class="LineNr">16930 </span> <span class="subxComment"># var s: slice</span> -<span id="L16931" class="LineNr">16931 </span> <span class="subxComment"># if (!slice-ends-with(name, ":"))</span> -<span id="L16932" class="LineNr">16932 </span> <span class="subxComment"># abort</span> -<span id="L16933" class="LineNr">16933 </span> <span class="subxComment"># --name->end to skip ':'</span> -<span id="L16934" class="LineNr">16934 </span> <span class="subxComment"># next-token-from-slice(name->start, name->end, '/', s)</span> -<span id="L16935" class="LineNr">16935 </span> <span class="subxComment"># new-var-from-slice(s, out)</span> -<span id="L16936" class="LineNr">16936 </span> <span class="subxComment"># ## register</span> -<span id="L16937" class="LineNr">16937 </span> <span class="subxComment"># next-token-from-slice(s->end, name->end, '/', s)</span> -<span id="L16938" class="LineNr">16938 </span> <span class="subxComment"># if (!slice-empty?(s))</span> -<span id="L16939" class="LineNr">16939 </span> <span class="subxComment"># out->register = slice-to-string(s)</span> -<span id="L16940" class="LineNr">16940 </span> <span class="subxComment"># ## type</span> -<span id="L16941" class="LineNr">16941 </span> <span class="subxComment"># var type: (handle type-tree) = parse-type(first-line)</span> -<span id="L16942" class="LineNr">16942 </span> <span class="subxComment"># out->type = type</span> -<span id="L16943" class="LineNr">16943 </span> <span class="subxComment">#</span> -<span id="L16944" class="LineNr">16944 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16945" class="LineNr">16945 </span> 55/push-ebp -<span id="L16946" class="LineNr">16946 </span> 89/<- %ebp 4/r32/esp -<span id="L16947" class="LineNr">16947 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L16948" class="LineNr">16948 </span> 50/push-eax -<span id="L16949" class="LineNr">16949 </span> 51/push-ecx -<span id="L16950" class="LineNr">16950 </span> 52/push-edx -<span id="L16951" class="LineNr">16951 </span> 53/push-ebx -<span id="L16952" class="LineNr">16952 </span> 56/push-esi -<span id="L16953" class="LineNr">16953 </span> 57/push-edi -<span id="L16954" class="LineNr">16954 </span> <span class="subxComment"># esi = name</span> -<span id="L16955" class="LineNr">16955 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L16956" class="LineNr">16956 </span> <span class="subxComment"># if (!slice-ends-with?(name, ":")) abort</span> -<span id="L16957" class="LineNr">16957 </span> 8b/-> *(esi+4) 1/r32/ecx <span class="subxComment"># Slice-end</span> -<span id="L16958" class="LineNr">16958 </span> 49/decrement-ecx -<span id="L16959" class="LineNr">16959 </span> 8a/copy-byte *ecx 1/r32/CL -<span id="L16960" class="LineNr">16960 </span> 81 4/subop/and %ecx 0xff/imm32 -<span id="L16961" class="LineNr">16961 </span> 81 7/subop/compare %ecx 0x3a/imm32/colon -<span id="L16962" class="LineNr">16962 </span> 0f 85/jump-if-!= $parse-var-with-type:abort/disp32 -<span id="L16963" class="LineNr">16963 </span> <span class="subxComment"># --name->end to skip ':'</span> -<span id="L16964" class="LineNr">16964 </span> ff 1/subop/decrement *(esi+4) -<span id="L16965" class="LineNr">16965 </span> <span class="subxComment"># var s/ecx: slice</span> -<span id="L16966" class="LineNr">16966 </span> 68/push 0/imm32/end -<span id="L16967" class="LineNr">16967 </span> 68/push 0/imm32/start -<span id="L16968" class="LineNr">16968 </span> 89/<- %ecx 4/r32/esp -<span id="L16969" class="LineNr">16969 </span><span class="Constant">$parse-var-with-type:parse-name</span>: -<span id="L16970" class="LineNr">16970 </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="L16971" class="LineNr">16971 </span><span class="Constant">$parse-var-with-type:create-var</span>: -<span id="L16972" class="LineNr">16972 </span> <span class="subxComment"># new-var-from-slice(s, out)</span> -<span id="L16973" class="LineNr">16973 </span> (<a href='mu.subx.html#L19935'>new-var-from-slice</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %ecx *(ebp+0x10)) -<span id="L16974" class="LineNr">16974 </span> <span class="subxComment"># save out->register</span> -<span id="L16975" class="LineNr">16975 </span><span class="Constant">$parse-var-with-type:save-register</span>: -<span id="L16976" class="LineNr">16976 </span> <span class="subxS1Comment"># . var out-addr/edi: (addr var) = lookup(*out)</span> -<span id="L16977" class="LineNr">16977 </span> 8b/-> *(ebp+0x10) 7/r32/edi -<span id="L16978" class="LineNr">16978 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L16979" class="LineNr">16979 </span> 89/<- %edi 0/r32/eax -<span id="L16980" class="LineNr">16980 </span> <span class="subxS1Comment"># . s = next-token(...)</span> -<span id="L16981" class="LineNr">16981 </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="L16982" class="LineNr">16982 </span> <span class="subxS1Comment"># . if (!slice-empty?(s)) out->register = slice-to-string(s)</span> -<span id="L16983" class="LineNr">16983 </span> { -<span id="L16984" class="LineNr">16984 </span><span class="Constant">$parse-var-with-type:write-register</span>: -<span id="L16985" class="LineNr">16985 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L16986" class="LineNr">16986 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16987" class="LineNr">16987 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L16988" class="LineNr">16988 </span> <span class="subxComment"># out->register = slice-to-string(s)</span> -<span id="L16989" class="LineNr">16989 </span> 8d/copy-address *(edi+0x18) 0/r32/eax <span class="subxComment"># Var-register</span> -<span id="L16990" class="LineNr">16990 </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="L16991" class="LineNr">16991 </span> } -<span id="L16992" class="LineNr">16992 </span><span class="Constant">$parse-var-with-type:save-type</span>: -<span id="L16993" class="LineNr">16993 </span> 8d/copy-address *(edi+8) 0/r32/eax <span class="subxComment"># Var-type</span> -<span id="L16994" class="LineNr">16994 </span> (<a href='mu.subx.html#L17082'>parse-type</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *(ebp+0xc) %eax *(ebp+0x18) *(ebp+0x1c)) -<span id="L16995" class="LineNr">16995 </span><span class="Constant">$parse-var-with-type:check-register</span>: -<span id="L16996" class="LineNr">16996 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+0x18) *(edi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L16997" class="LineNr">16997 </span> 3d/compare-eax-and 0/imm32 -<span id="L16998" class="LineNr">16998 </span> 74/jump-if-= $parse-var-with-type:end/disp8 -<span id="L16999" class="LineNr">16999 </span> (<a href='mu.subx.html#L17067'>float-register?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L17000" class="LineNr">17000 </span> { -<span id="L17001" class="LineNr">17001 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17002" class="LineNr">17002 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L17003" class="LineNr">17003 </span> <span class="subxComment"># var is in a float register; ensure type is float</span> -<span id="L17004" class="LineNr">17004 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L17005" class="LineNr">17005 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 0xf) <span class="subxComment"># float => eax</span> -<span id="L17006" class="LineNr">17006 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17007" class="LineNr">17007 </span> 0f 84/jump-if-= $parse-var-with-type:error-non-float-in-floating-point-register/disp32 -<span id="L17008" class="LineNr">17008 </span> eb/jump $parse-var-with-type:end/disp8 -<span id="L17009" class="LineNr">17009 </span> } -<span id="L17010" class="LineNr">17010 </span> <span class="subxComment"># var is not in a float register; ensure type is not float</span> -<span id="L17011" class="LineNr">17011 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L17012" class="LineNr">17012 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 0xf) <span class="subxComment"># float => eax</span> -<span id="L17013" class="LineNr">17013 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17014" class="LineNr">17014 </span> 0f 85/jump-if-!= $parse-var-with-type:error-float-in-integer-register/disp32 -<span id="L17015" class="LineNr">17015 </span><span class="Constant">$parse-var-with-type:end</span>: -<span id="L17016" class="LineNr">17016 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L17017" class="LineNr">17017 </span> 81 0/subop/add %esp 8/imm32 -<span id="L17018" class="LineNr">17018 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L17019" class="LineNr">17019 </span> 5f/pop-to-edi -<span id="L17020" class="LineNr">17020 </span> 5e/pop-to-esi -<span id="L17021" class="LineNr">17021 </span> 5b/pop-to-ebx -<span id="L17022" class="LineNr">17022 </span> 5a/pop-to-edx -<span id="L17023" class="LineNr">17023 </span> 59/pop-to-ecx -<span id="L17024" class="LineNr">17024 </span> 58/pop-to-eax -<span id="L17025" class="LineNr">17025 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17026" class="LineNr">17026 </span> 89/<- %esp 5/r32/ebp -<span id="L17027" class="LineNr">17027 </span> 5d/pop-to-ebp -<span id="L17028" class="LineNr">17028 </span> c3/return -<span id="L17029" class="LineNr">17029 </span> -<span id="L17030" class="LineNr">17030 </span><span class="Constant">$parse-var-with-type:abort</span>: -<span id="L17031" class="LineNr">17031 </span> <span class="subxComment"># error("fn " fn ": var should have form 'name: type' in '" line "'\n")</span> -<span id="L17032" class="LineNr">17032 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L17033" class="LineNr">17033 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) *(ebp+0x14)) -<span id="L17034" class="LineNr">17034 </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="L17035" class="LineNr">17035 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L17036" class="LineNr">17036 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+0xc)) -<span id="L17037" class="LineNr">17037 </span> (<a href='125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x18) *(ebp+0xc)) -<span id="L17038" class="LineNr">17038 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) -<span id="L17039" class="LineNr">17039 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L17040" class="LineNr">17040 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L17041" class="LineNr">17041 </span> <span class="subxComment"># never gets here</span> -<span id="L17042" class="LineNr">17042 </span> -<span id="L17043" class="LineNr">17043 </span><span class="Constant">$parse-var-with-type:error-float-in-integer-register</span>: -<span id="L17044" class="LineNr">17044 </span> <span class="subxComment"># error("fn " fn ": float var '" var "' should be in a floating-point register\n")</span> -<span id="L17045" class="LineNr">17045 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L17046" class="LineNr">17046 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) *(ebp+0x14)) -<span id="L17047" class="LineNr">17047 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": float var '"</span>) -<span id="L17048" class="LineNr">17048 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L17049" class="LineNr">17049 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L17050" class="LineNr">17050 </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="L17051" class="LineNr">17051 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L17052" class="LineNr">17052 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L17053" class="LineNr">17053 </span> <span class="subxComment"># never gets here</span> -<span id="L17054" class="LineNr">17054 </span> -<span id="L17055" class="LineNr">17055 </span><span class="Constant">$parse-var-with-type:error-non-float-in-floating-point-register</span>: -<span id="L17056" class="LineNr">17056 </span> <span class="subxComment"># error("fn " fn ": non-float var '" var "' should be in an integer register\n")</span> -<span id="L17057" class="LineNr">17057 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L17058" class="LineNr">17058 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) *(ebp+0x14)) -<span id="L17059" class="LineNr">17059 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": non-float var '"</span>) -<span id="L17060" class="LineNr">17060 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L17061" class="LineNr">17061 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L17062" class="LineNr">17062 </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="L17063" class="LineNr">17063 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L17064" class="LineNr">17064 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L17065" class="LineNr">17065 </span> <span class="subxComment"># never gets here</span> -<span id="L17066" class="LineNr">17066 </span> -<span id="L17067" class="LineNr">17067 </span><span class="subxFunction">float-register?</span>: <span class="subxComment"># r: (addr array byte) -> result/eax: boolean</span> -<span id="L17068" class="LineNr">17068 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17069" class="LineNr">17069 </span> 55/push-ebp -<span id="L17070" class="LineNr">17070 </span> 89/<- %ebp 4/r32/esp -<span id="L17071" class="LineNr">17071 </span> <span class="subxComment">#</span> -<span id="L17072" class="LineNr">17072 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19402'>Mu-registers-unique</a></span> *(ebp+8) 0xc <span class="Constant">"Mu-registers-unique"</span>) <span class="subxComment"># => eax</span> -<span id="L17073" class="LineNr">17073 </span> 81 7/subop/compare *eax 8/imm32/start-of-floating-point-registers -<span id="L17074" class="LineNr">17074 </span> 0f 9d/set-if->= %al -<span id="L17075" class="LineNr">17075 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L17076" class="LineNr">17076 </span><span class="Constant">$float-register?:end</span>: -<span id="L17077" class="LineNr">17077 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17078" class="LineNr">17078 </span> 89/<- %esp 5/r32/ebp -<span id="L17079" class="LineNr">17079 </span> 5d/pop-to-ebp -<span id="L17080" class="LineNr">17080 </span> c3/return -<span id="L17081" class="LineNr">17081 </span> -<span id="L17082" class="LineNr">17082 </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="L17083" class="LineNr">17083 </span> <span class="subxComment"># pseudocode:</span> -<span id="L17084" class="LineNr">17084 </span> <span class="subxComment"># var s: slice = next-mu-token(in)</span> -<span id="L17085" class="LineNr">17085 </span> <span class="subxComment"># assert s != ""</span> -<span id="L17086" class="LineNr">17086 </span> <span class="subxComment"># assert s != "->"</span> -<span id="L17087" class="LineNr">17087 </span> <span class="subxComment"># assert s != "{"</span> -<span id="L17088" class="LineNr">17088 </span> <span class="subxComment"># assert s != "}"</span> -<span id="L17089" class="LineNr">17089 </span> <span class="subxComment"># if s == ")"</span> -<span id="L17090" class="LineNr">17090 </span> <span class="subxComment"># return</span> -<span id="L17091" class="LineNr">17091 </span> <span class="subxComment"># out = allocate(Type-tree)</span> -<span id="L17092" class="LineNr">17092 </span> <span class="subxComment"># if s != "("</span> -<span id="L17093" class="LineNr">17093 </span> <span class="subxComment"># HACK: if s is an int, parse and return it</span> -<span id="L17094" class="LineNr">17094 </span> <span class="subxComment"># out->is-atom? = true</span> -<span id="L17095" class="LineNr">17095 </span> <span class="subxComment"># if (s[0] == "_")</span> -<span id="L17096" class="LineNr">17096 </span> <span class="subxComment"># out->value = type-parameter</span> -<span id="L17097" class="LineNr">17097 </span> <span class="subxComment"># out->parameter-name = slice-to-string(ad, s)</span> -<span id="L17098" class="LineNr">17098 </span> <span class="subxComment"># else</span> -<span id="L17099" class="LineNr">17099 </span> <span class="subxComment"># out->value = pos-or-insert-slice(Type-id, s)</span> -<span id="L17100" class="LineNr">17100 </span> <span class="subxComment"># return</span> -<span id="L17101" class="LineNr">17101 </span> <span class="subxComment"># out->left = parse-type(ad, in)</span> -<span id="L17102" class="LineNr">17102 </span> <span class="subxComment"># out->right = parse-type-tree(ad, in)</span> -<span id="L17103" class="LineNr">17103 </span> <span class="subxComment">#</span> -<span id="L17104" class="LineNr">17104 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17105" class="LineNr">17105 </span> 55/push-ebp -<span id="L17106" class="LineNr">17106 </span> 89/<- %ebp 4/r32/esp -<span id="L17107" class="LineNr">17107 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L17108" class="LineNr">17108 </span> 50/push-eax -<span id="L17109" class="LineNr">17109 </span> 51/push-ecx -<span id="L17110" class="LineNr">17110 </span> 52/push-edx -<span id="L17111" class="LineNr">17111 </span> <span class="subxComment"># clear out</span> -<span id="L17112" class="LineNr">17112 </span> (<a href='120allocate.subx.html#L889'>zero-out</a> *(ebp+0x10) *<span class="SpecialChar"><a href='120allocate.subx.html#L23'>Handle-size</a></span>) -<span id="L17113" class="LineNr">17113 </span> <span class="subxComment"># var s/ecx: slice</span> -<span id="L17114" class="LineNr">17114 </span> 68/push 0/imm32 -<span id="L17115" class="LineNr">17115 </span> 68/push 0/imm32 -<span id="L17116" class="LineNr">17116 </span> 89/<- %ecx 4/r32/esp -<span id="L17117" class="LineNr">17117 </span> <span class="subxComment"># s = next-mu-token(in)</span> -<span id="L17118" class="LineNr">17118 </span> (<a href='mu.subx.html#L17283'>next-mu-token</a> *(ebp+0xc) %ecx) -<span id="L17119" class="LineNr">17119 </span><span class="CommentedCode">#? (write-buffered Stderr "tok: ")</span> -<span id="L17120" class="LineNr">17120 </span><span class="CommentedCode">#? (write-slice-buffered Stderr %ecx)</span> -<span id="L17121" class="LineNr">17121 </span><span class="CommentedCode">#? (write-buffered Stderr "$\n")</span> -<span id="L17122" class="LineNr">17122 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L17123" class="LineNr">17123 </span> <span class="subxComment"># assert s != ""</span> -<span id="L17124" class="LineNr">17124 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">""</span>) <span class="subxComment"># => eax</span> -<span id="L17125" class="LineNr">17125 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17126" class="LineNr">17126 </span> 0f 85/jump-if-!= $parse-type:abort/disp32 -<span id="L17127" class="LineNr">17127 </span> <span class="subxComment"># assert s != "{"</span> -<span id="L17128" class="LineNr">17128 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> -<span id="L17129" class="LineNr">17129 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17130" class="LineNr">17130 </span> 0f 85/jump-if-!= $parse-type:abort/disp32 -<span id="L17131" class="LineNr">17131 </span> <span class="subxComment"># assert s != "}"</span> -<span id="L17132" class="LineNr">17132 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> -<span id="L17133" class="LineNr">17133 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17134" class="LineNr">17134 </span> 0f 85/jump-if-!= $parse-type:abort/disp32 -<span id="L17135" class="LineNr">17135 </span> <span class="subxComment"># assert s != "->"</span> -<span id="L17136" class="LineNr">17136 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> -<span id="L17137" class="LineNr">17137 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17138" class="LineNr">17138 </span> 0f 85/jump-if-!= $parse-type:abort/disp32 -<span id="L17139" class="LineNr">17139 </span> <span class="subxComment"># if (s == ")") return</span> -<span id="L17140" class="LineNr">17140 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">")"</span>) <span class="subxComment"># => eax</span> -<span id="L17141" class="LineNr">17141 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17142" class="LineNr">17142 </span> 0f 85/jump-if-!= $parse-type:end/disp32 -<span id="L17143" class="LineNr">17143 </span> <span class="subxComment"># out = new tree</span> -<span id="L17144" class="LineNr">17144 </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="L17145" class="LineNr">17145 </span> <span class="subxComment"># var out-addr/edx: (addr type-tree) = lookup(*out)</span> -<span id="L17146" class="LineNr">17146 </span> 8b/-> *(ebp+0x10) 2/r32/edx -<span id="L17147" class="LineNr">17147 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L17148" class="LineNr">17148 </span> 89/<- %edx 0/r32/eax -<span id="L17149" class="LineNr">17149 </span> { -<span id="L17150" class="LineNr">17150 </span> <span class="subxComment"># if (s != "(") break</span> -<span id="L17151" class="LineNr">17151 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"("</span>) <span class="subxComment"># => eax</span> -<span id="L17152" class="LineNr">17152 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17153" class="LineNr">17153 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L17154" class="LineNr">17154 </span> <span class="subxComment"># if s is a number, store it in the type's size field</span> -<span id="L17155" class="LineNr">17155 </span> { -<span id="L17156" class="LineNr">17156 </span><span class="Constant">$parse-type:check-for-int</span>: -<span id="L17157" class="LineNr">17157 </span> <span class="subxComment"># var tmp/eax: byte = *s->slice</span> -<span id="L17158" class="LineNr">17158 </span> 8b/-> *ecx 0/r32/eax -<span id="L17159" class="LineNr">17159 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L17160" class="LineNr">17160 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L17161" class="LineNr">17161 </span> <span class="subxComment"># TODO: raise an error on `var x: (array int a)`</span> -<span id="L17162" class="LineNr">17162 </span> (<a href='126write-int-decimal.subx.html#L306'>decimal-digit?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L17163" class="LineNr">17163 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17164" class="LineNr">17164 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L17165" class="LineNr">17165 </span><span class="Constant">$parse-type:int</span>: -<span id="L17166" class="LineNr">17166 </span> <span class="subxComment"># strip out metadata</span> -<span id="L17167" class="LineNr">17167 </span> (<a href='124next-token.subx.html#L163'>next-token-from-slice</a> *ecx *(ecx+4) 0x2f %ecx) -<span id="L17168" class="LineNr">17168 </span> <span class="subxComment">#</span> -<span id="L17169" class="LineNr">17169 </span> (<a href='mu.subx.html#L19797'>check-mu-hex-int</a> %ecx *(ebp+0x14) *(ebp+0x18)) -<span id="L17170" class="LineNr">17170 </span> (<a href='118parse-hex-int.subx.html#L387'>parse-hex-int-from-slice</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L17171" class="LineNr">17171 </span> c7 0/subop/copy *(edx+4) 9/imm32/type-id-array-capacity <span class="subxComment"># Type-tree-value</span> -<span id="L17172" class="LineNr">17172 </span> 89/<- *(edx+8) 0/r32/eax <span class="subxComment"># Type-tree-value-size</span> -<span id="L17173" class="LineNr">17173 </span> e9/jump $parse-type:end/disp32 -<span id="L17174" class="LineNr">17174 </span> } -<span id="L17175" class="LineNr">17175 </span><span class="Constant">$parse-type:atom</span>: -<span id="L17176" class="LineNr">17176 </span> <span class="subxComment"># out->is-atom? = true</span> -<span id="L17177" class="LineNr">17177 </span> c7 0/subop/copy *edx 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> -<span id="L17178" class="LineNr">17178 </span> { -<span id="L17179" class="LineNr">17179 </span><span class="Constant">$parse-type:check-for-type-parameter</span>: -<span id="L17180" class="LineNr">17180 </span> <span class="subxComment"># var tmp/eax: byte = *s->slice</span> -<span id="L17181" class="LineNr">17181 </span> 8b/-> *ecx 0/r32/eax -<span id="L17182" class="LineNr">17182 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L17183" class="LineNr">17183 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L17184" class="LineNr">17184 </span> <span class="subxComment"># if (tmp != '_') break</span> -<span id="L17185" class="LineNr">17185 </span> 3d/compare-eax-and 0x5f/imm32/_ -<span id="L17186" class="LineNr">17186 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L17187" class="LineNr">17187 </span><span class="Constant">$parse-type:type-parameter</span>: -<span id="L17188" class="LineNr">17188 </span> <span class="subxComment"># out->value = type-parameter</span> -<span id="L17189" class="LineNr">17189 </span> c7 0/subop/copy *(edx+4) 0xa/imm32/type-parameter <span class="subxComment"># Type-tree-value</span> -<span id="L17190" class="LineNr">17190 </span> <span class="subxComment"># out->parameter-name = slice-to-string(ad, s)</span> -<span id="L17191" class="LineNr">17191 </span> 8d/copy-address *(edx+8) 0/r32/eax <span class="subxComment"># Type-tree-parameter-name</span> -<span id="L17192" class="LineNr">17192 </span> (<a href='123slice.subx.html#L1043'>slice-to-string</a> *(ebp+8) %ecx %eax) -<span id="L17193" class="LineNr">17193 </span> e9/jump $parse-type:end/disp32 -<span id="L17194" class="LineNr">17194 </span> } -<span id="L17195" class="LineNr">17195 </span><span class="Constant">$parse-type:non-type-parameter</span>: -<span id="L17196" class="LineNr">17196 </span> <span class="subxComment"># out->value = pos-or-insert-slice(Type-id, s)</span> -<span id="L17197" class="LineNr">17197 </span> (<a href='mu.subx.html#L17453'>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="L17198" class="LineNr">17198 </span> 89/<- *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> -<span id="L17199" class="LineNr">17199 </span> e9/jump $parse-type:end/disp32 -<span id="L17200" class="LineNr">17200 </span> } -<span id="L17201" class="LineNr">17201 </span><span class="Constant">$parse-type:non-atom</span>: -<span id="L17202" class="LineNr">17202 </span> <span class="subxComment"># otherwise s == "("</span> -<span id="L17203" class="LineNr">17203 </span> <span class="subxComment"># out->left = parse-type(ad, in)</span> -<span id="L17204" class="LineNr">17204 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-left</span> -<span id="L17205" class="LineNr">17205 </span> (<a href='mu.subx.html#L17082'>parse-type</a> *(ebp+8) *(ebp+0xc) %eax *(ebp+0x14) *(ebp+0x18)) -<span id="L17206" class="LineNr">17206 </span> <span class="subxComment"># out->right = parse-type-tree(ad, in)</span> -<span id="L17207" class="LineNr">17207 </span> 8d/copy-address *(edx+0xc) 0/r32/eax <span class="subxComment"># Type-tree-right</span> -<span id="L17208" class="LineNr">17208 </span> (<a href='mu.subx.html#L17230'>parse-type-tree</a> *(ebp+8) *(ebp+0xc) %eax *(ebp+0x14) *(ebp+0x18)) -<span id="L17209" class="LineNr">17209 </span><span class="Constant">$parse-type:end</span>: -<span id="L17210" class="LineNr">17210 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L17211" class="LineNr">17211 </span> 81 0/subop/add %esp 8/imm32 -<span id="L17212" class="LineNr">17212 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L17213" class="LineNr">17213 </span> 5a/pop-to-edx -<span id="L17214" class="LineNr">17214 </span> 59/pop-to-ecx -<span id="L17215" class="LineNr">17215 </span> 58/pop-to-eax -<span id="L17216" class="LineNr">17216 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17217" class="LineNr">17217 </span> 89/<- %esp 5/r32/ebp -<span id="L17218" class="LineNr">17218 </span> 5d/pop-to-ebp -<span id="L17219" class="LineNr">17219 </span> c3/return -<span id="L17220" class="LineNr">17220 </span> -<span id="L17221" class="LineNr">17221 </span><span class="Constant">$parse-type:abort</span>: -<span id="L17222" class="LineNr">17222 </span> <span class="subxComment"># error("unexpected token when parsing type: '" s "'\n")</span> -<span id="L17223" class="LineNr">17223 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"unexpected token when parsing type: '"</span>) -<span id="L17224" class="LineNr">17224 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x14) %ecx) -<span id="L17225" class="LineNr">17225 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"'\n"</span>) -<span id="L17226" class="LineNr">17226 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L17227" class="LineNr">17227 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 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">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="L17231" class="LineNr">17231 </span> <span class="subxComment"># pseudocode:</span> -<span id="L17232" class="LineNr">17232 </span> <span class="subxComment"># var tmp: (handle type-tree) = parse-type(ad, in)</span> -<span id="L17233" class="LineNr">17233 </span> <span class="subxComment"># if tmp == 0</span> -<span id="L17234" class="LineNr">17234 </span> <span class="subxComment"># return 0</span> -<span id="L17235" class="LineNr">17235 </span> <span class="subxComment"># out = allocate(Type-tree)</span> -<span id="L17236" class="LineNr">17236 </span> <span class="subxComment"># out->left = tmp</span> -<span id="L17237" class="LineNr">17237 </span> <span class="subxComment"># out->right = parse-type-tree(ad, in)</span> -<span id="L17238" class="LineNr">17238 </span> <span class="subxComment">#</span> -<span id="L17239" class="LineNr">17239 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17240" class="LineNr">17240 </span> 55/push-ebp -<span id="L17241" class="LineNr">17241 </span> 89/<- %ebp 4/r32/esp -<span id="L17242" class="LineNr">17242 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L17243" class="LineNr">17243 </span> 50/push-eax -<span id="L17244" class="LineNr">17244 </span> 51/push-ecx -<span id="L17245" class="LineNr">17245 </span> 52/push-edx -<span id="L17246" class="LineNr">17246 </span> <span class="subxComment">#</span> -<span id="L17247" class="LineNr">17247 </span> (<a href='120allocate.subx.html#L889'>zero-out</a> *(ebp+0x10) *<span class="SpecialChar"><a href='120allocate.subx.html#L23'>Handle-size</a></span>) -<span id="L17248" class="LineNr">17248 </span> <span class="subxComment"># var tmp/ecx: (handle type-tree)</span> -<span id="L17249" class="LineNr">17249 </span> 68/push 0/imm32 -<span id="L17250" class="LineNr">17250 </span> 68/push 0/imm32 -<span id="L17251" class="LineNr">17251 </span> 89/<- %ecx 4/r32/esp -<span id="L17252" class="LineNr">17252 </span> <span class="subxComment"># tmp = parse-type(ad, in)</span> -<span id="L17253" class="LineNr">17253 </span> (<a href='mu.subx.html#L17082'>parse-type</a> *(ebp+8) *(ebp+0xc) %ecx *(ebp+0x14) *(ebp+0x18)) -<span id="L17254" class="LineNr">17254 </span> <span class="subxComment"># if (tmp == 0) return</span> -<span id="L17255" class="LineNr">17255 </span> 81 7/subop/compare *ecx 0/imm32 -<span id="L17256" class="LineNr">17256 </span> 74/jump-if-= $parse-type-tree:end/disp8 -<span id="L17257" class="LineNr">17257 </span> <span class="subxComment"># out = new tree</span> -<span id="L17258" class="LineNr">17258 </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="L17259" class="LineNr">17259 </span> <span class="subxComment"># var out-addr/edx: (addr tree) = lookup(*out)</span> -<span id="L17260" class="LineNr">17260 </span> 8b/-> *(ebp+0x10) 2/r32/edx -<span id="L17261" class="LineNr">17261 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L17262" class="LineNr">17262 </span> 89/<- %edx 0/r32/eax -<span id="L17263" class="LineNr">17263 </span> <span class="subxComment"># out->left = tmp</span> -<span id="L17264" class="LineNr">17264 </span> 8b/-> *ecx 0/r32/eax -<span id="L17265" class="LineNr">17265 </span> 89/<- *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-left</span> -<span id="L17266" class="LineNr">17266 </span> 8b/-> *(ecx+4) 0/r32/eax -<span id="L17267" class="LineNr">17267 </span> 89/<- *(edx+8) 0/r32/eax <span class="subxComment"># Type-tree-left</span> -<span id="L17268" class="LineNr">17268 </span> <span class="subxComment"># out->right = parse-type-tree(ad, in)</span> -<span id="L17269" class="LineNr">17269 </span> 8d/copy-address *(edx+0xc) 0/r32/eax <span class="subxComment"># Type-tree-right</span> -<span id="L17270" class="LineNr">17270 </span> (<a href='mu.subx.html#L17230'>parse-type-tree</a> *(ebp+8) *(ebp+0xc) %eax *(ebp+0x14) *(ebp+0x18)) -<span id="L17271" class="LineNr">17271 </span><span class="Constant">$parse-type-tree:end</span>: -<span id="L17272" class="LineNr">17272 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L17273" class="LineNr">17273 </span> 81 0/subop/add %esp 8/imm32 -<span id="L17274" class="LineNr">17274 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L17275" class="LineNr">17275 </span> 5a/pop-to-edx -<span id="L17276" class="LineNr">17276 </span> 59/pop-to-ecx -<span id="L17277" class="LineNr">17277 </span> 58/pop-to-eax -<span id="L17278" class="LineNr">17278 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17279" class="LineNr">17279 </span> 89/<- %esp 5/r32/ebp -<span id="L17280" class="LineNr">17280 </span> 5d/pop-to-ebp -<span id="L17281" class="LineNr">17281 </span> c3/return -<span id="L17282" class="LineNr">17282 </span> -<span id="L17283" class="LineNr">17283 </span><span class="subxFunction">next-mu-token</span>: <span class="subxComment"># in: (addr stream byte), out: (addr slice)</span> -<span id="L17284" class="LineNr">17284 </span> <span class="subxComment"># pseudocode:</span> -<span id="L17285" class="LineNr">17285 </span> <span class="subxComment"># start:</span> -<span id="L17286" class="LineNr">17286 </span> <span class="subxComment"># skip-chars-matching-whitespace(in)</span> -<span id="L17287" class="LineNr">17287 </span> <span class="subxComment"># if in->read >= in->write # end of in</span> -<span id="L17288" class="LineNr">17288 </span> <span class="subxComment"># out = {0, 0}</span> -<span id="L17289" class="LineNr">17289 </span> <span class="subxComment"># return</span> -<span id="L17290" class="LineNr">17290 </span> <span class="subxComment"># out->start = &in->data[in->read]</span> -<span id="L17291" class="LineNr">17291 </span> <span class="subxComment"># var curr-byte/eax: byte = in->data[in->read]</span> -<span id="L17292" class="LineNr">17292 </span> <span class="subxComment"># if curr->byte == ',' # comment token</span> -<span id="L17293" class="LineNr">17293 </span> <span class="subxComment"># ++in->read</span> -<span id="L17294" class="LineNr">17294 </span> <span class="subxComment"># goto start</span> -<span id="L17295" class="LineNr">17295 </span> <span class="subxComment"># if curr-byte == '#' # comment</span> -<span id="L17296" class="LineNr">17296 </span> <span class="subxComment"># goto done # treat as eof</span> -<span id="L17297" class="LineNr">17297 </span> <span class="subxComment"># if curr-byte == '"' # string literal</span> -<span id="L17298" class="LineNr">17298 </span> <span class="subxComment"># skip-string(in)</span> -<span id="L17299" class="LineNr">17299 </span> <span class="subxComment"># goto done # no metadata</span> -<span id="L17300" class="LineNr">17300 </span> <span class="subxComment"># if curr-byte == '('</span> -<span id="L17301" class="LineNr">17301 </span> <span class="subxComment"># ++in->read</span> -<span id="L17302" class="LineNr">17302 </span> <span class="subxComment"># goto done</span> -<span id="L17303" class="LineNr">17303 </span> <span class="subxComment"># if curr-byte == ')'</span> -<span id="L17304" class="LineNr">17304 </span> <span class="subxComment"># ++in->read</span> -<span id="L17305" class="LineNr">17305 </span> <span class="subxComment"># goto done</span> -<span id="L17306" class="LineNr">17306 </span> <span class="subxComment"># # read a word</span> -<span id="L17307" class="LineNr">17307 </span> <span class="subxComment"># while true</span> -<span id="L17308" class="LineNr">17308 </span> <span class="subxComment"># if in->read >= in->write</span> -<span id="L17309" class="LineNr">17309 </span> <span class="subxComment"># break</span> -<span id="L17310" class="LineNr">17310 </span> <span class="subxComment"># curr-byte = in->data[in->read]</span> -<span id="L17311" class="LineNr">17311 </span> <span class="subxComment"># if curr-byte == ' '</span> -<span id="L17312" class="LineNr">17312 </span> <span class="subxComment"># break</span> -<span id="L17313" class="LineNr">17313 </span> <span class="subxComment"># if curr-byte == '\r'</span> -<span id="L17314" class="LineNr">17314 </span> <span class="subxComment"># break</span> -<span id="L17315" class="LineNr">17315 </span> <span class="subxComment"># if curr-byte == '\n'</span> -<span id="L17316" class="LineNr">17316 </span> <span class="subxComment"># break</span> -<span id="L17317" class="LineNr">17317 </span> <span class="subxComment"># if curr-byte == '('</span> -<span id="L17318" class="LineNr">17318 </span> <span class="subxComment"># break</span> -<span id="L17319" class="LineNr">17319 </span> <span class="subxComment"># if curr-byte == ')'</span> -<span id="L17320" class="LineNr">17320 </span> <span class="subxComment"># break</span> -<span id="L17321" class="LineNr">17321 </span> <span class="subxComment"># if curr-byte == ','</span> -<span id="L17322" class="LineNr">17322 </span> <span class="subxComment"># break</span> +<span id="L16670" class="LineNr">16670 </span> <span class="subxComment"># var curr/ecx: (addr function) = signatures</span> +<span id="L16671" class="LineNr">16671 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *_Program-signatures *_Program-signatures->payload) <span class="subxComment"># => eax</span> +<span id="L16672" class="LineNr">16672 </span> 89/<- %ecx 0/r32/eax +<span id="L16673" class="LineNr">16673 </span> { +<span id="L16674" class="LineNr">16674 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L16675" class="LineNr">16675 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L16676" class="LineNr">16676 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L16677" class="LineNr">16677 </span> <span class="subxComment"># if (curr->name == s) return true</span> +<span id="L16678" class="LineNr">16678 </span> { +<span id="L16679" class="LineNr">16679 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16680" class="LineNr">16680 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> *(ebp+8) %eax) <span class="subxComment"># => eax</span> +<span id="L16681" class="LineNr">16681 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16682" class="LineNr">16682 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L16683" class="LineNr">16683 </span> b8/copy-to-eax 1/imm32/true +<span id="L16684" class="LineNr">16684 </span> eb/jump $function-exists?:end/disp8 +<span id="L16685" class="LineNr">16685 </span> } +<span id="L16686" class="LineNr">16686 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L16687" class="LineNr">16687 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x20) *(ecx+0x24)) <span class="subxComment"># Function-next Function-next => eax</span> +<span id="L16688" class="LineNr">16688 </span> 89/<- %ecx 0/r32/eax +<span id="L16689" class="LineNr">16689 </span> <span class="subxComment">#</span> +<span id="L16690" class="LineNr">16690 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L16691" class="LineNr">16691 </span> } +<span id="L16692" class="LineNr">16692 </span> <span class="subxComment"># return false</span> +<span id="L16693" class="LineNr">16693 </span> b8/copy-to-eax 0/imm32/false +<span id="L16694" class="LineNr">16694 </span><span class="Constant">$function-exists?:end</span>: +<span id="L16695" class="LineNr">16695 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L16696" class="LineNr">16696 </span> 59/pop-to-ecx +<span id="L16697" class="LineNr">16697 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16698" class="LineNr">16698 </span> 89/<- %esp 5/r32/ebp +<span id="L16699" class="LineNr">16699 </span> 5d/pop-to-ebp +<span id="L16700" class="LineNr">16700 </span> c3/return +<span id="L16701" class="LineNr">16701 </span> +<span id="L16702" class="LineNr">16702 </span><span class="subxTest">test-function-header-with-arg</span>: +<span id="L16703" class="LineNr">16703 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16704" class="LineNr">16704 </span> 55/push-ebp +<span id="L16705" class="LineNr">16705 </span> 89/<- %ebp 4/r32/esp +<span id="L16706" class="LineNr">16706 </span> <span class="subxComment"># setup</span> +<span id="L16707" class="LineNr">16707 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L16708" class="LineNr">16708 </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="L16709" class="LineNr">16709 </span> c7 0/subop/copy *_Program-functions 0/imm32 +<span id="L16710" class="LineNr">16710 </span> c7 0/subop/copy *_Program-functions->payload 0/imm32 +<span id="L16711" class="LineNr">16711 </span> c7 0/subop/copy *_Program-types 0/imm32 +<span id="L16712" class="LineNr">16712 </span> c7 0/subop/copy *_Program-types->payload 0/imm32 +<span id="L16713" class="LineNr">16713 </span> c7 0/subop/copy *_Program-signatures 0/imm32 +<span id="L16714" class="LineNr">16714 </span> c7 0/subop/copy *_Program-signatures->payload 0/imm32 +<span id="L16715" class="LineNr">16715 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L16716" class="LineNr">16716 </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="L16717" class="LineNr">16717 </span> <span class="subxComment"># var result/ecx: function</span> +<span id="L16718" class="LineNr">16718 </span> 2b/subtract *<span class="SpecialChar"><a href='mu.subx.html#L275'>Function-size</a></span> 4/r32/esp +<span id="L16719" class="LineNr">16719 </span> 89/<- %ecx 4/r32/esp +<span id="L16720" class="LineNr">16720 </span> (<a href='120allocate.subx.html#L889'>zero-out</a> %ecx *<span class="SpecialChar"><a href='mu.subx.html#L275'>Function-size</a></span>) +<span id="L16721" class="LineNr">16721 </span> <span class="subxComment"># var vars/ebx: (stack live-var 16)</span> +<span id="L16722" class="LineNr">16722 </span> 81 5/subop/subtract %esp 0xc0/imm32 +<span id="L16723" class="LineNr">16723 </span> 68/push 0xc0/imm32/size +<span id="L16724" class="LineNr">16724 </span> 68/push 0/imm32/top +<span id="L16725" class="LineNr">16725 </span> 89/<- %ebx 4/r32/esp +<span id="L16726" class="LineNr">16726 </span> <span class="subxComment"># convert</span> +<span id="L16727" class="LineNr">16727 </span> (<a href='mu.subx.html#L15970'>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="L16728" class="LineNr">16728 </span> <span class="subxComment"># check result->name</span> +<span id="L16729" class="LineNr">16729 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16730" class="LineNr">16730 </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#L16702'>test-function-header-with-arg</a>/name"</span>) +<span id="L16731" class="LineNr">16731 </span> <span class="subxComment"># var v/edx: (addr var) = result->inouts->value</span> +<span id="L16732" class="LineNr">16732 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> +<span id="L16733" class="LineNr">16733 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L16734" class="LineNr">16734 </span> 89/<- %edx 0/r32/eax +<span id="L16735" class="LineNr">16735 </span> <span class="subxComment"># check v->name</span> +<span id="L16736" class="LineNr">16736 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16737" class="LineNr">16737 </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#L16702'>test-function-header-with-arg</a>/inout:0"</span>) +<span id="L16738" class="LineNr">16738 </span> <span class="subxComment"># check v->type</span> +<span id="L16739" class="LineNr">16739 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L16740" class="LineNr">16740 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16702'>test-function-header-with-arg</a>/inout:0/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L16741" class="LineNr">16741 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16702'>test-function-header-with-arg</a>/inout:0/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L16742" class="LineNr">16742 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16702'>test-function-header-with-arg</a>/inout:0/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L16743" class="LineNr">16743 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16744" class="LineNr">16744 </span> 89/<- %esp 5/r32/ebp +<span id="L16745" class="LineNr">16745 </span> 5d/pop-to-ebp +<span id="L16746" class="LineNr">16746 </span> c3/return +<span id="L16747" class="LineNr">16747 </span> +<span id="L16748" class="LineNr">16748 </span><span class="subxTest">test-function-header-with-multiple-args</span>: +<span id="L16749" class="LineNr">16749 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16750" class="LineNr">16750 </span> 55/push-ebp +<span id="L16751" class="LineNr">16751 </span> 89/<- %ebp 4/r32/esp +<span id="L16752" class="LineNr">16752 </span> <span class="subxComment"># setup</span> +<span id="L16753" class="LineNr">16753 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L16754" class="LineNr">16754 </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="L16755" class="LineNr">16755 </span> c7 0/subop/copy *_Program-functions 0/imm32 +<span id="L16756" class="LineNr">16756 </span> c7 0/subop/copy *_Program-functions->payload 0/imm32 +<span id="L16757" class="LineNr">16757 </span> c7 0/subop/copy *_Program-types 0/imm32 +<span id="L16758" class="LineNr">16758 </span> c7 0/subop/copy *_Program-types->payload 0/imm32 +<span id="L16759" class="LineNr">16759 </span> c7 0/subop/copy *_Program-signatures 0/imm32 +<span id="L16760" class="LineNr">16760 </span> c7 0/subop/copy *_Program-signatures->payload 0/imm32 +<span id="L16761" class="LineNr">16761 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L16762" class="LineNr">16762 </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="L16763" class="LineNr">16763 </span> <span class="subxComment"># result/ecx: function</span> +<span id="L16764" class="LineNr">16764 </span> 2b/subtract *<span class="SpecialChar"><a href='mu.subx.html#L275'>Function-size</a></span> 4/r32/esp +<span id="L16765" class="LineNr">16765 </span> 89/<- %ecx 4/r32/esp +<span id="L16766" class="LineNr">16766 </span> (<a href='120allocate.subx.html#L889'>zero-out</a> %ecx *<span class="SpecialChar"><a href='mu.subx.html#L275'>Function-size</a></span>) +<span id="L16767" class="LineNr">16767 </span> <span class="subxComment"># var vars/ebx: (stack live-var 16)</span> +<span id="L16768" class="LineNr">16768 </span> 81 5/subop/subtract %esp 0xc0/imm32 +<span id="L16769" class="LineNr">16769 </span> 68/push 0xc0/imm32/size +<span id="L16770" class="LineNr">16770 </span> 68/push 0/imm32/top +<span id="L16771" class="LineNr">16771 </span> 89/<- %ebx 4/r32/esp +<span id="L16772" class="LineNr">16772 </span> <span class="subxComment"># convert</span> +<span id="L16773" class="LineNr">16773 </span> (<a href='mu.subx.html#L15970'>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="L16774" class="LineNr">16774 </span> <span class="subxComment"># check result->name</span> +<span id="L16775" class="LineNr">16775 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16776" class="LineNr">16776 </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#L16748'>test-function-header-with-multiple-args</a>/name"</span>) +<span id="L16777" class="LineNr">16777 </span> <span class="subxComment"># var inouts/edx: (addr list var) = lookup(result->inouts)</span> +<span id="L16778" class="LineNr">16778 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> +<span id="L16779" class="LineNr">16779 </span> 89/<- %edx 0/r32/eax +<span id="L16780" class="LineNr">16780 </span><span class="Constant">$test-function-header-with-multiple-args:inout0</span>: +<span id="L16781" class="LineNr">16781 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(inouts->value)</span> +<span id="L16782" class="LineNr">16782 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L16783" class="LineNr">16783 </span> 89/<- %ebx 0/r32/eax +<span id="L16784" class="LineNr">16784 </span> <span class="subxComment"># check v->name</span> +<span id="L16785" class="LineNr">16785 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16786" class="LineNr">16786 </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#L16748'>test-function-header-with-multiple-args</a>/inout:0"</span>) <span class="subxComment"># Var-name</span> +<span id="L16787" class="LineNr">16787 </span> <span class="subxComment"># check v->type</span> +<span id="L16788" class="LineNr">16788 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L16789" class="LineNr">16789 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16748'>test-function-header-with-multiple-args</a>/inout:0/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L16790" class="LineNr">16790 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16748'>test-function-header-with-multiple-args</a>/inout:0/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L16791" class="LineNr">16791 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16748'>test-function-header-with-multiple-args</a>/inout:0/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L16792" class="LineNr">16792 </span><span class="Constant">$test-function-header-with-multiple-args:inout1</span>: +<span id="L16793" class="LineNr">16793 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> +<span id="L16794" class="LineNr">16794 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L16795" class="LineNr">16795 </span> 89/<- %edx 0/r32/eax +<span id="L16796" class="LineNr">16796 </span> <span class="subxComment"># v = lookup(inouts->value)</span> +<span id="L16797" class="LineNr">16797 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L16798" class="LineNr">16798 </span> 89/<- %ebx 0/r32/eax +<span id="L16799" class="LineNr">16799 </span> <span class="subxComment"># check v->name</span> +<span id="L16800" class="LineNr">16800 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16801" class="LineNr">16801 </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#L16748'>test-function-header-with-multiple-args</a>/inout:1"</span>) <span class="subxComment"># Var-name</span> +<span id="L16802" class="LineNr">16802 </span> <span class="subxComment"># check v->type</span> +<span id="L16803" class="LineNr">16803 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L16804" class="LineNr">16804 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16748'>test-function-header-with-multiple-args</a>/inout:1/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L16805" class="LineNr">16805 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16748'>test-function-header-with-multiple-args</a>/inout:1/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L16806" class="LineNr">16806 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16748'>test-function-header-with-multiple-args</a>/inout:1/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L16807" class="LineNr">16807 </span><span class="Constant">$test-function-header-with-multiple-args:inout2</span>: +<span id="L16808" class="LineNr">16808 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> +<span id="L16809" class="LineNr">16809 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L16810" class="LineNr">16810 </span> 89/<- %edx 0/r32/eax +<span id="L16811" class="LineNr">16811 </span> <span class="subxComment"># v = lookup(inouts->value)</span> +<span id="L16812" class="LineNr">16812 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L16813" class="LineNr">16813 </span> 89/<- %ebx 0/r32/eax +<span id="L16814" class="LineNr">16814 </span> <span class="subxComment"># check v->name</span> +<span id="L16815" class="LineNr">16815 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16816" class="LineNr">16816 </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#L16748'>test-function-header-with-multiple-args</a>/inout:2"</span>) <span class="subxComment"># Var-name</span> +<span id="L16817" class="LineNr">16817 </span> <span class="subxComment"># check v->type</span> +<span id="L16818" class="LineNr">16818 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L16819" class="LineNr">16819 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16748'>test-function-header-with-multiple-args</a>/inout:2/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L16820" class="LineNr">16820 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16748'>test-function-header-with-multiple-args</a>/inout:2/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L16821" class="LineNr">16821 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16748'>test-function-header-with-multiple-args</a>/inout:2/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L16822" class="LineNr">16822 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16823" class="LineNr">16823 </span> 89/<- %esp 5/r32/ebp +<span id="L16824" class="LineNr">16824 </span> 5d/pop-to-ebp +<span id="L16825" class="LineNr">16825 </span> c3/return +<span id="L16826" class="LineNr">16826 </span> +<span id="L16827" class="LineNr">16827 </span><span class="subxTest">test-function-header-with-multiple-args-and-outputs</span>: +<span id="L16828" class="LineNr">16828 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16829" class="LineNr">16829 </span> 55/push-ebp +<span id="L16830" class="LineNr">16830 </span> 89/<- %ebp 4/r32/esp +<span id="L16831" class="LineNr">16831 </span> <span class="subxComment"># setup</span> +<span id="L16832" class="LineNr">16832 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L16833" class="LineNr">16833 </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="L16834" class="LineNr">16834 </span> c7 0/subop/copy *_Program-functions 0/imm32 +<span id="L16835" class="LineNr">16835 </span> c7 0/subop/copy *_Program-functions->payload 0/imm32 +<span id="L16836" class="LineNr">16836 </span> c7 0/subop/copy *_Program-types 0/imm32 +<span id="L16837" class="LineNr">16837 </span> c7 0/subop/copy *_Program-types->payload 0/imm32 +<span id="L16838" class="LineNr">16838 </span> c7 0/subop/copy *_Program-signatures 0/imm32 +<span id="L16839" class="LineNr">16839 </span> c7 0/subop/copy *_Program-signatures->payload 0/imm32 +<span id="L16840" class="LineNr">16840 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L16841" class="LineNr">16841 </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="L16842" class="LineNr">16842 </span> <span class="subxComment"># result/ecx: function</span> +<span id="L16843" class="LineNr">16843 </span> 2b/subtract *<span class="SpecialChar"><a href='mu.subx.html#L275'>Function-size</a></span> 4/r32/esp +<span id="L16844" class="LineNr">16844 </span> 89/<- %ecx 4/r32/esp +<span id="L16845" class="LineNr">16845 </span> (<a href='120allocate.subx.html#L889'>zero-out</a> %ecx *<span class="SpecialChar"><a href='mu.subx.html#L275'>Function-size</a></span>) +<span id="L16846" class="LineNr">16846 </span> <span class="subxComment"># var vars/ebx: (stack live-var 16)</span> +<span id="L16847" class="LineNr">16847 </span> 81 5/subop/subtract %esp 0xc0/imm32 +<span id="L16848" class="LineNr">16848 </span> 68/push 0xc0/imm32/size +<span id="L16849" class="LineNr">16849 </span> 68/push 0/imm32/top +<span id="L16850" class="LineNr">16850 </span> 89/<- %ebx 4/r32/esp +<span id="L16851" class="LineNr">16851 </span> <span class="subxComment"># convert</span> +<span id="L16852" class="LineNr">16852 </span> (<a href='mu.subx.html#L15970'>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="L16853" class="LineNr">16853 </span> <span class="subxComment"># check result->name</span> +<span id="L16854" class="LineNr">16854 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16855" class="LineNr">16855 </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#L16827'>test-function-header-with-multiple-args-and-outputs</a>/name"</span>) +<span id="L16856" class="LineNr">16856 </span> <span class="subxComment"># var inouts/edx: (addr list var) = lookup(result->inouts)</span> +<span id="L16857" class="LineNr">16857 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> +<span id="L16858" class="LineNr">16858 </span> 89/<- %edx 0/r32/eax +<span id="L16859" class="LineNr">16859 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:inout0</span>: +<span id="L16860" class="LineNr">16860 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(inouts->value)</span> +<span id="L16861" class="LineNr">16861 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L16862" class="LineNr">16862 </span> 89/<- %ebx 0/r32/eax +<span id="L16863" class="LineNr">16863 </span> <span class="subxComment"># check v->name</span> +<span id="L16864" class="LineNr">16864 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16865" class="LineNr">16865 </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#L16827'>test-function-header-with-multiple-args-and-outputs</a>/inout:0"</span>) +<span id="L16866" class="LineNr">16866 </span> <span class="subxComment"># check v->type</span> +<span id="L16867" class="LineNr">16867 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L16868" class="LineNr">16868 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16827'>test-function-header-with-multiple-args-and-outputs</a>/inout:0/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L16869" class="LineNr">16869 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16827'>test-function-header-with-multiple-args-and-outputs</a>/inout:0/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L16870" class="LineNr">16870 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16827'>test-function-header-with-multiple-args-and-outputs</a>/inout:0/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L16871" class="LineNr">16871 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:inout1</span>: +<span id="L16872" class="LineNr">16872 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> +<span id="L16873" class="LineNr">16873 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L16874" class="LineNr">16874 </span> 89/<- %edx 0/r32/eax +<span id="L16875" class="LineNr">16875 </span> <span class="subxComment"># v = lookup(inouts->value)</span> +<span id="L16876" class="LineNr">16876 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L16877" class="LineNr">16877 </span> 89/<- %ebx 0/r32/eax +<span id="L16878" class="LineNr">16878 </span> <span class="subxComment"># check v->name</span> +<span id="L16879" class="LineNr">16879 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16880" class="LineNr">16880 </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#L16827'>test-function-header-with-multiple-args-and-outputs</a>/inout:1"</span>) +<span id="L16881" class="LineNr">16881 </span> <span class="subxComment"># check v->type</span> +<span id="L16882" class="LineNr">16882 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L16883" class="LineNr">16883 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16827'>test-function-header-with-multiple-args-and-outputs</a>/inout:1/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L16884" class="LineNr">16884 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16827'>test-function-header-with-multiple-args-and-outputs</a>/inout:1/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L16885" class="LineNr">16885 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16827'>test-function-header-with-multiple-args-and-outputs</a>/inout:1/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L16886" class="LineNr">16886 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:inout2</span>: +<span id="L16887" class="LineNr">16887 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> +<span id="L16888" class="LineNr">16888 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L16889" class="LineNr">16889 </span> 89/<- %edx 0/r32/eax +<span id="L16890" class="LineNr">16890 </span> <span class="subxComment"># v = lookup(inouts->value)</span> +<span id="L16891" class="LineNr">16891 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L16892" class="LineNr">16892 </span> 89/<- %ebx 0/r32/eax +<span id="L16893" class="LineNr">16893 </span> <span class="subxComment"># check v->name</span> +<span id="L16894" class="LineNr">16894 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16895" class="LineNr">16895 </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#L16827'>test-function-header-with-multiple-args-and-outputs</a>/inout:2"</span>) +<span id="L16896" class="LineNr">16896 </span> <span class="subxComment"># check v->type</span> +<span id="L16897" class="LineNr">16897 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L16898" class="LineNr">16898 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16827'>test-function-header-with-multiple-args-and-outputs</a>/inout:2/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L16899" class="LineNr">16899 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16827'>test-function-header-with-multiple-args-and-outputs</a>/inout:2/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L16900" class="LineNr">16900 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16827'>test-function-header-with-multiple-args-and-outputs</a>/inout:2/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L16901" class="LineNr">16901 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:out0</span>: +<span id="L16902" class="LineNr">16902 </span> <span class="subxComment"># var outputs/edx: (addr list var) = lookup(result->outputs)</span> +<span id="L16903" class="LineNr">16903 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x10) *(ecx+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> +<span id="L16904" class="LineNr">16904 </span> 89/<- %edx 0/r32/eax +<span id="L16905" class="LineNr">16905 </span> <span class="subxComment"># v = lookup(outputs->value)</span> +<span id="L16906" class="LineNr">16906 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L16907" class="LineNr">16907 </span> 89/<- %ebx 0/r32/eax +<span id="L16908" class="LineNr">16908 </span> <span class="subxComment"># check v->name</span> +<span id="L16909" class="LineNr">16909 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16910" class="LineNr">16910 </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#L16827'>test-function-header-with-multiple-args-and-outputs</a>/output:0"</span>) +<span id="L16911" class="LineNr">16911 </span> <span class="subxComment"># check v->register</span> +<span id="L16912" class="LineNr">16912 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L16913" class="LineNr">16913 </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#L16827'>test-function-header-with-multiple-args-and-outputs</a>/output:0/register"</span>) +<span id="L16914" class="LineNr">16914 </span> <span class="subxComment"># check v->type</span> +<span id="L16915" class="LineNr">16915 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L16916" class="LineNr">16916 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16827'>test-function-header-with-multiple-args-and-outputs</a>/output:0/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L16917" class="LineNr">16917 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16827'>test-function-header-with-multiple-args-and-outputs</a>/output:0/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L16918" class="LineNr">16918 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16827'>test-function-header-with-multiple-args-and-outputs</a>/output:0/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L16919" class="LineNr">16919 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:out1</span>: +<span id="L16920" class="LineNr">16920 </span> <span class="subxComment"># outputs = lookup(outputs->next)</span> +<span id="L16921" class="LineNr">16921 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L16922" class="LineNr">16922 </span> 89/<- %edx 0/r32/eax +<span id="L16923" class="LineNr">16923 </span> <span class="subxComment"># v = lookup(inouts->value)</span> +<span id="L16924" class="LineNr">16924 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L16925" class="LineNr">16925 </span> 89/<- %ebx 0/r32/eax +<span id="L16926" class="LineNr">16926 </span> <span class="subxComment"># check v->name</span> +<span id="L16927" class="LineNr">16927 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16928" class="LineNr">16928 </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#L16827'>test-function-header-with-multiple-args-and-outputs</a>/output:1"</span>) +<span id="L16929" class="LineNr">16929 </span> <span class="subxComment"># check v->register</span> +<span id="L16930" class="LineNr">16930 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L16931" class="LineNr">16931 </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#L16827'>test-function-header-with-multiple-args-and-outputs</a>/output:1/register"</span>) +<span id="L16932" class="LineNr">16932 </span> <span class="subxComment"># check v->type</span> +<span id="L16933" class="LineNr">16933 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L16934" class="LineNr">16934 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16827'>test-function-header-with-multiple-args-and-outputs</a>/output:1/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L16935" class="LineNr">16935 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16827'>test-function-header-with-multiple-args-and-outputs</a>/output:1/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L16936" class="LineNr">16936 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0c) 0 <span class="Constant">"F - <a href='mu.subx.html#L16827'>test-function-header-with-multiple-args-and-outputs</a>/output:1/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L16937" class="LineNr">16937 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16938" class="LineNr">16938 </span> 89/<- %esp 5/r32/ebp +<span id="L16939" class="LineNr">16939 </span> 5d/pop-to-ebp +<span id="L16940" class="LineNr">16940 </span> c3/return +<span id="L16941" class="LineNr">16941 </span> +<span id="L16942" class="LineNr">16942 </span><span class="subxComment"># format for variables with types</span> +<span id="L16943" class="LineNr">16943 </span><span class="subxComment"># x: int</span> +<span id="L16944" class="LineNr">16944 </span><span class="subxComment"># x: int,</span> +<span id="L16945" class="LineNr">16945 </span><span class="subxComment"># x/eax: int</span> +<span id="L16946" class="LineNr">16946 </span><span class="subxComment"># x/eax: int,</span> +<span id="L16947" class="LineNr">16947 </span><span class="subxComment"># ignores at most one trailing comma</span> +<span id="L16948" class="LineNr">16948 </span><span class="subxComment"># does not support other, non-register metadata</span> +<span id="L16949" class="LineNr">16949 </span><span class="subxComment"># WARNING: modifies name</span> +<span id="L16950" class="LineNr">16950 </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="L16951" class="LineNr">16951 </span> <span class="subxComment"># pseudocode:</span> +<span id="L16952" class="LineNr">16952 </span> <span class="subxComment"># var s: slice</span> +<span id="L16953" class="LineNr">16953 </span> <span class="subxComment"># if (!slice-ends-with(name, ":"))</span> +<span id="L16954" class="LineNr">16954 </span> <span class="subxComment"># abort</span> +<span id="L16955" class="LineNr">16955 </span> <span class="subxComment"># --name->end to skip ':'</span> +<span id="L16956" class="LineNr">16956 </span> <span class="subxComment"># next-token-from-slice(name->start, name->end, '/', s)</span> +<span id="L16957" class="LineNr">16957 </span> <span class="subxComment"># new-var-from-slice(s, out)</span> +<span id="L16958" class="LineNr">16958 </span> <span class="subxComment"># ## register</span> +<span id="L16959" class="LineNr">16959 </span> <span class="subxComment"># next-token-from-slice(s->end, name->end, '/', s)</span> +<span id="L16960" class="LineNr">16960 </span> <span class="subxComment"># if (!slice-empty?(s))</span> +<span id="L16961" class="LineNr">16961 </span> <span class="subxComment"># out->register = slice-to-string(s)</span> +<span id="L16962" class="LineNr">16962 </span> <span class="subxComment"># ## type</span> +<span id="L16963" class="LineNr">16963 </span> <span class="subxComment"># var type: (handle type-tree) = parse-type(first-line)</span> +<span id="L16964" class="LineNr">16964 </span> <span class="subxComment"># out->type = type</span> +<span id="L16965" class="LineNr">16965 </span> <span class="subxComment">#</span> +<span id="L16966" class="LineNr">16966 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16967" class="LineNr">16967 </span> 55/push-ebp +<span id="L16968" class="LineNr">16968 </span> 89/<- %ebp 4/r32/esp +<span id="L16969" class="LineNr">16969 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L16970" class="LineNr">16970 </span> 50/push-eax +<span id="L16971" class="LineNr">16971 </span> 51/push-ecx +<span id="L16972" class="LineNr">16972 </span> 52/push-edx +<span id="L16973" class="LineNr">16973 </span> 53/push-ebx +<span id="L16974" class="LineNr">16974 </span> 56/push-esi +<span id="L16975" class="LineNr">16975 </span> 57/push-edi +<span id="L16976" class="LineNr">16976 </span> <span class="subxComment"># esi = name</span> +<span id="L16977" class="LineNr">16977 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L16978" class="LineNr">16978 </span> <span class="subxComment"># if (!slice-ends-with?(name, ":")) abort</span> +<span id="L16979" class="LineNr">16979 </span> 8b/-> *(esi+4) 1/r32/ecx <span class="subxComment"># Slice-end</span> +<span id="L16980" class="LineNr">16980 </span> 49/decrement-ecx +<span id="L16981" class="LineNr">16981 </span> 8a/copy-byte *ecx 1/r32/CL +<span id="L16982" class="LineNr">16982 </span> 81 4/subop/and %ecx 0xff/imm32 +<span id="L16983" class="LineNr">16983 </span> 81 7/subop/compare %ecx 0x3a/imm32/colon +<span id="L16984" class="LineNr">16984 </span> 0f 85/jump-if-!= $parse-var-with-type:abort/disp32 +<span id="L16985" class="LineNr">16985 </span> <span class="subxComment"># --name->end to skip ':'</span> +<span id="L16986" class="LineNr">16986 </span> ff 1/subop/decrement *(esi+4) +<span id="L16987" class="LineNr">16987 </span> <span class="subxComment"># var s/ecx: slice</span> +<span id="L16988" class="LineNr">16988 </span> 68/push 0/imm32/end +<span id="L16989" class="LineNr">16989 </span> 68/push 0/imm32/start +<span id="L16990" class="LineNr">16990 </span> 89/<- %ecx 4/r32/esp +<span id="L16991" class="LineNr">16991 </span><span class="Constant">$parse-var-with-type:parse-name</span>: +<span id="L16992" class="LineNr">16992 </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="L16993" class="LineNr">16993 </span><span class="Constant">$parse-var-with-type:create-var</span>: +<span id="L16994" class="LineNr">16994 </span> <span class="subxComment"># new-var-from-slice(s, out)</span> +<span id="L16995" class="LineNr">16995 </span> (<a href='mu.subx.html#L19957'>new-var-from-slice</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %ecx *(ebp+0x10)) +<span id="L16996" class="LineNr">16996 </span> <span class="subxComment"># save out->register</span> +<span id="L16997" class="LineNr">16997 </span><span class="Constant">$parse-var-with-type:save-register</span>: +<span id="L16998" class="LineNr">16998 </span> <span class="subxS1Comment"># . var out-addr/edi: (addr var) = lookup(*out)</span> +<span id="L16999" class="LineNr">16999 </span> 8b/-> *(ebp+0x10) 7/r32/edi +<span id="L17000" class="LineNr">17000 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L17001" class="LineNr">17001 </span> 89/<- %edi 0/r32/eax +<span id="L17002" class="LineNr">17002 </span> <span class="subxS1Comment"># . s = next-token(...)</span> +<span id="L17003" class="LineNr">17003 </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="L17004" class="LineNr">17004 </span> <span class="subxS1Comment"># . if (!slice-empty?(s)) out->register = slice-to-string(s)</span> +<span id="L17005" class="LineNr">17005 </span> { +<span id="L17006" class="LineNr">17006 </span><span class="Constant">$parse-var-with-type:write-register</span>: +<span id="L17007" class="LineNr">17007 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L17008" class="LineNr">17008 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17009" class="LineNr">17009 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L17010" class="LineNr">17010 </span> <span class="subxComment"># out->register = slice-to-string(s)</span> +<span id="L17011" class="LineNr">17011 </span> 8d/copy-address *(edi+0x18) 0/r32/eax <span class="subxComment"># Var-register</span> +<span id="L17012" class="LineNr">17012 </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="L17013" class="LineNr">17013 </span> } +<span id="L17014" class="LineNr">17014 </span><span class="Constant">$parse-var-with-type:save-type</span>: +<span id="L17015" class="LineNr">17015 </span> 8d/copy-address *(edi+8) 0/r32/eax <span class="subxComment"># Var-type</span> +<span id="L17016" class="LineNr">17016 </span> (<a href='mu.subx.html#L17104'>parse-type</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *(ebp+0xc) %eax *(ebp+0x18) *(ebp+0x1c)) +<span id="L17017" class="LineNr">17017 </span><span class="Constant">$parse-var-with-type:check-register</span>: +<span id="L17018" class="LineNr">17018 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+0x18) *(edi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L17019" class="LineNr">17019 </span> 3d/compare-eax-and 0/imm32 +<span id="L17020" class="LineNr">17020 </span> 74/jump-if-= $parse-var-with-type:end/disp8 +<span id="L17021" class="LineNr">17021 </span> (<a href='mu.subx.html#L17089'>float-register?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L17022" class="LineNr">17022 </span> { +<span id="L17023" class="LineNr">17023 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17024" class="LineNr">17024 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L17025" class="LineNr">17025 </span> <span class="subxComment"># var is in a float register; ensure type is float</span> +<span id="L17026" class="LineNr">17026 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L17027" class="LineNr">17027 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 0xf) <span class="subxComment"># float => eax</span> +<span id="L17028" class="LineNr">17028 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17029" class="LineNr">17029 </span> 0f 84/jump-if-= $parse-var-with-type:error-non-float-in-floating-point-register/disp32 +<span id="L17030" class="LineNr">17030 </span> eb/jump $parse-var-with-type:end/disp8 +<span id="L17031" class="LineNr">17031 </span> } +<span id="L17032" class="LineNr">17032 </span> <span class="subxComment"># var is not in a float register; ensure type is not float</span> +<span id="L17033" class="LineNr">17033 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L17034" class="LineNr">17034 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 0xf) <span class="subxComment"># float => eax</span> +<span id="L17035" class="LineNr">17035 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17036" class="LineNr">17036 </span> 0f 85/jump-if-!= $parse-var-with-type:error-float-in-integer-register/disp32 +<span id="L17037" class="LineNr">17037 </span><span class="Constant">$parse-var-with-type:end</span>: +<span id="L17038" class="LineNr">17038 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L17039" class="LineNr">17039 </span> 81 0/subop/add %esp 8/imm32 +<span id="L17040" class="LineNr">17040 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L17041" class="LineNr">17041 </span> 5f/pop-to-edi +<span id="L17042" class="LineNr">17042 </span> 5e/pop-to-esi +<span id="L17043" class="LineNr">17043 </span> 5b/pop-to-ebx +<span id="L17044" class="LineNr">17044 </span> 5a/pop-to-edx +<span id="L17045" class="LineNr">17045 </span> 59/pop-to-ecx +<span id="L17046" class="LineNr">17046 </span> 58/pop-to-eax +<span id="L17047" class="LineNr">17047 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17048" class="LineNr">17048 </span> 89/<- %esp 5/r32/ebp +<span id="L17049" class="LineNr">17049 </span> 5d/pop-to-ebp +<span id="L17050" class="LineNr">17050 </span> c3/return +<span id="L17051" class="LineNr">17051 </span> +<span id="L17052" class="LineNr">17052 </span><span class="Constant">$parse-var-with-type:abort</span>: +<span id="L17053" class="LineNr">17053 </span> <span class="subxComment"># error("fn " fn ": var should have form 'name: type' in '" line "'\n")</span> +<span id="L17054" class="LineNr">17054 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L17055" class="LineNr">17055 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) *(ebp+0x14)) +<span id="L17056" class="LineNr">17056 </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="L17057" class="LineNr">17057 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L17058" class="LineNr">17058 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+0xc)) +<span id="L17059" class="LineNr">17059 </span> (<a href='125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x18) *(ebp+0xc)) +<span id="L17060" class="LineNr">17060 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) +<span id="L17061" class="LineNr">17061 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L17062" class="LineNr">17062 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L17063" class="LineNr">17063 </span> <span class="subxComment"># never gets here</span> +<span id="L17064" class="LineNr">17064 </span> +<span id="L17065" class="LineNr">17065 </span><span class="Constant">$parse-var-with-type:error-float-in-integer-register</span>: +<span id="L17066" class="LineNr">17066 </span> <span class="subxComment"># error("fn " fn ": float var '" var "' should be in a floating-point register\n")</span> +<span id="L17067" class="LineNr">17067 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L17068" class="LineNr">17068 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) *(ebp+0x14)) +<span id="L17069" class="LineNr">17069 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": float var '"</span>) +<span id="L17070" class="LineNr">17070 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L17071" class="LineNr">17071 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L17072" class="LineNr">17072 </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="L17073" class="LineNr">17073 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L17074" class="LineNr">17074 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L17075" class="LineNr">17075 </span> <span class="subxComment"># never gets here</span> +<span id="L17076" class="LineNr">17076 </span> +<span id="L17077" class="LineNr">17077 </span><span class="Constant">$parse-var-with-type:error-non-float-in-floating-point-register</span>: +<span id="L17078" class="LineNr">17078 </span> <span class="subxComment"># error("fn " fn ": non-float var '" var "' should be in an integer register\n")</span> +<span id="L17079" class="LineNr">17079 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L17080" class="LineNr">17080 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) *(ebp+0x14)) +<span id="L17081" class="LineNr">17081 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": non-float var '"</span>) +<span id="L17082" class="LineNr">17082 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L17083" class="LineNr">17083 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L17084" class="LineNr">17084 </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="L17085" class="LineNr">17085 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L17086" class="LineNr">17086 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L17087" class="LineNr">17087 </span> <span class="subxComment"># never gets here</span> +<span id="L17088" class="LineNr">17088 </span> +<span id="L17089" class="LineNr">17089 </span><span class="subxFunction">float-register?</span>: <span class="subxComment"># r: (addr array byte) -> result/eax: boolean</span> +<span id="L17090" class="LineNr">17090 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17091" class="LineNr">17091 </span> 55/push-ebp +<span id="L17092" class="LineNr">17092 </span> 89/<- %ebp 4/r32/esp +<span id="L17093" class="LineNr">17093 </span> <span class="subxComment">#</span> +<span id="L17094" class="LineNr">17094 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19424'>Mu-registers-unique</a></span> *(ebp+8) 0xc <span class="Constant">"Mu-registers-unique"</span>) <span class="subxComment"># => eax</span> +<span id="L17095" class="LineNr">17095 </span> 81 7/subop/compare *eax 8/imm32/start-of-floating-point-registers +<span id="L17096" class="LineNr">17096 </span> 0f 9d/set-if->= %al +<span id="L17097" class="LineNr">17097 </span> 25/and-eax-with 0xff/imm32 +<span id="L17098" class="LineNr">17098 </span><span class="Constant">$float-register?:end</span>: +<span id="L17099" class="LineNr">17099 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17100" class="LineNr">17100 </span> 89/<- %esp 5/r32/ebp +<span id="L17101" class="LineNr">17101 </span> 5d/pop-to-ebp +<span id="L17102" class="LineNr">17102 </span> c3/return +<span id="L17103" class="LineNr">17103 </span> +<span id="L17104" class="LineNr">17104 </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="L17105" class="LineNr">17105 </span> <span class="subxComment"># pseudocode:</span> +<span id="L17106" class="LineNr">17106 </span> <span class="subxComment"># var s: slice = next-mu-token(in)</span> +<span id="L17107" class="LineNr">17107 </span> <span class="subxComment"># assert s != ""</span> +<span id="L17108" class="LineNr">17108 </span> <span class="subxComment"># assert s != "->"</span> +<span id="L17109" class="LineNr">17109 </span> <span class="subxComment"># assert s != "{"</span> +<span id="L17110" class="LineNr">17110 </span> <span class="subxComment"># assert s != "}"</span> +<span id="L17111" class="LineNr">17111 </span> <span class="subxComment"># if s == ")"</span> +<span id="L17112" class="LineNr">17112 </span> <span class="subxComment"># return</span> +<span id="L17113" class="LineNr">17113 </span> <span class="subxComment"># out = allocate(Type-tree)</span> +<span id="L17114" class="LineNr">17114 </span> <span class="subxComment"># if s != "("</span> +<span id="L17115" class="LineNr">17115 </span> <span class="subxComment"># HACK: if s is an int, parse and return it</span> +<span id="L17116" class="LineNr">17116 </span> <span class="subxComment"># out->is-atom? = true</span> +<span id="L17117" class="LineNr">17117 </span> <span class="subxComment"># if (s[0] == "_")</span> +<span id="L17118" class="LineNr">17118 </span> <span class="subxComment"># out->value = type-parameter</span> +<span id="L17119" class="LineNr">17119 </span> <span class="subxComment"># out->parameter-name = slice-to-string(ad, s)</span> +<span id="L17120" class="LineNr">17120 </span> <span class="subxComment"># else</span> +<span id="L17121" class="LineNr">17121 </span> <span class="subxComment"># out->value = pos-or-insert-slice(Type-id, s)</span> +<span id="L17122" class="LineNr">17122 </span> <span class="subxComment"># return</span> +<span id="L17123" class="LineNr">17123 </span> <span class="subxComment"># out->left = parse-type(ad, in)</span> +<span id="L17124" class="LineNr">17124 </span> <span class="subxComment"># out->right = parse-type-tree(ad, in)</span> +<span id="L17125" class="LineNr">17125 </span> <span class="subxComment">#</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="subxS1Comment"># . save registers</span> +<span id="L17130" class="LineNr">17130 </span> 50/push-eax +<span id="L17131" class="LineNr">17131 </span> 51/push-ecx +<span id="L17132" class="LineNr">17132 </span> 52/push-edx +<span id="L17133" class="LineNr">17133 </span> <span class="subxComment"># clear out</span> +<span id="L17134" class="LineNr">17134 </span> (<a href='120allocate.subx.html#L889'>zero-out</a> *(ebp+0x10) *<span class="SpecialChar"><a href='120allocate.subx.html#L23'>Handle-size</a></span>) +<span id="L17135" class="LineNr">17135 </span> <span class="subxComment"># var s/ecx: slice</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/<- %ecx 4/r32/esp +<span id="L17139" class="LineNr">17139 </span> <span class="subxComment"># s = next-mu-token(in)</span> +<span id="L17140" class="LineNr">17140 </span> (<a href='mu.subx.html#L17305'>next-mu-token</a> *(ebp+0xc) %ecx) +<span id="L17141" class="LineNr">17141 </span><span class="CommentedCode">#? (write-buffered Stderr "tok: ")</span> +<span id="L17142" class="LineNr">17142 </span><span class="CommentedCode">#? (write-slice-buffered Stderr %ecx)</span> +<span id="L17143" class="LineNr">17143 </span><span class="CommentedCode">#? (write-buffered Stderr "$\n")</span> +<span id="L17144" class="LineNr">17144 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L17145" class="LineNr">17145 </span> <span class="subxComment"># assert s != ""</span> +<span id="L17146" class="LineNr">17146 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">""</span>) <span class="subxComment"># => eax</span> +<span id="L17147" class="LineNr">17147 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17148" class="LineNr">17148 </span> 0f 85/jump-if-!= $parse-type:abort/disp32 +<span id="L17149" class="LineNr">17149 </span> <span class="subxComment"># assert s != "{"</span> +<span id="L17150" class="LineNr">17150 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> +<span id="L17151" class="LineNr">17151 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17152" class="LineNr">17152 </span> 0f 85/jump-if-!= $parse-type:abort/disp32 +<span id="L17153" class="LineNr">17153 </span> <span class="subxComment"># assert s != "}"</span> +<span id="L17154" class="LineNr">17154 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> +<span id="L17155" class="LineNr">17155 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17156" class="LineNr">17156 </span> 0f 85/jump-if-!= $parse-type:abort/disp32 +<span id="L17157" class="LineNr">17157 </span> <span class="subxComment"># assert s != "->"</span> +<span id="L17158" class="LineNr">17158 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> +<span id="L17159" class="LineNr">17159 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17160" class="LineNr">17160 </span> 0f 85/jump-if-!= $parse-type:abort/disp32 +<span id="L17161" class="LineNr">17161 </span> <span class="subxComment"># if (s == ")") return</span> +<span id="L17162" class="LineNr">17162 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">")"</span>) <span class="subxComment"># => eax</span> +<span id="L17163" class="LineNr">17163 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17164" class="LineNr">17164 </span> 0f 85/jump-if-!= $parse-type:end/disp32 +<span id="L17165" class="LineNr">17165 </span> <span class="subxComment"># out = new tree</span> +<span id="L17166" class="LineNr">17166 </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="L17167" class="LineNr">17167 </span> <span class="subxComment"># var out-addr/edx: (addr type-tree) = lookup(*out)</span> +<span id="L17168" class="LineNr">17168 </span> 8b/-> *(ebp+0x10) 2/r32/edx +<span id="L17169" class="LineNr">17169 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L17170" class="LineNr">17170 </span> 89/<- %edx 0/r32/eax +<span id="L17171" class="LineNr">17171 </span> { +<span id="L17172" class="LineNr">17172 </span> <span class="subxComment"># if (s != "(") break</span> +<span id="L17173" class="LineNr">17173 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"("</span>) <span class="subxComment"># => eax</span> +<span id="L17174" class="LineNr">17174 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17175" class="LineNr">17175 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L17176" class="LineNr">17176 </span> <span class="subxComment"># if s is a number, store it in the type's size field</span> +<span id="L17177" class="LineNr">17177 </span> { +<span id="L17178" class="LineNr">17178 </span><span class="Constant">$parse-type:check-for-int</span>: +<span id="L17179" class="LineNr">17179 </span> <span class="subxComment"># var tmp/eax: byte = *s->slice</span> +<span id="L17180" class="LineNr">17180 </span> 8b/-> *ecx 0/r32/eax +<span id="L17181" class="LineNr">17181 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L17182" class="LineNr">17182 </span> 25/and-eax-with 0xff/imm32 +<span id="L17183" class="LineNr">17183 </span> <span class="subxComment"># TODO: raise an error on `var x: (array int a)`</span> +<span id="L17184" class="LineNr">17184 </span> (<a href='126write-int-decimal.subx.html#L306'>decimal-digit?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L17185" class="LineNr">17185 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17186" class="LineNr">17186 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L17187" class="LineNr">17187 </span><span class="Constant">$parse-type:int</span>: +<span id="L17188" class="LineNr">17188 </span> <span class="subxComment"># strip out metadata</span> +<span id="L17189" class="LineNr">17189 </span> (<a href='124next-token.subx.html#L163'>next-token-from-slice</a> *ecx *(ecx+4) 0x2f %ecx) +<span id="L17190" class="LineNr">17190 </span> <span class="subxComment">#</span> +<span id="L17191" class="LineNr">17191 </span> (<a href='mu.subx.html#L19819'>check-mu-hex-int</a> %ecx *(ebp+0x14) *(ebp+0x18)) +<span id="L17192" class="LineNr">17192 </span> (<a href='118parse-hex-int.subx.html#L387'>parse-hex-int-from-slice</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L17193" class="LineNr">17193 </span> c7 0/subop/copy *(edx+4) 9/imm32/type-id-array-capacity <span class="subxComment"># Type-tree-value</span> +<span id="L17194" class="LineNr">17194 </span> 89/<- *(edx+8) 0/r32/eax <span class="subxComment"># Type-tree-value-size</span> +<span id="L17195" class="LineNr">17195 </span> e9/jump $parse-type:end/disp32 +<span id="L17196" class="LineNr">17196 </span> } +<span id="L17197" class="LineNr">17197 </span><span class="Constant">$parse-type:atom</span>: +<span id="L17198" class="LineNr">17198 </span> <span class="subxComment"># out->is-atom? = true</span> +<span id="L17199" class="LineNr">17199 </span> c7 0/subop/copy *edx 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> +<span id="L17200" class="LineNr">17200 </span> { +<span id="L17201" class="LineNr">17201 </span><span class="Constant">$parse-type:check-for-type-parameter</span>: +<span id="L17202" class="LineNr">17202 </span> <span class="subxComment"># var tmp/eax: byte = *s->slice</span> +<span id="L17203" class="LineNr">17203 </span> 8b/-> *ecx 0/r32/eax +<span id="L17204" class="LineNr">17204 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L17205" class="LineNr">17205 </span> 25/and-eax-with 0xff/imm32 +<span id="L17206" class="LineNr">17206 </span> <span class="subxComment"># if (tmp != '_') break</span> +<span id="L17207" class="LineNr">17207 </span> 3d/compare-eax-and 0x5f/imm32/_ +<span id="L17208" class="LineNr">17208 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L17209" class="LineNr">17209 </span><span class="Constant">$parse-type:type-parameter</span>: +<span id="L17210" class="LineNr">17210 </span> <span class="subxComment"># out->value = type-parameter</span> +<span id="L17211" class="LineNr">17211 </span> c7 0/subop/copy *(edx+4) 0xa/imm32/type-parameter <span class="subxComment"># Type-tree-value</span> +<span id="L17212" class="LineNr">17212 </span> <span class="subxComment"># out->parameter-name = slice-to-string(ad, s)</span> +<span id="L17213" class="LineNr">17213 </span> 8d/copy-address *(edx+8) 0/r32/eax <span class="subxComment"># Type-tree-parameter-name</span> +<span id="L17214" class="LineNr">17214 </span> (<a href='123slice.subx.html#L1043'>slice-to-string</a> *(ebp+8) %ecx %eax) +<span id="L17215" class="LineNr">17215 </span> e9/jump $parse-type:end/disp32 +<span id="L17216" class="LineNr">17216 </span> } +<span id="L17217" class="LineNr">17217 </span><span class="Constant">$parse-type:non-type-parameter</span>: +<span id="L17218" class="LineNr">17218 </span> <span class="subxComment"># out->value = pos-or-insert-slice(Type-id, s)</span> +<span id="L17219" class="LineNr">17219 </span> (<a href='mu.subx.html#L17475'>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="L17220" class="LineNr">17220 </span> 89/<- *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> +<span id="L17221" class="LineNr">17221 </span> e9/jump $parse-type:end/disp32 +<span id="L17222" class="LineNr">17222 </span> } +<span id="L17223" class="LineNr">17223 </span><span class="Constant">$parse-type:non-atom</span>: +<span id="L17224" class="LineNr">17224 </span> <span class="subxComment"># otherwise s == "("</span> +<span id="L17225" class="LineNr">17225 </span> <span class="subxComment"># out->left = parse-type(ad, in)</span> +<span id="L17226" class="LineNr">17226 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-left</span> +<span id="L17227" class="LineNr">17227 </span> (<a href='mu.subx.html#L17104'>parse-type</a> *(ebp+8) *(ebp+0xc) %eax *(ebp+0x14) *(ebp+0x18)) +<span id="L17228" class="LineNr">17228 </span> <span class="subxComment"># out->right = parse-type-tree(ad, in)</span> +<span id="L17229" class="LineNr">17229 </span> 8d/copy-address *(edx+0xc) 0/r32/eax <span class="subxComment"># Type-tree-right</span> +<span id="L17230" class="LineNr">17230 </span> (<a href='mu.subx.html#L17252'>parse-type-tree</a> *(ebp+8) *(ebp+0xc) %eax *(ebp+0x14) *(ebp+0x18)) +<span id="L17231" class="LineNr">17231 </span><span class="Constant">$parse-type:end</span>: +<span id="L17232" class="LineNr">17232 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L17233" class="LineNr">17233 </span> 81 0/subop/add %esp 8/imm32 +<span id="L17234" class="LineNr">17234 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L17235" class="LineNr">17235 </span> 5a/pop-to-edx +<span id="L17236" class="LineNr">17236 </span> 59/pop-to-ecx +<span id="L17237" class="LineNr">17237 </span> 58/pop-to-eax +<span id="L17238" class="LineNr">17238 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17239" class="LineNr">17239 </span> 89/<- %esp 5/r32/ebp +<span id="L17240" class="LineNr">17240 </span> 5d/pop-to-ebp +<span id="L17241" class="LineNr">17241 </span> c3/return +<span id="L17242" class="LineNr">17242 </span> +<span id="L17243" class="LineNr">17243 </span><span class="Constant">$parse-type:abort</span>: +<span id="L17244" class="LineNr">17244 </span> <span class="subxComment"># error("unexpected token when parsing type: '" s "'\n")</span> +<span id="L17245" class="LineNr">17245 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"unexpected token when parsing type: '"</span>) +<span id="L17246" class="LineNr">17246 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x14) %ecx) +<span id="L17247" class="LineNr">17247 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"'\n"</span>) +<span id="L17248" class="LineNr">17248 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L17249" class="LineNr">17249 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L17250" class="LineNr">17250 </span> <span class="subxComment"># never gets here</span> +<span id="L17251" class="LineNr">17251 </span> +<span id="L17252" class="LineNr">17252 </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="L17253" class="LineNr">17253 </span> <span class="subxComment"># pseudocode:</span> +<span id="L17254" class="LineNr">17254 </span> <span class="subxComment"># var tmp: (handle type-tree) = parse-type(ad, in)</span> +<span id="L17255" class="LineNr">17255 </span> <span class="subxComment"># if tmp == 0</span> +<span id="L17256" class="LineNr">17256 </span> <span class="subxComment"># return 0</span> +<span id="L17257" class="LineNr">17257 </span> <span class="subxComment"># out = allocate(Type-tree)</span> +<span id="L17258" class="LineNr">17258 </span> <span class="subxComment"># out->left = tmp</span> +<span id="L17259" class="LineNr">17259 </span> <span class="subxComment"># out->right = parse-type-tree(ad, in)</span> +<span id="L17260" class="LineNr">17260 </span> <span class="subxComment">#</span> +<span id="L17261" class="LineNr">17261 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17262" class="LineNr">17262 </span> 55/push-ebp +<span id="L17263" class="LineNr">17263 </span> 89/<- %ebp 4/r32/esp +<span id="L17264" class="LineNr">17264 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L17265" class="LineNr">17265 </span> 50/push-eax +<span id="L17266" class="LineNr">17266 </span> 51/push-ecx +<span id="L17267" class="LineNr">17267 </span> 52/push-edx +<span id="L17268" class="LineNr">17268 </span> <span class="subxComment">#</span> +<span id="L17269" class="LineNr">17269 </span> (<a href='120allocate.subx.html#L889'>zero-out</a> *(ebp+0x10) *<span class="SpecialChar"><a href='120allocate.subx.html#L23'>Handle-size</a></span>) +<span id="L17270" class="LineNr">17270 </span> <span class="subxComment"># var tmp/ecx: (handle type-tree)</span> +<span id="L17271" class="LineNr">17271 </span> 68/push 0/imm32 +<span id="L17272" class="LineNr">17272 </span> 68/push 0/imm32 +<span id="L17273" class="LineNr">17273 </span> 89/<- %ecx 4/r32/esp +<span id="L17274" class="LineNr">17274 </span> <span class="subxComment"># tmp = parse-type(ad, in)</span> +<span id="L17275" class="LineNr">17275 </span> (<a href='mu.subx.html#L17104'>parse-type</a> *(ebp+8) *(ebp+0xc) %ecx *(ebp+0x14) *(ebp+0x18)) +<span id="L17276" class="LineNr">17276 </span> <span class="subxComment"># if (tmp == 0) return</span> +<span id="L17277" class="LineNr">17277 </span> 81 7/subop/compare *ecx 0/imm32 +<span id="L17278" class="LineNr">17278 </span> 74/jump-if-= $parse-type-tree:end/disp8 +<span id="L17279" class="LineNr">17279 </span> <span class="subxComment"># out = new tree</span> +<span id="L17280" class="LineNr">17280 </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="L17281" class="LineNr">17281 </span> <span class="subxComment"># var out-addr/edx: (addr tree) = lookup(*out)</span> +<span id="L17282" class="LineNr">17282 </span> 8b/-> *(ebp+0x10) 2/r32/edx +<span id="L17283" class="LineNr">17283 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L17284" class="LineNr">17284 </span> 89/<- %edx 0/r32/eax +<span id="L17285" class="LineNr">17285 </span> <span class="subxComment"># out->left = tmp</span> +<span id="L17286" class="LineNr">17286 </span> 8b/-> *ecx 0/r32/eax +<span id="L17287" class="LineNr">17287 </span> 89/<- *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-left</span> +<span id="L17288" class="LineNr">17288 </span> 8b/-> *(ecx+4) 0/r32/eax +<span id="L17289" class="LineNr">17289 </span> 89/<- *(edx+8) 0/r32/eax <span class="subxComment"># Type-tree-left</span> +<span id="L17290" class="LineNr">17290 </span> <span class="subxComment"># out->right = parse-type-tree(ad, in)</span> +<span id="L17291" class="LineNr">17291 </span> 8d/copy-address *(edx+0xc) 0/r32/eax <span class="subxComment"># Type-tree-right</span> +<span id="L17292" class="LineNr">17292 </span> (<a href='mu.subx.html#L17252'>parse-type-tree</a> *(ebp+8) *(ebp+0xc) %eax *(ebp+0x14) *(ebp+0x18)) +<span id="L17293" class="LineNr">17293 </span><span class="Constant">$parse-type-tree:end</span>: +<span id="L17294" class="LineNr">17294 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L17295" class="LineNr">17295 </span> 81 0/subop/add %esp 8/imm32 +<span id="L17296" class="LineNr">17296 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L17297" class="LineNr">17297 </span> 5a/pop-to-edx +<span id="L17298" class="LineNr">17298 </span> 59/pop-to-ecx +<span id="L17299" class="LineNr">17299 </span> 58/pop-to-eax +<span id="L17300" class="LineNr">17300 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17301" class="LineNr">17301 </span> 89/<- %esp 5/r32/ebp +<span id="L17302" class="LineNr">17302 </span> 5d/pop-to-ebp +<span id="L17303" class="LineNr">17303 </span> c3/return +<span id="L17304" class="LineNr">17304 </span> +<span id="L17305" class="LineNr">17305 </span><span class="subxFunction">next-mu-token</span>: <span class="subxComment"># in: (addr stream byte), out: (addr slice)</span> +<span id="L17306" class="LineNr">17306 </span> <span class="subxComment"># pseudocode:</span> +<span id="L17307" class="LineNr">17307 </span> <span class="subxComment"># start:</span> +<span id="L17308" class="LineNr">17308 </span> <span class="subxComment"># skip-chars-matching-whitespace(in)</span> +<span id="L17309" class="LineNr">17309 </span> <span class="subxComment"># if in->read >= in->write # end of in</span> +<span id="L17310" class="LineNr">17310 </span> <span class="subxComment"># out = {0, 0}</span> +<span id="L17311" class="LineNr">17311 </span> <span class="subxComment"># return</span> +<span id="L17312" class="LineNr">17312 </span> <span class="subxComment"># out->start = &in->data[in->read]</span> +<span id="L17313" class="LineNr">17313 </span> <span class="subxComment"># var curr-byte/eax: byte = in->data[in->read]</span> +<span id="L17314" class="LineNr">17314 </span> <span class="subxComment"># if curr->byte == ',' # comment token</span> +<span id="L17315" class="LineNr">17315 </span> <span class="subxComment"># ++in->read</span> +<span id="L17316" class="LineNr">17316 </span> <span class="subxComment"># goto start</span> +<span id="L17317" class="LineNr">17317 </span> <span class="subxComment"># if curr-byte == '#' # comment</span> +<span id="L17318" class="LineNr">17318 </span> <span class="subxComment"># goto done # treat as eof</span> +<span id="L17319" class="LineNr">17319 </span> <span class="subxComment"># if curr-byte == '"' # string literal</span> +<span id="L17320" class="LineNr">17320 </span> <span class="subxComment"># skip-string(in)</span> +<span id="L17321" class="LineNr">17321 </span> <span class="subxComment"># goto done # no metadata</span> +<span id="L17322" class="LineNr">17322 </span> <span class="subxComment"># if curr-byte == '('</span> <span id="L17323" class="LineNr">17323 </span> <span class="subxComment"># ++in->read</span> -<span id="L17324" class="LineNr">17324 </span> <span class="subxComment"># done:</span> -<span id="L17325" class="LineNr">17325 </span> <span class="subxComment"># out->end = &in->data[in->read]</span> -<span id="L17326" class="LineNr">17326 </span> <span class="subxComment">#</span> -<span id="L17327" class="LineNr">17327 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17328" class="LineNr">17328 </span> 55/push-ebp -<span id="L17329" class="LineNr">17329 </span> 89/<- %ebp 4/r32/esp -<span id="L17330" class="LineNr">17330 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L17331" class="LineNr">17331 </span> 50/push-eax -<span id="L17332" class="LineNr">17332 </span> 51/push-ecx -<span id="L17333" class="LineNr">17333 </span> 56/push-esi -<span id="L17334" class="LineNr">17334 </span> 57/push-edi -<span id="L17335" class="LineNr">17335 </span> <span class="subxComment"># esi = in</span> -<span id="L17336" class="LineNr">17336 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L17337" class="LineNr">17337 </span> <span class="subxComment"># edi = out</span> -<span id="L17338" class="LineNr">17338 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L17339" class="LineNr">17339 </span><span class="Constant">$next-mu-token:start</span>: -<span id="L17340" class="LineNr">17340 </span> (<a href='124next-token.subx.html#L464'>skip-chars-matching-whitespace</a> %esi) -<span id="L17341" class="LineNr">17341 </span><span class="Constant">$next-mu-token:check0</span>: -<span id="L17342" class="LineNr">17342 </span> <span class="subxComment"># if (in->read >= in->write) return out = {0, 0}</span> -<span id="L17343" class="LineNr">17343 </span> <span class="subxS1Comment"># . ecx = in->read</span> -<span id="L17344" class="LineNr">17344 </span> 8b/-> *(esi+4) 1/r32/ecx -<span id="L17345" class="LineNr">17345 </span> <span class="subxS1Comment"># . if (ecx >= in->write) return out = {0, 0}</span> -<span id="L17346" class="LineNr">17346 </span> 3b/compare<- *esi 1/r32/ecx -<span id="L17347" class="LineNr">17347 </span> c7 0/subop/copy *edi 0/imm32 -<span id="L17348" class="LineNr">17348 </span> c7 0/subop/copy *(edi+4) 0/imm32 -<span id="L17349" class="LineNr">17349 </span> 0f 8d/jump-if->= $next-mu-token:end/disp32 -<span id="L17350" class="LineNr">17350 </span> <span class="subxComment"># out->start = &in->data[in->read]</span> -<span id="L17351" class="LineNr">17351 </span> 8d/copy-address *(esi+ecx+0xc) 0/r32/eax -<span id="L17352" class="LineNr">17352 </span> 89/<- *edi 0/r32/eax -<span id="L17353" class="LineNr">17353 </span> <span class="subxComment"># var curr-byte/eax: byte = in->data[in->read]</span> -<span id="L17354" class="LineNr">17354 </span> 31/xor-with %eax 0/r32/eax -<span id="L17355" class="LineNr">17355 </span> 8a/copy-byte *(esi+ecx+0xc) 0/r32/AL -<span id="L17356" class="LineNr">17356 </span> { -<span id="L17357" class="LineNr">17357 </span><span class="Constant">$next-mu-token:check-for-comma</span>: -<span id="L17358" class="LineNr">17358 </span> <span class="subxComment"># if (curr-byte != ',') break</span> -<span id="L17359" class="LineNr">17359 </span> 3d/compare-eax-and 0x2c/imm32/comma -<span id="L17360" class="LineNr">17360 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L17361" class="LineNr">17361 </span> <span class="subxComment"># ++in->read</span> -<span id="L17362" class="LineNr">17362 </span> ff 0/subop/increment *(esi+4) -<span id="L17363" class="LineNr">17363 </span> <span class="subxComment"># restart</span> -<span id="L17364" class="LineNr">17364 </span> e9/jump $next-mu-token:start/disp32 -<span id="L17365" class="LineNr">17365 </span> } -<span id="L17366" class="LineNr">17366 </span> { -<span id="L17367" class="LineNr">17367 </span><span class="Constant">$next-mu-token:check-for-comment</span>: -<span id="L17368" class="LineNr">17368 </span> <span class="subxComment"># if (curr-byte != '#') break</span> -<span id="L17369" class="LineNr">17369 </span> 3d/compare-eax-and 0x23/imm32/pound -<span id="L17370" class="LineNr">17370 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L17371" class="LineNr">17371 </span> <span class="subxComment"># return eof</span> -<span id="L17372" class="LineNr">17372 </span> e9/jump $next-mu-token:done/disp32 -<span id="L17373" class="LineNr">17373 </span> } -<span id="L17374" class="LineNr">17374 </span> { -<span id="L17375" class="LineNr">17375 </span><span class="Constant">$next-mu-token:check-for-string-literal</span>: -<span id="L17376" class="LineNr">17376 </span> <span class="subxComment"># if (curr-byte != '"') break</span> -<span id="L17377" class="LineNr">17377 </span> 3d/compare-eax-and 0x22/imm32/dquote -<span id="L17378" class="LineNr">17378 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L17379" class="LineNr">17379 </span> (<a href='124next-token.subx.html#L1171'>skip-string</a> %esi) -<span id="L17380" class="LineNr">17380 </span> <span class="subxComment"># return</span> -<span id="L17381" class="LineNr">17381 </span> e9/jump $next-mu-token:done/disp32 -<span id="L17382" class="LineNr">17382 </span> } -<span id="L17383" class="LineNr">17383 </span> { -<span id="L17384" class="LineNr">17384 </span><span class="Constant">$next-mu-token:check-for-open-paren</span>: -<span id="L17385" class="LineNr">17385 </span> <span class="subxComment"># if (curr-byte != '(') break</span> -<span id="L17386" class="LineNr">17386 </span> 3d/compare-eax-and 0x28/imm32/open-paren -<span id="L17387" class="LineNr">17387 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L17388" class="LineNr">17388 </span> <span class="subxComment"># ++in->read</span> -<span id="L17389" class="LineNr">17389 </span> ff 0/subop/increment *(esi+4) -<span id="L17390" class="LineNr">17390 </span> <span class="subxComment"># return</span> -<span id="L17391" class="LineNr">17391 </span> e9/jump $next-mu-token:done/disp32 -<span id="L17392" class="LineNr">17392 </span> } -<span id="L17393" class="LineNr">17393 </span> { -<span id="L17394" class="LineNr">17394 </span><span class="Constant">$next-mu-token:check-for-close-paren</span>: -<span id="L17395" class="LineNr">17395 </span> <span class="subxComment"># if (curr-byte != ')') break</span> -<span id="L17396" class="LineNr">17396 </span> 3d/compare-eax-and 0x29/imm32/close-paren -<span id="L17397" class="LineNr">17397 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L17398" class="LineNr">17398 </span> <span class="subxComment"># ++in->read</span> -<span id="L17399" class="LineNr">17399 </span> ff 0/subop/increment *(esi+4) -<span id="L17400" class="LineNr">17400 </span> <span class="subxComment"># return</span> -<span id="L17401" class="LineNr">17401 </span> e9/jump $next-mu-token:done/disp32 -<span id="L17402" class="LineNr">17402 </span> } -<span id="L17403" class="LineNr">17403 </span> { -<span id="L17404" class="LineNr">17404 </span><span class="Constant">$next-mu-token:regular-word-without-metadata</span>: -<span id="L17405" class="LineNr">17405 </span> <span class="subxComment"># if (in->read >= in->write) break</span> -<span id="L17406" class="LineNr">17406 </span> <span class="subxS1Comment"># . ecx = in->read</span> -<span id="L17407" class="LineNr">17407 </span> 8b/-> *(esi+4) 1/r32/ecx -<span id="L17408" class="LineNr">17408 </span> <span class="subxS1Comment"># . if (ecx >= in->write) break</span> -<span id="L17409" class="LineNr">17409 </span> 3b/compare<- *esi 1/r32/ecx -<span id="L17410" class="LineNr">17410 </span> 7d/jump-if->= <span class="Constant">break</span>/disp8 -<span id="L17411" class="LineNr">17411 </span> <span class="subxComment"># var c/eax: byte = in->data[in->read]</span> -<span id="L17412" class="LineNr">17412 </span> 31/xor-with %eax 0/r32/eax -<span id="L17413" class="LineNr">17413 </span> 8a/copy-byte *(esi+ecx+0xc) 0/r32/AL -<span id="L17414" class="LineNr">17414 </span> <span class="subxComment"># if (c == ' ') break</span> -<span id="L17415" class="LineNr">17415 </span> 3d/compare-eax-and 0x20/imm32/space -<span id="L17416" class="LineNr">17416 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L17417" class="LineNr">17417 </span> <span class="subxComment"># if (c == '\r') break</span> -<span id="L17418" class="LineNr">17418 </span> 3d/compare-eax-and 0xd/imm32/carriage-return -<span id="L17419" class="LineNr">17419 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L17420" class="LineNr">17420 </span> <span class="subxComment"># if (c == '\n') break</span> -<span id="L17421" class="LineNr">17421 </span> 3d/compare-eax-and 0xa/imm32/newline -<span id="L17422" class="LineNr">17422 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L17423" class="LineNr">17423 </span> <span class="subxComment"># if (c == '(') break</span> -<span id="L17424" class="LineNr">17424 </span> 3d/compare-eax-and 0x28/imm32/open-paren -<span id="L17425" class="LineNr">17425 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L17426" class="LineNr">17426 </span> <span class="subxComment"># if (c == ')') break</span> -<span id="L17427" class="LineNr">17427 </span> 3d/compare-eax-and 0x29/imm32/close-paren -<span id="L17428" class="LineNr">17428 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L17429" class="LineNr">17429 </span> <span class="subxComment"># if (c == ',') break</span> -<span id="L17430" class="LineNr">17430 </span> 3d/compare-eax-and 0x2c/imm32/comma -<span id="L17431" class="LineNr">17431 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L17432" class="LineNr">17432 </span> <span class="subxComment"># ++in->read</span> -<span id="L17433" class="LineNr">17433 </span> ff 0/subop/increment *(esi+4) -<span id="L17434" class="LineNr">17434 </span> <span class="subxComment">#</span> -<span id="L17435" class="LineNr">17435 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L17436" class="LineNr">17436 </span> } -<span id="L17437" class="LineNr">17437 </span><span class="Constant">$next-mu-token:done</span>: -<span id="L17438" class="LineNr">17438 </span> <span class="subxComment"># out->end = &in->data[in->read]</span> -<span id="L17439" class="LineNr">17439 </span> 8b/-> *(esi+4) 1/r32/ecx -<span id="L17440" class="LineNr">17440 </span> 8d/copy-address *(esi+ecx+0xc) 0/r32/eax -<span id="L17441" class="LineNr">17441 </span> 89/<- *(edi+4) 0/r32/eax -<span id="L17442" class="LineNr">17442 </span><span class="Constant">$next-mu-token:end</span>: -<span id="L17443" class="LineNr">17443 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L17444" class="LineNr">17444 </span> 5f/pop-to-edi -<span id="L17445" class="LineNr">17445 </span> 5e/pop-to-esi -<span id="L17446" class="LineNr">17446 </span> 59/pop-to-ecx -<span id="L17447" class="LineNr">17447 </span> 58/pop-to-eax -<span id="L17448" class="LineNr">17448 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17449" class="LineNr">17449 </span> 89/<- %esp 5/r32/ebp -<span id="L17450" class="LineNr">17450 </span> 5d/pop-to-ebp -<span id="L17451" class="LineNr">17451 </span> c3/return -<span id="L17452" class="LineNr">17452 </span> -<span id="L17453" class="LineNr">17453 </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="L17454" class="LineNr">17454 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17455" class="LineNr">17455 </span> 55/push-ebp -<span id="L17456" class="LineNr">17456 </span> 89/<- %ebp 4/r32/esp -<span id="L17457" class="LineNr">17457 </span> <span class="subxComment"># if (pos-slice(arr, s) != -1) return it</span> -<span id="L17458" class="LineNr">17458 </span> (<a href='mu.subx.html#L17481'>pos-slice</a> *(ebp+8) *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L17459" class="LineNr">17459 </span> 3d/compare-eax-and -1/imm32 -<span id="L17460" class="LineNr">17460 </span> 75/jump-if-!= $pos-or-insert-slice:end/disp8 -<span id="L17461" class="LineNr">17461 </span><span class="Constant">$pos-or-insert-slice:insert</span>: -<span id="L17462" class="LineNr">17462 </span> <span class="subxComment"># var s2/eax: (handle array byte)</span> -<span id="L17463" class="LineNr">17463 </span> 68/push 0/imm32 -<span id="L17464" class="LineNr">17464 </span> 68/push 0/imm32 -<span id="L17465" class="LineNr">17465 </span> 89/<- %eax 4/r32/esp -<span id="L17466" class="LineNr">17466 </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="L17467" class="LineNr">17467 </span> <span class="subxComment"># throw away alloc-id</span> -<span id="L17468" class="LineNr">17468 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L17469" class="LineNr">17469 </span> (<a href='202write-int.subx.html#L8'>write-int</a> *(ebp+8) %eax) -<span id="L17470" class="LineNr">17470 </span> (<a href='mu.subx.html#L17481'>pos-slice</a> *(ebp+8) *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L17471" class="LineNr">17471 </span><span class="Constant">$pos-or-insert-slice:end</span>: -<span id="L17472" class="LineNr">17472 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L17473" class="LineNr">17473 </span> 81 0/subop/add %esp 8/imm32 -<span id="L17474" class="LineNr">17474 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17475" class="LineNr">17475 </span> 89/<- %esp 5/r32/ebp -<span id="L17476" class="LineNr">17476 </span> 5d/pop-to-ebp -<span id="L17477" class="LineNr">17477 </span> c3/return -<span id="L17478" class="LineNr">17478 </span> -<span id="L17479" class="LineNr">17479 </span><span class="subxComment"># return the index in an array of strings matching 's', -1 if not found</span> -<span id="L17480" class="LineNr">17480 </span><span class="subxComment"># index is denominated in elements, not bytes</span> -<span id="L17481" class="LineNr">17481 </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="L17482" class="LineNr">17482 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17483" class="LineNr">17483 </span> 55/push-ebp -<span id="L17484" class="LineNr">17484 </span> 89/<- %ebp 4/r32/esp -<span id="L17485" class="LineNr">17485 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L17486" class="LineNr">17486 </span> 51/push-ecx -<span id="L17487" class="LineNr">17487 </span> 52/push-edx -<span id="L17488" class="LineNr">17488 </span> 53/push-ebx -<span id="L17489" class="LineNr">17489 </span> 56/push-esi -<span id="L17490" class="LineNr">17490 </span><span class="CommentedCode">#? (write-buffered Stderr "pos-slice: ")</span> -<span id="L17491" class="LineNr">17491 </span><span class="CommentedCode">#? (write-slice-buffered Stderr *(ebp+0xc))</span> -<span id="L17492" class="LineNr">17492 </span><span class="CommentedCode">#? (write-buffered Stderr "\n")</span> -<span id="L17493" class="LineNr">17493 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L17494" class="LineNr">17494 </span> <span class="subxComment"># esi = arr</span> -<span id="L17495" class="LineNr">17495 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L17496" class="LineNr">17496 </span> <span class="subxComment"># var index/ecx: int = 0</span> -<span id="L17497" class="LineNr">17497 </span> b9/copy-to-ecx 0/imm32 -<span id="L17498" class="LineNr">17498 </span> <span class="subxComment"># var curr/edx: (addr (addr array byte)) = arr->data</span> -<span id="L17499" class="LineNr">17499 </span> 8d/copy-address *(esi+0xc) 2/r32/edx -<span id="L17500" class="LineNr">17500 </span> <span class="subxComment"># var max/ebx: (addr (addr array byte)) = &arr->data[arr->write]</span> -<span id="L17501" class="LineNr">17501 </span> 8b/-> *esi 3/r32/ebx -<span id="L17502" class="LineNr">17502 </span> 8d/copy-address *(esi+ebx+0xc) 3/r32/ebx -<span id="L17503" class="LineNr">17503 </span> { -<span id="L17504" class="LineNr">17504 </span><span class="CommentedCode">#? (write-buffered Stderr " ")</span> -<span id="L17505" class="LineNr">17505 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ecx)</span> -<span id="L17506" class="LineNr">17506 </span><span class="CommentedCode">#? (write-buffered Stderr "\n")</span> -<span id="L17507" class="LineNr">17507 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L17508" class="LineNr">17508 </span> <span class="subxComment"># if (curr >= max) return -1</span> -<span id="L17509" class="LineNr">17509 </span> 39/compare %edx 3/r32/ebx -<span id="L17510" class="LineNr">17510 </span> b8/copy-to-eax -1/imm32 -<span id="L17511" class="LineNr">17511 </span> 73/jump-if-addr>= $pos-slice:end/disp8 -<span id="L17512" class="LineNr">17512 </span> <span class="subxComment"># if (slice-equal?(s, *curr)) break</span> -<span id="L17513" class="LineNr">17513 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> *(ebp+0xc) *edx) <span class="subxComment"># => eax</span> -<span id="L17514" class="LineNr">17514 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17515" class="LineNr">17515 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L17516" class="LineNr">17516 </span> <span class="subxComment"># ++index</span> -<span id="L17517" class="LineNr">17517 </span> 41/increment-ecx -<span id="L17518" class="LineNr">17518 </span> <span class="subxComment"># curr += 4</span> -<span id="L17519" class="LineNr">17519 </span> 81 0/subop/add %edx 4/imm32 -<span id="L17520" class="LineNr">17520 </span> <span class="subxComment">#</span> -<span id="L17521" class="LineNr">17521 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L17522" class="LineNr">17522 </span> } -<span id="L17523" class="LineNr">17523 </span> <span class="subxComment"># return index</span> -<span id="L17524" class="LineNr">17524 </span> 89/<- %eax 1/r32/ecx -<span id="L17525" class="LineNr">17525 </span><span class="Constant">$pos-slice:end</span>: -<span id="L17526" class="LineNr">17526 </span><span class="CommentedCode">#? (write-buffered Stderr "=> ")</span> -<span id="L17527" class="LineNr">17527 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L17528" class="LineNr">17528 </span><span class="CommentedCode">#? (write-buffered Stderr "\n")</span> -<span id="L17529" class="LineNr">17529 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L17530" class="LineNr">17530 </span> 5e/pop-to-esi -<span id="L17531" class="LineNr">17531 </span> 5b/pop-to-ebx -<span id="L17532" class="LineNr">17532 </span> 5a/pop-to-edx -<span id="L17533" class="LineNr">17533 </span> 59/pop-to-ecx -<span id="L17534" class="LineNr">17534 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17535" class="LineNr">17535 </span> 89/<- %esp 5/r32/ebp -<span id="L17536" class="LineNr">17536 </span> 5d/pop-to-ebp -<span id="L17537" class="LineNr">17537 </span> c3/return -<span id="L17538" class="LineNr">17538 </span> -<span id="L17539" class="LineNr">17539 </span><span class="subxTest">test-parse-var-with-type</span>: -<span id="L17540" class="LineNr">17540 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17541" class="LineNr">17541 </span> 55/push-ebp -<span id="L17542" class="LineNr">17542 </span> 89/<- %ebp 4/r32/esp -<span id="L17543" class="LineNr">17543 </span> <span class="subxComment"># setup</span> -<span id="L17544" class="LineNr">17544 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L17545" class="LineNr">17545 </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="L17546" class="LineNr">17546 </span> <span class="subxComment"># (eax..ecx) = "x:"</span> -<span id="L17547" class="LineNr">17547 </span> b8/copy-to-eax <span class="Constant">"x:"</span>/imm32 -<span id="L17548" class="LineNr">17548 </span> 8b/-> *eax 1/r32/ecx -<span id="L17549" class="LineNr">17549 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L17550" class="LineNr">17550 </span> 05/add-to-eax 4/imm32 -<span id="L17551" class="LineNr">17551 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L17552" class="LineNr">17552 </span> 51/push-ecx -<span id="L17553" class="LineNr">17553 </span> 50/push-eax -<span id="L17554" class="LineNr">17554 </span> 89/<- %ecx 4/r32/esp -<span id="L17555" class="LineNr">17555 </span> <span class="subxComment"># _test-input-stream contains "int"</span> -<span id="L17556" class="LineNr">17556 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L17557" class="LineNr">17557 </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="L17558" class="LineNr">17558 </span> <span class="subxComment"># var v/edx: (handle var)</span> -<span id="L17559" class="LineNr">17559 </span> 68/push 0/imm32 -<span id="L17560" class="LineNr">17560 </span> 68/push 0/imm32 -<span id="L17561" class="LineNr">17561 </span> 89/<- %edx 4/r32/esp -<span id="L17562" class="LineNr">17562 </span> <span class="subxComment">#</span> -<span id="L17563" class="LineNr">17563 </span> (<a href='mu.subx.html#L16928'>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="L17564" class="LineNr">17564 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> -<span id="L17565" class="LineNr">17565 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L17566" class="LineNr">17566 </span> 89/<- %edx 0/r32/eax -<span id="L17567" class="LineNr">17567 </span> <span class="subxComment"># check v-addr->name</span> -<span id="L17568" class="LineNr">17568 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L17569" class="LineNr">17569 </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#L17539'>test-parse-var-with-type</a>/name"</span>) -<span id="L17570" class="LineNr">17570 </span> <span class="subxComment"># check v-addr->type</span> -<span id="L17571" class="LineNr">17571 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L17572" class="LineNr">17572 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L17539'>test-parse-var-with-type</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L17573" class="LineNr">17573 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L17539'>test-parse-var-with-type</a>/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L17574" class="LineNr">17574 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L17539'>test-parse-var-with-type</a>/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L17575" class="LineNr">17575 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17576" class="LineNr">17576 </span> 89/<- %esp 5/r32/ebp -<span id="L17577" class="LineNr">17577 </span> 5d/pop-to-ebp -<span id="L17578" class="LineNr">17578 </span> c3/return -<span id="L17579" class="LineNr">17579 </span> -<span id="L17580" class="LineNr">17580 </span><span class="subxTest">test-parse-var-with-type-and-register</span>: -<span id="L17581" class="LineNr">17581 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17582" class="LineNr">17582 </span> 55/push-ebp -<span id="L17583" class="LineNr">17583 </span> 89/<- %ebp 4/r32/esp -<span id="L17584" class="LineNr">17584 </span> <span class="subxComment"># setup</span> -<span id="L17585" class="LineNr">17585 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L17586" class="LineNr">17586 </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="L17587" class="LineNr">17587 </span> <span class="subxComment"># (eax..ecx) = "x/eax:"</span> -<span id="L17588" class="LineNr">17588 </span> b8/copy-to-eax <span class="Constant">"x/eax:"</span>/imm32 -<span id="L17589" class="LineNr">17589 </span> 8b/-> *eax 1/r32/ecx -<span id="L17590" class="LineNr">17590 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L17591" class="LineNr">17591 </span> 05/add-to-eax 4/imm32 -<span id="L17592" class="LineNr">17592 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L17593" class="LineNr">17593 </span> 51/push-ecx -<span id="L17594" class="LineNr">17594 </span> 50/push-eax -<span id="L17595" class="LineNr">17595 </span> 89/<- %ecx 4/r32/esp -<span id="L17596" class="LineNr">17596 </span> <span class="subxComment"># _test-input-stream contains "int"</span> -<span id="L17597" class="LineNr">17597 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L17598" class="LineNr">17598 </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="L17599" class="LineNr">17599 </span> <span class="subxComment"># var v/edx: (handle var)</span> -<span id="L17600" class="LineNr">17600 </span> 68/push 0/imm32 -<span id="L17601" class="LineNr">17601 </span> 68/push 0/imm32 -<span id="L17602" class="LineNr">17602 </span> 89/<- %edx 4/r32/esp -<span id="L17603" class="LineNr">17603 </span> <span class="subxComment">#</span> -<span id="L17604" class="LineNr">17604 </span> (<a href='mu.subx.html#L16928'>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="L17605" class="LineNr">17605 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> -<span id="L17606" class="LineNr">17606 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L17607" class="LineNr">17607 </span> 89/<- %edx 0/r32/eax -<span id="L17608" class="LineNr">17608 </span> <span class="subxComment"># check v-addr->name</span> -<span id="L17609" class="LineNr">17609 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L17610" class="LineNr">17610 </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#L17580'>test-parse-var-with-type-and-register</a>/name"</span>) -<span id="L17611" class="LineNr">17611 </span> <span class="subxComment"># check v-addr->register</span> -<span id="L17612" class="LineNr">17612 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L17613" class="LineNr">17613 </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#L17580'>test-parse-var-with-type-and-register</a>/register"</span>) -<span id="L17614" class="LineNr">17614 </span> <span class="subxComment"># check v-addr->type</span> -<span id="L17615" class="LineNr">17615 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L17616" class="LineNr">17616 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L17580'>test-parse-var-with-type-and-register</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L17617" class="LineNr">17617 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L17580'>test-parse-var-with-type-and-register</a>/type:1"</span>) <span class="subxComment"># Type-tree-left</span> -<span id="L17618" class="LineNr">17618 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L17580'>test-parse-var-with-type-and-register</a>/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L17619" class="LineNr">17619 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17620" class="LineNr">17620 </span> 89/<- %esp 5/r32/ebp -<span id="L17621" class="LineNr">17621 </span> 5d/pop-to-ebp -<span id="L17622" class="LineNr">17622 </span> c3/return -<span id="L17623" class="LineNr">17623 </span> -<span id="L17624" class="LineNr">17624 </span><span class="subxTest">test-parse-var-with-trailing-characters</span>: -<span id="L17625" class="LineNr">17625 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17626" class="LineNr">17626 </span> 55/push-ebp -<span id="L17627" class="LineNr">17627 </span> 89/<- %ebp 4/r32/esp -<span id="L17628" class="LineNr">17628 </span> <span class="subxComment"># setup</span> -<span id="L17629" class="LineNr">17629 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L17630" class="LineNr">17630 </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="L17631" class="LineNr">17631 </span> <span class="subxComment"># (eax..ecx) = "x:"</span> -<span id="L17632" class="LineNr">17632 </span> b8/copy-to-eax <span class="Constant">"x:"</span>/imm32 -<span id="L17633" class="LineNr">17633 </span> 8b/-> *eax 1/r32/ecx -<span id="L17634" class="LineNr">17634 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L17635" class="LineNr">17635 </span> 05/add-to-eax 4/imm32 -<span id="L17636" class="LineNr">17636 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L17637" class="LineNr">17637 </span> 51/push-ecx -<span id="L17638" class="LineNr">17638 </span> 50/push-eax -<span id="L17639" class="LineNr">17639 </span> 89/<- %ecx 4/r32/esp -<span id="L17640" class="LineNr">17640 </span> <span class="subxComment"># _test-input-stream contains "int,"</span> -<span id="L17641" class="LineNr">17641 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L17642" class="LineNr">17642 </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="L17643" class="LineNr">17643 </span> <span class="subxComment"># var v/edx: (handle var)</span> -<span id="L17644" class="LineNr">17644 </span> 68/push 0/imm32 -<span id="L17645" class="LineNr">17645 </span> 68/push 0/imm32 -<span id="L17646" class="LineNr">17646 </span> 89/<- %edx 4/r32/esp -<span id="L17647" class="LineNr">17647 </span> <span class="subxComment">#</span> -<span id="L17648" class="LineNr">17648 </span> (<a href='mu.subx.html#L16928'>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="L17649" class="LineNr">17649 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> -<span id="L17650" class="LineNr">17650 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L17651" class="LineNr">17651 </span> 89/<- %edx 0/r32/eax -<span id="L17652" class="LineNr">17652 </span> <span class="subxComment"># check v-addr->name</span> -<span id="L17653" class="LineNr">17653 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L17654" class="LineNr">17654 </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#L17624'>test-parse-var-with-trailing-characters</a>/name"</span>) -<span id="L17655" class="LineNr">17655 </span> <span class="subxComment"># check v-addr->register</span> -<span id="L17656" class="LineNr">17656 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+0x18) 0 <span class="Constant">"F - <a href='mu.subx.html#L17624'>test-parse-var-with-trailing-characters</a>/register"</span>) <span class="subxComment"># Var-register</span> -<span id="L17657" class="LineNr">17657 </span> <span class="subxComment"># check v-addr->type</span> -<span id="L17658" class="LineNr">17658 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L17659" class="LineNr">17659 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L17624'>test-parse-var-with-trailing-characters</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L17660" class="LineNr">17660 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L17624'>test-parse-var-with-trailing-characters</a>/type:1"</span>) <span class="subxComment"># Type-tree-left</span> -<span id="L17661" class="LineNr">17661 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L17624'>test-parse-var-with-trailing-characters</a>/type:1"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L17662" class="LineNr">17662 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17663" class="LineNr">17663 </span> 89/<- %esp 5/r32/ebp -<span id="L17664" class="LineNr">17664 </span> 5d/pop-to-ebp -<span id="L17665" class="LineNr">17665 </span> c3/return -<span id="L17666" class="LineNr">17666 </span> -<span id="L17667" class="LineNr">17667 </span><span class="subxTest">test-parse-var-with-register-and-trailing-characters</span>: -<span id="L17668" class="LineNr">17668 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17669" class="LineNr">17669 </span> 55/push-ebp -<span id="L17670" class="LineNr">17670 </span> 89/<- %ebp 4/r32/esp -<span id="L17671" class="LineNr">17671 </span> <span class="subxComment"># setup</span> -<span id="L17672" class="LineNr">17672 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L17673" class="LineNr">17673 </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="L17674" class="LineNr">17674 </span> <span class="subxComment"># (eax..ecx) = "x/eax:"</span> -<span id="L17675" class="LineNr">17675 </span> b8/copy-to-eax <span class="Constant">"x/eax:"</span>/imm32 -<span id="L17676" class="LineNr">17676 </span> 8b/-> *eax 1/r32/ecx -<span id="L17677" class="LineNr">17677 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L17678" class="LineNr">17678 </span> 05/add-to-eax 4/imm32 -<span id="L17679" class="LineNr">17679 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L17680" class="LineNr">17680 </span> 51/push-ecx -<span id="L17681" class="LineNr">17681 </span> 50/push-eax -<span id="L17682" class="LineNr">17682 </span> 89/<- %ecx 4/r32/esp -<span id="L17683" class="LineNr">17683 </span> <span class="subxComment"># _test-input-stream contains "int,"</span> -<span id="L17684" class="LineNr">17684 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L17685" class="LineNr">17685 </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="L17686" class="LineNr">17686 </span> <span class="subxComment"># var v/edx: (handle var)</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> 89/<- %edx 4/r32/esp -<span id="L17690" class="LineNr">17690 </span> <span class="subxComment">#</span> -<span id="L17691" class="LineNr">17691 </span> (<a href='mu.subx.html#L16928'>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="L17692" class="LineNr">17692 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> -<span id="L17693" class="LineNr">17693 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L17694" class="LineNr">17694 </span> 89/<- %edx 0/r32/eax -<span id="L17695" class="LineNr">17695 </span> <span class="subxComment"># check v-addr->name</span> -<span id="L17696" class="LineNr">17696 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L17697" class="LineNr">17697 </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#L17667'>test-parse-var-with-register-and-trailing-characters</a>/name"</span>) -<span id="L17698" class="LineNr">17698 </span> <span class="subxComment"># check v-addr->register</span> -<span id="L17699" class="LineNr">17699 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L17700" class="LineNr">17700 </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#L17667'>test-parse-var-with-register-and-trailing-characters</a>/register"</span>) -<span id="L17701" class="LineNr">17701 </span> <span class="subxComment"># check v-addr->type</span> -<span id="L17702" class="LineNr">17702 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L17703" class="LineNr">17703 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L17667'>test-parse-var-with-register-and-trailing-characters</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L17704" class="LineNr">17704 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L17667'>test-parse-var-with-register-and-trailing-characters</a>/type:1"</span>) <span class="subxComment"># Type-tree-left</span> -<span id="L17705" class="LineNr">17705 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L17667'>test-parse-var-with-register-and-trailing-characters</a>/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L17706" class="LineNr">17706 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17707" class="LineNr">17707 </span> 89/<- %esp 5/r32/ebp -<span id="L17708" class="LineNr">17708 </span> 5d/pop-to-ebp -<span id="L17709" class="LineNr">17709 </span> c3/return -<span id="L17710" class="LineNr">17710 </span> -<span id="L17711" class="LineNr">17711 </span><span class="subxTest">test-parse-var-with-compound-type</span>: -<span id="L17712" class="LineNr">17712 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17713" class="LineNr">17713 </span> 55/push-ebp -<span id="L17714" class="LineNr">17714 </span> 89/<- %ebp 4/r32/esp -<span id="L17715" class="LineNr">17715 </span> <span class="subxComment"># setup</span> -<span id="L17716" class="LineNr">17716 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L17717" class="LineNr">17717 </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="L17718" class="LineNr">17718 </span> <span class="subxComment"># (eax..ecx) = "x:"</span> -<span id="L17719" class="LineNr">17719 </span> b8/copy-to-eax <span class="Constant">"x:"</span>/imm32 -<span id="L17720" class="LineNr">17720 </span> 8b/-> *eax 1/r32/ecx -<span id="L17721" class="LineNr">17721 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L17722" class="LineNr">17722 </span> 05/add-to-eax 4/imm32 -<span id="L17723" class="LineNr">17723 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L17724" class="LineNr">17724 </span> 51/push-ecx -<span id="L17725" class="LineNr">17725 </span> 50/push-eax -<span id="L17726" class="LineNr">17726 </span> 89/<- %ecx 4/r32/esp -<span id="L17727" class="LineNr">17727 </span> <span class="subxComment"># _test-input-stream contains "(addr int)"</span> -<span id="L17728" class="LineNr">17728 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L17729" class="LineNr">17729 </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="L17730" class="LineNr">17730 </span> <span class="subxComment"># var v/edx: (handle var)</span> -<span id="L17731" class="LineNr">17731 </span> 68/push 0/imm32 -<span id="L17732" class="LineNr">17732 </span> 68/push 0/imm32 -<span id="L17733" class="LineNr">17733 </span> 89/<- %edx 4/r32/esp -<span id="L17734" class="LineNr">17734 </span> <span class="subxComment">#</span> -<span id="L17735" class="LineNr">17735 </span> (<a href='mu.subx.html#L16928'>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="L17736" class="LineNr">17736 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> -<span id="L17737" class="LineNr">17737 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L17738" class="LineNr">17738 </span> 89/<- %edx 0/r32/eax -<span id="L17739" class="LineNr">17739 </span> <span class="subxComment"># check v-addr->name</span> -<span id="L17740" class="LineNr">17740 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L17741" class="LineNr">17741 </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#L17711'>test-parse-var-with-compound-type</a>/name"</span>) -<span id="L17742" class="LineNr">17742 </span> <span class="subxComment"># check v-addr->register</span> -<span id="L17743" class="LineNr">17743 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+0x18) 0 <span class="Constant">"F - <a href='mu.subx.html#L17711'>test-parse-var-with-compound-type</a>/register"</span>) <span class="subxComment"># Var-register</span> -<span id="L17744" class="LineNr">17744 </span> <span class="subxH1Comment"># - check v-addr->type</span> -<span id="L17745" class="LineNr">17745 </span> <span class="subxComment"># var type/edx: (addr type-tree) = var->type</span> -<span id="L17746" class="LineNr">17746 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L17747" class="LineNr">17747 </span> 89/<- %edx 0/r32/eax -<span id="L17748" class="LineNr">17748 </span> <span class="subxComment"># type is a non-atom</span> -<span id="L17749" class="LineNr">17749 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *edx 0 <span class="Constant">"F - <a href='mu.subx.html#L17711'>test-parse-var-with-compound-type</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L17750" class="LineNr">17750 </span> <span class="subxComment"># type->left == atom(addr)</span> -<span id="L17751" class="LineNr">17751 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L17752" class="LineNr">17752 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L17711'>test-parse-var-with-compound-type</a>/type:1"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L17753" class="LineNr">17753 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L17711'>test-parse-var-with-compound-type</a>/type:2"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L17754" class="LineNr">17754 </span> <span class="subxComment"># type->right->left == atom(int)</span> -<span id="L17755" class="LineNr">17755 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0xc) *(edx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L17756" class="LineNr">17756 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L17757" class="LineNr">17757 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L17711'>test-parse-var-with-compound-type</a>/type:3"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L17758" class="LineNr">17758 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L17711'>test-parse-var-with-compound-type</a>/type:4"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L17759" class="LineNr">17759 </span> <span class="subxComment"># type->right->right == null</span> -<span id="L17760" class="LineNr">17760 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L17711'>test-parse-var-with-compound-type</a>/type:5"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L17761" class="LineNr">17761 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17762" class="LineNr">17762 </span> 89/<- %esp 5/r32/ebp -<span id="L17763" class="LineNr">17763 </span> 5d/pop-to-ebp -<span id="L17764" class="LineNr">17764 </span> c3/return -<span id="L17765" class="LineNr">17765 </span> -<span id="L17766" class="LineNr">17766 </span><span class="subxComment"># identifier starts with a letter or '$' or '_'</span> -<span id="L17767" class="LineNr">17767 </span><span class="subxComment"># no constraints at the moment on later letters</span> -<span id="L17768" class="LineNr">17768 </span><span class="subxComment"># all we really want to do so far is exclude '{', '}' and '->'</span> -<span id="L17769" class="LineNr">17769 </span><span class="subxFunction">identifier?</span>: <span class="subxComment"># in: (addr slice) -> result/eax: boolean</span> -<span id="L17770" class="LineNr">17770 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17771" class="LineNr">17771 </span> 55/push-ebp -<span id="L17772" class="LineNr">17772 </span> 89/<- %ebp 4/r32/esp -<span id="L17773" class="LineNr">17773 </span> <span class="subxComment"># if (slice-empty?(in)) return false</span> -<span id="L17774" class="LineNr">17774 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L17775" class="LineNr">17775 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17776" class="LineNr">17776 </span> 75/jump-if-!= $identifier?:false/disp8 -<span id="L17777" class="LineNr">17777 </span> <span class="subxComment"># var c/eax: byte = *in->start</span> -<span id="L17778" class="LineNr">17778 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L17779" class="LineNr">17779 </span> 8b/-> *eax 0/r32/eax -<span id="L17780" class="LineNr">17780 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L17781" class="LineNr">17781 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L17782" class="LineNr">17782 </span> <span class="subxComment"># if (c == '$') return true</span> -<span id="L17783" class="LineNr">17783 </span> 3d/compare-eax-and 0x24/imm32/$ -<span id="L17784" class="LineNr">17784 </span> 74/jump-if-= $identifier?:true/disp8 -<span id="L17785" class="LineNr">17785 </span> <span class="subxComment"># if (c == '_') return true</span> -<span id="L17786" class="LineNr">17786 </span> 3d/compare-eax-and 0x5f/imm32/_ -<span id="L17787" class="LineNr">17787 </span> 74/jump-if-= $identifier?:true/disp8 -<span id="L17788" class="LineNr">17788 </span> <span class="subxComment"># drop case</span> -<span id="L17789" class="LineNr">17789 </span> 25/and-eax-with 0x5f/imm32 -<span id="L17790" class="LineNr">17790 </span> <span class="subxComment"># if (c < 'A') return false</span> -<span id="L17791" class="LineNr">17791 </span> 3d/compare-eax-and 0x41/imm32/A -<span id="L17792" class="LineNr">17792 </span> 7c/jump-if-< $identifier?:false/disp8 -<span id="L17793" class="LineNr">17793 </span> <span class="subxComment"># if (c > 'Z') return false</span> -<span id="L17794" class="LineNr">17794 </span> 3d/compare-eax-and 0x5a/imm32/Z -<span id="L17795" class="LineNr">17795 </span> 7f/jump-if-> $identifier?:false/disp8 -<span id="L17796" class="LineNr">17796 </span> <span class="subxComment"># otherwise return true</span> -<span id="L17797" class="LineNr">17797 </span><span class="Constant">$identifier?:true</span>: -<span id="L17798" class="LineNr">17798 </span> b8/copy-to-eax 1/imm32/true -<span id="L17799" class="LineNr">17799 </span> eb/jump $identifier?:end/disp8 -<span id="L17800" class="LineNr">17800 </span><span class="Constant">$identifier?:false</span>: -<span id="L17801" class="LineNr">17801 </span> b8/copy-to-eax 0/imm32/false -<span id="L17802" class="LineNr">17802 </span><span class="Constant">$identifier?:end</span>: -<span id="L17803" class="LineNr">17803 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17804" class="LineNr">17804 </span> 89/<- %esp 5/r32/ebp -<span id="L17805" class="LineNr">17805 </span> 5d/pop-to-ebp -<span id="L17806" class="LineNr">17806 </span> c3/return -<span id="L17807" class="LineNr">17807 </span> -<span id="L17808" class="LineNr">17808 </span><span class="subxTest">test-is-identifier-dollar</span>: -<span id="L17809" class="LineNr">17809 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17810" class="LineNr">17810 </span> 55/push-ebp -<span id="L17811" class="LineNr">17811 </span> 89/<- %ebp 4/r32/esp -<span id="L17812" class="LineNr">17812 </span> <span class="subxComment"># (eax..ecx) = "$a"</span> -<span id="L17813" class="LineNr">17813 </span> b8/copy-to-eax <span class="Constant">"$a"</span>/imm32 -<span id="L17814" class="LineNr">17814 </span> 8b/-> *eax 1/r32/ecx -<span id="L17815" class="LineNr">17815 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L17816" class="LineNr">17816 </span> 05/add-to-eax 4/imm32 -<span id="L17817" class="LineNr">17817 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L17818" class="LineNr">17818 </span> 51/push-ecx -<span id="L17819" class="LineNr">17819 </span> 50/push-eax -<span id="L17820" class="LineNr">17820 </span> 89/<- %ecx 4/r32/esp -<span id="L17821" class="LineNr">17821 </span> <span class="subxComment">#</span> -<span id="L17822" class="LineNr">17822 </span> (<a href='mu.subx.html#L17769'>identifier?</a> %ecx) -<span id="L17823" class="LineNr">17823 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-dollar"</span>) -<span id="L17824" class="LineNr">17824 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17825" class="LineNr">17825 </span> 89/<- %esp 5/r32/ebp -<span id="L17826" class="LineNr">17826 </span> 5d/pop-to-ebp -<span id="L17827" class="LineNr">17827 </span> c3/return -<span id="L17828" class="LineNr">17828 </span> -<span id="L17829" class="LineNr">17829 </span><span class="subxTest">test-is-identifier-underscore</span>: -<span id="L17830" class="LineNr">17830 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17831" class="LineNr">17831 </span> 55/push-ebp -<span id="L17832" class="LineNr">17832 </span> 89/<- %ebp 4/r32/esp -<span id="L17833" class="LineNr">17833 </span> <span class="subxComment"># (eax..ecx) = "_a"</span> -<span id="L17834" class="LineNr">17834 </span> b8/copy-to-eax <span class="Constant">"_a"</span>/imm32 -<span id="L17835" class="LineNr">17835 </span> 8b/-> *eax 1/r32/ecx -<span id="L17836" class="LineNr">17836 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L17837" class="LineNr">17837 </span> 05/add-to-eax 4/imm32 -<span id="L17838" class="LineNr">17838 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L17839" class="LineNr">17839 </span> 51/push-ecx -<span id="L17840" class="LineNr">17840 </span> 50/push-eax -<span id="L17841" class="LineNr">17841 </span> 89/<- %ecx 4/r32/esp -<span id="L17842" class="LineNr">17842 </span> <span class="subxComment">#</span> -<span id="L17843" class="LineNr">17843 </span> (<a href='mu.subx.html#L17769'>identifier?</a> %ecx) -<span id="L17844" class="LineNr">17844 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-underscore"</span>) -<span id="L17845" class="LineNr">17845 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17846" class="LineNr">17846 </span> 89/<- %esp 5/r32/ebp -<span id="L17847" class="LineNr">17847 </span> 5d/pop-to-ebp -<span id="L17848" class="LineNr">17848 </span> c3/return -<span id="L17849" class="LineNr">17849 </span> -<span id="L17850" class="LineNr">17850 </span><span class="subxTest">test-is-identifier-a</span>: -<span id="L17851" class="LineNr">17851 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17852" class="LineNr">17852 </span> 55/push-ebp -<span id="L17853" class="LineNr">17853 </span> 89/<- %ebp 4/r32/esp -<span id="L17854" class="LineNr">17854 </span> <span class="subxComment"># (eax..ecx) = "a$"</span> -<span id="L17855" class="LineNr">17855 </span> b8/copy-to-eax <span class="Constant">"a$"</span>/imm32 -<span id="L17856" class="LineNr">17856 </span> 8b/-> *eax 1/r32/ecx -<span id="L17857" class="LineNr">17857 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L17858" class="LineNr">17858 </span> 05/add-to-eax 4/imm32 -<span id="L17859" class="LineNr">17859 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L17860" class="LineNr">17860 </span> 51/push-ecx -<span id="L17861" class="LineNr">17861 </span> 50/push-eax -<span id="L17862" class="LineNr">17862 </span> 89/<- %ecx 4/r32/esp -<span id="L17863" class="LineNr">17863 </span> <span class="subxComment">#</span> -<span id="L17864" class="LineNr">17864 </span> (<a href='mu.subx.html#L17769'>identifier?</a> %ecx) -<span id="L17865" class="LineNr">17865 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-a"</span>) -<span id="L17866" class="LineNr">17866 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17867" class="LineNr">17867 </span> 89/<- %esp 5/r32/ebp -<span id="L17868" class="LineNr">17868 </span> 5d/pop-to-ebp -<span id="L17869" class="LineNr">17869 </span> c3/return -<span id="L17870" class="LineNr">17870 </span> -<span id="L17871" class="LineNr">17871 </span><span class="subxTest">test-is-identifier-z</span>: -<span id="L17872" class="LineNr">17872 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17873" class="LineNr">17873 </span> 55/push-ebp -<span id="L17874" class="LineNr">17874 </span> 89/<- %ebp 4/r32/esp -<span id="L17875" class="LineNr">17875 </span> <span class="subxComment"># (eax..ecx) = "z$"</span> -<span id="L17876" class="LineNr">17876 </span> b8/copy-to-eax <span class="Constant">"z$"</span>/imm32 -<span id="L17877" class="LineNr">17877 </span> 8b/-> *eax 1/r32/ecx -<span id="L17878" class="LineNr">17878 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L17879" class="LineNr">17879 </span> 05/add-to-eax 4/imm32 -<span id="L17880" class="LineNr">17880 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L17881" class="LineNr">17881 </span> 51/push-ecx -<span id="L17882" class="LineNr">17882 </span> 50/push-eax -<span id="L17883" class="LineNr">17883 </span> 89/<- %ecx 4/r32/esp -<span id="L17884" class="LineNr">17884 </span> <span class="subxComment">#</span> -<span id="L17885" class="LineNr">17885 </span> (<a href='mu.subx.html#L17769'>identifier?</a> %ecx) -<span id="L17886" class="LineNr">17886 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-z"</span>) -<span id="L17887" class="LineNr">17887 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17888" class="LineNr">17888 </span> 89/<- %esp 5/r32/ebp -<span id="L17889" class="LineNr">17889 </span> 5d/pop-to-ebp -<span id="L17890" class="LineNr">17890 </span> c3/return -<span id="L17891" class="LineNr">17891 </span> -<span id="L17892" class="LineNr">17892 </span><span class="subxTest">test-is-identifier-A</span>: -<span id="L17893" class="LineNr">17893 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17894" class="LineNr">17894 </span> 55/push-ebp -<span id="L17895" class="LineNr">17895 </span> 89/<- %ebp 4/r32/esp -<span id="L17896" class="LineNr">17896 </span> <span class="subxComment"># (eax..ecx) = "A$"</span> -<span id="L17897" class="LineNr">17897 </span> b8/copy-to-eax <span class="Constant">"A$"</span>/imm32 -<span id="L17898" class="LineNr">17898 </span> 8b/-> *eax 1/r32/ecx -<span id="L17899" class="LineNr">17899 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L17900" class="LineNr">17900 </span> 05/add-to-eax 4/imm32 -<span id="L17901" class="LineNr">17901 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L17902" class="LineNr">17902 </span> 51/push-ecx -<span id="L17903" class="LineNr">17903 </span> 50/push-eax -<span id="L17904" class="LineNr">17904 </span> 89/<- %ecx 4/r32/esp -<span id="L17905" class="LineNr">17905 </span> <span class="subxComment">#</span> -<span id="L17906" class="LineNr">17906 </span> (<a href='mu.subx.html#L17769'>identifier?</a> %ecx) -<span id="L17907" class="LineNr">17907 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-A"</span>) -<span id="L17908" class="LineNr">17908 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17909" class="LineNr">17909 </span> 89/<- %esp 5/r32/ebp -<span id="L17910" class="LineNr">17910 </span> 5d/pop-to-ebp -<span id="L17911" class="LineNr">17911 </span> c3/return -<span id="L17912" class="LineNr">17912 </span> -<span id="L17913" class="LineNr">17913 </span><span class="subxTest">test-is-identifier-Z</span>: -<span id="L17914" class="LineNr">17914 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17915" class="LineNr">17915 </span> 55/push-ebp -<span id="L17916" class="LineNr">17916 </span> 89/<- %ebp 4/r32/esp -<span id="L17917" class="LineNr">17917 </span> <span class="subxComment"># (eax..ecx) = "Z$"</span> -<span id="L17918" class="LineNr">17918 </span> b8/copy-to-eax <span class="Constant">"Z$"</span>/imm32 -<span id="L17919" class="LineNr">17919 </span> 8b/-> *eax 1/r32/ecx -<span id="L17920" class="LineNr">17920 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L17921" class="LineNr">17921 </span> 05/add-to-eax 4/imm32 -<span id="L17922" class="LineNr">17922 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L17923" class="LineNr">17923 </span> 51/push-ecx -<span id="L17924" class="LineNr">17924 </span> 50/push-eax -<span id="L17925" class="LineNr">17925 </span> 89/<- %ecx 4/r32/esp -<span id="L17926" class="LineNr">17926 </span> <span class="subxComment">#</span> -<span id="L17927" class="LineNr">17927 </span> (<a href='mu.subx.html#L17769'>identifier?</a> %ecx) -<span id="L17928" class="LineNr">17928 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-Z"</span>) -<span id="L17929" class="LineNr">17929 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17930" class="LineNr">17930 </span> 89/<- %esp 5/r32/ebp -<span id="L17931" class="LineNr">17931 </span> 5d/pop-to-ebp -<span id="L17932" class="LineNr">17932 </span> c3/return -<span id="L17933" class="LineNr">17933 </span> -<span id="L17934" class="LineNr">17934 </span><span class="subxTest">test-is-identifier-at</span>: -<span id="L17935" class="LineNr">17935 </span> <span class="subxComment"># character before 'A' is invalid</span> +<span id="L17324" class="LineNr">17324 </span> <span class="subxComment"># goto done</span> +<span id="L17325" class="LineNr">17325 </span> <span class="subxComment"># if curr-byte == ')'</span> +<span id="L17326" class="LineNr">17326 </span> <span class="subxComment"># ++in->read</span> +<span id="L17327" class="LineNr">17327 </span> <span class="subxComment"># goto done</span> +<span id="L17328" class="LineNr">17328 </span> <span class="subxComment"># # read a word</span> +<span id="L17329" class="LineNr">17329 </span> <span class="subxComment"># while true</span> +<span id="L17330" class="LineNr">17330 </span> <span class="subxComment"># if in->read >= in->write</span> +<span id="L17331" class="LineNr">17331 </span> <span class="subxComment"># break</span> +<span id="L17332" class="LineNr">17332 </span> <span class="subxComment"># curr-byte = in->data[in->read]</span> +<span id="L17333" class="LineNr">17333 </span> <span class="subxComment"># if curr-byte == ' '</span> +<span id="L17334" class="LineNr">17334 </span> <span class="subxComment"># break</span> +<span id="L17335" class="LineNr">17335 </span> <span class="subxComment"># if curr-byte == '\r'</span> +<span id="L17336" class="LineNr">17336 </span> <span class="subxComment"># break</span> +<span id="L17337" class="LineNr">17337 </span> <span class="subxComment"># if curr-byte == '\n'</span> +<span id="L17338" class="LineNr">17338 </span> <span class="subxComment"># break</span> +<span id="L17339" class="LineNr">17339 </span> <span class="subxComment"># if curr-byte == '('</span> +<span id="L17340" class="LineNr">17340 </span> <span class="subxComment"># break</span> +<span id="L17341" class="LineNr">17341 </span> <span class="subxComment"># if curr-byte == ')'</span> +<span id="L17342" class="LineNr">17342 </span> <span class="subxComment"># break</span> +<span id="L17343" class="LineNr">17343 </span> <span class="subxComment"># if curr-byte == ','</span> +<span id="L17344" class="LineNr">17344 </span> <span class="subxComment"># break</span> +<span id="L17345" class="LineNr">17345 </span> <span class="subxComment"># ++in->read</span> +<span id="L17346" class="LineNr">17346 </span> <span class="subxComment"># done:</span> +<span id="L17347" class="LineNr">17347 </span> <span class="subxComment"># out->end = &in->data[in->read]</span> +<span id="L17348" class="LineNr">17348 </span> <span class="subxComment">#</span> +<span id="L17349" class="LineNr">17349 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17350" class="LineNr">17350 </span> 55/push-ebp +<span id="L17351" class="LineNr">17351 </span> 89/<- %ebp 4/r32/esp +<span id="L17352" class="LineNr">17352 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L17353" class="LineNr">17353 </span> 50/push-eax +<span id="L17354" class="LineNr">17354 </span> 51/push-ecx +<span id="L17355" class="LineNr">17355 </span> 56/push-esi +<span id="L17356" class="LineNr">17356 </span> 57/push-edi +<span id="L17357" class="LineNr">17357 </span> <span class="subxComment"># esi = in</span> +<span id="L17358" class="LineNr">17358 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L17359" class="LineNr">17359 </span> <span class="subxComment"># edi = out</span> +<span id="L17360" class="LineNr">17360 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L17361" class="LineNr">17361 </span><span class="Constant">$next-mu-token:start</span>: +<span id="L17362" class="LineNr">17362 </span> (<a href='124next-token.subx.html#L464'>skip-chars-matching-whitespace</a> %esi) +<span id="L17363" class="LineNr">17363 </span><span class="Constant">$next-mu-token:check0</span>: +<span id="L17364" class="LineNr">17364 </span> <span class="subxComment"># if (in->read >= in->write) return out = {0, 0}</span> +<span id="L17365" class="LineNr">17365 </span> <span class="subxS1Comment"># . ecx = in->read</span> +<span id="L17366" class="LineNr">17366 </span> 8b/-> *(esi+4) 1/r32/ecx +<span id="L17367" class="LineNr">17367 </span> <span class="subxS1Comment"># . if (ecx >= in->write) return out = {0, 0}</span> +<span id="L17368" class="LineNr">17368 </span> 3b/compare<- *esi 1/r32/ecx +<span id="L17369" class="LineNr">17369 </span> c7 0/subop/copy *edi 0/imm32 +<span id="L17370" class="LineNr">17370 </span> c7 0/subop/copy *(edi+4) 0/imm32 +<span id="L17371" class="LineNr">17371 </span> 0f 8d/jump-if->= $next-mu-token:end/disp32 +<span id="L17372" class="LineNr">17372 </span> <span class="subxComment"># out->start = &in->data[in->read]</span> +<span id="L17373" class="LineNr">17373 </span> 8d/copy-address *(esi+ecx+0xc) 0/r32/eax +<span id="L17374" class="LineNr">17374 </span> 89/<- *edi 0/r32/eax +<span id="L17375" class="LineNr">17375 </span> <span class="subxComment"># var curr-byte/eax: byte = in->data[in->read]</span> +<span id="L17376" class="LineNr">17376 </span> 31/xor-with %eax 0/r32/eax +<span id="L17377" class="LineNr">17377 </span> 8a/copy-byte *(esi+ecx+0xc) 0/r32/AL +<span id="L17378" class="LineNr">17378 </span> { +<span id="L17379" class="LineNr">17379 </span><span class="Constant">$next-mu-token:check-for-comma</span>: +<span id="L17380" class="LineNr">17380 </span> <span class="subxComment"># if (curr-byte != ',') break</span> +<span id="L17381" class="LineNr">17381 </span> 3d/compare-eax-and 0x2c/imm32/comma +<span id="L17382" class="LineNr">17382 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L17383" class="LineNr">17383 </span> <span class="subxComment"># ++in->read</span> +<span id="L17384" class="LineNr">17384 </span> ff 0/subop/increment *(esi+4) +<span id="L17385" class="LineNr">17385 </span> <span class="subxComment"># restart</span> +<span id="L17386" class="LineNr">17386 </span> e9/jump $next-mu-token:start/disp32 +<span id="L17387" class="LineNr">17387 </span> } +<span id="L17388" class="LineNr">17388 </span> { +<span id="L17389" class="LineNr">17389 </span><span class="Constant">$next-mu-token:check-for-comment</span>: +<span id="L17390" class="LineNr">17390 </span> <span class="subxComment"># if (curr-byte != '#') break</span> +<span id="L17391" class="LineNr">17391 </span> 3d/compare-eax-and 0x23/imm32/pound +<span id="L17392" class="LineNr">17392 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L17393" class="LineNr">17393 </span> <span class="subxComment"># return eof</span> +<span id="L17394" class="LineNr">17394 </span> e9/jump $next-mu-token:done/disp32 +<span id="L17395" class="LineNr">17395 </span> } +<span id="L17396" class="LineNr">17396 </span> { +<span id="L17397" class="LineNr">17397 </span><span class="Constant">$next-mu-token:check-for-string-literal</span>: +<span id="L17398" class="LineNr">17398 </span> <span class="subxComment"># if (curr-byte != '"') break</span> +<span id="L17399" class="LineNr">17399 </span> 3d/compare-eax-and 0x22/imm32/dquote +<span id="L17400" class="LineNr">17400 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L17401" class="LineNr">17401 </span> (<a href='124next-token.subx.html#L1171'>skip-string</a> %esi) +<span id="L17402" class="LineNr">17402 </span> <span class="subxComment"># return</span> +<span id="L17403" class="LineNr">17403 </span> e9/jump $next-mu-token:done/disp32 +<span id="L17404" class="LineNr">17404 </span> } +<span id="L17405" class="LineNr">17405 </span> { +<span id="L17406" class="LineNr">17406 </span><span class="Constant">$next-mu-token:check-for-open-paren</span>: +<span id="L17407" class="LineNr">17407 </span> <span class="subxComment"># if (curr-byte != '(') break</span> +<span id="L17408" class="LineNr">17408 </span> 3d/compare-eax-and 0x28/imm32/open-paren +<span id="L17409" class="LineNr">17409 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L17410" class="LineNr">17410 </span> <span class="subxComment"># ++in->read</span> +<span id="L17411" class="LineNr">17411 </span> ff 0/subop/increment *(esi+4) +<span id="L17412" class="LineNr">17412 </span> <span class="subxComment"># return</span> +<span id="L17413" class="LineNr">17413 </span> e9/jump $next-mu-token:done/disp32 +<span id="L17414" class="LineNr">17414 </span> } +<span id="L17415" class="LineNr">17415 </span> { +<span id="L17416" class="LineNr">17416 </span><span class="Constant">$next-mu-token:check-for-close-paren</span>: +<span id="L17417" class="LineNr">17417 </span> <span class="subxComment"># if (curr-byte != ')') break</span> +<span id="L17418" class="LineNr">17418 </span> 3d/compare-eax-and 0x29/imm32/close-paren +<span id="L17419" class="LineNr">17419 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L17420" class="LineNr">17420 </span> <span class="subxComment"># ++in->read</span> +<span id="L17421" class="LineNr">17421 </span> ff 0/subop/increment *(esi+4) +<span id="L17422" class="LineNr">17422 </span> <span class="subxComment"># return</span> +<span id="L17423" class="LineNr">17423 </span> e9/jump $next-mu-token:done/disp32 +<span id="L17424" class="LineNr">17424 </span> } +<span id="L17425" class="LineNr">17425 </span> { +<span id="L17426" class="LineNr">17426 </span><span class="Constant">$next-mu-token:regular-word-without-metadata</span>: +<span id="L17427" class="LineNr">17427 </span> <span class="subxComment"># if (in->read >= in->write) break</span> +<span id="L17428" class="LineNr">17428 </span> <span class="subxS1Comment"># . ecx = in->read</span> +<span id="L17429" class="LineNr">17429 </span> 8b/-> *(esi+4) 1/r32/ecx +<span id="L17430" class="LineNr">17430 </span> <span class="subxS1Comment"># . if (ecx >= in->write) break</span> +<span id="L17431" class="LineNr">17431 </span> 3b/compare<- *esi 1/r32/ecx +<span id="L17432" class="LineNr">17432 </span> 7d/jump-if->= <span class="Constant">break</span>/disp8 +<span id="L17433" class="LineNr">17433 </span> <span class="subxComment"># var c/eax: byte = in->data[in->read]</span> +<span id="L17434" class="LineNr">17434 </span> 31/xor-with %eax 0/r32/eax +<span id="L17435" class="LineNr">17435 </span> 8a/copy-byte *(esi+ecx+0xc) 0/r32/AL +<span id="L17436" class="LineNr">17436 </span> <span class="subxComment"># if (c == ' ') break</span> +<span id="L17437" class="LineNr">17437 </span> 3d/compare-eax-and 0x20/imm32/space +<span id="L17438" class="LineNr">17438 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L17439" class="LineNr">17439 </span> <span class="subxComment"># if (c == '\r') break</span> +<span id="L17440" class="LineNr">17440 </span> 3d/compare-eax-and 0xd/imm32/carriage-return +<span id="L17441" class="LineNr">17441 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L17442" class="LineNr">17442 </span> <span class="subxComment"># if (c == '\n') break</span> +<span id="L17443" class="LineNr">17443 </span> 3d/compare-eax-and 0xa/imm32/newline +<span id="L17444" class="LineNr">17444 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L17445" class="LineNr">17445 </span> <span class="subxComment"># if (c == '(') break</span> +<span id="L17446" class="LineNr">17446 </span> 3d/compare-eax-and 0x28/imm32/open-paren +<span id="L17447" class="LineNr">17447 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L17448" class="LineNr">17448 </span> <span class="subxComment"># if (c == ')') break</span> +<span id="L17449" class="LineNr">17449 </span> 3d/compare-eax-and 0x29/imm32/close-paren +<span id="L17450" class="LineNr">17450 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L17451" class="LineNr">17451 </span> <span class="subxComment"># if (c == ',') break</span> +<span id="L17452" class="LineNr">17452 </span> 3d/compare-eax-and 0x2c/imm32/comma +<span id="L17453" class="LineNr">17453 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L17454" class="LineNr">17454 </span> <span class="subxComment"># ++in->read</span> +<span id="L17455" class="LineNr">17455 </span> ff 0/subop/increment *(esi+4) +<span id="L17456" class="LineNr">17456 </span> <span class="subxComment">#</span> +<span id="L17457" class="LineNr">17457 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L17458" class="LineNr">17458 </span> } +<span id="L17459" class="LineNr">17459 </span><span class="Constant">$next-mu-token:done</span>: +<span id="L17460" class="LineNr">17460 </span> <span class="subxComment"># out->end = &in->data[in->read]</span> +<span id="L17461" class="LineNr">17461 </span> 8b/-> *(esi+4) 1/r32/ecx +<span id="L17462" class="LineNr">17462 </span> 8d/copy-address *(esi+ecx+0xc) 0/r32/eax +<span id="L17463" class="LineNr">17463 </span> 89/<- *(edi+4) 0/r32/eax +<span id="L17464" class="LineNr">17464 </span><span class="Constant">$next-mu-token:end</span>: +<span id="L17465" class="LineNr">17465 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L17466" class="LineNr">17466 </span> 5f/pop-to-edi +<span id="L17467" class="LineNr">17467 </span> 5e/pop-to-esi +<span id="L17468" class="LineNr">17468 </span> 59/pop-to-ecx +<span id="L17469" class="LineNr">17469 </span> 58/pop-to-eax +<span id="L17470" class="LineNr">17470 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17471" class="LineNr">17471 </span> 89/<- %esp 5/r32/ebp +<span id="L17472" class="LineNr">17472 </span> 5d/pop-to-ebp +<span id="L17473" class="LineNr">17473 </span> c3/return +<span id="L17474" class="LineNr">17474 </span> +<span id="L17475" class="LineNr">17475 </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="L17476" class="LineNr">17476 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17477" class="LineNr">17477 </span> 55/push-ebp +<span id="L17478" class="LineNr">17478 </span> 89/<- %ebp 4/r32/esp +<span id="L17479" class="LineNr">17479 </span> <span class="subxComment"># if (pos-slice(arr, s) != -1) return it</span> +<span id="L17480" class="LineNr">17480 </span> (<a href='mu.subx.html#L17503'>pos-slice</a> *(ebp+8) *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L17481" class="LineNr">17481 </span> 3d/compare-eax-and -1/imm32 +<span id="L17482" class="LineNr">17482 </span> 75/jump-if-!= $pos-or-insert-slice:end/disp8 +<span id="L17483" class="LineNr">17483 </span><span class="Constant">$pos-or-insert-slice:insert</span>: +<span id="L17484" class="LineNr">17484 </span> <span class="subxComment"># var s2/eax: (handle array byte)</span> +<span id="L17485" class="LineNr">17485 </span> 68/push 0/imm32 +<span id="L17486" class="LineNr">17486 </span> 68/push 0/imm32 +<span id="L17487" class="LineNr">17487 </span> 89/<- %eax 4/r32/esp +<span id="L17488" class="LineNr">17488 </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="L17489" class="LineNr">17489 </span> <span class="subxComment"># throw away alloc-id</span> +<span id="L17490" class="LineNr">17490 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L17491" class="LineNr">17491 </span> (<a href='202write-int.subx.html#L8'>write-int</a> *(ebp+8) %eax) +<span id="L17492" class="LineNr">17492 </span> (<a href='mu.subx.html#L17503'>pos-slice</a> *(ebp+8) *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L17493" class="LineNr">17493 </span><span class="Constant">$pos-or-insert-slice:end</span>: +<span id="L17494" class="LineNr">17494 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L17495" class="LineNr">17495 </span> 81 0/subop/add %esp 8/imm32 +<span id="L17496" class="LineNr">17496 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17497" class="LineNr">17497 </span> 89/<- %esp 5/r32/ebp +<span id="L17498" class="LineNr">17498 </span> 5d/pop-to-ebp +<span id="L17499" class="LineNr">17499 </span> c3/return +<span id="L17500" class="LineNr">17500 </span> +<span id="L17501" class="LineNr">17501 </span><span class="subxComment"># return the index in an array of strings matching 's', -1 if not found</span> +<span id="L17502" class="LineNr">17502 </span><span class="subxComment"># index is denominated in elements, not bytes</span> +<span id="L17503" class="LineNr">17503 </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="L17504" class="LineNr">17504 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17505" class="LineNr">17505 </span> 55/push-ebp +<span id="L17506" class="LineNr">17506 </span> 89/<- %ebp 4/r32/esp +<span id="L17507" class="LineNr">17507 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L17508" class="LineNr">17508 </span> 51/push-ecx +<span id="L17509" class="LineNr">17509 </span> 52/push-edx +<span id="L17510" class="LineNr">17510 </span> 53/push-ebx +<span id="L17511" class="LineNr">17511 </span> 56/push-esi +<span id="L17512" class="LineNr">17512 </span><span class="CommentedCode">#? (write-buffered Stderr "pos-slice: ")</span> +<span id="L17513" class="LineNr">17513 </span><span class="CommentedCode">#? (write-slice-buffered Stderr *(ebp+0xc))</span> +<span id="L17514" class="LineNr">17514 </span><span class="CommentedCode">#? (write-buffered Stderr "\n")</span> +<span id="L17515" class="LineNr">17515 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L17516" class="LineNr">17516 </span> <span class="subxComment"># esi = arr</span> +<span id="L17517" class="LineNr">17517 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L17518" class="LineNr">17518 </span> <span class="subxComment"># var index/ecx: int = 0</span> +<span id="L17519" class="LineNr">17519 </span> b9/copy-to-ecx 0/imm32 +<span id="L17520" class="LineNr">17520 </span> <span class="subxComment"># var curr/edx: (addr (addr array byte)) = arr->data</span> +<span id="L17521" class="LineNr">17521 </span> 8d/copy-address *(esi+0xc) 2/r32/edx +<span id="L17522" class="LineNr">17522 </span> <span class="subxComment"># var max/ebx: (addr (addr array byte)) = &arr->data[arr->write]</span> +<span id="L17523" class="LineNr">17523 </span> 8b/-> *esi 3/r32/ebx +<span id="L17524" class="LineNr">17524 </span> 8d/copy-address *(esi+ebx+0xc) 3/r32/ebx +<span id="L17525" class="LineNr">17525 </span> { +<span id="L17526" class="LineNr">17526 </span><span class="CommentedCode">#? (write-buffered Stderr " ")</span> +<span id="L17527" class="LineNr">17527 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ecx)</span> +<span id="L17528" class="LineNr">17528 </span><span class="CommentedCode">#? (write-buffered Stderr "\n")</span> +<span id="L17529" class="LineNr">17529 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L17530" class="LineNr">17530 </span> <span class="subxComment"># if (curr >= max) return -1</span> +<span id="L17531" class="LineNr">17531 </span> 39/compare %edx 3/r32/ebx +<span id="L17532" class="LineNr">17532 </span> b8/copy-to-eax -1/imm32 +<span id="L17533" class="LineNr">17533 </span> 73/jump-if-addr>= $pos-slice:end/disp8 +<span id="L17534" class="LineNr">17534 </span> <span class="subxComment"># if (slice-equal?(s, *curr)) break</span> +<span id="L17535" class="LineNr">17535 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> *(ebp+0xc) *edx) <span class="subxComment"># => eax</span> +<span id="L17536" class="LineNr">17536 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17537" class="LineNr">17537 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L17538" class="LineNr">17538 </span> <span class="subxComment"># ++index</span> +<span id="L17539" class="LineNr">17539 </span> 41/increment-ecx +<span id="L17540" class="LineNr">17540 </span> <span class="subxComment"># curr += 4</span> +<span id="L17541" class="LineNr">17541 </span> 81 0/subop/add %edx 4/imm32 +<span id="L17542" class="LineNr">17542 </span> <span class="subxComment">#</span> +<span id="L17543" class="LineNr">17543 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L17544" class="LineNr">17544 </span> } +<span id="L17545" class="LineNr">17545 </span> <span class="subxComment"># return index</span> +<span id="L17546" class="LineNr">17546 </span> 89/<- %eax 1/r32/ecx +<span id="L17547" class="LineNr">17547 </span><span class="Constant">$pos-slice:end</span>: +<span id="L17548" class="LineNr">17548 </span><span class="CommentedCode">#? (write-buffered Stderr "=> ")</span> +<span id="L17549" class="LineNr">17549 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L17550" class="LineNr">17550 </span><span class="CommentedCode">#? (write-buffered Stderr "\n")</span> +<span id="L17551" class="LineNr">17551 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L17552" class="LineNr">17552 </span> 5e/pop-to-esi +<span id="L17553" class="LineNr">17553 </span> 5b/pop-to-ebx +<span id="L17554" class="LineNr">17554 </span> 5a/pop-to-edx +<span id="L17555" class="LineNr">17555 </span> 59/pop-to-ecx +<span id="L17556" class="LineNr">17556 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17557" class="LineNr">17557 </span> 89/<- %esp 5/r32/ebp +<span id="L17558" class="LineNr">17558 </span> 5d/pop-to-ebp +<span id="L17559" class="LineNr">17559 </span> c3/return +<span id="L17560" class="LineNr">17560 </span> +<span id="L17561" class="LineNr">17561 </span><span class="subxTest">test-parse-var-with-type</span>: +<span id="L17562" class="LineNr">17562 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17563" class="LineNr">17563 </span> 55/push-ebp +<span id="L17564" class="LineNr">17564 </span> 89/<- %ebp 4/r32/esp +<span id="L17565" class="LineNr">17565 </span> <span class="subxComment"># setup</span> +<span id="L17566" class="LineNr">17566 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L17567" class="LineNr">17567 </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="L17568" class="LineNr">17568 </span> <span class="subxComment"># (eax..ecx) = "x:"</span> +<span id="L17569" class="LineNr">17569 </span> b8/copy-to-eax <span class="Constant">"x:"</span>/imm32 +<span id="L17570" class="LineNr">17570 </span> 8b/-> *eax 1/r32/ecx +<span id="L17571" class="LineNr">17571 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L17572" class="LineNr">17572 </span> 05/add-to-eax 4/imm32 +<span id="L17573" class="LineNr">17573 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L17574" class="LineNr">17574 </span> 51/push-ecx +<span id="L17575" class="LineNr">17575 </span> 50/push-eax +<span id="L17576" class="LineNr">17576 </span> 89/<- %ecx 4/r32/esp +<span id="L17577" class="LineNr">17577 </span> <span class="subxComment"># _test-input-stream contains "int"</span> +<span id="L17578" class="LineNr">17578 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L17579" class="LineNr">17579 </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="L17580" class="LineNr">17580 </span> <span class="subxComment"># var v/edx: (handle var)</span> +<span id="L17581" class="LineNr">17581 </span> 68/push 0/imm32 +<span id="L17582" class="LineNr">17582 </span> 68/push 0/imm32 +<span id="L17583" class="LineNr">17583 </span> 89/<- %edx 4/r32/esp +<span id="L17584" class="LineNr">17584 </span> <span class="subxComment">#</span> +<span id="L17585" class="LineNr">17585 </span> (<a href='mu.subx.html#L16950'>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="L17586" class="LineNr">17586 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> +<span id="L17587" class="LineNr">17587 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L17588" class="LineNr">17588 </span> 89/<- %edx 0/r32/eax +<span id="L17589" class="LineNr">17589 </span> <span class="subxComment"># check v-addr->name</span> +<span id="L17590" class="LineNr">17590 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L17591" class="LineNr">17591 </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#L17561'>test-parse-var-with-type</a>/name"</span>) +<span id="L17592" class="LineNr">17592 </span> <span class="subxComment"># check v-addr->type</span> +<span id="L17593" class="LineNr">17593 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L17594" class="LineNr">17594 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L17561'>test-parse-var-with-type</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L17595" class="LineNr">17595 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L17561'>test-parse-var-with-type</a>/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L17596" class="LineNr">17596 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L17561'>test-parse-var-with-type</a>/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L17597" class="LineNr">17597 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17598" class="LineNr">17598 </span> 89/<- %esp 5/r32/ebp +<span id="L17599" class="LineNr">17599 </span> 5d/pop-to-ebp +<span id="L17600" class="LineNr">17600 </span> c3/return +<span id="L17601" class="LineNr">17601 </span> +<span id="L17602" class="LineNr">17602 </span><span class="subxTest">test-parse-var-with-type-and-register</span>: +<span id="L17603" class="LineNr">17603 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17604" class="LineNr">17604 </span> 55/push-ebp +<span id="L17605" class="LineNr">17605 </span> 89/<- %ebp 4/r32/esp +<span id="L17606" class="LineNr">17606 </span> <span class="subxComment"># setup</span> +<span id="L17607" class="LineNr">17607 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L17608" class="LineNr">17608 </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="L17609" class="LineNr">17609 </span> <span class="subxComment"># (eax..ecx) = "x/eax:"</span> +<span id="L17610" class="LineNr">17610 </span> b8/copy-to-eax <span class="Constant">"x/eax:"</span>/imm32 +<span id="L17611" class="LineNr">17611 </span> 8b/-> *eax 1/r32/ecx +<span id="L17612" class="LineNr">17612 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L17613" class="LineNr">17613 </span> 05/add-to-eax 4/imm32 +<span id="L17614" class="LineNr">17614 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L17615" class="LineNr">17615 </span> 51/push-ecx +<span id="L17616" class="LineNr">17616 </span> 50/push-eax +<span id="L17617" class="LineNr">17617 </span> 89/<- %ecx 4/r32/esp +<span id="L17618" class="LineNr">17618 </span> <span class="subxComment"># _test-input-stream contains "int"</span> +<span id="L17619" class="LineNr">17619 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L17620" class="LineNr">17620 </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="L17621" class="LineNr">17621 </span> <span class="subxComment"># var v/edx: (handle var)</span> +<span id="L17622" class="LineNr">17622 </span> 68/push 0/imm32 +<span id="L17623" class="LineNr">17623 </span> 68/push 0/imm32 +<span id="L17624" class="LineNr">17624 </span> 89/<- %edx 4/r32/esp +<span id="L17625" class="LineNr">17625 </span> <span class="subxComment">#</span> +<span id="L17626" class="LineNr">17626 </span> (<a href='mu.subx.html#L16950'>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="L17627" class="LineNr">17627 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> +<span id="L17628" class="LineNr">17628 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L17629" class="LineNr">17629 </span> 89/<- %edx 0/r32/eax +<span id="L17630" class="LineNr">17630 </span> <span class="subxComment"># check v-addr->name</span> +<span id="L17631" class="LineNr">17631 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L17632" class="LineNr">17632 </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#L17602'>test-parse-var-with-type-and-register</a>/name"</span>) +<span id="L17633" class="LineNr">17633 </span> <span class="subxComment"># check v-addr->register</span> +<span id="L17634" class="LineNr">17634 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L17635" class="LineNr">17635 </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#L17602'>test-parse-var-with-type-and-register</a>/register"</span>) +<span id="L17636" class="LineNr">17636 </span> <span class="subxComment"># check v-addr->type</span> +<span id="L17637" class="LineNr">17637 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L17638" class="LineNr">17638 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L17602'>test-parse-var-with-type-and-register</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L17639" class="LineNr">17639 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L17602'>test-parse-var-with-type-and-register</a>/type:1"</span>) <span class="subxComment"># Type-tree-left</span> +<span id="L17640" class="LineNr">17640 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L17602'>test-parse-var-with-type-and-register</a>/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L17641" class="LineNr">17641 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17642" class="LineNr">17642 </span> 89/<- %esp 5/r32/ebp +<span id="L17643" class="LineNr">17643 </span> 5d/pop-to-ebp +<span id="L17644" class="LineNr">17644 </span> c3/return +<span id="L17645" class="LineNr">17645 </span> +<span id="L17646" class="LineNr">17646 </span><span class="subxTest">test-parse-var-with-trailing-characters</span>: +<span id="L17647" class="LineNr">17647 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17648" class="LineNr">17648 </span> 55/push-ebp +<span id="L17649" class="LineNr">17649 </span> 89/<- %ebp 4/r32/esp +<span id="L17650" class="LineNr">17650 </span> <span class="subxComment"># setup</span> +<span id="L17651" class="LineNr">17651 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L17652" class="LineNr">17652 </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="L17653" class="LineNr">17653 </span> <span class="subxComment"># (eax..ecx) = "x:"</span> +<span id="L17654" class="LineNr">17654 </span> b8/copy-to-eax <span class="Constant">"x:"</span>/imm32 +<span id="L17655" class="LineNr">17655 </span> 8b/-> *eax 1/r32/ecx +<span id="L17656" class="LineNr">17656 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L17657" class="LineNr">17657 </span> 05/add-to-eax 4/imm32 +<span id="L17658" class="LineNr">17658 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L17659" class="LineNr">17659 </span> 51/push-ecx +<span id="L17660" class="LineNr">17660 </span> 50/push-eax +<span id="L17661" class="LineNr">17661 </span> 89/<- %ecx 4/r32/esp +<span id="L17662" class="LineNr">17662 </span> <span class="subxComment"># _test-input-stream contains "int,"</span> +<span id="L17663" class="LineNr">17663 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L17664" class="LineNr">17664 </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="L17665" class="LineNr">17665 </span> <span class="subxComment"># var v/edx: (handle var)</span> +<span id="L17666" class="LineNr">17666 </span> 68/push 0/imm32 +<span id="L17667" class="LineNr">17667 </span> 68/push 0/imm32 +<span id="L17668" class="LineNr">17668 </span> 89/<- %edx 4/r32/esp +<span id="L17669" class="LineNr">17669 </span> <span class="subxComment">#</span> +<span id="L17670" class="LineNr">17670 </span> (<a href='mu.subx.html#L16950'>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="L17671" class="LineNr">17671 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> +<span id="L17672" class="LineNr">17672 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L17673" class="LineNr">17673 </span> 89/<- %edx 0/r32/eax +<span id="L17674" class="LineNr">17674 </span> <span class="subxComment"># check v-addr->name</span> +<span id="L17675" class="LineNr">17675 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L17676" class="LineNr">17676 </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#L17646'>test-parse-var-with-trailing-characters</a>/name"</span>) +<span id="L17677" class="LineNr">17677 </span> <span class="subxComment"># check v-addr->register</span> +<span id="L17678" class="LineNr">17678 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+0x18) 0 <span class="Constant">"F - <a href='mu.subx.html#L17646'>test-parse-var-with-trailing-characters</a>/register"</span>) <span class="subxComment"># Var-register</span> +<span id="L17679" class="LineNr">17679 </span> <span class="subxComment"># check v-addr->type</span> +<span id="L17680" class="LineNr">17680 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L17681" class="LineNr">17681 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L17646'>test-parse-var-with-trailing-characters</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L17682" class="LineNr">17682 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L17646'>test-parse-var-with-trailing-characters</a>/type:1"</span>) <span class="subxComment"># Type-tree-left</span> +<span id="L17683" class="LineNr">17683 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L17646'>test-parse-var-with-trailing-characters</a>/type:1"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L17684" class="LineNr">17684 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17685" class="LineNr">17685 </span> 89/<- %esp 5/r32/ebp +<span id="L17686" class="LineNr">17686 </span> 5d/pop-to-ebp +<span id="L17687" class="LineNr">17687 </span> c3/return +<span id="L17688" class="LineNr">17688 </span> +<span id="L17689" class="LineNr">17689 </span><span class="subxTest">test-parse-var-with-register-and-trailing-characters</span>: +<span id="L17690" class="LineNr">17690 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17691" class="LineNr">17691 </span> 55/push-ebp +<span id="L17692" class="LineNr">17692 </span> 89/<- %ebp 4/r32/esp +<span id="L17693" class="LineNr">17693 </span> <span class="subxComment"># setup</span> +<span id="L17694" class="LineNr">17694 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L17695" class="LineNr">17695 </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="L17696" class="LineNr">17696 </span> <span class="subxComment"># (eax..ecx) = "x/eax:"</span> +<span id="L17697" class="LineNr">17697 </span> b8/copy-to-eax <span class="Constant">"x/eax:"</span>/imm32 +<span id="L17698" class="LineNr">17698 </span> 8b/-> *eax 1/r32/ecx +<span id="L17699" class="LineNr">17699 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L17700" class="LineNr">17700 </span> 05/add-to-eax 4/imm32 +<span id="L17701" class="LineNr">17701 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L17702" class="LineNr">17702 </span> 51/push-ecx +<span id="L17703" class="LineNr">17703 </span> 50/push-eax +<span id="L17704" class="LineNr">17704 </span> 89/<- %ecx 4/r32/esp +<span id="L17705" class="LineNr">17705 </span> <span class="subxComment"># _test-input-stream contains "int,"</span> +<span id="L17706" class="LineNr">17706 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L17707" class="LineNr">17707 </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="L17708" class="LineNr">17708 </span> <span class="subxComment"># var v/edx: (handle var)</span> +<span id="L17709" class="LineNr">17709 </span> 68/push 0/imm32 +<span id="L17710" class="LineNr">17710 </span> 68/push 0/imm32 +<span id="L17711" class="LineNr">17711 </span> 89/<- %edx 4/r32/esp +<span id="L17712" class="LineNr">17712 </span> <span class="subxComment">#</span> +<span id="L17713" class="LineNr">17713 </span> (<a href='mu.subx.html#L16950'>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="L17714" class="LineNr">17714 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> +<span id="L17715" class="LineNr">17715 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L17716" class="LineNr">17716 </span> 89/<- %edx 0/r32/eax +<span id="L17717" class="LineNr">17717 </span> <span class="subxComment"># check v-addr->name</span> +<span id="L17718" class="LineNr">17718 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L17719" class="LineNr">17719 </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#L17689'>test-parse-var-with-register-and-trailing-characters</a>/name"</span>) +<span id="L17720" class="LineNr">17720 </span> <span class="subxComment"># check v-addr->register</span> +<span id="L17721" class="LineNr">17721 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L17722" class="LineNr">17722 </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#L17689'>test-parse-var-with-register-and-trailing-characters</a>/register"</span>) +<span id="L17723" class="LineNr">17723 </span> <span class="subxComment"># check v-addr->type</span> +<span id="L17724" class="LineNr">17724 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L17725" class="LineNr">17725 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L17689'>test-parse-var-with-register-and-trailing-characters</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L17726" class="LineNr">17726 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L17689'>test-parse-var-with-register-and-trailing-characters</a>/type:1"</span>) <span class="subxComment"># Type-tree-left</span> +<span id="L17727" class="LineNr">17727 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L17689'>test-parse-var-with-register-and-trailing-characters</a>/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L17728" class="LineNr">17728 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17729" class="LineNr">17729 </span> 89/<- %esp 5/r32/ebp +<span id="L17730" class="LineNr">17730 </span> 5d/pop-to-ebp +<span id="L17731" class="LineNr">17731 </span> c3/return +<span id="L17732" class="LineNr">17732 </span> +<span id="L17733" class="LineNr">17733 </span><span class="subxTest">test-parse-var-with-compound-type</span>: +<span id="L17734" class="LineNr">17734 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17735" class="LineNr">17735 </span> 55/push-ebp +<span id="L17736" class="LineNr">17736 </span> 89/<- %ebp 4/r32/esp +<span id="L17737" class="LineNr">17737 </span> <span class="subxComment"># setup</span> +<span id="L17738" class="LineNr">17738 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L17739" class="LineNr">17739 </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="L17740" class="LineNr">17740 </span> <span class="subxComment"># (eax..ecx) = "x:"</span> +<span id="L17741" class="LineNr">17741 </span> b8/copy-to-eax <span class="Constant">"x:"</span>/imm32 +<span id="L17742" class="LineNr">17742 </span> 8b/-> *eax 1/r32/ecx +<span id="L17743" class="LineNr">17743 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L17744" class="LineNr">17744 </span> 05/add-to-eax 4/imm32 +<span id="L17745" class="LineNr">17745 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L17746" class="LineNr">17746 </span> 51/push-ecx +<span id="L17747" class="LineNr">17747 </span> 50/push-eax +<span id="L17748" class="LineNr">17748 </span> 89/<- %ecx 4/r32/esp +<span id="L17749" class="LineNr">17749 </span> <span class="subxComment"># _test-input-stream contains "(addr int)"</span> +<span id="L17750" class="LineNr">17750 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L17751" class="LineNr">17751 </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="L17752" class="LineNr">17752 </span> <span class="subxComment"># var v/edx: (handle var)</span> +<span id="L17753" class="LineNr">17753 </span> 68/push 0/imm32 +<span id="L17754" class="LineNr">17754 </span> 68/push 0/imm32 +<span id="L17755" class="LineNr">17755 </span> 89/<- %edx 4/r32/esp +<span id="L17756" class="LineNr">17756 </span> <span class="subxComment">#</span> +<span id="L17757" class="LineNr">17757 </span> (<a href='mu.subx.html#L16950'>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="L17758" class="LineNr">17758 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> +<span id="L17759" class="LineNr">17759 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L17760" class="LineNr">17760 </span> 89/<- %edx 0/r32/eax +<span id="L17761" class="LineNr">17761 </span> <span class="subxComment"># check v-addr->name</span> +<span id="L17762" class="LineNr">17762 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L17763" class="LineNr">17763 </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#L17733'>test-parse-var-with-compound-type</a>/name"</span>) +<span id="L17764" class="LineNr">17764 </span> <span class="subxComment"># check v-addr->register</span> +<span id="L17765" class="LineNr">17765 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+0x18) 0 <span class="Constant">"F - <a href='mu.subx.html#L17733'>test-parse-var-with-compound-type</a>/register"</span>) <span class="subxComment"># Var-register</span> +<span id="L17766" class="LineNr">17766 </span> <span class="subxH1Comment"># - check v-addr->type</span> +<span id="L17767" class="LineNr">17767 </span> <span class="subxComment"># var type/edx: (addr type-tree) = var->type</span> +<span id="L17768" class="LineNr">17768 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L17769" class="LineNr">17769 </span> 89/<- %edx 0/r32/eax +<span id="L17770" class="LineNr">17770 </span> <span class="subxComment"># type is a non-atom</span> +<span id="L17771" class="LineNr">17771 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *edx 0 <span class="Constant">"F - <a href='mu.subx.html#L17733'>test-parse-var-with-compound-type</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L17772" class="LineNr">17772 </span> <span class="subxComment"># type->left == atom(addr)</span> +<span id="L17773" class="LineNr">17773 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L17774" class="LineNr">17774 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L17733'>test-parse-var-with-compound-type</a>/type:1"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L17775" class="LineNr">17775 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L17733'>test-parse-var-with-compound-type</a>/type:2"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L17776" class="LineNr">17776 </span> <span class="subxComment"># type->right->left == atom(int)</span> +<span id="L17777" class="LineNr">17777 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0xc) *(edx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L17778" class="LineNr">17778 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L17779" class="LineNr">17779 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L17733'>test-parse-var-with-compound-type</a>/type:3"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L17780" class="LineNr">17780 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L17733'>test-parse-var-with-compound-type</a>/type:4"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L17781" class="LineNr">17781 </span> <span class="subxComment"># type->right->right == null</span> +<span id="L17782" class="LineNr">17782 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L17733'>test-parse-var-with-compound-type</a>/type:5"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L17783" class="LineNr">17783 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17784" class="LineNr">17784 </span> 89/<- %esp 5/r32/ebp +<span id="L17785" class="LineNr">17785 </span> 5d/pop-to-ebp +<span id="L17786" class="LineNr">17786 </span> c3/return +<span id="L17787" class="LineNr">17787 </span> +<span id="L17788" class="LineNr">17788 </span><span class="subxComment"># identifier starts with a letter or '$' or '_'</span> +<span id="L17789" class="LineNr">17789 </span><span class="subxComment"># no constraints at the moment on later letters</span> +<span id="L17790" class="LineNr">17790 </span><span class="subxComment"># all we really want to do so far is exclude '{', '}' and '->'</span> +<span id="L17791" class="LineNr">17791 </span><span class="subxFunction">identifier?</span>: <span class="subxComment"># in: (addr slice) -> result/eax: boolean</span> +<span id="L17792" class="LineNr">17792 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17793" class="LineNr">17793 </span> 55/push-ebp +<span id="L17794" class="LineNr">17794 </span> 89/<- %ebp 4/r32/esp +<span id="L17795" class="LineNr">17795 </span> <span class="subxComment"># if (slice-empty?(in)) return false</span> +<span id="L17796" class="LineNr">17796 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L17797" class="LineNr">17797 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17798" class="LineNr">17798 </span> 75/jump-if-!= $identifier?:false/disp8 +<span id="L17799" class="LineNr">17799 </span> <span class="subxComment"># var c/eax: byte = *in->start</span> +<span id="L17800" class="LineNr">17800 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L17801" class="LineNr">17801 </span> 8b/-> *eax 0/r32/eax +<span id="L17802" class="LineNr">17802 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L17803" class="LineNr">17803 </span> 25/and-eax-with 0xff/imm32 +<span id="L17804" class="LineNr">17804 </span> <span class="subxComment"># if (c == '$') return true</span> +<span id="L17805" class="LineNr">17805 </span> 3d/compare-eax-and 0x24/imm32/$ +<span id="L17806" class="LineNr">17806 </span> 74/jump-if-= $identifier?:true/disp8 +<span id="L17807" class="LineNr">17807 </span> <span class="subxComment"># if (c == '_') return true</span> +<span id="L17808" class="LineNr">17808 </span> 3d/compare-eax-and 0x5f/imm32/_ +<span id="L17809" class="LineNr">17809 </span> 74/jump-if-= $identifier?:true/disp8 +<span id="L17810" class="LineNr">17810 </span> <span class="subxComment"># drop case</span> +<span id="L17811" class="LineNr">17811 </span> 25/and-eax-with 0x5f/imm32 +<span id="L17812" class="LineNr">17812 </span> <span class="subxComment"># if (c < 'A') return false</span> +<span id="L17813" class="LineNr">17813 </span> 3d/compare-eax-and 0x41/imm32/A +<span id="L17814" class="LineNr">17814 </span> 7c/jump-if-< $identifier?:false/disp8 +<span id="L17815" class="LineNr">17815 </span> <span class="subxComment"># if (c > 'Z') return false</span> +<span id="L17816" class="LineNr">17816 </span> 3d/compare-eax-and 0x5a/imm32/Z +<span id="L17817" class="LineNr">17817 </span> 7f/jump-if-> $identifier?:false/disp8 +<span id="L17818" class="LineNr">17818 </span> <span class="subxComment"># otherwise return true</span> +<span id="L17819" class="LineNr">17819 </span><span class="Constant">$identifier?:true</span>: +<span id="L17820" class="LineNr">17820 </span> b8/copy-to-eax 1/imm32/true +<span id="L17821" class="LineNr">17821 </span> eb/jump $identifier?:end/disp8 +<span id="L17822" class="LineNr">17822 </span><span class="Constant">$identifier?:false</span>: +<span id="L17823" class="LineNr">17823 </span> b8/copy-to-eax 0/imm32/false +<span id="L17824" class="LineNr">17824 </span><span class="Constant">$identifier?:end</span>: +<span id="L17825" class="LineNr">17825 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17826" class="LineNr">17826 </span> 89/<- %esp 5/r32/ebp +<span id="L17827" class="LineNr">17827 </span> 5d/pop-to-ebp +<span id="L17828" class="LineNr">17828 </span> c3/return +<span id="L17829" class="LineNr">17829 </span> +<span id="L17830" class="LineNr">17830 </span><span class="subxTest">test-is-identifier-dollar</span>: +<span id="L17831" class="LineNr">17831 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17832" class="LineNr">17832 </span> 55/push-ebp +<span id="L17833" class="LineNr">17833 </span> 89/<- %ebp 4/r32/esp +<span id="L17834" class="LineNr">17834 </span> <span class="subxComment"># (eax..ecx) = "$a"</span> +<span id="L17835" class="LineNr">17835 </span> b8/copy-to-eax <span class="Constant">"$a"</span>/imm32 +<span id="L17836" class="LineNr">17836 </span> 8b/-> *eax 1/r32/ecx +<span id="L17837" class="LineNr">17837 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L17838" class="LineNr">17838 </span> 05/add-to-eax 4/imm32 +<span id="L17839" class="LineNr">17839 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L17840" class="LineNr">17840 </span> 51/push-ecx +<span id="L17841" class="LineNr">17841 </span> 50/push-eax +<span id="L17842" class="LineNr">17842 </span> 89/<- %ecx 4/r32/esp +<span id="L17843" class="LineNr">17843 </span> <span class="subxComment">#</span> +<span id="L17844" class="LineNr">17844 </span> (<a href='mu.subx.html#L17791'>identifier?</a> %ecx) +<span id="L17845" class="LineNr">17845 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-dollar"</span>) +<span id="L17846" class="LineNr">17846 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17847" class="LineNr">17847 </span> 89/<- %esp 5/r32/ebp +<span id="L17848" class="LineNr">17848 </span> 5d/pop-to-ebp +<span id="L17849" class="LineNr">17849 </span> c3/return +<span id="L17850" class="LineNr">17850 </span> +<span id="L17851" class="LineNr">17851 </span><span class="subxTest">test-is-identifier-underscore</span>: +<span id="L17852" class="LineNr">17852 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17853" class="LineNr">17853 </span> 55/push-ebp +<span id="L17854" class="LineNr">17854 </span> 89/<- %ebp 4/r32/esp +<span id="L17855" class="LineNr">17855 </span> <span class="subxComment"># (eax..ecx) = "_a"</span> +<span id="L17856" class="LineNr">17856 </span> b8/copy-to-eax <span class="Constant">"_a"</span>/imm32 +<span id="L17857" class="LineNr">17857 </span> 8b/-> *eax 1/r32/ecx +<span id="L17858" class="LineNr">17858 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L17859" class="LineNr">17859 </span> 05/add-to-eax 4/imm32 +<span id="L17860" class="LineNr">17860 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L17861" class="LineNr">17861 </span> 51/push-ecx +<span id="L17862" class="LineNr">17862 </span> 50/push-eax +<span id="L17863" class="LineNr">17863 </span> 89/<- %ecx 4/r32/esp +<span id="L17864" class="LineNr">17864 </span> <span class="subxComment">#</span> +<span id="L17865" class="LineNr">17865 </span> (<a href='mu.subx.html#L17791'>identifier?</a> %ecx) +<span id="L17866" class="LineNr">17866 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-underscore"</span>) +<span id="L17867" class="LineNr">17867 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17868" class="LineNr">17868 </span> 89/<- %esp 5/r32/ebp +<span id="L17869" class="LineNr">17869 </span> 5d/pop-to-ebp +<span id="L17870" class="LineNr">17870 </span> c3/return +<span id="L17871" class="LineNr">17871 </span> +<span id="L17872" class="LineNr">17872 </span><span class="subxTest">test-is-identifier-a</span>: +<span id="L17873" class="LineNr">17873 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17874" class="LineNr">17874 </span> 55/push-ebp +<span id="L17875" class="LineNr">17875 </span> 89/<- %ebp 4/r32/esp +<span id="L17876" class="LineNr">17876 </span> <span class="subxComment"># (eax..ecx) = "a$"</span> +<span id="L17877" class="LineNr">17877 </span> b8/copy-to-eax <span class="Constant">"a$"</span>/imm32 +<span id="L17878" class="LineNr">17878 </span> 8b/-> *eax 1/r32/ecx +<span id="L17879" class="LineNr">17879 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L17880" class="LineNr">17880 </span> 05/add-to-eax 4/imm32 +<span id="L17881" class="LineNr">17881 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L17882" class="LineNr">17882 </span> 51/push-ecx +<span id="L17883" class="LineNr">17883 </span> 50/push-eax +<span id="L17884" class="LineNr">17884 </span> 89/<- %ecx 4/r32/esp +<span id="L17885" class="LineNr">17885 </span> <span class="subxComment">#</span> +<span id="L17886" class="LineNr">17886 </span> (<a href='mu.subx.html#L17791'>identifier?</a> %ecx) +<span id="L17887" class="LineNr">17887 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-a"</span>) +<span id="L17888" class="LineNr">17888 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17889" class="LineNr">17889 </span> 89/<- %esp 5/r32/ebp +<span id="L17890" class="LineNr">17890 </span> 5d/pop-to-ebp +<span id="L17891" class="LineNr">17891 </span> c3/return +<span id="L17892" class="LineNr">17892 </span> +<span id="L17893" class="LineNr">17893 </span><span class="subxTest">test-is-identifier-z</span>: +<span id="L17894" class="LineNr">17894 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17895" class="LineNr">17895 </span> 55/push-ebp +<span id="L17896" class="LineNr">17896 </span> 89/<- %ebp 4/r32/esp +<span id="L17897" class="LineNr">17897 </span> <span class="subxComment"># (eax..ecx) = "z$"</span> +<span id="L17898" class="LineNr">17898 </span> b8/copy-to-eax <span class="Constant">"z$"</span>/imm32 +<span id="L17899" class="LineNr">17899 </span> 8b/-> *eax 1/r32/ecx +<span id="L17900" class="LineNr">17900 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L17901" class="LineNr">17901 </span> 05/add-to-eax 4/imm32 +<span id="L17902" class="LineNr">17902 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L17903" class="LineNr">17903 </span> 51/push-ecx +<span id="L17904" class="LineNr">17904 </span> 50/push-eax +<span id="L17905" class="LineNr">17905 </span> 89/<- %ecx 4/r32/esp +<span id="L17906" class="LineNr">17906 </span> <span class="subxComment">#</span> +<span id="L17907" class="LineNr">17907 </span> (<a href='mu.subx.html#L17791'>identifier?</a> %ecx) +<span id="L17908" class="LineNr">17908 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-z"</span>) +<span id="L17909" class="LineNr">17909 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17910" class="LineNr">17910 </span> 89/<- %esp 5/r32/ebp +<span id="L17911" class="LineNr">17911 </span> 5d/pop-to-ebp +<span id="L17912" class="LineNr">17912 </span> c3/return +<span id="L17913" class="LineNr">17913 </span> +<span id="L17914" class="LineNr">17914 </span><span class="subxTest">test-is-identifier-A</span>: +<span id="L17915" class="LineNr">17915 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17916" class="LineNr">17916 </span> 55/push-ebp +<span id="L17917" class="LineNr">17917 </span> 89/<- %ebp 4/r32/esp +<span id="L17918" class="LineNr">17918 </span> <span class="subxComment"># (eax..ecx) = "A$"</span> +<span id="L17919" class="LineNr">17919 </span> b8/copy-to-eax <span class="Constant">"A$"</span>/imm32 +<span id="L17920" class="LineNr">17920 </span> 8b/-> *eax 1/r32/ecx +<span id="L17921" class="LineNr">17921 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L17922" class="LineNr">17922 </span> 05/add-to-eax 4/imm32 +<span id="L17923" class="LineNr">17923 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L17924" class="LineNr">17924 </span> 51/push-ecx +<span id="L17925" class="LineNr">17925 </span> 50/push-eax +<span id="L17926" class="LineNr">17926 </span> 89/<- %ecx 4/r32/esp +<span id="L17927" class="LineNr">17927 </span> <span class="subxComment">#</span> +<span id="L17928" class="LineNr">17928 </span> (<a href='mu.subx.html#L17791'>identifier?</a> %ecx) +<span id="L17929" class="LineNr">17929 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-A"</span>) +<span id="L17930" class="LineNr">17930 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17931" class="LineNr">17931 </span> 89/<- %esp 5/r32/ebp +<span id="L17932" class="LineNr">17932 </span> 5d/pop-to-ebp +<span id="L17933" class="LineNr">17933 </span> c3/return +<span id="L17934" class="LineNr">17934 </span> +<span id="L17935" class="LineNr">17935 </span><span class="subxTest">test-is-identifier-Z</span>: <span id="L17936" class="LineNr">17936 </span> <span class="subxS1Comment"># . prologue</span> <span id="L17937" class="LineNr">17937 </span> 55/push-ebp <span id="L17938" class="LineNr">17938 </span> 89/<- %ebp 4/r32/esp -<span id="L17939" class="LineNr">17939 </span> <span class="subxComment"># (eax..ecx) = "@a"</span> -<span id="L17940" class="LineNr">17940 </span> b8/copy-to-eax <span class="Constant">"@a"</span>/imm32 +<span id="L17939" class="LineNr">17939 </span> <span class="subxComment"># (eax..ecx) = "Z$"</span> +<span id="L17940" class="LineNr">17940 </span> b8/copy-to-eax <span class="Constant">"Z$"</span>/imm32 <span id="L17941" class="LineNr">17941 </span> 8b/-> *eax 1/r32/ecx <span id="L17942" class="LineNr">17942 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx <span id="L17943" class="LineNr">17943 </span> 05/add-to-eax 4/imm32 @@ -16453,20 +16453,20 @@ if ('onhashchange' in window) { <span id="L17946" class="LineNr">17946 </span> 50/push-eax <span id="L17947" class="LineNr">17947 </span> 89/<- %ecx 4/r32/esp <span id="L17948" class="LineNr">17948 </span> <span class="subxComment">#</span> -<span id="L17949" class="LineNr">17949 </span> (<a href='mu.subx.html#L17769'>identifier?</a> %ecx) -<span id="L17950" class="LineNr">17950 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-is-identifier-@"</span>) +<span id="L17949" class="LineNr">17949 </span> (<a href='mu.subx.html#L17791'>identifier?</a> %ecx) +<span id="L17950" class="LineNr">17950 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-Z"</span>) <span id="L17951" class="LineNr">17951 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L17952" class="LineNr">17952 </span> 89/<- %esp 5/r32/ebp <span id="L17953" class="LineNr">17953 </span> 5d/pop-to-ebp <span id="L17954" class="LineNr">17954 </span> c3/return <span id="L17955" class="LineNr">17955 </span> -<span id="L17956" class="LineNr">17956 </span><span class="subxTest">test-is-identifier-square-bracket</span>: -<span id="L17957" class="LineNr">17957 </span> <span class="subxComment"># character after 'Z' is invalid</span> +<span id="L17956" class="LineNr">17956 </span><span class="subxTest">test-is-identifier-at</span>: +<span id="L17957" class="LineNr">17957 </span> <span class="subxComment"># character before 'A' is invalid</span> <span id="L17958" class="LineNr">17958 </span> <span class="subxS1Comment"># . prologue</span> <span id="L17959" class="LineNr">17959 </span> 55/push-ebp <span id="L17960" class="LineNr">17960 </span> 89/<- %ebp 4/r32/esp -<span id="L17961" class="LineNr">17961 </span> <span class="subxComment"># (eax..ecx) = "[a"</span> -<span id="L17962" class="LineNr">17962 </span> b8/copy-to-eax <span class="Constant">"[a"</span>/imm32 +<span id="L17961" class="LineNr">17961 </span> <span class="subxComment"># (eax..ecx) = "@a"</span> +<span id="L17962" class="LineNr">17962 </span> b8/copy-to-eax <span class="Constant">"@a"</span>/imm32 <span id="L17963" class="LineNr">17963 </span> 8b/-> *eax 1/r32/ecx <span id="L17964" class="LineNr">17964 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx <span id="L17965" class="LineNr">17965 </span> 05/add-to-eax 4/imm32 @@ -16475,20 +16475,20 @@ if ('onhashchange' in window) { <span id="L17968" class="LineNr">17968 </span> 50/push-eax <span id="L17969" class="LineNr">17969 </span> 89/<- %ecx 4/r32/esp <span id="L17970" class="LineNr">17970 </span> <span class="subxComment">#</span> -<span id="L17971" class="LineNr">17971 </span> (<a href='mu.subx.html#L17769'>identifier?</a> %ecx) +<span id="L17971" class="LineNr">17971 </span> (<a href='mu.subx.html#L17791'>identifier?</a> %ecx) <span id="L17972" class="LineNr">17972 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-is-identifier-@"</span>) <span id="L17973" class="LineNr">17973 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L17974" class="LineNr">17974 </span> 89/<- %esp 5/r32/ebp <span id="L17975" class="LineNr">17975 </span> 5d/pop-to-ebp <span id="L17976" class="LineNr">17976 </span> c3/return <span id="L17977" class="LineNr">17977 </span> -<span id="L17978" class="LineNr">17978 </span><span class="subxTest">test-is-identifier-backtick</span>: -<span id="L17979" class="LineNr">17979 </span> <span class="subxComment"># character before 'a' is invalid</span> +<span id="L17978" class="LineNr">17978 </span><span class="subxTest">test-is-identifier-square-bracket</span>: +<span id="L17979" class="LineNr">17979 </span> <span class="subxComment"># character after 'Z' is invalid</span> <span id="L17980" class="LineNr">17980 </span> <span class="subxS1Comment"># . prologue</span> <span id="L17981" class="LineNr">17981 </span> 55/push-ebp <span id="L17982" class="LineNr">17982 </span> 89/<- %ebp 4/r32/esp -<span id="L17983" class="LineNr">17983 </span> <span class="subxComment"># (eax..ecx) = "`a"</span> -<span id="L17984" class="LineNr">17984 </span> b8/copy-to-eax <span class="Constant">"`a"</span>/imm32 +<span id="L17983" class="LineNr">17983 </span> <span class="subxComment"># (eax..ecx) = "[a"</span> +<span id="L17984" class="LineNr">17984 </span> b8/copy-to-eax <span class="Constant">"[a"</span>/imm32 <span id="L17985" class="LineNr">17985 </span> 8b/-> *eax 1/r32/ecx <span id="L17986" class="LineNr">17986 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx <span id="L17987" class="LineNr">17987 </span> 05/add-to-eax 4/imm32 @@ -16497,20 +16497,20 @@ if ('onhashchange' in window) { <span id="L17990" class="LineNr">17990 </span> 50/push-eax <span id="L17991" class="LineNr">17991 </span> 89/<- %ecx 4/r32/esp <span id="L17992" class="LineNr">17992 </span> <span class="subxComment">#</span> -<span id="L17993" class="LineNr">17993 </span> (<a href='mu.subx.html#L17769'>identifier?</a> %ecx) -<span id="L17994" class="LineNr">17994 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-is-identifier-backtick"</span>) +<span id="L17993" class="LineNr">17993 </span> (<a href='mu.subx.html#L17791'>identifier?</a> %ecx) +<span id="L17994" class="LineNr">17994 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-is-identifier-@"</span>) <span id="L17995" class="LineNr">17995 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L17996" class="LineNr">17996 </span> 89/<- %esp 5/r32/ebp <span id="L17997" class="LineNr">17997 </span> 5d/pop-to-ebp <span id="L17998" class="LineNr">17998 </span> c3/return <span id="L17999" class="LineNr">17999 </span> -<span id="L18000" class="LineNr">18000 </span><span class="subxTest">test-is-identifier-curly-brace-open</span>: -<span id="L18001" class="LineNr">18001 </span> <span class="subxComment"># character after 'z' is invalid; also used for blocks</span> +<span id="L18000" class="LineNr">18000 </span><span class="subxTest">test-is-identifier-backtick</span>: +<span id="L18001" class="LineNr">18001 </span> <span class="subxComment"># character before 'a' is invalid</span> <span id="L18002" class="LineNr">18002 </span> <span class="subxS1Comment"># . prologue</span> <span id="L18003" class="LineNr">18003 </span> 55/push-ebp <span id="L18004" class="LineNr">18004 </span> 89/<- %ebp 4/r32/esp -<span id="L18005" class="LineNr">18005 </span> <span class="subxComment"># (eax..ecx) = "{a"</span> -<span id="L18006" class="LineNr">18006 </span> b8/copy-to-eax <span class="Constant">"{a"</span>/imm32 +<span id="L18005" class="LineNr">18005 </span> <span class="subxComment"># (eax..ecx) = "`a"</span> +<span id="L18006" class="LineNr">18006 </span> b8/copy-to-eax <span class="Constant">"`a"</span>/imm32 <span id="L18007" class="LineNr">18007 </span> 8b/-> *eax 1/r32/ecx <span id="L18008" class="LineNr">18008 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx <span id="L18009" class="LineNr">18009 </span> 05/add-to-eax 4/imm32 @@ -16519,41 +16519,41 @@ if ('onhashchange' in window) { <span id="L18012" class="LineNr">18012 </span> 50/push-eax <span id="L18013" class="LineNr">18013 </span> 89/<- %ecx 4/r32/esp <span id="L18014" class="LineNr">18014 </span> <span class="subxComment">#</span> -<span id="L18015" class="LineNr">18015 </span> (<a href='mu.subx.html#L17769'>identifier?</a> %ecx) -<span id="L18016" class="LineNr">18016 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-is-identifier-curly-brace-open"</span>) +<span id="L18015" class="LineNr">18015 </span> (<a href='mu.subx.html#L17791'>identifier?</a> %ecx) +<span id="L18016" class="LineNr">18016 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-is-identifier-backtick"</span>) <span id="L18017" class="LineNr">18017 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L18018" class="LineNr">18018 </span> 89/<- %esp 5/r32/ebp <span id="L18019" class="LineNr">18019 </span> 5d/pop-to-ebp <span id="L18020" class="LineNr">18020 </span> c3/return <span id="L18021" class="LineNr">18021 </span> -<span id="L18022" class="LineNr">18022 </span><span class="subxTest">test-is-identifier-curly-brace-close</span>: -<span id="L18023" class="LineNr">18023 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18024" class="LineNr">18024 </span> 55/push-ebp -<span id="L18025" class="LineNr">18025 </span> 89/<- %ebp 4/r32/esp -<span id="L18026" class="LineNr">18026 </span> <span class="subxComment"># (eax..ecx) = "}a"</span> -<span id="L18027" class="LineNr">18027 </span> b8/copy-to-eax <span class="Constant">"}a"</span>/imm32 -<span id="L18028" class="LineNr">18028 </span> 8b/-> *eax 1/r32/ecx -<span id="L18029" class="LineNr">18029 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L18030" class="LineNr">18030 </span> 05/add-to-eax 4/imm32 -<span id="L18031" class="LineNr">18031 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L18032" class="LineNr">18032 </span> 51/push-ecx -<span id="L18033" class="LineNr">18033 </span> 50/push-eax -<span id="L18034" class="LineNr">18034 </span> 89/<- %ecx 4/r32/esp -<span id="L18035" class="LineNr">18035 </span> <span class="subxComment">#</span> -<span id="L18036" class="LineNr">18036 </span> (<a href='mu.subx.html#L17769'>identifier?</a> %ecx) -<span id="L18037" class="LineNr">18037 </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="L18038" class="LineNr">18038 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18039" class="LineNr">18039 </span> 89/<- %esp 5/r32/ebp -<span id="L18040" class="LineNr">18040 </span> 5d/pop-to-ebp -<span id="L18041" class="LineNr">18041 </span> c3/return -<span id="L18042" class="LineNr">18042 </span> -<span id="L18043" class="LineNr">18043 </span><span class="subxTest">test-is-identifier-hyphen</span>: -<span id="L18044" class="LineNr">18044 </span> <span class="subxComment"># disallow leading '-' since '->' has special meaning</span> +<span id="L18022" class="LineNr">18022 </span><span class="subxTest">test-is-identifier-curly-brace-open</span>: +<span id="L18023" class="LineNr">18023 </span> <span class="subxComment"># character after 'z' is invalid; also used for blocks</span> +<span id="L18024" class="LineNr">18024 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18025" class="LineNr">18025 </span> 55/push-ebp +<span id="L18026" class="LineNr">18026 </span> 89/<- %ebp 4/r32/esp +<span id="L18027" class="LineNr">18027 </span> <span class="subxComment"># (eax..ecx) = "{a"</span> +<span id="L18028" class="LineNr">18028 </span> b8/copy-to-eax <span class="Constant">"{a"</span>/imm32 +<span id="L18029" class="LineNr">18029 </span> 8b/-> *eax 1/r32/ecx +<span id="L18030" class="LineNr">18030 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L18031" class="LineNr">18031 </span> 05/add-to-eax 4/imm32 +<span id="L18032" class="LineNr">18032 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L18033" class="LineNr">18033 </span> 51/push-ecx +<span id="L18034" class="LineNr">18034 </span> 50/push-eax +<span id="L18035" class="LineNr">18035 </span> 89/<- %ecx 4/r32/esp +<span id="L18036" class="LineNr">18036 </span> <span class="subxComment">#</span> +<span id="L18037" class="LineNr">18037 </span> (<a href='mu.subx.html#L17791'>identifier?</a> %ecx) +<span id="L18038" class="LineNr">18038 </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="L18039" class="LineNr">18039 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18040" class="LineNr">18040 </span> 89/<- %esp 5/r32/ebp +<span id="L18041" class="LineNr">18041 </span> 5d/pop-to-ebp +<span id="L18042" class="LineNr">18042 </span> c3/return +<span id="L18043" class="LineNr">18043 </span> +<span id="L18044" class="LineNr">18044 </span><span class="subxTest">test-is-identifier-curly-brace-close</span>: <span id="L18045" class="LineNr">18045 </span> <span class="subxS1Comment"># . prologue</span> <span id="L18046" class="LineNr">18046 </span> 55/push-ebp <span id="L18047" class="LineNr">18047 </span> 89/<- %ebp 4/r32/esp -<span id="L18048" class="LineNr">18048 </span> <span class="subxComment"># (eax..ecx) = "-a"</span> -<span id="L18049" class="LineNr">18049 </span> b8/copy-to-eax <span class="Constant">"-a"</span>/imm32 +<span id="L18048" class="LineNr">18048 </span> <span class="subxComment"># (eax..ecx) = "}a"</span> +<span id="L18049" class="LineNr">18049 </span> b8/copy-to-eax <span class="Constant">"}a"</span>/imm32 <span id="L18050" class="LineNr">18050 </span> 8b/-> *eax 1/r32/ecx <span id="L18051" class="LineNr">18051 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx <span id="L18052" class="LineNr">18052 </span> 05/add-to-eax 4/imm32 @@ -16562,18911 +16562,18926 @@ if ('onhashchange' in window) { <span id="L18055" class="LineNr">18055 </span> 50/push-eax <span id="L18056" class="LineNr">18056 </span> 89/<- %ecx 4/r32/esp <span id="L18057" class="LineNr">18057 </span> <span class="subxComment">#</span> -<span id="L18058" class="LineNr">18058 </span> (<a href='mu.subx.html#L17769'>identifier?</a> %ecx) -<span id="L18059" class="LineNr">18059 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-is-identifier-hyphen"</span>) +<span id="L18058" class="LineNr">18058 </span> (<a href='mu.subx.html#L17791'>identifier?</a> %ecx) +<span id="L18059" class="LineNr">18059 </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="L18060" class="LineNr">18060 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L18061" class="LineNr">18061 </span> 89/<- %esp 5/r32/ebp <span id="L18062" class="LineNr">18062 </span> 5d/pop-to-ebp <span id="L18063" class="LineNr">18063 </span> c3/return <span id="L18064" class="LineNr">18064 </span> -<span id="L18065" class="LineNr">18065 </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="L18066" class="LineNr">18066 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18067" class="LineNr">18067 </span> 55/push-ebp -<span id="L18068" class="LineNr">18068 </span> 89/<- %ebp 4/r32/esp -<span id="L18069" class="LineNr">18069 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L18070" class="LineNr">18070 </span> 50/push-eax -<span id="L18071" class="LineNr">18071 </span> 56/push-esi -<span id="L18072" class="LineNr">18072 </span> 57/push-edi -<span id="L18073" class="LineNr">18073 </span> <span class="subxComment"># esi = in</span> -<span id="L18074" class="LineNr">18074 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L18075" class="LineNr">18075 </span> <span class="subxComment"># edi = out</span> -<span id="L18076" class="LineNr">18076 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L18077" class="LineNr">18077 </span> <span class="subxComment"># initialize some global state</span> -<span id="L18078" class="LineNr">18078 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span> 1/imm32 -<span id="L18079" class="LineNr">18079 </span> <span class="subxComment"># parse-mu-block(in, vars, out, out->body)</span> -<span id="L18080" class="LineNr">18080 </span> 8d/copy-address *(edi+0x18) 0/r32/eax <span class="subxComment"># Function-body</span> -<span id="L18081" class="LineNr">18081 </span> (<a href='mu.subx.html#L18093'>parse-mu-block</a> %esi *(ebp+0x10) %edi %eax *(ebp+0x14) *(ebp+0x18)) -<span id="L18082" class="LineNr">18082 </span><span class="Constant">$populate-mu-function-body:end</span>: -<span id="L18083" class="LineNr">18083 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L18084" class="LineNr">18084 </span> 5f/pop-to-edi -<span id="L18085" class="LineNr">18085 </span> 5e/pop-to-esi -<span id="L18086" class="LineNr">18086 </span> 58/pop-to-eax -<span id="L18087" class="LineNr">18087 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18088" class="LineNr">18088 </span> 89/<- %esp 5/r32/ebp -<span id="L18089" class="LineNr">18089 </span> 5d/pop-to-ebp -<span id="L18090" class="LineNr">18090 </span> c3/return -<span id="L18091" class="LineNr">18091 </span> -<span id="L18092" class="LineNr">18092 </span><span class="subxComment"># parses a block, assuming that the leading '{' has already been read by the caller</span> -<span id="L18093" class="LineNr">18093 </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="L18094" class="LineNr">18094 </span> <span class="subxComment"># pseudocode:</span> -<span id="L18095" class="LineNr">18095 </span> <span class="subxComment"># var line: (stream byte 512)</span> -<span id="L18096" class="LineNr">18096 </span> <span class="subxComment"># var word-slice: slice</span> -<span id="L18097" class="LineNr">18097 </span> <span class="subxComment"># allocate(Heap, Stmt-size, out)</span> -<span id="L18098" class="LineNr">18098 </span> <span class="subxComment"># var out-addr: (addr block) = lookup(*out)</span> -<span id="L18099" class="LineNr">18099 </span> <span class="subxComment"># out-addr->tag = 0/block</span> -<span id="L18100" class="LineNr">18100 </span> <span class="subxComment"># out-addr->var = some unique name</span> -<span id="L18101" class="LineNr">18101 </span> <span class="subxComment"># push(vars, {out-addr->var, false})</span> -<span id="L18102" class="LineNr">18102 </span> <span class="subxComment"># while true # line loop</span> -<span id="L18103" class="LineNr">18103 </span> <span class="subxComment"># clear-stream(line)</span> -<span id="L18104" class="LineNr">18104 </span> <span class="subxComment"># read-line-buffered(in, line)</span> -<span id="L18105" class="LineNr">18105 </span> <span class="subxComment"># if (line->write == 0) break # end of file</span> -<span id="L18106" class="LineNr">18106 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> -<span id="L18107" class="LineNr">18107 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> -<span id="L18108" class="LineNr">18108 </span> <span class="subxComment"># continue</span> -<span id="L18109" class="LineNr">18109 </span> <span class="subxComment"># else if slice-starts-with?(word-slice, "#")</span> -<span id="L18110" class="LineNr">18110 </span> <span class="subxComment"># continue</span> -<span id="L18111" class="LineNr">18111 </span> <span class="subxComment"># else if slice-equal?(word-slice, "{")</span> -<span id="L18112" class="LineNr">18112 </span> <span class="subxComment"># assert(no-tokens-in(line))</span> -<span id="L18113" class="LineNr">18113 </span> <span class="subxComment"># block = parse-mu-block(in, vars, fn)</span> -<span id="L18114" class="LineNr">18114 </span> <span class="subxComment"># append-to-block(out-addr, block)</span> -<span id="L18115" class="LineNr">18115 </span> <span class="subxComment"># else if slice-equal?(word-slice, "}")</span> -<span id="L18116" class="LineNr">18116 </span> <span class="subxComment"># break</span> -<span id="L18117" class="LineNr">18117 </span> <span class="subxComment"># else if slice-ends-with?(word-slice, ":")</span> -<span id="L18118" class="LineNr">18118 </span> <span class="subxComment"># # TODO: error-check the rest of 'line'</span> -<span id="L18119" class="LineNr">18119 </span> <span class="subxComment"># --word-slice->end to skip ':'</span> -<span id="L18120" class="LineNr">18120 </span> <span class="subxComment"># named-block = parse-mu-named-block(word-slice, in, vars, fn)</span> -<span id="L18121" class="LineNr">18121 </span> <span class="subxComment"># append-to-block(out-addr, named-block)</span> -<span id="L18122" class="LineNr">18122 </span> <span class="subxComment"># else if slice-equal?(word-slice, "var")</span> -<span id="L18123" class="LineNr">18123 </span> <span class="subxComment"># var-def = parse-mu-var-def(line, vars, fn)</span> -<span id="L18124" class="LineNr">18124 </span> <span class="subxComment"># append-to-block(out-addr, var-def)</span> -<span id="L18125" class="LineNr">18125 </span> <span class="subxComment"># else</span> -<span id="L18126" class="LineNr">18126 </span> <span class="subxComment"># stmt = parse-mu-stmt(line, vars, fn)</span> -<span id="L18127" class="LineNr">18127 </span> <span class="subxComment"># append-to-block(out-addr, stmt)</span> -<span id="L18128" class="LineNr">18128 </span> <span class="subxComment"># pop(vars)</span> -<span id="L18129" class="LineNr">18129 </span> <span class="subxComment">#</span> -<span id="L18130" class="LineNr">18130 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18131" class="LineNr">18131 </span> 55/push-ebp -<span id="L18132" class="LineNr">18132 </span> 89/<- %ebp 4/r32/esp -<span id="L18133" class="LineNr">18133 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L18134" class="LineNr">18134 </span> 50/push-eax -<span id="L18135" class="LineNr">18135 </span> 51/push-ecx -<span id="L18136" class="LineNr">18136 </span> 52/push-edx -<span id="L18137" class="LineNr">18137 </span> 53/push-ebx -<span id="L18138" class="LineNr">18138 </span> 57/push-edi -<span id="L18139" class="LineNr">18139 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> -<span id="L18140" class="LineNr">18140 </span> 81 5/subop/subtract %esp 0x200/imm32 -<span id="L18141" class="LineNr">18141 </span> 68/push 0x200/imm32/size -<span id="L18142" class="LineNr">18142 </span> 68/push 0/imm32/read -<span id="L18143" class="LineNr">18143 </span> 68/push 0/imm32/write -<span id="L18144" class="LineNr">18144 </span> 89/<- %ecx 4/r32/esp -<span id="L18145" class="LineNr">18145 </span> <span class="subxComment"># var word-slice/edx: slice</span> -<span id="L18146" class="LineNr">18146 </span> 68/push 0/imm32/end -<span id="L18147" class="LineNr">18147 </span> 68/push 0/imm32/start -<span id="L18148" class="LineNr">18148 </span> 89/<- %edx 4/r32/esp -<span id="L18149" class="LineNr">18149 </span> <span class="subxComment"># allocate into out</span> -<span id="L18150" class="LineNr">18150 </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="L18151" class="LineNr">18151 </span> <span class="subxComment"># var out-addr/edi: (addr block) = lookup(*out)</span> -<span id="L18152" class="LineNr">18152 </span> 8b/-> *(ebp+0x14) 7/r32/edi -<span id="L18153" class="LineNr">18153 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L18154" class="LineNr">18154 </span> 89/<- %edi 0/r32/eax -<span id="L18155" class="LineNr">18155 </span> <span class="subxComment"># out-addr->tag is 0 (block) by default</span> -<span id="L18156" class="LineNr">18156 </span> <span class="subxComment"># set out-addr->var</span> -<span id="L18157" class="LineNr">18157 </span> 8d/copy-address *(edi+0xc) 0/r32/eax <span class="subxComment"># Block-var</span> -<span id="L18158" class="LineNr">18158 </span> (<a href='mu.subx.html#L18313'>new-block-name</a> *(ebp+0x10) %eax) -<span id="L18159" class="LineNr">18159 </span> <span class="subxComment"># push(vars, out-addr->var)</span> -<span id="L18160" class="LineNr">18160 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0xc) *(edi+0xc)) <span class="subxComment"># Block-var</span> -<span id="L18161" class="LineNr">18161 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0xc) *(edi+0x10)) <span class="subxComment"># Block-var</span> -<span id="L18162" class="LineNr">18162 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0xc) 0) <span class="subxComment"># false</span> -<span id="L18163" class="LineNr">18163 </span> <span class="subxComment"># increment *Curr-block-depth</span> -<span id="L18164" class="LineNr">18164 </span> ff 0/subop/increment *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span> -<span id="L18165" class="LineNr">18165 </span> { -<span id="L18166" class="LineNr">18166 </span><span class="Constant">$parse-mu-block:line-loop</span>: -<span id="L18167" class="LineNr">18167 </span> <span class="subxComment"># line = read-line-buffered(in)</span> -<span id="L18168" class="LineNr">18168 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> %ecx) -<span id="L18169" class="LineNr">18169 </span> (<a href='122read-line.subx.html#L9'>read-line-buffered</a> *(ebp+8) %ecx) -<span id="L18170" class="LineNr">18170 </span><span class="CommentedCode">#? (write-buffered Stderr "line: ")</span> -<span id="L18171" class="LineNr">18171 </span><span class="CommentedCode">#? (write-stream-data Stderr %ecx)</span> -<span id="L18172" class="LineNr">18172 </span><span class="CommentedCode">#? #? (write-buffered Stderr Newline) # line has its own newline</span> -<span id="L18173" class="LineNr">18173 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L18174" class="LineNr">18174 </span><span class="CommentedCode">#? (rewind-stream %ecx)</span> -<span id="L18175" class="LineNr">18175 </span> <span class="subxComment"># if (line->write == 0) break</span> -<span id="L18176" class="LineNr">18176 </span> 81 7/subop/compare *ecx 0/imm32 -<span id="L18177" class="LineNr">18177 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L18178" class="LineNr">18178 </span><span class="CommentedCode">#? (write-buffered Stderr "vars:\n")</span> -<span id="L18179" class="LineNr">18179 </span><span class="CommentedCode">#? (dump-vars *(ebp+0xc))</span> -<span id="L18180" class="LineNr">18180 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> -<span id="L18181" class="LineNr">18181 </span> (<a href='mu.subx.html#L17283'>next-mu-token</a> %ecx %edx) -<span id="L18182" class="LineNr">18182 </span><span class="CommentedCode">#? (write-buffered Stderr "word: ")</span> -<span id="L18183" class="LineNr">18183 </span><span class="CommentedCode">#? (write-slice-buffered Stderr %edx)</span> -<span id="L18184" class="LineNr">18184 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L18185" class="LineNr">18185 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L18186" class="LineNr">18186 </span> <span class="subxComment"># if slice-empty?(word-slice) continue</span> -<span id="L18187" class="LineNr">18187 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %edx) -<span id="L18188" class="LineNr">18188 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18189" class="LineNr">18189 </span> 0f 85/jump-if-!= <span class="Constant">loop</span>/disp32 -<span id="L18190" class="LineNr">18190 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, '#') continue</span> -<span id="L18191" class="LineNr">18191 </span> <span class="subxS1Comment"># . eax = *word-slice->start</span> -<span id="L18192" class="LineNr">18192 </span> 8b/-> *edx 0/r32/eax -<span id="L18193" class="LineNr">18193 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L18194" class="LineNr">18194 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L18195" class="LineNr">18195 </span> <span class="subxS1Comment"># . if (eax == '#') continue</span> -<span id="L18196" class="LineNr">18196 </span> 3d/compare-eax-and 0x23/imm32/hash -<span id="L18197" class="LineNr">18197 </span> 0f 84/jump-if-= <span class="Constant">loop</span>/disp32 -<span id="L18198" class="LineNr">18198 </span> <span class="subxComment"># if slice-equal?(word-slice, "{")</span> -<span id="L18199" class="LineNr">18199 </span> { -<span id="L18200" class="LineNr">18200 </span><span class="Constant">$parse-mu-block:check-for-block</span>: -<span id="L18201" class="LineNr">18201 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"{"</span>) -<span id="L18202" class="LineNr">18202 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18203" class="LineNr">18203 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L18204" class="LineNr">18204 </span> (<a href='mu.subx.html#L18377'>check-no-tokens-left</a> %ecx) -<span id="L18205" class="LineNr">18205 </span> <span class="subxComment"># parse new block and append</span> -<span id="L18206" class="LineNr">18206 </span> <span class="subxS1Comment"># . var tmp/eax: (handle block)</span> -<span id="L18207" class="LineNr">18207 </span> 68/push 0/imm32 -<span id="L18208" class="LineNr">18208 </span> 68/push 0/imm32 -<span id="L18209" class="LineNr">18209 </span> 89/<- %eax 4/r32/esp -<span id="L18210" class="LineNr">18210 </span> <span class="subxS1Comment"># .</span> -<span id="L18211" class="LineNr">18211 </span> (<a href='mu.subx.html#L18093'>parse-mu-block</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) %eax *(ebp+0x18) *(ebp+0x1c)) -<span id="L18212" class="LineNr">18212 </span> (<a href='mu.subx.html#L20128'>append-to-block</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %edi *eax *(eax+4)) -<span id="L18213" class="LineNr">18213 </span> <span class="subxS1Comment"># . reclaim tmp</span> -<span id="L18214" class="LineNr">18214 </span> 81 0/subop/add %esp 8/imm32 -<span id="L18215" class="LineNr">18215 </span> <span class="subxS1Comment"># .</span> -<span id="L18216" class="LineNr">18216 </span> e9/jump $parse-mu-block:line-loop/disp32 -<span id="L18217" class="LineNr">18217 </span> } -<span id="L18218" class="LineNr">18218 </span> <span class="subxComment"># if slice-equal?(word-slice, "}") break</span> -<span id="L18219" class="LineNr">18219 </span><span class="Constant">$parse-mu-block:check-for-end</span>: -<span id="L18220" class="LineNr">18220 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"}"</span>) -<span id="L18221" class="LineNr">18221 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18222" class="LineNr">18222 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L18223" class="LineNr">18223 </span> <span class="subxComment"># if slice-ends-with?(word-slice, ":") parse named block and append</span> -<span id="L18224" class="LineNr">18224 </span> { -<span id="L18225" class="LineNr">18225 </span><span class="Constant">$parse-mu-block:check-for-named-block</span>: -<span id="L18226" class="LineNr">18226 </span> <span class="subxS1Comment"># . eax = *(word-slice->end-1)</span> -<span id="L18227" class="LineNr">18227 </span> 8b/-> *(edx+4) 0/r32/eax -<span id="L18228" class="LineNr">18228 </span> 48/decrement-eax -<span id="L18229" class="LineNr">18229 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L18230" class="LineNr">18230 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L18231" class="LineNr">18231 </span> <span class="subxS1Comment"># . if (eax != ':') break</span> -<span id="L18232" class="LineNr">18232 </span> 3d/compare-eax-and 0x3a/imm32/colon -<span id="L18233" class="LineNr">18233 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L18234" class="LineNr">18234 </span> <span class="subxComment"># TODO: error-check the rest of 'line'</span> -<span id="L18235" class="LineNr">18235 </span> <span class="subxComment">#</span> -<span id="L18236" class="LineNr">18236 </span> <span class="subxComment"># skip ':'</span> -<span id="L18237" class="LineNr">18237 </span> ff 1/subop/decrement *(edx+4) <span class="subxComment"># Slice-end</span> -<span id="L18238" class="LineNr">18238 </span> <span class="subxComment"># var tmp/eax: (handle block)</span> -<span id="L18239" class="LineNr">18239 </span> 68/push 0/imm32 -<span id="L18240" class="LineNr">18240 </span> 68/push 0/imm32 -<span id="L18241" class="LineNr">18241 </span> 89/<- %eax 4/r32/esp -<span id="L18242" class="LineNr">18242 </span> <span class="subxComment">#</span> -<span id="L18243" class="LineNr">18243 </span> (<a href='mu.subx.html#L18423'>parse-mu-named-block</a> %edx *(ebp+8) *(ebp+0xc) *(ebp+0x10) %eax *(ebp+0x18) *(ebp+0x1c)) -<span id="L18244" class="LineNr">18244 </span> (<a href='mu.subx.html#L20128'>append-to-block</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %edi *eax *(eax+4)) -<span id="L18245" class="LineNr">18245 </span> <span class="subxComment"># reclaim tmp</span> -<span id="L18246" class="LineNr">18246 </span> 81 0/subop/add %esp 8/imm32 -<span id="L18247" class="LineNr">18247 </span> <span class="subxComment">#</span> -<span id="L18248" class="LineNr">18248 </span> e9/jump $parse-mu-block:line-loop/disp32 -<span id="L18249" class="LineNr">18249 </span> } -<span id="L18250" class="LineNr">18250 </span> <span class="subxComment"># if slice-equal?(word-slice, "var")</span> -<span id="L18251" class="LineNr">18251 </span> { -<span id="L18252" class="LineNr">18252 </span><span class="Constant">$parse-mu-block:check-for-var</span>: -<span id="L18253" class="LineNr">18253 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"var"</span>) -<span id="L18254" class="LineNr">18254 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18255" class="LineNr">18255 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L18256" class="LineNr">18256 </span> <span class="subxComment"># var tmp/eax: (handle block)</span> -<span id="L18257" class="LineNr">18257 </span> 68/push 0/imm32 -<span id="L18258" class="LineNr">18258 </span> 68/push 0/imm32 -<span id="L18259" class="LineNr">18259 </span> 89/<- %eax 4/r32/esp -<span id="L18260" class="LineNr">18260 </span> <span class="subxComment">#</span> -<span id="L18261" class="LineNr">18261 </span> (<a href='mu.subx.html#L18479'>parse-mu-var-def</a> %ecx *(ebp+0xc) %eax *(ebp+0x10) *(ebp+0x18) *(ebp+0x1c)) -<span id="L18262" class="LineNr">18262 </span> (<a href='mu.subx.html#L20128'>append-to-block</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %edi *eax *(eax+4)) -<span id="L18263" class="LineNr">18263 </span> <span class="subxComment"># reclaim tmp</span> -<span id="L18264" class="LineNr">18264 </span> 81 0/subop/add %esp 8/imm32 -<span id="L18265" class="LineNr">18265 </span> <span class="subxComment">#</span> -<span id="L18266" class="LineNr">18266 </span> e9/jump $parse-mu-block:line-loop/disp32 -<span id="L18267" class="LineNr">18267 </span> } -<span id="L18268" class="LineNr">18268 </span><span class="Constant">$parse-mu-block:regular-stmt</span>: -<span id="L18269" class="LineNr">18269 </span> <span class="subxComment"># otherwise</span> -<span id="L18270" class="LineNr">18270 </span> <span class="subxComment"># var tmp/eax: (handle block)</span> -<span id="L18271" class="LineNr">18271 </span> 68/push 0/imm32 -<span id="L18272" class="LineNr">18272 </span> 68/push 0/imm32 -<span id="L18273" class="LineNr">18273 </span> 89/<- %eax 4/r32/esp -<span id="L18274" class="LineNr">18274 </span> <span class="subxComment">#</span> -<span id="L18275" class="LineNr">18275 </span> (<a href='mu.subx.html#L18743'>parse-mu-stmt</a> %ecx *(ebp+0xc) *(ebp+0x10) %eax *(ebp+0x18) *(ebp+0x1c)) -<span id="L18276" class="LineNr">18276 </span> (<a href='mu.subx.html#L20128'>append-to-block</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %edi *eax *(eax+4)) -<span id="L18277" class="LineNr">18277 </span> <span class="subxComment"># reclaim tmp</span> -<span id="L18278" class="LineNr">18278 </span> 81 0/subop/add %esp 8/imm32 -<span id="L18279" class="LineNr">18279 </span> <span class="subxComment">#</span> -<span id="L18280" class="LineNr">18280 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L18281" class="LineNr">18281 </span> } <span class="subxComment"># end line loop</span> -<span id="L18282" class="LineNr">18282 </span> (<a href='mu.subx.html#L28415'>clean-up-blocks</a> *(ebp+0xc) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span> *(ebp+0x10)) -<span id="L18283" class="LineNr">18283 </span> <span class="subxComment"># decrement *Curr-block-depth</span> -<span id="L18284" class="LineNr">18284 </span> ff 1/subop/decrement *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span> -<span id="L18285" class="LineNr">18285 </span> <span class="subxComment"># pop(vars)</span> -<span id="L18286" class="LineNr">18286 </span> (<a href='203stack.subx.html#L234'>pop</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L18287" class="LineNr">18287 </span> (<a href='203stack.subx.html#L234'>pop</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L18288" class="LineNr">18288 </span> (<a href='203stack.subx.html#L234'>pop</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L18289" class="LineNr">18289 </span><span class="Constant">$parse-mu-block:end</span>: -<span id="L18290" class="LineNr">18290 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L18291" class="LineNr">18291 </span> 81 0/subop/add %esp 0x214/imm32 -<span id="L18292" class="LineNr">18292 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L18293" class="LineNr">18293 </span> 5f/pop-to-edi -<span id="L18294" class="LineNr">18294 </span> 5b/pop-to-ebx -<span id="L18295" class="LineNr">18295 </span> 5a/pop-to-edx -<span id="L18296" class="LineNr">18296 </span> 59/pop-to-ecx -<span id="L18297" class="LineNr">18297 </span> 58/pop-to-eax -<span id="L18298" class="LineNr">18298 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18299" class="LineNr">18299 </span> 89/<- %esp 5/r32/ebp -<span id="L18300" class="LineNr">18300 </span> 5d/pop-to-ebp -<span id="L18301" class="LineNr">18301 </span> c3/return -<span id="L18302" class="LineNr">18302 </span> -<span id="L18303" class="LineNr">18303 </span><span class="Constant">$parse-mu-block:abort</span>: -<span id="L18304" class="LineNr">18304 </span> <span class="subxComment"># error("'{' or '}' should be on its own line, but got '")</span> -<span id="L18305" class="LineNr">18305 </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="L18306" class="LineNr">18306 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> %ecx) -<span id="L18307" class="LineNr">18307 </span> (<a href='125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x18) %ecx) -<span id="L18308" class="LineNr">18308 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) -<span id="L18309" class="LineNr">18309 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L18310" class="LineNr">18310 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L18311" class="LineNr">18311 </span> <span class="subxComment"># never gets here</span> -<span id="L18312" class="LineNr">18312 </span> -<span id="L18313" class="LineNr">18313 </span><span class="subxFunction">new-block-name</span>: <span class="subxComment"># fn: (addr function), out: (addr handle var)</span> -<span id="L18314" class="LineNr">18314 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18315" class="LineNr">18315 </span> 55/push-ebp -<span id="L18316" class="LineNr">18316 </span> 89/<- %ebp 4/r32/esp -<span id="L18317" class="LineNr">18317 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L18318" class="LineNr">18318 </span> 50/push-eax -<span id="L18319" class="LineNr">18319 </span> 51/push-ecx -<span id="L18320" class="LineNr">18320 </span> 52/push-edx -<span id="L18321" class="LineNr">18321 </span> <span class="subxComment"># var n/ecx: int = len(fn->name) + 10 for an int + 2 for '$:'</span> -<span id="L18322" class="LineNr">18322 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L18323" class="LineNr">18323 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L18324" class="LineNr">18324 </span> 8b/-> *eax 0/r32/eax <span class="subxComment"># String-size</span> -<span id="L18325" class="LineNr">18325 </span> 05/add-to-eax 0xd/imm32 <span class="subxComment"># 10 + 2 for '$:'</span> -<span id="L18326" class="LineNr">18326 </span> 89/<- %ecx 0/r32/eax -<span id="L18327" class="LineNr">18327 </span> <span class="subxComment"># var name/edx: (stream byte n)</span> -<span id="L18328" class="LineNr">18328 </span> 29/subtract-from %esp 1/r32/ecx -<span id="L18329" class="LineNr">18329 </span> ff 6/subop/push %ecx -<span id="L18330" class="LineNr">18330 </span> 68/push 0/imm32/read -<span id="L18331" class="LineNr">18331 </span> 68/push 0/imm32/write -<span id="L18332" class="LineNr">18332 </span> 89/<- %edx 4/r32/esp -<span id="L18333" class="LineNr">18333 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> %edx) -<span id="L18334" class="LineNr">18334 </span> <span class="subxComment"># eax = fn->name</span> -<span id="L18335" class="LineNr">18335 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L18336" class="LineNr">18336 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L18337" class="LineNr">18337 </span> <span class="subxComment"># construct result using Next-block-index (and increment it)</span> -<span id="L18338" class="LineNr">18338 </span> (<a href='108write.subx.html#L24'>write</a> %edx <span class="Constant">"$"</span>) -<span id="L18339" class="LineNr">18339 </span> (<a href='108write.subx.html#L24'>write</a> %edx %eax) -<span id="L18340" class="LineNr">18340 </span> (<a href='108write.subx.html#L24'>write</a> %edx <span class="Constant">":"</span>) -<span id="L18341" class="LineNr">18341 </span> (<a href='117write-int-hex.subx.html#L178'>write-int32-hex</a> %edx *<span class="SpecialChar"><a href='mu.subx.html#L15691'>Next-block-index</a></span>) -<span id="L18342" class="LineNr">18342 </span> ff 0/subop/increment *<span class="SpecialChar"><a href='mu.subx.html#L15691'>Next-block-index</a></span> -<span id="L18343" class="LineNr">18343 </span> <span class="subxComment"># var s/eax: slice = {name->data, name->data + name->write} (clobbering edx)</span> -<span id="L18344" class="LineNr">18344 </span> <span class="subxS1Comment"># . eax = name->write</span> -<span id="L18345" class="LineNr">18345 </span> 8b/-> *edx 0/r32/eax -<span id="L18346" class="LineNr">18346 </span> <span class="subxS1Comment"># . edx = name->data</span> -<span id="L18347" class="LineNr">18347 </span> 8d/copy-address *(edx+0xc) 2/r32/edx -<span id="L18348" class="LineNr">18348 </span> <span class="subxS1Comment"># . eax = name->write + name->data</span> -<span id="L18349" class="LineNr">18349 </span> 01/add-to %eax 2/r32/edx -<span id="L18350" class="LineNr">18350 </span> <span class="subxS1Comment"># . push {edx, eax}</span> -<span id="L18351" class="LineNr">18351 </span> ff 6/subop/push %eax -<span id="L18352" class="LineNr">18352 </span> ff 6/subop/push %edx -<span id="L18353" class="LineNr">18353 </span> 89/<- %eax 4/r32/esp -<span id="L18354" class="LineNr">18354 </span> <span class="subxComment"># out = new literal(s)</span> -<span id="L18355" class="LineNr">18355 </span> (<a href='mu.subx.html#L19855'>new-literal</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %eax *(ebp+0xc)) -<span id="L18356" class="LineNr">18356 </span><span class="CommentedCode">#? 8b/-> *(ebp+0xc) 0/r32/eax</span> -<span id="L18357" class="LineNr">18357 </span><span class="CommentedCode">#? (write-buffered Stderr "type allocid in caller after new-literal: ")</span> -<span id="L18358" class="LineNr">18358 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(eax+8))</span> -<span id="L18359" class="LineNr">18359 </span><span class="CommentedCode">#? (write-buffered Stderr " for var ")</span> -<span id="L18360" class="LineNr">18360 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L18361" class="LineNr">18361 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L18362" class="LineNr">18362 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L18363" class="LineNr">18363 </span><span class="Constant">$new-block-name: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 %ecx 0xc/imm32 <span class="subxComment"># name.{read/write/len}</span> -<span id="L18366" class="LineNr">18366 </span> 81 0/subop/add %ecx 8/imm32 <span class="subxComment"># slice</span> -<span id="L18367" class="LineNr">18367 </span> 01/add-to %esp 1/r32/ecx -<span id="L18368" class="LineNr">18368 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L18369" class="LineNr">18369 </span> 5a/pop-to-edx -<span id="L18370" class="LineNr">18370 </span> 59/pop-to-ecx -<span id="L18371" class="LineNr">18371 </span> 58/pop-to-eax -<span id="L18372" class="LineNr">18372 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18373" class="LineNr">18373 </span> 89/<- %esp 5/r32/ebp -<span id="L18374" class="LineNr">18374 </span> 5d/pop-to-ebp -<span id="L18375" class="LineNr">18375 </span> c3/return -<span id="L18376" class="LineNr">18376 </span> -<span id="L18377" class="LineNr">18377 </span><span class="subxFunction">check-no-tokens-left</span>: <span class="subxComment"># line: (addr stream byte)</span> -<span id="L18378" class="LineNr">18378 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18379" class="LineNr">18379 </span> 55/push-ebp -<span id="L18380" class="LineNr">18380 </span> 89/<- %ebp 4/r32/esp -<span id="L18381" class="LineNr">18381 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L18382" class="LineNr">18382 </span> 50/push-eax -<span id="L18383" class="LineNr">18383 </span> 51/push-ecx -<span id="L18384" class="LineNr">18384 </span> <span class="subxComment"># var s/ecx: slice</span> -<span id="L18385" class="LineNr">18385 </span> 68/push 0/imm32/end -<span id="L18386" class="LineNr">18386 </span> 68/push 0/imm32/start -<span id="L18387" class="LineNr">18387 </span> 89/<- %ecx 4/r32/esp -<span id="L18388" class="LineNr">18388 </span> <span class="subxComment">#</span> -<span id="L18389" class="LineNr">18389 </span> (<a href='mu.subx.html#L17283'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L18390" class="LineNr">18390 </span> <span class="subxComment"># if slice-empty?(s) return</span> -<span id="L18391" class="LineNr">18391 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) -<span id="L18392" class="LineNr">18392 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18393" class="LineNr">18393 </span> 75/jump-if-!= $check-no-tokens-left:end/disp8 -<span id="L18394" class="LineNr">18394 </span> <span class="subxComment"># if (slice-starts-with?(s, '#') return</span> -<span id="L18395" class="LineNr">18395 </span> <span class="subxS1Comment"># . eax = *s->start</span> -<span id="L18396" class="LineNr">18396 </span> 8b/-> *edx 0/r32/eax -<span id="L18397" class="LineNr">18397 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L18398" class="LineNr">18398 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L18399" class="LineNr">18399 </span> <span class="subxS1Comment"># . if (eax == '#') continue</span> -<span id="L18400" class="LineNr">18400 </span> 3d/compare-eax-and 0x23/imm32/hash -<span id="L18401" class="LineNr">18401 </span> 74/jump-if-= $check-no-tokens-left:end/disp8 -<span id="L18402" class="LineNr">18402 </span> <span class="subxComment"># abort</span> -<span id="L18403" class="LineNr">18403 </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="L18404" class="LineNr">18404 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> %ecx) -<span id="L18405" class="LineNr">18405 </span> (<a href='113write-stream.subx.html#L17'>write-stream</a> 2 %ecx) -<span id="L18406" class="LineNr">18406 </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="L18407" class="LineNr">18407 </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="L18408" class="LineNr">18408 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L18409" class="LineNr">18409 </span> bb/copy-to-ebx 1/imm32 -<span id="L18410" class="LineNr">18410 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 -<span id="L18411" class="LineNr">18411 </span> <span class="subxComment"># never gets here</span> -<span id="L18412" class="LineNr">18412 </span><span class="Constant">$check-no-tokens-left:end</span>: -<span id="L18413" class="LineNr">18413 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L18414" class="LineNr">18414 </span> 81 0/subop/add %esp 8/imm32 -<span id="L18415" class="LineNr">18415 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L18416" class="LineNr">18416 </span> 59/pop-to-ecx -<span id="L18417" class="LineNr">18417 </span> 58/pop-to-eax -<span id="L18418" class="LineNr">18418 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18419" class="LineNr">18419 </span> 89/<- %esp 5/r32/ebp -<span id="L18420" class="LineNr">18420 </span> 5d/pop-to-ebp -<span id="L18421" class="LineNr">18421 </span> c3/return -<span id="L18422" class="LineNr">18422 </span> -<span id="L18423" class="LineNr">18423 </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="L18424" class="LineNr">18424 </span> <span class="subxComment"># pseudocode:</span> -<span id="L18425" class="LineNr">18425 </span> <span class="subxComment"># var v: (handle var)</span> -<span id="L18426" class="LineNr">18426 </span> <span class="subxComment"># new-literal(name, v)</span> -<span id="L18427" class="LineNr">18427 </span> <span class="subxComment"># push(vars, {v, false})</span> -<span id="L18428" class="LineNr">18428 </span> <span class="subxComment"># parse-mu-block(in, vars, fn, out)</span> -<span id="L18429" class="LineNr">18429 </span> <span class="subxComment"># pop(vars)</span> -<span id="L18430" class="LineNr">18430 </span> <span class="subxComment"># out->tag = block</span> -<span id="L18431" class="LineNr">18431 </span> <span class="subxComment"># out->var = v</span> -<span id="L18432" class="LineNr">18432 </span> <span class="subxComment">#</span> -<span id="L18433" class="LineNr">18433 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18434" class="LineNr">18434 </span> 55/push-ebp -<span id="L18435" class="LineNr">18435 </span> 89/<- %ebp 4/r32/esp -<span id="L18436" class="LineNr">18436 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L18437" class="LineNr">18437 </span> 50/push-eax -<span id="L18438" class="LineNr">18438 </span> 51/push-ecx -<span id="L18439" class="LineNr">18439 </span> 57/push-edi -<span id="L18440" class="LineNr">18440 </span> <span class="subxComment"># var v/ecx: (handle var)</span> -<span id="L18441" class="LineNr">18441 </span> 68/push 0/imm32 -<span id="L18442" class="LineNr">18442 </span> 68/push 0/imm32 -<span id="L18443" class="LineNr">18443 </span> 89/<- %ecx 4/r32/esp -<span id="L18444" class="LineNr">18444 </span> <span class="subxComment">#</span> -<span id="L18445" class="LineNr">18445 </span> (<a href='mu.subx.html#L19855'>new-literal</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *(ebp+8) %ecx) -<span id="L18446" class="LineNr">18446 </span> <span class="subxComment"># push(vars, v)</span> -<span id="L18447" class="LineNr">18447 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *ecx) -<span id="L18448" class="LineNr">18448 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ecx+4)) -<span id="L18449" class="LineNr">18449 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) 0) <span class="subxComment"># false</span> -<span id="L18450" class="LineNr">18450 </span> <span class="subxComment">#</span> -<span id="L18451" class="LineNr">18451 </span> (<a href='mu.subx.html#L18093'>parse-mu-block</a> *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c) *(ebp+0x20)) -<span id="L18452" class="LineNr">18452 </span> <span class="subxComment"># pop v off vars</span> -<span id="L18453" class="LineNr">18453 </span> (<a href='203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L18454" class="LineNr">18454 </span> (<a href='203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L18455" class="LineNr">18455 </span> (<a href='203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L18456" class="LineNr">18456 </span> <span class="subxComment"># var out-addr/edi: (addr stmt) = lookup(*out)</span> -<span id="L18457" class="LineNr">18457 </span> 8b/-> *(ebp+0x18) 7/r32/edi -<span id="L18458" class="LineNr">18458 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L18459" class="LineNr">18459 </span> 89/<- %edi 0/r32/eax -<span id="L18460" class="LineNr">18460 </span> <span class="subxComment"># out-addr->tag = named-block</span> -<span id="L18461" class="LineNr">18461 </span> c7 0/subop/copy *edi 0/imm32/block <span class="subxComment"># Stmt-tag</span> -<span id="L18462" class="LineNr">18462 </span> <span class="subxComment"># out-addr->var = v</span> -<span id="L18463" class="LineNr">18463 </span> 8b/-> *ecx 0/r32/eax -<span id="L18464" class="LineNr">18464 </span> 89/<- *(edi+0xc) 0/r32/eax <span class="subxComment"># Block-var</span> -<span id="L18465" class="LineNr">18465 </span> 8b/-> *(ecx+4) 0/r32/eax -<span id="L18466" class="LineNr">18466 </span> 89/<- *(edi+0x10) 0/r32/eax <span class="subxComment"># Block-var</span> -<span id="L18467" class="LineNr">18467 </span><span class="Constant">$parse-mu-named-block:end</span>: -<span id="L18468" class="LineNr">18468 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L18469" class="LineNr">18469 </span> 81 0/subop/add %esp 8/imm32 -<span id="L18470" class="LineNr">18470 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L18471" class="LineNr">18471 </span> 5f/pop-to-edi -<span id="L18472" class="LineNr">18472 </span> 59/pop-to-ecx -<span id="L18473" class="LineNr">18473 </span> 58/pop-to-eax -<span id="L18474" class="LineNr">18474 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18475" class="LineNr">18475 </span> 89/<- %esp 5/r32/ebp -<span id="L18476" class="LineNr">18476 </span> 5d/pop-to-ebp -<span id="L18477" class="LineNr">18477 </span> c3/return -<span id="L18478" class="LineNr">18478 </span> -<span id="L18479" class="LineNr">18479 </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="L18480" class="LineNr">18480 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18481" class="LineNr">18481 </span> 55/push-ebp -<span id="L18482" class="LineNr">18482 </span> 89/<- %ebp 4/r32/esp -<span id="L18483" class="LineNr">18483 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L18484" class="LineNr">18484 </span> 50/push-eax -<span id="L18485" class="LineNr">18485 </span> 51/push-ecx -<span id="L18486" class="LineNr">18486 </span> 52/push-edx -<span id="L18487" class="LineNr">18487 </span> 56/push-esi -<span id="L18488" class="LineNr">18488 </span> 57/push-edi -<span id="L18489" class="LineNr">18489 </span> <span class="subxComment"># edi = out</span> -<span id="L18490" class="LineNr">18490 </span> 8b/-> *(ebp+0x10) 7/r32/edi -<span id="L18491" class="LineNr">18491 </span> <span class="subxComment"># var word-slice/ecx: slice</span> -<span id="L18492" class="LineNr">18492 </span> 68/push 0/imm32/end -<span id="L18493" class="LineNr">18493 </span> 68/push 0/imm32/start -<span id="L18494" class="LineNr">18494 </span> 89/<- %ecx 4/r32/esp -<span id="L18495" class="LineNr">18495 </span> <span class="subxComment"># var v/edx: (handle var)</span> -<span id="L18496" class="LineNr">18496 </span> 68/push 0/imm32 -<span id="L18497" class="LineNr">18497 </span> 68/push 0/imm32 -<span id="L18498" class="LineNr">18498 </span> 89/<- %edx 4/r32/esp -<span id="L18499" class="LineNr">18499 </span> <span class="subxComment"># v = parse-var-with-type(next-mu-token(line))</span> -<span id="L18500" class="LineNr">18500 </span> (<a href='mu.subx.html#L17283'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L18501" class="LineNr">18501 </span> { -<span id="L18502" class="LineNr">18502 </span> <span class="subxComment"># just for tests, support null fn</span> -<span id="L18503" class="LineNr">18503 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L18504" class="LineNr">18504 </span> 3d/compare-eax-and 0/imm32 -<span id="L18505" class="LineNr">18505 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L18506" class="LineNr">18506 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L18507" class="LineNr">18507 </span> } -<span id="L18508" class="LineNr">18508 </span> (<a href='mu.subx.html#L16928'>parse-var-with-type</a> %ecx *(ebp+8) %edx %eax *(ebp+0x18) *(ebp+0x1c)) -<span id="L18509" class="LineNr">18509 </span> <span class="subxComment"># var v-addr/esi: (addr var)</span> -<span id="L18510" class="LineNr">18510 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L18511" class="LineNr">18511 </span> 89/<- %esi 0/r32/eax -<span id="L18512" class="LineNr">18512 </span> <span class="subxComment"># v->block-depth = *Curr-block-depth</span> -<span id="L18513" class="LineNr">18513 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span> 0/r32/eax -<span id="L18514" class="LineNr">18514 </span> 89/<- *(esi+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> -<span id="L18515" class="LineNr">18515 </span> <span class="subxComment"># either v has no register and there's no more to this line</span> -<span id="L18516" class="LineNr">18516 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 -<span id="L18517" class="LineNr">18517 </span> { -<span id="L18518" class="LineNr">18518 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L18519" class="LineNr">18519 </span> <span class="subxComment"># if v-addr->type == byte, abort</span> -<span id="L18520" class="LineNr">18520 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L18521" class="LineNr">18521 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 8) <span class="subxComment"># byte => eax</span> -<span id="L18522" class="LineNr">18522 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18523" class="LineNr">18523 </span> 0f 85/jump-if-!= $parse-mu-var-def:error-byte-on-stack/disp32 -<span id="L18524" class="LineNr">18524 </span> <span class="subxComment"># ensure that there's nothing else on this line</span> -<span id="L18525" class="LineNr">18525 </span> (<a href='mu.subx.html#L17283'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L18526" class="LineNr">18526 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L18527" class="LineNr">18527 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18528" class="LineNr">18528 </span> 0f 84/jump-if-= $parse-mu-var-def:error2/disp32 -<span id="L18529" class="LineNr">18529 </span> <span class="subxComment">#</span> -<span id="L18530" class="LineNr">18530 </span> (<a href='mu.subx.html#L19959'>new-var-def</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *edx *(edx+4) %edi) -<span id="L18531" class="LineNr">18531 </span> e9/jump $parse-mu-var-def:update-vars/disp32 -<span id="L18532" class="LineNr">18532 </span> } -<span id="L18533" class="LineNr">18533 </span> <span class="subxComment"># or v has a register and there's more to this line</span> -<span id="L18534" class="LineNr">18534 </span> { -<span id="L18535" class="LineNr">18535 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L18536" class="LineNr">18536 </span> <span class="subxComment"># if v-addr->type == byte, check for unsupported registers</span> -<span id="L18537" class="LineNr">18537 </span> { -<span id="L18538" class="LineNr">18538 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L18539" class="LineNr">18539 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 8) <span class="subxComment"># byte => eax</span> -<span id="L18540" class="LineNr">18540 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18541" class="LineNr">18541 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L18542" class="LineNr">18542 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># => eax</span> -<span id="L18543" class="LineNr">18543 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"esi"</span>) <span class="subxComment"># => eax</span> -<span id="L18544" class="LineNr">18544 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18545" class="LineNr">18545 </span> 0f 85/jump-if-!= $parse-mu-var-def:error-byte-registers/disp32 -<span id="L18546" class="LineNr">18546 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># => eax</span> -<span id="L18547" class="LineNr">18547 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"edi"</span>) <span class="subxComment"># => eax</span> -<span id="L18548" class="LineNr">18548 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18549" class="LineNr">18549 </span> 0f 85/jump-if-!= $parse-mu-var-def:error-byte-registers/disp32 -<span id="L18550" class="LineNr">18550 </span> } -<span id="L18551" class="LineNr">18551 </span> <span class="subxComment"># TODO: vars of type 'byte' should only be initialized by clearing to 0</span> -<span id="L18552" class="LineNr">18552 </span> <span class="subxComment"># ensure that the next word is '<-'</span> -<span id="L18553" class="LineNr">18553 </span> (<a href='mu.subx.html#L17283'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L18554" class="LineNr">18554 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"<-"</span>) <span class="subxComment"># => eax</span> -<span id="L18555" class="LineNr">18555 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18556" class="LineNr">18556 </span> 0f 84/jump-if-= $parse-mu-var-def:error1/disp32 -<span id="L18557" class="LineNr">18557 </span> <span class="subxComment">#</span> -<span id="L18558" class="LineNr">18558 </span> (<a href='mu.subx.html#L19987'>new-reg-var-def</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *edx *(edx+4) %edi) -<span id="L18559" class="LineNr">18559 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L18560" class="LineNr">18560 </span> (<a href='mu.subx.html#L18860'>add-operation-and-inputs-to-stmt</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L18561" class="LineNr">18561 </span> } -<span id="L18562" class="LineNr">18562 </span><span class="Constant">$parse-mu-var-def:update-vars</span>: -<span id="L18563" class="LineNr">18563 </span> <span class="subxComment"># push 'v' at end of function</span> -<span id="L18564" class="LineNr">18564 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0xc) *edx) -<span id="L18565" class="LineNr">18565 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0xc) *(edx+4)) -<span id="L18566" class="LineNr">18566 </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="L18567" class="LineNr">18567 </span><span class="Constant">$parse-mu-var-def:end</span>: -<span id="L18568" class="LineNr">18568 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L18569" class="LineNr">18569 </span> 81 0/subop/add %esp 0x10/imm32 -<span id="L18570" class="LineNr">18570 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L18571" class="LineNr">18571 </span> 5f/pop-to-edi -<span id="L18572" class="LineNr">18572 </span> 5e/pop-to-esi -<span id="L18573" class="LineNr">18573 </span> 5a/pop-to-edx -<span id="L18574" class="LineNr">18574 </span> 59/pop-to-ecx -<span id="L18575" class="LineNr">18575 </span> 58/pop-to-eax -<span id="L18576" class="LineNr">18576 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18577" class="LineNr">18577 </span> 89/<- %esp 5/r32/ebp -<span id="L18578" class="LineNr">18578 </span> 5d/pop-to-ebp -<span id="L18579" class="LineNr">18579 </span> c3/return -<span id="L18580" class="LineNr">18580 </span> -<span id="L18581" class="LineNr">18581 </span><span class="Constant">$parse-mu-var-def:error1</span>: -<span id="L18582" class="LineNr">18582 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) -<span id="L18583" class="LineNr">18583 </span> <span class="subxComment"># error("register variable requires a valid instruction to initialize but got '" line "'\n")</span> -<span id="L18584" class="LineNr">18584 </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="L18585" class="LineNr">18585 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L18586" class="LineNr">18586 </span> (<a href='125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x18) *(ebp+8)) -<span id="L18587" class="LineNr">18587 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) -<span id="L18588" class="LineNr">18588 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L18589" class="LineNr">18589 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L18590" class="LineNr">18590 </span> <span class="subxComment"># never gets here</span> -<span id="L18591" class="LineNr">18591 </span> -<span id="L18592" class="LineNr">18592 </span><span class="Constant">$parse-mu-var-def:error2</span>: -<span id="L18593" class="LineNr">18593 </span> <span class="subxComment"># error("fn " fn ": var " var ": variables on the stack can't take an initializer\n")</span> -<span id="L18594" class="LineNr">18594 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L18595" class="LineNr">18595 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L18596" class="LineNr">18596 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L18597" class="LineNr">18597 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L18598" class="LineNr">18598 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": var "</span>) -<span id="L18599" class="LineNr">18599 </span> <span class="subxComment"># var v-addr/eax: (addr var) = lookup(v)</span> -<span id="L18600" class="LineNr">18600 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L18601" class="LineNr">18601 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L18602" class="LineNr">18602 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L18603" class="LineNr">18603 </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="L18604" class="LineNr">18604 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L18605" class="LineNr">18605 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L18606" class="LineNr">18606 </span> <span class="subxComment"># never gets here</span> -<span id="L18607" class="LineNr">18607 </span> -<span id="L18608" class="LineNr">18608 </span><span class="Constant">$parse-mu-var-def:error-byte-on-stack</span>: -<span id="L18609" class="LineNr">18609 </span> <span class="subxComment"># error("fn " fn ": var '" var "' of type 'byte' cannot be on the stack\n")</span> -<span id="L18610" class="LineNr">18610 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L18611" class="LineNr">18611 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L18612" class="LineNr">18612 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L18613" class="LineNr">18613 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L18614" class="LineNr">18614 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": var '"</span>) -<span id="L18615" class="LineNr">18615 </span> <span class="subxComment"># var v-addr/eax: (addr var) = lookup(v)</span> -<span id="L18616" class="LineNr">18616 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L18617" class="LineNr">18617 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L18618" class="LineNr">18618 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L18619" class="LineNr">18619 </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="L18620" class="LineNr">18620 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L18621" class="LineNr">18621 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L18622" class="LineNr">18622 </span> <span class="subxComment"># never gets here</span> -<span id="L18623" class="LineNr">18623 </span> -<span id="L18624" class="LineNr">18624 </span><span class="Constant">$parse-mu-var-def:error-byte-registers</span>: -<span id="L18625" class="LineNr">18625 </span> <span class="subxComment"># error("fn " fn ": var '" var "' of type 'byte' cannot be in esi or edi\n")</span> -<span id="L18626" class="LineNr">18626 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L18627" class="LineNr">18627 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L18628" class="LineNr">18628 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L18629" class="LineNr">18629 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L18630" class="LineNr">18630 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": var '"</span>) -<span id="L18631" class="LineNr">18631 </span> <span class="subxComment"># var v-addr/eax: (addr var) = lookup(v)</span> -<span id="L18632" class="LineNr">18632 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L18633" class="LineNr">18633 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L18634" class="LineNr">18634 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L18635" class="LineNr">18635 </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="L18636" class="LineNr">18636 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L18637" class="LineNr">18637 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L18638" class="LineNr">18638 </span> <span class="subxComment"># never gets here</span> -<span id="L18639" class="LineNr">18639 </span> -<span id="L18640" class="LineNr">18640 </span><span class="subxTest">test-parse-mu-var-def</span>: -<span id="L18641" class="LineNr">18641 </span> <span class="subxComment"># 'var n: int'</span> -<span id="L18642" class="LineNr">18642 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18643" class="LineNr">18643 </span> 55/push-ebp -<span id="L18644" class="LineNr">18644 </span> 89/<- %ebp 4/r32/esp -<span id="L18645" class="LineNr">18645 </span> <span class="subxComment"># setup</span> -<span id="L18646" class="LineNr">18646 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L18647" class="LineNr">18647 </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="L18648" class="LineNr">18648 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L18649" class="LineNr">18649 </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="L18650" class="LineNr">18650 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span> 1/imm32 -<span id="L18651" class="LineNr">18651 </span> <span class="subxComment"># var out/esi: (handle stmt)</span> -<span id="L18652" class="LineNr">18652 </span> 68/push 0/imm32 -<span id="L18653" class="LineNr">18653 </span> 68/push 0/imm32 -<span id="L18654" class="LineNr">18654 </span> 89/<- %esi 4/r32/esp -<span id="L18655" class="LineNr">18655 </span> <span class="subxComment"># var vars/ecx: (stack (addr var) 16)</span> -<span id="L18656" class="LineNr">18656 </span> 81 5/subop/subtract %esp 0xc0/imm32 -<span id="L18657" class="LineNr">18657 </span> 68/push 0xc0/imm32/size -<span id="L18658" class="LineNr">18658 </span> 68/push 0/imm32/top -<span id="L18659" class="LineNr">18659 </span> 89/<- %ecx 4/r32/esp -<span id="L18660" class="LineNr">18660 </span> (<a href='203stack.subx.html#L13'>clear-stack</a> %ecx) -<span id="L18661" class="LineNr">18661 </span> <span class="subxComment"># convert</span> -<span id="L18662" class="LineNr">18662 </span> (<a href='mu.subx.html#L18479'>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="L18663" class="LineNr">18663 </span> <span class="subxComment"># var out-addr/esi: (addr stmt)</span> -<span id="L18664" class="LineNr">18664 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L18665" class="LineNr">18665 </span> 89/<- %esi 0/r32/eax -<span id="L18666" class="LineNr">18666 </span> <span class="subxComment">#</span> -<span id="L18667" class="LineNr">18667 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *esi 2 <span class="Constant">"F - <a href='mu.subx.html#L18640'>test-parse-mu-var-def</a>/tag"</span>) <span class="subxComment"># Stmt-tag is var-def</span> -<span id="L18668" class="LineNr">18668 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(out->var)</span> -<span id="L18669" class="LineNr">18669 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Vardef-var Vardef-var => eax</span> -<span id="L18670" class="LineNr">18670 </span> 89/<- %ecx 0/r32/eax -<span id="L18671" class="LineNr">18671 </span> <span class="subxComment"># v->name</span> -<span id="L18672" class="LineNr">18672 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L18673" class="LineNr">18673 </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#L18640'>test-parse-mu-var-def</a>/var-name"</span>) -<span id="L18674" class="LineNr">18674 </span> <span class="subxComment"># v->register</span> -<span id="L18675" class="LineNr">18675 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(ecx+0x18) 0 <span class="Constant">"F - <a href='mu.subx.html#L18640'>test-parse-mu-var-def</a>/var-register"</span>) <span class="subxComment"># Var-register</span> -<span id="L18676" class="LineNr">18676 </span> <span class="subxComment"># v->block-depth</span> -<span id="L18677" class="LineNr">18677 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(ecx+0x10) 1 <span class="Constant">"F - <a href='mu.subx.html#L18640'>test-parse-mu-var-def</a>/output-block-depth"</span>) <span class="subxComment"># Var-block-depth</span> -<span id="L18678" class="LineNr">18678 </span> <span class="subxComment"># v->type == int</span> -<span id="L18679" class="LineNr">18679 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L18680" class="LineNr">18680 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L18640'>test-parse-mu-var-def</a>/var-type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L18681" class="LineNr">18681 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L18640'>test-parse-mu-var-def</a>/var-type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L18682" class="LineNr">18682 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L18640'>test-parse-mu-var-def</a>/var-type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L18683" class="LineNr">18683 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18684" class="LineNr">18684 </span> 89/<- %esp 5/r32/ebp -<span id="L18685" class="LineNr">18685 </span> 5d/pop-to-ebp -<span id="L18686" class="LineNr">18686 </span> c3/return -<span id="L18687" class="LineNr">18687 </span> -<span id="L18688" class="LineNr">18688 </span><span class="subxTest">test-parse-mu-reg-var-def</span>: -<span id="L18689" class="LineNr">18689 </span> <span class="subxComment"># 'var n/eax: int <- copy 0'</span> -<span id="L18690" class="LineNr">18690 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18691" class="LineNr">18691 </span> 55/push-ebp -<span id="L18692" class="LineNr">18692 </span> 89/<- %ebp 4/r32/esp -<span id="L18693" class="LineNr">18693 </span> <span class="subxComment"># setup</span> -<span id="L18694" class="LineNr">18694 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L18695" class="LineNr">18695 </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="L18696" class="LineNr">18696 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L18697" class="LineNr">18697 </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="L18698" class="LineNr">18698 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span> 1/imm32 -<span id="L18699" class="LineNr">18699 </span> <span class="subxComment"># var out/esi: (handle stmt)</span> -<span id="L18700" class="LineNr">18700 </span> 68/push 0/imm32 -<span id="L18701" class="LineNr">18701 </span> 68/push 0/imm32 -<span id="L18702" class="LineNr">18702 </span> 89/<- %esi 4/r32/esp -<span id="L18703" class="LineNr">18703 </span> <span class="subxComment"># var vars/ecx: (stack (addr var) 16)</span> -<span id="L18704" class="LineNr">18704 </span> 81 5/subop/subtract %esp 0xc0/imm32 -<span id="L18705" class="LineNr">18705 </span> 68/push 0xc0/imm32/size -<span id="L18706" class="LineNr">18706 </span> 68/push 0/imm32/top -<span id="L18707" class="LineNr">18707 </span> 89/<- %ecx 4/r32/esp -<span id="L18708" class="LineNr">18708 </span> (<a href='203stack.subx.html#L13'>clear-stack</a> %ecx) -<span id="L18709" class="LineNr">18709 </span> <span class="subxComment"># convert</span> -<span id="L18710" class="LineNr">18710 </span> (<a href='mu.subx.html#L18479'>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="L18711" class="LineNr">18711 </span> <span class="subxComment"># var out-addr/esi: (addr stmt)</span> -<span id="L18712" class="LineNr">18712 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L18713" class="LineNr">18713 </span> 89/<- %esi 0/r32/eax -<span id="L18714" class="LineNr">18714 </span> <span class="subxComment">#</span> -<span id="L18715" class="LineNr">18715 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *esi 3 <span class="Constant">"F - <a href='mu.subx.html#L18688'>test-parse-mu-reg-var-def</a>/tag"</span>) <span class="subxComment"># Stmt-tag is reg-var-def</span> -<span id="L18716" class="LineNr">18716 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(out->outputs->value)</span> -<span id="L18717" class="LineNr">18717 </span> <span class="subxS1Comment"># . eax: (addr stmt-var) = lookup(out->outputs)</span> -<span id="L18718" class="LineNr">18718 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Regvardef-outputs Regvardef-outputs => eax</span> -<span id="L18719" class="LineNr">18719 </span> <span class="subxS1Comment"># .</span> -<span id="L18720" class="LineNr">18720 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+8) 0 <span class="Constant">"F - <a href='mu.subx.html#L18688'>test-parse-mu-reg-var-def</a>/single-output"</span>) <span class="subxComment"># Stmt-var-next</span> -<span id="L18721" class="LineNr">18721 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(eax->value)</span> -<span id="L18722" class="LineNr">18722 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L18723" class="LineNr">18723 </span> <span class="subxS1Comment"># . ecx = eax</span> -<span id="L18724" class="LineNr">18724 </span> 89/<- %ecx 0/r32/eax -<span id="L18725" class="LineNr">18725 </span> <span class="subxComment"># v->name</span> -<span id="L18726" class="LineNr">18726 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L18727" class="LineNr">18727 </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#L18688'>test-parse-mu-reg-var-def</a>/output-name"</span>) <span class="subxComment"># Var-name</span> -<span id="L18728" class="LineNr">18728 </span> <span class="subxComment"># v->register</span> -<span id="L18729" class="LineNr">18729 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L18730" class="LineNr">18730 </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#L18688'>test-parse-mu-reg-var-def</a>/output-register"</span>) -<span id="L18731" class="LineNr">18731 </span> <span class="subxComment"># v->block-depth</span> -<span id="L18732" class="LineNr">18732 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(ecx+0x10) 1 <span class="Constant">"F - <a href='mu.subx.html#L18688'>test-parse-mu-reg-var-def</a>/output-block-depth"</span>) <span class="subxComment"># Var-block-depth</span> -<span id="L18733" class="LineNr">18733 </span> <span class="subxComment"># v->type == int</span> -<span id="L18734" class="LineNr">18734 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L18735" class="LineNr">18735 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L18688'>test-parse-mu-reg-var-def</a>/output-type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L18736" class="LineNr">18736 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L18688'>test-parse-mu-reg-var-def</a>/output-type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L18737" class="LineNr">18737 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L18688'>test-parse-mu-reg-var-def</a>/output-type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L18738" class="LineNr">18738 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18739" class="LineNr">18739 </span> 89/<- %esp 5/r32/ebp -<span id="L18740" class="LineNr">18740 </span> 5d/pop-to-ebp -<span id="L18741" class="LineNr">18741 </span> c3/return -<span id="L18742" class="LineNr">18742 </span> -<span id="L18743" class="LineNr">18743 </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="L18744" class="LineNr">18744 </span> <span class="subxComment"># pseudocode:</span> -<span id="L18745" class="LineNr">18745 </span> <span class="subxComment"># var name: slice</span> -<span id="L18746" class="LineNr">18746 </span> <span class="subxComment"># allocate(Heap, Stmt-size, out)</span> -<span id="L18747" class="LineNr">18747 </span> <span class="subxComment"># var out-addr: (addr stmt) = lookup(*out)</span> -<span id="L18748" class="LineNr">18748 </span> <span class="subxComment"># out-addr->tag = stmt</span> -<span id="L18749" class="LineNr">18749 </span> <span class="subxComment"># if stmt-has-outputs?(line)</span> -<span id="L18750" class="LineNr">18750 </span> <span class="subxComment"># while true</span> -<span id="L18751" class="LineNr">18751 </span> <span class="subxComment"># name = next-mu-token(line)</span> -<span id="L18752" class="LineNr">18752 </span> <span class="subxComment"># if (name == '<-') break</span> -<span id="L18753" class="LineNr">18753 </span> <span class="subxComment"># assert(identifier?(name))</span> -<span id="L18754" class="LineNr">18754 </span> <span class="subxComment"># var v: (handle var) = lookup-var(name, vars)</span> -<span id="L18755" class="LineNr">18755 </span> <span class="subxComment"># out-addr->outputs = append(v, out-addr->outputs)</span> -<span id="L18756" class="LineNr">18756 </span> <span class="subxComment"># add-operation-and-inputs-to-stmt(out-addr, line, vars)</span> -<span id="L18757" class="LineNr">18757 </span> <span class="subxComment">#</span> -<span id="L18758" class="LineNr">18758 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18759" class="LineNr">18759 </span> 55/push-ebp -<span id="L18760" class="LineNr">18760 </span> 89/<- %ebp 4/r32/esp -<span id="L18761" class="LineNr">18761 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L18762" class="LineNr">18762 </span> 50/push-eax -<span id="L18763" class="LineNr">18763 </span> 51/push-ecx -<span id="L18764" class="LineNr">18764 </span> 52/push-edx -<span id="L18765" class="LineNr">18765 </span> 53/push-ebx -<span id="L18766" class="LineNr">18766 </span> 57/push-edi -<span id="L18767" class="LineNr">18767 </span> <span class="subxComment"># var name/ecx: slice</span> -<span id="L18768" class="LineNr">18768 </span> 68/push 0/imm32/end -<span id="L18769" class="LineNr">18769 </span> 68/push 0/imm32/start -<span id="L18770" class="LineNr">18770 </span> 89/<- %ecx 4/r32/esp -<span id="L18771" class="LineNr">18771 </span> <span class="subxComment"># var is-deref?/edx: boolean = false</span> -<span id="L18772" class="LineNr">18772 </span> ba/copy-to-edx 0/imm32/false -<span id="L18773" class="LineNr">18773 </span> <span class="subxComment"># var v: (handle var)</span> -<span id="L18774" class="LineNr">18774 </span> 68/push 0/imm32 -<span id="L18775" class="LineNr">18775 </span> 68/push 0/imm32 -<span id="L18776" class="LineNr">18776 </span> 89/<- %ebx 4/r32/esp -<span id="L18777" class="LineNr">18777 </span> <span class="subxComment">#</span> -<span id="L18778" class="LineNr">18778 </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="L18779" class="LineNr">18779 </span> <span class="subxComment"># var out-addr/edi: (addr stmt) = lookup(*out)</span> -<span id="L18780" class="LineNr">18780 </span> 8b/-> *(ebp+0x14) 7/r32/edi -<span id="L18781" class="LineNr">18781 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L18782" class="LineNr">18782 </span> 89/<- %edi 0/r32/eax -<span id="L18783" class="LineNr">18783 </span> <span class="subxComment"># out-addr->tag = 1/stmt</span> -<span id="L18784" class="LineNr">18784 </span> c7 0/subop/copy *edi 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> -<span id="L18785" class="LineNr">18785 </span> { -<span id="L18786" class="LineNr">18786 </span> (<a href='mu.subx.html#L19024'>stmt-has-outputs?</a> *(ebp+8)) -<span id="L18787" class="LineNr">18787 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18788" class="LineNr">18788 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L18789" class="LineNr">18789 </span> { -<span id="L18790" class="LineNr">18790 </span><span class="Constant">$parse-mu-stmt:read-outputs</span>: -<span id="L18791" class="LineNr">18791 </span> <span class="subxComment"># name = next-mu-token(line)</span> -<span id="L18792" class="LineNr">18792 </span> (<a href='mu.subx.html#L17283'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L18793" class="LineNr">18793 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> -<span id="L18794" class="LineNr">18794 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L18795" class="LineNr">18795 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18796" class="LineNr">18796 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L18797" class="LineNr">18797 </span> <span class="subxComment"># if (name == "<-") break</span> -<span id="L18798" class="LineNr">18798 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"<-"</span>) <span class="subxComment"># => eax</span> -<span id="L18799" class="LineNr">18799 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18800" class="LineNr">18800 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L18801" class="LineNr">18801 </span> <span class="subxComment"># if slice-starts-with?(name, "*") abort</span> -<span id="L18802" class="LineNr">18802 </span> 8b/-> *ecx 0/r32/eax <span class="subxComment"># Slice-start</span> -<span id="L18803" class="LineNr">18803 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L18804" class="LineNr">18804 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L18805" class="LineNr">18805 </span> 3d/compare-eax-and 0x2a/imm32/asterisk -<span id="L18806" class="LineNr">18806 </span> 0f 84/jump-if-= $parse-mu-stmt:error-output-dereferenced/disp32 -<span id="L18807" class="LineNr">18807 </span> <span class="subxComment"># assert(identifier?(name))</span> -<span id="L18808" class="LineNr">18808 </span> (<a href='mu.subx.html#L17769'>identifier?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L18809" class="LineNr">18809 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18810" class="LineNr">18810 </span> 0f 84/jump-if-= $parse-mu-stmt:abort/disp32 -<span id="L18811" class="LineNr">18811 </span> <span class="subxComment">#</span> -<span id="L18812" class="LineNr">18812 </span> (<a href='mu.subx.html#L19135'>lookup-var</a> %ecx *(ebp+0xc) %ebx *(ebp+0x10) *(ebp+0x18) *(ebp+0x1c)) -<span id="L18813" class="LineNr">18813 </span> 8d/copy-address *(edi+0x14) 0/r32/eax <span class="subxComment"># Stmt1-outputs</span> -<span id="L18814" class="LineNr">18814 </span> (<a href='mu.subx.html#L20070'>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="L18815" class="LineNr">18815 </span> <span class="subxComment">#</span> -<span id="L18816" class="LineNr">18816 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L18817" class="LineNr">18817 </span> } -<span id="L18818" class="LineNr">18818 </span> } -<span id="L18819" class="LineNr">18819 </span> (<a href='mu.subx.html#L18860'>add-operation-and-inputs-to-stmt</a> %edi *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x18) *(ebp+0x1c)) -<span id="L18820" class="LineNr">18820 </span><span class="Constant">$parse-mu-stmt:end</span>: -<span id="L18821" class="LineNr">18821 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L18822" class="LineNr">18822 </span> 81 0/subop/add %esp 0x10/imm32 -<span id="L18823" class="LineNr">18823 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L18824" class="LineNr">18824 </span> 5f/pop-to-edi -<span id="L18825" class="LineNr">18825 </span> 5b/pop-to-ebx -<span id="L18826" class="LineNr">18826 </span> 5a/pop-to-edx -<span id="L18827" class="LineNr">18827 </span> 59/pop-to-ecx -<span id="L18828" class="LineNr">18828 </span> 58/pop-to-eax -<span id="L18829" class="LineNr">18829 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18830" class="LineNr">18830 </span> 89/<- %esp 5/r32/ebp -<span id="L18831" class="LineNr">18831 </span> 5d/pop-to-ebp -<span id="L18832" class="LineNr">18832 </span> c3/return -<span id="L18833" class="LineNr">18833 </span> -<span id="L18834" class="LineNr">18834 </span><span class="Constant">$parse-mu-stmt:abort</span>: -<span id="L18835" class="LineNr">18835 </span> <span class="subxComment"># error("invalid identifier '" name "'\n")</span> -<span id="L18836" class="LineNr">18836 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L18837" class="LineNr">18837 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L18838" class="LineNr">18838 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L18839" class="LineNr">18839 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L18840" class="LineNr">18840 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": invalid identifier '"</span>) -<span id="L18841" class="LineNr">18841 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) %ecx) -<span id="L18842" class="LineNr">18842 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) -<span id="L18843" class="LineNr">18843 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L18844" class="LineNr">18844 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L18845" class="LineNr">18845 </span> <span class="subxComment"># never gets here</span> -<span id="L18846" class="LineNr">18846 </span> -<span id="L18847" class="LineNr">18847 </span><span class="Constant">$parse-mu-stmt:error-output-dereferenced</span>: -<span id="L18848" class="LineNr">18848 </span> <span class="subxComment"># error("invalid identifier '" name "'\n")</span> -<span id="L18849" class="LineNr">18849 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L18850" class="LineNr">18850 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L18851" class="LineNr">18851 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L18852" class="LineNr">18852 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L18853" class="LineNr">18853 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": output '"</span>) -<span id="L18854" class="LineNr">18854 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) %ecx) -<span id="L18855" class="LineNr">18855 </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="L18856" class="LineNr">18856 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L18857" class="LineNr">18857 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L18858" class="LineNr">18858 </span> <span class="subxComment"># never gets here</span> -<span id="L18859" class="LineNr">18859 </span> -<span id="L18860" class="LineNr">18860 </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="L18861" class="LineNr">18861 </span> <span class="subxComment"># pseudocode:</span> -<span id="L18862" class="LineNr">18862 </span> <span class="subxComment"># stmt->name = slice-to-string(next-mu-token(line))</span> -<span id="L18863" class="LineNr">18863 </span> <span class="subxComment"># while true</span> -<span id="L18864" class="LineNr">18864 </span> <span class="subxComment"># name = next-mu-token(line)</span> -<span id="L18865" class="LineNr">18865 </span> <span class="subxComment"># v = lookup-var-or-literal(name)</span> -<span id="L18866" class="LineNr">18866 </span> <span class="subxComment"># stmt->inouts = append(v, stmt->inouts)</span> -<span id="L18867" class="LineNr">18867 </span> <span class="subxComment">#</span> -<span id="L18868" class="LineNr">18868 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18869" class="LineNr">18869 </span> 55/push-ebp -<span id="L18870" class="LineNr">18870 </span> 89/<- %ebp 4/r32/esp -<span id="L18871" class="LineNr">18871 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L18872" class="LineNr">18872 </span> 50/push-eax -<span id="L18873" class="LineNr">18873 </span> 51/push-ecx -<span id="L18874" class="LineNr">18874 </span> 52/push-edx -<span id="L18875" class="LineNr">18875 </span> 53/push-ebx -<span id="L18876" class="LineNr">18876 </span> 56/push-esi -<span id="L18877" class="LineNr">18877 </span> 57/push-edi -<span id="L18878" class="LineNr">18878 </span> <span class="subxComment"># edi = stmt</span> -<span id="L18879" class="LineNr">18879 </span> 8b/-> *(ebp+8) 7/r32/edi -<span id="L18880" class="LineNr">18880 </span> <span class="subxComment"># var name/ecx: slice</span> -<span id="L18881" class="LineNr">18881 </span> 68/push 0/imm32/end -<span id="L18882" class="LineNr">18882 </span> 68/push 0/imm32/start -<span id="L18883" class="LineNr">18883 </span> 89/<- %ecx 4/r32/esp -<span id="L18884" class="LineNr">18884 </span> <span class="subxComment"># var is-deref?/edx: boolean = false</span> -<span id="L18885" class="LineNr">18885 </span> ba/copy-to-edx 0/imm32/false -<span id="L18886" class="LineNr">18886 </span> <span class="subxComment"># var v/esi: (handle var)</span> -<span id="L18887" class="LineNr">18887 </span> 68/push 0/imm32 -<span id="L18888" class="LineNr">18888 </span> 68/push 0/imm32 -<span id="L18889" class="LineNr">18889 </span> 89/<- %esi 4/r32/esp -<span id="L18890" class="LineNr">18890 </span><span class="Constant">$add-operation-and-inputs-to-stmt:read-operation</span>: -<span id="L18891" class="LineNr">18891 </span> (<a href='mu.subx.html#L17283'>next-mu-token</a> *(ebp+0xc) %ecx) -<span id="L18892" class="LineNr">18892 </span> 8d/copy-address *(edi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation or Regvardef-operationStmt1-operation or Regvardef-operation</span> -<span id="L18893" class="LineNr">18893 </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="L18894" class="LineNr">18894 </span> <span class="subxComment"># var is-get?/ebx: boolean = (name == "get")</span> -<span id="L18895" class="LineNr">18895 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"get"</span>) <span class="subxComment"># => eax</span> -<span id="L18896" class="LineNr">18896 </span> 89/<- %ebx 0/r32/eax -<span id="L18897" class="LineNr">18897 </span> { -<span id="L18898" class="LineNr">18898 </span><span class="Constant">$add-operation-and-inputs-to-stmt:read-inouts</span>: -<span id="L18899" class="LineNr">18899 </span> <span class="subxComment"># name = next-mu-token(line)</span> -<span id="L18900" class="LineNr">18900 </span> (<a href='mu.subx.html#L17283'>next-mu-token</a> *(ebp+0xc) %ecx) -<span id="L18901" class="LineNr">18901 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> -<span id="L18902" class="LineNr">18902 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L18903" class="LineNr">18903 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18904" class="LineNr">18904 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L18905" class="LineNr">18905 </span> <span class="subxComment"># if (name == "<-") abort</span> -<span id="L18906" class="LineNr">18906 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"<-"</span>) -<span id="L18907" class="LineNr">18907 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18908" class="LineNr">18908 </span> 0f 85/jump-if-!= $add-operation-and-inputs-to-stmt:abort/disp32 -<span id="L18909" class="LineNr">18909 </span> <span class="subxComment"># if (get? && second operand) lookup or create offset</span> -<span id="L18910" class="LineNr">18910 </span> { -<span id="L18911" class="LineNr">18911 </span> 81 7/subop/compare %ebx 0/imm32/false -<span id="L18912" class="LineNr">18912 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L18913" class="LineNr">18913 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+0xc) *(edi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L18914" class="LineNr">18914 </span> 3d/compare-eax-and 0/imm32 -<span id="L18915" class="LineNr">18915 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L18916" class="LineNr">18916 </span> (<a href='mu.subx.html#L20155'>lookup-or-create-constant</a> %eax %ecx %esi) -<span id="L18917" class="LineNr">18917 </span><span class="CommentedCode">#? (lookup *esi *(esi+4))</span> -<span id="L18918" class="LineNr">18918 </span><span class="CommentedCode">#? (write-buffered Stderr "creating new output var ")</span> -<span id="L18919" class="LineNr">18919 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L18920" class="LineNr">18920 </span><span class="CommentedCode">#? (write-buffered Stderr " for field called ")</span> -<span id="L18921" class="LineNr">18921 </span><span class="CommentedCode">#? (write-slice-buffered Stderr %ecx)</span> -<span id="L18922" class="LineNr">18922 </span><span class="CommentedCode">#? (write-buffered Stderr "; var name ")</span> -<span id="L18923" class="LineNr">18923 </span><span class="CommentedCode">#? (lookup *eax *(eax+4)) # Var-name</span> -<span id="L18924" class="LineNr">18924 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L18925" class="LineNr">18925 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L18926" class="LineNr">18926 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L18927" class="LineNr">18927 </span> e9/jump $add-operation-and-inputs-to-stmt:save-var/disp32 -<span id="L18928" class="LineNr">18928 </span> } -<span id="L18929" class="LineNr">18929 </span> <span class="subxComment"># is-deref? = false</span> -<span id="L18930" class="LineNr">18930 </span> ba/copy-to-edx 0/imm32/false -<span id="L18931" class="LineNr">18931 </span> <span class="subxComment"># if (slice-starts-with?(name, '*')) ++name->start and set is-deref?</span> -<span id="L18932" class="LineNr">18932 </span> 8b/-> *ecx 0/r32/eax <span class="subxComment"># Slice-start</span> -<span id="L18933" class="LineNr">18933 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L18934" class="LineNr">18934 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L18935" class="LineNr">18935 </span> 3d/compare-eax-and 0x2a/imm32/asterisk -<span id="L18936" class="LineNr">18936 </span> { -<span id="L18937" class="LineNr">18937 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L18938" class="LineNr">18938 </span><span class="Constant">$add-operation-and-inputs-to-stmt:inout-is-deref</span>: -<span id="L18939" class="LineNr">18939 </span> ff 0/subop/increment *ecx -<span id="L18940" class="LineNr">18940 </span> ba/copy-to-edx 1/imm32/true -<span id="L18941" class="LineNr">18941 </span> } -<span id="L18942" class="LineNr">18942 </span> (<a href='mu.subx.html#L19072'>lookup-var-or-literal</a> %ecx *(ebp+0x10) %esi *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L18943" class="LineNr">18943 </span> <span class="subxComment"># if (deref?) some additional checks</span> -<span id="L18944" class="LineNr">18944 </span> 81 7/subop/compare %edx 0/imm32/false -<span id="L18945" class="LineNr">18945 </span> { -<span id="L18946" class="LineNr">18946 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L18947" class="LineNr">18947 </span> <span class="subxComment"># if var is not in register, abort</span> -<span id="L18948" class="LineNr">18948 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L18949" class="LineNr">18949 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L18950" class="LineNr">18950 </span> 0f 84/jump-if-= $add-operation-and-inputs-to-stmt:error-deref-on-stack/disp32 -<span id="L18951" class="LineNr">18951 </span> <span class="subxComment"># if var is not an address, abort</span> -<span id="L18952" class="LineNr">18952 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L18953" class="LineNr">18953 </span> (<a href='mu.subx.html#L35916'>mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L18954" class="LineNr">18954 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18955" class="LineNr">18955 </span> 0f 84/jump-if-= $add-operation-and-inputs-to-stmt:error-deref-non-addr/disp32 -<span id="L18956" class="LineNr">18956 </span> } -<span id="L18957" class="LineNr">18957 </span><span class="Constant">$add-operation-and-inputs-to-stmt:save-var</span>: -<span id="L18958" class="LineNr">18958 </span> 8d/copy-address *(edi+0xc) 0/r32/eax -<span id="L18959" class="LineNr">18959 </span> (<a href='mu.subx.html#L20070'>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="L18960" class="LineNr">18960 </span> <span class="subxComment">#</span> -<span id="L18961" class="LineNr">18961 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L18962" class="LineNr">18962 </span> } -<span id="L18963" class="LineNr">18963 </span><span class="Constant">$add-operation-and-inputs-to-stmt:end</span>: -<span id="L18964" class="LineNr">18964 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L18965" class="LineNr">18965 </span> 81 0/subop/add %esp 0x10/imm32 -<span id="L18966" class="LineNr">18966 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L18967" class="LineNr">18967 </span> 5f/pop-to-edi -<span id="L18968" class="LineNr">18968 </span> 5e/pop-to-esi -<span id="L18969" class="LineNr">18969 </span> 5b/pop-to-ebx -<span id="L18970" class="LineNr">18970 </span> 5a/pop-to-edx -<span id="L18971" class="LineNr">18971 </span> 59/pop-to-ecx -<span id="L18972" class="LineNr">18972 </span> 58/pop-to-eax -<span id="L18973" class="LineNr">18973 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18974" class="LineNr">18974 </span> 89/<- %esp 5/r32/ebp -<span id="L18975" class="LineNr">18975 </span> 5d/pop-to-ebp -<span id="L18976" class="LineNr">18976 </span> c3/return -<span id="L18977" class="LineNr">18977 </span> -<span id="L18978" class="LineNr">18978 </span><span class="Constant">$add-operation-and-inputs-to-stmt:abort</span>: -<span id="L18979" class="LineNr">18979 </span> <span class="subxComment"># error("fn ___: invalid identifier in '" line "'\n")</span> -<span id="L18980" class="LineNr">18980 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L18981" class="LineNr">18981 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L18982" class="LineNr">18982 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L18983" class="LineNr">18983 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L18984" class="LineNr">18984 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+0xc)) -<span id="L18985" class="LineNr">18985 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": invalid identifier in '"</span>) -<span id="L18986" class="LineNr">18986 </span> (<a href='125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x18) *(ebp+0xc)) -<span id="L18987" class="LineNr">18987 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) -<span id="L18988" class="LineNr">18988 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L18989" class="LineNr">18989 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L18990" class="LineNr">18990 </span> <span class="subxComment"># never gets here</span> -<span id="L18991" class="LineNr">18991 </span> -<span id="L18992" class="LineNr">18992 </span><span class="Constant">$add-operation-and-inputs-to-stmt:error-deref-on-stack</span>: -<span id="L18993" class="LineNr">18993 </span> <span class="subxComment"># error("fn ___: cannot dereference var ___ on stack\n")</span> -<span id="L18994" class="LineNr">18994 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L18995" class="LineNr">18995 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L18996" class="LineNr">18996 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L18997" class="LineNr">18997 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L18998" class="LineNr">18998 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+0xc)) -<span id="L18999" class="LineNr">18999 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": cannot dereference var '"</span>) -<span id="L19000" class="LineNr">19000 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L19001" class="LineNr">19001 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L19002" class="LineNr">19002 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L19003" class="LineNr">19003 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"' on stack\n"</span>) -<span id="L19004" class="LineNr">19004 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L19005" class="LineNr">19005 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L19006" class="LineNr">19006 </span> <span class="subxComment"># never gets here</span> -<span id="L19007" class="LineNr">19007 </span> -<span id="L19008" class="LineNr">19008 </span><span class="Constant">$add-operation-and-inputs-to-stmt:error-deref-non-addr</span>: -<span id="L19009" class="LineNr">19009 </span> <span class="subxComment"># error("fn ___: cannot dereference non-addr var ___\n")</span> -<span id="L19010" class="LineNr">19010 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L19011" class="LineNr">19011 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L19012" class="LineNr">19012 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L19013" class="LineNr">19013 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L19014" class="LineNr">19014 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+0xc)) -<span id="L19015" class="LineNr">19015 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": cannot dereference non-addr var '"</span>) -<span id="L19016" class="LineNr">19016 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L19017" class="LineNr">19017 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L19018" class="LineNr">19018 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L19019" class="LineNr">19019 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) -<span id="L19020" class="LineNr">19020 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L19021" class="LineNr">19021 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L19022" class="LineNr">19022 </span> <span class="subxComment"># never gets here</span> -<span id="L19023" class="LineNr">19023 </span> -<span id="L19024" class="LineNr">19024 </span><span class="subxFunction">stmt-has-outputs?</span>: <span class="subxComment"># line: (addr stream byte) -> result/eax: boolean</span> -<span id="L19025" class="LineNr">19025 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19026" class="LineNr">19026 </span> 55/push-ebp -<span id="L19027" class="LineNr">19027 </span> 89/<- %ebp 4/r32/esp -<span id="L19028" class="LineNr">19028 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19029" class="LineNr">19029 </span> 51/push-ecx -<span id="L19030" class="LineNr">19030 </span> <span class="subxComment"># var word-slice/ecx: slice</span> -<span id="L19031" class="LineNr">19031 </span> 68/push 0/imm32/end -<span id="L19032" class="LineNr">19032 </span> 68/push 0/imm32/start -<span id="L19033" class="LineNr">19033 </span> 89/<- %ecx 4/r32/esp -<span id="L19034" class="LineNr">19034 </span> <span class="subxComment"># result = false</span> -<span id="L19035" class="LineNr">19035 </span> b8/copy-to-eax 0/imm32/false -<span id="L19036" class="LineNr">19036 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) -<span id="L19037" class="LineNr">19037 </span> { -<span id="L19038" class="LineNr">19038 </span> (<a href='mu.subx.html#L17283'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L19039" class="LineNr">19039 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> -<span id="L19040" class="LineNr">19040 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) -<span id="L19041" class="LineNr">19041 </span> 3d/compare-eax-and 0/imm32/false -<span id="L19042" class="LineNr">19042 </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="L19043" class="LineNr">19043 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L19044" class="LineNr">19044 </span> <span class="subxComment"># if slice-starts-with?(word-slice, '#') break</span> -<span id="L19045" class="LineNr">19045 </span> <span class="subxS1Comment"># . eax = *word-slice->start</span> -<span id="L19046" class="LineNr">19046 </span> 8b/-> *ecx 0/r32/eax -<span id="L19047" class="LineNr">19047 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L19048" class="LineNr">19048 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L19049" class="LineNr">19049 </span> <span class="subxS1Comment"># . if (eax == '#') break</span> -<span id="L19050" class="LineNr">19050 </span> 3d/compare-eax-and 0x23/imm32/hash -<span id="L19051" class="LineNr">19051 </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="L19052" class="LineNr">19052 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L19053" class="LineNr">19053 </span> <span class="subxComment"># if slice-equal?(word-slice, '<-') return true</span> -<span id="L19054" class="LineNr">19054 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"<-"</span>) -<span id="L19055" class="LineNr">19055 </span> 3d/compare-eax-and 0/imm32/false -<span id="L19056" class="LineNr">19056 </span> 74/jump-if-= <span class="Constant">loop</span>/disp8 -<span id="L19057" class="LineNr">19057 </span> b8/copy-to-eax 1/imm32/true -<span id="L19058" class="LineNr">19058 </span> } -<span id="L19059" class="LineNr">19059 </span><span class="Constant">$stmt-has-outputs:end</span>: -<span id="L19060" class="LineNr">19060 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) -<span id="L19061" class="LineNr">19061 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L19062" class="LineNr">19062 </span> 81 0/subop/add %esp 8/imm32 -<span id="L19063" class="LineNr">19063 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19064" class="LineNr">19064 </span> 59/pop-to-ecx -<span id="L19065" class="LineNr">19065 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19066" class="LineNr">19066 </span> 89/<- %esp 5/r32/ebp -<span id="L19067" class="LineNr">19067 </span> 5d/pop-to-ebp -<span id="L19068" class="LineNr">19068 </span> c3/return -<span id="L19069" class="LineNr">19069 </span> -<span id="L19070" class="LineNr">19070 </span><span class="subxComment"># if 'name' starts with a digit, create a new literal var for it</span> -<span id="L19071" class="LineNr">19071 </span><span class="subxComment"># otherwise return first 'name' from the top (back) of 'vars' and abort if not found</span> -<span id="L19072" class="LineNr">19072 </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="L19073" class="LineNr">19073 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19074" class="LineNr">19074 </span> 55/push-ebp -<span id="L19075" class="LineNr">19075 </span> 89/<- %ebp 4/r32/esp -<span id="L19076" class="LineNr">19076 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19077" class="LineNr">19077 </span> 50/push-eax -<span id="L19078" class="LineNr">19078 </span> 51/push-ecx -<span id="L19079" class="LineNr">19079 </span> 56/push-esi -<span id="L19080" class="LineNr">19080 </span> <span class="subxComment"># esi = name</span> -<span id="L19081" class="LineNr">19081 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L19082" class="LineNr">19082 </span> <span class="subxComment"># if slice-empty?(name) abort</span> -<span id="L19083" class="LineNr">19083 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %esi) <span class="subxComment"># => eax</span> -<span id="L19084" class="LineNr">19084 </span> 3d/compare-eax-and 0/imm32/false -<span id="L19085" class="LineNr">19085 </span> 0f 85/jump-if-!= $lookup-var-or-literal:abort/disp32 -<span id="L19086" class="LineNr">19086 </span> <span class="subxComment"># var c/ecx: byte = *name->start</span> -<span id="L19087" class="LineNr">19087 </span> 8b/-> *esi 1/r32/ecx -<span id="L19088" class="LineNr">19088 </span> 8a/copy-byte *ecx 1/r32/CL -<span id="L19089" class="LineNr">19089 </span> 81 4/subop/and %ecx 0xff/imm32 -<span id="L19090" class="LineNr">19090 </span> <span class="subxComment"># if (decimal-digit?(c) || c == '-') return new var(name)</span> -<span id="L19091" class="LineNr">19091 </span> { -<span id="L19092" class="LineNr">19092 </span> 81 7/subop/compare %ecx 0x2d/imm32/dash -<span id="L19093" class="LineNr">19093 </span> 74/jump-if-= $lookup-var-or-literal:literal/disp8 -<span id="L19094" class="LineNr">19094 </span> (<a href='126write-int-decimal.subx.html#L306'>decimal-digit?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L19095" class="LineNr">19095 </span> 3d/compare-eax-and 0/imm32/false -<span id="L19096" class="LineNr">19096 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L19097" class="LineNr">19097 </span><span class="Constant">$lookup-var-or-literal:literal</span>: -<span id="L19098" class="LineNr">19098 </span> (<a href='mu.subx.html#L19742'>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="L19099" class="LineNr">19099 </span> eb/jump $lookup-var-or-literal:end/disp8 -<span id="L19100" class="LineNr">19100 </span> } -<span id="L19101" class="LineNr">19101 </span> <span class="subxComment"># else if (c == '"') return new var(name)</span> -<span id="L19102" class="LineNr">19102 </span> { -<span id="L19103" class="LineNr">19103 </span> 81 7/subop/compare %ecx 0x22/imm32/dquote -<span id="L19104" class="LineNr">19104 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L19105" class="LineNr">19105 </span><span class="Constant">$lookup-var-or-literal:literal-string</span>: -<span id="L19106" class="LineNr">19106 </span> (<a href='mu.subx.html#L19894'>new-literal-string</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %esi *(ebp+0x10)) -<span id="L19107" class="LineNr">19107 </span> eb/jump $lookup-var-or-literal:end/disp8 -<span id="L19108" class="LineNr">19108 </span> } -<span id="L19109" class="LineNr">19109 </span> <span class="subxComment"># otherwise return lookup-var(name, vars)</span> -<span id="L19110" class="LineNr">19110 </span> { -<span id="L19111" class="LineNr">19111 </span><span class="Constant">$lookup-var-or-literal:var</span>: -<span id="L19112" class="LineNr">19112 </span> (<a href='mu.subx.html#L19135'>lookup-var</a> %esi *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L19113" class="LineNr">19113 </span> } -<span id="L19114" class="LineNr">19114 </span><span class="Constant">$lookup-var-or-literal:end</span>: -<span id="L19115" class="LineNr">19115 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19116" class="LineNr">19116 </span> 5e/pop-to-esi -<span id="L19117" class="LineNr">19117 </span> 59/pop-to-ecx -<span id="L19118" class="LineNr">19118 </span> 58/pop-to-eax -<span id="L19119" class="LineNr">19119 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19120" class="LineNr">19120 </span> 89/<- %esp 5/r32/ebp -<span id="L19121" class="LineNr">19121 </span> 5d/pop-to-ebp -<span id="L19122" class="LineNr">19122 </span> c3/return -<span id="L19123" class="LineNr">19123 </span> -<span id="L19124" class="LineNr">19124 </span><span class="Constant">$lookup-var-or-literal:abort</span>: -<span id="L19125" class="LineNr">19125 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L19126" class="LineNr">19126 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L19127" class="LineNr">19127 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L19128" class="LineNr">19128 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L19129" class="LineNr">19129 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": empty variable!"</span>) -<span id="L19130" class="LineNr">19130 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L19131" class="LineNr">19131 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L19132" class="LineNr">19132 </span> <span class="subxComment"># never gets here</span> -<span id="L19133" class="LineNr">19133 </span> -<span id="L19134" class="LineNr">19134 </span><span class="subxComment"># return first 'name' from the top (back) of 'vars' and abort if not found</span> -<span id="L19135" class="LineNr">19135 </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="L19136" class="LineNr">19136 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19137" class="LineNr">19137 </span> 55/push-ebp -<span id="L19138" class="LineNr">19138 </span> 89/<- %ebp 4/r32/esp -<span id="L19139" class="LineNr">19139 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19140" class="LineNr">19140 </span> 50/push-eax -<span id="L19141" class="LineNr">19141 </span> <span class="subxComment">#</span> -<span id="L19142" class="LineNr">19142 </span> (<a href='mu.subx.html#L19169'>lookup-var-helper</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L19143" class="LineNr">19143 </span> <span class="subxComment"># if (*out == 0) abort</span> -<span id="L19144" class="LineNr">19144 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L19145" class="LineNr">19145 </span> 81 7/subop/compare *eax 0/imm32 -<span id="L19146" class="LineNr">19146 </span> 74/jump-if-= $lookup-var:abort/disp8 -<span id="L19147" class="LineNr">19147 </span><span class="Constant">$lookup-var:end</span>: -<span id="L19148" class="LineNr">19148 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19149" class="LineNr">19149 </span> 58/pop-to-eax -<span id="L19150" class="LineNr">19150 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19151" class="LineNr">19151 </span> 89/<- %esp 5/r32/ebp -<span id="L19152" class="LineNr">19152 </span> 5d/pop-to-ebp -<span id="L19153" class="LineNr">19153 </span> c3/return -<span id="L19154" class="LineNr">19154 </span> -<span id="L19155" class="LineNr">19155 </span><span class="Constant">$lookup-var:abort</span>: -<span id="L19156" class="LineNr">19156 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L19157" class="LineNr">19157 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L19158" class="LineNr">19158 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L19159" class="LineNr">19159 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L19160" class="LineNr">19160 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": unknown variable '"</span>) -<span id="L19161" class="LineNr">19161 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) *(ebp+8)) -<span id="L19162" class="LineNr">19162 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) -<span id="L19163" class="LineNr">19163 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L19164" class="LineNr">19164 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 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="subxComment"># return first 'name' from the top (back) of 'vars', and 0/null if not found</span> -<span id="L19168" class="LineNr">19168 </span><span class="subxComment"># ensure that 'name' if in a register is the topmost variable in that register</span> -<span id="L19169" class="LineNr">19169 </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="L19170" class="LineNr">19170 </span> <span class="subxComment"># pseudocode:</span> -<span id="L19171" class="LineNr">19171 </span> <span class="subxComment"># var curr: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L19172" class="LineNr">19172 </span> <span class="subxComment"># var min = vars->data</span> -<span id="L19173" class="LineNr">19173 </span> <span class="subxComment"># while curr >= min</span> -<span id="L19174" class="LineNr">19174 </span> <span class="subxComment"># var v: (handle var) = *curr</span> -<span id="L19175" class="LineNr">19175 </span> <span class="subxComment"># if v->name == name</span> -<span id="L19176" class="LineNr">19176 </span> <span class="subxComment"># return</span> -<span id="L19177" class="LineNr">19177 </span> <span class="subxComment"># curr -= 12</span> -<span id="L19178" class="LineNr">19178 </span> <span class="subxComment">#</span> -<span id="L19179" class="LineNr">19179 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19180" class="LineNr">19180 </span> 55/push-ebp -<span id="L19181" class="LineNr">19181 </span> 89/<- %ebp 4/r32/esp -<span id="L19182" class="LineNr">19182 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19183" class="LineNr">19183 </span> 50/push-eax -<span id="L19184" class="LineNr">19184 </span> 51/push-ecx -<span id="L19185" class="LineNr">19185 </span> 52/push-edx -<span id="L19186" class="LineNr">19186 </span> 53/push-ebx -<span id="L19187" class="LineNr">19187 </span> 56/push-esi -<span id="L19188" class="LineNr">19188 </span> 57/push-edi -<span id="L19189" class="LineNr">19189 </span> <span class="subxComment"># clear out</span> -<span id="L19190" class="LineNr">19190 </span> (<a href='120allocate.subx.html#L889'>zero-out</a> *(ebp+0x10) *<span class="SpecialChar"><a href='120allocate.subx.html#L23'>Handle-size</a></span>) -<span id="L19191" class="LineNr">19191 </span> <span class="subxComment"># esi = vars</span> -<span id="L19192" class="LineNr">19192 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L19193" class="LineNr">19193 </span> <span class="subxComment"># ebx = vars->top</span> -<span id="L19194" class="LineNr">19194 </span> 8b/-> *esi 3/r32/ebx -<span id="L19195" class="LineNr">19195 </span> <span class="subxComment"># if (vars->top > vars->size) abort</span> -<span id="L19196" class="LineNr">19196 </span> 3b/compare<- *(esi+4) 0/r32/eax -<span id="L19197" class="LineNr">19197 </span> 0f 8f/jump-if-> $lookup-var-helper:error1/disp32 -<span id="L19198" class="LineNr">19198 </span> <span class="subxComment"># var min/edx: (addr handle var) = vars->data</span> -<span id="L19199" class="LineNr">19199 </span> 8d/copy-address *(esi+8) 2/r32/edx -<span id="L19200" class="LineNr">19200 </span> <span class="subxComment"># var curr/ebx: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L19201" class="LineNr">19201 </span> 8d/copy-address *(esi+ebx-4) 3/r32/ebx <span class="subxComment"># vars + 8 + vars->type - 12</span> -<span id="L19202" class="LineNr">19202 </span> <span class="subxComment"># var var-in-reg/edi: 16 addrs</span> -<span id="L19203" class="LineNr">19203 </span> 68/push 0/imm32 -<span id="L19204" class="LineNr">19204 </span> 68/push 0/imm32 -<span id="L19205" class="LineNr">19205 </span> 68/push 0/imm32 -<span id="L19206" class="LineNr">19206 </span> 68/push 0/imm32 -<span id="L19207" class="LineNr">19207 </span> 68/push 0/imm32 -<span id="L19208" class="LineNr">19208 </span> 68/push 0/imm32 -<span id="L19209" class="LineNr">19209 </span> 68/push 0/imm32 -<span id="L19210" class="LineNr">19210 </span> 68/push 0/imm32 -<span id="L19211" class="LineNr">19211 </span> 68/push 0/imm32 -<span id="L19212" class="LineNr">19212 </span> 68/push 0/imm32 -<span id="L19213" class="LineNr">19213 </span> 68/push 0/imm32 -<span id="L19214" class="LineNr">19214 </span> 68/push 0/imm32 -<span id="L19215" class="LineNr">19215 </span> 68/push 0/imm32 -<span id="L19216" class="LineNr">19216 </span> 68/push 0/imm32 -<span id="L19217" class="LineNr">19217 </span> 68/push 0/imm32 -<span id="L19218" class="LineNr">19218 </span> 68/push 0/imm32 -<span id="L19219" class="LineNr">19219 </span> 89/<- %edi 4/r32/esp -<span id="L19220" class="LineNr">19220 </span> { -<span id="L19221" class="LineNr">19221 </span><span class="Constant">$lookup-var-helper:loop</span>: -<span id="L19222" class="LineNr">19222 </span> <span class="subxComment"># if (curr < min) return</span> -<span id="L19223" class="LineNr">19223 </span> 39/compare %ebx 2/r32/edx -<span id="L19224" class="LineNr">19224 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L19225" class="LineNr">19225 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(*curr)</span> -<span id="L19226" class="LineNr">19226 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L19227" class="LineNr">19227 </span> 89/<- %ecx 0/r32/eax -<span id="L19228" class="LineNr">19228 </span> <span class="subxComment"># var vn/eax: (addr array byte) = lookup(v->name)</span> -<span id="L19229" class="LineNr">19229 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L19230" class="LineNr">19230 </span> <span class="subxComment"># if (vn == name) return curr</span> -<span id="L19231" class="LineNr">19231 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> *(ebp+8) %eax) <span class="subxComment"># => eax</span> -<span id="L19232" class="LineNr">19232 </span> 3d/compare-eax-and 0/imm32/false -<span id="L19233" class="LineNr">19233 </span> { -<span id="L19234" class="LineNr">19234 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L19235" class="LineNr">19235 </span><span class="Constant">$lookup-var-helper:found</span>: -<span id="L19236" class="LineNr">19236 </span> <span class="subxComment"># var vr/eax: (addr array byte) = lookup(v->register)</span> -<span id="L19237" class="LineNr">19237 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L19238" class="LineNr">19238 </span> 3d/compare-eax-and 0/imm32 -<span id="L19239" class="LineNr">19239 </span> { -<span id="L19240" class="LineNr">19240 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L19241" class="LineNr">19241 </span><span class="Constant">$lookup-var-helper:found-register</span>: -<span id="L19242" class="LineNr">19242 </span> <span class="subxComment"># var reg/eax: int = get(Registers, vr)</span> -<span id="L19243" class="LineNr">19243 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19402'>Mu-registers-unique</a></span> %eax 0xc <span class="Constant">"Mu-registers-unique"</span>) <span class="subxComment"># => eax</span> -<span id="L19244" class="LineNr">19244 </span> 8b/-> *eax 0/r32/eax -<span id="L19245" class="LineNr">19245 </span> <span class="subxComment"># if (var-in-reg[reg]) error</span> -<span id="L19246" class="LineNr">19246 </span> 8b/-> *(edi+eax<<2) 0/r32/eax -<span id="L19247" class="LineNr">19247 </span> 3d/compare-eax-and 0/imm32 -<span id="L19248" class="LineNr">19248 </span> 0f 85/jump-if-!= $lookup-var-helper:error2/disp32 -<span id="L19249" class="LineNr">19249 </span> } -<span id="L19250" class="LineNr">19250 </span><span class="Constant">$lookup-var-helper:return</span>: -<span id="L19251" class="LineNr">19251 </span> <span class="subxComment"># esi = out</span> -<span id="L19252" class="LineNr">19252 </span> 8b/-> *(ebp+0x10) 6/r32/esi -<span id="L19253" class="LineNr">19253 </span> <span class="subxComment"># *out = *curr</span> -<span id="L19254" class="LineNr">19254 </span> 8b/-> *ebx 0/r32/eax -<span id="L19255" class="LineNr">19255 </span> 89/<- *esi 0/r32/eax -<span id="L19256" class="LineNr">19256 </span> 8b/-> *(ebx+4) 0/r32/eax -<span id="L19257" class="LineNr">19257 </span> 89/<- *(esi+4) 0/r32/eax -<span id="L19258" class="LineNr">19258 </span> <span class="subxComment"># return</span> -<span id="L19259" class="LineNr">19259 </span> eb/jump $lookup-var-helper:end/disp8 -<span id="L19260" class="LineNr">19260 </span> } -<span id="L19261" class="LineNr">19261 </span> <span class="subxComment"># 'name' not yet found; update var-in-reg if v in register</span> -<span id="L19262" class="LineNr">19262 </span> <span class="subxS1Comment"># . var vr/eax: (addr array byte) = lookup(v->register)</span> -<span id="L19263" class="LineNr">19263 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L19264" class="LineNr">19264 </span> <span class="subxS1Comment"># . if (vr == 0) continue</span> -<span id="L19265" class="LineNr">19265 </span> 3d/compare-eax-and 0/imm32 -<span id="L19266" class="LineNr">19266 </span> 74/jump-if-= $lookup-var-helper:continue/disp8 -<span id="L19267" class="LineNr">19267 </span> <span class="subxS1Comment"># . var reg/eax: int = get(Registers, vr)</span> -<span id="L19268" class="LineNr">19268 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19402'>Mu-registers-unique</a></span> %eax 0xc <span class="Constant">"Mu-registers-unique"</span>) <span class="subxComment"># => eax</span> -<span id="L19269" class="LineNr">19269 </span> 8b/-> *eax 0/r32/eax -<span id="L19270" class="LineNr">19270 </span> <span class="subxS1Comment"># . var-in-reg[reg] = v</span> -<span id="L19271" class="LineNr">19271 </span> 89/<- *(edi+eax<<2) 1/r32/ecx -<span id="L19272" class="LineNr">19272 </span><span class="Constant">$lookup-var-helper:continue</span>: -<span id="L19273" class="LineNr">19273 </span> <span class="subxComment"># curr -= 12</span> -<span id="L19274" class="LineNr">19274 </span> 81 5/subop/subtract %ebx 0xc/imm32 -<span id="L19275" class="LineNr">19275 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L19276" class="LineNr">19276 </span> } -<span id="L19277" class="LineNr">19277 </span><span class="Constant">$lookup-var-helper:end</span>: -<span id="L19278" class="LineNr">19278 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L19279" class="LineNr">19279 </span> 81 0/subop/add %esp 0x40/imm32 -<span id="L19280" class="LineNr">19280 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19281" class="LineNr">19281 </span> 5f/pop-to-edi -<span id="L19282" class="LineNr">19282 </span> 5e/pop-to-esi -<span id="L19283" class="LineNr">19283 </span> 5b/pop-to-ebx -<span id="L19284" class="LineNr">19284 </span> 5a/pop-to-edx -<span id="L19285" class="LineNr">19285 </span> 59/pop-to-ecx -<span id="L19286" class="LineNr">19286 </span> 58/pop-to-eax -<span id="L19287" class="LineNr">19287 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19288" class="LineNr">19288 </span> 89/<- %esp 5/r32/ebp -<span id="L19289" class="LineNr">19289 </span> 5d/pop-to-ebp -<span id="L19290" class="LineNr">19290 </span> c3/return -<span id="L19291" class="LineNr">19291 </span> -<span id="L19292" class="LineNr">19292 </span><span class="Constant">$lookup-var-helper:error1</span>: -<span id="L19293" class="LineNr">19293 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L19294" class="LineNr">19294 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L19295" class="LineNr">19295 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L19296" class="LineNr">19296 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L19297" class="LineNr">19297 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": malformed stack when looking up '"</span>) -<span id="L19298" class="LineNr">19298 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) *(ebp+8)) -<span id="L19299" class="LineNr">19299 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) -<span id="L19300" class="LineNr">19300 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L19301" class="LineNr">19301 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L19302" class="LineNr">19302 </span> <span class="subxComment"># never gets here</span> -<span id="L19303" class="LineNr">19303 </span> -<span id="L19304" class="LineNr">19304 </span><span class="Constant">$lookup-var-helper:error2</span>: -<span id="L19305" class="LineNr">19305 </span> <span class="subxComment"># eax contains the conflicting var at this point</span> -<span id="L19306" class="LineNr">19306 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L19307" class="LineNr">19307 </span> 50/push-eax -<span id="L19308" class="LineNr">19308 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L19309" class="LineNr">19309 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L19310" class="LineNr">19310 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L19311" class="LineNr">19311 </span> 58/pop-eax -<span id="L19312" class="LineNr">19312 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": register "</span>) -<span id="L19313" class="LineNr">19313 </span> 50/push-eax -<span id="L19314" class="LineNr">19314 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L19315" class="LineNr">19315 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L19316" class="LineNr">19316 </span> 58/pop-to-eax -<span id="L19317" class="LineNr">19317 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">" reads var '"</span>) -<span id="L19318" class="LineNr">19318 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) *(ebp+8)) -<span id="L19319" class="LineNr">19319 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"' after writing var '"</span>) -<span id="L19320" class="LineNr">19320 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L19321" class="LineNr">19321 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L19322" class="LineNr">19322 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) -<span id="L19323" class="LineNr">19323 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L19324" class="LineNr">19324 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L19325" class="LineNr">19325 </span> <span class="subxComment"># never gets here</span> -<span id="L19326" class="LineNr">19326 </span> -<span id="L19327" class="LineNr">19327 </span><span class="subxFunction">dump-vars</span>: <span class="subxComment"># vars: (addr stack live-var)</span> -<span id="L19328" class="LineNr">19328 </span> <span class="subxComment"># pseudocode:</span> -<span id="L19329" class="LineNr">19329 </span> <span class="subxComment"># var curr: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L19330" class="LineNr">19330 </span> <span class="subxComment"># var min = vars->data</span> -<span id="L19331" class="LineNr">19331 </span> <span class="subxComment"># while curr >= min</span> -<span id="L19332" class="LineNr">19332 </span> <span class="subxComment"># var v: (handle var) = *curr</span> -<span id="L19333" class="LineNr">19333 </span> <span class="subxComment"># print v</span> -<span id="L19334" class="LineNr">19334 </span> <span class="subxComment"># curr -= 12</span> -<span id="L19335" class="LineNr">19335 </span> <span class="subxComment">#</span> -<span id="L19336" class="LineNr">19336 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19337" class="LineNr">19337 </span> 55/push-ebp -<span id="L19338" class="LineNr">19338 </span> 89/<- %ebp 4/r32/esp -<span id="L19339" class="LineNr">19339 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19340" class="LineNr">19340 </span> 52/push-edx -<span id="L19341" class="LineNr">19341 </span> 53/push-ebx -<span id="L19342" class="LineNr">19342 </span> 56/push-esi -<span id="L19343" class="LineNr">19343 </span> <span class="subxComment"># esi = vars</span> -<span id="L19344" class="LineNr">19344 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L19345" class="LineNr">19345 </span> <span class="subxComment"># ebx = vars->top</span> -<span id="L19346" class="LineNr">19346 </span> 8b/-> *esi 3/r32/ebx -<span id="L19347" class="LineNr">19347 </span> <span class="subxComment"># var min/edx: (addr handle var) = vars->data</span> -<span id="L19348" class="LineNr">19348 </span> 8d/copy-address *(esi+8) 2/r32/edx -<span id="L19349" class="LineNr">19349 </span> <span class="subxComment"># var curr/ebx: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L19350" class="LineNr">19350 </span> 8d/copy-address *(esi+ebx-4) 3/r32/ebx <span class="subxComment"># vars + 8 + vars->type - 12</span> -<span id="L19351" class="LineNr">19351 </span> { -<span id="L19352" class="LineNr">19352 </span><span class="Constant">$dump-vars:loop</span>: -<span id="L19353" class="LineNr">19353 </span> <span class="subxComment"># if (curr < min) return</span> -<span id="L19354" class="LineNr">19354 </span> 39/compare %ebx 2/r32/edx -<span id="L19355" class="LineNr">19355 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L19356" class="LineNr">19356 </span> <span class="subxComment">#</span> -<span id="L19357" class="LineNr">19357 </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="L19358" class="LineNr">19358 </span> (<a href='mu.subx.html#L21197'>dump-var</a> 2 %ebx) -<span id="L19359" class="LineNr">19359 </span> <span class="subxComment"># curr -= 12</span> -<span id="L19360" class="LineNr">19360 </span> 81 5/subop/subtract %ebx 0xc/imm32 -<span id="L19361" class="LineNr">19361 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L19362" class="LineNr">19362 </span> } -<span id="L19363" class="LineNr">19363 </span><span class="Constant">$dump-vars:end</span>: -<span id="L19364" class="LineNr">19364 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19365" class="LineNr">19365 </span> 5e/pop-to-esi -<span id="L19366" class="LineNr">19366 </span> 5b/pop-to-ebx -<span id="L19367" class="LineNr">19367 </span> 5a/pop-to-edx -<span id="L19368" class="LineNr">19368 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19369" class="LineNr">19369 </span> 89/<- %esp 5/r32/ebp -<span id="L19370" class="LineNr">19370 </span> 5d/pop-to-ebp -<span id="L19371" class="LineNr">19371 </span> c3/return -<span id="L19372" class="LineNr">19372 </span> -<span id="L19373" class="LineNr">19373 </span>== data -<span id="L19374" class="LineNr">19374 </span><span class="subxComment"># Like Registers, but no esp or ebp</span> -<span id="L19375" class="LineNr">19375 </span><span class="SpecialChar">Mu-registers</span>: <span class="subxComment"># (addr stream {(handle array byte), int})</span> -<span id="L19376" class="LineNr">19376 </span> <span class="subxComment"># a table is a stream</span> -<span id="L19377" class="LineNr">19377 </span> 0xa8/imm32/write -<span id="L19378" class="LineNr">19378 </span> 0/imm32/read -<span id="L19379" class="LineNr">19379 </span> 0xa8/imm32/length -<span id="L19380" class="LineNr">19380 </span> <span class="subxComment"># data</span> -<span id="L19381" class="LineNr">19381 </span> <span class="subxComment"># general-purpose registers</span> -<span id="L19382" class="LineNr">19382 </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="L19383" class="LineNr">19383 </span> 0x11/imm32/alloc-id $Mu-register-eax/imm32 0/imm32 -<span id="L19384" class="LineNr">19384 </span> 0x11/imm32/alloc-id $Mu-register-ecx/imm32 1/imm32 -<span id="L19385" class="LineNr">19385 </span> 0x11/imm32/alloc-id $Mu-register-edx/imm32 2/imm32 -<span id="L19386" class="LineNr">19386 </span> 0x11/imm32/alloc-id $Mu-register-ebx/imm32 3/imm32 -<span id="L19387" class="LineNr">19387 </span> 0x11/imm32/alloc-id $Mu-register-esi/imm32 6/imm32 -<span id="L19388" class="LineNr">19388 </span> 0x11/imm32/alloc-id $Mu-register-edi/imm32 7/imm32 -<span id="L19389" class="LineNr">19389 </span> <span class="subxComment"># floating-point registers</span> -<span id="L19390" class="LineNr">19390 </span> 0x11/imm32/alloc-id $Mu-register-xmm0/imm32 0/imm32 -<span id="L19391" class="LineNr">19391 </span> 0x11/imm32/alloc-id $Mu-register-xmm1/imm32 1/imm32 -<span id="L19392" class="LineNr">19392 </span> 0x11/imm32/alloc-id $Mu-register-xmm2/imm32 2/imm32 -<span id="L19393" class="LineNr">19393 </span> 0x11/imm32/alloc-id $Mu-register-xmm3/imm32 3/imm32 -<span id="L19394" class="LineNr">19394 </span> 0x11/imm32/alloc-id $Mu-register-xmm4/imm32 4/imm32 -<span id="L19395" class="LineNr">19395 </span> 0x11/imm32/alloc-id $Mu-register-xmm5/imm32 5/imm32 -<span id="L19396" class="LineNr">19396 </span> 0x11/imm32/alloc-id $Mu-register-xmm6/imm32 6/imm32 -<span id="L19397" class="LineNr">19397 </span> 0x11/imm32/alloc-id $Mu-register-xmm7/imm32 7/imm32 -<span id="L19398" class="LineNr">19398 </span> -<span id="L19399" class="LineNr">19399 </span><span class="subxComment"># Like Mu-registers, but with unique codes for integer and floating-point</span> -<span id="L19400" class="LineNr">19400 </span><span class="subxComment"># registers.</span> -<span id="L19401" class="LineNr">19401 </span><span class="subxComment"># Don't use this for code-generation, only for checking.</span> -<span id="L19402" class="LineNr">19402 </span><span class="SpecialChar">Mu-registers-unique</span>: <span class="subxComment"># (addr stream {(handle array byte), int})</span> -<span id="L19403" class="LineNr">19403 </span> <span class="subxComment"># a table is a stream</span> -<span id="L19404" class="LineNr">19404 </span> 0xa8/imm32/write -<span id="L19405" class="LineNr">19405 </span> 0/imm32/read -<span id="L19406" class="LineNr">19406 </span> 0xa8/imm32/length -<span id="L19407" class="LineNr">19407 </span> <span class="subxComment"># data</span> -<span id="L19408" class="LineNr">19408 </span> <span class="subxComment"># general-purpose registers</span> -<span id="L19409" class="LineNr">19409 </span> 0x11/imm32/alloc-id $Mu-register-eax/imm32 0/imm32 -<span id="L19410" class="LineNr">19410 </span> 0x11/imm32/alloc-id $Mu-register-ecx/imm32 1/imm32 -<span id="L19411" class="LineNr">19411 </span> 0x11/imm32/alloc-id $Mu-register-edx/imm32 2/imm32 -<span id="L19412" class="LineNr">19412 </span> 0x11/imm32/alloc-id $Mu-register-ebx/imm32 3/imm32 -<span id="L19413" class="LineNr">19413 </span> 0x11/imm32/alloc-id $Mu-register-esi/imm32 6/imm32 -<span id="L19414" class="LineNr">19414 </span> 0x11/imm32/alloc-id $Mu-register-edi/imm32 7/imm32 -<span id="L19415" class="LineNr">19415 </span> <span class="subxComment"># floating-point registers</span> -<span id="L19416" class="LineNr">19416 </span> 0x11/imm32/alloc-id $Mu-register-xmm0/imm32 8/imm32 -<span id="L19417" class="LineNr">19417 </span> 0x11/imm32/alloc-id $Mu-register-xmm1/imm32 9/imm32 -<span id="L19418" class="LineNr">19418 </span> 0x11/imm32/alloc-id $Mu-register-xmm2/imm32 0xa/imm32 -<span id="L19419" class="LineNr">19419 </span> 0x11/imm32/alloc-id $Mu-register-xmm3/imm32 0xb/imm32 -<span id="L19420" class="LineNr">19420 </span> 0x11/imm32/alloc-id $Mu-register-xmm4/imm32 0xc/imm32 -<span id="L19421" class="LineNr">19421 </span> 0x11/imm32/alloc-id $Mu-register-xmm5/imm32 0xd/imm32 -<span id="L19422" class="LineNr">19422 </span> 0x11/imm32/alloc-id $Mu-register-xmm6/imm32 0xe/imm32 -<span id="L19423" class="LineNr">19423 </span> 0x11/imm32/alloc-id $Mu-register-xmm7/imm32 0xf/imm32 -<span id="L19424" class="LineNr">19424 </span> -<span id="L19425" class="LineNr">19425 </span><span class="Constant">$Mu-register-eax</span>: -<span id="L19426" class="LineNr">19426 </span> 0x11/imm32/alloc-id -<span id="L19427" class="LineNr">19427 </span> 3/imm32/size -<span id="L19428" class="LineNr">19428 </span> 0x65/e 0x61/a 0x78/x -<span id="L19429" class="LineNr">19429 </span> -<span id="L19430" class="LineNr">19430 </span><span class="Constant">$Mu-register-ecx</span>: -<span id="L19431" class="LineNr">19431 </span> 0x11/imm32/alloc-id -<span id="L19432" class="LineNr">19432 </span> 3/imm32/size -<span id="L19433" class="LineNr">19433 </span> 0x65/e 0x63/c 0x78/x -<span id="L19434" class="LineNr">19434 </span> -<span id="L19435" class="LineNr">19435 </span><span class="Constant">$Mu-register-edx</span>: -<span id="L19436" class="LineNr">19436 </span> 0x11/imm32/alloc-id -<span id="L19437" class="LineNr">19437 </span> 3/imm32/size -<span id="L19438" class="LineNr">19438 </span> 0x65/e 0x64/d 0x78/x -<span id="L19439" class="LineNr">19439 </span> -<span id="L19440" class="LineNr">19440 </span><span class="Constant">$Mu-register-ebx</span>: -<span id="L19441" class="LineNr">19441 </span> 0x11/imm32/alloc-id -<span id="L19442" class="LineNr">19442 </span> 3/imm32/size -<span id="L19443" class="LineNr">19443 </span> 0x65/e 0x62/b 0x78/x -<span id="L19444" class="LineNr">19444 </span> -<span id="L19445" class="LineNr">19445 </span><span class="Constant">$Mu-register-esi</span>: -<span id="L19446" class="LineNr">19446 </span> 0x11/imm32/alloc-id -<span id="L19447" class="LineNr">19447 </span> 3/imm32/size -<span id="L19448" class="LineNr">19448 </span> 0x65/e 0x73/s 0x69/i -<span id="L19449" class="LineNr">19449 </span> -<span id="L19450" class="LineNr">19450 </span><span class="Constant">$Mu-register-edi</span>: -<span id="L19451" class="LineNr">19451 </span> 0x11/imm32/alloc-id -<span id="L19452" class="LineNr">19452 </span> 3/imm32/size -<span id="L19453" class="LineNr">19453 </span> 0x65/e 0x64/d 0x69/i -<span id="L19454" class="LineNr">19454 </span> -<span id="L19455" class="LineNr">19455 </span><span class="Constant">$Mu-register-xmm0</span>: -<span id="L19456" class="LineNr">19456 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19457" class="LineNr">19457 </span> <span class="subxComment"># "xmm0"</span> -<span id="L19458" class="LineNr">19458 </span> 0x4/imm32/size -<span id="L19459" class="LineNr">19459 </span> 0x78/x 0x6d/m 0x6d/m 0x30/0 -<span id="L19460" class="LineNr">19460 </span> -<span id="L19461" class="LineNr">19461 </span><span class="Constant">$Mu-register-xmm1</span>: -<span id="L19462" class="LineNr">19462 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19463" class="LineNr">19463 </span> <span class="subxComment"># "xmm1"</span> -<span id="L19464" class="LineNr">19464 </span> 0x4/imm32/size -<span id="L19465" class="LineNr">19465 </span> 0x78/x 0x6d/m 0x6d/m 0x31/1 +<span id="L18065" class="LineNr">18065 </span><span class="subxTest">test-is-identifier-hyphen</span>: +<span id="L18066" class="LineNr">18066 </span> <span class="subxComment"># disallow leading '-' since '->' has special meaning</span> +<span id="L18067" class="LineNr">18067 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18068" class="LineNr">18068 </span> 55/push-ebp +<span id="L18069" class="LineNr">18069 </span> 89/<- %ebp 4/r32/esp +<span id="L18070" class="LineNr">18070 </span> <span class="subxComment"># (eax..ecx) = "-a"</span> +<span id="L18071" class="LineNr">18071 </span> b8/copy-to-eax <span class="Constant">"-a"</span>/imm32 +<span id="L18072" class="LineNr">18072 </span> 8b/-> *eax 1/r32/ecx +<span id="L18073" class="LineNr">18073 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L18074" class="LineNr">18074 </span> 05/add-to-eax 4/imm32 +<span id="L18075" class="LineNr">18075 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L18076" class="LineNr">18076 </span> 51/push-ecx +<span id="L18077" class="LineNr">18077 </span> 50/push-eax +<span id="L18078" class="LineNr">18078 </span> 89/<- %ecx 4/r32/esp +<span id="L18079" class="LineNr">18079 </span> <span class="subxComment">#</span> +<span id="L18080" class="LineNr">18080 </span> (<a href='mu.subx.html#L17791'>identifier?</a> %ecx) +<span id="L18081" class="LineNr">18081 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-is-identifier-hyphen"</span>) +<span id="L18082" class="LineNr">18082 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18083" class="LineNr">18083 </span> 89/<- %esp 5/r32/ebp +<span id="L18084" class="LineNr">18084 </span> 5d/pop-to-ebp +<span id="L18085" class="LineNr">18085 </span> c3/return +<span id="L18086" class="LineNr">18086 </span> +<span id="L18087" class="LineNr">18087 </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="L18088" class="LineNr">18088 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18089" class="LineNr">18089 </span> 55/push-ebp +<span id="L18090" class="LineNr">18090 </span> 89/<- %ebp 4/r32/esp +<span id="L18091" class="LineNr">18091 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L18092" class="LineNr">18092 </span> 50/push-eax +<span id="L18093" class="LineNr">18093 </span> 56/push-esi +<span id="L18094" class="LineNr">18094 </span> 57/push-edi +<span id="L18095" class="LineNr">18095 </span> <span class="subxComment"># esi = in</span> +<span id="L18096" class="LineNr">18096 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L18097" class="LineNr">18097 </span> <span class="subxComment"># edi = out</span> +<span id="L18098" class="LineNr">18098 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L18099" class="LineNr">18099 </span> <span class="subxComment"># initialize some global state</span> +<span id="L18100" class="LineNr">18100 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span> 1/imm32 +<span id="L18101" class="LineNr">18101 </span> <span class="subxComment"># parse-mu-block(in, vars, out, out->body)</span> +<span id="L18102" class="LineNr">18102 </span> 8d/copy-address *(edi+0x18) 0/r32/eax <span class="subxComment"># Function-body</span> +<span id="L18103" class="LineNr">18103 </span> (<a href='mu.subx.html#L18115'>parse-mu-block</a> %esi *(ebp+0x10) %edi %eax *(ebp+0x14) *(ebp+0x18)) +<span id="L18104" class="LineNr">18104 </span><span class="Constant">$populate-mu-function-body:end</span>: +<span id="L18105" class="LineNr">18105 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L18106" class="LineNr">18106 </span> 5f/pop-to-edi +<span id="L18107" class="LineNr">18107 </span> 5e/pop-to-esi +<span id="L18108" class="LineNr">18108 </span> 58/pop-to-eax +<span id="L18109" class="LineNr">18109 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18110" class="LineNr">18110 </span> 89/<- %esp 5/r32/ebp +<span id="L18111" class="LineNr">18111 </span> 5d/pop-to-ebp +<span id="L18112" class="LineNr">18112 </span> c3/return +<span id="L18113" class="LineNr">18113 </span> +<span id="L18114" class="LineNr">18114 </span><span class="subxComment"># parses a block, assuming that the leading '{' has already been read by the caller</span> +<span id="L18115" class="LineNr">18115 </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="L18116" class="LineNr">18116 </span> <span class="subxComment"># pseudocode:</span> +<span id="L18117" class="LineNr">18117 </span> <span class="subxComment"># var line: (stream byte 512)</span> +<span id="L18118" class="LineNr">18118 </span> <span class="subxComment"># var word-slice: slice</span> +<span id="L18119" class="LineNr">18119 </span> <span class="subxComment"># allocate(Heap, Stmt-size, out)</span> +<span id="L18120" class="LineNr">18120 </span> <span class="subxComment"># var out-addr: (addr block) = lookup(*out)</span> +<span id="L18121" class="LineNr">18121 </span> <span class="subxComment"># out-addr->tag = 0/block</span> +<span id="L18122" class="LineNr">18122 </span> <span class="subxComment"># out-addr->var = some unique name</span> +<span id="L18123" class="LineNr">18123 </span> <span class="subxComment"># push(vars, {out-addr->var, false})</span> +<span id="L18124" class="LineNr">18124 </span> <span class="subxComment"># while true # line loop</span> +<span id="L18125" class="LineNr">18125 </span> <span class="subxComment"># clear-stream(line)</span> +<span id="L18126" class="LineNr">18126 </span> <span class="subxComment"># read-line-buffered(in, line)</span> +<span id="L18127" class="LineNr">18127 </span> <span class="subxComment"># if (line->write == 0) break # end of file</span> +<span id="L18128" class="LineNr">18128 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> +<span id="L18129" class="LineNr">18129 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> +<span id="L18130" class="LineNr">18130 </span> <span class="subxComment"># continue</span> +<span id="L18131" class="LineNr">18131 </span> <span class="subxComment"># else if slice-starts-with?(word-slice, "#")</span> +<span id="L18132" class="LineNr">18132 </span> <span class="subxComment"># continue</span> +<span id="L18133" class="LineNr">18133 </span> <span class="subxComment"># else if slice-equal?(word-slice, "{")</span> +<span id="L18134" class="LineNr">18134 </span> <span class="subxComment"># assert(no-tokens-in(line))</span> +<span id="L18135" class="LineNr">18135 </span> <span class="subxComment"># block = parse-mu-block(in, vars, fn)</span> +<span id="L18136" class="LineNr">18136 </span> <span class="subxComment"># append-to-block(out-addr, block)</span> +<span id="L18137" class="LineNr">18137 </span> <span class="subxComment"># else if slice-equal?(word-slice, "}")</span> +<span id="L18138" class="LineNr">18138 </span> <span class="subxComment"># break</span> +<span id="L18139" class="LineNr">18139 </span> <span class="subxComment"># else if slice-ends-with?(word-slice, ":")</span> +<span id="L18140" class="LineNr">18140 </span> <span class="subxComment"># # TODO: error-check the rest of 'line'</span> +<span id="L18141" class="LineNr">18141 </span> <span class="subxComment"># --word-slice->end to skip ':'</span> +<span id="L18142" class="LineNr">18142 </span> <span class="subxComment"># named-block = parse-mu-named-block(word-slice, in, vars, fn)</span> +<span id="L18143" class="LineNr">18143 </span> <span class="subxComment"># append-to-block(out-addr, named-block)</span> +<span id="L18144" class="LineNr">18144 </span> <span class="subxComment"># else if slice-equal?(word-slice, "var")</span> +<span id="L18145" class="LineNr">18145 </span> <span class="subxComment"># var-def = parse-mu-var-def(line, vars, fn)</span> +<span id="L18146" class="LineNr">18146 </span> <span class="subxComment"># append-to-block(out-addr, var-def)</span> +<span id="L18147" class="LineNr">18147 </span> <span class="subxComment"># else</span> +<span id="L18148" class="LineNr">18148 </span> <span class="subxComment"># stmt = parse-mu-stmt(line, vars, fn)</span> +<span id="L18149" class="LineNr">18149 </span> <span class="subxComment"># append-to-block(out-addr, stmt)</span> +<span id="L18150" class="LineNr">18150 </span> <span class="subxComment"># pop(vars)</span> +<span id="L18151" class="LineNr">18151 </span> <span class="subxComment">#</span> +<span id="L18152" class="LineNr">18152 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18153" class="LineNr">18153 </span> 55/push-ebp +<span id="L18154" class="LineNr">18154 </span> 89/<- %ebp 4/r32/esp +<span id="L18155" class="LineNr">18155 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L18156" class="LineNr">18156 </span> 50/push-eax +<span id="L18157" class="LineNr">18157 </span> 51/push-ecx +<span id="L18158" class="LineNr">18158 </span> 52/push-edx +<span id="L18159" class="LineNr">18159 </span> 53/push-ebx +<span id="L18160" class="LineNr">18160 </span> 57/push-edi +<span id="L18161" class="LineNr">18161 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> +<span id="L18162" class="LineNr">18162 </span> 81 5/subop/subtract %esp 0x200/imm32 +<span id="L18163" class="LineNr">18163 </span> 68/push 0x200/imm32/size +<span id="L18164" class="LineNr">18164 </span> 68/push 0/imm32/read +<span id="L18165" class="LineNr">18165 </span> 68/push 0/imm32/write +<span id="L18166" class="LineNr">18166 </span> 89/<- %ecx 4/r32/esp +<span id="L18167" class="LineNr">18167 </span> <span class="subxComment"># var word-slice/edx: slice</span> +<span id="L18168" class="LineNr">18168 </span> 68/push 0/imm32/end +<span id="L18169" class="LineNr">18169 </span> 68/push 0/imm32/start +<span id="L18170" class="LineNr">18170 </span> 89/<- %edx 4/r32/esp +<span id="L18171" class="LineNr">18171 </span> <span class="subxComment"># allocate into out</span> +<span id="L18172" class="LineNr">18172 </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="L18173" class="LineNr">18173 </span> <span class="subxComment"># var out-addr/edi: (addr block) = lookup(*out)</span> +<span id="L18174" class="LineNr">18174 </span> 8b/-> *(ebp+0x14) 7/r32/edi +<span id="L18175" class="LineNr">18175 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L18176" class="LineNr">18176 </span> 89/<- %edi 0/r32/eax +<span id="L18177" class="LineNr">18177 </span> <span class="subxComment"># out-addr->tag is 0 (block) by default</span> +<span id="L18178" class="LineNr">18178 </span> <span class="subxComment"># set out-addr->var</span> +<span id="L18179" class="LineNr">18179 </span> 8d/copy-address *(edi+0xc) 0/r32/eax <span class="subxComment"># Block-var</span> +<span id="L18180" class="LineNr">18180 </span> (<a href='mu.subx.html#L18335'>new-block-name</a> *(ebp+0x10) %eax) +<span id="L18181" class="LineNr">18181 </span> <span class="subxComment"># push(vars, out-addr->var)</span> +<span id="L18182" class="LineNr">18182 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0xc) *(edi+0xc)) <span class="subxComment"># Block-var</span> +<span id="L18183" class="LineNr">18183 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0xc) *(edi+0x10)) <span class="subxComment"># Block-var</span> +<span id="L18184" class="LineNr">18184 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0xc) 0) <span class="subxComment"># false</span> +<span id="L18185" class="LineNr">18185 </span> <span class="subxComment"># increment *Curr-block-depth</span> +<span id="L18186" class="LineNr">18186 </span> ff 0/subop/increment *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span> +<span id="L18187" class="LineNr">18187 </span> { +<span id="L18188" class="LineNr">18188 </span><span class="Constant">$parse-mu-block:line-loop</span>: +<span id="L18189" class="LineNr">18189 </span> <span class="subxComment"># line = read-line-buffered(in)</span> +<span id="L18190" class="LineNr">18190 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> %ecx) +<span id="L18191" class="LineNr">18191 </span> (<a href='122read-line.subx.html#L9'>read-line-buffered</a> *(ebp+8) %ecx) +<span id="L18192" class="LineNr">18192 </span><span class="CommentedCode">#? (write-buffered Stderr "line: ")</span> +<span id="L18193" class="LineNr">18193 </span><span class="CommentedCode">#? (write-stream-data Stderr %ecx)</span> +<span id="L18194" class="LineNr">18194 </span><span class="CommentedCode">#? #? (write-buffered Stderr Newline) # line has its own newline</span> +<span id="L18195" class="LineNr">18195 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L18196" class="LineNr">18196 </span><span class="CommentedCode">#? (rewind-stream %ecx)</span> +<span id="L18197" class="LineNr">18197 </span> <span class="subxComment"># if (line->write == 0) break</span> +<span id="L18198" class="LineNr">18198 </span> 81 7/subop/compare *ecx 0/imm32 +<span id="L18199" class="LineNr">18199 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L18200" class="LineNr">18200 </span><span class="CommentedCode">#? (write-buffered Stderr "vars:\n")</span> +<span id="L18201" class="LineNr">18201 </span><span class="CommentedCode">#? (dump-vars *(ebp+0xc))</span> +<span id="L18202" class="LineNr">18202 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> +<span id="L18203" class="LineNr">18203 </span> (<a href='mu.subx.html#L17305'>next-mu-token</a> %ecx %edx) +<span id="L18204" class="LineNr">18204 </span><span class="CommentedCode">#? (write-buffered Stderr "word: ")</span> +<span id="L18205" class="LineNr">18205 </span><span class="CommentedCode">#? (write-slice-buffered Stderr %edx)</span> +<span id="L18206" class="LineNr">18206 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L18207" class="LineNr">18207 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L18208" class="LineNr">18208 </span> <span class="subxComment"># if slice-empty?(word-slice) continue</span> +<span id="L18209" class="LineNr">18209 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %edx) +<span id="L18210" class="LineNr">18210 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18211" class="LineNr">18211 </span> 0f 85/jump-if-!= <span class="Constant">loop</span>/disp32 +<span id="L18212" class="LineNr">18212 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, '#') continue</span> +<span id="L18213" class="LineNr">18213 </span> <span class="subxS1Comment"># . eax = *word-slice->start</span> +<span id="L18214" class="LineNr">18214 </span> 8b/-> *edx 0/r32/eax +<span id="L18215" class="LineNr">18215 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L18216" class="LineNr">18216 </span> 25/and-eax-with 0xff/imm32 +<span id="L18217" class="LineNr">18217 </span> <span class="subxS1Comment"># . if (eax == '#') continue</span> +<span id="L18218" class="LineNr">18218 </span> 3d/compare-eax-and 0x23/imm32/hash +<span id="L18219" class="LineNr">18219 </span> 0f 84/jump-if-= <span class="Constant">loop</span>/disp32 +<span id="L18220" class="LineNr">18220 </span> <span class="subxComment"># if slice-equal?(word-slice, "{")</span> +<span id="L18221" class="LineNr">18221 </span> { +<span id="L18222" class="LineNr">18222 </span><span class="Constant">$parse-mu-block:check-for-block</span>: +<span id="L18223" class="LineNr">18223 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"{"</span>) +<span id="L18224" class="LineNr">18224 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18225" class="LineNr">18225 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L18226" class="LineNr">18226 </span> (<a href='mu.subx.html#L18399'>check-no-tokens-left</a> %ecx) +<span id="L18227" class="LineNr">18227 </span> <span class="subxComment"># parse new block and append</span> +<span id="L18228" class="LineNr">18228 </span> <span class="subxS1Comment"># . var tmp/eax: (handle block)</span> +<span id="L18229" class="LineNr">18229 </span> 68/push 0/imm32 +<span id="L18230" class="LineNr">18230 </span> 68/push 0/imm32 +<span id="L18231" class="LineNr">18231 </span> 89/<- %eax 4/r32/esp +<span id="L18232" class="LineNr">18232 </span> <span class="subxS1Comment"># .</span> +<span id="L18233" class="LineNr">18233 </span> (<a href='mu.subx.html#L18115'>parse-mu-block</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) %eax *(ebp+0x18) *(ebp+0x1c)) +<span id="L18234" class="LineNr">18234 </span> (<a href='mu.subx.html#L20150'>append-to-block</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %edi *eax *(eax+4)) +<span id="L18235" class="LineNr">18235 </span> <span class="subxS1Comment"># . reclaim tmp</span> +<span id="L18236" class="LineNr">18236 </span> 81 0/subop/add %esp 8/imm32 +<span id="L18237" class="LineNr">18237 </span> <span class="subxS1Comment"># .</span> +<span id="L18238" class="LineNr">18238 </span> e9/jump $parse-mu-block:line-loop/disp32 +<span id="L18239" class="LineNr">18239 </span> } +<span id="L18240" class="LineNr">18240 </span> <span class="subxComment"># if slice-equal?(word-slice, "}") break</span> +<span id="L18241" class="LineNr">18241 </span><span class="Constant">$parse-mu-block:check-for-end</span>: +<span id="L18242" class="LineNr">18242 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"}"</span>) +<span id="L18243" class="LineNr">18243 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18244" class="LineNr">18244 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L18245" class="LineNr">18245 </span> <span class="subxComment"># if slice-ends-with?(word-slice, ":") parse named block and append</span> +<span id="L18246" class="LineNr">18246 </span> { +<span id="L18247" class="LineNr">18247 </span><span class="Constant">$parse-mu-block:check-for-named-block</span>: +<span id="L18248" class="LineNr">18248 </span> <span class="subxS1Comment"># . eax = *(word-slice->end-1)</span> +<span id="L18249" class="LineNr">18249 </span> 8b/-> *(edx+4) 0/r32/eax +<span id="L18250" class="LineNr">18250 </span> 48/decrement-eax +<span id="L18251" class="LineNr">18251 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L18252" class="LineNr">18252 </span> 25/and-eax-with 0xff/imm32 +<span id="L18253" class="LineNr">18253 </span> <span class="subxS1Comment"># . if (eax != ':') break</span> +<span id="L18254" class="LineNr">18254 </span> 3d/compare-eax-and 0x3a/imm32/colon +<span id="L18255" class="LineNr">18255 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L18256" class="LineNr">18256 </span> <span class="subxComment"># TODO: error-check the rest of 'line'</span> +<span id="L18257" class="LineNr">18257 </span> <span class="subxComment">#</span> +<span id="L18258" class="LineNr">18258 </span> <span class="subxComment"># skip ':'</span> +<span id="L18259" class="LineNr">18259 </span> ff 1/subop/decrement *(edx+4) <span class="subxComment"># Slice-end</span> +<span id="L18260" class="LineNr">18260 </span> <span class="subxComment"># var tmp/eax: (handle block)</span> +<span id="L18261" class="LineNr">18261 </span> 68/push 0/imm32 +<span id="L18262" class="LineNr">18262 </span> 68/push 0/imm32 +<span id="L18263" class="LineNr">18263 </span> 89/<- %eax 4/r32/esp +<span id="L18264" class="LineNr">18264 </span> <span class="subxComment">#</span> +<span id="L18265" class="LineNr">18265 </span> (<a href='mu.subx.html#L18445'>parse-mu-named-block</a> %edx *(ebp+8) *(ebp+0xc) *(ebp+0x10) %eax *(ebp+0x18) *(ebp+0x1c)) +<span id="L18266" class="LineNr">18266 </span> (<a href='mu.subx.html#L20150'>append-to-block</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %edi *eax *(eax+4)) +<span id="L18267" class="LineNr">18267 </span> <span class="subxComment"># reclaim tmp</span> +<span id="L18268" class="LineNr">18268 </span> 81 0/subop/add %esp 8/imm32 +<span id="L18269" class="LineNr">18269 </span> <span class="subxComment">#</span> +<span id="L18270" class="LineNr">18270 </span> e9/jump $parse-mu-block:line-loop/disp32 +<span id="L18271" class="LineNr">18271 </span> } +<span id="L18272" class="LineNr">18272 </span> <span class="subxComment"># if slice-equal?(word-slice, "var")</span> +<span id="L18273" class="LineNr">18273 </span> { +<span id="L18274" class="LineNr">18274 </span><span class="Constant">$parse-mu-block:check-for-var</span>: +<span id="L18275" class="LineNr">18275 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"var"</span>) +<span id="L18276" class="LineNr">18276 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18277" class="LineNr">18277 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L18278" class="LineNr">18278 </span> <span class="subxComment"># var tmp/eax: (handle block)</span> +<span id="L18279" class="LineNr">18279 </span> 68/push 0/imm32 +<span id="L18280" class="LineNr">18280 </span> 68/push 0/imm32 +<span id="L18281" class="LineNr">18281 </span> 89/<- %eax 4/r32/esp +<span id="L18282" class="LineNr">18282 </span> <span class="subxComment">#</span> +<span id="L18283" class="LineNr">18283 </span> (<a href='mu.subx.html#L18501'>parse-mu-var-def</a> %ecx *(ebp+0xc) %eax *(ebp+0x10) *(ebp+0x18) *(ebp+0x1c)) +<span id="L18284" class="LineNr">18284 </span> (<a href='mu.subx.html#L20150'>append-to-block</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %edi *eax *(eax+4)) +<span id="L18285" class="LineNr">18285 </span> <span class="subxComment"># reclaim tmp</span> +<span id="L18286" class="LineNr">18286 </span> 81 0/subop/add %esp 8/imm32 +<span id="L18287" class="LineNr">18287 </span> <span class="subxComment">#</span> +<span id="L18288" class="LineNr">18288 </span> e9/jump $parse-mu-block:line-loop/disp32 +<span id="L18289" class="LineNr">18289 </span> } +<span id="L18290" class="LineNr">18290 </span><span class="Constant">$parse-mu-block:regular-stmt</span>: +<span id="L18291" class="LineNr">18291 </span> <span class="subxComment"># otherwise</span> +<span id="L18292" class="LineNr">18292 </span> <span class="subxComment"># var tmp/eax: (handle block)</span> +<span id="L18293" class="LineNr">18293 </span> 68/push 0/imm32 +<span id="L18294" class="LineNr">18294 </span> 68/push 0/imm32 +<span id="L18295" class="LineNr">18295 </span> 89/<- %eax 4/r32/esp +<span id="L18296" class="LineNr">18296 </span> <span class="subxComment">#</span> +<span id="L18297" class="LineNr">18297 </span> (<a href='mu.subx.html#L18765'>parse-mu-stmt</a> %ecx *(ebp+0xc) *(ebp+0x10) %eax *(ebp+0x18) *(ebp+0x1c)) +<span id="L18298" class="LineNr">18298 </span> (<a href='mu.subx.html#L20150'>append-to-block</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %edi *eax *(eax+4)) +<span id="L18299" class="LineNr">18299 </span> <span class="subxComment"># reclaim tmp</span> +<span id="L18300" class="LineNr">18300 </span> 81 0/subop/add %esp 8/imm32 +<span id="L18301" class="LineNr">18301 </span> <span class="subxComment">#</span> +<span id="L18302" class="LineNr">18302 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L18303" class="LineNr">18303 </span> } <span class="subxComment"># end line loop</span> +<span id="L18304" class="LineNr">18304 </span> (<a href='mu.subx.html#L28445'>clean-up-blocks</a> *(ebp+0xc) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span> *(ebp+0x10)) +<span id="L18305" class="LineNr">18305 </span> <span class="subxComment"># decrement *Curr-block-depth</span> +<span id="L18306" class="LineNr">18306 </span> ff 1/subop/decrement *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span> +<span id="L18307" class="LineNr">18307 </span> <span class="subxComment"># pop(vars)</span> +<span id="L18308" class="LineNr">18308 </span> (<a href='203stack.subx.html#L234'>pop</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L18309" class="LineNr">18309 </span> (<a href='203stack.subx.html#L234'>pop</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L18310" class="LineNr">18310 </span> (<a href='203stack.subx.html#L234'>pop</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L18311" class="LineNr">18311 </span><span class="Constant">$parse-mu-block:end</span>: +<span id="L18312" class="LineNr">18312 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L18313" class="LineNr">18313 </span> 81 0/subop/add %esp 0x214/imm32 +<span id="L18314" class="LineNr">18314 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L18315" class="LineNr">18315 </span> 5f/pop-to-edi +<span id="L18316" class="LineNr">18316 </span> 5b/pop-to-ebx +<span id="L18317" class="LineNr">18317 </span> 5a/pop-to-edx +<span id="L18318" class="LineNr">18318 </span> 59/pop-to-ecx +<span id="L18319" class="LineNr">18319 </span> 58/pop-to-eax +<span id="L18320" class="LineNr">18320 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18321" class="LineNr">18321 </span> 89/<- %esp 5/r32/ebp +<span id="L18322" class="LineNr">18322 </span> 5d/pop-to-ebp +<span id="L18323" class="LineNr">18323 </span> c3/return +<span id="L18324" class="LineNr">18324 </span> +<span id="L18325" class="LineNr">18325 </span><span class="Constant">$parse-mu-block:abort</span>: +<span id="L18326" class="LineNr">18326 </span> <span class="subxComment"># error("'{' or '}' should be on its own line, but got '")</span> +<span id="L18327" class="LineNr">18327 </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="L18328" class="LineNr">18328 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> %ecx) +<span id="L18329" class="LineNr">18329 </span> (<a href='125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x18) %ecx) +<span id="L18330" class="LineNr">18330 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) +<span id="L18331" class="LineNr">18331 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L18332" class="LineNr">18332 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L18333" class="LineNr">18333 </span> <span class="subxComment"># never gets here</span> +<span id="L18334" class="LineNr">18334 </span> +<span id="L18335" class="LineNr">18335 </span><span class="subxFunction">new-block-name</span>: <span class="subxComment"># fn: (addr function), 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> 52/push-edx +<span id="L18343" class="LineNr">18343 </span> <span class="subxComment"># var n/ecx: int = len(fn->name) + 10 for an int + 2 for '$:'</span> +<span id="L18344" class="LineNr">18344 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L18345" class="LineNr">18345 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L18346" class="LineNr">18346 </span> 8b/-> *eax 0/r32/eax <span class="subxComment"># String-size</span> +<span id="L18347" class="LineNr">18347 </span> 05/add-to-eax 0xd/imm32 <span class="subxComment"># 10 + 2 for '$:'</span> +<span id="L18348" class="LineNr">18348 </span> 89/<- %ecx 0/r32/eax +<span id="L18349" class="LineNr">18349 </span> <span class="subxComment"># var name/edx: (stream byte n)</span> +<span id="L18350" class="LineNr">18350 </span> 29/subtract-from %esp 1/r32/ecx +<span id="L18351" class="LineNr">18351 </span> ff 6/subop/push %ecx +<span id="L18352" class="LineNr">18352 </span> 68/push 0/imm32/read +<span id="L18353" class="LineNr">18353 </span> 68/push 0/imm32/write +<span id="L18354" class="LineNr">18354 </span> 89/<- %edx 4/r32/esp +<span id="L18355" class="LineNr">18355 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> %edx) +<span id="L18356" class="LineNr">18356 </span> <span class="subxComment"># eax = fn->name</span> +<span id="L18357" class="LineNr">18357 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L18358" class="LineNr">18358 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L18359" class="LineNr">18359 </span> <span class="subxComment"># construct result using Next-block-index (and increment it)</span> +<span id="L18360" class="LineNr">18360 </span> (<a href='108write.subx.html#L24'>write</a> %edx <span class="Constant">"$"</span>) +<span id="L18361" class="LineNr">18361 </span> (<a href='108write.subx.html#L24'>write</a> %edx %eax) +<span id="L18362" class="LineNr">18362 </span> (<a href='108write.subx.html#L24'>write</a> %edx <span class="Constant">":"</span>) +<span id="L18363" class="LineNr">18363 </span> (<a href='117write-int-hex.subx.html#L178'>write-int32-hex</a> %edx *<span class="SpecialChar"><a href='mu.subx.html#L15713'>Next-block-index</a></span>) +<span id="L18364" class="LineNr">18364 </span> ff 0/subop/increment *<span class="SpecialChar"><a href='mu.subx.html#L15713'>Next-block-index</a></span> +<span id="L18365" class="LineNr">18365 </span> <span class="subxComment"># var s/eax: slice = {name->data, name->data + name->write} (clobbering edx)</span> +<span id="L18366" class="LineNr">18366 </span> <span class="subxS1Comment"># . eax = name->write</span> +<span id="L18367" class="LineNr">18367 </span> 8b/-> *edx 0/r32/eax +<span id="L18368" class="LineNr">18368 </span> <span class="subxS1Comment"># . edx = name->data</span> +<span id="L18369" class="LineNr">18369 </span> 8d/copy-address *(edx+0xc) 2/r32/edx +<span id="L18370" class="LineNr">18370 </span> <span class="subxS1Comment"># . eax = name->write + name->data</span> +<span id="L18371" class="LineNr">18371 </span> 01/add-to %eax 2/r32/edx +<span id="L18372" class="LineNr">18372 </span> <span class="subxS1Comment"># . push {edx, eax}</span> +<span id="L18373" class="LineNr">18373 </span> ff 6/subop/push %eax +<span id="L18374" class="LineNr">18374 </span> ff 6/subop/push %edx +<span id="L18375" class="LineNr">18375 </span> 89/<- %eax 4/r32/esp +<span id="L18376" class="LineNr">18376 </span> <span class="subxComment"># out = new literal(s)</span> +<span id="L18377" class="LineNr">18377 </span> (<a href='mu.subx.html#L19877'>new-literal</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %eax *(ebp+0xc)) +<span id="L18378" class="LineNr">18378 </span><span class="CommentedCode">#? 8b/-> *(ebp+0xc) 0/r32/eax</span> +<span id="L18379" class="LineNr">18379 </span><span class="CommentedCode">#? (write-buffered Stderr "type allocid in caller after new-literal: ")</span> +<span id="L18380" class="LineNr">18380 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(eax+8))</span> +<span id="L18381" class="LineNr">18381 </span><span class="CommentedCode">#? (write-buffered Stderr " for var ")</span> +<span id="L18382" class="LineNr">18382 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L18383" class="LineNr">18383 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L18384" class="LineNr">18384 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L18385" class="LineNr">18385 </span><span class="Constant">$new-block-name:end</span>: +<span id="L18386" class="LineNr">18386 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L18387" class="LineNr">18387 </span> 81 0/subop/add %ecx 0xc/imm32 <span class="subxComment"># name.{read/write/len}</span> +<span id="L18388" class="LineNr">18388 </span> 81 0/subop/add %ecx 8/imm32 <span class="subxComment"># slice</span> +<span id="L18389" class="LineNr">18389 </span> 01/add-to %esp 1/r32/ecx +<span id="L18390" class="LineNr">18390 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L18391" class="LineNr">18391 </span> 5a/pop-to-edx +<span id="L18392" class="LineNr">18392 </span> 59/pop-to-ecx +<span id="L18393" class="LineNr">18393 </span> 58/pop-to-eax +<span id="L18394" class="LineNr">18394 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18395" class="LineNr">18395 </span> 89/<- %esp 5/r32/ebp +<span id="L18396" class="LineNr">18396 </span> 5d/pop-to-ebp +<span id="L18397" class="LineNr">18397 </span> c3/return +<span id="L18398" class="LineNr">18398 </span> +<span id="L18399" class="LineNr">18399 </span><span class="subxFunction">check-no-tokens-left</span>: <span class="subxComment"># line: (addr stream byte)</span> +<span id="L18400" class="LineNr">18400 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18401" class="LineNr">18401 </span> 55/push-ebp +<span id="L18402" class="LineNr">18402 </span> 89/<- %ebp 4/r32/esp +<span id="L18403" class="LineNr">18403 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L18404" class="LineNr">18404 </span> 50/push-eax +<span id="L18405" class="LineNr">18405 </span> 51/push-ecx +<span id="L18406" class="LineNr">18406 </span> <span class="subxComment"># var s/ecx: slice</span> +<span id="L18407" class="LineNr">18407 </span> 68/push 0/imm32/end +<span id="L18408" class="LineNr">18408 </span> 68/push 0/imm32/start +<span id="L18409" class="LineNr">18409 </span> 89/<- %ecx 4/r32/esp +<span id="L18410" class="LineNr">18410 </span> <span class="subxComment">#</span> +<span id="L18411" class="LineNr">18411 </span> (<a href='mu.subx.html#L17305'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L18412" class="LineNr">18412 </span> <span class="subxComment"># if slice-empty?(s) return</span> +<span id="L18413" class="LineNr">18413 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) +<span id="L18414" class="LineNr">18414 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18415" class="LineNr">18415 </span> 75/jump-if-!= $check-no-tokens-left:end/disp8 +<span id="L18416" class="LineNr">18416 </span> <span class="subxComment"># if (slice-starts-with?(s, '#') return</span> +<span id="L18417" class="LineNr">18417 </span> <span class="subxS1Comment"># . eax = *s->start</span> +<span id="L18418" class="LineNr">18418 </span> 8b/-> *edx 0/r32/eax +<span id="L18419" class="LineNr">18419 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L18420" class="LineNr">18420 </span> 25/and-eax-with 0xff/imm32 +<span id="L18421" class="LineNr">18421 </span> <span class="subxS1Comment"># . if (eax == '#') continue</span> +<span id="L18422" class="LineNr">18422 </span> 3d/compare-eax-and 0x23/imm32/hash +<span id="L18423" class="LineNr">18423 </span> 74/jump-if-= $check-no-tokens-left:end/disp8 +<span id="L18424" class="LineNr">18424 </span> <span class="subxComment"># abort</span> +<span id="L18425" class="LineNr">18425 </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="L18426" class="LineNr">18426 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> %ecx) +<span id="L18427" class="LineNr">18427 </span> (<a href='113write-stream.subx.html#L17'>write-stream</a> 2 %ecx) +<span id="L18428" class="LineNr">18428 </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="L18429" class="LineNr">18429 </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="L18430" class="LineNr">18430 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L18431" class="LineNr">18431 </span> bb/copy-to-ebx 1/imm32 +<span id="L18432" class="LineNr">18432 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L18433" class="LineNr">18433 </span> <span class="subxComment"># never gets here</span> +<span id="L18434" class="LineNr">18434 </span><span class="Constant">$check-no-tokens-left:end</span>: +<span id="L18435" class="LineNr">18435 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L18436" class="LineNr">18436 </span> 81 0/subop/add %esp 8/imm32 +<span id="L18437" class="LineNr">18437 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L18438" class="LineNr">18438 </span> 59/pop-to-ecx +<span id="L18439" class="LineNr">18439 </span> 58/pop-to-eax +<span id="L18440" class="LineNr">18440 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18441" class="LineNr">18441 </span> 89/<- %esp 5/r32/ebp +<span id="L18442" class="LineNr">18442 </span> 5d/pop-to-ebp +<span id="L18443" class="LineNr">18443 </span> c3/return +<span id="L18444" class="LineNr">18444 </span> +<span id="L18445" class="LineNr">18445 </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="L18446" class="LineNr">18446 </span> <span class="subxComment"># pseudocode:</span> +<span id="L18447" class="LineNr">18447 </span> <span class="subxComment"># var v: (handle var)</span> +<span id="L18448" class="LineNr">18448 </span> <span class="subxComment"># new-literal(name, v)</span> +<span id="L18449" class="LineNr">18449 </span> <span class="subxComment"># push(vars, {v, false})</span> +<span id="L18450" class="LineNr">18450 </span> <span class="subxComment"># parse-mu-block(in, vars, fn, out)</span> +<span id="L18451" class="LineNr">18451 </span> <span class="subxComment"># pop(vars)</span> +<span id="L18452" class="LineNr">18452 </span> <span class="subxComment"># out->tag = block</span> +<span id="L18453" class="LineNr">18453 </span> <span class="subxComment"># out->var = v</span> +<span id="L18454" class="LineNr">18454 </span> <span class="subxComment">#</span> +<span id="L18455" class="LineNr">18455 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18456" class="LineNr">18456 </span> 55/push-ebp +<span id="L18457" class="LineNr">18457 </span> 89/<- %ebp 4/r32/esp +<span id="L18458" class="LineNr">18458 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L18459" class="LineNr">18459 </span> 50/push-eax +<span id="L18460" class="LineNr">18460 </span> 51/push-ecx +<span id="L18461" class="LineNr">18461 </span> 57/push-edi +<span id="L18462" class="LineNr">18462 </span> <span class="subxComment"># var v/ecx: (handle var)</span> +<span id="L18463" class="LineNr">18463 </span> 68/push 0/imm32 +<span id="L18464" class="LineNr">18464 </span> 68/push 0/imm32 +<span id="L18465" class="LineNr">18465 </span> 89/<- %ecx 4/r32/esp +<span id="L18466" class="LineNr">18466 </span> <span class="subxComment">#</span> +<span id="L18467" class="LineNr">18467 </span> (<a href='mu.subx.html#L19877'>new-literal</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *(ebp+8) %ecx) +<span id="L18468" class="LineNr">18468 </span> <span class="subxComment"># push(vars, v)</span> +<span id="L18469" class="LineNr">18469 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *ecx) +<span id="L18470" class="LineNr">18470 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ecx+4)) +<span id="L18471" class="LineNr">18471 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) 0) <span class="subxComment"># false</span> +<span id="L18472" class="LineNr">18472 </span> <span class="subxComment">#</span> +<span id="L18473" class="LineNr">18473 </span> (<a href='mu.subx.html#L18115'>parse-mu-block</a> *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c) *(ebp+0x20)) +<span id="L18474" class="LineNr">18474 </span> <span class="subxComment"># pop v off vars</span> +<span id="L18475" class="LineNr">18475 </span> (<a href='203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L18476" class="LineNr">18476 </span> (<a href='203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L18477" class="LineNr">18477 </span> (<a href='203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L18478" class="LineNr">18478 </span> <span class="subxComment"># var out-addr/edi: (addr stmt) = lookup(*out)</span> +<span id="L18479" class="LineNr">18479 </span> 8b/-> *(ebp+0x18) 7/r32/edi +<span id="L18480" class="LineNr">18480 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L18481" class="LineNr">18481 </span> 89/<- %edi 0/r32/eax +<span id="L18482" class="LineNr">18482 </span> <span class="subxComment"># out-addr->tag = named-block</span> +<span id="L18483" class="LineNr">18483 </span> c7 0/subop/copy *edi 0/imm32/block <span class="subxComment"># Stmt-tag</span> +<span id="L18484" class="LineNr">18484 </span> <span class="subxComment"># out-addr->var = v</span> +<span id="L18485" class="LineNr">18485 </span> 8b/-> *ecx 0/r32/eax +<span id="L18486" class="LineNr">18486 </span> 89/<- *(edi+0xc) 0/r32/eax <span class="subxComment"># Block-var</span> +<span id="L18487" class="LineNr">18487 </span> 8b/-> *(ecx+4) 0/r32/eax +<span id="L18488" class="LineNr">18488 </span> 89/<- *(edi+0x10) 0/r32/eax <span class="subxComment"># Block-var</span> +<span id="L18489" class="LineNr">18489 </span><span class="Constant">$parse-mu-named-block:end</span>: +<span id="L18490" class="LineNr">18490 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L18491" class="LineNr">18491 </span> 81 0/subop/add %esp 8/imm32 +<span id="L18492" class="LineNr">18492 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L18493" class="LineNr">18493 </span> 5f/pop-to-edi +<span id="L18494" class="LineNr">18494 </span> 59/pop-to-ecx +<span id="L18495" class="LineNr">18495 </span> 58/pop-to-eax +<span id="L18496" class="LineNr">18496 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18497" class="LineNr">18497 </span> 89/<- %esp 5/r32/ebp +<span id="L18498" class="LineNr">18498 </span> 5d/pop-to-ebp +<span id="L18499" class="LineNr">18499 </span> c3/return +<span id="L18500" class="LineNr">18500 </span> +<span id="L18501" class="LineNr">18501 </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="L18502" class="LineNr">18502 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18503" class="LineNr">18503 </span> 55/push-ebp +<span id="L18504" class="LineNr">18504 </span> 89/<- %ebp 4/r32/esp +<span id="L18505" class="LineNr">18505 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L18506" class="LineNr">18506 </span> 50/push-eax +<span id="L18507" class="LineNr">18507 </span> 51/push-ecx +<span id="L18508" class="LineNr">18508 </span> 52/push-edx +<span id="L18509" class="LineNr">18509 </span> 56/push-esi +<span id="L18510" class="LineNr">18510 </span> 57/push-edi +<span id="L18511" class="LineNr">18511 </span> <span class="subxComment"># edi = out</span> +<span id="L18512" class="LineNr">18512 </span> 8b/-> *(ebp+0x10) 7/r32/edi +<span id="L18513" class="LineNr">18513 </span> <span class="subxComment"># var word-slice/ecx: slice</span> +<span id="L18514" class="LineNr">18514 </span> 68/push 0/imm32/end +<span id="L18515" class="LineNr">18515 </span> 68/push 0/imm32/start +<span id="L18516" class="LineNr">18516 </span> 89/<- %ecx 4/r32/esp +<span id="L18517" class="LineNr">18517 </span> <span class="subxComment"># var v/edx: (handle var)</span> +<span id="L18518" class="LineNr">18518 </span> 68/push 0/imm32 +<span id="L18519" class="LineNr">18519 </span> 68/push 0/imm32 +<span id="L18520" class="LineNr">18520 </span> 89/<- %edx 4/r32/esp +<span id="L18521" class="LineNr">18521 </span> <span class="subxComment"># v = parse-var-with-type(next-mu-token(line))</span> +<span id="L18522" class="LineNr">18522 </span> (<a href='mu.subx.html#L17305'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L18523" class="LineNr">18523 </span> { +<span id="L18524" class="LineNr">18524 </span> <span class="subxComment"># just for tests, support null fn</span> +<span id="L18525" class="LineNr">18525 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L18526" class="LineNr">18526 </span> 3d/compare-eax-and 0/imm32 +<span id="L18527" class="LineNr">18527 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L18528" class="LineNr">18528 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L18529" class="LineNr">18529 </span> } +<span id="L18530" class="LineNr">18530 </span> (<a href='mu.subx.html#L16950'>parse-var-with-type</a> %ecx *(ebp+8) %edx %eax *(ebp+0x18) *(ebp+0x1c)) +<span id="L18531" class="LineNr">18531 </span> <span class="subxComment"># var v-addr/esi: (addr var)</span> +<span id="L18532" class="LineNr">18532 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L18533" class="LineNr">18533 </span> 89/<- %esi 0/r32/eax +<span id="L18534" class="LineNr">18534 </span> <span class="subxComment"># v->block-depth = *Curr-block-depth</span> +<span id="L18535" class="LineNr">18535 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span> 0/r32/eax +<span id="L18536" class="LineNr">18536 </span> 89/<- *(esi+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> +<span id="L18537" class="LineNr">18537 </span> <span class="subxComment"># either v has no register and there's no more to this line</span> +<span id="L18538" class="LineNr">18538 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 +<span id="L18539" class="LineNr">18539 </span> { +<span id="L18540" class="LineNr">18540 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L18541" class="LineNr">18541 </span> <span class="subxComment"># if v-addr->type == byte, abort</span> +<span id="L18542" class="LineNr">18542 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L18543" class="LineNr">18543 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 8) <span class="subxComment"># byte => eax</span> +<span id="L18544" class="LineNr">18544 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18545" class="LineNr">18545 </span> 0f 85/jump-if-!= $parse-mu-var-def:error-byte-on-stack/disp32 +<span id="L18546" class="LineNr">18546 </span> <span class="subxComment"># ensure that there's nothing else on this line</span> +<span id="L18547" class="LineNr">18547 </span> (<a href='mu.subx.html#L17305'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L18548" class="LineNr">18548 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L18549" class="LineNr">18549 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18550" class="LineNr">18550 </span> 0f 84/jump-if-= $parse-mu-var-def:error2/disp32 +<span id="L18551" class="LineNr">18551 </span> <span class="subxComment">#</span> +<span id="L18552" class="LineNr">18552 </span> (<a href='mu.subx.html#L19981'>new-var-def</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *edx *(edx+4) %edi) +<span id="L18553" class="LineNr">18553 </span> e9/jump $parse-mu-var-def:update-vars/disp32 +<span id="L18554" class="LineNr">18554 </span> } +<span id="L18555" class="LineNr">18555 </span> <span class="subxComment"># or v has a register and there's more to this line</span> +<span id="L18556" class="LineNr">18556 </span> { +<span id="L18557" class="LineNr">18557 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L18558" class="LineNr">18558 </span> <span class="subxComment"># if v-addr->type == byte, check for unsupported registers</span> +<span id="L18559" class="LineNr">18559 </span> { +<span id="L18560" class="LineNr">18560 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L18561" class="LineNr">18561 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 8) <span class="subxComment"># byte => eax</span> +<span id="L18562" class="LineNr">18562 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18563" class="LineNr">18563 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L18564" class="LineNr">18564 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># => eax</span> +<span id="L18565" class="LineNr">18565 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"esi"</span>) <span class="subxComment"># => eax</span> +<span id="L18566" class="LineNr">18566 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18567" class="LineNr">18567 </span> 0f 85/jump-if-!= $parse-mu-var-def:error-byte-registers/disp32 +<span id="L18568" class="LineNr">18568 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># => eax</span> +<span id="L18569" class="LineNr">18569 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"edi"</span>) <span class="subxComment"># => eax</span> +<span id="L18570" class="LineNr">18570 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18571" class="LineNr">18571 </span> 0f 85/jump-if-!= $parse-mu-var-def:error-byte-registers/disp32 +<span id="L18572" class="LineNr">18572 </span> } +<span id="L18573" class="LineNr">18573 </span> <span class="subxComment"># TODO: vars of type 'byte' should only be initialized by clearing to 0</span> +<span id="L18574" class="LineNr">18574 </span> <span class="subxComment"># ensure that the next word is '<-'</span> +<span id="L18575" class="LineNr">18575 </span> (<a href='mu.subx.html#L17305'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L18576" class="LineNr">18576 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"<-"</span>) <span class="subxComment"># => eax</span> +<span id="L18577" class="LineNr">18577 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18578" class="LineNr">18578 </span> 0f 84/jump-if-= $parse-mu-var-def:error1/disp32 +<span id="L18579" class="LineNr">18579 </span> <span class="subxComment">#</span> +<span id="L18580" class="LineNr">18580 </span> (<a href='mu.subx.html#L20009'>new-reg-var-def</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *edx *(edx+4) %edi) +<span id="L18581" class="LineNr">18581 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L18582" class="LineNr">18582 </span> (<a href='mu.subx.html#L18882'>add-operation-and-inputs-to-stmt</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L18583" class="LineNr">18583 </span> } +<span id="L18584" class="LineNr">18584 </span><span class="Constant">$parse-mu-var-def:update-vars</span>: +<span id="L18585" class="LineNr">18585 </span> <span class="subxComment"># push 'v' at end of function</span> +<span id="L18586" class="LineNr">18586 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0xc) *edx) +<span id="L18587" class="LineNr">18587 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0xc) *(edx+4)) +<span id="L18588" class="LineNr">18588 </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="L18589" class="LineNr">18589 </span><span class="Constant">$parse-mu-var-def:end</span>: +<span id="L18590" class="LineNr">18590 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L18591" class="LineNr">18591 </span> 81 0/subop/add %esp 0x10/imm32 +<span id="L18592" class="LineNr">18592 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L18593" class="LineNr">18593 </span> 5f/pop-to-edi +<span id="L18594" class="LineNr">18594 </span> 5e/pop-to-esi +<span id="L18595" class="LineNr">18595 </span> 5a/pop-to-edx +<span id="L18596" class="LineNr">18596 </span> 59/pop-to-ecx +<span id="L18597" class="LineNr">18597 </span> 58/pop-to-eax +<span id="L18598" class="LineNr">18598 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18599" class="LineNr">18599 </span> 89/<- %esp 5/r32/ebp +<span id="L18600" class="LineNr">18600 </span> 5d/pop-to-ebp +<span id="L18601" class="LineNr">18601 </span> c3/return +<span id="L18602" class="LineNr">18602 </span> +<span id="L18603" class="LineNr">18603 </span><span class="Constant">$parse-mu-var-def:error1</span>: +<span id="L18604" class="LineNr">18604 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) +<span id="L18605" class="LineNr">18605 </span> <span class="subxComment"># error("register variable requires a valid instruction to initialize but got '" line "'\n")</span> +<span id="L18606" class="LineNr">18606 </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="L18607" class="LineNr">18607 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L18608" class="LineNr">18608 </span> (<a href='125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x18) *(ebp+8)) +<span id="L18609" class="LineNr">18609 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) +<span id="L18610" class="LineNr">18610 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L18611" class="LineNr">18611 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L18612" class="LineNr">18612 </span> <span class="subxComment"># never gets here</span> +<span id="L18613" class="LineNr">18613 </span> +<span id="L18614" class="LineNr">18614 </span><span class="Constant">$parse-mu-var-def:error2</span>: +<span id="L18615" class="LineNr">18615 </span> <span class="subxComment"># error("fn " fn ": var " var ": variables on the stack can't take an initializer\n")</span> +<span id="L18616" class="LineNr">18616 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L18617" class="LineNr">18617 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L18618" class="LineNr">18618 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L18619" class="LineNr">18619 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L18620" class="LineNr">18620 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": var "</span>) +<span id="L18621" class="LineNr">18621 </span> <span class="subxComment"># var v-addr/eax: (addr var) = lookup(v)</span> +<span id="L18622" class="LineNr">18622 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L18623" class="LineNr">18623 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L18624" class="LineNr">18624 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L18625" class="LineNr">18625 </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="L18626" class="LineNr">18626 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L18627" class="LineNr">18627 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L18628" class="LineNr">18628 </span> <span class="subxComment"># never gets here</span> +<span id="L18629" class="LineNr">18629 </span> +<span id="L18630" class="LineNr">18630 </span><span class="Constant">$parse-mu-var-def:error-byte-on-stack</span>: +<span id="L18631" class="LineNr">18631 </span> <span class="subxComment"># error("fn " fn ": var '" var "' of type 'byte' cannot be on the stack\n")</span> +<span id="L18632" class="LineNr">18632 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L18633" class="LineNr">18633 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L18634" class="LineNr">18634 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L18635" class="LineNr">18635 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L18636" class="LineNr">18636 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": var '"</span>) +<span id="L18637" class="LineNr">18637 </span> <span class="subxComment"># var v-addr/eax: (addr var) = lookup(v)</span> +<span id="L18638" class="LineNr">18638 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L18639" class="LineNr">18639 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L18640" class="LineNr">18640 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L18641" class="LineNr">18641 </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="L18642" class="LineNr">18642 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L18643" class="LineNr">18643 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L18644" class="LineNr">18644 </span> <span class="subxComment"># never gets here</span> +<span id="L18645" class="LineNr">18645 </span> +<span id="L18646" class="LineNr">18646 </span><span class="Constant">$parse-mu-var-def:error-byte-registers</span>: +<span id="L18647" class="LineNr">18647 </span> <span class="subxComment"># error("fn " fn ": var '" var "' of type 'byte' cannot be in esi or edi\n")</span> +<span id="L18648" class="LineNr">18648 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L18649" class="LineNr">18649 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L18650" class="LineNr">18650 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L18651" class="LineNr">18651 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L18652" class="LineNr">18652 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": var '"</span>) +<span id="L18653" class="LineNr">18653 </span> <span class="subxComment"># var v-addr/eax: (addr var) = lookup(v)</span> +<span id="L18654" class="LineNr">18654 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L18655" class="LineNr">18655 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L18656" class="LineNr">18656 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L18657" class="LineNr">18657 </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="L18658" class="LineNr">18658 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L18659" class="LineNr">18659 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L18660" class="LineNr">18660 </span> <span class="subxComment"># never gets here</span> +<span id="L18661" class="LineNr">18661 </span> +<span id="L18662" class="LineNr">18662 </span><span class="subxTest">test-parse-mu-var-def</span>: +<span id="L18663" class="LineNr">18663 </span> <span class="subxComment"># 'var n: int'</span> +<span id="L18664" class="LineNr">18664 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18665" class="LineNr">18665 </span> 55/push-ebp +<span id="L18666" class="LineNr">18666 </span> 89/<- %ebp 4/r32/esp +<span id="L18667" class="LineNr">18667 </span> <span class="subxComment"># setup</span> +<span id="L18668" class="LineNr">18668 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L18669" class="LineNr">18669 </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="L18670" class="LineNr">18670 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L18671" class="LineNr">18671 </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="L18672" class="LineNr">18672 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span> 1/imm32 +<span id="L18673" class="LineNr">18673 </span> <span class="subxComment"># var out/esi: (handle stmt)</span> +<span id="L18674" class="LineNr">18674 </span> 68/push 0/imm32 +<span id="L18675" class="LineNr">18675 </span> 68/push 0/imm32 +<span id="L18676" class="LineNr">18676 </span> 89/<- %esi 4/r32/esp +<span id="L18677" class="LineNr">18677 </span> <span class="subxComment"># var vars/ecx: (stack (addr var) 16)</span> +<span id="L18678" class="LineNr">18678 </span> 81 5/subop/subtract %esp 0xc0/imm32 +<span id="L18679" class="LineNr">18679 </span> 68/push 0xc0/imm32/size +<span id="L18680" class="LineNr">18680 </span> 68/push 0/imm32/top +<span id="L18681" class="LineNr">18681 </span> 89/<- %ecx 4/r32/esp +<span id="L18682" class="LineNr">18682 </span> (<a href='203stack.subx.html#L13'>clear-stack</a> %ecx) +<span id="L18683" class="LineNr">18683 </span> <span class="subxComment"># convert</span> +<span id="L18684" class="LineNr">18684 </span> (<a href='mu.subx.html#L18501'>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="L18685" class="LineNr">18685 </span> <span class="subxComment"># var out-addr/esi: (addr stmt)</span> +<span id="L18686" class="LineNr">18686 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L18687" class="LineNr">18687 </span> 89/<- %esi 0/r32/eax +<span id="L18688" class="LineNr">18688 </span> <span class="subxComment">#</span> +<span id="L18689" class="LineNr">18689 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *esi 2 <span class="Constant">"F - <a href='mu.subx.html#L18662'>test-parse-mu-var-def</a>/tag"</span>) <span class="subxComment"># Stmt-tag is var-def</span> +<span id="L18690" class="LineNr">18690 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(out->var)</span> +<span id="L18691" class="LineNr">18691 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Vardef-var Vardef-var => eax</span> +<span id="L18692" class="LineNr">18692 </span> 89/<- %ecx 0/r32/eax +<span id="L18693" class="LineNr">18693 </span> <span class="subxComment"># v->name</span> +<span id="L18694" class="LineNr">18694 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L18695" class="LineNr">18695 </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#L18662'>test-parse-mu-var-def</a>/var-name"</span>) +<span id="L18696" class="LineNr">18696 </span> <span class="subxComment"># v->register</span> +<span id="L18697" class="LineNr">18697 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(ecx+0x18) 0 <span class="Constant">"F - <a href='mu.subx.html#L18662'>test-parse-mu-var-def</a>/var-register"</span>) <span class="subxComment"># Var-register</span> +<span id="L18698" class="LineNr">18698 </span> <span class="subxComment"># v->block-depth</span> +<span id="L18699" class="LineNr">18699 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(ecx+0x10) 1 <span class="Constant">"F - <a href='mu.subx.html#L18662'>test-parse-mu-var-def</a>/output-block-depth"</span>) <span class="subxComment"># Var-block-depth</span> +<span id="L18700" class="LineNr">18700 </span> <span class="subxComment"># v->type == int</span> +<span id="L18701" class="LineNr">18701 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L18702" class="LineNr">18702 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L18662'>test-parse-mu-var-def</a>/var-type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L18703" class="LineNr">18703 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L18662'>test-parse-mu-var-def</a>/var-type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L18704" class="LineNr">18704 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L18662'>test-parse-mu-var-def</a>/var-type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L18705" class="LineNr">18705 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18706" class="LineNr">18706 </span> 89/<- %esp 5/r32/ebp +<span id="L18707" class="LineNr">18707 </span> 5d/pop-to-ebp +<span id="L18708" class="LineNr">18708 </span> c3/return +<span id="L18709" class="LineNr">18709 </span> +<span id="L18710" class="LineNr">18710 </span><span class="subxTest">test-parse-mu-reg-var-def</span>: +<span id="L18711" class="LineNr">18711 </span> <span class="subxComment"># 'var n/eax: int <- copy 0'</span> +<span id="L18712" class="LineNr">18712 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18713" class="LineNr">18713 </span> 55/push-ebp +<span id="L18714" class="LineNr">18714 </span> 89/<- %ebp 4/r32/esp +<span id="L18715" class="LineNr">18715 </span> <span class="subxComment"># setup</span> +<span id="L18716" class="LineNr">18716 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L18717" class="LineNr">18717 </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="L18718" class="LineNr">18718 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L18719" class="LineNr">18719 </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="L18720" class="LineNr">18720 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span> 1/imm32 +<span id="L18721" class="LineNr">18721 </span> <span class="subxComment"># var out/esi: (handle stmt)</span> +<span id="L18722" class="LineNr">18722 </span> 68/push 0/imm32 +<span id="L18723" class="LineNr">18723 </span> 68/push 0/imm32 +<span id="L18724" class="LineNr">18724 </span> 89/<- %esi 4/r32/esp +<span id="L18725" class="LineNr">18725 </span> <span class="subxComment"># var vars/ecx: (stack (addr var) 16)</span> +<span id="L18726" class="LineNr">18726 </span> 81 5/subop/subtract %esp 0xc0/imm32 +<span id="L18727" class="LineNr">18727 </span> 68/push 0xc0/imm32/size +<span id="L18728" class="LineNr">18728 </span> 68/push 0/imm32/top +<span id="L18729" class="LineNr">18729 </span> 89/<- %ecx 4/r32/esp +<span id="L18730" class="LineNr">18730 </span> (<a href='203stack.subx.html#L13'>clear-stack</a> %ecx) +<span id="L18731" class="LineNr">18731 </span> <span class="subxComment"># convert</span> +<span id="L18732" class="LineNr">18732 </span> (<a href='mu.subx.html#L18501'>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="L18733" class="LineNr">18733 </span> <span class="subxComment"># var out-addr/esi: (addr stmt)</span> +<span id="L18734" class="LineNr">18734 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L18735" class="LineNr">18735 </span> 89/<- %esi 0/r32/eax +<span id="L18736" class="LineNr">18736 </span> <span class="subxComment">#</span> +<span id="L18737" class="LineNr">18737 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *esi 3 <span class="Constant">"F - <a href='mu.subx.html#L18710'>test-parse-mu-reg-var-def</a>/tag"</span>) <span class="subxComment"># Stmt-tag is reg-var-def</span> +<span id="L18738" class="LineNr">18738 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(out->outputs->value)</span> +<span id="L18739" class="LineNr">18739 </span> <span class="subxS1Comment"># . eax: (addr stmt-var) = lookup(out->outputs)</span> +<span id="L18740" class="LineNr">18740 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Regvardef-outputs Regvardef-outputs => eax</span> +<span id="L18741" class="LineNr">18741 </span> <span class="subxS1Comment"># .</span> +<span id="L18742" class="LineNr">18742 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+8) 0 <span class="Constant">"F - <a href='mu.subx.html#L18710'>test-parse-mu-reg-var-def</a>/single-output"</span>) <span class="subxComment"># Stmt-var-next</span> +<span id="L18743" class="LineNr">18743 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(eax->value)</span> +<span id="L18744" class="LineNr">18744 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L18745" class="LineNr">18745 </span> <span class="subxS1Comment"># . ecx = eax</span> +<span id="L18746" class="LineNr">18746 </span> 89/<- %ecx 0/r32/eax +<span id="L18747" class="LineNr">18747 </span> <span class="subxComment"># v->name</span> +<span id="L18748" class="LineNr">18748 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L18749" class="LineNr">18749 </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#L18710'>test-parse-mu-reg-var-def</a>/output-name"</span>) <span class="subxComment"># Var-name</span> +<span id="L18750" class="LineNr">18750 </span> <span class="subxComment"># v->register</span> +<span id="L18751" class="LineNr">18751 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L18752" class="LineNr">18752 </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#L18710'>test-parse-mu-reg-var-def</a>/output-register"</span>) +<span id="L18753" class="LineNr">18753 </span> <span class="subxComment"># v->block-depth</span> +<span id="L18754" class="LineNr">18754 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(ecx+0x10) 1 <span class="Constant">"F - <a href='mu.subx.html#L18710'>test-parse-mu-reg-var-def</a>/output-block-depth"</span>) <span class="subxComment"># Var-block-depth</span> +<span id="L18755" class="LineNr">18755 </span> <span class="subxComment"># v->type == int</span> +<span id="L18756" class="LineNr">18756 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L18757" class="LineNr">18757 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L18710'>test-parse-mu-reg-var-def</a>/output-type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L18758" class="LineNr">18758 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L18710'>test-parse-mu-reg-var-def</a>/output-type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L18759" class="LineNr">18759 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L18710'>test-parse-mu-reg-var-def</a>/output-type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L18760" class="LineNr">18760 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18761" class="LineNr">18761 </span> 89/<- %esp 5/r32/ebp +<span id="L18762" class="LineNr">18762 </span> 5d/pop-to-ebp +<span id="L18763" class="LineNr">18763 </span> c3/return +<span id="L18764" class="LineNr">18764 </span> +<span id="L18765" class="LineNr">18765 </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="L18766" class="LineNr">18766 </span> <span class="subxComment"># pseudocode:</span> +<span id="L18767" class="LineNr">18767 </span> <span class="subxComment"># var name: slice</span> +<span id="L18768" class="LineNr">18768 </span> <span class="subxComment"># allocate(Heap, Stmt-size, out)</span> +<span id="L18769" class="LineNr">18769 </span> <span class="subxComment"># var out-addr: (addr stmt) = lookup(*out)</span> +<span id="L18770" class="LineNr">18770 </span> <span class="subxComment"># out-addr->tag = stmt</span> +<span id="L18771" class="LineNr">18771 </span> <span class="subxComment"># if stmt-has-outputs?(line)</span> +<span id="L18772" class="LineNr">18772 </span> <span class="subxComment"># while true</span> +<span id="L18773" class="LineNr">18773 </span> <span class="subxComment"># name = next-mu-token(line)</span> +<span id="L18774" class="LineNr">18774 </span> <span class="subxComment"># if (name == '<-') break</span> +<span id="L18775" class="LineNr">18775 </span> <span class="subxComment"># assert(identifier?(name))</span> +<span id="L18776" class="LineNr">18776 </span> <span class="subxComment"># var v: (handle var) = lookup-var(name, vars)</span> +<span id="L18777" class="LineNr">18777 </span> <span class="subxComment"># out-addr->outputs = append(v, out-addr->outputs)</span> +<span id="L18778" class="LineNr">18778 </span> <span class="subxComment"># add-operation-and-inputs-to-stmt(out-addr, line, vars)</span> +<span id="L18779" class="LineNr">18779 </span> <span class="subxComment">#</span> +<span id="L18780" class="LineNr">18780 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18781" class="LineNr">18781 </span> 55/push-ebp +<span id="L18782" class="LineNr">18782 </span> 89/<- %ebp 4/r32/esp +<span id="L18783" class="LineNr">18783 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L18784" class="LineNr">18784 </span> 50/push-eax +<span id="L18785" class="LineNr">18785 </span> 51/push-ecx +<span id="L18786" class="LineNr">18786 </span> 52/push-edx +<span id="L18787" class="LineNr">18787 </span> 53/push-ebx +<span id="L18788" class="LineNr">18788 </span> 57/push-edi +<span id="L18789" class="LineNr">18789 </span> <span class="subxComment"># var name/ecx: slice</span> +<span id="L18790" class="LineNr">18790 </span> 68/push 0/imm32/end +<span id="L18791" class="LineNr">18791 </span> 68/push 0/imm32/start +<span id="L18792" class="LineNr">18792 </span> 89/<- %ecx 4/r32/esp +<span id="L18793" class="LineNr">18793 </span> <span class="subxComment"># var is-deref?/edx: boolean = false</span> +<span id="L18794" class="LineNr">18794 </span> ba/copy-to-edx 0/imm32/false +<span id="L18795" class="LineNr">18795 </span> <span class="subxComment"># var v: (handle var)</span> +<span id="L18796" class="LineNr">18796 </span> 68/push 0/imm32 +<span id="L18797" class="LineNr">18797 </span> 68/push 0/imm32 +<span id="L18798" class="LineNr">18798 </span> 89/<- %ebx 4/r32/esp +<span id="L18799" class="LineNr">18799 </span> <span class="subxComment">#</span> +<span id="L18800" class="LineNr">18800 </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="L18801" class="LineNr">18801 </span> <span class="subxComment"># var out-addr/edi: (addr stmt) = lookup(*out)</span> +<span id="L18802" class="LineNr">18802 </span> 8b/-> *(ebp+0x14) 7/r32/edi +<span id="L18803" class="LineNr">18803 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L18804" class="LineNr">18804 </span> 89/<- %edi 0/r32/eax +<span id="L18805" class="LineNr">18805 </span> <span class="subxComment"># out-addr->tag = 1/stmt</span> +<span id="L18806" class="LineNr">18806 </span> c7 0/subop/copy *edi 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> +<span id="L18807" class="LineNr">18807 </span> { +<span id="L18808" class="LineNr">18808 </span> (<a href='mu.subx.html#L19046'>stmt-has-outputs?</a> *(ebp+8)) +<span id="L18809" class="LineNr">18809 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18810" class="LineNr">18810 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L18811" class="LineNr">18811 </span> { +<span id="L18812" class="LineNr">18812 </span><span class="Constant">$parse-mu-stmt:read-outputs</span>: +<span id="L18813" class="LineNr">18813 </span> <span class="subxComment"># name = next-mu-token(line)</span> +<span id="L18814" class="LineNr">18814 </span> (<a href='mu.subx.html#L17305'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L18815" class="LineNr">18815 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> +<span id="L18816" class="LineNr">18816 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L18817" class="LineNr">18817 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18818" class="LineNr">18818 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L18819" class="LineNr">18819 </span> <span class="subxComment"># if (name == "<-") break</span> +<span id="L18820" class="LineNr">18820 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"<-"</span>) <span class="subxComment"># => eax</span> +<span id="L18821" class="LineNr">18821 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18822" class="LineNr">18822 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L18823" class="LineNr">18823 </span> <span class="subxComment"># if slice-starts-with?(name, "*") abort</span> +<span id="L18824" class="LineNr">18824 </span> 8b/-> *ecx 0/r32/eax <span class="subxComment"># Slice-start</span> +<span id="L18825" class="LineNr">18825 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L18826" class="LineNr">18826 </span> 25/and-eax-with 0xff/imm32 +<span id="L18827" class="LineNr">18827 </span> 3d/compare-eax-and 0x2a/imm32/asterisk +<span id="L18828" class="LineNr">18828 </span> 0f 84/jump-if-= $parse-mu-stmt:error-output-dereferenced/disp32 +<span id="L18829" class="LineNr">18829 </span> <span class="subxComment"># assert(identifier?(name))</span> +<span id="L18830" class="LineNr">18830 </span> (<a href='mu.subx.html#L17791'>identifier?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L18831" class="LineNr">18831 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18832" class="LineNr">18832 </span> 0f 84/jump-if-= $parse-mu-stmt:abort/disp32 +<span id="L18833" class="LineNr">18833 </span> <span class="subxComment">#</span> +<span id="L18834" class="LineNr">18834 </span> (<a href='mu.subx.html#L19157'>lookup-var</a> %ecx *(ebp+0xc) %ebx *(ebp+0x10) *(ebp+0x18) *(ebp+0x1c)) +<span id="L18835" class="LineNr">18835 </span> 8d/copy-address *(edi+0x14) 0/r32/eax <span class="subxComment"># Stmt1-outputs</span> +<span id="L18836" class="LineNr">18836 </span> (<a href='mu.subx.html#L20092'>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="L18837" class="LineNr">18837 </span> <span class="subxComment">#</span> +<span id="L18838" class="LineNr">18838 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L18839" class="LineNr">18839 </span> } +<span id="L18840" class="LineNr">18840 </span> } +<span id="L18841" class="LineNr">18841 </span> (<a href='mu.subx.html#L18882'>add-operation-and-inputs-to-stmt</a> %edi *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x18) *(ebp+0x1c)) +<span id="L18842" class="LineNr">18842 </span><span class="Constant">$parse-mu-stmt:end</span>: +<span id="L18843" class="LineNr">18843 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L18844" class="LineNr">18844 </span> 81 0/subop/add %esp 0x10/imm32 +<span id="L18845" class="LineNr">18845 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L18846" class="LineNr">18846 </span> 5f/pop-to-edi +<span id="L18847" class="LineNr">18847 </span> 5b/pop-to-ebx +<span id="L18848" class="LineNr">18848 </span> 5a/pop-to-edx +<span id="L18849" class="LineNr">18849 </span> 59/pop-to-ecx +<span id="L18850" class="LineNr">18850 </span> 58/pop-to-eax +<span id="L18851" class="LineNr">18851 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18852" class="LineNr">18852 </span> 89/<- %esp 5/r32/ebp +<span id="L18853" class="LineNr">18853 </span> 5d/pop-to-ebp +<span id="L18854" class="LineNr">18854 </span> c3/return +<span id="L18855" class="LineNr">18855 </span> +<span id="L18856" class="LineNr">18856 </span><span class="Constant">$parse-mu-stmt:abort</span>: +<span id="L18857" class="LineNr">18857 </span> <span class="subxComment"># error("invalid identifier '" name "'\n")</span> +<span id="L18858" class="LineNr">18858 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L18859" class="LineNr">18859 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L18860" class="LineNr">18860 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L18861" class="LineNr">18861 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L18862" class="LineNr">18862 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": invalid identifier '"</span>) +<span id="L18863" class="LineNr">18863 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) %ecx) +<span id="L18864" class="LineNr">18864 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) +<span id="L18865" class="LineNr">18865 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L18866" class="LineNr">18866 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L18867" class="LineNr">18867 </span> <span class="subxComment"># never gets here</span> +<span id="L18868" class="LineNr">18868 </span> +<span id="L18869" class="LineNr">18869 </span><span class="Constant">$parse-mu-stmt:error-output-dereferenced</span>: +<span id="L18870" class="LineNr">18870 </span> <span class="subxComment"># error("invalid identifier '" name "'\n")</span> +<span id="L18871" class="LineNr">18871 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L18872" class="LineNr">18872 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L18873" class="LineNr">18873 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L18874" class="LineNr">18874 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L18875" class="LineNr">18875 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": output '"</span>) +<span id="L18876" class="LineNr">18876 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) %ecx) +<span id="L18877" class="LineNr">18877 </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="L18878" class="LineNr">18878 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L18879" class="LineNr">18879 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L18880" class="LineNr">18880 </span> <span class="subxComment"># never gets here</span> +<span id="L18881" class="LineNr">18881 </span> +<span id="L18882" class="LineNr">18882 </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="L18883" class="LineNr">18883 </span> <span class="subxComment"># pseudocode:</span> +<span id="L18884" class="LineNr">18884 </span> <span class="subxComment"># stmt->name = slice-to-string(next-mu-token(line))</span> +<span id="L18885" class="LineNr">18885 </span> <span class="subxComment"># while true</span> +<span id="L18886" class="LineNr">18886 </span> <span class="subxComment"># name = next-mu-token(line)</span> +<span id="L18887" class="LineNr">18887 </span> <span class="subxComment"># v = lookup-var-or-literal(name)</span> +<span id="L18888" class="LineNr">18888 </span> <span class="subxComment"># stmt->inouts = append(v, stmt->inouts)</span> +<span id="L18889" class="LineNr">18889 </span> <span class="subxComment">#</span> +<span id="L18890" class="LineNr">18890 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18891" class="LineNr">18891 </span> 55/push-ebp +<span id="L18892" class="LineNr">18892 </span> 89/<- %ebp 4/r32/esp +<span id="L18893" class="LineNr">18893 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L18894" class="LineNr">18894 </span> 50/push-eax +<span id="L18895" class="LineNr">18895 </span> 51/push-ecx +<span id="L18896" class="LineNr">18896 </span> 52/push-edx +<span id="L18897" class="LineNr">18897 </span> 53/push-ebx +<span id="L18898" class="LineNr">18898 </span> 56/push-esi +<span id="L18899" class="LineNr">18899 </span> 57/push-edi +<span id="L18900" class="LineNr">18900 </span> <span class="subxComment"># edi = stmt</span> +<span id="L18901" class="LineNr">18901 </span> 8b/-> *(ebp+8) 7/r32/edi +<span id="L18902" class="LineNr">18902 </span> <span class="subxComment"># var name/ecx: slice</span> +<span id="L18903" class="LineNr">18903 </span> 68/push 0/imm32/end +<span id="L18904" class="LineNr">18904 </span> 68/push 0/imm32/start +<span id="L18905" class="LineNr">18905 </span> 89/<- %ecx 4/r32/esp +<span id="L18906" class="LineNr">18906 </span> <span class="subxComment"># var is-deref?/edx: boolean = false</span> +<span id="L18907" class="LineNr">18907 </span> ba/copy-to-edx 0/imm32/false +<span id="L18908" class="LineNr">18908 </span> <span class="subxComment"># var v/esi: (handle var)</span> +<span id="L18909" class="LineNr">18909 </span> 68/push 0/imm32 +<span id="L18910" class="LineNr">18910 </span> 68/push 0/imm32 +<span id="L18911" class="LineNr">18911 </span> 89/<- %esi 4/r32/esp +<span id="L18912" class="LineNr">18912 </span><span class="Constant">$add-operation-and-inputs-to-stmt:read-operation</span>: +<span id="L18913" class="LineNr">18913 </span> (<a href='mu.subx.html#L17305'>next-mu-token</a> *(ebp+0xc) %ecx) +<span id="L18914" class="LineNr">18914 </span> 8d/copy-address *(edi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation or Regvardef-operationStmt1-operation or Regvardef-operation</span> +<span id="L18915" class="LineNr">18915 </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="L18916" class="LineNr">18916 </span> <span class="subxComment"># var is-get?/ebx: boolean = (name == "get")</span> +<span id="L18917" class="LineNr">18917 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"get"</span>) <span class="subxComment"># => eax</span> +<span id="L18918" class="LineNr">18918 </span> 89/<- %ebx 0/r32/eax +<span id="L18919" class="LineNr">18919 </span> { +<span id="L18920" class="LineNr">18920 </span><span class="Constant">$add-operation-and-inputs-to-stmt:read-inouts</span>: +<span id="L18921" class="LineNr">18921 </span> <span class="subxComment"># name = next-mu-token(line)</span> +<span id="L18922" class="LineNr">18922 </span> (<a href='mu.subx.html#L17305'>next-mu-token</a> *(ebp+0xc) %ecx) +<span id="L18923" class="LineNr">18923 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> +<span id="L18924" class="LineNr">18924 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L18925" class="LineNr">18925 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18926" class="LineNr">18926 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L18927" class="LineNr">18927 </span> <span class="subxComment"># if (name == "<-") abort</span> +<span id="L18928" class="LineNr">18928 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"<-"</span>) +<span id="L18929" class="LineNr">18929 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18930" class="LineNr">18930 </span> 0f 85/jump-if-!= $add-operation-and-inputs-to-stmt:abort/disp32 +<span id="L18931" class="LineNr">18931 </span> <span class="subxComment"># if (get? && second operand) lookup or create offset</span> +<span id="L18932" class="LineNr">18932 </span> { +<span id="L18933" class="LineNr">18933 </span> 81 7/subop/compare %ebx 0/imm32/false +<span id="L18934" class="LineNr">18934 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L18935" class="LineNr">18935 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+0xc) *(edi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L18936" class="LineNr">18936 </span> 3d/compare-eax-and 0/imm32 +<span id="L18937" class="LineNr">18937 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L18938" class="LineNr">18938 </span> (<a href='mu.subx.html#L20177'>lookup-or-create-constant</a> %eax %ecx %esi) +<span id="L18939" class="LineNr">18939 </span><span class="CommentedCode">#? (lookup *esi *(esi+4))</span> +<span id="L18940" class="LineNr">18940 </span><span class="CommentedCode">#? (write-buffered Stderr "creating new output var ")</span> +<span id="L18941" class="LineNr">18941 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L18942" class="LineNr">18942 </span><span class="CommentedCode">#? (write-buffered Stderr " for field called ")</span> +<span id="L18943" class="LineNr">18943 </span><span class="CommentedCode">#? (write-slice-buffered Stderr %ecx)</span> +<span id="L18944" class="LineNr">18944 </span><span class="CommentedCode">#? (write-buffered Stderr "; var name ")</span> +<span id="L18945" class="LineNr">18945 </span><span class="CommentedCode">#? (lookup *eax *(eax+4)) # Var-name</span> +<span id="L18946" class="LineNr">18946 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L18947" class="LineNr">18947 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L18948" class="LineNr">18948 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L18949" class="LineNr">18949 </span> e9/jump $add-operation-and-inputs-to-stmt:save-var/disp32 +<span id="L18950" class="LineNr">18950 </span> } +<span id="L18951" class="LineNr">18951 </span> <span class="subxComment"># is-deref? = false</span> +<span id="L18952" class="LineNr">18952 </span> ba/copy-to-edx 0/imm32/false +<span id="L18953" class="LineNr">18953 </span> <span class="subxComment"># if (slice-starts-with?(name, '*')) ++name->start and set is-deref?</span> +<span id="L18954" class="LineNr">18954 </span> 8b/-> *ecx 0/r32/eax <span class="subxComment"># Slice-start</span> +<span id="L18955" class="LineNr">18955 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L18956" class="LineNr">18956 </span> 25/and-eax-with 0xff/imm32 +<span id="L18957" class="LineNr">18957 </span> 3d/compare-eax-and 0x2a/imm32/asterisk +<span id="L18958" class="LineNr">18958 </span> { +<span id="L18959" class="LineNr">18959 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L18960" class="LineNr">18960 </span><span class="Constant">$add-operation-and-inputs-to-stmt:inout-is-deref</span>: +<span id="L18961" class="LineNr">18961 </span> ff 0/subop/increment *ecx +<span id="L18962" class="LineNr">18962 </span> ba/copy-to-edx 1/imm32/true +<span id="L18963" class="LineNr">18963 </span> } +<span id="L18964" class="LineNr">18964 </span> (<a href='mu.subx.html#L19094'>lookup-var-or-literal</a> %ecx *(ebp+0x10) %esi *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L18965" class="LineNr">18965 </span> <span class="subxComment"># if (deref?) some additional checks</span> +<span id="L18966" class="LineNr">18966 </span> 81 7/subop/compare %edx 0/imm32/false +<span id="L18967" class="LineNr">18967 </span> { +<span id="L18968" class="LineNr">18968 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L18969" class="LineNr">18969 </span> <span class="subxComment"># if var is not in register, abort</span> +<span id="L18970" class="LineNr">18970 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L18971" class="LineNr">18971 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L18972" class="LineNr">18972 </span> 0f 84/jump-if-= $add-operation-and-inputs-to-stmt:error-deref-on-stack/disp32 +<span id="L18973" class="LineNr">18973 </span> <span class="subxComment"># if var is not an address, abort</span> +<span id="L18974" class="LineNr">18974 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L18975" class="LineNr">18975 </span> (<a href='mu.subx.html#L36245'>mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L18976" class="LineNr">18976 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18977" class="LineNr">18977 </span> 0f 84/jump-if-= $add-operation-and-inputs-to-stmt:error-deref-non-addr/disp32 +<span id="L18978" class="LineNr">18978 </span> } +<span id="L18979" class="LineNr">18979 </span><span class="Constant">$add-operation-and-inputs-to-stmt:save-var</span>: +<span id="L18980" class="LineNr">18980 </span> 8d/copy-address *(edi+0xc) 0/r32/eax +<span id="L18981" class="LineNr">18981 </span> (<a href='mu.subx.html#L20092'>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="L18982" class="LineNr">18982 </span> <span class="subxComment">#</span> +<span id="L18983" class="LineNr">18983 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L18984" class="LineNr">18984 </span> } +<span id="L18985" class="LineNr">18985 </span><span class="Constant">$add-operation-and-inputs-to-stmt:end</span>: +<span id="L18986" class="LineNr">18986 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L18987" class="LineNr">18987 </span> 81 0/subop/add %esp 0x10/imm32 +<span id="L18988" class="LineNr">18988 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L18989" class="LineNr">18989 </span> 5f/pop-to-edi +<span id="L18990" class="LineNr">18990 </span> 5e/pop-to-esi +<span id="L18991" class="LineNr">18991 </span> 5b/pop-to-ebx +<span id="L18992" class="LineNr">18992 </span> 5a/pop-to-edx +<span id="L18993" class="LineNr">18993 </span> 59/pop-to-ecx +<span id="L18994" class="LineNr">18994 </span> 58/pop-to-eax +<span id="L18995" class="LineNr">18995 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18996" class="LineNr">18996 </span> 89/<- %esp 5/r32/ebp +<span id="L18997" class="LineNr">18997 </span> 5d/pop-to-ebp +<span id="L18998" class="LineNr">18998 </span> c3/return +<span id="L18999" class="LineNr">18999 </span> +<span id="L19000" class="LineNr">19000 </span><span class="Constant">$add-operation-and-inputs-to-stmt:abort</span>: +<span id="L19001" class="LineNr">19001 </span> <span class="subxComment"># error("fn ___: invalid identifier in '" line "'\n")</span> +<span id="L19002" class="LineNr">19002 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L19003" class="LineNr">19003 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L19004" class="LineNr">19004 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L19005" class="LineNr">19005 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L19006" class="LineNr">19006 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+0xc)) +<span id="L19007" class="LineNr">19007 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": invalid identifier in '"</span>) +<span id="L19008" class="LineNr">19008 </span> (<a href='125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x18) *(ebp+0xc)) +<span id="L19009" class="LineNr">19009 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) +<span id="L19010" class="LineNr">19010 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L19011" class="LineNr">19011 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L19012" class="LineNr">19012 </span> <span class="subxComment"># never gets here</span> +<span id="L19013" class="LineNr">19013 </span> +<span id="L19014" class="LineNr">19014 </span><span class="Constant">$add-operation-and-inputs-to-stmt:error-deref-on-stack</span>: +<span id="L19015" class="LineNr">19015 </span> <span class="subxComment"># error("fn ___: cannot dereference var ___ on stack\n")</span> +<span id="L19016" class="LineNr">19016 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L19017" class="LineNr">19017 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L19018" class="LineNr">19018 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L19019" class="LineNr">19019 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L19020" class="LineNr">19020 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+0xc)) +<span id="L19021" class="LineNr">19021 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": cannot dereference var '"</span>) +<span id="L19022" class="LineNr">19022 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L19023" class="LineNr">19023 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L19024" class="LineNr">19024 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L19025" class="LineNr">19025 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"' on stack\n"</span>) +<span id="L19026" class="LineNr">19026 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L19027" class="LineNr">19027 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L19028" class="LineNr">19028 </span> <span class="subxComment"># never gets here</span> +<span id="L19029" class="LineNr">19029 </span> +<span id="L19030" class="LineNr">19030 </span><span class="Constant">$add-operation-and-inputs-to-stmt:error-deref-non-addr</span>: +<span id="L19031" class="LineNr">19031 </span> <span class="subxComment"># error("fn ___: cannot dereference non-addr var ___\n")</span> +<span id="L19032" class="LineNr">19032 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L19033" class="LineNr">19033 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L19034" class="LineNr">19034 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L19035" class="LineNr">19035 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L19036" class="LineNr">19036 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+0xc)) +<span id="L19037" class="LineNr">19037 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": cannot dereference non-addr var '"</span>) +<span id="L19038" class="LineNr">19038 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L19039" class="LineNr">19039 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L19040" class="LineNr">19040 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L19041" class="LineNr">19041 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) +<span id="L19042" class="LineNr">19042 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L19043" class="LineNr">19043 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L19044" class="LineNr">19044 </span> <span class="subxComment"># never gets here</span> +<span id="L19045" class="LineNr">19045 </span> +<span id="L19046" class="LineNr">19046 </span><span class="subxFunction">stmt-has-outputs?</span>: <span class="subxComment"># line: (addr stream byte) -> result/eax: boolean</span> +<span id="L19047" class="LineNr">19047 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19048" class="LineNr">19048 </span> 55/push-ebp +<span id="L19049" class="LineNr">19049 </span> 89/<- %ebp 4/r32/esp +<span id="L19050" class="LineNr">19050 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19051" class="LineNr">19051 </span> 51/push-ecx +<span id="L19052" class="LineNr">19052 </span> <span class="subxComment"># var word-slice/ecx: slice</span> +<span id="L19053" class="LineNr">19053 </span> 68/push 0/imm32/end +<span id="L19054" class="LineNr">19054 </span> 68/push 0/imm32/start +<span id="L19055" class="LineNr">19055 </span> 89/<- %ecx 4/r32/esp +<span id="L19056" class="LineNr">19056 </span> <span class="subxComment"># result = false</span> +<span id="L19057" class="LineNr">19057 </span> b8/copy-to-eax 0/imm32/false +<span id="L19058" class="LineNr">19058 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) +<span id="L19059" class="LineNr">19059 </span> { +<span id="L19060" class="LineNr">19060 </span> (<a href='mu.subx.html#L17305'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L19061" class="LineNr">19061 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> +<span id="L19062" class="LineNr">19062 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) +<span id="L19063" class="LineNr">19063 </span> 3d/compare-eax-and 0/imm32/false +<span id="L19064" class="LineNr">19064 </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="L19065" class="LineNr">19065 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L19066" class="LineNr">19066 </span> <span class="subxComment"># if slice-starts-with?(word-slice, '#') break</span> +<span id="L19067" class="LineNr">19067 </span> <span class="subxS1Comment"># . eax = *word-slice->start</span> +<span id="L19068" class="LineNr">19068 </span> 8b/-> *ecx 0/r32/eax +<span id="L19069" class="LineNr">19069 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L19070" class="LineNr">19070 </span> 25/and-eax-with 0xff/imm32 +<span id="L19071" class="LineNr">19071 </span> <span class="subxS1Comment"># . if (eax == '#') break</span> +<span id="L19072" class="LineNr">19072 </span> 3d/compare-eax-and 0x23/imm32/hash +<span id="L19073" class="LineNr">19073 </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="L19074" class="LineNr">19074 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L19075" class="LineNr">19075 </span> <span class="subxComment"># if slice-equal?(word-slice, '<-') return true</span> +<span id="L19076" class="LineNr">19076 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"<-"</span>) +<span id="L19077" class="LineNr">19077 </span> 3d/compare-eax-and 0/imm32/false +<span id="L19078" class="LineNr">19078 </span> 74/jump-if-= <span class="Constant">loop</span>/disp8 +<span id="L19079" class="LineNr">19079 </span> b8/copy-to-eax 1/imm32/true +<span id="L19080" class="LineNr">19080 </span> } +<span id="L19081" class="LineNr">19081 </span><span class="Constant">$stmt-has-outputs:end</span>: +<span id="L19082" class="LineNr">19082 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) +<span id="L19083" class="LineNr">19083 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L19084" class="LineNr">19084 </span> 81 0/subop/add %esp 8/imm32 +<span id="L19085" class="LineNr">19085 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19086" class="LineNr">19086 </span> 59/pop-to-ecx +<span id="L19087" class="LineNr">19087 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19088" class="LineNr">19088 </span> 89/<- %esp 5/r32/ebp +<span id="L19089" class="LineNr">19089 </span> 5d/pop-to-ebp +<span id="L19090" class="LineNr">19090 </span> c3/return +<span id="L19091" class="LineNr">19091 </span> +<span id="L19092" class="LineNr">19092 </span><span class="subxComment"># if 'name' starts with a digit, create a new literal var for it</span> +<span id="L19093" class="LineNr">19093 </span><span class="subxComment"># otherwise return first 'name' from the top (back) of 'vars' and abort if not found</span> +<span id="L19094" class="LineNr">19094 </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="L19095" class="LineNr">19095 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19096" class="LineNr">19096 </span> 55/push-ebp +<span id="L19097" class="LineNr">19097 </span> 89/<- %ebp 4/r32/esp +<span id="L19098" class="LineNr">19098 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19099" class="LineNr">19099 </span> 50/push-eax +<span id="L19100" class="LineNr">19100 </span> 51/push-ecx +<span id="L19101" class="LineNr">19101 </span> 56/push-esi +<span id="L19102" class="LineNr">19102 </span> <span class="subxComment"># esi = name</span> +<span id="L19103" class="LineNr">19103 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L19104" class="LineNr">19104 </span> <span class="subxComment"># if slice-empty?(name) abort</span> +<span id="L19105" class="LineNr">19105 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %esi) <span class="subxComment"># => eax</span> +<span id="L19106" class="LineNr">19106 </span> 3d/compare-eax-and 0/imm32/false +<span id="L19107" class="LineNr">19107 </span> 0f 85/jump-if-!= $lookup-var-or-literal:abort/disp32 +<span id="L19108" class="LineNr">19108 </span> <span class="subxComment"># var c/ecx: byte = *name->start</span> +<span id="L19109" class="LineNr">19109 </span> 8b/-> *esi 1/r32/ecx +<span id="L19110" class="LineNr">19110 </span> 8a/copy-byte *ecx 1/r32/CL +<span id="L19111" class="LineNr">19111 </span> 81 4/subop/and %ecx 0xff/imm32 +<span id="L19112" class="LineNr">19112 </span> <span class="subxComment"># if (decimal-digit?(c) || c == '-') return new var(name)</span> +<span id="L19113" class="LineNr">19113 </span> { +<span id="L19114" class="LineNr">19114 </span> 81 7/subop/compare %ecx 0x2d/imm32/dash +<span id="L19115" class="LineNr">19115 </span> 74/jump-if-= $lookup-var-or-literal:literal/disp8 +<span id="L19116" class="LineNr">19116 </span> (<a href='126write-int-decimal.subx.html#L306'>decimal-digit?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L19117" class="LineNr">19117 </span> 3d/compare-eax-and 0/imm32/false +<span id="L19118" class="LineNr">19118 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L19119" class="LineNr">19119 </span><span class="Constant">$lookup-var-or-literal:literal</span>: +<span id="L19120" class="LineNr">19120 </span> (<a href='mu.subx.html#L19764'>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="L19121" class="LineNr">19121 </span> eb/jump $lookup-var-or-literal:end/disp8 +<span id="L19122" class="LineNr">19122 </span> } +<span id="L19123" class="LineNr">19123 </span> <span class="subxComment"># else if (c == '"') return new var(name)</span> +<span id="L19124" class="LineNr">19124 </span> { +<span id="L19125" class="LineNr">19125 </span> 81 7/subop/compare %ecx 0x22/imm32/dquote +<span id="L19126" class="LineNr">19126 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L19127" class="LineNr">19127 </span><span class="Constant">$lookup-var-or-literal:literal-string</span>: +<span id="L19128" class="LineNr">19128 </span> (<a href='mu.subx.html#L19916'>new-literal-string</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %esi *(ebp+0x10)) +<span id="L19129" class="LineNr">19129 </span> eb/jump $lookup-var-or-literal:end/disp8 +<span id="L19130" class="LineNr">19130 </span> } +<span id="L19131" class="LineNr">19131 </span> <span class="subxComment"># otherwise return lookup-var(name, vars)</span> +<span id="L19132" class="LineNr">19132 </span> { +<span id="L19133" class="LineNr">19133 </span><span class="Constant">$lookup-var-or-literal:var</span>: +<span id="L19134" class="LineNr">19134 </span> (<a href='mu.subx.html#L19157'>lookup-var</a> %esi *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L19135" class="LineNr">19135 </span> } +<span id="L19136" class="LineNr">19136 </span><span class="Constant">$lookup-var-or-literal:end</span>: +<span id="L19137" class="LineNr">19137 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19138" class="LineNr">19138 </span> 5e/pop-to-esi +<span id="L19139" class="LineNr">19139 </span> 59/pop-to-ecx +<span id="L19140" class="LineNr">19140 </span> 58/pop-to-eax +<span id="L19141" class="LineNr">19141 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19142" class="LineNr">19142 </span> 89/<- %esp 5/r32/ebp +<span id="L19143" class="LineNr">19143 </span> 5d/pop-to-ebp +<span id="L19144" class="LineNr">19144 </span> c3/return +<span id="L19145" class="LineNr">19145 </span> +<span id="L19146" class="LineNr">19146 </span><span class="Constant">$lookup-var-or-literal:abort</span>: +<span id="L19147" class="LineNr">19147 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L19148" class="LineNr">19148 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L19149" class="LineNr">19149 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L19150" class="LineNr">19150 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L19151" class="LineNr">19151 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": empty variable!"</span>) +<span id="L19152" class="LineNr">19152 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L19153" class="LineNr">19153 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L19154" class="LineNr">19154 </span> <span class="subxComment"># never gets here</span> +<span id="L19155" class="LineNr">19155 </span> +<span id="L19156" class="LineNr">19156 </span><span class="subxComment"># return first 'name' from the top (back) of 'vars' and abort if not found</span> +<span id="L19157" class="LineNr">19157 </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="L19158" class="LineNr">19158 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19159" class="LineNr">19159 </span> 55/push-ebp +<span id="L19160" class="LineNr">19160 </span> 89/<- %ebp 4/r32/esp +<span id="L19161" class="LineNr">19161 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19162" class="LineNr">19162 </span> 50/push-eax +<span id="L19163" class="LineNr">19163 </span> <span class="subxComment">#</span> +<span id="L19164" class="LineNr">19164 </span> (<a href='mu.subx.html#L19191'>lookup-var-helper</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L19165" class="LineNr">19165 </span> <span class="subxComment"># if (*out == 0) abort</span> +<span id="L19166" class="LineNr">19166 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L19167" class="LineNr">19167 </span> 81 7/subop/compare *eax 0/imm32 +<span id="L19168" class="LineNr">19168 </span> 74/jump-if-= $lookup-var:abort/disp8 +<span id="L19169" class="LineNr">19169 </span><span class="Constant">$lookup-var:end</span>: +<span id="L19170" class="LineNr">19170 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19171" class="LineNr">19171 </span> 58/pop-to-eax +<span id="L19172" class="LineNr">19172 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19173" class="LineNr">19173 </span> 89/<- %esp 5/r32/ebp +<span id="L19174" class="LineNr">19174 </span> 5d/pop-to-ebp +<span id="L19175" class="LineNr">19175 </span> c3/return +<span id="L19176" class="LineNr">19176 </span> +<span id="L19177" class="LineNr">19177 </span><span class="Constant">$lookup-var:abort</span>: +<span id="L19178" class="LineNr">19178 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L19179" class="LineNr">19179 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L19180" class="LineNr">19180 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L19181" class="LineNr">19181 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L19182" class="LineNr">19182 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": unknown variable '"</span>) +<span id="L19183" class="LineNr">19183 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) *(ebp+8)) +<span id="L19184" class="LineNr">19184 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) +<span id="L19185" class="LineNr">19185 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L19186" class="LineNr">19186 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L19187" class="LineNr">19187 </span> <span class="subxComment"># never gets here</span> +<span id="L19188" class="LineNr">19188 </span> +<span id="L19189" class="LineNr">19189 </span><span class="subxComment"># return first 'name' from the top (back) of 'vars', and 0/null if not found</span> +<span id="L19190" class="LineNr">19190 </span><span class="subxComment"># ensure that 'name' if in a register is the topmost variable in that register</span> +<span id="L19191" class="LineNr">19191 </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="L19192" class="LineNr">19192 </span> <span class="subxComment"># pseudocode:</span> +<span id="L19193" class="LineNr">19193 </span> <span class="subxComment"># var curr: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L19194" class="LineNr">19194 </span> <span class="subxComment"># var min = vars->data</span> +<span id="L19195" class="LineNr">19195 </span> <span class="subxComment"># while curr >= min</span> +<span id="L19196" class="LineNr">19196 </span> <span class="subxComment"># var v: (handle var) = *curr</span> +<span id="L19197" class="LineNr">19197 </span> <span class="subxComment"># if v->name == name</span> +<span id="L19198" class="LineNr">19198 </span> <span class="subxComment"># return</span> +<span id="L19199" class="LineNr">19199 </span> <span class="subxComment"># curr -= 12</span> +<span id="L19200" class="LineNr">19200 </span> <span class="subxComment">#</span> +<span id="L19201" class="LineNr">19201 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19202" class="LineNr">19202 </span> 55/push-ebp +<span id="L19203" class="LineNr">19203 </span> 89/<- %ebp 4/r32/esp +<span id="L19204" class="LineNr">19204 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19205" class="LineNr">19205 </span> 50/push-eax +<span id="L19206" class="LineNr">19206 </span> 51/push-ecx +<span id="L19207" class="LineNr">19207 </span> 52/push-edx +<span id="L19208" class="LineNr">19208 </span> 53/push-ebx +<span id="L19209" class="LineNr">19209 </span> 56/push-esi +<span id="L19210" class="LineNr">19210 </span> 57/push-edi +<span id="L19211" class="LineNr">19211 </span> <span class="subxComment"># clear out</span> +<span id="L19212" class="LineNr">19212 </span> (<a href='120allocate.subx.html#L889'>zero-out</a> *(ebp+0x10) *<span class="SpecialChar"><a href='120allocate.subx.html#L23'>Handle-size</a></span>) +<span id="L19213" class="LineNr">19213 </span> <span class="subxComment"># esi = vars</span> +<span id="L19214" class="LineNr">19214 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L19215" class="LineNr">19215 </span> <span class="subxComment"># ebx = vars->top</span> +<span id="L19216" class="LineNr">19216 </span> 8b/-> *esi 3/r32/ebx +<span id="L19217" class="LineNr">19217 </span> <span class="subxComment"># if (vars->top > vars->size) abort</span> +<span id="L19218" class="LineNr">19218 </span> 3b/compare<- *(esi+4) 0/r32/eax +<span id="L19219" class="LineNr">19219 </span> 0f 8f/jump-if-> $lookup-var-helper:error1/disp32 +<span id="L19220" class="LineNr">19220 </span> <span class="subxComment"># var min/edx: (addr handle var) = vars->data</span> +<span id="L19221" class="LineNr">19221 </span> 8d/copy-address *(esi+8) 2/r32/edx +<span id="L19222" class="LineNr">19222 </span> <span class="subxComment"># var curr/ebx: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L19223" class="LineNr">19223 </span> 8d/copy-address *(esi+ebx-4) 3/r32/ebx <span class="subxComment"># vars + 8 + vars->type - 12</span> +<span id="L19224" class="LineNr">19224 </span> <span class="subxComment"># var var-in-reg/edi: 16 addrs</span> +<span id="L19225" class="LineNr">19225 </span> 68/push 0/imm32 +<span id="L19226" class="LineNr">19226 </span> 68/push 0/imm32 +<span id="L19227" class="LineNr">19227 </span> 68/push 0/imm32 +<span id="L19228" class="LineNr">19228 </span> 68/push 0/imm32 +<span id="L19229" class="LineNr">19229 </span> 68/push 0/imm32 +<span id="L19230" class="LineNr">19230 </span> 68/push 0/imm32 +<span id="L19231" class="LineNr">19231 </span> 68/push 0/imm32 +<span id="L19232" class="LineNr">19232 </span> 68/push 0/imm32 +<span id="L19233" class="LineNr">19233 </span> 68/push 0/imm32 +<span id="L19234" class="LineNr">19234 </span> 68/push 0/imm32 +<span id="L19235" class="LineNr">19235 </span> 68/push 0/imm32 +<span id="L19236" class="LineNr">19236 </span> 68/push 0/imm32 +<span id="L19237" class="LineNr">19237 </span> 68/push 0/imm32 +<span id="L19238" class="LineNr">19238 </span> 68/push 0/imm32 +<span id="L19239" class="LineNr">19239 </span> 68/push 0/imm32 +<span id="L19240" class="LineNr">19240 </span> 68/push 0/imm32 +<span id="L19241" class="LineNr">19241 </span> 89/<- %edi 4/r32/esp +<span id="L19242" class="LineNr">19242 </span> { +<span id="L19243" class="LineNr">19243 </span><span class="Constant">$lookup-var-helper:loop</span>: +<span id="L19244" class="LineNr">19244 </span> <span class="subxComment"># if (curr < min) return</span> +<span id="L19245" class="LineNr">19245 </span> 39/compare %ebx 2/r32/edx +<span id="L19246" class="LineNr">19246 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L19247" class="LineNr">19247 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(*curr)</span> +<span id="L19248" class="LineNr">19248 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L19249" class="LineNr">19249 </span> 89/<- %ecx 0/r32/eax +<span id="L19250" class="LineNr">19250 </span> <span class="subxComment"># var vn/eax: (addr array byte) = lookup(v->name)</span> +<span id="L19251" class="LineNr">19251 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L19252" class="LineNr">19252 </span> <span class="subxComment"># if (vn == name) return curr</span> +<span id="L19253" class="LineNr">19253 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> *(ebp+8) %eax) <span class="subxComment"># => eax</span> +<span id="L19254" class="LineNr">19254 </span> 3d/compare-eax-and 0/imm32/false +<span id="L19255" class="LineNr">19255 </span> { +<span id="L19256" class="LineNr">19256 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L19257" class="LineNr">19257 </span><span class="Constant">$lookup-var-helper:found</span>: +<span id="L19258" class="LineNr">19258 </span> <span class="subxComment"># var vr/eax: (addr array byte) = lookup(v->register)</span> +<span id="L19259" class="LineNr">19259 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L19260" class="LineNr">19260 </span> 3d/compare-eax-and 0/imm32 +<span id="L19261" class="LineNr">19261 </span> { +<span id="L19262" class="LineNr">19262 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L19263" class="LineNr">19263 </span><span class="Constant">$lookup-var-helper:found-register</span>: +<span id="L19264" class="LineNr">19264 </span> <span class="subxComment"># var reg/eax: int = get(Registers, vr)</span> +<span id="L19265" class="LineNr">19265 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19424'>Mu-registers-unique</a></span> %eax 0xc <span class="Constant">"Mu-registers-unique"</span>) <span class="subxComment"># => eax</span> +<span id="L19266" class="LineNr">19266 </span> 8b/-> *eax 0/r32/eax +<span id="L19267" class="LineNr">19267 </span> <span class="subxComment"># if (var-in-reg[reg]) error</span> +<span id="L19268" class="LineNr">19268 </span> 8b/-> *(edi+eax<<2) 0/r32/eax +<span id="L19269" class="LineNr">19269 </span> 3d/compare-eax-and 0/imm32 +<span id="L19270" class="LineNr">19270 </span> 0f 85/jump-if-!= $lookup-var-helper:error2/disp32 +<span id="L19271" class="LineNr">19271 </span> } +<span id="L19272" class="LineNr">19272 </span><span class="Constant">$lookup-var-helper:return</span>: +<span id="L19273" class="LineNr">19273 </span> <span class="subxComment"># esi = out</span> +<span id="L19274" class="LineNr">19274 </span> 8b/-> *(ebp+0x10) 6/r32/esi +<span id="L19275" class="LineNr">19275 </span> <span class="subxComment"># *out = *curr</span> +<span id="L19276" class="LineNr">19276 </span> 8b/-> *ebx 0/r32/eax +<span id="L19277" class="LineNr">19277 </span> 89/<- *esi 0/r32/eax +<span id="L19278" class="LineNr">19278 </span> 8b/-> *(ebx+4) 0/r32/eax +<span id="L19279" class="LineNr">19279 </span> 89/<- *(esi+4) 0/r32/eax +<span id="L19280" class="LineNr">19280 </span> <span class="subxComment"># return</span> +<span id="L19281" class="LineNr">19281 </span> eb/jump $lookup-var-helper:end/disp8 +<span id="L19282" class="LineNr">19282 </span> } +<span id="L19283" class="LineNr">19283 </span> <span class="subxComment"># 'name' not yet found; update var-in-reg if v in register</span> +<span id="L19284" class="LineNr">19284 </span> <span class="subxS1Comment"># . var vr/eax: (addr array byte) = lookup(v->register)</span> +<span id="L19285" class="LineNr">19285 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L19286" class="LineNr">19286 </span> <span class="subxS1Comment"># . if (vr == 0) continue</span> +<span id="L19287" class="LineNr">19287 </span> 3d/compare-eax-and 0/imm32 +<span id="L19288" class="LineNr">19288 </span> 74/jump-if-= $lookup-var-helper:continue/disp8 +<span id="L19289" class="LineNr">19289 </span> <span class="subxS1Comment"># . var reg/eax: int = get(Registers, vr)</span> +<span id="L19290" class="LineNr">19290 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19424'>Mu-registers-unique</a></span> %eax 0xc <span class="Constant">"Mu-registers-unique"</span>) <span class="subxComment"># => eax</span> +<span id="L19291" class="LineNr">19291 </span> 8b/-> *eax 0/r32/eax +<span id="L19292" class="LineNr">19292 </span> <span class="subxS1Comment"># . var-in-reg[reg] = v</span> +<span id="L19293" class="LineNr">19293 </span> 89/<- *(edi+eax<<2) 1/r32/ecx +<span id="L19294" class="LineNr">19294 </span><span class="Constant">$lookup-var-helper:continue</span>: +<span id="L19295" class="LineNr">19295 </span> <span class="subxComment"># curr -= 12</span> +<span id="L19296" class="LineNr">19296 </span> 81 5/subop/subtract %ebx 0xc/imm32 +<span id="L19297" class="LineNr">19297 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L19298" class="LineNr">19298 </span> } +<span id="L19299" class="LineNr">19299 </span><span class="Constant">$lookup-var-helper:end</span>: +<span id="L19300" class="LineNr">19300 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L19301" class="LineNr">19301 </span> 81 0/subop/add %esp 0x40/imm32 +<span id="L19302" class="LineNr">19302 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19303" class="LineNr">19303 </span> 5f/pop-to-edi +<span id="L19304" class="LineNr">19304 </span> 5e/pop-to-esi +<span id="L19305" class="LineNr">19305 </span> 5b/pop-to-ebx +<span id="L19306" class="LineNr">19306 </span> 5a/pop-to-edx +<span id="L19307" class="LineNr">19307 </span> 59/pop-to-ecx +<span id="L19308" class="LineNr">19308 </span> 58/pop-to-eax +<span id="L19309" class="LineNr">19309 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19310" class="LineNr">19310 </span> 89/<- %esp 5/r32/ebp +<span id="L19311" class="LineNr">19311 </span> 5d/pop-to-ebp +<span id="L19312" class="LineNr">19312 </span> c3/return +<span id="L19313" class="LineNr">19313 </span> +<span id="L19314" class="LineNr">19314 </span><span class="Constant">$lookup-var-helper:error1</span>: +<span id="L19315" class="LineNr">19315 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L19316" class="LineNr">19316 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L19317" class="LineNr">19317 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L19318" class="LineNr">19318 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L19319" class="LineNr">19319 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": malformed stack when looking up '"</span>) +<span id="L19320" class="LineNr">19320 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) *(ebp+8)) +<span id="L19321" class="LineNr">19321 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) +<span id="L19322" class="LineNr">19322 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L19323" class="LineNr">19323 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L19324" class="LineNr">19324 </span> <span class="subxComment"># never gets here</span> +<span id="L19325" class="LineNr">19325 </span> +<span id="L19326" class="LineNr">19326 </span><span class="Constant">$lookup-var-helper:error2</span>: +<span id="L19327" class="LineNr">19327 </span> <span class="subxComment"># eax contains the conflicting var at this point</span> +<span id="L19328" class="LineNr">19328 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L19329" class="LineNr">19329 </span> 50/push-eax +<span id="L19330" class="LineNr">19330 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L19331" class="LineNr">19331 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L19332" class="LineNr">19332 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L19333" class="LineNr">19333 </span> 58/pop-eax +<span id="L19334" class="LineNr">19334 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": register "</span>) +<span id="L19335" class="LineNr">19335 </span> 50/push-eax +<span id="L19336" class="LineNr">19336 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L19337" class="LineNr">19337 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L19338" class="LineNr">19338 </span> 58/pop-to-eax +<span id="L19339" class="LineNr">19339 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">" reads var '"</span>) +<span id="L19340" class="LineNr">19340 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) *(ebp+8)) +<span id="L19341" class="LineNr">19341 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"' after writing var '"</span>) +<span id="L19342" class="LineNr">19342 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L19343" class="LineNr">19343 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L19344" class="LineNr">19344 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) +<span id="L19345" class="LineNr">19345 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L19346" class="LineNr">19346 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L19347" class="LineNr">19347 </span> <span class="subxComment"># never gets here</span> +<span id="L19348" class="LineNr">19348 </span> +<span id="L19349" class="LineNr">19349 </span><span class="subxFunction">dump-vars</span>: <span class="subxComment"># vars: (addr stack live-var)</span> +<span id="L19350" class="LineNr">19350 </span> <span class="subxComment"># pseudocode:</span> +<span id="L19351" class="LineNr">19351 </span> <span class="subxComment"># var curr: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L19352" class="LineNr">19352 </span> <span class="subxComment"># var min = vars->data</span> +<span id="L19353" class="LineNr">19353 </span> <span class="subxComment"># while curr >= min</span> +<span id="L19354" class="LineNr">19354 </span> <span class="subxComment"># var v: (handle var) = *curr</span> +<span id="L19355" class="LineNr">19355 </span> <span class="subxComment"># print v</span> +<span id="L19356" class="LineNr">19356 </span> <span class="subxComment"># curr -= 12</span> +<span id="L19357" class="LineNr">19357 </span> <span class="subxComment">#</span> +<span id="L19358" class="LineNr">19358 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19359" class="LineNr">19359 </span> 55/push-ebp +<span id="L19360" class="LineNr">19360 </span> 89/<- %ebp 4/r32/esp +<span id="L19361" class="LineNr">19361 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19362" class="LineNr">19362 </span> 52/push-edx +<span id="L19363" class="LineNr">19363 </span> 53/push-ebx +<span id="L19364" class="LineNr">19364 </span> 56/push-esi +<span id="L19365" class="LineNr">19365 </span> <span class="subxComment"># esi = vars</span> +<span id="L19366" class="LineNr">19366 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L19367" class="LineNr">19367 </span> <span class="subxComment"># ebx = vars->top</span> +<span id="L19368" class="LineNr">19368 </span> 8b/-> *esi 3/r32/ebx +<span id="L19369" class="LineNr">19369 </span> <span class="subxComment"># var min/edx: (addr handle var) = vars->data</span> +<span id="L19370" class="LineNr">19370 </span> 8d/copy-address *(esi+8) 2/r32/edx +<span id="L19371" class="LineNr">19371 </span> <span class="subxComment"># var curr/ebx: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L19372" class="LineNr">19372 </span> 8d/copy-address *(esi+ebx-4) 3/r32/ebx <span class="subxComment"># vars + 8 + vars->type - 12</span> +<span id="L19373" class="LineNr">19373 </span> { +<span id="L19374" class="LineNr">19374 </span><span class="Constant">$dump-vars:loop</span>: +<span id="L19375" class="LineNr">19375 </span> <span class="subxComment"># if (curr < min) return</span> +<span id="L19376" class="LineNr">19376 </span> 39/compare %ebx 2/r32/edx +<span id="L19377" class="LineNr">19377 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L19378" class="LineNr">19378 </span> <span class="subxComment">#</span> +<span id="L19379" class="LineNr">19379 </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="L19380" class="LineNr">19380 </span> (<a href='mu.subx.html#L21219'>dump-var</a> 2 %ebx) +<span id="L19381" class="LineNr">19381 </span> <span class="subxComment"># curr -= 12</span> +<span id="L19382" class="LineNr">19382 </span> 81 5/subop/subtract %ebx 0xc/imm32 +<span id="L19383" class="LineNr">19383 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L19384" class="LineNr">19384 </span> } +<span id="L19385" class="LineNr">19385 </span><span class="Constant">$dump-vars:end</span>: +<span id="L19386" class="LineNr">19386 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19387" class="LineNr">19387 </span> 5e/pop-to-esi +<span id="L19388" class="LineNr">19388 </span> 5b/pop-to-ebx +<span id="L19389" class="LineNr">19389 </span> 5a/pop-to-edx +<span id="L19390" class="LineNr">19390 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19391" class="LineNr">19391 </span> 89/<- %esp 5/r32/ebp +<span id="L19392" class="LineNr">19392 </span> 5d/pop-to-ebp +<span id="L19393" class="LineNr">19393 </span> c3/return +<span id="L19394" class="LineNr">19394 </span> +<span id="L19395" class="LineNr">19395 </span>== data +<span id="L19396" class="LineNr">19396 </span><span class="subxComment"># Like Registers, but no esp or ebp</span> +<span id="L19397" class="LineNr">19397 </span><span class="SpecialChar">Mu-registers</span>: <span class="subxComment"># (addr stream {(handle array byte), int})</span> +<span id="L19398" class="LineNr">19398 </span> <span class="subxComment"># a table is a stream</span> +<span id="L19399" class="LineNr">19399 </span> 0xa8/imm32/write +<span id="L19400" class="LineNr">19400 </span> 0/imm32/read +<span id="L19401" class="LineNr">19401 </span> 0xa8/imm32/length +<span id="L19402" class="LineNr">19402 </span> <span class="subxComment"># data</span> +<span id="L19403" class="LineNr">19403 </span> <span class="subxComment"># general-purpose registers</span> +<span id="L19404" class="LineNr">19404 </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="L19405" class="LineNr">19405 </span> 0x11/imm32/alloc-id $Mu-register-eax/imm32 0/imm32 +<span id="L19406" class="LineNr">19406 </span> 0x11/imm32/alloc-id $Mu-register-ecx/imm32 1/imm32 +<span id="L19407" class="LineNr">19407 </span> 0x11/imm32/alloc-id $Mu-register-edx/imm32 2/imm32 +<span id="L19408" class="LineNr">19408 </span> 0x11/imm32/alloc-id $Mu-register-ebx/imm32 3/imm32 +<span id="L19409" class="LineNr">19409 </span> 0x11/imm32/alloc-id $Mu-register-esi/imm32 6/imm32 +<span id="L19410" class="LineNr">19410 </span> 0x11/imm32/alloc-id $Mu-register-edi/imm32 7/imm32 +<span id="L19411" class="LineNr">19411 </span> <span class="subxComment"># floating-point registers</span> +<span id="L19412" class="LineNr">19412 </span> 0x11/imm32/alloc-id $Mu-register-xmm0/imm32 0/imm32 +<span id="L19413" class="LineNr">19413 </span> 0x11/imm32/alloc-id $Mu-register-xmm1/imm32 1/imm32 +<span id="L19414" class="LineNr">19414 </span> 0x11/imm32/alloc-id $Mu-register-xmm2/imm32 2/imm32 +<span id="L19415" class="LineNr">19415 </span> 0x11/imm32/alloc-id $Mu-register-xmm3/imm32 3/imm32 +<span id="L19416" class="LineNr">19416 </span> 0x11/imm32/alloc-id $Mu-register-xmm4/imm32 4/imm32 +<span id="L19417" class="LineNr">19417 </span> 0x11/imm32/alloc-id $Mu-register-xmm5/imm32 5/imm32 +<span id="L19418" class="LineNr">19418 </span> 0x11/imm32/alloc-id $Mu-register-xmm6/imm32 6/imm32 +<span id="L19419" class="LineNr">19419 </span> 0x11/imm32/alloc-id $Mu-register-xmm7/imm32 7/imm32 +<span id="L19420" class="LineNr">19420 </span> +<span id="L19421" class="LineNr">19421 </span><span class="subxComment"># Like Mu-registers, but with unique codes for integer and floating-point</span> +<span id="L19422" class="LineNr">19422 </span><span class="subxComment"># registers.</span> +<span id="L19423" class="LineNr">19423 </span><span class="subxComment"># Don't use this for code-generation, only for checking.</span> +<span id="L19424" class="LineNr">19424 </span><span class="SpecialChar">Mu-registers-unique</span>: <span class="subxComment"># (addr stream {(handle array byte), int})</span> +<span id="L19425" class="LineNr">19425 </span> <span class="subxComment"># a table is a stream</span> +<span id="L19426" class="LineNr">19426 </span> 0xa8/imm32/write +<span id="L19427" class="LineNr">19427 </span> 0/imm32/read +<span id="L19428" class="LineNr">19428 </span> 0xa8/imm32/length +<span id="L19429" class="LineNr">19429 </span> <span class="subxComment"># data</span> +<span id="L19430" class="LineNr">19430 </span> <span class="subxComment"># general-purpose registers</span> +<span id="L19431" class="LineNr">19431 </span> 0x11/imm32/alloc-id $Mu-register-eax/imm32 0/imm32 +<span id="L19432" class="LineNr">19432 </span> 0x11/imm32/alloc-id $Mu-register-ecx/imm32 1/imm32 +<span id="L19433" class="LineNr">19433 </span> 0x11/imm32/alloc-id $Mu-register-edx/imm32 2/imm32 +<span id="L19434" class="LineNr">19434 </span> 0x11/imm32/alloc-id $Mu-register-ebx/imm32 3/imm32 +<span id="L19435" class="LineNr">19435 </span> 0x11/imm32/alloc-id $Mu-register-esi/imm32 6/imm32 +<span id="L19436" class="LineNr">19436 </span> 0x11/imm32/alloc-id $Mu-register-edi/imm32 7/imm32 +<span id="L19437" class="LineNr">19437 </span> <span class="subxComment"># floating-point registers</span> +<span id="L19438" class="LineNr">19438 </span> 0x11/imm32/alloc-id $Mu-register-xmm0/imm32 8/imm32 +<span id="L19439" class="LineNr">19439 </span> 0x11/imm32/alloc-id $Mu-register-xmm1/imm32 9/imm32 +<span id="L19440" class="LineNr">19440 </span> 0x11/imm32/alloc-id $Mu-register-xmm2/imm32 0xa/imm32 +<span id="L19441" class="LineNr">19441 </span> 0x11/imm32/alloc-id $Mu-register-xmm3/imm32 0xb/imm32 +<span id="L19442" class="LineNr">19442 </span> 0x11/imm32/alloc-id $Mu-register-xmm4/imm32 0xc/imm32 +<span id="L19443" class="LineNr">19443 </span> 0x11/imm32/alloc-id $Mu-register-xmm5/imm32 0xd/imm32 +<span id="L19444" class="LineNr">19444 </span> 0x11/imm32/alloc-id $Mu-register-xmm6/imm32 0xe/imm32 +<span id="L19445" class="LineNr">19445 </span> 0x11/imm32/alloc-id $Mu-register-xmm7/imm32 0xf/imm32 +<span id="L19446" class="LineNr">19446 </span> +<span id="L19447" class="LineNr">19447 </span><span class="Constant">$Mu-register-eax</span>: +<span id="L19448" class="LineNr">19448 </span> 0x11/imm32/alloc-id +<span id="L19449" class="LineNr">19449 </span> 3/imm32/size +<span id="L19450" class="LineNr">19450 </span> 0x65/e 0x61/a 0x78/x +<span id="L19451" class="LineNr">19451 </span> +<span id="L19452" class="LineNr">19452 </span><span class="Constant">$Mu-register-ecx</span>: +<span id="L19453" class="LineNr">19453 </span> 0x11/imm32/alloc-id +<span id="L19454" class="LineNr">19454 </span> 3/imm32/size +<span id="L19455" class="LineNr">19455 </span> 0x65/e 0x63/c 0x78/x +<span id="L19456" class="LineNr">19456 </span> +<span id="L19457" class="LineNr">19457 </span><span class="Constant">$Mu-register-edx</span>: +<span id="L19458" class="LineNr">19458 </span> 0x11/imm32/alloc-id +<span id="L19459" class="LineNr">19459 </span> 3/imm32/size +<span id="L19460" class="LineNr">19460 </span> 0x65/e 0x64/d 0x78/x +<span id="L19461" class="LineNr">19461 </span> +<span id="L19462" class="LineNr">19462 </span><span class="Constant">$Mu-register-ebx</span>: +<span id="L19463" class="LineNr">19463 </span> 0x11/imm32/alloc-id +<span id="L19464" class="LineNr">19464 </span> 3/imm32/size +<span id="L19465" class="LineNr">19465 </span> 0x65/e 0x62/b 0x78/x <span id="L19466" class="LineNr">19466 </span> -<span id="L19467" class="LineNr">19467 </span><span class="Constant">$Mu-register-xmm2</span>: -<span id="L19468" class="LineNr">19468 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19469" class="LineNr">19469 </span> <span class="subxComment"># "xmm2"</span> -<span id="L19470" class="LineNr">19470 </span> 0x4/imm32/size -<span id="L19471" class="LineNr">19471 </span> 0x78/x 0x6d/m 0x6d/m 0x32/2 -<span id="L19472" class="LineNr">19472 </span> -<span id="L19473" class="LineNr">19473 </span><span class="Constant">$Mu-register-xmm3</span>: -<span id="L19474" class="LineNr">19474 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19475" class="LineNr">19475 </span> <span class="subxComment"># "xmm3"</span> -<span id="L19476" class="LineNr">19476 </span> 0x4/imm32/size -<span id="L19477" class="LineNr">19477 </span> 0x78/x 0x6d/m 0x6d/m 0x33/3 -<span id="L19478" class="LineNr">19478 </span> -<span id="L19479" class="LineNr">19479 </span><span class="Constant">$Mu-register-xmm4</span>: -<span id="L19480" class="LineNr">19480 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19481" class="LineNr">19481 </span> <span class="subxComment"># "xmm4"</span> -<span id="L19482" class="LineNr">19482 </span> 0x4/imm32/size -<span id="L19483" class="LineNr">19483 </span> 0x78/x 0x6d/m 0x6d/m 0x34/4 -<span id="L19484" class="LineNr">19484 </span> -<span id="L19485" class="LineNr">19485 </span><span class="Constant">$Mu-register-xmm5</span>: -<span id="L19486" class="LineNr">19486 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19487" class="LineNr">19487 </span> <span class="subxComment"># "xmm5"</span> -<span id="L19488" class="LineNr">19488 </span> 0x4/imm32/size -<span id="L19489" class="LineNr">19489 </span> 0x78/x 0x6d/m 0x6d/m 0x35/5 -<span id="L19490" class="LineNr">19490 </span> -<span id="L19491" class="LineNr">19491 </span><span class="Constant">$Mu-register-xmm6</span>: -<span id="L19492" class="LineNr">19492 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19493" class="LineNr">19493 </span> <span class="subxComment"># "xmm6"</span> -<span id="L19494" class="LineNr">19494 </span> 0x4/imm32/size -<span id="L19495" class="LineNr">19495 </span> 0x78/x 0x6d/m 0x6d/m 0x36/6 -<span id="L19496" class="LineNr">19496 </span> -<span id="L19497" class="LineNr">19497 </span><span class="Constant">$Mu-register-xmm7</span>: -<span id="L19498" class="LineNr">19498 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19499" class="LineNr">19499 </span> <span class="subxComment"># "xmm7"</span> -<span id="L19500" class="LineNr">19500 </span> 0x4/imm32/size -<span id="L19501" class="LineNr">19501 </span> 0x78/x 0x6d/m 0x6d/m 0x37/7 -<span id="L19502" class="LineNr">19502 </span> -<span id="L19503" class="LineNr">19503 </span>== code -<span id="L19504" class="LineNr">19504 </span> -<span id="L19505" class="LineNr">19505 </span><span class="subxComment"># push 'out' to 'vars' if not already there; it's assumed to be a fn output</span> -<span id="L19506" class="LineNr">19506 </span><span class="subxFunction">maybe-define-var</span>: <span class="subxComment"># out: (handle var), vars: (addr stack live-var)</span> -<span id="L19507" class="LineNr">19507 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19508" class="LineNr">19508 </span> 55/push-ebp -<span id="L19509" class="LineNr">19509 </span> 89/<- %ebp 4/r32/esp -<span id="L19510" class="LineNr">19510 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19511" class="LineNr">19511 </span> 50/push-eax -<span id="L19512" class="LineNr">19512 </span> <span class="subxComment"># var out-addr/eax: (addr var)</span> -<span id="L19513" class="LineNr">19513 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebp+8) *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L19514" class="LineNr">19514 </span> <span class="subxComment">#</span> -<span id="L19515" class="LineNr">19515 </span> (<a href='mu.subx.html#L19531'>binding-exists?</a> %eax *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L19516" class="LineNr">19516 </span> 3d/compare-eax-and 0/imm32/false -<span id="L19517" class="LineNr">19517 </span> 75/jump-if-!= $maybe-define-var:end/disp8 -<span id="L19518" class="LineNr">19518 </span> <span class="subxComment"># otherwise update vars</span> -<span id="L19519" class="LineNr">19519 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ebp+8)) -<span id="L19520" class="LineNr">19520 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ebp+0xc)) -<span id="L19521" class="LineNr">19521 </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="L19522" class="LineNr">19522 </span><span class="Constant">$maybe-define-var:end</span>: -<span id="L19523" class="LineNr">19523 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19524" class="LineNr">19524 </span> 58/pop-to-eax -<span id="L19525" class="LineNr">19525 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19526" class="LineNr">19526 </span> 89/<- %esp 5/r32/ebp -<span id="L19527" class="LineNr">19527 </span> 5d/pop-to-ebp -<span id="L19528" class="LineNr">19528 </span> c3/return -<span id="L19529" class="LineNr">19529 </span> -<span id="L19530" class="LineNr">19530 </span><span class="subxComment"># simpler version of lookup-var-helper</span> -<span id="L19531" class="LineNr">19531 </span><span class="subxFunction">binding-exists?</span>: <span class="subxComment"># target: (addr var), vars: (addr stack live-var) -> result/eax: boolean</span> -<span id="L19532" class="LineNr">19532 </span> <span class="subxComment"># pseudocode:</span> -<span id="L19533" class="LineNr">19533 </span> <span class="subxComment"># var curr: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L19534" class="LineNr">19534 </span> <span class="subxComment"># var min = vars->data</span> -<span id="L19535" class="LineNr">19535 </span> <span class="subxComment"># while curr >= min</span> -<span id="L19536" class="LineNr">19536 </span> <span class="subxComment"># var v: (handle var) = *curr</span> -<span id="L19537" class="LineNr">19537 </span> <span class="subxComment"># if v->name == target->name</span> -<span id="L19538" class="LineNr">19538 </span> <span class="subxComment"># return true</span> -<span id="L19539" class="LineNr">19539 </span> <span class="subxComment"># curr -= 12</span> -<span id="L19540" class="LineNr">19540 </span> <span class="subxComment"># return false</span> -<span id="L19541" class="LineNr">19541 </span> <span class="subxComment">#</span> -<span id="L19542" class="LineNr">19542 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19543" class="LineNr">19543 </span> 55/push-ebp -<span id="L19544" class="LineNr">19544 </span> 89/<- %ebp 4/r32/esp -<span id="L19545" class="LineNr">19545 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19546" class="LineNr">19546 </span> 51/push-ecx -<span id="L19547" class="LineNr">19547 </span> 52/push-edx -<span id="L19548" class="LineNr">19548 </span> 56/push-esi -<span id="L19549" class="LineNr">19549 </span> <span class="subxComment"># var target-name/ecx: (addr array byte) = lookup(target->name)</span> -<span id="L19550" class="LineNr">19550 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L19551" class="LineNr">19551 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L19552" class="LineNr">19552 </span> 89/<- %ecx 0/r32/eax -<span id="L19553" class="LineNr">19553 </span> <span class="subxComment"># esi = vars</span> -<span id="L19554" class="LineNr">19554 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L19555" class="LineNr">19555 </span> <span class="subxComment"># eax = vars->top</span> -<span id="L19556" class="LineNr">19556 </span> 8b/-> *esi 0/r32/eax -<span id="L19557" class="LineNr">19557 </span> <span class="subxComment"># var min/edx: (addr handle var) = vars->data</span> -<span id="L19558" class="LineNr">19558 </span> 8d/copy-address *(esi+8) 2/r32/edx -<span id="L19559" class="LineNr">19559 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L19560" class="LineNr">19560 </span> 8d/copy-address *(esi+eax-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->type - 12</span> -<span id="L19561" class="LineNr">19561 </span> { -<span id="L19562" class="LineNr">19562 </span><span class="Constant">$binding-exists?:loop</span>: -<span id="L19563" class="LineNr">19563 </span> <span class="subxComment"># if (curr < min) return</span> -<span id="L19564" class="LineNr">19564 </span> 39/compare %esi 2/r32/edx -<span id="L19565" class="LineNr">19565 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L19566" class="LineNr">19566 </span> <span class="subxComment"># var v/eax: (addr var) = lookup(*curr)</span> -<span id="L19567" class="LineNr">19567 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L19568" class="LineNr">19568 </span> <span class="subxComment"># var vn/eax: (addr array byte) = lookup(v->name)</span> -<span id="L19569" class="LineNr">19569 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L19570" class="LineNr">19570 </span> <span class="subxComment"># if (vn == target-name) return true</span> -<span id="L19571" class="LineNr">19571 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx %eax) <span class="subxComment"># => eax</span> -<span id="L19572" class="LineNr">19572 </span> 3d/compare-eax-and 0/imm32/false -<span id="L19573" class="LineNr">19573 </span> 75/jump-if-!= $binding-exists?:end/disp8 <span class="subxComment"># eax already contains true</span> -<span id="L19574" class="LineNr">19574 </span> <span class="subxComment"># curr -= 12</span> -<span id="L19575" class="LineNr">19575 </span> 81 5/subop/subtract %esi 0xc/imm32 -<span id="L19576" class="LineNr">19576 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L19577" class="LineNr">19577 </span> } -<span id="L19578" class="LineNr">19578 </span> b8/copy-to-eax 0/imm32/false -<span id="L19579" class="LineNr">19579 </span><span class="Constant">$binding-exists?:end</span>: -<span id="L19580" class="LineNr">19580 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19581" class="LineNr">19581 </span> 5e/pop-to-esi -<span id="L19582" class="LineNr">19582 </span> 5a/pop-to-edx -<span id="L19583" class="LineNr">19583 </span> 59/pop-to-ecx -<span id="L19584" class="LineNr">19584 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19585" class="LineNr">19585 </span> 89/<- %esp 5/r32/ebp -<span id="L19586" class="LineNr">19586 </span> 5d/pop-to-ebp -<span id="L19587" class="LineNr">19587 </span> c3/return -<span id="L19588" class="LineNr">19588 </span> -<span id="L19589" class="LineNr">19589 </span><span class="subxTest">test-parse-mu-stmt</span>: -<span id="L19590" class="LineNr">19590 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19591" class="LineNr">19591 </span> 55/push-ebp -<span id="L19592" class="LineNr">19592 </span> 89/<- %ebp 4/r32/esp -<span id="L19593" class="LineNr">19593 </span> <span class="subxComment"># setup</span> -<span id="L19594" class="LineNr">19594 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L19595" class="LineNr">19595 </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="L19596" class="LineNr">19596 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L19597" class="LineNr">19597 </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="L19598" class="LineNr">19598 </span> <span class="subxComment"># var vars/ecx: (stack (addr var) 16)</span> -<span id="L19599" class="LineNr">19599 </span> 81 5/subop/subtract %esp 0xc0/imm32 -<span id="L19600" class="LineNr">19600 </span> 68/push 0xc0/imm32/size -<span id="L19601" class="LineNr">19601 </span> 68/push 0/imm32/top -<span id="L19602" class="LineNr">19602 </span> 89/<- %ecx 4/r32/esp -<span id="L19603" class="LineNr">19603 </span> (<a href='203stack.subx.html#L13'>clear-stack</a> %ecx) -<span id="L19604" class="LineNr">19604 </span> <span class="subxComment"># var v/edx: (handle var)</span> -<span id="L19605" class="LineNr">19605 </span> 68/push 0/imm32 -<span id="L19606" class="LineNr">19606 </span> 68/push 0/imm32 -<span id="L19607" class="LineNr">19607 </span> 89/<- %edx 4/r32/esp -<span id="L19608" class="LineNr">19608 </span> <span class="subxComment"># var s/eax: (handle array byte)</span> -<span id="L19609" class="LineNr">19609 </span> 68/push 0/imm32 -<span id="L19610" class="LineNr">19610 </span> 68/push 0/imm32 -<span id="L19611" class="LineNr">19611 </span> 89/<- %eax 4/r32/esp -<span id="L19612" class="LineNr">19612 </span> <span class="subxComment"># v = new var("n")</span> -<span id="L19613" class="LineNr">19613 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"n"</span> %eax) -<span id="L19614" class="LineNr">19614 </span> (<a href='mu.subx.html#L19705'>new-var</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *eax *(eax+4) %edx) -<span id="L19615" class="LineNr">19615 </span> <span class="subxComment">#</span> -<span id="L19616" class="LineNr">19616 </span> (<a href='203stack.subx.html#L114'>push</a> %ecx *edx) -<span id="L19617" class="LineNr">19617 </span> (<a href='203stack.subx.html#L114'>push</a> %ecx *(edx+4)) -<span id="L19618" class="LineNr">19618 </span> (<a href='203stack.subx.html#L114'>push</a> %ecx 0) -<span id="L19619" class="LineNr">19619 </span> <span class="subxComment"># var out/eax: (handle stmt)</span> -<span id="L19620" class="LineNr">19620 </span> 68/push 0/imm32 -<span id="L19621" class="LineNr">19621 </span> 68/push 0/imm32 -<span id="L19622" class="LineNr">19622 </span> 89/<- %eax 4/r32/esp -<span id="L19623" class="LineNr">19623 </span> <span class="subxComment"># convert</span> -<span id="L19624" class="LineNr">19624 </span> (<a href='mu.subx.html#L18743'>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="L19625" class="LineNr">19625 </span> <span class="subxComment"># var out-addr/edx: (addr stmt) = lookup(*out)</span> -<span id="L19626" class="LineNr">19626 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L19627" class="LineNr">19627 </span> 89/<- %edx 0/r32/eax -<span id="L19628" class="LineNr">19628 </span> <span class="subxComment"># out->tag</span> -<span id="L19629" class="LineNr">19629 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *edx 1 <span class="Constant">"F - <a href='mu.subx.html#L19589'>test-parse-mu-stmt</a>/tag"</span>) <span class="subxComment"># Stmt-tag is Stmt1</span> -<span id="L19630" class="LineNr">19630 </span> <span class="subxComment"># out->operation</span> -<span id="L19631" class="LineNr">19631 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L19632" class="LineNr">19632 </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#L19589'>test-parse-mu-stmt</a>/name"</span>) <span class="subxComment"># Stmt1-operation</span> -<span id="L19633" class="LineNr">19633 </span> <span class="subxComment"># out->inouts->value->name</span> -<span id="L19634" class="LineNr">19634 </span> <span class="subxS1Comment"># . eax = out->inouts</span> -<span id="L19635" class="LineNr">19635 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0xc) *(edx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L19636" class="LineNr">19636 </span> <span class="subxS1Comment"># . eax = out->inouts->value</span> -<span id="L19637" class="LineNr">19637 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L19638" class="LineNr">19638 </span> <span class="subxS1Comment"># . eax = out->inouts->value->name</span> -<span id="L19639" class="LineNr">19639 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L19640" class="LineNr">19640 </span> <span class="subxS1Comment"># .</span> -<span id="L19641" class="LineNr">19641 </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#L19589'>test-parse-mu-stmt</a>/inout:0"</span>) -<span id="L19642" class="LineNr">19642 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19643" class="LineNr">19643 </span> 89/<- %esp 5/r32/ebp -<span id="L19644" class="LineNr">19644 </span> 5d/pop-to-ebp -<span id="L19645" class="LineNr">19645 </span> c3/return -<span id="L19646" class="LineNr">19646 </span> -<span id="L19647" class="LineNr">19647 </span><span class="subxTest">test-parse-mu-stmt-with-comma</span>: -<span id="L19648" class="LineNr">19648 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19649" class="LineNr">19649 </span> 55/push-ebp -<span id="L19650" class="LineNr">19650 </span> 89/<- %ebp 4/r32/esp -<span id="L19651" class="LineNr">19651 </span> <span class="subxComment"># setup</span> -<span id="L19652" class="LineNr">19652 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L19653" class="LineNr">19653 </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="L19654" class="LineNr">19654 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L19655" class="LineNr">19655 </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="L19656" class="LineNr">19656 </span> <span class="subxComment"># var vars/ecx: (stack (addr var) 16)</span> -<span id="L19657" class="LineNr">19657 </span> 81 5/subop/subtract %esp 0xc0/imm32 -<span id="L19658" class="LineNr">19658 </span> 68/push 0xc0/imm32/size -<span id="L19659" class="LineNr">19659 </span> 68/push 0/imm32/top -<span id="L19660" class="LineNr">19660 </span> 89/<- %ecx 4/r32/esp -<span id="L19661" class="LineNr">19661 </span> (<a href='203stack.subx.html#L13'>clear-stack</a> %ecx) -<span id="L19662" class="LineNr">19662 </span> <span class="subxComment"># var v/edx: (handle var)</span> -<span id="L19663" class="LineNr">19663 </span> 68/push 0/imm32 -<span id="L19664" class="LineNr">19664 </span> 68/push 0/imm32 -<span id="L19665" class="LineNr">19665 </span> 89/<- %edx 4/r32/esp -<span id="L19666" class="LineNr">19666 </span> <span class="subxComment"># var s/eax: (handle array byte)</span> -<span id="L19667" class="LineNr">19667 </span> 68/push 0/imm32 -<span id="L19668" class="LineNr">19668 </span> 68/push 0/imm32 -<span id="L19669" class="LineNr">19669 </span> 89/<- %eax 4/r32/esp -<span id="L19670" class="LineNr">19670 </span> <span class="subxComment"># v = new var("n")</span> -<span id="L19671" class="LineNr">19671 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"n"</span> %eax) -<span id="L19672" class="LineNr">19672 </span> (<a href='mu.subx.html#L19705'>new-var</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *eax *(eax+4) %edx) -<span id="L19673" class="LineNr">19673 </span> <span class="subxComment">#</span> -<span id="L19674" class="LineNr">19674 </span> (<a href='203stack.subx.html#L114'>push</a> %ecx *edx) -<span id="L19675" class="LineNr">19675 </span> (<a href='203stack.subx.html#L114'>push</a> %ecx *(edx+4)) -<span id="L19676" class="LineNr">19676 </span> (<a href='203stack.subx.html#L114'>push</a> %ecx 0) -<span id="L19677" class="LineNr">19677 </span> <span class="subxComment"># var out/eax: (handle stmt)</span> -<span id="L19678" class="LineNr">19678 </span> 68/push 0/imm32 -<span id="L19679" class="LineNr">19679 </span> 68/push 0/imm32 -<span id="L19680" class="LineNr">19680 </span> 89/<- %eax 4/r32/esp -<span id="L19681" class="LineNr">19681 </span> <span class="subxComment"># convert</span> -<span id="L19682" class="LineNr">19682 </span> (<a href='mu.subx.html#L18743'>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="L19683" class="LineNr">19683 </span> <span class="subxComment"># var out-addr/edx: (addr stmt) = lookup(*out)</span> -<span id="L19684" class="LineNr">19684 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L19685" class="LineNr">19685 </span> 89/<- %edx 0/r32/eax -<span id="L19686" class="LineNr">19686 </span> <span class="subxComment"># out->tag</span> -<span id="L19687" class="LineNr">19687 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *edx 1 <span class="Constant">"F - <a href='mu.subx.html#L19647'>test-parse-mu-stmt-with-comma</a>/tag"</span>) <span class="subxComment"># Stmt-tag is Stmt1</span> -<span id="L19688" class="LineNr">19688 </span> <span class="subxComment"># out->operation</span> -<span id="L19689" class="LineNr">19689 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L19690" class="LineNr">19690 </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#L19647'>test-parse-mu-stmt-with-comma</a>/name"</span>) <span class="subxComment"># Stmt1-operation</span> -<span id="L19691" class="LineNr">19691 </span> <span class="subxComment"># out->inouts->value->name</span> -<span id="L19692" class="LineNr">19692 </span> <span class="subxS1Comment"># . eax = out->inouts</span> -<span id="L19693" class="LineNr">19693 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0xc) *(edx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L19694" class="LineNr">19694 </span> <span class="subxS1Comment"># . eax = out->inouts->value</span> -<span id="L19695" class="LineNr">19695 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L19696" class="LineNr">19696 </span> <span class="subxS1Comment"># . eax = out->inouts->value->name</span> -<span id="L19697" class="LineNr">19697 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L19698" class="LineNr">19698 </span> <span class="subxS1Comment"># .</span> -<span id="L19699" class="LineNr">19699 </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#L19647'>test-parse-mu-stmt-with-comma</a>/inout:0"</span>) -<span id="L19700" class="LineNr">19700 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19701" class="LineNr">19701 </span> 89/<- %esp 5/r32/ebp -<span id="L19702" class="LineNr">19702 </span> 5d/pop-to-ebp -<span id="L19703" class="LineNr">19703 </span> c3/return -<span id="L19704" class="LineNr">19704 </span> -<span id="L19705" class="LineNr">19705 </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="L19706" class="LineNr">19706 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19707" class="LineNr">19707 </span> 55/push-ebp -<span id="L19708" class="LineNr">19708 </span> 89/<- %ebp 4/r32/esp -<span id="L19709" class="LineNr">19709 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19710" class="LineNr">19710 </span> 50/push-eax -<span id="L19711" class="LineNr">19711 </span> 51/push-ecx -<span id="L19712" class="LineNr">19712 </span> <span class="subxComment"># ecx = out</span> -<span id="L19713" class="LineNr">19713 </span> 8b/-> *(ebp+0x14) 1/r32/ecx -<span id="L19714" class="LineNr">19714 </span> <span class="subxComment">#</span> -<span id="L19715" class="LineNr">19715 </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="L19716" class="LineNr">19716 </span> <span class="subxComment"># var out-addr/eax: (addr var)</span> -<span id="L19717" class="LineNr">19717 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> -<span id="L19718" class="LineNr">19718 </span> <span class="subxComment"># out-addr->name = name</span> -<span id="L19719" class="LineNr">19719 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L19720" class="LineNr">19720 </span> 89/<- *eax 1/r32/ecx <span class="subxComment"># Var-name</span> -<span id="L19721" class="LineNr">19721 </span> 8b/-> *(ebp+0x10) 1/r32/ecx -<span id="L19722" class="LineNr">19722 </span> 89/<- *(eax+4) 1/r32/ecx <span class="subxComment"># Var-name</span> -<span id="L19723" class="LineNr">19723 </span><span class="CommentedCode">#? (write-buffered Stderr "var ")</span> -<span id="L19724" class="LineNr">19724 </span><span class="CommentedCode">#? (lookup *(ebp+0xc) *(ebp+0x10))</span> -<span id="L19725" class="LineNr">19725 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L19726" class="LineNr">19726 </span><span class="CommentedCode">#? (write-buffered Stderr " at ")</span> -<span id="L19727" class="LineNr">19727 </span><span class="CommentedCode">#? 8b/-> *(ebp+0x14) 1/r32/ecx</span> -<span id="L19728" class="LineNr">19728 </span><span class="CommentedCode">#? (lookup *ecx *(ecx+4)) # => eax</span> -<span id="L19729" class="LineNr">19729 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L19730" class="LineNr">19730 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L19731" class="LineNr">19731 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L19732" class="LineNr">19732 </span><span class="Constant">$new-var:end</span>: -<span id="L19733" class="LineNr">19733 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19734" class="LineNr">19734 </span> 59/pop-to-ecx -<span id="L19735" class="LineNr">19735 </span> 58/pop-to-eax -<span id="L19736" class="LineNr">19736 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19737" class="LineNr">19737 </span> 89/<- %esp 5/r32/ebp -<span id="L19738" class="LineNr">19738 </span> 5d/pop-to-ebp -<span id="L19739" class="LineNr">19739 </span> c3/return -<span id="L19740" class="LineNr">19740 </span> -<span id="L19741" class="LineNr">19741 </span><span class="subxComment"># WARNING: modifies name</span> -<span id="L19742" class="LineNr">19742 </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="L19743" class="LineNr">19743 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19744" class="LineNr">19744 </span> 55/push-ebp -<span id="L19745" class="LineNr">19745 </span> 89/<- %ebp 4/r32/esp -<span id="L19746" class="LineNr">19746 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19747" class="LineNr">19747 </span> 50/push-eax -<span id="L19748" class="LineNr">19748 </span> 51/push-ecx -<span id="L19749" class="LineNr">19749 </span> <span class="subxComment"># first strip out metadata</span> -<span id="L19750" class="LineNr">19750 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L19751" class="LineNr">19751 </span> (<a href='124next-token.subx.html#L163'>next-token-from-slice</a> *ecx *(ecx+4) 0x2f *(ebp+0xc)) -<span id="L19752" class="LineNr">19752 </span> <span class="subxComment"># if (!is-hex-int?(name)) abort</span> -<span id="L19753" class="LineNr">19753 </span> (<a href='118parse-hex-int.subx.html#L9'>hex-int?</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L19754" class="LineNr">19754 </span> 3d/compare-eax-and 0/imm32/false -<span id="L19755" class="LineNr">19755 </span> 0f 84/jump-if-= $new-literal-integer:abort/disp32 -<span id="L19756" class="LineNr">19756 </span> <span class="subxComment"># a little more error-checking</span> -<span id="L19757" class="LineNr">19757 </span> (<a href='mu.subx.html#L19797'>check-mu-hex-int</a> *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) -<span id="L19758" class="LineNr">19758 </span> <span class="subxComment"># out = new var(s)</span> -<span id="L19759" class="LineNr">19759 </span> (<a href='mu.subx.html#L19935'>new-var-from-slice</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10)) -<span id="L19760" class="LineNr">19760 </span> <span class="subxComment"># var out-addr/ecx: (addr var) = lookup(*out)</span> -<span id="L19761" class="LineNr">19761 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L19762" class="LineNr">19762 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L19763" class="LineNr">19763 </span> 89/<- %ecx 0/r32/eax -<span id="L19764" class="LineNr">19764 </span> <span class="subxComment"># out-addr->block-depth = *Curr-block-depth</span> -<span id="L19765" class="LineNr">19765 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span> 0/r32/eax -<span id="L19766" class="LineNr">19766 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> -<span id="L19767" class="LineNr">19767 </span> <span class="subxComment"># out-addr->type = new tree()</span> -<span id="L19768" class="LineNr">19768 </span> 8d/copy-address *(ecx+8) 0/r32/eax <span class="subxComment"># Var-type</span> -<span id="L19769" class="LineNr">19769 </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="L19770" class="LineNr">19770 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L19771" class="LineNr">19771 </span> c7 0/subop/copy *eax 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> -<span id="L19772" class="LineNr">19772 </span> <span class="subxComment"># nothing else to do; default type is 'literal'</span> -<span id="L19773" class="LineNr">19773 </span><span class="Constant">$new-literal-integer:end</span>: -<span id="L19774" class="LineNr">19774 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L19775" class="LineNr">19775 </span> 81 0/subop/add %esp 8/imm32 -<span id="L19776" class="LineNr">19776 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19777" class="LineNr">19777 </span> 59/pop-to-ecx -<span id="L19778" class="LineNr">19778 </span> 58/pop-to-eax -<span id="L19779" class="LineNr">19779 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19780" class="LineNr">19780 </span> 89/<- %esp 5/r32/ebp -<span id="L19781" class="LineNr">19781 </span> 5d/pop-to-ebp -<span id="L19782" class="LineNr">19782 </span> c3/return -<span id="L19783" class="LineNr">19783 </span> -<span id="L19784" class="LineNr">19784 </span><span class="Constant">$new-literal-integer:abort</span>: -<span id="L19785" class="LineNr">19785 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L19786" class="LineNr">19786 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L19787" class="LineNr">19787 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L19788" class="LineNr">19788 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L19789" class="LineNr">19789 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": variable '"</span>) -<span id="L19790" class="LineNr">19790 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) *(ebp+0xc)) -<span id="L19791" class="LineNr">19791 </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="L19792" class="LineNr">19792 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L19793" class="LineNr">19793 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L19794" class="LineNr">19794 </span> <span class="subxComment"># never gets here</span> -<span id="L19795" class="LineNr">19795 </span> -<span id="L19796" class="LineNr">19796 </span><span class="subxComment"># precondition: name is a valid hex integer; require a '0x' prefix</span> -<span id="L19797" class="LineNr">19797 </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="L19798" class="LineNr">19798 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19799" class="LineNr">19799 </span> 55/push-ebp -<span id="L19800" class="LineNr">19800 </span> 89/<- %ebp 4/r32/esp -<span id="L19801" class="LineNr">19801 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19802" class="LineNr">19802 </span> 50/push-eax -<span id="L19803" class="LineNr">19803 </span> 51/push-ecx -<span id="L19804" class="LineNr">19804 </span> 52/push-edx -<span id="L19805" class="LineNr">19805 </span> <span class="subxComment"># ecx = name</span> -<span id="L19806" class="LineNr">19806 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L19807" class="LineNr">19807 </span> <span class="subxComment"># var start/edx: (addr byte) = name->start</span> -<span id="L19808" class="LineNr">19808 </span> 8b/-> *ecx 2/r32/edx -<span id="L19809" class="LineNr">19809 </span> <span class="subxComment"># if (*start == '-') ++start</span> -<span id="L19810" class="LineNr">19810 </span> b8/copy-to-eax 0/imm32 -<span id="L19811" class="LineNr">19811 </span> 8a/copy-byte *edx 0/r32/AL -<span id="L19812" class="LineNr">19812 </span> 3d/compare-eax-and 0x2d/imm32/dash -<span id="L19813" class="LineNr">19813 </span> { -<span id="L19814" class="LineNr">19814 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L19815" class="LineNr">19815 </span> 42/increment-edx -<span id="L19816" class="LineNr">19816 </span> } -<span id="L19817" class="LineNr">19817 </span> <span class="subxComment"># var end/ecx: (addr byte) = name->end</span> -<span id="L19818" class="LineNr">19818 </span> 8b/-> *(ecx+4) 1/r32/ecx -<span id="L19819" class="LineNr">19819 </span> <span class="subxComment"># var len/eax: int = name->end - name->start</span> -<span id="L19820" class="LineNr">19820 </span> 89/<- %eax 1/r32/ecx -<span id="L19821" class="LineNr">19821 </span> 29/subtract-from %eax 2/r32/edx -<span id="L19822" class="LineNr">19822 </span> <span class="subxComment"># if (len <= 1) return</span> -<span id="L19823" class="LineNr">19823 </span> 3d/compare-eax-with 1/imm32 -<span id="L19824" class="LineNr">19824 </span> 0f 8e/jump-if-<= $check-mu-hex-int:end/disp32 -<span id="L19825" class="LineNr">19825 </span><span class="Constant">$check-mu-hex-int:length->-1</span>: -<span id="L19826" class="LineNr">19826 </span> <span class="subxComment"># if slice-starts-with?({start, end}, "0x") return</span> -<span id="L19827" class="LineNr">19827 </span> <span class="subxS1Comment"># . var tmp = {start, end}</span> -<span id="L19828" class="LineNr">19828 </span> 51/push-ecx -<span id="L19829" class="LineNr">19829 </span> 52/push-edx -<span id="L19830" class="LineNr">19830 </span> 89/<- %eax 4/r32/esp -<span id="L19831" class="LineNr">19831 </span> <span class="subxS1Comment"># .</span> -<span id="L19832" class="LineNr">19832 </span> (<a href='123slice.subx.html#L487'>slice-starts-with?</a> %eax <span class="Constant">"0x"</span>) <span class="subxComment"># => eax</span> -<span id="L19833" class="LineNr">19833 </span> <span class="subxS1Comment"># . reclaim tmp</span> -<span id="L19834" class="LineNr">19834 </span> 81 0/subop/add %esp 8/imm32 -<span id="L19835" class="LineNr">19835 </span> <span class="subxS1Comment"># .</span> -<span id="L19836" class="LineNr">19836 </span> 3d/compare-eax-with 0/imm32/false -<span id="L19837" class="LineNr">19837 </span> 75/jump-if-!= $check-mu-hex-int:end/disp8 -<span id="L19838" class="LineNr">19838 </span><span class="Constant">$check-mu-hex-int:abort</span>: -<span id="L19839" class="LineNr">19839 </span> <span class="subxComment"># otherwise abort</span> -<span id="L19840" class="LineNr">19840 </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="L19841" class="LineNr">19841 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0xc) *(ebp+8)) -<span id="L19842" class="LineNr">19842 </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="L19843" class="LineNr">19843 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L19844" class="LineNr">19844 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L19845" class="LineNr">19845 </span><span class="Constant">$check-mu-hex-int:end</span>: -<span id="L19846" class="LineNr">19846 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19847" class="LineNr">19847 </span> 5a/pop-to-edx -<span id="L19848" class="LineNr">19848 </span> 59/pop-to-ecx -<span id="L19849" class="LineNr">19849 </span> 58/pop-to-eax -<span id="L19850" class="LineNr">19850 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19851" class="LineNr">19851 </span> 89/<- %esp 5/r32/ebp -<span id="L19852" class="LineNr">19852 </span> 5d/pop-to-ebp -<span id="L19853" class="LineNr">19853 </span> c3/return -<span id="L19854" class="LineNr">19854 </span> -<span id="L19855" class="LineNr">19855 </span><span class="subxFunction">new-literal</span>: <span class="subxComment"># ad: (addr allocation-descriptor), name: (addr slice), out: (addr handle var)</span> -<span id="L19856" class="LineNr">19856 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19857" class="LineNr">19857 </span> 55/push-ebp -<span id="L19858" class="LineNr">19858 </span> 89/<- %ebp 4/r32/esp -<span id="L19859" class="LineNr">19859 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19860" class="LineNr">19860 </span> 50/push-eax -<span id="L19861" class="LineNr">19861 </span> 51/push-ecx -<span id="L19862" class="LineNr">19862 </span> <span class="subxComment"># var s/ecx: (handle array byte)</span> -<span id="L19863" class="LineNr">19863 </span> 68/push 0/imm32 -<span id="L19864" class="LineNr">19864 </span> 68/push 0/imm32 -<span id="L19865" class="LineNr">19865 </span> 89/<- %ecx 4/r32/esp -<span id="L19866" class="LineNr">19866 </span> <span class="subxComment"># s = slice-to-string(name)</span> -<span id="L19867" class="LineNr">19867 </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="L19868" class="LineNr">19868 </span> <span class="subxComment"># allocate to out</span> -<span id="L19869" class="LineNr">19869 </span> (<a href='mu.subx.html#L19705'>new-var</a> *(ebp+8) *ecx *(ecx+4) *(ebp+0x10)) -<span id="L19870" class="LineNr">19870 </span> <span class="subxComment"># var out-addr/ecx: (addr var) = lookup(*out)</span> -<span id="L19871" class="LineNr">19871 </span> 8b/-> *(ebp+0x10) 1/r32/ecx -<span id="L19872" class="LineNr">19872 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> -<span id="L19873" class="LineNr">19873 </span> 89/<- %ecx 0/r32/eax -<span id="L19874" class="LineNr">19874 </span> <span class="subxComment"># out-addr->block-depth = *Curr-block-depth</span> -<span id="L19875" class="LineNr">19875 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span> 0/r32/eax -<span id="L19876" class="LineNr">19876 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> -<span id="L19877" class="LineNr">19877 </span> <span class="subxComment"># out-addr->type/eax = new type</span> -<span id="L19878" class="LineNr">19878 </span> 8d/copy-address *(ecx+8) 0/r32/eax <span class="subxComment"># Var-type</span> -<span id="L19879" class="LineNr">19879 </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="L19880" class="LineNr">19880 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L19881" class="LineNr">19881 </span> <span class="subxComment"># nothing else to do; default type is 'literal'</span> -<span id="L19882" class="LineNr">19882 </span> c7 0/subop/copy *eax 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> -<span id="L19883" class="LineNr">19883 </span><span class="Constant">$new-literal:end</span>: -<span id="L19884" class="LineNr">19884 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L19885" class="LineNr">19885 </span> 81 0/subop/add %esp 8/imm32 -<span id="L19886" class="LineNr">19886 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19887" class="LineNr">19887 </span> 59/pop-to-ecx -<span id="L19888" class="LineNr">19888 </span> 58/pop-to-eax -<span id="L19889" class="LineNr">19889 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19890" class="LineNr">19890 </span> 89/<- %esp 5/r32/ebp -<span id="L19891" class="LineNr">19891 </span> 5d/pop-to-ebp -<span id="L19892" class="LineNr">19892 </span> c3/return -<span id="L19893" class="LineNr">19893 </span> -<span id="L19894" class="LineNr">19894 </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="L19895" class="LineNr">19895 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19896" class="LineNr">19896 </span> 55/push-ebp -<span id="L19897" class="LineNr">19897 </span> 89/<- %ebp 4/r32/esp -<span id="L19898" class="LineNr">19898 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19899" class="LineNr">19899 </span> 50/push-eax -<span id="L19900" class="LineNr">19900 </span> 51/push-ecx -<span id="L19901" class="LineNr">19901 </span> <span class="subxComment"># var s/ecx: (handle array byte)</span> -<span id="L19902" class="LineNr">19902 </span> 68/push 0/imm32 -<span id="L19903" class="LineNr">19903 </span> 68/push 0/imm32 -<span id="L19904" class="LineNr">19904 </span> 89/<- %ecx 4/r32/esp -<span id="L19905" class="LineNr">19905 </span> <span class="subxComment"># s = slice-to-string(name)</span> -<span id="L19906" class="LineNr">19906 </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="L19907" class="LineNr">19907 </span> <span class="subxComment"># allocate to out</span> -<span id="L19908" class="LineNr">19908 </span> (<a href='mu.subx.html#L19705'>new-var</a> *(ebp+8) *ecx *(ecx+4) *(ebp+0x10)) -<span id="L19909" class="LineNr">19909 </span> <span class="subxComment"># var out-addr/ecx: (addr var) = lookup(*out)</span> -<span id="L19910" class="LineNr">19910 </span> 8b/-> *(ebp+0x10) 1/r32/ecx -<span id="L19911" class="LineNr">19911 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> -<span id="L19912" class="LineNr">19912 </span> 89/<- %ecx 0/r32/eax -<span id="L19913" class="LineNr">19913 </span> <span class="subxComment"># out-addr->block-depth = *Curr-block-depth</span> -<span id="L19914" class="LineNr">19914 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span> 0/r32/eax -<span id="L19915" class="LineNr">19915 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> -<span id="L19916" class="LineNr">19916 </span> <span class="subxComment"># out-addr->type/eax = new type</span> -<span id="L19917" class="LineNr">19917 </span> 8d/copy-address *(ecx+8) 0/r32/eax <span class="subxComment"># Var-type</span> -<span id="L19918" class="LineNr">19918 </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="L19919" class="LineNr">19919 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L19920" class="LineNr">19920 </span> <span class="subxComment"># out-addr->type->value = literal-string</span> -<span id="L19921" class="LineNr">19921 </span> c7 0/subop/copy *(eax+4) 0x10/imm32/type-id-string-literal <span class="subxComment"># Type-tree-value</span> -<span id="L19922" class="LineNr">19922 </span> <span class="subxComment"># out-addr->type->is-atom? = true</span> -<span id="L19923" class="LineNr">19923 </span> c7 0/subop/copy *eax 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> -<span id="L19924" class="LineNr">19924 </span><span class="Constant">$new-literal-string:end</span>: -<span id="L19925" class="LineNr">19925 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L19926" class="LineNr">19926 </span> 81 0/subop/add %esp 8/imm32 -<span id="L19927" class="LineNr">19927 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19928" class="LineNr">19928 </span> 59/pop-to-ecx -<span id="L19929" class="LineNr">19929 </span> 58/pop-to-eax -<span id="L19930" class="LineNr">19930 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19931" class="LineNr">19931 </span> 89/<- %esp 5/r32/ebp -<span id="L19932" class="LineNr">19932 </span> 5d/pop-to-ebp -<span id="L19933" class="LineNr">19933 </span> c3/return -<span id="L19934" class="LineNr">19934 </span> -<span id="L19935" class="LineNr">19935 </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="L19936" class="LineNr">19936 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19937" class="LineNr">19937 </span> 55/push-ebp -<span id="L19938" class="LineNr">19938 </span> 89/<- %ebp 4/r32/esp -<span id="L19939" class="LineNr">19939 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19940" class="LineNr">19940 </span> 51/push-ecx -<span id="L19941" class="LineNr">19941 </span> <span class="subxComment"># var tmp/ecx: (handle array byte)</span> -<span id="L19942" class="LineNr">19942 </span> 68/push 0/imm32 -<span id="L19943" class="LineNr">19943 </span> 68/push 0/imm32 -<span id="L19944" class="LineNr">19944 </span> 89/<- %ecx 4/r32/esp -<span id="L19945" class="LineNr">19945 </span> <span class="subxComment"># tmp = slice-to-string(name)</span> -<span id="L19946" class="LineNr">19946 </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="L19947" class="LineNr">19947 </span> <span class="subxComment"># out = new-var(tmp)</span> -<span id="L19948" class="LineNr">19948 </span> (<a href='mu.subx.html#L19705'>new-var</a> *(ebp+8) *ecx *(ecx+4) *(ebp+0x10)) -<span id="L19949" class="LineNr">19949 </span><span class="Constant">$new-var-from-slice:end</span>: -<span id="L19950" class="LineNr">19950 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L19951" class="LineNr">19951 </span> 81 0/subop/add %esp 8/imm32 -<span id="L19952" class="LineNr">19952 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19953" class="LineNr">19953 </span> 59/pop-to-ecx -<span id="L19954" class="LineNr">19954 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19955" class="LineNr">19955 </span> 89/<- %esp 5/r32/ebp -<span id="L19956" class="LineNr">19956 </span> 5d/pop-to-ebp -<span id="L19957" class="LineNr">19957 </span> c3/return -<span id="L19958" class="LineNr">19958 </span> -<span id="L19959" class="LineNr">19959 </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="L19960" class="LineNr">19960 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19961" class="LineNr">19961 </span> 55/push-ebp -<span id="L19962" class="LineNr">19962 </span> 89/<- %ebp 4/r32/esp -<span id="L19963" class="LineNr">19963 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19964" class="LineNr">19964 </span> 50/push-eax -<span id="L19965" class="LineNr">19965 </span> 51/push-ecx -<span id="L19966" class="LineNr">19966 </span> <span class="subxComment">#</span> -<span id="L19967" class="LineNr">19967 </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="L19968" class="LineNr">19968 </span> <span class="subxComment"># var out-addr/eax: (addr stmt) = lookup(*out)</span> -<span id="L19969" class="LineNr">19969 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L19970" class="LineNr">19970 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L19971" class="LineNr">19971 </span> <span class="subxComment"># out-addr->tag = stmt</span> -<span id="L19972" class="LineNr">19972 </span> c7 0/subop/copy *eax 2/imm32/tag/var-on-stack <span class="subxComment"># Stmt-tag</span> -<span id="L19973" class="LineNr">19973 </span> <span class="subxComment"># result->var = var</span> -<span id="L19974" class="LineNr">19974 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L19975" class="LineNr">19975 </span> 89/<- *(eax+4) 1/r32/ecx <span class="subxComment"># Vardef-var</span> -<span id="L19976" class="LineNr">19976 </span> 8b/-> *(ebp+0x10) 1/r32/ecx -<span id="L19977" class="LineNr">19977 </span> 89/<- *(eax+8) 1/r32/ecx <span class="subxComment"># Vardef-var</span> -<span id="L19978" class="LineNr">19978 </span><span class="Constant">$new-var-def:end</span>: -<span id="L19979" class="LineNr">19979 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19980" class="LineNr">19980 </span> 59/pop-to-ecx -<span id="L19981" class="LineNr">19981 </span> 58/pop-to-eax -<span id="L19982" class="LineNr">19982 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19983" class="LineNr">19983 </span> 89/<- %esp 5/r32/ebp -<span id="L19984" class="LineNr">19984 </span> 5d/pop-to-ebp -<span id="L19985" class="LineNr">19985 </span> c3/return -<span id="L19986" class="LineNr">19986 </span> -<span id="L19987" class="LineNr">19987 </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="L19988" class="LineNr">19988 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19989" class="LineNr">19989 </span> 55/push-ebp -<span id="L19990" class="LineNr">19990 </span> 89/<- %ebp 4/r32/esp -<span id="L19991" class="LineNr">19991 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19992" class="LineNr">19992 </span> 50/push-eax -<span id="L19993" class="LineNr">19993 </span> <span class="subxComment"># eax = out</span> -<span id="L19994" class="LineNr">19994 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L19995" class="LineNr">19995 </span> <span class="subxComment">#</span> -<span id="L19996" class="LineNr">19996 </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="L19997" class="LineNr">19997 </span> <span class="subxComment"># var out-addr/eax: (addr stmt) = lookup(*out)</span> -<span id="L19998" class="LineNr">19998 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L19999" class="LineNr">19999 </span> <span class="subxComment"># set tag</span> -<span id="L20000" class="LineNr">20000 </span> c7 0/subop/copy *eax 3/imm32/tag/var-in-register <span class="subxComment"># Stmt-tag</span> -<span id="L20001" class="LineNr">20001 </span> <span class="subxComment"># set output</span> -<span id="L20002" class="LineNr">20002 </span> 8d/copy-address *(eax+0x14) 0/r32/eax <span class="subxComment"># Regvardef-outputs</span> -<span id="L20003" class="LineNr">20003 </span> (<a href='mu.subx.html#L20070'>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="L20004" class="LineNr">20004 </span><span class="Constant">$new-reg-var-def:end</span>: -<span id="L20005" class="LineNr">20005 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20006" class="LineNr">20006 </span> 58/pop-to-eax -<span id="L20007" class="LineNr">20007 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20008" class="LineNr">20008 </span> 89/<- %esp 5/r32/ebp -<span id="L20009" class="LineNr">20009 </span> 5d/pop-to-ebp -<span id="L20010" class="LineNr">20010 </span> c3/return -<span id="L20011" class="LineNr">20011 </span> -<span id="L20012" class="LineNr">20012 </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="L20013" class="LineNr">20013 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20014" class="LineNr">20014 </span> 55/push-ebp -<span id="L20015" class="LineNr">20015 </span> 89/<- %ebp 4/r32/esp -<span id="L20016" class="LineNr">20016 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20017" class="LineNr">20017 </span> 50/push-eax -<span id="L20018" class="LineNr">20018 </span> 51/push-ecx -<span id="L20019" class="LineNr">20019 </span> 57/push-edi -<span id="L20020" class="LineNr">20020 </span> <span class="subxComment"># edi = out</span> -<span id="L20021" class="LineNr">20021 </span> 8b/-> *(ebp+0x1c) 7/r32/edi -<span id="L20022" class="LineNr">20022 </span> <span class="subxComment"># *out = new list</span> -<span id="L20023" class="LineNr">20023 </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="L20024" class="LineNr">20024 </span> <span class="subxComment"># var out-addr/edi: (addr list _type) = lookup(*out)</span> -<span id="L20025" class="LineNr">20025 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L20026" class="LineNr">20026 </span> 89/<- %edi 0/r32/eax -<span id="L20027" class="LineNr">20027 </span> <span class="subxComment"># out-addr->value = value</span> -<span id="L20028" class="LineNr">20028 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L20029" class="LineNr">20029 </span> 89/<- *edi 0/r32/eax <span class="subxComment"># List-value</span> -<span id="L20030" class="LineNr">20030 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L20031" class="LineNr">20031 </span> 89/<- *(edi+4) 0/r32/eax <span class="subxComment"># List-value</span> -<span id="L20032" class="LineNr">20032 </span> <span class="subxComment"># if (list == null) return</span> -<span id="L20033" class="LineNr">20033 </span> 81 7/subop/compare *(ebp+0x14) 0/imm32 -<span id="L20034" class="LineNr">20034 </span> 74/jump-if-= $append-list:end/disp8 -<span id="L20035" class="LineNr">20035 </span> <span class="subxComment"># otherwise append</span> -<span id="L20036" class="LineNr">20036 </span><span class="Constant">$append-list:non-empty-list</span>: -<span id="L20037" class="LineNr">20037 </span> <span class="subxComment"># var curr/eax: (addr list _type) = lookup(list)</span> -<span id="L20038" class="LineNr">20038 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> -<span id="L20039" class="LineNr">20039 </span> <span class="subxComment"># while (curr->next != null) curr = curr->next</span> -<span id="L20040" class="LineNr">20040 </span> { -<span id="L20041" class="LineNr">20041 </span> 81 7/subop/compare *(eax+8) 0/imm32 <span class="subxComment"># List-next</span> -<span id="L20042" class="LineNr">20042 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20043" class="LineNr">20043 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L20044" class="LineNr">20044 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># List-next, List-next => eax</span> -<span id="L20045" class="LineNr">20045 </span> <span class="subxComment">#</span> -<span id="L20046" class="LineNr">20046 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L20047" class="LineNr">20047 </span> } -<span id="L20048" class="LineNr">20048 </span> <span class="subxComment"># edi = out</span> -<span id="L20049" class="LineNr">20049 </span> 8b/-> *(ebp+0x1c) 7/r32/edi -<span id="L20050" class="LineNr">20050 </span> <span class="subxComment"># curr->next = out</span> -<span id="L20051" class="LineNr">20051 </span> 8b/-> *edi 1/r32/ecx -<span id="L20052" class="LineNr">20052 </span> 89/<- *(eax+8) 1/r32/ecx <span class="subxComment"># List-next</span> -<span id="L20053" class="LineNr">20053 </span> 8b/-> *(edi+4) 1/r32/ecx -<span id="L20054" class="LineNr">20054 </span> 89/<- *(eax+0xc) 1/r32/ecx <span class="subxComment"># List-next</span> -<span id="L20055" class="LineNr">20055 </span> <span class="subxComment"># out = list</span> -<span id="L20056" class="LineNr">20056 </span> 8b/-> *(ebp+0x14) 1/r32/ecx -<span id="L20057" class="LineNr">20057 </span> 89/<- *edi 1/r32/ecx -<span id="L20058" class="LineNr">20058 </span> 8b/-> *(ebp+0x18) 1/r32/ecx -<span id="L20059" class="LineNr">20059 </span> 89/<- *(edi+4) 1/r32/ecx -<span id="L20060" class="LineNr">20060 </span><span class="Constant">$append-list:end</span>: -<span id="L20061" class="LineNr">20061 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20062" class="LineNr">20062 </span> 5f/pop-to-edi -<span id="L20063" class="LineNr">20063 </span> 59/pop-to-ecx -<span id="L20064" class="LineNr">20064 </span> 58/pop-to-eax -<span id="L20065" class="LineNr">20065 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20066" class="LineNr">20066 </span> 89/<- %esp 5/r32/ebp -<span id="L20067" class="LineNr">20067 </span> 5d/pop-to-ebp -<span id="L20068" class="LineNr">20068 </span> c3/return -<span id="L20069" class="LineNr">20069 </span> -<span id="L20070" class="LineNr">20070 </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="L20071" class="LineNr">20071 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20072" class="LineNr">20072 </span> 55/push-ebp -<span id="L20073" class="LineNr">20073 </span> 89/<- %ebp 4/r32/esp -<span id="L20074" class="LineNr">20074 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20075" class="LineNr">20075 </span> 50/push-eax -<span id="L20076" class="LineNr">20076 </span> 51/push-ecx -<span id="L20077" class="LineNr">20077 </span> 57/push-edi -<span id="L20078" class="LineNr">20078 </span> <span class="subxComment"># edi = out</span> -<span id="L20079" class="LineNr">20079 </span> 8b/-> *(ebp+0x20) 7/r32/edi -<span id="L20080" class="LineNr">20080 </span> <span class="subxComment"># out = new stmt-var</span> -<span id="L20081" class="LineNr">20081 </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="L20082" class="LineNr">20082 </span> <span class="subxComment"># var out-addr/ecx: (addr stmt-var) = lookup(*out)</span> -<span id="L20083" class="LineNr">20083 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L20084" class="LineNr">20084 </span> 89/<- %ecx 0/r32/eax -<span id="L20085" class="LineNr">20085 </span> <span class="subxComment"># out-addr->value = v</span> -<span id="L20086" class="LineNr">20086 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L20087" class="LineNr">20087 </span> 89/<- *ecx 0/r32/eax <span class="subxComment"># Stmt-var-value</span> -<span id="L20088" class="LineNr">20088 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L20089" class="LineNr">20089 </span> 89/<- *(ecx+4) 0/r32/eax <span class="subxComment"># Stmt-var-value</span> -<span id="L20090" class="LineNr">20090 </span> <span class="subxComment"># out-addr->is-deref? = is-deref?</span> -<span id="L20091" class="LineNr">20091 </span> 8b/-> *(ebp+0x1c) 0/r32/eax -<span id="L20092" class="LineNr">20092 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L20093" class="LineNr">20093 </span> <span class="subxComment"># if (vars == null) return result</span> -<span id="L20094" class="LineNr">20094 </span> 81 7/subop/compare *(ebp+0x14) 0/imm32/null -<span id="L20095" class="LineNr">20095 </span> 74/jump-if-= $append-stmt-var:end/disp8 -<span id="L20096" class="LineNr">20096 </span> <span class="subxComment"># otherwise append</span> -<span id="L20097" class="LineNr">20097 </span> <span class="subxComment"># var curr/eax: (addr stmt-var) = lookup(vars)</span> -<span id="L20098" class="LineNr">20098 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> -<span id="L20099" class="LineNr">20099 </span> <span class="subxComment"># while (curr->next != null) curr = curr->next</span> -<span id="L20100" class="LineNr">20100 </span> { -<span id="L20101" class="LineNr">20101 </span> 81 7/subop/compare *(eax+8) 0/imm32 <span class="subxComment"># Stmt-var-next</span> -<span id="L20102" class="LineNr">20102 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20103" class="LineNr">20103 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L20104" class="LineNr">20104 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next, Stmt-var-next => eax</span> -<span id="L20105" class="LineNr">20105 </span> <span class="subxComment">#</span> -<span id="L20106" class="LineNr">20106 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L20107" class="LineNr">20107 </span> } -<span id="L20108" class="LineNr">20108 </span> <span class="subxComment"># curr->next = out</span> -<span id="L20109" class="LineNr">20109 </span> 8b/-> *edi 1/r32/ecx -<span id="L20110" class="LineNr">20110 </span> 89/<- *(eax+8) 1/r32/ecx <span class="subxComment"># Stmt-var-next</span> -<span id="L20111" class="LineNr">20111 </span> 8b/-> *(edi+4) 1/r32/ecx -<span id="L20112" class="LineNr">20112 </span> 89/<- *(eax+0xc) 1/r32/ecx <span class="subxComment"># Stmt-var-next</span> -<span id="L20113" class="LineNr">20113 </span> <span class="subxComment"># out = vars</span> -<span id="L20114" class="LineNr">20114 </span> 8b/-> *(ebp+0x14) 1/r32/ecx -<span id="L20115" class="LineNr">20115 </span> 89/<- *edi 1/r32/ecx -<span id="L20116" class="LineNr">20116 </span> 8b/-> *(ebp+0x18) 1/r32/ecx -<span id="L20117" class="LineNr">20117 </span> 89/<- *(edi+4) 1/r32/ecx -<span id="L20118" class="LineNr">20118 </span><span class="Constant">$append-stmt-var:end</span>: -<span id="L20119" class="LineNr">20119 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20120" class="LineNr">20120 </span> 5f/pop-to-edi -<span id="L20121" class="LineNr">20121 </span> 59/pop-to-ecx -<span id="L20122" class="LineNr">20122 </span> 58/pop-to-eax -<span id="L20123" class="LineNr">20123 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20124" class="LineNr">20124 </span> 89/<- %esp 5/r32/ebp -<span id="L20125" class="LineNr">20125 </span> 5d/pop-to-ebp -<span id="L20126" class="LineNr">20126 </span> c3/return -<span id="L20127" class="LineNr">20127 </span> -<span id="L20128" class="LineNr">20128 </span><span class="subxFunction">append-to-block</span>: <span class="subxComment"># ad: (addr allocation-descriptor), block: (addr block), x: (handle stmt)</span> -<span id="L20129" class="LineNr">20129 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20130" class="LineNr">20130 </span> 55/push-ebp -<span id="L20131" class="LineNr">20131 </span> 89/<- %ebp 4/r32/esp -<span id="L20132" class="LineNr">20132 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20133" class="LineNr">20133 </span> 50/push-eax -<span id="L20134" class="LineNr">20134 </span> 56/push-esi -<span id="L20135" class="LineNr">20135 </span> <span class="subxComment"># esi = block</span> -<span id="L20136" class="LineNr">20136 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L20137" class="LineNr">20137 </span> <span class="subxComment"># block->stmts = append(x, block->stmts)</span> -<span id="L20138" class="LineNr">20138 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Block-stmts</span> -<span id="L20139" class="LineNr">20139 </span> (<a href='mu.subx.html#L20012'>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="L20140" class="LineNr">20140 </span><span class="Constant">$append-to-block:end</span>: +<span id="L19467" class="LineNr">19467 </span><span class="Constant">$Mu-register-esi</span>: +<span id="L19468" class="LineNr">19468 </span> 0x11/imm32/alloc-id +<span id="L19469" class="LineNr">19469 </span> 3/imm32/size +<span id="L19470" class="LineNr">19470 </span> 0x65/e 0x73/s 0x69/i +<span id="L19471" class="LineNr">19471 </span> +<span id="L19472" class="LineNr">19472 </span><span class="Constant">$Mu-register-edi</span>: +<span id="L19473" class="LineNr">19473 </span> 0x11/imm32/alloc-id +<span id="L19474" class="LineNr">19474 </span> 3/imm32/size +<span id="L19475" class="LineNr">19475 </span> 0x65/e 0x64/d 0x69/i +<span id="L19476" class="LineNr">19476 </span> +<span id="L19477" class="LineNr">19477 </span><span class="Constant">$Mu-register-xmm0</span>: +<span id="L19478" class="LineNr">19478 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19479" class="LineNr">19479 </span> <span class="subxComment"># "xmm0"</span> +<span id="L19480" class="LineNr">19480 </span> 0x4/imm32/size +<span id="L19481" class="LineNr">19481 </span> 0x78/x 0x6d/m 0x6d/m 0x30/0 +<span id="L19482" class="LineNr">19482 </span> +<span id="L19483" class="LineNr">19483 </span><span class="Constant">$Mu-register-xmm1</span>: +<span id="L19484" class="LineNr">19484 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19485" class="LineNr">19485 </span> <span class="subxComment"># "xmm1"</span> +<span id="L19486" class="LineNr">19486 </span> 0x4/imm32/size +<span id="L19487" class="LineNr">19487 </span> 0x78/x 0x6d/m 0x6d/m 0x31/1 +<span id="L19488" class="LineNr">19488 </span> +<span id="L19489" class="LineNr">19489 </span><span class="Constant">$Mu-register-xmm2</span>: +<span id="L19490" class="LineNr">19490 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19491" class="LineNr">19491 </span> <span class="subxComment"># "xmm2"</span> +<span id="L19492" class="LineNr">19492 </span> 0x4/imm32/size +<span id="L19493" class="LineNr">19493 </span> 0x78/x 0x6d/m 0x6d/m 0x32/2 +<span id="L19494" class="LineNr">19494 </span> +<span id="L19495" class="LineNr">19495 </span><span class="Constant">$Mu-register-xmm3</span>: +<span id="L19496" class="LineNr">19496 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19497" class="LineNr">19497 </span> <span class="subxComment"># "xmm3"</span> +<span id="L19498" class="LineNr">19498 </span> 0x4/imm32/size +<span id="L19499" class="LineNr">19499 </span> 0x78/x 0x6d/m 0x6d/m 0x33/3 +<span id="L19500" class="LineNr">19500 </span> +<span id="L19501" class="LineNr">19501 </span><span class="Constant">$Mu-register-xmm4</span>: +<span id="L19502" class="LineNr">19502 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19503" class="LineNr">19503 </span> <span class="subxComment"># "xmm4"</span> +<span id="L19504" class="LineNr">19504 </span> 0x4/imm32/size +<span id="L19505" class="LineNr">19505 </span> 0x78/x 0x6d/m 0x6d/m 0x34/4 +<span id="L19506" class="LineNr">19506 </span> +<span id="L19507" class="LineNr">19507 </span><span class="Constant">$Mu-register-xmm5</span>: +<span id="L19508" class="LineNr">19508 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19509" class="LineNr">19509 </span> <span class="subxComment"># "xmm5"</span> +<span id="L19510" class="LineNr">19510 </span> 0x4/imm32/size +<span id="L19511" class="LineNr">19511 </span> 0x78/x 0x6d/m 0x6d/m 0x35/5 +<span id="L19512" class="LineNr">19512 </span> +<span id="L19513" class="LineNr">19513 </span><span class="Constant">$Mu-register-xmm6</span>: +<span id="L19514" class="LineNr">19514 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19515" class="LineNr">19515 </span> <span class="subxComment"># "xmm6"</span> +<span id="L19516" class="LineNr">19516 </span> 0x4/imm32/size +<span id="L19517" class="LineNr">19517 </span> 0x78/x 0x6d/m 0x6d/m 0x36/6 +<span id="L19518" class="LineNr">19518 </span> +<span id="L19519" class="LineNr">19519 </span><span class="Constant">$Mu-register-xmm7</span>: +<span id="L19520" class="LineNr">19520 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19521" class="LineNr">19521 </span> <span class="subxComment"># "xmm7"</span> +<span id="L19522" class="LineNr">19522 </span> 0x4/imm32/size +<span id="L19523" class="LineNr">19523 </span> 0x78/x 0x6d/m 0x6d/m 0x37/7 +<span id="L19524" class="LineNr">19524 </span> +<span id="L19525" class="LineNr">19525 </span>== code +<span id="L19526" class="LineNr">19526 </span> +<span id="L19527" class="LineNr">19527 </span><span class="subxComment"># push 'out' to 'vars' if not already there; it's assumed to be a fn output</span> +<span id="L19528" class="LineNr">19528 </span><span class="subxFunction">maybe-define-var</span>: <span class="subxComment"># out: (handle var), vars: (addr stack live-var)</span> +<span id="L19529" class="LineNr">19529 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19530" class="LineNr">19530 </span> 55/push-ebp +<span id="L19531" class="LineNr">19531 </span> 89/<- %ebp 4/r32/esp +<span id="L19532" class="LineNr">19532 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19533" class="LineNr">19533 </span> 50/push-eax +<span id="L19534" class="LineNr">19534 </span> <span class="subxComment"># var out-addr/eax: (addr var)</span> +<span id="L19535" class="LineNr">19535 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebp+8) *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L19536" class="LineNr">19536 </span> <span class="subxComment">#</span> +<span id="L19537" class="LineNr">19537 </span> (<a href='mu.subx.html#L19553'>binding-exists?</a> %eax *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L19538" class="LineNr">19538 </span> 3d/compare-eax-and 0/imm32/false +<span id="L19539" class="LineNr">19539 </span> 75/jump-if-!= $maybe-define-var:end/disp8 +<span id="L19540" class="LineNr">19540 </span> <span class="subxComment"># otherwise update vars</span> +<span id="L19541" class="LineNr">19541 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ebp+8)) +<span id="L19542" class="LineNr">19542 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ebp+0xc)) +<span id="L19543" class="LineNr">19543 </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="L19544" class="LineNr">19544 </span><span class="Constant">$maybe-define-var:end</span>: +<span id="L19545" class="LineNr">19545 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19546" class="LineNr">19546 </span> 58/pop-to-eax +<span id="L19547" class="LineNr">19547 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19548" class="LineNr">19548 </span> 89/<- %esp 5/r32/ebp +<span id="L19549" class="LineNr">19549 </span> 5d/pop-to-ebp +<span id="L19550" class="LineNr">19550 </span> c3/return +<span id="L19551" class="LineNr">19551 </span> +<span id="L19552" class="LineNr">19552 </span><span class="subxComment"># simpler version of lookup-var-helper</span> +<span id="L19553" class="LineNr">19553 </span><span class="subxFunction">binding-exists?</span>: <span class="subxComment"># target: (addr var), vars: (addr stack live-var) -> result/eax: boolean</span> +<span id="L19554" class="LineNr">19554 </span> <span class="subxComment"># pseudocode:</span> +<span id="L19555" class="LineNr">19555 </span> <span class="subxComment"># var curr: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L19556" class="LineNr">19556 </span> <span class="subxComment"># var min = vars->data</span> +<span id="L19557" class="LineNr">19557 </span> <span class="subxComment"># while curr >= min</span> +<span id="L19558" class="LineNr">19558 </span> <span class="subxComment"># var v: (handle var) = *curr</span> +<span id="L19559" class="LineNr">19559 </span> <span class="subxComment"># if v->name == target->name</span> +<span id="L19560" class="LineNr">19560 </span> <span class="subxComment"># return true</span> +<span id="L19561" class="LineNr">19561 </span> <span class="subxComment"># curr -= 12</span> +<span id="L19562" class="LineNr">19562 </span> <span class="subxComment"># return false</span> +<span id="L19563" class="LineNr">19563 </span> <span class="subxComment">#</span> +<span id="L19564" class="LineNr">19564 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19565" class="LineNr">19565 </span> 55/push-ebp +<span id="L19566" class="LineNr">19566 </span> 89/<- %ebp 4/r32/esp +<span id="L19567" class="LineNr">19567 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19568" class="LineNr">19568 </span> 51/push-ecx +<span id="L19569" class="LineNr">19569 </span> 52/push-edx +<span id="L19570" class="LineNr">19570 </span> 56/push-esi +<span id="L19571" class="LineNr">19571 </span> <span class="subxComment"># var target-name/ecx: (addr array byte) = lookup(target->name)</span> +<span id="L19572" class="LineNr">19572 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L19573" class="LineNr">19573 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L19574" class="LineNr">19574 </span> 89/<- %ecx 0/r32/eax +<span id="L19575" class="LineNr">19575 </span> <span class="subxComment"># esi = vars</span> +<span id="L19576" class="LineNr">19576 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L19577" class="LineNr">19577 </span> <span class="subxComment"># eax = vars->top</span> +<span id="L19578" class="LineNr">19578 </span> 8b/-> *esi 0/r32/eax +<span id="L19579" class="LineNr">19579 </span> <span class="subxComment"># var min/edx: (addr handle var) = vars->data</span> +<span id="L19580" class="LineNr">19580 </span> 8d/copy-address *(esi+8) 2/r32/edx +<span id="L19581" class="LineNr">19581 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L19582" class="LineNr">19582 </span> 8d/copy-address *(esi+eax-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->type - 12</span> +<span id="L19583" class="LineNr">19583 </span> { +<span id="L19584" class="LineNr">19584 </span><span class="Constant">$binding-exists?:loop</span>: +<span id="L19585" class="LineNr">19585 </span> <span class="subxComment"># if (curr < min) return</span> +<span id="L19586" class="LineNr">19586 </span> 39/compare %esi 2/r32/edx +<span id="L19587" class="LineNr">19587 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L19588" class="LineNr">19588 </span> <span class="subxComment"># var v/eax: (addr var) = lookup(*curr)</span> +<span id="L19589" class="LineNr">19589 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L19590" class="LineNr">19590 </span> <span class="subxComment"># var vn/eax: (addr array byte) = lookup(v->name)</span> +<span id="L19591" class="LineNr">19591 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L19592" class="LineNr">19592 </span> <span class="subxComment"># if (vn == target-name) return true</span> +<span id="L19593" class="LineNr">19593 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx %eax) <span class="subxComment"># => eax</span> +<span id="L19594" class="LineNr">19594 </span> 3d/compare-eax-and 0/imm32/false +<span id="L19595" class="LineNr">19595 </span> 75/jump-if-!= $binding-exists?:end/disp8 <span class="subxComment"># eax already contains true</span> +<span id="L19596" class="LineNr">19596 </span> <span class="subxComment"># curr -= 12</span> +<span id="L19597" class="LineNr">19597 </span> 81 5/subop/subtract %esi 0xc/imm32 +<span id="L19598" class="LineNr">19598 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L19599" class="LineNr">19599 </span> } +<span id="L19600" class="LineNr">19600 </span> b8/copy-to-eax 0/imm32/false +<span id="L19601" class="LineNr">19601 </span><span class="Constant">$binding-exists?:end</span>: +<span id="L19602" class="LineNr">19602 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19603" class="LineNr">19603 </span> 5e/pop-to-esi +<span id="L19604" class="LineNr">19604 </span> 5a/pop-to-edx +<span id="L19605" class="LineNr">19605 </span> 59/pop-to-ecx +<span id="L19606" class="LineNr">19606 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19607" class="LineNr">19607 </span> 89/<- %esp 5/r32/ebp +<span id="L19608" class="LineNr">19608 </span> 5d/pop-to-ebp +<span id="L19609" class="LineNr">19609 </span> c3/return +<span id="L19610" class="LineNr">19610 </span> +<span id="L19611" class="LineNr">19611 </span><span class="subxTest">test-parse-mu-stmt</span>: +<span id="L19612" class="LineNr">19612 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19613" class="LineNr">19613 </span> 55/push-ebp +<span id="L19614" class="LineNr">19614 </span> 89/<- %ebp 4/r32/esp +<span id="L19615" class="LineNr">19615 </span> <span class="subxComment"># setup</span> +<span id="L19616" class="LineNr">19616 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L19617" class="LineNr">19617 </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="L19618" class="LineNr">19618 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L19619" class="LineNr">19619 </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="L19620" class="LineNr">19620 </span> <span class="subxComment"># var vars/ecx: (stack (addr var) 16)</span> +<span id="L19621" class="LineNr">19621 </span> 81 5/subop/subtract %esp 0xc0/imm32 +<span id="L19622" class="LineNr">19622 </span> 68/push 0xc0/imm32/size +<span id="L19623" class="LineNr">19623 </span> 68/push 0/imm32/top +<span id="L19624" class="LineNr">19624 </span> 89/<- %ecx 4/r32/esp +<span id="L19625" class="LineNr">19625 </span> (<a href='203stack.subx.html#L13'>clear-stack</a> %ecx) +<span id="L19626" class="LineNr">19626 </span> <span class="subxComment"># var v/edx: (handle var)</span> +<span id="L19627" class="LineNr">19627 </span> 68/push 0/imm32 +<span id="L19628" class="LineNr">19628 </span> 68/push 0/imm32 +<span id="L19629" class="LineNr">19629 </span> 89/<- %edx 4/r32/esp +<span id="L19630" class="LineNr">19630 </span> <span class="subxComment"># var s/eax: (handle array byte)</span> +<span id="L19631" class="LineNr">19631 </span> 68/push 0/imm32 +<span id="L19632" class="LineNr">19632 </span> 68/push 0/imm32 +<span id="L19633" class="LineNr">19633 </span> 89/<- %eax 4/r32/esp +<span id="L19634" class="LineNr">19634 </span> <span class="subxComment"># v = new var("n")</span> +<span id="L19635" class="LineNr">19635 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"n"</span> %eax) +<span id="L19636" class="LineNr">19636 </span> (<a href='mu.subx.html#L19727'>new-var</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *eax *(eax+4) %edx) +<span id="L19637" class="LineNr">19637 </span> <span class="subxComment">#</span> +<span id="L19638" class="LineNr">19638 </span> (<a href='203stack.subx.html#L114'>push</a> %ecx *edx) +<span id="L19639" class="LineNr">19639 </span> (<a href='203stack.subx.html#L114'>push</a> %ecx *(edx+4)) +<span id="L19640" class="LineNr">19640 </span> (<a href='203stack.subx.html#L114'>push</a> %ecx 0) +<span id="L19641" class="LineNr">19641 </span> <span class="subxComment"># var out/eax: (handle stmt)</span> +<span id="L19642" class="LineNr">19642 </span> 68/push 0/imm32 +<span id="L19643" class="LineNr">19643 </span> 68/push 0/imm32 +<span id="L19644" class="LineNr">19644 </span> 89/<- %eax 4/r32/esp +<span id="L19645" class="LineNr">19645 </span> <span class="subxComment"># convert</span> +<span id="L19646" class="LineNr">19646 </span> (<a href='mu.subx.html#L18765'>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="L19647" class="LineNr">19647 </span> <span class="subxComment"># var out-addr/edx: (addr stmt) = lookup(*out)</span> +<span id="L19648" class="LineNr">19648 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L19649" class="LineNr">19649 </span> 89/<- %edx 0/r32/eax +<span id="L19650" class="LineNr">19650 </span> <span class="subxComment"># out->tag</span> +<span id="L19651" class="LineNr">19651 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *edx 1 <span class="Constant">"F - <a href='mu.subx.html#L19611'>test-parse-mu-stmt</a>/tag"</span>) <span class="subxComment"># Stmt-tag is Stmt1</span> +<span id="L19652" class="LineNr">19652 </span> <span class="subxComment"># out->operation</span> +<span id="L19653" class="LineNr">19653 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L19654" class="LineNr">19654 </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#L19611'>test-parse-mu-stmt</a>/name"</span>) <span class="subxComment"># Stmt1-operation</span> +<span id="L19655" class="LineNr">19655 </span> <span class="subxComment"># out->inouts->value->name</span> +<span id="L19656" class="LineNr">19656 </span> <span class="subxS1Comment"># . eax = out->inouts</span> +<span id="L19657" class="LineNr">19657 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0xc) *(edx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L19658" class="LineNr">19658 </span> <span class="subxS1Comment"># . eax = out->inouts->value</span> +<span id="L19659" class="LineNr">19659 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L19660" class="LineNr">19660 </span> <span class="subxS1Comment"># . eax = out->inouts->value->name</span> +<span id="L19661" class="LineNr">19661 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L19662" class="LineNr">19662 </span> <span class="subxS1Comment"># .</span> +<span id="L19663" class="LineNr">19663 </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#L19611'>test-parse-mu-stmt</a>/inout:0"</span>) +<span id="L19664" class="LineNr">19664 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19665" class="LineNr">19665 </span> 89/<- %esp 5/r32/ebp +<span id="L19666" class="LineNr">19666 </span> 5d/pop-to-ebp +<span id="L19667" class="LineNr">19667 </span> c3/return +<span id="L19668" class="LineNr">19668 </span> +<span id="L19669" class="LineNr">19669 </span><span class="subxTest">test-parse-mu-stmt-with-comma</span>: +<span id="L19670" class="LineNr">19670 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19671" class="LineNr">19671 </span> 55/push-ebp +<span id="L19672" class="LineNr">19672 </span> 89/<- %ebp 4/r32/esp +<span id="L19673" class="LineNr">19673 </span> <span class="subxComment"># setup</span> +<span id="L19674" class="LineNr">19674 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L19675" class="LineNr">19675 </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="L19676" class="LineNr">19676 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L19677" class="LineNr">19677 </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="L19678" class="LineNr">19678 </span> <span class="subxComment"># var vars/ecx: (stack (addr var) 16)</span> +<span id="L19679" class="LineNr">19679 </span> 81 5/subop/subtract %esp 0xc0/imm32 +<span id="L19680" class="LineNr">19680 </span> 68/push 0xc0/imm32/size +<span id="L19681" class="LineNr">19681 </span> 68/push 0/imm32/top +<span id="L19682" class="LineNr">19682 </span> 89/<- %ecx 4/r32/esp +<span id="L19683" class="LineNr">19683 </span> (<a href='203stack.subx.html#L13'>clear-stack</a> %ecx) +<span id="L19684" class="LineNr">19684 </span> <span class="subxComment"># var v/edx: (handle var)</span> +<span id="L19685" class="LineNr">19685 </span> 68/push 0/imm32 +<span id="L19686" class="LineNr">19686 </span> 68/push 0/imm32 +<span id="L19687" class="LineNr">19687 </span> 89/<- %edx 4/r32/esp +<span id="L19688" class="LineNr">19688 </span> <span class="subxComment"># var s/eax: (handle array byte)</span> +<span id="L19689" class="LineNr">19689 </span> 68/push 0/imm32 +<span id="L19690" class="LineNr">19690 </span> 68/push 0/imm32 +<span id="L19691" class="LineNr">19691 </span> 89/<- %eax 4/r32/esp +<span id="L19692" class="LineNr">19692 </span> <span class="subxComment"># v = new var("n")</span> +<span id="L19693" class="LineNr">19693 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"n"</span> %eax) +<span id="L19694" class="LineNr">19694 </span> (<a href='mu.subx.html#L19727'>new-var</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *eax *(eax+4) %edx) +<span id="L19695" class="LineNr">19695 </span> <span class="subxComment">#</span> +<span id="L19696" class="LineNr">19696 </span> (<a href='203stack.subx.html#L114'>push</a> %ecx *edx) +<span id="L19697" class="LineNr">19697 </span> (<a href='203stack.subx.html#L114'>push</a> %ecx *(edx+4)) +<span id="L19698" class="LineNr">19698 </span> (<a href='203stack.subx.html#L114'>push</a> %ecx 0) +<span id="L19699" class="LineNr">19699 </span> <span class="subxComment"># var out/eax: (handle stmt)</span> +<span id="L19700" class="LineNr">19700 </span> 68/push 0/imm32 +<span id="L19701" class="LineNr">19701 </span> 68/push 0/imm32 +<span id="L19702" class="LineNr">19702 </span> 89/<- %eax 4/r32/esp +<span id="L19703" class="LineNr">19703 </span> <span class="subxComment"># convert</span> +<span id="L19704" class="LineNr">19704 </span> (<a href='mu.subx.html#L18765'>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="L19705" class="LineNr">19705 </span> <span class="subxComment"># var out-addr/edx: (addr stmt) = lookup(*out)</span> +<span id="L19706" class="LineNr">19706 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L19707" class="LineNr">19707 </span> 89/<- %edx 0/r32/eax +<span id="L19708" class="LineNr">19708 </span> <span class="subxComment"># out->tag</span> +<span id="L19709" class="LineNr">19709 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *edx 1 <span class="Constant">"F - <a href='mu.subx.html#L19669'>test-parse-mu-stmt-with-comma</a>/tag"</span>) <span class="subxComment"># Stmt-tag is Stmt1</span> +<span id="L19710" class="LineNr">19710 </span> <span class="subxComment"># out->operation</span> +<span id="L19711" class="LineNr">19711 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L19712" class="LineNr">19712 </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#L19669'>test-parse-mu-stmt-with-comma</a>/name"</span>) <span class="subxComment"># Stmt1-operation</span> +<span id="L19713" class="LineNr">19713 </span> <span class="subxComment"># out->inouts->value->name</span> +<span id="L19714" class="LineNr">19714 </span> <span class="subxS1Comment"># . eax = out->inouts</span> +<span id="L19715" class="LineNr">19715 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0xc) *(edx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L19716" class="LineNr">19716 </span> <span class="subxS1Comment"># . eax = out->inouts->value</span> +<span id="L19717" class="LineNr">19717 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L19718" class="LineNr">19718 </span> <span class="subxS1Comment"># . eax = out->inouts->value->name</span> +<span id="L19719" class="LineNr">19719 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L19720" class="LineNr">19720 </span> <span class="subxS1Comment"># .</span> +<span id="L19721" class="LineNr">19721 </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#L19669'>test-parse-mu-stmt-with-comma</a>/inout:0"</span>) +<span id="L19722" class="LineNr">19722 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19723" class="LineNr">19723 </span> 89/<- %esp 5/r32/ebp +<span id="L19724" class="LineNr">19724 </span> 5d/pop-to-ebp +<span id="L19725" class="LineNr">19725 </span> c3/return +<span id="L19726" class="LineNr">19726 </span> +<span id="L19727" class="LineNr">19727 </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="L19728" class="LineNr">19728 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19729" class="LineNr">19729 </span> 55/push-ebp +<span id="L19730" class="LineNr">19730 </span> 89/<- %ebp 4/r32/esp +<span id="L19731" class="LineNr">19731 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19732" class="LineNr">19732 </span> 50/push-eax +<span id="L19733" class="LineNr">19733 </span> 51/push-ecx +<span id="L19734" class="LineNr">19734 </span> <span class="subxComment"># ecx = out</span> +<span id="L19735" class="LineNr">19735 </span> 8b/-> *(ebp+0x14) 1/r32/ecx +<span id="L19736" class="LineNr">19736 </span> <span class="subxComment">#</span> +<span id="L19737" class="LineNr">19737 </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="L19738" class="LineNr">19738 </span> <span class="subxComment"># var out-addr/eax: (addr var)</span> +<span id="L19739" class="LineNr">19739 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> +<span id="L19740" class="LineNr">19740 </span> <span class="subxComment"># out-addr->name = name</span> +<span id="L19741" class="LineNr">19741 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L19742" class="LineNr">19742 </span> 89/<- *eax 1/r32/ecx <span class="subxComment"># Var-name</span> +<span id="L19743" class="LineNr">19743 </span> 8b/-> *(ebp+0x10) 1/r32/ecx +<span id="L19744" class="LineNr">19744 </span> 89/<- *(eax+4) 1/r32/ecx <span class="subxComment"># Var-name</span> +<span id="L19745" class="LineNr">19745 </span><span class="CommentedCode">#? (write-buffered Stderr "var ")</span> +<span id="L19746" class="LineNr">19746 </span><span class="CommentedCode">#? (lookup *(ebp+0xc) *(ebp+0x10))</span> +<span id="L19747" class="LineNr">19747 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L19748" class="LineNr">19748 </span><span class="CommentedCode">#? (write-buffered Stderr " at ")</span> +<span id="L19749" class="LineNr">19749 </span><span class="CommentedCode">#? 8b/-> *(ebp+0x14) 1/r32/ecx</span> +<span id="L19750" class="LineNr">19750 </span><span class="CommentedCode">#? (lookup *ecx *(ecx+4)) # => eax</span> +<span id="L19751" class="LineNr">19751 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L19752" class="LineNr">19752 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L19753" class="LineNr">19753 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L19754" class="LineNr">19754 </span><span class="Constant">$new-var:end</span>: +<span id="L19755" class="LineNr">19755 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19756" class="LineNr">19756 </span> 59/pop-to-ecx +<span id="L19757" class="LineNr">19757 </span> 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="subxComment"># WARNING: modifies name</span> +<span id="L19764" class="LineNr">19764 </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="L19765" class="LineNr">19765 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19766" class="LineNr">19766 </span> 55/push-ebp +<span id="L19767" class="LineNr">19767 </span> 89/<- %ebp 4/r32/esp +<span id="L19768" class="LineNr">19768 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19769" class="LineNr">19769 </span> 50/push-eax +<span id="L19770" class="LineNr">19770 </span> 51/push-ecx +<span id="L19771" class="LineNr">19771 </span> <span class="subxComment"># first strip out metadata</span> +<span id="L19772" class="LineNr">19772 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L19773" class="LineNr">19773 </span> (<a href='124next-token.subx.html#L163'>next-token-from-slice</a> *ecx *(ecx+4) 0x2f *(ebp+0xc)) +<span id="L19774" class="LineNr">19774 </span> <span class="subxComment"># if (!is-hex-int?(name)) abort</span> +<span id="L19775" class="LineNr">19775 </span> (<a href='118parse-hex-int.subx.html#L9'>hex-int?</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L19776" class="LineNr">19776 </span> 3d/compare-eax-and 0/imm32/false +<span id="L19777" class="LineNr">19777 </span> 0f 84/jump-if-= $new-literal-integer:abort/disp32 +<span id="L19778" class="LineNr">19778 </span> <span class="subxComment"># a little more error-checking</span> +<span id="L19779" class="LineNr">19779 </span> (<a href='mu.subx.html#L19819'>check-mu-hex-int</a> *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) +<span id="L19780" class="LineNr">19780 </span> <span class="subxComment"># out = new var(s)</span> +<span id="L19781" class="LineNr">19781 </span> (<a href='mu.subx.html#L19957'>new-var-from-slice</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10)) +<span id="L19782" class="LineNr">19782 </span> <span class="subxComment"># var out-addr/ecx: (addr var) = lookup(*out)</span> +<span id="L19783" class="LineNr">19783 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L19784" class="LineNr">19784 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L19785" class="LineNr">19785 </span> 89/<- %ecx 0/r32/eax +<span id="L19786" class="LineNr">19786 </span> <span class="subxComment"># out-addr->block-depth = *Curr-block-depth</span> +<span id="L19787" class="LineNr">19787 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span> 0/r32/eax +<span id="L19788" class="LineNr">19788 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> +<span id="L19789" class="LineNr">19789 </span> <span class="subxComment"># out-addr->type = new tree()</span> +<span id="L19790" class="LineNr">19790 </span> 8d/copy-address *(ecx+8) 0/r32/eax <span class="subxComment"># Var-type</span> +<span id="L19791" class="LineNr">19791 </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="L19792" class="LineNr">19792 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L19793" class="LineNr">19793 </span> c7 0/subop/copy *eax 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> +<span id="L19794" class="LineNr">19794 </span> <span class="subxComment"># nothing else to do; default type is 'literal'</span> +<span id="L19795" class="LineNr">19795 </span><span class="Constant">$new-literal-integer:end</span>: +<span id="L19796" class="LineNr">19796 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L19797" class="LineNr">19797 </span> 81 0/subop/add %esp 8/imm32 +<span id="L19798" class="LineNr">19798 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19799" class="LineNr">19799 </span> 59/pop-to-ecx +<span id="L19800" class="LineNr">19800 </span> 58/pop-to-eax +<span id="L19801" class="LineNr">19801 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19802" class="LineNr">19802 </span> 89/<- %esp 5/r32/ebp +<span id="L19803" class="LineNr">19803 </span> 5d/pop-to-ebp +<span id="L19804" class="LineNr">19804 </span> c3/return +<span id="L19805" class="LineNr">19805 </span> +<span id="L19806" class="LineNr">19806 </span><span class="Constant">$new-literal-integer:abort</span>: +<span id="L19807" class="LineNr">19807 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L19808" class="LineNr">19808 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L19809" class="LineNr">19809 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L19810" class="LineNr">19810 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L19811" class="LineNr">19811 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": variable '"</span>) +<span id="L19812" class="LineNr">19812 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) *(ebp+0xc)) +<span id="L19813" class="LineNr">19813 </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="L19814" class="LineNr">19814 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L19815" class="LineNr">19815 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L19816" class="LineNr">19816 </span> <span class="subxComment"># never gets here</span> +<span id="L19817" class="LineNr">19817 </span> +<span id="L19818" class="LineNr">19818 </span><span class="subxComment"># precondition: name is a valid hex integer; require a '0x' prefix</span> +<span id="L19819" class="LineNr">19819 </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="L19820" class="LineNr">19820 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19821" class="LineNr">19821 </span> 55/push-ebp +<span id="L19822" class="LineNr">19822 </span> 89/<- %ebp 4/r32/esp +<span id="L19823" class="LineNr">19823 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19824" class="LineNr">19824 </span> 50/push-eax +<span id="L19825" class="LineNr">19825 </span> 51/push-ecx +<span id="L19826" class="LineNr">19826 </span> 52/push-edx +<span id="L19827" class="LineNr">19827 </span> <span class="subxComment"># ecx = name</span> +<span id="L19828" class="LineNr">19828 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L19829" class="LineNr">19829 </span> <span class="subxComment"># var start/edx: (addr byte) = name->start</span> +<span id="L19830" class="LineNr">19830 </span> 8b/-> *ecx 2/r32/edx +<span id="L19831" class="LineNr">19831 </span> <span class="subxComment"># if (*start == '-') ++start</span> +<span id="L19832" class="LineNr">19832 </span> b8/copy-to-eax 0/imm32 +<span id="L19833" class="LineNr">19833 </span> 8a/copy-byte *edx 0/r32/AL +<span id="L19834" class="LineNr">19834 </span> 3d/compare-eax-and 0x2d/imm32/dash +<span id="L19835" class="LineNr">19835 </span> { +<span id="L19836" class="LineNr">19836 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L19837" class="LineNr">19837 </span> 42/increment-edx +<span id="L19838" class="LineNr">19838 </span> } +<span id="L19839" class="LineNr">19839 </span> <span class="subxComment"># var end/ecx: (addr byte) = name->end</span> +<span id="L19840" class="LineNr">19840 </span> 8b/-> *(ecx+4) 1/r32/ecx +<span id="L19841" class="LineNr">19841 </span> <span class="subxComment"># var len/eax: int = name->end - name->start</span> +<span id="L19842" class="LineNr">19842 </span> 89/<- %eax 1/r32/ecx +<span id="L19843" class="LineNr">19843 </span> 29/subtract-from %eax 2/r32/edx +<span id="L19844" class="LineNr">19844 </span> <span class="subxComment"># if (len <= 1) return</span> +<span id="L19845" class="LineNr">19845 </span> 3d/compare-eax-with 1/imm32 +<span id="L19846" class="LineNr">19846 </span> 0f 8e/jump-if-<= $check-mu-hex-int:end/disp32 +<span id="L19847" class="LineNr">19847 </span><span class="Constant">$check-mu-hex-int:length->-1</span>: +<span id="L19848" class="LineNr">19848 </span> <span class="subxComment"># if slice-starts-with?({start, end}, "0x") return</span> +<span id="L19849" class="LineNr">19849 </span> <span class="subxS1Comment"># . var tmp = {start, end}</span> +<span id="L19850" class="LineNr">19850 </span> 51/push-ecx +<span id="L19851" class="LineNr">19851 </span> 52/push-edx +<span id="L19852" class="LineNr">19852 </span> 89/<- %eax 4/r32/esp +<span id="L19853" class="LineNr">19853 </span> <span class="subxS1Comment"># .</span> +<span id="L19854" class="LineNr">19854 </span> (<a href='123slice.subx.html#L487'>slice-starts-with?</a> %eax <span class="Constant">"0x"</span>) <span class="subxComment"># => eax</span> +<span id="L19855" class="LineNr">19855 </span> <span class="subxS1Comment"># . reclaim tmp</span> +<span id="L19856" class="LineNr">19856 </span> 81 0/subop/add %esp 8/imm32 +<span id="L19857" class="LineNr">19857 </span> <span class="subxS1Comment"># .</span> +<span id="L19858" class="LineNr">19858 </span> 3d/compare-eax-with 0/imm32/false +<span id="L19859" class="LineNr">19859 </span> 75/jump-if-!= $check-mu-hex-int:end/disp8 +<span id="L19860" class="LineNr">19860 </span><span class="Constant">$check-mu-hex-int:abort</span>: +<span id="L19861" class="LineNr">19861 </span> <span class="subxComment"># otherwise abort</span> +<span id="L19862" class="LineNr">19862 </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="L19863" class="LineNr">19863 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0xc) *(ebp+8)) +<span id="L19864" class="LineNr">19864 </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="L19865" class="LineNr">19865 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L19866" class="LineNr">19866 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) +<span id="L19867" class="LineNr">19867 </span><span class="Constant">$check-mu-hex-int:end</span>: +<span id="L19868" class="LineNr">19868 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19869" class="LineNr">19869 </span> 5a/pop-to-edx +<span id="L19870" class="LineNr">19870 </span> 59/pop-to-ecx +<span id="L19871" class="LineNr">19871 </span> 58/pop-to-eax +<span id="L19872" class="LineNr">19872 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19873" class="LineNr">19873 </span> 89/<- %esp 5/r32/ebp +<span id="L19874" class="LineNr">19874 </span> 5d/pop-to-ebp +<span id="L19875" class="LineNr">19875 </span> c3/return +<span id="L19876" class="LineNr">19876 </span> +<span id="L19877" class="LineNr">19877 </span><span class="subxFunction">new-literal</span>: <span class="subxComment"># ad: (addr allocation-descriptor), name: (addr slice), out: (addr handle var)</span> +<span id="L19878" class="LineNr">19878 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19879" class="LineNr">19879 </span> 55/push-ebp +<span id="L19880" class="LineNr">19880 </span> 89/<- %ebp 4/r32/esp +<span id="L19881" class="LineNr">19881 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19882" class="LineNr">19882 </span> 50/push-eax +<span id="L19883" class="LineNr">19883 </span> 51/push-ecx +<span id="L19884" class="LineNr">19884 </span> <span class="subxComment"># var s/ecx: (handle array byte)</span> +<span id="L19885" class="LineNr">19885 </span> 68/push 0/imm32 +<span id="L19886" class="LineNr">19886 </span> 68/push 0/imm32 +<span id="L19887" class="LineNr">19887 </span> 89/<- %ecx 4/r32/esp +<span id="L19888" class="LineNr">19888 </span> <span class="subxComment"># s = slice-to-string(name)</span> +<span id="L19889" class="LineNr">19889 </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="L19890" class="LineNr">19890 </span> <span class="subxComment"># allocate to out</span> +<span id="L19891" class="LineNr">19891 </span> (<a href='mu.subx.html#L19727'>new-var</a> *(ebp+8) *ecx *(ecx+4) *(ebp+0x10)) +<span id="L19892" class="LineNr">19892 </span> <span class="subxComment"># var out-addr/ecx: (addr var) = lookup(*out)</span> +<span id="L19893" class="LineNr">19893 </span> 8b/-> *(ebp+0x10) 1/r32/ecx +<span id="L19894" class="LineNr">19894 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> +<span id="L19895" class="LineNr">19895 </span> 89/<- %ecx 0/r32/eax +<span id="L19896" class="LineNr">19896 </span> <span class="subxComment"># out-addr->block-depth = *Curr-block-depth</span> +<span id="L19897" class="LineNr">19897 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span> 0/r32/eax +<span id="L19898" class="LineNr">19898 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> +<span id="L19899" class="LineNr">19899 </span> <span class="subxComment"># out-addr->type/eax = new type</span> +<span id="L19900" class="LineNr">19900 </span> 8d/copy-address *(ecx+8) 0/r32/eax <span class="subxComment"># Var-type</span> +<span id="L19901" class="LineNr">19901 </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="L19902" class="LineNr">19902 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L19903" class="LineNr">19903 </span> <span class="subxComment"># nothing else to do; default type is 'literal'</span> +<span id="L19904" class="LineNr">19904 </span> c7 0/subop/copy *eax 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> +<span id="L19905" class="LineNr">19905 </span><span class="Constant">$new-literal:end</span>: +<span id="L19906" class="LineNr">19906 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L19907" class="LineNr">19907 </span> 81 0/subop/add %esp 8/imm32 +<span id="L19908" class="LineNr">19908 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19909" class="LineNr">19909 </span> 59/pop-to-ecx +<span id="L19910" class="LineNr">19910 </span> 58/pop-to-eax +<span id="L19911" class="LineNr">19911 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19912" class="LineNr">19912 </span> 89/<- %esp 5/r32/ebp +<span id="L19913" class="LineNr">19913 </span> 5d/pop-to-ebp +<span id="L19914" class="LineNr">19914 </span> c3/return +<span id="L19915" class="LineNr">19915 </span> +<span id="L19916" class="LineNr">19916 </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="L19917" class="LineNr">19917 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19918" class="LineNr">19918 </span> 55/push-ebp +<span id="L19919" class="LineNr">19919 </span> 89/<- %ebp 4/r32/esp +<span id="L19920" class="LineNr">19920 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19921" class="LineNr">19921 </span> 50/push-eax +<span id="L19922" class="LineNr">19922 </span> 51/push-ecx +<span id="L19923" class="LineNr">19923 </span> <span class="subxComment"># var s/ecx: (handle array byte)</span> +<span id="L19924" class="LineNr">19924 </span> 68/push 0/imm32 +<span id="L19925" class="LineNr">19925 </span> 68/push 0/imm32 +<span id="L19926" class="LineNr">19926 </span> 89/<- %ecx 4/r32/esp +<span id="L19927" class="LineNr">19927 </span> <span class="subxComment"># s = slice-to-string(name)</span> +<span id="L19928" class="LineNr">19928 </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="L19929" class="LineNr">19929 </span> <span class="subxComment"># allocate to out</span> +<span id="L19930" class="LineNr">19930 </span> (<a href='mu.subx.html#L19727'>new-var</a> *(ebp+8) *ecx *(ecx+4) *(ebp+0x10)) +<span id="L19931" class="LineNr">19931 </span> <span class="subxComment"># var out-addr/ecx: (addr var) = lookup(*out)</span> +<span id="L19932" class="LineNr">19932 </span> 8b/-> *(ebp+0x10) 1/r32/ecx +<span id="L19933" class="LineNr">19933 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> +<span id="L19934" class="LineNr">19934 </span> 89/<- %ecx 0/r32/eax +<span id="L19935" class="LineNr">19935 </span> <span class="subxComment"># out-addr->block-depth = *Curr-block-depth</span> +<span id="L19936" class="LineNr">19936 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span> 0/r32/eax +<span id="L19937" class="LineNr">19937 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> +<span id="L19938" class="LineNr">19938 </span> <span class="subxComment"># out-addr->type/eax = new type</span> +<span id="L19939" class="LineNr">19939 </span> 8d/copy-address *(ecx+8) 0/r32/eax <span class="subxComment"># Var-type</span> +<span id="L19940" class="LineNr">19940 </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="L19941" class="LineNr">19941 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L19942" class="LineNr">19942 </span> <span class="subxComment"># out-addr->type->value = literal-string</span> +<span id="L19943" class="LineNr">19943 </span> c7 0/subop/copy *(eax+4) 0x10/imm32/type-id-string-literal <span class="subxComment"># Type-tree-value</span> +<span id="L19944" class="LineNr">19944 </span> <span class="subxComment"># out-addr->type->is-atom? = true</span> +<span id="L19945" class="LineNr">19945 </span> c7 0/subop/copy *eax 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> +<span id="L19946" class="LineNr">19946 </span><span class="Constant">$new-literal-string:end</span>: +<span id="L19947" class="LineNr">19947 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L19948" class="LineNr">19948 </span> 81 0/subop/add %esp 8/imm32 +<span id="L19949" class="LineNr">19949 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19950" class="LineNr">19950 </span> 59/pop-to-ecx +<span id="L19951" class="LineNr">19951 </span> 58/pop-to-eax +<span id="L19952" class="LineNr">19952 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19953" class="LineNr">19953 </span> 89/<- %esp 5/r32/ebp +<span id="L19954" class="LineNr">19954 </span> 5d/pop-to-ebp +<span id="L19955" class="LineNr">19955 </span> c3/return +<span id="L19956" class="LineNr">19956 </span> +<span id="L19957" class="LineNr">19957 </span><span class="subxFunction">new-var-from-slice</span>: <span class="subxComment"># ad: (addr allocation-descriptor), name: (addr slice), out: (addr handle var)</span> +<span id="L19958" class="LineNr">19958 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19959" class="LineNr">19959 </span> 55/push-ebp +<span id="L19960" class="LineNr">19960 </span> 89/<- %ebp 4/r32/esp +<span id="L19961" class="LineNr">19961 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19962" class="LineNr">19962 </span> 51/push-ecx +<span id="L19963" class="LineNr">19963 </span> <span class="subxComment"># var tmp/ecx: (handle array byte)</span> +<span id="L19964" class="LineNr">19964 </span> 68/push 0/imm32 +<span id="L19965" class="LineNr">19965 </span> 68/push 0/imm32 +<span id="L19966" class="LineNr">19966 </span> 89/<- %ecx 4/r32/esp +<span id="L19967" class="LineNr">19967 </span> <span class="subxComment"># tmp = slice-to-string(name)</span> +<span id="L19968" class="LineNr">19968 </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="L19969" class="LineNr">19969 </span> <span class="subxComment"># out = new-var(tmp)</span> +<span id="L19970" class="LineNr">19970 </span> (<a href='mu.subx.html#L19727'>new-var</a> *(ebp+8) *ecx *(ecx+4) *(ebp+0x10)) +<span id="L19971" class="LineNr">19971 </span><span class="Constant">$new-var-from-slice:end</span>: +<span id="L19972" class="LineNr">19972 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L19973" class="LineNr">19973 </span> 81 0/subop/add %esp 8/imm32 +<span id="L19974" class="LineNr">19974 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19975" class="LineNr">19975 </span> 59/pop-to-ecx +<span id="L19976" class="LineNr">19976 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19977" class="LineNr">19977 </span> 89/<- %esp 5/r32/ebp +<span id="L19978" class="LineNr">19978 </span> 5d/pop-to-ebp +<span id="L19979" class="LineNr">19979 </span> c3/return +<span id="L19980" class="LineNr">19980 </span> +<span id="L19981" class="LineNr">19981 </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="L19982" class="LineNr">19982 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19983" class="LineNr">19983 </span> 55/push-ebp +<span id="L19984" class="LineNr">19984 </span> 89/<- %ebp 4/r32/esp +<span id="L19985" class="LineNr">19985 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19986" class="LineNr">19986 </span> 50/push-eax +<span id="L19987" class="LineNr">19987 </span> 51/push-ecx +<span id="L19988" class="LineNr">19988 </span> <span class="subxComment">#</span> +<span id="L19989" class="LineNr">19989 </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="L19990" class="LineNr">19990 </span> <span class="subxComment"># var out-addr/eax: (addr stmt) = lookup(*out)</span> +<span id="L19991" class="LineNr">19991 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L19992" class="LineNr">19992 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L19993" class="LineNr">19993 </span> <span class="subxComment"># out-addr->tag = stmt</span> +<span id="L19994" class="LineNr">19994 </span> c7 0/subop/copy *eax 2/imm32/tag/var-on-stack <span class="subxComment"># Stmt-tag</span> +<span id="L19995" class="LineNr">19995 </span> <span class="subxComment"># result->var = var</span> +<span id="L19996" class="LineNr">19996 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L19997" class="LineNr">19997 </span> 89/<- *(eax+4) 1/r32/ecx <span class="subxComment"># Vardef-var</span> +<span id="L19998" class="LineNr">19998 </span> 8b/-> *(ebp+0x10) 1/r32/ecx +<span id="L19999" class="LineNr">19999 </span> 89/<- *(eax+8) 1/r32/ecx <span class="subxComment"># Vardef-var</span> +<span id="L20000" class="LineNr">20000 </span><span class="Constant">$new-var-def:end</span>: +<span id="L20001" class="LineNr">20001 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20002" class="LineNr">20002 </span> 59/pop-to-ecx +<span id="L20003" class="LineNr">20003 </span> 58/pop-to-eax +<span id="L20004" class="LineNr">20004 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20005" class="LineNr">20005 </span> 89/<- %esp 5/r32/ebp +<span id="L20006" class="LineNr">20006 </span> 5d/pop-to-ebp +<span id="L20007" class="LineNr">20007 </span> c3/return +<span id="L20008" class="LineNr">20008 </span> +<span id="L20009" class="LineNr">20009 </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="L20010" class="LineNr">20010 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20011" class="LineNr">20011 </span> 55/push-ebp +<span id="L20012" class="LineNr">20012 </span> 89/<- %ebp 4/r32/esp +<span id="L20013" class="LineNr">20013 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20014" class="LineNr">20014 </span> 50/push-eax +<span id="L20015" class="LineNr">20015 </span> <span class="subxComment"># eax = out</span> +<span id="L20016" class="LineNr">20016 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L20017" class="LineNr">20017 </span> <span class="subxComment">#</span> +<span id="L20018" class="LineNr">20018 </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="L20019" class="LineNr">20019 </span> <span class="subxComment"># var out-addr/eax: (addr stmt) = lookup(*out)</span> +<span id="L20020" class="LineNr">20020 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L20021" class="LineNr">20021 </span> <span class="subxComment"># set tag</span> +<span id="L20022" class="LineNr">20022 </span> c7 0/subop/copy *eax 3/imm32/tag/var-in-register <span class="subxComment"># Stmt-tag</span> +<span id="L20023" class="LineNr">20023 </span> <span class="subxComment"># set output</span> +<span id="L20024" class="LineNr">20024 </span> 8d/copy-address *(eax+0x14) 0/r32/eax <span class="subxComment"># Regvardef-outputs</span> +<span id="L20025" class="LineNr">20025 </span> (<a href='mu.subx.html#L20092'>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="L20026" class="LineNr">20026 </span><span class="Constant">$new-reg-var-def:end</span>: +<span id="L20027" class="LineNr">20027 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20028" class="LineNr">20028 </span> 58/pop-to-eax +<span id="L20029" class="LineNr">20029 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20030" class="LineNr">20030 </span> 89/<- %esp 5/r32/ebp +<span id="L20031" class="LineNr">20031 </span> 5d/pop-to-ebp +<span id="L20032" class="LineNr">20032 </span> c3/return +<span id="L20033" class="LineNr">20033 </span> +<span id="L20034" class="LineNr">20034 </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="L20035" class="LineNr">20035 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20036" class="LineNr">20036 </span> 55/push-ebp +<span id="L20037" class="LineNr">20037 </span> 89/<- %ebp 4/r32/esp +<span id="L20038" class="LineNr">20038 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20039" class="LineNr">20039 </span> 50/push-eax +<span id="L20040" class="LineNr">20040 </span> 51/push-ecx +<span id="L20041" class="LineNr">20041 </span> 57/push-edi +<span id="L20042" class="LineNr">20042 </span> <span class="subxComment"># edi = out</span> +<span id="L20043" class="LineNr">20043 </span> 8b/-> *(ebp+0x1c) 7/r32/edi +<span id="L20044" class="LineNr">20044 </span> <span class="subxComment"># *out = new list</span> +<span id="L20045" class="LineNr">20045 </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="L20046" class="LineNr">20046 </span> <span class="subxComment"># var out-addr/edi: (addr list _type) = lookup(*out)</span> +<span id="L20047" class="LineNr">20047 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L20048" class="LineNr">20048 </span> 89/<- %edi 0/r32/eax +<span id="L20049" class="LineNr">20049 </span> <span class="subxComment"># out-addr->value = value</span> +<span id="L20050" class="LineNr">20050 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L20051" class="LineNr">20051 </span> 89/<- *edi 0/r32/eax <span class="subxComment"># List-value</span> +<span id="L20052" class="LineNr">20052 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L20053" class="LineNr">20053 </span> 89/<- *(edi+4) 0/r32/eax <span class="subxComment"># List-value</span> +<span id="L20054" class="LineNr">20054 </span> <span class="subxComment"># if (list == null) return</span> +<span id="L20055" class="LineNr">20055 </span> 81 7/subop/compare *(ebp+0x14) 0/imm32 +<span id="L20056" class="LineNr">20056 </span> 74/jump-if-= $append-list:end/disp8 +<span id="L20057" class="LineNr">20057 </span> <span class="subxComment"># otherwise append</span> +<span id="L20058" class="LineNr">20058 </span><span class="Constant">$append-list:non-empty-list</span>: +<span id="L20059" class="LineNr">20059 </span> <span class="subxComment"># var curr/eax: (addr list _type) = lookup(list)</span> +<span id="L20060" class="LineNr">20060 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> +<span id="L20061" class="LineNr">20061 </span> <span class="subxComment"># while (curr->next != null) curr = curr->next</span> +<span id="L20062" class="LineNr">20062 </span> { +<span id="L20063" class="LineNr">20063 </span> 81 7/subop/compare *(eax+8) 0/imm32 <span class="subxComment"># List-next</span> +<span id="L20064" class="LineNr">20064 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20065" class="LineNr">20065 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L20066" class="LineNr">20066 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># List-next, List-next => eax</span> +<span id="L20067" class="LineNr">20067 </span> <span class="subxComment">#</span> +<span id="L20068" class="LineNr">20068 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L20069" class="LineNr">20069 </span> } +<span id="L20070" class="LineNr">20070 </span> <span class="subxComment"># edi = out</span> +<span id="L20071" class="LineNr">20071 </span> 8b/-> *(ebp+0x1c) 7/r32/edi +<span id="L20072" class="LineNr">20072 </span> <span class="subxComment"># curr->next = out</span> +<span id="L20073" class="LineNr">20073 </span> 8b/-> *edi 1/r32/ecx +<span id="L20074" class="LineNr">20074 </span> 89/<- *(eax+8) 1/r32/ecx <span class="subxComment"># List-next</span> +<span id="L20075" class="LineNr">20075 </span> 8b/-> *(edi+4) 1/r32/ecx +<span id="L20076" class="LineNr">20076 </span> 89/<- *(eax+0xc) 1/r32/ecx <span class="subxComment"># List-next</span> +<span id="L20077" class="LineNr">20077 </span> <span class="subxComment"># out = list</span> +<span id="L20078" class="LineNr">20078 </span> 8b/-> *(ebp+0x14) 1/r32/ecx +<span id="L20079" class="LineNr">20079 </span> 89/<- *edi 1/r32/ecx +<span id="L20080" class="LineNr">20080 </span> 8b/-> *(ebp+0x18) 1/r32/ecx +<span id="L20081" class="LineNr">20081 </span> 89/<- *(edi+4) 1/r32/ecx +<span id="L20082" class="LineNr">20082 </span><span class="Constant">$append-list:end</span>: +<span id="L20083" class="LineNr">20083 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20084" class="LineNr">20084 </span> 5f/pop-to-edi +<span id="L20085" class="LineNr">20085 </span> 59/pop-to-ecx +<span id="L20086" class="LineNr">20086 </span> 58/pop-to-eax +<span id="L20087" class="LineNr">20087 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20088" class="LineNr">20088 </span> 89/<- %esp 5/r32/ebp +<span id="L20089" class="LineNr">20089 </span> 5d/pop-to-ebp +<span id="L20090" class="LineNr">20090 </span> c3/return +<span id="L20091" class="LineNr">20091 </span> +<span id="L20092" class="LineNr">20092 </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="L20093" class="LineNr">20093 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20094" class="LineNr">20094 </span> 55/push-ebp +<span id="L20095" class="LineNr">20095 </span> 89/<- %ebp 4/r32/esp +<span id="L20096" class="LineNr">20096 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20097" class="LineNr">20097 </span> 50/push-eax +<span id="L20098" class="LineNr">20098 </span> 51/push-ecx +<span id="L20099" class="LineNr">20099 </span> 57/push-edi +<span id="L20100" class="LineNr">20100 </span> <span class="subxComment"># edi = out</span> +<span id="L20101" class="LineNr">20101 </span> 8b/-> *(ebp+0x20) 7/r32/edi +<span id="L20102" class="LineNr">20102 </span> <span class="subxComment"># out = new stmt-var</span> +<span id="L20103" class="LineNr">20103 </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="L20104" class="LineNr">20104 </span> <span class="subxComment"># var out-addr/ecx: (addr stmt-var) = lookup(*out)</span> +<span id="L20105" class="LineNr">20105 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L20106" class="LineNr">20106 </span> 89/<- %ecx 0/r32/eax +<span id="L20107" class="LineNr">20107 </span> <span class="subxComment"># out-addr->value = v</span> +<span id="L20108" class="LineNr">20108 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L20109" class="LineNr">20109 </span> 89/<- *ecx 0/r32/eax <span class="subxComment"># Stmt-var-value</span> +<span id="L20110" class="LineNr">20110 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L20111" class="LineNr">20111 </span> 89/<- *(ecx+4) 0/r32/eax <span class="subxComment"># Stmt-var-value</span> +<span id="L20112" class="LineNr">20112 </span> <span class="subxComment"># out-addr->is-deref? = is-deref?</span> +<span id="L20113" class="LineNr">20113 </span> 8b/-> *(ebp+0x1c) 0/r32/eax +<span id="L20114" class="LineNr">20114 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L20115" class="LineNr">20115 </span> <span class="subxComment"># if (vars == null) return result</span> +<span id="L20116" class="LineNr">20116 </span> 81 7/subop/compare *(ebp+0x14) 0/imm32/null +<span id="L20117" class="LineNr">20117 </span> 74/jump-if-= $append-stmt-var:end/disp8 +<span id="L20118" class="LineNr">20118 </span> <span class="subxComment"># otherwise append</span> +<span id="L20119" class="LineNr">20119 </span> <span class="subxComment"># var curr/eax: (addr stmt-var) = lookup(vars)</span> +<span id="L20120" class="LineNr">20120 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> +<span id="L20121" class="LineNr">20121 </span> <span class="subxComment"># while (curr->next != null) curr = curr->next</span> +<span id="L20122" class="LineNr">20122 </span> { +<span id="L20123" class="LineNr">20123 </span> 81 7/subop/compare *(eax+8) 0/imm32 <span class="subxComment"># Stmt-var-next</span> +<span id="L20124" class="LineNr">20124 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20125" class="LineNr">20125 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L20126" class="LineNr">20126 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next, Stmt-var-next => eax</span> +<span id="L20127" class="LineNr">20127 </span> <span class="subxComment">#</span> +<span id="L20128" class="LineNr">20128 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L20129" class="LineNr">20129 </span> } +<span id="L20130" class="LineNr">20130 </span> <span class="subxComment"># curr->next = out</span> +<span id="L20131" class="LineNr">20131 </span> 8b/-> *edi 1/r32/ecx +<span id="L20132" class="LineNr">20132 </span> 89/<- *(eax+8) 1/r32/ecx <span class="subxComment"># Stmt-var-next</span> +<span id="L20133" class="LineNr">20133 </span> 8b/-> *(edi+4) 1/r32/ecx +<span id="L20134" class="LineNr">20134 </span> 89/<- *(eax+0xc) 1/r32/ecx <span class="subxComment"># Stmt-var-next</span> +<span id="L20135" class="LineNr">20135 </span> <span class="subxComment"># out = vars</span> +<span id="L20136" class="LineNr">20136 </span> 8b/-> *(ebp+0x14) 1/r32/ecx +<span id="L20137" class="LineNr">20137 </span> 89/<- *edi 1/r32/ecx +<span id="L20138" class="LineNr">20138 </span> 8b/-> *(ebp+0x18) 1/r32/ecx +<span id="L20139" class="LineNr">20139 </span> 89/<- *(edi+4) 1/r32/ecx +<span id="L20140" class="LineNr">20140 </span><span class="Constant">$append-stmt-var:end</span>: <span id="L20141" class="LineNr">20141 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20142" class="LineNr">20142 </span> 5e/pop-to-esi -<span id="L20143" class="LineNr">20143 </span> 58/pop-to-eax -<span id="L20144" class="LineNr">20144 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20145" class="LineNr">20145 </span> 89/<- %esp 5/r32/ebp -<span id="L20146" class="LineNr">20146 </span> 5d/pop-to-ebp -<span id="L20147" class="LineNr">20147 </span> c3/return -<span id="L20148" class="LineNr">20148 </span> -<span id="L20149" class="LineNr">20149 </span><span class="subxComment">## Parsing types</span> -<span id="L20150" class="LineNr">20150 </span><span class="subxComment"># We need to create metadata on user-defined types, and we need to use this</span> -<span id="L20151" class="LineNr">20151 </span><span class="subxComment"># metadata as we parse instructions.</span> -<span id="L20152" class="LineNr">20152 </span><span class="subxComment"># However, we also want to allow types to be used before their definitions.</span> -<span id="L20153" class="LineNr">20153 </span><span class="subxComment"># This means we can't ever assume any type data structures exist.</span> -<span id="L20154" class="LineNr">20154 </span> -<span id="L20155" class="LineNr">20155 </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="L20156" class="LineNr">20156 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20157" class="LineNr">20157 </span> 55/push-ebp -<span id="L20158" class="LineNr">20158 </span> 89/<- %ebp 4/r32/esp -<span id="L20159" class="LineNr">20159 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20160" class="LineNr">20160 </span> 50/push-eax -<span id="L20161" class="LineNr">20161 </span> 56/push-esi -<span id="L20162" class="LineNr">20162 </span> <span class="subxComment"># var container-type/esi: type-id</span> -<span id="L20163" class="LineNr">20163 </span> (<a href='mu.subx.html#L20206'>container-type</a> *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L20164" class="LineNr">20164 </span> 89/<- %esi 0/r32/eax -<span id="L20165" class="LineNr">20165 </span> <span class="subxComment"># var tmp/eax: (handle typeinfo) = find-or-create-typeinfo(container-type)</span> -<span id="L20166" class="LineNr">20166 </span> 68/push 0/imm32 -<span id="L20167" class="LineNr">20167 </span> 68/push 0/imm32 -<span id="L20168" class="LineNr">20168 </span> 89/<- %eax 4/r32/esp -<span id="L20169" class="LineNr">20169 </span> (<a href='mu.subx.html#L20243'>find-or-create-typeinfo</a> %esi %eax) -<span id="L20170" class="LineNr">20170 </span> <span class="subxComment"># var tmp-addr/eax: (addr typeinfo) = lookup(tmp)</span> -<span id="L20171" class="LineNr">20171 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L20172" class="LineNr">20172 </span> <span class="subxComment"># result = find-or-create-typeinfo-output-var(typeinfo, field-name)</span> -<span id="L20173" class="LineNr">20173 </span><span class="CommentedCode">#? (write-buffered Stderr "constant: ")</span> -<span id="L20174" class="LineNr">20174 </span><span class="CommentedCode">#? (write-slice-buffered Stderr *(ebp+0xc))</span> -<span id="L20175" class="LineNr">20175 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L20176" class="LineNr">20176 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L20177" class="LineNr">20177 </span> (<a href='mu.subx.html#L20359'>find-or-create-typeinfo-output-var</a> %eax *(ebp+0xc) *(ebp+0x10)) -<span id="L20178" class="LineNr">20178 </span><span class="CommentedCode">#? 8b/-> *(ebp+0x10) 0/r32/eax</span> -<span id="L20179" class="LineNr">20179 </span><span class="CommentedCode">#? (write-buffered Stderr "@")</span> -<span id="L20180" class="LineNr">20180 </span><span class="CommentedCode">#? (lookup *eax *(eax+4))</span> -<span id="L20181" class="LineNr">20181 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L20182" class="LineNr">20182 </span><span class="CommentedCode">#? (lookup *eax *(eax+4))</span> -<span id="L20183" class="LineNr">20183 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L20184" class="LineNr">20184 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L20185" class="LineNr">20185 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L20186" class="LineNr">20186 </span><span class="CommentedCode">#? (write-buffered Stderr "offset: ")</span> -<span id="L20187" class="LineNr">20187 </span><span class="CommentedCode">#? 8b/-> *(eax+0x14) 0/r32/eax</span> -<span id="L20188" class="LineNr">20188 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L20189" class="LineNr">20189 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L20190" class="LineNr">20190 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L20191" class="LineNr">20191 </span><span class="Constant">$lookup-or-create-constant:end</span>: -<span id="L20192" class="LineNr">20192 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L20193" class="LineNr">20193 </span> 81 0/subop/add %esp 8/imm32 -<span id="L20194" class="LineNr">20194 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20195" class="LineNr">20195 </span> 5e/pop-to-esi -<span id="L20196" class="LineNr">20196 </span> 58/pop-to-eax -<span id="L20197" class="LineNr">20197 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20198" class="LineNr">20198 </span> 89/<- %esp 5/r32/ebp -<span id="L20199" class="LineNr">20199 </span> 5d/pop-to-ebp -<span id="L20200" class="LineNr">20200 </span> c3/return -<span id="L20201" class="LineNr">20201 </span> -<span id="L20202" class="LineNr">20202 </span><span class="subxComment"># if addr var:</span> -<span id="L20203" class="LineNr">20203 </span><span class="subxComment"># container->var->type->right->left->value</span> -<span id="L20204" class="LineNr">20204 </span><span class="subxComment"># otherwise</span> -<span id="L20205" class="LineNr">20205 </span><span class="subxComment"># container->var->type->value</span> -<span id="L20206" class="LineNr">20206 </span><span class="subxFunction">container-type</span>: <span class="subxComment"># container: (addr stmt-var) -> result/eax: type-id</span> -<span id="L20207" class="LineNr">20207 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20208" class="LineNr">20208 </span> 55/push-ebp -<span id="L20209" class="LineNr">20209 </span> 89/<- %ebp 4/r32/esp -<span id="L20210" class="LineNr">20210 </span> <span class="subxComment">#</span> -<span id="L20211" class="LineNr">20211 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L20212" class="LineNr">20212 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L20213" class="LineNr">20213 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L20214" class="LineNr">20214 </span> { -<span id="L20215" class="LineNr">20215 </span> 81 7/subop/compare *(eax+8) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L20216" class="LineNr">20216 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20217" class="LineNr">20217 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L20218" class="LineNr">20218 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L20219" class="LineNr">20219 </span> } -<span id="L20220" class="LineNr">20220 </span> 8b/-> *(eax+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> -<span id="L20221" class="LineNr">20221 </span><span class="Constant">$container-type:end</span>: -<span id="L20222" class="LineNr">20222 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20223" class="LineNr">20223 </span> 89/<- %esp 5/r32/ebp -<span id="L20224" class="LineNr">20224 </span> 5d/pop-to-ebp -<span id="L20225" class="LineNr">20225 </span> c3/return -<span id="L20226" class="LineNr">20226 </span> -<span id="L20227" class="LineNr">20227 </span><span class="subxFunction">container?</span>: <span class="subxComment"># t: type-id -> result/eax: boolean</span> -<span id="L20228" class="LineNr">20228 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20229" class="LineNr">20229 </span> 55/push-ebp -<span id="L20230" class="LineNr">20230 </span> 89/<- %ebp 4/r32/esp -<span id="L20231" class="LineNr">20231 </span> <span class="subxComment">#</span> -<span id="L20232" class="LineNr">20232 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L20233" class="LineNr">20233 </span> c1/shift 4/subop/left %eax 2/imm8 -<span id="L20234" class="LineNr">20234 </span> 3b/compare 0/r32/eax *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> -<span id="L20235" class="LineNr">20235 </span> 0f 9d/set-if->= %al -<span id="L20236" class="LineNr">20236 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L20237" class="LineNr">20237 </span><span class="Constant">$container?:end</span>: -<span id="L20238" class="LineNr">20238 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20239" class="LineNr">20239 </span> 89/<- %esp 5/r32/ebp -<span id="L20240" class="LineNr">20240 </span> 5d/pop-to-ebp -<span id="L20241" class="LineNr">20241 </span> c3/return -<span id="L20242" class="LineNr">20242 </span> -<span id="L20243" class="LineNr">20243 </span><span class="subxFunction">find-or-create-typeinfo</span>: <span class="subxComment"># t: type-id, out: (addr handle typeinfo)</span> -<span id="L20244" class="LineNr">20244 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20245" class="LineNr">20245 </span> 55/push-ebp -<span id="L20246" class="LineNr">20246 </span> 89/<- %ebp 4/r32/esp -<span id="L20247" class="LineNr">20247 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20248" class="LineNr">20248 </span> 50/push-eax -<span id="L20249" class="LineNr">20249 </span> 51/push-ecx -<span id="L20250" class="LineNr">20250 </span> 52/push-edx -<span id="L20251" class="LineNr">20251 </span> 57/push-edi -<span id="L20252" class="LineNr">20252 </span> <span class="subxComment"># edi = out</span> -<span id="L20253" class="LineNr">20253 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L20254" class="LineNr">20254 </span> <span class="subxComment"># var fields/ecx: (handle table (handle array byte) (handle typeinfo-entry))</span> -<span id="L20255" class="LineNr">20255 </span> 68/push 0/imm32 -<span id="L20256" class="LineNr">20256 </span> 68/push 0/imm32 -<span id="L20257" class="LineNr">20257 </span> 89/<- %ecx 4/r32/esp -<span id="L20258" class="LineNr">20258 </span> <span class="subxComment"># find-typeinfo(t, out)</span> -<span id="L20259" class="LineNr">20259 </span> (<a href='mu.subx.html#L20310'>find-typeinfo</a> *(ebp+8) %edi) -<span id="L20260" class="LineNr">20260 </span> { -<span id="L20261" class="LineNr">20261 </span> <span class="subxComment"># if (*out != 0) break</span> -<span id="L20262" class="LineNr">20262 </span> 81 7/subop/compare *edi 0/imm32 -<span id="L20263" class="LineNr">20263 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L20264" class="LineNr">20264 </span><span class="Constant">$find-or-create-typeinfo:create</span>: -<span id="L20265" class="LineNr">20265 </span> <span class="subxComment"># *out = allocate</span> -<span id="L20266" class="LineNr">20266 </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="L20267" class="LineNr">20267 </span> <span class="subxComment"># var tmp/eax: (addr typeinfo) = lookup(*out)</span> -<span id="L20268" class="LineNr">20268 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L20269" class="LineNr">20269 </span><span class="CommentedCode">#? (write-buffered Stderr "created typeinfo at ")</span> -<span id="L20270" class="LineNr">20270 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L20271" class="LineNr">20271 </span><span class="CommentedCode">#? (write-buffered Stderr " for type-id ")</span> -<span id="L20272" class="LineNr">20272 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ebp+8))</span> -<span id="L20273" class="LineNr">20273 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L20274" class="LineNr">20274 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L20275" class="LineNr">20275 </span> <span class="subxComment"># tmp->id = t</span> -<span id="L20276" class="LineNr">20276 </span> 8b/-> *(ebp+8) 2/r32/edx -<span id="L20277" class="LineNr">20277 </span> 89/<- *eax 2/r32/edx <span class="subxComment"># Typeinfo-id</span> -<span id="L20278" class="LineNr">20278 </span> <span class="subxComment"># tmp->fields = new table</span> -<span id="L20279" class="LineNr">20279 </span> <span class="subxS1Comment"># . fields = new table</span> -<span id="L20280" class="LineNr">20280 </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="L20281" class="LineNr">20281 </span> <span class="subxS1Comment"># . tmp->fields = fields</span> -<span id="L20282" class="LineNr">20282 </span> 8b/-> *ecx 2/r32/edx -<span id="L20283" class="LineNr">20283 </span> 89/<- *(eax+4) 2/r32/edx <span class="subxComment"># Typeinfo-fields</span> -<span id="L20284" class="LineNr">20284 </span> 8b/-> *(ecx+4) 2/r32/edx -<span id="L20285" class="LineNr">20285 </span> 89/<- *(eax+8) 2/r32/edx <span class="subxComment"># Typeinfo-fields</span> -<span id="L20286" class="LineNr">20286 </span> <span class="subxComment"># tmp->next = Program->types</span> -<span id="L20287" class="LineNr">20287 </span> 8b/-> *_Program-types 1/r32/ecx -<span id="L20288" class="LineNr">20288 </span> 89/<- *(eax+0x10) 1/r32/ecx <span class="subxComment"># Typeinfo-next</span> -<span id="L20289" class="LineNr">20289 </span> 8b/-> *_Program-types->payload 1/r32/ecx -<span id="L20290" class="LineNr">20290 </span> 89/<- *(eax+0x14) 1/r32/ecx <span class="subxComment"># Typeinfo-next</span> -<span id="L20291" class="LineNr">20291 </span> <span class="subxComment"># Program->types = out</span> -<span id="L20292" class="LineNr">20292 </span> 8b/-> *edi 1/r32/ecx -<span id="L20293" class="LineNr">20293 </span> 89/<- *_Program-types 1/r32/ecx -<span id="L20294" class="LineNr">20294 </span> 8b/-> *(edi+4) 1/r32/ecx -<span id="L20295" class="LineNr">20295 </span> 89/<- *_Program-types->payload 1/r32/ecx -<span id="L20296" class="LineNr">20296 </span> } -<span id="L20297" class="LineNr">20297 </span><span class="Constant">$find-or-create-typeinfo:end</span>: -<span id="L20298" class="LineNr">20298 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L20299" class="LineNr">20299 </span> 81 0/subop/add %esp 8/imm32 -<span id="L20300" class="LineNr">20300 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20301" class="LineNr">20301 </span> 5f/pop-to-edi -<span id="L20302" class="LineNr">20302 </span> 5a/pop-to-edx -<span id="L20303" class="LineNr">20303 </span> 59/pop-to-ecx -<span id="L20304" class="LineNr">20304 </span> 58/pop-to-eax -<span id="L20305" class="LineNr">20305 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20306" class="LineNr">20306 </span> 89/<- %esp 5/r32/ebp -<span id="L20307" class="LineNr">20307 </span> 5d/pop-to-ebp -<span id="L20308" class="LineNr">20308 </span> c3/return -<span id="L20309" class="LineNr">20309 </span> -<span id="L20310" class="LineNr">20310 </span><span class="subxFunction">find-typeinfo</span>: <span class="subxComment"># t: type-id, out: (addr handle typeinfo)</span> -<span id="L20311" class="LineNr">20311 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20312" class="LineNr">20312 </span> 55/push-ebp -<span id="L20313" class="LineNr">20313 </span> 89/<- %ebp 4/r32/esp -<span id="L20314" class="LineNr">20314 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20315" class="LineNr">20315 </span> 50/push-eax -<span id="L20316" class="LineNr">20316 </span> 51/push-ecx -<span id="L20317" class="LineNr">20317 </span> 52/push-edx -<span id="L20318" class="LineNr">20318 </span> 57/push-edi -<span id="L20319" class="LineNr">20319 </span> <span class="subxComment"># ecx = t</span> -<span id="L20320" class="LineNr">20320 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L20321" class="LineNr">20321 </span> <span class="subxComment"># edi = out</span> -<span id="L20322" class="LineNr">20322 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L20323" class="LineNr">20323 </span> <span class="subxComment"># *out = Program->types</span> -<span id="L20324" class="LineNr">20324 </span> 8b/-> *_Program-types 0/r32/eax -<span id="L20325" class="LineNr">20325 </span> 89/<- *edi 0/r32/eax -<span id="L20326" class="LineNr">20326 </span> 8b/-> *_Program-types->payload 0/r32/eax -<span id="L20327" class="LineNr">20327 </span> 89/<- *(edi+4) 0/r32/eax -<span id="L20328" class="LineNr">20328 </span> { -<span id="L20329" class="LineNr">20329 </span><span class="Constant">$find-typeinfo:loop</span>: -<span id="L20330" class="LineNr">20330 </span> <span class="subxComment"># if (*out == 0) break</span> -<span id="L20331" class="LineNr">20331 </span> 81 7/subop/compare *edi 0/imm32 -<span id="L20332" class="LineNr">20332 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20333" class="LineNr">20333 </span><span class="Constant">$find-typeinfo:<a href='401test.mu.html#L3'>check</a></span>: -<span id="L20334" class="LineNr">20334 </span> <span class="subxComment"># var tmp/eax: (addr typeinfo) = lookup(*out)</span> -<span id="L20335" class="LineNr">20335 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L20336" class="LineNr">20336 </span> <span class="subxComment"># if (tmp->id == t) break</span> -<span id="L20337" class="LineNr">20337 </span> 39/compare *eax 1/r32/ecx <span class="subxComment"># Typeinfo-id</span> -<span id="L20338" class="LineNr">20338 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20339" class="LineNr">20339 </span><span class="Constant">$find-typeinfo:continue</span>: -<span id="L20340" class="LineNr">20340 </span> <span class="subxComment"># *out = tmp->next</span> -<span id="L20341" class="LineNr">20341 </span> 8b/-> *(eax+0x10) 2/r32/edx <span class="subxComment"># Typeinfo-next</span> -<span id="L20342" class="LineNr">20342 </span> 89/<- *edi 2/r32/edx -<span id="L20343" class="LineNr">20343 </span> 8b/-> *(eax+0x14) 2/r32/edx <span class="subxComment"># Typeinfo-next</span> -<span id="L20344" class="LineNr">20344 </span> 89/<- *(edi+4) 2/r32/edx -<span id="L20345" class="LineNr">20345 </span> <span class="subxComment">#</span> -<span id="L20346" class="LineNr">20346 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L20347" class="LineNr">20347 </span> } -<span id="L20348" class="LineNr">20348 </span><span class="Constant">$find-typeinfo:end</span>: -<span id="L20349" class="LineNr">20349 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20350" class="LineNr">20350 </span> 5f/pop-to-edi -<span id="L20351" class="LineNr">20351 </span> 5a/pop-to-edx -<span id="L20352" class="LineNr">20352 </span> 59/pop-to-ecx -<span id="L20353" class="LineNr">20353 </span> 58/pop-to-eax -<span id="L20354" class="LineNr">20354 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20355" class="LineNr">20355 </span> 89/<- %esp 5/r32/ebp -<span id="L20356" class="LineNr">20356 </span> 5d/pop-to-ebp -<span id="L20357" class="LineNr">20357 </span> c3/return -<span id="L20358" class="LineNr">20358 </span> -<span id="L20359" class="LineNr">20359 </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="L20360" class="LineNr">20360 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20361" class="LineNr">20361 </span> 55/push-ebp -<span id="L20362" class="LineNr">20362 </span> 89/<- %ebp 4/r32/esp -<span id="L20363" class="LineNr">20363 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20364" class="LineNr">20364 </span> 50/push-eax -<span id="L20365" class="LineNr">20365 </span> 52/push-edx -<span id="L20366" class="LineNr">20366 </span> 57/push-edi -<span id="L20367" class="LineNr">20367 </span> <span class="subxComment"># var dest/edi: (handle typeinfo-entry)</span> -<span id="L20368" class="LineNr">20368 </span> 68/push 0/imm32 -<span id="L20369" class="LineNr">20369 </span> 68/push 0/imm32 -<span id="L20370" class="LineNr">20370 </span> 89/<- %edi 4/r32/esp -<span id="L20371" class="LineNr">20371 </span> <span class="subxComment"># find-or-create-typeinfo-fields(T, f, dest)</span> -<span id="L20372" class="LineNr">20372 </span> (<a href='mu.subx.html#L20424'>find-or-create-typeinfo-fields</a> *(ebp+8) *(ebp+0xc) %edi) -<span id="L20373" class="LineNr">20373 </span> <span class="subxComment"># var dest-addr/edi: (addr typeinfo-entry) = lookup(dest)</span> -<span id="L20374" class="LineNr">20374 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L20375" class="LineNr">20375 </span> 89/<- %edi 0/r32/eax -<span id="L20376" class="LineNr">20376 </span> <span class="subxComment"># if dest-addr->output-var doesn't exist, create it</span> -<span id="L20377" class="LineNr">20377 </span> { -<span id="L20378" class="LineNr">20378 </span> 81 7/subop/compare *(edi+0xc) 0/imm32 <span class="subxComment"># Typeinfo-entry-output-var</span> -<span id="L20379" class="LineNr">20379 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L20380" class="LineNr">20380 </span> <span class="subxComment"># dest-addr->output-var = new var(dummy name, type, -1 offset)</span> -<span id="L20381" class="LineNr">20381 </span> <span class="subxS1Comment"># . var name/eax: (handle array byte) = "field"</span> -<span id="L20382" class="LineNr">20382 </span> 68/push 0/imm32 -<span id="L20383" class="LineNr">20383 </span> 68/push 0/imm32 -<span id="L20384" class="LineNr">20384 </span> 89/<- %eax 4/r32/esp -<span id="L20385" class="LineNr">20385 </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="L20386" class="LineNr">20386 </span> <span class="subxS1Comment"># . new var</span> -<span id="L20387" class="LineNr">20387 </span> 8d/copy-address *(edi+0xc) 2/r32/edx -<span id="L20388" class="LineNr">20388 </span> (<a href='mu.subx.html#L19705'>new-var</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *eax *(eax+4) %edx) -<span id="L20389" class="LineNr">20389 </span> <span class="subxS1Comment"># . reclaim name</span> -<span id="L20390" class="LineNr">20390 </span> 81 0/subop/add %esp 8/imm32 -<span id="L20391" class="LineNr">20391 </span> <span class="subxComment"># var result/edx: (addr var) = lookup(dest-addr->output-var)</span> -<span id="L20392" class="LineNr">20392 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+0xc) *(edi+0x10)) <span class="subxComment"># => eax</span> -<span id="L20393" class="LineNr">20393 </span> 89/<- %edx 0/r32/eax -<span id="L20394" class="LineNr">20394 </span> <span class="subxComment"># result->type = new constant type</span> -<span id="L20395" class="LineNr">20395 </span> 8d/copy-address *(edx+8) 0/r32/eax <span class="subxComment"># Var-type</span> -<span id="L20396" class="LineNr">20396 </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="L20397" class="LineNr">20397 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># => eax</span> -<span id="L20398" class="LineNr">20398 </span> c7 0/subop/copy *eax 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> -<span id="L20399" class="LineNr">20399 </span> c7 0/subop/copy *(eax+4) 6/imm32/constant <span class="subxComment"># Type-tree-value</span> -<span id="L20400" class="LineNr">20400 </span> c7 0/subop/copy *(eax+8) 0/imm32 <span class="subxComment"># Type-tree-left</span> -<span id="L20401" class="LineNr">20401 </span> c7 0/subop/copy *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L20402" class="LineNr">20402 </span> c7 0/subop/copy *(eax+0x10) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L20403" class="LineNr">20403 </span> <span class="subxComment"># result->offset isn't filled out yet</span> -<span id="L20404" class="LineNr">20404 </span> c7 0/subop/copy *(edx+0x14) -1/imm32/uninitialized <span class="subxComment"># Var-offset</span> -<span id="L20405" class="LineNr">20405 </span> } -<span id="L20406" class="LineNr">20406 </span> <span class="subxComment"># out = dest-addr->output-var</span> -<span id="L20407" class="LineNr">20407 </span> 8b/-> *(ebp+0x10) 2/r32/edx -<span id="L20408" class="LineNr">20408 </span> 8b/-> *(edi+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-entry-output-var</span> -<span id="L20409" class="LineNr">20409 </span> 89/<- *edx 0/r32/eax -<span id="L20410" class="LineNr">20410 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Typeinfo-entry-output-var</span> -<span id="L20411" class="LineNr">20411 </span> 89/<- *(edx+4) 0/r32/eax -<span id="L20412" class="LineNr">20412 </span><span class="Constant">$find-or-create-typeinfo-output-var:end</span>: -<span id="L20413" class="LineNr">20413 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L20414" class="LineNr">20414 </span> 81 0/subop/add %esp 8/imm32 -<span id="L20415" class="LineNr">20415 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20416" class="LineNr">20416 </span> 5f/pop-to-edi -<span id="L20417" class="LineNr">20417 </span> 5a/pop-to-edx -<span id="L20418" class="LineNr">20418 </span> 58/pop-to-eax -<span id="L20419" class="LineNr">20419 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20420" class="LineNr">20420 </span> 89/<- %esp 5/r32/ebp -<span id="L20421" class="LineNr">20421 </span> 5d/pop-to-ebp -<span id="L20422" class="LineNr">20422 </span> c3/return -<span id="L20423" class="LineNr">20423 </span> -<span id="L20424" class="LineNr">20424 </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="L20425" class="LineNr">20425 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20426" class="LineNr">20426 </span> 55/push-ebp -<span id="L20427" class="LineNr">20427 </span> 89/<- %ebp 4/r32/esp -<span id="L20428" class="LineNr">20428 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20429" class="LineNr">20429 </span> 50/push-eax -<span id="L20430" class="LineNr">20430 </span> 56/push-esi -<span id="L20431" class="LineNr">20431 </span> 57/push-edi -<span id="L20432" class="LineNr">20432 </span> <span class="subxComment"># eax = lookup(T->fields)</span> -<span id="L20433" class="LineNr">20433 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L20434" class="LineNr">20434 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> -<span id="L20435" class="LineNr">20435 </span> <span class="subxComment"># edi = out</span> -<span id="L20436" class="LineNr">20436 </span> 8b/-> *(ebp+0x10) 7/r32/edi -<span id="L20437" class="LineNr">20437 </span> <span class="subxComment"># var src/esi: (addr handle typeinfo-entry) = get-or-insert-slice(T->fields, f)</span> -<span id="L20438" class="LineNr">20438 </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="L20439" class="LineNr">20439 </span> 89/<- %esi 0/r32/eax -<span id="L20440" class="LineNr">20440 </span> <span class="subxComment"># if src doesn't exist, allocate it</span> -<span id="L20441" class="LineNr">20441 </span> { -<span id="L20442" class="LineNr">20442 </span> 81 7/subop/compare *esi 0/imm32 -<span id="L20443" class="LineNr">20443 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L20444" class="LineNr">20444 </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="L20445" class="LineNr">20445 </span><span class="CommentedCode">#? (write-buffered Stderr "handle at ")</span> -<span id="L20446" class="LineNr">20446 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %esi)</span> -<span id="L20447" class="LineNr">20447 </span><span class="CommentedCode">#? (write-buffered Stderr ": ")</span> -<span id="L20448" class="LineNr">20448 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *esi)</span> -<span id="L20449" class="LineNr">20449 </span><span class="CommentedCode">#? (write-buffered Stderr " ")</span> -<span id="L20450" class="LineNr">20450 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(esi+4))</span> -<span id="L20451" class="LineNr">20451 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L20452" class="LineNr">20452 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L20453" class="LineNr">20453 </span><span class="CommentedCode">#? (lookup *esi *(esi+4))</span> -<span id="L20454" class="LineNr">20454 </span><span class="CommentedCode">#? (write-buffered Stderr "created typeinfo fields at ")</span> -<span id="L20455" class="LineNr">20455 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %esi)</span> -<span id="L20456" class="LineNr">20456 </span><span class="CommentedCode">#? (write-buffered Stderr " for ")</span> -<span id="L20457" class="LineNr">20457 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ebp+8))</span> -<span id="L20458" class="LineNr">20458 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L20459" class="LineNr">20459 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L20460" class="LineNr">20460 </span> } -<span id="L20461" class="LineNr">20461 </span> <span class="subxComment"># *out = src</span> -<span id="L20462" class="LineNr">20462 </span> <span class="subxS1Comment"># . *edi = *src</span> -<span id="L20463" class="LineNr">20463 </span> 8b/-> *esi 0/r32/eax -<span id="L20464" class="LineNr">20464 </span> 89/<- *edi 0/r32/eax -<span id="L20465" class="LineNr">20465 </span> 8b/-> *(esi+4) 0/r32/eax -<span id="L20466" class="LineNr">20466 </span> 89/<- *(edi+4) 0/r32/eax -<span id="L20467" class="LineNr">20467 </span><span class="Constant">$find-or-create-typeinfo-fields:end</span>: -<span id="L20468" class="LineNr">20468 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20469" class="LineNr">20469 </span> 5f/pop-to-edi -<span id="L20470" class="LineNr">20470 </span> 5e/pop-to-esi -<span id="L20471" class="LineNr">20471 </span> 58/pop-to-eax -<span id="L20472" class="LineNr">20472 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20473" class="LineNr">20473 </span> 89/<- %esp 5/r32/ebp -<span id="L20474" class="LineNr">20474 </span> 5d/pop-to-ebp -<span id="L20475" class="LineNr">20475 </span> c3/return -<span id="L20476" class="LineNr">20476 </span> -<span id="L20477" class="LineNr">20477 </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="L20478" class="LineNr">20478 </span> <span class="subxComment"># pseudocode:</span> -<span id="L20479" class="LineNr">20479 </span> <span class="subxComment"># var line: (stream byte 512)</span> -<span id="L20480" class="LineNr">20480 </span> <span class="subxComment"># curr-index = 0</span> -<span id="L20481" class="LineNr">20481 </span> <span class="subxComment"># while true</span> -<span id="L20482" class="LineNr">20482 </span> <span class="subxComment"># clear-stream(line)</span> -<span id="L20483" class="LineNr">20483 </span> <span class="subxComment"># read-line-buffered(in, line)</span> -<span id="L20484" class="LineNr">20484 </span> <span class="subxComment"># if line->write == 0</span> -<span id="L20485" class="LineNr">20485 </span> <span class="subxComment"># abort</span> -<span id="L20486" class="LineNr">20486 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> -<span id="L20487" class="LineNr">20487 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> -<span id="L20488" class="LineNr">20488 </span> <span class="subxComment"># continue</span> -<span id="L20489" class="LineNr">20489 </span> <span class="subxComment"># if slice-equal?(word-slice, "}")</span> -<span id="L20490" class="LineNr">20490 </span> <span class="subxComment"># break</span> -<span id="L20491" class="LineNr">20491 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, line)</span> -<span id="L20492" class="LineNr">20492 </span> <span class="subxComment"># var r: (handle typeinfo-fields) = find-or-create-typeinfo-fields(t, word-slice/v->name)</span> -<span id="L20493" class="LineNr">20493 </span> <span class="subxComment"># TODO: ensure that r->first is null</span> -<span id="L20494" class="LineNr">20494 </span> <span class="subxComment"># r->index = curr-index</span> -<span id="L20495" class="LineNr">20495 </span> <span class="subxComment"># curr-index++</span> -<span id="L20496" class="LineNr">20496 </span> <span class="subxComment"># r->input-var = v</span> -<span id="L20497" class="LineNr">20497 </span> <span class="subxComment"># if r->output-var == 0</span> -<span id="L20498" class="LineNr">20498 </span> <span class="subxComment"># r->output-var = new literal</span> -<span id="L20499" class="LineNr">20499 </span> <span class="subxComment"># TODO: ensure nothing else in line</span> -<span id="L20500" class="LineNr">20500 </span> <span class="subxComment"># t->total-size-in-bytes = -2 (not yet initialized)</span> -<span id="L20501" class="LineNr">20501 </span> <span class="subxComment">#</span> -<span id="L20502" class="LineNr">20502 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20503" class="LineNr">20503 </span> 55/push-ebp -<span id="L20504" class="LineNr">20504 </span> 89/<- %ebp 4/r32/esp -<span id="L20505" class="LineNr">20505 </span> <span class="subxComment"># var curr-index: int at *(ebp-4)</span> -<span id="L20506" class="LineNr">20506 </span> 68/push 0/imm32 -<span id="L20507" class="LineNr">20507 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20508" class="LineNr">20508 </span> 50/push-eax -<span id="L20509" class="LineNr">20509 </span> 51/push-ecx -<span id="L20510" class="LineNr">20510 </span> 52/push-edx -<span id="L20511" class="LineNr">20511 </span> 53/push-ebx -<span id="L20512" class="LineNr">20512 </span> 56/push-esi -<span id="L20513" class="LineNr">20513 </span> 57/push-edi -<span id="L20514" class="LineNr">20514 </span> <span class="subxComment"># edi = t</span> -<span id="L20515" class="LineNr">20515 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L20516" class="LineNr">20516 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> -<span id="L20517" class="LineNr">20517 </span> 81 5/subop/subtract %esp 0x200/imm32 -<span id="L20518" class="LineNr">20518 </span> 68/push 0x200/imm32/size -<span id="L20519" class="LineNr">20519 </span> 68/push 0/imm32/read -<span id="L20520" class="LineNr">20520 </span> 68/push 0/imm32/write -<span id="L20521" class="LineNr">20521 </span> 89/<- %ecx 4/r32/esp -<span id="L20522" class="LineNr">20522 </span> <span class="subxComment"># var word-slice/edx: slice</span> -<span id="L20523" class="LineNr">20523 </span> 68/push 0/imm32/end -<span id="L20524" class="LineNr">20524 </span> 68/push 0/imm32/start -<span id="L20525" class="LineNr">20525 </span> 89/<- %edx 4/r32/esp -<span id="L20526" class="LineNr">20526 </span> <span class="subxComment"># var v/esi: (handle var)</span> -<span id="L20527" class="LineNr">20527 </span> 68/push 0/imm32 +<span id="L20142" class="LineNr">20142 </span> 5f/pop-to-edi +<span id="L20143" class="LineNr">20143 </span> 59/pop-to-ecx +<span id="L20144" class="LineNr">20144 </span> 58/pop-to-eax +<span id="L20145" class="LineNr">20145 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20146" class="LineNr">20146 </span> 89/<- %esp 5/r32/ebp +<span id="L20147" class="LineNr">20147 </span> 5d/pop-to-ebp +<span id="L20148" class="LineNr">20148 </span> c3/return +<span id="L20149" class="LineNr">20149 </span> +<span id="L20150" class="LineNr">20150 </span><span class="subxFunction">append-to-block</span>: <span class="subxComment"># ad: (addr allocation-descriptor), block: (addr block), x: (handle stmt)</span> +<span id="L20151" class="LineNr">20151 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20152" class="LineNr">20152 </span> 55/push-ebp +<span id="L20153" class="LineNr">20153 </span> 89/<- %ebp 4/r32/esp +<span id="L20154" class="LineNr">20154 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20155" class="LineNr">20155 </span> 50/push-eax +<span id="L20156" class="LineNr">20156 </span> 56/push-esi +<span id="L20157" class="LineNr">20157 </span> <span class="subxComment"># esi = block</span> +<span id="L20158" class="LineNr">20158 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L20159" class="LineNr">20159 </span> <span class="subxComment"># block->stmts = append(x, block->stmts)</span> +<span id="L20160" class="LineNr">20160 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Block-stmts</span> +<span id="L20161" class="LineNr">20161 </span> (<a href='mu.subx.html#L20034'>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="L20162" class="LineNr">20162 </span><span class="Constant">$append-to-block:end</span>: +<span id="L20163" class="LineNr">20163 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20164" class="LineNr">20164 </span> 5e/pop-to-esi +<span id="L20165" class="LineNr">20165 </span> 58/pop-to-eax +<span id="L20166" class="LineNr">20166 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20167" class="LineNr">20167 </span> 89/<- %esp 5/r32/ebp +<span id="L20168" class="LineNr">20168 </span> 5d/pop-to-ebp +<span id="L20169" class="LineNr">20169 </span> c3/return +<span id="L20170" class="LineNr">20170 </span> +<span id="L20171" class="LineNr">20171 </span><span class="subxComment">## Parsing types</span> +<span id="L20172" class="LineNr">20172 </span><span class="subxComment"># We need to create metadata on user-defined types, and we need to use this</span> +<span id="L20173" class="LineNr">20173 </span><span class="subxComment"># metadata as we parse instructions.</span> +<span id="L20174" class="LineNr">20174 </span><span class="subxComment"># However, we also want to allow types to be used before their definitions.</span> +<span id="L20175" class="LineNr">20175 </span><span class="subxComment"># This means we can't ever assume any type data structures exist.</span> +<span id="L20176" class="LineNr">20176 </span> +<span id="L20177" class="LineNr">20177 </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="L20178" class="LineNr">20178 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20179" class="LineNr">20179 </span> 55/push-ebp +<span id="L20180" class="LineNr">20180 </span> 89/<- %ebp 4/r32/esp +<span id="L20181" class="LineNr">20181 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20182" class="LineNr">20182 </span> 50/push-eax +<span id="L20183" class="LineNr">20183 </span> 56/push-esi +<span id="L20184" class="LineNr">20184 </span> <span class="subxComment"># var container-type/esi: type-id</span> +<span id="L20185" class="LineNr">20185 </span> (<a href='mu.subx.html#L20228'>container-type</a> *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L20186" class="LineNr">20186 </span> 89/<- %esi 0/r32/eax +<span id="L20187" class="LineNr">20187 </span> <span class="subxComment"># var tmp/eax: (handle typeinfo) = find-or-create-typeinfo(container-type)</span> +<span id="L20188" class="LineNr">20188 </span> 68/push 0/imm32 +<span id="L20189" class="LineNr">20189 </span> 68/push 0/imm32 +<span id="L20190" class="LineNr">20190 </span> 89/<- %eax 4/r32/esp +<span id="L20191" class="LineNr">20191 </span> (<a href='mu.subx.html#L20265'>find-or-create-typeinfo</a> %esi %eax) +<span id="L20192" class="LineNr">20192 </span> <span class="subxComment"># var tmp-addr/eax: (addr typeinfo) = lookup(tmp)</span> +<span id="L20193" class="LineNr">20193 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L20194" class="LineNr">20194 </span> <span class="subxComment"># result = find-or-create-typeinfo-output-var(typeinfo, field-name)</span> +<span id="L20195" class="LineNr">20195 </span><span class="CommentedCode">#? (write-buffered Stderr "constant: ")</span> +<span id="L20196" class="LineNr">20196 </span><span class="CommentedCode">#? (write-slice-buffered Stderr *(ebp+0xc))</span> +<span id="L20197" class="LineNr">20197 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L20198" class="LineNr">20198 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L20199" class="LineNr">20199 </span> (<a href='mu.subx.html#L20381'>find-or-create-typeinfo-output-var</a> %eax *(ebp+0xc) *(ebp+0x10)) +<span id="L20200" class="LineNr">20200 </span><span class="CommentedCode">#? 8b/-> *(ebp+0x10) 0/r32/eax</span> +<span id="L20201" class="LineNr">20201 </span><span class="CommentedCode">#? (write-buffered Stderr "@")</span> +<span id="L20202" class="LineNr">20202 </span><span class="CommentedCode">#? (lookup *eax *(eax+4))</span> +<span id="L20203" class="LineNr">20203 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L20204" class="LineNr">20204 </span><span class="CommentedCode">#? (lookup *eax *(eax+4))</span> +<span id="L20205" class="LineNr">20205 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L20206" class="LineNr">20206 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L20207" class="LineNr">20207 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L20208" class="LineNr">20208 </span><span class="CommentedCode">#? (write-buffered Stderr "offset: ")</span> +<span id="L20209" class="LineNr">20209 </span><span class="CommentedCode">#? 8b/-> *(eax+0x14) 0/r32/eax</span> +<span id="L20210" class="LineNr">20210 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L20211" class="LineNr">20211 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L20212" class="LineNr">20212 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L20213" class="LineNr">20213 </span><span class="Constant">$lookup-or-create-constant:end</span>: +<span id="L20214" class="LineNr">20214 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L20215" class="LineNr">20215 </span> 81 0/subop/add %esp 8/imm32 +<span id="L20216" class="LineNr">20216 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20217" class="LineNr">20217 </span> 5e/pop-to-esi +<span id="L20218" class="LineNr">20218 </span> 58/pop-to-eax +<span id="L20219" class="LineNr">20219 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20220" class="LineNr">20220 </span> 89/<- %esp 5/r32/ebp +<span id="L20221" class="LineNr">20221 </span> 5d/pop-to-ebp +<span id="L20222" class="LineNr">20222 </span> c3/return +<span id="L20223" class="LineNr">20223 </span> +<span id="L20224" class="LineNr">20224 </span><span class="subxComment"># if addr var:</span> +<span id="L20225" class="LineNr">20225 </span><span class="subxComment"># container->var->type->right->left->value</span> +<span id="L20226" class="LineNr">20226 </span><span class="subxComment"># otherwise</span> +<span id="L20227" class="LineNr">20227 </span><span class="subxComment"># container->var->type->value</span> +<span id="L20228" class="LineNr">20228 </span><span class="subxFunction">container-type</span>: <span class="subxComment"># container: (addr stmt-var) -> result/eax: type-id</span> +<span id="L20229" class="LineNr">20229 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20230" class="LineNr">20230 </span> 55/push-ebp +<span id="L20231" class="LineNr">20231 </span> 89/<- %ebp 4/r32/esp +<span id="L20232" class="LineNr">20232 </span> <span class="subxComment">#</span> +<span id="L20233" class="LineNr">20233 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L20234" class="LineNr">20234 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L20235" class="LineNr">20235 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L20236" class="LineNr">20236 </span> { +<span id="L20237" class="LineNr">20237 </span> 81 7/subop/compare *(eax+8) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L20238" class="LineNr">20238 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20239" class="LineNr">20239 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L20240" class="LineNr">20240 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L20241" class="LineNr">20241 </span> } +<span id="L20242" class="LineNr">20242 </span> 8b/-> *(eax+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> +<span id="L20243" class="LineNr">20243 </span><span class="Constant">$container-type:end</span>: +<span id="L20244" class="LineNr">20244 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20245" class="LineNr">20245 </span> 89/<- %esp 5/r32/ebp +<span id="L20246" class="LineNr">20246 </span> 5d/pop-to-ebp +<span id="L20247" class="LineNr">20247 </span> c3/return +<span id="L20248" class="LineNr">20248 </span> +<span id="L20249" class="LineNr">20249 </span><span class="subxFunction">container?</span>: <span class="subxComment"># t: type-id -> result/eax: boolean</span> +<span id="L20250" class="LineNr">20250 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20251" class="LineNr">20251 </span> 55/push-ebp +<span id="L20252" class="LineNr">20252 </span> 89/<- %ebp 4/r32/esp +<span id="L20253" class="LineNr">20253 </span> <span class="subxComment">#</span> +<span id="L20254" class="LineNr">20254 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L20255" class="LineNr">20255 </span> c1/shift 4/subop/left %eax 2/imm8 +<span id="L20256" class="LineNr">20256 </span> 3b/compare 0/r32/eax *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> +<span id="L20257" class="LineNr">20257 </span> 0f 9d/set-if->= %al +<span id="L20258" class="LineNr">20258 </span> 25/and-eax-with 0xff/imm32 +<span id="L20259" class="LineNr">20259 </span><span class="Constant">$container?:end</span>: +<span id="L20260" class="LineNr">20260 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20261" class="LineNr">20261 </span> 89/<- %esp 5/r32/ebp +<span id="L20262" class="LineNr">20262 </span> 5d/pop-to-ebp +<span id="L20263" class="LineNr">20263 </span> c3/return +<span id="L20264" class="LineNr">20264 </span> +<span id="L20265" class="LineNr">20265 </span><span class="subxFunction">find-or-create-typeinfo</span>: <span class="subxComment"># t: type-id, out: (addr handle typeinfo)</span> +<span id="L20266" class="LineNr">20266 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20267" class="LineNr">20267 </span> 55/push-ebp +<span id="L20268" class="LineNr">20268 </span> 89/<- %ebp 4/r32/esp +<span id="L20269" class="LineNr">20269 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20270" class="LineNr">20270 </span> 50/push-eax +<span id="L20271" class="LineNr">20271 </span> 51/push-ecx +<span id="L20272" class="LineNr">20272 </span> 52/push-edx +<span id="L20273" class="LineNr">20273 </span> 57/push-edi +<span id="L20274" class="LineNr">20274 </span> <span class="subxComment"># edi = out</span> +<span id="L20275" class="LineNr">20275 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L20276" class="LineNr">20276 </span> <span class="subxComment"># var fields/ecx: (handle table (handle array byte) (handle typeinfo-entry))</span> +<span id="L20277" class="LineNr">20277 </span> 68/push 0/imm32 +<span id="L20278" class="LineNr">20278 </span> 68/push 0/imm32 +<span id="L20279" class="LineNr">20279 </span> 89/<- %ecx 4/r32/esp +<span id="L20280" class="LineNr">20280 </span> <span class="subxComment"># find-typeinfo(t, out)</span> +<span id="L20281" class="LineNr">20281 </span> (<a href='mu.subx.html#L20332'>find-typeinfo</a> *(ebp+8) %edi) +<span id="L20282" class="LineNr">20282 </span> { +<span id="L20283" class="LineNr">20283 </span> <span class="subxComment"># if (*out != 0) break</span> +<span id="L20284" class="LineNr">20284 </span> 81 7/subop/compare *edi 0/imm32 +<span id="L20285" class="LineNr">20285 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L20286" class="LineNr">20286 </span><span class="Constant">$find-or-create-typeinfo:create</span>: +<span id="L20287" class="LineNr">20287 </span> <span class="subxComment"># *out = allocate</span> +<span id="L20288" class="LineNr">20288 </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="L20289" class="LineNr">20289 </span> <span class="subxComment"># var tmp/eax: (addr typeinfo) = lookup(*out)</span> +<span id="L20290" class="LineNr">20290 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L20291" class="LineNr">20291 </span><span class="CommentedCode">#? (write-buffered Stderr "created typeinfo at ")</span> +<span id="L20292" class="LineNr">20292 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L20293" class="LineNr">20293 </span><span class="CommentedCode">#? (write-buffered Stderr " for type-id ")</span> +<span id="L20294" class="LineNr">20294 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ebp+8))</span> +<span id="L20295" class="LineNr">20295 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L20296" class="LineNr">20296 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L20297" class="LineNr">20297 </span> <span class="subxComment"># tmp->id = t</span> +<span id="L20298" class="LineNr">20298 </span> 8b/-> *(ebp+8) 2/r32/edx +<span id="L20299" class="LineNr">20299 </span> 89/<- *eax 2/r32/edx <span class="subxComment"># Typeinfo-id</span> +<span id="L20300" class="LineNr">20300 </span> <span class="subxComment"># tmp->fields = new table</span> +<span id="L20301" class="LineNr">20301 </span> <span class="subxS1Comment"># . fields = new table</span> +<span id="L20302" class="LineNr">20302 </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="L20303" class="LineNr">20303 </span> <span class="subxS1Comment"># . tmp->fields = fields</span> +<span id="L20304" class="LineNr">20304 </span> 8b/-> *ecx 2/r32/edx +<span id="L20305" class="LineNr">20305 </span> 89/<- *(eax+4) 2/r32/edx <span class="subxComment"># Typeinfo-fields</span> +<span id="L20306" class="LineNr">20306 </span> 8b/-> *(ecx+4) 2/r32/edx +<span id="L20307" class="LineNr">20307 </span> 89/<- *(eax+8) 2/r32/edx <span class="subxComment"># Typeinfo-fields</span> +<span id="L20308" class="LineNr">20308 </span> <span class="subxComment"># tmp->next = Program->types</span> +<span id="L20309" class="LineNr">20309 </span> 8b/-> *_Program-types 1/r32/ecx +<span id="L20310" class="LineNr">20310 </span> 89/<- *(eax+0x10) 1/r32/ecx <span class="subxComment"># Typeinfo-next</span> +<span id="L20311" class="LineNr">20311 </span> 8b/-> *_Program-types->payload 1/r32/ecx +<span id="L20312" class="LineNr">20312 </span> 89/<- *(eax+0x14) 1/r32/ecx <span class="subxComment"># Typeinfo-next</span> +<span id="L20313" class="LineNr">20313 </span> <span class="subxComment"># Program->types = out</span> +<span id="L20314" class="LineNr">20314 </span> 8b/-> *edi 1/r32/ecx +<span id="L20315" class="LineNr">20315 </span> 89/<- *_Program-types 1/r32/ecx +<span id="L20316" class="LineNr">20316 </span> 8b/-> *(edi+4) 1/r32/ecx +<span id="L20317" class="LineNr">20317 </span> 89/<- *_Program-types->payload 1/r32/ecx +<span id="L20318" class="LineNr">20318 </span> } +<span id="L20319" class="LineNr">20319 </span><span class="Constant">$find-or-create-typeinfo:end</span>: +<span id="L20320" class="LineNr">20320 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L20321" class="LineNr">20321 </span> 81 0/subop/add %esp 8/imm32 +<span id="L20322" class="LineNr">20322 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20323" class="LineNr">20323 </span> 5f/pop-to-edi +<span id="L20324" class="LineNr">20324 </span> 5a/pop-to-edx +<span id="L20325" class="LineNr">20325 </span> 59/pop-to-ecx +<span id="L20326" class="LineNr">20326 </span> 58/pop-to-eax +<span id="L20327" class="LineNr">20327 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20328" class="LineNr">20328 </span> 89/<- %esp 5/r32/ebp +<span id="L20329" class="LineNr">20329 </span> 5d/pop-to-ebp +<span id="L20330" class="LineNr">20330 </span> c3/return +<span id="L20331" class="LineNr">20331 </span> +<span id="L20332" class="LineNr">20332 </span><span class="subxFunction">find-typeinfo</span>: <span class="subxComment"># t: type-id, out: (addr handle typeinfo)</span> +<span id="L20333" class="LineNr">20333 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20334" class="LineNr">20334 </span> 55/push-ebp +<span id="L20335" class="LineNr">20335 </span> 89/<- %ebp 4/r32/esp +<span id="L20336" class="LineNr">20336 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20337" class="LineNr">20337 </span> 50/push-eax +<span id="L20338" class="LineNr">20338 </span> 51/push-ecx +<span id="L20339" class="LineNr">20339 </span> 52/push-edx +<span id="L20340" class="LineNr">20340 </span> 57/push-edi +<span id="L20341" class="LineNr">20341 </span> <span class="subxComment"># ecx = t</span> +<span id="L20342" class="LineNr">20342 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L20343" class="LineNr">20343 </span> <span class="subxComment"># edi = out</span> +<span id="L20344" class="LineNr">20344 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L20345" class="LineNr">20345 </span> <span class="subxComment"># *out = Program->types</span> +<span id="L20346" class="LineNr">20346 </span> 8b/-> *_Program-types 0/r32/eax +<span id="L20347" class="LineNr">20347 </span> 89/<- *edi 0/r32/eax +<span id="L20348" class="LineNr">20348 </span> 8b/-> *_Program-types->payload 0/r32/eax +<span id="L20349" class="LineNr">20349 </span> 89/<- *(edi+4) 0/r32/eax +<span id="L20350" class="LineNr">20350 </span> { +<span id="L20351" class="LineNr">20351 </span><span class="Constant">$find-typeinfo:loop</span>: +<span id="L20352" class="LineNr">20352 </span> <span class="subxComment"># if (*out == 0) break</span> +<span id="L20353" class="LineNr">20353 </span> 81 7/subop/compare *edi 0/imm32 +<span id="L20354" class="LineNr">20354 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20355" class="LineNr">20355 </span><span class="Constant">$find-typeinfo:<a href='401test.mu.html#L3'>check</a></span>: +<span id="L20356" class="LineNr">20356 </span> <span class="subxComment"># var tmp/eax: (addr typeinfo) = lookup(*out)</span> +<span id="L20357" class="LineNr">20357 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L20358" class="LineNr">20358 </span> <span class="subxComment"># if (tmp->id == t) break</span> +<span id="L20359" class="LineNr">20359 </span> 39/compare *eax 1/r32/ecx <span class="subxComment"># Typeinfo-id</span> +<span id="L20360" class="LineNr">20360 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20361" class="LineNr">20361 </span><span class="Constant">$find-typeinfo:continue</span>: +<span id="L20362" class="LineNr">20362 </span> <span class="subxComment"># *out = tmp->next</span> +<span id="L20363" class="LineNr">20363 </span> 8b/-> *(eax+0x10) 2/r32/edx <span class="subxComment"># Typeinfo-next</span> +<span id="L20364" class="LineNr">20364 </span> 89/<- *edi 2/r32/edx +<span id="L20365" class="LineNr">20365 </span> 8b/-> *(eax+0x14) 2/r32/edx <span class="subxComment"># Typeinfo-next</span> +<span id="L20366" class="LineNr">20366 </span> 89/<- *(edi+4) 2/r32/edx +<span id="L20367" class="LineNr">20367 </span> <span class="subxComment">#</span> +<span id="L20368" class="LineNr">20368 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L20369" class="LineNr">20369 </span> } +<span id="L20370" class="LineNr">20370 </span><span class="Constant">$find-typeinfo:end</span>: +<span id="L20371" class="LineNr">20371 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20372" class="LineNr">20372 </span> 5f/pop-to-edi +<span id="L20373" class="LineNr">20373 </span> 5a/pop-to-edx +<span id="L20374" class="LineNr">20374 </span> 59/pop-to-ecx +<span id="L20375" class="LineNr">20375 </span> 58/pop-to-eax +<span id="L20376" class="LineNr">20376 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20377" class="LineNr">20377 </span> 89/<- %esp 5/r32/ebp +<span id="L20378" class="LineNr">20378 </span> 5d/pop-to-ebp +<span id="L20379" class="LineNr">20379 </span> c3/return +<span id="L20380" class="LineNr">20380 </span> +<span id="L20381" class="LineNr">20381 </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="L20382" class="LineNr">20382 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20383" class="LineNr">20383 </span> 55/push-ebp +<span id="L20384" class="LineNr">20384 </span> 89/<- %ebp 4/r32/esp +<span id="L20385" class="LineNr">20385 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20386" class="LineNr">20386 </span> 50/push-eax +<span id="L20387" class="LineNr">20387 </span> 52/push-edx +<span id="L20388" class="LineNr">20388 </span> 57/push-edi +<span id="L20389" class="LineNr">20389 </span> <span class="subxComment"># var dest/edi: (handle typeinfo-entry)</span> +<span id="L20390" class="LineNr">20390 </span> 68/push 0/imm32 +<span id="L20391" class="LineNr">20391 </span> 68/push 0/imm32 +<span id="L20392" class="LineNr">20392 </span> 89/<- %edi 4/r32/esp +<span id="L20393" class="LineNr">20393 </span> <span class="subxComment"># find-or-create-typeinfo-fields(T, f, dest)</span> +<span id="L20394" class="LineNr">20394 </span> (<a href='mu.subx.html#L20446'>find-or-create-typeinfo-fields</a> *(ebp+8) *(ebp+0xc) %edi) +<span id="L20395" class="LineNr">20395 </span> <span class="subxComment"># var dest-addr/edi: (addr typeinfo-entry) = lookup(dest)</span> +<span id="L20396" class="LineNr">20396 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L20397" class="LineNr">20397 </span> 89/<- %edi 0/r32/eax +<span id="L20398" class="LineNr">20398 </span> <span class="subxComment"># if dest-addr->output-var doesn't exist, create it</span> +<span id="L20399" class="LineNr">20399 </span> { +<span id="L20400" class="LineNr">20400 </span> 81 7/subop/compare *(edi+0xc) 0/imm32 <span class="subxComment"># Typeinfo-entry-output-var</span> +<span id="L20401" class="LineNr">20401 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L20402" class="LineNr">20402 </span> <span class="subxComment"># dest-addr->output-var = new var(dummy name, type, -1 offset)</span> +<span id="L20403" class="LineNr">20403 </span> <span class="subxS1Comment"># . var name/eax: (handle array byte) = "field"</span> +<span id="L20404" class="LineNr">20404 </span> 68/push 0/imm32 +<span id="L20405" class="LineNr">20405 </span> 68/push 0/imm32 +<span id="L20406" class="LineNr">20406 </span> 89/<- %eax 4/r32/esp +<span id="L20407" class="LineNr">20407 </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="L20408" class="LineNr">20408 </span> <span class="subxS1Comment"># . new var</span> +<span id="L20409" class="LineNr">20409 </span> 8d/copy-address *(edi+0xc) 2/r32/edx +<span id="L20410" class="LineNr">20410 </span> (<a href='mu.subx.html#L19727'>new-var</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *eax *(eax+4) %edx) +<span id="L20411" class="LineNr">20411 </span> <span class="subxS1Comment"># . reclaim name</span> +<span id="L20412" class="LineNr">20412 </span> 81 0/subop/add %esp 8/imm32 +<span id="L20413" class="LineNr">20413 </span> <span class="subxComment"># var result/edx: (addr var) = lookup(dest-addr->output-var)</span> +<span id="L20414" class="LineNr">20414 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+0xc) *(edi+0x10)) <span class="subxComment"># => eax</span> +<span id="L20415" class="LineNr">20415 </span> 89/<- %edx 0/r32/eax +<span id="L20416" class="LineNr">20416 </span> <span class="subxComment"># result->type = new constant type</span> +<span id="L20417" class="LineNr">20417 </span> 8d/copy-address *(edx+8) 0/r32/eax <span class="subxComment"># Var-type</span> +<span id="L20418" class="LineNr">20418 </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="L20419" class="LineNr">20419 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># => eax</span> +<span id="L20420" class="LineNr">20420 </span> c7 0/subop/copy *eax 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> +<span id="L20421" class="LineNr">20421 </span> c7 0/subop/copy *(eax+4) 6/imm32/constant <span class="subxComment"># Type-tree-value</span> +<span id="L20422" class="LineNr">20422 </span> c7 0/subop/copy *(eax+8) 0/imm32 <span class="subxComment"># Type-tree-left</span> +<span id="L20423" class="LineNr">20423 </span> c7 0/subop/copy *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L20424" class="LineNr">20424 </span> c7 0/subop/copy *(eax+0x10) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L20425" class="LineNr">20425 </span> <span class="subxComment"># result->offset isn't filled out yet</span> +<span id="L20426" class="LineNr">20426 </span> c7 0/subop/copy *(edx+0x14) -1/imm32/uninitialized <span class="subxComment"># Var-offset</span> +<span id="L20427" class="LineNr">20427 </span> } +<span id="L20428" class="LineNr">20428 </span> <span class="subxComment"># out = dest-addr->output-var</span> +<span id="L20429" class="LineNr">20429 </span> 8b/-> *(ebp+0x10) 2/r32/edx +<span id="L20430" class="LineNr">20430 </span> 8b/-> *(edi+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-entry-output-var</span> +<span id="L20431" class="LineNr">20431 </span> 89/<- *edx 0/r32/eax +<span id="L20432" class="LineNr">20432 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Typeinfo-entry-output-var</span> +<span id="L20433" class="LineNr">20433 </span> 89/<- *(edx+4) 0/r32/eax +<span id="L20434" class="LineNr">20434 </span><span class="Constant">$find-or-create-typeinfo-output-var:end</span>: +<span id="L20435" class="LineNr">20435 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L20436" class="LineNr">20436 </span> 81 0/subop/add %esp 8/imm32 +<span id="L20437" class="LineNr">20437 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20438" class="LineNr">20438 </span> 5f/pop-to-edi +<span id="L20439" class="LineNr">20439 </span> 5a/pop-to-edx +<span id="L20440" class="LineNr">20440 </span> 58/pop-to-eax +<span id="L20441" class="LineNr">20441 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20442" class="LineNr">20442 </span> 89/<- %esp 5/r32/ebp +<span id="L20443" class="LineNr">20443 </span> 5d/pop-to-ebp +<span id="L20444" class="LineNr">20444 </span> c3/return +<span id="L20445" class="LineNr">20445 </span> +<span id="L20446" class="LineNr">20446 </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="L20447" class="LineNr">20447 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20448" class="LineNr">20448 </span> 55/push-ebp +<span id="L20449" class="LineNr">20449 </span> 89/<- %ebp 4/r32/esp +<span id="L20450" class="LineNr">20450 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20451" class="LineNr">20451 </span> 50/push-eax +<span id="L20452" class="LineNr">20452 </span> 56/push-esi +<span id="L20453" class="LineNr">20453 </span> 57/push-edi +<span id="L20454" class="LineNr">20454 </span> <span class="subxComment"># eax = lookup(T->fields)</span> +<span id="L20455" class="LineNr">20455 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L20456" class="LineNr">20456 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> +<span id="L20457" class="LineNr">20457 </span> <span class="subxComment"># edi = out</span> +<span id="L20458" class="LineNr">20458 </span> 8b/-> *(ebp+0x10) 7/r32/edi +<span id="L20459" class="LineNr">20459 </span> <span class="subxComment"># var src/esi: (addr handle typeinfo-entry) = get-or-insert-slice(T->fields, f)</span> +<span id="L20460" class="LineNr">20460 </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="L20461" class="LineNr">20461 </span> 89/<- %esi 0/r32/eax +<span id="L20462" class="LineNr">20462 </span> <span class="subxComment"># if src doesn't exist, allocate it</span> +<span id="L20463" class="LineNr">20463 </span> { +<span id="L20464" class="LineNr">20464 </span> 81 7/subop/compare *esi 0/imm32 +<span id="L20465" class="LineNr">20465 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L20466" class="LineNr">20466 </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="L20467" class="LineNr">20467 </span><span class="CommentedCode">#? (write-buffered Stderr "handle at ")</span> +<span id="L20468" class="LineNr">20468 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %esi)</span> +<span id="L20469" class="LineNr">20469 </span><span class="CommentedCode">#? (write-buffered Stderr ": ")</span> +<span id="L20470" class="LineNr">20470 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *esi)</span> +<span id="L20471" class="LineNr">20471 </span><span class="CommentedCode">#? (write-buffered Stderr " ")</span> +<span id="L20472" class="LineNr">20472 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(esi+4))</span> +<span id="L20473" class="LineNr">20473 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L20474" class="LineNr">20474 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L20475" class="LineNr">20475 </span><span class="CommentedCode">#? (lookup *esi *(esi+4))</span> +<span id="L20476" class="LineNr">20476 </span><span class="CommentedCode">#? (write-buffered Stderr "created typeinfo fields at ")</span> +<span id="L20477" class="LineNr">20477 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %esi)</span> +<span id="L20478" class="LineNr">20478 </span><span class="CommentedCode">#? (write-buffered Stderr " for ")</span> +<span id="L20479" class="LineNr">20479 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ebp+8))</span> +<span id="L20480" class="LineNr">20480 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L20481" class="LineNr">20481 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L20482" class="LineNr">20482 </span> } +<span id="L20483" class="LineNr">20483 </span> <span class="subxComment"># *out = src</span> +<span id="L20484" class="LineNr">20484 </span> <span class="subxS1Comment"># . *edi = *src</span> +<span id="L20485" class="LineNr">20485 </span> 8b/-> *esi 0/r32/eax +<span id="L20486" class="LineNr">20486 </span> 89/<- *edi 0/r32/eax +<span id="L20487" class="LineNr">20487 </span> 8b/-> *(esi+4) 0/r32/eax +<span id="L20488" class="LineNr">20488 </span> 89/<- *(edi+4) 0/r32/eax +<span id="L20489" class="LineNr">20489 </span><span class="Constant">$find-or-create-typeinfo-fields:end</span>: +<span id="L20490" class="LineNr">20490 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20491" class="LineNr">20491 </span> 5f/pop-to-edi +<span id="L20492" class="LineNr">20492 </span> 5e/pop-to-esi +<span id="L20493" class="LineNr">20493 </span> 58/pop-to-eax +<span id="L20494" class="LineNr">20494 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20495" class="LineNr">20495 </span> 89/<- %esp 5/r32/ebp +<span id="L20496" class="LineNr">20496 </span> 5d/pop-to-ebp +<span id="L20497" class="LineNr">20497 </span> c3/return +<span id="L20498" class="LineNr">20498 </span> +<span id="L20499" class="LineNr">20499 </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="L20500" class="LineNr">20500 </span> <span class="subxComment"># pseudocode:</span> +<span id="L20501" class="LineNr">20501 </span> <span class="subxComment"># var line: (stream byte 512)</span> +<span id="L20502" class="LineNr">20502 </span> <span class="subxComment"># curr-index = 0</span> +<span id="L20503" class="LineNr">20503 </span> <span class="subxComment"># while true</span> +<span id="L20504" class="LineNr">20504 </span> <span class="subxComment"># clear-stream(line)</span> +<span id="L20505" class="LineNr">20505 </span> <span class="subxComment"># read-line-buffered(in, line)</span> +<span id="L20506" class="LineNr">20506 </span> <span class="subxComment"># if line->write == 0</span> +<span id="L20507" class="LineNr">20507 </span> <span class="subxComment"># abort</span> +<span id="L20508" class="LineNr">20508 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> +<span id="L20509" class="LineNr">20509 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> +<span id="L20510" class="LineNr">20510 </span> <span class="subxComment"># continue</span> +<span id="L20511" class="LineNr">20511 </span> <span class="subxComment"># if slice-equal?(word-slice, "}")</span> +<span id="L20512" class="LineNr">20512 </span> <span class="subxComment"># break</span> +<span id="L20513" class="LineNr">20513 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, line)</span> +<span id="L20514" class="LineNr">20514 </span> <span class="subxComment"># var r: (handle typeinfo-fields) = find-or-create-typeinfo-fields(t, word-slice/v->name)</span> +<span id="L20515" class="LineNr">20515 </span> <span class="subxComment"># TODO: ensure that r->first is null</span> +<span id="L20516" class="LineNr">20516 </span> <span class="subxComment"># r->index = curr-index</span> +<span id="L20517" class="LineNr">20517 </span> <span class="subxComment"># curr-index++</span> +<span id="L20518" class="LineNr">20518 </span> <span class="subxComment"># r->input-var = v</span> +<span id="L20519" class="LineNr">20519 </span> <span class="subxComment"># if r->output-var == 0</span> +<span id="L20520" class="LineNr">20520 </span> <span class="subxComment"># r->output-var = new literal</span> +<span id="L20521" class="LineNr">20521 </span> <span class="subxComment"># TODO: ensure nothing else in line</span> +<span id="L20522" class="LineNr">20522 </span> <span class="subxComment"># t->total-size-in-bytes = -2 (not yet initialized)</span> +<span id="L20523" class="LineNr">20523 </span> <span class="subxComment">#</span> +<span id="L20524" class="LineNr">20524 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20525" class="LineNr">20525 </span> 55/push-ebp +<span id="L20526" class="LineNr">20526 </span> 89/<- %ebp 4/r32/esp +<span id="L20527" class="LineNr">20527 </span> <span class="subxComment"># var curr-index: int at *(ebp-4)</span> <span id="L20528" class="LineNr">20528 </span> 68/push 0/imm32 -<span id="L20529" class="LineNr">20529 </span> 89/<- %esi 4/r32/esp -<span id="L20530" class="LineNr">20530 </span> <span class="subxComment"># var r/ebx: (handle typeinfo-entry)</span> -<span id="L20531" class="LineNr">20531 </span> 68/push 0/imm32 -<span id="L20532" class="LineNr">20532 </span> 68/push 0/imm32 -<span id="L20533" class="LineNr">20533 </span> 89/<- %ebx 4/r32/esp -<span id="L20534" class="LineNr">20534 </span> { -<span id="L20535" class="LineNr">20535 </span><span class="Constant">$populate-mu-type:line-loop</span>: -<span id="L20536" class="LineNr">20536 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> %ecx) -<span id="L20537" class="LineNr">20537 </span> (<a href='122read-line.subx.html#L9'>read-line-buffered</a> *(ebp+8) %ecx) -<span id="L20538" class="LineNr">20538 </span> <span class="subxComment"># if (line->write == 0) abort</span> -<span id="L20539" class="LineNr">20539 </span> 81 7/subop/compare *ecx 0/imm32 -<span id="L20540" class="LineNr">20540 </span> 0f 84/jump-if-= $populate-mu-type:error1/disp32 -<span id="L20541" class="Folded">20541 </span><span class="Folded">+-- 6 lines: #? # dump line ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L20547" class="LineNr">20547 </span> (<a href='mu.subx.html#L17283'>next-mu-token</a> %ecx %edx) -<span id="L20548" class="LineNr">20548 </span> <span class="subxComment"># if slice-empty?(word-slice) continue</span> -<span id="L20549" class="LineNr">20549 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %edx) <span class="subxComment"># => eax</span> -<span id="L20550" class="LineNr">20550 </span> 3d/compare-eax-and 0/imm32 -<span id="L20551" class="LineNr">20551 </span> 0f 85/jump-if-!= <span class="Constant">loop</span>/disp32 -<span id="L20552" class="LineNr">20552 </span> <span class="subxComment"># if slice-equal?(word-slice, "}") break</span> -<span id="L20553" class="LineNr">20553 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"}"</span>) -<span id="L20554" class="LineNr">20554 </span> 3d/compare-eax-and 0/imm32 -<span id="L20555" class="LineNr">20555 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L20556" class="LineNr">20556 </span><span class="Constant">$populate-mu-type:parse-element</span>: -<span id="L20557" class="LineNr">20557 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> -<span id="L20558" class="LineNr">20558 </span> <span class="subxComment"># must do this first to strip the trailing ':' from word-slice before</span> -<span id="L20559" class="LineNr">20559 </span> <span class="subxComment"># using it in find-or-create-typeinfo-fields below</span> -<span id="L20560" class="LineNr">20560 </span> <span class="subxComment"># TODO: clean up that mutation in parse-var-with-type</span> -<span id="L20561" class="LineNr">20561 </span> (<a href='mu.subx.html#L20705'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> -<span id="L20562" class="LineNr">20562 </span> (<a href='mu.subx.html#L16928'>parse-var-with-type</a> %edx %ecx %esi %eax *(ebp+0x10) *(ebp+0x14)) -<span id="L20563" class="LineNr">20563 </span> <span class="subxComment"># if v is an addr, abort</span> -<span id="L20564" class="LineNr">20564 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L20565" class="LineNr">20565 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L20566" class="LineNr">20566 </span> (<a href='mu.subx.html#L35916'>mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L20567" class="LineNr">20567 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20568" class="LineNr">20568 </span> 0f 85/jump-if-!= $populate-mu-type:error2/disp32 -<span id="L20569" class="LineNr">20569 </span> <span class="subxComment"># if v is an array, abort (we could support it, but initialization gets complex)</span> -<span id="L20570" class="LineNr">20570 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L20571" class="LineNr">20571 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L20572" class="LineNr">20572 </span> (<a href='mu.subx.html#L35938'>mu-array-type?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L20573" class="LineNr">20573 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20574" class="LineNr">20574 </span> 0f 85/jump-if-!= $populate-mu-type:error3/disp32 -<span id="L20575" class="LineNr">20575 </span> <span class="subxComment"># if v is a byte, abort</span> -<span id="L20576" class="LineNr">20576 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L20577" class="LineNr">20577 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L20578" class="LineNr">20578 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 8) <span class="subxComment"># byte => eax</span> -<span id="L20579" class="LineNr">20579 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20580" class="LineNr">20580 </span> 0f 85/jump-if-!= $populate-mu-type:error4/disp32 -<span id="L20581" class="LineNr">20581 </span> <span class="subxComment"># if v is a slice, abort</span> -<span id="L20582" class="LineNr">20582 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L20583" class="LineNr">20583 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L20584" class="LineNr">20584 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 0xc) <span class="subxComment"># slice => eax</span> -<span id="L20585" class="LineNr">20585 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20586" class="LineNr">20586 </span> 0f 85/jump-if-!= $populate-mu-type:error5/disp32 -<span id="L20587" class="LineNr">20587 </span> <span class="subxComment"># if v is a stream, abort (we could support it, but initialization gets even more complex)</span> -<span id="L20588" class="LineNr">20588 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L20589" class="LineNr">20589 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L20590" class="LineNr">20590 </span> (<a href='mu.subx.html#L36000'>mu-stream-type?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L20591" class="LineNr">20591 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20592" class="LineNr">20592 </span> 0f 85/jump-if-!= $populate-mu-type:error6/disp32 -<span id="L20593" class="LineNr">20593 </span> <span class="subxComment"># var tmp/ecx</span> -<span id="L20594" class="LineNr">20594 </span> 51/push-ecx -<span id="L20595" class="LineNr">20595 </span><span class="Constant">$populate-mu-type:create-typeinfo-fields</span>: -<span id="L20596" class="LineNr">20596 </span> <span class="subxComment"># var r/ebx: (handle typeinfo-entry)</span> -<span id="L20597" class="LineNr">20597 </span> (<a href='mu.subx.html#L20424'>find-or-create-typeinfo-fields</a> %edi %edx %ebx) -<span id="L20598" class="LineNr">20598 </span> <span class="subxComment"># r->index = curr-index</span> -<span id="L20599" class="LineNr">20599 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L20600" class="LineNr">20600 </span> 8b/-> *(ebp-4) 1/r32/ecx -<span id="L20601" class="LineNr">20601 </span><span class="CommentedCode">#? (write-buffered Stderr "saving index ")</span> -<span id="L20602" class="LineNr">20602 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ecx)</span> -<span id="L20603" class="LineNr">20603 </span><span class="CommentedCode">#? (write-buffered Stderr " at ")</span> -<span id="L20604" class="LineNr">20604 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %edi)</span> -<span id="L20605" class="LineNr">20605 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L20606" class="LineNr">20606 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L20607" class="LineNr">20607 </span> 89/<- *(eax+8) 1/r32/ecx <span class="subxComment"># Typeinfo-entry-index</span> -<span id="L20608" class="LineNr">20608 </span> <span class="subxComment"># ++curr-index</span> -<span id="L20609" class="LineNr">20609 </span> ff 0/subop/increment *(ebp-4) -<span id="L20610" class="LineNr">20610 </span><span class="Constant">$populate-mu-type:set-input-type</span>: -<span id="L20611" class="LineNr">20611 </span> <span class="subxComment"># r->input-var = v</span> -<span id="L20612" class="LineNr">20612 </span> 8b/-> *esi 1/r32/ecx -<span id="L20613" class="LineNr">20613 </span> 89/<- *eax 1/r32/ecx <span class="subxComment"># Typeinfo-entry-input-var</span> -<span id="L20614" class="LineNr">20614 </span> 8b/-> *(esi+4) 1/r32/ecx -<span id="L20615" class="LineNr">20615 </span> 89/<- *(eax+4) 1/r32/ecx <span class="subxComment"># Typeinfo-entry-input-var</span> -<span id="L20616" class="LineNr">20616 </span> <span class="subxComment"># restore line</span> -<span id="L20617" class="LineNr">20617 </span> 59/pop-to-ecx -<span id="L20618" class="LineNr">20618 </span> { -<span id="L20619" class="LineNr">20619 </span><span class="Constant">$populate-mu-type:create-output-type</span>: -<span id="L20620" class="LineNr">20620 </span> <span class="subxComment"># if (r->output-var == 0) create a new var with some placeholder data</span> -<span id="L20621" class="LineNr">20621 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Typeinfo-entry-output-var</span> -<span id="L20622" class="LineNr">20622 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L20623" class="LineNr">20623 </span> 8d/copy-address *(eax+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-entry-output-var</span> -<span id="L20624" class="LineNr">20624 </span> (<a href='mu.subx.html#L19855'>new-literal</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %edx %eax) -<span id="L20625" class="LineNr">20625 </span> } -<span id="L20626" class="LineNr">20626 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L20627" class="LineNr">20627 </span> } -<span id="L20628" class="LineNr">20628 </span><span class="Constant">$populate-mu-type:invalidate-total-size-in-bytes</span>: -<span id="L20629" class="LineNr">20629 </span> <span class="subxComment"># Offsets and total size may not be accurate here since we may not yet</span> -<span id="L20630" class="LineNr">20630 </span> <span class="subxComment"># have encountered the element types.</span> -<span id="L20631" class="LineNr">20631 </span> <span class="subxComment"># We'll recompute them separately after parsing the entire program.</span> -<span id="L20632" class="LineNr">20632 </span> c7 0/subop/copy *(edi+0xc) -2/imm32/uninitialized <span class="subxComment"># Typeinfo-total-size-in-bytes</span> -<span id="L20633" class="LineNr">20633 </span><span class="Constant">$populate-mu-type:end</span>: -<span id="L20634" class="LineNr">20634 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L20635" class="LineNr">20635 </span> 81 0/subop/add %esp 0x224/imm32 -<span id="L20636" class="LineNr">20636 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20637" class="LineNr">20637 </span> 5f/pop-to-edi -<span id="L20638" class="LineNr">20638 </span> 5e/pop-to-esi -<span id="L20639" class="LineNr">20639 </span> 5b/pop-to-ebx -<span id="L20640" class="LineNr">20640 </span> 5a/pop-to-edx -<span id="L20641" class="LineNr">20641 </span> 59/pop-to-ecx -<span id="L20642" class="LineNr">20642 </span> 58/pop-to-eax -<span id="L20643" class="LineNr">20643 </span> <span class="subxComment"># reclaim curr-index</span> -<span id="L20644" class="LineNr">20644 </span> 81 0/subop/add %esp 4/imm32 -<span id="L20645" class="LineNr">20645 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20646" class="LineNr">20646 </span> 89/<- %esp 5/r32/ebp -<span id="L20647" class="LineNr">20647 </span> 5d/pop-to-ebp -<span id="L20648" class="LineNr">20648 </span> c3/return -<span id="L20649" class="LineNr">20649 </span> -<span id="L20650" class="LineNr">20650 </span><span class="Constant">$populate-mu-type:error1</span>: -<span id="L20651" class="LineNr">20651 </span> <span class="subxComment"># error("incomplete type definition '" t->name "'\n")</span> -<span id="L20652" class="LineNr">20652 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"incomplete type definition '"</span>) -<span id="L20653" class="LineNr">20653 </span> (<a href='mu.subx.html#L20705'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> -<span id="L20654" class="LineNr">20654 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L20655" class="LineNr">20655 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"\n"</span>) -<span id="L20656" class="LineNr">20656 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L20657" class="LineNr">20657 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L20658" class="LineNr">20658 </span> <span class="subxComment"># never gets here</span> -<span id="L20659" class="LineNr">20659 </span> -<span id="L20660" class="LineNr">20660 </span><span class="Constant">$populate-mu-type:error2</span>: -<span id="L20661" class="LineNr">20661 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) -<span id="L20662" class="LineNr">20662 </span> (<a href='mu.subx.html#L20705'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> -<span id="L20663" class="LineNr">20663 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L20664" class="LineNr">20664 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": 'addr' elements not allowed\n"</span>) -<span id="L20665" class="LineNr">20665 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L20666" class="LineNr">20666 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L20667" class="LineNr">20667 </span> <span class="subxComment"># never gets here</span> -<span id="L20668" class="LineNr">20668 </span> -<span id="L20669" class="LineNr">20669 </span><span class="Constant">$populate-mu-type:error3</span>: -<span id="L20670" class="LineNr">20670 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) -<span id="L20671" class="LineNr">20671 </span> (<a href='mu.subx.html#L20705'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> -<span id="L20672" class="LineNr">20672 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L20673" class="LineNr">20673 </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="L20674" class="LineNr">20674 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L20675" class="LineNr">20675 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L20676" class="LineNr">20676 </span> <span class="subxComment"># never gets here</span> -<span id="L20677" class="LineNr">20677 </span> -<span id="L20678" class="LineNr">20678 </span><span class="Constant">$populate-mu-type:error4</span>: -<span id="L20679" class="LineNr">20679 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) -<span id="L20680" class="LineNr">20680 </span> (<a href='mu.subx.html#L20705'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> -<span id="L20681" class="LineNr">20681 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L20682" class="LineNr">20682 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": 'byte' elements not allowed\n"</span>) -<span id="L20683" class="LineNr">20683 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L20684" class="LineNr">20684 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L20685" class="LineNr">20685 </span> <span class="subxComment"># never gets here</span> -<span id="L20686" class="LineNr">20686 </span> -<span id="L20687" class="LineNr">20687 </span><span class="Constant">$populate-mu-type:error5</span>: -<span id="L20688" class="LineNr">20688 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) -<span id="L20689" class="LineNr">20689 </span> (<a href='mu.subx.html#L20705'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> -<span id="L20690" class="LineNr">20690 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L20691" class="LineNr">20691 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": 'slice' elements not allowed\n"</span>) -<span id="L20692" class="LineNr">20692 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L20693" class="LineNr">20693 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L20694" class="LineNr">20694 </span> <span class="subxComment"># never gets here</span> -<span id="L20695" class="LineNr">20695 </span> -<span id="L20696" class="LineNr">20696 </span><span class="Constant">$populate-mu-type:error6</span>: -<span id="L20697" class="LineNr">20697 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) -<span id="L20698" class="LineNr">20698 </span> (<a href='mu.subx.html#L20705'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> -<span id="L20699" class="LineNr">20699 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L20700" class="LineNr">20700 </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="L20701" class="LineNr">20701 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L20702" class="LineNr">20702 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L20703" class="LineNr">20703 </span> <span class="subxComment"># never gets here</span> -<span id="L20704" class="LineNr">20704 </span> -<span id="L20705" class="LineNr">20705 </span><span class="subxFunction">type-name</span>: <span class="subxComment"># index: int -> result/eax: (addr array byte)</span> -<span id="L20706" class="LineNr">20706 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20707" class="LineNr">20707 </span> 55/push-ebp -<span id="L20708" class="LineNr">20708 </span> 89/<- %ebp 4/r32/esp -<span id="L20709" class="LineNr">20709 </span> <span class="subxComment">#</span> -<span id="L20710" class="LineNr">20710 </span> (index <span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span> *(ebp+8)) -<span id="L20711" class="LineNr">20711 </span><span class="Constant">$type-name:end</span>: -<span id="L20712" class="LineNr">20712 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20713" class="LineNr">20713 </span> 89/<- %esp 5/r32/ebp -<span id="L20714" class="LineNr">20714 </span> 5d/pop-to-ebp -<span id="L20715" class="LineNr">20715 </span> c3/return -<span id="L20716" class="LineNr">20716 </span> -<span id="L20717" class="LineNr">20717 </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="L20718" class="LineNr">20718 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20719" class="LineNr">20719 </span> 55/push-ebp -<span id="L20720" class="LineNr">20720 </span> 89/<- %ebp 4/r32/esp -<span id="L20721" class="LineNr">20721 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20722" class="LineNr">20722 </span> 56/push-esi -<span id="L20723" class="LineNr">20723 </span> <span class="subxComment"># TODO: bounds-check index</span> -<span id="L20724" class="LineNr">20724 </span> <span class="subxComment"># esi = arr</span> -<span id="L20725" class="LineNr">20725 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L20726" class="LineNr">20726 </span> <span class="subxComment"># eax = index</span> -<span id="L20727" class="LineNr">20727 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L20728" class="LineNr">20728 </span> <span class="subxComment"># eax = *(arr + 12 + index)</span> -<span id="L20729" class="LineNr">20729 </span> 8b/-> *(esi+eax<<2+0xc) 0/r32/eax -<span id="L20730" class="LineNr">20730 </span><span class="Constant">$index:end</span>: -<span id="L20731" class="LineNr">20731 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20732" class="LineNr">20732 </span> 5e/pop-to-esi -<span id="L20733" class="LineNr">20733 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20734" class="LineNr">20734 </span> 89/<- %esp 5/r32/ebp -<span id="L20735" class="LineNr">20735 </span> 5d/pop-to-ebp -<span id="L20736" class="LineNr">20736 </span> c3/return -<span id="L20737" class="LineNr">20737 </span> -<span id="L20738" class="LineNr">20738 </span><span class="subxComment">#######################################################</span> -<span id="L20739" class="LineNr">20739 </span><span class="subxComment"># Compute type sizes</span> -<span id="L20740" class="LineNr">20740 </span><span class="subxComment">#######################################################</span> -<span id="L20741" class="LineNr">20741 </span> -<span id="L20742" class="LineNr">20742 </span><span class="subxComment"># Compute the sizes of all user-defined types.</span> -<span id="L20743" class="LineNr">20743 </span><span class="subxComment"># We'll need the sizes of their elements, which may be other user-defined</span> -<span id="L20744" class="LineNr">20744 </span><span class="subxComment"># types, which we will compute as needed.</span> -<span id="L20745" class="LineNr">20745 </span> -<span id="L20746" class="LineNr">20746 </span><span class="subxComment"># Initially, all user-defined types have their sizes set to -2 (invalid)</span> -<span id="L20747" class="LineNr">20747 </span><span class="subxFunction">populate-mu-type-sizes</span>: <span class="subxComment"># err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L20748" class="LineNr">20748 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20749" class="LineNr">20749 </span> 55/push-ebp -<span id="L20750" class="LineNr">20750 </span> 89/<- %ebp 4/r32/esp -<span id="L20751" class="LineNr">20751 </span><span class="Constant">$populate-mu-type-sizes:total-sizes</span>: -<span id="L20752" class="LineNr">20752 </span> <span class="subxComment"># var curr/eax: (addr typeinfo) = lookup(Program->types)</span> -<span id="L20753" class="LineNr">20753 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *_Program-types *_Program-types->payload) <span class="subxComment"># => eax</span> -<span id="L20754" class="LineNr">20754 </span> { -<span id="L20755" class="LineNr">20755 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L20756" class="LineNr">20756 </span> 3d/compare-eax-and 0/imm32/null -<span id="L20757" class="LineNr">20757 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20758" class="LineNr">20758 </span> (<a href='mu.subx.html#L20784'>populate-mu-type-sizes-in-type</a> %eax *(ebp+8) *(ebp+0xc)) -<span id="L20759" class="LineNr">20759 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L20760" class="LineNr">20760 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Typeinfo-next Typeinfo-next => eax</span> -<span id="L20761" class="LineNr">20761 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L20762" class="LineNr">20762 </span> } -<span id="L20763" class="LineNr">20763 </span><span class="Constant">$populate-mu-type-sizes:offsets</span>: -<span id="L20764" class="LineNr">20764 </span> <span class="subxComment"># curr = *Program->types</span> -<span id="L20765" class="LineNr">20765 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *_Program-types *_Program-types->payload) <span class="subxComment"># => eax</span> -<span id="L20766" class="LineNr">20766 </span> { -<span id="L20767" class="LineNr">20767 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L20768" class="LineNr">20768 </span> 3d/compare-eax-and 0/imm32/null -<span id="L20769" class="LineNr">20769 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20770" class="LineNr">20770 </span> (<a href='mu.subx.html#L20948'>populate-mu-type-offsets</a> %eax *(ebp+8) *(ebp+0xc)) -<span id="L20771" class="LineNr">20771 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L20772" class="LineNr">20772 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Typeinfo-next Typeinfo-next => eax</span> -<span id="L20773" class="LineNr">20773 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L20774" class="LineNr">20774 </span> } -<span id="L20775" class="LineNr">20775 </span><span class="Constant">$populate-mu-type-sizes:end</span>: -<span id="L20776" class="LineNr">20776 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20777" class="LineNr">20777 </span> 89/<- %esp 5/r32/ebp -<span id="L20778" class="LineNr">20778 </span> 5d/pop-to-ebp -<span id="L20779" class="LineNr">20779 </span> c3/return -<span id="L20780" class="LineNr">20780 </span> -<span id="L20781" class="LineNr">20781 </span><span class="subxComment"># compute sizes of all fields, recursing as necessary</span> -<span id="L20782" class="LineNr">20782 </span><span class="subxComment"># sum up all their sizes to arrive at total size</span> -<span id="L20783" class="LineNr">20783 </span><span class="subxComment"># fields may be out of order, but that doesn't affect the answer</span> -<span id="L20784" class="LineNr">20784 </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="L20785" class="LineNr">20785 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20786" class="LineNr">20786 </span> 55/push-ebp -<span id="L20787" class="LineNr">20787 </span> 89/<- %ebp 4/r32/esp -<span id="L20788" class="LineNr">20788 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20789" class="LineNr">20789 </span> 50/push-eax -<span id="L20790" class="LineNr">20790 </span> 51/push-ecx -<span id="L20791" class="LineNr">20791 </span> 52/push-edx -<span id="L20792" class="LineNr">20792 </span> 56/push-esi -<span id="L20793" class="LineNr">20793 </span> 57/push-edi -<span id="L20794" class="LineNr">20794 </span> <span class="subxComment"># esi = T</span> -<span id="L20795" class="LineNr">20795 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L20796" class="LineNr">20796 </span> <span class="subxComment"># if T is already computed, return</span> -<span id="L20797" class="LineNr">20797 </span> 81 7/subop/compare *(esi+0xc) 0/imm32 <span class="subxComment"># Typeinfo-total-size-in-bytes</span> -<span id="L20798" class="LineNr">20798 </span> 0f 8d/jump-if->= $populate-mu-type-sizes-in-type:end/disp32 -<span id="L20799" class="LineNr">20799 </span> <span class="subxComment"># if T is being computed, abort</span> -<span id="L20800" class="LineNr">20800 </span> 81 7/subop/compare *(esi+0xc) -1/imm32/being-computed <span class="subxComment"># Typeinfo-total-size-in-bytes</span> -<span id="L20801" class="LineNr">20801 </span> 0f 84/jump-if-= $populate-mu-type-sizes-in-type:abort/disp32 -<span id="L20802" class="LineNr">20802 </span> <span class="subxComment"># tag T (-2 to -1) to avoid infinite recursion</span> -<span id="L20803" class="LineNr">20803 </span> c7 0/subop/copy *(esi+0xc) -1/imm32/being-computed <span class="subxComment"># Typeinfo-total-size-in-bytes</span> -<span id="L20804" class="LineNr">20804 </span> <span class="subxComment"># var total-size/edi: int = 0</span> -<span id="L20805" class="LineNr">20805 </span> bf/copy-to-edi 0/imm32 -<span id="L20806" class="LineNr">20806 </span> <span class="subxH1Comment"># - for every field, if it's a user-defined type, compute its size</span> -<span id="L20807" class="LineNr">20807 </span> <span class="subxComment"># var table/ecx: (addr table (handle array byte) (handle typeinfo-entry)) = lookup(T->fields)</span> -<span id="L20808" class="LineNr">20808 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> -<span id="L20809" class="LineNr">20809 </span> 89/<- %ecx 0/r32/eax -<span id="L20810" class="LineNr">20810 </span> <span class="subxComment"># var table-size/edx: int = table->write</span> -<span id="L20811" class="LineNr">20811 </span> 8b/-> *ecx 2/r32/edx <span class="subxComment"># stream-write</span> -<span id="L20812" class="LineNr">20812 </span> <span class="subxComment"># var curr/ecx: (addr table_row) = table->data</span> -<span id="L20813" class="LineNr">20813 </span> 8d/copy-address *(ecx+0xc) 1/r32/ecx -<span id="L20814" class="LineNr">20814 </span> <span class="subxComment"># var max/edx: (addr table_row) = table->data + table->write</span> -<span id="L20815" class="LineNr">20815 </span> 8d/copy-address *(ecx+edx) 2/r32/edx -<span id="L20816" class="LineNr">20816 </span> { -<span id="L20817" class="LineNr">20817 </span><span class="Constant">$populate-mu-type-sizes-in-type:loop</span>: -<span id="L20818" class="LineNr">20818 </span> <span class="subxComment"># if (curr >= max) break</span> -<span id="L20819" class="LineNr">20819 </span> 39/compare %ecx 2/r32/edx -<span id="L20820" class="LineNr">20820 </span> 73/jump-if-addr>= <span class="Constant">break</span>/disp8 -<span id="L20821" class="LineNr">20821 </span> <span class="subxComment"># var t/eax: (addr typeinfo-entry) = lookup(curr->value)</span> -<span id="L20822" class="LineNr">20822 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># => eax</span> -<span id="L20823" class="LineNr">20823 </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="L20824" class="LineNr">20824 </span> 81 7/subop/compare *eax 0/imm32 <span class="subxComment"># Typeinfo-entry-input-var</span> -<span id="L20825" class="LineNr">20825 </span> 74/jump-if-= $populate-mu-type-sizes-in-type:end/disp8 -<span id="L20826" class="LineNr">20826 </span> <span class="subxComment"># compute size of t->input-var</span> -<span id="L20827" class="LineNr">20827 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Typeinfo-entry-input-var Typeinfo-entry-input-var => eax</span> -<span id="L20828" class="LineNr">20828 </span> (<a href='mu.subx.html#L20858'>compute-size-of-var</a> %eax *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L20829" class="LineNr">20829 </span> <span class="subxComment"># result += eax</span> -<span id="L20830" class="LineNr">20830 </span> 01/add-to %edi 0/r32/eax -<span id="L20831" class="LineNr">20831 </span> <span class="subxComment"># curr += row-size</span> -<span id="L20832" class="LineNr">20832 </span> 81 0/subop/add %ecx 0x10/imm32 <span class="subxComment"># Typeinfo-fields-row-size</span> -<span id="L20833" class="LineNr">20833 </span> <span class="subxComment">#</span> -<span id="L20834" class="LineNr">20834 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L20835" class="LineNr">20835 </span> } -<span id="L20836" class="LineNr">20836 </span> <span class="subxH1Comment"># - save result</span> -<span id="L20837" class="LineNr">20837 </span> 89/<- *(esi+0xc) 7/r32/edi <span class="subxComment"># Typeinfo-total-size-in-bytes</span> -<span id="L20838" class="LineNr">20838 </span><span class="Constant">$populate-mu-type-sizes-in-type:end</span>: -<span id="L20839" class="LineNr">20839 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20840" class="LineNr">20840 </span> 5f/pop-to-edi -<span id="L20841" class="LineNr">20841 </span> 5e/pop-to-esi -<span id="L20842" class="LineNr">20842 </span> 5a/pop-to-edx -<span id="L20843" class="LineNr">20843 </span> 59/pop-to-ecx -<span id="L20844" class="LineNr">20844 </span> 58/pop-to-eax -<span id="L20845" class="LineNr">20845 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20846" class="LineNr">20846 </span> 89/<- %esp 5/r32/ebp -<span id="L20847" class="LineNr">20847 </span> 5d/pop-to-ebp -<span id="L20848" class="LineNr">20848 </span> c3/return -<span id="L20849" class="LineNr">20849 </span> -<span id="L20850" class="LineNr">20850 </span><span class="Constant">$populate-mu-type-sizes-in-type:abort</span>: -<span id="L20851" class="LineNr">20851 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"cycle in type definitions\n"</span>) -<span id="L20852" class="LineNr">20852 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L20853" class="LineNr">20853 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L20854" class="LineNr">20854 </span> <span class="subxComment"># never gets here</span> -<span id="L20855" class="LineNr">20855 </span> -<span id="L20856" class="LineNr">20856 </span><span class="subxComment"># Analogous to size-of, except we need to compute what size-of can just read</span> -<span id="L20857" class="LineNr">20857 </span><span class="subxComment"># off the right data structures.</span> -<span id="L20858" class="LineNr">20858 </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="L20859" class="LineNr">20859 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20860" class="LineNr">20860 </span> 55/push-ebp -<span id="L20861" class="LineNr">20861 </span> 89/<- %ebp 4/r32/esp -<span id="L20862" class="LineNr">20862 </span> <span class="subxS1Comment"># . push registers</span> -<span id="L20863" class="LineNr">20863 </span> 51/push-ecx -<span id="L20864" class="LineNr">20864 </span> <span class="subxComment"># var t/ecx: (addr type-tree) = lookup(v->type)</span> -<span id="L20865" class="LineNr">20865 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L20866" class="LineNr">20866 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L20867" class="LineNr">20867 </span> 89/<- %ecx 0/r32/eax -<span id="L20868" class="LineNr">20868 </span> <span class="subxComment"># if (t->is-atom == false) t = lookup(t->left)</span> -<span id="L20869" class="LineNr">20869 </span> { -<span id="L20870" class="LineNr">20870 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L20871" class="LineNr">20871 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L20872" class="LineNr">20872 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L20873" class="LineNr">20873 </span> 89/<- %ecx 0/r32/eax -<span id="L20874" class="LineNr">20874 </span> } -<span id="L20875" class="LineNr">20875 </span> <span class="subxComment"># TODO: ensure t is an atom</span> -<span id="L20876" class="LineNr">20876 </span> (<a href='mu.subx.html#L20885'>compute-size-of-type-id</a> *(ecx+4) *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># Type-tree-value => eax</span> -<span id="L20877" class="LineNr">20877 </span><span class="Constant">$compute-size-of-var:end</span>: -<span id="L20878" class="LineNr">20878 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20879" class="LineNr">20879 </span> 59/pop-to-ecx -<span id="L20880" class="LineNr">20880 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20881" class="LineNr">20881 </span> 89/<- %esp 5/r32/ebp -<span id="L20882" class="LineNr">20882 </span> 5d/pop-to-ebp -<span id="L20883" class="LineNr">20883 </span> c3/return -<span id="L20884" class="LineNr">20884 </span> -<span id="L20885" class="LineNr">20885 </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="L20886" class="LineNr">20886 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20887" class="LineNr">20887 </span> 55/push-ebp -<span id="L20888" class="LineNr">20888 </span> 89/<- %ebp 4/r32/esp -<span id="L20889" class="LineNr">20889 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20890" class="LineNr">20890 </span> 51/push-ecx -<span id="L20891" class="LineNr">20891 </span> <span class="subxComment"># var out/ecx: (handle typeinfo)</span> -<span id="L20892" class="LineNr">20892 </span> 68/push 0/imm32 -<span id="L20893" class="LineNr">20893 </span> 68/push 0/imm32 -<span id="L20894" class="LineNr">20894 </span> 89/<- %ecx 4/r32/esp -<span id="L20895" class="LineNr">20895 </span> <span class="subxComment"># eax = t</span> -<span id="L20896" class="LineNr">20896 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L20897" class="LineNr">20897 </span> <span class="subxComment"># if t is a literal, return 0</span> -<span id="L20898" class="LineNr">20898 </span> 3d/compare-eax-and 0/imm32/literal -<span id="L20899" class="LineNr">20899 </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="L20900" class="LineNr">20900 </span> <span class="subxComment"># if t is a byte, return 4 (because we don't really support non-multiples of 4)</span> -<span id="L20901" class="LineNr">20901 </span> 3d/compare-eax-and 8/imm32/byte -<span id="L20902" class="LineNr">20902 </span> { -<span id="L20903" class="LineNr">20903 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L20904" class="LineNr">20904 </span> b8/copy-to-eax 4/imm32 -<span id="L20905" class="LineNr">20905 </span> eb/jump $compute-size-of-type-id:end/disp8 -<span id="L20906" class="LineNr">20906 </span> } -<span id="L20907" class="LineNr">20907 </span> <span class="subxComment"># if t is a handle, return 8</span> -<span id="L20908" class="LineNr">20908 </span> 3d/compare-eax-and 4/imm32/handle -<span id="L20909" class="LineNr">20909 </span> { -<span id="L20910" class="LineNr">20910 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L20911" class="LineNr">20911 </span> b8/copy-to-eax 8/imm32 -<span id="L20912" class="LineNr">20912 </span> eb/jump $compute-size-of-type-id:end/disp8 <span class="subxComment"># eax changes type from type-id to int</span> -<span id="L20913" class="LineNr">20913 </span> } -<span id="L20914" class="LineNr">20914 </span> <span class="subxComment"># if t is a slice, return 8</span> -<span id="L20915" class="LineNr">20915 </span> 3d/compare-eax-and 0xc/imm32/slice -<span id="L20916" class="LineNr">20916 </span> { -<span id="L20917" class="LineNr">20917 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L20918" class="LineNr">20918 </span> b8/copy-to-eax 8/imm32 -<span id="L20919" class="LineNr">20919 </span> eb/jump $compute-size-of-type-id:end/disp8 <span class="subxComment"># eax changes type from type-id to int</span> -<span id="L20920" class="LineNr">20920 </span> } -<span id="L20921" class="LineNr">20921 </span> <span class="subxComment"># if t is a user-defined type, compute its size</span> -<span id="L20922" class="LineNr">20922 </span> <span class="subxComment"># TODO: support non-atom type</span> -<span id="L20923" class="LineNr">20923 </span> (<a href='mu.subx.html#L20310'>find-typeinfo</a> %eax %ecx) +<span id="L20529" class="LineNr">20529 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20530" class="LineNr">20530 </span> 50/push-eax +<span id="L20531" class="LineNr">20531 </span> 51/push-ecx +<span id="L20532" class="LineNr">20532 </span> 52/push-edx +<span id="L20533" class="LineNr">20533 </span> 53/push-ebx +<span id="L20534" class="LineNr">20534 </span> 56/push-esi +<span id="L20535" class="LineNr">20535 </span> 57/push-edi +<span id="L20536" class="LineNr">20536 </span> <span class="subxComment"># edi = t</span> +<span id="L20537" class="LineNr">20537 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L20538" class="LineNr">20538 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> +<span id="L20539" class="LineNr">20539 </span> 81 5/subop/subtract %esp 0x200/imm32 +<span id="L20540" class="LineNr">20540 </span> 68/push 0x200/imm32/size +<span id="L20541" class="LineNr">20541 </span> 68/push 0/imm32/read +<span id="L20542" class="LineNr">20542 </span> 68/push 0/imm32/write +<span id="L20543" class="LineNr">20543 </span> 89/<- %ecx 4/r32/esp +<span id="L20544" class="LineNr">20544 </span> <span class="subxComment"># var word-slice/edx: slice</span> +<span id="L20545" class="LineNr">20545 </span> 68/push 0/imm32/end +<span id="L20546" class="LineNr">20546 </span> 68/push 0/imm32/start +<span id="L20547" class="LineNr">20547 </span> 89/<- %edx 4/r32/esp +<span id="L20548" class="LineNr">20548 </span> <span class="subxComment"># var v/esi: (handle var)</span> +<span id="L20549" class="LineNr">20549 </span> 68/push 0/imm32 +<span id="L20550" class="LineNr">20550 </span> 68/push 0/imm32 +<span id="L20551" class="LineNr">20551 </span> 89/<- %esi 4/r32/esp +<span id="L20552" class="LineNr">20552 </span> <span class="subxComment"># var r/ebx: (handle typeinfo-entry)</span> +<span id="L20553" class="LineNr">20553 </span> 68/push 0/imm32 +<span id="L20554" class="LineNr">20554 </span> 68/push 0/imm32 +<span id="L20555" class="LineNr">20555 </span> 89/<- %ebx 4/r32/esp +<span id="L20556" class="LineNr">20556 </span> { +<span id="L20557" class="LineNr">20557 </span><span class="Constant">$populate-mu-type:line-loop</span>: +<span id="L20558" class="LineNr">20558 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> %ecx) +<span id="L20559" class="LineNr">20559 </span> (<a href='122read-line.subx.html#L9'>read-line-buffered</a> *(ebp+8) %ecx) +<span id="L20560" class="LineNr">20560 </span> <span class="subxComment"># if (line->write == 0) abort</span> +<span id="L20561" class="LineNr">20561 </span> 81 7/subop/compare *ecx 0/imm32 +<span id="L20562" class="LineNr">20562 </span> 0f 84/jump-if-= $populate-mu-type:error1/disp32 +<span id="L20563" class="Folded">20563 </span><span class="Folded">+-- 6 lines: #? # dump line ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L20569" class="LineNr">20569 </span> (<a href='mu.subx.html#L17305'>next-mu-token</a> %ecx %edx) +<span id="L20570" class="LineNr">20570 </span> <span class="subxComment"># if slice-empty?(word-slice) continue</span> +<span id="L20571" class="LineNr">20571 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %edx) <span class="subxComment"># => eax</span> +<span id="L20572" class="LineNr">20572 </span> 3d/compare-eax-and 0/imm32 +<span id="L20573" class="LineNr">20573 </span> 0f 85/jump-if-!= <span class="Constant">loop</span>/disp32 +<span id="L20574" class="LineNr">20574 </span> <span class="subxComment"># if slice-equal?(word-slice, "}") break</span> +<span id="L20575" class="LineNr">20575 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"}"</span>) +<span id="L20576" class="LineNr">20576 </span> 3d/compare-eax-and 0/imm32 +<span id="L20577" class="LineNr">20577 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L20578" class="LineNr">20578 </span><span class="Constant">$populate-mu-type:parse-element</span>: +<span id="L20579" class="LineNr">20579 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> +<span id="L20580" class="LineNr">20580 </span> <span class="subxComment"># must do this first to strip the trailing ':' from word-slice before</span> +<span id="L20581" class="LineNr">20581 </span> <span class="subxComment"># using it in find-or-create-typeinfo-fields below</span> +<span id="L20582" class="LineNr">20582 </span> <span class="subxComment"># TODO: clean up that mutation in parse-var-with-type</span> +<span id="L20583" class="LineNr">20583 </span> (<a href='mu.subx.html#L20727'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> +<span id="L20584" class="LineNr">20584 </span> (<a href='mu.subx.html#L16950'>parse-var-with-type</a> %edx %ecx %esi %eax *(ebp+0x10) *(ebp+0x14)) +<span id="L20585" class="LineNr">20585 </span> <span class="subxComment"># if v is an addr, abort</span> +<span id="L20586" class="LineNr">20586 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L20587" class="LineNr">20587 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L20588" class="LineNr">20588 </span> (<a href='mu.subx.html#L36245'>mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L20589" class="LineNr">20589 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20590" class="LineNr">20590 </span> 0f 85/jump-if-!= $populate-mu-type:error2/disp32 +<span id="L20591" class="LineNr">20591 </span> <span class="subxComment"># if v is an array, abort (we could support it, but initialization gets complex)</span> +<span id="L20592" class="LineNr">20592 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L20593" class="LineNr">20593 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L20594" class="LineNr">20594 </span> (<a href='mu.subx.html#L36267'>mu-array-type?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L20595" class="LineNr">20595 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20596" class="LineNr">20596 </span> 0f 85/jump-if-!= $populate-mu-type:error3/disp32 +<span id="L20597" class="LineNr">20597 </span> <span class="subxComment"># if v is a byte, abort</span> +<span id="L20598" class="LineNr">20598 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L20599" class="LineNr">20599 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L20600" class="LineNr">20600 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 8) <span class="subxComment"># byte => eax</span> +<span id="L20601" class="LineNr">20601 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20602" class="LineNr">20602 </span> 0f 85/jump-if-!= $populate-mu-type:error4/disp32 +<span id="L20603" class="LineNr">20603 </span> <span class="subxComment"># if v is a slice, abort</span> +<span id="L20604" class="LineNr">20604 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L20605" class="LineNr">20605 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L20606" class="LineNr">20606 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 0xc) <span class="subxComment"># slice => eax</span> +<span id="L20607" class="LineNr">20607 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20608" class="LineNr">20608 </span> 0f 85/jump-if-!= $populate-mu-type:error5/disp32 +<span id="L20609" class="LineNr">20609 </span> <span class="subxComment"># if v is a stream, abort (we could support it, but initialization gets even more complex)</span> +<span id="L20610" class="LineNr">20610 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L20611" class="LineNr">20611 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L20612" class="LineNr">20612 </span> (<a href='mu.subx.html#L36329'>mu-stream-type?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L20613" class="LineNr">20613 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20614" class="LineNr">20614 </span> 0f 85/jump-if-!= $populate-mu-type:error6/disp32 +<span id="L20615" class="LineNr">20615 </span> <span class="subxComment"># var tmp/ecx</span> +<span id="L20616" class="LineNr">20616 </span> 51/push-ecx +<span id="L20617" class="LineNr">20617 </span><span class="Constant">$populate-mu-type:create-typeinfo-fields</span>: +<span id="L20618" class="LineNr">20618 </span> <span class="subxComment"># var r/ebx: (handle typeinfo-entry)</span> +<span id="L20619" class="LineNr">20619 </span> (<a href='mu.subx.html#L20446'>find-or-create-typeinfo-fields</a> %edi %edx %ebx) +<span id="L20620" class="LineNr">20620 </span> <span class="subxComment"># r->index = curr-index</span> +<span id="L20621" class="LineNr">20621 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L20622" class="LineNr">20622 </span> 8b/-> *(ebp-4) 1/r32/ecx +<span id="L20623" class="LineNr">20623 </span><span class="CommentedCode">#? (write-buffered Stderr "saving index ")</span> +<span id="L20624" class="LineNr">20624 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ecx)</span> +<span id="L20625" class="LineNr">20625 </span><span class="CommentedCode">#? (write-buffered Stderr " at ")</span> +<span id="L20626" class="LineNr">20626 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %edi)</span> +<span id="L20627" class="LineNr">20627 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L20628" class="LineNr">20628 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L20629" class="LineNr">20629 </span> 89/<- *(eax+8) 1/r32/ecx <span class="subxComment"># Typeinfo-entry-index</span> +<span id="L20630" class="LineNr">20630 </span> <span class="subxComment"># ++curr-index</span> +<span id="L20631" class="LineNr">20631 </span> ff 0/subop/increment *(ebp-4) +<span id="L20632" class="LineNr">20632 </span><span class="Constant">$populate-mu-type:set-input-type</span>: +<span id="L20633" class="LineNr">20633 </span> <span class="subxComment"># r->input-var = v</span> +<span id="L20634" class="LineNr">20634 </span> 8b/-> *esi 1/r32/ecx +<span id="L20635" class="LineNr">20635 </span> 89/<- *eax 1/r32/ecx <span class="subxComment"># Typeinfo-entry-input-var</span> +<span id="L20636" class="LineNr">20636 </span> 8b/-> *(esi+4) 1/r32/ecx +<span id="L20637" class="LineNr">20637 </span> 89/<- *(eax+4) 1/r32/ecx <span class="subxComment"># Typeinfo-entry-input-var</span> +<span id="L20638" class="LineNr">20638 </span> <span class="subxComment"># restore line</span> +<span id="L20639" class="LineNr">20639 </span> 59/pop-to-ecx +<span id="L20640" class="LineNr">20640 </span> { +<span id="L20641" class="LineNr">20641 </span><span class="Constant">$populate-mu-type:create-output-type</span>: +<span id="L20642" class="LineNr">20642 </span> <span class="subxComment"># if (r->output-var == 0) create a new var with some placeholder data</span> +<span id="L20643" class="LineNr">20643 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Typeinfo-entry-output-var</span> +<span id="L20644" class="LineNr">20644 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L20645" class="LineNr">20645 </span> 8d/copy-address *(eax+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-entry-output-var</span> +<span id="L20646" class="LineNr">20646 </span> (<a href='mu.subx.html#L19877'>new-literal</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %edx %eax) +<span id="L20647" class="LineNr">20647 </span> } +<span id="L20648" class="LineNr">20648 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L20649" class="LineNr">20649 </span> } +<span id="L20650" class="LineNr">20650 </span><span class="Constant">$populate-mu-type:invalidate-total-size-in-bytes</span>: +<span id="L20651" class="LineNr">20651 </span> <span class="subxComment"># Offsets and total size may not be accurate here since we may not yet</span> +<span id="L20652" class="LineNr">20652 </span> <span class="subxComment"># have encountered the element types.</span> +<span id="L20653" class="LineNr">20653 </span> <span class="subxComment"># We'll recompute them separately after parsing the entire program.</span> +<span id="L20654" class="LineNr">20654 </span> c7 0/subop/copy *(edi+0xc) -2/imm32/uninitialized <span class="subxComment"># Typeinfo-total-size-in-bytes</span> +<span id="L20655" class="LineNr">20655 </span><span class="Constant">$populate-mu-type:end</span>: +<span id="L20656" class="LineNr">20656 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L20657" class="LineNr">20657 </span> 81 0/subop/add %esp 0x224/imm32 +<span id="L20658" class="LineNr">20658 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20659" class="LineNr">20659 </span> 5f/pop-to-edi +<span id="L20660" class="LineNr">20660 </span> 5e/pop-to-esi +<span id="L20661" class="LineNr">20661 </span> 5b/pop-to-ebx +<span id="L20662" class="LineNr">20662 </span> 5a/pop-to-edx +<span id="L20663" class="LineNr">20663 </span> 59/pop-to-ecx +<span id="L20664" class="LineNr">20664 </span> 58/pop-to-eax +<span id="L20665" class="LineNr">20665 </span> <span class="subxComment"># reclaim curr-index</span> +<span id="L20666" class="LineNr">20666 </span> 81 0/subop/add %esp 4/imm32 +<span id="L20667" class="LineNr">20667 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20668" class="LineNr">20668 </span> 89/<- %esp 5/r32/ebp +<span id="L20669" class="LineNr">20669 </span> 5d/pop-to-ebp +<span id="L20670" class="LineNr">20670 </span> c3/return +<span id="L20671" class="LineNr">20671 </span> +<span id="L20672" class="LineNr">20672 </span><span class="Constant">$populate-mu-type:error1</span>: +<span id="L20673" class="LineNr">20673 </span> <span class="subxComment"># error("incomplete type definition '" t->name "'\n")</span> +<span id="L20674" class="LineNr">20674 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"incomplete type definition '"</span>) +<span id="L20675" class="LineNr">20675 </span> (<a href='mu.subx.html#L20727'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> +<span id="L20676" class="LineNr">20676 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L20677" class="LineNr">20677 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"\n"</span>) +<span id="L20678" class="LineNr">20678 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L20679" class="LineNr">20679 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L20680" class="LineNr">20680 </span> <span class="subxComment"># never gets here</span> +<span id="L20681" class="LineNr">20681 </span> +<span id="L20682" class="LineNr">20682 </span><span class="Constant">$populate-mu-type:error2</span>: +<span id="L20683" class="LineNr">20683 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) +<span id="L20684" class="LineNr">20684 </span> (<a href='mu.subx.html#L20727'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> +<span id="L20685" class="LineNr">20685 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L20686" class="LineNr">20686 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": 'addr' elements not allowed\n"</span>) +<span id="L20687" class="LineNr">20687 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L20688" class="LineNr">20688 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L20689" class="LineNr">20689 </span> <span class="subxComment"># never gets here</span> +<span id="L20690" class="LineNr">20690 </span> +<span id="L20691" class="LineNr">20691 </span><span class="Constant">$populate-mu-type:error3</span>: +<span id="L20692" class="LineNr">20692 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) +<span id="L20693" class="LineNr">20693 </span> (<a href='mu.subx.html#L20727'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> +<span id="L20694" class="LineNr">20694 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L20695" class="LineNr">20695 </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="L20696" class="LineNr">20696 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L20697" class="LineNr">20697 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L20698" class="LineNr">20698 </span> <span class="subxComment"># never gets here</span> +<span id="L20699" class="LineNr">20699 </span> +<span id="L20700" class="LineNr">20700 </span><span class="Constant">$populate-mu-type:error4</span>: +<span id="L20701" class="LineNr">20701 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) +<span id="L20702" class="LineNr">20702 </span> (<a href='mu.subx.html#L20727'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> +<span id="L20703" class="LineNr">20703 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L20704" class="LineNr">20704 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": 'byte' elements not allowed\n"</span>) +<span id="L20705" class="LineNr">20705 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L20706" class="LineNr">20706 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L20707" class="LineNr">20707 </span> <span class="subxComment"># never gets here</span> +<span id="L20708" class="LineNr">20708 </span> +<span id="L20709" class="LineNr">20709 </span><span class="Constant">$populate-mu-type:error5</span>: +<span id="L20710" class="LineNr">20710 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) +<span id="L20711" class="LineNr">20711 </span> (<a href='mu.subx.html#L20727'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> +<span id="L20712" class="LineNr">20712 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L20713" class="LineNr">20713 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": 'slice' elements not allowed\n"</span>) +<span id="L20714" class="LineNr">20714 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L20715" class="LineNr">20715 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L20716" class="LineNr">20716 </span> <span class="subxComment"># never gets here</span> +<span id="L20717" class="LineNr">20717 </span> +<span id="L20718" class="LineNr">20718 </span><span class="Constant">$populate-mu-type:error6</span>: +<span id="L20719" class="LineNr">20719 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) +<span id="L20720" class="LineNr">20720 </span> (<a href='mu.subx.html#L20727'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> +<span id="L20721" class="LineNr">20721 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L20722" class="LineNr">20722 </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="L20723" class="LineNr">20723 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L20724" class="LineNr">20724 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L20725" class="LineNr">20725 </span> <span class="subxComment"># never gets here</span> +<span id="L20726" class="LineNr">20726 </span> +<span id="L20727" class="LineNr">20727 </span><span class="subxFunction">type-name</span>: <span class="subxComment"># index: int -> result/eax: (addr array byte)</span> +<span id="L20728" class="LineNr">20728 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20729" class="LineNr">20729 </span> 55/push-ebp +<span id="L20730" class="LineNr">20730 </span> 89/<- %ebp 4/r32/esp +<span id="L20731" class="LineNr">20731 </span> <span class="subxComment">#</span> +<span id="L20732" class="LineNr">20732 </span> (index <span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span> *(ebp+8)) +<span id="L20733" class="LineNr">20733 </span><span class="Constant">$type-name:end</span>: +<span id="L20734" class="LineNr">20734 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20735" class="LineNr">20735 </span> 89/<- %esp 5/r32/ebp +<span id="L20736" class="LineNr">20736 </span> 5d/pop-to-ebp +<span id="L20737" class="LineNr">20737 </span> c3/return +<span id="L20738" class="LineNr">20738 </span> +<span id="L20739" class="LineNr">20739 </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="L20740" class="LineNr">20740 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20741" class="LineNr">20741 </span> 55/push-ebp +<span id="L20742" class="LineNr">20742 </span> 89/<- %ebp 4/r32/esp +<span id="L20743" class="LineNr">20743 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20744" class="LineNr">20744 </span> 56/push-esi +<span id="L20745" class="LineNr">20745 </span> <span class="subxComment"># TODO: bounds-check index</span> +<span id="L20746" class="LineNr">20746 </span> <span class="subxComment"># esi = arr</span> +<span id="L20747" class="LineNr">20747 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L20748" class="LineNr">20748 </span> <span class="subxComment"># eax = index</span> +<span id="L20749" class="LineNr">20749 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L20750" class="LineNr">20750 </span> <span class="subxComment"># eax = *(arr + 12 + index)</span> +<span id="L20751" class="LineNr">20751 </span> 8b/-> *(esi+eax<<2+0xc) 0/r32/eax +<span id="L20752" class="LineNr">20752 </span><span class="Constant">$index:end</span>: +<span id="L20753" class="LineNr">20753 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20754" class="LineNr">20754 </span> 5e/pop-to-esi +<span id="L20755" class="LineNr">20755 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20756" class="LineNr">20756 </span> 89/<- %esp 5/r32/ebp +<span id="L20757" class="LineNr">20757 </span> 5d/pop-to-ebp +<span id="L20758" class="LineNr">20758 </span> c3/return +<span id="L20759" class="LineNr">20759 </span> +<span id="L20760" class="LineNr">20760 </span><span class="subxComment">#######################################################</span> +<span id="L20761" class="LineNr">20761 </span><span class="subxComment"># Compute type sizes</span> +<span id="L20762" class="LineNr">20762 </span><span class="subxComment">#######################################################</span> +<span id="L20763" class="LineNr">20763 </span> +<span id="L20764" class="LineNr">20764 </span><span class="subxComment"># Compute the sizes of all user-defined types.</span> +<span id="L20765" class="LineNr">20765 </span><span class="subxComment"># We'll need the sizes of their elements, which may be other user-defined</span> +<span id="L20766" class="LineNr">20766 </span><span class="subxComment"># types, which we will compute as needed.</span> +<span id="L20767" class="LineNr">20767 </span> +<span id="L20768" class="LineNr">20768 </span><span class="subxComment"># Initially, all user-defined types have their sizes set to -2 (invalid)</span> +<span id="L20769" class="LineNr">20769 </span><span class="subxFunction">populate-mu-type-sizes</span>: <span class="subxComment"># err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L20770" class="LineNr">20770 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20771" class="LineNr">20771 </span> 55/push-ebp +<span id="L20772" class="LineNr">20772 </span> 89/<- %ebp 4/r32/esp +<span id="L20773" class="LineNr">20773 </span><span class="Constant">$populate-mu-type-sizes:total-sizes</span>: +<span id="L20774" class="LineNr">20774 </span> <span class="subxComment"># var curr/eax: (addr typeinfo) = lookup(Program->types)</span> +<span id="L20775" class="LineNr">20775 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *_Program-types *_Program-types->payload) <span class="subxComment"># => eax</span> +<span id="L20776" class="LineNr">20776 </span> { +<span id="L20777" class="LineNr">20777 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L20778" class="LineNr">20778 </span> 3d/compare-eax-and 0/imm32/null +<span id="L20779" class="LineNr">20779 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20780" class="LineNr">20780 </span> (<a href='mu.subx.html#L20806'>populate-mu-type-sizes-in-type</a> %eax *(ebp+8) *(ebp+0xc)) +<span id="L20781" class="LineNr">20781 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L20782" class="LineNr">20782 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Typeinfo-next Typeinfo-next => eax</span> +<span id="L20783" class="LineNr">20783 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L20784" class="LineNr">20784 </span> } +<span id="L20785" class="LineNr">20785 </span><span class="Constant">$populate-mu-type-sizes:offsets</span>: +<span id="L20786" class="LineNr">20786 </span> <span class="subxComment"># curr = *Program->types</span> +<span id="L20787" class="LineNr">20787 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *_Program-types *_Program-types->payload) <span class="subxComment"># => eax</span> +<span id="L20788" class="LineNr">20788 </span> { +<span id="L20789" class="LineNr">20789 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L20790" class="LineNr">20790 </span> 3d/compare-eax-and 0/imm32/null +<span id="L20791" class="LineNr">20791 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20792" class="LineNr">20792 </span> (<a href='mu.subx.html#L20970'>populate-mu-type-offsets</a> %eax *(ebp+8) *(ebp+0xc)) +<span id="L20793" class="LineNr">20793 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L20794" class="LineNr">20794 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Typeinfo-next Typeinfo-next => eax</span> +<span id="L20795" class="LineNr">20795 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L20796" class="LineNr">20796 </span> } +<span id="L20797" class="LineNr">20797 </span><span class="Constant">$populate-mu-type-sizes:end</span>: +<span id="L20798" class="LineNr">20798 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20799" class="LineNr">20799 </span> 89/<- %esp 5/r32/ebp +<span id="L20800" class="LineNr">20800 </span> 5d/pop-to-ebp +<span id="L20801" class="LineNr">20801 </span> c3/return +<span id="L20802" class="LineNr">20802 </span> +<span id="L20803" class="LineNr">20803 </span><span class="subxComment"># compute sizes of all fields, recursing as necessary</span> +<span id="L20804" class="LineNr">20804 </span><span class="subxComment"># sum up all their sizes to arrive at total size</span> +<span id="L20805" class="LineNr">20805 </span><span class="subxComment"># fields may be out of order, but that doesn't affect the answer</span> +<span id="L20806" class="LineNr">20806 </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="L20807" class="LineNr">20807 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20808" class="LineNr">20808 </span> 55/push-ebp +<span id="L20809" class="LineNr">20809 </span> 89/<- %ebp 4/r32/esp +<span id="L20810" class="LineNr">20810 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20811" class="LineNr">20811 </span> 50/push-eax +<span id="L20812" class="LineNr">20812 </span> 51/push-ecx +<span id="L20813" class="LineNr">20813 </span> 52/push-edx +<span id="L20814" class="LineNr">20814 </span> 56/push-esi +<span id="L20815" class="LineNr">20815 </span> 57/push-edi +<span id="L20816" class="LineNr">20816 </span> <span class="subxComment"># esi = T</span> +<span id="L20817" class="LineNr">20817 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L20818" class="LineNr">20818 </span> <span class="subxComment"># if T is already computed, return</span> +<span id="L20819" class="LineNr">20819 </span> 81 7/subop/compare *(esi+0xc) 0/imm32 <span class="subxComment"># Typeinfo-total-size-in-bytes</span> +<span id="L20820" class="LineNr">20820 </span> 0f 8d/jump-if->= $populate-mu-type-sizes-in-type:end/disp32 +<span id="L20821" class="LineNr">20821 </span> <span class="subxComment"># if T is being computed, abort</span> +<span id="L20822" class="LineNr">20822 </span> 81 7/subop/compare *(esi+0xc) -1/imm32/being-computed <span class="subxComment"># Typeinfo-total-size-in-bytes</span> +<span id="L20823" class="LineNr">20823 </span> 0f 84/jump-if-= $populate-mu-type-sizes-in-type:abort/disp32 +<span id="L20824" class="LineNr">20824 </span> <span class="subxComment"># tag T (-2 to -1) to avoid infinite recursion</span> +<span id="L20825" class="LineNr">20825 </span> c7 0/subop/copy *(esi+0xc) -1/imm32/being-computed <span class="subxComment"># Typeinfo-total-size-in-bytes</span> +<span id="L20826" class="LineNr">20826 </span> <span class="subxComment"># var total-size/edi: int = 0</span> +<span id="L20827" class="LineNr">20827 </span> bf/copy-to-edi 0/imm32 +<span id="L20828" class="LineNr">20828 </span> <span class="subxH1Comment"># - for every field, if it's a user-defined type, compute its size</span> +<span id="L20829" class="LineNr">20829 </span> <span class="subxComment"># var table/ecx: (addr table (handle array byte) (handle typeinfo-entry)) = lookup(T->fields)</span> +<span id="L20830" class="LineNr">20830 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> +<span id="L20831" class="LineNr">20831 </span> 89/<- %ecx 0/r32/eax +<span id="L20832" class="LineNr">20832 </span> <span class="subxComment"># var table-size/edx: int = table->write</span> +<span id="L20833" class="LineNr">20833 </span> 8b/-> *ecx 2/r32/edx <span class="subxComment"># stream-write</span> +<span id="L20834" class="LineNr">20834 </span> <span class="subxComment"># var curr/ecx: (addr table_row) = table->data</span> +<span id="L20835" class="LineNr">20835 </span> 8d/copy-address *(ecx+0xc) 1/r32/ecx +<span id="L20836" class="LineNr">20836 </span> <span class="subxComment"># var max/edx: (addr table_row) = table->data + table->write</span> +<span id="L20837" class="LineNr">20837 </span> 8d/copy-address *(ecx+edx) 2/r32/edx +<span id="L20838" class="LineNr">20838 </span> { +<span id="L20839" class="LineNr">20839 </span><span class="Constant">$populate-mu-type-sizes-in-type:loop</span>: +<span id="L20840" class="LineNr">20840 </span> <span class="subxComment"># if (curr >= max) break</span> +<span id="L20841" class="LineNr">20841 </span> 39/compare %ecx 2/r32/edx +<span id="L20842" class="LineNr">20842 </span> 73/jump-if-addr>= <span class="Constant">break</span>/disp8 +<span id="L20843" class="LineNr">20843 </span> <span class="subxComment"># var t/eax: (addr typeinfo-entry) = lookup(curr->value)</span> +<span id="L20844" class="LineNr">20844 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># => eax</span> +<span id="L20845" class="LineNr">20845 </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="L20846" class="LineNr">20846 </span> 81 7/subop/compare *eax 0/imm32 <span class="subxComment"># Typeinfo-entry-input-var</span> +<span id="L20847" class="LineNr">20847 </span> 74/jump-if-= $populate-mu-type-sizes-in-type:end/disp8 +<span id="L20848" class="LineNr">20848 </span> <span class="subxComment"># compute size of t->input-var</span> +<span id="L20849" class="LineNr">20849 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Typeinfo-entry-input-var Typeinfo-entry-input-var => eax</span> +<span id="L20850" class="LineNr">20850 </span> (<a href='mu.subx.html#L20880'>compute-size-of-var</a> %eax *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L20851" class="LineNr">20851 </span> <span class="subxComment"># result += eax</span> +<span id="L20852" class="LineNr">20852 </span> 01/add-to %edi 0/r32/eax +<span id="L20853" class="LineNr">20853 </span> <span class="subxComment"># curr += row-size</span> +<span id="L20854" class="LineNr">20854 </span> 81 0/subop/add %ecx 0x10/imm32 <span class="subxComment"># Typeinfo-fields-row-size</span> +<span id="L20855" class="LineNr">20855 </span> <span class="subxComment">#</span> +<span id="L20856" class="LineNr">20856 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L20857" class="LineNr">20857 </span> } +<span id="L20858" class="LineNr">20858 </span> <span class="subxH1Comment"># - save result</span> +<span id="L20859" class="LineNr">20859 </span> 89/<- *(esi+0xc) 7/r32/edi <span class="subxComment"># Typeinfo-total-size-in-bytes</span> +<span id="L20860" class="LineNr">20860 </span><span class="Constant">$populate-mu-type-sizes-in-type:end</span>: +<span id="L20861" class="LineNr">20861 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20862" class="LineNr">20862 </span> 5f/pop-to-edi +<span id="L20863" class="LineNr">20863 </span> 5e/pop-to-esi +<span id="L20864" class="LineNr">20864 </span> 5a/pop-to-edx +<span id="L20865" class="LineNr">20865 </span> 59/pop-to-ecx +<span id="L20866" class="LineNr">20866 </span> 58/pop-to-eax +<span id="L20867" class="LineNr">20867 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20868" class="LineNr">20868 </span> 89/<- %esp 5/r32/ebp +<span id="L20869" class="LineNr">20869 </span> 5d/pop-to-ebp +<span id="L20870" class="LineNr">20870 </span> c3/return +<span id="L20871" class="LineNr">20871 </span> +<span id="L20872" class="LineNr">20872 </span><span class="Constant">$populate-mu-type-sizes-in-type:abort</span>: +<span id="L20873" class="LineNr">20873 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"cycle in type definitions\n"</span>) +<span id="L20874" class="LineNr">20874 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L20875" class="LineNr">20875 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) +<span id="L20876" class="LineNr">20876 </span> <span class="subxComment"># never gets here</span> +<span id="L20877" class="LineNr">20877 </span> +<span id="L20878" class="LineNr">20878 </span><span class="subxComment"># Analogous to size-of, except we need to compute what size-of can just read</span> +<span id="L20879" class="LineNr">20879 </span><span class="subxComment"># off the right data structures.</span> +<span id="L20880" class="LineNr">20880 </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="L20881" class="LineNr">20881 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20882" class="LineNr">20882 </span> 55/push-ebp +<span id="L20883" class="LineNr">20883 </span> 89/<- %ebp 4/r32/esp +<span id="L20884" class="LineNr">20884 </span> <span class="subxS1Comment"># . push registers</span> +<span id="L20885" class="LineNr">20885 </span> 51/push-ecx +<span id="L20886" class="LineNr">20886 </span> <span class="subxComment"># var t/ecx: (addr type-tree) = lookup(v->type)</span> +<span id="L20887" class="LineNr">20887 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L20888" class="LineNr">20888 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L20889" class="LineNr">20889 </span> 89/<- %ecx 0/r32/eax +<span id="L20890" class="LineNr">20890 </span> <span class="subxComment"># if (t->is-atom == false) t = lookup(t->left)</span> +<span id="L20891" class="LineNr">20891 </span> { +<span id="L20892" class="LineNr">20892 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L20893" class="LineNr">20893 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L20894" class="LineNr">20894 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L20895" class="LineNr">20895 </span> 89/<- %ecx 0/r32/eax +<span id="L20896" class="LineNr">20896 </span> } +<span id="L20897" class="LineNr">20897 </span> <span class="subxComment"># TODO: ensure t is an atom</span> +<span id="L20898" class="LineNr">20898 </span> (<a href='mu.subx.html#L20907'>compute-size-of-type-id</a> *(ecx+4) *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># Type-tree-value => eax</span> +<span id="L20899" class="LineNr">20899 </span><span class="Constant">$compute-size-of-var:end</span>: +<span id="L20900" class="LineNr">20900 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20901" class="LineNr">20901 </span> 59/pop-to-ecx +<span id="L20902" class="LineNr">20902 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20903" class="LineNr">20903 </span> 89/<- %esp 5/r32/ebp +<span id="L20904" class="LineNr">20904 </span> 5d/pop-to-ebp +<span id="L20905" class="LineNr">20905 </span> c3/return +<span id="L20906" class="LineNr">20906 </span> +<span id="L20907" class="LineNr">20907 </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="L20908" class="LineNr">20908 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20909" class="LineNr">20909 </span> 55/push-ebp +<span id="L20910" class="LineNr">20910 </span> 89/<- %ebp 4/r32/esp +<span id="L20911" class="LineNr">20911 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20912" class="LineNr">20912 </span> 51/push-ecx +<span id="L20913" class="LineNr">20913 </span> <span class="subxComment"># var out/ecx: (handle typeinfo)</span> +<span id="L20914" class="LineNr">20914 </span> 68/push 0/imm32 +<span id="L20915" class="LineNr">20915 </span> 68/push 0/imm32 +<span id="L20916" class="LineNr">20916 </span> 89/<- %ecx 4/r32/esp +<span id="L20917" class="LineNr">20917 </span> <span class="subxComment"># eax = t</span> +<span id="L20918" class="LineNr">20918 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L20919" class="LineNr">20919 </span> <span class="subxComment"># if t is a literal, return 0</span> +<span id="L20920" class="LineNr">20920 </span> 3d/compare-eax-and 0/imm32/literal +<span id="L20921" class="LineNr">20921 </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="L20922" class="LineNr">20922 </span> <span class="subxComment"># if t is a byte, return 4 (because we don't really support non-multiples of 4)</span> +<span id="L20923" class="LineNr">20923 </span> 3d/compare-eax-and 8/imm32/byte <span id="L20924" class="LineNr">20924 </span> { -<span id="L20925" class="LineNr">20925 </span> 81 7/subop/compare *ecx 0/imm32 -<span id="L20926" class="LineNr">20926 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20927" class="LineNr">20927 </span><span class="Constant">$compute-size-of-type-id:user-defined</span>: -<span id="L20928" class="LineNr">20928 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> -<span id="L20929" class="LineNr">20929 </span> (<a href='mu.subx.html#L20784'>populate-mu-type-sizes-in-type</a> %eax *(ebp+0xc) *(ebp+0x10)) -<span id="L20930" class="LineNr">20930 </span> 8b/-> *(eax+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-total-size-in-bytes</span> -<span id="L20931" class="LineNr">20931 </span> eb/jump $compute-size-of-type-id:end/disp8 -<span id="L20932" class="LineNr">20932 </span> } -<span id="L20933" class="LineNr">20933 </span> <span class="subxComment"># otherwise return the word size</span> -<span id="L20934" class="LineNr">20934 </span> b8/copy-to-eax 4/imm32 -<span id="L20935" class="LineNr">20935 </span><span class="Constant">$compute-size-of-type-id:end</span>: -<span id="L20936" class="LineNr">20936 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L20937" class="LineNr">20937 </span> 81 0/subop/add %esp 8/imm32 -<span id="L20938" class="LineNr">20938 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20939" class="LineNr">20939 </span> 59/pop-to-ecx -<span id="L20940" class="LineNr">20940 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20941" class="LineNr">20941 </span> 89/<- %esp 5/r32/ebp -<span id="L20942" class="LineNr">20942 </span> 5d/pop-to-ebp -<span id="L20943" class="LineNr">20943 </span> c3/return -<span id="L20944" class="LineNr">20944 </span> -<span id="L20945" class="LineNr">20945 </span><span class="subxComment"># at this point we have total sizes for all user-defined types</span> -<span id="L20946" class="LineNr">20946 </span><span class="subxComment"># compute offsets for each element</span> -<span id="L20947" class="LineNr">20947 </span><span class="subxComment"># complication: fields may be out of order</span> -<span id="L20948" class="LineNr">20948 </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="L20949" class="LineNr">20949 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20950" class="LineNr">20950 </span> 55/push-ebp -<span id="L20951" class="LineNr">20951 </span> 89/<- %ebp 4/r32/esp -<span id="L20952" class="LineNr">20952 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20953" class="LineNr">20953 </span> 50/push-eax -<span id="L20954" class="LineNr">20954 </span> 51/push-ecx -<span id="L20955" class="LineNr">20955 </span> 52/push-edx -<span id="L20956" class="LineNr">20956 </span> 53/push-ebx -<span id="L20957" class="LineNr">20957 </span> 56/push-esi -<span id="L20958" class="LineNr">20958 </span> 57/push-edi -<span id="L20959" class="LineNr">20959 </span><span class="CommentedCode">#? (dump-typeinfos "aaa\n")</span> -<span id="L20960" class="LineNr">20960 </span> <span class="subxComment"># var curr-offset/edi: int = 0</span> -<span id="L20961" class="LineNr">20961 </span> bf/copy-to-edi 0/imm32 -<span id="L20962" class="LineNr">20962 </span> <span class="subxComment"># var table/ecx: (addr table string_key (handle typeinfo-entry)) = lookup(in->fields)</span> -<span id="L20963" class="LineNr">20963 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L20964" class="LineNr">20964 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> -<span id="L20965" class="LineNr">20965 </span> 89/<- %ecx 0/r32/eax -<span id="L20966" class="LineNr">20966 </span> <span class="subxComment"># var num-elems/edx: int = table->write / Typeinfo-fields-row-size</span> -<span id="L20967" class="LineNr">20967 </span> 8b/-> *ecx 2/r32/edx <span class="subxComment"># stream-write</span> -<span id="L20968" class="LineNr">20968 </span> c1 5/subop/shift-right-logical %edx 4/imm8 -<span id="L20969" class="LineNr">20969 </span> <span class="subxComment"># var i/ebx: int = 0</span> -<span id="L20970" class="LineNr">20970 </span> bb/copy-to-ebx 0/imm32 -<span id="L20971" class="LineNr">20971 </span> { -<span id="L20972" class="LineNr">20972 </span><span class="Constant">$populate-mu-type-offsets:loop</span>: -<span id="L20973" class="LineNr">20973 </span> 39/compare %ebx 2/r32/edx -<span id="L20974" class="LineNr">20974 </span> 0f 8d/jump-if->= <span class="Constant">break</span>/disp32 -<span id="L20975" class="LineNr">20975 </span><span class="CommentedCode">#? (write-buffered Stderr "looking up index ")</span> -<span id="L20976" class="LineNr">20976 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ebx)</span> -<span id="L20977" class="LineNr">20977 </span><span class="CommentedCode">#? (write-buffered Stderr " in ")</span> -<span id="L20978" class="LineNr">20978 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ebp+8))</span> -<span id="L20979" class="LineNr">20979 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L20980" class="LineNr">20980 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L20981" class="LineNr">20981 </span> <span class="subxComment"># var v/esi: (addr typeinfo-entry)</span> -<span id="L20982" class="LineNr">20982 </span> (<a href='mu.subx.html#L21015'>locate-typeinfo-entry-with-index</a> %ecx %ebx *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L20983" class="LineNr">20983 </span> 89/<- %esi 0/r32/eax -<span id="L20984" class="LineNr">20984 </span> <span class="subxComment"># if v is null, silently move on; we'll emit a nice error message while type-checking</span> -<span id="L20985" class="LineNr">20985 </span> 81 7/subop/compare %esi 0/imm32 <span class="subxComment"># Typeinfo-entry-input-var</span> -<span id="L20986" class="LineNr">20986 </span> 74/jump-if-= $populate-mu-type-offsets:end/disp8 -<span id="L20987" class="LineNr">20987 </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="L20988" class="LineNr">20988 </span> 81 7/subop/compare *esi 0/imm32 <span class="subxComment"># Typeinfo-entry-input-var</span> -<span id="L20989" class="LineNr">20989 </span> 74/jump-if-= $populate-mu-type-offsets:end/disp8 -<span id="L20990" class="LineNr">20990 </span> <span class="subxComment"># v->output-var->offset = curr-offset</span> -<span id="L20991" class="LineNr">20991 </span> <span class="subxS1Comment"># . eax: (addr var)</span> -<span id="L20992" class="LineNr">20992 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Typeinfo-entry-output-var Typeinfo-entry-output-var => eax</span> -<span id="L20993" class="LineNr">20993 </span> 89/<- *(eax+0x14) 7/r32/edi <span class="subxComment"># Var-offset</span> -<span id="L20994" class="LineNr">20994 </span> <span class="subxComment"># curr-offset += size-of(v->input-var)</span> -<span id="L20995" class="LineNr">20995 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Typeinfo-entry-input-var Typeinfo-entry-input-var => eax</span> -<span id="L20996" class="LineNr">20996 </span> (<a href='mu.subx.html#L26553'>size-of</a> %eax) <span class="subxComment"># => eax</span> -<span id="L20997" class="LineNr">20997 </span> 01/add-to %edi 0/r32/eax -<span id="L20998" class="LineNr">20998 </span> <span class="subxComment"># ++i</span> -<span id="L20999" class="LineNr">20999 </span> 43/increment-ebx -<span id="L21000" class="LineNr">21000 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L21001" class="LineNr">21001 </span> } -<span id="L21002" class="LineNr">21002 </span><span class="Constant">$populate-mu-type-offsets:end</span>: -<span id="L21003" class="LineNr">21003 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21004" class="LineNr">21004 </span> 5f/pop-to-edi -<span id="L21005" class="LineNr">21005 </span> 5e/pop-to-esi -<span id="L21006" class="LineNr">21006 </span> 5b/pop-to-ebx -<span id="L21007" class="LineNr">21007 </span> 5a/pop-to-edx -<span id="L21008" class="LineNr">21008 </span> 59/pop-to-ecx -<span id="L21009" class="LineNr">21009 </span> 58/pop-to-eax -<span id="L21010" class="LineNr">21010 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21011" class="LineNr">21011 </span> 89/<- %esp 5/r32/ebp -<span id="L21012" class="LineNr">21012 </span> 5d/pop-to-ebp -<span id="L21013" class="LineNr">21013 </span> c3/return -<span id="L21014" class="LineNr">21014 </span> -<span id="L21015" class="LineNr">21015 </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="L21016" class="LineNr">21016 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21017" class="LineNr">21017 </span> 55/push-ebp -<span id="L21018" class="LineNr">21018 </span> 89/<- %ebp 4/r32/esp -<span id="L21019" class="LineNr">21019 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21020" class="LineNr">21020 </span> 51/push-ecx -<span id="L21021" class="LineNr">21021 </span> 52/push-edx -<span id="L21022" class="LineNr">21022 </span> 53/push-ebx -<span id="L21023" class="LineNr">21023 </span> 56/push-esi -<span id="L21024" class="LineNr">21024 </span> 57/push-edi -<span id="L21025" class="LineNr">21025 </span> <span class="subxComment"># esi = table</span> -<span id="L21026" class="LineNr">21026 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L21027" class="LineNr">21027 </span> <span class="subxComment"># var curr/ecx: (addr row (handle array byte) (handle typeinfo-entry)) = table->data</span> -<span id="L21028" class="LineNr">21028 </span> 8d/copy-address *(esi+0xc) 1/r32/ecx -<span id="L21029" class="LineNr">21029 </span> <span class="subxComment"># var max/edx: (addr byte) = &table->data[table->write]</span> -<span id="L21030" class="LineNr">21030 </span> 8b/-> *esi 2/r32/edx -<span id="L21031" class="LineNr">21031 </span> 8d/copy-address *(ecx+edx) 2/r32/edx -<span id="L21032" class="LineNr">21032 </span> { -<span id="L21033" class="LineNr">21033 </span><span class="Constant">$locate-typeinfo-entry-with-index:loop</span>: -<span id="L21034" class="LineNr">21034 </span> 39/compare %ecx 2/r32/edx -<span id="L21035" class="LineNr">21035 </span> 73/jump-if-addr>= <span class="Constant">break</span>/disp8 -<span id="L21036" class="LineNr">21036 </span> <span class="subxComment"># var v/eax: (addr typeinfo-entry)</span> -<span id="L21037" class="LineNr">21037 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># => eax</span> -<span id="L21038" class="LineNr">21038 </span> <span class="subxComment"># if (v->index == idx) return v</span> -<span id="L21039" class="LineNr">21039 </span> 8b/-> *(eax+8) 3/r32/ebx <span class="subxComment"># Typeinfo-entry-index</span> -<span id="L21040" class="LineNr">21040 </span><span class="CommentedCode">#? (write-buffered Stderr "comparing ")</span> -<span id="L21041" class="LineNr">21041 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ebx)</span> -<span id="L21042" class="LineNr">21042 </span><span class="CommentedCode">#? (write-buffered Stderr " and ")</span> -<span id="L21043" class="LineNr">21043 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ebp+0xc))</span> -<span id="L21044" class="LineNr">21044 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L21045" class="LineNr">21045 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L21046" class="LineNr">21046 </span> 39/compare *(ebp+0xc) 3/r32/ebx -<span id="L21047" class="LineNr">21047 </span> 74/jump-if-= $locate-typeinfo-entry-with-index:end/disp8 -<span id="L21048" class="LineNr">21048 </span> <span class="subxComment"># curr += Typeinfo-entry-size</span> -<span id="L21049" class="LineNr">21049 </span> 81 0/subop/add %ecx 0x10/imm32 <span class="subxComment"># Typeinfo-entry-size</span> -<span id="L21050" class="LineNr">21050 </span> <span class="subxComment">#</span> -<span id="L21051" class="LineNr">21051 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L21052" class="LineNr">21052 </span> } -<span id="L21053" class="LineNr">21053 </span> <span class="subxComment"># return 0</span> -<span id="L21054" class="LineNr">21054 </span> b8/copy-to-eax 0/imm32 -<span id="L21055" class="LineNr">21055 </span><span class="Constant">$locate-typeinfo-entry-with-index:end</span>: -<span id="L21056" class="LineNr">21056 </span><span class="CommentedCode">#? (write-buffered Stderr "returning ")</span> -<span id="L21057" class="LineNr">21057 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L21058" class="LineNr">21058 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L21059" class="LineNr">21059 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L21060" class="LineNr">21060 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21061" class="LineNr">21061 </span> 5f/pop-to-edi -<span id="L21062" class="LineNr">21062 </span> 5e/pop-to-esi -<span id="L21063" class="LineNr">21063 </span> 5b/pop-to-ebx -<span id="L21064" class="LineNr">21064 </span> 5a/pop-to-edx -<span id="L21065" class="LineNr">21065 </span> 59/pop-to-ecx -<span id="L21066" class="LineNr">21066 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21067" class="LineNr">21067 </span> 89/<- %esp 5/r32/ebp -<span id="L21068" class="LineNr">21068 </span> 5d/pop-to-ebp -<span id="L21069" class="LineNr">21069 </span> c3/return -<span id="L21070" class="LineNr">21070 </span> -<span id="L21071" class="LineNr">21071 </span><span class="subxFunction">dump-typeinfos</span>: <span class="subxComment"># hdr: (addr array byte)</span> -<span id="L21072" class="LineNr">21072 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21073" class="LineNr">21073 </span> 55/push-ebp -<span id="L21074" class="LineNr">21074 </span> 89/<- %ebp 4/r32/esp -<span id="L21075" class="LineNr">21075 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21076" class="LineNr">21076 </span> 50/push-eax -<span id="L21077" class="LineNr">21077 </span> <span class="subxComment">#</span> -<span id="L21078" class="LineNr">21078 </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="L21079" class="LineNr">21079 </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="L21080" class="LineNr">21080 </span> <span class="subxComment"># var curr/eax: (addr typeinfo) = lookup(Program->types)</span> -<span id="L21081" class="LineNr">21081 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *_Program-types *_Program-types->payload) <span class="subxComment"># => eax</span> -<span id="L21082" class="LineNr">21082 </span> { -<span id="L21083" class="LineNr">21083 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L21084" class="LineNr">21084 </span> 3d/compare-eax-and 0/imm32 -<span id="L21085" class="LineNr">21085 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21086" class="LineNr">21086 </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="L21087" class="LineNr">21087 </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="L21088" class="LineNr">21088 </span> (<a href='mu.subx.html#L21101'>dump-typeinfo</a> %eax) -<span id="L21089" class="LineNr">21089 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L21090" class="LineNr">21090 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Typeinfo-next Typeinfo-next => eax</span> -<span id="L21091" class="LineNr">21091 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L21092" class="LineNr">21092 </span> } -<span id="L21093" class="LineNr">21093 </span><span class="Constant">$dump-typeinfos:end</span>: -<span id="L21094" class="LineNr">21094 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21095" class="LineNr">21095 </span> 58/pop-to-eax -<span id="L21096" class="LineNr">21096 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21097" class="LineNr">21097 </span> 89/<- %esp 5/r32/ebp -<span id="L21098" class="LineNr">21098 </span> 5d/pop-to-ebp -<span id="L21099" class="LineNr">21099 </span> c3/return -<span id="L21100" class="LineNr">21100 </span> -<span id="L21101" class="LineNr">21101 </span><span class="subxFunction">dump-typeinfo</span>: <span class="subxComment"># in: (addr typeinfo)</span> -<span id="L21102" class="LineNr">21102 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21103" class="LineNr">21103 </span> 55/push-ebp -<span id="L21104" class="LineNr">21104 </span> 89/<- %ebp 4/r32/esp -<span id="L21105" class="LineNr">21105 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21106" class="LineNr">21106 </span> 50/push-eax -<span id="L21107" class="LineNr">21107 </span> 51/push-ecx -<span id="L21108" class="LineNr">21108 </span> 52/push-edx -<span id="L21109" class="LineNr">21109 </span> 53/push-ebx -<span id="L21110" class="LineNr">21110 </span> 56/push-esi -<span id="L21111" class="LineNr">21111 </span> 57/push-edi -<span id="L21112" class="LineNr">21112 </span> <span class="subxComment"># esi = in</span> -<span id="L21113" class="LineNr">21113 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L21114" class="LineNr">21114 </span> <span class="subxComment"># var table/ecx: (addr table (handle array byte) (handle typeinfo-entry)) = lookup(T->fields)</span> -<span id="L21115" class="LineNr">21115 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> -<span id="L21116" class="LineNr">21116 </span> 89/<- %ecx 0/r32/eax -<span id="L21117" class="LineNr">21117 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"id:"</span>) -<span id="L21118" class="LineNr">21118 </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="L21119" class="LineNr">21119 </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="L21120" class="LineNr">21120 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"fields @ "</span>) -<span id="L21121" class="LineNr">21121 </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="L21122" class="LineNr">21122 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>) -<span id="L21123" class="LineNr">21123 </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="L21124" class="LineNr">21124 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">" <a href='108write.subx.html#L24'>write</a>: "</span>) -<span id="L21125" class="LineNr">21125 </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="L21126" class="LineNr">21126 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>) -<span id="L21127" class="LineNr">21127 </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="L21128" class="LineNr">21128 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">" <a href='111read.subx.html#L48'>read</a>: "</span>) -<span id="L21129" class="LineNr">21129 </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="L21130" class="LineNr">21130 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>) -<span id="L21131" class="LineNr">21131 </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="L21132" class="LineNr">21132 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">" <a href='307size.subx.html#L5'>size</a>: "</span>) -<span id="L21133" class="LineNr">21133 </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="L21134" class="LineNr">21134 </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="L21135" class="LineNr">21135 </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="L21136" class="LineNr">21136 </span> <span class="subxComment"># var table-size/edx: int = table->write</span> -<span id="L21137" class="LineNr">21137 </span> 8b/-> *ecx 2/r32/edx <span class="subxComment"># stream-write</span> -<span id="L21138" class="LineNr">21138 </span> <span class="subxComment"># var curr/ecx: (addr table_row) = table->data</span> -<span id="L21139" class="LineNr">21139 </span> 8d/copy-address *(ecx+0xc) 1/r32/ecx -<span id="L21140" class="LineNr">21140 </span> <span class="subxComment"># var max/edx: (addr table_row) = table->data + table->write</span> -<span id="L21141" class="LineNr">21141 </span> 8d/copy-address *(ecx+edx) 2/r32/edx -<span id="L21142" class="LineNr">21142 </span> { -<span id="L21143" class="LineNr">21143 </span><span class="Constant">$dump-typeinfo:loop</span>: -<span id="L21144" class="LineNr">21144 </span> <span class="subxComment"># if (curr >= max) break</span> -<span id="L21145" class="LineNr">21145 </span> 39/compare %ecx 2/r32/edx -<span id="L21146" class="LineNr">21146 </span> 0f 83/jump-if-addr>= <span class="Constant">break</span>/disp32 -<span id="L21147" class="LineNr">21147 </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="L21148" class="LineNr">21148 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">" key: "</span>) -<span id="L21149" class="LineNr">21149 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *ecx) -<span id="L21150" class="LineNr">21150 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">","</span>) -<span id="L21151" class="LineNr">21151 </span> (<a href='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="L21152" class="LineNr">21152 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">" = '"</span>) -<span id="L21153" class="LineNr">21153 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) -<span id="L21154" class="LineNr">21154 </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="L21155" class="LineNr">21155 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"' @ "</span>) -<span id="L21156" class="LineNr">21156 </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="L21157" class="LineNr">21157 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>) -<span id="L21158" class="LineNr">21158 </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="L21159" class="LineNr">21159 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">" value: "</span>) -<span id="L21160" class="LineNr">21160 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ecx+8)) -<span id="L21161" class="LineNr">21161 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">","</span>) -<span id="L21162" class="LineNr">21162 </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="L21163" class="LineNr">21163 </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="L21164" class="LineNr">21164 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) -<span id="L21165" class="LineNr">21165 </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="L21166" class="LineNr">21166 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>) -<span id="L21167" class="LineNr">21167 </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="L21168" class="LineNr">21168 </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="L21169" class="LineNr">21169 </span> (<a href='mu.subx.html#L21197'>dump-var</a> 5 %eax) -<span id="L21170" class="LineNr">21170 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) -<span id="L21171" class="LineNr">21171 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">" index: "</span>) -<span id="L21172" class="LineNr">21172 </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="L21173" class="LineNr">21173 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>) -<span id="L21174" class="LineNr">21174 </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="L21175" class="LineNr">21175 </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="L21176" class="LineNr">21176 </span> 8d/copy-address *(eax+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-entry-output-var</span> -<span id="L21177" class="LineNr">21177 </span> (<a href='mu.subx.html#L21197'>dump-var</a> 5 %eax) -<span id="L21178" class="LineNr">21178 </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="L21179" class="LineNr">21179 </span> <span class="subxComment"># curr += row-size</span> -<span id="L21180" class="LineNr">21180 </span> 81 0/subop/add %ecx 0x10/imm32 <span class="subxComment"># Typeinfo-fields-row-size</span> -<span id="L21181" class="LineNr">21181 </span> <span class="subxComment">#</span> -<span id="L21182" class="LineNr">21182 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L21183" class="LineNr">21183 </span> } -<span id="L21184" class="LineNr">21184 </span><span class="Constant">$dump-typeinfo:end</span>: -<span id="L21185" class="LineNr">21185 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21186" class="LineNr">21186 </span> 5f/pop-to-edi -<span id="L21187" class="LineNr">21187 </span> 5e/pop-to-esi -<span id="L21188" class="LineNr">21188 </span> 5b/pop-to-ebx -<span id="L21189" class="LineNr">21189 </span> 5a/pop-to-edx -<span id="L21190" class="LineNr">21190 </span> 59/pop-to-ecx -<span id="L21191" class="LineNr">21191 </span> 58/pop-to-eax -<span id="L21192" class="LineNr">21192 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21193" class="LineNr">21193 </span> 89/<- %esp 5/r32/ebp -<span id="L21194" class="LineNr">21194 </span> 5d/pop-to-ebp -<span id="L21195" class="LineNr">21195 </span> c3/return -<span id="L21196" class="LineNr">21196 </span> -<span id="L21197" class="LineNr">21197 </span><span class="subxFunction">dump-var</span>: <span class="subxComment"># indent: int, v: (addr handle var)</span> -<span id="L21198" class="LineNr">21198 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21199" class="LineNr">21199 </span> 55/push-ebp -<span id="L21200" class="LineNr">21200 </span> 89/<- %ebp 4/r32/esp -<span id="L21201" class="LineNr">21201 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21202" class="LineNr">21202 </span> 50/push-eax -<span id="L21203" class="LineNr">21203 </span> 53/push-ebx -<span id="L21204" class="LineNr">21204 </span> <span class="subxComment"># eax = v</span> -<span id="L21205" class="LineNr">21205 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L21206" class="LineNr">21206 </span> <span class="subxComment">#</span> -<span id="L21207" class="LineNr">21207 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *eax) -<span id="L21208" class="LineNr">21208 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">","</span>) -<span id="L21209" class="LineNr">21209 </span> (<a href='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="L21210" class="LineNr">21210 </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="L21211" class="LineNr">21211 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) -<span id="L21212" class="LineNr">21212 </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="L21213" class="LineNr">21213 </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="L21214" class="LineNr">21214 </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="L21215" class="LineNr">21215 </span> { -<span id="L21216" class="LineNr">21216 </span> 3d/compare-eax-and 0/imm32 -<span id="L21217" class="LineNr">21217 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L21218" class="LineNr">21218 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+8)) -<span id="L21219" class="LineNr">21219 </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="L21220" class="LineNr">21220 </span> 89/<- %ebx 0/r32/eax -<span id="L21221" class="LineNr">21221 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *ebx) <span class="subxComment"># Var-name</span> -<span id="L21222" class="LineNr">21222 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">","</span>) -<span id="L21223" class="LineNr">21223 </span> (<a href='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="L21224" class="LineNr">21224 </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="L21225" class="LineNr">21225 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name</span> -<span id="L21226" class="LineNr">21226 </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="L21227" class="LineNr">21227 </span> { -<span id="L21228" class="LineNr">21228 </span> 3d/compare-eax-and 0/imm32 -<span id="L21229" class="LineNr">21229 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21230" class="LineNr">21230 </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="L21231" class="LineNr">21231 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> %eax) -<span id="L21232" class="LineNr">21232 </span> } -<span id="L21233" class="LineNr">21233 </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="L21234" class="LineNr">21234 </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="L21235" class="LineNr">21235 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+8)) -<span id="L21236" class="LineNr">21236 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"block depth: "</span>) -<span id="L21237" class="LineNr">21237 </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="L21238" class="LineNr">21238 </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="L21239" class="LineNr">21239 </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="L21240" class="LineNr">21240 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+8)) -<span id="L21241" class="LineNr">21241 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"stack offset: "</span>) -<span id="L21242" class="LineNr">21242 </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="L21243" class="LineNr">21243 </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="L21244" class="LineNr">21244 </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="L21245" class="LineNr">21245 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+8)) -<span id="L21246" class="LineNr">21246 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"reg: "</span>) -<span id="L21247" class="LineNr">21247 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ebx+0x18)) <span class="subxComment"># Var-register</span> -<span id="L21248" class="LineNr">21248 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">","</span>) -<span id="L21249" class="LineNr">21249 </span> (<a href='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="L21250" class="LineNr">21250 </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="L21251" class="LineNr">21251 </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="L21252" class="LineNr">21252 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register</span> -<span id="L21253" class="LineNr">21253 </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="L21254" class="LineNr">21254 </span> { -<span id="L21255" class="LineNr">21255 </span> 3d/compare-eax-and 0/imm32 -<span id="L21256" class="LineNr">21256 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21257" class="LineNr">21257 </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="L21258" class="LineNr">21258 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> %eax) -<span id="L21259" class="LineNr">21259 </span> } +<span id="L20925" class="LineNr">20925 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L20926" class="LineNr">20926 </span> b8/copy-to-eax 4/imm32 +<span id="L20927" class="LineNr">20927 </span> eb/jump $compute-size-of-type-id:end/disp8 +<span id="L20928" class="LineNr">20928 </span> } +<span id="L20929" class="LineNr">20929 </span> <span class="subxComment"># if t is a handle, return 8</span> +<span id="L20930" class="LineNr">20930 </span> 3d/compare-eax-and 4/imm32/handle +<span id="L20931" class="LineNr">20931 </span> { +<span id="L20932" class="LineNr">20932 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L20933" class="LineNr">20933 </span> b8/copy-to-eax 8/imm32 +<span id="L20934" class="LineNr">20934 </span> eb/jump $compute-size-of-type-id:end/disp8 <span class="subxComment"># eax changes type from type-id to int</span> +<span id="L20935" class="LineNr">20935 </span> } +<span id="L20936" class="LineNr">20936 </span> <span class="subxComment"># if t is a slice, return 8</span> +<span id="L20937" class="LineNr">20937 </span> 3d/compare-eax-and 0xc/imm32/slice +<span id="L20938" class="LineNr">20938 </span> { +<span id="L20939" class="LineNr">20939 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L20940" class="LineNr">20940 </span> b8/copy-to-eax 8/imm32 +<span id="L20941" class="LineNr">20941 </span> eb/jump $compute-size-of-type-id:end/disp8 <span class="subxComment"># eax changes type from type-id to int</span> +<span id="L20942" class="LineNr">20942 </span> } +<span id="L20943" class="LineNr">20943 </span> <span class="subxComment"># if t is a user-defined type, compute its size</span> +<span id="L20944" class="LineNr">20944 </span> <span class="subxComment"># TODO: support non-atom type</span> +<span id="L20945" class="LineNr">20945 </span> (<a href='mu.subx.html#L20332'>find-typeinfo</a> %eax %ecx) +<span id="L20946" class="LineNr">20946 </span> { +<span id="L20947" class="LineNr">20947 </span> 81 7/subop/compare *ecx 0/imm32 +<span id="L20948" class="LineNr">20948 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20949" class="LineNr">20949 </span><span class="Constant">$compute-size-of-type-id:user-defined</span>: +<span id="L20950" class="LineNr">20950 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> +<span id="L20951" class="LineNr">20951 </span> (<a href='mu.subx.html#L20806'>populate-mu-type-sizes-in-type</a> %eax *(ebp+0xc) *(ebp+0x10)) +<span id="L20952" class="LineNr">20952 </span> 8b/-> *(eax+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-total-size-in-bytes</span> +<span id="L20953" class="LineNr">20953 </span> eb/jump $compute-size-of-type-id:end/disp8 +<span id="L20954" class="LineNr">20954 </span> } +<span id="L20955" class="LineNr">20955 </span> <span class="subxComment"># otherwise return the word size</span> +<span id="L20956" class="LineNr">20956 </span> b8/copy-to-eax 4/imm32 +<span id="L20957" class="LineNr">20957 </span><span class="Constant">$compute-size-of-type-id:end</span>: +<span id="L20958" class="LineNr">20958 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L20959" class="LineNr">20959 </span> 81 0/subop/add %esp 8/imm32 +<span id="L20960" class="LineNr">20960 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20961" class="LineNr">20961 </span> 59/pop-to-ecx +<span id="L20962" class="LineNr">20962 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20963" class="LineNr">20963 </span> 89/<- %esp 5/r32/ebp +<span id="L20964" class="LineNr">20964 </span> 5d/pop-to-ebp +<span id="L20965" class="LineNr">20965 </span> c3/return +<span id="L20966" class="LineNr">20966 </span> +<span id="L20967" class="LineNr">20967 </span><span class="subxComment"># at this point we have total sizes for all user-defined types</span> +<span id="L20968" class="LineNr">20968 </span><span class="subxComment"># compute offsets for each element</span> +<span id="L20969" class="LineNr">20969 </span><span class="subxComment"># complication: fields may be out of order</span> +<span id="L20970" class="LineNr">20970 </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="L20971" class="LineNr">20971 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20972" class="LineNr">20972 </span> 55/push-ebp +<span id="L20973" class="LineNr">20973 </span> 89/<- %ebp 4/r32/esp +<span id="L20974" class="LineNr">20974 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20975" class="LineNr">20975 </span> 50/push-eax +<span id="L20976" class="LineNr">20976 </span> 51/push-ecx +<span id="L20977" class="LineNr">20977 </span> 52/push-edx +<span id="L20978" class="LineNr">20978 </span> 53/push-ebx +<span id="L20979" class="LineNr">20979 </span> 56/push-esi +<span id="L20980" class="LineNr">20980 </span> 57/push-edi +<span id="L20981" class="LineNr">20981 </span><span class="CommentedCode">#? (dump-typeinfos "aaa\n")</span> +<span id="L20982" class="LineNr">20982 </span> <span class="subxComment"># var curr-offset/edi: int = 0</span> +<span id="L20983" class="LineNr">20983 </span> bf/copy-to-edi 0/imm32 +<span id="L20984" class="LineNr">20984 </span> <span class="subxComment"># var table/ecx: (addr table string_key (handle typeinfo-entry)) = lookup(in->fields)</span> +<span id="L20985" class="LineNr">20985 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L20986" class="LineNr">20986 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> +<span id="L20987" class="LineNr">20987 </span> 89/<- %ecx 0/r32/eax +<span id="L20988" class="LineNr">20988 </span> <span class="subxComment"># var num-elems/edx: int = table->write / Typeinfo-fields-row-size</span> +<span id="L20989" class="LineNr">20989 </span> 8b/-> *ecx 2/r32/edx <span class="subxComment"># stream-write</span> +<span id="L20990" class="LineNr">20990 </span> c1 5/subop/shift-right-logical %edx 4/imm8 +<span id="L20991" class="LineNr">20991 </span> <span class="subxComment"># var i/ebx: int = 0</span> +<span id="L20992" class="LineNr">20992 </span> bb/copy-to-ebx 0/imm32 +<span id="L20993" class="LineNr">20993 </span> { +<span id="L20994" class="LineNr">20994 </span><span class="Constant">$populate-mu-type-offsets:loop</span>: +<span id="L20995" class="LineNr">20995 </span> 39/compare %ebx 2/r32/edx +<span id="L20996" class="LineNr">20996 </span> 0f 8d/jump-if->= <span class="Constant">break</span>/disp32 +<span id="L20997" class="LineNr">20997 </span><span class="CommentedCode">#? (write-buffered Stderr "looking up index ")</span> +<span id="L20998" class="LineNr">20998 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ebx)</span> +<span id="L20999" class="LineNr">20999 </span><span class="CommentedCode">#? (write-buffered Stderr " in ")</span> +<span id="L21000" class="LineNr">21000 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ebp+8))</span> +<span id="L21001" class="LineNr">21001 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L21002" class="LineNr">21002 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L21003" class="LineNr">21003 </span> <span class="subxComment"># var v/esi: (addr typeinfo-entry)</span> +<span id="L21004" class="LineNr">21004 </span> (<a href='mu.subx.html#L21037'>locate-typeinfo-entry-with-index</a> %ecx %ebx *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L21005" class="LineNr">21005 </span> 89/<- %esi 0/r32/eax +<span id="L21006" class="LineNr">21006 </span> <span class="subxComment"># if v is null, silently move on; we'll emit a nice error message while type-checking</span> +<span id="L21007" class="LineNr">21007 </span> 81 7/subop/compare %esi 0/imm32 <span class="subxComment"># Typeinfo-entry-input-var</span> +<span id="L21008" class="LineNr">21008 </span> 74/jump-if-= $populate-mu-type-offsets:end/disp8 +<span id="L21009" class="LineNr">21009 </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="L21010" class="LineNr">21010 </span> 81 7/subop/compare *esi 0/imm32 <span class="subxComment"># Typeinfo-entry-input-var</span> +<span id="L21011" class="LineNr">21011 </span> 74/jump-if-= $populate-mu-type-offsets:end/disp8 +<span id="L21012" class="LineNr">21012 </span> <span class="subxComment"># v->output-var->offset = curr-offset</span> +<span id="L21013" class="LineNr">21013 </span> <span class="subxS1Comment"># . eax: (addr var)</span> +<span id="L21014" class="LineNr">21014 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Typeinfo-entry-output-var Typeinfo-entry-output-var => eax</span> +<span id="L21015" class="LineNr">21015 </span> 89/<- *(eax+0x14) 7/r32/edi <span class="subxComment"># Var-offset</span> +<span id="L21016" class="LineNr">21016 </span> <span class="subxComment"># curr-offset += size-of(v->input-var)</span> +<span id="L21017" class="LineNr">21017 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Typeinfo-entry-input-var Typeinfo-entry-input-var => eax</span> +<span id="L21018" class="LineNr">21018 </span> (<a href='mu.subx.html#L26575'>size-of</a> %eax) <span class="subxComment"># => eax</span> +<span id="L21019" class="LineNr">21019 </span> 01/add-to %edi 0/r32/eax +<span id="L21020" class="LineNr">21020 </span> <span class="subxComment"># ++i</span> +<span id="L21021" class="LineNr">21021 </span> 43/increment-ebx +<span id="L21022" class="LineNr">21022 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L21023" class="LineNr">21023 </span> } +<span id="L21024" class="LineNr">21024 </span><span class="Constant">$populate-mu-type-offsets:end</span>: +<span id="L21025" class="LineNr">21025 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21026" class="LineNr">21026 </span> 5f/pop-to-edi +<span id="L21027" class="LineNr">21027 </span> 5e/pop-to-esi +<span id="L21028" class="LineNr">21028 </span> 5b/pop-to-ebx +<span id="L21029" class="LineNr">21029 </span> 5a/pop-to-edx +<span id="L21030" class="LineNr">21030 </span> 59/pop-to-ecx +<span id="L21031" class="LineNr">21031 </span> 58/pop-to-eax +<span id="L21032" class="LineNr">21032 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21033" class="LineNr">21033 </span> 89/<- %esp 5/r32/ebp +<span id="L21034" class="LineNr">21034 </span> 5d/pop-to-ebp +<span id="L21035" class="LineNr">21035 </span> c3/return +<span id="L21036" class="LineNr">21036 </span> +<span id="L21037" class="LineNr">21037 </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="L21038" class="LineNr">21038 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21039" class="LineNr">21039 </span> 55/push-ebp +<span id="L21040" class="LineNr">21040 </span> 89/<- %ebp 4/r32/esp +<span id="L21041" class="LineNr">21041 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21042" class="LineNr">21042 </span> 51/push-ecx +<span id="L21043" class="LineNr">21043 </span> 52/push-edx +<span id="L21044" class="LineNr">21044 </span> 53/push-ebx +<span id="L21045" class="LineNr">21045 </span> 56/push-esi +<span id="L21046" class="LineNr">21046 </span> 57/push-edi +<span id="L21047" class="LineNr">21047 </span> <span class="subxComment"># esi = table</span> +<span id="L21048" class="LineNr">21048 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L21049" class="LineNr">21049 </span> <span class="subxComment"># var curr/ecx: (addr row (handle array byte) (handle typeinfo-entry)) = table->data</span> +<span id="L21050" class="LineNr">21050 </span> 8d/copy-address *(esi+0xc) 1/r32/ecx +<span id="L21051" class="LineNr">21051 </span> <span class="subxComment"># var max/edx: (addr byte) = &table->data[table->write]</span> +<span id="L21052" class="LineNr">21052 </span> 8b/-> *esi 2/r32/edx +<span id="L21053" class="LineNr">21053 </span> 8d/copy-address *(ecx+edx) 2/r32/edx +<span id="L21054" class="LineNr">21054 </span> { +<span id="L21055" class="LineNr">21055 </span><span class="Constant">$locate-typeinfo-entry-with-index:loop</span>: +<span id="L21056" class="LineNr">21056 </span> 39/compare %ecx 2/r32/edx +<span id="L21057" class="LineNr">21057 </span> 73/jump-if-addr>= <span class="Constant">break</span>/disp8 +<span id="L21058" class="LineNr">21058 </span> <span class="subxComment"># var v/eax: (addr typeinfo-entry)</span> +<span id="L21059" class="LineNr">21059 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># => eax</span> +<span id="L21060" class="LineNr">21060 </span> <span class="subxComment"># if (v->index == idx) return v</span> +<span id="L21061" class="LineNr">21061 </span> 8b/-> *(eax+8) 3/r32/ebx <span class="subxComment"># Typeinfo-entry-index</span> +<span id="L21062" class="LineNr">21062 </span><span class="CommentedCode">#? (write-buffered Stderr "comparing ")</span> +<span id="L21063" class="LineNr">21063 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ebx)</span> +<span id="L21064" class="LineNr">21064 </span><span class="CommentedCode">#? (write-buffered Stderr " and ")</span> +<span id="L21065" class="LineNr">21065 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ebp+0xc))</span> +<span id="L21066" class="LineNr">21066 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L21067" class="LineNr">21067 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L21068" class="LineNr">21068 </span> 39/compare *(ebp+0xc) 3/r32/ebx +<span id="L21069" class="LineNr">21069 </span> 74/jump-if-= $locate-typeinfo-entry-with-index:end/disp8 +<span id="L21070" class="LineNr">21070 </span> <span class="subxComment"># curr += Typeinfo-entry-size</span> +<span id="L21071" class="LineNr">21071 </span> 81 0/subop/add %ecx 0x10/imm32 <span class="subxComment"># Typeinfo-entry-size</span> +<span id="L21072" class="LineNr">21072 </span> <span class="subxComment">#</span> +<span id="L21073" class="LineNr">21073 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L21074" class="LineNr">21074 </span> } +<span id="L21075" class="LineNr">21075 </span> <span class="subxComment"># return 0</span> +<span id="L21076" class="LineNr">21076 </span> b8/copy-to-eax 0/imm32 +<span id="L21077" class="LineNr">21077 </span><span class="Constant">$locate-typeinfo-entry-with-index:end</span>: +<span id="L21078" class="LineNr">21078 </span><span class="CommentedCode">#? (write-buffered Stderr "returning ")</span> +<span id="L21079" class="LineNr">21079 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L21080" class="LineNr">21080 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L21081" class="LineNr">21081 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L21082" class="LineNr">21082 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21083" class="LineNr">21083 </span> 5f/pop-to-edi +<span id="L21084" class="LineNr">21084 </span> 5e/pop-to-esi +<span id="L21085" class="LineNr">21085 </span> 5b/pop-to-ebx +<span id="L21086" class="LineNr">21086 </span> 5a/pop-to-edx +<span id="L21087" class="LineNr">21087 </span> 59/pop-to-ecx +<span id="L21088" class="LineNr">21088 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21089" class="LineNr">21089 </span> 89/<- %esp 5/r32/ebp +<span id="L21090" class="LineNr">21090 </span> 5d/pop-to-ebp +<span id="L21091" class="LineNr">21091 </span> c3/return +<span id="L21092" class="LineNr">21092 </span> +<span id="L21093" class="LineNr">21093 </span><span class="subxFunction">dump-typeinfos</span>: <span class="subxComment"># hdr: (addr array byte)</span> +<span id="L21094" class="LineNr">21094 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21095" class="LineNr">21095 </span> 55/push-ebp +<span id="L21096" class="LineNr">21096 </span> 89/<- %ebp 4/r32/esp +<span id="L21097" class="LineNr">21097 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21098" class="LineNr">21098 </span> 50/push-eax +<span id="L21099" class="LineNr">21099 </span> <span class="subxComment">#</span> +<span id="L21100" class="LineNr">21100 </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="L21101" class="LineNr">21101 </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="L21102" class="LineNr">21102 </span> <span class="subxComment"># var curr/eax: (addr typeinfo) = lookup(Program->types)</span> +<span id="L21103" class="LineNr">21103 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *_Program-types *_Program-types->payload) <span class="subxComment"># => eax</span> +<span id="L21104" class="LineNr">21104 </span> { +<span id="L21105" class="LineNr">21105 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L21106" class="LineNr">21106 </span> 3d/compare-eax-and 0/imm32 +<span id="L21107" class="LineNr">21107 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21108" class="LineNr">21108 </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="L21109" class="LineNr">21109 </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="L21110" class="LineNr">21110 </span> (<a href='mu.subx.html#L21123'>dump-typeinfo</a> %eax) +<span id="L21111" class="LineNr">21111 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L21112" class="LineNr">21112 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Typeinfo-next Typeinfo-next => eax</span> +<span id="L21113" class="LineNr">21113 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L21114" class="LineNr">21114 </span> } +<span id="L21115" class="LineNr">21115 </span><span class="Constant">$dump-typeinfos:end</span>: +<span id="L21116" class="LineNr">21116 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21117" class="LineNr">21117 </span> 58/pop-to-eax +<span id="L21118" class="LineNr">21118 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21119" class="LineNr">21119 </span> 89/<- %esp 5/r32/ebp +<span id="L21120" class="LineNr">21120 </span> 5d/pop-to-ebp +<span id="L21121" class="LineNr">21121 </span> c3/return +<span id="L21122" class="LineNr">21122 </span> +<span id="L21123" class="LineNr">21123 </span><span class="subxFunction">dump-typeinfo</span>: <span class="subxComment"># in: (addr typeinfo)</span> +<span id="L21124" class="LineNr">21124 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21125" class="LineNr">21125 </span> 55/push-ebp +<span id="L21126" class="LineNr">21126 </span> 89/<- %ebp 4/r32/esp +<span id="L21127" class="LineNr">21127 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21128" class="LineNr">21128 </span> 50/push-eax +<span id="L21129" class="LineNr">21129 </span> 51/push-ecx +<span id="L21130" class="LineNr">21130 </span> 52/push-edx +<span id="L21131" class="LineNr">21131 </span> 53/push-ebx +<span id="L21132" class="LineNr">21132 </span> 56/push-esi +<span id="L21133" class="LineNr">21133 </span> 57/push-edi +<span id="L21134" class="LineNr">21134 </span> <span class="subxComment"># esi = in</span> +<span id="L21135" class="LineNr">21135 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L21136" class="LineNr">21136 </span> <span class="subxComment"># var table/ecx: (addr table (handle array byte) (handle typeinfo-entry)) = lookup(T->fields)</span> +<span id="L21137" class="LineNr">21137 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> +<span id="L21138" class="LineNr">21138 </span> 89/<- %ecx 0/r32/eax +<span id="L21139" class="LineNr">21139 </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="L21140" class="LineNr">21140 </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="L21141" class="LineNr">21141 </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="L21142" class="LineNr">21142 </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="L21143" class="LineNr">21143 </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="L21144" class="LineNr">21144 </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="L21145" class="LineNr">21145 </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="L21146" class="LineNr">21146 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">" <a href='108write.subx.html#L24'>write</a>: "</span>) +<span id="L21147" class="LineNr">21147 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *ecx) +<span id="L21148" class="LineNr">21148 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>) +<span id="L21149" class="LineNr">21149 </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="L21150" class="LineNr">21150 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">" <a href='111read.subx.html#L48'>read</a>: "</span>) +<span id="L21151" class="LineNr">21151 </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="L21152" class="LineNr">21152 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>) +<span id="L21153" class="LineNr">21153 </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="L21154" class="LineNr">21154 </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="L21155" class="LineNr">21155 </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="L21156" class="LineNr">21156 </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="L21157" class="LineNr">21157 </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="L21158" class="LineNr">21158 </span> <span class="subxComment"># var table-size/edx: int = table->write</span> +<span id="L21159" class="LineNr">21159 </span> 8b/-> *ecx 2/r32/edx <span class="subxComment"># stream-write</span> +<span id="L21160" class="LineNr">21160 </span> <span class="subxComment"># var curr/ecx: (addr table_row) = table->data</span> +<span id="L21161" class="LineNr">21161 </span> 8d/copy-address *(ecx+0xc) 1/r32/ecx +<span id="L21162" class="LineNr">21162 </span> <span class="subxComment"># var max/edx: (addr table_row) = table->data + table->write</span> +<span id="L21163" class="LineNr">21163 </span> 8d/copy-address *(ecx+edx) 2/r32/edx +<span id="L21164" class="LineNr">21164 </span> { +<span id="L21165" class="LineNr">21165 </span><span class="Constant">$dump-typeinfo:loop</span>: +<span id="L21166" class="LineNr">21166 </span> <span class="subxComment"># if (curr >= max) break</span> +<span id="L21167" class="LineNr">21167 </span> 39/compare %ecx 2/r32/edx +<span id="L21168" class="LineNr">21168 </span> 0f 83/jump-if-addr>= <span class="Constant">break</span>/disp32 +<span id="L21169" class="LineNr">21169 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">" row:\n"</span>) +<span id="L21170" class="LineNr">21170 </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="L21171" class="LineNr">21171 </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="L21172" class="LineNr">21172 </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="L21173" class="LineNr">21173 </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="L21174" class="LineNr">21174 </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="L21175" class="LineNr">21175 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) +<span id="L21176" class="LineNr">21176 </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="L21177" class="LineNr">21177 </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="L21178" class="LineNr">21178 </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="L21179" class="LineNr">21179 </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="L21180" class="LineNr">21180 </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="L21181" class="LineNr">21181 </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="L21182" class="LineNr">21182 </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="L21183" class="LineNr">21183 </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="L21184" class="LineNr">21184 </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="L21185" class="LineNr">21185 </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="L21186" class="LineNr">21186 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) +<span id="L21187" class="LineNr">21187 </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="L21188" class="LineNr">21188 </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="L21189" class="LineNr">21189 </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="L21190" class="LineNr">21190 </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="L21191" class="LineNr">21191 </span> (<a href='mu.subx.html#L21219'>dump-var</a> 5 %eax) +<span id="L21192" class="LineNr">21192 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) +<span id="L21193" class="LineNr">21193 </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="L21194" class="LineNr">21194 </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="L21195" class="LineNr">21195 </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="L21196" class="LineNr">21196 </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="L21197" class="LineNr">21197 </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="L21198" class="LineNr">21198 </span> 8d/copy-address *(eax+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-entry-output-var</span> +<span id="L21199" class="LineNr">21199 </span> (<a href='mu.subx.html#L21219'>dump-var</a> 5 %eax) +<span id="L21200" class="LineNr">21200 </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="L21201" class="LineNr">21201 </span> <span class="subxComment"># curr += row-size</span> +<span id="L21202" class="LineNr">21202 </span> 81 0/subop/add %ecx 0x10/imm32 <span class="subxComment"># Typeinfo-fields-row-size</span> +<span id="L21203" class="LineNr">21203 </span> <span class="subxComment">#</span> +<span id="L21204" class="LineNr">21204 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L21205" class="LineNr">21205 </span> } +<span id="L21206" class="LineNr">21206 </span><span class="Constant">$dump-typeinfo:end</span>: +<span id="L21207" class="LineNr">21207 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21208" class="LineNr">21208 </span> 5f/pop-to-edi +<span id="L21209" class="LineNr">21209 </span> 5e/pop-to-esi +<span id="L21210" class="LineNr">21210 </span> 5b/pop-to-ebx +<span id="L21211" class="LineNr">21211 </span> 5a/pop-to-edx +<span id="L21212" class="LineNr">21212 </span> 59/pop-to-ecx +<span id="L21213" class="LineNr">21213 </span> 58/pop-to-eax +<span id="L21214" class="LineNr">21214 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21215" class="LineNr">21215 </span> 89/<- %esp 5/r32/ebp +<span id="L21216" class="LineNr">21216 </span> 5d/pop-to-ebp +<span id="L21217" class="LineNr">21217 </span> c3/return +<span id="L21218" class="LineNr">21218 </span> +<span id="L21219" class="LineNr">21219 </span><span class="subxFunction">dump-var</span>: <span class="subxComment"># indent: int, v: (addr handle var)</span> +<span id="L21220" class="LineNr">21220 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21221" class="LineNr">21221 </span> 55/push-ebp +<span id="L21222" class="LineNr">21222 </span> 89/<- %ebp 4/r32/esp +<span id="L21223" class="LineNr">21223 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21224" class="LineNr">21224 </span> 50/push-eax +<span id="L21225" class="LineNr">21225 </span> 53/push-ebx +<span id="L21226" class="LineNr">21226 </span> <span class="subxComment"># eax = v</span> +<span id="L21227" class="LineNr">21227 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L21228" class="LineNr">21228 </span> <span class="subxComment">#</span> +<span id="L21229" class="LineNr">21229 </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="L21230" class="LineNr">21230 </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="L21231" class="LineNr">21231 </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="L21232" class="LineNr">21232 </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="L21233" class="LineNr">21233 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) +<span id="L21234" class="LineNr">21234 </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="L21235" class="LineNr">21235 </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="L21236" class="LineNr">21236 </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="L21237" class="LineNr">21237 </span> { +<span id="L21238" class="LineNr">21238 </span> 3d/compare-eax-and 0/imm32 +<span id="L21239" class="LineNr">21239 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L21240" class="LineNr">21240 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+8)) +<span id="L21241" class="LineNr">21241 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"name: "</span>) +<span id="L21242" class="LineNr">21242 </span> 89/<- %ebx 0/r32/eax +<span id="L21243" class="LineNr">21243 </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="L21244" class="LineNr">21244 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">","</span>) +<span id="L21245" class="LineNr">21245 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ebx+4)) <span class="subxComment"># Var-name</span> +<span id="L21246" class="LineNr">21246 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"->"</span>) +<span id="L21247" class="LineNr">21247 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name</span> +<span id="L21248" class="LineNr">21248 </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="L21249" class="LineNr">21249 </span> { +<span id="L21250" class="LineNr">21250 </span> 3d/compare-eax-and 0/imm32 +<span id="L21251" class="LineNr">21251 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21252" class="LineNr">21252 </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="L21253" class="LineNr">21253 </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="L21254" class="LineNr">21254 </span> } +<span id="L21255" class="LineNr">21255 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>) +<span id="L21256" class="LineNr">21256 </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="L21257" class="LineNr">21257 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+8)) +<span id="L21258" class="LineNr">21258 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"block depth: "</span>) +<span id="L21259" class="LineNr">21259 </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="L21260" class="LineNr">21260 </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="L21261" class="LineNr">21261 </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="L21262" class="LineNr">21262 </span> } -<span id="L21263" class="LineNr">21263 </span><span class="Constant">$dump-var:end</span>: -<span id="L21264" class="LineNr">21264 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21265" class="LineNr">21265 </span> 5b/pop-to-ebx -<span id="L21266" class="LineNr">21266 </span> 58/pop-to-eax -<span id="L21267" class="LineNr">21267 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21268" class="LineNr">21268 </span> 89/<- %esp 5/r32/ebp -<span id="L21269" class="LineNr">21269 </span> 5d/pop-to-ebp -<span id="L21270" class="LineNr">21270 </span> c3/return -<span id="L21271" class="LineNr">21271 </span> -<span id="L21272" class="LineNr">21272 </span><span class="subxComment">#######################################################</span> -<span id="L21273" class="LineNr">21273 </span><span class="subxComment"># Type-checking</span> -<span id="L21274" class="LineNr">21274 </span><span class="subxComment">#######################################################</span> -<span id="L21275" class="LineNr">21275 </span> -<span id="L21276" class="LineNr">21276 </span><span class="subxFunction">check-mu-types</span>: <span class="subxComment"># err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L21277" class="LineNr">21277 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21278" class="LineNr">21278 </span> 55/push-ebp -<span id="L21279" class="LineNr">21279 </span> 89/<- %ebp 4/r32/esp -<span id="L21280" class="LineNr">21280 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21281" class="LineNr">21281 </span> 50/push-eax -<span id="L21282" class="LineNr">21282 </span> <span class="subxComment"># var curr/eax: (addr function) = lookup(Program->functions)</span> -<span id="L21283" class="LineNr">21283 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *_Program-functions *_Program-functions->payload) <span class="subxComment"># => eax</span> -<span id="L21284" class="LineNr">21284 </span> { -<span id="L21285" class="LineNr">21285 </span><span class="Constant">$check-mu-types:loop</span>: -<span id="L21286" class="LineNr">21286 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L21287" class="LineNr">21287 </span> 3d/compare-eax-and 0/imm32 -<span id="L21288" class="LineNr">21288 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L21289" class="Folded">21289 </span><span class="Folded">+-- 8 lines: #? # dump curr->name ------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L21297" class="LineNr">21297 </span> (<a href='mu.subx.html#L21310'>check-mu-function</a> %eax *(ebp+8) *(ebp+0xc)) -<span id="L21298" class="LineNr">21298 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L21299" class="LineNr">21299 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x20) *(eax+0x24)) <span class="subxComment"># Function-next Function-next => eax</span> -<span id="L21300" class="LineNr">21300 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L21301" class="LineNr">21301 </span> } -<span id="L21302" class="LineNr">21302 </span><span class="Constant">$check-mu-types:end</span>: -<span id="L21303" class="LineNr">21303 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21304" class="LineNr">21304 </span> 58/pop-to-eax -<span id="L21305" class="LineNr">21305 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21306" class="LineNr">21306 </span> 89/<- %esp 5/r32/ebp -<span id="L21307" class="LineNr">21307 </span> 5d/pop-to-ebp -<span id="L21308" class="LineNr">21308 </span> c3/return -<span id="L21309" class="LineNr">21309 </span> -<span id="L21310" class="LineNr">21310 </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="L21311" class="LineNr">21311 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21312" class="LineNr">21312 </span> 55/push-ebp -<span id="L21313" class="LineNr">21313 </span> 89/<- %ebp 4/r32/esp -<span id="L21314" class="LineNr">21314 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21315" class="LineNr">21315 </span> 50/push-eax -<span id="L21316" class="LineNr">21316 </span> 56/push-esi -<span id="L21317" class="LineNr">21317 </span> <span class="subxComment"># esi = f</span> -<span id="L21318" class="LineNr">21318 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L21319" class="LineNr">21319 </span> <span class="subxComment"># outputs</span> -<span id="L21320" class="LineNr">21320 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x10) *(esi+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> -<span id="L21321" class="LineNr">21321 </span> (<a href='mu.subx.html#L23353'>check-all-unique-registers</a> %eax %esi *(ebp+0xc) *(ebp+0x10)) -<span id="L21322" class="LineNr">21322 </span> <span class="subxComment"># body</span> -<span id="L21323" class="LineNr">21323 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Function-body Function-body => eax</span> -<span id="L21324" class="LineNr">21324 </span> (<a href='mu.subx.html#L21340'>check-mu-block</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x10)) -<span id="L21325" class="LineNr">21325 </span> <span class="subxComment"># if function has no outputs, we're done</span> -<span id="L21326" class="LineNr">21326 </span> 81 7/subop/compare *(esi+0x10) 0/imm32 -<span id="L21327" class="LineNr">21327 </span> 74/jump-if-= $check-mu-function:end/disp8 -<span id="L21328" class="LineNr">21328 </span> <span class="subxComment"># some final checks on body</span> -<span id="L21329" class="LineNr">21329 </span> (<a href='mu.subx.html#L23566'>check-final-stmt-is-return</a> %eax %esi *(ebp+0xc) *(ebp+0x10)) -<span id="L21330" class="LineNr">21330 </span> (<a href='mu.subx.html#L23618'>check-no-breaks</a> %eax %esi *(ebp+0xc) *(ebp+0x10)) -<span id="L21331" class="LineNr">21331 </span><span class="Constant">$check-mu-function:end</span>: -<span id="L21332" class="LineNr">21332 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21333" class="LineNr">21333 </span> 5e/pop-to-esi -<span id="L21334" class="LineNr">21334 </span> 58/pop-to-eax -<span id="L21335" class="LineNr">21335 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21336" class="LineNr">21336 </span> 89/<- %esp 5/r32/ebp -<span id="L21337" class="LineNr">21337 </span> 5d/pop-to-ebp -<span id="L21338" class="LineNr">21338 </span> c3/return -<span id="L21339" class="LineNr">21339 </span> -<span id="L21340" class="LineNr">21340 </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="L21341" class="LineNr">21341 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21342" class="LineNr">21342 </span> 55/push-ebp -<span id="L21343" class="LineNr">21343 </span> 89/<- %ebp 4/r32/esp -<span id="L21344" class="LineNr">21344 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21345" class="LineNr">21345 </span> 50/push-eax -<span id="L21346" class="LineNr">21346 </span> <span class="subxComment"># eax = block</span> -<span id="L21347" class="LineNr">21347 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L21348" class="LineNr">21348 </span> <span class="subxComment"># var stmts/eax: (addr list stmt) = lookup(block->statements)</span> -<span id="L21349" class="LineNr">21349 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> -<span id="L21350" class="LineNr">21350 </span> <span class="subxComment">#</span> -<span id="L21351" class="LineNr">21351 </span> { -<span id="L21352" class="LineNr">21352 </span><span class="Constant">$check-mu-block:check-empty</span>: -<span id="L21353" class="LineNr">21353 </span> 3d/compare-eax-and 0/imm32 -<span id="L21354" class="LineNr">21354 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L21355" class="LineNr">21355 </span> <span class="subxComment"># emit block->statements</span> -<span id="L21356" class="LineNr">21356 </span> (<a href='mu.subx.html#L21366'>check-mu-stmt-list</a> %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21357" class="LineNr">21357 </span> } -<span id="L21358" class="LineNr">21358 </span><span class="Constant">$check-mu-block:end</span>: -<span id="L21359" class="LineNr">21359 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21360" class="LineNr">21360 </span> 58/pop-to-eax -<span id="L21361" class="LineNr">21361 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21362" class="LineNr">21362 </span> 89/<- %esp 5/r32/ebp -<span id="L21363" class="LineNr">21363 </span> 5d/pop-to-ebp -<span id="L21364" class="LineNr">21364 </span> c3/return -<span id="L21365" class="LineNr">21365 </span> -<span id="L21366" class="LineNr">21366 </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="L21367" class="LineNr">21367 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21368" class="LineNr">21368 </span> 55/push-ebp -<span id="L21369" class="LineNr">21369 </span> 89/<- %ebp 4/r32/esp -<span id="L21370" class="LineNr">21370 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21371" class="LineNr">21371 </span> 50/push-eax -<span id="L21372" class="LineNr">21372 </span> 56/push-esi -<span id="L21373" class="LineNr">21373 </span> <span class="subxComment"># esi = stmts</span> -<span id="L21374" class="LineNr">21374 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L21375" class="LineNr">21375 </span> { -<span id="L21376" class="LineNr">21376 </span><span class="Constant">$check-mu-stmt-list:loop</span>: -<span id="L21377" class="LineNr">21377 </span> 81 7/subop/compare %esi 0/imm32 -<span id="L21378" class="LineNr">21378 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L21379" class="LineNr">21379 </span> <span class="subxComment"># var curr-stmt/eax: (addr stmt) = lookup(stmts->value)</span> -<span id="L21380" class="LineNr">21380 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L21381" class="LineNr">21381 </span> { -<span id="L21382" class="LineNr">21382 </span><span class="Constant">$check-mu-stmt-list:check-for-block</span>: -<span id="L21383" class="LineNr">21383 </span> 81 7/subop/compare *eax 0/imm32/block <span class="subxComment"># Stmt-tag</span> -<span id="L21384" class="LineNr">21384 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L21385" class="LineNr">21385 </span><span class="Constant">$check-mu-stmt-list:block</span>: -<span id="L21386" class="LineNr">21386 </span> (<a href='mu.subx.html#L21340'>check-mu-block</a> %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21387" class="LineNr">21387 </span> eb/jump $check-mu-stmt-list:continue/disp8 -<span id="L21388" class="LineNr">21388 </span> } -<span id="L21389" class="LineNr">21389 </span> { -<span id="L21390" class="LineNr">21390 </span><span class="Constant">$check-mu-stmt-list:check-for-stmt1</span>: -<span id="L21391" class="LineNr">21391 </span> 81 7/subop/compare *eax 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> -<span id="L21392" class="LineNr">21392 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L21393" class="LineNr">21393 </span><span class="Constant">$check-mu-stmt-list:stmt1</span>: -<span id="L21394" class="LineNr">21394 </span> (<a href='mu.subx.html#L21420'>check-mu-stmt</a> %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21395" class="LineNr">21395 </span> eb/jump $check-mu-stmt-list:continue/disp8 -<span id="L21396" class="LineNr">21396 </span> } -<span id="L21397" class="LineNr">21397 </span> { -<span id="L21398" class="LineNr">21398 </span><span class="Constant">$check-mu-stmt-list:check-for-reg-var-def</span>: -<span id="L21399" class="LineNr">21399 </span> 81 7/subop/compare *eax 3/imm32/reg-var-def <span class="subxComment"># Stmt-tag</span> -<span id="L21400" class="LineNr">21400 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L21401" class="LineNr">21401 </span><span class="Constant">$check-mu-stmt-list:reg-var-def</span>: -<span id="L21402" class="LineNr">21402 </span> (<a href='mu.subx.html#L21420'>check-mu-stmt</a> %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21403" class="LineNr">21403 </span> eb/jump $check-mu-stmt-list:continue/disp8 -<span id="L21404" class="LineNr">21404 </span> } -<span id="L21405" class="LineNr">21405 </span><span class="Constant">$check-mu-stmt-list:continue</span>: -<span id="L21406" class="LineNr">21406 </span> <span class="subxComment"># TODO: raise an error on unrecognized Stmt-tag</span> -<span id="L21407" class="LineNr">21407 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L21408" class="LineNr">21408 </span> 89/<- %esi 0/r32/eax -<span id="L21409" class="LineNr">21409 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L21410" class="LineNr">21410 </span> } -<span id="L21411" class="LineNr">21411 </span><span class="Constant">$check-mu-stmt-list:end</span>: -<span id="L21412" class="LineNr">21412 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21413" class="LineNr">21413 </span> 5e/pop-to-esi -<span id="L21414" class="LineNr">21414 </span> 58/pop-to-eax -<span id="L21415" class="LineNr">21415 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21416" class="LineNr">21416 </span> 89/<- %esp 5/r32/ebp -<span id="L21417" class="LineNr">21417 </span> 5d/pop-to-ebp -<span id="L21418" class="LineNr">21418 </span> c3/return -<span id="L21419" class="LineNr">21419 </span> -<span id="L21420" class="LineNr">21420 </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="L21421" class="LineNr">21421 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21422" class="LineNr">21422 </span> 55/push-ebp -<span id="L21423" class="LineNr">21423 </span> 89/<- %ebp 4/r32/esp -<span id="L21424" class="LineNr">21424 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21425" class="LineNr">21425 </span> 50/push-eax -<span id="L21426" class="LineNr">21426 </span> <span class="subxH1Comment"># - if stmt's operation matches a primitive, check against it</span> -<span id="L21427" class="LineNr">21427 </span> (<a href='mu.subx.html#L21473'>has-primitive-name?</a> *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L21428" class="LineNr">21428 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21429" class="LineNr">21429 </span> { -<span id="L21430" class="LineNr">21430 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21431" class="LineNr">21431 </span> (<a href='mu.subx.html#L21565'>check-mu-primitive</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21432" class="LineNr">21432 </span> e9/jump $check-mu-stmt:end/disp32 -<span id="L21433" class="LineNr">21433 </span> } -<span id="L21434" class="LineNr">21434 </span> <span class="subxH1Comment"># - otherwise find a function to check against</span> -<span id="L21435" class="LineNr">21435 </span> <span class="subxComment"># var f/eax: (addr function) = lookup(*Program->functions)</span> -<span id="L21436" class="LineNr">21436 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *_Program-functions *_Program-functions->payload) <span class="subxComment"># => eax</span> -<span id="L21437" class="LineNr">21437 </span> (<a href='mu.subx.html#L35786'>find-matching-function</a> %eax *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L21438" class="LineNr">21438 </span> 3d/compare-eax-and 0/imm32 -<span id="L21439" class="LineNr">21439 </span> { -<span id="L21440" class="LineNr">21440 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21441" class="LineNr">21441 </span> (<a href='mu.subx.html#L26096'>check-mu-call</a> *(ebp+8) %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21442" class="LineNr">21442 </span> eb/jump $check-mu-stmt:end/disp8 -<span id="L21443" class="LineNr">21443 </span> } -<span id="L21444" class="LineNr">21444 </span> <span class="subxComment"># var f/eax: (addr function) = lookup(*Program->signatures)</span> -<span id="L21445" class="LineNr">21445 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *_Program-signatures *_Program-signatures->payload) <span class="subxComment"># => eax</span> -<span id="L21446" class="LineNr">21446 </span> (<a href='mu.subx.html#L35786'>find-matching-function</a> %eax *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L21447" class="LineNr">21447 </span> 3d/compare-eax-and 0/imm32 -<span id="L21448" class="LineNr">21448 </span> { -<span id="L21449" class="LineNr">21449 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21450" class="LineNr">21450 </span> (<a href='mu.subx.html#L26096'>check-mu-call</a> *(ebp+8) %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21451" class="LineNr">21451 </span> eb/jump $check-mu-stmt:end/disp8 -<span id="L21452" class="LineNr">21452 </span> } -<span id="L21453" class="LineNr">21453 </span> <span class="subxH1Comment"># - otherwise abort</span> -<span id="L21454" class="LineNr">21454 </span> e9/jump $check-mu-stmt:unknown-call/disp32 -<span id="L21455" class="LineNr">21455 </span><span class="Constant">$check-mu-stmt:end</span>: -<span id="L21456" class="LineNr">21456 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21457" class="LineNr">21457 </span> 58/pop-to-eax -<span id="L21458" class="LineNr">21458 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21459" class="LineNr">21459 </span> 89/<- %esp 5/r32/ebp -<span id="L21460" class="LineNr">21460 </span> 5d/pop-to-ebp -<span id="L21461" class="LineNr">21461 </span> c3/return -<span id="L21462" class="LineNr">21462 </span> -<span id="L21463" class="LineNr">21463 </span><span class="Constant">$check-mu-stmt:unknown-call</span>: -<span id="L21464" class="LineNr">21464 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"unknown function '"</span>) -<span id="L21465" class="LineNr">21465 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L21466" class="LineNr">21466 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L21467" class="LineNr">21467 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21468" class="LineNr">21468 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) -<span id="L21469" class="LineNr">21469 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L21470" class="LineNr">21470 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L21471" class="LineNr">21471 </span> <span class="subxComment"># never gets here</span> -<span id="L21472" class="LineNr">21472 </span> -<span id="L21473" class="LineNr">21473 </span><span class="subxFunction">has-primitive-name?</span>: <span class="subxComment"># stmt: (addr stmt) -> result/eax: boolean</span> -<span id="L21474" class="LineNr">21474 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21475" class="LineNr">21475 </span> 55/push-ebp -<span id="L21476" class="LineNr">21476 </span> 89/<- %ebp 4/r32/esp -<span id="L21477" class="LineNr">21477 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21478" class="LineNr">21478 </span> 51/push-ecx -<span id="L21479" class="LineNr">21479 </span> 56/push-esi -<span id="L21480" class="LineNr">21480 </span> <span class="subxComment"># var name/esi: (addr array byte) = lookup(stmt->operation)</span> -<span id="L21481" class="LineNr">21481 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L21482" class="LineNr">21482 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L21483" class="LineNr">21483 </span> 89/<- %esi 0/r32/eax -<span id="L21484" class="LineNr">21484 </span> <span class="subxComment"># if (name == "return") return true</span> -<span id="L21485" class="LineNr">21485 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"return"</span>) <span class="subxComment"># => eax</span> -<span id="L21486" class="LineNr">21486 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21487" class="LineNr">21487 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L21488" class="LineNr">21488 </span> <span class="subxComment"># if (name == "get") return true</span> -<span id="L21489" class="LineNr">21489 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"get"</span>) <span class="subxComment"># => eax</span> -<span id="L21490" class="LineNr">21490 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21491" class="LineNr">21491 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L21492" class="LineNr">21492 </span> <span class="subxComment"># if (name == "index") return true</span> -<span id="L21493" class="LineNr">21493 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"index"</span>) <span class="subxComment"># => eax</span> -<span id="L21494" class="LineNr">21494 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21495" class="LineNr">21495 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L21496" class="LineNr">21496 </span> <span class="subxComment"># if (name == "length") return true</span> -<span id="L21497" class="LineNr">21497 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"length"</span>) <span class="subxComment"># => eax</span> -<span id="L21498" class="LineNr">21498 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21499" class="LineNr">21499 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L21500" class="LineNr">21500 </span> <span class="subxComment"># if (name == "compute-offset") return true</span> -<span id="L21501" class="LineNr">21501 </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="L21502" class="LineNr">21502 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21503" class="LineNr">21503 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L21504" class="LineNr">21504 </span> <span class="subxComment"># if (name == "copy-object") return true</span> -<span id="L21505" class="LineNr">21505 </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="L21506" class="LineNr">21506 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21507" class="LineNr">21507 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L21508" class="LineNr">21508 </span> <span class="subxComment"># if (name == "clear-object") return true</span> -<span id="L21509" class="LineNr">21509 </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="L21510" class="LineNr">21510 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21511" class="LineNr">21511 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L21512" class="LineNr">21512 </span> <span class="subxComment"># if (name == "allocate") return true</span> -<span id="L21513" class="LineNr">21513 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"allocate"</span>) <span class="subxComment"># => eax</span> -<span id="L21514" class="LineNr">21514 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21515" class="LineNr">21515 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L21516" class="LineNr">21516 </span> <span class="subxComment"># if (name == "populate") return true</span> -<span id="L21517" class="LineNr">21517 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"populate"</span>) <span class="subxComment"># => eax</span> -<span id="L21518" class="LineNr">21518 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21519" class="LineNr">21519 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L21520" class="LineNr">21520 </span> <span class="subxComment"># if (name == "populate-stream") return true</span> -<span id="L21521" class="LineNr">21521 </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="L21522" class="LineNr">21522 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21523" class="LineNr">21523 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L21524" class="LineNr">21524 </span> <span class="subxComment"># if (name == "read-from-stream") return true</span> -<span id="L21525" class="LineNr">21525 </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="L21526" class="LineNr">21526 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21527" class="LineNr">21527 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L21528" class="LineNr">21528 </span> <span class="subxComment"># if (name == "write-to-stream") return true</span> -<span id="L21529" class="LineNr">21529 </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="L21530" class="LineNr">21530 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21531" class="LineNr">21531 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L21532" class="LineNr">21532 </span> <span class="subxComment"># var curr/ecx: (addr primitive) = Primitives</span> -<span id="L21533" class="LineNr">21533 </span> b9/copy-to-ecx <span class="SpecialChar"><a href='mu.subx.html#L30394'>Primitives</a></span>/imm32 -<span id="L21534" class="LineNr">21534 </span> { -<span id="L21535" class="LineNr">21535 </span><span class="Constant">$has-primitive-name?:loop</span>: -<span id="L21536" class="LineNr">21536 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L21537" class="LineNr">21537 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L21538" class="LineNr">21538 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21539" class="LineNr">21539 </span> <span class="subxComment"># if (primitive->name == name) return true</span> -<span id="L21540" class="LineNr">21540 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Primitive-name Primitive-name => eax</span> -<span id="L21541" class="LineNr">21541 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L21542" class="LineNr">21542 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L21543" class="LineNr">21543 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L21544" class="LineNr">21544 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi %eax) <span class="subxComment"># => eax</span> -<span id="L21545" class="LineNr">21545 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21546" class="LineNr">21546 </span> 75/jump-if-!= $has-primitive-name?:end/disp8 -<span id="L21547" class="LineNr">21547 </span><span class="Constant">$has-primitive-name?:next-primitive</span>: -<span id="L21548" class="LineNr">21548 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L21549" class="LineNr">21549 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x3c) *(ecx+0x40)) <span class="subxComment"># Primitive-next Primitive-next => eax</span> -<span id="L21550" class="LineNr">21550 </span> 89/<- %ecx 0/r32/eax -<span id="L21551" class="LineNr">21551 </span> <span class="subxComment">#</span> -<span id="L21552" class="LineNr">21552 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L21553" class="LineNr">21553 </span> } -<span id="L21554" class="LineNr">21554 </span> <span class="subxComment"># return null</span> -<span id="L21555" class="LineNr">21555 </span> b8/copy-to-eax 0/imm32 -<span id="L21556" class="LineNr">21556 </span><span class="Constant">$has-primitive-name?:end</span>: -<span id="L21557" class="LineNr">21557 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21558" class="LineNr">21558 </span> 5e/pop-to-esi -<span id="L21559" class="LineNr">21559 </span> 59/pop-to-ecx -<span id="L21560" class="LineNr">21560 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21561" class="LineNr">21561 </span> 89/<- %esp 5/r32/ebp -<span id="L21562" class="LineNr">21562 </span> 5d/pop-to-ebp -<span id="L21563" class="LineNr">21563 </span> c3/return -<span id="L21564" class="LineNr">21564 </span> -<span id="L21565" class="LineNr">21565 </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="L21566" class="LineNr">21566 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21567" class="LineNr">21567 </span> 55/push-ebp -<span id="L21568" class="LineNr">21568 </span> 89/<- %ebp 4/r32/esp -<span id="L21569" class="LineNr">21569 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21570" class="LineNr">21570 </span> 50/push-eax -<span id="L21571" class="LineNr">21571 </span> 51/push-ecx -<span id="L21572" class="LineNr">21572 </span> <span class="subxComment"># var op/ecx: (addr array byte) = lookup(stmt->operation)</span> -<span id="L21573" class="LineNr">21573 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L21574" class="LineNr">21574 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L21575" class="LineNr">21575 </span> 89/<- %ecx 0/r32/eax -<span id="L21576" class="LineNr">21576 </span> <span class="subxComment"># if (op == "copy") check-mu-copy-stmt</span> -<span id="L21577" class="LineNr">21577 </span> { -<span id="L21578" class="LineNr">21578 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"copy"</span>) <span class="subxComment"># => eax</span> -<span id="L21579" class="LineNr">21579 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21580" class="LineNr">21580 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21581" class="LineNr">21581 </span> (<a href='mu.subx.html#L21984'>check-mu-copy-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21582" class="LineNr">21582 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21583" class="LineNr">21583 </span> } -<span id="L21584" class="LineNr">21584 </span> <span class="subxComment"># if (op == "copy-to") check-mu-copy-to-stmt</span> -<span id="L21585" class="LineNr">21585 </span> { -<span id="L21586" class="LineNr">21586 </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="L21587" class="LineNr">21587 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21588" class="LineNr">21588 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21589" class="LineNr">21589 </span> (<a href='mu.subx.html#L22203'>check-mu-copy-to-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21590" class="LineNr">21590 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21591" class="LineNr">21591 </span> } -<span id="L21592" class="LineNr">21592 </span> <span class="subxComment"># if (op == "copy-byte") check-mu-copy-byte-stmt</span> -<span id="L21593" class="LineNr">21593 </span> { -<span id="L21594" class="LineNr">21594 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"copy-byte"</span>) <span class="subxComment"># => eax</span> -<span id="L21595" class="LineNr">21595 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21596" class="LineNr">21596 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21597" class="LineNr">21597 </span> (<a href='mu.subx.html#L22404'>check-mu-copy-byte-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21598" class="LineNr">21598 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21599" class="LineNr">21599 </span> } -<span id="L21600" class="LineNr">21600 </span> <span class="subxComment"># if (op == "copy-byte-to") check-mu-copy-byte-to-stmt</span> -<span id="L21601" class="LineNr">21601 </span> { -<span id="L21602" class="LineNr">21602 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"copy-byte-to"</span>) <span class="subxComment"># => eax</span> -<span id="L21603" class="LineNr">21603 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21604" class="LineNr">21604 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21605" class="LineNr">21605 </span> (<a href='mu.subx.html#L22575'>check-mu-copy-byte-to-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21606" class="LineNr">21606 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21607" class="LineNr">21607 </span> } -<span id="L21608" class="LineNr">21608 </span> <span class="subxComment"># if (op == "compare") check-mu-compare-stmt</span> -<span id="L21609" class="LineNr">21609 </span> { -<span id="L21610" class="LineNr">21610 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"compare"</span>) <span class="subxComment"># => eax</span> -<span id="L21611" class="LineNr">21611 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21612" class="LineNr">21612 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21613" class="LineNr">21613 </span> (<a href='mu.subx.html#L22727'>check-mu-compare-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21614" class="LineNr">21614 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21615" class="LineNr">21615 </span> } -<span id="L21616" class="LineNr">21616 </span> <span class="subxComment"># if (op == "address") check-mu-address-stmt</span> -<span id="L21617" class="LineNr">21617 </span> { -<span id="L21618" class="LineNr">21618 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"address"</span>) <span class="subxComment"># => eax</span> -<span id="L21619" class="LineNr">21619 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21620" class="LineNr">21620 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21621" class="LineNr">21621 </span> (<a href='mu.subx.html#L22950'>check-mu-address-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21622" class="LineNr">21622 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21623" class="LineNr">21623 </span> } -<span id="L21624" class="LineNr">21624 </span> <span class="subxComment"># if (op == "return") check-mu-return-stmt</span> -<span id="L21625" class="LineNr">21625 </span> { -<span id="L21626" class="LineNr">21626 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"return"</span>) <span class="subxComment"># => eax</span> -<span id="L21627" class="LineNr">21627 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21628" class="LineNr">21628 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21629" class="LineNr">21629 </span> (<a href='mu.subx.html#L23194'>check-mu-return-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21630" class="LineNr">21630 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21631" class="LineNr">21631 </span> } -<span id="L21632" class="LineNr">21632 </span> <span class="subxComment"># if (op == "get") check-mu-get-stmt</span> -<span id="L21633" class="LineNr">21633 </span> { -<span id="L21634" class="LineNr">21634 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"get"</span>) <span class="subxComment"># => eax</span> -<span id="L21635" class="LineNr">21635 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21636" class="LineNr">21636 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21637" class="LineNr">21637 </span> (<a href='mu.subx.html#L23670'>check-mu-get-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21638" class="LineNr">21638 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21639" class="LineNr">21639 </span> } -<span id="L21640" class="LineNr">21640 </span> <span class="subxComment"># if (op == "index") check-mu-index-stmt</span> -<span id="L21641" class="LineNr">21641 </span> { -<span id="L21642" class="LineNr">21642 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"index"</span>) <span class="subxComment"># => eax</span> -<span id="L21643" class="LineNr">21643 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21644" class="LineNr">21644 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21645" class="LineNr">21645 </span> (<a href='mu.subx.html#L23965'>check-mu-index-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21646" class="LineNr">21646 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21647" class="LineNr">21647 </span> } -<span id="L21648" class="LineNr">21648 </span> <span class="subxComment"># if (op == "length") check-mu-length-stmt</span> -<span id="L21649" class="LineNr">21649 </span> { -<span id="L21650" class="LineNr">21650 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"length"</span>) <span class="subxComment"># => eax</span> -<span id="L21651" class="LineNr">21651 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21652" class="LineNr">21652 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21653" class="LineNr">21653 </span> (<a href='mu.subx.html#L24348'>check-mu-length-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21654" class="LineNr">21654 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21655" class="LineNr">21655 </span> } -<span id="L21656" class="LineNr">21656 </span> <span class="subxComment"># if (op == "compute-offset") check-mu-compute-offset-stmt</span> -<span id="L21657" class="LineNr">21657 </span> { -<span id="L21658" class="LineNr">21658 </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="L21659" class="LineNr">21659 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21660" class="LineNr">21660 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21661" class="LineNr">21661 </span> (<a href='mu.subx.html#L24638'>check-mu-compute-offset-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21662" class="LineNr">21662 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21663" class="LineNr">21663 </span> } -<span id="L21664" class="LineNr">21664 </span> <span class="subxComment"># if (op == "copy-object") check-mu-copy-object-stmt</span> -<span id="L21665" class="LineNr">21665 </span> { -<span id="L21666" class="LineNr">21666 </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="L21667" class="LineNr">21667 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21668" class="LineNr">21668 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21669" class="LineNr">21669 </span> (<a href='mu.subx.html#L24926'>check-mu-copy-object-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21670" class="LineNr">21670 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21671" class="LineNr">21671 </span> } -<span id="L21672" class="LineNr">21672 </span> <span class="subxComment"># if (op == "clear-object") check-mu-clear-object-stmt</span> -<span id="L21673" class="LineNr">21673 </span> { -<span id="L21674" class="LineNr">21674 </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="L21675" class="LineNr">21675 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21676" class="LineNr">21676 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21677" class="LineNr">21677 </span> (<a href='mu.subx.html#L25048'>check-mu-clear-object-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21678" class="LineNr">21678 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21679" class="LineNr">21679 </span> } -<span id="L21680" class="LineNr">21680 </span> <span class="subxComment"># if (op == "allocate") check-mu-allocate-stmt</span> -<span id="L21681" class="LineNr">21681 </span> { -<span id="L21682" class="LineNr">21682 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"allocate"</span>) <span class="subxComment"># => eax</span> -<span id="L21683" class="LineNr">21683 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21684" class="LineNr">21684 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21685" class="LineNr">21685 </span> (<a href='mu.subx.html#L25142'>check-mu-allocate-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21686" class="LineNr">21686 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21687" class="LineNr">21687 </span> } -<span id="L21688" class="LineNr">21688 </span> <span class="subxComment"># if (op == "populate") check-mu-populate-stmt</span> -<span id="L21689" class="LineNr">21689 </span> { -<span id="L21690" class="LineNr">21690 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"populate"</span>) <span class="subxComment"># => eax</span> -<span id="L21691" class="LineNr">21691 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21692" class="LineNr">21692 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21693" class="LineNr">21693 </span> (<a href='mu.subx.html#L25246'>check-mu-populate-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21694" class="LineNr">21694 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21695" class="LineNr">21695 </span> } -<span id="L21696" class="LineNr">21696 </span> <span class="subxComment"># if (op == "populate-stream") check-mu-populate-stream-stmt</span> -<span id="L21697" class="LineNr">21697 </span> { -<span id="L21698" class="LineNr">21698 </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="L21699" class="LineNr">21699 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21700" class="LineNr">21700 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21701" class="LineNr">21701 </span> (<a href='mu.subx.html#L25396'>check-mu-populate-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21702" class="LineNr">21702 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21703" class="LineNr">21703 </span> } -<span id="L21704" class="LineNr">21704 </span> <span class="subxComment"># if (op == "read-from-stream") check-mu-read-from-stream-stmt</span> -<span id="L21705" class="LineNr">21705 </span> { -<span id="L21706" class="LineNr">21706 </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="L21707" class="LineNr">21707 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21708" class="LineNr">21708 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21709" class="LineNr">21709 </span> (<a href='mu.subx.html#L25546'>check-mu-read-from-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21710" class="LineNr">21710 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21711" class="LineNr">21711 </span> } -<span id="L21712" class="LineNr">21712 </span> <span class="subxComment"># if (op == "write-to-stream") check-mu-write-to-stream-stmt</span> -<span id="L21713" class="LineNr">21713 </span> { -<span id="L21714" class="LineNr">21714 </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="L21715" class="LineNr">21715 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21716" class="LineNr">21716 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21717" class="LineNr">21717 </span> (<a href='mu.subx.html#L25713'>check-mu-write-to-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21718" class="LineNr">21718 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21719" class="LineNr">21719 </span> } -<span id="L21720" class="LineNr">21720 </span> <span class="subxComment"># if (op == "convert") check-mu-convert-stmt</span> -<span id="L21721" class="LineNr">21721 </span> { -<span id="L21722" class="LineNr">21722 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"convert"</span>) <span class="subxComment"># => eax</span> -<span id="L21723" class="LineNr">21723 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21724" class="LineNr">21724 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21725" class="LineNr">21725 </span> (<a href='mu.subx.html#L25880'>check-mu-convert-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21726" class="LineNr">21726 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21727" class="LineNr">21727 </span> } -<span id="L21728" class="LineNr">21728 </span> <span class="subxComment"># otherwise check-numberlike-stmt</span> -<span id="L21729" class="LineNr">21729 </span> (<a href='mu.subx.html#L21740'>check-mu-numberlike-primitive</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21730" class="LineNr">21730 </span><span class="Constant">$check-mu-primitive:end</span>: -<span id="L21731" class="LineNr">21731 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21732" class="LineNr">21732 </span> 59/pop-to-ecx -<span id="L21733" class="LineNr">21733 </span> 58/pop-to-eax -<span id="L21734" class="LineNr">21734 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21735" class="LineNr">21735 </span> 89/<- %esp 5/r32/ebp -<span id="L21736" class="LineNr">21736 </span> 5d/pop-to-ebp -<span id="L21737" class="LineNr">21737 </span> c3/return -<span id="L21738" class="LineNr">21738 </span> -<span id="L21739" class="LineNr">21739 </span><span class="subxComment"># by default, Mu primitives should only operate on 'number-like' types</span> -<span id="L21740" class="LineNr">21740 </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="L21741" class="LineNr">21741 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21742" class="LineNr">21742 </span> 55/push-ebp -<span id="L21743" class="LineNr">21743 </span> 89/<- %ebp 4/r32/esp -<span id="L21744" class="LineNr">21744 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21745" class="LineNr">21745 </span> 50/push-eax -<span id="L21746" class="LineNr">21746 </span> 51/push-ecx -<span id="L21747" class="LineNr">21747 </span> 56/push-esi -<span id="L21748" class="LineNr">21748 </span> <span class="subxComment"># esi = stmt</span> -<span id="L21749" class="LineNr">21749 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L21750" class="LineNr">21750 </span> <span class="subxComment"># var gas/ecx: int = 2</span> -<span id="L21751" class="LineNr">21751 </span> b9/copy-to-ecx 2/imm32 -<span id="L21752" class="LineNr">21752 </span> <span class="subxH1Comment"># - check at most 1 output</span> -<span id="L21753" class="LineNr">21753 </span> <span class="subxComment"># var output/eax: (addr stmt-var) = stmt->outputs</span> -<span id="L21754" class="LineNr">21754 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L21755" class="LineNr">21755 </span> { -<span id="L21756" class="LineNr">21756 </span> 3d/compare-eax-and 0/imm32 -<span id="L21757" class="LineNr">21757 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21758" class="LineNr">21758 </span><span class="Constant">$check-mu-numberlike-primitive:output</span>: -<span id="L21759" class="LineNr">21759 </span> (<a href='mu.subx.html#L21880'>check-mu-numberlike-output</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21760" class="LineNr">21760 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L21761" class="LineNr">21761 </span> 3d/compare-eax-and 0/imm32 -<span id="L21762" class="LineNr">21762 </span> 0f 85/jump-if-!= $check-mu-numberlike-primitive:error-too-many-outputs/disp32 -<span id="L21763" class="LineNr">21763 </span> <span class="subxComment"># check output is in a register</span> -<span id="L21764" class="LineNr">21764 </span> <span class="subxComment"># --gas</span> -<span id="L21765" class="LineNr">21765 </span> 49/decrement-ecx -<span id="L21766" class="LineNr">21766 </span> } -<span id="L21767" class="LineNr">21767 </span> <span class="subxH1Comment"># - check first inout</span> -<span id="L21768" class="LineNr">21768 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L21769" class="LineNr">21769 </span> { -<span id="L21770" class="LineNr">21770 </span> 3d/compare-eax-and 0/imm32 -<span id="L21771" class="LineNr">21771 </span> 0f 84/jump-if-= $check-mu-numberlike-primitive:end/disp32 -<span id="L21772" class="LineNr">21772 </span><span class="Constant">$check-mu-numberlike-primitive:first-inout</span>: -<span id="L21773" class="LineNr">21773 </span> (<a href='mu.subx.html#L21829'>check-mu-numberlike-arg</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21774" class="LineNr">21774 </span> <span class="subxComment"># --gas</span> -<span id="L21775" class="LineNr">21775 </span> 49/decrement-ecx -<span id="L21776" class="LineNr">21776 </span> } -<span id="L21777" class="LineNr">21777 </span> <span class="subxH1Comment"># - check second inout</span> -<span id="L21778" class="LineNr">21778 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L21779" class="LineNr">21779 </span> { -<span id="L21780" class="LineNr">21780 </span> 3d/compare-eax-and 0/imm32 -<span id="L21781" class="LineNr">21781 </span> 74/jump-if-= $check-mu-numberlike-primitive:end/disp8 -<span id="L21782" class="LineNr">21782 </span><span class="Constant">$check-mu-numberlike-primitive:second-inout</span>: -<span id="L21783" class="LineNr">21783 </span> <span class="subxComment"># is a second inout allowed?</span> -<span id="L21784" class="LineNr">21784 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L21785" class="LineNr">21785 </span> 0f 84/jump-if-= $check-mu-numberlike-primitive:error-too-many-inouts/disp32 -<span id="L21786" class="LineNr">21786 </span><span class="Constant">$check-mu-numberlike-primitive:second-inout-permitted</span>: -<span id="L21787" class="LineNr">21787 </span> (<a href='mu.subx.html#L21829'>check-mu-numberlike-arg</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21262" class="LineNr">21262 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+8)) +<span id="L21263" class="LineNr">21263 </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="L21264" class="LineNr">21264 </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="L21265" class="LineNr">21265 </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="L21266" class="LineNr">21266 </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="L21267" class="LineNr">21267 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+8)) +<span id="L21268" class="LineNr">21268 </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="L21269" class="LineNr">21269 </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="L21270" class="LineNr">21270 </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="L21271" class="LineNr">21271 </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="L21272" class="LineNr">21272 </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="L21273" class="LineNr">21273 </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="L21274" class="LineNr">21274 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register</span> +<span id="L21275" class="LineNr">21275 </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="L21276" class="LineNr">21276 </span> { +<span id="L21277" class="LineNr">21277 </span> 3d/compare-eax-and 0/imm32 +<span id="L21278" class="LineNr">21278 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21279" class="LineNr">21279 </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="L21280" class="LineNr">21280 </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="L21281" class="LineNr">21281 </span> } +<span id="L21282" class="LineNr">21282 </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="L21283" class="LineNr">21283 </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="L21284" class="LineNr">21284 </span> } +<span id="L21285" class="LineNr">21285 </span><span class="Constant">$dump-var:end</span>: +<span id="L21286" class="LineNr">21286 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21287" class="LineNr">21287 </span> 5b/pop-to-ebx +<span id="L21288" class="LineNr">21288 </span> 58/pop-to-eax +<span id="L21289" class="LineNr">21289 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21290" class="LineNr">21290 </span> 89/<- %esp 5/r32/ebp +<span id="L21291" class="LineNr">21291 </span> 5d/pop-to-ebp +<span id="L21292" class="LineNr">21292 </span> c3/return +<span id="L21293" class="LineNr">21293 </span> +<span id="L21294" class="LineNr">21294 </span><span class="subxComment">#######################################################</span> +<span id="L21295" class="LineNr">21295 </span><span class="subxComment"># Type-checking</span> +<span id="L21296" class="LineNr">21296 </span><span class="subxComment">#######################################################</span> +<span id="L21297" class="LineNr">21297 </span> +<span id="L21298" class="LineNr">21298 </span><span class="subxFunction">check-mu-types</span>: <span class="subxComment"># err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L21299" class="LineNr">21299 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21300" class="LineNr">21300 </span> 55/push-ebp +<span id="L21301" class="LineNr">21301 </span> 89/<- %ebp 4/r32/esp +<span id="L21302" class="LineNr">21302 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21303" class="LineNr">21303 </span> 50/push-eax +<span id="L21304" class="LineNr">21304 </span> <span class="subxComment"># var curr/eax: (addr function) = lookup(Program->functions)</span> +<span id="L21305" class="LineNr">21305 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *_Program-functions *_Program-functions->payload) <span class="subxComment"># => eax</span> +<span id="L21306" class="LineNr">21306 </span> { +<span id="L21307" class="LineNr">21307 </span><span class="Constant">$check-mu-types:loop</span>: +<span id="L21308" class="LineNr">21308 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L21309" class="LineNr">21309 </span> 3d/compare-eax-and 0/imm32 +<span id="L21310" class="LineNr">21310 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L21311" class="Folded">21311 </span><span class="Folded">+-- 8 lines: #? # dump curr->name ------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L21319" class="LineNr">21319 </span> (<a href='mu.subx.html#L21332'>check-mu-function</a> %eax *(ebp+8) *(ebp+0xc)) +<span id="L21320" class="LineNr">21320 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L21321" class="LineNr">21321 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x20) *(eax+0x24)) <span class="subxComment"># Function-next Function-next => eax</span> +<span id="L21322" class="LineNr">21322 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L21323" class="LineNr">21323 </span> } +<span id="L21324" class="LineNr">21324 </span><span class="Constant">$check-mu-types:end</span>: +<span id="L21325" class="LineNr">21325 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21326" class="LineNr">21326 </span> 58/pop-to-eax +<span id="L21327" class="LineNr">21327 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21328" class="LineNr">21328 </span> 89/<- %esp 5/r32/ebp +<span id="L21329" class="LineNr">21329 </span> 5d/pop-to-ebp +<span id="L21330" class="LineNr">21330 </span> c3/return +<span id="L21331" class="LineNr">21331 </span> +<span id="L21332" class="LineNr">21332 </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="L21333" class="LineNr">21333 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21334" class="LineNr">21334 </span> 55/push-ebp +<span id="L21335" class="LineNr">21335 </span> 89/<- %ebp 4/r32/esp +<span id="L21336" class="LineNr">21336 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21337" class="LineNr">21337 </span> 50/push-eax +<span id="L21338" class="LineNr">21338 </span> 56/push-esi +<span id="L21339" class="LineNr">21339 </span> <span class="subxComment"># esi = f</span> +<span id="L21340" class="LineNr">21340 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L21341" class="LineNr">21341 </span> <span class="subxComment"># outputs</span> +<span id="L21342" class="LineNr">21342 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x10) *(esi+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> +<span id="L21343" class="LineNr">21343 </span> (<a href='mu.subx.html#L23375'>check-all-unique-registers</a> %eax %esi *(ebp+0xc) *(ebp+0x10)) +<span id="L21344" class="LineNr">21344 </span> <span class="subxComment"># body</span> +<span id="L21345" class="LineNr">21345 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Function-body Function-body => eax</span> +<span id="L21346" class="LineNr">21346 </span> (<a href='mu.subx.html#L21362'>check-mu-block</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x10)) +<span id="L21347" class="LineNr">21347 </span> <span class="subxComment"># if function has no outputs, we're done</span> +<span id="L21348" class="LineNr">21348 </span> 81 7/subop/compare *(esi+0x10) 0/imm32 +<span id="L21349" class="LineNr">21349 </span> 74/jump-if-= $check-mu-function:end/disp8 +<span id="L21350" class="LineNr">21350 </span> <span class="subxComment"># some final checks on body</span> +<span id="L21351" class="LineNr">21351 </span> (<a href='mu.subx.html#L23588'>check-final-stmt-is-return</a> %eax %esi *(ebp+0xc) *(ebp+0x10)) +<span id="L21352" class="LineNr">21352 </span> (<a href='mu.subx.html#L23640'>check-no-breaks</a> %eax %esi *(ebp+0xc) *(ebp+0x10)) +<span id="L21353" class="LineNr">21353 </span><span class="Constant">$check-mu-function:end</span>: +<span id="L21354" class="LineNr">21354 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21355" class="LineNr">21355 </span> 5e/pop-to-esi +<span id="L21356" class="LineNr">21356 </span> 58/pop-to-eax +<span id="L21357" class="LineNr">21357 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21358" class="LineNr">21358 </span> 89/<- %esp 5/r32/ebp +<span id="L21359" class="LineNr">21359 </span> 5d/pop-to-ebp +<span id="L21360" class="LineNr">21360 </span> c3/return +<span id="L21361" class="LineNr">21361 </span> +<span id="L21362" class="LineNr">21362 </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="L21363" class="LineNr">21363 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21364" class="LineNr">21364 </span> 55/push-ebp +<span id="L21365" class="LineNr">21365 </span> 89/<- %ebp 4/r32/esp +<span id="L21366" class="LineNr">21366 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21367" class="LineNr">21367 </span> 50/push-eax +<span id="L21368" class="LineNr">21368 </span> <span class="subxComment"># eax = block</span> +<span id="L21369" class="LineNr">21369 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L21370" class="LineNr">21370 </span> <span class="subxComment"># var stmts/eax: (addr list stmt) = lookup(block->statements)</span> +<span id="L21371" class="LineNr">21371 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> +<span id="L21372" class="LineNr">21372 </span> <span class="subxComment">#</span> +<span id="L21373" class="LineNr">21373 </span> { +<span id="L21374" class="LineNr">21374 </span><span class="Constant">$check-mu-block:check-empty</span>: +<span id="L21375" class="LineNr">21375 </span> 3d/compare-eax-and 0/imm32 +<span id="L21376" class="LineNr">21376 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L21377" class="LineNr">21377 </span> <span class="subxComment"># emit block->statements</span> +<span id="L21378" class="LineNr">21378 </span> (<a href='mu.subx.html#L21388'>check-mu-stmt-list</a> %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21379" class="LineNr">21379 </span> } +<span id="L21380" class="LineNr">21380 </span><span class="Constant">$check-mu-block:end</span>: +<span id="L21381" class="LineNr">21381 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21382" class="LineNr">21382 </span> 58/pop-to-eax +<span id="L21383" class="LineNr">21383 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21384" class="LineNr">21384 </span> 89/<- %esp 5/r32/ebp +<span id="L21385" class="LineNr">21385 </span> 5d/pop-to-ebp +<span id="L21386" class="LineNr">21386 </span> c3/return +<span id="L21387" class="LineNr">21387 </span> +<span id="L21388" class="LineNr">21388 </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="L21389" class="LineNr">21389 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21390" class="LineNr">21390 </span> 55/push-ebp +<span id="L21391" class="LineNr">21391 </span> 89/<- %ebp 4/r32/esp +<span id="L21392" class="LineNr">21392 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21393" class="LineNr">21393 </span> 50/push-eax +<span id="L21394" class="LineNr">21394 </span> 56/push-esi +<span id="L21395" class="LineNr">21395 </span> <span class="subxComment"># esi = stmts</span> +<span id="L21396" class="LineNr">21396 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L21397" class="LineNr">21397 </span> { +<span id="L21398" class="LineNr">21398 </span><span class="Constant">$check-mu-stmt-list:loop</span>: +<span id="L21399" class="LineNr">21399 </span> 81 7/subop/compare %esi 0/imm32 +<span id="L21400" class="LineNr">21400 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L21401" class="LineNr">21401 </span> <span class="subxComment"># var curr-stmt/eax: (addr stmt) = lookup(stmts->value)</span> +<span id="L21402" class="LineNr">21402 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L21403" class="LineNr">21403 </span> { +<span id="L21404" class="LineNr">21404 </span><span class="Constant">$check-mu-stmt-list:check-for-block</span>: +<span id="L21405" class="LineNr">21405 </span> 81 7/subop/compare *eax 0/imm32/block <span class="subxComment"># Stmt-tag</span> +<span id="L21406" class="LineNr">21406 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L21407" class="LineNr">21407 </span><span class="Constant">$check-mu-stmt-list:block</span>: +<span id="L21408" class="LineNr">21408 </span> (<a href='mu.subx.html#L21362'>check-mu-block</a> %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21409" class="LineNr">21409 </span> eb/jump $check-mu-stmt-list:continue/disp8 +<span id="L21410" class="LineNr">21410 </span> } +<span id="L21411" class="LineNr">21411 </span> { +<span id="L21412" class="LineNr">21412 </span><span class="Constant">$check-mu-stmt-list:check-for-stmt1</span>: +<span id="L21413" class="LineNr">21413 </span> 81 7/subop/compare *eax 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> +<span id="L21414" class="LineNr">21414 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L21415" class="LineNr">21415 </span><span class="Constant">$check-mu-stmt-list:stmt1</span>: +<span id="L21416" class="LineNr">21416 </span> (<a href='mu.subx.html#L21442'>check-mu-stmt</a> %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21417" class="LineNr">21417 </span> eb/jump $check-mu-stmt-list:continue/disp8 +<span id="L21418" class="LineNr">21418 </span> } +<span id="L21419" class="LineNr">21419 </span> { +<span id="L21420" class="LineNr">21420 </span><span class="Constant">$check-mu-stmt-list:check-for-reg-var-def</span>: +<span id="L21421" class="LineNr">21421 </span> 81 7/subop/compare *eax 3/imm32/reg-var-def <span class="subxComment"># Stmt-tag</span> +<span id="L21422" class="LineNr">21422 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L21423" class="LineNr">21423 </span><span class="Constant">$check-mu-stmt-list:reg-var-def</span>: +<span id="L21424" class="LineNr">21424 </span> (<a href='mu.subx.html#L21442'>check-mu-stmt</a> %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21425" class="LineNr">21425 </span> eb/jump $check-mu-stmt-list:continue/disp8 +<span id="L21426" class="LineNr">21426 </span> } +<span id="L21427" class="LineNr">21427 </span><span class="Constant">$check-mu-stmt-list:continue</span>: +<span id="L21428" class="LineNr">21428 </span> <span class="subxComment"># TODO: raise an error on unrecognized Stmt-tag</span> +<span id="L21429" class="LineNr">21429 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L21430" class="LineNr">21430 </span> 89/<- %esi 0/r32/eax +<span id="L21431" class="LineNr">21431 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L21432" class="LineNr">21432 </span> } +<span id="L21433" class="LineNr">21433 </span><span class="Constant">$check-mu-stmt-list:end</span>: +<span id="L21434" class="LineNr">21434 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21435" class="LineNr">21435 </span> 5e/pop-to-esi +<span id="L21436" class="LineNr">21436 </span> 58/pop-to-eax +<span id="L21437" class="LineNr">21437 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21438" class="LineNr">21438 </span> 89/<- %esp 5/r32/ebp +<span id="L21439" class="LineNr">21439 </span> 5d/pop-to-ebp +<span id="L21440" class="LineNr">21440 </span> c3/return +<span id="L21441" class="LineNr">21441 </span> +<span id="L21442" class="LineNr">21442 </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="L21443" class="LineNr">21443 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21444" class="LineNr">21444 </span> 55/push-ebp +<span id="L21445" class="LineNr">21445 </span> 89/<- %ebp 4/r32/esp +<span id="L21446" class="LineNr">21446 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21447" class="LineNr">21447 </span> 50/push-eax +<span id="L21448" class="LineNr">21448 </span> <span class="subxH1Comment"># - if stmt's operation matches a primitive, check against it</span> +<span id="L21449" class="LineNr">21449 </span> (<a href='mu.subx.html#L21495'>has-primitive-name?</a> *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L21450" class="LineNr">21450 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21451" class="LineNr">21451 </span> { +<span id="L21452" class="LineNr">21452 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21453" class="LineNr">21453 </span> (<a href='mu.subx.html#L21587'>check-mu-primitive</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21454" class="LineNr">21454 </span> e9/jump $check-mu-stmt:end/disp32 +<span id="L21455" class="LineNr">21455 </span> } +<span id="L21456" class="LineNr">21456 </span> <span class="subxH1Comment"># - otherwise find a function to check against</span> +<span id="L21457" class="LineNr">21457 </span> <span class="subxComment"># var f/eax: (addr function) = lookup(*Program->functions)</span> +<span id="L21458" class="LineNr">21458 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *_Program-functions *_Program-functions->payload) <span class="subxComment"># => eax</span> +<span id="L21459" class="LineNr">21459 </span> (<a href='mu.subx.html#L36115'>find-matching-function</a> %eax *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L21460" class="LineNr">21460 </span> 3d/compare-eax-and 0/imm32 +<span id="L21461" class="LineNr">21461 </span> { +<span id="L21462" class="LineNr">21462 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21463" class="LineNr">21463 </span> (<a href='mu.subx.html#L26118'>check-mu-call</a> *(ebp+8) %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21464" class="LineNr">21464 </span> eb/jump $check-mu-stmt:end/disp8 +<span id="L21465" class="LineNr">21465 </span> } +<span id="L21466" class="LineNr">21466 </span> <span class="subxComment"># var f/eax: (addr function) = lookup(*Program->signatures)</span> +<span id="L21467" class="LineNr">21467 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *_Program-signatures *_Program-signatures->payload) <span class="subxComment"># => eax</span> +<span id="L21468" class="LineNr">21468 </span> (<a href='mu.subx.html#L36115'>find-matching-function</a> %eax *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L21469" class="LineNr">21469 </span> 3d/compare-eax-and 0/imm32 +<span id="L21470" class="LineNr">21470 </span> { +<span id="L21471" class="LineNr">21471 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21472" class="LineNr">21472 </span> (<a href='mu.subx.html#L26118'>check-mu-call</a> *(ebp+8) %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21473" class="LineNr">21473 </span> eb/jump $check-mu-stmt:end/disp8 +<span id="L21474" class="LineNr">21474 </span> } +<span id="L21475" class="LineNr">21475 </span> <span class="subxH1Comment"># - otherwise abort</span> +<span id="L21476" class="LineNr">21476 </span> e9/jump $check-mu-stmt:unknown-call/disp32 +<span id="L21477" class="LineNr">21477 </span><span class="Constant">$check-mu-stmt:end</span>: +<span id="L21478" class="LineNr">21478 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21479" class="LineNr">21479 </span> 58/pop-to-eax +<span id="L21480" class="LineNr">21480 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21481" class="LineNr">21481 </span> 89/<- %esp 5/r32/ebp +<span id="L21482" class="LineNr">21482 </span> 5d/pop-to-ebp +<span id="L21483" class="LineNr">21483 </span> c3/return +<span id="L21484" class="LineNr">21484 </span> +<span id="L21485" class="LineNr">21485 </span><span class="Constant">$check-mu-stmt:unknown-call</span>: +<span id="L21486" class="LineNr">21486 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"unknown function '"</span>) +<span id="L21487" class="LineNr">21487 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L21488" class="LineNr">21488 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L21489" class="LineNr">21489 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21490" class="LineNr">21490 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) +<span id="L21491" class="LineNr">21491 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L21492" class="LineNr">21492 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L21493" class="LineNr">21493 </span> <span class="subxComment"># never gets here</span> +<span id="L21494" class="LineNr">21494 </span> +<span id="L21495" class="LineNr">21495 </span><span class="subxFunction">has-primitive-name?</span>: <span class="subxComment"># stmt: (addr stmt) -> result/eax: boolean</span> +<span id="L21496" class="LineNr">21496 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21497" class="LineNr">21497 </span> 55/push-ebp +<span id="L21498" class="LineNr">21498 </span> 89/<- %ebp 4/r32/esp +<span id="L21499" class="LineNr">21499 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21500" class="LineNr">21500 </span> 51/push-ecx +<span id="L21501" class="LineNr">21501 </span> 56/push-esi +<span id="L21502" class="LineNr">21502 </span> <span class="subxComment"># var name/esi: (addr array byte) = lookup(stmt->operation)</span> +<span id="L21503" class="LineNr">21503 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L21504" class="LineNr">21504 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L21505" class="LineNr">21505 </span> 89/<- %esi 0/r32/eax +<span id="L21506" class="LineNr">21506 </span> <span class="subxComment"># if (name == "return") return true</span> +<span id="L21507" class="LineNr">21507 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"return"</span>) <span class="subxComment"># => eax</span> +<span id="L21508" class="LineNr">21508 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21509" class="LineNr">21509 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L21510" class="LineNr">21510 </span> <span class="subxComment"># if (name == "get") return true</span> +<span id="L21511" class="LineNr">21511 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"get"</span>) <span class="subxComment"># => eax</span> +<span id="L21512" class="LineNr">21512 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21513" class="LineNr">21513 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L21514" class="LineNr">21514 </span> <span class="subxComment"># if (name == "index") return true</span> +<span id="L21515" class="LineNr">21515 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"index"</span>) <span class="subxComment"># => eax</span> +<span id="L21516" class="LineNr">21516 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21517" class="LineNr">21517 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L21518" class="LineNr">21518 </span> <span class="subxComment"># if (name == "length") return true</span> +<span id="L21519" class="LineNr">21519 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"length"</span>) <span class="subxComment"># => eax</span> +<span id="L21520" class="LineNr">21520 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21521" class="LineNr">21521 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L21522" class="LineNr">21522 </span> <span class="subxComment"># if (name == "compute-offset") return true</span> +<span id="L21523" class="LineNr">21523 </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="L21524" class="LineNr">21524 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21525" class="LineNr">21525 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L21526" class="LineNr">21526 </span> <span class="subxComment"># if (name == "copy-object") return true</span> +<span id="L21527" class="LineNr">21527 </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="L21528" class="LineNr">21528 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21529" class="LineNr">21529 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L21530" class="LineNr">21530 </span> <span class="subxComment"># if (name == "clear-object") return true</span> +<span id="L21531" class="LineNr">21531 </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="L21532" class="LineNr">21532 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21533" class="LineNr">21533 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L21534" class="LineNr">21534 </span> <span class="subxComment"># if (name == "allocate") return true</span> +<span id="L21535" class="LineNr">21535 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"allocate"</span>) <span class="subxComment"># => eax</span> +<span id="L21536" class="LineNr">21536 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21537" class="LineNr">21537 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L21538" class="LineNr">21538 </span> <span class="subxComment"># if (name == "populate") return true</span> +<span id="L21539" class="LineNr">21539 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"populate"</span>) <span class="subxComment"># => eax</span> +<span id="L21540" class="LineNr">21540 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21541" class="LineNr">21541 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L21542" class="LineNr">21542 </span> <span class="subxComment"># if (name == "populate-stream") return true</span> +<span id="L21543" class="LineNr">21543 </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="L21544" class="LineNr">21544 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21545" class="LineNr">21545 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L21546" class="LineNr">21546 </span> <span class="subxComment"># if (name == "read-from-stream") return true</span> +<span id="L21547" class="LineNr">21547 </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="L21548" class="LineNr">21548 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21549" class="LineNr">21549 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L21550" class="LineNr">21550 </span> <span class="subxComment"># if (name == "write-to-stream") return true</span> +<span id="L21551" class="LineNr">21551 </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="L21552" class="LineNr">21552 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21553" class="LineNr">21553 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L21554" class="LineNr">21554 </span> <span class="subxComment"># var curr/ecx: (addr primitive) = Primitives</span> +<span id="L21555" class="LineNr">21555 </span> b9/copy-to-ecx <span class="SpecialChar"><a href='mu.subx.html#L30450'>Primitives</a></span>/imm32 +<span id="L21556" class="LineNr">21556 </span> { +<span id="L21557" class="LineNr">21557 </span><span class="Constant">$has-primitive-name?:loop</span>: +<span id="L21558" class="LineNr">21558 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L21559" class="LineNr">21559 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L21560" class="LineNr">21560 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21561" class="LineNr">21561 </span> <span class="subxComment"># if (primitive->name == name) return true</span> +<span id="L21562" class="LineNr">21562 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Primitive-name Primitive-name => eax</span> +<span id="L21563" class="LineNr">21563 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L21564" class="LineNr">21564 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L21565" class="LineNr">21565 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L21566" class="LineNr">21566 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi %eax) <span class="subxComment"># => eax</span> +<span id="L21567" class="LineNr">21567 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21568" class="LineNr">21568 </span> 75/jump-if-!= $has-primitive-name?:end/disp8 +<span id="L21569" class="LineNr">21569 </span><span class="Constant">$has-primitive-name?:next-primitive</span>: +<span id="L21570" class="LineNr">21570 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L21571" class="LineNr">21571 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x3c) *(ecx+0x40)) <span class="subxComment"># Primitive-next Primitive-next => eax</span> +<span id="L21572" class="LineNr">21572 </span> 89/<- %ecx 0/r32/eax +<span id="L21573" class="LineNr">21573 </span> <span class="subxComment">#</span> +<span id="L21574" class="LineNr">21574 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L21575" class="LineNr">21575 </span> } +<span id="L21576" class="LineNr">21576 </span> <span class="subxComment"># return null</span> +<span id="L21577" class="LineNr">21577 </span> b8/copy-to-eax 0/imm32 +<span id="L21578" class="LineNr">21578 </span><span class="Constant">$has-primitive-name?:end</span>: +<span id="L21579" class="LineNr">21579 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21580" class="LineNr">21580 </span> 5e/pop-to-esi +<span id="L21581" class="LineNr">21581 </span> 59/pop-to-ecx +<span id="L21582" class="LineNr">21582 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21583" class="LineNr">21583 </span> 89/<- %esp 5/r32/ebp +<span id="L21584" class="LineNr">21584 </span> 5d/pop-to-ebp +<span id="L21585" class="LineNr">21585 </span> c3/return +<span id="L21586" class="LineNr">21586 </span> +<span id="L21587" class="LineNr">21587 </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="L21588" class="LineNr">21588 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21589" class="LineNr">21589 </span> 55/push-ebp +<span id="L21590" class="LineNr">21590 </span> 89/<- %ebp 4/r32/esp +<span id="L21591" class="LineNr">21591 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21592" class="LineNr">21592 </span> 50/push-eax +<span id="L21593" class="LineNr">21593 </span> 51/push-ecx +<span id="L21594" class="LineNr">21594 </span> <span class="subxComment"># var op/ecx: (addr array byte) = lookup(stmt->operation)</span> +<span id="L21595" class="LineNr">21595 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L21596" class="LineNr">21596 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L21597" class="LineNr">21597 </span> 89/<- %ecx 0/r32/eax +<span id="L21598" class="LineNr">21598 </span> <span class="subxComment"># if (op == "copy") check-mu-copy-stmt</span> +<span id="L21599" class="LineNr">21599 </span> { +<span id="L21600" class="LineNr">21600 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"copy"</span>) <span class="subxComment"># => eax</span> +<span id="L21601" class="LineNr">21601 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21602" class="LineNr">21602 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21603" class="LineNr">21603 </span> (<a href='mu.subx.html#L22006'>check-mu-copy-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21604" class="LineNr">21604 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21605" class="LineNr">21605 </span> } +<span id="L21606" class="LineNr">21606 </span> <span class="subxComment"># if (op == "copy-to") check-mu-copy-to-stmt</span> +<span id="L21607" class="LineNr">21607 </span> { +<span id="L21608" class="LineNr">21608 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"copy-to"</span>) <span class="subxComment"># => eax</span> +<span id="L21609" class="LineNr">21609 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21610" class="LineNr">21610 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21611" class="LineNr">21611 </span> (<a href='mu.subx.html#L22225'>check-mu-copy-to-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21612" class="LineNr">21612 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21613" class="LineNr">21613 </span> } +<span id="L21614" class="LineNr">21614 </span> <span class="subxComment"># if (op == "copy-byte") check-mu-copy-byte-stmt</span> +<span id="L21615" class="LineNr">21615 </span> { +<span id="L21616" class="LineNr">21616 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"copy-byte"</span>) <span class="subxComment"># => eax</span> +<span id="L21617" class="LineNr">21617 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21618" class="LineNr">21618 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21619" class="LineNr">21619 </span> (<a href='mu.subx.html#L22426'>check-mu-copy-byte-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21620" class="LineNr">21620 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21621" class="LineNr">21621 </span> } +<span id="L21622" class="LineNr">21622 </span> <span class="subxComment"># if (op == "copy-byte-to") check-mu-copy-byte-to-stmt</span> +<span id="L21623" class="LineNr">21623 </span> { +<span id="L21624" class="LineNr">21624 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"copy-byte-to"</span>) <span class="subxComment"># => eax</span> +<span id="L21625" class="LineNr">21625 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21626" class="LineNr">21626 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21627" class="LineNr">21627 </span> (<a href='mu.subx.html#L22597'>check-mu-copy-byte-to-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21628" class="LineNr">21628 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21629" class="LineNr">21629 </span> } +<span id="L21630" class="LineNr">21630 </span> <span class="subxComment"># if (op == "compare") check-mu-compare-stmt</span> +<span id="L21631" class="LineNr">21631 </span> { +<span id="L21632" class="LineNr">21632 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"compare"</span>) <span class="subxComment"># => eax</span> +<span id="L21633" class="LineNr">21633 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21634" class="LineNr">21634 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21635" class="LineNr">21635 </span> (<a href='mu.subx.html#L22749'>check-mu-compare-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21636" class="LineNr">21636 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21637" class="LineNr">21637 </span> } +<span id="L21638" class="LineNr">21638 </span> <span class="subxComment"># if (op == "address") check-mu-address-stmt</span> +<span id="L21639" class="LineNr">21639 </span> { +<span id="L21640" class="LineNr">21640 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"address"</span>) <span class="subxComment"># => eax</span> +<span id="L21641" class="LineNr">21641 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21642" class="LineNr">21642 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21643" class="LineNr">21643 </span> (<a href='mu.subx.html#L22972'>check-mu-address-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21644" class="LineNr">21644 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21645" class="LineNr">21645 </span> } +<span id="L21646" class="LineNr">21646 </span> <span class="subxComment"># if (op == "return") check-mu-return-stmt</span> +<span id="L21647" class="LineNr">21647 </span> { +<span id="L21648" class="LineNr">21648 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"return"</span>) <span class="subxComment"># => eax</span> +<span id="L21649" class="LineNr">21649 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21650" class="LineNr">21650 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21651" class="LineNr">21651 </span> (<a href='mu.subx.html#L23216'>check-mu-return-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21652" class="LineNr">21652 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21653" class="LineNr">21653 </span> } +<span id="L21654" class="LineNr">21654 </span> <span class="subxComment"># if (op == "get") check-mu-get-stmt</span> +<span id="L21655" class="LineNr">21655 </span> { +<span id="L21656" class="LineNr">21656 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"get"</span>) <span class="subxComment"># => eax</span> +<span id="L21657" class="LineNr">21657 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21658" class="LineNr">21658 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21659" class="LineNr">21659 </span> (<a href='mu.subx.html#L23692'>check-mu-get-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21660" class="LineNr">21660 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21661" class="LineNr">21661 </span> } +<span id="L21662" class="LineNr">21662 </span> <span class="subxComment"># if (op == "index") check-mu-index-stmt</span> +<span id="L21663" class="LineNr">21663 </span> { +<span id="L21664" class="LineNr">21664 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"index"</span>) <span class="subxComment"># => eax</span> +<span id="L21665" class="LineNr">21665 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21666" class="LineNr">21666 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21667" class="LineNr">21667 </span> (<a href='mu.subx.html#L23987'>check-mu-index-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21668" class="LineNr">21668 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21669" class="LineNr">21669 </span> } +<span id="L21670" class="LineNr">21670 </span> <span class="subxComment"># if (op == "length") check-mu-length-stmt</span> +<span id="L21671" class="LineNr">21671 </span> { +<span id="L21672" class="LineNr">21672 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"length"</span>) <span class="subxComment"># => eax</span> +<span id="L21673" class="LineNr">21673 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21674" class="LineNr">21674 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21675" class="LineNr">21675 </span> (<a href='mu.subx.html#L24370'>check-mu-length-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21676" class="LineNr">21676 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21677" class="LineNr">21677 </span> } +<span id="L21678" class="LineNr">21678 </span> <span class="subxComment"># if (op == "compute-offset") check-mu-compute-offset-stmt</span> +<span id="L21679" class="LineNr">21679 </span> { +<span id="L21680" class="LineNr">21680 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"compute-offset"</span>) <span class="subxComment"># => eax</span> +<span id="L21681" class="LineNr">21681 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21682" class="LineNr">21682 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21683" class="LineNr">21683 </span> (<a href='mu.subx.html#L24660'>check-mu-compute-offset-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21684" class="LineNr">21684 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21685" class="LineNr">21685 </span> } +<span id="L21686" class="LineNr">21686 </span> <span class="subxComment"># if (op == "copy-object") check-mu-copy-object-stmt</span> +<span id="L21687" class="LineNr">21687 </span> { +<span id="L21688" class="LineNr">21688 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"copy-object"</span>) <span class="subxComment"># => eax</span> +<span id="L21689" class="LineNr">21689 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21690" class="LineNr">21690 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21691" class="LineNr">21691 </span> (<a href='mu.subx.html#L24948'>check-mu-copy-object-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21692" class="LineNr">21692 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21693" class="LineNr">21693 </span> } +<span id="L21694" class="LineNr">21694 </span> <span class="subxComment"># if (op == "clear-object") check-mu-clear-object-stmt</span> +<span id="L21695" class="LineNr">21695 </span> { +<span id="L21696" class="LineNr">21696 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"clear-object"</span>) <span class="subxComment"># => eax</span> +<span id="L21697" class="LineNr">21697 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21698" class="LineNr">21698 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21699" class="LineNr">21699 </span> (<a href='mu.subx.html#L25070'>check-mu-clear-object-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21700" class="LineNr">21700 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21701" class="LineNr">21701 </span> } +<span id="L21702" class="LineNr">21702 </span> <span class="subxComment"># if (op == "allocate") check-mu-allocate-stmt</span> +<span id="L21703" class="LineNr">21703 </span> { +<span id="L21704" class="LineNr">21704 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"allocate"</span>) <span class="subxComment"># => eax</span> +<span id="L21705" class="LineNr">21705 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21706" class="LineNr">21706 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21707" class="LineNr">21707 </span> (<a href='mu.subx.html#L25164'>check-mu-allocate-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21708" class="LineNr">21708 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21709" class="LineNr">21709 </span> } +<span id="L21710" class="LineNr">21710 </span> <span class="subxComment"># if (op == "populate") check-mu-populate-stmt</span> +<span id="L21711" class="LineNr">21711 </span> { +<span id="L21712" class="LineNr">21712 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"populate"</span>) <span class="subxComment"># => eax</span> +<span id="L21713" class="LineNr">21713 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21714" class="LineNr">21714 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21715" class="LineNr">21715 </span> (<a href='mu.subx.html#L25268'>check-mu-populate-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21716" class="LineNr">21716 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21717" class="LineNr">21717 </span> } +<span id="L21718" class="LineNr">21718 </span> <span class="subxComment"># if (op == "populate-stream") check-mu-populate-stream-stmt</span> +<span id="L21719" class="LineNr">21719 </span> { +<span id="L21720" class="LineNr">21720 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"populate-stream"</span>) <span class="subxComment"># => eax</span> +<span id="L21721" class="LineNr">21721 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21722" class="LineNr">21722 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21723" class="LineNr">21723 </span> (<a href='mu.subx.html#L25418'>check-mu-populate-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21724" class="LineNr">21724 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21725" class="LineNr">21725 </span> } +<span id="L21726" class="LineNr">21726 </span> <span class="subxComment"># if (op == "read-from-stream") check-mu-read-from-stream-stmt</span> +<span id="L21727" class="LineNr">21727 </span> { +<span id="L21728" class="LineNr">21728 </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="L21729" class="LineNr">21729 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21730" class="LineNr">21730 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21731" class="LineNr">21731 </span> (<a href='mu.subx.html#L25568'>check-mu-read-from-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21732" class="LineNr">21732 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21733" class="LineNr">21733 </span> } +<span id="L21734" class="LineNr">21734 </span> <span class="subxComment"># if (op == "write-to-stream") check-mu-write-to-stream-stmt</span> +<span id="L21735" class="LineNr">21735 </span> { +<span id="L21736" class="LineNr">21736 </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="L21737" class="LineNr">21737 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21738" class="LineNr">21738 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21739" class="LineNr">21739 </span> (<a href='mu.subx.html#L25735'>check-mu-write-to-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21740" class="LineNr">21740 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21741" class="LineNr">21741 </span> } +<span id="L21742" class="LineNr">21742 </span> <span class="subxComment"># if (op == "convert") check-mu-convert-stmt</span> +<span id="L21743" class="LineNr">21743 </span> { +<span id="L21744" class="LineNr">21744 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"convert"</span>) <span class="subxComment"># => eax</span> +<span id="L21745" class="LineNr">21745 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21746" class="LineNr">21746 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21747" class="LineNr">21747 </span> (<a href='mu.subx.html#L25902'>check-mu-convert-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21748" class="LineNr">21748 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21749" class="LineNr">21749 </span> } +<span id="L21750" class="LineNr">21750 </span> <span class="subxComment"># otherwise check-numberlike-stmt</span> +<span id="L21751" class="LineNr">21751 </span> (<a href='mu.subx.html#L21762'>check-mu-numberlike-primitive</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21752" class="LineNr">21752 </span><span class="Constant">$check-mu-primitive:end</span>: +<span id="L21753" class="LineNr">21753 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21754" class="LineNr">21754 </span> 59/pop-to-ecx +<span id="L21755" class="LineNr">21755 </span> 58/pop-to-eax +<span id="L21756" class="LineNr">21756 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21757" class="LineNr">21757 </span> 89/<- %esp 5/r32/ebp +<span id="L21758" class="LineNr">21758 </span> 5d/pop-to-ebp +<span id="L21759" class="LineNr">21759 </span> c3/return +<span id="L21760" class="LineNr">21760 </span> +<span id="L21761" class="LineNr">21761 </span><span class="subxComment"># by default, Mu primitives should only operate on 'number-like' types</span> +<span id="L21762" class="LineNr">21762 </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="L21763" class="LineNr">21763 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21764" class="LineNr">21764 </span> 55/push-ebp +<span id="L21765" class="LineNr">21765 </span> 89/<- %ebp 4/r32/esp +<span id="L21766" class="LineNr">21766 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21767" class="LineNr">21767 </span> 50/push-eax +<span id="L21768" class="LineNr">21768 </span> 51/push-ecx +<span id="L21769" class="LineNr">21769 </span> 56/push-esi +<span id="L21770" class="LineNr">21770 </span> <span class="subxComment"># esi = stmt</span> +<span id="L21771" class="LineNr">21771 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L21772" class="LineNr">21772 </span> <span class="subxComment"># var gas/ecx: int = 2</span> +<span id="L21773" class="LineNr">21773 </span> b9/copy-to-ecx 2/imm32 +<span id="L21774" class="LineNr">21774 </span> <span class="subxH1Comment"># - check at most 1 output</span> +<span id="L21775" class="LineNr">21775 </span> <span class="subxComment"># var output/eax: (addr stmt-var) = stmt->outputs</span> +<span id="L21776" class="LineNr">21776 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L21777" class="LineNr">21777 </span> { +<span id="L21778" class="LineNr">21778 </span> 3d/compare-eax-and 0/imm32 +<span id="L21779" class="LineNr">21779 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21780" class="LineNr">21780 </span><span class="Constant">$check-mu-numberlike-primitive:output</span>: +<span id="L21781" class="LineNr">21781 </span> (<a href='mu.subx.html#L21902'>check-mu-numberlike-output</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21782" class="LineNr">21782 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L21783" class="LineNr">21783 </span> 3d/compare-eax-and 0/imm32 +<span id="L21784" class="LineNr">21784 </span> 0f 85/jump-if-!= $check-mu-numberlike-primitive:error-too-many-outputs/disp32 +<span id="L21785" class="LineNr">21785 </span> <span class="subxComment"># check output is in a register</span> +<span id="L21786" class="LineNr">21786 </span> <span class="subxComment"># --gas</span> +<span id="L21787" class="LineNr">21787 </span> 49/decrement-ecx <span id="L21788" class="LineNr">21788 </span> } -<span id="L21789" class="LineNr">21789 </span><span class="Constant">$check-mu-numberlike-primitive:third-inout</span>: -<span id="L21790" class="LineNr">21790 </span> <span class="subxComment"># if there's a third arg, raise an error</span> -<span id="L21791" class="LineNr">21791 </span> 81 7/subop/compare *(eax+8) 0/imm32 <span class="subxComment"># Stmt-var-next</span> -<span id="L21792" class="LineNr">21792 </span> 0f 85/jump-if-!= $check-mu-numberlike-primitive:error-too-many-inouts/disp32 -<span id="L21793" class="LineNr">21793 </span><span class="Constant">$check-mu-numberlike-primitive:end</span>: -<span id="L21794" class="LineNr">21794 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21795" class="LineNr">21795 </span> 5e/pop-to-esi -<span id="L21796" class="LineNr">21796 </span> 59/pop-to-ecx -<span id="L21797" class="LineNr">21797 </span> 58/pop-to-eax -<span id="L21798" class="LineNr">21798 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21799" class="LineNr">21799 </span> 89/<- %esp 5/r32/ebp -<span id="L21800" class="LineNr">21800 </span> 5d/pop-to-ebp -<span id="L21801" class="LineNr">21801 </span> c3/return -<span id="L21802" class="LineNr">21802 </span> -<span id="L21803" class="LineNr">21803 </span><span class="Constant">$check-mu-numberlike-primitive:error-too-many-inouts</span>: -<span id="L21804" class="LineNr">21804 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L21805" class="LineNr">21805 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L21806" class="LineNr">21806 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L21807" class="LineNr">21807 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21808" class="LineNr">21808 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt "</span>) -<span id="L21809" class="LineNr">21809 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L21810" class="LineNr">21810 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21811" class="LineNr">21811 </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="L21812" class="LineNr">21812 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L21813" class="LineNr">21813 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L21814" class="LineNr">21814 </span> <span class="subxComment"># never gets here</span> -<span id="L21815" class="LineNr">21815 </span> -<span id="L21816" class="LineNr">21816 </span><span class="Constant">$check-mu-numberlike-primitive:error-too-many-outputs</span>: -<span id="L21817" class="LineNr">21817 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L21818" class="LineNr">21818 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L21819" class="LineNr">21819 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L21820" class="LineNr">21820 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21821" class="LineNr">21821 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt "</span>) -<span id="L21822" class="LineNr">21822 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L21823" class="LineNr">21823 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21824" class="LineNr">21824 </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="L21825" class="LineNr">21825 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L21826" class="LineNr">21826 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L21827" class="LineNr">21827 </span> <span class="subxComment"># never gets here</span> -<span id="L21828" class="LineNr">21828 </span> -<span id="L21829" class="LineNr">21829 </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="L21830" class="LineNr">21830 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21831" class="LineNr">21831 </span> 55/push-ebp -<span id="L21832" class="LineNr">21832 </span> 89/<- %ebp 4/r32/esp -<span id="L21833" class="LineNr">21833 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21834" class="LineNr">21834 </span> 50/push-eax -<span id="L21835" class="LineNr">21835 </span> 56/push-esi -<span id="L21836" class="LineNr">21836 </span> <span class="subxComment"># var t/esi: (addr type-tree) = lookup(v->value->type)</span> -<span id="L21837" class="LineNr">21837 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L21838" class="LineNr">21838 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L21839" class="LineNr">21839 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L21840" class="LineNr">21840 </span> 89/<- %esi 0/r32/eax -<span id="L21841" class="LineNr">21841 </span><span class="Constant">$check-mu-numberlike-arg:check-literal</span>: -<span id="L21842" class="LineNr">21842 </span> <span class="subxComment"># if t is an int, return</span> -<span id="L21843" class="LineNr">21843 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %esi 0) <span class="subxComment"># literal => 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-numberlike-arg:end/disp32 -<span id="L21846" class="LineNr">21846 </span><span class="Constant">$check-mu-numberlike-arg:check-addr</span>: -<span id="L21847" class="LineNr">21847 </span> <span class="subxComment"># if t is an addr and v is dereferenced, return whether t->payload is an addr</span> -<span id="L21848" class="LineNr">21848 </span> { -<span id="L21849" class="LineNr">21849 </span> (<a href='mu.subx.html#L35916'>mu-addr-type?</a> %esi) <span class="subxComment"># => eax</span> -<span id="L21850" class="LineNr">21850 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21851" class="LineNr">21851 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21852" class="LineNr">21852 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L21853" class="LineNr">21853 </span> 8b/-> *(eax+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L21854" class="LineNr">21854 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21855" class="LineNr">21855 </span> { -<span id="L21856" class="LineNr">21856 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21857" class="LineNr">21857 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L21858" class="LineNr">21858 </span> <span class="subxComment"># if t->right is null, t = t->left</span> -<span id="L21859" class="LineNr">21859 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L21860" class="LineNr">21860 </span> { -<span id="L21861" class="LineNr">21861 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L21862" class="LineNr">21862 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L21863" class="LineNr">21863 </span> } -<span id="L21864" class="LineNr">21864 </span> (<a href='mu.subx.html#L35916'>mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L21865" class="LineNr">21865 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21866" class="LineNr">21866 </span> 74/jump-if-= $check-mu-numberlike-arg:end/disp8 -<span id="L21867" class="LineNr">21867 </span> } -<span id="L21868" class="LineNr">21868 </span> } -<span id="L21869" class="LineNr">21869 </span><span class="Constant">$check-mu-numberlike-arg:output-checks</span>: -<span id="L21870" class="LineNr">21870 </span> (<a href='mu.subx.html#L21880'>check-mu-numberlike-output</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18)) -<span id="L21871" class="LineNr">21871 </span><span class="Constant">$check-mu-numberlike-arg:end</span>: -<span id="L21872" class="LineNr">21872 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21873" class="LineNr">21873 </span> 5e/pop-to-esi -<span id="L21874" class="LineNr">21874 </span> 58/pop-to-eax -<span id="L21875" class="LineNr">21875 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21876" class="LineNr">21876 </span> 89/<- %esp 5/r32/ebp -<span id="L21877" class="LineNr">21877 </span> 5d/pop-to-ebp -<span id="L21878" class="LineNr">21878 </span> c3/return -<span id="L21879" class="LineNr">21879 </span> -<span id="L21880" class="LineNr">21880 </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="L21881" class="LineNr">21881 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21882" class="LineNr">21882 </span> 55/push-ebp -<span id="L21883" class="LineNr">21883 </span> 89/<- %ebp 4/r32/esp -<span id="L21884" class="LineNr">21884 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21885" class="LineNr">21885 </span> 50/push-eax -<span id="L21886" class="LineNr">21886 </span> <span class="subxComment">#</span> -<span id="L21887" class="LineNr">21887 </span> (<a href='mu.subx.html#L21918'>mu-numberlike-output-var?</a> *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L21888" class="LineNr">21888 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21889" class="LineNr">21889 </span> 0f 84/jump-if-= $check-mu-numberlike-output:fail/disp32 -<span id="L21890" class="LineNr">21890 </span><span class="Constant">$check-mu-numberlike-output:end</span>: -<span id="L21891" class="LineNr">21891 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21892" class="LineNr">21892 </span> 58/pop-to-eax -<span id="L21893" class="LineNr">21893 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21894" class="LineNr">21894 </span> 89/<- %esp 5/r32/ebp -<span id="L21895" class="LineNr">21895 </span> 5d/pop-to-ebp -<span id="L21896" class="LineNr">21896 </span> c3/return -<span id="L21897" class="LineNr">21897 </span> -<span id="L21898" class="LineNr">21898 </span><span class="Constant">$check-mu-numberlike-output:fail</span>: -<span id="L21899" class="LineNr">21899 </span> <span class="subxComment"># otherwise raise an error</span> -<span id="L21900" class="LineNr">21900 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L21901" class="LineNr">21901 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L21902" class="LineNr">21902 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L21903" class="LineNr">21903 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L21904" class="LineNr">21904 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": stmt "</span>) -<span id="L21905" class="LineNr">21905 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L21906" class="LineNr">21906 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L21907" class="LineNr">21907 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L21908" class="LineNr">21908 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": '"</span>) -<span id="L21909" class="LineNr">21909 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L21910" class="LineNr">21910 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L21911" class="LineNr">21911 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L21912" class="LineNr">21912 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L21913" class="LineNr">21913 </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="L21914" class="LineNr">21914 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L21915" class="LineNr">21915 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L21916" class="LineNr">21916 </span> <span class="subxComment"># never gets here</span> -<span id="L21917" class="LineNr">21917 </span> -<span id="L21918" class="LineNr">21918 </span><span class="subxFunction">mu-numberlike-output-var?</span>: <span class="subxComment"># v: (addr stmt-var) -> result/eax: boolean</span> -<span id="L21919" class="LineNr">21919 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21920" class="LineNr">21920 </span> 55/push-ebp -<span id="L21921" class="LineNr">21921 </span> 89/<- %ebp 4/r32/esp -<span id="L21922" class="LineNr">21922 </span> <span class="subxComment">#</span> -<span id="L21923" class="LineNr">21923 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L21924" class="LineNr">21924 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L21925" class="LineNr">21925 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L21926" class="LineNr">21926 </span> (<a href='mu.subx.html#L21933'>mu-numberlike-output?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L21927" class="LineNr">21927 </span><span class="Constant">$mu-numberlike-output-var?:end</span>: -<span id="L21928" class="LineNr">21928 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21929" class="LineNr">21929 </span> 89/<- %esp 5/r32/ebp -<span id="L21930" class="LineNr">21930 </span> 5d/pop-to-ebp -<span id="L21931" class="LineNr">21931 </span> c3/return -<span id="L21932" class="LineNr">21932 </span> -<span id="L21933" class="LineNr">21933 </span><span class="subxFunction">mu-numberlike-output?</span>: <span class="subxComment"># v: (addr type-tree) -> result/eax: boolean</span> -<span id="L21934" class="LineNr">21934 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21935" class="LineNr">21935 </span> 55/push-ebp -<span id="L21936" class="LineNr">21936 </span> 89/<- %ebp 4/r32/esp -<span id="L21937" class="LineNr">21937 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21938" class="LineNr">21938 </span> 56/push-esi -<span id="L21939" class="LineNr">21939 </span> <span class="subxComment"># var t/esi: (addr type-tree) = lookup(v->value->type)</span> -<span id="L21940" class="LineNr">21940 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L21941" class="LineNr">21941 </span><span class="Constant">$mu-numberlike-output?:check-int</span>: -<span id="L21942" class="LineNr">21942 </span> <span class="subxComment"># if t is an int, return</span> -<span id="L21943" class="LineNr">21943 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %esi 1) <span class="subxComment"># int => eax</span> -<span id="L21944" class="LineNr">21944 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21945" class="LineNr">21945 </span> 0f 85/jump-if-!= $mu-numberlike-output?:return-true/disp32 -<span id="L21946" class="LineNr">21946 </span><span class="Constant">$mu-numberlike-output?:check-float</span>: -<span id="L21947" class="LineNr">21947 </span> <span class="subxComment"># if t is a float, return</span> -<span id="L21948" class="LineNr">21948 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %esi 0xf) <span class="subxComment"># float => eax</span> -<span id="L21949" class="LineNr">21949 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21950" class="LineNr">21950 </span> 75/jump-if-!= $mu-numberlike-output?:return-true/disp8 -<span id="L21951" class="LineNr">21951 </span><span class="Constant">$mu-numberlike-output?:check-boolean</span>: -<span id="L21952" class="LineNr">21952 </span> <span class="subxComment"># if t is a boolean, return</span> -<span id="L21953" class="LineNr">21953 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %esi 5) <span class="subxComment"># boolean => eax</span> -<span id="L21954" class="LineNr">21954 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21955" class="LineNr">21955 </span> 75/jump-if-!= $mu-numberlike-output?:return-true/disp8 -<span id="L21956" class="LineNr">21956 </span><span class="Constant">$mu-numberlike-output?:check-byte</span>: -<span id="L21957" class="LineNr">21957 </span> <span class="subxComment"># if t is a byte, return</span> -<span id="L21958" class="LineNr">21958 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %esi 8) <span class="subxComment"># byte => eax</span> -<span id="L21959" class="LineNr">21959 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21960" class="LineNr">21960 </span> 75/jump-if-!= $mu-numberlike-output?:return-true/disp8 -<span id="L21961" class="LineNr">21961 </span><span class="Constant">$mu-numberlike-output?:check-code-point</span>: -<span id="L21962" class="LineNr">21962 </span> <span class="subxComment"># if t is a code-point, return</span> -<span id="L21963" class="LineNr">21963 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %esi 0xd) <span class="subxComment"># code-point => eax</span> -<span id="L21964" class="LineNr">21964 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21965" class="LineNr">21965 </span> 75/jump-if-!= $mu-numberlike-output?:return-true/disp8 -<span id="L21966" class="LineNr">21966 </span><span class="Constant">$mu-numberlike-output?:check-grapheme</span>: -<span id="L21967" class="LineNr">21967 </span> <span class="subxComment"># if t is a grapheme, return</span> -<span id="L21968" class="LineNr">21968 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %esi 0xe) <span class="subxComment"># grapheme => eax</span> -<span id="L21969" class="LineNr">21969 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21970" class="LineNr">21970 </span> 75/jump-if-!= $mu-numberlike-output?:return-true/disp8 -<span id="L21971" class="LineNr">21971 </span><span class="Constant">$mu-numberlike-output?:return-false</span>: -<span id="L21972" class="LineNr">21972 </span> b8/copy-to-eax 0/imm32/false -<span id="L21973" class="LineNr">21973 </span> eb/jump $mu-numberlike-output?:end/disp8 -<span id="L21974" class="LineNr">21974 </span><span class="Constant">$mu-numberlike-output?:return-true</span>: -<span id="L21975" class="LineNr">21975 </span> b8/copy-to-eax 1/imm32/true -<span id="L21976" class="LineNr">21976 </span><span class="Constant">$mu-numberlike-output?:end</span>: -<span id="L21977" class="LineNr">21977 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21978" class="LineNr">21978 </span> 5e/pop-to-esi -<span id="L21979" class="LineNr">21979 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21980" class="LineNr">21980 </span> 89/<- %esp 5/r32/ebp -<span id="L21981" class="LineNr">21981 </span> 5d/pop-to-ebp -<span id="L21982" class="LineNr">21982 </span> c3/return -<span id="L21983" class="LineNr">21983 </span> -<span id="L21984" class="LineNr">21984 </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="L21985" class="LineNr">21985 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21986" class="LineNr">21986 </span> 55/push-ebp -<span id="L21987" class="LineNr">21987 </span> 89/<- %ebp 4/r32/esp -<span id="L21988" class="LineNr">21988 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21989" class="LineNr">21989 </span> 50/push-eax -<span id="L21990" class="LineNr">21990 </span> 51/push-ecx -<span id="L21991" class="LineNr">21991 </span> 52/push-edx -<span id="L21992" class="LineNr">21992 </span> 56/push-esi -<span id="L21993" class="LineNr">21993 </span> 57/push-edi -<span id="L21994" class="LineNr">21994 </span> <span class="subxComment"># var type-parameters/edx: (addr table (handle array byte) (addr type-tree) 8)</span> -<span id="L21995" class="LineNr">21995 </span> 81 5/subop/subtract %esp 0x60/imm32 -<span id="L21996" class="LineNr">21996 </span> 68/push 0x60/imm32/size -<span id="L21997" class="LineNr">21997 </span> 68/push 0/imm32/read -<span id="L21998" class="LineNr">21998 </span> 68/push 0/imm32/write -<span id="L21999" class="LineNr">21999 </span> 89/<- %edx 4/r32/esp -<span id="L22000" class="LineNr">22000 </span><span class="Constant">$check-mu-copy-stmt:get-output</span>: -<span id="L22001" class="LineNr">22001 </span> <span class="subxComment"># esi = stmt</span> -<span id="L22002" class="LineNr">22002 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L22003" class="LineNr">22003 </span> <span class="subxComment"># var output/edi: (addr stmt-var) = stmt->outputs</span> -<span id="L22004" class="LineNr">22004 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L22005" class="LineNr">22005 </span> 89/<- %edi 0/r32/eax -<span id="L22006" class="LineNr">22006 </span> <span class="subxComment"># zero outputs</span> -<span id="L22007" class="LineNr">22007 </span> 3d/compare-eax-and 0/imm32 -<span id="L22008" class="LineNr">22008 </span> 0f 84/jump-if-= $check-mu-copy-stmt:error-no-output/disp32 -<span id="L22009" class="LineNr">22009 </span> <span class="subxComment"># > 1 output</span> -<span id="L22010" class="LineNr">22010 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L22011" class="LineNr">22011 </span> 3d/compare-eax-and 0/imm32 -<span id="L22012" class="LineNr">22012 </span> 0f 85/jump-if-!= $check-mu-copy-stmt:error-too-many-outputs/disp32 -<span id="L22013" class="LineNr">22013 </span><span class="Constant">$check-mu-copy-stmt:get-inout</span>: -<span id="L22014" class="LineNr">22014 </span> <span class="subxComment"># var inout/esi: (addr stmt-var) = stmt->inouts</span> -<span id="L22015" class="LineNr">22015 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L22016" class="LineNr">22016 </span> 89/<- %esi 0/r32/eax -<span id="L22017" class="LineNr">22017 </span> <span class="subxComment"># zero inouts</span> -<span id="L22018" class="LineNr">22018 </span> 3d/compare-eax-and 0/imm32 -<span id="L22019" class="LineNr">22019 </span> 0f 84/jump-if-= $check-mu-copy-stmt:error-no-inout/disp32 -<span id="L22020" class="LineNr">22020 </span> <span class="subxComment"># > 1 inout</span> -<span id="L22021" class="LineNr">22021 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L22022" class="LineNr">22022 </span> 3d/compare-eax-and 0/imm32 -<span id="L22023" class="LineNr">22023 </span> 0f 85/jump-if-!= $check-mu-copy-stmt:error-too-many-inouts/disp32 -<span id="L22024" class="LineNr">22024 </span><span class="Constant">$check-mu-copy-stmt:types</span>: -<span id="L22025" class="LineNr">22025 </span> <span class="subxComment"># if inout is not a scalar, abort</span> -<span id="L22026" class="LineNr">22026 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22027" class="LineNr">22027 </span> (<a href='mu.subx.html#L26553'>size-of</a> %eax) <span class="subxComment"># => eax</span> -<span id="L22028" class="LineNr">22028 </span> 3d/compare-eax-and 4/imm32 -<span id="L22029" class="LineNr">22029 </span> 0f 8f/jump-if-> $check-mu-copy-stmt:error-inout-too-large/disp32 -<span id="L22030" class="LineNr">22030 </span> <span class="subxComment"># var inout-type/ecx: (addr type-tree) = inout->value->type</span> -<span id="L22031" class="LineNr">22031 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22032" class="LineNr">22032 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22033" class="LineNr">22033 </span> 89/<- %ecx 0/r32/eax -<span id="L22034" class="LineNr">22034 </span> <span class="subxComment"># if (inout->is-deref?) inout-type = inout-type->payload</span> -<span id="L22035" class="LineNr">22035 </span> 8b/-> *(esi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L22036" class="LineNr">22036 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22037" class="LineNr">22037 </span> { -<span id="L22038" class="LineNr">22038 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22039" class="LineNr">22039 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L22040" class="LineNr">22040 </span> <span class="subxComment"># if inout-type->right is null, t = inout-type->left</span> -<span id="L22041" class="LineNr">22041 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L22042" class="LineNr">22042 </span> { -<span id="L22043" class="LineNr">22043 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22044" class="LineNr">22044 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L22045" class="LineNr">22045 </span> } -<span id="L22046" class="LineNr">22046 </span> 89/<- %ecx 0/r32/eax -<span id="L22047" class="LineNr">22047 </span> } -<span id="L22048" class="LineNr">22048 </span> <span class="subxComment"># if output not in register, abort</span> -<span id="L22049" class="LineNr">22049 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22050" class="LineNr">22050 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L22051" class="LineNr">22051 </span> 3d/compare-eax-and 0/imm32 -<span id="L22052" class="LineNr">22052 </span> 0f 84/jump-if-= $check-mu-copy-stmt:error-output-not-in-register/disp32 -<span id="L22053" class="LineNr">22053 </span> <span class="subxComment"># var output-type/eax: (addr type-tree) = output->value->type</span> -<span id="L22054" class="LineNr">22054 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22055" class="LineNr">22055 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22056" class="LineNr">22056 </span> <span class="subxComment"># if (inout-type == output-type) return</span> -<span id="L22057" class="LineNr">22057 </span> (<a href='mu.subx.html#L26394'>type-match?</a> %eax %ecx %edx) <span class="subxComment"># => eax</span> -<span id="L22058" class="LineNr">22058 </span> 3d/compare-eax-and 0/imm32 -<span id="L22059" class="LineNr">22059 </span> 0f 85/jump-if-!= $check-mu-copy-stmt:end/disp32 -<span id="L22060" class="LineNr">22060 </span> <span class="subxComment"># if output is an addr and inout is 0, return</span> -<span id="L22061" class="LineNr">22061 </span> { -<span id="L22062" class="LineNr">22062 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22063" class="LineNr">22063 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22064" class="LineNr">22064 </span> (<a href='mu.subx.html#L35916'>mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L22065" class="LineNr">22065 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22066" class="LineNr">22066 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22067" class="LineNr">22067 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22068" class="LineNr">22068 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22069" class="LineNr">22069 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> -<span id="L22070" class="LineNr">22070 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22071" class="LineNr">22071 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22072" class="LineNr">22072 </span> e9/jump $check-mu-copy-stmt:end/disp32 -<span id="L22073" class="LineNr">22073 </span> } -<span id="L22074" class="LineNr">22074 </span> <span class="subxComment"># if output is an offset and inout is 0, return</span> -<span id="L22075" class="LineNr">22075 </span> { -<span id="L22076" class="LineNr">22076 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22077" class="LineNr">22077 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22078" class="LineNr">22078 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L22079" class="LineNr">22079 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22080" class="LineNr">22080 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L22081" class="LineNr">22081 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 7) <span class="subxComment"># offset => eax</span> -<span id="L22082" class="LineNr">22082 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22083" class="LineNr">22083 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22084" class="LineNr">22084 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22085" class="LineNr">22085 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22086" class="LineNr">22086 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> +<span id="L21789" class="LineNr">21789 </span> <span class="subxH1Comment"># - check first inout</span> +<span id="L21790" class="LineNr">21790 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L21791" class="LineNr">21791 </span> { +<span id="L21792" class="LineNr">21792 </span> 3d/compare-eax-and 0/imm32 +<span id="L21793" class="LineNr">21793 </span> 0f 84/jump-if-= $check-mu-numberlike-primitive:end/disp32 +<span id="L21794" class="LineNr">21794 </span><span class="Constant">$check-mu-numberlike-primitive:first-inout</span>: +<span id="L21795" class="LineNr">21795 </span> (<a href='mu.subx.html#L21851'>check-mu-numberlike-arg</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21796" class="LineNr">21796 </span> <span class="subxComment"># --gas</span> +<span id="L21797" class="LineNr">21797 </span> 49/decrement-ecx +<span id="L21798" class="LineNr">21798 </span> } +<span id="L21799" class="LineNr">21799 </span> <span class="subxH1Comment"># - check second inout</span> +<span id="L21800" class="LineNr">21800 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L21801" class="LineNr">21801 </span> { +<span id="L21802" class="LineNr">21802 </span> 3d/compare-eax-and 0/imm32 +<span id="L21803" class="LineNr">21803 </span> 74/jump-if-= $check-mu-numberlike-primitive:end/disp8 +<span id="L21804" class="LineNr">21804 </span><span class="Constant">$check-mu-numberlike-primitive:second-inout</span>: +<span id="L21805" class="LineNr">21805 </span> <span class="subxComment"># is a second inout allowed?</span> +<span id="L21806" class="LineNr">21806 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L21807" class="LineNr">21807 </span> 0f 84/jump-if-= $check-mu-numberlike-primitive:error-too-many-inouts/disp32 +<span id="L21808" class="LineNr">21808 </span><span class="Constant">$check-mu-numberlike-primitive:second-inout-permitted</span>: +<span id="L21809" class="LineNr">21809 </span> (<a href='mu.subx.html#L21851'>check-mu-numberlike-arg</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21810" class="LineNr">21810 </span> } +<span id="L21811" class="LineNr">21811 </span><span class="Constant">$check-mu-numberlike-primitive:third-inout</span>: +<span id="L21812" class="LineNr">21812 </span> <span class="subxComment"># if there's a third arg, raise an error</span> +<span id="L21813" class="LineNr">21813 </span> 81 7/subop/compare *(eax+8) 0/imm32 <span class="subxComment"># Stmt-var-next</span> +<span id="L21814" class="LineNr">21814 </span> 0f 85/jump-if-!= $check-mu-numberlike-primitive:error-too-many-inouts/disp32 +<span id="L21815" class="LineNr">21815 </span><span class="Constant">$check-mu-numberlike-primitive:end</span>: +<span id="L21816" class="LineNr">21816 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21817" class="LineNr">21817 </span> 5e/pop-to-esi +<span id="L21818" class="LineNr">21818 </span> 59/pop-to-ecx +<span id="L21819" class="LineNr">21819 </span> 58/pop-to-eax +<span id="L21820" class="LineNr">21820 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21821" class="LineNr">21821 </span> 89/<- %esp 5/r32/ebp +<span id="L21822" class="LineNr">21822 </span> 5d/pop-to-ebp +<span id="L21823" class="LineNr">21823 </span> c3/return +<span id="L21824" class="LineNr">21824 </span> +<span id="L21825" class="LineNr">21825 </span><span class="Constant">$check-mu-numberlike-primitive:error-too-many-inouts</span>: +<span id="L21826" class="LineNr">21826 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L21827" class="LineNr">21827 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L21828" class="LineNr">21828 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L21829" class="LineNr">21829 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21830" class="LineNr">21830 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt "</span>) +<span id="L21831" class="LineNr">21831 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L21832" class="LineNr">21832 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21833" class="LineNr">21833 </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="L21834" class="LineNr">21834 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L21835" class="LineNr">21835 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L21836" class="LineNr">21836 </span> <span class="subxComment"># never gets here</span> +<span id="L21837" class="LineNr">21837 </span> +<span id="L21838" class="LineNr">21838 </span><span class="Constant">$check-mu-numberlike-primitive:error-too-many-outputs</span>: +<span id="L21839" class="LineNr">21839 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L21840" class="LineNr">21840 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L21841" class="LineNr">21841 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L21842" class="LineNr">21842 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21843" class="LineNr">21843 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt "</span>) +<span id="L21844" class="LineNr">21844 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L21845" class="LineNr">21845 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21846" class="LineNr">21846 </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="L21847" class="LineNr">21847 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L21848" class="LineNr">21848 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L21849" class="LineNr">21849 </span> <span class="subxComment"># never gets here</span> +<span id="L21850" class="LineNr">21850 </span> +<span id="L21851" class="LineNr">21851 </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="L21852" class="LineNr">21852 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21853" class="LineNr">21853 </span> 55/push-ebp +<span id="L21854" class="LineNr">21854 </span> 89/<- %ebp 4/r32/esp +<span id="L21855" class="LineNr">21855 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21856" class="LineNr">21856 </span> 50/push-eax +<span id="L21857" class="LineNr">21857 </span> 56/push-esi +<span id="L21858" class="LineNr">21858 </span> <span class="subxComment"># var t/esi: (addr type-tree) = lookup(v->value->type)</span> +<span id="L21859" class="LineNr">21859 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L21860" class="LineNr">21860 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L21861" class="LineNr">21861 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L21862" class="LineNr">21862 </span> 89/<- %esi 0/r32/eax +<span id="L21863" class="LineNr">21863 </span><span class="Constant">$check-mu-numberlike-arg:check-literal</span>: +<span id="L21864" class="LineNr">21864 </span> <span class="subxComment"># if t is an int, return</span> +<span id="L21865" class="LineNr">21865 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %esi 0) <span class="subxComment"># literal => eax</span> +<span id="L21866" class="LineNr">21866 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21867" class="LineNr">21867 </span> 0f 85/jump-if-!= $check-mu-numberlike-arg:end/disp32 +<span id="L21868" class="LineNr">21868 </span><span class="Constant">$check-mu-numberlike-arg:check-addr</span>: +<span id="L21869" class="LineNr">21869 </span> <span class="subxComment"># if t is an addr and v is dereferenced, return whether t->payload is an addr</span> +<span id="L21870" class="LineNr">21870 </span> { +<span id="L21871" class="LineNr">21871 </span> (<a href='mu.subx.html#L36245'>mu-addr-type?</a> %esi) <span class="subxComment"># => eax</span> +<span id="L21872" class="LineNr">21872 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21873" class="LineNr">21873 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21874" class="LineNr">21874 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L21875" class="LineNr">21875 </span> 8b/-> *(eax+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L21876" class="LineNr">21876 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21877" class="LineNr">21877 </span> { +<span id="L21878" class="LineNr">21878 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21879" class="LineNr">21879 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L21880" class="LineNr">21880 </span> <span class="subxComment"># if t->right is null, t = t->left</span> +<span id="L21881" class="LineNr">21881 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L21882" class="LineNr">21882 </span> { +<span id="L21883" class="LineNr">21883 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L21884" class="LineNr">21884 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L21885" class="LineNr">21885 </span> } +<span id="L21886" class="LineNr">21886 </span> (<a href='mu.subx.html#L36245'>mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L21887" class="LineNr">21887 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21888" class="LineNr">21888 </span> 74/jump-if-= $check-mu-numberlike-arg:end/disp8 +<span id="L21889" class="LineNr">21889 </span> } +<span id="L21890" class="LineNr">21890 </span> } +<span id="L21891" class="LineNr">21891 </span><span class="Constant">$check-mu-numberlike-arg:output-checks</span>: +<span id="L21892" class="LineNr">21892 </span> (<a href='mu.subx.html#L21902'>check-mu-numberlike-output</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18)) +<span id="L21893" class="LineNr">21893 </span><span class="Constant">$check-mu-numberlike-arg:end</span>: +<span id="L21894" class="LineNr">21894 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21895" class="LineNr">21895 </span> 5e/pop-to-esi +<span id="L21896" class="LineNr">21896 </span> 58/pop-to-eax +<span id="L21897" class="LineNr">21897 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21898" class="LineNr">21898 </span> 89/<- %esp 5/r32/ebp +<span id="L21899" class="LineNr">21899 </span> 5d/pop-to-ebp +<span id="L21900" class="LineNr">21900 </span> c3/return +<span id="L21901" class="LineNr">21901 </span> +<span id="L21902" class="LineNr">21902 </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="L21903" class="LineNr">21903 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21904" class="LineNr">21904 </span> 55/push-ebp +<span id="L21905" class="LineNr">21905 </span> 89/<- %ebp 4/r32/esp +<span id="L21906" class="LineNr">21906 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21907" class="LineNr">21907 </span> 50/push-eax +<span id="L21908" class="LineNr">21908 </span> <span class="subxComment">#</span> +<span id="L21909" class="LineNr">21909 </span> (<a href='mu.subx.html#L21940'>mu-numberlike-output-var?</a> *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L21910" class="LineNr">21910 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21911" class="LineNr">21911 </span> 0f 84/jump-if-= $check-mu-numberlike-output:fail/disp32 +<span id="L21912" class="LineNr">21912 </span><span class="Constant">$check-mu-numberlike-output:end</span>: +<span id="L21913" class="LineNr">21913 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21914" class="LineNr">21914 </span> 58/pop-to-eax +<span id="L21915" class="LineNr">21915 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21916" class="LineNr">21916 </span> 89/<- %esp 5/r32/ebp +<span id="L21917" class="LineNr">21917 </span> 5d/pop-to-ebp +<span id="L21918" class="LineNr">21918 </span> c3/return +<span id="L21919" class="LineNr">21919 </span> +<span id="L21920" class="LineNr">21920 </span><span class="Constant">$check-mu-numberlike-output:fail</span>: +<span id="L21921" class="LineNr">21921 </span> <span class="subxComment"># otherwise raise an error</span> +<span id="L21922" class="LineNr">21922 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L21923" class="LineNr">21923 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L21924" class="LineNr">21924 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L21925" class="LineNr">21925 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L21926" class="LineNr">21926 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": stmt "</span>) +<span id="L21927" class="LineNr">21927 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L21928" class="LineNr">21928 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L21929" class="LineNr">21929 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L21930" class="LineNr">21930 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": '"</span>) +<span id="L21931" class="LineNr">21931 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L21932" class="LineNr">21932 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L21933" class="LineNr">21933 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L21934" class="LineNr">21934 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L21935" class="LineNr">21935 </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="L21936" class="LineNr">21936 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L21937" class="LineNr">21937 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L21938" class="LineNr">21938 </span> <span class="subxComment"># never gets here</span> +<span id="L21939" class="LineNr">21939 </span> +<span id="L21940" class="LineNr">21940 </span><span class="subxFunction">mu-numberlike-output-var?</span>: <span class="subxComment"># v: (addr stmt-var) -> result/eax: boolean</span> +<span id="L21941" class="LineNr">21941 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21942" class="LineNr">21942 </span> 55/push-ebp +<span id="L21943" class="LineNr">21943 </span> 89/<- %ebp 4/r32/esp +<span id="L21944" class="LineNr">21944 </span> <span class="subxComment">#</span> +<span id="L21945" class="LineNr">21945 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L21946" class="LineNr">21946 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L21947" class="LineNr">21947 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L21948" class="LineNr">21948 </span> (<a href='mu.subx.html#L21955'>mu-numberlike-output?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L21949" class="LineNr">21949 </span><span class="Constant">$mu-numberlike-output-var?:end</span>: +<span id="L21950" class="LineNr">21950 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21951" class="LineNr">21951 </span> 89/<- %esp 5/r32/ebp +<span id="L21952" class="LineNr">21952 </span> 5d/pop-to-ebp +<span id="L21953" class="LineNr">21953 </span> c3/return +<span id="L21954" class="LineNr">21954 </span> +<span id="L21955" class="LineNr">21955 </span><span class="subxFunction">mu-numberlike-output?</span>: <span class="subxComment"># v: (addr type-tree) -> 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> 56/push-esi +<span id="L21961" class="LineNr">21961 </span> <span class="subxComment"># var t/esi: (addr type-tree) = lookup(v->value->type)</span> +<span id="L21962" class="LineNr">21962 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L21963" class="LineNr">21963 </span><span class="Constant">$mu-numberlike-output?:check-int</span>: +<span id="L21964" class="LineNr">21964 </span> <span class="subxComment"># if t is an int, return</span> +<span id="L21965" class="LineNr">21965 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %esi 1) <span class="subxComment"># int => eax</span> +<span id="L21966" class="LineNr">21966 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21967" class="LineNr">21967 </span> 0f 85/jump-if-!= $mu-numberlike-output?:return-true/disp32 +<span id="L21968" class="LineNr">21968 </span><span class="Constant">$mu-numberlike-output?:check-float</span>: +<span id="L21969" class="LineNr">21969 </span> <span class="subxComment"># if t is a float, return</span> +<span id="L21970" class="LineNr">21970 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %esi 0xf) <span class="subxComment"># float => eax</span> +<span id="L21971" class="LineNr">21971 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21972" class="LineNr">21972 </span> 75/jump-if-!= $mu-numberlike-output?:return-true/disp8 +<span id="L21973" class="LineNr">21973 </span><span class="Constant">$mu-numberlike-output?:check-boolean</span>: +<span id="L21974" class="LineNr">21974 </span> <span class="subxComment"># if t is a boolean, return</span> +<span id="L21975" class="LineNr">21975 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %esi 5) <span class="subxComment"># boolean => eax</span> +<span id="L21976" class="LineNr">21976 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21977" class="LineNr">21977 </span> 75/jump-if-!= $mu-numberlike-output?:return-true/disp8 +<span id="L21978" class="LineNr">21978 </span><span class="Constant">$mu-numberlike-output?:check-byte</span>: +<span id="L21979" class="LineNr">21979 </span> <span class="subxComment"># if t is a byte, return</span> +<span id="L21980" class="LineNr">21980 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %esi 8) <span class="subxComment"># byte => eax</span> +<span id="L21981" class="LineNr">21981 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21982" class="LineNr">21982 </span> 75/jump-if-!= $mu-numberlike-output?:return-true/disp8 +<span id="L21983" class="LineNr">21983 </span><span class="Constant">$mu-numberlike-output?:check-code-point</span>: +<span id="L21984" class="LineNr">21984 </span> <span class="subxComment"># if t is a code-point, return</span> +<span id="L21985" class="LineNr">21985 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %esi 0xd) <span class="subxComment"># code-point => eax</span> +<span id="L21986" class="LineNr">21986 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21987" class="LineNr">21987 </span> 75/jump-if-!= $mu-numberlike-output?:return-true/disp8 +<span id="L21988" class="LineNr">21988 </span><span class="Constant">$mu-numberlike-output?:check-grapheme</span>: +<span id="L21989" class="LineNr">21989 </span> <span class="subxComment"># if t is a grapheme, return</span> +<span id="L21990" class="LineNr">21990 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %esi 0xe) <span class="subxComment"># grapheme => eax</span> +<span id="L21991" class="LineNr">21991 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21992" class="LineNr">21992 </span> 75/jump-if-!= $mu-numberlike-output?:return-true/disp8 +<span id="L21993" class="LineNr">21993 </span><span class="Constant">$mu-numberlike-output?:return-false</span>: +<span id="L21994" class="LineNr">21994 </span> b8/copy-to-eax 0/imm32/false +<span id="L21995" class="LineNr">21995 </span> eb/jump $mu-numberlike-output?:end/disp8 +<span id="L21996" class="LineNr">21996 </span><span class="Constant">$mu-numberlike-output?:return-true</span>: +<span id="L21997" class="LineNr">21997 </span> b8/copy-to-eax 1/imm32/true +<span id="L21998" class="LineNr">21998 </span><span class="Constant">$mu-numberlike-output?:end</span>: +<span id="L21999" class="LineNr">21999 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L22000" class="LineNr">22000 </span> 5e/pop-to-esi +<span id="L22001" class="LineNr">22001 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L22002" class="LineNr">22002 </span> 89/<- %esp 5/r32/ebp +<span id="L22003" class="LineNr">22003 </span> 5d/pop-to-ebp +<span id="L22004" class="LineNr">22004 </span> c3/return +<span id="L22005" class="LineNr">22005 </span> +<span id="L22006" class="LineNr">22006 </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="L22007" class="LineNr">22007 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L22008" class="LineNr">22008 </span> 55/push-ebp +<span id="L22009" class="LineNr">22009 </span> 89/<- %ebp 4/r32/esp +<span id="L22010" class="LineNr">22010 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L22011" class="LineNr">22011 </span> 50/push-eax +<span id="L22012" class="LineNr">22012 </span> 51/push-ecx +<span id="L22013" class="LineNr">22013 </span> 52/push-edx +<span id="L22014" class="LineNr">22014 </span> 56/push-esi +<span id="L22015" class="LineNr">22015 </span> 57/push-edi +<span id="L22016" class="LineNr">22016 </span> <span class="subxComment"># var type-parameters/edx: (addr table (handle array byte) (addr type-tree) 8)</span> +<span id="L22017" class="LineNr">22017 </span> 81 5/subop/subtract %esp 0x60/imm32 +<span id="L22018" class="LineNr">22018 </span> 68/push 0x60/imm32/size +<span id="L22019" class="LineNr">22019 </span> 68/push 0/imm32/read +<span id="L22020" class="LineNr">22020 </span> 68/push 0/imm32/write +<span id="L22021" class="LineNr">22021 </span> 89/<- %edx 4/r32/esp +<span id="L22022" class="LineNr">22022 </span><span class="Constant">$check-mu-copy-stmt:get-output</span>: +<span id="L22023" class="LineNr">22023 </span> <span class="subxComment"># esi = stmt</span> +<span id="L22024" class="LineNr">22024 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L22025" class="LineNr">22025 </span> <span class="subxComment"># var output/edi: (addr stmt-var) = stmt->outputs</span> +<span id="L22026" class="LineNr">22026 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L22027" class="LineNr">22027 </span> 89/<- %edi 0/r32/eax +<span id="L22028" class="LineNr">22028 </span> <span class="subxComment"># zero outputs</span> +<span id="L22029" class="LineNr">22029 </span> 3d/compare-eax-and 0/imm32 +<span id="L22030" class="LineNr">22030 </span> 0f 84/jump-if-= $check-mu-copy-stmt:error-no-output/disp32 +<span id="L22031" class="LineNr">22031 </span> <span class="subxComment"># > 1 output</span> +<span id="L22032" class="LineNr">22032 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L22033" class="LineNr">22033 </span> 3d/compare-eax-and 0/imm32 +<span id="L22034" class="LineNr">22034 </span> 0f 85/jump-if-!= $check-mu-copy-stmt:error-too-many-outputs/disp32 +<span id="L22035" class="LineNr">22035 </span><span class="Constant">$check-mu-copy-stmt:get-inout</span>: +<span id="L22036" class="LineNr">22036 </span> <span class="subxComment"># var inout/esi: (addr stmt-var) = stmt->inouts</span> +<span id="L22037" class="LineNr">22037 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L22038" class="LineNr">22038 </span> 89/<- %esi 0/r32/eax +<span id="L22039" class="LineNr">22039 </span> <span class="subxComment"># zero inouts</span> +<span id="L22040" class="LineNr">22040 </span> 3d/compare-eax-and 0/imm32 +<span id="L22041" class="LineNr">22041 </span> 0f 84/jump-if-= $check-mu-copy-stmt:error-no-inout/disp32 +<span id="L22042" class="LineNr">22042 </span> <span class="subxComment"># > 1 inout</span> +<span id="L22043" class="LineNr">22043 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L22044" class="LineNr">22044 </span> 3d/compare-eax-and 0/imm32 +<span id="L22045" class="LineNr">22045 </span> 0f 85/jump-if-!= $check-mu-copy-stmt:error-too-many-inouts/disp32 +<span id="L22046" class="LineNr">22046 </span><span class="Constant">$check-mu-copy-stmt:types</span>: +<span id="L22047" class="LineNr">22047 </span> <span class="subxComment"># if inout is not a scalar, abort</span> +<span id="L22048" class="LineNr">22048 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22049" class="LineNr">22049 </span> (<a href='mu.subx.html#L26575'>size-of</a> %eax) <span class="subxComment"># => eax</span> +<span id="L22050" class="LineNr">22050 </span> 3d/compare-eax-and 4/imm32 +<span id="L22051" class="LineNr">22051 </span> 0f 8f/jump-if-> $check-mu-copy-stmt:error-inout-too-large/disp32 +<span id="L22052" class="LineNr">22052 </span> <span class="subxComment"># var inout-type/ecx: (addr type-tree) = inout->value->type</span> +<span id="L22053" class="LineNr">22053 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22054" class="LineNr">22054 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22055" class="LineNr">22055 </span> 89/<- %ecx 0/r32/eax +<span id="L22056" class="LineNr">22056 </span> <span class="subxComment"># if (inout->is-deref?) inout-type = inout-type->payload</span> +<span id="L22057" class="LineNr">22057 </span> 8b/-> *(esi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L22058" class="LineNr">22058 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22059" class="LineNr">22059 </span> { +<span id="L22060" class="LineNr">22060 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22061" class="LineNr">22061 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L22062" class="LineNr">22062 </span> <span class="subxComment"># if inout-type->right is null, t = inout-type->left</span> +<span id="L22063" class="LineNr">22063 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L22064" class="LineNr">22064 </span> { +<span id="L22065" class="LineNr">22065 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22066" class="LineNr">22066 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L22067" class="LineNr">22067 </span> } +<span id="L22068" class="LineNr">22068 </span> 89/<- %ecx 0/r32/eax +<span id="L22069" class="LineNr">22069 </span> } +<span id="L22070" class="LineNr">22070 </span> <span class="subxComment"># if output not in register, abort</span> +<span id="L22071" class="LineNr">22071 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22072" class="LineNr">22072 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L22073" class="LineNr">22073 </span> 3d/compare-eax-and 0/imm32 +<span id="L22074" class="LineNr">22074 </span> 0f 84/jump-if-= $check-mu-copy-stmt:error-output-not-in-register/disp32 +<span id="L22075" class="LineNr">22075 </span> <span class="subxComment"># var output-type/eax: (addr type-tree) = output->value->type</span> +<span id="L22076" class="LineNr">22076 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22077" class="LineNr">22077 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22078" class="LineNr">22078 </span> <span class="subxComment"># if (inout-type == output-type) return</span> +<span id="L22079" class="LineNr">22079 </span> (<a href='mu.subx.html#L26416'>type-match?</a> %eax %ecx %edx) <span class="subxComment"># => eax</span> +<span id="L22080" class="LineNr">22080 </span> 3d/compare-eax-and 0/imm32 +<span id="L22081" class="LineNr">22081 </span> 0f 85/jump-if-!= $check-mu-copy-stmt:end/disp32 +<span id="L22082" class="LineNr">22082 </span> <span class="subxComment"># if output is an addr and inout is 0, return</span> +<span id="L22083" class="LineNr">22083 </span> { +<span id="L22084" class="LineNr">22084 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22085" class="LineNr">22085 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22086" class="LineNr">22086 </span> (<a href='mu.subx.html#L36245'>mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> <span id="L22087" class="LineNr">22087 </span> 3d/compare-eax-and 0/imm32/false <span id="L22088" class="LineNr">22088 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22089" class="LineNr">22089 </span> e9/jump $check-mu-copy-stmt:end/disp32 -<span id="L22090" class="LineNr">22090 </span> } -<span id="L22091" class="LineNr">22091 </span> <span class="subxComment"># if output is a byte, abort if inout is not a literal. Otherwise return.</span> -<span id="L22092" class="LineNr">22092 </span> { -<span id="L22093" class="LineNr">22093 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22094" class="LineNr">22094 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22095" class="LineNr">22095 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 8) <span class="subxComment"># byte => eax</span> -<span id="L22096" class="LineNr">22096 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22097" class="LineNr">22097 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22098" class="LineNr">22098 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22089" class="LineNr">22089 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22090" class="LineNr">22090 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22091" class="LineNr">22091 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> +<span id="L22092" class="LineNr">22092 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22093" class="LineNr">22093 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22094" class="LineNr">22094 </span> e9/jump $check-mu-copy-stmt:end/disp32 +<span id="L22095" class="LineNr">22095 </span> } +<span id="L22096" class="LineNr">22096 </span> <span class="subxComment"># if output is an offset and inout is 0, return</span> +<span id="L22097" class="LineNr">22097 </span> { +<span id="L22098" class="LineNr">22098 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> <span id="L22099" class="LineNr">22099 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22100" class="LineNr">22100 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 0) <span class="subxComment"># literal => eax</span> -<span id="L22101" class="LineNr">22101 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22102" class="LineNr">22102 </span> 0f 84/jump-if-= $check-mu-copy-stmt:error-non-literal-to-byte/disp32 -<span id="L22103" class="LineNr">22103 </span> eb/jump $check-mu-copy-stmt:end/disp8 -<span id="L22104" class="LineNr">22104 </span> } -<span id="L22105" class="LineNr">22105 </span> <span class="subxComment"># if output is not number-like, abort</span> -<span id="L22106" class="LineNr">22106 </span> (<a href='mu.subx.html#L21880'>check-mu-numberlike-output</a> %edi *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L22107" class="LineNr">22107 </span><span class="Constant">$check-mu-copy-stmt:end</span>: -<span id="L22108" class="LineNr">22108 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L22109" class="LineNr">22109 </span> 81 0/subop/add %esp 0x6c/imm32 -<span id="L22110" class="LineNr">22110 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L22111" class="LineNr">22111 </span> 5f/pop-to-edi -<span id="L22112" class="LineNr">22112 </span> 5e/pop-to-esi -<span id="L22113" class="LineNr">22113 </span> 5a/pop-to-edx -<span id="L22114" class="LineNr">22114 </span> 59/pop-to-ecx -<span id="L22115" class="LineNr">22115 </span> 58/pop-to-eax -<span id="L22116" class="LineNr">22116 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L22117" class="LineNr">22117 </span> 89/<- %esp 5/r32/ebp -<span id="L22118" class="LineNr">22118 </span> 5d/pop-to-ebp -<span id="L22119" class="LineNr">22119 </span> c3/return -<span id="L22120" class="LineNr">22120 </span> -<span id="L22121" class="LineNr">22121 </span><span class="Constant">$check-mu-copy-stmt:error-no-inout</span>: -<span id="L22122" class="LineNr">22122 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22123" class="LineNr">22123 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22124" class="LineNr">22124 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22125" class="LineNr">22125 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22126" class="LineNr">22126 </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="L22127" class="LineNr">22127 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22128" class="LineNr">22128 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22129" class="LineNr">22129 </span> <span class="subxComment"># never gets here</span> -<span id="L22130" class="LineNr">22130 </span> -<span id="L22131" class="LineNr">22131 </span><span class="Constant">$check-mu-copy-stmt:error-too-many-inouts</span>: -<span id="L22132" class="LineNr">22132 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22133" class="LineNr">22133 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22134" class="LineNr">22134 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22135" class="LineNr">22135 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22136" class="LineNr">22136 </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="L22137" class="LineNr">22137 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22138" class="LineNr">22138 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22139" class="LineNr">22139 </span> <span class="subxComment"># never gets here</span> -<span id="L22140" class="LineNr">22140 </span> -<span id="L22141" class="LineNr">22141 </span><span class="Constant">$check-mu-copy-stmt:error-no-output</span>: -<span id="L22142" class="LineNr">22142 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22143" class="LineNr">22143 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22144" class="LineNr">22144 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22145" class="LineNr">22145 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22146" class="LineNr">22146 </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="L22147" class="LineNr">22147 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22148" class="LineNr">22148 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22149" class="LineNr">22149 </span> <span class="subxComment"># never gets here</span> -<span id="L22150" class="LineNr">22150 </span> -<span id="L22151" class="LineNr">22151 </span><span class="Constant">$check-mu-copy-stmt:error-output-not-in-register</span>: -<span id="L22152" class="LineNr">22152 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22153" class="LineNr">22153 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22154" class="LineNr">22154 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22155" class="LineNr">22155 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22156" class="LineNr">22156 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy: output '"</span>) -<span id="L22157" class="LineNr">22157 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22158" class="LineNr">22158 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22159" class="LineNr">22159 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22160" class="LineNr">22160 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' not in a register\n"</span>) -<span id="L22161" class="LineNr">22161 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22162" class="LineNr">22162 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22163" class="LineNr">22163 </span> <span class="subxComment"># never gets here</span> -<span id="L22164" class="LineNr">22164 </span> -<span id="L22165" class="LineNr">22165 </span><span class="Constant">$check-mu-copy-stmt:error-too-many-outputs</span>: -<span id="L22166" class="LineNr">22166 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22167" class="LineNr">22167 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22168" class="LineNr">22168 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22169" class="LineNr">22169 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22170" class="LineNr">22170 </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="L22171" class="LineNr">22171 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22172" class="LineNr">22172 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22173" class="LineNr">22173 </span> <span class="subxComment"># never gets here</span> -<span id="L22174" class="LineNr">22174 </span> -<span id="L22175" class="LineNr">22175 </span><span class="Constant">$check-mu-copy-stmt:error-inout-too-large</span>: -<span id="L22176" class="LineNr">22176 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22177" class="LineNr">22177 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22178" class="LineNr">22178 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22179" class="LineNr">22179 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22180" class="LineNr">22180 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy: '"</span>) -<span id="L22181" class="LineNr">22181 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22182" class="LineNr">22182 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22183" class="LineNr">22183 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22184" class="LineNr">22184 </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="L22185" class="LineNr">22185 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22186" class="LineNr">22186 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22187" class="LineNr">22187 </span> <span class="subxComment"># never gets here</span> -<span id="L22188" class="LineNr">22188 </span> -<span id="L22189" class="LineNr">22189 </span><span class="Constant">$check-mu-copy-stmt:error-non-literal-to-byte</span>: -<span id="L22190" class="LineNr">22190 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22191" class="LineNr">22191 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22192" class="LineNr">22192 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22193" class="LineNr">22193 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22194" class="LineNr">22194 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy: cannot copy non-literal to '"</span>) -<span id="L22195" class="LineNr">22195 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22196" class="LineNr">22196 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22197" class="LineNr">22197 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22198" class="LineNr">22198 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' of type byte; use copy-byte\n"</span>) -<span id="L22199" class="LineNr">22199 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22200" class="LineNr">22200 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22201" class="LineNr">22201 </span> <span class="subxComment"># never gets here</span> -<span id="L22202" class="LineNr">22202 </span> -<span id="L22203" class="LineNr">22203 </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="L22204" class="LineNr">22204 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L22205" class="LineNr">22205 </span> 55/push-ebp -<span id="L22206" class="LineNr">22206 </span> 89/<- %ebp 4/r32/esp -<span id="L22207" class="LineNr">22207 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L22208" class="LineNr">22208 </span> 50/push-eax -<span id="L22209" class="LineNr">22209 </span> 51/push-ecx -<span id="L22210" class="LineNr">22210 </span> 52/push-edx -<span id="L22211" class="LineNr">22211 </span> 53/push-ebx -<span id="L22212" class="LineNr">22212 </span> 56/push-esi -<span id="L22213" class="LineNr">22213 </span> 57/push-edi -<span id="L22214" class="LineNr">22214 </span> <span class="subxComment"># var type-parameters/edx: (addr table (handle array byte) (addr type-tree) 8)</span> -<span id="L22215" class="LineNr">22215 </span> 81 5/subop/subtract %esp 0x60/imm32 -<span id="L22216" class="LineNr">22216 </span> 68/push 0x60/imm32/size -<span id="L22217" class="LineNr">22217 </span> 68/push 0/imm32/read -<span id="L22218" class="LineNr">22218 </span> 68/push 0/imm32/write -<span id="L22219" class="LineNr">22219 </span> 89/<- %edx 4/r32/esp -<span id="L22220" class="LineNr">22220 </span> <span class="subxComment"># esi = stmt</span> -<span id="L22221" class="LineNr">22221 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L22222" class="LineNr">22222 </span><span class="Constant">$check-mu-copy-to-stmt:check-for-output</span>: -<span id="L22223" class="LineNr">22223 </span> <span class="subxComment"># if stmt->outputs abort</span> -<span id="L22224" class="LineNr">22224 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L22225" class="LineNr">22225 </span> 3d/compare-eax-and 0/imm32 -<span id="L22226" class="LineNr">22226 </span> 0f 85/jump-if-!= $check-mu-copy-to-stmt:error-too-many-outputs/disp32 -<span id="L22227" class="LineNr">22227 </span><span class="Constant">$check-mu-copy-to-stmt:get-dest</span>: -<span id="L22228" class="LineNr">22228 </span> <span class="subxComment"># var dest/edi: (addr stmt-var) = stmt->inouts</span> -<span id="L22229" class="LineNr">22229 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L22230" class="LineNr">22230 </span> 89/<- %edi 0/r32/eax -<span id="L22231" class="LineNr">22231 </span> <span class="subxComment"># zero inouts</span> -<span id="L22232" class="LineNr">22232 </span> 3d/compare-eax-and 0/imm32 -<span id="L22233" class="LineNr">22233 </span> 0f 84/jump-if-= $check-mu-copy-to-stmt:error-incorrect-inouts/disp32 -<span id="L22234" class="LineNr">22234 </span><span class="Constant">$check-mu-copy-to-stmt:get-src</span>: -<span id="L22235" class="LineNr">22235 </span> <span class="subxComment"># var src/esi: (addr stmt-var) = dest->next</span> -<span id="L22236" class="LineNr">22236 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L22237" class="LineNr">22237 </span> 89/<- %esi 0/r32/eax -<span id="L22238" class="LineNr">22238 </span> <span class="subxComment"># 1 inout</span> -<span id="L22239" class="LineNr">22239 </span> 3d/compare-eax-and 0/imm32 -<span id="L22240" class="LineNr">22240 </span> 0f 84/jump-if-= $check-mu-copy-to-stmt:error-incorrect-inouts/disp32 -<span id="L22241" class="LineNr">22241 </span> <span class="subxComment"># > 2 inouts</span> -<span id="L22242" class="LineNr">22242 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L22243" class="LineNr">22243 </span> 3d/compare-eax-and 0/imm32 -<span id="L22244" class="LineNr">22244 </span> 0f 85/jump-if-!= $check-mu-copy-to-stmt:error-incorrect-inouts/disp32 -<span id="L22245" class="LineNr">22245 </span><span class="Constant">$check-mu-copy-to-stmt:types</span>: -<span id="L22246" class="LineNr">22246 </span> <span class="subxComment"># if src is not a scalar, abort</span> -<span id="L22247" class="LineNr">22247 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22248" class="LineNr">22248 </span> (<a href='mu.subx.html#L26553'>size-of</a> %eax) <span class="subxComment"># => eax</span> -<span id="L22249" class="LineNr">22249 </span> 3d/compare-eax-and 4/imm32 -<span id="L22250" class="LineNr">22250 </span> 0f 8f/jump-if-> $check-mu-copy-to-stmt:error-src-too-large/disp32 -<span id="L22251" class="LineNr">22251 </span> <span class="subxComment"># var src-type/ecx: (addr type-tree) = src->value->type</span> -<span id="L22252" class="LineNr">22252 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22253" class="LineNr">22253 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22254" class="LineNr">22254 </span> 89/<- %ecx 0/r32/eax -<span id="L22255" class="LineNr">22255 </span> <span class="subxComment"># if src not in register or literal, abort</span> -<span id="L22256" class="LineNr">22256 </span> <span class="subxComment"># (we can't use stack-offset because it hasn't been computed yet)</span> -<span id="L22257" class="LineNr">22257 </span> { -<span id="L22258" class="LineNr">22258 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22259" class="LineNr">22259 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22260" class="LineNr">22260 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> -<span id="L22261" class="LineNr">22261 </span> 3d/compare-eax-and 0/imm32 -<span id="L22262" class="LineNr">22262 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22263" class="LineNr">22263 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22264" class="LineNr">22264 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L22265" class="LineNr">22265 </span> 3d/compare-eax-and 0/imm32 -<span id="L22266" class="LineNr">22266 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22267" class="LineNr">22267 </span> e9/jump $check-mu-copy-to-stmt:error-src-not-literal-or-in-register/disp32 -<span id="L22268" class="LineNr">22268 </span> } -<span id="L22269" class="LineNr">22269 </span> <span class="subxComment"># var dest-type/ebx: (addr type-tree) = dest->value->type</span> -<span id="L22270" class="LineNr">22270 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22271" class="LineNr">22271 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22272" class="LineNr">22272 </span> 89/<- %ebx 0/r32/eax -<span id="L22273" class="LineNr">22273 </span> <span class="subxComment"># if (dest->is-deref?) dest-type = dest-type->payload</span> -<span id="L22274" class="LineNr">22274 </span><span class="Constant">$check-mu-copy-to-stmt:check-dest-deref</span>: -<span id="L22275" class="LineNr">22275 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L22276" class="LineNr">22276 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22277" class="LineNr">22277 </span> { -<span id="L22278" class="LineNr">22278 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22279" class="LineNr">22279 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L22280" class="LineNr">22280 </span><span class="Constant">$check-mu-copy-to-stmt:dest-is-deref</span>: -<span id="L22281" class="LineNr">22281 </span> <span class="subxComment"># if dest-type->right is null, dest-type = dest-type->left</span> -<span id="L22282" class="LineNr">22282 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L22283" class="LineNr">22283 </span> { -<span id="L22284" class="LineNr">22284 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22285" class="LineNr">22285 </span><span class="Constant">$check-mu-copy-to-stmt:dest-is-deref2</span>: -<span id="L22286" class="LineNr">22286 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L22287" class="LineNr">22287 </span> } -<span id="L22288" class="LineNr">22288 </span> 89/<- %ebx 0/r32/eax -<span id="L22289" class="LineNr">22289 </span> } -<span id="L22290" class="LineNr">22290 </span> <span class="subxComment"># if dest is a byte and src is not a literal, abort</span> -<span id="L22291" class="LineNr">22291 </span> { -<span id="L22292" class="LineNr">22292 </span><span class="Constant">$check-mu-copy-to-stmt:final-check-byte</span>: -<span id="L22293" class="LineNr">22293 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %ebx 8) <span class="subxComment"># byte => eax</span> -<span id="L22294" class="LineNr">22294 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22295" class="LineNr">22295 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22296" class="LineNr">22296 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %ecx 0) <span class="subxComment"># literal => eax</span> -<span id="L22297" class="LineNr">22297 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22298" class="LineNr">22298 </span> 0f 84/jump-if-= $check-mu-copy-to-stmt:error-non-literal-to-byte/disp32 -<span id="L22299" class="LineNr">22299 </span> } -<span id="L22300" class="LineNr">22300 </span> <span class="subxComment"># if (src-type == dest-type) return</span> -<span id="L22301" class="LineNr">22301 </span> (<a href='mu.subx.html#L26394'>type-match?</a> %ebx %ecx %edx) <span class="subxComment"># => eax</span> -<span id="L22302" class="LineNr">22302 </span> 3d/compare-eax-and 0/imm32 -<span id="L22303" class="LineNr">22303 </span> 0f 85/jump-if-!= $check-mu-copy-to-stmt:end/disp32 -<span id="L22304" class="LineNr">22304 </span> <span class="subxComment"># if dest is an addr and src is 0, return</span> -<span id="L22305" class="LineNr">22305 </span> { -<span id="L22306" class="LineNr">22306 </span><span class="Constant">$check-mu-copy-to-stmt:final-check-addr</span>: -<span id="L22307" class="LineNr">22307 </span> (<a href='mu.subx.html#L35916'>mu-addr-type?</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L22308" class="LineNr">22308 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22309" class="LineNr">22309 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22310" class="LineNr">22310 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22311" class="LineNr">22311 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22312" class="LineNr">22312 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> -<span id="L22313" class="LineNr">22313 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22314" class="LineNr">22314 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22315" class="LineNr">22315 </span> e9/jump $check-mu-copy-to-stmt:end/disp32 -<span id="L22316" class="LineNr">22316 </span> } -<span id="L22317" class="LineNr">22317 </span> <span class="subxComment"># if dest is an offset and src is 0, return</span> -<span id="L22318" class="LineNr">22318 </span> { -<span id="L22319" class="LineNr">22319 </span><span class="Constant">$check-mu-copy-to-stmt:final-check-offset</span>: -<span id="L22320" class="LineNr">22320 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L22321" class="LineNr">22321 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22322" class="LineNr">22322 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L22323" class="LineNr">22323 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 7) <span class="subxComment"># offset => eax</span> -<span id="L22324" class="LineNr">22324 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22325" class="LineNr">22325 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22326" class="LineNr">22326 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22327" class="LineNr">22327 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22328" class="LineNr">22328 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> -<span id="L22329" class="LineNr">22329 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22330" class="LineNr">22330 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22331" class="LineNr">22331 </span> e9/jump $check-mu-copy-to-stmt:end/disp32 -<span id="L22332" class="LineNr">22332 </span> } -<span id="L22333" class="LineNr">22333 </span> <span class="subxComment"># if dest is not number-like, abort</span> -<span id="L22334" class="LineNr">22334 </span> (<a href='mu.subx.html#L21829'>check-mu-numberlike-arg</a> %edi *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L22335" class="LineNr">22335 </span><span class="Constant">$check-mu-copy-to-stmt:end</span>: -<span id="L22336" class="LineNr">22336 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L22337" class="LineNr">22337 </span> 81 0/subop/add %esp 0x6c/imm32 -<span id="L22338" class="LineNr">22338 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L22339" class="LineNr">22339 </span> 5f/pop-to-edi -<span id="L22340" class="LineNr">22340 </span> 5e/pop-to-esi -<span id="L22341" class="LineNr">22341 </span> 5b/pop-to-ebx -<span id="L22342" class="LineNr">22342 </span> 5a/pop-to-edx -<span id="L22343" class="LineNr">22343 </span> 59/pop-to-ecx -<span id="L22344" class="LineNr">22344 </span> 58/pop-to-eax -<span id="L22345" class="LineNr">22345 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L22346" class="LineNr">22346 </span> 89/<- %esp 5/r32/ebp -<span id="L22347" class="LineNr">22347 </span> 5d/pop-to-ebp -<span id="L22348" class="LineNr">22348 </span> c3/return -<span id="L22349" class="LineNr">22349 </span> -<span id="L22350" class="LineNr">22350 </span><span class="Constant">$check-mu-copy-to-stmt:error-incorrect-inouts</span>: -<span id="L22351" class="LineNr">22351 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22352" class="LineNr">22352 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22353" class="LineNr">22353 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22354" class="LineNr">22354 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22355" class="LineNr">22355 </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="L22356" class="LineNr">22356 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22357" class="LineNr">22357 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22358" class="LineNr">22358 </span> <span class="subxComment"># never gets here</span> -<span id="L22359" class="LineNr">22359 </span> -<span id="L22360" class="LineNr">22360 </span><span class="Constant">$check-mu-copy-to-stmt:error-too-many-outputs</span>: -<span id="L22361" class="LineNr">22361 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22362" class="LineNr">22362 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22363" class="LineNr">22363 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22364" class="LineNr">22364 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22365" class="LineNr">22365 </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="L22366" class="LineNr">22366 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22367" class="LineNr">22367 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22368" class="LineNr">22368 </span> <span class="subxComment"># never gets here</span> -<span id="L22369" class="LineNr">22369 </span> -<span id="L22370" class="LineNr">22370 </span><span class="Constant">$check-mu-copy-to-stmt:error-src-not-literal-or-in-register</span>: -<span id="L22371" class="LineNr">22371 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22372" class="LineNr">22372 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22373" class="LineNr">22373 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-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">": stmt copy-to: source (second inout) is in memory\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="Constant">$check-mu-copy-to-stmt:error-src-too-large</span>: -<span id="L22381" class="LineNr">22381 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22382" class="LineNr">22382 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22383" class="LineNr">22383 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22384" class="LineNr">22384 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22385" class="LineNr">22385 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-to: '"</span>) -<span id="L22386" class="LineNr">22386 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22387" class="LineNr">22387 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22388" class="LineNr">22388 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22389" class="LineNr">22389 </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="L22390" class="LineNr">22390 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22391" class="LineNr">22391 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22392" class="LineNr">22392 </span> <span class="subxComment"># never gets here</span> -<span id="L22393" class="LineNr">22393 </span> -<span id="L22394" class="LineNr">22394 </span><span class="Constant">$check-mu-copy-to-stmt:error-non-literal-to-byte</span>: -<span id="L22395" class="LineNr">22395 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22396" class="LineNr">22396 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22397" class="LineNr">22397 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22398" class="LineNr">22398 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22399" class="LineNr">22399 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-to: cannot copy non-literal to type byte; use copy-byte-to\n"</span>) -<span id="L22400" class="LineNr">22400 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22401" class="LineNr">22401 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22402" class="LineNr">22402 </span> <span class="subxComment"># never gets here</span> -<span id="L22403" class="LineNr">22403 </span> -<span id="L22404" class="LineNr">22404 </span><span class="subxFunction">check-mu-copy-byte-stmt</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L22405" class="LineNr">22405 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L22406" class="LineNr">22406 </span> 55/push-ebp -<span id="L22407" class="LineNr">22407 </span> 89/<- %ebp 4/r32/esp -<span id="L22408" class="LineNr">22408 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L22409" class="LineNr">22409 </span> 50/push-eax -<span id="L22410" class="LineNr">22410 </span> 51/push-ecx -<span id="L22411" class="LineNr">22411 </span> 52/push-edx -<span id="L22412" class="LineNr">22412 </span> 56/push-esi -<span id="L22413" class="LineNr">22413 </span> 57/push-edi -<span id="L22414" class="LineNr">22414 </span> <span class="subxComment"># var type-parameters/edx: (addr table (handle array byte) (addr type-tree) 8)</span> -<span id="L22415" class="LineNr">22415 </span> 81 5/subop/subtract %esp 0x60/imm32 -<span id="L22416" class="LineNr">22416 </span> 68/push 0x60/imm32/size -<span id="L22417" class="LineNr">22417 </span> 68/push 0/imm32/read -<span id="L22418" class="LineNr">22418 </span> 68/push 0/imm32/write -<span id="L22419" class="LineNr">22419 </span> 89/<- %edx 4/r32/esp -<span id="L22420" class="LineNr">22420 </span><span class="Constant">$check-mu-copy-byte-stmt:get-output</span>: -<span id="L22421" class="LineNr">22421 </span> <span class="subxComment"># esi = stmt</span> -<span id="L22422" class="LineNr">22422 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L22423" class="LineNr">22423 </span> <span class="subxComment"># var output/edi: (addr stmt-var) = stmt->outputs</span> -<span id="L22424" class="LineNr">22424 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L22425" class="LineNr">22425 </span> 89/<- %edi 0/r32/eax -<span id="L22426" class="LineNr">22426 </span> <span class="subxComment"># zero outputs</span> -<span id="L22427" class="LineNr">22427 </span> 3d/compare-eax-and 0/imm32 -<span id="L22428" class="LineNr">22428 </span> 0f 84/jump-if-= $check-mu-copy-byte-stmt:error-no-output/disp32 -<span id="L22429" class="LineNr">22429 </span> <span class="subxComment"># > 1 output</span> -<span id="L22430" class="LineNr">22430 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L22431" class="LineNr">22431 </span> 3d/compare-eax-and 0/imm32 -<span id="L22432" class="LineNr">22432 </span> 0f 85/jump-if-!= $check-mu-copy-byte-stmt:error-too-many-outputs/disp32 -<span id="L22433" class="LineNr">22433 </span><span class="Constant">$check-mu-copy-byte-stmt:get-inout</span>: -<span id="L22434" class="LineNr">22434 </span> <span class="subxComment"># var inout/esi: (addr stmt-var) = stmt->inouts</span> -<span id="L22435" class="LineNr">22435 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L22436" class="LineNr">22436 </span> 89/<- %esi 0/r32/eax -<span id="L22437" class="LineNr">22437 </span> <span class="subxComment"># zero inouts</span> -<span id="L22438" class="LineNr">22438 </span> 3d/compare-eax-and 0/imm32 -<span id="L22439" class="LineNr">22439 </span> 0f 84/jump-if-= $check-mu-copy-byte-stmt:error-no-inout/disp32 -<span id="L22440" class="LineNr">22440 </span> <span class="subxComment"># > 1 inout</span> -<span id="L22441" class="LineNr">22441 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L22442" class="LineNr">22442 </span> 3d/compare-eax-and 0/imm32 -<span id="L22443" class="LineNr">22443 </span> 0f 85/jump-if-!= $check-mu-copy-byte-stmt:error-too-many-inouts/disp32 -<span id="L22444" class="LineNr">22444 </span><span class="Constant">$check-mu-copy-byte-stmt:types</span>: -<span id="L22445" class="LineNr">22445 </span> <span class="subxComment"># if inout is not a scalar, abort</span> -<span id="L22446" class="LineNr">22446 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22447" class="LineNr">22447 </span> (<a href='mu.subx.html#L26553'>size-of</a> %eax) <span class="subxComment"># => eax</span> -<span id="L22448" class="LineNr">22448 </span> 3d/compare-eax-and 4/imm32 -<span id="L22449" class="LineNr">22449 </span> 0f 8f/jump-if-> $check-mu-copy-byte-stmt:error-inout-too-large/disp32 -<span id="L22450" class="LineNr">22450 </span> <span class="subxComment"># var inout-type/ecx: (addr type-tree) = inout->value->type</span> -<span id="L22451" class="LineNr">22451 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22452" class="LineNr">22452 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22453" class="LineNr">22453 </span> 89/<- %ecx 0/r32/eax -<span id="L22454" class="LineNr">22454 </span><span class="Constant">$check-mu-copy-byte-stmt:check-inout-deref</span>: -<span id="L22455" class="LineNr">22455 </span> <span class="subxComment"># if (inout->is-deref?) inout-type = inout-type->payload</span> -<span id="L22456" class="LineNr">22456 </span> 8b/-> *(esi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L22457" class="LineNr">22457 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22458" class="LineNr">22458 </span> { -<span id="L22459" class="LineNr">22459 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22460" class="LineNr">22460 </span><span class="Constant">$check-mu-copy-byte-stmt:inout-is-deref</span>: -<span id="L22461" class="LineNr">22461 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L22462" class="LineNr">22462 </span> <span class="subxComment"># if inout-type->right is null, t = inout-type->left</span> -<span id="L22463" class="LineNr">22463 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L22464" class="LineNr">22464 </span> { -<span id="L22465" class="LineNr">22465 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22466" class="LineNr">22466 </span><span class="Constant">$check-mu-copy-byte-stmt:inout-is-deref2</span>: -<span id="L22467" class="LineNr">22467 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L22468" class="LineNr">22468 </span> } -<span id="L22469" class="LineNr">22469 </span> 89/<- %ecx 0/r32/eax -<span id="L22470" class="LineNr">22470 </span> } -<span id="L22471" class="LineNr">22471 </span> <span class="subxComment"># if output not in register, abort</span> -<span id="L22472" class="LineNr">22472 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22473" class="LineNr">22473 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L22474" class="LineNr">22474 </span> 3d/compare-eax-and 0/imm32 -<span id="L22475" class="LineNr">22475 </span> 0f 84/jump-if-= $check-mu-copy-byte-stmt:error-output-not-in-register/disp32 -<span id="L22476" class="LineNr">22476 </span> <span class="subxComment"># var output-type/eax: (addr type-tree) = output->value->type</span> -<span id="L22477" class="LineNr">22477 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22478" class="LineNr">22478 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22479" class="LineNr">22479 </span> <span class="subxComment"># if output is not of type byte, abort</span> -<span id="L22480" class="LineNr">22480 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 8) <span class="subxComment"># byte => eax</span> -<span id="L22481" class="LineNr">22481 </span> 3d/compare-eax-and 0/imm32 -<span id="L22482" class="LineNr">22482 </span> 0f 84/jump-if-= $check-mu-copy-byte-stmt:error-invalid-output-type/disp32 -<span id="L22483" class="LineNr">22483 </span><span class="Constant">$check-mu-copy-byte-stmt:end</span>: -<span id="L22484" class="LineNr">22484 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L22485" class="LineNr">22485 </span> 81 0/subop/add %esp 0x6c/imm32 -<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> 5a/pop-to-edx -<span id="L22490" class="LineNr">22490 </span> 59/pop-to-ecx -<span id="L22491" class="LineNr">22491 </span> 58/pop-to-eax -<span id="L22492" class="LineNr">22492 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L22493" class="LineNr">22493 </span> 89/<- %esp 5/r32/ebp -<span id="L22494" class="LineNr">22494 </span> 5d/pop-to-ebp -<span id="L22495" class="LineNr">22495 </span> c3/return -<span id="L22496" class="LineNr">22496 </span> -<span id="L22497" class="LineNr">22497 </span><span class="Constant">$check-mu-copy-byte-stmt:error-no-inout</span>: -<span id="L22498" class="LineNr">22498 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22499" class="LineNr">22499 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22500" class="LineNr">22500 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22501" class="LineNr">22501 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22502" class="LineNr">22502 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy-byte' expects an inout\n"</span>) -<span id="L22503" class="LineNr">22503 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22504" class="LineNr">22504 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22505" class="LineNr">22505 </span> <span class="subxComment"># never gets here</span> -<span id="L22506" class="LineNr">22506 </span> -<span id="L22507" class="LineNr">22507 </span><span class="Constant">$check-mu-copy-byte-stmt:error-too-many-inouts</span>: -<span id="L22508" class="LineNr">22508 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22509" class="LineNr">22509 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22510" class="LineNr">22510 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22511" class="LineNr">22511 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22512" class="LineNr">22512 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy-byte' must have just one inout\n"</span>) -<span id="L22513" class="LineNr">22513 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22514" class="LineNr">22514 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22515" class="LineNr">22515 </span> <span class="subxComment"># never gets here</span> -<span id="L22516" class="LineNr">22516 </span> -<span id="L22517" class="LineNr">22517 </span><span class="Constant">$check-mu-copy-byte-stmt:error-no-output</span>: -<span id="L22518" class="LineNr">22518 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22519" class="LineNr">22519 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22520" class="LineNr">22520 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22521" class="LineNr">22521 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22522" class="LineNr">22522 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy-byte' expects an output\n"</span>) -<span id="L22523" class="LineNr">22523 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22524" class="LineNr">22524 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22525" class="LineNr">22525 </span> <span class="subxComment"># never gets here</span> -<span id="L22526" class="LineNr">22526 </span> -<span id="L22527" class="LineNr">22527 </span><span class="Constant">$check-mu-copy-byte-stmt:error-output-not-in-register</span>: -<span id="L22528" class="LineNr">22528 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22529" class="LineNr">22529 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22530" class="LineNr">22530 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-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">": stmt copy-byte: output '"</span>) -<span id="L22533" class="LineNr">22533 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22534" class="LineNr">22534 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22535" class="LineNr">22535 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22536" class="LineNr">22536 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' not in a register\n"</span>) -<span id="L22537" class="LineNr">22537 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22538" class="LineNr">22538 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22539" class="LineNr">22539 </span> <span class="subxComment"># never gets here</span> -<span id="L22540" class="LineNr">22540 </span> -<span id="L22541" class="LineNr">22541 </span><span class="Constant">$check-mu-copy-byte-stmt:error-too-many-outputs</span>: -<span id="L22542" class="LineNr">22542 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22543" class="LineNr">22543 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22544" class="LineNr">22544 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22545" class="LineNr">22545 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22546" class="LineNr">22546 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy-byte' must have just one output\n"</span>) -<span id="L22547" class="LineNr">22547 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22548" class="LineNr">22548 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22549" class="LineNr">22549 </span> <span class="subxComment"># never gets here</span> -<span id="L22550" class="LineNr">22550 </span> -<span id="L22551" class="LineNr">22551 </span><span class="Constant">$check-mu-copy-byte-stmt:error-invalid-output-type</span>: -<span id="L22552" class="LineNr">22552 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22553" class="LineNr">22553 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22554" class="LineNr">22554 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22555" class="LineNr">22555 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22556" class="LineNr">22556 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy-byte' must <a href='108write.subx.html#L24'>write</a> to output of type byte\n"</span>) -<span id="L22557" class="LineNr">22557 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22558" class="LineNr">22558 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22559" class="LineNr">22559 </span> <span class="subxComment"># never gets here</span> -<span id="L22560" class="LineNr">22560 </span> -<span id="L22561" class="LineNr">22561 </span><span class="Constant">$check-mu-copy-byte-stmt:error-inout-too-large</span>: -<span id="L22562" class="LineNr">22562 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22563" class="LineNr">22563 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22564" class="LineNr">22564 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22565" class="LineNr">22565 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22566" class="LineNr">22566 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-byte: '"</span>) -<span id="L22567" class="LineNr">22567 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22568" class="LineNr">22568 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22569" class="LineNr">22569 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22570" class="LineNr">22570 </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="L22571" class="LineNr">22571 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22572" class="LineNr">22572 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22573" class="LineNr">22573 </span> <span class="subxComment"># never gets here</span> -<span id="L22574" class="LineNr">22574 </span> -<span id="L22575" class="LineNr">22575 </span><span class="subxFunction">check-mu-copy-byte-to-stmt</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L22576" class="LineNr">22576 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L22577" class="LineNr">22577 </span> 55/push-ebp -<span id="L22578" class="LineNr">22578 </span> 89/<- %ebp 4/r32/esp -<span id="L22579" class="LineNr">22579 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L22580" class="LineNr">22580 </span> 50/push-eax -<span id="L22581" class="LineNr">22581 </span> 52/push-edx -<span id="L22582" class="LineNr">22582 </span> 53/push-ebx -<span id="L22583" class="LineNr">22583 </span> 56/push-esi -<span id="L22584" class="LineNr">22584 </span> 57/push-edi -<span id="L22585" class="LineNr">22585 </span> <span class="subxComment"># var type-parameters/edx: (addr table (handle array byte) (addr type-tree) 8)</span> -<span id="L22586" class="LineNr">22586 </span> 81 5/subop/subtract %esp 0x60/imm32 -<span id="L22587" class="LineNr">22587 </span> 68/push 0x60/imm32/size -<span id="L22588" class="LineNr">22588 </span> 68/push 0/imm32/read -<span id="L22589" class="LineNr">22589 </span> 68/push 0/imm32/write -<span id="L22590" class="LineNr">22590 </span> 89/<- %edx 4/r32/esp -<span id="L22591" class="LineNr">22591 </span> <span class="subxComment"># esi = stmt</span> -<span id="L22592" class="LineNr">22592 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L22593" class="LineNr">22593 </span><span class="Constant">$check-mu-copy-byte-to-stmt:check-for-output</span>: -<span id="L22594" class="LineNr">22594 </span> <span class="subxComment"># if stmt->outputs abort</span> -<span id="L22595" class="LineNr">22595 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L22596" class="LineNr">22596 </span> 3d/compare-eax-and 0/imm32 -<span id="L22597" class="LineNr">22597 </span> 0f 85/jump-if-!= $check-mu-copy-byte-to-stmt:error-too-many-outputs/disp32 -<span id="L22598" class="LineNr">22598 </span><span class="Constant">$check-mu-copy-byte-to-stmt:get-dest</span>: -<span id="L22599" class="LineNr">22599 </span> <span class="subxComment"># var dest/edi: (addr stmt-var) = stmt->inouts</span> -<span id="L22600" class="LineNr">22600 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L22601" class="LineNr">22601 </span> 89/<- %edi 0/r32/eax -<span id="L22602" class="LineNr">22602 </span> <span class="subxComment"># zero inouts</span> -<span id="L22603" class="LineNr">22603 </span> 3d/compare-eax-and 0/imm32 -<span id="L22604" class="LineNr">22604 </span> 0f 84/jump-if-= $check-mu-copy-byte-to-stmt:error-incorrect-inouts/disp32 -<span id="L22605" class="LineNr">22605 </span><span class="Constant">$check-mu-copy-byte-to-stmt:get-src</span>: -<span id="L22606" class="LineNr">22606 </span> <span class="subxComment"># var src/esi: (addr stmt-var) = dest->next</span> -<span id="L22607" class="LineNr">22607 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L22608" class="LineNr">22608 </span> 89/<- %esi 0/r32/eax -<span id="L22609" class="LineNr">22609 </span> <span class="subxComment"># 1 inout</span> -<span id="L22610" class="LineNr">22610 </span> 3d/compare-eax-and 0/imm32 -<span id="L22611" class="LineNr">22611 </span> 0f 84/jump-if-= $check-mu-copy-byte-to-stmt:error-incorrect-inouts/disp32 -<span id="L22612" class="LineNr">22612 </span> <span class="subxComment"># > 2 inouts</span> -<span id="L22613" class="LineNr">22613 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L22614" class="LineNr">22614 </span> 3d/compare-eax-and 0/imm32 -<span id="L22615" class="LineNr">22615 </span> 0f 85/jump-if-!= $check-mu-copy-byte-to-stmt:error-incorrect-inouts/disp32 -<span id="L22616" class="LineNr">22616 </span><span class="Constant">$check-mu-copy-byte-to-stmt:types</span>: -<span id="L22617" class="LineNr">22617 </span> <span class="subxComment"># if src is not a scalar, abort</span> -<span id="L22618" class="LineNr">22618 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22619" class="LineNr">22619 </span> (<a href='mu.subx.html#L26553'>size-of</a> %eax) <span class="subxComment"># => eax</span> -<span id="L22620" class="LineNr">22620 </span> 3d/compare-eax-and 4/imm32 -<span id="L22621" class="LineNr">22621 </span> 0f 8f/jump-if-> $check-mu-copy-byte-to-stmt:error-src-too-large/disp32 -<span id="L22622" class="LineNr">22622 </span> <span class="subxComment"># if src not in register, abort</span> -<span id="L22623" class="LineNr">22623 </span> { -<span id="L22624" class="LineNr">22624 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22625" class="LineNr">22625 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L22626" class="LineNr">22626 </span> 3d/compare-eax-and 0/imm32 -<span id="L22627" class="LineNr">22627 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22628" class="LineNr">22628 </span> e9/jump $check-mu-copy-byte-to-stmt:error-src-not-in-register/disp32 -<span id="L22629" class="LineNr">22629 </span> } -<span id="L22630" class="LineNr">22630 </span> <span class="subxComment"># var dest-type/ebx: (addr type-tree) = dest->value->type</span> -<span id="L22631" class="LineNr">22631 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22632" class="LineNr">22632 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22633" class="LineNr">22633 </span> 89/<- %ebx 0/r32/eax -<span id="L22634" class="LineNr">22634 </span> <span class="subxComment"># if (dest->is-deref?) dest-type = dest-type->payload</span> -<span id="L22635" class="LineNr">22635 </span><span class="Constant">$check-mu-copy-byte-to-stmt:check-dest-deref</span>: -<span id="L22636" class="LineNr">22636 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L22637" class="LineNr">22637 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22638" class="LineNr">22638 </span> { -<span id="L22639" class="LineNr">22639 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22640" class="LineNr">22640 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L22641" class="LineNr">22641 </span><span class="Constant">$check-mu-copy-byte-to-stmt:dest-is-deref</span>: -<span id="L22642" class="LineNr">22642 </span> <span class="subxComment"># if dest-type->right is null, dest-type = dest-type->left</span> -<span id="L22643" class="LineNr">22643 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L22644" class="LineNr">22644 </span> { -<span id="L22645" class="LineNr">22645 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22646" class="LineNr">22646 </span><span class="Constant">$check-mu-copy-byte-to-stmt:dest-is-deref2</span>: -<span id="L22647" class="LineNr">22647 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L22648" class="LineNr">22648 </span> } -<span id="L22649" class="LineNr">22649 </span> 89/<- %ebx 0/r32/eax -<span id="L22650" class="LineNr">22650 </span> } -<span id="L22651" class="LineNr">22651 </span> <span class="subxComment"># if dest is not a byte, abort</span> -<span id="L22652" class="LineNr">22652 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %ebx 8) <span class="subxComment"># byte => eax</span> -<span id="L22653" class="LineNr">22653 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22654" class="LineNr">22654 </span> 0f 84/jump-if-= $check-mu-copy-byte-to-stmt:error-invalid-dest-type/disp32 -<span id="L22655" class="LineNr">22655 </span><span class="Constant">$check-mu-copy-byte-to-stmt:end</span>: -<span id="L22656" class="LineNr">22656 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L22657" class="LineNr">22657 </span> 81 0/subop/add %esp 0x6c/imm32 -<span id="L22658" class="LineNr">22658 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L22659" class="LineNr">22659 </span> 5f/pop-to-edi -<span id="L22660" class="LineNr">22660 </span> 5e/pop-to-esi -<span id="L22661" class="LineNr">22661 </span> 5b/pop-to-ebx -<span id="L22662" class="LineNr">22662 </span> 5a/pop-to-edx -<span id="L22663" class="LineNr">22663 </span> 58/pop-to-eax -<span id="L22664" class="LineNr">22664 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L22665" class="LineNr">22665 </span> 89/<- %esp 5/r32/ebp -<span id="L22666" class="LineNr">22666 </span> 5d/pop-to-ebp -<span id="L22667" class="LineNr">22667 </span> c3/return -<span id="L22668" class="LineNr">22668 </span> -<span id="L22669" class="LineNr">22669 </span><span class="Constant">$check-mu-copy-byte-to-stmt:error-incorrect-inouts</span>: -<span id="L22670" class="LineNr">22670 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22671" class="LineNr">22671 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22672" class="LineNr">22672 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22673" class="LineNr">22673 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22674" class="LineNr">22674 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy-byte-to' must have two inouts\n"</span>) -<span id="L22675" class="LineNr">22675 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22676" class="LineNr">22676 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22677" class="LineNr">22677 </span> <span class="subxComment"># never gets here</span> -<span id="L22678" class="LineNr">22678 </span> -<span id="L22679" class="LineNr">22679 </span><span class="Constant">$check-mu-copy-byte-to-stmt:error-too-many-outputs</span>: -<span id="L22680" class="LineNr">22680 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22681" class="LineNr">22681 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22682" class="LineNr">22682 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22683" class="LineNr">22683 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22684" class="LineNr">22684 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy-byte-to' must not have any outputs\n"</span>) -<span id="L22685" class="LineNr">22685 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22686" class="LineNr">22686 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22687" class="LineNr">22687 </span> <span class="subxComment"># never gets here</span> -<span id="L22688" class="LineNr">22688 </span> -<span id="L22689" class="LineNr">22689 </span><span class="Constant">$check-mu-copy-byte-to-stmt:error-src-not-in-register</span>: -<span id="L22690" class="LineNr">22690 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22691" class="LineNr">22691 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22692" class="LineNr">22692 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22693" class="LineNr">22693 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22694" class="LineNr">22694 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-byte-to: source (second inout) must be in a register\n"</span>) -<span id="L22695" class="LineNr">22695 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22696" class="LineNr">22696 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22697" class="LineNr">22697 </span> <span class="subxComment"># never gets here</span> -<span id="L22698" class="LineNr">22698 </span> -<span id="L22699" class="LineNr">22699 </span><span class="Constant">$check-mu-copy-byte-to-stmt:error-invalid-dest-type</span>: -<span id="L22700" class="LineNr">22700 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22701" class="LineNr">22701 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22702" class="LineNr">22702 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22703" class="LineNr">22703 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22704" class="LineNr">22704 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-byte-to: '"</span>) -<span id="L22705" class="LineNr">22705 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22706" class="LineNr">22706 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-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">"' must be a byte\n"</span>) -<span id="L22709" class="LineNr">22709 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22710" class="LineNr">22710 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22711" class="LineNr">22711 </span> <span class="subxComment"># never gets here</span> -<span id="L22712" class="LineNr">22712 </span> -<span id="L22713" class="LineNr">22713 </span><span class="Constant">$check-mu-copy-byte-to-stmt:error-src-too-large</span>: -<span id="L22714" class="LineNr">22714 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22715" class="LineNr">22715 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22716" class="LineNr">22716 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22717" class="LineNr">22717 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22718" class="LineNr">22718 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-byte-to: '"</span>) -<span id="L22719" class="LineNr">22719 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22720" class="LineNr">22720 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22721" class="LineNr">22721 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22722" class="LineNr">22722 </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="L22723" class="LineNr">22723 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22724" class="LineNr">22724 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22725" class="LineNr">22725 </span> <span class="subxComment"># never gets here</span> -<span id="L22726" class="LineNr">22726 </span> -<span id="L22727" class="LineNr">22727 </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="L22728" class="LineNr">22728 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L22729" class="LineNr">22729 </span> 55/push-ebp -<span id="L22730" class="LineNr">22730 </span> 89/<- %ebp 4/r32/esp -<span id="L22731" class="LineNr">22731 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L22732" class="LineNr">22732 </span> 50/push-eax -<span id="L22733" class="LineNr">22733 </span> 51/push-ecx -<span id="L22734" class="LineNr">22734 </span> 52/push-edx -<span id="L22735" class="LineNr">22735 </span> 53/push-ebx -<span id="L22736" class="LineNr">22736 </span> 56/push-esi -<span id="L22737" class="LineNr">22737 </span> 57/push-edi -<span id="L22738" class="LineNr">22738 </span> <span class="subxComment"># var type-parameters/edx: (addr table (handle array byte) (addr type-tree) 8)</span> -<span id="L22739" class="LineNr">22739 </span> 81 5/subop/subtract %esp 0x60/imm32 -<span id="L22740" class="LineNr">22740 </span> 68/push 0x60/imm32/size -<span id="L22741" class="LineNr">22741 </span> 68/push 0/imm32/read -<span id="L22742" class="LineNr">22742 </span> 68/push 0/imm32/write -<span id="L22743" class="LineNr">22743 </span> 89/<- %edx 4/r32/esp -<span id="L22744" class="LineNr">22744 </span> <span class="subxComment"># esi = stmt</span> -<span id="L22745" class="LineNr">22745 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L22746" class="LineNr">22746 </span><span class="Constant">$check-mu-compare-stmt:check-for-output</span>: -<span id="L22747" class="LineNr">22747 </span> <span class="subxComment"># if stmt->outputs abort</span> -<span id="L22748" class="LineNr">22748 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L22749" class="LineNr">22749 </span> 3d/compare-eax-and 0/imm32 -<span id="L22750" class="LineNr">22750 </span> 0f 85/jump-if-!= $check-mu-compare-stmt:error-too-many-outputs/disp32 -<span id="L22751" class="LineNr">22751 </span><span class="Constant">$check-mu-compare-stmt:get-left</span>: -<span id="L22752" class="LineNr">22752 </span> <span class="subxComment"># var left/edi: (addr stmt-var) = stmt->inouts</span> -<span id="L22753" class="LineNr">22753 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L22754" class="LineNr">22754 </span> 89/<- %edi 0/r32/eax -<span id="L22755" class="LineNr">22755 </span> <span class="subxComment"># zero inouts</span> -<span id="L22756" class="LineNr">22756 </span> 3d/compare-eax-and 0/imm32 -<span id="L22757" class="LineNr">22757 </span> 0f 84/jump-if-= $check-mu-compare-stmt:error-incorrect-inouts/disp32 -<span id="L22758" class="LineNr">22758 </span><span class="Constant">$check-mu-compare-stmt:get-right</span>: -<span id="L22759" class="LineNr">22759 </span> <span class="subxComment"># var right/esi: (addr stmt-var) = left->next</span> -<span id="L22760" class="LineNr">22760 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L22761" class="LineNr">22761 </span> 89/<- %esi 0/r32/eax -<span id="L22762" class="LineNr">22762 </span> <span class="subxComment"># 1 inout</span> -<span id="L22763" class="LineNr">22763 </span> 3d/compare-eax-and 0/imm32 -<span id="L22764" class="LineNr">22764 </span> 0f 84/jump-if-= $check-mu-compare-stmt:error-incorrect-inouts/disp32 -<span id="L22765" class="LineNr">22765 </span> <span class="subxComment"># > 2 inouts</span> -<span id="L22766" class="LineNr">22766 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L22767" class="LineNr">22767 </span> 3d/compare-eax-and 0/imm32 -<span id="L22768" class="LineNr">22768 </span> 0f 85/jump-if-!= $check-mu-compare-stmt:error-incorrect-inouts/disp32 -<span id="L22769" class="LineNr">22769 </span> <span class="subxComment"># if both inouts are in memory, abort</span> -<span id="L22770" class="LineNr">22770 </span> { -<span id="L22771" class="LineNr">22771 </span><span class="Constant">$check-mu-compare-stmt:both-in-mem</span>: -<span id="L22772" class="LineNr">22772 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22773" class="LineNr">22773 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22774" class="LineNr">22774 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> -<span id="L22775" class="LineNr">22775 </span> 3d/compare-eax-and 0/imm32 -<span id="L22776" class="LineNr">22776 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L22777" class="LineNr">22777 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22778" class="LineNr">22778 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L22779" class="LineNr">22779 </span> 3d/compare-eax-and 0/imm32 -<span id="L22780" class="LineNr">22780 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22781" class="LineNr">22781 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22782" class="LineNr">22782 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22783" class="LineNr">22783 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> -<span id="L22784" class="LineNr">22784 </span> 3d/compare-eax-and 0/imm32 -<span id="L22785" class="LineNr">22785 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22786" class="LineNr">22786 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22787" class="LineNr">22787 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L22788" class="LineNr">22788 </span> 3d/compare-eax-and 0/imm32 -<span id="L22789" class="LineNr">22789 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22790" class="LineNr">22790 </span> e9/jump $check-mu-compare-stmt:error-both-in-memory/disp32 -<span id="L22791" class="LineNr">22791 </span> } -<span id="L22792" class="LineNr">22792 </span><span class="Constant">$check-mu-compare-stmt:types</span>: -<span id="L22793" class="LineNr">22793 </span> <span class="subxComment"># var right-type/ecx: (addr type-tree) = right->value->type</span> -<span id="L22794" class="LineNr">22794 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22795" class="LineNr">22795 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22796" class="LineNr">22796 </span> 89/<- %ecx 0/r32/eax -<span id="L22797" class="LineNr">22797 </span> <span class="subxComment"># if (right->is-deref?) right-type = right-type->payload</span> -<span id="L22798" class="LineNr">22798 </span> 8b/-> *(esi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L22799" class="LineNr">22799 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22800" class="LineNr">22800 </span> { -<span id="L22801" class="LineNr">22801 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22802" class="LineNr">22802 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L22803" class="LineNr">22803 </span> <span class="subxComment"># if right-type->right is null, right-type = right-type->left</span> -<span id="L22804" class="LineNr">22804 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L22805" class="LineNr">22805 </span> { -<span id="L22806" class="LineNr">22806 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22807" class="LineNr">22807 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L22808" class="LineNr">22808 </span> } -<span id="L22809" class="LineNr">22809 </span> 89/<- %ecx 0/r32/eax -<span id="L22810" class="LineNr">22810 </span> } -<span id="L22811" class="LineNr">22811 </span> <span class="subxComment"># if right-type is a literal string, abort</span> -<span id="L22812" class="LineNr">22812 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %ecx 0x10) <span class="subxComment"># string-literal => eax</span> -<span id="L22813" class="LineNr">22813 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22814" class="LineNr">22814 </span> 0f 85/jump-if-!= $check-mu-compare-stmt:error-right-string-literal/disp32 -<span id="L22815" class="LineNr">22815 </span> <span class="subxComment"># if right is not a scalar, abort</span> +<span id="L22100" class="LineNr">22100 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L22101" class="LineNr">22101 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22102" class="LineNr">22102 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L22103" class="LineNr">22103 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 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> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22106" class="LineNr">22106 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22107" class="LineNr">22107 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22108" class="LineNr">22108 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> +<span id="L22109" class="LineNr">22109 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22110" class="LineNr">22110 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22111" class="LineNr">22111 </span> e9/jump $check-mu-copy-stmt:end/disp32 +<span id="L22112" class="LineNr">22112 </span> } +<span id="L22113" class="LineNr">22113 </span> <span class="subxComment"># if output is a byte, abort if inout is not a literal. Otherwise return.</span> +<span id="L22114" class="LineNr">22114 </span> { +<span id="L22115" class="LineNr">22115 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22116" class="LineNr">22116 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22117" class="LineNr">22117 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 8) <span class="subxComment"># byte => eax</span> +<span id="L22118" class="LineNr">22118 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22119" class="LineNr">22119 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22120" class="LineNr">22120 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22121" class="LineNr">22121 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22122" class="LineNr">22122 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 0) <span class="subxComment"># literal => eax</span> +<span id="L22123" class="LineNr">22123 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22124" class="LineNr">22124 </span> 0f 84/jump-if-= $check-mu-copy-stmt:error-non-literal-to-byte/disp32 +<span id="L22125" class="LineNr">22125 </span> eb/jump $check-mu-copy-stmt:end/disp8 +<span id="L22126" class="LineNr">22126 </span> } +<span id="L22127" class="LineNr">22127 </span> <span class="subxComment"># if output is not number-like, abort</span> +<span id="L22128" class="LineNr">22128 </span> (<a href='mu.subx.html#L21902'>check-mu-numberlike-output</a> %edi *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L22129" class="LineNr">22129 </span><span class="Constant">$check-mu-copy-stmt:end</span>: +<span id="L22130" class="LineNr">22130 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L22131" class="LineNr">22131 </span> 81 0/subop/add %esp 0x6c/imm32 +<span id="L22132" class="LineNr">22132 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L22133" class="LineNr">22133 </span> 5f/pop-to-edi +<span id="L22134" class="LineNr">22134 </span> 5e/pop-to-esi +<span id="L22135" class="LineNr">22135 </span> 5a/pop-to-edx +<span id="L22136" class="LineNr">22136 </span> 59/pop-to-ecx +<span id="L22137" class="LineNr">22137 </span> 58/pop-to-eax +<span id="L22138" class="LineNr">22138 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L22139" class="LineNr">22139 </span> 89/<- %esp 5/r32/ebp +<span id="L22140" class="LineNr">22140 </span> 5d/pop-to-ebp +<span id="L22141" class="LineNr">22141 </span> c3/return +<span id="L22142" class="LineNr">22142 </span> +<span id="L22143" class="LineNr">22143 </span><span class="Constant">$check-mu-copy-stmt:error-no-inout</span>: +<span id="L22144" class="LineNr">22144 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22145" class="LineNr">22145 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22146" class="LineNr">22146 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22147" class="LineNr">22147 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22148" class="LineNr">22148 </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="L22149" class="LineNr">22149 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22150" class="LineNr">22150 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22151" class="LineNr">22151 </span> <span class="subxComment"># never gets here</span> +<span id="L22152" class="LineNr">22152 </span> +<span id="L22153" class="LineNr">22153 </span><span class="Constant">$check-mu-copy-stmt:error-too-many-inouts</span>: +<span id="L22154" class="LineNr">22154 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22155" class="LineNr">22155 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22156" class="LineNr">22156 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22157" class="LineNr">22157 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22158" class="LineNr">22158 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy' must have just one inout\n"</span>) +<span id="L22159" class="LineNr">22159 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22160" class="LineNr">22160 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22161" class="LineNr">22161 </span> <span class="subxComment"># never gets here</span> +<span id="L22162" class="LineNr">22162 </span> +<span id="L22163" class="LineNr">22163 </span><span class="Constant">$check-mu-copy-stmt:error-no-output</span>: +<span id="L22164" class="LineNr">22164 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22165" class="LineNr">22165 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22166" class="LineNr">22166 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22167" class="LineNr">22167 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22168" class="LineNr">22168 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy' expects an output\n"</span>) +<span id="L22169" class="LineNr">22169 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22170" class="LineNr">22170 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22171" class="LineNr">22171 </span> <span class="subxComment"># never gets here</span> +<span id="L22172" class="LineNr">22172 </span> +<span id="L22173" class="LineNr">22173 </span><span class="Constant">$check-mu-copy-stmt:error-output-not-in-register</span>: +<span id="L22174" class="LineNr">22174 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22175" class="LineNr">22175 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22176" class="LineNr">22176 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22177" class="LineNr">22177 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22178" class="LineNr">22178 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy: output '"</span>) +<span id="L22179" class="LineNr">22179 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22180" class="LineNr">22180 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22181" class="LineNr">22181 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22182" class="LineNr">22182 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' not in a register\n"</span>) +<span id="L22183" class="LineNr">22183 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22184" class="LineNr">22184 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22185" class="LineNr">22185 </span> <span class="subxComment"># never gets here</span> +<span id="L22186" class="LineNr">22186 </span> +<span id="L22187" class="LineNr">22187 </span><span class="Constant">$check-mu-copy-stmt:error-too-many-outputs</span>: +<span id="L22188" class="LineNr">22188 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22189" class="LineNr">22189 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22190" class="LineNr">22190 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22191" class="LineNr">22191 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22192" class="LineNr">22192 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy' must have just one output\n"</span>) +<span id="L22193" class="LineNr">22193 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22194" class="LineNr">22194 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22195" class="LineNr">22195 </span> <span class="subxComment"># never gets here</span> +<span id="L22196" class="LineNr">22196 </span> +<span id="L22197" class="LineNr">22197 </span><span class="Constant">$check-mu-copy-stmt:error-inout-too-large</span>: +<span id="L22198" class="LineNr">22198 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22199" class="LineNr">22199 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22200" class="LineNr">22200 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22201" class="LineNr">22201 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22202" class="LineNr">22202 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy: '"</span>) +<span id="L22203" class="LineNr">22203 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22204" class="LineNr">22204 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22205" class="LineNr">22205 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22206" class="LineNr">22206 </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="L22207" class="LineNr">22207 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22208" class="LineNr">22208 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22209" class="LineNr">22209 </span> <span class="subxComment"># never gets here</span> +<span id="L22210" class="LineNr">22210 </span> +<span id="L22211" class="LineNr">22211 </span><span class="Constant">$check-mu-copy-stmt:error-non-literal-to-byte</span>: +<span id="L22212" class="LineNr">22212 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22213" class="LineNr">22213 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22214" class="LineNr">22214 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-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">": stmt copy: cannot copy non-literal to '"</span>) +<span id="L22217" class="LineNr">22217 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22218" class="LineNr">22218 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22219" class="LineNr">22219 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22220" class="LineNr">22220 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' of type byte; use copy-byte\n"</span>) +<span id="L22221" class="LineNr">22221 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22222" class="LineNr">22222 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22223" class="LineNr">22223 </span> <span class="subxComment"># never gets here</span> +<span id="L22224" class="LineNr">22224 </span> +<span id="L22225" class="LineNr">22225 </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="L22226" class="LineNr">22226 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L22227" class="LineNr">22227 </span> 55/push-ebp +<span id="L22228" class="LineNr">22228 </span> 89/<- %ebp 4/r32/esp +<span id="L22229" class="LineNr">22229 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L22230" class="LineNr">22230 </span> 50/push-eax +<span id="L22231" class="LineNr">22231 </span> 51/push-ecx +<span id="L22232" class="LineNr">22232 </span> 52/push-edx +<span id="L22233" class="LineNr">22233 </span> 53/push-ebx +<span id="L22234" class="LineNr">22234 </span> 56/push-esi +<span id="L22235" class="LineNr">22235 </span> 57/push-edi +<span id="L22236" class="LineNr">22236 </span> <span class="subxComment"># var type-parameters/edx: (addr table (handle array byte) (addr type-tree) 8)</span> +<span id="L22237" class="LineNr">22237 </span> 81 5/subop/subtract %esp 0x60/imm32 +<span id="L22238" class="LineNr">22238 </span> 68/push 0x60/imm32/size +<span id="L22239" class="LineNr">22239 </span> 68/push 0/imm32/read +<span id="L22240" class="LineNr">22240 </span> 68/push 0/imm32/write +<span id="L22241" class="LineNr">22241 </span> 89/<- %edx 4/r32/esp +<span id="L22242" class="LineNr">22242 </span> <span class="subxComment"># esi = stmt</span> +<span id="L22243" class="LineNr">22243 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L22244" class="LineNr">22244 </span><span class="Constant">$check-mu-copy-to-stmt:check-for-output</span>: +<span id="L22245" class="LineNr">22245 </span> <span class="subxComment"># if stmt->outputs abort</span> +<span id="L22246" class="LineNr">22246 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L22247" class="LineNr">22247 </span> 3d/compare-eax-and 0/imm32 +<span id="L22248" class="LineNr">22248 </span> 0f 85/jump-if-!= $check-mu-copy-to-stmt:error-too-many-outputs/disp32 +<span id="L22249" class="LineNr">22249 </span><span class="Constant">$check-mu-copy-to-stmt:get-dest</span>: +<span id="L22250" class="LineNr">22250 </span> <span class="subxComment"># var dest/edi: (addr stmt-var) = stmt->inouts</span> +<span id="L22251" class="LineNr">22251 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L22252" class="LineNr">22252 </span> 89/<- %edi 0/r32/eax +<span id="L22253" class="LineNr">22253 </span> <span class="subxComment"># zero inouts</span> +<span id="L22254" class="LineNr">22254 </span> 3d/compare-eax-and 0/imm32 +<span id="L22255" class="LineNr">22255 </span> 0f 84/jump-if-= $check-mu-copy-to-stmt:error-incorrect-inouts/disp32 +<span id="L22256" class="LineNr">22256 </span><span class="Constant">$check-mu-copy-to-stmt:get-src</span>: +<span id="L22257" class="LineNr">22257 </span> <span class="subxComment"># var src/esi: (addr stmt-var) = dest->next</span> +<span id="L22258" class="LineNr">22258 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L22259" class="LineNr">22259 </span> 89/<- %esi 0/r32/eax +<span id="L22260" class="LineNr">22260 </span> <span class="subxComment"># 1 inout</span> +<span id="L22261" class="LineNr">22261 </span> 3d/compare-eax-and 0/imm32 +<span id="L22262" class="LineNr">22262 </span> 0f 84/jump-if-= $check-mu-copy-to-stmt:error-incorrect-inouts/disp32 +<span id="L22263" class="LineNr">22263 </span> <span class="subxComment"># > 2 inouts</span> +<span id="L22264" class="LineNr">22264 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L22265" class="LineNr">22265 </span> 3d/compare-eax-and 0/imm32 +<span id="L22266" class="LineNr">22266 </span> 0f 85/jump-if-!= $check-mu-copy-to-stmt:error-incorrect-inouts/disp32 +<span id="L22267" class="LineNr">22267 </span><span class="Constant">$check-mu-copy-to-stmt:types</span>: +<span id="L22268" class="LineNr">22268 </span> <span class="subxComment"># if src is not a scalar, abort</span> +<span id="L22269" class="LineNr">22269 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22270" class="LineNr">22270 </span> (<a href='mu.subx.html#L26575'>size-of</a> %eax) <span class="subxComment"># => eax</span> +<span id="L22271" class="LineNr">22271 </span> 3d/compare-eax-and 4/imm32 +<span id="L22272" class="LineNr">22272 </span> 0f 8f/jump-if-> $check-mu-copy-to-stmt:error-src-too-large/disp32 +<span id="L22273" class="LineNr">22273 </span> <span class="subxComment"># var src-type/ecx: (addr type-tree) = src->value->type</span> +<span id="L22274" class="LineNr">22274 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22275" class="LineNr">22275 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22276" class="LineNr">22276 </span> 89/<- %ecx 0/r32/eax +<span id="L22277" class="LineNr">22277 </span> <span class="subxComment"># if src not in register or literal, abort</span> +<span id="L22278" class="LineNr">22278 </span> <span class="subxComment"># (we can't use stack-offset because it hasn't been computed yet)</span> +<span id="L22279" class="LineNr">22279 </span> { +<span id="L22280" class="LineNr">22280 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22281" class="LineNr">22281 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22282" class="LineNr">22282 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> +<span id="L22283" class="LineNr">22283 </span> 3d/compare-eax-and 0/imm32 +<span id="L22284" class="LineNr">22284 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22285" class="LineNr">22285 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22286" class="LineNr">22286 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L22287" class="LineNr">22287 </span> 3d/compare-eax-and 0/imm32 +<span id="L22288" class="LineNr">22288 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22289" class="LineNr">22289 </span> e9/jump $check-mu-copy-to-stmt:error-src-not-literal-or-in-register/disp32 +<span id="L22290" class="LineNr">22290 </span> } +<span id="L22291" class="LineNr">22291 </span> <span class="subxComment"># var dest-type/ebx: (addr type-tree) = dest->value->type</span> +<span id="L22292" class="LineNr">22292 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22293" class="LineNr">22293 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22294" class="LineNr">22294 </span> 89/<- %ebx 0/r32/eax +<span id="L22295" class="LineNr">22295 </span> <span class="subxComment"># if (dest->is-deref?) dest-type = dest-type->payload</span> +<span id="L22296" class="LineNr">22296 </span><span class="Constant">$check-mu-copy-to-stmt:check-dest-deref</span>: +<span id="L22297" class="LineNr">22297 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L22298" class="LineNr">22298 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22299" class="LineNr">22299 </span> { +<span id="L22300" class="LineNr">22300 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22301" class="LineNr">22301 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L22302" class="LineNr">22302 </span><span class="Constant">$check-mu-copy-to-stmt:dest-is-deref</span>: +<span id="L22303" class="LineNr">22303 </span> <span class="subxComment"># if dest-type->right is null, dest-type = dest-type->left</span> +<span id="L22304" class="LineNr">22304 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L22305" class="LineNr">22305 </span> { +<span id="L22306" class="LineNr">22306 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22307" class="LineNr">22307 </span><span class="Constant">$check-mu-copy-to-stmt:dest-is-deref2</span>: +<span id="L22308" class="LineNr">22308 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L22309" class="LineNr">22309 </span> } +<span id="L22310" class="LineNr">22310 </span> 89/<- %ebx 0/r32/eax +<span id="L22311" class="LineNr">22311 </span> } +<span id="L22312" class="LineNr">22312 </span> <span class="subxComment"># if dest is a byte and src is not a literal, abort</span> +<span id="L22313" class="LineNr">22313 </span> { +<span id="L22314" class="LineNr">22314 </span><span class="Constant">$check-mu-copy-to-stmt:final-check-byte</span>: +<span id="L22315" class="LineNr">22315 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %ebx 8) <span class="subxComment"># byte => eax</span> +<span id="L22316" class="LineNr">22316 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22317" class="LineNr">22317 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22318" class="LineNr">22318 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %ecx 0) <span class="subxComment"># literal => eax</span> +<span id="L22319" class="LineNr">22319 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22320" class="LineNr">22320 </span> 0f 84/jump-if-= $check-mu-copy-to-stmt:error-non-literal-to-byte/disp32 +<span id="L22321" class="LineNr">22321 </span> } +<span id="L22322" class="LineNr">22322 </span> <span class="subxComment"># if (src-type == dest-type) return</span> +<span id="L22323" class="LineNr">22323 </span> (<a href='mu.subx.html#L26416'>type-match?</a> %ebx %ecx %edx) <span class="subxComment"># => eax</span> +<span id="L22324" class="LineNr">22324 </span> 3d/compare-eax-and 0/imm32 +<span id="L22325" class="LineNr">22325 </span> 0f 85/jump-if-!= $check-mu-copy-to-stmt:end/disp32 +<span id="L22326" class="LineNr">22326 </span> <span class="subxComment"># if dest is an addr and src is 0, return</span> +<span id="L22327" class="LineNr">22327 </span> { +<span id="L22328" class="LineNr">22328 </span><span class="Constant">$check-mu-copy-to-stmt:final-check-addr</span>: +<span id="L22329" class="LineNr">22329 </span> (<a href='mu.subx.html#L36245'>mu-addr-type?</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L22330" class="LineNr">22330 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22331" class="LineNr">22331 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22332" class="LineNr">22332 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22333" class="LineNr">22333 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22334" class="LineNr">22334 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> +<span id="L22335" class="LineNr">22335 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22336" class="LineNr">22336 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22337" class="LineNr">22337 </span> e9/jump $check-mu-copy-to-stmt:end/disp32 +<span id="L22338" class="LineNr">22338 </span> } +<span id="L22339" class="LineNr">22339 </span> <span class="subxComment"># if dest is an offset and src is 0, return</span> +<span id="L22340" class="LineNr">22340 </span> { +<span id="L22341" class="LineNr">22341 </span><span class="Constant">$check-mu-copy-to-stmt:final-check-offset</span>: +<span id="L22342" class="LineNr">22342 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L22343" class="LineNr">22343 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22344" class="LineNr">22344 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L22345" class="LineNr">22345 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 7) <span class="subxComment"># offset => eax</span> +<span id="L22346" class="LineNr">22346 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22347" class="LineNr">22347 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22348" class="LineNr">22348 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22349" class="LineNr">22349 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22350" class="LineNr">22350 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> +<span id="L22351" class="LineNr">22351 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22352" class="LineNr">22352 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22353" class="LineNr">22353 </span> e9/jump $check-mu-copy-to-stmt:end/disp32 +<span id="L22354" class="LineNr">22354 </span> } +<span id="L22355" class="LineNr">22355 </span> <span class="subxComment"># if dest is not number-like, abort</span> +<span id="L22356" class="LineNr">22356 </span> (<a href='mu.subx.html#L21851'>check-mu-numberlike-arg</a> %edi *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L22357" class="LineNr">22357 </span><span class="Constant">$check-mu-copy-to-stmt:end</span>: +<span id="L22358" class="LineNr">22358 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L22359" class="LineNr">22359 </span> 81 0/subop/add %esp 0x6c/imm32 +<span id="L22360" class="LineNr">22360 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L22361" class="LineNr">22361 </span> 5f/pop-to-edi +<span id="L22362" class="LineNr">22362 </span> 5e/pop-to-esi +<span id="L22363" class="LineNr">22363 </span> 5b/pop-to-ebx +<span id="L22364" class="LineNr">22364 </span> 5a/pop-to-edx +<span id="L22365" class="LineNr">22365 </span> 59/pop-to-ecx +<span id="L22366" class="LineNr">22366 </span> 58/pop-to-eax +<span id="L22367" class="LineNr">22367 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L22368" class="LineNr">22368 </span> 89/<- %esp 5/r32/ebp +<span id="L22369" class="LineNr">22369 </span> 5d/pop-to-ebp +<span id="L22370" class="LineNr">22370 </span> c3/return +<span id="L22371" class="LineNr">22371 </span> +<span id="L22372" class="LineNr">22372 </span><span class="Constant">$check-mu-copy-to-stmt:error-incorrect-inouts</span>: +<span id="L22373" class="LineNr">22373 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22374" class="LineNr">22374 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22375" class="LineNr">22375 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22376" class="LineNr">22376 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22377" class="LineNr">22377 </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="L22378" class="LineNr">22378 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22379" class="LineNr">22379 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22380" class="LineNr">22380 </span> <span class="subxComment"># never gets here</span> +<span id="L22381" class="LineNr">22381 </span> +<span id="L22382" class="LineNr">22382 </span><span class="Constant">$check-mu-copy-to-stmt:error-too-many-outputs</span>: +<span id="L22383" class="LineNr">22383 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22384" class="LineNr">22384 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22385" class="LineNr">22385 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22386" class="LineNr">22386 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22387" class="LineNr">22387 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy-to' must not have any outputs\n"</span>) +<span id="L22388" class="LineNr">22388 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22389" class="LineNr">22389 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22390" class="LineNr">22390 </span> <span class="subxComment"># never gets here</span> +<span id="L22391" class="LineNr">22391 </span> +<span id="L22392" class="LineNr">22392 </span><span class="Constant">$check-mu-copy-to-stmt:error-src-not-literal-or-in-register</span>: +<span id="L22393" class="LineNr">22393 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22394" class="LineNr">22394 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22395" class="LineNr">22395 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22396" class="LineNr">22396 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22397" class="LineNr">22397 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-to: source (second inout) is in memory\n"</span>) +<span id="L22398" class="LineNr">22398 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22399" class="LineNr">22399 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22400" class="LineNr">22400 </span> <span class="subxComment"># never gets here</span> +<span id="L22401" class="LineNr">22401 </span> +<span id="L22402" class="LineNr">22402 </span><span class="Constant">$check-mu-copy-to-stmt:error-src-too-large</span>: +<span id="L22403" class="LineNr">22403 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22404" class="LineNr">22404 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22405" class="LineNr">22405 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22406" class="LineNr">22406 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22407" class="LineNr">22407 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-to: '"</span>) +<span id="L22408" class="LineNr">22408 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22409" class="LineNr">22409 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22410" class="LineNr">22410 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22411" class="LineNr">22411 </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="L22412" class="LineNr">22412 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22413" class="LineNr">22413 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22414" class="LineNr">22414 </span> <span class="subxComment"># never gets here</span> +<span id="L22415" class="LineNr">22415 </span> +<span id="L22416" class="LineNr">22416 </span><span class="Constant">$check-mu-copy-to-stmt:error-non-literal-to-byte</span>: +<span id="L22417" class="LineNr">22417 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22418" class="LineNr">22418 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22419" class="LineNr">22419 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22420" class="LineNr">22420 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22421" class="LineNr">22421 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-to: cannot copy non-literal to type byte; use copy-byte-to\n"</span>) +<span id="L22422" class="LineNr">22422 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22423" class="LineNr">22423 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22424" class="LineNr">22424 </span> <span class="subxComment"># never gets here</span> +<span id="L22425" class="LineNr">22425 </span> +<span id="L22426" class="LineNr">22426 </span><span class="subxFunction">check-mu-copy-byte-stmt</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L22427" class="LineNr">22427 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L22428" class="LineNr">22428 </span> 55/push-ebp +<span id="L22429" class="LineNr">22429 </span> 89/<- %ebp 4/r32/esp +<span id="L22430" class="LineNr">22430 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L22431" class="LineNr">22431 </span> 50/push-eax +<span id="L22432" class="LineNr">22432 </span> 51/push-ecx +<span id="L22433" class="LineNr">22433 </span> 52/push-edx +<span id="L22434" class="LineNr">22434 </span> 56/push-esi +<span id="L22435" class="LineNr">22435 </span> 57/push-edi +<span id="L22436" class="LineNr">22436 </span> <span class="subxComment"># var type-parameters/edx: (addr table (handle array byte) (addr type-tree) 8)</span> +<span id="L22437" class="LineNr">22437 </span> 81 5/subop/subtract %esp 0x60/imm32 +<span id="L22438" class="LineNr">22438 </span> 68/push 0x60/imm32/size +<span id="L22439" class="LineNr">22439 </span> 68/push 0/imm32/read +<span id="L22440" class="LineNr">22440 </span> 68/push 0/imm32/write +<span id="L22441" class="LineNr">22441 </span> 89/<- %edx 4/r32/esp +<span id="L22442" class="LineNr">22442 </span><span class="Constant">$check-mu-copy-byte-stmt:get-output</span>: +<span id="L22443" class="LineNr">22443 </span> <span class="subxComment"># esi = stmt</span> +<span id="L22444" class="LineNr">22444 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L22445" class="LineNr">22445 </span> <span class="subxComment"># var output/edi: (addr stmt-var) = stmt->outputs</span> +<span id="L22446" class="LineNr">22446 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L22447" class="LineNr">22447 </span> 89/<- %edi 0/r32/eax +<span id="L22448" class="LineNr">22448 </span> <span class="subxComment"># zero outputs</span> +<span id="L22449" class="LineNr">22449 </span> 3d/compare-eax-and 0/imm32 +<span id="L22450" class="LineNr">22450 </span> 0f 84/jump-if-= $check-mu-copy-byte-stmt:error-no-output/disp32 +<span id="L22451" class="LineNr">22451 </span> <span class="subxComment"># > 1 output</span> +<span id="L22452" class="LineNr">22452 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L22453" class="LineNr">22453 </span> 3d/compare-eax-and 0/imm32 +<span id="L22454" class="LineNr">22454 </span> 0f 85/jump-if-!= $check-mu-copy-byte-stmt:error-too-many-outputs/disp32 +<span id="L22455" class="LineNr">22455 </span><span class="Constant">$check-mu-copy-byte-stmt:get-inout</span>: +<span id="L22456" class="LineNr">22456 </span> <span class="subxComment"># var inout/esi: (addr stmt-var) = stmt->inouts</span> +<span id="L22457" class="LineNr">22457 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L22458" class="LineNr">22458 </span> 89/<- %esi 0/r32/eax +<span id="L22459" class="LineNr">22459 </span> <span class="subxComment"># zero inouts</span> +<span id="L22460" class="LineNr">22460 </span> 3d/compare-eax-and 0/imm32 +<span id="L22461" class="LineNr">22461 </span> 0f 84/jump-if-= $check-mu-copy-byte-stmt:error-no-inout/disp32 +<span id="L22462" class="LineNr">22462 </span> <span class="subxComment"># > 1 inout</span> +<span id="L22463" class="LineNr">22463 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L22464" class="LineNr">22464 </span> 3d/compare-eax-and 0/imm32 +<span id="L22465" class="LineNr">22465 </span> 0f 85/jump-if-!= $check-mu-copy-byte-stmt:error-too-many-inouts/disp32 +<span id="L22466" class="LineNr">22466 </span><span class="Constant">$check-mu-copy-byte-stmt:types</span>: +<span id="L22467" class="LineNr">22467 </span> <span class="subxComment"># if inout is not a scalar, abort</span> +<span id="L22468" class="LineNr">22468 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22469" class="LineNr">22469 </span> (<a href='mu.subx.html#L26575'>size-of</a> %eax) <span class="subxComment"># => eax</span> +<span id="L22470" class="LineNr">22470 </span> 3d/compare-eax-and 4/imm32 +<span id="L22471" class="LineNr">22471 </span> 0f 8f/jump-if-> $check-mu-copy-byte-stmt:error-inout-too-large/disp32 +<span id="L22472" class="LineNr">22472 </span> <span class="subxComment"># var inout-type/ecx: (addr type-tree) = inout->value->type</span> +<span id="L22473" class="LineNr">22473 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22474" class="LineNr">22474 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22475" class="LineNr">22475 </span> 89/<- %ecx 0/r32/eax +<span id="L22476" class="LineNr">22476 </span><span class="Constant">$check-mu-copy-byte-stmt:check-inout-deref</span>: +<span id="L22477" class="LineNr">22477 </span> <span class="subxComment"># if (inout->is-deref?) inout-type = inout-type->payload</span> +<span id="L22478" class="LineNr">22478 </span> 8b/-> *(esi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L22479" class="LineNr">22479 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22480" class="LineNr">22480 </span> { +<span id="L22481" class="LineNr">22481 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22482" class="LineNr">22482 </span><span class="Constant">$check-mu-copy-byte-stmt:inout-is-deref</span>: +<span id="L22483" class="LineNr">22483 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L22484" class="LineNr">22484 </span> <span class="subxComment"># if inout-type->right is null, t = inout-type->left</span> +<span id="L22485" class="LineNr">22485 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L22486" class="LineNr">22486 </span> { +<span id="L22487" class="LineNr">22487 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22488" class="LineNr">22488 </span><span class="Constant">$check-mu-copy-byte-stmt:inout-is-deref2</span>: +<span id="L22489" class="LineNr">22489 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L22490" class="LineNr">22490 </span> } +<span id="L22491" class="LineNr">22491 </span> 89/<- %ecx 0/r32/eax +<span id="L22492" class="LineNr">22492 </span> } +<span id="L22493" class="LineNr">22493 </span> <span class="subxComment"># if output not in register, abort</span> +<span id="L22494" class="LineNr">22494 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22495" class="LineNr">22495 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L22496" class="LineNr">22496 </span> 3d/compare-eax-and 0/imm32 +<span id="L22497" class="LineNr">22497 </span> 0f 84/jump-if-= $check-mu-copy-byte-stmt:error-output-not-in-register/disp32 +<span id="L22498" class="LineNr">22498 </span> <span class="subxComment"># var output-type/eax: (addr type-tree) = output->value->type</span> +<span id="L22499" class="LineNr">22499 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22500" class="LineNr">22500 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22501" class="LineNr">22501 </span> <span class="subxComment"># if output is not of type byte, abort</span> +<span id="L22502" class="LineNr">22502 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 8) <span class="subxComment"># byte => eax</span> +<span id="L22503" class="LineNr">22503 </span> 3d/compare-eax-and 0/imm32 +<span id="L22504" class="LineNr">22504 </span> 0f 84/jump-if-= $check-mu-copy-byte-stmt:error-invalid-output-type/disp32 +<span id="L22505" class="LineNr">22505 </span><span class="Constant">$check-mu-copy-byte-stmt:end</span>: +<span id="L22506" class="LineNr">22506 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L22507" class="LineNr">22507 </span> 81 0/subop/add %esp 0x6c/imm32 +<span id="L22508" class="LineNr">22508 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L22509" class="LineNr">22509 </span> 5f/pop-to-edi +<span id="L22510" class="LineNr">22510 </span> 5e/pop-to-esi +<span id="L22511" class="LineNr">22511 </span> 5a/pop-to-edx +<span id="L22512" class="LineNr">22512 </span> 59/pop-to-ecx +<span id="L22513" class="LineNr">22513 </span> 58/pop-to-eax +<span id="L22514" class="LineNr">22514 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L22515" class="LineNr">22515 </span> 89/<- %esp 5/r32/ebp +<span id="L22516" class="LineNr">22516 </span> 5d/pop-to-ebp +<span id="L22517" class="LineNr">22517 </span> c3/return +<span id="L22518" class="LineNr">22518 </span> +<span id="L22519" class="LineNr">22519 </span><span class="Constant">$check-mu-copy-byte-stmt:error-no-inout</span>: +<span id="L22520" class="LineNr">22520 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22521" class="LineNr">22521 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22522" class="LineNr">22522 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22523" class="LineNr">22523 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22524" class="LineNr">22524 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy-byte' expects an inout\n"</span>) +<span id="L22525" class="LineNr">22525 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22526" class="LineNr">22526 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22527" class="LineNr">22527 </span> <span class="subxComment"># never gets here</span> +<span id="L22528" class="LineNr">22528 </span> +<span id="L22529" class="LineNr">22529 </span><span class="Constant">$check-mu-copy-byte-stmt:error-too-many-inouts</span>: +<span id="L22530" class="LineNr">22530 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22531" class="LineNr">22531 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22532" class="LineNr">22532 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22533" class="LineNr">22533 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22534" class="LineNr">22534 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy-byte' must have just one inout\n"</span>) +<span id="L22535" class="LineNr">22535 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22536" class="LineNr">22536 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22537" class="LineNr">22537 </span> <span class="subxComment"># never gets here</span> +<span id="L22538" class="LineNr">22538 </span> +<span id="L22539" class="LineNr">22539 </span><span class="Constant">$check-mu-copy-byte-stmt:error-no-output</span>: +<span id="L22540" class="LineNr">22540 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22541" class="LineNr">22541 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22542" class="LineNr">22542 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22543" class="LineNr">22543 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22544" class="LineNr">22544 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy-byte' expects an output\n"</span>) +<span id="L22545" class="LineNr">22545 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22546" class="LineNr">22546 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22547" class="LineNr">22547 </span> <span class="subxComment"># never gets here</span> +<span id="L22548" class="LineNr">22548 </span> +<span id="L22549" class="LineNr">22549 </span><span class="Constant">$check-mu-copy-byte-stmt:error-output-not-in-register</span>: +<span id="L22550" class="LineNr">22550 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22551" class="LineNr">22551 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22552" class="LineNr">22552 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22553" class="LineNr">22553 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22554" class="LineNr">22554 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-byte: output '"</span>) +<span id="L22555" class="LineNr">22555 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22556" class="LineNr">22556 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22557" class="LineNr">22557 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22558" class="LineNr">22558 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' not in a register\n"</span>) +<span id="L22559" class="LineNr">22559 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22560" class="LineNr">22560 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22561" class="LineNr">22561 </span> <span class="subxComment"># never gets here</span> +<span id="L22562" class="LineNr">22562 </span> +<span id="L22563" class="LineNr">22563 </span><span class="Constant">$check-mu-copy-byte-stmt:error-too-many-outputs</span>: +<span id="L22564" class="LineNr">22564 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22565" class="LineNr">22565 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22566" class="LineNr">22566 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-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">": stmt 'copy-byte' must have just one output\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-copy-byte-stmt:error-invalid-output-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#L258'>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 'copy-byte' must <a href='108write.subx.html#L24'>write</a> to output of type byte\n"</span>) +<span id="L22579" class="LineNr">22579 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22580" class="LineNr">22580 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22581" class="LineNr">22581 </span> <span class="subxComment"># never gets here</span> +<span id="L22582" class="LineNr">22582 </span> +<span id="L22583" class="LineNr">22583 </span><span class="Constant">$check-mu-copy-byte-stmt:error-inout-too-large</span>: +<span id="L22584" class="LineNr">22584 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22585" class="LineNr">22585 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22586" class="LineNr">22586 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22587" class="LineNr">22587 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22588" class="LineNr">22588 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-byte: '"</span>) +<span id="L22589" class="LineNr">22589 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22590" class="LineNr">22590 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22591" class="LineNr">22591 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22592" class="LineNr">22592 </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="L22593" class="LineNr">22593 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22594" class="LineNr">22594 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22595" class="LineNr">22595 </span> <span class="subxComment"># never gets here</span> +<span id="L22596" class="LineNr">22596 </span> +<span id="L22597" class="LineNr">22597 </span><span class="subxFunction">check-mu-copy-byte-to-stmt</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L22598" class="LineNr">22598 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L22599" class="LineNr">22599 </span> 55/push-ebp +<span id="L22600" class="LineNr">22600 </span> 89/<- %ebp 4/r32/esp +<span id="L22601" class="LineNr">22601 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L22602" class="LineNr">22602 </span> 50/push-eax +<span id="L22603" class="LineNr">22603 </span> 52/push-edx +<span id="L22604" class="LineNr">22604 </span> 53/push-ebx +<span id="L22605" class="LineNr">22605 </span> 56/push-esi +<span id="L22606" class="LineNr">22606 </span> 57/push-edi +<span id="L22607" class="LineNr">22607 </span> <span class="subxComment"># var type-parameters/edx: (addr table (handle array byte) (addr type-tree) 8)</span> +<span id="L22608" class="LineNr">22608 </span> 81 5/subop/subtract %esp 0x60/imm32 +<span id="L22609" class="LineNr">22609 </span> 68/push 0x60/imm32/size +<span id="L22610" class="LineNr">22610 </span> 68/push 0/imm32/read +<span id="L22611" class="LineNr">22611 </span> 68/push 0/imm32/write +<span id="L22612" class="LineNr">22612 </span> 89/<- %edx 4/r32/esp +<span id="L22613" class="LineNr">22613 </span> <span class="subxComment"># esi = stmt</span> +<span id="L22614" class="LineNr">22614 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L22615" class="LineNr">22615 </span><span class="Constant">$check-mu-copy-byte-to-stmt:check-for-output</span>: +<span id="L22616" class="LineNr">22616 </span> <span class="subxComment"># if stmt->outputs abort</span> +<span id="L22617" class="LineNr">22617 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L22618" class="LineNr">22618 </span> 3d/compare-eax-and 0/imm32 +<span id="L22619" class="LineNr">22619 </span> 0f 85/jump-if-!= $check-mu-copy-byte-to-stmt:error-too-many-outputs/disp32 +<span id="L22620" class="LineNr">22620 </span><span class="Constant">$check-mu-copy-byte-to-stmt:get-dest</span>: +<span id="L22621" class="LineNr">22621 </span> <span class="subxComment"># var dest/edi: (addr stmt-var) = stmt->inouts</span> +<span id="L22622" class="LineNr">22622 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L22623" class="LineNr">22623 </span> 89/<- %edi 0/r32/eax +<span id="L22624" class="LineNr">22624 </span> <span class="subxComment"># zero inouts</span> +<span id="L22625" class="LineNr">22625 </span> 3d/compare-eax-and 0/imm32 +<span id="L22626" class="LineNr">22626 </span> 0f 84/jump-if-= $check-mu-copy-byte-to-stmt:error-incorrect-inouts/disp32 +<span id="L22627" class="LineNr">22627 </span><span class="Constant">$check-mu-copy-byte-to-stmt:get-src</span>: +<span id="L22628" class="LineNr">22628 </span> <span class="subxComment"># var src/esi: (addr stmt-var) = dest->next</span> +<span id="L22629" class="LineNr">22629 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L22630" class="LineNr">22630 </span> 89/<- %esi 0/r32/eax +<span id="L22631" class="LineNr">22631 </span> <span class="subxComment"># 1 inout</span> +<span id="L22632" class="LineNr">22632 </span> 3d/compare-eax-and 0/imm32 +<span id="L22633" class="LineNr">22633 </span> 0f 84/jump-if-= $check-mu-copy-byte-to-stmt:error-incorrect-inouts/disp32 +<span id="L22634" class="LineNr">22634 </span> <span class="subxComment"># > 2 inouts</span> +<span id="L22635" class="LineNr">22635 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L22636" class="LineNr">22636 </span> 3d/compare-eax-and 0/imm32 +<span id="L22637" class="LineNr">22637 </span> 0f 85/jump-if-!= $check-mu-copy-byte-to-stmt:error-incorrect-inouts/disp32 +<span id="L22638" class="LineNr">22638 </span><span class="Constant">$check-mu-copy-byte-to-stmt:types</span>: +<span id="L22639" class="LineNr">22639 </span> <span class="subxComment"># if src is not a scalar, abort</span> +<span id="L22640" class="LineNr">22640 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22641" class="LineNr">22641 </span> (<a href='mu.subx.html#L26575'>size-of</a> %eax) <span class="subxComment"># => eax</span> +<span id="L22642" class="LineNr">22642 </span> 3d/compare-eax-and 4/imm32 +<span id="L22643" class="LineNr">22643 </span> 0f 8f/jump-if-> $check-mu-copy-byte-to-stmt:error-src-too-large/disp32 +<span id="L22644" class="LineNr">22644 </span> <span class="subxComment"># if src not in register, abort</span> +<span id="L22645" class="LineNr">22645 </span> { +<span id="L22646" class="LineNr">22646 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22647" class="LineNr">22647 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L22648" class="LineNr">22648 </span> 3d/compare-eax-and 0/imm32 +<span id="L22649" class="LineNr">22649 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22650" class="LineNr">22650 </span> e9/jump $check-mu-copy-byte-to-stmt:error-src-not-in-register/disp32 +<span id="L22651" class="LineNr">22651 </span> } +<span id="L22652" class="LineNr">22652 </span> <span class="subxComment"># var dest-type/ebx: (addr type-tree) = dest->value->type</span> +<span id="L22653" class="LineNr">22653 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22654" class="LineNr">22654 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22655" class="LineNr">22655 </span> 89/<- %ebx 0/r32/eax +<span id="L22656" class="LineNr">22656 </span> <span class="subxComment"># if (dest->is-deref?) dest-type = dest-type->payload</span> +<span id="L22657" class="LineNr">22657 </span><span class="Constant">$check-mu-copy-byte-to-stmt:check-dest-deref</span>: +<span id="L22658" class="LineNr">22658 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L22659" class="LineNr">22659 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22660" class="LineNr">22660 </span> { +<span id="L22661" class="LineNr">22661 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22662" class="LineNr">22662 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L22663" class="LineNr">22663 </span><span class="Constant">$check-mu-copy-byte-to-stmt:dest-is-deref</span>: +<span id="L22664" class="LineNr">22664 </span> <span class="subxComment"># if dest-type->right is null, dest-type = dest-type->left</span> +<span id="L22665" class="LineNr">22665 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L22666" class="LineNr">22666 </span> { +<span id="L22667" class="LineNr">22667 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22668" class="LineNr">22668 </span><span class="Constant">$check-mu-copy-byte-to-stmt:dest-is-deref2</span>: +<span id="L22669" class="LineNr">22669 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L22670" class="LineNr">22670 </span> } +<span id="L22671" class="LineNr">22671 </span> 89/<- %ebx 0/r32/eax +<span id="L22672" class="LineNr">22672 </span> } +<span id="L22673" class="LineNr">22673 </span> <span class="subxComment"># if dest is not a byte, abort</span> +<span id="L22674" class="LineNr">22674 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %ebx 8) <span class="subxComment"># byte => eax</span> +<span id="L22675" class="LineNr">22675 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22676" class="LineNr">22676 </span> 0f 84/jump-if-= $check-mu-copy-byte-to-stmt:error-invalid-dest-type/disp32 +<span id="L22677" class="LineNr">22677 </span><span class="Constant">$check-mu-copy-byte-to-stmt:end</span>: +<span id="L22678" class="LineNr">22678 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L22679" class="LineNr">22679 </span> 81 0/subop/add %esp 0x6c/imm32 +<span id="L22680" class="LineNr">22680 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L22681" class="LineNr">22681 </span> 5f/pop-to-edi +<span id="L22682" class="LineNr">22682 </span> 5e/pop-to-esi +<span id="L22683" class="LineNr">22683 </span> 5b/pop-to-ebx +<span id="L22684" class="LineNr">22684 </span> 5a/pop-to-edx +<span id="L22685" class="LineNr">22685 </span> 58/pop-to-eax +<span id="L22686" class="LineNr">22686 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L22687" class="LineNr">22687 </span> 89/<- %esp 5/r32/ebp +<span id="L22688" class="LineNr">22688 </span> 5d/pop-to-ebp +<span id="L22689" class="LineNr">22689 </span> c3/return +<span id="L22690" class="LineNr">22690 </span> +<span id="L22691" class="LineNr">22691 </span><span class="Constant">$check-mu-copy-byte-to-stmt:error-incorrect-inouts</span>: +<span id="L22692" class="LineNr">22692 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22693" class="LineNr">22693 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22694" class="LineNr">22694 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22695" class="LineNr">22695 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22696" class="LineNr">22696 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy-byte-to' must have two inouts\n"</span>) +<span id="L22697" class="LineNr">22697 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22698" class="LineNr">22698 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22699" class="LineNr">22699 </span> <span class="subxComment"># never gets here</span> +<span id="L22700" class="LineNr">22700 </span> +<span id="L22701" class="LineNr">22701 </span><span class="Constant">$check-mu-copy-byte-to-stmt:error-too-many-outputs</span>: +<span id="L22702" class="LineNr">22702 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22703" class="LineNr">22703 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22704" class="LineNr">22704 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22705" class="LineNr">22705 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22706" class="LineNr">22706 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy-byte-to' must not have any outputs\n"</span>) +<span id="L22707" class="LineNr">22707 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22708" class="LineNr">22708 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22709" class="LineNr">22709 </span> <span class="subxComment"># never gets here</span> +<span id="L22710" class="LineNr">22710 </span> +<span id="L22711" class="LineNr">22711 </span><span class="Constant">$check-mu-copy-byte-to-stmt:error-src-not-in-register</span>: +<span id="L22712" class="LineNr">22712 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22713" class="LineNr">22713 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22714" class="LineNr">22714 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22715" class="LineNr">22715 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22716" class="LineNr">22716 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-byte-to: source (second inout) must be in a register\n"</span>) +<span id="L22717" class="LineNr">22717 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22718" class="LineNr">22718 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22719" class="LineNr">22719 </span> <span class="subxComment"># never gets here</span> +<span id="L22720" class="LineNr">22720 </span> +<span id="L22721" class="LineNr">22721 </span><span class="Constant">$check-mu-copy-byte-to-stmt:error-invalid-dest-type</span>: +<span id="L22722" class="LineNr">22722 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22723" class="LineNr">22723 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22724" class="LineNr">22724 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22725" class="LineNr">22725 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22726" class="LineNr">22726 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-byte-to: '"</span>) +<span id="L22727" class="LineNr">22727 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22728" class="LineNr">22728 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22729" class="LineNr">22729 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22730" class="LineNr">22730 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be a byte\n"</span>) +<span id="L22731" class="LineNr">22731 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22732" class="LineNr">22732 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22733" class="LineNr">22733 </span> <span class="subxComment"># never gets here</span> +<span id="L22734" class="LineNr">22734 </span> +<span id="L22735" class="LineNr">22735 </span><span class="Constant">$check-mu-copy-byte-to-stmt:error-src-too-large</span>: +<span id="L22736" class="LineNr">22736 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22737" class="LineNr">22737 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22738" class="LineNr">22738 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22739" class="LineNr">22739 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22740" class="LineNr">22740 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-byte-to: '"</span>) +<span id="L22741" class="LineNr">22741 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22742" class="LineNr">22742 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22743" class="LineNr">22743 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22744" class="LineNr">22744 </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="L22745" class="LineNr">22745 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22746" class="LineNr">22746 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22747" class="LineNr">22747 </span> <span class="subxComment"># never gets here</span> +<span id="L22748" class="LineNr">22748 </span> +<span id="L22749" class="LineNr">22749 </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="L22750" class="LineNr">22750 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L22751" class="LineNr">22751 </span> 55/push-ebp +<span id="L22752" class="LineNr">22752 </span> 89/<- %ebp 4/r32/esp +<span id="L22753" class="LineNr">22753 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L22754" class="LineNr">22754 </span> 50/push-eax +<span id="L22755" class="LineNr">22755 </span> 51/push-ecx +<span id="L22756" class="LineNr">22756 </span> 52/push-edx +<span id="L22757" class="LineNr">22757 </span> 53/push-ebx +<span id="L22758" class="LineNr">22758 </span> 56/push-esi +<span id="L22759" class="LineNr">22759 </span> 57/push-edi +<span id="L22760" class="LineNr">22760 </span> <span class="subxComment"># var type-parameters/edx: (addr table (handle array byte) (addr type-tree) 8)</span> +<span id="L22761" class="LineNr">22761 </span> 81 5/subop/subtract %esp 0x60/imm32 +<span id="L22762" class="LineNr">22762 </span> 68/push 0x60/imm32/size +<span id="L22763" class="LineNr">22763 </span> 68/push 0/imm32/read +<span id="L22764" class="LineNr">22764 </span> 68/push 0/imm32/write +<span id="L22765" class="LineNr">22765 </span> 89/<- %edx 4/r32/esp +<span id="L22766" class="LineNr">22766 </span> <span class="subxComment"># esi = stmt</span> +<span id="L22767" class="LineNr">22767 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L22768" class="LineNr">22768 </span><span class="Constant">$check-mu-compare-stmt:check-for-output</span>: +<span id="L22769" class="LineNr">22769 </span> <span class="subxComment"># if stmt->outputs abort</span> +<span id="L22770" class="LineNr">22770 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L22771" class="LineNr">22771 </span> 3d/compare-eax-and 0/imm32 +<span id="L22772" class="LineNr">22772 </span> 0f 85/jump-if-!= $check-mu-compare-stmt:error-too-many-outputs/disp32 +<span id="L22773" class="LineNr">22773 </span><span class="Constant">$check-mu-compare-stmt:get-left</span>: +<span id="L22774" class="LineNr">22774 </span> <span class="subxComment"># var left/edi: (addr stmt-var) = stmt->inouts</span> +<span id="L22775" class="LineNr">22775 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L22776" class="LineNr">22776 </span> 89/<- %edi 0/r32/eax +<span id="L22777" class="LineNr">22777 </span> <span class="subxComment"># zero inouts</span> +<span id="L22778" class="LineNr">22778 </span> 3d/compare-eax-and 0/imm32 +<span id="L22779" class="LineNr">22779 </span> 0f 84/jump-if-= $check-mu-compare-stmt:error-incorrect-inouts/disp32 +<span id="L22780" class="LineNr">22780 </span><span class="Constant">$check-mu-compare-stmt:get-right</span>: +<span id="L22781" class="LineNr">22781 </span> <span class="subxComment"># var right/esi: (addr stmt-var) = left->next</span> +<span id="L22782" class="LineNr">22782 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L22783" class="LineNr">22783 </span> 89/<- %esi 0/r32/eax +<span id="L22784" class="LineNr">22784 </span> <span class="subxComment"># 1 inout</span> +<span id="L22785" class="LineNr">22785 </span> 3d/compare-eax-and 0/imm32 +<span id="L22786" class="LineNr">22786 </span> 0f 84/jump-if-= $check-mu-compare-stmt:error-incorrect-inouts/disp32 +<span id="L22787" class="LineNr">22787 </span> <span class="subxComment"># > 2 inouts</span> +<span id="L22788" class="LineNr">22788 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L22789" class="LineNr">22789 </span> 3d/compare-eax-and 0/imm32 +<span id="L22790" class="LineNr">22790 </span> 0f 85/jump-if-!= $check-mu-compare-stmt:error-incorrect-inouts/disp32 +<span id="L22791" class="LineNr">22791 </span> <span class="subxComment"># if both inouts are in memory, abort</span> +<span id="L22792" class="LineNr">22792 </span> { +<span id="L22793" class="LineNr">22793 </span><span class="Constant">$check-mu-compare-stmt:both-in-mem</span>: +<span id="L22794" class="LineNr">22794 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22795" class="LineNr">22795 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22796" class="LineNr">22796 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> +<span id="L22797" class="LineNr">22797 </span> 3d/compare-eax-and 0/imm32 +<span id="L22798" class="LineNr">22798 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L22799" class="LineNr">22799 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22800" class="LineNr">22800 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L22801" class="LineNr">22801 </span> 3d/compare-eax-and 0/imm32 +<span id="L22802" class="LineNr">22802 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22803" class="LineNr">22803 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22804" class="LineNr">22804 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22805" class="LineNr">22805 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> +<span id="L22806" class="LineNr">22806 </span> 3d/compare-eax-and 0/imm32 +<span id="L22807" class="LineNr">22807 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22808" class="LineNr">22808 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22809" class="LineNr">22809 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L22810" class="LineNr">22810 </span> 3d/compare-eax-and 0/imm32 +<span id="L22811" class="LineNr">22811 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22812" class="LineNr">22812 </span> e9/jump $check-mu-compare-stmt:error-both-in-memory/disp32 +<span id="L22813" class="LineNr">22813 </span> } +<span id="L22814" class="LineNr">22814 </span><span class="Constant">$check-mu-compare-stmt:types</span>: +<span id="L22815" class="LineNr">22815 </span> <span class="subxComment"># var right-type/ecx: (addr type-tree) = right->value->type</span> <span id="L22816" class="LineNr">22816 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22817" class="LineNr">22817 </span> (<a href='mu.subx.html#L26553'>size-of</a> %eax) <span class="subxComment"># => eax</span> -<span id="L22818" class="LineNr">22818 </span> 3d/compare-eax-and 4/imm32 -<span id="L22819" class="LineNr">22819 </span> 0f 8f/jump-if-> $check-mu-compare-stmt:error-right-too-large/disp32 -<span id="L22820" class="LineNr">22820 </span> <span class="subxComment"># if left is not a scalar, abort</span> -<span id="L22821" class="LineNr">22821 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22822" class="LineNr">22822 </span> (<a href='mu.subx.html#L26553'>size-of</a> %eax) <span class="subxComment"># => eax</span> -<span id="L22823" class="LineNr">22823 </span> 3d/compare-eax-and 4/imm32 -<span id="L22824" class="LineNr">22824 </span> 0f 8f/jump-if-> $check-mu-compare-stmt:error-left-too-large/disp32 -<span id="L22825" class="LineNr">22825 </span> <span class="subxComment"># var left-type/ebx: (addr type-tree) = left->value->type</span> -<span id="L22826" class="LineNr">22826 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22827" class="LineNr">22827 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22828" class="LineNr">22828 </span> 89/<- %ebx 0/r32/eax -<span id="L22829" class="LineNr">22829 </span> <span class="subxComment"># if (left->is-deref?) left-type = left-type->payload</span> -<span id="L22830" class="LineNr">22830 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L22831" class="LineNr">22831 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22832" class="LineNr">22832 </span> { -<span id="L22833" class="LineNr">22833 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22834" class="LineNr">22834 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L22835" class="LineNr">22835 </span> <span class="subxComment"># if left-type->right is null, left-type = left-type->left</span> -<span id="L22836" class="LineNr">22836 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L22837" class="LineNr">22837 </span> { -<span id="L22838" class="LineNr">22838 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22839" class="LineNr">22839 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L22840" class="LineNr">22840 </span> } -<span id="L22841" class="LineNr">22841 </span> 89/<- %ebx 0/r32/eax -<span id="L22842" class="LineNr">22842 </span> } -<span id="L22843" class="LineNr">22843 </span> <span class="subxComment"># if (left-type == right-type) return</span> -<span id="L22844" class="LineNr">22844 </span> (<a href='mu.subx.html#L26394'>type-match?</a> %ebx %ecx %edx) <span class="subxComment"># => eax</span> -<span id="L22845" class="LineNr">22845 </span> 3d/compare-eax-and 0/imm32 -<span id="L22846" class="LineNr">22846 </span> 0f 85/jump-if-!= $check-mu-compare-stmt:end/disp32 -<span id="L22847" class="LineNr">22847 </span> <span class="subxComment"># if left is an addr and right is 0, return</span> -<span id="L22848" class="LineNr">22848 </span> { -<span id="L22849" class="LineNr">22849 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22850" class="LineNr">22850 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22851" class="LineNr">22851 </span> (<a href='mu.subx.html#L35916'>mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L22852" class="LineNr">22852 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22853" class="LineNr">22853 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22854" class="LineNr">22854 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22855" class="LineNr">22855 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22856" class="LineNr">22856 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> -<span id="L22857" class="LineNr">22857 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22858" class="LineNr">22858 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22859" class="LineNr">22859 </span> eb/jump $check-mu-compare-stmt:end/disp8 -<span id="L22860" class="LineNr">22860 </span> } -<span id="L22861" class="LineNr">22861 </span> <span class="subxComment"># if left is not number-like, abort</span> -<span id="L22862" class="LineNr">22862 </span> (<a href='mu.subx.html#L21829'>check-mu-numberlike-arg</a> %edi *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L22863" class="LineNr">22863 </span><span class="Constant">$check-mu-compare-stmt:end</span>: -<span id="L22864" class="LineNr">22864 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L22865" class="LineNr">22865 </span> 81 0/subop/add %esp 0x6c/imm32 -<span id="L22866" class="LineNr">22866 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L22867" class="LineNr">22867 </span> 5f/pop-to-edi -<span id="L22868" class="LineNr">22868 </span> 5e/pop-to-esi -<span id="L22869" class="LineNr">22869 </span> 5b/pop-to-ebx -<span id="L22870" class="LineNr">22870 </span> 5a/pop-to-edx -<span id="L22871" class="LineNr">22871 </span> 59/pop-to-ecx -<span id="L22872" class="LineNr">22872 </span> 58/pop-to-eax -<span id="L22873" class="LineNr">22873 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L22874" class="LineNr">22874 </span> 89/<- %esp 5/r32/ebp -<span id="L22875" class="LineNr">22875 </span> 5d/pop-to-ebp -<span id="L22876" class="LineNr">22876 </span> c3/return -<span id="L22877" class="LineNr">22877 </span> -<span id="L22878" class="LineNr">22878 </span><span class="Constant">$check-mu-compare-stmt:error-incorrect-inouts</span>: -<span id="L22879" class="LineNr">22879 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22880" class="LineNr">22880 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22881" class="LineNr">22881 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22882" class="LineNr">22882 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22883" class="LineNr">22883 </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="L22884" class="LineNr">22884 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22885" class="LineNr">22885 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22886" class="LineNr">22886 </span> <span class="subxComment"># never gets here</span> -<span id="L22887" class="LineNr">22887 </span> -<span id="L22888" class="LineNr">22888 </span><span class="Constant">$check-mu-compare-stmt:error-too-many-outputs</span>: -<span id="L22889" class="LineNr">22889 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22890" class="LineNr">22890 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22891" class="LineNr">22891 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22892" class="LineNr">22892 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22893" class="LineNr">22893 </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="L22894" class="LineNr">22894 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22895" class="LineNr">22895 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22896" class="LineNr">22896 </span> <span class="subxComment"># never gets here</span> -<span id="L22897" class="LineNr">22897 </span> -<span id="L22898" class="LineNr">22898 </span><span class="Constant">$check-mu-compare-stmt:error-both-in-memory</span>: -<span id="L22899" class="LineNr">22899 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22900" class="LineNr">22900 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22901" class="LineNr">22901 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22902" class="LineNr">22902 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22903" class="LineNr">22903 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compare: both inouts are in memory\n"</span>) -<span id="L22904" class="LineNr">22904 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22905" class="LineNr">22905 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22906" class="LineNr">22906 </span> <span class="subxComment"># never gets here</span> -<span id="L22907" class="LineNr">22907 </span> -<span id="L22908" class="LineNr">22908 </span><span class="Constant">$check-mu-compare-stmt:error-left-too-large</span>: -<span id="L22909" class="LineNr">22909 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22910" class="LineNr">22910 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22911" class="LineNr">22911 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22912" class="LineNr">22912 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22913" class="LineNr">22913 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compare: '"</span>) -<span id="L22914" class="LineNr">22914 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22915" class="LineNr">22915 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22916" class="LineNr">22916 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22917" class="LineNr">22917 </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="L22918" class="LineNr">22918 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22919" class="LineNr">22919 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22920" class="LineNr">22920 </span> <span class="subxComment"># never gets here</span> -<span id="L22921" class="LineNr">22921 </span> -<span id="L22922" class="LineNr">22922 </span><span class="Constant">$check-mu-compare-stmt:error-right-too-large</span>: -<span id="L22923" class="LineNr">22923 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22924" class="LineNr">22924 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22925" class="LineNr">22925 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-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">": stmt compare: '"</span>) -<span id="L22928" class="LineNr">22928 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22929" class="LineNr">22929 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22930" class="LineNr">22930 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22931" class="LineNr">22931 </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="L22932" class="LineNr">22932 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22933" class="LineNr">22933 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22934" class="LineNr">22934 </span> <span class="subxComment"># never gets here</span> -<span id="L22935" class="LineNr">22935 </span> -<span id="L22936" class="LineNr">22936 </span><span class="Constant">$check-mu-compare-stmt:error-right-string-literal</span>: -<span id="L22937" class="LineNr">22937 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22938" class="LineNr">22938 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22939" class="LineNr">22939 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22940" class="LineNr">22940 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22941" class="LineNr">22941 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compare: string literal "</span>) -<span id="L22942" class="LineNr">22942 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22943" class="LineNr">22943 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22944" class="LineNr">22944 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22945" class="LineNr">22945 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">" is not supported; use the <a href='105string-equal.subx.html#L15'>string-equal?</a> function\n"</span>) -<span id="L22946" class="LineNr">22946 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22947" class="LineNr">22947 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22948" class="LineNr">22948 </span> <span class="subxComment"># never gets here</span> -<span id="L22949" class="LineNr">22949 </span> -<span id="L22950" class="LineNr">22950 </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="L22951" class="LineNr">22951 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L22952" class="LineNr">22952 </span> 55/push-ebp -<span id="L22953" class="LineNr">22953 </span> 89/<- %ebp 4/r32/esp -<span id="L22954" class="LineNr">22954 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L22955" class="LineNr">22955 </span> 50/push-eax -<span id="L22956" class="LineNr">22956 </span> 51/push-ecx -<span id="L22957" class="LineNr">22957 </span> 52/push-edx -<span id="L22958" class="LineNr">22958 </span> 56/push-esi -<span id="L22959" class="LineNr">22959 </span> 57/push-edi -<span id="L22960" class="LineNr">22960 </span><span class="Constant">$check-mu-address-stmt:get-output</span>: -<span id="L22961" class="LineNr">22961 </span> <span class="subxComment"># esi = stmt</span> -<span id="L22962" class="LineNr">22962 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L22963" class="LineNr">22963 </span> <span class="subxComment"># var output/edi: (addr stmt-var) = stmt->outputs</span> -<span id="L22964" class="LineNr">22964 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L22965" class="LineNr">22965 </span> 89/<- %edi 0/r32/eax -<span id="L22966" class="LineNr">22966 </span> <span class="subxComment"># zero outputs</span> -<span id="L22967" class="LineNr">22967 </span> 3d/compare-eax-and 0/imm32 -<span id="L22968" class="LineNr">22968 </span> 0f 84/jump-if-= $check-mu-address-stmt:error-no-output/disp32 -<span id="L22969" class="LineNr">22969 </span> <span class="subxComment"># > 1 output</span> -<span id="L22970" class="LineNr">22970 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L22971" class="LineNr">22971 </span> 3d/compare-eax-and 0/imm32 -<span id="L22972" class="LineNr">22972 </span> 0f 85/jump-if-!= $check-mu-address-stmt:error-too-many-outputs/disp32 -<span id="L22973" class="LineNr">22973 </span><span class="Constant">$check-mu-address-stmt:get-inout</span>: -<span id="L22974" class="LineNr">22974 </span> <span class="subxComment"># var inout/esi: (addr stmt-var) = stmt->inouts</span> -<span id="L22975" class="LineNr">22975 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L22976" class="LineNr">22976 </span> 89/<- %esi 0/r32/eax -<span id="L22977" class="LineNr">22977 </span> <span class="subxComment"># zero inouts</span> -<span id="L22978" class="LineNr">22978 </span> 3d/compare-eax-and 0/imm32 -<span id="L22979" class="LineNr">22979 </span> 0f 84/jump-if-= $check-mu-address-stmt:error-no-inout/disp32 -<span id="L22980" class="LineNr">22980 </span> <span class="subxComment"># > 1 inout</span> -<span id="L22981" class="LineNr">22981 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L22982" class="LineNr">22982 </span> 3d/compare-eax-and 0/imm32 -<span id="L22983" class="LineNr">22983 </span> 0f 85/jump-if-!= $check-mu-address-stmt:error-too-many-inouts/disp32 -<span id="L22984" class="LineNr">22984 </span><span class="Constant">$check-mu-address-stmt:types</span>: -<span id="L22985" class="LineNr">22985 </span> <span class="subxComment"># if output not in register, abort</span> -<span id="L22986" class="LineNr">22986 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22987" class="LineNr">22987 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L22988" class="LineNr">22988 </span> 3d/compare-eax-and 0/imm32 -<span id="L22989" class="LineNr">22989 </span> 0f 84/jump-if-= $check-mu-address-stmt:error-output-not-in-register/disp32 -<span id="L22990" class="LineNr">22990 </span> <span class="subxComment"># var output-type/edx: (addr type-tree) = output->value->type</span> -<span id="L22991" class="LineNr">22991 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22992" class="LineNr">22992 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22993" class="LineNr">22993 </span> 89/<- %edx 0/r32/eax -<span id="L22994" class="LineNr">22994 </span> <span class="subxComment"># if output-type not an addr, abort</span> -<span id="L22995" class="LineNr">22995 </span> (<a href='mu.subx.html#L35916'>mu-addr-type?</a> %edx) <span class="subxComment"># => eax</span> -<span id="L22996" class="LineNr">22996 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22997" class="LineNr">22997 </span> 0f 84/jump-if-= $check-mu-address-stmt:error-output-not-address/disp32 -<span id="L22998" class="LineNr">22998 </span> <span class="subxComment"># output-type = output-type->right</span> -<span id="L22999" class="LineNr">22999 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0xc) *(edx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L23000" class="LineNr">23000 </span> <span class="subxComment"># if output-type->right is null, output-type = output-type->left</span> -<span id="L23001" class="LineNr">23001 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L23002" class="LineNr">23002 </span> { -<span id="L23003" class="LineNr">23003 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L23004" class="LineNr">23004 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L23005" class="LineNr">23005 </span> } -<span id="L23006" class="LineNr">23006 </span> 89/<- %edx 0/r32/eax -<span id="L23007" class="LineNr">23007 </span> <span class="subxComment"># var inout-type/ecx: (addr type-tree) = inout->value->type</span> -<span id="L23008" class="LineNr">23008 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L23009" class="LineNr">23009 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L23010" class="LineNr">23010 </span> 89/<- %ecx 0/r32/eax -<span id="L23011" class="LineNr">23011 </span> <span class="subxComment"># if (inout->is-deref?) inout-type = inout-type->payload</span> -<span id="L23012" class="LineNr">23012 </span> 8b/-> *(esi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L23013" class="LineNr">23013 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23014" class="LineNr">23014 </span> { -<span id="L23015" class="LineNr">23015 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23016" class="LineNr">23016 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L23017" class="LineNr">23017 </span> <span class="subxComment"># if inout-type->right is null, t = inout-type->left</span> -<span id="L23018" class="LineNr">23018 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L23019" class="LineNr">23019 </span> { -<span id="L23020" class="LineNr">23020 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L23021" class="LineNr">23021 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L23022" class="LineNr">23022 </span> } -<span id="L23023" class="LineNr">23023 </span> 89/<- %ecx 0/r32/eax -<span id="L23024" class="LineNr">23024 </span> } -<span id="L23025" class="LineNr">23025 </span> <span class="subxComment"># if (inout-type != output-type) abort</span> -<span id="L23026" class="LineNr">23026 </span> (<a href='mu.subx.html#L23127'>type-equal-ignoring-capacity?</a> %edx %ecx) <span class="subxComment"># => eax</span> -<span id="L23027" class="LineNr">23027 </span> 3d/compare-eax-and 0/imm32 -<span id="L23028" class="LineNr">23028 </span> 0f 84/jump-if-= $check-mu-address-stmt:error-type-mismatch/disp32 -<span id="L23029" class="LineNr">23029 </span><span class="Constant">$check-mu-address-stmt:end</span>: -<span id="L23030" class="LineNr">23030 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L23031" class="LineNr">23031 </span> 5f/pop-to-edi -<span id="L23032" class="LineNr">23032 </span> 5e/pop-to-esi -<span id="L23033" class="LineNr">23033 </span> 5a/pop-to-edx -<span id="L23034" class="LineNr">23034 </span> 59/pop-to-ecx -<span id="L23035" class="LineNr">23035 </span> 58/pop-to-eax -<span id="L23036" class="LineNr">23036 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23037" class="LineNr">23037 </span> 89/<- %esp 5/r32/ebp -<span id="L23038" class="LineNr">23038 </span> 5d/pop-to-ebp -<span id="L23039" class="LineNr">23039 </span> c3/return -<span id="L23040" class="LineNr">23040 </span> -<span id="L23041" class="LineNr">23041 </span><span class="Constant">$check-mu-address-stmt:error-no-inout</span>: -<span id="L23042" class="LineNr">23042 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23043" class="LineNr">23043 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23044" class="LineNr">23044 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23045" class="LineNr">23045 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23046" class="LineNr">23046 </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="L23047" class="LineNr">23047 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23048" class="LineNr">23048 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23049" class="LineNr">23049 </span> <span class="subxComment"># never gets here</span> -<span id="L23050" class="LineNr">23050 </span> -<span id="L23051" class="LineNr">23051 </span><span class="Constant">$check-mu-address-stmt:error-too-many-inouts</span>: -<span id="L23052" class="LineNr">23052 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23053" class="LineNr">23053 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23054" class="LineNr">23054 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23055" class="LineNr">23055 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23056" class="LineNr">23056 </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="L23057" class="LineNr">23057 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23058" class="LineNr">23058 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23059" class="LineNr">23059 </span> <span class="subxComment"># never gets here</span> -<span id="L23060" class="LineNr">23060 </span> -<span id="L23061" class="LineNr">23061 </span><span class="Constant">$check-mu-address-stmt:error-no-output</span>: -<span id="L23062" class="LineNr">23062 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23063" class="LineNr">23063 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23064" class="LineNr">23064 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23065" class="LineNr">23065 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23066" class="LineNr">23066 </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="L23067" class="LineNr">23067 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23068" class="LineNr">23068 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23069" class="LineNr">23069 </span> <span class="subxComment"># never gets here</span> -<span id="L23070" class="LineNr">23070 </span> -<span id="L23071" class="LineNr">23071 </span><span class="Constant">$check-mu-address-stmt:error-output-not-in-register</span>: -<span id="L23072" class="LineNr">23072 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23073" class="LineNr">23073 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23074" class="LineNr">23074 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23075" class="LineNr">23075 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23076" class="LineNr">23076 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt address: output '"</span>) -<span id="L23077" class="LineNr">23077 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L23078" class="LineNr">23078 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L23079" class="LineNr">23079 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23080" class="LineNr">23080 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' not in a register\n"</span>) -<span id="L23081" class="LineNr">23081 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23082" class="LineNr">23082 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23083" class="LineNr">23083 </span> <span class="subxComment"># never gets here</span> -<span id="L23084" class="LineNr">23084 </span> -<span id="L23085" class="LineNr">23085 </span><span class="Constant">$check-mu-address-stmt:error-too-many-outputs</span>: -<span id="L23086" class="LineNr">23086 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23087" class="LineNr">23087 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23088" class="LineNr">23088 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23089" class="LineNr">23089 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23090" class="LineNr">23090 </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="L23091" class="LineNr">23091 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23092" class="LineNr">23092 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23093" class="LineNr">23093 </span> <span class="subxComment"># never gets here</span> -<span id="L23094" class="LineNr">23094 </span> -<span id="L23095" class="LineNr">23095 </span><span class="Constant">$check-mu-address-stmt:error-output-not-address</span>: -<span id="L23096" class="LineNr">23096 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23097" class="LineNr">23097 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23098" class="LineNr">23098 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23099" class="LineNr">23099 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23100" class="LineNr">23100 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt address: output '"</span>) -<span id="L23101" class="LineNr">23101 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L23102" class="LineNr">23102 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L23103" class="LineNr">23103 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23104" class="LineNr">23104 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is not an addr\n"</span>) -<span id="L23105" class="LineNr">23105 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23106" class="LineNr">23106 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23107" class="LineNr">23107 </span> <span class="subxComment"># never gets here</span> -<span id="L23108" class="LineNr">23108 </span> -<span id="L23109" class="LineNr">23109 </span><span class="Constant">$check-mu-address-stmt:error-type-mismatch</span>: -<span id="L23110" class="LineNr">23110 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23111" class="LineNr">23111 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23112" class="LineNr">23112 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23113" class="LineNr">23113 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23114" class="LineNr">23114 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt address: output '"</span>) -<span id="L23115" class="LineNr">23115 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L23116" class="LineNr">23116 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L23117" class="LineNr">23117 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23118" class="LineNr">23118 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' cannot hold address of '"</span>) -<span id="L23119" class="LineNr">23119 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L23120" class="LineNr">23120 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22817" class="LineNr">22817 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22818" class="LineNr">22818 </span> 89/<- %ecx 0/r32/eax +<span id="L22819" class="LineNr">22819 </span> <span class="subxComment"># if (right->is-deref?) right-type = right-type->payload</span> +<span id="L22820" class="LineNr">22820 </span> 8b/-> *(esi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L22821" class="LineNr">22821 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22822" class="LineNr">22822 </span> { +<span id="L22823" class="LineNr">22823 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22824" class="LineNr">22824 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L22825" class="LineNr">22825 </span> <span class="subxComment"># if right-type->right is null, right-type = right-type->left</span> +<span id="L22826" class="LineNr">22826 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L22827" class="LineNr">22827 </span> { +<span id="L22828" class="LineNr">22828 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22829" class="LineNr">22829 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L22830" class="LineNr">22830 </span> } +<span id="L22831" class="LineNr">22831 </span> 89/<- %ecx 0/r32/eax +<span id="L22832" class="LineNr">22832 </span> } +<span id="L22833" class="LineNr">22833 </span> <span class="subxComment"># if right-type is a literal string, abort</span> +<span id="L22834" class="LineNr">22834 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %ecx 0x10) <span class="subxComment"># string-literal => eax</span> +<span id="L22835" class="LineNr">22835 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22836" class="LineNr">22836 </span> 0f 85/jump-if-!= $check-mu-compare-stmt:error-right-string-literal/disp32 +<span id="L22837" class="LineNr">22837 </span> <span class="subxComment"># if right is not a scalar, abort</span> +<span id="L22838" class="LineNr">22838 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22839" class="LineNr">22839 </span> (<a href='mu.subx.html#L26575'>size-of</a> %eax) <span class="subxComment"># => eax</span> +<span id="L22840" class="LineNr">22840 </span> 3d/compare-eax-and 4/imm32 +<span id="L22841" class="LineNr">22841 </span> 0f 8f/jump-if-> $check-mu-compare-stmt:error-right-too-large/disp32 +<span id="L22842" class="LineNr">22842 </span> <span class="subxComment"># if left is not a scalar, abort</span> +<span id="L22843" class="LineNr">22843 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22844" class="LineNr">22844 </span> (<a href='mu.subx.html#L26575'>size-of</a> %eax) <span class="subxComment"># => eax</span> +<span id="L22845" class="LineNr">22845 </span> 3d/compare-eax-and 4/imm32 +<span id="L22846" class="LineNr">22846 </span> 0f 8f/jump-if-> $check-mu-compare-stmt:error-left-too-large/disp32 +<span id="L22847" class="LineNr">22847 </span> <span class="subxComment"># var left-type/ebx: (addr type-tree) = left->value->type</span> +<span id="L22848" class="LineNr">22848 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22849" class="LineNr">22849 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22850" class="LineNr">22850 </span> 89/<- %ebx 0/r32/eax +<span id="L22851" class="LineNr">22851 </span> <span class="subxComment"># if (left->is-deref?) left-type = left-type->payload</span> +<span id="L22852" class="LineNr">22852 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L22853" class="LineNr">22853 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22854" class="LineNr">22854 </span> { +<span id="L22855" class="LineNr">22855 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22856" class="LineNr">22856 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L22857" class="LineNr">22857 </span> <span class="subxComment"># if left-type->right is null, left-type = left-type->left</span> +<span id="L22858" class="LineNr">22858 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L22859" class="LineNr">22859 </span> { +<span id="L22860" class="LineNr">22860 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22861" class="LineNr">22861 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L22862" class="LineNr">22862 </span> } +<span id="L22863" class="LineNr">22863 </span> 89/<- %ebx 0/r32/eax +<span id="L22864" class="LineNr">22864 </span> } +<span id="L22865" class="LineNr">22865 </span> <span class="subxComment"># if (left-type == right-type) return</span> +<span id="L22866" class="LineNr">22866 </span> (<a href='mu.subx.html#L26416'>type-match?</a> %ebx %ecx %edx) <span class="subxComment"># => eax</span> +<span id="L22867" class="LineNr">22867 </span> 3d/compare-eax-and 0/imm32 +<span id="L22868" class="LineNr">22868 </span> 0f 85/jump-if-!= $check-mu-compare-stmt:end/disp32 +<span id="L22869" class="LineNr">22869 </span> <span class="subxComment"># if left is an addr and right is 0, return</span> +<span id="L22870" class="LineNr">22870 </span> { +<span id="L22871" class="LineNr">22871 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22872" class="LineNr">22872 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22873" class="LineNr">22873 </span> (<a href='mu.subx.html#L36245'>mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L22874" class="LineNr">22874 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22875" class="LineNr">22875 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22876" class="LineNr">22876 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22877" class="LineNr">22877 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22878" class="LineNr">22878 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> +<span id="L22879" class="LineNr">22879 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22880" class="LineNr">22880 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22881" class="LineNr">22881 </span> eb/jump $check-mu-compare-stmt:end/disp8 +<span id="L22882" class="LineNr">22882 </span> } +<span id="L22883" class="LineNr">22883 </span> <span class="subxComment"># if left is not number-like, abort</span> +<span id="L22884" class="LineNr">22884 </span> (<a href='mu.subx.html#L21851'>check-mu-numberlike-arg</a> %edi *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L22885" class="LineNr">22885 </span><span class="Constant">$check-mu-compare-stmt:end</span>: +<span id="L22886" class="LineNr">22886 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L22887" class="LineNr">22887 </span> 81 0/subop/add %esp 0x6c/imm32 +<span id="L22888" class="LineNr">22888 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L22889" class="LineNr">22889 </span> 5f/pop-to-edi +<span id="L22890" class="LineNr">22890 </span> 5e/pop-to-esi +<span id="L22891" class="LineNr">22891 </span> 5b/pop-to-ebx +<span id="L22892" class="LineNr">22892 </span> 5a/pop-to-edx +<span id="L22893" class="LineNr">22893 </span> 59/pop-to-ecx +<span id="L22894" class="LineNr">22894 </span> 58/pop-to-eax +<span id="L22895" class="LineNr">22895 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L22896" class="LineNr">22896 </span> 89/<- %esp 5/r32/ebp +<span id="L22897" class="LineNr">22897 </span> 5d/pop-to-ebp +<span id="L22898" class="LineNr">22898 </span> c3/return +<span id="L22899" class="LineNr">22899 </span> +<span id="L22900" class="LineNr">22900 </span><span class="Constant">$check-mu-compare-stmt:error-incorrect-inouts</span>: +<span id="L22901" class="LineNr">22901 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22902" class="LineNr">22902 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22903" class="LineNr">22903 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22904" class="LineNr">22904 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22905" class="LineNr">22905 </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="L22906" class="LineNr">22906 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22907" class="LineNr">22907 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22908" class="LineNr">22908 </span> <span class="subxComment"># never gets here</span> +<span id="L22909" class="LineNr">22909 </span> +<span id="L22910" class="LineNr">22910 </span><span class="Constant">$check-mu-compare-stmt:error-too-many-outputs</span>: +<span id="L22911" class="LineNr">22911 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22912" class="LineNr">22912 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22913" class="LineNr">22913 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22914" class="LineNr">22914 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22915" class="LineNr">22915 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'compare' must not have any outputs\n"</span>) +<span id="L22916" class="LineNr">22916 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22917" class="LineNr">22917 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22918" class="LineNr">22918 </span> <span class="subxComment"># never gets here</span> +<span id="L22919" class="LineNr">22919 </span> +<span id="L22920" class="LineNr">22920 </span><span class="Constant">$check-mu-compare-stmt:error-both-in-memory</span>: +<span id="L22921" class="LineNr">22921 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22922" class="LineNr">22922 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22923" class="LineNr">22923 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22924" class="LineNr">22924 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22925" class="LineNr">22925 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compare: both inouts are in memory\n"</span>) +<span id="L22926" class="LineNr">22926 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22927" class="LineNr">22927 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22928" class="LineNr">22928 </span> <span class="subxComment"># never gets here</span> +<span id="L22929" class="LineNr">22929 </span> +<span id="L22930" class="LineNr">22930 </span><span class="Constant">$check-mu-compare-stmt:error-left-too-large</span>: +<span id="L22931" class="LineNr">22931 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22932" class="LineNr">22932 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22933" class="LineNr">22933 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22934" class="LineNr">22934 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22935" class="LineNr">22935 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compare: '"</span>) +<span id="L22936" class="LineNr">22936 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22937" class="LineNr">22937 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+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 too large to compare\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-compare-stmt:error-right-too-large</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#L258'>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 compare: '"</span>) +<span id="L22950" class="LineNr">22950 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22951" class="LineNr">22951 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+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">"' is too large to compare\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="Constant">$check-mu-compare-stmt:error-right-string-literal</span>: +<span id="L22959" class="LineNr">22959 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22960" class="LineNr">22960 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22961" class="LineNr">22961 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22962" class="LineNr">22962 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22963" class="LineNr">22963 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compare: string literal "</span>) +<span id="L22964" class="LineNr">22964 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22965" class="LineNr">22965 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22966" class="LineNr">22966 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22967" class="LineNr">22967 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">" is not supported; use the <a href='105string-equal.subx.html#L15'>string-equal?</a> function\n"</span>) +<span id="L22968" class="LineNr">22968 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22969" class="LineNr">22969 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22970" class="LineNr">22970 </span> <span class="subxComment"># never gets here</span> +<span id="L22971" class="LineNr">22971 </span> +<span id="L22972" class="LineNr">22972 </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="L22973" class="LineNr">22973 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L22974" class="LineNr">22974 </span> 55/push-ebp +<span id="L22975" class="LineNr">22975 </span> 89/<- %ebp 4/r32/esp +<span id="L22976" class="LineNr">22976 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L22977" class="LineNr">22977 </span> 50/push-eax +<span id="L22978" class="LineNr">22978 </span> 51/push-ecx +<span id="L22979" class="LineNr">22979 </span> 52/push-edx +<span id="L22980" class="LineNr">22980 </span> 56/push-esi +<span id="L22981" class="LineNr">22981 </span> 57/push-edi +<span id="L22982" class="LineNr">22982 </span><span class="Constant">$check-mu-address-stmt:get-output</span>: +<span id="L22983" class="LineNr">22983 </span> <span class="subxComment"># esi = stmt</span> +<span id="L22984" class="LineNr">22984 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L22985" class="LineNr">22985 </span> <span class="subxComment"># var output/edi: (addr stmt-var) = stmt->outputs</span> +<span id="L22986" class="LineNr">22986 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L22987" class="LineNr">22987 </span> 89/<- %edi 0/r32/eax +<span id="L22988" class="LineNr">22988 </span> <span class="subxComment"># zero outputs</span> +<span id="L22989" class="LineNr">22989 </span> 3d/compare-eax-and 0/imm32 +<span id="L22990" class="LineNr">22990 </span> 0f 84/jump-if-= $check-mu-address-stmt:error-no-output/disp32 +<span id="L22991" class="LineNr">22991 </span> <span class="subxComment"># > 1 output</span> +<span id="L22992" class="LineNr">22992 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L22993" class="LineNr">22993 </span> 3d/compare-eax-and 0/imm32 +<span id="L22994" class="LineNr">22994 </span> 0f 85/jump-if-!= $check-mu-address-stmt:error-too-many-outputs/disp32 +<span id="L22995" class="LineNr">22995 </span><span class="Constant">$check-mu-address-stmt:get-inout</span>: +<span id="L22996" class="LineNr">22996 </span> <span class="subxComment"># var inout/esi: (addr stmt-var) = stmt->inouts</span> +<span id="L22997" class="LineNr">22997 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L22998" class="LineNr">22998 </span> 89/<- %esi 0/r32/eax +<span id="L22999" class="LineNr">22999 </span> <span class="subxComment"># zero inouts</span> +<span id="L23000" class="LineNr">23000 </span> 3d/compare-eax-and 0/imm32 +<span id="L23001" class="LineNr">23001 </span> 0f 84/jump-if-= $check-mu-address-stmt:error-no-inout/disp32 +<span id="L23002" class="LineNr">23002 </span> <span class="subxComment"># > 1 inout</span> +<span id="L23003" class="LineNr">23003 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L23004" class="LineNr">23004 </span> 3d/compare-eax-and 0/imm32 +<span id="L23005" class="LineNr">23005 </span> 0f 85/jump-if-!= $check-mu-address-stmt:error-too-many-inouts/disp32 +<span id="L23006" class="LineNr">23006 </span><span class="Constant">$check-mu-address-stmt:types</span>: +<span id="L23007" class="LineNr">23007 </span> <span class="subxComment"># if output not in register, abort</span> +<span id="L23008" class="LineNr">23008 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L23009" class="LineNr">23009 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L23010" class="LineNr">23010 </span> 3d/compare-eax-and 0/imm32 +<span id="L23011" class="LineNr">23011 </span> 0f 84/jump-if-= $check-mu-address-stmt:error-output-not-in-register/disp32 +<span id="L23012" class="LineNr">23012 </span> <span class="subxComment"># var output-type/edx: (addr type-tree) = output->value->type</span> +<span id="L23013" class="LineNr">23013 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L23014" class="LineNr">23014 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L23015" class="LineNr">23015 </span> 89/<- %edx 0/r32/eax +<span id="L23016" class="LineNr">23016 </span> <span class="subxComment"># if output-type not an addr, abort</span> +<span id="L23017" class="LineNr">23017 </span> (<a href='mu.subx.html#L36245'>mu-addr-type?</a> %edx) <span class="subxComment"># => eax</span> +<span id="L23018" class="LineNr">23018 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23019" class="LineNr">23019 </span> 0f 84/jump-if-= $check-mu-address-stmt:error-output-not-address/disp32 +<span id="L23020" class="LineNr">23020 </span> <span class="subxComment"># output-type = output-type->right</span> +<span id="L23021" class="LineNr">23021 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0xc) *(edx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L23022" class="LineNr">23022 </span> <span class="subxComment"># if output-type->right is null, output-type = output-type->left</span> +<span id="L23023" class="LineNr">23023 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L23024" class="LineNr">23024 </span> { +<span id="L23025" class="LineNr">23025 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23026" class="LineNr">23026 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L23027" class="LineNr">23027 </span> } +<span id="L23028" class="LineNr">23028 </span> 89/<- %edx 0/r32/eax +<span id="L23029" class="LineNr">23029 </span> <span class="subxComment"># var inout-type/ecx: (addr type-tree) = inout->value->type</span> +<span id="L23030" class="LineNr">23030 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L23031" class="LineNr">23031 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L23032" class="LineNr">23032 </span> 89/<- %ecx 0/r32/eax +<span id="L23033" class="LineNr">23033 </span> <span class="subxComment"># if (inout->is-deref?) inout-type = inout-type->payload</span> +<span id="L23034" class="LineNr">23034 </span> 8b/-> *(esi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L23035" class="LineNr">23035 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23036" class="LineNr">23036 </span> { +<span id="L23037" class="LineNr">23037 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23038" class="LineNr">23038 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L23039" class="LineNr">23039 </span> <span class="subxComment"># if inout-type->right is null, t = inout-type->left</span> +<span id="L23040" class="LineNr">23040 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L23041" class="LineNr">23041 </span> { +<span id="L23042" class="LineNr">23042 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23043" class="LineNr">23043 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L23044" class="LineNr">23044 </span> } +<span id="L23045" class="LineNr">23045 </span> 89/<- %ecx 0/r32/eax +<span id="L23046" class="LineNr">23046 </span> } +<span id="L23047" class="LineNr">23047 </span> <span class="subxComment"># if (inout-type != output-type) abort</span> +<span id="L23048" class="LineNr">23048 </span> (<a href='mu.subx.html#L23149'>type-equal-ignoring-capacity?</a> %edx %ecx) <span class="subxComment"># => eax</span> +<span id="L23049" class="LineNr">23049 </span> 3d/compare-eax-and 0/imm32 +<span id="L23050" class="LineNr">23050 </span> 0f 84/jump-if-= $check-mu-address-stmt:error-type-mismatch/disp32 +<span id="L23051" class="LineNr">23051 </span><span class="Constant">$check-mu-address-stmt:end</span>: +<span id="L23052" class="LineNr">23052 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23053" class="LineNr">23053 </span> 5f/pop-to-edi +<span id="L23054" class="LineNr">23054 </span> 5e/pop-to-esi +<span id="L23055" class="LineNr">23055 </span> 5a/pop-to-edx +<span id="L23056" class="LineNr">23056 </span> 59/pop-to-ecx +<span id="L23057" class="LineNr">23057 </span> 58/pop-to-eax +<span id="L23058" class="LineNr">23058 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23059" class="LineNr">23059 </span> 89/<- %esp 5/r32/ebp +<span id="L23060" class="LineNr">23060 </span> 5d/pop-to-ebp +<span id="L23061" class="LineNr">23061 </span> c3/return +<span id="L23062" class="LineNr">23062 </span> +<span id="L23063" class="LineNr">23063 </span><span class="Constant">$check-mu-address-stmt:error-no-inout</span>: +<span id="L23064" class="LineNr">23064 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23065" class="LineNr">23065 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23066" class="LineNr">23066 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23067" class="LineNr">23067 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23068" class="LineNr">23068 </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="L23069" class="LineNr">23069 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23070" class="LineNr">23070 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23071" class="LineNr">23071 </span> <span class="subxComment"># never gets here</span> +<span id="L23072" class="LineNr">23072 </span> +<span id="L23073" class="LineNr">23073 </span><span class="Constant">$check-mu-address-stmt:error-too-many-inouts</span>: +<span id="L23074" class="LineNr">23074 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23075" class="LineNr">23075 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23076" class="LineNr">23076 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23077" class="LineNr">23077 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23078" class="LineNr">23078 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'address' must have just one inout\n"</span>) +<span id="L23079" class="LineNr">23079 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23080" class="LineNr">23080 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23081" class="LineNr">23081 </span> <span class="subxComment"># never gets here</span> +<span id="L23082" class="LineNr">23082 </span> +<span id="L23083" class="LineNr">23083 </span><span class="Constant">$check-mu-address-stmt:error-no-output</span>: +<span id="L23084" class="LineNr">23084 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23085" class="LineNr">23085 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23086" class="LineNr">23086 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23087" class="LineNr">23087 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23088" class="LineNr">23088 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'address' expects an output\n"</span>) +<span id="L23089" class="LineNr">23089 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23090" class="LineNr">23090 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23091" class="LineNr">23091 </span> <span class="subxComment"># never gets here</span> +<span id="L23092" class="LineNr">23092 </span> +<span id="L23093" class="LineNr">23093 </span><span class="Constant">$check-mu-address-stmt:error-output-not-in-register</span>: +<span id="L23094" class="LineNr">23094 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23095" class="LineNr">23095 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23096" class="LineNr">23096 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23097" class="LineNr">23097 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23098" class="LineNr">23098 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt address: output '"</span>) +<span id="L23099" class="LineNr">23099 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L23100" class="LineNr">23100 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23101" class="LineNr">23101 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23102" class="LineNr">23102 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' not in a register\n"</span>) +<span id="L23103" class="LineNr">23103 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23104" class="LineNr">23104 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23105" class="LineNr">23105 </span> <span class="subxComment"># never gets here</span> +<span id="L23106" class="LineNr">23106 </span> +<span id="L23107" class="LineNr">23107 </span><span class="Constant">$check-mu-address-stmt:error-too-many-outputs</span>: +<span id="L23108" class="LineNr">23108 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23109" class="LineNr">23109 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23110" class="LineNr">23110 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23111" class="LineNr">23111 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23112" class="LineNr">23112 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'address' must have just one output\n"</span>) +<span id="L23113" class="LineNr">23113 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23114" class="LineNr">23114 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23115" class="LineNr">23115 </span> <span class="subxComment"># never gets here</span> +<span id="L23116" class="LineNr">23116 </span> +<span id="L23117" class="LineNr">23117 </span><span class="Constant">$check-mu-address-stmt:error-output-not-address</span>: +<span id="L23118" class="LineNr">23118 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23119" class="LineNr">23119 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23120" class="LineNr">23120 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> <span id="L23121" class="LineNr">23121 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23122" class="LineNr">23122 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) -<span id="L23123" class="LineNr">23123 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23124" class="LineNr">23124 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23125" class="LineNr">23125 </span> <span class="subxComment"># never gets here</span> -<span id="L23126" class="LineNr">23126 </span> -<span id="L23127" class="LineNr">23127 </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="L23128" class="LineNr">23128 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23129" class="LineNr">23129 </span> 55/push-ebp -<span id="L23130" class="LineNr">23130 </span> 89/<- %ebp 4/r32/esp -<span id="L23131" class="LineNr">23131 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L23132" class="LineNr">23132 </span> 51/push-ecx -<span id="L23133" class="LineNr">23133 </span> 52/push-edx -<span id="L23134" class="LineNr">23134 </span> 53/push-ebx -<span id="L23135" class="LineNr">23135 </span> <span class="subxComment"># var curr-a/ecx: (addr type-tree) = a</span> -<span id="L23136" class="LineNr">23136 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L23137" class="LineNr">23137 </span> <span class="subxComment"># var curr-b/ebx: (addr type-tree) = b</span> -<span id="L23138" class="LineNr">23138 </span> 8b/-> *(ebp+0xc) 3/r32/ebx -<span id="L23139" class="LineNr">23139 </span> <span class="subxComment"># if (curr-a->is-atom?) fall back to regular equality</span> -<span id="L23140" class="LineNr">23140 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L23141" class="LineNr">23141 </span> 0f 85/jump-if-!= $type-equal-ignoring-capacity?:base-case/disp32 -<span id="L23142" class="LineNr">23142 </span> <span class="subxComment"># if (curr-a->left != curr-b->left) return false</span> -<span id="L23143" class="LineNr">23143 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L23144" class="LineNr">23144 </span> 89/<- %edx 0/r32/eax -<span id="L23145" class="LineNr">23145 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L23146" class="LineNr">23146 </span> (<a href='mu.subx.html#L26880'>type-equal?</a> %edx %eax) <span class="subxComment"># => eax</span> -<span id="L23147" class="LineNr">23147 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23148" class="LineNr">23148 </span> 0f 84/jump-if-= $type-equal-ignoring-capacity?:end/disp32 <span class="subxComment"># eax switches meaning</span> -<span id="L23149" class="LineNr">23149 </span> <span class="subxComment"># if (curr-a->left == "array") curr-a = curr-a->element-type</span> -<span id="L23150" class="LineNr">23150 </span> { -<span id="L23151" class="LineNr">23151 </span> (<a href='mu.subx.html#L26650'>mu-array?</a> %edx) <span class="subxComment"># => eax</span> -<span id="L23152" class="LineNr">23152 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23153" class="LineNr">23153 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L23154" class="LineNr">23154 </span><span class="Constant">$type-equal-ignoring-capacity?:array</span>: -<span id="L23155" class="LineNr">23155 </span> <span class="subxComment"># curr-a = curr-a->right->left</span> -<span id="L23156" class="LineNr">23156 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L23157" class="LineNr">23157 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L23158" class="LineNr">23158 </span> 89/<- %ecx 0/r32/eax -<span id="L23159" class="LineNr">23159 </span> <span class="subxComment"># curr-b = curr-b->right->left</span> -<span id="L23160" class="LineNr">23160 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L23161" class="LineNr">23161 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L23162" class="LineNr">23162 </span> 89/<- %ebx 0/r32/eax -<span id="L23163" class="LineNr">23163 </span> eb/jump $type-equal-ignoring-capacity?:base-case/disp8 -<span id="L23164" class="LineNr">23164 </span> } -<span id="L23165" class="LineNr">23165 </span> <span class="subxComment"># if (curr-a->left == "stream") curr-a = curr-a->element-type</span> -<span id="L23166" class="LineNr">23166 </span> { -<span id="L23167" class="LineNr">23167 </span> (<a href='mu.subx.html#L26715'>mu-stream?</a> %edx) <span class="subxComment"># => eax</span> -<span id="L23168" class="LineNr">23168 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23169" class="LineNr">23169 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L23170" class="LineNr">23170 </span><span class="Constant">$type-equal-ignoring-capacity?:stream</span>: -<span id="L23171" class="LineNr">23171 </span> <span class="subxComment"># curr-a = curr-a->right->left</span> -<span id="L23172" class="LineNr">23172 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L23173" class="LineNr">23173 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L23174" class="LineNr">23174 </span> 89/<- %ecx 0/r32/eax -<span id="L23175" class="LineNr">23175 </span> <span class="subxComment"># curr-b = curr-b->right->left</span> -<span id="L23176" class="LineNr">23176 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L23177" class="LineNr">23177 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L23178" class="LineNr">23178 </span> 89/<- %ebx 0/r32/eax -<span id="L23179" class="LineNr">23179 </span> eb/jump $type-equal-ignoring-capacity?:base-case/disp8 -<span id="L23180" class="LineNr">23180 </span> } -<span id="L23181" class="LineNr">23181 </span><span class="Constant">$type-equal-ignoring-capacity?:base-case</span>: -<span id="L23182" class="LineNr">23182 </span> <span class="subxComment"># return type-equal?(curr-a, curr-b)</span> -<span id="L23183" class="LineNr">23183 </span> (<a href='mu.subx.html#L26880'>type-equal?</a> %ecx %ebx) <span class="subxComment"># => eax</span> -<span id="L23184" class="LineNr">23184 </span><span class="Constant">$type-equal-ignoring-capacity?:end</span>: -<span id="L23185" class="LineNr">23185 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L23186" class="LineNr">23186 </span> 5b/pop-to-ebx -<span id="L23187" class="LineNr">23187 </span> 5a/pop-to-edx -<span id="L23188" class="LineNr">23188 </span> 59/pop-to-ecx -<span id="L23189" class="LineNr">23189 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23190" class="LineNr">23190 </span> 89/<- %esp 5/r32/ebp -<span id="L23191" class="LineNr">23191 </span> 5d/pop-to-ebp -<span id="L23192" class="LineNr">23192 </span> c3/return -<span id="L23193" class="LineNr">23193 </span> -<span id="L23194" class="LineNr">23194 </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="L23195" class="LineNr">23195 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23196" class="LineNr">23196 </span> 55/push-ebp -<span id="L23197" class="LineNr">23197 </span> 89/<- %ebp 4/r32/esp -<span id="L23198" class="LineNr">23198 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L23199" class="LineNr">23199 </span> 50/push-eax -<span id="L23200" class="LineNr">23200 </span> 51/push-ecx -<span id="L23201" class="LineNr">23201 </span> 52/push-edx -<span id="L23202" class="LineNr">23202 </span> 53/push-ebx -<span id="L23203" class="LineNr">23203 </span> 56/push-esi -<span id="L23204" class="LineNr">23204 </span> 57/push-edi -<span id="L23205" class="LineNr">23205 </span> <span class="subxComment"># var type-parameters/edx: (addr table (handle array byte) (addr type-tree) 8)</span> -<span id="L23206" class="LineNr">23206 </span> 81 5/subop/subtract %esp 0x60/imm32 -<span id="L23207" class="LineNr">23207 </span> 68/push 0x60/imm32/size -<span id="L23208" class="LineNr">23208 </span> 68/push 0/imm32/read -<span id="L23209" class="LineNr">23209 </span> 68/push 0/imm32/write -<span id="L23210" class="LineNr">23210 </span> 89/<- %edx 4/r32/esp -<span id="L23211" class="LineNr">23211 </span> <span class="subxComment"># var template/esi: (addr list var) = fn->outputs</span> -<span id="L23212" class="LineNr">23212 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23213" class="LineNr">23213 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> -<span id="L23214" class="LineNr">23214 </span> 89/<- %esi 0/r32/eax -<span id="L23215" class="LineNr">23215 </span> <span class="subxComment"># var curr-template/ebx: (addr list var) = fn->outputs</span> -<span id="L23216" class="LineNr">23216 </span> 89/<- %ebx 0/r32/eax -<span id="L23217" class="LineNr">23217 </span> <span class="subxComment"># var curr/edi: (addr stmt-var) = stmt->inouts</span> -<span id="L23218" class="LineNr">23218 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L23219" class="LineNr">23219 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L23220" class="LineNr">23220 </span> 89/<- %edi 0/r32/eax -<span id="L23221" class="LineNr">23221 </span> { -<span id="L23222" class="LineNr">23222 </span> <span class="subxComment"># if template is null, break</span> -<span id="L23223" class="LineNr">23223 </span> 81 7/subop/compare %ebx 0/imm32 -<span id="L23224" class="LineNr">23224 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L23225" class="LineNr">23225 </span> <span class="subxComment"># if curr is null, abort</span> -<span id="L23226" class="LineNr">23226 </span> 81 7/subop/compare %edi 0/imm32 -<span id="L23227" class="LineNr">23227 </span> 0f 84/jump-if-= $check-mu-return-stmt:error-too-few-inouts/disp32 -<span id="L23228" class="LineNr">23228 </span> <span class="subxComment"># var template-type/ecx: (addr type-tree) = template->value->type</span> -<span id="L23229" class="LineNr">23229 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L23230" class="LineNr">23230 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L23231" class="LineNr">23231 </span> 89/<- %ecx 0/r32/eax -<span id="L23232" class="LineNr">23232 </span> <span class="subxComment"># var curr-type/eax: (addr type-tree) = curr->value->type</span> -<span id="L23233" class="LineNr">23233 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L23234" class="LineNr">23234 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L23235" class="LineNr">23235 </span> <span class="subxComment"># if (curr->is-deref?) curr-type = payload of curr-type</span> -<span id="L23236" class="LineNr">23236 </span> 81 7/subop/compare *(edi+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L23237" class="LineNr">23237 </span> { -<span id="L23238" class="LineNr">23238 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23239" class="LineNr">23239 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L23240" class="LineNr">23240 </span> <span class="subxComment"># if t->right is null, t = t->left</span> -<span id="L23241" class="LineNr">23241 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L23242" class="LineNr">23242 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L23243" class="LineNr">23243 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L23244" class="LineNr">23244 </span> } -<span id="L23245" class="LineNr">23245 </span> <span class="subxComment"># if curr-type is literal and template-type is float, abort</span> -<span id="L23246" class="LineNr">23246 </span> 50/push-eax -<span id="L23247" class="LineNr">23247 </span> { -<span id="L23248" class="LineNr">23248 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 0) <span class="subxComment"># literal => eax</span> -<span id="L23249" class="LineNr">23249 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23250" class="LineNr">23250 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23251" class="LineNr">23251 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %ecx 0xf) <span class="subxComment"># float => eax</span> -<span id="L23252" class="LineNr">23252 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23253" class="LineNr">23253 </span> 0f 85/jump-if-!= $check-mu-return-stmt:error-literal-to-float/disp32 -<span id="L23254" class="LineNr">23254 </span> } -<span id="L23255" class="LineNr">23255 </span> 58/pop-to-eax -<span id="L23256" class="LineNr">23256 </span> <span class="subxComment"># if (curr-type != template-type) abort</span> -<span id="L23257" class="LineNr">23257 </span> (<a href='mu.subx.html#L26394'>type-match?</a> %ecx %eax %edx) <span class="subxComment"># => eax</span> -<span id="L23258" class="LineNr">23258 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23259" class="LineNr">23259 </span> 0f 84/jump-if-= $check-mu-return-stmt:error1/disp32 -<span id="L23260" class="LineNr">23260 </span> <span class="subxComment"># if register-within-list-with-conflict?(curr, original template, curr-template, stmt) abort</span> -<span id="L23261" class="LineNr">23261 </span> (<a href='mu.subx.html#L23414'>register-within-list-with-conflict?</a> %edi %esi %ebx *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L23262" class="LineNr">23262 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23263" class="LineNr">23263 </span> 0f 85/jump-if-!= $check-mu-return-stmt:error2/disp32 -<span id="L23264" class="LineNr">23264 </span> <span class="subxComment"># template = template->next</span> -<span id="L23265" class="LineNr">23265 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L23266" class="LineNr">23266 </span> 89/<- %ebx 0/r32/eax -<span id="L23267" class="LineNr">23267 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L23268" class="LineNr">23268 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L23269" class="LineNr">23269 </span> 89/<- %edi 0/r32/eax -<span id="L23270" class="LineNr">23270 </span> <span class="subxComment">#</span> -<span id="L23271" class="LineNr">23271 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L23272" class="LineNr">23272 </span> } -<span id="L23273" class="LineNr">23273 </span> <span class="subxComment"># if curr is not null, abort</span> -<span id="L23274" class="LineNr">23274 </span> 81 7/subop/compare %edi 0/imm32 -<span id="L23275" class="LineNr">23275 </span> 0f 85/jump-if-!= $check-mu-return-stmt:error-too-many-inouts/disp32 -<span id="L23276" class="LineNr">23276 </span><span class="Constant">$check-mu-return-stmt:end</span>: -<span id="L23277" class="LineNr">23277 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L23278" class="LineNr">23278 </span> 81 0/subop/add %esp 0x6c/imm32 -<span id="L23279" class="LineNr">23279 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L23280" class="LineNr">23280 </span> 5f/pop-to-edi -<span id="L23281" class="LineNr">23281 </span> 5e/pop-to-esi -<span id="L23282" class="LineNr">23282 </span> 5b/pop-to-ebx -<span id="L23283" class="LineNr">23283 </span> 5a/pop-to-edx -<span id="L23284" class="LineNr">23284 </span> 59/pop-to-ecx -<span id="L23285" class="LineNr">23285 </span> 58/pop-to-eax -<span id="L23286" class="LineNr">23286 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23287" class="LineNr">23287 </span> 89/<- %esp 5/r32/ebp -<span id="L23288" class="LineNr">23288 </span> 5d/pop-to-ebp -<span id="L23289" class="LineNr">23289 </span> c3/return -<span id="L23290" class="LineNr">23290 </span> -<span id="L23291" class="LineNr">23291 </span><span class="Constant">$check-mu-return-stmt:error1</span>: -<span id="L23292" class="LineNr">23292 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23293" class="LineNr">23293 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23294" class="LineNr">23294 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23295" class="LineNr">23295 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23296" class="LineNr">23296 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": return: '"</span>) -<span id="L23297" class="LineNr">23297 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L23298" class="LineNr">23298 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L23299" class="LineNr">23299 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23300" class="LineNr">23300 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' has the wrong type\n"</span>) -<span id="L23301" class="LineNr">23301 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23302" class="LineNr">23302 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23303" class="LineNr">23303 </span> <span class="subxComment"># never gets here</span> -<span id="L23304" class="LineNr">23304 </span> -<span id="L23305" class="LineNr">23305 </span><span class="Constant">$check-mu-return-stmt:error2</span>: -<span id="L23306" class="LineNr">23306 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23307" class="LineNr">23307 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23308" class="LineNr">23308 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23309" class="LineNr">23309 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23310" class="LineNr">23310 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": return: '"</span>) -<span id="L23311" class="LineNr">23311 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L23312" class="LineNr">23312 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-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">"' is no longer available\n"</span>) -<span id="L23315" class="LineNr">23315 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23316" class="LineNr">23316 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23317" class="LineNr">23317 </span> <span class="subxComment"># never gets here</span> -<span id="L23318" class="LineNr">23318 </span> -<span id="L23319" class="LineNr">23319 </span><span class="Constant">$check-mu-return-stmt:error-literal-to-float</span>: -<span id="L23320" class="LineNr">23320 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23321" class="LineNr">23321 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23322" class="LineNr">23322 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23323" class="LineNr">23323 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23324" class="LineNr">23324 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": return: cannot copy literal '"</span>) -<span id="L23325" class="LineNr">23325 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L23326" class="LineNr">23326 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L23327" class="LineNr">23327 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23328" class="LineNr">23328 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' to float\n"</span>) -<span id="L23329" class="LineNr">23329 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23330" class="LineNr">23330 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23331" class="LineNr">23331 </span> <span class="subxComment"># never gets here</span> -<span id="L23332" class="LineNr">23332 </span> -<span id="L23333" class="LineNr">23333 </span><span class="Constant">$check-mu-return-stmt:error-too-few-inouts</span>: -<span id="L23334" class="LineNr">23334 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23335" class="LineNr">23335 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23336" class="LineNr">23336 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23337" class="LineNr">23337 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23338" class="LineNr">23338 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": return: too few inouts\n"</span>) -<span id="L23339" class="LineNr">23339 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23340" class="LineNr">23340 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23341" class="LineNr">23341 </span> <span class="subxComment"># never gets here</span> -<span id="L23342" class="LineNr">23342 </span> -<span id="L23343" class="LineNr">23343 </span><span class="Constant">$check-mu-return-stmt:error-too-many-inouts</span>: -<span id="L23344" class="LineNr">23344 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23345" class="LineNr">23345 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23346" class="LineNr">23346 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23347" class="LineNr">23347 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23348" class="LineNr">23348 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": return: too many inouts\n"</span>) -<span id="L23349" class="LineNr">23349 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23350" class="LineNr">23350 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23351" class="LineNr">23351 </span> <span class="subxComment"># never gets here</span> -<span id="L23352" class="LineNr">23352 </span> -<span id="L23353" class="LineNr">23353 </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="L23354" class="LineNr">23354 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23355" class="LineNr">23355 </span> 55/push-ebp -<span id="L23356" class="LineNr">23356 </span> 89/<- %ebp 4/r32/esp -<span id="L23357" class="LineNr">23357 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L23358" class="LineNr">23358 </span> 50/push-eax -<span id="L23359" class="LineNr">23359 </span> 51/push-ecx -<span id="L23360" class="LineNr">23360 </span> 56/push-esi -<span id="L23361" class="LineNr">23361 </span> <span class="subxComment"># var table/esi: (addr table (handle array byte) int 8)</span> -<span id="L23362" class="LineNr">23362 </span> 81 5/subop/subtract %esp 0x60/imm32 -<span id="L23363" class="LineNr">23363 </span> 68/push 0x60/imm32/size -<span id="L23364" class="LineNr">23364 </span> 68/push 0/imm32/read -<span id="L23365" class="LineNr">23365 </span> 68/push 0/imm32/write -<span id="L23366" class="LineNr">23366 </span> 89/<- %esi 4/r32/esp -<span id="L23367" class="LineNr">23367 </span> <span class="subxComment"># var curr/ecx: (addr list var) = outputs</span> -<span id="L23368" class="LineNr">23368 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L23369" class="LineNr">23369 </span> { -<span id="L23370" class="LineNr">23370 </span> <span class="subxComment"># if (curr == 0) break</span> -<span id="L23371" class="LineNr">23371 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L23372" class="LineNr">23372 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L23373" class="LineNr">23373 </span> <span class="subxComment"># var reg/eax: (addr array byte) = curr->value->register # guaranteed to exist</span> -<span id="L23374" class="LineNr">23374 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L23375" class="LineNr">23375 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L23376" class="LineNr">23376 </span> <span class="subxComment"># if reg exists in table, abort</span> -<span id="L23377" class="LineNr">23377 </span> (<a href='131table.subx.html#L1800'>maybe-get</a> %esi %eax 0xc) <span class="subxComment"># => eax</span> -<span id="L23378" class="LineNr">23378 </span> 3d/compare-eax-and 0/imm32 -<span id="L23379" class="LineNr">23379 </span> 0f 85/jump-if-!= $check-all-unique-registers:abort/disp32 -<span id="L23380" class="LineNr">23380 </span> <span class="subxComment"># insert reg in table</span> -<span id="L23381" class="LineNr">23381 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L23382" class="LineNr">23382 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L23383" class="LineNr">23383 </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="L23384" class="LineNr">23384 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L23385" class="LineNr">23385 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L23386" class="LineNr">23386 </span> 89/<- %ecx 0/r32/eax -<span id="L23387" class="LineNr">23387 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L23388" class="LineNr">23388 </span> } -<span id="L23389" class="LineNr">23389 </span><span class="Constant">$check-all-unique-registers:end</span>: -<span id="L23390" class="LineNr">23390 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L23391" class="LineNr">23391 </span> 81 0/subop/add %esp 0x6c/imm32 -<span id="L23392" class="LineNr">23392 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L23393" class="LineNr">23393 </span> 5e/pop-to-esi -<span id="L23394" class="LineNr">23394 </span> 59/pop-to-ecx -<span id="L23395" class="LineNr">23395 </span> 58/pop-to-eax -<span id="L23396" class="LineNr">23396 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23397" class="LineNr">23397 </span> 89/<- %esp 5/r32/ebp -<span id="L23398" class="LineNr">23398 </span> 5d/pop-to-ebp -<span id="L23399" class="LineNr">23399 </span> c3/return -<span id="L23400" class="LineNr">23400 </span> -<span id="L23401" class="LineNr">23401 </span><span class="Constant">$check-all-unique-registers:abort</span>: -<span id="L23402" class="LineNr">23402 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23403" class="LineNr">23403 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23404" class="LineNr">23404 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23405" class="LineNr">23405 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23406" class="LineNr">23406 </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="L23407" class="LineNr">23407 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23408" class="LineNr">23408 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23409" class="LineNr">23409 </span> <span class="subxComment"># never gets here</span> -<span id="L23410" class="LineNr">23410 </span> -<span id="L23411" class="LineNr">23411 </span><span class="subxComment"># return false if s's register is not between start (inclusive) and end (exclusive)</span> -<span id="L23412" class="LineNr">23412 </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="L23413" class="LineNr">23413 </span><span class="subxComment"># otherwise return true</span> -<span id="L23414" class="LineNr">23414 </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="L23415" class="LineNr">23415 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23416" class="LineNr">23416 </span> 55/push-ebp -<span id="L23417" class="LineNr">23417 </span> 89/<- %ebp 4/r32/esp -<span id="L23418" class="LineNr">23418 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L23419" class="LineNr">23419 </span> 51/push-ecx -<span id="L23420" class="LineNr">23420 </span> 52/push-edx -<span id="L23421" class="LineNr">23421 </span> 53/push-ebx -<span id="L23422" class="LineNr">23422 </span> 56/push-esi -<span id="L23423" class="LineNr">23423 </span> 57/push-edi -<span id="L23424" class="LineNr">23424 </span> <span class="subxComment"># var target/ebx: (addr array byte) = s->value->register</span> -<span id="L23425" class="LineNr">23425 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L23426" class="LineNr">23426 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L23427" class="LineNr">23427 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L23428" class="LineNr">23428 </span><span class="CommentedCode">#? (write-buffered Stderr "AA: ")</span> -<span id="L23429" class="LineNr">23429 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L23430" class="LineNr">23430 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L23431" class="LineNr">23431 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L23432" class="LineNr">23432 </span> <span class="subxComment"># if (var->register == 0) return false</span> -<span id="L23433" class="LineNr">23433 </span> 3d/compare-eax-and 0/imm32 -<span id="L23434" class="LineNr">23434 </span> 0f 84/jump-if-= $register-within-list-with-conflict?:end/disp32 <span class="subxComment"># eax turns into result</span> -<span id="L23435" class="LineNr">23435 </span> 89/<- %ebx 0/r32/eax -<span id="L23436" class="LineNr">23436 </span> <span class="subxComment"># var curr/ecx: (addr list var) = start</span> -<span id="L23437" class="LineNr">23437 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L23438" class="LineNr">23438 </span> <span class="subxComment"># edx = end</span> -<span id="L23439" class="LineNr">23439 </span> 8b/-> *(ebp+0x10) 2/r32/edx -<span id="L23440" class="LineNr">23440 </span> { -<span id="L23441" class="LineNr">23441 </span> <span class="subxComment"># if (curr == 0) break</span> -<span id="L23442" class="LineNr">23442 </span> 81 7/subop/compare %edi 0/imm32 -<span id="L23443" class="LineNr">23443 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L23444" class="LineNr">23444 </span> <span class="subxComment"># if (curr == end) break</span> -<span id="L23445" class="LineNr">23445 </span> 39/compare %ecx 2/r32/edx -<span id="L23446" class="LineNr">23446 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L23447" class="LineNr">23447 </span> <span class="subxComment"># var curr-reg/eax: (addr array byte) = curr->value->register</span> -<span id="L23448" class="LineNr">23448 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L23449" class="LineNr">23449 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L23450" class="LineNr">23450 </span> <span class="subxComment"># if (curr-reg == 0) continue</span> -<span id="L23451" class="LineNr">23451 </span> 3d/compare-eax-and 0/imm32 -<span id="L23452" class="LineNr">23452 </span> 74/jump-if-= $register-within-list-with-conflict?:continue/disp8 -<span id="L23453" class="LineNr">23453 </span> <span class="subxComment"># if (curr-reg == target) check for conflict</span> -<span id="L23454" class="LineNr">23454 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax %ebx) <span class="subxComment"># => eax</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><span class="CommentedCode">#? (write-buffered Stderr "conflict?\n")</span> -<span id="L23459" class="LineNr">23459 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L23460" class="LineNr">23460 </span> <span class="subxComment"># var return-inouts/eax: (addr stmt-var) = stmt->inouts</span> -<span id="L23461" class="LineNr">23461 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L23462" class="LineNr">23462 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L23463" class="LineNr">23463 </span> (<a href='mu.subx.html#L23490'>register-conflict?</a> %ebx %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L23464" class="LineNr">23464 </span> eb/jump $register-within-list-with-conflict?:end/disp8 -<span id="L23465" class="LineNr">23465 </span> } -<span id="L23466" class="LineNr">23466 </span><span class="Constant">$register-within-list-with-conflict?:continue</span>: -<span id="L23467" class="LineNr">23467 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L23468" class="LineNr">23468 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L23469" class="LineNr">23469 </span> 89/<- %ecx 0/r32/eax -<span id="L23470" class="LineNr">23470 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L23471" class="LineNr">23471 </span> } -<span id="L23472" class="LineNr">23472 </span> <span class="subxComment"># return false</span> -<span id="L23473" class="LineNr">23473 </span> b8/copy-to-eax 0/imm32/false -<span id="L23474" class="LineNr">23474 </span><span class="Constant">$register-within-list-with-conflict?:end</span>: -<span id="L23475" class="LineNr">23475 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L23476" class="LineNr">23476 </span> 5f/pop-to-edi -<span id="L23477" class="LineNr">23477 </span> 5e/pop-to-esi -<span id="L23478" class="LineNr">23478 </span> 5b/pop-to-ebx -<span id="L23479" class="LineNr">23479 </span> 5a/pop-to-edx -<span id="L23480" class="LineNr">23480 </span> 59/pop-to-ecx -<span id="L23481" class="LineNr">23481 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23482" class="LineNr">23482 </span> 89/<- %esp 5/r32/ebp -<span id="L23483" class="LineNr">23483 </span> 5d/pop-to-ebp -<span id="L23484" class="LineNr">23484 </span> c3/return -<span id="L23485" class="LineNr">23485 </span> -<span id="L23486" class="LineNr">23486 </span><span class="subxComment"># At the first occurrence of register 'reg' in fn-outputs,</span> -<span id="L23487" class="LineNr">23487 </span><span class="subxComment"># check if the corresponding element of return-inouts has a different register.</span> -<span id="L23488" class="LineNr">23488 </span><span class="subxComment"># This hacky helper is intended to be called in one specific place. Don't</span> -<span id="L23489" class="LineNr">23489 </span><span class="subxComment"># reuse it as is.</span> -<span id="L23490" class="LineNr">23490 </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="L23491" class="LineNr">23491 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23492" class="LineNr">23492 </span> 55/push-ebp -<span id="L23493" class="LineNr">23493 </span> 89/<- %ebp 4/r32/esp -<span id="L23494" class="LineNr">23494 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L23495" class="LineNr">23495 </span> 51/push-ecx -<span id="L23496" class="LineNr">23496 </span> 52/push-edx -<span id="L23497" class="LineNr">23497 </span> 53/push-ebx -<span id="L23498" class="LineNr">23498 </span> 56/push-esi -<span id="L23499" class="LineNr">23499 </span> 57/push-edi -<span id="L23500" class="LineNr">23500 </span><span class="CommentedCode">#? (write-buffered Stderr "BB: ")</span> -<span id="L23501" class="LineNr">23501 </span><span class="CommentedCode">#? (write-buffered Stderr *(ebp+8))</span> -<span id="L23502" class="LineNr">23502 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L23503" class="LineNr">23503 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L23504" class="LineNr">23504 </span> <span class="subxComment"># var curr-output/edi: (addr list var) = fn-outputs</span> -<span id="L23505" class="LineNr">23505 </span> 8b/-> *(ebp+0x10) 7/r32/edi -<span id="L23506" class="LineNr">23506 </span> <span class="subxComment"># var curr-inout/esi: (addr stmt-var) = return-inouts</span> -<span id="L23507" class="LineNr">23507 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L23508" class="LineNr">23508 </span> { -<span id="L23509" class="LineNr">23509 </span> <span class="subxComment"># if (curr-output == 0) abort</span> -<span id="L23510" class="LineNr">23510 </span> 81 7/subop/compare %edi 0/imm32 -<span id="L23511" class="LineNr">23511 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L23512" class="LineNr">23512 </span> <span class="subxComment"># if (curr-output->value->register != reg) continue</span> -<span id="L23513" class="LineNr">23513 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L23514" class="LineNr">23514 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L23515" class="LineNr">23515 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L23516" class="LineNr">23516 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23517" class="LineNr">23517 </span> 0f 84/jump-if= $register-conflict?:continue/disp32 -<span id="L23518" class="LineNr">23518 </span><span class="CommentedCode">#? (write-buffered Stderr "rescan\n")</span> -<span id="L23519" class="LineNr">23519 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L23520" class="LineNr">23520 </span> <span class="subxComment"># var curr-reg/eax: (addr array byte) = curr-inout->value->register</span> -<span id="L23521" class="LineNr">23521 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L23522" class="LineNr">23522 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L23523" class="LineNr">23523 </span> <span class="subxComment"># if (curr-reg == 0) return true</span> -<span id="L23524" class="LineNr">23524 </span> 3d/compare-eax-and 0/imm32 -<span id="L23525" class="LineNr">23525 </span> { -<span id="L23526" class="LineNr">23526 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L23527" class="LineNr">23527 </span><span class="CommentedCode">#? (write-buffered Stderr "no register\n")</span> -<span id="L23528" class="LineNr">23528 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L23529" class="LineNr">23529 </span> b8/copy-to-eax 1/imm32/true -<span id="L23530" class="LineNr">23530 </span> e9/jump $register-conflict?:end/disp32 -<span id="L23531" class="LineNr">23531 </span> } -<span id="L23532" class="LineNr">23532 </span> <span class="subxComment"># return (curr-reg != reg)</span> -<span id="L23533" class="LineNr">23533 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L23534" class="LineNr">23534 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23535" class="LineNr">23535 </span> 0f 94/set-if-= %al -<span id="L23536" class="LineNr">23536 </span><span class="CommentedCode">#? (write-buffered Stderr "final: ")</span> -<span id="L23537" class="LineNr">23537 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L23538" class="LineNr">23538 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L23539" class="LineNr">23539 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L23540" class="LineNr">23540 </span> eb/jump $register-conflict?:end/disp8 -<span id="L23541" class="LineNr">23541 </span><span class="Constant">$register-conflict?:continue</span>: -<span id="L23542" class="LineNr">23542 </span> <span class="subxComment"># curr-output = curr-output->next</span> -<span id="L23543" class="LineNr">23543 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L23544" class="LineNr">23544 </span> 89/<- %edi 0/r32/eax -<span id="L23545" class="LineNr">23545 </span> <span class="subxComment"># curr-inout = curr-inout->next</span> -<span id="L23546" class="LineNr">23546 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L23547" class="LineNr">23547 </span> 89/<- %esi 0/r32/eax -<span id="L23548" class="LineNr">23548 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L23549" class="LineNr">23549 </span> } -<span id="L23550" class="LineNr">23550 </span> <span class="subxComment"># should never get here</span> -<span id="L23551" class="LineNr">23551 </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="L23552" class="LineNr">23552 </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="L23553" class="LineNr">23553 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 -<span id="L23554" class="LineNr">23554 </span><span class="Constant">$register-conflict?:end</span>: -<span id="L23555" class="LineNr">23555 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L23556" class="LineNr">23556 </span> 5f/pop-to-edi -<span id="L23557" class="LineNr">23557 </span> 5e/pop-to-esi -<span id="L23558" class="LineNr">23558 </span> 5b/pop-to-ebx -<span id="L23559" class="LineNr">23559 </span> 5a/pop-to-edx -<span id="L23560" class="LineNr">23560 </span> 59/pop-to-ecx -<span id="L23561" class="LineNr">23561 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23562" class="LineNr">23562 </span> 89/<- %esp 5/r32/ebp -<span id="L23563" class="LineNr">23563 </span> 5d/pop-to-ebp -<span id="L23564" class="LineNr">23564 </span> c3/return -<span id="L23565" class="LineNr">23565 </span> -<span id="L23566" class="LineNr">23566 </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="L23567" class="LineNr">23567 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23568" class="LineNr">23568 </span> 55/push-ebp -<span id="L23569" class="LineNr">23569 </span> 89/<- %ebp 4/r32/esp -<span id="L23570" class="LineNr">23570 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L23571" class="LineNr">23571 </span> 50/push-eax -<span id="L23572" class="LineNr">23572 </span> 51/push-ecx -<span id="L23573" class="LineNr">23573 </span> <span class="subxComment"># var curr/ecx: (addr list stmt) = block->stmts</span> -<span id="L23574" class="LineNr">23574 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L23575" class="LineNr">23575 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> -<span id="L23576" class="LineNr">23576 </span> 3d/compare-eax-and 0/imm32 -<span id="L23577" class="LineNr">23577 </span> 74/jump-if-= $check-final-stmt-is-return:<a href='114error.subx.html#L9'>error</a>/disp8 -<span id="L23578" class="LineNr">23578 </span> 89/<- %ecx 0/r32/eax -<span id="L23579" class="LineNr">23579 </span> { -<span id="L23580" class="LineNr">23580 </span> <span class="subxComment"># if curr->next == 0, break</span> -<span id="L23581" class="LineNr">23581 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L23582" class="LineNr">23582 </span> 3d/compare-eax-and 0/imm32 -<span id="L23583" class="LineNr">23583 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23584" class="LineNr">23584 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L23585" class="LineNr">23585 </span> 89/<- %ecx 0/r32/eax -<span id="L23586" class="LineNr">23586 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L23587" class="LineNr">23587 </span> } -<span id="L23588" class="LineNr">23588 </span><span class="Constant">$check-final-stmt-is-return:check-tag</span>: -<span id="L23589" class="LineNr">23589 </span> <span class="subxComment"># if curr->value->tag != Stmt1, abort</span> -<span id="L23590" class="LineNr">23590 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L23591" class="LineNr">23591 </span> 81 7/subop/compare *eax 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> -<span id="L23592" class="LineNr">23592 </span> 75/jump-if-!= $check-final-stmt-is-return:<a href='114error.subx.html#L9'>error</a>/disp8 -<span id="L23593" class="LineNr">23593 </span><span class="Constant">$check-final-stmt-is-return:check-operation</span>: -<span id="L23594" class="LineNr">23594 </span> <span class="subxComment"># if curr->operation != "return", abort</span> -<span id="L23595" class="LineNr">23595 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L23596" class="LineNr">23596 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"return"</span>) -<span id="L23597" class="LineNr">23597 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23598" class="LineNr">23598 </span> 74/jump-if-= $check-final-stmt-is-return:<a href='114error.subx.html#L9'>error</a>/disp8 -<span id="L23599" class="LineNr">23599 </span><span class="Constant">$check-final-stmt-is-return:end</span>: -<span id="L23600" class="LineNr">23600 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L23601" class="LineNr">23601 </span> 59/pop-to-ecx -<span id="L23602" class="LineNr">23602 </span> 58/pop-to-eax -<span id="L23603" class="LineNr">23603 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23604" class="LineNr">23604 </span> 89/<- %esp 5/r32/ebp -<span id="L23605" class="LineNr">23605 </span> 5d/pop-to-ebp -<span id="L23606" class="LineNr">23606 </span> c3/return -<span id="L23607" class="LineNr">23607 </span> -<span id="L23608" class="LineNr">23608 </span><span class="Constant">$check-final-stmt-is-return:<a href='114error.subx.html#L9'>error</a></span>: -<span id="L23609" class="LineNr">23609 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23610" class="LineNr">23610 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23611" class="LineNr">23611 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23612" class="LineNr">23612 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23613" class="LineNr">23613 </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="L23614" class="LineNr">23614 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23615" class="LineNr">23615 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23616" class="LineNr">23616 </span> <span class="subxComment"># never gets here</span> -<span id="L23617" class="LineNr">23617 </span> -<span id="L23618" class="LineNr">23618 </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="L23619" class="LineNr">23619 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23620" class="LineNr">23620 </span> 55/push-ebp -<span id="L23621" class="LineNr">23621 </span> 89/<- %ebp 4/r32/esp -<span id="L23622" class="LineNr">23622 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L23623" class="LineNr">23623 </span> 50/push-eax -<span id="L23624" class="LineNr">23624 </span> 51/push-ecx -<span id="L23625" class="LineNr">23625 </span> <span class="subxComment"># var curr/ecx: (addr list stmt) = block->stmts</span> -<span id="L23626" class="LineNr">23626 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L23627" class="LineNr">23627 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</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-no-breaks:end/disp32 -<span id="L23630" class="LineNr">23630 </span> 89/<- %ecx 0/r32/eax -<span id="L23631" class="LineNr">23631 </span> { -<span id="L23632" class="LineNr">23632 </span> <span class="subxComment"># if curr->next == 0, break</span> -<span id="L23633" class="LineNr">23633 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L23634" class="LineNr">23634 </span> 3d/compare-eax-and 0/imm32 -<span id="L23635" class="LineNr">23635 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23636" class="LineNr">23636 </span> <span class="subxComment"># if curr->value->tag != Stmt1, continue</span> -<span id="L23637" class="LineNr">23637 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L23638" class="LineNr">23638 </span> 81 7/subop/compare *eax 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> -<span id="L23639" class="LineNr">23639 </span> 75/jump-if-!= $check-no-breaks:continue/disp8 -<span id="L23640" class="LineNr">23640 </span> <span class="subxComment"># if curr->value->operation starts with "break", abort</span> -<span id="L23641" class="LineNr">23641 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L23642" class="LineNr">23642 </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="L23643" class="LineNr">23643 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23644" class="LineNr">23644 </span> 75/jump-if-!= $check-no-breaks:<a href='114error.subx.html#L9'>error</a>/disp8 -<span id="L23645" class="LineNr">23645 </span><span class="Constant">$check-no-breaks:continue</span>: -<span id="L23646" class="LineNr">23646 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L23647" class="LineNr">23647 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L23648" class="LineNr">23648 </span> 89/<- %ecx 0/r32/eax -<span id="L23649" class="LineNr">23649 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L23650" class="LineNr">23650 </span> } -<span id="L23651" class="LineNr">23651 </span><span class="Constant">$check-no-breaks:end</span>: -<span id="L23652" class="LineNr">23652 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L23653" class="LineNr">23653 </span> 59/pop-to-ecx -<span id="L23654" class="LineNr">23654 </span> 58/pop-to-eax -<span id="L23655" class="LineNr">23655 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23656" class="LineNr">23656 </span> 89/<- %esp 5/r32/ebp -<span id="L23657" class="LineNr">23657 </span> 5d/pop-to-ebp -<span id="L23658" class="LineNr">23658 </span> c3/return -<span id="L23659" class="LineNr">23659 </span> -<span id="L23660" class="LineNr">23660 </span><span class="Constant">$check-no-breaks:<a href='114error.subx.html#L9'>error</a></span>: -<span id="L23661" class="LineNr">23661 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23662" class="LineNr">23662 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23663" class="LineNr">23663 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23664" class="LineNr">23664 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23665" class="LineNr">23665 </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="L23666" class="LineNr">23666 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23667" class="LineNr">23667 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23668" class="LineNr">23668 </span> <span class="subxComment"># never gets here</span> -<span id="L23669" class="LineNr">23669 </span> -<span id="L23670" class="LineNr">23670 </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="L23671" class="LineNr">23671 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23672" class="LineNr">23672 </span> 55/push-ebp -<span id="L23673" class="LineNr">23673 </span> 89/<- %ebp 4/r32/esp -<span id="L23674" class="LineNr">23674 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L23675" class="LineNr">23675 </span> 50/push-eax -<span id="L23676" class="LineNr">23676 </span> 51/push-ecx -<span id="L23677" class="LineNr">23677 </span> 52/push-edx -<span id="L23678" class="LineNr">23678 </span> 53/push-ebx -<span id="L23679" class="LineNr">23679 </span> 56/push-esi -<span id="L23680" class="LineNr">23680 </span> 57/push-edi -<span id="L23681" class="LineNr">23681 </span> <span class="subxComment"># esi = stmt</span> -<span id="L23682" class="LineNr">23682 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L23683" class="LineNr">23683 </span> <span class="subxH1Comment"># - check for 0 inouts</span> -<span id="L23684" class="LineNr">23684 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> -<span id="L23685" class="LineNr">23685 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L23686" class="LineNr">23686 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23687" class="LineNr">23687 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-too-few-inouts/disp32 -<span id="L23688" class="LineNr">23688 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L23689" class="LineNr">23689 </span> 89/<- %ecx 0/r32/eax -<span id="L23690" class="LineNr">23690 </span><span class="Constant">$check-mu-get-stmt:check-base</span>: -<span id="L23691" class="LineNr">23691 </span> <span class="subxH1Comment"># - check base type</span> -<span id="L23692" class="LineNr">23692 </span> <span class="subxComment"># if it's an 'addr', check that it's in a register</span> -<span id="L23693" class="LineNr">23693 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> -<span id="L23694" class="LineNr">23694 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L23695" class="LineNr">23695 </span> 89/<- %ebx 0/r32/eax -<span id="L23696" class="LineNr">23696 </span> { -<span id="L23697" class="LineNr">23697 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L23698" class="LineNr">23698 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L23699" class="LineNr">23699 </span><span class="Constant">$check-mu-get-stmt:base-is-compound</span>: -<span id="L23700" class="LineNr">23700 </span> <span class="subxComment"># if (type->left != addr) break</span> -<span id="L23701" class="LineNr">23701 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L23702" class="LineNr">23702 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L23703" class="LineNr">23703 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23704" class="LineNr">23704 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23705" class="LineNr">23705 </span><span class="Constant">$check-mu-get-stmt:base-is-addr</span>: -<span id="L23706" class="LineNr">23706 </span> <span class="subxComment"># now check for register</span> -<span id="L23707" class="LineNr">23707 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L23708" class="LineNr">23708 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-base-type-addr-but-not-register/disp32 -<span id="L23709" class="LineNr">23709 </span><span class="Constant">$check-mu-get-stmt:base-is-addr-in-register</span>: -<span id="L23710" class="LineNr">23710 </span> <span class="subxComment"># type->left is now an addr; skip it</span> -<span id="L23711" class="LineNr">23711 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L23712" class="LineNr">23712 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L23713" class="LineNr">23713 </span> 0f 85/jump-if-!= $check-mu-get-stmt:error-bad-base/disp32 -<span id="L23714" class="LineNr">23714 </span><span class="Constant">$check-mu-get-stmt:base-is-addr-to-atom-in-register</span>: -<span id="L23715" class="LineNr">23715 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L23716" class="LineNr">23716 </span> 89/<- %ebx 0/r32/eax -<span id="L23717" class="LineNr">23717 </span> } -<span id="L23718" class="LineNr">23718 </span><span class="Constant">$check-mu-get-stmt:check-base-typeinfo</span>: -<span id="L23719" class="LineNr">23719 </span> <span class="subxComment"># ensure type is a container</span> -<span id="L23720" class="LineNr">23720 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L23721" class="LineNr">23721 </span> { -<span id="L23722" class="LineNr">23722 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23122" class="LineNr">23122 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt address: output '"</span>) +<span id="L23123" class="LineNr">23123 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L23124" class="LineNr">23124 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23125" class="LineNr">23125 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23126" class="LineNr">23126 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is not an addr\n"</span>) +<span id="L23127" class="LineNr">23127 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23128" class="LineNr">23128 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23129" class="LineNr">23129 </span> <span class="subxComment"># never gets here</span> +<span id="L23130" class="LineNr">23130 </span> +<span id="L23131" class="LineNr">23131 </span><span class="Constant">$check-mu-address-stmt:error-type-mismatch</span>: +<span id="L23132" class="LineNr">23132 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23133" class="LineNr">23133 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23134" class="LineNr">23134 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23135" class="LineNr">23135 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23136" class="LineNr">23136 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt address: output '"</span>) +<span id="L23137" class="LineNr">23137 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L23138" class="LineNr">23138 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23139" class="LineNr">23139 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23140" class="LineNr">23140 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' cannot hold address of '"</span>) +<span id="L23141" class="LineNr">23141 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L23142" class="LineNr">23142 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23143" class="LineNr">23143 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23144" class="LineNr">23144 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) +<span id="L23145" class="LineNr">23145 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23146" class="LineNr">23146 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23147" class="LineNr">23147 </span> <span class="subxComment"># never gets here</span> +<span id="L23148" class="LineNr">23148 </span> +<span id="L23149" class="LineNr">23149 </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="L23150" class="LineNr">23150 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23151" class="LineNr">23151 </span> 55/push-ebp +<span id="L23152" class="LineNr">23152 </span> 89/<- %ebp 4/r32/esp +<span id="L23153" class="LineNr">23153 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L23154" class="LineNr">23154 </span> 51/push-ecx +<span id="L23155" class="LineNr">23155 </span> 52/push-edx +<span id="L23156" class="LineNr">23156 </span> 53/push-ebx +<span id="L23157" class="LineNr">23157 </span> <span class="subxComment"># var curr-a/ecx: (addr type-tree) = a</span> +<span id="L23158" class="LineNr">23158 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L23159" class="LineNr">23159 </span> <span class="subxComment"># var curr-b/ebx: (addr type-tree) = b</span> +<span id="L23160" class="LineNr">23160 </span> 8b/-> *(ebp+0xc) 3/r32/ebx +<span id="L23161" class="LineNr">23161 </span> <span class="subxComment"># if (curr-a->is-atom?) fall back to regular equality</span> +<span id="L23162" class="LineNr">23162 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L23163" class="LineNr">23163 </span> 0f 85/jump-if-!= $type-equal-ignoring-capacity?:base-case/disp32 +<span id="L23164" class="LineNr">23164 </span> <span class="subxComment"># if (curr-a->left != curr-b->left) return false</span> +<span id="L23165" class="LineNr">23165 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L23166" class="LineNr">23166 </span> 89/<- %edx 0/r32/eax +<span id="L23167" class="LineNr">23167 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L23168" class="LineNr">23168 </span> (<a href='mu.subx.html#L26902'>type-equal?</a> %edx %eax) <span class="subxComment"># => eax</span> +<span id="L23169" class="LineNr">23169 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23170" class="LineNr">23170 </span> 0f 84/jump-if-= $type-equal-ignoring-capacity?:end/disp32 <span class="subxComment"># eax switches meaning</span> +<span id="L23171" class="LineNr">23171 </span> <span class="subxComment"># if (curr-a->left == "array") curr-a = curr-a->element-type</span> +<span id="L23172" class="LineNr">23172 </span> { +<span id="L23173" class="LineNr">23173 </span> (<a href='mu.subx.html#L26672'>mu-array?</a> %edx) <span class="subxComment"># => eax</span> +<span id="L23174" class="LineNr">23174 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23175" class="LineNr">23175 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23176" class="LineNr">23176 </span><span class="Constant">$type-equal-ignoring-capacity?:array</span>: +<span id="L23177" class="LineNr">23177 </span> <span class="subxComment"># curr-a = curr-a->right->left</span> +<span id="L23178" class="LineNr">23178 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L23179" class="LineNr">23179 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L23180" class="LineNr">23180 </span> 89/<- %ecx 0/r32/eax +<span id="L23181" class="LineNr">23181 </span> <span class="subxComment"># curr-b = curr-b->right->left</span> +<span id="L23182" class="LineNr">23182 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L23183" class="LineNr">23183 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L23184" class="LineNr">23184 </span> 89/<- %ebx 0/r32/eax +<span id="L23185" class="LineNr">23185 </span> eb/jump $type-equal-ignoring-capacity?:base-case/disp8 +<span id="L23186" class="LineNr">23186 </span> } +<span id="L23187" class="LineNr">23187 </span> <span class="subxComment"># if (curr-a->left == "stream") curr-a = curr-a->element-type</span> +<span id="L23188" class="LineNr">23188 </span> { +<span id="L23189" class="LineNr">23189 </span> (<a href='mu.subx.html#L26737'>mu-stream?</a> %edx) <span class="subxComment"># => eax</span> +<span id="L23190" class="LineNr">23190 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23191" class="LineNr">23191 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23192" class="LineNr">23192 </span><span class="Constant">$type-equal-ignoring-capacity?:stream</span>: +<span id="L23193" class="LineNr">23193 </span> <span class="subxComment"># curr-a = curr-a->right->left</span> +<span id="L23194" class="LineNr">23194 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L23195" class="LineNr">23195 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L23196" class="LineNr">23196 </span> 89/<- %ecx 0/r32/eax +<span id="L23197" class="LineNr">23197 </span> <span class="subxComment"># curr-b = curr-b->right->left</span> +<span id="L23198" class="LineNr">23198 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L23199" class="LineNr">23199 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L23200" class="LineNr">23200 </span> 89/<- %ebx 0/r32/eax +<span id="L23201" class="LineNr">23201 </span> eb/jump $type-equal-ignoring-capacity?:base-case/disp8 +<span id="L23202" class="LineNr">23202 </span> } +<span id="L23203" class="LineNr">23203 </span><span class="Constant">$type-equal-ignoring-capacity?:base-case</span>: +<span id="L23204" class="LineNr">23204 </span> <span class="subxComment"># return type-equal?(curr-a, curr-b)</span> +<span id="L23205" class="LineNr">23205 </span> (<a href='mu.subx.html#L26902'>type-equal?</a> %ecx %ebx) <span class="subxComment"># => eax</span> +<span id="L23206" class="LineNr">23206 </span><span class="Constant">$type-equal-ignoring-capacity?:end</span>: +<span id="L23207" class="LineNr">23207 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23208" class="LineNr">23208 </span> 5b/pop-to-ebx +<span id="L23209" class="LineNr">23209 </span> 5a/pop-to-edx +<span id="L23210" class="LineNr">23210 </span> 59/pop-to-ecx +<span id="L23211" class="LineNr">23211 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23212" class="LineNr">23212 </span> 89/<- %esp 5/r32/ebp +<span id="L23213" class="LineNr">23213 </span> 5d/pop-to-ebp +<span id="L23214" class="LineNr">23214 </span> c3/return +<span id="L23215" class="LineNr">23215 </span> +<span id="L23216" class="LineNr">23216 </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="L23217" class="LineNr">23217 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23218" class="LineNr">23218 </span> 55/push-ebp +<span id="L23219" class="LineNr">23219 </span> 89/<- %ebp 4/r32/esp +<span id="L23220" class="LineNr">23220 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L23221" class="LineNr">23221 </span> 50/push-eax +<span id="L23222" class="LineNr">23222 </span> 51/push-ecx +<span id="L23223" class="LineNr">23223 </span> 52/push-edx +<span id="L23224" class="LineNr">23224 </span> 53/push-ebx +<span id="L23225" class="LineNr">23225 </span> 56/push-esi +<span id="L23226" class="LineNr">23226 </span> 57/push-edi +<span id="L23227" class="LineNr">23227 </span> <span class="subxComment"># var type-parameters/edx: (addr table (handle array byte) (addr type-tree) 8)</span> +<span id="L23228" class="LineNr">23228 </span> 81 5/subop/subtract %esp 0x60/imm32 +<span id="L23229" class="LineNr">23229 </span> 68/push 0x60/imm32/size +<span id="L23230" class="LineNr">23230 </span> 68/push 0/imm32/read +<span id="L23231" class="LineNr">23231 </span> 68/push 0/imm32/write +<span id="L23232" class="LineNr">23232 </span> 89/<- %edx 4/r32/esp +<span id="L23233" class="LineNr">23233 </span> <span class="subxComment"># var template/esi: (addr list var) = fn->outputs</span> +<span id="L23234" class="LineNr">23234 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23235" class="LineNr">23235 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> +<span id="L23236" class="LineNr">23236 </span> 89/<- %esi 0/r32/eax +<span id="L23237" class="LineNr">23237 </span> <span class="subxComment"># var curr-template/ebx: (addr list var) = fn->outputs</span> +<span id="L23238" class="LineNr">23238 </span> 89/<- %ebx 0/r32/eax +<span id="L23239" class="LineNr">23239 </span> <span class="subxComment"># var curr/edi: (addr stmt-var) = stmt->inouts</span> +<span id="L23240" class="LineNr">23240 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L23241" class="LineNr">23241 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L23242" class="LineNr">23242 </span> 89/<- %edi 0/r32/eax +<span id="L23243" class="LineNr">23243 </span> { +<span id="L23244" class="LineNr">23244 </span> <span class="subxComment"># if template is null, break</span> +<span id="L23245" class="LineNr">23245 </span> 81 7/subop/compare %ebx 0/imm32 +<span id="L23246" class="LineNr">23246 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L23247" class="LineNr">23247 </span> <span class="subxComment"># if curr is null, abort</span> +<span id="L23248" class="LineNr">23248 </span> 81 7/subop/compare %edi 0/imm32 +<span id="L23249" class="LineNr">23249 </span> 0f 84/jump-if-= $check-mu-return-stmt:error-too-few-inouts/disp32 +<span id="L23250" class="LineNr">23250 </span> <span class="subxComment"># var template-type/ecx: (addr type-tree) = template->value->type</span> +<span id="L23251" class="LineNr">23251 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L23252" class="LineNr">23252 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L23253" class="LineNr">23253 </span> 89/<- %ecx 0/r32/eax +<span id="L23254" class="LineNr">23254 </span> <span class="subxComment"># var curr-type/eax: (addr type-tree) = curr->value->type</span> +<span id="L23255" class="LineNr">23255 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L23256" class="LineNr">23256 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L23257" class="LineNr">23257 </span> <span class="subxComment"># if (curr->is-deref?) curr-type = payload of curr-type</span> +<span id="L23258" class="LineNr">23258 </span> 81 7/subop/compare *(edi+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L23259" class="LineNr">23259 </span> { +<span id="L23260" class="LineNr">23260 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23261" class="LineNr">23261 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L23262" class="LineNr">23262 </span> <span class="subxComment"># if t->right is null, t = t->left</span> +<span id="L23263" class="LineNr">23263 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L23264" class="LineNr">23264 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23265" class="LineNr">23265 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L23266" class="LineNr">23266 </span> } +<span id="L23267" class="LineNr">23267 </span> <span class="subxComment"># if curr-type is literal and template-type is float, abort</span> +<span id="L23268" class="LineNr">23268 </span> 50/push-eax +<span id="L23269" class="LineNr">23269 </span> { +<span id="L23270" class="LineNr">23270 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 0) <span class="subxComment"># literal => eax</span> +<span id="L23271" class="LineNr">23271 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23272" class="LineNr">23272 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23273" class="LineNr">23273 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %ecx 0xf) <span class="subxComment"># float => eax</span> +<span id="L23274" class="LineNr">23274 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23275" class="LineNr">23275 </span> 0f 85/jump-if-!= $check-mu-return-stmt:error-literal-to-float/disp32 +<span id="L23276" class="LineNr">23276 </span> } +<span id="L23277" class="LineNr">23277 </span> 58/pop-to-eax +<span id="L23278" class="LineNr">23278 </span> <span class="subxComment"># if (curr-type != template-type) abort</span> +<span id="L23279" class="LineNr">23279 </span> (<a href='mu.subx.html#L26416'>type-match?</a> %ecx %eax %edx) <span class="subxComment"># => eax</span> +<span id="L23280" class="LineNr">23280 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23281" class="LineNr">23281 </span> 0f 84/jump-if-= $check-mu-return-stmt:error1/disp32 +<span id="L23282" class="LineNr">23282 </span> <span class="subxComment"># if register-within-list-with-conflict?(curr, original template, curr-template, stmt) abort</span> +<span id="L23283" class="LineNr">23283 </span> (<a href='mu.subx.html#L23436'>register-within-list-with-conflict?</a> %edi %esi %ebx *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L23284" class="LineNr">23284 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23285" class="LineNr">23285 </span> 0f 85/jump-if-!= $check-mu-return-stmt:error2/disp32 +<span id="L23286" class="LineNr">23286 </span> <span class="subxComment"># template = template->next</span> +<span id="L23287" class="LineNr">23287 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L23288" class="LineNr">23288 </span> 89/<- %ebx 0/r32/eax +<span id="L23289" class="LineNr">23289 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L23290" class="LineNr">23290 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L23291" class="LineNr">23291 </span> 89/<- %edi 0/r32/eax +<span id="L23292" class="LineNr">23292 </span> <span class="subxComment">#</span> +<span id="L23293" class="LineNr">23293 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L23294" class="LineNr">23294 </span> } +<span id="L23295" class="LineNr">23295 </span> <span class="subxComment"># if curr is not null, abort</span> +<span id="L23296" class="LineNr">23296 </span> 81 7/subop/compare %edi 0/imm32 +<span id="L23297" class="LineNr">23297 </span> 0f 85/jump-if-!= $check-mu-return-stmt:error-too-many-inouts/disp32 +<span id="L23298" class="LineNr">23298 </span><span class="Constant">$check-mu-return-stmt:end</span>: +<span id="L23299" class="LineNr">23299 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L23300" class="LineNr">23300 </span> 81 0/subop/add %esp 0x6c/imm32 +<span id="L23301" class="LineNr">23301 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23302" class="LineNr">23302 </span> 5f/pop-to-edi +<span id="L23303" class="LineNr">23303 </span> 5e/pop-to-esi +<span id="L23304" class="LineNr">23304 </span> 5b/pop-to-ebx +<span id="L23305" class="LineNr">23305 </span> 5a/pop-to-edx +<span id="L23306" class="LineNr">23306 </span> 59/pop-to-ecx +<span id="L23307" class="LineNr">23307 </span> 58/pop-to-eax +<span id="L23308" class="LineNr">23308 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23309" class="LineNr">23309 </span> 89/<- %esp 5/r32/ebp +<span id="L23310" class="LineNr">23310 </span> 5d/pop-to-ebp +<span id="L23311" class="LineNr">23311 </span> c3/return +<span id="L23312" class="LineNr">23312 </span> +<span id="L23313" class="LineNr">23313 </span><span class="Constant">$check-mu-return-stmt:error1</span>: +<span id="L23314" class="LineNr">23314 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23315" class="LineNr">23315 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23316" class="LineNr">23316 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23317" class="LineNr">23317 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23318" class="LineNr">23318 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": return: '"</span>) +<span id="L23319" class="LineNr">23319 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L23320" class="LineNr">23320 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23321" class="LineNr">23321 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23322" class="LineNr">23322 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' has the wrong type\n"</span>) +<span id="L23323" class="LineNr">23323 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23324" class="LineNr">23324 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23325" class="LineNr">23325 </span> <span class="subxComment"># never gets here</span> +<span id="L23326" class="LineNr">23326 </span> +<span id="L23327" class="LineNr">23327 </span><span class="Constant">$check-mu-return-stmt:error2</span>: +<span id="L23328" class="LineNr">23328 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23329" class="LineNr">23329 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23330" class="LineNr">23330 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23331" class="LineNr">23331 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23332" class="LineNr">23332 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": return: '"</span>) +<span id="L23333" class="LineNr">23333 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L23334" class="LineNr">23334 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23335" class="LineNr">23335 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23336" class="LineNr">23336 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is no longer available\n"</span>) +<span id="L23337" class="LineNr">23337 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23338" class="LineNr">23338 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23339" class="LineNr">23339 </span> <span class="subxComment"># never gets here</span> +<span id="L23340" class="LineNr">23340 </span> +<span id="L23341" class="LineNr">23341 </span><span class="Constant">$check-mu-return-stmt:error-literal-to-float</span>: +<span id="L23342" class="LineNr">23342 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23343" class="LineNr">23343 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23344" class="LineNr">23344 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23345" class="LineNr">23345 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23346" class="LineNr">23346 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": return: cannot copy literal '"</span>) +<span id="L23347" class="LineNr">23347 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L23348" class="LineNr">23348 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23349" class="LineNr">23349 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23350" class="LineNr">23350 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' to float\n"</span>) +<span id="L23351" class="LineNr">23351 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23352" class="LineNr">23352 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23353" class="LineNr">23353 </span> <span class="subxComment"># never gets here</span> +<span id="L23354" class="LineNr">23354 </span> +<span id="L23355" class="LineNr">23355 </span><span class="Constant">$check-mu-return-stmt:error-too-few-inouts</span>: +<span id="L23356" class="LineNr">23356 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23357" class="LineNr">23357 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23358" class="LineNr">23358 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-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">": return: too few inouts\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-return-stmt:error-too-many-inouts</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#L258'>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">": return: too many inouts\n"</span>) +<span id="L23371" class="LineNr">23371 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23372" class="LineNr">23372 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23373" class="LineNr">23373 </span> <span class="subxComment"># never gets here</span> +<span id="L23374" class="LineNr">23374 </span> +<span id="L23375" class="LineNr">23375 </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="L23376" class="LineNr">23376 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23377" class="LineNr">23377 </span> 55/push-ebp +<span id="L23378" class="LineNr">23378 </span> 89/<- %ebp 4/r32/esp +<span id="L23379" class="LineNr">23379 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L23380" class="LineNr">23380 </span> 50/push-eax +<span id="L23381" class="LineNr">23381 </span> 51/push-ecx +<span id="L23382" class="LineNr">23382 </span> 56/push-esi +<span id="L23383" class="LineNr">23383 </span> <span class="subxComment"># var table/esi: (addr table (handle array byte) int 8)</span> +<span id="L23384" class="LineNr">23384 </span> 81 5/subop/subtract %esp 0x60/imm32 +<span id="L23385" class="LineNr">23385 </span> 68/push 0x60/imm32/size +<span id="L23386" class="LineNr">23386 </span> 68/push 0/imm32/read +<span id="L23387" class="LineNr">23387 </span> 68/push 0/imm32/write +<span id="L23388" class="LineNr">23388 </span> 89/<- %esi 4/r32/esp +<span id="L23389" class="LineNr">23389 </span> <span class="subxComment"># var curr/ecx: (addr list var) = outputs</span> +<span id="L23390" class="LineNr">23390 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L23391" class="LineNr">23391 </span> { +<span id="L23392" class="LineNr">23392 </span> <span class="subxComment"># if (curr == 0) break</span> +<span id="L23393" class="LineNr">23393 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L23394" class="LineNr">23394 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L23395" class="LineNr">23395 </span> <span class="subxComment"># var reg/eax: (addr array byte) = curr->value->register # guaranteed to exist</span> +<span id="L23396" class="LineNr">23396 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L23397" class="LineNr">23397 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L23398" class="LineNr">23398 </span> <span class="subxComment"># if reg exists in table, abort</span> +<span id="L23399" class="LineNr">23399 </span> (<a href='131table.subx.html#L1800'>maybe-get</a> %esi %eax 0xc) <span class="subxComment"># => eax</span> +<span id="L23400" class="LineNr">23400 </span> 3d/compare-eax-and 0/imm32 +<span id="L23401" class="LineNr">23401 </span> 0f 85/jump-if-!= $check-all-unique-registers:abort/disp32 +<span id="L23402" class="LineNr">23402 </span> <span class="subxComment"># insert reg in table</span> +<span id="L23403" class="LineNr">23403 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L23404" class="LineNr">23404 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L23405" class="LineNr">23405 </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="L23406" class="LineNr">23406 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L23407" class="LineNr">23407 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L23408" class="LineNr">23408 </span> 89/<- %ecx 0/r32/eax +<span id="L23409" class="LineNr">23409 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L23410" class="LineNr">23410 </span> } +<span id="L23411" class="LineNr">23411 </span><span class="Constant">$check-all-unique-registers:end</span>: +<span id="L23412" class="LineNr">23412 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L23413" class="LineNr">23413 </span> 81 0/subop/add %esp 0x6c/imm32 +<span id="L23414" class="LineNr">23414 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23415" class="LineNr">23415 </span> 5e/pop-to-esi +<span id="L23416" class="LineNr">23416 </span> 59/pop-to-ecx +<span id="L23417" class="LineNr">23417 </span> 58/pop-to-eax +<span id="L23418" class="LineNr">23418 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23419" class="LineNr">23419 </span> 89/<- %esp 5/r32/ebp +<span id="L23420" class="LineNr">23420 </span> 5d/pop-to-ebp +<span id="L23421" class="LineNr">23421 </span> c3/return +<span id="L23422" class="LineNr">23422 </span> +<span id="L23423" class="LineNr">23423 </span><span class="Constant">$check-all-unique-registers:abort</span>: +<span id="L23424" class="LineNr">23424 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23425" class="LineNr">23425 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23426" class="LineNr">23426 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23427" class="LineNr">23427 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23428" class="LineNr">23428 </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="L23429" class="LineNr">23429 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23430" class="LineNr">23430 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23431" class="LineNr">23431 </span> <span class="subxComment"># never gets here</span> +<span id="L23432" class="LineNr">23432 </span> +<span id="L23433" class="LineNr">23433 </span><span class="subxComment"># return false if s's register is not between start (inclusive) and end (exclusive)</span> +<span id="L23434" class="LineNr">23434 </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="L23435" class="LineNr">23435 </span><span class="subxComment"># otherwise return true</span> +<span id="L23436" class="LineNr">23436 </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="L23437" class="LineNr">23437 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23438" class="LineNr">23438 </span> 55/push-ebp +<span id="L23439" class="LineNr">23439 </span> 89/<- %ebp 4/r32/esp +<span id="L23440" class="LineNr">23440 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L23441" class="LineNr">23441 </span> 51/push-ecx +<span id="L23442" class="LineNr">23442 </span> 52/push-edx +<span id="L23443" class="LineNr">23443 </span> 53/push-ebx +<span id="L23444" class="LineNr">23444 </span> 56/push-esi +<span id="L23445" class="LineNr">23445 </span> 57/push-edi +<span id="L23446" class="LineNr">23446 </span> <span class="subxComment"># var target/ebx: (addr array byte) = s->value->register</span> +<span id="L23447" class="LineNr">23447 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L23448" class="LineNr">23448 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L23449" class="LineNr">23449 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L23450" class="LineNr">23450 </span><span class="CommentedCode">#? (write-buffered Stderr "AA: ")</span> +<span id="L23451" class="LineNr">23451 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L23452" class="LineNr">23452 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L23453" class="LineNr">23453 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L23454" class="LineNr">23454 </span> <span class="subxComment"># if (var->register == 0) return false</span> +<span id="L23455" class="LineNr">23455 </span> 3d/compare-eax-and 0/imm32 +<span id="L23456" class="LineNr">23456 </span> 0f 84/jump-if-= $register-within-list-with-conflict?:end/disp32 <span class="subxComment"># eax turns into result</span> +<span id="L23457" class="LineNr">23457 </span> 89/<- %ebx 0/r32/eax +<span id="L23458" class="LineNr">23458 </span> <span class="subxComment"># var curr/ecx: (addr list var) = start</span> +<span id="L23459" class="LineNr">23459 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L23460" class="LineNr">23460 </span> <span class="subxComment"># edx = end</span> +<span id="L23461" class="LineNr">23461 </span> 8b/-> *(ebp+0x10) 2/r32/edx +<span id="L23462" class="LineNr">23462 </span> { +<span id="L23463" class="LineNr">23463 </span> <span class="subxComment"># if (curr == 0) break</span> +<span id="L23464" class="LineNr">23464 </span> 81 7/subop/compare %edi 0/imm32 +<span id="L23465" class="LineNr">23465 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L23466" class="LineNr">23466 </span> <span class="subxComment"># if (curr == end) break</span> +<span id="L23467" class="LineNr">23467 </span> 39/compare %ecx 2/r32/edx +<span id="L23468" class="LineNr">23468 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L23469" class="LineNr">23469 </span> <span class="subxComment"># var curr-reg/eax: (addr array byte) = curr->value->register</span> +<span id="L23470" class="LineNr">23470 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L23471" class="LineNr">23471 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L23472" class="LineNr">23472 </span> <span class="subxComment"># if (curr-reg == 0) continue</span> +<span id="L23473" class="LineNr">23473 </span> 3d/compare-eax-and 0/imm32 +<span id="L23474" class="LineNr">23474 </span> 74/jump-if-= $register-within-list-with-conflict?:continue/disp8 +<span id="L23475" class="LineNr">23475 </span> <span class="subxComment"># if (curr-reg == target) check for conflict</span> +<span id="L23476" class="LineNr">23476 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax %ebx) <span class="subxComment"># => eax</span> +<span id="L23477" class="LineNr">23477 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23478" class="LineNr">23478 </span> { +<span id="L23479" class="LineNr">23479 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23480" class="LineNr">23480 </span><span class="CommentedCode">#? (write-buffered Stderr "conflict?\n")</span> +<span id="L23481" class="LineNr">23481 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L23482" class="LineNr">23482 </span> <span class="subxComment"># var return-inouts/eax: (addr stmt-var) = stmt->inouts</span> +<span id="L23483" class="LineNr">23483 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L23484" class="LineNr">23484 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L23485" class="LineNr">23485 </span> (<a href='mu.subx.html#L23512'>register-conflict?</a> %ebx %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L23486" class="LineNr">23486 </span> eb/jump $register-within-list-with-conflict?:end/disp8 +<span id="L23487" class="LineNr">23487 </span> } +<span id="L23488" class="LineNr">23488 </span><span class="Constant">$register-within-list-with-conflict?:continue</span>: +<span id="L23489" class="LineNr">23489 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L23490" class="LineNr">23490 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L23491" class="LineNr">23491 </span> 89/<- %ecx 0/r32/eax +<span id="L23492" class="LineNr">23492 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L23493" class="LineNr">23493 </span> } +<span id="L23494" class="LineNr">23494 </span> <span class="subxComment"># return false</span> +<span id="L23495" class="LineNr">23495 </span> b8/copy-to-eax 0/imm32/false +<span id="L23496" class="LineNr">23496 </span><span class="Constant">$register-within-list-with-conflict?:end</span>: +<span id="L23497" class="LineNr">23497 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23498" class="LineNr">23498 </span> 5f/pop-to-edi +<span id="L23499" class="LineNr">23499 </span> 5e/pop-to-esi +<span id="L23500" class="LineNr">23500 </span> 5b/pop-to-ebx +<span id="L23501" class="LineNr">23501 </span> 5a/pop-to-edx +<span id="L23502" class="LineNr">23502 </span> 59/pop-to-ecx +<span id="L23503" class="LineNr">23503 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23504" class="LineNr">23504 </span> 89/<- %esp 5/r32/ebp +<span id="L23505" class="LineNr">23505 </span> 5d/pop-to-ebp +<span id="L23506" class="LineNr">23506 </span> c3/return +<span id="L23507" class="LineNr">23507 </span> +<span id="L23508" class="LineNr">23508 </span><span class="subxComment"># At the first occurrence of register 'reg' in fn-outputs,</span> +<span id="L23509" class="LineNr">23509 </span><span class="subxComment"># check if the corresponding element of return-inouts has a different register.</span> +<span id="L23510" class="LineNr">23510 </span><span class="subxComment"># This hacky helper is intended to be called in one specific place. Don't</span> +<span id="L23511" class="LineNr">23511 </span><span class="subxComment"># reuse it as is.</span> +<span id="L23512" class="LineNr">23512 </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="L23513" class="LineNr">23513 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23514" class="LineNr">23514 </span> 55/push-ebp +<span id="L23515" class="LineNr">23515 </span> 89/<- %ebp 4/r32/esp +<span id="L23516" class="LineNr">23516 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L23517" class="LineNr">23517 </span> 51/push-ecx +<span id="L23518" class="LineNr">23518 </span> 52/push-edx +<span id="L23519" class="LineNr">23519 </span> 53/push-ebx +<span id="L23520" class="LineNr">23520 </span> 56/push-esi +<span id="L23521" class="LineNr">23521 </span> 57/push-edi +<span id="L23522" class="LineNr">23522 </span><span class="CommentedCode">#? (write-buffered Stderr "BB: ")</span> +<span id="L23523" class="LineNr">23523 </span><span class="CommentedCode">#? (write-buffered Stderr *(ebp+8))</span> +<span id="L23524" class="LineNr">23524 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L23525" class="LineNr">23525 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L23526" class="LineNr">23526 </span> <span class="subxComment"># var curr-output/edi: (addr list var) = fn-outputs</span> +<span id="L23527" class="LineNr">23527 </span> 8b/-> *(ebp+0x10) 7/r32/edi +<span id="L23528" class="LineNr">23528 </span> <span class="subxComment"># var curr-inout/esi: (addr stmt-var) = return-inouts</span> +<span id="L23529" class="LineNr">23529 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L23530" class="LineNr">23530 </span> { +<span id="L23531" class="LineNr">23531 </span> <span class="subxComment"># if (curr-output == 0) abort</span> +<span id="L23532" class="LineNr">23532 </span> 81 7/subop/compare %edi 0/imm32 +<span id="L23533" class="LineNr">23533 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L23534" class="LineNr">23534 </span> <span class="subxComment"># if (curr-output->value->register != reg) continue</span> +<span id="L23535" class="LineNr">23535 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L23536" class="LineNr">23536 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L23537" class="LineNr">23537 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L23538" class="LineNr">23538 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23539" class="LineNr">23539 </span> 0f 84/jump-if= $register-conflict?:continue/disp32 +<span id="L23540" class="LineNr">23540 </span><span class="CommentedCode">#? (write-buffered Stderr "rescan\n")</span> +<span id="L23541" class="LineNr">23541 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L23542" class="LineNr">23542 </span> <span class="subxComment"># var curr-reg/eax: (addr array byte) = curr-inout->value->register</span> +<span id="L23543" class="LineNr">23543 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L23544" class="LineNr">23544 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L23545" class="LineNr">23545 </span> <span class="subxComment"># if (curr-reg == 0) return true</span> +<span id="L23546" class="LineNr">23546 </span> 3d/compare-eax-and 0/imm32 +<span id="L23547" class="LineNr">23547 </span> { +<span id="L23548" class="LineNr">23548 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23549" class="LineNr">23549 </span><span class="CommentedCode">#? (write-buffered Stderr "no register\n")</span> +<span id="L23550" class="LineNr">23550 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L23551" class="LineNr">23551 </span> b8/copy-to-eax 1/imm32/true +<span id="L23552" class="LineNr">23552 </span> e9/jump $register-conflict?:end/disp32 +<span id="L23553" class="LineNr">23553 </span> } +<span id="L23554" class="LineNr">23554 </span> <span class="subxComment"># return (curr-reg != reg)</span> +<span id="L23555" class="LineNr">23555 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L23556" class="LineNr">23556 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23557" class="LineNr">23557 </span> 0f 94/set-if-= %al +<span id="L23558" class="LineNr">23558 </span><span class="CommentedCode">#? (write-buffered Stderr "final: ")</span> +<span id="L23559" class="LineNr">23559 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L23560" class="LineNr">23560 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L23561" class="LineNr">23561 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L23562" class="LineNr">23562 </span> eb/jump $register-conflict?:end/disp8 +<span id="L23563" class="LineNr">23563 </span><span class="Constant">$register-conflict?:continue</span>: +<span id="L23564" class="LineNr">23564 </span> <span class="subxComment"># curr-output = curr-output->next</span> +<span id="L23565" class="LineNr">23565 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L23566" class="LineNr">23566 </span> 89/<- %edi 0/r32/eax +<span id="L23567" class="LineNr">23567 </span> <span class="subxComment"># curr-inout = curr-inout->next</span> +<span id="L23568" class="LineNr">23568 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L23569" class="LineNr">23569 </span> 89/<- %esi 0/r32/eax +<span id="L23570" class="LineNr">23570 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L23571" class="LineNr">23571 </span> } +<span id="L23572" class="LineNr">23572 </span> <span class="subxComment"># should never get here</span> +<span id="L23573" class="LineNr">23573 </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="L23574" class="LineNr">23574 </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="L23575" class="LineNr">23575 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L23576" class="LineNr">23576 </span><span class="Constant">$register-conflict?:end</span>: +<span id="L23577" class="LineNr">23577 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23578" class="LineNr">23578 </span> 5f/pop-to-edi +<span id="L23579" class="LineNr">23579 </span> 5e/pop-to-esi +<span id="L23580" class="LineNr">23580 </span> 5b/pop-to-ebx +<span id="L23581" class="LineNr">23581 </span> 5a/pop-to-edx +<span id="L23582" class="LineNr">23582 </span> 59/pop-to-ecx +<span id="L23583" class="LineNr">23583 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23584" class="LineNr">23584 </span> 89/<- %esp 5/r32/ebp +<span id="L23585" class="LineNr">23585 </span> 5d/pop-to-ebp +<span id="L23586" class="LineNr">23586 </span> c3/return +<span id="L23587" class="LineNr">23587 </span> +<span id="L23588" class="LineNr">23588 </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="L23589" class="LineNr">23589 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23590" class="LineNr">23590 </span> 55/push-ebp +<span id="L23591" class="LineNr">23591 </span> 89/<- %ebp 4/r32/esp +<span id="L23592" class="LineNr">23592 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L23593" class="LineNr">23593 </span> 50/push-eax +<span id="L23594" class="LineNr">23594 </span> 51/push-ecx +<span id="L23595" class="LineNr">23595 </span> <span class="subxComment"># var curr/ecx: (addr list stmt) = block->stmts</span> +<span id="L23596" class="LineNr">23596 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L23597" class="LineNr">23597 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> +<span id="L23598" class="LineNr">23598 </span> 3d/compare-eax-and 0/imm32 +<span id="L23599" class="LineNr">23599 </span> 74/jump-if-= $check-final-stmt-is-return:<a href='114error.subx.html#L9'>error</a>/disp8 +<span id="L23600" class="LineNr">23600 </span> 89/<- %ecx 0/r32/eax +<span id="L23601" class="LineNr">23601 </span> { +<span id="L23602" class="LineNr">23602 </span> <span class="subxComment"># if curr->next == 0, break</span> +<span id="L23603" class="LineNr">23603 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L23604" class="LineNr">23604 </span> 3d/compare-eax-and 0/imm32 +<span id="L23605" class="LineNr">23605 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23606" class="LineNr">23606 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L23607" class="LineNr">23607 </span> 89/<- %ecx 0/r32/eax +<span id="L23608" class="LineNr">23608 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L23609" class="LineNr">23609 </span> } +<span id="L23610" class="LineNr">23610 </span><span class="Constant">$check-final-stmt-is-return:check-tag</span>: +<span id="L23611" class="LineNr">23611 </span> <span class="subxComment"># if curr->value->tag != Stmt1, abort</span> +<span id="L23612" class="LineNr">23612 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L23613" class="LineNr">23613 </span> 81 7/subop/compare *eax 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> +<span id="L23614" class="LineNr">23614 </span> 75/jump-if-!= $check-final-stmt-is-return:<a href='114error.subx.html#L9'>error</a>/disp8 +<span id="L23615" class="LineNr">23615 </span><span class="Constant">$check-final-stmt-is-return:check-operation</span>: +<span id="L23616" class="LineNr">23616 </span> <span class="subxComment"># if curr->operation != "return", abort</span> +<span id="L23617" class="LineNr">23617 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L23618" class="LineNr">23618 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"return"</span>) +<span id="L23619" class="LineNr">23619 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23620" class="LineNr">23620 </span> 74/jump-if-= $check-final-stmt-is-return:<a href='114error.subx.html#L9'>error</a>/disp8 +<span id="L23621" class="LineNr">23621 </span><span class="Constant">$check-final-stmt-is-return:end</span>: +<span id="L23622" class="LineNr">23622 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23623" class="LineNr">23623 </span> 59/pop-to-ecx +<span id="L23624" class="LineNr">23624 </span> 58/pop-to-eax +<span id="L23625" class="LineNr">23625 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23626" class="LineNr">23626 </span> 89/<- %esp 5/r32/ebp +<span id="L23627" class="LineNr">23627 </span> 5d/pop-to-ebp +<span id="L23628" class="LineNr">23628 </span> c3/return +<span id="L23629" class="LineNr">23629 </span> +<span id="L23630" class="LineNr">23630 </span><span class="Constant">$check-final-stmt-is-return:<a href='114error.subx.html#L9'>error</a></span>: +<span id="L23631" class="LineNr">23631 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23632" class="LineNr">23632 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23633" class="LineNr">23633 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23634" class="LineNr">23634 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23635" class="LineNr">23635 </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="L23636" class="LineNr">23636 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23637" class="LineNr">23637 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23638" class="LineNr">23638 </span> <span class="subxComment"># never gets here</span> +<span id="L23639" class="LineNr">23639 </span> +<span id="L23640" class="LineNr">23640 </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="L23641" class="LineNr">23641 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23642" class="LineNr">23642 </span> 55/push-ebp +<span id="L23643" class="LineNr">23643 </span> 89/<- %ebp 4/r32/esp +<span id="L23644" class="LineNr">23644 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L23645" class="LineNr">23645 </span> 50/push-eax +<span id="L23646" class="LineNr">23646 </span> 51/push-ecx +<span id="L23647" class="LineNr">23647 </span> <span class="subxComment"># var curr/ecx: (addr list stmt) = block->stmts</span> +<span id="L23648" class="LineNr">23648 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L23649" class="LineNr">23649 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> +<span id="L23650" class="LineNr">23650 </span> 3d/compare-eax-and 0/imm32 +<span id="L23651" class="LineNr">23651 </span> 0f 84/jump-if-= $check-no-breaks:end/disp32 +<span id="L23652" class="LineNr">23652 </span> 89/<- %ecx 0/r32/eax +<span id="L23653" class="LineNr">23653 </span> { +<span id="L23654" class="LineNr">23654 </span> <span class="subxComment"># if curr->next == 0, break</span> +<span id="L23655" class="LineNr">23655 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L23656" class="LineNr">23656 </span> 3d/compare-eax-and 0/imm32 +<span id="L23657" class="LineNr">23657 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23658" class="LineNr">23658 </span> <span class="subxComment"># if curr->value->tag != Stmt1, continue</span> +<span id="L23659" class="LineNr">23659 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L23660" class="LineNr">23660 </span> 81 7/subop/compare *eax 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> +<span id="L23661" class="LineNr">23661 </span> 75/jump-if-!= $check-no-breaks:continue/disp8 +<span id="L23662" class="LineNr">23662 </span> <span class="subxComment"># if curr->value->operation starts with "break", abort</span> +<span id="L23663" class="LineNr">23663 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L23664" class="LineNr">23664 </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="L23665" class="LineNr">23665 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23666" class="LineNr">23666 </span> 75/jump-if-!= $check-no-breaks:<a href='114error.subx.html#L9'>error</a>/disp8 +<span id="L23667" class="LineNr">23667 </span><span class="Constant">$check-no-breaks:continue</span>: +<span id="L23668" class="LineNr">23668 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L23669" class="LineNr">23669 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L23670" class="LineNr">23670 </span> 89/<- %ecx 0/r32/eax +<span id="L23671" class="LineNr">23671 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L23672" class="LineNr">23672 </span> } +<span id="L23673" class="LineNr">23673 </span><span class="Constant">$check-no-breaks:end</span>: +<span id="L23674" class="LineNr">23674 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23675" class="LineNr">23675 </span> 59/pop-to-ecx +<span id="L23676" class="LineNr">23676 </span> 58/pop-to-eax +<span id="L23677" class="LineNr">23677 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23678" class="LineNr">23678 </span> 89/<- %esp 5/r32/ebp +<span id="L23679" class="LineNr">23679 </span> 5d/pop-to-ebp +<span id="L23680" class="LineNr">23680 </span> c3/return +<span id="L23681" class="LineNr">23681 </span> +<span id="L23682" class="LineNr">23682 </span><span class="Constant">$check-no-breaks:<a href='114error.subx.html#L9'>error</a></span>: +<span id="L23683" class="LineNr">23683 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23684" class="LineNr">23684 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23685" class="LineNr">23685 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23686" class="LineNr">23686 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23687" class="LineNr">23687 </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="L23688" class="LineNr">23688 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23689" class="LineNr">23689 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23690" class="LineNr">23690 </span> <span class="subxComment"># never gets here</span> +<span id="L23691" class="LineNr">23691 </span> +<span id="L23692" class="LineNr">23692 </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="L23693" class="LineNr">23693 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23694" class="LineNr">23694 </span> 55/push-ebp +<span id="L23695" class="LineNr">23695 </span> 89/<- %ebp 4/r32/esp +<span id="L23696" class="LineNr">23696 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L23697" class="LineNr">23697 </span> 50/push-eax +<span id="L23698" class="LineNr">23698 </span> 51/push-ecx +<span id="L23699" class="LineNr">23699 </span> 52/push-edx +<span id="L23700" class="LineNr">23700 </span> 53/push-ebx +<span id="L23701" class="LineNr">23701 </span> 56/push-esi +<span id="L23702" class="LineNr">23702 </span> 57/push-edi +<span id="L23703" class="LineNr">23703 </span> <span class="subxComment"># esi = stmt</span> +<span id="L23704" class="LineNr">23704 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L23705" class="LineNr">23705 </span> <span class="subxH1Comment"># - check for 0 inouts</span> +<span id="L23706" class="LineNr">23706 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> +<span id="L23707" class="LineNr">23707 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L23708" class="LineNr">23708 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23709" class="LineNr">23709 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-too-few-inouts/disp32 +<span id="L23710" class="LineNr">23710 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L23711" class="LineNr">23711 </span> 89/<- %ecx 0/r32/eax +<span id="L23712" class="LineNr">23712 </span><span class="Constant">$check-mu-get-stmt:check-base</span>: +<span id="L23713" class="LineNr">23713 </span> <span class="subxH1Comment"># - check base type</span> +<span id="L23714" class="LineNr">23714 </span> <span class="subxComment"># if it's an 'addr', check that it's in a register</span> +<span id="L23715" class="LineNr">23715 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> +<span id="L23716" class="LineNr">23716 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L23717" class="LineNr">23717 </span> 89/<- %ebx 0/r32/eax +<span id="L23718" class="LineNr">23718 </span> { +<span id="L23719" class="LineNr">23719 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L23720" class="LineNr">23720 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L23721" class="LineNr">23721 </span><span class="Constant">$check-mu-get-stmt:base-is-compound</span>: +<span id="L23722" class="LineNr">23722 </span> <span class="subxComment"># if (type->left != addr) break</span> <span id="L23723" class="LineNr">23723 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L23724" class="LineNr">23724 </span> 89/<- %ebx 0/r32/eax -<span id="L23725" class="LineNr">23725 </span> } -<span id="L23726" class="LineNr">23726 </span> <span class="subxComment"># var base-type-id/ebx: type-id = base-type->value</span> -<span id="L23727" class="LineNr">23727 </span> 8b/-> *(ebx+4) 3/r32/ebx <span class="subxComment"># Type-tree-value</span> -<span id="L23728" class="LineNr">23728 </span> (<a href='mu.subx.html#L20227'>container?</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L23729" class="LineNr">23729 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23730" class="LineNr">23730 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-bad-base/disp32 -<span id="L23731" class="LineNr">23731 </span> <span class="subxComment"># var base-typeinfo/edx: (addr typeinfo) = find-typeinfo(base-type-id)</span> -<span id="L23732" class="LineNr">23732 </span> <span class="subxS1Comment"># . var container/ecx: (handle typeinfo)</span> -<span id="L23733" class="LineNr">23733 </span> 68/push 0/imm32 -<span id="L23734" class="LineNr">23734 </span> 68/push 0/imm32 -<span id="L23735" class="LineNr">23735 </span> 89/<- %ecx 4/r32/esp -<span id="L23736" class="LineNr">23736 </span> <span class="subxS1Comment"># .</span> -<span id="L23737" class="LineNr">23737 </span> (<a href='mu.subx.html#L20310'>find-typeinfo</a> %ebx %ecx) -<span id="L23738" class="LineNr">23738 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> -<span id="L23739" class="LineNr">23739 </span> <span class="subxS1Comment"># . reclaim container</span> -<span id="L23740" class="LineNr">23740 </span> 81 0/subop/add %esp 8/imm32 -<span id="L23741" class="LineNr">23741 </span> <span class="subxS1Comment"># .</span> -<span id="L23742" class="LineNr">23742 </span> 89/<- %edx 0/r32/eax -<span id="L23743" class="LineNr">23743 </span> <span class="subxComment"># var offset/ecx: (addr stmt-var) = stmt->inouts->next</span> -<span id="L23744" class="LineNr">23744 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L23745" class="LineNr">23745 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L23746" class="LineNr">23746 </span> 89/<- %ecx 0/r32/eax -<span id="L23747" class="LineNr">23747 </span> <span class="subxH1Comment"># - check for 1 inout</span> -<span id="L23748" class="LineNr">23748 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23749" class="LineNr">23749 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-too-few-inouts/disp32 -<span id="L23750" class="LineNr">23750 </span> <span class="subxComment"># var offset/ecx: (addr var) = lookup(offset->value)</span> -<span id="L23751" class="LineNr">23751 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L23752" class="LineNr">23752 </span> 89/<- %ecx 0/r32/eax -<span id="L23753" class="LineNr">23753 </span> <span class="subxH1Comment"># - check for valid field</span> -<span id="L23754" class="LineNr">23754 </span> 81 7/subop/compare *(ecx+0x14) -1/imm32/uninitialized <span class="subxComment"># Var-offset</span> -<span id="L23755" class="LineNr">23755 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-bad-field/disp32 -<span id="L23756" class="LineNr">23756 </span> <span class="subxH1Comment"># - check for too many inouts</span> -<span id="L23757" class="LineNr">23757 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L23758" class="LineNr">23758 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L23759" class="LineNr">23759 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L23760" class="LineNr">23760 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23761" class="LineNr">23761 </span> 0f 85/jump-if-!= $check-mu-get-stmt:error-too-many-inouts/disp32 -<span id="L23762" class="LineNr">23762 </span> <span class="subxComment"># var output/edi: (addr var) = stmt->outputs->value</span> -<span id="L23763" class="LineNr">23763 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L23764" class="LineNr">23764 </span> <span class="subxH1Comment"># - check for 0 outputs</span> -<span id="L23765" class="LineNr">23765 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23766" class="LineNr">23766 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-too-few-outputs/disp32 -<span id="L23767" class="LineNr">23767 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L23768" class="LineNr">23768 </span> 89/<- %edi 0/r32/eax -<span id="L23769" class="LineNr">23769 </span><span class="Constant">$check-mu-get-stmt:check-output-type</span>: -<span id="L23770" class="LineNr">23770 </span> <span class="subxH1Comment"># - check output type</span> -<span id="L23771" class="LineNr">23771 </span> <span class="subxComment"># must be in register</span> -<span id="L23772" class="LineNr">23772 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+0x18) *(edi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L23773" class="LineNr">23773 </span> 3d/compare-eax-and 0/imm32 -<span id="L23774" class="LineNr">23774 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-output-not-in-register/disp32 -<span id="L23775" class="LineNr">23775 </span> <span class="subxComment"># must have a non-atomic type</span> -<span id="L23776" class="LineNr">23776 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L23777" class="LineNr">23777 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L23778" class="LineNr">23778 </span> 0f 85/jump-if-!= $check-mu-get-stmt:error-output-type-not-address/disp32 -<span id="L23779" class="LineNr">23779 </span> <span class="subxComment"># type must start with (addr ...)</span> -<span id="L23780" class="LineNr">23780 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L23781" class="LineNr">23781 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 2) <span class="subxComment"># => eax</span> +<span id="L23724" class="LineNr">23724 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L23725" class="LineNr">23725 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23726" class="LineNr">23726 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23727" class="LineNr">23727 </span><span class="Constant">$check-mu-get-stmt:base-is-addr</span>: +<span id="L23728" class="LineNr">23728 </span> <span class="subxComment"># now check for register</span> +<span id="L23729" class="LineNr">23729 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L23730" class="LineNr">23730 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-base-type-addr-but-not-register/disp32 +<span id="L23731" class="LineNr">23731 </span><span class="Constant">$check-mu-get-stmt:base-is-addr-in-register</span>: +<span id="L23732" class="LineNr">23732 </span> <span class="subxComment"># type->left is now an addr; skip it</span> +<span id="L23733" class="LineNr">23733 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L23734" class="LineNr">23734 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L23735" class="LineNr">23735 </span> 0f 85/jump-if-!= $check-mu-get-stmt:error-bad-base/disp32 +<span id="L23736" class="LineNr">23736 </span><span class="Constant">$check-mu-get-stmt:base-is-addr-to-atom-in-register</span>: +<span id="L23737" class="LineNr">23737 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L23738" class="LineNr">23738 </span> 89/<- %ebx 0/r32/eax +<span id="L23739" class="LineNr">23739 </span> } +<span id="L23740" class="LineNr">23740 </span><span class="Constant">$check-mu-get-stmt:check-base-typeinfo</span>: +<span id="L23741" class="LineNr">23741 </span> <span class="subxComment"># ensure type is a container</span> +<span id="L23742" class="LineNr">23742 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L23743" class="LineNr">23743 </span> { +<span id="L23744" class="LineNr">23744 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23745" class="LineNr">23745 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L23746" class="LineNr">23746 </span> 89/<- %ebx 0/r32/eax +<span id="L23747" class="LineNr">23747 </span> } +<span id="L23748" class="LineNr">23748 </span> <span class="subxComment"># var base-type-id/ebx: type-id = base-type->value</span> +<span id="L23749" class="LineNr">23749 </span> 8b/-> *(ebx+4) 3/r32/ebx <span class="subxComment"># Type-tree-value</span> +<span id="L23750" class="LineNr">23750 </span> (<a href='mu.subx.html#L20249'>container?</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L23751" class="LineNr">23751 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23752" class="LineNr">23752 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-bad-base/disp32 +<span id="L23753" class="LineNr">23753 </span> <span class="subxComment"># var base-typeinfo/edx: (addr typeinfo) = find-typeinfo(base-type-id)</span> +<span id="L23754" class="LineNr">23754 </span> <span class="subxS1Comment"># . var container/ecx: (handle typeinfo)</span> +<span id="L23755" class="LineNr">23755 </span> 68/push 0/imm32 +<span id="L23756" class="LineNr">23756 </span> 68/push 0/imm32 +<span id="L23757" class="LineNr">23757 </span> 89/<- %ecx 4/r32/esp +<span id="L23758" class="LineNr">23758 </span> <span class="subxS1Comment"># .</span> +<span id="L23759" class="LineNr">23759 </span> (<a href='mu.subx.html#L20332'>find-typeinfo</a> %ebx %ecx) +<span id="L23760" class="LineNr">23760 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> +<span id="L23761" class="LineNr">23761 </span> <span class="subxS1Comment"># . reclaim container</span> +<span id="L23762" class="LineNr">23762 </span> 81 0/subop/add %esp 8/imm32 +<span id="L23763" class="LineNr">23763 </span> <span class="subxS1Comment"># .</span> +<span id="L23764" class="LineNr">23764 </span> 89/<- %edx 0/r32/eax +<span id="L23765" class="LineNr">23765 </span> <span class="subxComment"># var offset/ecx: (addr stmt-var) = stmt->inouts->next</span> +<span id="L23766" class="LineNr">23766 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L23767" class="LineNr">23767 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L23768" class="LineNr">23768 </span> 89/<- %ecx 0/r32/eax +<span id="L23769" class="LineNr">23769 </span> <span class="subxH1Comment"># - check for 1 inout</span> +<span id="L23770" class="LineNr">23770 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23771" class="LineNr">23771 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-too-few-inouts/disp32 +<span id="L23772" class="LineNr">23772 </span> <span class="subxComment"># var offset/ecx: (addr var) = lookup(offset->value)</span> +<span id="L23773" class="LineNr">23773 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L23774" class="LineNr">23774 </span> 89/<- %ecx 0/r32/eax +<span id="L23775" class="LineNr">23775 </span> <span class="subxH1Comment"># - check for valid field</span> +<span id="L23776" class="LineNr">23776 </span> 81 7/subop/compare *(ecx+0x14) -1/imm32/uninitialized <span class="subxComment"># Var-offset</span> +<span id="L23777" class="LineNr">23777 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-bad-field/disp32 +<span id="L23778" class="LineNr">23778 </span> <span class="subxH1Comment"># - check for too many inouts</span> +<span id="L23779" class="LineNr">23779 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L23780" class="LineNr">23780 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L23781" class="LineNr">23781 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> <span id="L23782" class="LineNr">23782 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23783" class="LineNr">23783 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-output-type-not-address/disp32 -<span id="L23784" class="LineNr">23784 </span><span class="Constant">$check-mu-get-stmt:check-output-type-match</span>: -<span id="L23785" class="LineNr">23785 </span> <span class="subxComment"># payload of addr type must match 'type' definition</span> -<span id="L23786" class="LineNr">23786 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L23787" class="LineNr">23787 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L23788" class="LineNr">23788 </span> <span class="subxComment"># if (payload->right == null) payload = payload->left</span> -<span id="L23789" class="LineNr">23789 </span> 81 7/subop/compare *(eax+0xc) 0/imm32/null <span class="subxComment"># Type-tree-right</span> -<span id="L23790" class="LineNr">23790 </span> { -<span id="L23791" class="LineNr">23791 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L23792" class="LineNr">23792 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L23793" class="LineNr">23793 </span> } -<span id="L23794" class="LineNr">23794 </span> 89/<- %edi 0/r32/eax -<span id="L23795" class="LineNr">23795 </span> <span class="subxS1Comment"># . var output-name/ecx: (addr array byte)</span> -<span id="L23796" class="LineNr">23796 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L23797" class="LineNr">23797 </span> 89/<- %ecx 0/r32/eax -<span id="L23798" class="LineNr">23798 </span> <span class="subxS1Comment"># . var base-typeinfo-entry/eax: (addr handle typeinfo-entry)</span> -<span id="L23799" class="LineNr">23799 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> -<span id="L23800" class="LineNr">23800 </span> (<a href='131table.subx.html#L26'>get</a> %eax %ecx 0x10) <span class="subxComment"># => eax</span> -<span id="L23801" class="LineNr">23801 </span> <span class="subxS1Comment"># .</span> -<span id="L23802" class="LineNr">23802 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L23803" class="LineNr">23803 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Typeinfo-entry-input-var Typeinfo-entry-input-var => eax</span> -<span id="L23804" class="LineNr">23804 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L23805" class="LineNr">23805 </span> <span class="subxS1Comment"># .</span> -<span id="L23806" class="LineNr">23806 </span> (<a href='mu.subx.html#L26880'>type-equal?</a> %edi %eax) <span class="subxComment"># => eax</span> -<span id="L23807" class="LineNr">23807 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23808" class="LineNr">23808 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-bad-output-type/disp32 -<span id="L23809" class="LineNr">23809 </span> <span class="subxH1Comment"># - check for too many outputs</span> -<span id="L23810" class="LineNr">23810 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L23811" class="LineNr">23811 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L23812" class="LineNr">23812 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23813" class="LineNr">23813 </span> 0f 85/jump-if-!= $check-mu-get-stmt:error-too-many-outputs/disp32 -<span id="L23814" class="LineNr">23814 </span><span class="Constant">$check-mu-get-stmt:end</span>: -<span id="L23815" class="LineNr">23815 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L23816" class="LineNr">23816 </span> 5f/pop-to-edi -<span id="L23817" class="LineNr">23817 </span> 5e/pop-to-esi -<span id="L23818" class="LineNr">23818 </span> 5b/pop-to-ebx -<span id="L23819" class="LineNr">23819 </span> 5a/pop-to-edx -<span id="L23820" class="LineNr">23820 </span> 59/pop-to-ecx -<span id="L23821" class="LineNr">23821 </span> 58/pop-to-eax -<span id="L23822" class="LineNr">23822 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23823" class="LineNr">23823 </span> 89/<- %esp 5/r32/ebp -<span id="L23824" class="LineNr">23824 </span> 5d/pop-to-ebp -<span id="L23825" class="LineNr">23825 </span> c3/return -<span id="L23826" class="LineNr">23826 </span> -<span id="L23827" class="LineNr">23827 </span><span class="Constant">$check-mu-get-stmt:error-too-few-inouts</span>: -<span id="L23828" class="LineNr">23828 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23829" class="LineNr">23829 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23830" class="LineNr">23830 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23831" class="LineNr">23831 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23832" class="LineNr">23832 </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="L23833" class="LineNr">23833 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23834" class="LineNr">23834 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23835" class="LineNr">23835 </span> <span class="subxComment"># never gets here</span> -<span id="L23836" class="LineNr">23836 </span> -<span id="L23837" class="LineNr">23837 </span><span class="Constant">$check-mu-get-stmt:error-too-many-inouts</span>: -<span id="L23838" class="LineNr">23838 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23839" class="LineNr">23839 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23840" class="LineNr">23840 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-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">": stmt <a href='131table.subx.html#L26'>get</a>: too many inouts (2 required)\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-get-stmt:error-too-few-outputs</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#L258'>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 <a href='131table.subx.html#L26'>get</a>: must have an output\n"</span>) -<span id="L23853" class="LineNr">23853 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23854" class="LineNr">23854 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23855" class="LineNr">23855 </span> <span class="subxComment"># never gets here</span> -<span id="L23856" class="LineNr">23856 </span> -<span id="L23857" class="LineNr">23857 </span><span class="Constant">$check-mu-get-stmt:error-too-many-outputs</span>: -<span id="L23858" class="LineNr">23858 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23859" class="LineNr">23859 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23860" class="LineNr">23860 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23861" class="LineNr">23861 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23862" class="LineNr">23862 </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="L23863" class="LineNr">23863 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23864" class="LineNr">23864 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23865" class="LineNr">23865 </span> <span class="subxComment"># never gets here</span> -<span id="L23866" class="LineNr">23866 </span> -<span id="L23867" class="LineNr">23867 </span><span class="Constant">$check-mu-get-stmt:error-bad-base</span>: -<span id="L23868" class="LineNr">23868 </span> <span class="subxComment"># error("fn " fn ": stmt get: var '" base->name "' must have a 'type' definition\n")</span> -<span id="L23869" class="LineNr">23869 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23870" class="LineNr">23870 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23871" class="LineNr">23871 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23872" class="LineNr">23872 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23873" class="LineNr">23873 </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="L23874" class="LineNr">23874 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L23875" class="LineNr">23875 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L23876" class="LineNr">23876 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L23877" class="LineNr">23877 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23878" class="LineNr">23878 </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="L23879" class="LineNr">23879 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23880" class="LineNr">23880 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23881" class="LineNr">23881 </span> <span class="subxComment"># never gets here</span> -<span id="L23882" class="LineNr">23882 </span> -<span id="L23883" class="LineNr">23883 </span><span class="Constant">$check-mu-get-stmt:error-base-type-addr-but-not-register</span>: -<span id="L23884" class="LineNr">23884 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23885" class="LineNr">23885 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23886" class="LineNr">23886 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23887" class="LineNr">23887 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23888" class="LineNr">23888 </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="L23889" class="LineNr">23889 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L23890" class="LineNr">23890 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L23891" class="LineNr">23891 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L23892" class="LineNr">23892 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23893" class="LineNr">23893 </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="L23894" class="LineNr">23894 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23895" class="LineNr">23895 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23896" class="LineNr">23896 </span> <span class="subxComment"># never gets here</span> -<span id="L23897" class="LineNr">23897 </span> -<span id="L23898" class="LineNr">23898 </span><span class="Constant">$check-mu-get-stmt:error-bad-field</span>: -<span id="L23899" class="LineNr">23899 </span> <span class="subxComment"># error("fn " fn ": stmt get: type " type " has no member called '" curr->name "'\n")</span> -<span id="L23900" class="LineNr">23900 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23901" class="LineNr">23901 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23902" class="LineNr">23902 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23903" class="LineNr">23903 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23904" class="LineNr">23904 </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="L23905" class="LineNr">23905 </span> <span class="subxS1Comment"># . write(Type-id->data[tmp])</span> -<span id="L23906" class="LineNr">23906 </span> bf/copy-to-edi <span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span>/imm32 -<span id="L23907" class="LineNr">23907 </span> 8b/-> *(edi+ebx<<2+0xc) 6/r32/esi -<span id="L23908" class="LineNr">23908 </span> { -<span id="L23909" class="LineNr">23909 </span> 81 7/subop/compare %esi 0/imm32 -<span id="L23910" class="LineNr">23910 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23911" class="LineNr">23911 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %esi) -<span id="L23912" class="LineNr">23912 </span> } -<span id="L23913" class="LineNr">23913 </span> <span class="subxS1Comment"># .</span> -<span id="L23914" class="LineNr">23914 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' has no member called '"</span>) -<span id="L23915" class="LineNr">23915 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L23916" class="LineNr">23916 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23917" class="LineNr">23917 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) -<span id="L23918" class="LineNr">23918 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23919" class="LineNr">23919 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23920" class="LineNr">23920 </span> <span class="subxComment"># never gets here</span> -<span id="L23921" class="LineNr">23921 </span> -<span id="L23922" class="LineNr">23922 </span><span class="Constant">$check-mu-get-stmt:error-output-not-in-register</span>: -<span id="L23923" class="LineNr">23923 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23924" class="LineNr">23924 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23925" class="LineNr">23925 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23926" class="LineNr">23926 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23927" class="LineNr">23927 </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="L23928" class="LineNr">23928 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L23929" class="LineNr">23929 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23930" class="LineNr">23930 </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="L23931" class="LineNr">23931 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23932" class="LineNr">23932 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23933" class="LineNr">23933 </span> <span class="subxComment"># never gets here</span> -<span id="L23934" class="LineNr">23934 </span> -<span id="L23935" class="LineNr">23935 </span><span class="Constant">$check-mu-get-stmt:error-output-type-not-address</span>: -<span id="L23936" class="LineNr">23936 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23937" class="LineNr">23937 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23938" class="LineNr">23938 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23939" class="LineNr">23939 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23940" class="LineNr">23940 </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="L23941" class="LineNr">23941 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23942" class="LineNr">23942 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23943" class="LineNr">23943 </span> <span class="subxComment"># never gets here</span> -<span id="L23944" class="LineNr">23944 </span> -<span id="L23945" class="LineNr">23945 </span><span class="Constant">$check-mu-get-stmt:error-bad-output-type</span>: -<span id="L23946" class="LineNr">23946 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23947" class="LineNr">23947 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23948" class="LineNr">23948 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23949" class="LineNr">23949 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23950" class="LineNr">23950 </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="L23951" class="LineNr">23951 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %ecx) -<span id="L23952" class="LineNr">23952 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' of type '"</span>) -<span id="L23953" class="LineNr">23953 </span> bf/copy-to-edi <span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span>/imm32 -<span id="L23954" class="LineNr">23954 </span> 8b/-> *(edi+ebx<<2+0xc) 6/r32/esi -<span id="L23955" class="LineNr">23955 </span> { -<span id="L23956" class="LineNr">23956 </span> 81 7/subop/compare %esi 0/imm32 -<span id="L23957" class="LineNr">23957 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23958" class="LineNr">23958 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %esi) -<span id="L23959" class="LineNr">23959 </span> } -<span id="L23960" class="LineNr">23960 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) -<span id="L23961" class="LineNr">23961 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23962" class="LineNr">23962 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23963" class="LineNr">23963 </span> <span class="subxComment"># never gets here</span> -<span id="L23964" class="LineNr">23964 </span> -<span id="L23965" class="LineNr">23965 </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="L23966" class="LineNr">23966 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23967" class="LineNr">23967 </span> 55/push-ebp -<span id="L23968" class="LineNr">23968 </span> 89/<- %ebp 4/r32/esp -<span id="L23969" class="LineNr">23969 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L23970" class="LineNr">23970 </span> 50/push-eax -<span id="L23971" class="LineNr">23971 </span> 51/push-ecx -<span id="L23972" class="LineNr">23972 </span> 52/push-edx -<span id="L23973" class="LineNr">23973 </span> 53/push-ebx -<span id="L23974" class="LineNr">23974 </span> 56/push-esi -<span id="L23975" class="LineNr">23975 </span> 57/push-edi -<span id="L23976" class="LineNr">23976 </span> <span class="subxComment"># esi = stmt</span> -<span id="L23977" class="LineNr">23977 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L23978" class="LineNr">23978 </span> <span class="subxH1Comment"># - check for 0 inouts</span> -<span id="L23979" class="LineNr">23979 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> -<span id="L23980" class="LineNr">23980 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L23981" class="LineNr">23981 </span><span class="Constant">$check-mu-index-stmt:check-no-inouts</span>: -<span id="L23982" class="LineNr">23982 </span> 3d/compare-eax-and 0/imm32 -<span id="L23983" class="LineNr">23983 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-too-few-inouts/disp32 -<span id="L23984" class="LineNr">23984 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L23985" class="LineNr">23985 </span> 89/<- %ecx 0/r32/eax -<span id="L23986" class="LineNr">23986 </span> <span class="subxH1Comment"># - check base type is either (addr array ...) in register or (array ...) on stack</span> -<span id="L23987" class="LineNr">23987 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> -<span id="L23988" class="LineNr">23988 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L23989" class="LineNr">23989 </span> 89/<- %ebx 0/r32/eax -<span id="L23990" class="LineNr">23990 </span> <span class="subxComment"># if base-type is an atom, abort with a precise error</span> -<span id="L23991" class="LineNr">23991 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L23992" class="LineNr">23992 </span> { -<span id="L23993" class="LineNr">23993 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23994" class="LineNr">23994 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %ebx 3) <span class="subxComment"># array => eax</span> -<span id="L23995" class="LineNr">23995 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23996" class="LineNr">23996 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-base-array-atom-type/disp32 -<span id="L23997" class="LineNr">23997 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-base-non-array-type/disp32 -<span id="L23998" class="LineNr">23998 </span> } -<span id="L23999" class="LineNr">23999 </span><span class="Constant">$check-mu-index-stmt:base-is-compound</span>: -<span id="L24000" class="LineNr">24000 </span> <span class="subxComment"># if type->left not addr or array, abort</span> -<span id="L24001" class="LineNr">24001 </span> { -<span id="L24002" class="LineNr">24002 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L24003" class="LineNr">24003 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L24004" class="LineNr">24004 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24005" class="LineNr">24005 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L24006" class="LineNr">24006 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L24007" class="LineNr">24007 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> -<span id="L24008" class="LineNr">24008 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24009" class="LineNr">24009 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L24010" class="LineNr">24010 </span> e9/jump $check-mu-index-stmt:error-base-non-array-type/disp32 -<span id="L24011" class="LineNr">24011 </span> } -<span id="L24012" class="LineNr">24012 </span> <span class="subxComment"># if (type->left == addr) ensure type->right->left == array and type->register exists</span> -<span id="L24013" class="LineNr">24013 </span> { -<span id="L24014" class="LineNr">24014 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L24015" class="LineNr">24015 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L24016" class="LineNr">24016 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24017" class="LineNr">24017 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24018" class="LineNr">24018 </span><span class="Constant">$check-mu-index-stmt:base-is-addr</span>: -<span id="L24019" class="LineNr">24019 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L24020" class="LineNr">24020 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L24021" class="LineNr">24021 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> -<span id="L24022" class="LineNr">24022 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24023" class="LineNr">24023 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-base-non-array-type/disp32 -<span id="L24024" class="LineNr">24024 </span><span class="Constant">$check-mu-index-stmt:check-base-addr-is-register</span>: -<span id="L24025" class="LineNr">24025 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L24026" class="LineNr">24026 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-base-address-array-type-on-stack/disp32 -<span id="L24027" class="LineNr">24027 </span> } -<span id="L24028" class="LineNr">24028 </span> <span class="subxComment"># if (type->left == array) ensure type->register doesn't exist</span> -<span id="L24029" class="LineNr">24029 </span> { -<span id="L24030" class="LineNr">24030 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L24031" class="LineNr">24031 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> -<span id="L24032" class="LineNr">24032 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24033" class="LineNr">24033 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24034" class="LineNr">24034 </span><span class="Constant">$check-mu-index-stmt:base-is-array</span>: -<span id="L24035" class="LineNr">24035 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L24036" class="LineNr">24036 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-base-array-type-in-register/disp32 -<span id="L24037" class="LineNr">24037 </span> } -<span id="L24038" class="LineNr">24038 </span> <span class="subxComment"># if (base-type->left == addr) base-type = base-type->right</span> -<span id="L24039" class="LineNr">24039 </span> { -<span id="L24040" class="LineNr">24040 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L24041" class="LineNr">24041 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L24042" class="LineNr">24042 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24043" class="LineNr">24043 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24044" class="LineNr">24044 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L24045" class="LineNr">24045 </span> 89/<- %ebx 0/r32/eax -<span id="L24046" class="LineNr">24046 </span> } -<span id="L24047" class="LineNr">24047 </span> <span class="subxH1Comment"># - check for 1 inout</span> -<span id="L24048" class="LineNr">24048 </span> <span class="subxComment"># var index/ecx: (addr stmt-var) = stmt->inouts->next->value</span> -<span id="L24049" class="LineNr">24049 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L24050" class="LineNr">24050 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L24051" class="LineNr">24051 </span><span class="Constant">$check-mu-index-stmt:check-single-inout</span>: -<span id="L24052" class="LineNr">24052 </span> 3d/compare-eax-and 0/imm32 -<span id="L24053" class="LineNr">24053 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-too-few-inouts/disp32 -<span id="L24054" class="LineNr">24054 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L24055" class="LineNr">24055 </span> 89/<- %ecx 0/r32/eax -<span id="L24056" class="LineNr">24056 </span> <span class="subxH1Comment"># - check index is either a literal or register</span> -<span id="L24057" class="LineNr">24057 </span> <span class="subxComment"># var index-type/edx: (addr type-tree)</span> -<span id="L24058" class="LineNr">24058 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L24059" class="LineNr">24059 </span> 89/<- %edx 0/r32/eax -<span id="L24060" class="LineNr">24060 </span> <span class="subxComment"># if index type is an atom, it must be a literal or int</span> -<span id="L24061" class="LineNr">24061 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L24062" class="LineNr">24062 </span> { -<span id="L24063" class="LineNr">24063 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24064" class="LineNr">24064 </span><span class="Constant">$check-mu-index-stmt:index-type-is-atom</span>: -<span id="L24065" class="LineNr">24065 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %edx 0) <span class="subxComment"># literal => eax</span> -<span id="L24066" class="LineNr">24066 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24067" class="LineNr">24067 </span> 75/jump-if-!= $check-mu-index-stmt:index-type-done/disp8 -<span id="L24068" class="LineNr">24068 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %edx 1) <span class="subxComment"># int => eax</span> -<span id="L24069" class="LineNr">24069 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24070" class="LineNr">24070 </span> 75/jump-if-!= $check-mu-index-stmt:index-type-done/disp8 -<span id="L24071" class="LineNr">24071 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %edx 7) <span class="subxComment"># offset => eax</span> -<span id="L24072" class="LineNr">24072 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24073" class="LineNr">24073 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-index-offset-atom-type/disp32 -<span id="L24074" class="LineNr">24074 </span> e9/jump $check-mu-index-stmt:error-invalid-index-type/disp32 -<span id="L24075" class="LineNr">24075 </span> } -<span id="L24076" class="LineNr">24076 </span> <span class="subxComment"># if index type is a non-atom: it must be an offset</span> -<span id="L24077" class="LineNr">24077 </span> { -<span id="L24078" class="LineNr">24078 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L24079" class="LineNr">24079 </span><span class="Constant">$check-mu-index-stmt:index-type-is-non-atom</span>: -<span id="L24080" class="LineNr">24080 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L24081" class="LineNr">24081 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 7) <span class="subxComment"># offset => 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-index-stmt:error-invalid-index-type/disp32 -<span id="L24084" class="LineNr">24084 </span> } -<span id="L24085" class="LineNr">24085 </span><span class="Constant">$check-mu-index-stmt:index-type-done</span>: -<span id="L24086" class="LineNr">24086 </span> <span class="subxComment"># check index is either a literal or in a register</span> -<span id="L24087" class="LineNr">24087 </span> { -<span id="L24088" class="LineNr">24088 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %edx 0) <span class="subxComment"># literal => eax</span> -<span id="L24089" class="LineNr">24089 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24090" class="LineNr">24090 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L24091" class="LineNr">24091 </span><span class="Constant">$check-mu-index-stmt:check-index-in-register</span>: -<span id="L24092" class="LineNr">24092 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L24093" class="LineNr">24093 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-index-on-stack/disp32 -<span id="L24094" class="LineNr">24094 </span> } -<span id="L24095" class="LineNr">24095 </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="L24096" class="LineNr">24096 </span> { -<span id="L24097" class="LineNr">24097 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %edx 1) <span class="subxComment"># int => eax</span> -<span id="L24098" class="LineNr">24098 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24099" class="LineNr">24099 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24100" class="LineNr">24100 </span><span class="Constant">$check-mu-index-stmt:check-index-can-be-int</span>: -<span id="L24101" class="LineNr">24101 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L24102" class="LineNr">24102 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L24103" class="LineNr">24103 </span> (<a href='mu.subx.html#L28947'>array-element-size</a> %eax) <span class="subxComment"># => eax</span> -<span id="L24104" class="LineNr">24104 </span> 3d/compare-eax-and 1/imm32 -<span id="L24105" class="LineNr">24105 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24106" class="LineNr">24106 </span> 3d/compare-eax-and 2/imm32 -<span id="L24107" class="LineNr">24107 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24108" class="LineNr">24108 </span> 3d/compare-eax-and 4/imm32 -<span id="L24109" class="LineNr">24109 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24110" class="LineNr">24110 </span> 3d/compare-eax-and 8/imm32 -<span id="L24111" class="LineNr">24111 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24112" class="LineNr">24112 </span> e9/jump $check-mu-index-stmt:error-index-needs-offset/disp32 -<span id="L24113" class="LineNr">24113 </span> } -<span id="L24114" class="LineNr">24114 </span> <span class="subxH1Comment"># - check for too many inouts</span> -<span id="L24115" class="LineNr">24115 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L24116" class="LineNr">24116 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L24117" class="LineNr">24117 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L24118" class="LineNr">24118 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24119" class="LineNr">24119 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-too-many-inouts/disp32 -<span id="L24120" class="LineNr">24120 </span> <span class="subxH1Comment"># - check for 0 outputs</span> -<span id="L24121" class="LineNr">24121 </span> <span class="subxComment"># var output/edi: (addr var) = stmt->outputs->value</span> -<span id="L24122" class="LineNr">24122 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L24123" class="LineNr">24123 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24124" class="LineNr">24124 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-too-few-outputs/disp32 -<span id="L24125" class="LineNr">24125 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L24126" class="LineNr">24126 </span> 89/<- %edi 0/r32/eax -<span id="L24127" class="LineNr">24127 </span> <span class="subxH1Comment"># - check output type</span> -<span id="L24128" class="LineNr">24128 </span> <span class="subxComment"># must have a non-atomic type</span> -<span id="L24129" class="LineNr">24129 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L24130" class="LineNr">24130 </span> 89/<- %edx 0/r32/eax -<span id="L24131" class="LineNr">24131 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L24132" class="LineNr">24132 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-output-type-not-address/disp32 -<span id="L24133" class="LineNr">24133 </span> <span class="subxComment"># type must start with (addr ...)</span> -<span id="L24134" class="LineNr">24134 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L24135" class="LineNr">24135 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L24136" class="LineNr">24136 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24137" class="LineNr">24137 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-output-type-not-address/disp32 -<span id="L24138" class="LineNr">24138 </span> <span class="subxComment"># if tail(base-type) != tail(output-type) abort</span> -<span id="L24139" class="LineNr">24139 </span> (<a href='mu.subx.html#L26821'>type-tail</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L24140" class="LineNr">24140 </span> 89/<- %ebx 0/r32/eax -<span id="L24141" class="LineNr">24141 </span> (<a href='mu.subx.html#L26821'>type-tail</a> %edx) <span class="subxComment"># => eax</span> -<span id="L24142" class="LineNr">24142 </span> (<a href='mu.subx.html#L26880'>type-equal?</a> %ebx %eax) <span class="subxComment"># => eax</span> -<span id="L24143" class="LineNr">24143 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24144" class="LineNr">24144 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-bad-output-type/disp32 -<span id="L24145" class="LineNr">24145 </span> <span class="subxH1Comment"># - check for too many outputs</span> -<span id="L24146" class="LineNr">24146 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L24147" class="LineNr">24147 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L24148" class="LineNr">24148 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24149" class="LineNr">24149 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-too-many-outputs/disp32 -<span id="L24150" class="LineNr">24150 </span><span class="Constant">$check-mu-index-stmt:end</span>: -<span id="L24151" class="LineNr">24151 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L24152" class="LineNr">24152 </span> 5f/pop-to-edi -<span id="L24153" class="LineNr">24153 </span> 5e/pop-to-esi -<span id="L24154" class="LineNr">24154 </span> 5b/pop-to-ebx -<span id="L24155" class="LineNr">24155 </span> 5a/pop-to-edx -<span id="L24156" class="LineNr">24156 </span> 59/pop-to-ecx -<span id="L24157" class="LineNr">24157 </span> 58/pop-to-eax -<span id="L24158" class="LineNr">24158 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L24159" class="LineNr">24159 </span> 89/<- %esp 5/r32/ebp -<span id="L24160" class="LineNr">24160 </span> 5d/pop-to-ebp -<span id="L24161" class="LineNr">24161 </span> c3/return -<span id="L24162" class="LineNr">24162 </span> -<span id="L24163" class="LineNr">24163 </span><span class="Constant">$check-mu-index-stmt:error-base-non-array-type</span>: -<span id="L24164" class="LineNr">24164 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24165" class="LineNr">24165 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24166" class="LineNr">24166 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24167" class="LineNr">24167 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24168" class="LineNr">24168 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: var '"</span>) -<span id="L24169" class="LineNr">24169 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24170" class="LineNr">24170 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24171" class="LineNr">24171 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is not an array\n"</span>) -<span id="L24172" class="LineNr">24172 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24173" class="LineNr">24173 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24174" class="LineNr">24174 </span> <span class="subxComment"># never gets here</span> -<span id="L24175" class="LineNr">24175 </span> -<span id="L24176" class="LineNr">24176 </span><span class="Constant">$check-mu-index-stmt:error-base-array-atom-type</span>: -<span id="L24177" class="LineNr">24177 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24178" class="LineNr">24178 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24179" class="LineNr">24179 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24180" class="LineNr">24180 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24181" class="LineNr">24181 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: array '"</span>) -<span id="L24182" class="LineNr">24182 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24183" class="LineNr">24183 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24184" class="LineNr">24184 </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="L24185" class="LineNr">24185 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24186" class="LineNr">24186 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24187" class="LineNr">24187 </span> <span class="subxComment"># never gets here</span> -<span id="L24188" class="LineNr">24188 </span> -<span id="L24189" class="LineNr">24189 </span><span class="Constant">$check-mu-index-stmt:error-base-address-array-type-on-stack</span>: -<span id="L24190" class="LineNr">24190 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24191" class="LineNr">24191 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24192" class="LineNr">24192 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24193" class="LineNr">24193 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24194" class="LineNr">24194 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: var '"</span>) -<span id="L24195" class="LineNr">24195 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24196" class="LineNr">24196 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24197" class="LineNr">24197 </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="L24198" class="LineNr">24198 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24199" class="LineNr">24199 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24200" class="LineNr">24200 </span> <span class="subxComment"># never gets here</span> -<span id="L24201" class="LineNr">24201 </span> -<span id="L24202" class="LineNr">24202 </span><span class="Constant">$check-mu-index-stmt:error-base-array-type-in-register</span>: -<span id="L24203" class="LineNr">24203 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24204" class="LineNr">24204 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24205" class="LineNr">24205 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24206" class="LineNr">24206 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24207" class="LineNr">24207 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: var '"</span>) -<span id="L24208" class="LineNr">24208 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24209" class="LineNr">24209 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24210" class="LineNr">24210 </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="L24211" class="LineNr">24211 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24212" class="LineNr">24212 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24213" class="LineNr">24213 </span> <span class="subxComment"># never gets here</span> -<span id="L24214" class="LineNr">24214 </span> -<span id="L24215" class="LineNr">24215 </span><span class="Constant">$check-mu-index-stmt:error-too-few-inouts</span>: -<span id="L24216" class="LineNr">24216 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24217" class="LineNr">24217 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24218" class="LineNr">24218 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24219" class="LineNr">24219 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24220" class="LineNr">24220 </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="L24221" class="LineNr">24221 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24222" class="LineNr">24222 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24223" class="LineNr">24223 </span> <span class="subxComment"># never gets here</span> -<span id="L24224" class="LineNr">24224 </span> -<span id="L24225" class="LineNr">24225 </span><span class="Constant">$check-mu-index-stmt:error-invalid-index-type</span>: -<span id="L24226" class="LineNr">24226 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24227" class="LineNr">24227 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24228" class="LineNr">24228 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24229" class="LineNr">24229 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24230" class="LineNr">24230 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: second argument '"</span>) -<span id="L24231" class="LineNr">24231 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24232" class="LineNr">24232 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24233" class="LineNr">24233 </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="L24234" class="LineNr">24234 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24235" class="LineNr">24235 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24236" class="LineNr">24236 </span> <span class="subxComment"># never gets here</span> -<span id="L24237" class="LineNr">24237 </span> -<span id="L24238" class="LineNr">24238 </span><span class="Constant">$check-mu-index-stmt:error-index-offset-atom-type</span>: -<span id="L24239" class="LineNr">24239 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24240" class="LineNr">24240 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24241" class="LineNr">24241 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24242" class="LineNr">24242 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24243" class="LineNr">24243 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: offset '"</span>) -<span id="L24244" class="LineNr">24244 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24245" class="LineNr">24245 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24246" class="LineNr">24246 </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="L24247" class="LineNr">24247 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24248" class="LineNr">24248 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24249" class="LineNr">24249 </span> <span class="subxComment"># never gets here</span> -<span id="L24250" class="LineNr">24250 </span> -<span id="L24251" class="LineNr">24251 </span><span class="Constant">$check-mu-index-stmt:error-index-on-stack</span>: -<span id="L24252" class="LineNr">24252 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24253" class="LineNr">24253 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24254" class="LineNr">24254 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24255" class="LineNr">24255 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24256" class="LineNr">24256 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: second argument '"</span>) -<span id="L24257" class="LineNr">24257 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24258" class="LineNr">24258 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24259" class="LineNr">24259 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be in a register\n"</span>) -<span id="L24260" class="LineNr">24260 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24261" class="LineNr">24261 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24262" class="LineNr">24262 </span> <span class="subxComment"># never gets here</span> -<span id="L24263" class="LineNr">24263 </span> -<span id="L24264" class="LineNr">24264 </span><span class="Constant">$check-mu-index-stmt:error-index-needs-offset</span>: -<span id="L24265" class="LineNr">24265 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24266" class="LineNr">24266 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24267" class="LineNr">24267 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24268" class="LineNr">24268 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24269" class="LineNr">24269 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: cannot take an int for array '"</span>) -<span id="L24270" class="LineNr">24270 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L24271" class="LineNr">24271 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L24272" class="LineNr">24272 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24273" class="LineNr">24273 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24274" class="LineNr">24274 </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="L24275" class="LineNr">24275 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24276" class="LineNr">24276 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24277" class="LineNr">24277 </span> <span class="subxComment"># never gets here</span> -<span id="L24278" class="LineNr">24278 </span> -<span id="L24279" class="LineNr">24279 </span><span class="Constant">$check-mu-index-stmt:error-too-many-inouts</span>: -<span id="L24280" class="LineNr">24280 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24281" class="LineNr">24281 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24282" class="LineNr">24282 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-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">": stmt index: too many inouts (2 required)\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-index-stmt:error-too-few-outputs</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#L258'>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 index: must have an output\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-index-stmt:error-too-many-outputs</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#L258'>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 index: too many outputs (1 required)\n"</span>) -<span id="L24305" class="LineNr">24305 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24306" class="LineNr">24306 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24307" class="LineNr">24307 </span> <span class="subxComment"># never gets here</span> -<span id="L24308" class="LineNr">24308 </span> -<span id="L24309" class="LineNr">24309 </span><span class="Constant">$check-mu-index-stmt:error-output-not-in-register</span>: -<span id="L24310" class="LineNr">24310 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24311" class="LineNr">24311 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24312" class="LineNr">24312 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24313" class="LineNr">24313 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24314" class="LineNr">24314 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: output '"</span>) -<span id="L24315" class="LineNr">24315 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-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">"' is not in a register\n"</span>) -<span id="L24318" class="LineNr">24318 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24319" class="LineNr">24319 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24320" class="LineNr">24320 </span> <span class="subxComment"># never gets here</span> -<span id="L24321" class="LineNr">24321 </span> -<span id="L24322" class="LineNr">24322 </span><span class="Constant">$check-mu-index-stmt:error-output-type-not-address</span>: -<span id="L24323" class="LineNr">24323 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24324" class="LineNr">24324 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24325" class="LineNr">24325 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24326" class="LineNr">24326 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24327" class="LineNr">24327 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: output '"</span>) -<span id="L24328" class="LineNr">24328 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-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">"' must be an addr\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-index-stmt:error-bad-output-type</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#L258'>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 index: output '"</span>) -<span id="L24341" class="LineNr">24341 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24342" class="LineNr">24342 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24343" class="LineNr">24343 </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="L24344" class="LineNr">24344 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24345" class="LineNr">24345 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24346" class="LineNr">24346 </span> <span class="subxComment"># never gets here</span> -<span id="L24347" class="LineNr">24347 </span> -<span id="L24348" class="LineNr">24348 </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="L24349" class="LineNr">24349 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L24350" class="LineNr">24350 </span> 55/push-ebp -<span id="L24351" class="LineNr">24351 </span> 89/<- %ebp 4/r32/esp -<span id="L24352" class="LineNr">24352 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L24353" class="LineNr">24353 </span> 50/push-eax -<span id="L24354" class="LineNr">24354 </span> 51/push-ecx -<span id="L24355" class="LineNr">24355 </span> 52/push-edx -<span id="L24356" class="LineNr">24356 </span> 53/push-ebx -<span id="L24357" class="LineNr">24357 </span> 56/push-esi -<span id="L24358" class="LineNr">24358 </span> 57/push-edi -<span id="L24359" class="LineNr">24359 </span> <span class="subxComment"># esi = stmt</span> -<span id="L24360" class="LineNr">24360 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L24361" class="LineNr">24361 </span> <span class="subxH1Comment"># - check for 0 inouts</span> -<span id="L24362" class="LineNr">24362 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> -<span id="L24363" class="LineNr">24363 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L24364" class="LineNr">24364 </span><span class="Constant">$check-mu-length-stmt:check-no-inouts</span>: -<span id="L24365" class="LineNr">24365 </span> 3d/compare-eax-and 0/imm32 -<span id="L24366" class="LineNr">24366 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-too-few-inouts/disp32 -<span id="L24367" class="LineNr">24367 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L24368" class="LineNr">24368 </span> 89/<- %ecx 0/r32/eax -<span id="L24369" class="LineNr">24369 </span> <span class="subxH1Comment"># - check base type is either (addr array ...) in register or (array ...) on stack</span> -<span id="L24370" class="LineNr">24370 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> -<span id="L24371" class="LineNr">24371 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L24372" class="LineNr">24372 </span> 89/<- %ebx 0/r32/eax -<span id="L24373" class="LineNr">24373 </span> <span class="subxComment"># if base-type is an atom, abort with a precise error</span> -<span id="L24374" class="LineNr">24374 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L24375" class="LineNr">24375 </span> { -<span id="L24376" class="LineNr">24376 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24377" class="LineNr">24377 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %ebx 3) <span class="subxComment"># array => eax</span> -<span id="L24378" class="LineNr">24378 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24379" class="LineNr">24379 </span> 0f 85/jump-if-!= $check-mu-length-stmt:error-base-array-atom-type/disp32 -<span id="L24380" class="LineNr">24380 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-base-non-array-type/disp32 -<span id="L24381" class="LineNr">24381 </span> } -<span id="L24382" class="LineNr">24382 </span><span class="Constant">$check-mu-length-stmt:base-is-compound</span>: -<span id="L24383" class="LineNr">24383 </span> <span class="subxComment"># if type->left not addr or array, abort</span> -<span id="L24384" class="LineNr">24384 </span> { -<span id="L24385" class="LineNr">24385 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L24386" class="LineNr">24386 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L24387" class="LineNr">24387 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24388" class="LineNr">24388 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L24389" class="LineNr">24389 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L24390" class="LineNr">24390 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> -<span id="L24391" class="LineNr">24391 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24392" class="LineNr">24392 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L24393" class="LineNr">24393 </span> e9/jump $check-mu-length-stmt:error-base-non-array-type/disp32 -<span id="L24394" class="LineNr">24394 </span> } -<span id="L24395" class="LineNr">24395 </span> <span class="subxComment"># if (type->left == addr) ensure type->right->left == array and type->register exists</span> -<span id="L24396" class="LineNr">24396 </span> { -<span id="L24397" class="LineNr">24397 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L24398" class="LineNr">24398 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L24399" class="LineNr">24399 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24400" class="LineNr">24400 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24401" class="LineNr">24401 </span><span class="Constant">$check-mu-length-stmt:base-is-addr</span>: -<span id="L24402" class="LineNr">24402 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L24403" class="LineNr">24403 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L24404" class="LineNr">24404 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> -<span id="L24405" class="LineNr">24405 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24406" class="LineNr">24406 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-base-non-array-type/disp32 -<span id="L24407" class="LineNr">24407 </span><span class="Constant">$check-mu-length-stmt:check-base-addr-is-register</span>: -<span id="L24408" class="LineNr">24408 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L24409" class="LineNr">24409 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-base-address-array-type-on-stack/disp32 -<span id="L24410" class="LineNr">24410 </span> } -<span id="L24411" class="LineNr">24411 </span> <span class="subxComment"># if (type->left == array) ensure type->register doesn't exist</span> -<span id="L24412" class="LineNr">24412 </span> { -<span id="L24413" class="LineNr">24413 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L24414" class="LineNr">24414 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> -<span id="L24415" class="LineNr">24415 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24416" class="LineNr">24416 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24417" class="LineNr">24417 </span><span class="Constant">$check-mu-length-stmt:base-is-array</span>: -<span id="L24418" class="LineNr">24418 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L24419" class="LineNr">24419 </span> 0f 85/jump-if-!= $check-mu-length-stmt:error-base-array-type-in-register/disp32 -<span id="L24420" class="LineNr">24420 </span> } -<span id="L24421" class="LineNr">24421 </span> <span class="subxComment"># if (base-type->left == addr) base-type = base-type->right</span> -<span id="L24422" class="LineNr">24422 </span> { -<span id="L24423" class="LineNr">24423 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L24424" class="LineNr">24424 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L24425" class="LineNr">24425 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24426" class="LineNr">24426 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24427" class="LineNr">24427 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L24428" class="LineNr">24428 </span> 89/<- %ebx 0/r32/eax -<span id="L24429" class="LineNr">24429 </span> } -<span id="L24430" class="LineNr">24430 </span> <span class="subxH1Comment"># - check for too many inouts</span> -<span id="L24431" class="LineNr">24431 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L24432" class="LineNr">24432 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L24433" class="LineNr">24433 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24434" class="LineNr">24434 </span> 0f 85/jump-if-!= $check-mu-length-stmt:error-too-many-inouts/disp32 -<span id="L24435" class="LineNr">24435 </span> <span class="subxH1Comment"># - check for 0 outputs</span> -<span id="L24436" class="LineNr">24436 </span> <span class="subxComment"># var output/edi: (addr var) = stmt->outputs->value</span> -<span id="L24437" class="LineNr">24437 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L24438" class="LineNr">24438 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24439" class="LineNr">24439 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-too-few-outputs/disp32 -<span id="L24440" class="LineNr">24440 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L24441" class="LineNr">24441 </span> 89/<- %edi 0/r32/eax -<span id="L24442" class="LineNr">24442 </span> <span class="subxH1Comment"># - check output type</span> -<span id="L24443" class="LineNr">24443 </span> <span class="subxComment"># must have a non-atomic type</span> -<span id="L24444" class="LineNr">24444 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L24445" class="LineNr">24445 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 1) <span class="subxComment"># int => eax</span> -<span id="L24446" class="LineNr">24446 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24447" class="LineNr">24447 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-invalid-output-type/disp32 -<span id="L24448" class="LineNr">24448 </span> <span class="subxH1Comment"># - check for too many outputs</span> -<span id="L24449" class="LineNr">24449 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L24450" class="LineNr">24450 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L24451" class="LineNr">24451 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24452" class="LineNr">24452 </span> 0f 85/jump-if-!= $check-mu-length-stmt:error-too-many-outputs/disp32 -<span id="L24453" class="LineNr">24453 </span><span class="Constant">$check-mu-length-stmt:end</span>: -<span id="L24454" class="LineNr">24454 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L24455" class="LineNr">24455 </span> 5f/pop-to-edi -<span id="L24456" class="LineNr">24456 </span> 5e/pop-to-esi -<span id="L24457" class="LineNr">24457 </span> 5b/pop-to-ebx -<span id="L24458" class="LineNr">24458 </span> 5a/pop-to-edx -<span id="L24459" class="LineNr">24459 </span> 59/pop-to-ecx -<span id="L24460" class="LineNr">24460 </span> 58/pop-to-eax -<span id="L24461" class="LineNr">24461 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L24462" class="LineNr">24462 </span> 89/<- %esp 5/r32/ebp -<span id="L24463" class="LineNr">24463 </span> 5d/pop-to-ebp -<span id="L24464" class="LineNr">24464 </span> c3/return -<span id="L24465" class="LineNr">24465 </span> -<span id="L24466" class="LineNr">24466 </span><span class="Constant">$check-mu-length-stmt:error-base-non-array-type</span>: -<span id="L24467" class="LineNr">24467 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24468" class="LineNr">24468 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24469" class="LineNr">24469 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24470" class="LineNr">24470 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24471" class="LineNr">24471 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: var '"</span>) -<span id="L24472" class="LineNr">24472 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-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">"' is not an array\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-length-stmt:error-base-array-atom-type</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#L258'>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 length: array '"</span>) -<span id="L24485" class="LineNr">24485 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24486" class="LineNr">24486 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24487" class="LineNr">24487 </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="L24488" class="LineNr">24488 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24489" class="LineNr">24489 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24490" class="LineNr">24490 </span> <span class="subxComment"># never gets here</span> -<span id="L24491" class="LineNr">24491 </span> -<span id="L24492" class="LineNr">24492 </span><span class="Constant">$check-mu-length-stmt:error-base-address-array-type-on-stack</span>: -<span id="L24493" class="LineNr">24493 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24494" class="LineNr">24494 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24495" class="LineNr">24495 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24496" class="LineNr">24496 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24497" class="LineNr">24497 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: var '"</span>) -<span id="L24498" class="LineNr">24498 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24499" class="LineNr">24499 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24500" class="LineNr">24500 </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="L24501" class="LineNr">24501 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24502" class="LineNr">24502 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24503" class="LineNr">24503 </span> <span class="subxComment"># never gets here</span> -<span id="L24504" class="LineNr">24504 </span> -<span id="L24505" class="LineNr">24505 </span><span class="Constant">$check-mu-length-stmt:error-base-array-type-in-register</span>: -<span id="L24506" class="LineNr">24506 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24507" class="LineNr">24507 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24508" class="LineNr">24508 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24509" class="LineNr">24509 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24510" class="LineNr">24510 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: var '"</span>) -<span id="L24511" class="LineNr">24511 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24512" class="LineNr">24512 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24513" class="LineNr">24513 </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="L24514" class="LineNr">24514 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24515" class="LineNr">24515 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24516" class="LineNr">24516 </span> <span class="subxComment"># never gets here</span> -<span id="L24517" class="LineNr">24517 </span> -<span id="L24518" class="LineNr">24518 </span><span class="Constant">$check-mu-length-stmt:error-too-few-inouts</span>: -<span id="L24519" class="LineNr">24519 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24520" class="LineNr">24520 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24521" class="LineNr">24521 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24522" class="LineNr">24522 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24523" class="LineNr">24523 </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="L24524" class="LineNr">24524 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24525" class="LineNr">24525 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24526" class="LineNr">24526 </span> <span class="subxComment"># never gets here</span> -<span id="L24527" class="LineNr">24527 </span> -<span id="L24528" class="LineNr">24528 </span><span class="Constant">$check-mu-length-stmt:error-invalid-index-type</span>: -<span id="L24529" class="LineNr">24529 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24530" class="LineNr">24530 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24531" class="LineNr">24531 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24532" class="LineNr">24532 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24533" class="LineNr">24533 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: second argument '"</span>) -<span id="L24534" class="LineNr">24534 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+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 offset\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-length-stmt:error-index-offset-atom-type</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#L258'>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 length: offset '"</span>) -<span id="L24547" class="LineNr">24547 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24548" class="LineNr">24548 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24549" class="LineNr">24549 </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="L24550" class="LineNr">24550 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24551" class="LineNr">24551 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24552" class="LineNr">24552 </span> <span class="subxComment"># never gets here</span> -<span id="L24553" class="LineNr">24553 </span> -<span id="L24554" class="LineNr">24554 </span><span class="Constant">$check-mu-length-stmt:error-index-on-stack</span>: -<span id="L24555" class="LineNr">24555 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24556" class="LineNr">24556 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24557" class="LineNr">24557 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24558" class="LineNr">24558 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24559" class="LineNr">24559 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: second argument '"</span>) -<span id="L24560" class="LineNr">24560 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24561" class="LineNr">24561 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24562" class="LineNr">24562 </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="L24563" class="LineNr">24563 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24564" class="LineNr">24564 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24565" class="LineNr">24565 </span> <span class="subxComment"># never gets here</span> -<span id="L24566" class="LineNr">24566 </span> -<span id="L24567" class="LineNr">24567 </span><span class="Constant">$check-mu-length-stmt:error-index-needs-offset</span>: -<span id="L24568" class="LineNr">24568 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24569" class="LineNr">24569 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24570" class="LineNr">24570 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24571" class="LineNr">24571 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24572" class="LineNr">24572 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: cannot take an int for array '"</span>) -<span id="L24573" class="LineNr">24573 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L24574" class="LineNr">24574 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L24575" class="LineNr">24575 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24576" class="LineNr">24576 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24577" class="LineNr">24577 </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="L24578" class="LineNr">24578 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24579" class="LineNr">24579 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24580" class="LineNr">24580 </span> <span class="subxComment"># never gets here</span> -<span id="L24581" class="LineNr">24581 </span> -<span id="L24582" class="LineNr">24582 </span><span class="Constant">$check-mu-length-stmt:error-too-many-inouts</span>: -<span id="L24583" class="LineNr">24583 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24584" class="LineNr">24584 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24585" class="LineNr">24585 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24586" class="LineNr">24586 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24587" class="LineNr">24587 </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="L24588" class="LineNr">24588 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24589" class="LineNr">24589 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24590" class="LineNr">24590 </span> <span class="subxComment"># never gets here</span> -<span id="L24591" class="LineNr">24591 </span> -<span id="L24592" class="LineNr">24592 </span><span class="Constant">$check-mu-length-stmt:error-too-few-outputs</span>: -<span id="L24593" class="LineNr">24593 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24594" class="LineNr">24594 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24595" class="LineNr">24595 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24596" class="LineNr">24596 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24597" class="LineNr">24597 </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="L24598" class="LineNr">24598 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24599" class="LineNr">24599 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24600" class="LineNr">24600 </span> <span class="subxComment"># never gets here</span> -<span id="L24601" class="LineNr">24601 </span> -<span id="L24602" class="LineNr">24602 </span><span class="Constant">$check-mu-length-stmt:error-too-many-outputs</span>: -<span id="L24603" class="LineNr">24603 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24604" class="LineNr">24604 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24605" class="LineNr">24605 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24606" class="LineNr">24606 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24607" class="LineNr">24607 </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="L24608" class="LineNr">24608 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24609" class="LineNr">24609 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24610" class="LineNr">24610 </span> <span class="subxComment"># never gets here</span> -<span id="L24611" class="LineNr">24611 </span> -<span id="L24612" class="LineNr">24612 </span><span class="Constant">$check-mu-length-stmt:error-output-not-in-register</span>: -<span id="L24613" class="LineNr">24613 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24614" class="LineNr">24614 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24615" class="LineNr">24615 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24616" class="LineNr">24616 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24617" class="LineNr">24617 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: output '"</span>) -<span id="L24618" class="LineNr">24618 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24619" class="LineNr">24619 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24620" class="LineNr">24620 </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="L24621" class="LineNr">24621 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24622" class="LineNr">24622 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24623" class="LineNr">24623 </span> <span class="subxComment"># never gets here</span> -<span id="L24624" class="LineNr">24624 </span> -<span id="L24625" class="LineNr">24625 </span><span class="Constant">$check-mu-length-stmt:error-invalid-output-type</span>: -<span id="L24626" class="LineNr">24626 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24627" class="LineNr">24627 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24628" class="LineNr">24628 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24629" class="LineNr">24629 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24630" class="LineNr">24630 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: output '"</span>) -<span id="L24631" class="LineNr">24631 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24632" class="LineNr">24632 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24633" class="LineNr">24633 </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="L24634" class="LineNr">24634 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24635" class="LineNr">24635 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24636" class="LineNr">24636 </span> <span class="subxComment"># never gets here</span> -<span id="L24637" class="LineNr">24637 </span> -<span id="L24638" class="LineNr">24638 </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="L24639" class="LineNr">24639 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L24640" class="LineNr">24640 </span> 55/push-ebp -<span id="L24641" class="LineNr">24641 </span> 89/<- %ebp 4/r32/esp -<span id="L24642" class="LineNr">24642 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L24643" class="LineNr">24643 </span> 50/push-eax -<span id="L24644" class="LineNr">24644 </span> 51/push-ecx -<span id="L24645" class="LineNr">24645 </span> 52/push-edx -<span id="L24646" class="LineNr">24646 </span> 53/push-ebx -<span id="L24647" class="LineNr">24647 </span> 56/push-esi -<span id="L24648" class="LineNr">24648 </span> 57/push-edi -<span id="L24649" class="LineNr">24649 </span> <span class="subxComment"># esi = stmt</span> -<span id="L24650" class="LineNr">24650 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L24651" class="LineNr">24651 </span> <span class="subxH1Comment"># - check for 0 inouts</span> -<span id="L24652" class="LineNr">24652 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> -<span id="L24653" class="LineNr">24653 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L24654" class="LineNr">24654 </span><span class="Constant">$check-mu-compute-offset-stmt:check-no-inouts</span>: -<span id="L24655" class="LineNr">24655 </span> 3d/compare-eax-and 0/imm32 -<span id="L24656" class="LineNr">24656 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-too-few-inouts/disp32 -<span id="L24657" class="LineNr">24657 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L24658" class="LineNr">24658 </span> 89/<- %ecx 0/r32/eax -<span id="L24659" class="LineNr">24659 </span> <span class="subxH1Comment"># - check base type is either (addr array ...) in register or (array ...) on stack</span> -<span id="L24660" class="LineNr">24660 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> -<span id="L24661" class="LineNr">24661 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L24662" class="LineNr">24662 </span> 89/<- %ebx 0/r32/eax -<span id="L24663" class="LineNr">24663 </span> <span class="subxComment"># if base-type is an atom, abort with a precise error</span> -<span id="L24664" class="LineNr">24664 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L24665" class="LineNr">24665 </span> { -<span id="L24666" class="LineNr">24666 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24667" class="LineNr">24667 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %ebx 3) <span class="subxComment"># array => eax</span> -<span id="L24668" class="LineNr">24668 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24669" class="LineNr">24669 </span> 0f 85/jump-if-!= $check-mu-compute-offset-stmt:error-base-array-atom-type/disp32 -<span id="L24670" class="LineNr">24670 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-base-non-array-type/disp32 -<span id="L24671" class="LineNr">24671 </span> } -<span id="L24672" class="LineNr">24672 </span><span class="Constant">$check-mu-compute-offset-stmt:base-is-compound</span>: -<span id="L24673" class="LineNr">24673 </span> <span class="subxComment"># if type->left not addr or array, abort</span> -<span id="L24674" class="LineNr">24674 </span> { -<span id="L24675" class="LineNr">24675 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L24676" class="LineNr">24676 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L24677" class="LineNr">24677 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24678" class="LineNr">24678 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L24679" class="LineNr">24679 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L24680" class="LineNr">24680 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> -<span id="L24681" class="LineNr">24681 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24682" class="LineNr">24682 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L24683" class="LineNr">24683 </span> e9/jump $check-mu-compute-offset-stmt:error-base-non-array-type/disp32 -<span id="L24684" class="LineNr">24684 </span> } -<span id="L24685" class="LineNr">24685 </span> <span class="subxComment"># if (type->left == addr) ensure type->right->left == array and type->register exists</span> -<span id="L24686" class="LineNr">24686 </span> { -<span id="L24687" class="LineNr">24687 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L24688" class="LineNr">24688 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L24689" class="LineNr">24689 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24690" class="LineNr">24690 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24691" class="LineNr">24691 </span><span class="Constant">$check-mu-compute-offset-stmt:base-is-addr</span>: -<span id="L24692" class="LineNr">24692 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L24693" class="LineNr">24693 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L24694" class="LineNr">24694 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> -<span id="L24695" class="LineNr">24695 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24696" class="LineNr">24696 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-base-non-array-type/disp32 -<span id="L24697" class="LineNr">24697 </span> } -<span id="L24698" class="LineNr">24698 </span> <span class="subxComment"># if (base-type->left == addr) base-type = base-type->right</span> -<span id="L24699" class="LineNr">24699 </span> { -<span id="L24700" class="LineNr">24700 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L24701" class="LineNr">24701 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L24702" class="LineNr">24702 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24703" class="LineNr">24703 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24704" class="LineNr">24704 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L24705" class="LineNr">24705 </span> 89/<- %ebx 0/r32/eax +<span id="L23783" class="LineNr">23783 </span> 0f 85/jump-if-!= $check-mu-get-stmt:error-too-many-inouts/disp32 +<span id="L23784" class="LineNr">23784 </span> <span class="subxComment"># var output/edi: (addr var) = stmt->outputs->value</span> +<span id="L23785" class="LineNr">23785 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L23786" class="LineNr">23786 </span> <span class="subxH1Comment"># - check for 0 outputs</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-get-stmt:error-too-few-outputs/disp32 +<span id="L23789" class="LineNr">23789 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L23790" class="LineNr">23790 </span> 89/<- %edi 0/r32/eax +<span id="L23791" class="LineNr">23791 </span><span class="Constant">$check-mu-get-stmt:check-output-type</span>: +<span id="L23792" class="LineNr">23792 </span> <span class="subxH1Comment"># - check output type</span> +<span id="L23793" class="LineNr">23793 </span> <span class="subxComment"># must be in register</span> +<span id="L23794" class="LineNr">23794 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+0x18) *(edi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L23795" class="LineNr">23795 </span> 3d/compare-eax-and 0/imm32 +<span id="L23796" class="LineNr">23796 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-output-not-in-register/disp32 +<span id="L23797" class="LineNr">23797 </span> <span class="subxComment"># must have a non-atomic type</span> +<span id="L23798" class="LineNr">23798 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L23799" class="LineNr">23799 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L23800" class="LineNr">23800 </span> 0f 85/jump-if-!= $check-mu-get-stmt:error-output-type-not-address/disp32 +<span id="L23801" class="LineNr">23801 </span> <span class="subxComment"># type must start with (addr ...)</span> +<span id="L23802" class="LineNr">23802 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L23803" class="LineNr">23803 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 2) <span class="subxComment"># => eax</span> +<span id="L23804" class="LineNr">23804 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23805" class="LineNr">23805 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-output-type-not-address/disp32 +<span id="L23806" class="LineNr">23806 </span><span class="Constant">$check-mu-get-stmt:check-output-type-match</span>: +<span id="L23807" class="LineNr">23807 </span> <span class="subxComment"># payload of addr type must match 'type' definition</span> +<span id="L23808" class="LineNr">23808 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L23809" class="LineNr">23809 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L23810" class="LineNr">23810 </span> <span class="subxComment"># if (payload->right == null) payload = payload->left</span> +<span id="L23811" class="LineNr">23811 </span> 81 7/subop/compare *(eax+0xc) 0/imm32/null <span class="subxComment"># Type-tree-right</span> +<span id="L23812" class="LineNr">23812 </span> { +<span id="L23813" class="LineNr">23813 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23814" class="LineNr">23814 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L23815" class="LineNr">23815 </span> } +<span id="L23816" class="LineNr">23816 </span> 89/<- %edi 0/r32/eax +<span id="L23817" class="LineNr">23817 </span> <span class="subxS1Comment"># . var output-name/ecx: (addr array byte)</span> +<span id="L23818" class="LineNr">23818 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23819" class="LineNr">23819 </span> 89/<- %ecx 0/r32/eax +<span id="L23820" class="LineNr">23820 </span> <span class="subxS1Comment"># . var base-typeinfo-entry/eax: (addr handle typeinfo-entry)</span> +<span id="L23821" class="LineNr">23821 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> +<span id="L23822" class="LineNr">23822 </span> (<a href='131table.subx.html#L26'>get</a> %eax %ecx 0x10) <span class="subxComment"># => eax</span> +<span id="L23823" class="LineNr">23823 </span> <span class="subxS1Comment"># .</span> +<span id="L23824" class="LineNr">23824 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L23825" class="LineNr">23825 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Typeinfo-entry-input-var Typeinfo-entry-input-var => eax</span> +<span id="L23826" class="LineNr">23826 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L23827" class="LineNr">23827 </span> <span class="subxS1Comment"># .</span> +<span id="L23828" class="LineNr">23828 </span> (<a href='mu.subx.html#L26902'>type-equal?</a> %edi %eax) <span class="subxComment"># => eax</span> +<span id="L23829" class="LineNr">23829 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23830" class="LineNr">23830 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-bad-output-type/disp32 +<span id="L23831" class="LineNr">23831 </span> <span class="subxH1Comment"># - check for too many outputs</span> +<span id="L23832" class="LineNr">23832 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L23833" class="LineNr">23833 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L23834" class="LineNr">23834 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23835" class="LineNr">23835 </span> 0f 85/jump-if-!= $check-mu-get-stmt:error-too-many-outputs/disp32 +<span id="L23836" class="LineNr">23836 </span><span class="Constant">$check-mu-get-stmt:end</span>: +<span id="L23837" class="LineNr">23837 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23838" class="LineNr">23838 </span> 5f/pop-to-edi +<span id="L23839" class="LineNr">23839 </span> 5e/pop-to-esi +<span id="L23840" class="LineNr">23840 </span> 5b/pop-to-ebx +<span id="L23841" class="LineNr">23841 </span> 5a/pop-to-edx +<span id="L23842" class="LineNr">23842 </span> 59/pop-to-ecx +<span id="L23843" class="LineNr">23843 </span> 58/pop-to-eax +<span id="L23844" class="LineNr">23844 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23845" class="LineNr">23845 </span> 89/<- %esp 5/r32/ebp +<span id="L23846" class="LineNr">23846 </span> 5d/pop-to-ebp +<span id="L23847" class="LineNr">23847 </span> c3/return +<span id="L23848" class="LineNr">23848 </span> +<span id="L23849" class="LineNr">23849 </span><span class="Constant">$check-mu-get-stmt:error-too-few-inouts</span>: +<span id="L23850" class="LineNr">23850 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23851" class="LineNr">23851 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23852" class="LineNr">23852 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23853" class="LineNr">23853 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23854" class="LineNr">23854 </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="L23855" class="LineNr">23855 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23856" class="LineNr">23856 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23857" class="LineNr">23857 </span> <span class="subxComment"># never gets here</span> +<span id="L23858" class="LineNr">23858 </span> +<span id="L23859" class="LineNr">23859 </span><span class="Constant">$check-mu-get-stmt:error-too-many-inouts</span>: +<span id="L23860" class="LineNr">23860 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23861" class="LineNr">23861 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23862" class="LineNr">23862 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23863" class="LineNr">23863 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23864" class="LineNr">23864 </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="L23865" class="LineNr">23865 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23866" class="LineNr">23866 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23867" class="LineNr">23867 </span> <span class="subxComment"># never gets here</span> +<span id="L23868" class="LineNr">23868 </span> +<span id="L23869" class="LineNr">23869 </span><span class="Constant">$check-mu-get-stmt:error-too-few-outputs</span>: +<span id="L23870" class="LineNr">23870 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23871" class="LineNr">23871 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23872" class="LineNr">23872 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-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">": stmt <a href='131table.subx.html#L26'>get</a>: must have an output\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-get-stmt:error-too-many-outputs</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#L258'>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='131table.subx.html#L26'>get</a>: too many outputs (1 required)\n"</span>) +<span id="L23885" class="LineNr">23885 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23886" class="LineNr">23886 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23887" class="LineNr">23887 </span> <span class="subxComment"># never gets here</span> +<span id="L23888" class="LineNr">23888 </span> +<span id="L23889" class="LineNr">23889 </span><span class="Constant">$check-mu-get-stmt:error-bad-base</span>: +<span id="L23890" class="LineNr">23890 </span> <span class="subxComment"># error("fn " fn ": stmt get: var '" base->name "' must have a 'type' definition\n")</span> +<span id="L23891" class="LineNr">23891 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23892" class="LineNr">23892 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23893" class="LineNr">23893 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23894" class="LineNr">23894 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23895" class="LineNr">23895 </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="L23896" class="LineNr">23896 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L23897" class="LineNr">23897 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L23898" class="LineNr">23898 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23899" class="LineNr">23899 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23900" class="LineNr">23900 </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="L23901" class="LineNr">23901 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23902" class="LineNr">23902 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23903" class="LineNr">23903 </span> <span class="subxComment"># never gets here</span> +<span id="L23904" class="LineNr">23904 </span> +<span id="L23905" class="LineNr">23905 </span><span class="Constant">$check-mu-get-stmt:error-base-type-addr-but-not-register</span>: +<span id="L23906" class="LineNr">23906 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23907" class="LineNr">23907 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23908" class="LineNr">23908 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23909" class="LineNr">23909 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23910" class="LineNr">23910 </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="L23911" class="LineNr">23911 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L23912" class="LineNr">23912 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L23913" class="LineNr">23913 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23914" class="LineNr">23914 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23915" class="LineNr">23915 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is an 'addr' type, and so must live in a register\n"</span>) +<span id="L23916" class="LineNr">23916 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23917" class="LineNr">23917 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23918" class="LineNr">23918 </span> <span class="subxComment"># never gets here</span> +<span id="L23919" class="LineNr">23919 </span> +<span id="L23920" class="LineNr">23920 </span><span class="Constant">$check-mu-get-stmt:error-bad-field</span>: +<span id="L23921" class="LineNr">23921 </span> <span class="subxComment"># error("fn " fn ": stmt get: type " type " has no member called '" curr->name "'\n")</span> +<span id="L23922" class="LineNr">23922 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23923" class="LineNr">23923 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23924" class="LineNr">23924 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23925" class="LineNr">23925 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23926" class="LineNr">23926 </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="L23927" class="LineNr">23927 </span> <span class="subxS1Comment"># . write(Type-id->data[tmp])</span> +<span id="L23928" class="LineNr">23928 </span> bf/copy-to-edi <span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span>/imm32 +<span id="L23929" class="LineNr">23929 </span> 8b/-> *(edi+ebx<<2+0xc) 6/r32/esi +<span id="L23930" class="LineNr">23930 </span> { +<span id="L23931" class="LineNr">23931 </span> 81 7/subop/compare %esi 0/imm32 +<span id="L23932" class="LineNr">23932 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23933" class="LineNr">23933 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %esi) +<span id="L23934" class="LineNr">23934 </span> } +<span id="L23935" class="LineNr">23935 </span> <span class="subxS1Comment"># .</span> +<span id="L23936" class="LineNr">23936 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' has no member called '"</span>) +<span id="L23937" class="LineNr">23937 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23938" class="LineNr">23938 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23939" class="LineNr">23939 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) +<span id="L23940" class="LineNr">23940 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23941" class="LineNr">23941 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23942" class="LineNr">23942 </span> <span class="subxComment"># never gets here</span> +<span id="L23943" class="LineNr">23943 </span> +<span id="L23944" class="LineNr">23944 </span><span class="Constant">$check-mu-get-stmt:error-output-not-in-register</span>: +<span id="L23945" class="LineNr">23945 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23946" class="LineNr">23946 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23947" class="LineNr">23947 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23948" class="LineNr">23948 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23949" class="LineNr">23949 </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="L23950" class="LineNr">23950 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23951" class="LineNr">23951 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23952" class="LineNr">23952 </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="L23953" class="LineNr">23953 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23954" class="LineNr">23954 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23955" class="LineNr">23955 </span> <span class="subxComment"># never gets here</span> +<span id="L23956" class="LineNr">23956 </span> +<span id="L23957" class="LineNr">23957 </span><span class="Constant">$check-mu-get-stmt:error-output-type-not-address</span>: +<span id="L23958" class="LineNr">23958 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23959" class="LineNr">23959 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23960" class="LineNr">23960 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23961" class="LineNr">23961 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23962" class="LineNr">23962 </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="L23963" class="LineNr">23963 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23964" class="LineNr">23964 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23965" class="LineNr">23965 </span> <span class="subxComment"># never gets here</span> +<span id="L23966" class="LineNr">23966 </span> +<span id="L23967" class="LineNr">23967 </span><span class="Constant">$check-mu-get-stmt:error-bad-output-type</span>: +<span id="L23968" class="LineNr">23968 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23969" class="LineNr">23969 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23970" class="LineNr">23970 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23971" class="LineNr">23971 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23972" class="LineNr">23972 </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="L23973" class="LineNr">23973 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %ecx) +<span id="L23974" class="LineNr">23974 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' of type '"</span>) +<span id="L23975" class="LineNr">23975 </span> bf/copy-to-edi <span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span>/imm32 +<span id="L23976" class="LineNr">23976 </span> 8b/-> *(edi+ebx<<2+0xc) 6/r32/esi +<span id="L23977" class="LineNr">23977 </span> { +<span id="L23978" class="LineNr">23978 </span> 81 7/subop/compare %esi 0/imm32 +<span id="L23979" class="LineNr">23979 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23980" class="LineNr">23980 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %esi) +<span id="L23981" class="LineNr">23981 </span> } +<span id="L23982" class="LineNr">23982 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) +<span id="L23983" class="LineNr">23983 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23984" class="LineNr">23984 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23985" class="LineNr">23985 </span> <span class="subxComment"># never gets here</span> +<span id="L23986" class="LineNr">23986 </span> +<span id="L23987" class="LineNr">23987 </span><span class="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="L23988" class="LineNr">23988 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23989" class="LineNr">23989 </span> 55/push-ebp +<span id="L23990" class="LineNr">23990 </span> 89/<- %ebp 4/r32/esp +<span id="L23991" class="LineNr">23991 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L23992" class="LineNr">23992 </span> 50/push-eax +<span id="L23993" class="LineNr">23993 </span> 51/push-ecx +<span id="L23994" class="LineNr">23994 </span> 52/push-edx +<span id="L23995" class="LineNr">23995 </span> 53/push-ebx +<span id="L23996" class="LineNr">23996 </span> 56/push-esi +<span id="L23997" class="LineNr">23997 </span> 57/push-edi +<span id="L23998" class="LineNr">23998 </span> <span class="subxComment"># esi = stmt</span> +<span id="L23999" class="LineNr">23999 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L24000" class="LineNr">24000 </span> <span class="subxH1Comment"># - check for 0 inouts</span> +<span id="L24001" class="LineNr">24001 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> +<span id="L24002" class="LineNr">24002 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L24003" class="LineNr">24003 </span><span class="Constant">$check-mu-index-stmt:check-no-inouts</span>: +<span id="L24004" class="LineNr">24004 </span> 3d/compare-eax-and 0/imm32 +<span id="L24005" class="LineNr">24005 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-too-few-inouts/disp32 +<span id="L24006" class="LineNr">24006 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L24007" class="LineNr">24007 </span> 89/<- %ecx 0/r32/eax +<span id="L24008" class="LineNr">24008 </span> <span class="subxH1Comment"># - check base type is either (addr array ...) in register or (array ...) on stack</span> +<span id="L24009" class="LineNr">24009 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> +<span id="L24010" class="LineNr">24010 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L24011" class="LineNr">24011 </span> 89/<- %ebx 0/r32/eax +<span id="L24012" class="LineNr">24012 </span> <span class="subxComment"># if base-type is an atom, abort with a precise error</span> +<span id="L24013" class="LineNr">24013 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L24014" class="LineNr">24014 </span> { +<span id="L24015" class="LineNr">24015 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24016" class="LineNr">24016 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %ebx 3) <span class="subxComment"># array => eax</span> +<span id="L24017" class="LineNr">24017 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24018" class="LineNr">24018 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-base-array-atom-type/disp32 +<span id="L24019" class="LineNr">24019 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-base-non-array-type/disp32 +<span id="L24020" class="LineNr">24020 </span> } +<span id="L24021" class="LineNr">24021 </span><span class="Constant">$check-mu-index-stmt:base-is-compound</span>: +<span id="L24022" class="LineNr">24022 </span> <span class="subxComment"># if type->left not addr or array, abort</span> +<span id="L24023" class="LineNr">24023 </span> { +<span id="L24024" class="LineNr">24024 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L24025" class="LineNr">24025 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L24026" class="LineNr">24026 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24027" class="LineNr">24027 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L24028" class="LineNr">24028 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L24029" class="LineNr">24029 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> +<span id="L24030" class="LineNr">24030 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24031" class="LineNr">24031 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L24032" class="LineNr">24032 </span> e9/jump $check-mu-index-stmt:error-base-non-array-type/disp32 +<span id="L24033" class="LineNr">24033 </span> } +<span id="L24034" class="LineNr">24034 </span> <span class="subxComment"># if (type->left == addr) ensure type->right->left == array and type->register exists</span> +<span id="L24035" class="LineNr">24035 </span> { +<span id="L24036" class="LineNr">24036 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L24037" class="LineNr">24037 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L24038" class="LineNr">24038 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24039" class="LineNr">24039 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24040" class="LineNr">24040 </span><span class="Constant">$check-mu-index-stmt:base-is-addr</span>: +<span id="L24041" class="LineNr">24041 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L24042" class="LineNr">24042 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L24043" class="LineNr">24043 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => 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-index-stmt:error-base-non-array-type/disp32 +<span id="L24046" class="LineNr">24046 </span><span class="Constant">$check-mu-index-stmt:check-base-addr-is-register</span>: +<span id="L24047" class="LineNr">24047 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L24048" class="LineNr">24048 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-base-address-array-type-on-stack/disp32 +<span id="L24049" class="LineNr">24049 </span> } +<span id="L24050" class="LineNr">24050 </span> <span class="subxComment"># if (type->left == array) ensure type->register doesn't exist</span> +<span id="L24051" class="LineNr">24051 </span> { +<span id="L24052" class="LineNr">24052 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L24053" class="LineNr">24053 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> +<span id="L24054" class="LineNr">24054 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24055" class="LineNr">24055 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24056" class="LineNr">24056 </span><span class="Constant">$check-mu-index-stmt:base-is-array</span>: +<span id="L24057" class="LineNr">24057 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L24058" class="LineNr">24058 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-base-array-type-in-register/disp32 +<span id="L24059" class="LineNr">24059 </span> } +<span id="L24060" class="LineNr">24060 </span> <span class="subxComment"># if (base-type->left == addr) base-type = base-type->right</span> +<span id="L24061" class="LineNr">24061 </span> { +<span id="L24062" class="LineNr">24062 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L24063" class="LineNr">24063 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L24064" class="LineNr">24064 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24065" class="LineNr">24065 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24066" class="LineNr">24066 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L24067" class="LineNr">24067 </span> 89/<- %ebx 0/r32/eax +<span id="L24068" class="LineNr">24068 </span> } +<span id="L24069" class="LineNr">24069 </span> <span class="subxH1Comment"># - check for 1 inout</span> +<span id="L24070" class="LineNr">24070 </span> <span class="subxComment"># var index/ecx: (addr stmt-var) = stmt->inouts->next->value</span> +<span id="L24071" class="LineNr">24071 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L24072" class="LineNr">24072 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L24073" class="LineNr">24073 </span><span class="Constant">$check-mu-index-stmt:check-single-inout</span>: +<span id="L24074" class="LineNr">24074 </span> 3d/compare-eax-and 0/imm32 +<span id="L24075" class="LineNr">24075 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-too-few-inouts/disp32 +<span id="L24076" class="LineNr">24076 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L24077" class="LineNr">24077 </span> 89/<- %ecx 0/r32/eax +<span id="L24078" class="LineNr">24078 </span> <span class="subxH1Comment"># - check index is either a literal or register</span> +<span id="L24079" class="LineNr">24079 </span> <span class="subxComment"># var index-type/edx: (addr type-tree)</span> +<span id="L24080" class="LineNr">24080 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L24081" class="LineNr">24081 </span> 89/<- %edx 0/r32/eax +<span id="L24082" class="LineNr">24082 </span> <span class="subxComment"># if index type is an atom, it must be a literal or int</span> +<span id="L24083" class="LineNr">24083 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L24084" class="LineNr">24084 </span> { +<span id="L24085" class="LineNr">24085 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24086" class="LineNr">24086 </span><span class="Constant">$check-mu-index-stmt:index-type-is-atom</span>: +<span id="L24087" class="LineNr">24087 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %edx 0) <span class="subxComment"># literal => eax</span> +<span id="L24088" class="LineNr">24088 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24089" class="LineNr">24089 </span> 75/jump-if-!= $check-mu-index-stmt:index-type-done/disp8 +<span id="L24090" class="LineNr">24090 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %edx 1) <span class="subxComment"># int => eax</span> +<span id="L24091" class="LineNr">24091 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24092" class="LineNr">24092 </span> 75/jump-if-!= $check-mu-index-stmt:index-type-done/disp8 +<span id="L24093" class="LineNr">24093 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %edx 7) <span class="subxComment"># offset => 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-index-stmt:error-index-offset-atom-type/disp32 +<span id="L24096" class="LineNr">24096 </span> e9/jump $check-mu-index-stmt:error-invalid-index-type/disp32 +<span id="L24097" class="LineNr">24097 </span> } +<span id="L24098" class="LineNr">24098 </span> <span class="subxComment"># if index type is a non-atom: it must be an offset</span> +<span id="L24099" class="LineNr">24099 </span> { +<span id="L24100" class="LineNr">24100 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L24101" class="LineNr">24101 </span><span class="Constant">$check-mu-index-stmt:index-type-is-non-atom</span>: +<span id="L24102" class="LineNr">24102 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L24103" class="LineNr">24103 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 7) <span class="subxComment"># offset => eax</span> +<span id="L24104" class="LineNr">24104 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24105" class="LineNr">24105 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-invalid-index-type/disp32 +<span id="L24106" class="LineNr">24106 </span> } +<span id="L24107" class="LineNr">24107 </span><span class="Constant">$check-mu-index-stmt:index-type-done</span>: +<span id="L24108" class="LineNr">24108 </span> <span class="subxComment"># check index is either a literal or in a register</span> +<span id="L24109" class="LineNr">24109 </span> { +<span id="L24110" class="LineNr">24110 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %edx 0) <span class="subxComment"># literal => eax</span> +<span id="L24111" class="LineNr">24111 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24112" class="LineNr">24112 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L24113" class="LineNr">24113 </span><span class="Constant">$check-mu-index-stmt:check-index-in-register</span>: +<span id="L24114" class="LineNr">24114 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L24115" class="LineNr">24115 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-index-on-stack/disp32 +<span id="L24116" class="LineNr">24116 </span> } +<span id="L24117" class="LineNr">24117 </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="L24118" class="LineNr">24118 </span> { +<span id="L24119" class="LineNr">24119 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %edx 1) <span class="subxComment"># int => eax</span> +<span id="L24120" class="LineNr">24120 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24121" class="LineNr">24121 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24122" class="LineNr">24122 </span><span class="Constant">$check-mu-index-stmt:check-index-can-be-int</span>: +<span id="L24123" class="LineNr">24123 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L24124" class="LineNr">24124 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L24125" class="LineNr">24125 </span> (<a href='mu.subx.html#L28977'>array-element-size</a> %eax) <span class="subxComment"># => eax</span> +<span id="L24126" class="LineNr">24126 </span> 3d/compare-eax-and 1/imm32 +<span id="L24127" class="LineNr">24127 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24128" class="LineNr">24128 </span> 3d/compare-eax-and 2/imm32 +<span id="L24129" class="LineNr">24129 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24130" class="LineNr">24130 </span> 3d/compare-eax-and 4/imm32 +<span id="L24131" class="LineNr">24131 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24132" class="LineNr">24132 </span> 3d/compare-eax-and 8/imm32 +<span id="L24133" class="LineNr">24133 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24134" class="LineNr">24134 </span> e9/jump $check-mu-index-stmt:error-index-needs-offset/disp32 +<span id="L24135" class="LineNr">24135 </span> } +<span id="L24136" class="LineNr">24136 </span> <span class="subxH1Comment"># - check for too many inouts</span> +<span id="L24137" class="LineNr">24137 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L24138" class="LineNr">24138 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L24139" class="LineNr">24139 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L24140" class="LineNr">24140 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24141" class="LineNr">24141 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-too-many-inouts/disp32 +<span id="L24142" class="LineNr">24142 </span> <span class="subxH1Comment"># - check for 0 outputs</span> +<span id="L24143" class="LineNr">24143 </span> <span class="subxComment"># var output/edi: (addr var) = stmt->outputs->value</span> +<span id="L24144" class="LineNr">24144 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L24145" class="LineNr">24145 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24146" class="LineNr">24146 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-too-few-outputs/disp32 +<span id="L24147" class="LineNr">24147 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L24148" class="LineNr">24148 </span> 89/<- %edi 0/r32/eax +<span id="L24149" class="LineNr">24149 </span> <span class="subxH1Comment"># - check output type</span> +<span id="L24150" class="LineNr">24150 </span> <span class="subxComment"># must have a non-atomic type</span> +<span id="L24151" class="LineNr">24151 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L24152" class="LineNr">24152 </span> 89/<- %edx 0/r32/eax +<span id="L24153" class="LineNr">24153 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L24154" class="LineNr">24154 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-output-type-not-address/disp32 +<span id="L24155" class="LineNr">24155 </span> <span class="subxComment"># type must start with (addr ...)</span> +<span id="L24156" class="LineNr">24156 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L24157" class="LineNr">24157 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L24158" class="LineNr">24158 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24159" class="LineNr">24159 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-output-type-not-address/disp32 +<span id="L24160" class="LineNr">24160 </span> <span class="subxComment"># if tail(base-type) != tail(output-type) abort</span> +<span id="L24161" class="LineNr">24161 </span> (<a href='mu.subx.html#L26843'>type-tail</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L24162" class="LineNr">24162 </span> 89/<- %ebx 0/r32/eax +<span id="L24163" class="LineNr">24163 </span> (<a href='mu.subx.html#L26843'>type-tail</a> %edx) <span class="subxComment"># => eax</span> +<span id="L24164" class="LineNr">24164 </span> (<a href='mu.subx.html#L26902'>type-equal?</a> %ebx %eax) <span class="subxComment"># => eax</span> +<span id="L24165" class="LineNr">24165 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24166" class="LineNr">24166 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-bad-output-type/disp32 +<span id="L24167" class="LineNr">24167 </span> <span class="subxH1Comment"># - check for too many outputs</span> +<span id="L24168" class="LineNr">24168 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L24169" class="LineNr">24169 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L24170" class="LineNr">24170 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24171" class="LineNr">24171 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-too-many-outputs/disp32 +<span id="L24172" class="LineNr">24172 </span><span class="Constant">$check-mu-index-stmt:end</span>: +<span id="L24173" class="LineNr">24173 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L24174" class="LineNr">24174 </span> 5f/pop-to-edi +<span id="L24175" class="LineNr">24175 </span> 5e/pop-to-esi +<span id="L24176" class="LineNr">24176 </span> 5b/pop-to-ebx +<span id="L24177" class="LineNr">24177 </span> 5a/pop-to-edx +<span id="L24178" class="LineNr">24178 </span> 59/pop-to-ecx +<span id="L24179" class="LineNr">24179 </span> 58/pop-to-eax +<span id="L24180" class="LineNr">24180 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L24181" class="LineNr">24181 </span> 89/<- %esp 5/r32/ebp +<span id="L24182" class="LineNr">24182 </span> 5d/pop-to-ebp +<span id="L24183" class="LineNr">24183 </span> c3/return +<span id="L24184" class="LineNr">24184 </span> +<span id="L24185" class="LineNr">24185 </span><span class="Constant">$check-mu-index-stmt:error-base-non-array-type</span>: +<span id="L24186" class="LineNr">24186 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24187" class="LineNr">24187 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24188" class="LineNr">24188 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24189" class="LineNr">24189 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24190" class="LineNr">24190 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: var '"</span>) +<span id="L24191" class="LineNr">24191 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24192" class="LineNr">24192 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24193" class="LineNr">24193 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is not an array\n"</span>) +<span id="L24194" class="LineNr">24194 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24195" class="LineNr">24195 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24196" class="LineNr">24196 </span> <span class="subxComment"># never gets here</span> +<span id="L24197" class="LineNr">24197 </span> +<span id="L24198" class="LineNr">24198 </span><span class="Constant">$check-mu-index-stmt:error-base-array-atom-type</span>: +<span id="L24199" class="LineNr">24199 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24200" class="LineNr">24200 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24201" class="LineNr">24201 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24202" class="LineNr">24202 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24203" class="LineNr">24203 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: array '"</span>) +<span id="L24204" class="LineNr">24204 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24205" class="LineNr">24205 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24206" class="LineNr">24206 </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="L24207" class="LineNr">24207 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24208" class="LineNr">24208 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24209" class="LineNr">24209 </span> <span class="subxComment"># never gets here</span> +<span id="L24210" class="LineNr">24210 </span> +<span id="L24211" class="LineNr">24211 </span><span class="Constant">$check-mu-index-stmt:error-base-address-array-type-on-stack</span>: +<span id="L24212" class="LineNr">24212 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24213" class="LineNr">24213 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24214" class="LineNr">24214 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24215" class="LineNr">24215 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24216" class="LineNr">24216 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: var '"</span>) +<span id="L24217" class="LineNr">24217 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24218" class="LineNr">24218 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24219" class="LineNr">24219 </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="L24220" class="LineNr">24220 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24221" class="LineNr">24221 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24222" class="LineNr">24222 </span> <span class="subxComment"># never gets here</span> +<span id="L24223" class="LineNr">24223 </span> +<span id="L24224" class="LineNr">24224 </span><span class="Constant">$check-mu-index-stmt:error-base-array-type-in-register</span>: +<span id="L24225" class="LineNr">24225 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24226" class="LineNr">24226 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24227" class="LineNr">24227 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24228" class="LineNr">24228 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24229" class="LineNr">24229 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: var '"</span>) +<span id="L24230" class="LineNr">24230 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24231" class="LineNr">24231 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24232" class="LineNr">24232 </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="L24233" class="LineNr">24233 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24234" class="LineNr">24234 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24235" class="LineNr">24235 </span> <span class="subxComment"># never gets here</span> +<span id="L24236" class="LineNr">24236 </span> +<span id="L24237" class="LineNr">24237 </span><span class="Constant">$check-mu-index-stmt:error-too-few-inouts</span>: +<span id="L24238" class="LineNr">24238 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24239" class="LineNr">24239 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24240" class="LineNr">24240 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24241" class="LineNr">24241 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24242" class="LineNr">24242 </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="L24243" class="LineNr">24243 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24244" class="LineNr">24244 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24245" class="LineNr">24245 </span> <span class="subxComment"># never gets here</span> +<span id="L24246" class="LineNr">24246 </span> +<span id="L24247" class="LineNr">24247 </span><span class="Constant">$check-mu-index-stmt:error-invalid-index-type</span>: +<span id="L24248" class="LineNr">24248 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24249" class="LineNr">24249 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24250" class="LineNr">24250 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24251" class="LineNr">24251 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24252" class="LineNr">24252 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: second argument '"</span>) +<span id="L24253" class="LineNr">24253 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24254" class="LineNr">24254 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24255" class="LineNr">24255 </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="L24256" class="LineNr">24256 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24257" class="LineNr">24257 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24258" class="LineNr">24258 </span> <span class="subxComment"># never gets here</span> +<span id="L24259" class="LineNr">24259 </span> +<span id="L24260" class="LineNr">24260 </span><span class="Constant">$check-mu-index-stmt:error-index-offset-atom-type</span>: +<span id="L24261" class="LineNr">24261 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24262" class="LineNr">24262 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24263" class="LineNr">24263 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24264" class="LineNr">24264 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24265" class="LineNr">24265 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: offset '"</span>) +<span id="L24266" class="LineNr">24266 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24267" class="LineNr">24267 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24268" class="LineNr">24268 </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="L24269" class="LineNr">24269 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24270" class="LineNr">24270 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24271" class="LineNr">24271 </span> <span class="subxComment"># never gets here</span> +<span id="L24272" class="LineNr">24272 </span> +<span id="L24273" class="LineNr">24273 </span><span class="Constant">$check-mu-index-stmt:error-index-on-stack</span>: +<span id="L24274" class="LineNr">24274 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24275" class="LineNr">24275 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24276" class="LineNr">24276 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24277" class="LineNr">24277 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24278" class="LineNr">24278 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: second argument '"</span>) +<span id="L24279" class="LineNr">24279 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-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">"' must be in a register\n"</span>) +<span id="L24282" class="LineNr">24282 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24283" class="LineNr">24283 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24284" class="LineNr">24284 </span> <span class="subxComment"># never gets here</span> +<span id="L24285" class="LineNr">24285 </span> +<span id="L24286" class="LineNr">24286 </span><span class="Constant">$check-mu-index-stmt:error-index-needs-offset</span>: +<span id="L24287" class="LineNr">24287 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24288" class="LineNr">24288 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24289" class="LineNr">24289 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24290" class="LineNr">24290 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24291" class="LineNr">24291 </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="L24292" class="LineNr">24292 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L24293" class="LineNr">24293 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L24294" class="LineNr">24294 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24295" class="LineNr">24295 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24296" class="LineNr">24296 </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="L24297" class="LineNr">24297 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24298" class="LineNr">24298 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24299" class="LineNr">24299 </span> <span class="subxComment"># never gets here</span> +<span id="L24300" class="LineNr">24300 </span> +<span id="L24301" class="LineNr">24301 </span><span class="Constant">$check-mu-index-stmt:error-too-many-inouts</span>: +<span id="L24302" class="LineNr">24302 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24303" class="LineNr">24303 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24304" class="LineNr">24304 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24305" class="LineNr">24305 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24306" class="LineNr">24306 </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="L24307" class="LineNr">24307 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24308" class="LineNr">24308 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24309" class="LineNr">24309 </span> <span class="subxComment"># never gets here</span> +<span id="L24310" class="LineNr">24310 </span> +<span id="L24311" class="LineNr">24311 </span><span class="Constant">$check-mu-index-stmt:error-too-few-outputs</span>: +<span id="L24312" class="LineNr">24312 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24313" class="LineNr">24313 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24314" class="LineNr">24314 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24315" class="LineNr">24315 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24316" class="LineNr">24316 </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="L24317" class="LineNr">24317 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24318" class="LineNr">24318 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24319" class="LineNr">24319 </span> <span class="subxComment"># never gets here</span> +<span id="L24320" class="LineNr">24320 </span> +<span id="L24321" class="LineNr">24321 </span><span class="Constant">$check-mu-index-stmt:error-too-many-outputs</span>: +<span id="L24322" class="LineNr">24322 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24323" class="LineNr">24323 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24324" class="LineNr">24324 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24325" class="LineNr">24325 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24326" class="LineNr">24326 </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="L24327" class="LineNr">24327 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24328" class="LineNr">24328 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24329" class="LineNr">24329 </span> <span class="subxComment"># never gets here</span> +<span id="L24330" class="LineNr">24330 </span> +<span id="L24331" class="LineNr">24331 </span><span class="Constant">$check-mu-index-stmt:error-output-not-in-register</span>: +<span id="L24332" class="LineNr">24332 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24333" class="LineNr">24333 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24334" class="LineNr">24334 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24335" class="LineNr">24335 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24336" class="LineNr">24336 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: output '"</span>) +<span id="L24337" class="LineNr">24337 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24338" class="LineNr">24338 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24339" class="LineNr">24339 </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="L24340" class="LineNr">24340 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24341" class="LineNr">24341 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24342" class="LineNr">24342 </span> <span class="subxComment"># never gets here</span> +<span id="L24343" class="LineNr">24343 </span> +<span id="L24344" class="LineNr">24344 </span><span class="Constant">$check-mu-index-stmt:error-output-type-not-address</span>: +<span id="L24345" class="LineNr">24345 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24346" class="LineNr">24346 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24347" class="LineNr">24347 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24348" class="LineNr">24348 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24349" class="LineNr">24349 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: output '"</span>) +<span id="L24350" class="LineNr">24350 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24351" class="LineNr">24351 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24352" class="LineNr">24352 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an addr\n"</span>) +<span id="L24353" class="LineNr">24353 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24354" class="LineNr">24354 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24355" class="LineNr">24355 </span> <span class="subxComment"># never gets here</span> +<span id="L24356" class="LineNr">24356 </span> +<span id="L24357" class="LineNr">24357 </span><span class="Constant">$check-mu-index-stmt:error-bad-output-type</span>: +<span id="L24358" class="LineNr">24358 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24359" class="LineNr">24359 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24360" class="LineNr">24360 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24361" class="LineNr">24361 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24362" class="LineNr">24362 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: output '"</span>) +<span id="L24363" class="LineNr">24363 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24364" class="LineNr">24364 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24365" class="LineNr">24365 </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="L24366" class="LineNr">24366 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24367" class="LineNr">24367 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24368" class="LineNr">24368 </span> <span class="subxComment"># never gets here</span> +<span id="L24369" class="LineNr">24369 </span> +<span id="L24370" class="LineNr">24370 </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="L24371" class="LineNr">24371 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L24372" class="LineNr">24372 </span> 55/push-ebp +<span id="L24373" class="LineNr">24373 </span> 89/<- %ebp 4/r32/esp +<span id="L24374" class="LineNr">24374 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L24375" class="LineNr">24375 </span> 50/push-eax +<span id="L24376" class="LineNr">24376 </span> 51/push-ecx +<span id="L24377" class="LineNr">24377 </span> 52/push-edx +<span id="L24378" class="LineNr">24378 </span> 53/push-ebx +<span id="L24379" class="LineNr">24379 </span> 56/push-esi +<span id="L24380" class="LineNr">24380 </span> 57/push-edi +<span id="L24381" class="LineNr">24381 </span> <span class="subxComment"># esi = stmt</span> +<span id="L24382" class="LineNr">24382 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L24383" class="LineNr">24383 </span> <span class="subxH1Comment"># - check for 0 inouts</span> +<span id="L24384" class="LineNr">24384 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> +<span id="L24385" class="LineNr">24385 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L24386" class="LineNr">24386 </span><span class="Constant">$check-mu-length-stmt:check-no-inouts</span>: +<span id="L24387" class="LineNr">24387 </span> 3d/compare-eax-and 0/imm32 +<span id="L24388" class="LineNr">24388 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-too-few-inouts/disp32 +<span id="L24389" class="LineNr">24389 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L24390" class="LineNr">24390 </span> 89/<- %ecx 0/r32/eax +<span id="L24391" class="LineNr">24391 </span> <span class="subxH1Comment"># - check base type is either (addr array ...) in register or (array ...) on stack</span> +<span id="L24392" class="LineNr">24392 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> +<span id="L24393" class="LineNr">24393 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L24394" class="LineNr">24394 </span> 89/<- %ebx 0/r32/eax +<span id="L24395" class="LineNr">24395 </span> <span class="subxComment"># if base-type is an atom, abort with a precise error</span> +<span id="L24396" class="LineNr">24396 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L24397" class="LineNr">24397 </span> { +<span id="L24398" class="LineNr">24398 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24399" class="LineNr">24399 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %ebx 3) <span class="subxComment"># array => eax</span> +<span id="L24400" class="LineNr">24400 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24401" class="LineNr">24401 </span> 0f 85/jump-if-!= $check-mu-length-stmt:error-base-array-atom-type/disp32 +<span id="L24402" class="LineNr">24402 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-base-non-array-type/disp32 +<span id="L24403" class="LineNr">24403 </span> } +<span id="L24404" class="LineNr">24404 </span><span class="Constant">$check-mu-length-stmt:base-is-compound</span>: +<span id="L24405" class="LineNr">24405 </span> <span class="subxComment"># if type->left not addr or array, abort</span> +<span id="L24406" class="LineNr">24406 </span> { +<span id="L24407" class="LineNr">24407 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L24408" class="LineNr">24408 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L24409" class="LineNr">24409 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24410" class="LineNr">24410 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L24411" class="LineNr">24411 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L24412" class="LineNr">24412 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> +<span id="L24413" class="LineNr">24413 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24414" class="LineNr">24414 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L24415" class="LineNr">24415 </span> e9/jump $check-mu-length-stmt:error-base-non-array-type/disp32 +<span id="L24416" class="LineNr">24416 </span> } +<span id="L24417" class="LineNr">24417 </span> <span class="subxComment"># if (type->left == addr) ensure type->right->left == array and type->register exists</span> +<span id="L24418" class="LineNr">24418 </span> { +<span id="L24419" class="LineNr">24419 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L24420" class="LineNr">24420 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L24421" class="LineNr">24421 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24422" class="LineNr">24422 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24423" class="LineNr">24423 </span><span class="Constant">$check-mu-length-stmt:base-is-addr</span>: +<span id="L24424" class="LineNr">24424 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L24425" class="LineNr">24425 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L24426" class="LineNr">24426 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> +<span id="L24427" class="LineNr">24427 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24428" class="LineNr">24428 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-base-non-array-type/disp32 +<span id="L24429" class="LineNr">24429 </span><span class="Constant">$check-mu-length-stmt:check-base-addr-is-register</span>: +<span id="L24430" class="LineNr">24430 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L24431" class="LineNr">24431 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-base-address-array-type-on-stack/disp32 +<span id="L24432" class="LineNr">24432 </span> } +<span id="L24433" class="LineNr">24433 </span> <span class="subxComment"># if (type->left == array) ensure type->register doesn't exist</span> +<span id="L24434" class="LineNr">24434 </span> { +<span id="L24435" class="LineNr">24435 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L24436" class="LineNr">24436 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> +<span id="L24437" class="LineNr">24437 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24438" class="LineNr">24438 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24439" class="LineNr">24439 </span><span class="Constant">$check-mu-length-stmt:base-is-array</span>: +<span id="L24440" class="LineNr">24440 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L24441" class="LineNr">24441 </span> 0f 85/jump-if-!= $check-mu-length-stmt:error-base-array-type-in-register/disp32 +<span id="L24442" class="LineNr">24442 </span> } +<span id="L24443" class="LineNr">24443 </span> <span class="subxComment"># if (base-type->left == addr) base-type = base-type->right</span> +<span id="L24444" class="LineNr">24444 </span> { +<span id="L24445" class="LineNr">24445 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L24446" class="LineNr">24446 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L24447" class="LineNr">24447 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24448" class="LineNr">24448 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24449" class="LineNr">24449 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L24450" class="LineNr">24450 </span> 89/<- %ebx 0/r32/eax +<span id="L24451" class="LineNr">24451 </span> } +<span id="L24452" class="LineNr">24452 </span> <span class="subxH1Comment"># - check for too many inouts</span> +<span id="L24453" class="LineNr">24453 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L24454" class="LineNr">24454 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L24455" class="LineNr">24455 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24456" class="LineNr">24456 </span> 0f 85/jump-if-!= $check-mu-length-stmt:error-too-many-inouts/disp32 +<span id="L24457" class="LineNr">24457 </span> <span class="subxH1Comment"># - check for 0 outputs</span> +<span id="L24458" class="LineNr">24458 </span> <span class="subxComment"># var output/edi: (addr var) = stmt->outputs->value</span> +<span id="L24459" class="LineNr">24459 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L24460" class="LineNr">24460 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24461" class="LineNr">24461 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-too-few-outputs/disp32 +<span id="L24462" class="LineNr">24462 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L24463" class="LineNr">24463 </span> 89/<- %edi 0/r32/eax +<span id="L24464" class="LineNr">24464 </span> <span class="subxH1Comment"># - check output type</span> +<span id="L24465" class="LineNr">24465 </span> <span class="subxComment"># must have a non-atomic type</span> +<span id="L24466" class="LineNr">24466 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L24467" class="LineNr">24467 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 1) <span class="subxComment"># int => eax</span> +<span id="L24468" class="LineNr">24468 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24469" class="LineNr">24469 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-invalid-output-type/disp32 +<span id="L24470" class="LineNr">24470 </span> <span class="subxH1Comment"># - check for too many outputs</span> +<span id="L24471" class="LineNr">24471 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L24472" class="LineNr">24472 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L24473" class="LineNr">24473 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24474" class="LineNr">24474 </span> 0f 85/jump-if-!= $check-mu-length-stmt:error-too-many-outputs/disp32 +<span id="L24475" class="LineNr">24475 </span><span class="Constant">$check-mu-length-stmt:end</span>: +<span id="L24476" class="LineNr">24476 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L24477" class="LineNr">24477 </span> 5f/pop-to-edi +<span id="L24478" class="LineNr">24478 </span> 5e/pop-to-esi +<span id="L24479" class="LineNr">24479 </span> 5b/pop-to-ebx +<span id="L24480" class="LineNr">24480 </span> 5a/pop-to-edx +<span id="L24481" class="LineNr">24481 </span> 59/pop-to-ecx +<span id="L24482" class="LineNr">24482 </span> 58/pop-to-eax +<span id="L24483" class="LineNr">24483 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L24484" class="LineNr">24484 </span> 89/<- %esp 5/r32/ebp +<span id="L24485" class="LineNr">24485 </span> 5d/pop-to-ebp +<span id="L24486" class="LineNr">24486 </span> c3/return +<span id="L24487" class="LineNr">24487 </span> +<span id="L24488" class="LineNr">24488 </span><span class="Constant">$check-mu-length-stmt:error-base-non-array-type</span>: +<span id="L24489" class="LineNr">24489 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24490" class="LineNr">24490 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24491" class="LineNr">24491 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24492" class="LineNr">24492 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24493" class="LineNr">24493 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: var '"</span>) +<span id="L24494" class="LineNr">24494 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24495" class="LineNr">24495 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24496" class="LineNr">24496 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is not an array\n"</span>) +<span id="L24497" class="LineNr">24497 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24498" class="LineNr">24498 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24499" class="LineNr">24499 </span> <span class="subxComment"># never gets here</span> +<span id="L24500" class="LineNr">24500 </span> +<span id="L24501" class="LineNr">24501 </span><span class="Constant">$check-mu-length-stmt:error-base-array-atom-type</span>: +<span id="L24502" class="LineNr">24502 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24503" class="LineNr">24503 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24504" class="LineNr">24504 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24505" class="LineNr">24505 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24506" class="LineNr">24506 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: array '"</span>) +<span id="L24507" class="LineNr">24507 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24508" class="LineNr">24508 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24509" class="LineNr">24509 </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="L24510" class="LineNr">24510 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24511" class="LineNr">24511 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24512" class="LineNr">24512 </span> <span class="subxComment"># never gets here</span> +<span id="L24513" class="LineNr">24513 </span> +<span id="L24514" class="LineNr">24514 </span><span class="Constant">$check-mu-length-stmt:error-base-address-array-type-on-stack</span>: +<span id="L24515" class="LineNr">24515 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24516" class="LineNr">24516 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24517" class="LineNr">24517 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24518" class="LineNr">24518 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24519" class="LineNr">24519 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: var '"</span>) +<span id="L24520" class="LineNr">24520 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+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">"' is an addr to an array, and so must live in a register\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-length-stmt:error-base-array-type-in-register</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#L258'>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 length: var '"</span>) +<span id="L24533" class="LineNr">24533 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24534" class="LineNr">24534 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24535" class="LineNr">24535 </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="L24536" class="LineNr">24536 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24537" class="LineNr">24537 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24538" class="LineNr">24538 </span> <span class="subxComment"># never gets here</span> +<span id="L24539" class="LineNr">24539 </span> +<span id="L24540" class="LineNr">24540 </span><span class="Constant">$check-mu-length-stmt:error-too-few-inouts</span>: +<span id="L24541" class="LineNr">24541 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24542" class="LineNr">24542 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24543" class="LineNr">24543 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24544" class="LineNr">24544 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24545" class="LineNr">24545 </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="L24546" class="LineNr">24546 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24547" class="LineNr">24547 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24548" class="LineNr">24548 </span> <span class="subxComment"># never gets here</span> +<span id="L24549" class="LineNr">24549 </span> +<span id="L24550" class="LineNr">24550 </span><span class="Constant">$check-mu-length-stmt:error-invalid-index-type</span>: +<span id="L24551" class="LineNr">24551 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24552" class="LineNr">24552 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24553" class="LineNr">24553 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24554" class="LineNr">24554 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24555" class="LineNr">24555 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: second argument '"</span>) +<span id="L24556" class="LineNr">24556 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24557" class="LineNr">24557 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24558" class="LineNr">24558 </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="L24559" class="LineNr">24559 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24560" class="LineNr">24560 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24561" class="LineNr">24561 </span> <span class="subxComment"># never gets here</span> +<span id="L24562" class="LineNr">24562 </span> +<span id="L24563" class="LineNr">24563 </span><span class="Constant">$check-mu-length-stmt:error-index-offset-atom-type</span>: +<span id="L24564" class="LineNr">24564 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24565" class="LineNr">24565 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24566" class="LineNr">24566 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24567" class="LineNr">24567 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24568" class="LineNr">24568 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: offset '"</span>) +<span id="L24569" class="LineNr">24569 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24570" class="LineNr">24570 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24571" class="LineNr">24571 </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="L24572" class="LineNr">24572 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24573" class="LineNr">24573 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24574" class="LineNr">24574 </span> <span class="subxComment"># never gets here</span> +<span id="L24575" class="LineNr">24575 </span> +<span id="L24576" class="LineNr">24576 </span><span class="Constant">$check-mu-length-stmt:error-index-on-stack</span>: +<span id="L24577" class="LineNr">24577 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24578" class="LineNr">24578 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24579" class="LineNr">24579 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24580" class="LineNr">24580 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24581" class="LineNr">24581 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: second argument '"</span>) +<span id="L24582" class="LineNr">24582 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24583" class="LineNr">24583 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24584" class="LineNr">24584 </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="L24585" class="LineNr">24585 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24586" class="LineNr">24586 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24587" class="LineNr">24587 </span> <span class="subxComment"># never gets here</span> +<span id="L24588" class="LineNr">24588 </span> +<span id="L24589" class="LineNr">24589 </span><span class="Constant">$check-mu-length-stmt:error-index-needs-offset</span>: +<span id="L24590" class="LineNr">24590 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24591" class="LineNr">24591 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24592" class="LineNr">24592 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24593" class="LineNr">24593 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24594" class="LineNr">24594 </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="L24595" class="LineNr">24595 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L24596" class="LineNr">24596 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L24597" class="LineNr">24597 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24598" class="LineNr">24598 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24599" class="LineNr">24599 </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="L24600" class="LineNr">24600 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24601" class="LineNr">24601 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24602" class="LineNr">24602 </span> <span class="subxComment"># never gets here</span> +<span id="L24603" class="LineNr">24603 </span> +<span id="L24604" class="LineNr">24604 </span><span class="Constant">$check-mu-length-stmt:error-too-many-inouts</span>: +<span id="L24605" class="LineNr">24605 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24606" class="LineNr">24606 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24607" class="LineNr">24607 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24608" class="LineNr">24608 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24609" class="LineNr">24609 </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="L24610" class="LineNr">24610 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24611" class="LineNr">24611 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24612" class="LineNr">24612 </span> <span class="subxComment"># never gets here</span> +<span id="L24613" class="LineNr">24613 </span> +<span id="L24614" class="LineNr">24614 </span><span class="Constant">$check-mu-length-stmt:error-too-few-outputs</span>: +<span id="L24615" class="LineNr">24615 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24616" class="LineNr">24616 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24617" class="LineNr">24617 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24618" class="LineNr">24618 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24619" class="LineNr">24619 </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="L24620" class="LineNr">24620 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24621" class="LineNr">24621 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24622" class="LineNr">24622 </span> <span class="subxComment"># never gets here</span> +<span id="L24623" class="LineNr">24623 </span> +<span id="L24624" class="LineNr">24624 </span><span class="Constant">$check-mu-length-stmt:error-too-many-outputs</span>: +<span id="L24625" class="LineNr">24625 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24626" class="LineNr">24626 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24627" class="LineNr">24627 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24628" class="LineNr">24628 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24629" class="LineNr">24629 </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="L24630" class="LineNr">24630 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24631" class="LineNr">24631 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24632" class="LineNr">24632 </span> <span class="subxComment"># never gets here</span> +<span id="L24633" class="LineNr">24633 </span> +<span id="L24634" class="LineNr">24634 </span><span class="Constant">$check-mu-length-stmt:error-output-not-in-register</span>: +<span id="L24635" class="LineNr">24635 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24636" class="LineNr">24636 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24637" class="LineNr">24637 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24638" class="LineNr">24638 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24639" class="LineNr">24639 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: output '"</span>) +<span id="L24640" class="LineNr">24640 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24641" class="LineNr">24641 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24642" class="LineNr">24642 </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="L24643" class="LineNr">24643 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24644" class="LineNr">24644 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24645" class="LineNr">24645 </span> <span class="subxComment"># never gets here</span> +<span id="L24646" class="LineNr">24646 </span> +<span id="L24647" class="LineNr">24647 </span><span class="Constant">$check-mu-length-stmt:error-invalid-output-type</span>: +<span id="L24648" class="LineNr">24648 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24649" class="LineNr">24649 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24650" class="LineNr">24650 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24651" class="LineNr">24651 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24652" class="LineNr">24652 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: output '"</span>) +<span id="L24653" class="LineNr">24653 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24654" class="LineNr">24654 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24655" class="LineNr">24655 </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="L24656" class="LineNr">24656 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24657" class="LineNr">24657 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24658" class="LineNr">24658 </span> <span class="subxComment"># never gets here</span> +<span id="L24659" class="LineNr">24659 </span> +<span id="L24660" class="LineNr">24660 </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="L24661" class="LineNr">24661 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L24662" class="LineNr">24662 </span> 55/push-ebp +<span id="L24663" class="LineNr">24663 </span> 89/<- %ebp 4/r32/esp +<span id="L24664" class="LineNr">24664 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L24665" class="LineNr">24665 </span> 50/push-eax +<span id="L24666" class="LineNr">24666 </span> 51/push-ecx +<span id="L24667" class="LineNr">24667 </span> 52/push-edx +<span id="L24668" class="LineNr">24668 </span> 53/push-ebx +<span id="L24669" class="LineNr">24669 </span> 56/push-esi +<span id="L24670" class="LineNr">24670 </span> 57/push-edi +<span id="L24671" class="LineNr">24671 </span> <span class="subxComment"># esi = stmt</span> +<span id="L24672" class="LineNr">24672 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L24673" class="LineNr">24673 </span> <span class="subxH1Comment"># - check for 0 inouts</span> +<span id="L24674" class="LineNr">24674 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> +<span id="L24675" class="LineNr">24675 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L24676" class="LineNr">24676 </span><span class="Constant">$check-mu-compute-offset-stmt:check-no-inouts</span>: +<span id="L24677" class="LineNr">24677 </span> 3d/compare-eax-and 0/imm32 +<span id="L24678" class="LineNr">24678 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-too-few-inouts/disp32 +<span id="L24679" class="LineNr">24679 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L24680" class="LineNr">24680 </span> 89/<- %ecx 0/r32/eax +<span id="L24681" class="LineNr">24681 </span> <span class="subxH1Comment"># - check base type is either (addr array ...) in register or (array ...) on stack</span> +<span id="L24682" class="LineNr">24682 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> +<span id="L24683" class="LineNr">24683 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L24684" class="LineNr">24684 </span> 89/<- %ebx 0/r32/eax +<span id="L24685" class="LineNr">24685 </span> <span class="subxComment"># if base-type is an atom, abort with a precise error</span> +<span id="L24686" class="LineNr">24686 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L24687" class="LineNr">24687 </span> { +<span id="L24688" class="LineNr">24688 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24689" class="LineNr">24689 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %ebx 3) <span class="subxComment"># array => eax</span> +<span id="L24690" class="LineNr">24690 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24691" class="LineNr">24691 </span> 0f 85/jump-if-!= $check-mu-compute-offset-stmt:error-base-array-atom-type/disp32 +<span id="L24692" class="LineNr">24692 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-base-non-array-type/disp32 +<span id="L24693" class="LineNr">24693 </span> } +<span id="L24694" class="LineNr">24694 </span><span class="Constant">$check-mu-compute-offset-stmt:base-is-compound</span>: +<span id="L24695" class="LineNr">24695 </span> <span class="subxComment"># if type->left not addr or array, abort</span> +<span id="L24696" class="LineNr">24696 </span> { +<span id="L24697" class="LineNr">24697 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L24698" class="LineNr">24698 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L24699" class="LineNr">24699 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24700" class="LineNr">24700 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L24701" class="LineNr">24701 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L24702" class="LineNr">24702 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> +<span id="L24703" class="LineNr">24703 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24704" class="LineNr">24704 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L24705" class="LineNr">24705 </span> e9/jump $check-mu-compute-offset-stmt:error-base-non-array-type/disp32 <span id="L24706" class="LineNr">24706 </span> } -<span id="L24707" class="LineNr">24707 </span> <span class="subxH1Comment"># - check for 1 inout</span> -<span id="L24708" class="LineNr">24708 </span> <span class="subxComment"># var index/ecx: (addr stmt-var) = stmt->inouts->next->value</span> -<span id="L24709" class="LineNr">24709 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L24710" class="LineNr">24710 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L24711" class="LineNr">24711 </span><span class="Constant">$check-mu-compute-offset-stmt:check-single-inout</span>: -<span id="L24712" class="LineNr">24712 </span> 3d/compare-eax-and 0/imm32 -<span id="L24713" class="LineNr">24713 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-too-few-inouts/disp32 -<span id="L24714" class="LineNr">24714 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L24715" class="LineNr">24715 </span> 89/<- %ecx 0/r32/eax -<span id="L24716" class="LineNr">24716 </span> <span class="subxH1Comment"># - check index is either a literal or register</span> -<span id="L24717" class="LineNr">24717 </span> <span class="subxComment"># var index-type/edx: (addr type-tree)</span> -<span id="L24718" class="LineNr">24718 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L24719" class="LineNr">24719 </span> 89/<- %edx 0/r32/eax -<span id="L24720" class="LineNr">24720 </span> <span class="subxComment"># index type must be a literal or int</span> -<span id="L24721" class="LineNr">24721 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L24722" class="LineNr">24722 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-invalid-index-type/disp32 -<span id="L24723" class="LineNr">24723 </span> { -<span id="L24724" class="LineNr">24724 </span><span class="Constant">$check-mu-compute-offset-stmt:index-type-is-atom</span>: -<span id="L24725" class="LineNr">24725 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %edx 0) <span class="subxComment"># literal => eax</span> -<span id="L24726" class="LineNr">24726 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24727" class="LineNr">24727 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L24728" class="LineNr">24728 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %edx 1) <span class="subxComment"># int => eax</span> -<span id="L24729" class="LineNr">24729 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24730" class="LineNr">24730 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L24731" class="LineNr">24731 </span> e9/jump $check-mu-compute-offset-stmt:error-invalid-index-type/disp32 -<span id="L24732" class="LineNr">24732 </span> } -<span id="L24733" class="LineNr">24733 </span> <span class="subxH1Comment"># - check for too many inouts</span> -<span id="L24734" class="LineNr">24734 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L24735" class="LineNr">24735 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L24736" class="LineNr">24736 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L24737" class="LineNr">24737 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24738" class="LineNr">24738 </span> 0f 85/jump-if-!= $check-mu-compute-offset-stmt:error-too-many-inouts/disp32 -<span id="L24739" class="LineNr">24739 </span> <span class="subxH1Comment"># - check for 0 outputs</span> -<span id="L24740" class="LineNr">24740 </span> <span class="subxComment"># var output/edi: (addr var) = stmt->outputs->value</span> -<span id="L24741" class="LineNr">24741 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L24742" class="LineNr">24742 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24743" class="LineNr">24743 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-too-few-outputs/disp32 -<span id="L24744" class="LineNr">24744 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L24745" class="LineNr">24745 </span> 89/<- %edi 0/r32/eax -<span id="L24746" class="LineNr">24746 </span> <span class="subxH1Comment"># - check output type</span> -<span id="L24747" class="LineNr">24747 </span> <span class="subxComment"># must have a non-atomic type</span> -<span id="L24748" class="LineNr">24748 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L24749" class="LineNr">24749 </span> 89/<- %edx 0/r32/eax -<span id="L24750" class="LineNr">24750 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L24751" class="LineNr">24751 </span> 0f 85/jump-if-!= $check-mu-compute-offset-stmt:error-output-type-not-offset/disp32 -<span id="L24752" class="LineNr">24752 </span> <span class="subxComment"># type must start with (offset ...)</span> -<span id="L24753" class="LineNr">24753 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L24754" class="LineNr">24754 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 7) <span class="subxComment"># offset => eax</span> -<span id="L24755" class="LineNr">24755 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24756" class="LineNr">24756 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-output-type-not-offset/disp32 -<span id="L24757" class="LineNr">24757 </span> <span class="subxComment"># if tail(base-type) != tail(output-type) abort</span> -<span id="L24758" class="LineNr">24758 </span> (<a href='mu.subx.html#L26821'>type-tail</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L24759" class="LineNr">24759 </span> 89/<- %ebx 0/r32/eax -<span id="L24760" class="LineNr">24760 </span> (<a href='mu.subx.html#L26821'>type-tail</a> %edx) <span class="subxComment"># => eax</span> -<span id="L24761" class="LineNr">24761 </span> (<a href='mu.subx.html#L26880'>type-equal?</a> %ebx %eax) <span class="subxComment"># => eax</span> -<span id="L24762" class="LineNr">24762 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24763" class="LineNr">24763 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-bad-output-type/disp32 -<span id="L24764" class="LineNr">24764 </span> <span class="subxH1Comment"># - check for too many outputs</span> -<span id="L24765" class="LineNr">24765 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L24766" class="LineNr">24766 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L24767" class="LineNr">24767 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24768" class="LineNr">24768 </span> 0f 85/jump-if-!= $check-mu-compute-offset-stmt:error-too-many-outputs/disp32 -<span id="L24769" class="LineNr">24769 </span><span class="Constant">$check-mu-compute-offset-stmt:end</span>: -<span id="L24770" class="LineNr">24770 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L24771" class="LineNr">24771 </span> 5f/pop-to-edi -<span id="L24772" class="LineNr">24772 </span> 5e/pop-to-esi -<span id="L24773" class="LineNr">24773 </span> 5b/pop-to-ebx -<span id="L24774" class="LineNr">24774 </span> 5a/pop-to-edx -<span id="L24775" class="LineNr">24775 </span> 59/pop-to-ecx -<span id="L24776" class="LineNr">24776 </span> 58/pop-to-eax -<span id="L24777" class="LineNr">24777 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L24778" class="LineNr">24778 </span> 89/<- %esp 5/r32/ebp -<span id="L24779" class="LineNr">24779 </span> 5d/pop-to-ebp -<span id="L24780" class="LineNr">24780 </span> c3/return -<span id="L24781" class="LineNr">24781 </span> -<span id="L24782" class="LineNr">24782 </span><span class="Constant">$check-mu-compute-offset-stmt:error-base-non-array-type</span>: -<span id="L24783" class="LineNr">24783 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24784" class="LineNr">24784 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24785" class="LineNr">24785 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24786" class="LineNr">24786 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24787" class="LineNr">24787 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: var '"</span>) -<span id="L24788" class="LineNr">24788 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24789" class="LineNr">24789 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24790" class="LineNr">24790 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is not an array\n"</span>) -<span id="L24791" class="LineNr">24791 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24792" class="LineNr">24792 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24793" class="LineNr">24793 </span> <span class="subxComment"># never gets here</span> -<span id="L24794" class="LineNr">24794 </span> -<span id="L24795" class="LineNr">24795 </span><span class="Constant">$check-mu-compute-offset-stmt:error-base-array-atom-type</span>: -<span id="L24796" class="LineNr">24796 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24797" class="LineNr">24797 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24798" class="LineNr">24798 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24799" class="LineNr">24799 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24800" class="LineNr">24800 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: array '"</span>) -<span id="L24801" class="LineNr">24801 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24802" class="LineNr">24802 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24803" class="LineNr">24803 </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="L24804" class="LineNr">24804 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24805" class="LineNr">24805 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24806" class="LineNr">24806 </span> <span class="subxComment"># never gets here</span> -<span id="L24807" class="LineNr">24807 </span> -<span id="L24808" class="LineNr">24808 </span><span class="Constant">$check-mu-compute-offset-stmt:error-too-few-inouts</span>: -<span id="L24809" class="LineNr">24809 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24810" class="LineNr">24810 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24811" class="LineNr">24811 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24812" class="LineNr">24812 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24813" class="LineNr">24813 </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="L24814" class="LineNr">24814 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24815" class="LineNr">24815 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24816" class="LineNr">24816 </span> <span class="subxComment"># never gets here</span> -<span id="L24817" class="LineNr">24817 </span> -<span id="L24818" class="LineNr">24818 </span><span class="Constant">$check-mu-compute-offset-stmt:error-invalid-index-type</span>: -<span id="L24819" class="LineNr">24819 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24820" class="LineNr">24820 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24821" class="LineNr">24821 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+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+0x10) %eax) -<span id="L24823" class="LineNr">24823 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: second argument '"</span>) -<span id="L24824" class="LineNr">24824 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24825" class="LineNr">24825 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24826" class="LineNr">24826 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an int\n"</span>) -<span id="L24827" class="LineNr">24827 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24828" class="LineNr">24828 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24829" class="LineNr">24829 </span> <span class="subxComment"># never gets here</span> -<span id="L24830" class="LineNr">24830 </span> -<span id="L24831" class="LineNr">24831 </span><span class="Constant">$check-mu-compute-offset-stmt:error-index-offset-atom-type</span>: -<span id="L24832" class="LineNr">24832 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24833" class="LineNr">24833 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24834" class="LineNr">24834 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24835" class="LineNr">24835 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24836" class="LineNr">24836 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: offset '"</span>) -<span id="L24837" class="LineNr">24837 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24838" class="LineNr">24838 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24839" class="LineNr">24839 </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="L24840" class="LineNr">24840 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24841" class="LineNr">24841 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24842" class="LineNr">24842 </span> <span class="subxComment"># never gets here</span> -<span id="L24843" class="LineNr">24843 </span> -<span id="L24844" class="LineNr">24844 </span><span class="Constant">$check-mu-compute-offset-stmt:error-index-on-stack</span>: -<span id="L24845" class="LineNr">24845 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24846" class="LineNr">24846 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24847" class="LineNr">24847 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24848" class="LineNr">24848 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24849" class="LineNr">24849 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: second argument '"</span>) -<span id="L24850" class="LineNr">24850 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24851" class="LineNr">24851 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24852" class="LineNr">24852 </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="L24853" class="LineNr">24853 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24854" class="LineNr">24854 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24855" class="LineNr">24855 </span> <span class="subxComment"># never gets here</span> -<span id="L24856" class="LineNr">24856 </span> -<span id="L24857" class="LineNr">24857 </span><span class="Constant">$check-mu-compute-offset-stmt:error-too-many-inouts</span>: -<span id="L24858" class="LineNr">24858 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24859" class="LineNr">24859 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24860" class="LineNr">24860 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24861" class="LineNr">24861 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24862" class="LineNr">24862 </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="L24863" class="LineNr">24863 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24864" class="LineNr">24864 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24865" class="LineNr">24865 </span> <span class="subxComment"># never gets here</span> -<span id="L24866" class="LineNr">24866 </span> -<span id="L24867" class="LineNr">24867 </span><span class="Constant">$check-mu-compute-offset-stmt:error-too-few-outputs</span>: -<span id="L24868" class="LineNr">24868 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24869" class="LineNr">24869 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24870" class="LineNr">24870 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24871" class="LineNr">24871 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24872" class="LineNr">24872 </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="L24873" class="LineNr">24873 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24874" class="LineNr">24874 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24875" class="LineNr">24875 </span> <span class="subxComment"># never gets here</span> -<span id="L24876" class="LineNr">24876 </span> -<span id="L24877" class="LineNr">24877 </span><span class="Constant">$check-mu-compute-offset-stmt:error-too-many-outputs</span>: -<span id="L24878" class="LineNr">24878 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24879" class="LineNr">24879 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24880" class="LineNr">24880 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24881" class="LineNr">24881 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24882" class="LineNr">24882 </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="L24883" class="LineNr">24883 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24884" class="LineNr">24884 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24885" class="LineNr">24885 </span> <span class="subxComment"># never gets here</span> -<span id="L24886" class="LineNr">24886 </span> -<span id="L24887" class="LineNr">24887 </span><span class="Constant">$check-mu-compute-offset-stmt:error-output-not-in-register</span>: -<span id="L24888" class="LineNr">24888 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24889" class="LineNr">24889 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24890" class="LineNr">24890 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24891" class="LineNr">24891 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24892" class="LineNr">24892 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: output '"</span>) -<span id="L24893" class="LineNr">24893 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24894" class="LineNr">24894 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24895" class="LineNr">24895 </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="L24896" class="LineNr">24896 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24897" class="LineNr">24897 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24898" class="LineNr">24898 </span> <span class="subxComment"># never gets here</span> -<span id="L24899" class="LineNr">24899 </span> -<span id="L24900" class="LineNr">24900 </span><span class="Constant">$check-mu-compute-offset-stmt:error-output-type-not-offset</span>: -<span id="L24901" class="LineNr">24901 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24902" class="LineNr">24902 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24903" class="LineNr">24903 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24904" class="LineNr">24904 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24905" class="LineNr">24905 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: output '"</span>) -<span id="L24906" class="LineNr">24906 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24907" class="LineNr">24907 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24908" class="LineNr">24908 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an offset\n"</span>) -<span id="L24909" class="LineNr">24909 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24910" class="LineNr">24910 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24911" class="LineNr">24911 </span> <span class="subxComment"># never gets here</span> -<span id="L24912" class="LineNr">24912 </span> -<span id="L24913" class="LineNr">24913 </span><span class="Constant">$check-mu-compute-offset-stmt:error-bad-output-type</span>: -<span id="L24914" class="LineNr">24914 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24915" class="LineNr">24915 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24916" class="LineNr">24916 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24917" class="LineNr">24917 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24918" class="LineNr">24918 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: output '"</span>) -<span id="L24919" class="LineNr">24919 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24920" class="LineNr">24920 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24921" class="LineNr">24921 </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="L24922" class="LineNr">24922 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24923" class="LineNr">24923 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24924" class="LineNr">24924 </span> <span class="subxComment"># never gets here</span> -<span id="L24925" class="LineNr">24925 </span> -<span id="L24926" class="LineNr">24926 </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="L24927" class="LineNr">24927 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L24928" class="LineNr">24928 </span> 55/push-ebp -<span id="L24929" class="LineNr">24929 </span> 89/<- %ebp 4/r32/esp -<span id="L24930" class="LineNr">24930 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L24931" class="LineNr">24931 </span> 50/push-eax -<span id="L24932" class="LineNr">24932 </span> 51/push-ecx -<span id="L24933" class="LineNr">24933 </span> 53/push-ebx -<span id="L24934" class="LineNr">24934 </span> 56/push-esi -<span id="L24935" class="LineNr">24935 </span> 57/push-edi -<span id="L24936" class="LineNr">24936 </span> <span class="subxComment"># esi = stmt</span> -<span id="L24937" class="LineNr">24937 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L24938" class="LineNr">24938 </span><span class="Constant">$check-mu-copy-object-stmt:check-for-output</span>: -<span id="L24939" class="LineNr">24939 </span> <span class="subxComment"># if stmt->outputs abort</span> -<span id="L24940" class="LineNr">24940 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L24941" class="LineNr">24941 </span> 3d/compare-eax-and 0/imm32 -<span id="L24942" class="LineNr">24942 </span> 0f 85/jump-if-!= $check-mu-copy-object-stmt:error-too-many-outputs/disp32 -<span id="L24943" class="LineNr">24943 </span><span class="Constant">$check-mu-copy-object-stmt:get-left</span>: -<span id="L24944" class="LineNr">24944 </span> <span class="subxComment"># var dest/edi: (addr stmt-var) = stmt->inouts</span> -<span id="L24945" class="LineNr">24945 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L24946" class="LineNr">24946 </span> 89/<- %edi 0/r32/eax -<span id="L24947" class="LineNr">24947 </span> <span class="subxComment"># zero inouts</span> -<span id="L24948" class="LineNr">24948 </span> 3d/compare-eax-and 0/imm32 -<span id="L24949" class="LineNr">24949 </span> 0f 84/jump-if-= $check-mu-copy-object-stmt:error-incorrect-inouts/disp32 -<span id="L24950" class="LineNr">24950 </span><span class="Constant">$check-mu-copy-object-stmt:get-src</span>: -<span id="L24951" class="LineNr">24951 </span> <span class="subxComment"># var src/esi: (addr stmt-var) = dest->next</span> -<span id="L24952" class="LineNr">24952 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L24953" class="LineNr">24953 </span> 89/<- %esi 0/r32/eax -<span id="L24954" class="LineNr">24954 </span> <span class="subxComment"># 1 inout</span> -<span id="L24955" class="LineNr">24955 </span> 3d/compare-eax-and 0/imm32 -<span id="L24956" class="LineNr">24956 </span> 0f 84/jump-if-= $check-mu-copy-object-stmt:error-incorrect-inouts/disp32 -<span id="L24957" class="LineNr">24957 </span> <span class="subxComment"># > 2 inouts</span> -<span id="L24958" class="LineNr">24958 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L24959" class="LineNr">24959 </span> 3d/compare-eax-and 0/imm32 -<span id="L24960" class="LineNr">24960 </span> 0f 85/jump-if-!= $check-mu-copy-object-stmt:error-incorrect-inouts/disp32 -<span id="L24961" class="LineNr">24961 </span><span class="Constant">$check-mu-copy-object-stmt:types</span>: -<span id="L24962" class="LineNr">24962 </span> <span class="subxComment"># var src-type/ecx: (addr type-tree) = src->value->type</span> -<span id="L24963" class="LineNr">24963 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L24964" class="LineNr">24964 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L24965" class="LineNr">24965 </span> 89/<- %ecx 0/r32/eax -<span id="L24966" class="LineNr">24966 </span> <span class="subxComment"># if (src->is-deref?) src-type = src-type->payload</span> -<span id="L24967" class="LineNr">24967 </span> 8b/-> *(esi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L24968" class="LineNr">24968 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24969" class="LineNr">24969 </span> { -<span id="L24970" class="LineNr">24970 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24971" class="LineNr">24971 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L24972" class="LineNr">24972 </span> <span class="subxComment"># if src-type->right is null, src-type = src-type->left</span> -<span id="L24973" class="LineNr">24973 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L24974" class="LineNr">24974 </span> { -<span id="L24975" class="LineNr">24975 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L24976" class="LineNr">24976 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L24977" class="LineNr">24977 </span> } -<span id="L24978" class="LineNr">24978 </span> 89/<- %ecx 0/r32/eax -<span id="L24979" class="LineNr">24979 </span> } -<span id="L24980" class="LineNr">24980 </span> <span class="subxComment"># if src-type is not addr, abort</span> -<span id="L24981" class="LineNr">24981 </span> (<a href='mu.subx.html#L35916'>mu-addr-type?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L24982" class="LineNr">24982 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24983" class="LineNr">24983 </span> 0f 84/jump-if-= $check-mu-copy-object-stmt:error-invalid-types/disp32 -<span id="L24984" class="LineNr">24984 </span> <span class="subxComment"># var dest-type/ebx: (addr type-tree) = dest->value->type</span> -<span id="L24985" class="LineNr">24985 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L24707" class="LineNr">24707 </span> <span class="subxComment"># if (type->left == addr) ensure type->right->left == array and type->register exists</span> +<span id="L24708" class="LineNr">24708 </span> { +<span id="L24709" class="LineNr">24709 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L24710" class="LineNr">24710 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L24711" class="LineNr">24711 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24712" class="LineNr">24712 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24713" class="LineNr">24713 </span><span class="Constant">$check-mu-compute-offset-stmt:base-is-addr</span>: +<span id="L24714" class="LineNr">24714 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L24715" class="LineNr">24715 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L24716" class="LineNr">24716 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> +<span id="L24717" class="LineNr">24717 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24718" class="LineNr">24718 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-base-non-array-type/disp32 +<span id="L24719" class="LineNr">24719 </span> } +<span id="L24720" class="LineNr">24720 </span> <span class="subxComment"># if (base-type->left == addr) base-type = base-type->right</span> +<span id="L24721" class="LineNr">24721 </span> { +<span id="L24722" class="LineNr">24722 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L24723" class="LineNr">24723 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L24724" class="LineNr">24724 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24725" class="LineNr">24725 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24726" class="LineNr">24726 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L24727" class="LineNr">24727 </span> 89/<- %ebx 0/r32/eax +<span id="L24728" class="LineNr">24728 </span> } +<span id="L24729" class="LineNr">24729 </span> <span class="subxH1Comment"># - check for 1 inout</span> +<span id="L24730" class="LineNr">24730 </span> <span class="subxComment"># var index/ecx: (addr stmt-var) = stmt->inouts->next->value</span> +<span id="L24731" class="LineNr">24731 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L24732" class="LineNr">24732 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L24733" class="LineNr">24733 </span><span class="Constant">$check-mu-compute-offset-stmt:check-single-inout</span>: +<span id="L24734" class="LineNr">24734 </span> 3d/compare-eax-and 0/imm32 +<span id="L24735" class="LineNr">24735 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-too-few-inouts/disp32 +<span id="L24736" class="LineNr">24736 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L24737" class="LineNr">24737 </span> 89/<- %ecx 0/r32/eax +<span id="L24738" class="LineNr">24738 </span> <span class="subxH1Comment"># - check index is either a literal or register</span> +<span id="L24739" class="LineNr">24739 </span> <span class="subxComment"># var index-type/edx: (addr type-tree)</span> +<span id="L24740" class="LineNr">24740 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L24741" class="LineNr">24741 </span> 89/<- %edx 0/r32/eax +<span id="L24742" class="LineNr">24742 </span> <span class="subxComment"># index type must be a literal or int</span> +<span id="L24743" class="LineNr">24743 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L24744" class="LineNr">24744 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-invalid-index-type/disp32 +<span id="L24745" class="LineNr">24745 </span> { +<span id="L24746" class="LineNr">24746 </span><span class="Constant">$check-mu-compute-offset-stmt:index-type-is-atom</span>: +<span id="L24747" class="LineNr">24747 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %edx 0) <span class="subxComment"># literal => eax</span> +<span id="L24748" class="LineNr">24748 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24749" class="LineNr">24749 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L24750" class="LineNr">24750 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %edx 1) <span class="subxComment"># int => eax</span> +<span id="L24751" class="LineNr">24751 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24752" class="LineNr">24752 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L24753" class="LineNr">24753 </span> e9/jump $check-mu-compute-offset-stmt:error-invalid-index-type/disp32 +<span id="L24754" class="LineNr">24754 </span> } +<span id="L24755" class="LineNr">24755 </span> <span class="subxH1Comment"># - check for too many inouts</span> +<span id="L24756" class="LineNr">24756 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L24757" class="LineNr">24757 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L24758" class="LineNr">24758 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L24759" class="LineNr">24759 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24760" class="LineNr">24760 </span> 0f 85/jump-if-!= $check-mu-compute-offset-stmt:error-too-many-inouts/disp32 +<span id="L24761" class="LineNr">24761 </span> <span class="subxH1Comment"># - check for 0 outputs</span> +<span id="L24762" class="LineNr">24762 </span> <span class="subxComment"># var output/edi: (addr var) = stmt->outputs->value</span> +<span id="L24763" class="LineNr">24763 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L24764" class="LineNr">24764 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24765" class="LineNr">24765 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-too-few-outputs/disp32 +<span id="L24766" class="LineNr">24766 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L24767" class="LineNr">24767 </span> 89/<- %edi 0/r32/eax +<span id="L24768" class="LineNr">24768 </span> <span class="subxH1Comment"># - check output type</span> +<span id="L24769" class="LineNr">24769 </span> <span class="subxComment"># must have a non-atomic type</span> +<span id="L24770" class="LineNr">24770 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L24771" class="LineNr">24771 </span> 89/<- %edx 0/r32/eax +<span id="L24772" class="LineNr">24772 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L24773" class="LineNr">24773 </span> 0f 85/jump-if-!= $check-mu-compute-offset-stmt:error-output-type-not-offset/disp32 +<span id="L24774" class="LineNr">24774 </span> <span class="subxComment"># type must start with (offset ...)</span> +<span id="L24775" class="LineNr">24775 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L24776" class="LineNr">24776 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 7) <span class="subxComment"># offset => eax</span> +<span id="L24777" class="LineNr">24777 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24778" class="LineNr">24778 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-output-type-not-offset/disp32 +<span id="L24779" class="LineNr">24779 </span> <span class="subxComment"># if tail(base-type) != tail(output-type) abort</span> +<span id="L24780" class="LineNr">24780 </span> (<a href='mu.subx.html#L26843'>type-tail</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L24781" class="LineNr">24781 </span> 89/<- %ebx 0/r32/eax +<span id="L24782" class="LineNr">24782 </span> (<a href='mu.subx.html#L26843'>type-tail</a> %edx) <span class="subxComment"># => eax</span> +<span id="L24783" class="LineNr">24783 </span> (<a href='mu.subx.html#L26902'>type-equal?</a> %ebx %eax) <span class="subxComment"># => eax</span> +<span id="L24784" class="LineNr">24784 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24785" class="LineNr">24785 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-bad-output-type/disp32 +<span id="L24786" class="LineNr">24786 </span> <span class="subxH1Comment"># - check for too many outputs</span> +<span id="L24787" class="LineNr">24787 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L24788" class="LineNr">24788 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L24789" class="LineNr">24789 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24790" class="LineNr">24790 </span> 0f 85/jump-if-!= $check-mu-compute-offset-stmt:error-too-many-outputs/disp32 +<span id="L24791" class="LineNr">24791 </span><span class="Constant">$check-mu-compute-offset-stmt:end</span>: +<span id="L24792" class="LineNr">24792 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L24793" class="LineNr">24793 </span> 5f/pop-to-edi +<span id="L24794" class="LineNr">24794 </span> 5e/pop-to-esi +<span id="L24795" class="LineNr">24795 </span> 5b/pop-to-ebx +<span id="L24796" class="LineNr">24796 </span> 5a/pop-to-edx +<span id="L24797" class="LineNr">24797 </span> 59/pop-to-ecx +<span id="L24798" class="LineNr">24798 </span> 58/pop-to-eax +<span id="L24799" class="LineNr">24799 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L24800" class="LineNr">24800 </span> 89/<- %esp 5/r32/ebp +<span id="L24801" class="LineNr">24801 </span> 5d/pop-to-ebp +<span id="L24802" class="LineNr">24802 </span> c3/return +<span id="L24803" class="LineNr">24803 </span> +<span id="L24804" class="LineNr">24804 </span><span class="Constant">$check-mu-compute-offset-stmt:error-base-non-array-type</span>: +<span id="L24805" class="LineNr">24805 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24806" class="LineNr">24806 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24807" class="LineNr">24807 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24808" class="LineNr">24808 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24809" class="LineNr">24809 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: var '"</span>) +<span id="L24810" class="LineNr">24810 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24811" class="LineNr">24811 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24812" class="LineNr">24812 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is not an array\n"</span>) +<span id="L24813" class="LineNr">24813 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24814" class="LineNr">24814 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24815" class="LineNr">24815 </span> <span class="subxComment"># never gets here</span> +<span id="L24816" class="LineNr">24816 </span> +<span id="L24817" class="LineNr">24817 </span><span class="Constant">$check-mu-compute-offset-stmt:error-base-array-atom-type</span>: +<span id="L24818" class="LineNr">24818 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24819" class="LineNr">24819 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24820" class="LineNr">24820 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24821" class="LineNr">24821 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24822" class="LineNr">24822 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: array '"</span>) +<span id="L24823" class="LineNr">24823 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24824" class="LineNr">24824 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24825" class="LineNr">24825 </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="L24826" class="LineNr">24826 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24827" class="LineNr">24827 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24828" class="LineNr">24828 </span> <span class="subxComment"># never gets here</span> +<span id="L24829" class="LineNr">24829 </span> +<span id="L24830" class="LineNr">24830 </span><span class="Constant">$check-mu-compute-offset-stmt:error-too-few-inouts</span>: +<span id="L24831" class="LineNr">24831 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24832" class="LineNr">24832 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24833" class="LineNr">24833 </span> (<a href='120allocate.subx.html#L258'>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+0x10) %eax) +<span id="L24835" class="LineNr">24835 </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="L24836" class="LineNr">24836 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24837" class="LineNr">24837 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24838" class="LineNr">24838 </span> <span class="subxComment"># never gets here</span> +<span id="L24839" class="LineNr">24839 </span> +<span id="L24840" class="LineNr">24840 </span><span class="Constant">$check-mu-compute-offset-stmt:error-invalid-index-type</span>: +<span id="L24841" class="LineNr">24841 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24842" class="LineNr">24842 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24843" class="LineNr">24843 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24844" class="LineNr">24844 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24845" class="LineNr">24845 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: second argument '"</span>) +<span id="L24846" class="LineNr">24846 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24847" class="LineNr">24847 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24848" class="LineNr">24848 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an int\n"</span>) +<span id="L24849" class="LineNr">24849 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24850" class="LineNr">24850 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24851" class="LineNr">24851 </span> <span class="subxComment"># never gets here</span> +<span id="L24852" class="LineNr">24852 </span> +<span id="L24853" class="LineNr">24853 </span><span class="Constant">$check-mu-compute-offset-stmt:error-index-offset-atom-type</span>: +<span id="L24854" class="LineNr">24854 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24855" class="LineNr">24855 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24856" class="LineNr">24856 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24857" class="LineNr">24857 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24858" class="LineNr">24858 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: offset '"</span>) +<span id="L24859" class="LineNr">24859 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24860" class="LineNr">24860 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24861" class="LineNr">24861 </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="L24862" class="LineNr">24862 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24863" class="LineNr">24863 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24864" class="LineNr">24864 </span> <span class="subxComment"># never gets here</span> +<span id="L24865" class="LineNr">24865 </span> +<span id="L24866" class="LineNr">24866 </span><span class="Constant">$check-mu-compute-offset-stmt:error-index-on-stack</span>: +<span id="L24867" class="LineNr">24867 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24868" class="LineNr">24868 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24869" class="LineNr">24869 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24870" class="LineNr">24870 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24871" class="LineNr">24871 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: second argument '"</span>) +<span id="L24872" class="LineNr">24872 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24873" class="LineNr">24873 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24874" class="LineNr">24874 </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="L24875" class="LineNr">24875 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24876" class="LineNr">24876 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24877" class="LineNr">24877 </span> <span class="subxComment"># never gets here</span> +<span id="L24878" class="LineNr">24878 </span> +<span id="L24879" class="LineNr">24879 </span><span class="Constant">$check-mu-compute-offset-stmt:error-too-many-inouts</span>: +<span id="L24880" class="LineNr">24880 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24881" class="LineNr">24881 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24882" class="LineNr">24882 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24883" class="LineNr">24883 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24884" class="LineNr">24884 </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="L24885" class="LineNr">24885 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24886" class="LineNr">24886 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24887" class="LineNr">24887 </span> <span class="subxComment"># never gets here</span> +<span id="L24888" class="LineNr">24888 </span> +<span id="L24889" class="LineNr">24889 </span><span class="Constant">$check-mu-compute-offset-stmt:error-too-few-outputs</span>: +<span id="L24890" class="LineNr">24890 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24891" class="LineNr">24891 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24892" class="LineNr">24892 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24893" class="LineNr">24893 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24894" class="LineNr">24894 </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="L24895" class="LineNr">24895 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24896" class="LineNr">24896 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24897" class="LineNr">24897 </span> <span class="subxComment"># never gets here</span> +<span id="L24898" class="LineNr">24898 </span> +<span id="L24899" class="LineNr">24899 </span><span class="Constant">$check-mu-compute-offset-stmt:error-too-many-outputs</span>: +<span id="L24900" class="LineNr">24900 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24901" class="LineNr">24901 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24902" class="LineNr">24902 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24903" class="LineNr">24903 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24904" class="LineNr">24904 </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="L24905" class="LineNr">24905 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24906" class="LineNr">24906 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24907" class="LineNr">24907 </span> <span class="subxComment"># never gets here</span> +<span id="L24908" class="LineNr">24908 </span> +<span id="L24909" class="LineNr">24909 </span><span class="Constant">$check-mu-compute-offset-stmt:error-output-not-in-register</span>: +<span id="L24910" class="LineNr">24910 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24911" class="LineNr">24911 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24912" class="LineNr">24912 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24913" class="LineNr">24913 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24914" class="LineNr">24914 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: output '"</span>) +<span id="L24915" class="LineNr">24915 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24916" class="LineNr">24916 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24917" class="LineNr">24917 </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="L24918" class="LineNr">24918 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24919" class="LineNr">24919 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24920" class="LineNr">24920 </span> <span class="subxComment"># never gets here</span> +<span id="L24921" class="LineNr">24921 </span> +<span id="L24922" class="LineNr">24922 </span><span class="Constant">$check-mu-compute-offset-stmt:error-output-type-not-offset</span>: +<span id="L24923" class="LineNr">24923 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24924" class="LineNr">24924 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24925" class="LineNr">24925 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24926" class="LineNr">24926 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24927" class="LineNr">24927 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: output '"</span>) +<span id="L24928" class="LineNr">24928 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24929" class="LineNr">24929 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24930" class="LineNr">24930 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an offset\n"</span>) +<span id="L24931" class="LineNr">24931 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24932" class="LineNr">24932 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24933" class="LineNr">24933 </span> <span class="subxComment"># never gets here</span> +<span id="L24934" class="LineNr">24934 </span> +<span id="L24935" class="LineNr">24935 </span><span class="Constant">$check-mu-compute-offset-stmt:error-bad-output-type</span>: +<span id="L24936" class="LineNr">24936 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24937" class="LineNr">24937 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24938" class="LineNr">24938 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24939" class="LineNr">24939 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24940" class="LineNr">24940 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: output '"</span>) +<span id="L24941" class="LineNr">24941 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24942" class="LineNr">24942 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24943" class="LineNr">24943 </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="L24944" class="LineNr">24944 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24945" class="LineNr">24945 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24946" class="LineNr">24946 </span> <span class="subxComment"># never gets here</span> +<span id="L24947" class="LineNr">24947 </span> +<span id="L24948" class="LineNr">24948 </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="L24949" class="LineNr">24949 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L24950" class="LineNr">24950 </span> 55/push-ebp +<span id="L24951" class="LineNr">24951 </span> 89/<- %ebp 4/r32/esp +<span id="L24952" class="LineNr">24952 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L24953" class="LineNr">24953 </span> 50/push-eax +<span id="L24954" class="LineNr">24954 </span> 51/push-ecx +<span id="L24955" class="LineNr">24955 </span> 53/push-ebx +<span id="L24956" class="LineNr">24956 </span> 56/push-esi +<span id="L24957" class="LineNr">24957 </span> 57/push-edi +<span id="L24958" class="LineNr">24958 </span> <span class="subxComment"># esi = stmt</span> +<span id="L24959" class="LineNr">24959 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L24960" class="LineNr">24960 </span><span class="Constant">$check-mu-copy-object-stmt:check-for-output</span>: +<span id="L24961" class="LineNr">24961 </span> <span class="subxComment"># if stmt->outputs abort</span> +<span id="L24962" class="LineNr">24962 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L24963" class="LineNr">24963 </span> 3d/compare-eax-and 0/imm32 +<span id="L24964" class="LineNr">24964 </span> 0f 85/jump-if-!= $check-mu-copy-object-stmt:error-too-many-outputs/disp32 +<span id="L24965" class="LineNr">24965 </span><span class="Constant">$check-mu-copy-object-stmt:get-left</span>: +<span id="L24966" class="LineNr">24966 </span> <span class="subxComment"># var dest/edi: (addr stmt-var) = stmt->inouts</span> +<span id="L24967" class="LineNr">24967 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L24968" class="LineNr">24968 </span> 89/<- %edi 0/r32/eax +<span id="L24969" class="LineNr">24969 </span> <span class="subxComment"># zero inouts</span> +<span id="L24970" class="LineNr">24970 </span> 3d/compare-eax-and 0/imm32 +<span id="L24971" class="LineNr">24971 </span> 0f 84/jump-if-= $check-mu-copy-object-stmt:error-incorrect-inouts/disp32 +<span id="L24972" class="LineNr">24972 </span><span class="Constant">$check-mu-copy-object-stmt:get-src</span>: +<span id="L24973" class="LineNr">24973 </span> <span class="subxComment"># var src/esi: (addr stmt-var) = dest->next</span> +<span id="L24974" class="LineNr">24974 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L24975" class="LineNr">24975 </span> 89/<- %esi 0/r32/eax +<span id="L24976" class="LineNr">24976 </span> <span class="subxComment"># 1 inout</span> +<span id="L24977" class="LineNr">24977 </span> 3d/compare-eax-and 0/imm32 +<span id="L24978" class="LineNr">24978 </span> 0f 84/jump-if-= $check-mu-copy-object-stmt:error-incorrect-inouts/disp32 +<span id="L24979" class="LineNr">24979 </span> <span class="subxComment"># > 2 inouts</span> +<span id="L24980" class="LineNr">24980 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L24981" class="LineNr">24981 </span> 3d/compare-eax-and 0/imm32 +<span id="L24982" class="LineNr">24982 </span> 0f 85/jump-if-!= $check-mu-copy-object-stmt:error-incorrect-inouts/disp32 +<span id="L24983" class="LineNr">24983 </span><span class="Constant">$check-mu-copy-object-stmt:types</span>: +<span id="L24984" class="LineNr">24984 </span> <span class="subxComment"># var src-type/ecx: (addr type-tree) = src->value->type</span> +<span id="L24985" class="LineNr">24985 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> <span id="L24986" class="LineNr">24986 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L24987" class="LineNr">24987 </span> 89/<- %ebx 0/r32/eax -<span id="L24988" class="LineNr">24988 </span> <span class="subxComment"># if (dest->is-deref?) dest-type = dest-type->payload</span> -<span id="L24989" class="LineNr">24989 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L24987" class="LineNr">24987 </span> 89/<- %ecx 0/r32/eax +<span id="L24988" class="LineNr">24988 </span> <span class="subxComment"># if (src->is-deref?) src-type = src-type->payload</span> +<span id="L24989" class="LineNr">24989 </span> 8b/-> *(esi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> <span id="L24990" class="LineNr">24990 </span> 3d/compare-eax-and 0/imm32/false <span id="L24991" class="LineNr">24991 </span> { <span id="L24992" class="LineNr">24992 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24993" class="LineNr">24993 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L24994" class="LineNr">24994 </span> <span class="subxComment"># if dest-type->right is null, dest-type = dest-type->left</span> +<span id="L24993" class="LineNr">24993 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L24994" class="LineNr">24994 </span> <span class="subxComment"># if src-type->right is null, src-type = src-type->left</span> <span id="L24995" class="LineNr">24995 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> <span id="L24996" class="LineNr">24996 </span> { <span id="L24997" class="LineNr">24997 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 <span id="L24998" class="LineNr">24998 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> <span id="L24999" class="LineNr">24999 </span> } -<span id="L25000" class="LineNr">25000 </span> 89/<- %ebx 0/r32/eax +<span id="L25000" class="LineNr">25000 </span> 89/<- %ecx 0/r32/eax <span id="L25001" class="LineNr">25001 </span> } -<span id="L25002" class="LineNr">25002 </span> <span class="subxComment"># if (dest-type != src-type) abort</span> -<span id="L25003" class="LineNr">25003 </span> (<a href='mu.subx.html#L26880'>type-equal?</a> %ecx %ebx) <span class="subxComment"># => eax</span> -<span id="L25004" class="LineNr">25004 </span> 3d/compare-eax-and 0/imm32 +<span id="L25002" class="LineNr">25002 </span> <span class="subxComment"># if src-type is not addr, abort</span> +<span id="L25003" class="LineNr">25003 </span> (<a href='mu.subx.html#L36245'>mu-addr-type?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L25004" class="LineNr">25004 </span> 3d/compare-eax-and 0/imm32/false <span id="L25005" class="LineNr">25005 </span> 0f 84/jump-if-= $check-mu-copy-object-stmt:error-invalid-types/disp32 -<span id="L25006" class="LineNr">25006 </span><span class="Constant">$check-mu-copy-object-stmt:end</span>: -<span id="L25007" class="LineNr">25007 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L25008" class="LineNr">25008 </span> 5f/pop-to-edi -<span id="L25009" class="LineNr">25009 </span> 5e/pop-to-esi -<span id="L25010" class="LineNr">25010 </span> 5b/pop-to-ebx -<span id="L25011" class="LineNr">25011 </span> 59/pop-to-ecx -<span id="L25012" class="LineNr">25012 </span> 58/pop-to-eax -<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="Constant">$check-mu-copy-object-stmt:error-incorrect-inouts</span>: -<span id="L25019" class="LineNr">25019 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25020" class="LineNr">25020 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25021" class="LineNr">25021 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25022" class="LineNr">25022 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25023" class="LineNr">25023 </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="L25024" class="LineNr">25024 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25025" class="LineNr">25025 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25026" class="LineNr">25026 </span> <span class="subxComment"># never gets here</span> -<span id="L25027" class="LineNr">25027 </span> -<span id="L25028" class="LineNr">25028 </span><span class="Constant">$check-mu-copy-object-stmt:error-too-many-outputs</span>: -<span id="L25029" class="LineNr">25029 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25030" class="LineNr">25030 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25031" class="LineNr">25031 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25032" class="LineNr">25032 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25033" class="LineNr">25033 </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="L25034" class="LineNr">25034 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25035" class="LineNr">25035 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25036" class="LineNr">25036 </span> <span class="subxComment"># never gets here</span> -<span id="L25037" class="LineNr">25037 </span> -<span id="L25038" class="LineNr">25038 </span><span class="Constant">$check-mu-copy-object-stmt:error-invalid-types</span>: -<span id="L25039" class="LineNr">25039 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25040" class="LineNr">25040 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25041" class="LineNr">25041 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25042" class="LineNr">25042 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25043" class="LineNr">25043 </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="L25044" class="LineNr">25044 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25045" class="LineNr">25045 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25046" class="LineNr">25046 </span> <span class="subxComment"># never gets here</span> -<span id="L25047" class="LineNr">25047 </span> -<span id="L25048" class="LineNr">25048 </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="L25049" class="LineNr">25049 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L25050" class="LineNr">25050 </span> 55/push-ebp -<span id="L25051" class="LineNr">25051 </span> 89/<- %ebp 4/r32/esp -<span id="L25052" class="LineNr">25052 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L25053" class="LineNr">25053 </span> 50/push-eax -<span id="L25054" class="LineNr">25054 </span> 51/push-ecx -<span id="L25055" class="LineNr">25055 </span> 53/push-ebx -<span id="L25056" class="LineNr">25056 </span> 56/push-esi -<span id="L25057" class="LineNr">25057 </span> 57/push-edi -<span id="L25058" class="LineNr">25058 </span> <span class="subxComment"># esi = stmt</span> -<span id="L25059" class="LineNr">25059 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L25060" class="LineNr">25060 </span><span class="Constant">$check-mu-clear-object-stmt:check-for-output</span>: -<span id="L25061" class="LineNr">25061 </span> <span class="subxComment"># if stmt->outputs abort</span> -<span id="L25062" class="LineNr">25062 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L25063" class="LineNr">25063 </span> 3d/compare-eax-and 0/imm32 -<span id="L25064" class="LineNr">25064 </span> 0f 85/jump-if-!= $check-mu-clear-object-stmt:error-too-many-outputs/disp32 -<span id="L25065" class="LineNr">25065 </span><span class="Constant">$check-mu-clear-object-stmt:get-left</span>: -<span id="L25066" class="LineNr">25066 </span> <span class="subxComment"># var dest/edi: (addr stmt-var) = stmt->inouts</span> -<span id="L25067" class="LineNr">25067 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L25068" class="LineNr">25068 </span> 89/<- %edi 0/r32/eax -<span id="L25069" class="LineNr">25069 </span> <span class="subxComment"># zero inouts</span> -<span id="L25070" class="LineNr">25070 </span> 3d/compare-eax-and 0/imm32 -<span id="L25071" class="LineNr">25071 </span> 0f 84/jump-if-= $check-mu-clear-object-stmt:error-incorrect-inouts/disp32 -<span id="L25072" class="LineNr">25072 </span><span class="Constant">$check-mu-clear-object-stmt:get-src</span>: -<span id="L25073" class="LineNr">25073 </span> <span class="subxComment"># > 1 inout</span> -<span id="L25074" class="LineNr">25074 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L25075" class="LineNr">25075 </span> 3d/compare-eax-and 0/imm32 -<span id="L25076" class="LineNr">25076 </span> 0f 85/jump-if-!= $check-mu-clear-object-stmt:error-incorrect-inouts/disp32 -<span id="L25077" class="LineNr">25077 </span><span class="Constant">$check-mu-clear-object-stmt:types</span>: -<span id="L25078" class="LineNr">25078 </span> <span class="subxComment"># var src-type/ecx: (addr type-tree) = src->value->type</span> -<span id="L25079" class="LineNr">25079 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L25080" class="LineNr">25080 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => 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 (src->is-deref?) src-type = src-type->payload</span> -<span id="L25083" class="LineNr">25083 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L25084" class="LineNr">25084 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25085" class="LineNr">25085 </span> { -<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='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L25088" class="LineNr">25088 </span> <span class="subxComment"># if src-type->right is null, src-type = src-type->left</span> -<span id="L25089" class="LineNr">25089 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L25090" class="LineNr">25090 </span> { -<span id="L25091" class="LineNr">25091 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L25092" class="LineNr">25092 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L25093" class="LineNr">25093 </span> } -<span id="L25094" class="LineNr">25094 </span> 89/<- %ecx 0/r32/eax -<span id="L25095" class="LineNr">25095 </span> } -<span id="L25096" class="LineNr">25096 </span> <span class="subxComment"># if src-type is not addr, abort</span> -<span id="L25097" class="LineNr">25097 </span> (<a href='mu.subx.html#L35916'>mu-addr-type?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L25098" class="LineNr">25098 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25099" class="LineNr">25099 </span> 0f 84/jump-if-= $check-mu-clear-object-stmt:error-invalid-type/disp32 -<span id="L25100" class="LineNr">25100 </span><span class="Constant">$check-mu-clear-object-stmt:end</span>: -<span id="L25101" class="LineNr">25101 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L25102" class="LineNr">25102 </span> 5f/pop-to-edi -<span id="L25103" class="LineNr">25103 </span> 5e/pop-to-esi -<span id="L25104" class="LineNr">25104 </span> 5b/pop-to-ebx -<span id="L25105" class="LineNr">25105 </span> 59/pop-to-ecx -<span id="L25106" class="LineNr">25106 </span> 58/pop-to-eax -<span id="L25107" class="LineNr">25107 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L25108" class="LineNr">25108 </span> 89/<- %esp 5/r32/ebp -<span id="L25109" class="LineNr">25109 </span> 5d/pop-to-ebp -<span id="L25110" class="LineNr">25110 </span> c3/return -<span id="L25111" class="LineNr">25111 </span> -<span id="L25112" class="LineNr">25112 </span><span class="Constant">$check-mu-clear-object-stmt:error-incorrect-inouts</span>: -<span id="L25113" class="LineNr">25113 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25114" class="LineNr">25114 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25115" class="LineNr">25115 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25116" class="LineNr">25116 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25117" class="LineNr">25117 </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="L25118" class="LineNr">25118 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25119" class="LineNr">25119 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25120" class="LineNr">25120 </span> <span class="subxComment"># never gets here</span> -<span id="L25121" class="LineNr">25121 </span> -<span id="L25122" class="LineNr">25122 </span><span class="Constant">$check-mu-clear-object-stmt:error-too-many-outputs</span>: -<span id="L25123" class="LineNr">25123 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25124" class="LineNr">25124 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25125" class="LineNr">25125 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25126" class="LineNr">25126 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25127" class="LineNr">25127 </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="L25128" class="LineNr">25128 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25129" class="LineNr">25129 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25130" class="LineNr">25130 </span> <span class="subxComment"># never gets here</span> -<span id="L25131" class="LineNr">25131 </span> -<span id="L25132" class="LineNr">25132 </span><span class="Constant">$check-mu-clear-object-stmt:error-invalid-type</span>: -<span id="L25133" class="LineNr">25133 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25134" class="LineNr">25134 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25135" class="LineNr">25135 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25136" class="LineNr">25136 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25137" class="LineNr">25137 </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="L25138" class="LineNr">25138 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25139" class="LineNr">25139 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25140" class="LineNr">25140 </span> <span class="subxComment"># never gets here</span> -<span id="L25141" class="LineNr">25141 </span> -<span id="L25142" class="LineNr">25142 </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="L25143" class="LineNr">25143 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L25144" class="LineNr">25144 </span> 55/push-ebp -<span id="L25145" class="LineNr">25145 </span> 89/<- %ebp 4/r32/esp -<span id="L25146" class="LineNr">25146 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L25147" class="LineNr">25147 </span> 50/push-eax -<span id="L25148" class="LineNr">25148 </span> 53/push-ebx -<span id="L25149" class="LineNr">25149 </span> 56/push-esi -<span id="L25150" class="LineNr">25150 </span> 57/push-edi -<span id="L25151" class="LineNr">25151 </span> <span class="subxComment"># esi = stmt</span> -<span id="L25152" class="LineNr">25152 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L25153" class="LineNr">25153 </span><span class="Constant">$check-mu-allocate-stmt:check-for-output</span>: -<span id="L25154" class="LineNr">25154 </span> <span class="subxComment"># if stmt->outputs abort</span> -<span id="L25155" class="LineNr">25155 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L25156" class="LineNr">25156 </span> 3d/compare-eax-and 0/imm32 -<span id="L25157" class="LineNr">25157 </span> 0f 85/jump-if-!= $check-mu-allocate-stmt:error-too-many-outputs/disp32 -<span id="L25158" class="LineNr">25158 </span><span class="Constant">$check-mu-allocate-stmt:get-target</span>: -<span id="L25159" class="LineNr">25159 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts</span> -<span id="L25160" class="LineNr">25160 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L25161" class="LineNr">25161 </span> 89/<- %edi 0/r32/eax -<span id="L25162" class="LineNr">25162 </span> <span class="subxComment"># zero inouts</span> -<span id="L25163" class="LineNr">25163 </span> 3d/compare-eax-and 0/imm32 -<span id="L25164" class="LineNr">25164 </span> 0f 84/jump-if-= $check-mu-allocate-stmt:error-incorrect-inouts/disp32 -<span id="L25165" class="LineNr">25165 </span> <span class="subxComment"># > 1 inouts</span> -<span id="L25166" class="LineNr">25166 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L25167" class="LineNr">25167 </span> 3d/compare-eax-and 0/imm32 -<span id="L25168" class="LineNr">25168 </span> 0f 85/jump-if-!= $check-mu-allocate-stmt:error-incorrect-inouts/disp32 -<span id="L25169" class="LineNr">25169 </span><span class="Constant">$check-mu-allocate-stmt:check-type</span>: -<span id="L25170" class="LineNr">25170 </span> <span class="subxComment"># var target-type/ebx: (addr type-tree) = target->value->type</span> -<span id="L25171" class="LineNr">25171 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L25172" class="LineNr">25172 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L25173" class="LineNr">25173 </span> 89/<- %ebx 0/r32/eax -<span id="L25174" class="LineNr">25174 </span> <span class="subxComment"># if (target->is-deref?) target-type = target-type->payload</span> -<span id="L25175" class="LineNr">25175 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L25176" class="LineNr">25176 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25177" class="LineNr">25177 </span> { -<span id="L25178" class="LineNr">25178 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L25179" class="LineNr">25179 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L25180" class="LineNr">25180 </span> <span class="subxComment"># if target-type->right is null, target-type = target-type->left</span> -<span id="L25181" class="LineNr">25181 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L25182" class="LineNr">25182 </span> { -<span id="L25183" class="LineNr">25183 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L25184" class="LineNr">25184 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L25185" class="LineNr">25185 </span> } -<span id="L25186" class="LineNr">25186 </span> 89/<- %ebx 0/r32/eax -<span id="L25187" class="LineNr">25187 </span> } -<span id="L25188" class="LineNr">25188 </span> <span class="subxComment"># if target-type is not addr, abort</span> -<span id="L25189" class="LineNr">25189 </span> (<a href='mu.subx.html#L35916'>mu-addr-type?</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L25190" class="LineNr">25190 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25191" class="LineNr">25191 </span> 0f 84/jump-if-= $check-mu-allocate-stmt:error-invalid-type/disp32 -<span id="L25192" class="LineNr">25192 </span> <span class="subxComment"># if target-type->right is an atom, abort</span> -<span id="L25193" class="LineNr">25193 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L25194" class="LineNr">25194 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L25195" class="LineNr">25195 </span> 0f 85/jump-if-!= $check-mu-allocate-stmt:error-invalid-type/disp32 -<span id="L25196" class="LineNr">25196 </span> <span class="subxComment"># if target-type->right->left is not handle, abort</span> -<span id="L25197" class="LineNr">25197 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L25198" class="LineNr">25198 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 4) <span class="subxComment"># handle => eax</span> -<span id="L25199" class="LineNr">25199 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25200" class="LineNr">25200 </span> 0f 84/jump-if-= $check-mu-allocate-stmt:error-invalid-type/disp32 -<span id="L25201" class="LineNr">25201 </span><span class="Constant">$check-mu-allocate-stmt:end</span>: -<span id="L25202" class="LineNr">25202 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L25203" class="LineNr">25203 </span> 5f/pop-to-edi -<span id="L25204" class="LineNr">25204 </span> 5e/pop-to-esi -<span id="L25205" class="LineNr">25205 </span> 5b/pop-to-ebx -<span id="L25206" class="LineNr">25206 </span> 58/pop-to-eax -<span id="L25207" class="LineNr">25207 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L25208" class="LineNr">25208 </span> 89/<- %esp 5/r32/ebp -<span id="L25209" class="LineNr">25209 </span> 5d/pop-to-ebp -<span id="L25210" class="LineNr">25210 </span> c3/return -<span id="L25211" class="LineNr">25211 </span> -<span id="L25212" class="LineNr">25212 </span><span class="Constant">$check-mu-allocate-stmt:error-incorrect-inouts</span>: -<span id="L25213" class="LineNr">25213 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25214" class="LineNr">25214 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25215" class="LineNr">25215 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25216" class="LineNr">25216 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25217" class="LineNr">25217 </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="L25218" class="LineNr">25218 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25219" class="LineNr">25219 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25220" class="LineNr">25220 </span> <span class="subxComment"># never gets here</span> -<span id="L25221" class="LineNr">25221 </span> -<span id="L25222" class="LineNr">25222 </span><span class="Constant">$check-mu-allocate-stmt:error-too-many-outputs</span>: -<span id="L25223" class="LineNr">25223 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25224" class="LineNr">25224 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25225" class="LineNr">25225 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25226" class="LineNr">25226 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25227" class="LineNr">25227 </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="L25228" class="LineNr">25228 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25229" class="LineNr">25229 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25230" class="LineNr">25230 </span> <span class="subxComment"># never gets here</span> -<span id="L25231" class="LineNr">25231 </span> -<span id="L25232" class="LineNr">25232 </span><span class="Constant">$check-mu-allocate-stmt:error-invalid-type</span>: -<span id="L25233" class="LineNr">25233 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25234" class="LineNr">25234 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25235" class="LineNr">25235 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25236" class="LineNr">25236 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25237" class="LineNr">25237 </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="L25238" class="LineNr">25238 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L25239" class="LineNr">25239 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L25240" class="LineNr">25240 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25241" class="LineNr">25241 </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="L25242" class="LineNr">25242 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25243" class="LineNr">25243 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25244" class="LineNr">25244 </span> <span class="subxComment"># never gets here</span> -<span id="L25245" class="LineNr">25245 </span> -<span id="L25246" class="LineNr">25246 </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="L25247" class="LineNr">25247 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L25248" class="LineNr">25248 </span> 55/push-ebp -<span id="L25249" class="LineNr">25249 </span> 89/<- %ebp 4/r32/esp -<span id="L25250" class="LineNr">25250 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L25251" class="LineNr">25251 </span> 50/push-eax -<span id="L25252" class="LineNr">25252 </span> 53/push-ebx -<span id="L25253" class="LineNr">25253 </span> 56/push-esi -<span id="L25254" class="LineNr">25254 </span> 57/push-edi -<span id="L25255" class="LineNr">25255 </span> <span class="subxComment"># esi = stmt</span> -<span id="L25256" class="LineNr">25256 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L25257" class="LineNr">25257 </span><span class="Constant">$check-mu-populate-stmt:check-for-output</span>: -<span id="L25258" class="LineNr">25258 </span> <span class="subxComment"># if stmt->outputs abort</span> -<span id="L25259" class="LineNr">25259 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L25260" class="LineNr">25260 </span> 3d/compare-eax-and 0/imm32 -<span id="L25261" class="LineNr">25261 </span> 0f 85/jump-if-!= $check-mu-populate-stmt:error-too-many-outputs/disp32 -<span id="L25262" class="LineNr">25262 </span><span class="Constant">$check-mu-populate-stmt:get-target</span>: -<span id="L25263" class="LineNr">25263 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts</span> -<span id="L25264" class="LineNr">25264 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L25265" class="LineNr">25265 </span> 89/<- %edi 0/r32/eax -<span id="L25266" class="LineNr">25266 </span> <span class="subxComment"># zero inouts</span> -<span id="L25267" class="LineNr">25267 </span> 3d/compare-eax-and 0/imm32 -<span id="L25268" class="LineNr">25268 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-incorrect-inouts/disp32 -<span id="L25269" class="LineNr">25269 </span><span class="Constant">$check-mu-populate-stmt:get-length</span>: -<span id="L25270" class="LineNr">25270 </span> <span class="subxComment"># var length/esi: (addr stmt-var) = dest->next</span> -<span id="L25271" class="LineNr">25271 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L25272" class="LineNr">25272 </span> 89/<- %esi 0/r32/eax -<span id="L25273" class="LineNr">25273 </span> <span class="subxComment"># 1 inout</span> -<span id="L25274" class="LineNr">25274 </span> 3d/compare-eax-and 0/imm32 -<span id="L25275" class="LineNr">25275 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-incorrect-inouts/disp32 -<span id="L25276" class="LineNr">25276 </span> <span class="subxComment"># > 2 inouts</span> -<span id="L25277" class="LineNr">25277 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L25278" class="LineNr">25278 </span> 3d/compare-eax-and 0/imm32 -<span id="L25279" class="LineNr">25279 </span> 0f 85/jump-if-!= $check-mu-populate-stmt:error-incorrect-inouts/disp32 -<span id="L25280" class="LineNr">25280 </span><span class="Constant">$check-mu-populate-stmt:check-target-type</span>: -<span id="L25281" class="LineNr">25281 </span> <span class="subxComment"># var target-type/ebx: (addr type-tree) = target->value->type</span> -<span id="L25282" class="LineNr">25282 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L25283" class="LineNr">25283 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L25284" class="LineNr">25284 </span> 89/<- %ebx 0/r32/eax -<span id="L25285" class="LineNr">25285 </span><span class="Constant">$check-mu-populate-stmt:check-target-type-deref</span>: -<span id="L25286" class="LineNr">25286 </span> <span class="subxComment"># if (target->is-deref?) target-type = target-type->payload</span> -<span id="L25287" class="LineNr">25287 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L25288" class="LineNr">25288 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25289" class="LineNr">25289 </span> { -<span id="L25290" class="LineNr">25290 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L25291" class="LineNr">25291 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L25292" class="LineNr">25292 </span> <span class="subxComment"># if target-type->right is null, target-type = target-type->left</span> -<span id="L25293" class="LineNr">25293 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L25294" class="LineNr">25294 </span> { -<span id="L25295" class="LineNr">25295 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L25296" class="LineNr">25296 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L25297" class="LineNr">25297 </span> } -<span id="L25298" class="LineNr">25298 </span> 89/<- %ebx 0/r32/eax -<span id="L25299" class="LineNr">25299 </span> } -<span id="L25300" class="LineNr">25300 </span><span class="Constant">$check-mu-populate-stmt:check-target-type-addr</span>: -<span id="L25301" class="LineNr">25301 </span> <span class="subxComment"># if target-type is not addr, abort</span> -<span id="L25302" class="LineNr">25302 </span> (<a href='mu.subx.html#L35916'>mu-addr-type?</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L25303" class="LineNr">25303 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25304" class="LineNr">25304 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-invalid-target-type/disp32 -<span id="L25305" class="LineNr">25305 </span> <span class="subxComment"># if target-type->right is an atom, abort</span> -<span id="L25306" class="LineNr">25306 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L25307" class="LineNr">25307 </span> 89/<- %ebx 0/r32/eax -<span id="L25308" class="LineNr">25308 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L25309" class="LineNr">25309 </span> 0f 85/jump-if-!= $check-mu-populate-stmt:error-invalid-target-type/disp32 -<span id="L25310" class="LineNr">25310 </span><span class="Constant">$check-mu-populate-stmt:check-target-type-handle</span>: -<span id="L25311" class="LineNr">25311 </span> <span class="subxComment"># if target-type->right->left is not handle, abort</span> -<span id="L25312" class="LineNr">25312 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L25313" class="LineNr">25313 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 4) <span class="subxComment"># handle => eax</span> -<span id="L25314" class="LineNr">25314 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25315" class="LineNr">25315 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-invalid-target-type/disp32 -<span id="L25316" class="LineNr">25316 </span> <span class="subxComment"># if target-type->right->right is an atom, abort</span> -<span id="L25317" class="LineNr">25317 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L25318" class="LineNr">25318 </span> 89/<- %ebx 0/r32/eax -<span id="L25319" class="LineNr">25319 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L25320" class="LineNr">25320 </span> 0f 85/jump-if-!= $check-mu-populate-stmt:error-invalid-target-type/disp32 -<span id="L25321" class="LineNr">25321 </span><span class="Constant">$check-mu-populate-stmt:check-target-type-array</span>: -<span id="L25322" class="LineNr">25322 </span> <span class="subxComment"># if target-type->right->right->left is not array, abort</span> -<span id="L25323" class="LineNr">25323 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L25324" class="LineNr">25324 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> +<span id="L25006" class="LineNr">25006 </span> <span class="subxComment"># var dest-type/ebx: (addr type-tree) = dest->value->type</span> +<span id="L25007" class="LineNr">25007 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L25008" class="LineNr">25008 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L25009" class="LineNr">25009 </span> 89/<- %ebx 0/r32/eax +<span id="L25010" class="LineNr">25010 </span> <span class="subxComment"># if (dest->is-deref?) dest-type = dest-type->payload</span> +<span id="L25011" class="LineNr">25011 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L25012" class="LineNr">25012 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25013" class="LineNr">25013 </span> { +<span id="L25014" class="LineNr">25014 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L25015" class="LineNr">25015 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L25016" class="LineNr">25016 </span> <span class="subxComment"># if dest-type->right is null, dest-type = dest-type->left</span> +<span id="L25017" class="LineNr">25017 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L25018" class="LineNr">25018 </span> { +<span id="L25019" class="LineNr">25019 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L25020" class="LineNr">25020 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L25021" class="LineNr">25021 </span> } +<span id="L25022" class="LineNr">25022 </span> 89/<- %ebx 0/r32/eax +<span id="L25023" class="LineNr">25023 </span> } +<span id="L25024" class="LineNr">25024 </span> <span class="subxComment"># if (dest-type != src-type) abort</span> +<span id="L25025" class="LineNr">25025 </span> (<a href='mu.subx.html#L26902'>type-equal?</a> %ecx %ebx) <span class="subxComment"># => eax</span> +<span id="L25026" class="LineNr">25026 </span> 3d/compare-eax-and 0/imm32 +<span id="L25027" class="LineNr">25027 </span> 0f 84/jump-if-= $check-mu-copy-object-stmt:error-invalid-types/disp32 +<span id="L25028" class="LineNr">25028 </span><span class="Constant">$check-mu-copy-object-stmt:end</span>: +<span id="L25029" class="LineNr">25029 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L25030" class="LineNr">25030 </span> 5f/pop-to-edi +<span id="L25031" class="LineNr">25031 </span> 5e/pop-to-esi +<span id="L25032" class="LineNr">25032 </span> 5b/pop-to-ebx +<span id="L25033" class="LineNr">25033 </span> 59/pop-to-ecx +<span id="L25034" class="LineNr">25034 </span> 58/pop-to-eax +<span id="L25035" class="LineNr">25035 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L25036" class="LineNr">25036 </span> 89/<- %esp 5/r32/ebp +<span id="L25037" class="LineNr">25037 </span> 5d/pop-to-ebp +<span id="L25038" class="LineNr">25038 </span> c3/return +<span id="L25039" class="LineNr">25039 </span> +<span id="L25040" class="LineNr">25040 </span><span class="Constant">$check-mu-copy-object-stmt:error-incorrect-inouts</span>: +<span id="L25041" class="LineNr">25041 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25042" class="LineNr">25042 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25043" class="LineNr">25043 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25044" class="LineNr">25044 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25045" class="LineNr">25045 </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="L25046" class="LineNr">25046 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25047" class="LineNr">25047 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25048" class="LineNr">25048 </span> <span class="subxComment"># never gets here</span> +<span id="L25049" class="LineNr">25049 </span> +<span id="L25050" class="LineNr">25050 </span><span class="Constant">$check-mu-copy-object-stmt:error-too-many-outputs</span>: +<span id="L25051" class="LineNr">25051 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25052" class="LineNr">25052 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25053" class="LineNr">25053 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25054" class="LineNr">25054 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25055" class="LineNr">25055 </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="L25056" class="LineNr">25056 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25057" class="LineNr">25057 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25058" class="LineNr">25058 </span> <span class="subxComment"># never gets here</span> +<span id="L25059" class="LineNr">25059 </span> +<span id="L25060" class="LineNr">25060 </span><span class="Constant">$check-mu-copy-object-stmt:error-invalid-types</span>: +<span id="L25061" class="LineNr">25061 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25062" class="LineNr">25062 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25063" class="LineNr">25063 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25064" class="LineNr">25064 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25065" class="LineNr">25065 </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="L25066" class="LineNr">25066 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25067" class="LineNr">25067 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25068" class="LineNr">25068 </span> <span class="subxComment"># never gets here</span> +<span id="L25069" class="LineNr">25069 </span> +<span id="L25070" class="LineNr">25070 </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="L25071" class="LineNr">25071 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L25072" class="LineNr">25072 </span> 55/push-ebp +<span id="L25073" class="LineNr">25073 </span> 89/<- %ebp 4/r32/esp +<span id="L25074" class="LineNr">25074 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L25075" class="LineNr">25075 </span> 50/push-eax +<span id="L25076" class="LineNr">25076 </span> 51/push-ecx +<span id="L25077" class="LineNr">25077 </span> 53/push-ebx +<span id="L25078" class="LineNr">25078 </span> 56/push-esi +<span id="L25079" class="LineNr">25079 </span> 57/push-edi +<span id="L25080" class="LineNr">25080 </span> <span class="subxComment"># esi = stmt</span> +<span id="L25081" class="LineNr">25081 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L25082" class="LineNr">25082 </span><span class="Constant">$check-mu-clear-object-stmt:check-for-output</span>: +<span id="L25083" class="LineNr">25083 </span> <span class="subxComment"># if stmt->outputs abort</span> +<span id="L25084" class="LineNr">25084 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L25085" class="LineNr">25085 </span> 3d/compare-eax-and 0/imm32 +<span id="L25086" class="LineNr">25086 </span> 0f 85/jump-if-!= $check-mu-clear-object-stmt:error-too-many-outputs/disp32 +<span id="L25087" class="LineNr">25087 </span><span class="Constant">$check-mu-clear-object-stmt:get-left</span>: +<span id="L25088" class="LineNr">25088 </span> <span class="subxComment"># var dest/edi: (addr stmt-var) = stmt->inouts</span> +<span id="L25089" class="LineNr">25089 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L25090" class="LineNr">25090 </span> 89/<- %edi 0/r32/eax +<span id="L25091" class="LineNr">25091 </span> <span class="subxComment"># zero inouts</span> +<span id="L25092" class="LineNr">25092 </span> 3d/compare-eax-and 0/imm32 +<span id="L25093" class="LineNr">25093 </span> 0f 84/jump-if-= $check-mu-clear-object-stmt:error-incorrect-inouts/disp32 +<span id="L25094" class="LineNr">25094 </span><span class="Constant">$check-mu-clear-object-stmt:get-src</span>: +<span id="L25095" class="LineNr">25095 </span> <span class="subxComment"># > 1 inout</span> +<span id="L25096" class="LineNr">25096 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L25097" class="LineNr">25097 </span> 3d/compare-eax-and 0/imm32 +<span id="L25098" class="LineNr">25098 </span> 0f 85/jump-if-!= $check-mu-clear-object-stmt:error-incorrect-inouts/disp32 +<span id="L25099" class="LineNr">25099 </span><span class="Constant">$check-mu-clear-object-stmt:types</span>: +<span id="L25100" class="LineNr">25100 </span> <span class="subxComment"># var src-type/ecx: (addr type-tree) = src->value->type</span> +<span id="L25101" class="LineNr">25101 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L25102" class="LineNr">25102 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L25103" class="LineNr">25103 </span> 89/<- %ecx 0/r32/eax +<span id="L25104" class="LineNr">25104 </span> <span class="subxComment"># if (src->is-deref?) src-type = src-type->payload</span> +<span id="L25105" class="LineNr">25105 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L25106" class="LineNr">25106 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25107" class="LineNr">25107 </span> { +<span id="L25108" class="LineNr">25108 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L25109" class="LineNr">25109 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L25110" class="LineNr">25110 </span> <span class="subxComment"># if src-type->right is null, src-type = src-type->left</span> +<span id="L25111" class="LineNr">25111 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L25112" class="LineNr">25112 </span> { +<span id="L25113" class="LineNr">25113 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L25114" class="LineNr">25114 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L25115" class="LineNr">25115 </span> } +<span id="L25116" class="LineNr">25116 </span> 89/<- %ecx 0/r32/eax +<span id="L25117" class="LineNr">25117 </span> } +<span id="L25118" class="LineNr">25118 </span> <span class="subxComment"># if src-type is not addr, abort</span> +<span id="L25119" class="LineNr">25119 </span> (<a href='mu.subx.html#L36245'>mu-addr-type?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L25120" class="LineNr">25120 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25121" class="LineNr">25121 </span> 0f 84/jump-if-= $check-mu-clear-object-stmt:error-invalid-type/disp32 +<span id="L25122" class="LineNr">25122 </span><span class="Constant">$check-mu-clear-object-stmt:end</span>: +<span id="L25123" class="LineNr">25123 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L25124" class="LineNr">25124 </span> 5f/pop-to-edi +<span id="L25125" class="LineNr">25125 </span> 5e/pop-to-esi +<span id="L25126" class="LineNr">25126 </span> 5b/pop-to-ebx +<span id="L25127" class="LineNr">25127 </span> 59/pop-to-ecx +<span id="L25128" class="LineNr">25128 </span> 58/pop-to-eax +<span id="L25129" class="LineNr">25129 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L25130" class="LineNr">25130 </span> 89/<- %esp 5/r32/ebp +<span id="L25131" class="LineNr">25131 </span> 5d/pop-to-ebp +<span id="L25132" class="LineNr">25132 </span> c3/return +<span id="L25133" class="LineNr">25133 </span> +<span id="L25134" class="LineNr">25134 </span><span class="Constant">$check-mu-clear-object-stmt:error-incorrect-inouts</span>: +<span id="L25135" class="LineNr">25135 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25136" class="LineNr">25136 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25137" class="LineNr">25137 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25138" class="LineNr">25138 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25139" class="LineNr">25139 </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="L25140" class="LineNr">25140 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25141" class="LineNr">25141 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25142" class="LineNr">25142 </span> <span class="subxComment"># never gets here</span> +<span id="L25143" class="LineNr">25143 </span> +<span id="L25144" class="LineNr">25144 </span><span class="Constant">$check-mu-clear-object-stmt:error-too-many-outputs</span>: +<span id="L25145" class="LineNr">25145 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25146" class="LineNr">25146 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25147" class="LineNr">25147 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25148" class="LineNr">25148 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25149" class="LineNr">25149 </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="L25150" class="LineNr">25150 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25151" class="LineNr">25151 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25152" class="LineNr">25152 </span> <span class="subxComment"># never gets here</span> +<span id="L25153" class="LineNr">25153 </span> +<span id="L25154" class="LineNr">25154 </span><span class="Constant">$check-mu-clear-object-stmt:error-invalid-type</span>: +<span id="L25155" class="LineNr">25155 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25156" class="LineNr">25156 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25157" class="LineNr">25157 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25158" class="LineNr">25158 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25159" class="LineNr">25159 </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="L25160" class="LineNr">25160 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25161" class="LineNr">25161 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25162" class="LineNr">25162 </span> <span class="subxComment"># never gets here</span> +<span id="L25163" class="LineNr">25163 </span> +<span id="L25164" class="LineNr">25164 </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="L25165" class="LineNr">25165 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L25166" class="LineNr">25166 </span> 55/push-ebp +<span id="L25167" class="LineNr">25167 </span> 89/<- %ebp 4/r32/esp +<span id="L25168" class="LineNr">25168 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L25169" class="LineNr">25169 </span> 50/push-eax +<span id="L25170" class="LineNr">25170 </span> 53/push-ebx +<span id="L25171" class="LineNr">25171 </span> 56/push-esi +<span id="L25172" class="LineNr">25172 </span> 57/push-edi +<span id="L25173" class="LineNr">25173 </span> <span class="subxComment"># esi = stmt</span> +<span id="L25174" class="LineNr">25174 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L25175" class="LineNr">25175 </span><span class="Constant">$check-mu-allocate-stmt:check-for-output</span>: +<span id="L25176" class="LineNr">25176 </span> <span class="subxComment"># if stmt->outputs abort</span> +<span id="L25177" class="LineNr">25177 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L25178" class="LineNr">25178 </span> 3d/compare-eax-and 0/imm32 +<span id="L25179" class="LineNr">25179 </span> 0f 85/jump-if-!= $check-mu-allocate-stmt:error-too-many-outputs/disp32 +<span id="L25180" class="LineNr">25180 </span><span class="Constant">$check-mu-allocate-stmt:get-target</span>: +<span id="L25181" class="LineNr">25181 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts</span> +<span id="L25182" class="LineNr">25182 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L25183" class="LineNr">25183 </span> 89/<- %edi 0/r32/eax +<span id="L25184" class="LineNr">25184 </span> <span class="subxComment"># zero inouts</span> +<span id="L25185" class="LineNr">25185 </span> 3d/compare-eax-and 0/imm32 +<span id="L25186" class="LineNr">25186 </span> 0f 84/jump-if-= $check-mu-allocate-stmt:error-incorrect-inouts/disp32 +<span id="L25187" class="LineNr">25187 </span> <span class="subxComment"># > 1 inouts</span> +<span id="L25188" class="LineNr">25188 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L25189" class="LineNr">25189 </span> 3d/compare-eax-and 0/imm32 +<span id="L25190" class="LineNr">25190 </span> 0f 85/jump-if-!= $check-mu-allocate-stmt:error-incorrect-inouts/disp32 +<span id="L25191" class="LineNr">25191 </span><span class="Constant">$check-mu-allocate-stmt:check-type</span>: +<span id="L25192" class="LineNr">25192 </span> <span class="subxComment"># var target-type/ebx: (addr type-tree) = target->value->type</span> +<span id="L25193" class="LineNr">25193 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L25194" class="LineNr">25194 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L25195" class="LineNr">25195 </span> 89/<- %ebx 0/r32/eax +<span id="L25196" class="LineNr">25196 </span> <span class="subxComment"># if (target->is-deref?) target-type = target-type->payload</span> +<span id="L25197" class="LineNr">25197 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L25198" class="LineNr">25198 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25199" class="LineNr">25199 </span> { +<span id="L25200" class="LineNr">25200 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L25201" class="LineNr">25201 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L25202" class="LineNr">25202 </span> <span class="subxComment"># if target-type->right is null, target-type = target-type->left</span> +<span id="L25203" class="LineNr">25203 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L25204" class="LineNr">25204 </span> { +<span id="L25205" class="LineNr">25205 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L25206" class="LineNr">25206 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L25207" class="LineNr">25207 </span> } +<span id="L25208" class="LineNr">25208 </span> 89/<- %ebx 0/r32/eax +<span id="L25209" class="LineNr">25209 </span> } +<span id="L25210" class="LineNr">25210 </span> <span class="subxComment"># if target-type is not addr, abort</span> +<span id="L25211" class="LineNr">25211 </span> (<a href='mu.subx.html#L36245'>mu-addr-type?</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L25212" class="LineNr">25212 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25213" class="LineNr">25213 </span> 0f 84/jump-if-= $check-mu-allocate-stmt:error-invalid-type/disp32 +<span id="L25214" class="LineNr">25214 </span> <span class="subxComment"># if target-type->right is an atom, abort</span> +<span id="L25215" class="LineNr">25215 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L25216" class="LineNr">25216 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L25217" class="LineNr">25217 </span> 0f 85/jump-if-!= $check-mu-allocate-stmt:error-invalid-type/disp32 +<span id="L25218" class="LineNr">25218 </span> <span class="subxComment"># if target-type->right->left is not handle, abort</span> +<span id="L25219" class="LineNr">25219 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L25220" class="LineNr">25220 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 4) <span class="subxComment"># handle => eax</span> +<span id="L25221" class="LineNr">25221 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25222" class="LineNr">25222 </span> 0f 84/jump-if-= $check-mu-allocate-stmt:error-invalid-type/disp32 +<span id="L25223" class="LineNr">25223 </span><span class="Constant">$check-mu-allocate-stmt:end</span>: +<span id="L25224" class="LineNr">25224 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L25225" class="LineNr">25225 </span> 5f/pop-to-edi +<span id="L25226" class="LineNr">25226 </span> 5e/pop-to-esi +<span id="L25227" class="LineNr">25227 </span> 5b/pop-to-ebx +<span id="L25228" class="LineNr">25228 </span> 58/pop-to-eax +<span id="L25229" class="LineNr">25229 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L25230" class="LineNr">25230 </span> 89/<- %esp 5/r32/ebp +<span id="L25231" class="LineNr">25231 </span> 5d/pop-to-ebp +<span id="L25232" class="LineNr">25232 </span> c3/return +<span id="L25233" class="LineNr">25233 </span> +<span id="L25234" class="LineNr">25234 </span><span class="Constant">$check-mu-allocate-stmt:error-incorrect-inouts</span>: +<span id="L25235" class="LineNr">25235 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25236" class="LineNr">25236 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25237" class="LineNr">25237 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25238" class="LineNr">25238 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25239" class="LineNr">25239 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'allocate' must have a single inout\n"</span>) +<span id="L25240" class="LineNr">25240 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25241" class="LineNr">25241 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25242" class="LineNr">25242 </span> <span class="subxComment"># never gets here</span> +<span id="L25243" class="LineNr">25243 </span> +<span id="L25244" class="LineNr">25244 </span><span class="Constant">$check-mu-allocate-stmt:error-too-many-outputs</span>: +<span id="L25245" class="LineNr">25245 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25246" class="LineNr">25246 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25247" class="LineNr">25247 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25248" class="LineNr">25248 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25249" class="LineNr">25249 </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="L25250" class="LineNr">25250 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25251" class="LineNr">25251 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25252" class="LineNr">25252 </span> <span class="subxComment"># never gets here</span> +<span id="L25253" class="LineNr">25253 </span> +<span id="L25254" class="LineNr">25254 </span><span class="Constant">$check-mu-allocate-stmt:error-invalid-type</span>: +<span id="L25255" class="LineNr">25255 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25256" class="LineNr">25256 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25257" class="LineNr">25257 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25258" class="LineNr">25258 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25259" class="LineNr">25259 </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="L25260" class="LineNr">25260 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L25261" class="LineNr">25261 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L25262" class="LineNr">25262 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25263" class="LineNr">25263 </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="L25264" class="LineNr">25264 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25265" class="LineNr">25265 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25266" class="LineNr">25266 </span> <span class="subxComment"># never gets here</span> +<span id="L25267" class="LineNr">25267 </span> +<span id="L25268" class="LineNr">25268 </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="L25269" class="LineNr">25269 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L25270" class="LineNr">25270 </span> 55/push-ebp +<span id="L25271" class="LineNr">25271 </span> 89/<- %ebp 4/r32/esp +<span id="L25272" class="LineNr">25272 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L25273" class="LineNr">25273 </span> 50/push-eax +<span id="L25274" class="LineNr">25274 </span> 53/push-ebx +<span id="L25275" class="LineNr">25275 </span> 56/push-esi +<span id="L25276" class="LineNr">25276 </span> 57/push-edi +<span id="L25277" class="LineNr">25277 </span> <span class="subxComment"># esi = stmt</span> +<span id="L25278" class="LineNr">25278 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L25279" class="LineNr">25279 </span><span class="Constant">$check-mu-populate-stmt:check-for-output</span>: +<span id="L25280" class="LineNr">25280 </span> <span class="subxComment"># if stmt->outputs abort</span> +<span id="L25281" class="LineNr">25281 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L25282" class="LineNr">25282 </span> 3d/compare-eax-and 0/imm32 +<span id="L25283" class="LineNr">25283 </span> 0f 85/jump-if-!= $check-mu-populate-stmt:error-too-many-outputs/disp32 +<span id="L25284" class="LineNr">25284 </span><span class="Constant">$check-mu-populate-stmt:get-target</span>: +<span id="L25285" class="LineNr">25285 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts</span> +<span id="L25286" class="LineNr">25286 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L25287" class="LineNr">25287 </span> 89/<- %edi 0/r32/eax +<span id="L25288" class="LineNr">25288 </span> <span class="subxComment"># zero inouts</span> +<span id="L25289" class="LineNr">25289 </span> 3d/compare-eax-and 0/imm32 +<span id="L25290" class="LineNr">25290 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-incorrect-inouts/disp32 +<span id="L25291" class="LineNr">25291 </span><span class="Constant">$check-mu-populate-stmt:get-length</span>: +<span id="L25292" class="LineNr">25292 </span> <span class="subxComment"># var length/esi: (addr stmt-var) = dest->next</span> +<span id="L25293" class="LineNr">25293 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L25294" class="LineNr">25294 </span> 89/<- %esi 0/r32/eax +<span id="L25295" class="LineNr">25295 </span> <span class="subxComment"># 1 inout</span> +<span id="L25296" class="LineNr">25296 </span> 3d/compare-eax-and 0/imm32 +<span id="L25297" class="LineNr">25297 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-incorrect-inouts/disp32 +<span id="L25298" class="LineNr">25298 </span> <span class="subxComment"># > 2 inouts</span> +<span id="L25299" class="LineNr">25299 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L25300" class="LineNr">25300 </span> 3d/compare-eax-and 0/imm32 +<span id="L25301" class="LineNr">25301 </span> 0f 85/jump-if-!= $check-mu-populate-stmt:error-incorrect-inouts/disp32 +<span id="L25302" class="LineNr">25302 </span><span class="Constant">$check-mu-populate-stmt:check-target-type</span>: +<span id="L25303" class="LineNr">25303 </span> <span class="subxComment"># var target-type/ebx: (addr type-tree) = target->value->type</span> +<span id="L25304" class="LineNr">25304 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L25305" class="LineNr">25305 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L25306" class="LineNr">25306 </span> 89/<- %ebx 0/r32/eax +<span id="L25307" class="LineNr">25307 </span><span class="Constant">$check-mu-populate-stmt:check-target-type-deref</span>: +<span id="L25308" class="LineNr">25308 </span> <span class="subxComment"># if (target->is-deref?) target-type = target-type->payload</span> +<span id="L25309" class="LineNr">25309 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L25310" class="LineNr">25310 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25311" class="LineNr">25311 </span> { +<span id="L25312" class="LineNr">25312 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L25313" class="LineNr">25313 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L25314" class="LineNr">25314 </span> <span class="subxComment"># if target-type->right is null, target-type = target-type->left</span> +<span id="L25315" class="LineNr">25315 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L25316" class="LineNr">25316 </span> { +<span id="L25317" class="LineNr">25317 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L25318" class="LineNr">25318 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L25319" class="LineNr">25319 </span> } +<span id="L25320" class="LineNr">25320 </span> 89/<- %ebx 0/r32/eax +<span id="L25321" class="LineNr">25321 </span> } +<span id="L25322" class="LineNr">25322 </span><span class="Constant">$check-mu-populate-stmt:check-target-type-addr</span>: +<span id="L25323" class="LineNr">25323 </span> <span class="subxComment"># if target-type is not addr, abort</span> +<span id="L25324" class="LineNr">25324 </span> (<a href='mu.subx.html#L36245'>mu-addr-type?</a> %ebx) <span class="subxComment"># => eax</span> <span id="L25325" class="LineNr">25325 </span> 3d/compare-eax-and 0/imm32/false <span id="L25326" class="LineNr">25326 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-invalid-target-type/disp32 -<span id="L25327" class="LineNr">25327 </span><span class="Constant">$check-mu-populate-stmt:check-length-type</span>: -<span id="L25328" class="LineNr">25328 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L25329" class="LineNr">25329 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L25330" class="LineNr">25330 </span> 89/<- %ebx 0/r32/eax -<span id="L25331" class="LineNr">25331 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %ebx 0) <span class="subxComment"># literal => eax</span> -<span id="L25332" class="LineNr">25332 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25333" class="LineNr">25333 </span> 75/jump-if-!= $check-mu-populate-stmt:end/disp8 -<span id="L25334" class="LineNr">25334 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %ebx 1) <span class="subxComment"># int => eax</span> -<span id="L25335" class="LineNr">25335 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25336" class="LineNr">25336 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-invalid-length-type/disp32 -<span id="L25337" class="LineNr">25337 </span><span class="Constant">$check-mu-populate-stmt:end</span>: -<span id="L25338" class="LineNr">25338 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L25339" class="LineNr">25339 </span> 5f/pop-to-edi -<span id="L25340" class="LineNr">25340 </span> 5e/pop-to-esi -<span id="L25341" class="LineNr">25341 </span> 5b/pop-to-ebx -<span id="L25342" class="LineNr">25342 </span> 58/pop-to-eax -<span id="L25343" class="LineNr">25343 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L25344" class="LineNr">25344 </span> 89/<- %esp 5/r32/ebp -<span id="L25345" class="LineNr">25345 </span> 5d/pop-to-ebp -<span id="L25346" class="LineNr">25346 </span> c3/return -<span id="L25347" class="LineNr">25347 </span> -<span id="L25348" class="LineNr">25348 </span><span class="Constant">$check-mu-populate-stmt:error-incorrect-inouts</span>: -<span id="L25349" class="LineNr">25349 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25350" class="LineNr">25350 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25351" class="LineNr">25351 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25352" class="LineNr">25352 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25353" class="LineNr">25353 </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="L25354" class="LineNr">25354 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25355" class="LineNr">25355 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25356" class="LineNr">25356 </span> <span class="subxComment"># never gets here</span> -<span id="L25357" class="LineNr">25357 </span> -<span id="L25358" class="LineNr">25358 </span><span class="Constant">$check-mu-populate-stmt:error-too-many-outputs</span>: -<span id="L25359" class="LineNr">25359 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25360" class="LineNr">25360 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25361" class="LineNr">25361 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25362" class="LineNr">25362 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25363" class="LineNr">25363 </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="L25364" class="LineNr">25364 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25365" class="LineNr">25365 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25366" class="LineNr">25366 </span> <span class="subxComment"># never gets here</span> -<span id="L25367" class="LineNr">25367 </span> -<span id="L25368" class="LineNr">25368 </span><span class="Constant">$check-mu-populate-stmt:error-invalid-target-type</span>: -<span id="L25369" class="LineNr">25369 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25370" class="LineNr">25370 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25371" class="LineNr">25371 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25372" class="LineNr">25372 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25373" class="LineNr">25373 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt populate: first inout '"</span>) -<span id="L25374" class="LineNr">25374 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L25375" class="LineNr">25375 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L25376" class="LineNr">25376 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25377" class="LineNr">25377 </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="L25378" class="LineNr">25378 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25379" class="LineNr">25379 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25380" class="LineNr">25380 </span> <span class="subxComment"># never gets here</span> -<span id="L25381" class="LineNr">25381 </span> -<span id="L25382" class="LineNr">25382 </span><span class="Constant">$check-mu-populate-stmt:error-invalid-length-type</span>: -<span id="L25383" class="LineNr">25383 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25384" class="LineNr">25384 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25385" class="LineNr">25385 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25386" class="LineNr">25386 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25387" class="LineNr">25387 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt populate: second inout '"</span>) -<span id="L25388" class="LineNr">25388 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L25389" class="LineNr">25389 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L25390" class="LineNr">25390 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25391" class="LineNr">25391 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an int\n"</span>) -<span id="L25392" class="LineNr">25392 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25393" class="LineNr">25393 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25394" class="LineNr">25394 </span> <span class="subxComment"># never gets here</span> -<span id="L25395" class="LineNr">25395 </span> -<span id="L25396" class="LineNr">25396 </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="L25397" class="LineNr">25397 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L25398" class="LineNr">25398 </span> 55/push-ebp -<span id="L25399" class="LineNr">25399 </span> 89/<- %ebp 4/r32/esp -<span id="L25400" class="LineNr">25400 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L25401" class="LineNr">25401 </span> 50/push-eax -<span id="L25402" class="LineNr">25402 </span> 53/push-ebx -<span id="L25403" class="LineNr">25403 </span> 56/push-esi -<span id="L25404" class="LineNr">25404 </span> 57/push-edi -<span id="L25405" class="LineNr">25405 </span> <span class="subxComment"># esi = stmt</span> -<span id="L25406" class="LineNr">25406 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L25407" class="LineNr">25407 </span><span class="Constant">$check-mu-populate-stream-stmt:check-for-output</span>: -<span id="L25408" class="LineNr">25408 </span> <span class="subxComment"># if stmt->outputs abort</span> -<span id="L25409" class="LineNr">25409 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L25410" class="LineNr">25410 </span> 3d/compare-eax-and 0/imm32 -<span id="L25411" class="LineNr">25411 </span> 0f 85/jump-if-!= $check-mu-populate-stream-stmt:error-too-many-outputs/disp32 -<span id="L25412" class="LineNr">25412 </span><span class="Constant">$check-mu-populate-stream-stmt:get-target</span>: -<span id="L25413" class="LineNr">25413 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts</span> -<span id="L25414" class="LineNr">25414 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L25415" class="LineNr">25415 </span> 89/<- %edi 0/r32/eax -<span id="L25416" class="LineNr">25416 </span> <span class="subxComment"># zero inouts</span> -<span id="L25417" class="LineNr">25417 </span> 3d/compare-eax-and 0/imm32 -<span id="L25418" class="LineNr">25418 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-incorrect-inouts/disp32 -<span id="L25419" class="LineNr">25419 </span><span class="Constant">$check-mu-populate-stream-stmt:get-length</span>: -<span id="L25420" class="LineNr">25420 </span> <span class="subxComment"># var length/esi: (addr stmt-var) = dest->next</span> -<span id="L25421" class="LineNr">25421 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L25422" class="LineNr">25422 </span> 89/<- %esi 0/r32/eax -<span id="L25423" class="LineNr">25423 </span> <span class="subxComment"># 1 inout</span> -<span id="L25424" class="LineNr">25424 </span> 3d/compare-eax-and 0/imm32 -<span id="L25425" class="LineNr">25425 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-incorrect-inouts/disp32 -<span id="L25426" class="LineNr">25426 </span> <span class="subxComment"># > 2 inouts</span> -<span id="L25427" class="LineNr">25427 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L25428" class="LineNr">25428 </span> 3d/compare-eax-and 0/imm32 -<span id="L25429" class="LineNr">25429 </span> 0f 85/jump-if-!= $check-mu-populate-stream-stmt:error-incorrect-inouts/disp32 -<span id="L25430" class="LineNr">25430 </span><span class="Constant">$check-mu-populate-stream-stmt:check-target-type</span>: -<span id="L25431" class="LineNr">25431 </span> <span class="subxComment"># var target-type/ebx: (addr type-tree) = target->value->type</span> -<span id="L25432" class="LineNr">25432 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L25433" class="LineNr">25433 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L25434" class="LineNr">25434 </span> 89/<- %ebx 0/r32/eax -<span id="L25435" class="LineNr">25435 </span><span class="Constant">$check-mu-populate-stream-stmt:check-target-type-deref</span>: -<span id="L25436" class="LineNr">25436 </span> <span class="subxComment"># if (target->is-deref?) target-type = target-type->payload</span> -<span id="L25437" class="LineNr">25437 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L25438" class="LineNr">25438 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25439" class="LineNr">25439 </span> { -<span id="L25440" class="LineNr">25440 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L25441" class="LineNr">25441 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L25442" class="LineNr">25442 </span> <span class="subxComment"># if target-type->right is null, target-type = target-type->left</span> -<span id="L25443" class="LineNr">25443 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L25444" class="LineNr">25444 </span> { -<span id="L25445" class="LineNr">25445 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L25446" class="LineNr">25446 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L25447" class="LineNr">25447 </span> } -<span id="L25448" class="LineNr">25448 </span> 89/<- %ebx 0/r32/eax -<span id="L25449" class="LineNr">25449 </span> } -<span id="L25450" class="LineNr">25450 </span><span class="Constant">$check-mu-populate-stream-stmt:check-target-type-addr</span>: -<span id="L25451" class="LineNr">25451 </span> <span class="subxComment"># if target-type is not addr, abort</span> -<span id="L25452" class="LineNr">25452 </span> (<a href='mu.subx.html#L35916'>mu-addr-type?</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L25453" class="LineNr">25453 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25454" class="LineNr">25454 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-invalid-target-type/disp32 -<span id="L25455" class="LineNr">25455 </span> <span class="subxComment"># if target-type->right is an atom, abort</span> -<span id="L25456" class="LineNr">25456 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L25457" class="LineNr">25457 </span> 89/<- %ebx 0/r32/eax -<span id="L25458" class="LineNr">25458 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L25459" class="LineNr">25459 </span> 0f 85/jump-if-!= $check-mu-populate-stream-stmt:error-invalid-target-type/disp32 -<span id="L25460" class="LineNr">25460 </span><span class="Constant">$check-mu-populate-stream-stmt:check-target-type-handle</span>: -<span id="L25461" class="LineNr">25461 </span> <span class="subxComment"># if target-type->right->left is not handle, abort</span> -<span id="L25462" class="LineNr">25462 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L25463" class="LineNr">25463 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 4) <span class="subxComment"># handle => eax</span> -<span id="L25464" class="LineNr">25464 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25465" class="LineNr">25465 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-invalid-target-type/disp32 -<span id="L25466" class="LineNr">25466 </span> <span class="subxComment"># if target-type->right->right is an atom, abort</span> -<span id="L25467" class="LineNr">25467 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L25468" class="LineNr">25468 </span> 89/<- %ebx 0/r32/eax -<span id="L25469" class="LineNr">25469 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L25470" class="LineNr">25470 </span> 0f 85/jump-if-!= $check-mu-populate-stream-stmt:error-invalid-target-type/disp32 -<span id="L25471" class="LineNr">25471 </span><span class="Constant">$check-mu-populate-stream-stmt:check-target-type-stream</span>: -<span id="L25472" class="LineNr">25472 </span> <span class="subxComment"># if target-type->right->right->left is not stream, abort</span> -<span id="L25473" class="LineNr">25473 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L25474" class="LineNr">25474 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 0xb) <span class="subxComment"># stream => eax</span> +<span id="L25327" class="LineNr">25327 </span> <span class="subxComment"># if target-type->right is an atom, abort</span> +<span id="L25328" class="LineNr">25328 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L25329" class="LineNr">25329 </span> 89/<- %ebx 0/r32/eax +<span id="L25330" class="LineNr">25330 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L25331" class="LineNr">25331 </span> 0f 85/jump-if-!= $check-mu-populate-stmt:error-invalid-target-type/disp32 +<span id="L25332" class="LineNr">25332 </span><span class="Constant">$check-mu-populate-stmt:check-target-type-handle</span>: +<span id="L25333" class="LineNr">25333 </span> <span class="subxComment"># if target-type->right->left is not handle, abort</span> +<span id="L25334" class="LineNr">25334 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L25335" class="LineNr">25335 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 4) <span class="subxComment"># handle => eax</span> +<span id="L25336" class="LineNr">25336 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25337" class="LineNr">25337 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-invalid-target-type/disp32 +<span id="L25338" class="LineNr">25338 </span> <span class="subxComment"># if target-type->right->right is an atom, abort</span> +<span id="L25339" class="LineNr">25339 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L25340" class="LineNr">25340 </span> 89/<- %ebx 0/r32/eax +<span id="L25341" class="LineNr">25341 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L25342" class="LineNr">25342 </span> 0f 85/jump-if-!= $check-mu-populate-stmt:error-invalid-target-type/disp32 +<span id="L25343" class="LineNr">25343 </span><span class="Constant">$check-mu-populate-stmt:check-target-type-array</span>: +<span id="L25344" class="LineNr">25344 </span> <span class="subxComment"># if target-type->right->right->left is not array, abort</span> +<span id="L25345" class="LineNr">25345 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L25346" class="LineNr">25346 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> +<span id="L25347" class="LineNr">25347 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25348" class="LineNr">25348 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-invalid-target-type/disp32 +<span id="L25349" class="LineNr">25349 </span><span class="Constant">$check-mu-populate-stmt:check-length-type</span>: +<span id="L25350" class="LineNr">25350 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L25351" class="LineNr">25351 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L25352" class="LineNr">25352 </span> 89/<- %ebx 0/r32/eax +<span id="L25353" class="LineNr">25353 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %ebx 0) <span class="subxComment"># literal => eax</span> +<span id="L25354" class="LineNr">25354 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25355" class="LineNr">25355 </span> 75/jump-if-!= $check-mu-populate-stmt:end/disp8 +<span id="L25356" class="LineNr">25356 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %ebx 1) <span class="subxComment"># int => eax</span> +<span id="L25357" class="LineNr">25357 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25358" class="LineNr">25358 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-invalid-length-type/disp32 +<span id="L25359" class="LineNr">25359 </span><span class="Constant">$check-mu-populate-stmt:end</span>: +<span id="L25360" class="LineNr">25360 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L25361" class="LineNr">25361 </span> 5f/pop-to-edi +<span id="L25362" class="LineNr">25362 </span> 5e/pop-to-esi +<span id="L25363" class="LineNr">25363 </span> 5b/pop-to-ebx +<span id="L25364" class="LineNr">25364 </span> 58/pop-to-eax +<span id="L25365" class="LineNr">25365 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L25366" class="LineNr">25366 </span> 89/<- %esp 5/r32/ebp +<span id="L25367" class="LineNr">25367 </span> 5d/pop-to-ebp +<span id="L25368" class="LineNr">25368 </span> c3/return +<span id="L25369" class="LineNr">25369 </span> +<span id="L25370" class="LineNr">25370 </span><span class="Constant">$check-mu-populate-stmt:error-incorrect-inouts</span>: +<span id="L25371" class="LineNr">25371 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25372" class="LineNr">25372 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25373" class="LineNr">25373 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25374" class="LineNr">25374 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25375" class="LineNr">25375 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'populate' must have two inouts\n"</span>) +<span id="L25376" class="LineNr">25376 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25377" class="LineNr">25377 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25378" class="LineNr">25378 </span> <span class="subxComment"># never gets here</span> +<span id="L25379" class="LineNr">25379 </span> +<span id="L25380" class="LineNr">25380 </span><span class="Constant">$check-mu-populate-stmt:error-too-many-outputs</span>: +<span id="L25381" class="LineNr">25381 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25382" class="LineNr">25382 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25383" class="LineNr">25383 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25384" class="LineNr">25384 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25385" class="LineNr">25385 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'populate' must not have any outputs\n"</span>) +<span id="L25386" class="LineNr">25386 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25387" class="LineNr">25387 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25388" class="LineNr">25388 </span> <span class="subxComment"># never gets here</span> +<span id="L25389" class="LineNr">25389 </span> +<span id="L25390" class="LineNr">25390 </span><span class="Constant">$check-mu-populate-stmt:error-invalid-target-type</span>: +<span id="L25391" class="LineNr">25391 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25392" class="LineNr">25392 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25393" class="LineNr">25393 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25394" class="LineNr">25394 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25395" class="LineNr">25395 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt populate: first inout '"</span>) +<span id="L25396" class="LineNr">25396 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L25397" class="LineNr">25397 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L25398" class="LineNr">25398 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25399" class="LineNr">25399 </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="L25400" class="LineNr">25400 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25401" class="LineNr">25401 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25402" class="LineNr">25402 </span> <span class="subxComment"># never gets here</span> +<span id="L25403" class="LineNr">25403 </span> +<span id="L25404" class="LineNr">25404 </span><span class="Constant">$check-mu-populate-stmt:error-invalid-length-type</span>: +<span id="L25405" class="LineNr">25405 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25406" class="LineNr">25406 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25407" class="LineNr">25407 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25408" class="LineNr">25408 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25409" class="LineNr">25409 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt populate: second inout '"</span>) +<span id="L25410" class="LineNr">25410 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L25411" class="LineNr">25411 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L25412" class="LineNr">25412 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25413" class="LineNr">25413 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an int\n"</span>) +<span id="L25414" class="LineNr">25414 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25415" class="LineNr">25415 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25416" class="LineNr">25416 </span> <span class="subxComment"># never gets here</span> +<span id="L25417" class="LineNr">25417 </span> +<span id="L25418" class="LineNr">25418 </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="L25419" class="LineNr">25419 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L25420" class="LineNr">25420 </span> 55/push-ebp +<span id="L25421" class="LineNr">25421 </span> 89/<- %ebp 4/r32/esp +<span id="L25422" class="LineNr">25422 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L25423" class="LineNr">25423 </span> 50/push-eax +<span id="L25424" class="LineNr">25424 </span> 53/push-ebx +<span id="L25425" class="LineNr">25425 </span> 56/push-esi +<span id="L25426" class="LineNr">25426 </span> 57/push-edi +<span id="L25427" class="LineNr">25427 </span> <span class="subxComment"># esi = stmt</span> +<span id="L25428" class="LineNr">25428 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L25429" class="LineNr">25429 </span><span class="Constant">$check-mu-populate-stream-stmt:check-for-output</span>: +<span id="L25430" class="LineNr">25430 </span> <span class="subxComment"># if stmt->outputs abort</span> +<span id="L25431" class="LineNr">25431 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L25432" class="LineNr">25432 </span> 3d/compare-eax-and 0/imm32 +<span id="L25433" class="LineNr">25433 </span> 0f 85/jump-if-!= $check-mu-populate-stream-stmt:error-too-many-outputs/disp32 +<span id="L25434" class="LineNr">25434 </span><span class="Constant">$check-mu-populate-stream-stmt:get-target</span>: +<span id="L25435" class="LineNr">25435 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts</span> +<span id="L25436" class="LineNr">25436 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L25437" class="LineNr">25437 </span> 89/<- %edi 0/r32/eax +<span id="L25438" class="LineNr">25438 </span> <span class="subxComment"># zero inouts</span> +<span id="L25439" class="LineNr">25439 </span> 3d/compare-eax-and 0/imm32 +<span id="L25440" class="LineNr">25440 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-incorrect-inouts/disp32 +<span id="L25441" class="LineNr">25441 </span><span class="Constant">$check-mu-populate-stream-stmt:get-length</span>: +<span id="L25442" class="LineNr">25442 </span> <span class="subxComment"># var length/esi: (addr stmt-var) = dest->next</span> +<span id="L25443" class="LineNr">25443 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L25444" class="LineNr">25444 </span> 89/<- %esi 0/r32/eax +<span id="L25445" class="LineNr">25445 </span> <span class="subxComment"># 1 inout</span> +<span id="L25446" class="LineNr">25446 </span> 3d/compare-eax-and 0/imm32 +<span id="L25447" class="LineNr">25447 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-incorrect-inouts/disp32 +<span id="L25448" class="LineNr">25448 </span> <span class="subxComment"># > 2 inouts</span> +<span id="L25449" class="LineNr">25449 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L25450" class="LineNr">25450 </span> 3d/compare-eax-and 0/imm32 +<span id="L25451" class="LineNr">25451 </span> 0f 85/jump-if-!= $check-mu-populate-stream-stmt:error-incorrect-inouts/disp32 +<span id="L25452" class="LineNr">25452 </span><span class="Constant">$check-mu-populate-stream-stmt:check-target-type</span>: +<span id="L25453" class="LineNr">25453 </span> <span class="subxComment"># var target-type/ebx: (addr type-tree) = target->value->type</span> +<span id="L25454" class="LineNr">25454 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L25455" class="LineNr">25455 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L25456" class="LineNr">25456 </span> 89/<- %ebx 0/r32/eax +<span id="L25457" class="LineNr">25457 </span><span class="Constant">$check-mu-populate-stream-stmt:check-target-type-deref</span>: +<span id="L25458" class="LineNr">25458 </span> <span class="subxComment"># if (target->is-deref?) target-type = target-type->payload</span> +<span id="L25459" class="LineNr">25459 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L25460" class="LineNr">25460 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25461" class="LineNr">25461 </span> { +<span id="L25462" class="LineNr">25462 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L25463" class="LineNr">25463 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L25464" class="LineNr">25464 </span> <span class="subxComment"># if target-type->right is null, target-type = target-type->left</span> +<span id="L25465" class="LineNr">25465 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L25466" class="LineNr">25466 </span> { +<span id="L25467" class="LineNr">25467 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L25468" class="LineNr">25468 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L25469" class="LineNr">25469 </span> } +<span id="L25470" class="LineNr">25470 </span> 89/<- %ebx 0/r32/eax +<span id="L25471" class="LineNr">25471 </span> } +<span id="L25472" class="LineNr">25472 </span><span class="Constant">$check-mu-populate-stream-stmt:check-target-type-addr</span>: +<span id="L25473" class="LineNr">25473 </span> <span class="subxComment"># if target-type is not addr, abort</span> +<span id="L25474" class="LineNr">25474 </span> (<a href='mu.subx.html#L36245'>mu-addr-type?</a> %ebx) <span class="subxComment"># => eax</span> <span id="L25475" class="LineNr">25475 </span> 3d/compare-eax-and 0/imm32/false <span id="L25476" class="LineNr">25476 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-invalid-target-type/disp32 -<span id="L25477" class="LineNr">25477 </span><span class="Constant">$check-mu-populate-stream-stmt:check-length-type</span>: -<span id="L25478" class="LineNr">25478 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L25479" class="LineNr">25479 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L25480" class="LineNr">25480 </span> 89/<- %ebx 0/r32/eax -<span id="L25481" class="LineNr">25481 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %ebx 0) <span class="subxComment"># literal => eax</span> -<span id="L25482" class="LineNr">25482 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25483" class="LineNr">25483 </span> 75/jump-if-!= $check-mu-populate-stream-stmt:end/disp8 -<span id="L25484" class="LineNr">25484 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %ebx 1) <span class="subxComment"># int => eax</span> -<span id="L25485" class="LineNr">25485 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25486" class="LineNr">25486 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-invalid-length-type/disp32 -<span id="L25487" class="LineNr">25487 </span><span class="Constant">$check-mu-populate-stream-stmt:end</span>: -<span id="L25488" class="LineNr">25488 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L25489" class="LineNr">25489 </span> 5f/pop-to-edi -<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> 58/pop-to-eax -<span id="L25493" class="LineNr">25493 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L25494" class="LineNr">25494 </span> 89/<- %esp 5/r32/ebp -<span id="L25495" class="LineNr">25495 </span> 5d/pop-to-ebp -<span id="L25496" class="LineNr">25496 </span> c3/return -<span id="L25497" class="LineNr">25497 </span> -<span id="L25498" class="LineNr">25498 </span><span class="Constant">$check-mu-populate-stream-stmt:error-incorrect-inouts</span>: -<span id="L25499" class="LineNr">25499 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25500" class="LineNr">25500 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25501" class="LineNr">25501 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25502" class="LineNr">25502 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25503" class="LineNr">25503 </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="L25504" class="LineNr">25504 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25505" class="LineNr">25505 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25506" class="LineNr">25506 </span> <span class="subxComment"># never gets here</span> -<span id="L25507" class="LineNr">25507 </span> -<span id="L25508" class="LineNr">25508 </span><span class="Constant">$check-mu-populate-stream-stmt:error-too-many-outputs</span>: -<span id="L25509" class="LineNr">25509 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25510" class="LineNr">25510 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25511" class="LineNr">25511 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25512" class="LineNr">25512 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25513" class="LineNr">25513 </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="L25514" class="LineNr">25514 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25515" class="LineNr">25515 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25516" class="LineNr">25516 </span> <span class="subxComment"># never gets here</span> -<span id="L25517" class="LineNr">25517 </span> -<span id="L25518" class="LineNr">25518 </span><span class="Constant">$check-mu-populate-stream-stmt:error-invalid-target-type</span>: -<span id="L25519" class="LineNr">25519 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25520" class="LineNr">25520 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25521" class="LineNr">25521 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25522" class="LineNr">25522 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25523" class="LineNr">25523 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt populate-stream: first inout '"</span>) -<span id="L25524" class="LineNr">25524 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L25525" class="LineNr">25525 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L25526" class="LineNr">25526 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25527" class="LineNr">25527 </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="L25528" class="LineNr">25528 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25529" class="LineNr">25529 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25530" class="LineNr">25530 </span> <span class="subxComment"># never gets here</span> -<span id="L25531" class="LineNr">25531 </span> -<span id="L25532" class="LineNr">25532 </span><span class="Constant">$check-mu-populate-stream-stmt:error-invalid-length-type</span>: -<span id="L25533" class="LineNr">25533 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25534" class="LineNr">25534 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25535" class="LineNr">25535 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25536" class="LineNr">25536 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25537" class="LineNr">25537 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt populate-stream: second inout '"</span>) -<span id="L25538" class="LineNr">25538 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L25539" class="LineNr">25539 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L25540" class="LineNr">25540 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25541" class="LineNr">25541 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an int\n"</span>) -<span id="L25542" class="LineNr">25542 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25543" class="LineNr">25543 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25544" class="LineNr">25544 </span> <span class="subxComment"># never gets here</span> -<span id="L25545" class="LineNr">25545 </span> -<span id="L25546" class="LineNr">25546 </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="L25547" class="LineNr">25547 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L25548" class="LineNr">25548 </span> 55/push-ebp -<span id="L25549" class="LineNr">25549 </span> 89/<- %ebp 4/r32/esp -<span id="L25550" class="LineNr">25550 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L25551" class="LineNr">25551 </span> 50/push-eax -<span id="L25552" class="LineNr">25552 </span> 51/push-ecx -<span id="L25553" class="LineNr">25553 </span> 52/push-edx -<span id="L25554" class="LineNr">25554 </span> 53/push-ebx -<span id="L25555" class="LineNr">25555 </span> 56/push-esi -<span id="L25556" class="LineNr">25556 </span> 57/push-edi -<span id="L25557" class="LineNr">25557 </span> <span class="subxComment"># esi = stmt</span> -<span id="L25558" class="LineNr">25558 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L25559" class="LineNr">25559 </span> <span class="subxH1Comment"># - check for 0 inouts</span> -<span id="L25560" class="LineNr">25560 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> -<span id="L25561" class="LineNr">25561 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L25562" class="LineNr">25562 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-no-inouts</span>: -<span id="L25563" class="LineNr">25563 </span> 3d/compare-eax-and 0/imm32 -<span id="L25564" class="LineNr">25564 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-too-few-inouts/disp32 -<span id="L25565" class="LineNr">25565 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L25566" class="LineNr">25566 </span> 89/<- %ecx 0/r32/eax -<span id="L25567" class="LineNr">25567 </span> <span class="subxH1Comment"># - check base type is (addr stream T)</span> -<span id="L25568" class="LineNr">25568 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> -<span id="L25569" class="LineNr">25569 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L25570" class="LineNr">25570 </span> 89/<- %ebx 0/r32/eax -<span id="L25571" class="LineNr">25571 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-base-is-compound</span>: -<span id="L25572" class="LineNr">25572 </span> <span class="subxComment"># if base-type is an atom, abort</span> -<span id="L25573" class="LineNr">25573 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L25574" class="LineNr">25574 </span> 0f 85/jump-if-!= $check-mu-read-from-stream-stmt:error-invalid-base-type/disp32 -<span id="L25575" class="LineNr">25575 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-base-is-addr</span>: -<span id="L25576" class="LineNr">25576 </span> <span class="subxComment"># if type->left not addr, abort</span> -<span id="L25577" class="LineNr">25577 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L25578" class="LineNr">25578 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L25579" class="LineNr">25579 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25580" class="LineNr">25580 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-invalid-base-type/disp32 -<span id="L25581" class="LineNr">25581 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-base-is-addr-to-stream</span>: -<span id="L25582" class="LineNr">25582 </span> <span class="subxComment"># base-type = base-type->right</span> -<span id="L25583" class="LineNr">25583 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L25584" class="LineNr">25584 </span> 89/<- %ebx 0/r32/eax -<span id="L25585" class="LineNr">25585 </span> <span class="subxComment"># ensure base-type->left == stream</span> -<span id="L25586" class="LineNr">25586 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L25587" class="LineNr">25587 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 0xb) <span class="subxComment"># stream => eax</span> -<span id="L25588" class="LineNr">25588 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25589" class="LineNr">25589 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-invalid-base-type/disp32 -<span id="L25590" class="LineNr">25590 </span> <span class="subxH1Comment"># - check target type is (addr T)</span> -<span id="L25591" class="LineNr">25591 </span> <span class="subxComment"># var target/ecx: (addr stmt-var) = stmt->inouts->next->value</span> -<span id="L25592" class="LineNr">25592 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L25593" class="LineNr">25593 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L25594" class="LineNr">25594 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-single-inout</span>: -<span id="L25595" class="LineNr">25595 </span> 3d/compare-eax-and 0/imm32 -<span id="L25596" class="LineNr">25596 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-too-few-inouts/disp32 -<span id="L25597" class="LineNr">25597 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L25598" class="LineNr">25598 </span> 89/<- %ecx 0/r32/eax -<span id="L25599" class="LineNr">25599 </span> <span class="subxComment"># var target-type/edx: (addr type-tree)</span> -<span id="L25600" class="LineNr">25600 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L25601" class="LineNr">25601 </span> 89/<- %edx 0/r32/eax -<span id="L25602" class="LineNr">25602 </span> <span class="subxComment"># if target-type is an atom, it must be a literal or int</span> -<span id="L25603" class="LineNr">25603 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-target-is-compound</span>: -<span id="L25604" class="LineNr">25604 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L25605" class="LineNr">25605 </span> 0f 85/jump-if-!= $check-mu-read-from-stream-stmt:error-target-type-not-address/disp32 -<span id="L25606" class="LineNr">25606 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-target-type</span>: -<span id="L25607" class="LineNr">25607 </span> <span class="subxComment"># target type must start with (addr ...)</span> -<span id="L25608" class="LineNr">25608 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L25609" class="LineNr">25609 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L25477" class="LineNr">25477 </span> <span class="subxComment"># if target-type->right is an atom, abort</span> +<span id="L25478" class="LineNr">25478 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L25479" class="LineNr">25479 </span> 89/<- %ebx 0/r32/eax +<span id="L25480" class="LineNr">25480 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L25481" class="LineNr">25481 </span> 0f 85/jump-if-!= $check-mu-populate-stream-stmt:error-invalid-target-type/disp32 +<span id="L25482" class="LineNr">25482 </span><span class="Constant">$check-mu-populate-stream-stmt:check-target-type-handle</span>: +<span id="L25483" class="LineNr">25483 </span> <span class="subxComment"># if target-type->right->left is not handle, abort</span> +<span id="L25484" class="LineNr">25484 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L25485" class="LineNr">25485 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 4) <span class="subxComment"># handle => eax</span> +<span id="L25486" class="LineNr">25486 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25487" class="LineNr">25487 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-invalid-target-type/disp32 +<span id="L25488" class="LineNr">25488 </span> <span class="subxComment"># if target-type->right->right is an atom, abort</span> +<span id="L25489" class="LineNr">25489 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L25490" class="LineNr">25490 </span> 89/<- %ebx 0/r32/eax +<span id="L25491" class="LineNr">25491 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L25492" class="LineNr">25492 </span> 0f 85/jump-if-!= $check-mu-populate-stream-stmt:error-invalid-target-type/disp32 +<span id="L25493" class="LineNr">25493 </span><span class="Constant">$check-mu-populate-stream-stmt:check-target-type-stream</span>: +<span id="L25494" class="LineNr">25494 </span> <span class="subxComment"># if target-type->right->right->left is not stream, abort</span> +<span id="L25495" class="LineNr">25495 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L25496" class="LineNr">25496 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 0xb) <span class="subxComment"># stream => eax</span> +<span id="L25497" class="LineNr">25497 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25498" class="LineNr">25498 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-invalid-target-type/disp32 +<span id="L25499" class="LineNr">25499 </span><span class="Constant">$check-mu-populate-stream-stmt:check-length-type</span>: +<span id="L25500" class="LineNr">25500 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L25501" class="LineNr">25501 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L25502" class="LineNr">25502 </span> 89/<- %ebx 0/r32/eax +<span id="L25503" class="LineNr">25503 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %ebx 0) <span class="subxComment"># literal => eax</span> +<span id="L25504" class="LineNr">25504 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25505" class="LineNr">25505 </span> 75/jump-if-!= $check-mu-populate-stream-stmt:end/disp8 +<span id="L25506" class="LineNr">25506 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %ebx 1) <span class="subxComment"># int => eax</span> +<span id="L25507" class="LineNr">25507 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25508" class="LineNr">25508 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-invalid-length-type/disp32 +<span id="L25509" class="LineNr">25509 </span><span class="Constant">$check-mu-populate-stream-stmt:end</span>: +<span id="L25510" class="LineNr">25510 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L25511" class="LineNr">25511 </span> 5f/pop-to-edi +<span id="L25512" class="LineNr">25512 </span> 5e/pop-to-esi +<span id="L25513" class="LineNr">25513 </span> 5b/pop-to-ebx +<span id="L25514" class="LineNr">25514 </span> 58/pop-to-eax +<span id="L25515" class="LineNr">25515 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L25516" class="LineNr">25516 </span> 89/<- %esp 5/r32/ebp +<span id="L25517" class="LineNr">25517 </span> 5d/pop-to-ebp +<span id="L25518" class="LineNr">25518 </span> c3/return +<span id="L25519" class="LineNr">25519 </span> +<span id="L25520" class="LineNr">25520 </span><span class="Constant">$check-mu-populate-stream-stmt:error-incorrect-inouts</span>: +<span id="L25521" class="LineNr">25521 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25522" class="LineNr">25522 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25523" class="LineNr">25523 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25524" class="LineNr">25524 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25525" class="LineNr">25525 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'populate-stream' must have two inouts\n"</span>) +<span id="L25526" class="LineNr">25526 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25527" class="LineNr">25527 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25528" class="LineNr">25528 </span> <span class="subxComment"># never gets here</span> +<span id="L25529" class="LineNr">25529 </span> +<span id="L25530" class="LineNr">25530 </span><span class="Constant">$check-mu-populate-stream-stmt:error-too-many-outputs</span>: +<span id="L25531" class="LineNr">25531 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25532" class="LineNr">25532 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25533" class="LineNr">25533 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25534" class="LineNr">25534 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25535" class="LineNr">25535 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'populate-stream' must not have any outputs\n"</span>) +<span id="L25536" class="LineNr">25536 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25537" class="LineNr">25537 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25538" class="LineNr">25538 </span> <span class="subxComment"># never gets here</span> +<span id="L25539" class="LineNr">25539 </span> +<span id="L25540" class="LineNr">25540 </span><span class="Constant">$check-mu-populate-stream-stmt:error-invalid-target-type</span>: +<span id="L25541" class="LineNr">25541 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25542" class="LineNr">25542 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25543" class="LineNr">25543 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25544" class="LineNr">25544 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25545" class="LineNr">25545 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt populate-stream: first inout '"</span>) +<span id="L25546" class="LineNr">25546 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L25547" class="LineNr">25547 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L25548" class="LineNr">25548 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25549" class="LineNr">25549 </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="L25550" class="LineNr">25550 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25551" class="LineNr">25551 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25552" class="LineNr">25552 </span> <span class="subxComment"># never gets here</span> +<span id="L25553" class="LineNr">25553 </span> +<span id="L25554" class="LineNr">25554 </span><span class="Constant">$check-mu-populate-stream-stmt:error-invalid-length-type</span>: +<span id="L25555" class="LineNr">25555 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25556" class="LineNr">25556 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25557" class="LineNr">25557 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25558" class="LineNr">25558 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25559" class="LineNr">25559 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt populate-stream: second inout '"</span>) +<span id="L25560" class="LineNr">25560 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L25561" class="LineNr">25561 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L25562" class="LineNr">25562 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25563" class="LineNr">25563 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an int\n"</span>) +<span id="L25564" class="LineNr">25564 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25565" class="LineNr">25565 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25566" class="LineNr">25566 </span> <span class="subxComment"># never gets here</span> +<span id="L25567" class="LineNr">25567 </span> +<span id="L25568" class="LineNr">25568 </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="L25569" class="LineNr">25569 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L25570" class="LineNr">25570 </span> 55/push-ebp +<span id="L25571" class="LineNr">25571 </span> 89/<- %ebp 4/r32/esp +<span id="L25572" class="LineNr">25572 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L25573" class="LineNr">25573 </span> 50/push-eax +<span id="L25574" class="LineNr">25574 </span> 51/push-ecx +<span id="L25575" class="LineNr">25575 </span> 52/push-edx +<span id="L25576" class="LineNr">25576 </span> 53/push-ebx +<span id="L25577" class="LineNr">25577 </span> 56/push-esi +<span id="L25578" class="LineNr">25578 </span> 57/push-edi +<span id="L25579" class="LineNr">25579 </span> <span class="subxComment"># esi = stmt</span> +<span id="L25580" class="LineNr">25580 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L25581" class="LineNr">25581 </span> <span class="subxH1Comment"># - check for 0 inouts</span> +<span id="L25582" class="LineNr">25582 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> +<span id="L25583" class="LineNr">25583 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L25584" class="LineNr">25584 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-no-inouts</span>: +<span id="L25585" class="LineNr">25585 </span> 3d/compare-eax-and 0/imm32 +<span id="L25586" class="LineNr">25586 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-too-few-inouts/disp32 +<span id="L25587" class="LineNr">25587 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L25588" class="LineNr">25588 </span> 89/<- %ecx 0/r32/eax +<span id="L25589" class="LineNr">25589 </span> <span class="subxH1Comment"># - check base type is (addr stream T)</span> +<span id="L25590" class="LineNr">25590 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> +<span id="L25591" class="LineNr">25591 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L25592" class="LineNr">25592 </span> 89/<- %ebx 0/r32/eax +<span id="L25593" class="LineNr">25593 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-base-is-compound</span>: +<span id="L25594" class="LineNr">25594 </span> <span class="subxComment"># if base-type is an atom, abort</span> +<span id="L25595" class="LineNr">25595 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L25596" class="LineNr">25596 </span> 0f 85/jump-if-!= $check-mu-read-from-stream-stmt:error-invalid-base-type/disp32 +<span id="L25597" class="LineNr">25597 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-base-is-addr</span>: +<span id="L25598" class="LineNr">25598 </span> <span class="subxComment"># if type->left not addr, abort</span> +<span id="L25599" class="LineNr">25599 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L25600" class="LineNr">25600 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L25601" class="LineNr">25601 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25602" class="LineNr">25602 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-invalid-base-type/disp32 +<span id="L25603" class="LineNr">25603 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-base-is-addr-to-stream</span>: +<span id="L25604" class="LineNr">25604 </span> <span class="subxComment"># base-type = base-type->right</span> +<span id="L25605" class="LineNr">25605 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L25606" class="LineNr">25606 </span> 89/<- %ebx 0/r32/eax +<span id="L25607" class="LineNr">25607 </span> <span class="subxComment"># ensure base-type->left == stream</span> +<span id="L25608" class="LineNr">25608 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L25609" class="LineNr">25609 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 0xb) <span class="subxComment"># stream => eax</span> <span id="L25610" class="LineNr">25610 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25611" class="LineNr">25611 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-target-type-not-address/disp32 -<span id="L25612" class="LineNr">25612 </span> <span class="subxComment"># if tail(base-type) != tail(target-type) abort</span> -<span id="L25613" class="LineNr">25613 </span> (<a href='mu.subx.html#L26821'>type-tail</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L25614" class="LineNr">25614 </span> 89/<- %ebx 0/r32/eax -<span id="L25615" class="LineNr">25615 </span> (<a href='mu.subx.html#L26821'>type-tail</a> %edx) <span class="subxComment"># => eax</span> -<span id="L25616" class="LineNr">25616 </span> (<a href='mu.subx.html#L26880'>type-equal?</a> %ebx %eax) <span class="subxComment"># => eax</span> -<span id="L25617" class="LineNr">25617 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25618" class="LineNr">25618 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-invalid-target-type/disp32 -<span id="L25619" class="LineNr">25619 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-too-many-inouts</span>: -<span id="L25620" class="LineNr">25620 </span> <span class="subxH1Comment"># - check for too many inouts</span> -<span id="L25621" class="LineNr">25621 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L25622" class="LineNr">25622 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L25623" class="LineNr">25623 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L25624" class="LineNr">25624 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25625" class="LineNr">25625 </span> 0f 85/jump-if-!= $check-mu-read-from-stream-stmt:error-too-many-inouts/disp32 -<span id="L25626" class="LineNr">25626 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-unexpected-output</span>: -<span id="L25627" class="LineNr">25627 </span> <span class="subxH1Comment"># - check for any output</span> -<span id="L25628" class="LineNr">25628 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L25629" class="LineNr">25629 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25630" class="LineNr">25630 </span> 0f 85/jump-if-!= $check-mu-read-from-stream-stmt:error-unexpected-output/disp32 -<span id="L25631" class="LineNr">25631 </span><span class="Constant">$check-mu-read-from-stream-stmt:end</span>: -<span id="L25632" class="LineNr">25632 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L25633" class="LineNr">25633 </span> 5f/pop-to-edi -<span id="L25634" class="LineNr">25634 </span> 5e/pop-to-esi -<span id="L25635" class="LineNr">25635 </span> 5b/pop-to-ebx -<span id="L25636" class="LineNr">25636 </span> 5a/pop-to-edx -<span id="L25637" class="LineNr">25637 </span> 59/pop-to-ecx -<span id="L25638" class="LineNr">25638 </span> 58/pop-to-eax -<span id="L25639" class="LineNr">25639 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L25640" class="LineNr">25640 </span> 89/<- %esp 5/r32/ebp -<span id="L25641" class="LineNr">25641 </span> 5d/pop-to-ebp -<span id="L25642" class="LineNr">25642 </span> c3/return -<span id="L25643" class="LineNr">25643 </span> -<span id="L25644" class="LineNr">25644 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-invalid-base-type</span>: -<span id="L25645" class="LineNr">25645 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25646" class="LineNr">25646 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25647" class="LineNr">25647 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25648" class="LineNr">25648 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25649" class="LineNr">25649 </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="L25650" class="LineNr">25650 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L25651" class="LineNr">25651 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25652" class="LineNr">25652 </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="L25653" class="LineNr">25653 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25654" class="LineNr">25654 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25655" class="LineNr">25655 </span> <span class="subxComment"># never gets here</span> -<span id="L25656" class="LineNr">25656 </span> -<span id="L25657" class="LineNr">25657 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-too-few-inouts</span>: -<span id="L25658" class="LineNr">25658 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25659" class="LineNr">25659 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25660" class="LineNr">25660 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25661" class="LineNr">25661 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25662" class="LineNr">25662 </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="L25663" class="LineNr">25663 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25664" class="LineNr">25664 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25665" class="LineNr">25665 </span> <span class="subxComment"># never gets here</span> -<span id="L25666" class="LineNr">25666 </span> -<span id="L25667" class="LineNr">25667 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-target-type-not-address</span>: -<span id="L25668" class="LineNr">25668 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25669" class="LineNr">25669 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25670" class="LineNr">25670 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25671" class="LineNr">25671 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25672" class="LineNr">25672 </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="L25673" class="LineNr">25673 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L25674" class="LineNr">25674 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25675" class="LineNr">25675 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an addr\n"</span>) -<span id="L25676" class="LineNr">25676 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25677" class="LineNr">25677 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25678" class="LineNr">25678 </span> <span class="subxComment"># never gets here</span> -<span id="L25679" class="LineNr">25679 </span> -<span id="L25680" class="LineNr">25680 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-invalid-target-type</span>: -<span id="L25681" class="LineNr">25681 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25682" class="LineNr">25682 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25683" class="LineNr">25683 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25684" class="LineNr">25684 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25685" class="LineNr">25685 </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="L25686" class="LineNr">25686 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L25687" class="LineNr">25687 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25688" class="LineNr">25688 </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="L25689" class="LineNr">25689 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25690" class="LineNr">25690 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25691" class="LineNr">25691 </span> <span class="subxComment"># never gets here</span> -<span id="L25692" class="LineNr">25692 </span> -<span id="L25693" class="LineNr">25693 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-too-many-inouts</span>: -<span id="L25694" class="LineNr">25694 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25695" class="LineNr">25695 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25696" class="LineNr">25696 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25697" class="LineNr">25697 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25698" class="LineNr">25698 </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="L25699" class="LineNr">25699 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25700" class="LineNr">25700 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25701" class="LineNr">25701 </span> <span class="subxComment"># never gets here</span> -<span id="L25702" class="LineNr">25702 </span> -<span id="L25703" class="LineNr">25703 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-unexpected-output</span>: -<span id="L25704" class="LineNr">25704 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25705" class="LineNr">25705 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25706" class="LineNr">25706 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25707" class="LineNr">25707 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25708" class="LineNr">25708 </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="L25709" class="LineNr">25709 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25710" class="LineNr">25710 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25711" class="LineNr">25711 </span> <span class="subxComment"># never gets here</span> -<span id="L25712" class="LineNr">25712 </span> -<span id="L25713" class="LineNr">25713 </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="L25714" class="LineNr">25714 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L25715" class="LineNr">25715 </span> 55/push-ebp -<span id="L25716" class="LineNr">25716 </span> 89/<- %ebp 4/r32/esp -<span id="L25717" class="LineNr">25717 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L25718" class="LineNr">25718 </span> 50/push-eax -<span id="L25719" class="LineNr">25719 </span> 51/push-ecx -<span id="L25720" class="LineNr">25720 </span> 52/push-edx -<span id="L25721" class="LineNr">25721 </span> 53/push-ebx -<span id="L25722" class="LineNr">25722 </span> 56/push-esi -<span id="L25723" class="LineNr">25723 </span> 57/push-edi -<span id="L25724" class="LineNr">25724 </span> <span class="subxComment"># esi = stmt</span> -<span id="L25725" class="LineNr">25725 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L25726" class="LineNr">25726 </span> <span class="subxH1Comment"># - check for 0 inouts</span> -<span id="L25727" class="LineNr">25727 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> -<span id="L25728" class="LineNr">25728 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L25729" class="LineNr">25729 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-no-inouts</span>: -<span id="L25730" class="LineNr">25730 </span> 3d/compare-eax-and 0/imm32 -<span id="L25731" class="LineNr">25731 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-too-few-inouts/disp32 -<span id="L25732" class="LineNr">25732 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L25733" class="LineNr">25733 </span> 89/<- %ecx 0/r32/eax -<span id="L25734" class="LineNr">25734 </span> <span class="subxH1Comment"># - check base type is (addr stream T)</span> -<span id="L25735" class="LineNr">25735 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> -<span id="L25736" class="LineNr">25736 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L25737" class="LineNr">25737 </span> 89/<- %ebx 0/r32/eax -<span id="L25738" class="LineNr">25738 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-base-is-compound</span>: -<span id="L25739" class="LineNr">25739 </span> <span class="subxComment"># if base-type is an atom, abort</span> -<span id="L25740" class="LineNr">25740 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L25741" class="LineNr">25741 </span> 0f 85/jump-if-!= $check-mu-write-to-stream-stmt:error-invalid-base-type/disp32 -<span id="L25742" class="LineNr">25742 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-base-is-addr</span>: -<span id="L25743" class="LineNr">25743 </span> <span class="subxComment"># if type->left not addr, abort</span> -<span id="L25744" class="LineNr">25744 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L25745" class="LineNr">25745 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L25746" class="LineNr">25746 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25747" class="LineNr">25747 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-invalid-base-type/disp32 -<span id="L25748" class="LineNr">25748 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-base-is-addr-to-stream</span>: -<span id="L25749" class="LineNr">25749 </span> <span class="subxComment"># base-type = base-type->right</span> -<span id="L25750" class="LineNr">25750 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L25751" class="LineNr">25751 </span> 89/<- %ebx 0/r32/eax -<span id="L25752" class="LineNr">25752 </span> <span class="subxComment"># ensure base-type->left == stream</span> -<span id="L25753" class="LineNr">25753 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L25754" class="LineNr">25754 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 0xb) <span class="subxComment"># stream => eax</span> -<span id="L25755" class="LineNr">25755 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25756" class="LineNr">25756 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-invalid-base-type/disp32 -<span id="L25757" class="LineNr">25757 </span> <span class="subxH1Comment"># - check target type is (addr T)</span> -<span id="L25758" class="LineNr">25758 </span> <span class="subxComment"># var target/ecx: (addr stmt-var) = stmt->inouts->next->value</span> -<span id="L25759" class="LineNr">25759 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L25760" class="LineNr">25760 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L25761" class="LineNr">25761 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-single-inout</span>: -<span id="L25762" class="LineNr">25762 </span> 3d/compare-eax-and 0/imm32 -<span id="L25763" class="LineNr">25763 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-too-few-inouts/disp32 -<span id="L25764" class="LineNr">25764 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L25765" class="LineNr">25765 </span> 89/<- %ecx 0/r32/eax -<span id="L25766" class="LineNr">25766 </span> <span class="subxComment"># var target-type/edx: (addr type-tree)</span> -<span id="L25767" class="LineNr">25767 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L25768" class="LineNr">25768 </span> 89/<- %edx 0/r32/eax -<span id="L25769" class="LineNr">25769 </span> <span class="subxComment"># if target-type is an atom, it must be a literal or int</span> -<span id="L25770" class="LineNr">25770 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-target-is-compound</span>: -<span id="L25771" class="LineNr">25771 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L25772" class="LineNr">25772 </span> 0f 85/jump-if-!= $check-mu-write-to-stream-stmt:error-target-type-not-address/disp32 -<span id="L25773" class="LineNr">25773 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-target-type</span>: -<span id="L25774" class="LineNr">25774 </span> <span class="subxComment"># target type must start with (addr ...)</span> -<span id="L25775" class="LineNr">25775 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L25776" class="LineNr">25776 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L25611" class="LineNr">25611 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-invalid-base-type/disp32 +<span id="L25612" class="LineNr">25612 </span> <span class="subxH1Comment"># - check target type is (addr T)</span> +<span id="L25613" class="LineNr">25613 </span> <span class="subxComment"># var target/ecx: (addr stmt-var) = stmt->inouts->next->value</span> +<span id="L25614" class="LineNr">25614 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L25615" class="LineNr">25615 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L25616" class="LineNr">25616 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-single-inout</span>: +<span id="L25617" class="LineNr">25617 </span> 3d/compare-eax-and 0/imm32 +<span id="L25618" class="LineNr">25618 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-too-few-inouts/disp32 +<span id="L25619" class="LineNr">25619 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L25620" class="LineNr">25620 </span> 89/<- %ecx 0/r32/eax +<span id="L25621" class="LineNr">25621 </span> <span class="subxComment"># var target-type/edx: (addr type-tree)</span> +<span id="L25622" class="LineNr">25622 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L25623" class="LineNr">25623 </span> 89/<- %edx 0/r32/eax +<span id="L25624" class="LineNr">25624 </span> <span class="subxComment"># if target-type is an atom, it must be a literal or int</span> +<span id="L25625" class="LineNr">25625 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-target-is-compound</span>: +<span id="L25626" class="LineNr">25626 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L25627" class="LineNr">25627 </span> 0f 85/jump-if-!= $check-mu-read-from-stream-stmt:error-target-type-not-address/disp32 +<span id="L25628" class="LineNr">25628 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-target-type</span>: +<span id="L25629" class="LineNr">25629 </span> <span class="subxComment"># target type must start with (addr ...)</span> +<span id="L25630" class="LineNr">25630 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L25631" class="LineNr">25631 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L25632" class="LineNr">25632 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25633" class="LineNr">25633 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-target-type-not-address/disp32 +<span id="L25634" class="LineNr">25634 </span> <span class="subxComment"># if tail(base-type) != tail(target-type) abort</span> +<span id="L25635" class="LineNr">25635 </span> (<a href='mu.subx.html#L26843'>type-tail</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L25636" class="LineNr">25636 </span> 89/<- %ebx 0/r32/eax +<span id="L25637" class="LineNr">25637 </span> (<a href='mu.subx.html#L26843'>type-tail</a> %edx) <span class="subxComment"># => eax</span> +<span id="L25638" class="LineNr">25638 </span> (<a href='mu.subx.html#L26902'>type-equal?</a> %ebx %eax) <span class="subxComment"># => eax</span> +<span id="L25639" class="LineNr">25639 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25640" class="LineNr">25640 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-invalid-target-type/disp32 +<span id="L25641" class="LineNr">25641 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-too-many-inouts</span>: +<span id="L25642" class="LineNr">25642 </span> <span class="subxH1Comment"># - check for too many inouts</span> +<span id="L25643" class="LineNr">25643 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L25644" class="LineNr">25644 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L25645" class="LineNr">25645 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L25646" class="LineNr">25646 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25647" class="LineNr">25647 </span> 0f 85/jump-if-!= $check-mu-read-from-stream-stmt:error-too-many-inouts/disp32 +<span id="L25648" class="LineNr">25648 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-unexpected-output</span>: +<span id="L25649" class="LineNr">25649 </span> <span class="subxH1Comment"># - check for any output</span> +<span id="L25650" class="LineNr">25650 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L25651" class="LineNr">25651 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25652" class="LineNr">25652 </span> 0f 85/jump-if-!= $check-mu-read-from-stream-stmt:error-unexpected-output/disp32 +<span id="L25653" class="LineNr">25653 </span><span class="Constant">$check-mu-read-from-stream-stmt:end</span>: +<span id="L25654" class="LineNr">25654 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L25655" class="LineNr">25655 </span> 5f/pop-to-edi +<span id="L25656" class="LineNr">25656 </span> 5e/pop-to-esi +<span id="L25657" class="LineNr">25657 </span> 5b/pop-to-ebx +<span id="L25658" class="LineNr">25658 </span> 5a/pop-to-edx +<span id="L25659" class="LineNr">25659 </span> 59/pop-to-ecx +<span id="L25660" class="LineNr">25660 </span> 58/pop-to-eax +<span id="L25661" class="LineNr">25661 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L25662" class="LineNr">25662 </span> 89/<- %esp 5/r32/ebp +<span id="L25663" class="LineNr">25663 </span> 5d/pop-to-ebp +<span id="L25664" class="LineNr">25664 </span> c3/return +<span id="L25665" class="LineNr">25665 </span> +<span id="L25666" class="LineNr">25666 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-invalid-base-type</span>: +<span id="L25667" class="LineNr">25667 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25668" class="LineNr">25668 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25669" class="LineNr">25669 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25670" class="LineNr">25670 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25671" class="LineNr">25671 </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="L25672" class="LineNr">25672 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L25673" class="LineNr">25673 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25674" class="LineNr">25674 </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="L25675" class="LineNr">25675 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25676" class="LineNr">25676 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25677" class="LineNr">25677 </span> <span class="subxComment"># never gets here</span> +<span id="L25678" class="LineNr">25678 </span> +<span id="L25679" class="LineNr">25679 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-too-few-inouts</span>: +<span id="L25680" class="LineNr">25680 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25681" class="LineNr">25681 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25682" class="LineNr">25682 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25683" class="LineNr">25683 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25684" class="LineNr">25684 </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="L25685" class="LineNr">25685 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25686" class="LineNr">25686 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25687" class="LineNr">25687 </span> <span class="subxComment"># never gets here</span> +<span id="L25688" class="LineNr">25688 </span> +<span id="L25689" class="LineNr">25689 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-target-type-not-address</span>: +<span id="L25690" class="LineNr">25690 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25691" class="LineNr">25691 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25692" class="LineNr">25692 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25693" class="LineNr">25693 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25694" class="LineNr">25694 </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="L25695" class="LineNr">25695 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L25696" class="LineNr">25696 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25697" class="LineNr">25697 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an addr\n"</span>) +<span id="L25698" class="LineNr">25698 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25699" class="LineNr">25699 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25700" class="LineNr">25700 </span> <span class="subxComment"># never gets here</span> +<span id="L25701" class="LineNr">25701 </span> +<span id="L25702" class="LineNr">25702 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-invalid-target-type</span>: +<span id="L25703" class="LineNr">25703 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25704" class="LineNr">25704 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25705" class="LineNr">25705 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25706" class="LineNr">25706 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25707" class="LineNr">25707 </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="L25708" class="LineNr">25708 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L25709" class="LineNr">25709 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25710" class="LineNr">25710 </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="L25711" class="LineNr">25711 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25712" class="LineNr">25712 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25713" class="LineNr">25713 </span> <span class="subxComment"># never gets here</span> +<span id="L25714" class="LineNr">25714 </span> +<span id="L25715" class="LineNr">25715 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-too-many-inouts</span>: +<span id="L25716" class="LineNr">25716 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25717" class="LineNr">25717 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25718" class="LineNr">25718 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25719" class="LineNr">25719 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25720" class="LineNr">25720 </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="L25721" class="LineNr">25721 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25722" class="LineNr">25722 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25723" class="LineNr">25723 </span> <span class="subxComment"># never gets here</span> +<span id="L25724" class="LineNr">25724 </span> +<span id="L25725" class="LineNr">25725 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-unexpected-output</span>: +<span id="L25726" class="LineNr">25726 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25727" class="LineNr">25727 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25728" class="LineNr">25728 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25729" class="LineNr">25729 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25730" class="LineNr">25730 </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="L25731" class="LineNr">25731 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25732" class="LineNr">25732 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25733" class="LineNr">25733 </span> <span class="subxComment"># never gets here</span> +<span id="L25734" class="LineNr">25734 </span> +<span id="L25735" class="LineNr">25735 </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="L25736" class="LineNr">25736 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L25737" class="LineNr">25737 </span> 55/push-ebp +<span id="L25738" class="LineNr">25738 </span> 89/<- %ebp 4/r32/esp +<span id="L25739" class="LineNr">25739 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L25740" class="LineNr">25740 </span> 50/push-eax +<span id="L25741" class="LineNr">25741 </span> 51/push-ecx +<span id="L25742" class="LineNr">25742 </span> 52/push-edx +<span id="L25743" class="LineNr">25743 </span> 53/push-ebx +<span id="L25744" class="LineNr">25744 </span> 56/push-esi +<span id="L25745" class="LineNr">25745 </span> 57/push-edi +<span id="L25746" class="LineNr">25746 </span> <span class="subxComment"># esi = stmt</span> +<span id="L25747" class="LineNr">25747 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L25748" class="LineNr">25748 </span> <span class="subxH1Comment"># - check for 0 inouts</span> +<span id="L25749" class="LineNr">25749 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> +<span id="L25750" class="LineNr">25750 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L25751" class="LineNr">25751 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-no-inouts</span>: +<span id="L25752" class="LineNr">25752 </span> 3d/compare-eax-and 0/imm32 +<span id="L25753" class="LineNr">25753 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-too-few-inouts/disp32 +<span id="L25754" class="LineNr">25754 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L25755" class="LineNr">25755 </span> 89/<- %ecx 0/r32/eax +<span id="L25756" class="LineNr">25756 </span> <span class="subxH1Comment"># - check base type is (addr stream T)</span> +<span id="L25757" class="LineNr">25757 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> +<span id="L25758" class="LineNr">25758 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L25759" class="LineNr">25759 </span> 89/<- %ebx 0/r32/eax +<span id="L25760" class="LineNr">25760 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-base-is-compound</span>: +<span id="L25761" class="LineNr">25761 </span> <span class="subxComment"># if base-type is an atom, abort</span> +<span id="L25762" class="LineNr">25762 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L25763" class="LineNr">25763 </span> 0f 85/jump-if-!= $check-mu-write-to-stream-stmt:error-invalid-base-type/disp32 +<span id="L25764" class="LineNr">25764 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-base-is-addr</span>: +<span id="L25765" class="LineNr">25765 </span> <span class="subxComment"># if type->left not addr, abort</span> +<span id="L25766" class="LineNr">25766 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L25767" class="LineNr">25767 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L25768" class="LineNr">25768 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25769" class="LineNr">25769 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-invalid-base-type/disp32 +<span id="L25770" class="LineNr">25770 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-base-is-addr-to-stream</span>: +<span id="L25771" class="LineNr">25771 </span> <span class="subxComment"># base-type = base-type->right</span> +<span id="L25772" class="LineNr">25772 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L25773" class="LineNr">25773 </span> 89/<- %ebx 0/r32/eax +<span id="L25774" class="LineNr">25774 </span> <span class="subxComment"># ensure base-type->left == stream</span> +<span id="L25775" class="LineNr">25775 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L25776" class="LineNr">25776 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 0xb) <span class="subxComment"># stream => eax</span> <span id="L25777" class="LineNr">25777 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25778" class="LineNr">25778 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-target-type-not-address/disp32 -<span id="L25779" class="LineNr">25779 </span> <span class="subxComment"># if tail(base-type) != tail(target-type) abort</span> -<span id="L25780" class="LineNr">25780 </span> (<a href='mu.subx.html#L26821'>type-tail</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L25781" class="LineNr">25781 </span> 89/<- %ebx 0/r32/eax -<span id="L25782" class="LineNr">25782 </span> (<a href='mu.subx.html#L26821'>type-tail</a> %edx) <span class="subxComment"># => eax</span> -<span id="L25783" class="LineNr">25783 </span> (<a href='mu.subx.html#L26880'>type-equal?</a> %ebx %eax) <span class="subxComment"># => eax</span> -<span id="L25784" class="LineNr">25784 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25785" class="LineNr">25785 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-invalid-target-type/disp32 -<span id="L25786" class="LineNr">25786 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-too-many-inouts</span>: -<span id="L25787" class="LineNr">25787 </span> <span class="subxH1Comment"># - check for too many inouts</span> -<span id="L25788" class="LineNr">25788 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L25789" class="LineNr">25789 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L25790" class="LineNr">25790 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L25791" class="LineNr">25791 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25792" class="LineNr">25792 </span> 0f 85/jump-if-!= $check-mu-write-to-stream-stmt:error-too-many-inouts/disp32 -<span id="L25793" class="LineNr">25793 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-unexpected-output</span>: -<span id="L25794" class="LineNr">25794 </span> <span class="subxH1Comment"># - check for any output</span> -<span id="L25795" class="LineNr">25795 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L25796" class="LineNr">25796 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25797" class="LineNr">25797 </span> 0f 85/jump-if-!= $check-mu-write-to-stream-stmt:error-unexpected-output/disp32 -<span id="L25798" class="LineNr">25798 </span><span class="Constant">$check-mu-write-to-stream-stmt:end</span>: -<span id="L25799" class="LineNr">25799 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L25800" class="LineNr">25800 </span> 5f/pop-to-edi -<span id="L25801" class="LineNr">25801 </span> 5e/pop-to-esi -<span id="L25802" class="LineNr">25802 </span> 5b/pop-to-ebx -<span id="L25803" class="LineNr">25803 </span> 5a/pop-to-edx -<span id="L25804" class="LineNr">25804 </span> 59/pop-to-ecx -<span id="L25805" class="LineNr">25805 </span> 58/pop-to-eax -<span id="L25806" class="LineNr">25806 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L25807" class="LineNr">25807 </span> 89/<- %esp 5/r32/ebp -<span id="L25808" class="LineNr">25808 </span> 5d/pop-to-ebp -<span id="L25809" class="LineNr">25809 </span> c3/return -<span id="L25810" class="LineNr">25810 </span> -<span id="L25811" class="LineNr">25811 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-invalid-base-type</span>: -<span id="L25812" class="LineNr">25812 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25813" class="LineNr">25813 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25814" class="LineNr">25814 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25815" class="LineNr">25815 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25816" class="LineNr">25816 </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="L25817" class="LineNr">25817 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L25818" class="LineNr">25818 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25819" class="LineNr">25819 </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="L25820" class="LineNr">25820 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25821" class="LineNr">25821 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25822" class="LineNr">25822 </span> <span class="subxComment"># never gets here</span> -<span id="L25823" class="LineNr">25823 </span> -<span id="L25824" class="LineNr">25824 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-too-few-inouts</span>: -<span id="L25825" class="LineNr">25825 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25826" class="LineNr">25826 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25827" class="LineNr">25827 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25828" class="LineNr">25828 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25829" class="LineNr">25829 </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="L25830" class="LineNr">25830 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25831" class="LineNr">25831 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25832" class="LineNr">25832 </span> <span class="subxComment"># never gets here</span> -<span id="L25833" class="LineNr">25833 </span> -<span id="L25834" class="LineNr">25834 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-target-type-not-address</span>: -<span id="L25835" class="LineNr">25835 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25836" class="LineNr">25836 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25837" class="LineNr">25837 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25838" class="LineNr">25838 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25839" class="LineNr">25839 </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="L25840" class="LineNr">25840 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L25841" class="LineNr">25841 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25842" class="LineNr">25842 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an addr\n"</span>) -<span id="L25843" class="LineNr">25843 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25844" class="LineNr">25844 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25845" class="LineNr">25845 </span> <span class="subxComment"># never gets here</span> -<span id="L25846" class="LineNr">25846 </span> -<span id="L25847" class="LineNr">25847 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-invalid-target-type</span>: -<span id="L25848" class="LineNr">25848 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25849" class="LineNr">25849 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25850" class="LineNr">25850 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25851" class="LineNr">25851 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25852" class="LineNr">25852 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='309stream.subx.html#L54'>write-to-stream</a>: second inout '"</span>) -<span id="L25853" class="LineNr">25853 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L25854" class="LineNr">25854 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25855" class="LineNr">25855 </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="L25856" class="LineNr">25856 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25857" class="LineNr">25857 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25858" class="LineNr">25858 </span> <span class="subxComment"># never gets here</span> -<span id="L25859" class="LineNr">25859 </span> -<span id="L25860" class="LineNr">25860 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-too-many-inouts</span>: -<span id="L25861" class="LineNr">25861 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25862" class="LineNr">25862 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25863" class="LineNr">25863 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25864" class="LineNr">25864 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25865" class="LineNr">25865 </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="L25866" class="LineNr">25866 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25867" class="LineNr">25867 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25868" class="LineNr">25868 </span> <span class="subxComment"># never gets here</span> -<span id="L25869" class="LineNr">25869 </span> -<span id="L25870" class="LineNr">25870 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-unexpected-output</span>: -<span id="L25871" class="LineNr">25871 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25872" class="LineNr">25872 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25873" class="LineNr">25873 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25874" class="LineNr">25874 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25875" class="LineNr">25875 </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="L25876" class="LineNr">25876 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25877" class="LineNr">25877 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25878" class="LineNr">25878 </span> <span class="subxComment"># never gets here</span> -<span id="L25879" class="LineNr">25879 </span> -<span id="L25880" class="LineNr">25880 </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="L25881" class="LineNr">25881 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L25882" class="LineNr">25882 </span> 55/push-ebp -<span id="L25883" class="LineNr">25883 </span> 89/<- %ebp 4/r32/esp -<span id="L25884" class="LineNr">25884 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L25885" class="LineNr">25885 </span> 50/push-eax -<span id="L25886" class="LineNr">25886 </span> 51/push-ecx -<span id="L25887" class="LineNr">25887 </span> 52/push-edx -<span id="L25888" class="LineNr">25888 </span> 56/push-esi -<span id="L25889" class="LineNr">25889 </span> 57/push-edi -<span id="L25890" class="LineNr">25890 </span><span class="Constant">$check-mu-convert-stmt:get-output</span>: -<span id="L25891" class="LineNr">25891 </span> <span class="subxComment"># esi = stmt</span> -<span id="L25892" class="LineNr">25892 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L25893" class="LineNr">25893 </span> <span class="subxComment"># var output/edi: (addr stmt-var) = stmt->outputs</span> -<span id="L25894" class="LineNr">25894 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L25895" class="LineNr">25895 </span> 89/<- %edi 0/r32/eax -<span id="L25896" class="LineNr">25896 </span> <span class="subxComment"># zero outputs</span> -<span id="L25897" class="LineNr">25897 </span> 3d/compare-eax-and 0/imm32 -<span id="L25898" class="LineNr">25898 </span> 0f 84/jump-if-= $check-mu-convert-stmt:error-no-output/disp32 -<span id="L25899" class="LineNr">25899 </span> <span class="subxComment"># > 1 output</span> -<span id="L25900" class="LineNr">25900 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L25901" class="LineNr">25901 </span> 3d/compare-eax-and 0/imm32 -<span id="L25902" class="LineNr">25902 </span> 0f 85/jump-if-!= $check-mu-convert-stmt:error-too-many-outputs/disp32 -<span id="L25903" class="LineNr">25903 </span><span class="Constant">$check-mu-convert-stmt:get-inout</span>: -<span id="L25904" class="LineNr">25904 </span> <span class="subxComment"># var inout/esi: (addr stmt-var) = stmt->inouts</span> -<span id="L25905" class="LineNr">25905 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L25906" class="LineNr">25906 </span> 89/<- %esi 0/r32/eax -<span id="L25907" class="LineNr">25907 </span> <span class="subxComment"># zero inouts</span> -<span id="L25908" class="LineNr">25908 </span> 3d/compare-eax-and 0/imm32 -<span id="L25909" class="LineNr">25909 </span> 0f 84/jump-if-= $check-mu-convert-stmt:error-no-inout/disp32 -<span id="L25910" class="LineNr">25910 </span> <span class="subxComment"># > 1 inout</span> -<span id="L25911" class="LineNr">25911 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L25912" class="LineNr">25912 </span> 3d/compare-eax-and 0/imm32 -<span id="L25913" class="LineNr">25913 </span> 0f 85/jump-if-!= $check-mu-convert-stmt:error-too-many-inouts/disp32 -<span id="L25914" class="LineNr">25914 </span><span class="Constant">$check-mu-convert-stmt:types</span>: -<span id="L25915" class="LineNr">25915 </span> <span class="subxComment"># var inout-type/ecx: (addr type-tree) = inout->value->type</span> -<span id="L25916" class="LineNr">25916 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L25917" class="LineNr">25917 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L25918" class="LineNr">25918 </span> 89/<- %ecx 0/r32/eax -<span id="L25919" class="LineNr">25919 </span> <span class="subxComment"># if (inout->is-deref?) inout-type = inout-type->payload</span> -<span id="L25920" class="LineNr">25920 </span> 8b/-> *(esi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L25921" class="LineNr">25921 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25922" class="LineNr">25922 </span> { -<span id="L25923" class="LineNr">25923 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L25924" class="LineNr">25924 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L25925" class="LineNr">25925 </span> <span class="subxComment"># if inout-type->right is null, t = inout-type->left</span> -<span id="L25926" class="LineNr">25926 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L25927" class="LineNr">25927 </span> { -<span id="L25928" class="LineNr">25928 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L25929" class="LineNr">25929 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L25930" class="LineNr">25930 </span> } -<span id="L25931" class="LineNr">25931 </span> 89/<- %ecx 0/r32/eax -<span id="L25932" class="LineNr">25932 </span> } -<span id="L25933" class="LineNr">25933 </span> <span class="subxComment"># if input is not int or float, abort</span> -<span id="L25934" class="LineNr">25934 </span> { -<span id="L25935" class="LineNr">25935 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %ecx 1) <span class="subxComment"># int => eax</span> -<span id="L25936" class="LineNr">25936 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25937" class="LineNr">25937 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L25938" class="LineNr">25938 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %ecx 0xf) <span class="subxComment"># float => eax</span> -<span id="L25939" class="LineNr">25939 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25940" class="LineNr">25940 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L25941" class="LineNr">25941 </span> e9/jump $check-mu-convert-stmt:error-invalid-inout-type/disp32 -<span id="L25942" class="LineNr">25942 </span> } -<span id="L25943" class="LineNr">25943 </span> <span class="subxComment"># if output not in register, abort</span> -<span id="L25944" class="LineNr">25944 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L25945" class="LineNr">25945 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L25946" class="LineNr">25946 </span> 3d/compare-eax-and 0/imm32 -<span id="L25947" class="LineNr">25947 </span> 0f 84/jump-if-= $check-mu-convert-stmt:error-output-not-in-register/disp32 -<span id="L25948" class="LineNr">25948 </span> <span class="subxComment"># var output-type/edx: (addr type-tree) = output->value->type</span> -<span id="L25949" class="LineNr">25949 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L25950" class="LineNr">25950 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L25951" class="LineNr">25951 </span> 89/<- %edx 0/r32/eax -<span id="L25952" class="LineNr">25952 </span> <span class="subxComment"># if output is not int or float, abort</span> -<span id="L25953" class="LineNr">25953 </span> { -<span id="L25954" class="LineNr">25954 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %edx 1) <span class="subxComment"># int => eax</span> -<span id="L25955" class="LineNr">25955 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25956" class="LineNr">25956 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L25957" class="LineNr">25957 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %edx 0xf) <span class="subxComment"># float => eax</span> +<span id="L25778" class="LineNr">25778 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-invalid-base-type/disp32 +<span id="L25779" class="LineNr">25779 </span> <span class="subxH1Comment"># - check target type is (addr T)</span> +<span id="L25780" class="LineNr">25780 </span> <span class="subxComment"># var target/ecx: (addr stmt-var) = stmt->inouts->next->value</span> +<span id="L25781" class="LineNr">25781 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L25782" class="LineNr">25782 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L25783" class="LineNr">25783 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-single-inout</span>: +<span id="L25784" class="LineNr">25784 </span> 3d/compare-eax-and 0/imm32 +<span id="L25785" class="LineNr">25785 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-too-few-inouts/disp32 +<span id="L25786" class="LineNr">25786 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L25787" class="LineNr">25787 </span> 89/<- %ecx 0/r32/eax +<span id="L25788" class="LineNr">25788 </span> <span class="subxComment"># var target-type/edx: (addr type-tree)</span> +<span id="L25789" class="LineNr">25789 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L25790" class="LineNr">25790 </span> 89/<- %edx 0/r32/eax +<span id="L25791" class="LineNr">25791 </span> <span class="subxComment"># if target-type is an atom, it must be a literal or int</span> +<span id="L25792" class="LineNr">25792 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-target-is-compound</span>: +<span id="L25793" class="LineNr">25793 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L25794" class="LineNr">25794 </span> 0f 85/jump-if-!= $check-mu-write-to-stream-stmt:error-target-type-not-address/disp32 +<span id="L25795" class="LineNr">25795 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-target-type</span>: +<span id="L25796" class="LineNr">25796 </span> <span class="subxComment"># target type must start with (addr ...)</span> +<span id="L25797" class="LineNr">25797 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L25798" class="LineNr">25798 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L25799" class="LineNr">25799 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25800" class="LineNr">25800 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-target-type-not-address/disp32 +<span id="L25801" class="LineNr">25801 </span> <span class="subxComment"># if tail(base-type) != tail(target-type) abort</span> +<span id="L25802" class="LineNr">25802 </span> (<a href='mu.subx.html#L26843'>type-tail</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L25803" class="LineNr">25803 </span> 89/<- %ebx 0/r32/eax +<span id="L25804" class="LineNr">25804 </span> (<a href='mu.subx.html#L26843'>type-tail</a> %edx) <span class="subxComment"># => eax</span> +<span id="L25805" class="LineNr">25805 </span> (<a href='mu.subx.html#L26902'>type-equal?</a> %ebx %eax) <span class="subxComment"># => eax</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-= $check-mu-write-to-stream-stmt:error-invalid-target-type/disp32 +<span id="L25808" class="LineNr">25808 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-too-many-inouts</span>: +<span id="L25809" class="LineNr">25809 </span> <span class="subxH1Comment"># - check for too many inouts</span> +<span id="L25810" class="LineNr">25810 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L25811" class="LineNr">25811 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L25812" class="LineNr">25812 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L25813" class="LineNr">25813 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25814" class="LineNr">25814 </span> 0f 85/jump-if-!= $check-mu-write-to-stream-stmt:error-too-many-inouts/disp32 +<span id="L25815" class="LineNr">25815 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-unexpected-output</span>: +<span id="L25816" class="LineNr">25816 </span> <span class="subxH1Comment"># - check for any output</span> +<span id="L25817" class="LineNr">25817 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L25818" class="LineNr">25818 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25819" class="LineNr">25819 </span> 0f 85/jump-if-!= $check-mu-write-to-stream-stmt:error-unexpected-output/disp32 +<span id="L25820" class="LineNr">25820 </span><span class="Constant">$check-mu-write-to-stream-stmt:end</span>: +<span id="L25821" class="LineNr">25821 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L25822" class="LineNr">25822 </span> 5f/pop-to-edi +<span id="L25823" class="LineNr">25823 </span> 5e/pop-to-esi +<span id="L25824" class="LineNr">25824 </span> 5b/pop-to-ebx +<span id="L25825" class="LineNr">25825 </span> 5a/pop-to-edx +<span id="L25826" class="LineNr">25826 </span> 59/pop-to-ecx +<span id="L25827" class="LineNr">25827 </span> 58/pop-to-eax +<span id="L25828" class="LineNr">25828 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L25829" class="LineNr">25829 </span> 89/<- %esp 5/r32/ebp +<span id="L25830" class="LineNr">25830 </span> 5d/pop-to-ebp +<span id="L25831" class="LineNr">25831 </span> c3/return +<span id="L25832" class="LineNr">25832 </span> +<span id="L25833" class="LineNr">25833 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-invalid-base-type</span>: +<span id="L25834" class="LineNr">25834 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25835" class="LineNr">25835 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25836" class="LineNr">25836 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25837" class="LineNr">25837 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25838" class="LineNr">25838 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='309stream.subx.html#L54'>write-to-stream</a>: var '"</span>) +<span id="L25839" class="LineNr">25839 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L25840" class="LineNr">25840 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25841" class="LineNr">25841 </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="L25842" class="LineNr">25842 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25843" class="LineNr">25843 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25844" class="LineNr">25844 </span> <span class="subxComment"># never gets here</span> +<span id="L25845" class="LineNr">25845 </span> +<span id="L25846" class="LineNr">25846 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-too-few-inouts</span>: +<span id="L25847" class="LineNr">25847 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25848" class="LineNr">25848 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25849" class="LineNr">25849 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25850" class="LineNr">25850 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25851" class="LineNr">25851 </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="L25852" class="LineNr">25852 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25853" class="LineNr">25853 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25854" class="LineNr">25854 </span> <span class="subxComment"># never gets here</span> +<span id="L25855" class="LineNr">25855 </span> +<span id="L25856" class="LineNr">25856 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-target-type-not-address</span>: +<span id="L25857" class="LineNr">25857 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25858" class="LineNr">25858 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25859" class="LineNr">25859 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25860" class="LineNr">25860 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25861" class="LineNr">25861 </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="L25862" class="LineNr">25862 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L25863" class="LineNr">25863 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25864" class="LineNr">25864 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an addr\n"</span>) +<span id="L25865" class="LineNr">25865 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25866" class="LineNr">25866 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25867" class="LineNr">25867 </span> <span class="subxComment"># never gets here</span> +<span id="L25868" class="LineNr">25868 </span> +<span id="L25869" class="LineNr">25869 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-invalid-target-type</span>: +<span id="L25870" class="LineNr">25870 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25871" class="LineNr">25871 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25872" class="LineNr">25872 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25873" class="LineNr">25873 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25874" class="LineNr">25874 </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="L25875" class="LineNr">25875 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L25876" class="LineNr">25876 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25877" class="LineNr">25877 </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="L25878" class="LineNr">25878 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25879" class="LineNr">25879 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25880" class="LineNr">25880 </span> <span class="subxComment"># never gets here</span> +<span id="L25881" class="LineNr">25881 </span> +<span id="L25882" class="LineNr">25882 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-too-many-inouts</span>: +<span id="L25883" class="LineNr">25883 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25884" class="LineNr">25884 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25885" class="LineNr">25885 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25886" class="LineNr">25886 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25887" class="LineNr">25887 </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="L25888" class="LineNr">25888 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25889" class="LineNr">25889 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25890" class="LineNr">25890 </span> <span class="subxComment"># never gets here</span> +<span id="L25891" class="LineNr">25891 </span> +<span id="L25892" class="LineNr">25892 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-unexpected-output</span>: +<span id="L25893" class="LineNr">25893 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</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#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25896" class="LineNr">25896 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25897" class="LineNr">25897 </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="L25898" class="LineNr">25898 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25899" class="LineNr">25899 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25900" class="LineNr">25900 </span> <span class="subxComment"># never gets here</span> +<span id="L25901" class="LineNr">25901 </span> +<span id="L25902" class="LineNr">25902 </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="L25903" class="LineNr">25903 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L25904" class="LineNr">25904 </span> 55/push-ebp +<span id="L25905" class="LineNr">25905 </span> 89/<- %ebp 4/r32/esp +<span id="L25906" class="LineNr">25906 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L25907" class="LineNr">25907 </span> 50/push-eax +<span id="L25908" class="LineNr">25908 </span> 51/push-ecx +<span id="L25909" class="LineNr">25909 </span> 52/push-edx +<span id="L25910" class="LineNr">25910 </span> 56/push-esi +<span id="L25911" class="LineNr">25911 </span> 57/push-edi +<span id="L25912" class="LineNr">25912 </span><span class="Constant">$check-mu-convert-stmt:get-output</span>: +<span id="L25913" class="LineNr">25913 </span> <span class="subxComment"># esi = stmt</span> +<span id="L25914" class="LineNr">25914 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L25915" class="LineNr">25915 </span> <span class="subxComment"># var output/edi: (addr stmt-var) = stmt->outputs</span> +<span id="L25916" class="LineNr">25916 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L25917" class="LineNr">25917 </span> 89/<- %edi 0/r32/eax +<span id="L25918" class="LineNr">25918 </span> <span class="subxComment"># zero outputs</span> +<span id="L25919" class="LineNr">25919 </span> 3d/compare-eax-and 0/imm32 +<span id="L25920" class="LineNr">25920 </span> 0f 84/jump-if-= $check-mu-convert-stmt:error-no-output/disp32 +<span id="L25921" class="LineNr">25921 </span> <span class="subxComment"># > 1 output</span> +<span id="L25922" class="LineNr">25922 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L25923" class="LineNr">25923 </span> 3d/compare-eax-and 0/imm32 +<span id="L25924" class="LineNr">25924 </span> 0f 85/jump-if-!= $check-mu-convert-stmt:error-too-many-outputs/disp32 +<span id="L25925" class="LineNr">25925 </span><span class="Constant">$check-mu-convert-stmt:get-inout</span>: +<span id="L25926" class="LineNr">25926 </span> <span class="subxComment"># var inout/esi: (addr stmt-var) = stmt->inouts</span> +<span id="L25927" class="LineNr">25927 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L25928" class="LineNr">25928 </span> 89/<- %esi 0/r32/eax +<span id="L25929" class="LineNr">25929 </span> <span class="subxComment"># zero inouts</span> +<span id="L25930" class="LineNr">25930 </span> 3d/compare-eax-and 0/imm32 +<span id="L25931" class="LineNr">25931 </span> 0f 84/jump-if-= $check-mu-convert-stmt:error-no-inout/disp32 +<span id="L25932" class="LineNr">25932 </span> <span class="subxComment"># > 1 inout</span> +<span id="L25933" class="LineNr">25933 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L25934" class="LineNr">25934 </span> 3d/compare-eax-and 0/imm32 +<span id="L25935" class="LineNr">25935 </span> 0f 85/jump-if-!= $check-mu-convert-stmt:error-too-many-inouts/disp32 +<span id="L25936" class="LineNr">25936 </span><span class="Constant">$check-mu-convert-stmt:types</span>: +<span id="L25937" class="LineNr">25937 </span> <span class="subxComment"># var inout-type/ecx: (addr type-tree) = inout->value->type</span> +<span id="L25938" class="LineNr">25938 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L25939" class="LineNr">25939 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L25940" class="LineNr">25940 </span> 89/<- %ecx 0/r32/eax +<span id="L25941" class="LineNr">25941 </span> <span class="subxComment"># if (inout->is-deref?) inout-type = inout-type->payload</span> +<span id="L25942" class="LineNr">25942 </span> 8b/-> *(esi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L25943" class="LineNr">25943 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25944" class="LineNr">25944 </span> { +<span id="L25945" class="LineNr">25945 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L25946" class="LineNr">25946 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L25947" class="LineNr">25947 </span> <span class="subxComment"># if inout-type->right is null, t = inout-type->left</span> +<span id="L25948" class="LineNr">25948 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L25949" class="LineNr">25949 </span> { +<span id="L25950" class="LineNr">25950 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L25951" class="LineNr">25951 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L25952" class="LineNr">25952 </span> } +<span id="L25953" class="LineNr">25953 </span> 89/<- %ecx 0/r32/eax +<span id="L25954" class="LineNr">25954 </span> } +<span id="L25955" class="LineNr">25955 </span> <span class="subxComment"># if input is not int or float, abort</span> +<span id="L25956" class="LineNr">25956 </span> { +<span id="L25957" class="LineNr">25957 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %ecx 1) <span class="subxComment"># int => eax</span> <span id="L25958" class="LineNr">25958 </span> 3d/compare-eax-and 0/imm32/false <span id="L25959" class="LineNr">25959 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L25960" class="LineNr">25960 </span> e9/jump $check-mu-convert-stmt:error-invalid-output-type/disp32 -<span id="L25961" class="LineNr">25961 </span> } -<span id="L25962" class="LineNr">25962 </span> <span class="subxComment"># if both are ints, abort</span> -<span id="L25963" class="LineNr">25963 </span> { -<span id="L25964" class="LineNr">25964 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %edx 1) <span class="subxComment"># int => eax</span> -<span id="L25965" class="LineNr">25965 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25966" class="LineNr">25966 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L25967" class="LineNr">25967 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %ecx 1) <span class="subxComment"># int => eax</span> -<span id="L25968" class="LineNr">25968 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25969" class="LineNr">25969 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L25970" class="LineNr">25970 </span> e9/jump $check-mu-convert-stmt:error-int-to-int/disp32 -<span id="L25971" class="LineNr">25971 </span> } -<span id="L25972" class="LineNr">25972 </span> <span class="subxComment"># if both are floats, abort</span> -<span id="L25973" class="LineNr">25973 </span> { -<span id="L25974" class="LineNr">25974 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %edx 0xf) <span class="subxComment"># float => eax</span> -<span id="L25975" class="LineNr">25975 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25976" class="LineNr">25976 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L25977" class="LineNr">25977 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %ecx 0xf) <span class="subxComment"># float => eax</span> -<span id="L25978" class="LineNr">25978 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25979" class="LineNr">25979 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L25980" class="LineNr">25980 </span> e9/jump $check-mu-convert-stmt:error-float-to-float/disp32 -<span id="L25981" class="LineNr">25981 </span> } -<span id="L25982" class="LineNr">25982 </span><span class="Constant">$check-mu-convert-stmt:end</span>: -<span id="L25983" class="LineNr">25983 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L25984" class="LineNr">25984 </span> 5f/pop-to-edi -<span id="L25985" class="LineNr">25985 </span> 5e/pop-to-esi -<span id="L25986" class="LineNr">25986 </span> 5a/pop-to-edx -<span id="L25987" class="LineNr">25987 </span> 59/pop-to-ecx -<span id="L25988" class="LineNr">25988 </span> 58/pop-to-eax -<span id="L25989" class="LineNr">25989 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L25990" class="LineNr">25990 </span> 89/<- %esp 5/r32/ebp -<span id="L25991" class="LineNr">25991 </span> 5d/pop-to-ebp -<span id="L25992" class="LineNr">25992 </span> c3/return -<span id="L25993" class="LineNr">25993 </span> -<span id="L25994" class="LineNr">25994 </span><span class="Constant">$check-mu-convert-stmt:error-no-inout</span>: -<span id="L25995" class="LineNr">25995 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25996" class="LineNr">25996 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25997" class="LineNr">25997 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25998" class="LineNr">25998 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25999" class="LineNr">25999 </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="L26000" class="LineNr">26000 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L26001" class="LineNr">26001 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L26002" class="LineNr">26002 </span> <span class="subxComment"># never gets here</span> -<span id="L26003" class="LineNr">26003 </span> -<span id="L26004" class="LineNr">26004 </span><span class="Constant">$check-mu-convert-stmt:error-too-many-inouts</span>: -<span id="L26005" class="LineNr">26005 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L26006" class="LineNr">26006 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L26007" class="LineNr">26007 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26008" class="LineNr">26008 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L26009" class="LineNr">26009 </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="L26010" class="LineNr">26010 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L26011" class="LineNr">26011 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L26012" class="LineNr">26012 </span> <span class="subxComment"># never gets here</span> -<span id="L26013" class="LineNr">26013 </span> -<span id="L26014" class="LineNr">26014 </span><span class="Constant">$check-mu-convert-stmt:error-no-output</span>: -<span id="L26015" class="LineNr">26015 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L26016" class="LineNr">26016 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L26017" class="LineNr">26017 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26018" class="LineNr">26018 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L26019" class="LineNr">26019 </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="L26020" class="LineNr">26020 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L26021" class="LineNr">26021 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L26022" class="LineNr">26022 </span> <span class="subxComment"># never gets here</span> -<span id="L26023" class="LineNr">26023 </span> -<span id="L26024" class="LineNr">26024 </span><span class="Constant">$check-mu-convert-stmt:error-output-not-in-register</span>: -<span id="L26025" class="LineNr">26025 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L26026" class="LineNr">26026 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L26027" class="LineNr">26027 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26028" class="LineNr">26028 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L26029" class="LineNr">26029 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt convert: output '"</span>) -<span id="L26030" class="LineNr">26030 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L26031" class="LineNr">26031 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L26032" class="LineNr">26032 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L26033" class="LineNr">26033 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' not in a register\n"</span>) -<span id="L26034" class="LineNr">26034 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L26035" class="LineNr">26035 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L26036" class="LineNr">26036 </span> <span class="subxComment"># never gets here</span> -<span id="L26037" class="LineNr">26037 </span> -<span id="L26038" class="LineNr">26038 </span><span class="Constant">$check-mu-convert-stmt:error-too-many-outputs</span>: -<span id="L26039" class="LineNr">26039 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L26040" class="LineNr">26040 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L26041" class="LineNr">26041 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26042" class="LineNr">26042 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L26043" class="LineNr">26043 </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="L26044" class="LineNr">26044 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L26045" class="LineNr">26045 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L26046" class="LineNr">26046 </span> <span class="subxComment"># never gets here</span> -<span id="L26047" class="LineNr">26047 </span> -<span id="L26048" class="LineNr">26048 </span><span class="Constant">$check-mu-convert-stmt:error-invalid-inout-type</span>: -<span id="L26049" class="LineNr">26049 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L26050" class="LineNr">26050 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L26051" class="LineNr">26051 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26052" class="LineNr">26052 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L26053" class="LineNr">26053 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt convert: inout '"</span>) -<span id="L26054" class="LineNr">26054 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L26055" class="LineNr">26055 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L26056" class="LineNr">26056 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L26057" class="LineNr">26057 </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="L26058" class="LineNr">26058 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L26059" class="LineNr">26059 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L26060" class="LineNr">26060 </span> <span class="subxComment"># never gets here</span> -<span id="L26061" class="LineNr">26061 </span> -<span id="L26062" class="LineNr">26062 </span><span class="Constant">$check-mu-convert-stmt:error-invalid-output-type</span>: -<span id="L26063" class="LineNr">26063 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L26064" class="LineNr">26064 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L26065" class="LineNr">26065 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26066" class="LineNr">26066 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L26067" class="LineNr">26067 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt convert: output '"</span>) -<span id="L26068" class="LineNr">26068 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L26069" class="LineNr">26069 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L26070" class="LineNr">26070 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L26071" class="LineNr">26071 </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="L26072" class="LineNr">26072 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L26073" class="LineNr">26073 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L26074" class="LineNr">26074 </span> <span class="subxComment"># never gets here</span> -<span id="L26075" class="LineNr">26075 </span> -<span id="L26076" class="LineNr">26076 </span><span class="Constant">$check-mu-convert-stmt:error-int-to-int</span>: -<span id="L26077" class="LineNr">26077 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L26078" class="LineNr">26078 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L26079" class="LineNr">26079 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26080" class="LineNr">26080 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L26081" class="LineNr">26081 </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="L26082" class="LineNr">26082 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L26083" class="LineNr">26083 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L26084" class="LineNr">26084 </span> <span class="subxComment"># never gets here</span> -<span id="L26085" class="LineNr">26085 </span> -<span id="L26086" class="LineNr">26086 </span><span class="Constant">$check-mu-convert-stmt:error-float-to-float</span>: -<span id="L26087" class="LineNr">26087 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L26088" class="LineNr">26088 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L26089" class="LineNr">26089 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26090" class="LineNr">26090 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L26091" class="LineNr">26091 </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="L26092" class="LineNr">26092 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L26093" class="LineNr">26093 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L26094" class="LineNr">26094 </span> <span class="subxComment"># never gets here</span> -<span id="L26095" class="LineNr">26095 </span> -<span id="L26096" class="LineNr">26096 </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="L26097" class="LineNr">26097 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26098" class="LineNr">26098 </span> 55/push-ebp -<span id="L26099" class="LineNr">26099 </span> 89/<- %ebp 4/r32/esp -<span id="L26100" class="LineNr">26100 </span> <span class="subxComment"># var type-parameters: (addr table (handle array byte) (addr type-tree) 8)</span> -<span id="L26101" class="LineNr">26101 </span> 68/push 0/imm32 -<span id="L26102" class="LineNr">26102 </span> <span class="subxComment"># var type-parameters-storage: (table (handle array byte) (addr type-tree) 8)</span> -<span id="L26103" class="LineNr">26103 </span> 81 5/subop/subtract %esp 0x60/imm32 -<span id="L26104" class="LineNr">26104 </span> 68/push 0x60/imm32/size -<span id="L26105" class="LineNr">26105 </span> 68/push 0/imm32/read -<span id="L26106" class="LineNr">26106 </span> 68/push 0/imm32/write -<span id="L26107" class="LineNr">26107 </span> <span class="subxComment"># save a pointer to type-parameters-storage at type-parameters</span> -<span id="L26108" class="LineNr">26108 </span> 89/<- *(ebp-4) 4/r32/esp -<span id="L26109" class="LineNr">26109 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> *(ebp-4)) -<span id="L26110" class="LineNr">26110 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26111" class="LineNr">26111 </span> 50/push-eax -<span id="L26112" class="LineNr">26112 </span> 51/push-ecx -<span id="L26113" class="LineNr">26113 </span> 52/push-edx -<span id="L26114" class="LineNr">26114 </span> 53/push-ebx -<span id="L26115" class="LineNr">26115 </span> 56/push-esi -<span id="L26116" class="LineNr">26116 </span> 57/push-edi -<span id="L26117" class="LineNr">26117 </span> <span class="subxComment"># esi = stmt</span> -<span id="L26118" class="LineNr">26118 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L26119" class="LineNr">26119 </span> <span class="subxComment"># edi = callee</span> -<span id="L26120" class="LineNr">26120 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L26121" class="LineNr">26121 </span> <span class="subxComment"># var inouts/ecx: (addr stmt-var) = lookup(stmt->inouts)</span> -<span id="L26122" class="LineNr">26122 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L26123" class="LineNr">26123 </span> 89/<- %ecx 0/r32/eax -<span id="L26124" class="LineNr">26124 </span> <span class="subxComment"># var expected/edx: (addr list var) = lookup(f->inouts)</span> -<span id="L26125" class="LineNr">26125 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> -<span id="L26126" class="LineNr">26126 </span> 89/<- %edx 0/r32/eax -<span id="L26127" class="LineNr">26127 </span> { -<span id="L26128" class="LineNr">26128 </span><span class="Constant">$check-mu-call:check-for-inouts</span>: -<span id="L26129" class="LineNr">26129 </span> <span class="subxComment"># if (inouts == 0) break</span> -<span id="L26130" class="LineNr">26130 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L26131" class="LineNr">26131 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26132" class="LineNr">26132 </span> <span class="subxComment"># if (expected == 0) error</span> -<span id="L26133" class="LineNr">26133 </span> 81 7/subop/compare %edx 0/imm32 -<span id="L26134" class="LineNr">26134 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26135" class="LineNr">26135 </span><span class="Constant">$check-mu-call:check-null-addr</span>: -<span id="L26136" class="LineNr">26136 </span> <span class="subxComment"># if (inouts->value->name == "0") continue</span> -<span id="L26137" class="LineNr">26137 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L26138" class="LineNr">26138 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L26139" class="LineNr">26139 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> -<span id="L26140" class="LineNr">26140 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26141" class="LineNr">26141 </span> 0f 85/jump-if-!= $check-mu-call:continue-to-next-inout/disp32 -<span id="L26142" class="LineNr">26142 </span><span class="Constant">$check-mu-call:check-inout-type</span>: -<span id="L26143" class="LineNr">26143 </span> <span class="subxComment"># var t/ebx: (addr type-tree) = inouts->value->type</span> -<span id="L26144" class="LineNr">26144 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L26145" class="LineNr">26145 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L26146" class="LineNr">26146 </span> 89/<- %ebx 0/r32/eax -<span id="L26147" class="LineNr">26147 </span> <span class="subxComment"># if (inouts->is-deref?) t = t->right</span> -<span id="L26148" class="LineNr">26148 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L26149" class="LineNr">26149 </span> { -<span id="L26150" class="LineNr">26150 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26151" class="LineNr">26151 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L26152" class="LineNr">26152 </span> 89/<- %ebx 0/r32/eax -<span id="L26153" class="LineNr">26153 </span> <span class="subxComment"># if t->right is null, t = t->left</span> -<span id="L26154" class="LineNr">26154 </span> 81 7/subop/compare *(ebx+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L26155" class="LineNr">26155 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26156" class="LineNr">26156 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L26157" class="LineNr">26157 </span> 89/<- %ebx 0/r32/eax -<span id="L26158" class="LineNr">26158 </span> } -<span id="L26159" class="LineNr">26159 </span> <span class="subxComment"># var v2/eax: (addr v) = lookup(expected->value)</span> -<span id="L26160" class="LineNr">26160 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L26161" class="LineNr">26161 </span> <span class="subxComment"># var t2/eax: (addr type-tree) = lookup(v2->type)</span> -<span id="L26162" class="LineNr">26162 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L26163" class="LineNr">26163 </span> <span class="subxComment"># if (t != t2) error</span> -<span id="L26164" class="LineNr">26164 </span> (<a href='mu.subx.html#L26394'>type-match?</a> %eax %ebx *(ebp-4)) <span class="subxComment"># => eax</span> -<span id="L26165" class="LineNr">26165 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26166" class="LineNr">26166 </span> { -<span id="L26167" class="LineNr">26167 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L26168" class="LineNr">26168 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L26169" class="LineNr">26169 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L26170" class="LineNr">26170 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26171" class="LineNr">26171 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26172" class="LineNr">26172 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) -<span id="L26173" class="LineNr">26173 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26174" class="LineNr">26174 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26175" class="LineNr">26175 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": type for inout '"</span>) -<span id="L26176" class="LineNr">26176 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L26177" class="LineNr">26177 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L26178" class="LineNr">26178 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26179" class="LineNr">26179 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' is not right\n"</span>) -<span id="L26180" class="LineNr">26180 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L26181" class="LineNr">26181 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L26182" class="LineNr">26182 </span> } -<span id="L26183" class="LineNr">26183 </span><span class="Constant">$check-mu-call:continue-to-next-inout</span>: -<span id="L26184" class="LineNr">26184 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> -<span id="L26185" class="LineNr">26185 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L26186" class="LineNr">26186 </span> 89/<- %ecx 0/r32/eax -<span id="L26187" class="LineNr">26187 </span> <span class="subxComment"># expected = lookup(expected->next)</span> -<span id="L26188" class="LineNr">26188 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L26189" class="LineNr">26189 </span> 89/<- %edx 0/r32/eax -<span id="L26190" class="LineNr">26190 </span> <span class="subxComment">#</span> -<span id="L26191" class="LineNr">26191 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L26192" class="LineNr">26192 </span> } -<span id="L26193" class="LineNr">26193 </span><span class="Constant">$check-mu-call:check-inout-count</span>: -<span id="L26194" class="LineNr">26194 </span> <span class="subxComment"># if (inouts == expected) proceed</span> -<span id="L26195" class="LineNr">26195 </span> 39/compare %ecx 2/r32/edx -<span id="L26196" class="LineNr">26196 </span> { -<span id="L26197" class="LineNr">26197 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26198" class="LineNr">26198 </span> <span class="subxComment"># exactly one of the two is null</span> -<span id="L26199" class="LineNr">26199 </span> <span class="subxComment"># if (inouts == 0) error("too many inouts")</span> -<span id="L26200" class="LineNr">26200 </span> { -<span id="L26201" class="LineNr">26201 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L26202" class="LineNr">26202 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26203" class="LineNr">26203 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L26204" class="LineNr">26204 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L26205" class="LineNr">26205 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26206" class="LineNr">26206 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26207" class="LineNr">26207 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) -<span id="L26208" class="LineNr">26208 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26209" class="LineNr">26209 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26210" class="LineNr">26210 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": too many inouts\n"</span>) -<span id="L26211" class="LineNr">26211 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L26212" class="LineNr">26212 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L26213" class="LineNr">26213 </span> } -<span id="L26214" class="LineNr">26214 </span> <span class="subxComment"># if (expected == 0) error("too few inouts")</span> -<span id="L26215" class="LineNr">26215 </span> { -<span id="L26216" class="LineNr">26216 </span> 81 7/subop/compare %edx 0/imm32 -<span id="L26217" class="LineNr">26217 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26218" class="LineNr">26218 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L26219" class="LineNr">26219 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L26220" class="LineNr">26220 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26221" class="LineNr">26221 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26222" class="LineNr">26222 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) -<span id="L26223" class="LineNr">26223 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26224" class="LineNr">26224 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26225" class="LineNr">26225 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": too few inouts\n"</span>) -<span id="L26226" class="LineNr">26226 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L26227" class="LineNr">26227 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L26228" class="LineNr">26228 </span> } -<span id="L26229" class="LineNr">26229 </span> } -<span id="L26230" class="LineNr">26230 </span><span class="Constant">$check-mu-call:check-outputs</span>: -<span id="L26231" class="LineNr">26231 </span> <span class="subxComment"># var outputs/ecx: (addr stmt-var) = lookup(stmt->outputs)</span> -<span id="L26232" class="LineNr">26232 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L26233" class="LineNr">26233 </span> 89/<- %ecx 0/r32/eax -<span id="L26234" class="LineNr">26234 </span> <span class="subxComment"># var expected/edx: (addr list var) = lookup(f->outputs)</span> -<span id="L26235" class="LineNr">26235 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+0x10) *(edi+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> -<span id="L26236" class="LineNr">26236 </span> 89/<- %edx 0/r32/eax -<span id="L26237" class="LineNr">26237 </span> { -<span id="L26238" class="LineNr">26238 </span><span class="Constant">$check-mu-call:check-for-outputs</span>: -<span id="L26239" class="LineNr">26239 </span> <span class="subxComment"># if (outputs == 0) break</span> -<span id="L26240" class="LineNr">26240 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L26241" class="LineNr">26241 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26242" class="LineNr">26242 </span> <span class="subxComment"># if (expected == 0) error</span> -<span id="L26243" class="LineNr">26243 </span> 81 7/subop/compare %edx 0/imm32 -<span id="L26244" class="LineNr">26244 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26245" class="LineNr">26245 </span><span class="Constant">$check-mu-call:check-output-type</span>: -<span id="L26246" class="LineNr">26246 </span> <span class="subxComment"># var v/eax: (addr v) = lookup(outputs->value)</span> -<span id="L26247" class="LineNr">26247 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L26248" class="LineNr">26248 </span> <span class="subxComment"># var t/ebx: (addr type-tree) = lookup(v->type)</span> -<span id="L26249" class="LineNr">26249 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L26250" class="LineNr">26250 </span> 89/<- %ebx 0/r32/eax -<span id="L26251" class="LineNr">26251 </span> <span class="subxComment"># if (outputs->is-deref?) t = t->right # TODO: check that t->left is an addr</span> -<span id="L26252" class="LineNr">26252 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L26253" class="LineNr">26253 </span> { -<span id="L26254" class="LineNr">26254 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26255" class="LineNr">26255 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L26256" class="LineNr">26256 </span> 89/<- %ebx 0/r32/eax -<span id="L26257" class="LineNr">26257 </span> } -<span id="L26258" class="LineNr">26258 </span> <span class="subxComment"># var v2/eax: (addr v) = lookup(expected->value)</span> -<span id="L26259" class="LineNr">26259 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L26260" class="LineNr">26260 </span> <span class="subxComment"># var t2/eax: (addr type-tree) = lookup(v2->type)</span> -<span id="L26261" class="LineNr">26261 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L26262" class="LineNr">26262 </span> <span class="subxComment"># if (t != t2) error</span> -<span id="L26263" class="LineNr">26263 </span> (<a href='mu.subx.html#L26394'>type-match?</a> %eax %ebx *(ebp-4)) <span class="subxComment"># => eax</span> -<span id="L26264" class="LineNr">26264 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26265" class="LineNr">26265 </span> { -<span id="L26266" class="LineNr">26266 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L26267" class="LineNr">26267 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L26268" class="LineNr">26268 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L26269" class="LineNr">26269 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26270" class="LineNr">26270 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26271" class="LineNr">26271 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) -<span id="L26272" class="LineNr">26272 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26273" class="LineNr">26273 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26274" class="LineNr">26274 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": type for output '"</span>) -<span id="L26275" class="LineNr">26275 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L26276" class="LineNr">26276 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L26277" class="LineNr">26277 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26278" class="LineNr">26278 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' is not right\n"</span>) -<span id="L26279" class="LineNr">26279 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L26280" class="LineNr">26280 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L26281" class="LineNr">26281 </span> } -<span id="L26282" class="LineNr">26282 </span><span class="Constant">$check-mu-call:check-output-register</span>: -<span id="L26283" class="LineNr">26283 </span> <span class="subxComment"># var v/eax: (addr v) = lookup(outputs->value)</span> -<span id="L26284" class="LineNr">26284 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L26285" class="LineNr">26285 </span> <span class="subxComment"># var r/ebx: (addr array byte) = lookup(v->register)</span> -<span id="L26286" class="LineNr">26286 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L26287" class="LineNr">26287 </span> 89/<- %ebx 0/r32/eax -<span id="L26288" class="LineNr">26288 </span> <span class="subxComment"># if (r == 0) error</span> -<span id="L26289" class="LineNr">26289 </span> 3d/compare-eax-and 0/imm32 -<span id="L26290" class="LineNr">26290 </span> { -<span id="L26291" class="LineNr">26291 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L26292" class="LineNr">26292 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L26293" class="LineNr">26293 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L26294" class="LineNr">26294 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25960" class="LineNr">25960 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %ecx 0xf) <span class="subxComment"># float => eax</span> +<span id="L25961" class="LineNr">25961 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25962" class="LineNr">25962 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L25963" class="LineNr">25963 </span> e9/jump $check-mu-convert-stmt:error-invalid-inout-type/disp32 +<span id="L25964" class="LineNr">25964 </span> } +<span id="L25965" class="LineNr">25965 </span> <span class="subxComment"># if output not in register, abort</span> +<span id="L25966" class="LineNr">25966 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L25967" class="LineNr">25967 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L25968" class="LineNr">25968 </span> 3d/compare-eax-and 0/imm32 +<span id="L25969" class="LineNr">25969 </span> 0f 84/jump-if-= $check-mu-convert-stmt:error-output-not-in-register/disp32 +<span id="L25970" class="LineNr">25970 </span> <span class="subxComment"># var output-type/edx: (addr type-tree) = output->value->type</span> +<span id="L25971" class="LineNr">25971 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L25972" class="LineNr">25972 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L25973" class="LineNr">25973 </span> 89/<- %edx 0/r32/eax +<span id="L25974" class="LineNr">25974 </span> <span class="subxComment"># if output is not int or float, abort</span> +<span id="L25975" class="LineNr">25975 </span> { +<span id="L25976" class="LineNr">25976 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %edx 1) <span class="subxComment"># int => eax</span> +<span id="L25977" class="LineNr">25977 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25978" class="LineNr">25978 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L25979" class="LineNr">25979 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %edx 0xf) <span class="subxComment"># float => eax</span> +<span id="L25980" class="LineNr">25980 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25981" class="LineNr">25981 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L25982" class="LineNr">25982 </span> e9/jump $check-mu-convert-stmt:error-invalid-output-type/disp32 +<span id="L25983" class="LineNr">25983 </span> } +<span id="L25984" class="LineNr">25984 </span> <span class="subxComment"># if both are ints, abort</span> +<span id="L25985" class="LineNr">25985 </span> { +<span id="L25986" class="LineNr">25986 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %edx 1) <span class="subxComment"># int => eax</span> +<span id="L25987" class="LineNr">25987 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25988" class="LineNr">25988 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L25989" class="LineNr">25989 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %ecx 1) <span class="subxComment"># int => eax</span> +<span id="L25990" class="LineNr">25990 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25991" class="LineNr">25991 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L25992" class="LineNr">25992 </span> e9/jump $check-mu-convert-stmt:error-int-to-int/disp32 +<span id="L25993" class="LineNr">25993 </span> } +<span id="L25994" class="LineNr">25994 </span> <span class="subxComment"># if both are floats, abort</span> +<span id="L25995" class="LineNr">25995 </span> { +<span id="L25996" class="LineNr">25996 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %edx 0xf) <span class="subxComment"># float => eax</span> +<span id="L25997" class="LineNr">25997 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25998" class="LineNr">25998 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L25999" class="LineNr">25999 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %ecx 0xf) <span class="subxComment"># float => eax</span> +<span id="L26000" class="LineNr">26000 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26001" class="LineNr">26001 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26002" class="LineNr">26002 </span> e9/jump $check-mu-convert-stmt:error-float-to-float/disp32 +<span id="L26003" class="LineNr">26003 </span> } +<span id="L26004" class="LineNr">26004 </span><span class="Constant">$check-mu-convert-stmt:end</span>: +<span id="L26005" class="LineNr">26005 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26006" class="LineNr">26006 </span> 5f/pop-to-edi +<span id="L26007" class="LineNr">26007 </span> 5e/pop-to-esi +<span id="L26008" class="LineNr">26008 </span> 5a/pop-to-edx +<span id="L26009" class="LineNr">26009 </span> 59/pop-to-ecx +<span id="L26010" class="LineNr">26010 </span> 58/pop-to-eax +<span id="L26011" class="LineNr">26011 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26012" class="LineNr">26012 </span> 89/<- %esp 5/r32/ebp +<span id="L26013" class="LineNr">26013 </span> 5d/pop-to-ebp +<span id="L26014" class="LineNr">26014 </span> c3/return +<span id="L26015" class="LineNr">26015 </span> +<span id="L26016" class="LineNr">26016 </span><span class="Constant">$check-mu-convert-stmt:error-no-inout</span>: +<span id="L26017" class="LineNr">26017 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L26018" class="LineNr">26018 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L26019" class="LineNr">26019 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26020" class="LineNr">26020 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L26021" class="LineNr">26021 </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="L26022" class="LineNr">26022 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L26023" class="LineNr">26023 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L26024" class="LineNr">26024 </span> <span class="subxComment"># never gets here</span> +<span id="L26025" class="LineNr">26025 </span> +<span id="L26026" class="LineNr">26026 </span><span class="Constant">$check-mu-convert-stmt:error-too-many-inouts</span>: +<span id="L26027" class="LineNr">26027 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L26028" class="LineNr">26028 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L26029" class="LineNr">26029 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26030" class="LineNr">26030 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L26031" class="LineNr">26031 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'convert' must have just one inout\n"</span>) +<span id="L26032" class="LineNr">26032 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L26033" class="LineNr">26033 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L26034" class="LineNr">26034 </span> <span class="subxComment"># never gets here</span> +<span id="L26035" class="LineNr">26035 </span> +<span id="L26036" class="LineNr">26036 </span><span class="Constant">$check-mu-convert-stmt:error-no-output</span>: +<span id="L26037" class="LineNr">26037 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L26038" class="LineNr">26038 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L26039" class="LineNr">26039 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26040" class="LineNr">26040 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L26041" class="LineNr">26041 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'convert' expects an output\n"</span>) +<span id="L26042" class="LineNr">26042 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L26043" class="LineNr">26043 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L26044" class="LineNr">26044 </span> <span class="subxComment"># never gets here</span> +<span id="L26045" class="LineNr">26045 </span> +<span id="L26046" class="LineNr">26046 </span><span class="Constant">$check-mu-convert-stmt:error-output-not-in-register</span>: +<span id="L26047" class="LineNr">26047 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L26048" class="LineNr">26048 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L26049" class="LineNr">26049 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26050" class="LineNr">26050 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L26051" class="LineNr">26051 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt convert: output '"</span>) +<span id="L26052" class="LineNr">26052 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L26053" class="LineNr">26053 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L26054" class="LineNr">26054 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L26055" class="LineNr">26055 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' not in a register\n"</span>) +<span id="L26056" class="LineNr">26056 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L26057" class="LineNr">26057 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L26058" class="LineNr">26058 </span> <span class="subxComment"># never gets here</span> +<span id="L26059" class="LineNr">26059 </span> +<span id="L26060" class="LineNr">26060 </span><span class="Constant">$check-mu-convert-stmt:error-too-many-outputs</span>: +<span id="L26061" class="LineNr">26061 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L26062" class="LineNr">26062 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L26063" class="LineNr">26063 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26064" class="LineNr">26064 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L26065" class="LineNr">26065 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'convert' must have just one output\n"</span>) +<span id="L26066" class="LineNr">26066 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L26067" class="LineNr">26067 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L26068" class="LineNr">26068 </span> <span class="subxComment"># never gets here</span> +<span id="L26069" class="LineNr">26069 </span> +<span id="L26070" class="LineNr">26070 </span><span class="Constant">$check-mu-convert-stmt:error-invalid-inout-type</span>: +<span id="L26071" class="LineNr">26071 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L26072" class="LineNr">26072 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L26073" class="LineNr">26073 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26074" class="LineNr">26074 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L26075" class="LineNr">26075 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt convert: inout '"</span>) +<span id="L26076" class="LineNr">26076 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L26077" class="LineNr">26077 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L26078" class="LineNr">26078 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L26079" class="LineNr">26079 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an int or float\n"</span>) +<span id="L26080" class="LineNr">26080 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L26081" class="LineNr">26081 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L26082" class="LineNr">26082 </span> <span class="subxComment"># never gets here</span> +<span id="L26083" class="LineNr">26083 </span> +<span id="L26084" class="LineNr">26084 </span><span class="Constant">$check-mu-convert-stmt:error-invalid-output-type</span>: +<span id="L26085" class="LineNr">26085 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L26086" class="LineNr">26086 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L26087" class="LineNr">26087 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26088" class="LineNr">26088 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L26089" class="LineNr">26089 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt convert: output '"</span>) +<span id="L26090" class="LineNr">26090 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L26091" class="LineNr">26091 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L26092" class="LineNr">26092 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L26093" class="LineNr">26093 </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="L26094" class="LineNr">26094 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L26095" class="LineNr">26095 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L26096" class="LineNr">26096 </span> <span class="subxComment"># never gets here</span> +<span id="L26097" class="LineNr">26097 </span> +<span id="L26098" class="LineNr">26098 </span><span class="Constant">$check-mu-convert-stmt:error-int-to-int</span>: +<span id="L26099" class="LineNr">26099 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L26100" class="LineNr">26100 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L26101" class="LineNr">26101 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26102" class="LineNr">26102 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L26103" class="LineNr">26103 </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="L26104" class="LineNr">26104 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L26105" class="LineNr">26105 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L26106" class="LineNr">26106 </span> <span class="subxComment"># never gets here</span> +<span id="L26107" class="LineNr">26107 </span> +<span id="L26108" class="LineNr">26108 </span><span class="Constant">$check-mu-convert-stmt:error-float-to-float</span>: +<span id="L26109" class="LineNr">26109 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L26110" class="LineNr">26110 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L26111" class="LineNr">26111 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26112" class="LineNr">26112 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L26113" class="LineNr">26113 </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="L26114" class="LineNr">26114 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L26115" class="LineNr">26115 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L26116" class="LineNr">26116 </span> <span class="subxComment"># never gets here</span> +<span id="L26117" class="LineNr">26117 </span> +<span id="L26118" class="LineNr">26118 </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="L26119" class="LineNr">26119 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26120" class="LineNr">26120 </span> 55/push-ebp +<span id="L26121" class="LineNr">26121 </span> 89/<- %ebp 4/r32/esp +<span id="L26122" class="LineNr">26122 </span> <span class="subxComment"># var type-parameters: (addr table (handle array byte) (addr type-tree) 8)</span> +<span id="L26123" class="LineNr">26123 </span> 68/push 0/imm32 +<span id="L26124" class="LineNr">26124 </span> <span class="subxComment"># var type-parameters-storage: (table (handle array byte) (addr type-tree) 8)</span> +<span id="L26125" class="LineNr">26125 </span> 81 5/subop/subtract %esp 0x60/imm32 +<span id="L26126" class="LineNr">26126 </span> 68/push 0x60/imm32/size +<span id="L26127" class="LineNr">26127 </span> 68/push 0/imm32/read +<span id="L26128" class="LineNr">26128 </span> 68/push 0/imm32/write +<span id="L26129" class="LineNr">26129 </span> <span class="subxComment"># save a pointer to type-parameters-storage at type-parameters</span> +<span id="L26130" class="LineNr">26130 </span> 89/<- *(ebp-4) 4/r32/esp +<span id="L26131" class="LineNr">26131 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> *(ebp-4)) +<span id="L26132" class="LineNr">26132 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26133" class="LineNr">26133 </span> 50/push-eax +<span id="L26134" class="LineNr">26134 </span> 51/push-ecx +<span id="L26135" class="LineNr">26135 </span> 52/push-edx +<span id="L26136" class="LineNr">26136 </span> 53/push-ebx +<span id="L26137" class="LineNr">26137 </span> 56/push-esi +<span id="L26138" class="LineNr">26138 </span> 57/push-edi +<span id="L26139" class="LineNr">26139 </span> <span class="subxComment"># esi = stmt</span> +<span id="L26140" class="LineNr">26140 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L26141" class="LineNr">26141 </span> <span class="subxComment"># edi = callee</span> +<span id="L26142" class="LineNr">26142 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L26143" class="LineNr">26143 </span> <span class="subxComment"># var inouts/ecx: (addr stmt-var) = lookup(stmt->inouts)</span> +<span id="L26144" class="LineNr">26144 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L26145" class="LineNr">26145 </span> 89/<- %ecx 0/r32/eax +<span id="L26146" class="LineNr">26146 </span> <span class="subxComment"># var expected/edx: (addr list var) = lookup(f->inouts)</span> +<span id="L26147" class="LineNr">26147 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> +<span id="L26148" class="LineNr">26148 </span> 89/<- %edx 0/r32/eax +<span id="L26149" class="LineNr">26149 </span> { +<span id="L26150" class="LineNr">26150 </span><span class="Constant">$check-mu-call:check-for-inouts</span>: +<span id="L26151" class="LineNr">26151 </span> <span class="subxComment"># if (inouts == 0) break</span> +<span id="L26152" class="LineNr">26152 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L26153" class="LineNr">26153 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L26154" class="LineNr">26154 </span> <span class="subxComment"># if (expected == 0) error</span> +<span id="L26155" class="LineNr">26155 </span> 81 7/subop/compare %edx 0/imm32 +<span id="L26156" class="LineNr">26156 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L26157" class="LineNr">26157 </span><span class="Constant">$check-mu-call:check-null-addr</span>: +<span id="L26158" class="LineNr">26158 </span> <span class="subxComment"># if (inouts->value->name == "0") continue</span> +<span id="L26159" class="LineNr">26159 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L26160" class="LineNr">26160 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L26161" class="LineNr">26161 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> +<span id="L26162" class="LineNr">26162 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26163" class="LineNr">26163 </span> 0f 85/jump-if-!= $check-mu-call:continue-to-next-inout/disp32 +<span id="L26164" class="LineNr">26164 </span><span class="Constant">$check-mu-call:check-inout-type</span>: +<span id="L26165" class="LineNr">26165 </span> <span class="subxComment"># var t/ebx: (addr type-tree) = inouts->value->type</span> +<span id="L26166" class="LineNr">26166 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L26167" class="LineNr">26167 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L26168" class="LineNr">26168 </span> 89/<- %ebx 0/r32/eax +<span id="L26169" class="LineNr">26169 </span> <span class="subxComment"># if (inouts->is-deref?) t = t->right</span> +<span id="L26170" class="LineNr">26170 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L26171" class="LineNr">26171 </span> { +<span id="L26172" class="LineNr">26172 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26173" class="LineNr">26173 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L26174" class="LineNr">26174 </span> 89/<- %ebx 0/r32/eax +<span id="L26175" class="LineNr">26175 </span> <span class="subxComment"># if t->right is null, t = t->left</span> +<span id="L26176" class="LineNr">26176 </span> 81 7/subop/compare *(ebx+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L26177" class="LineNr">26177 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26178" class="LineNr">26178 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L26179" class="LineNr">26179 </span> 89/<- %ebx 0/r32/eax +<span id="L26180" class="LineNr">26180 </span> } +<span id="L26181" class="LineNr">26181 </span> <span class="subxComment"># var v2/eax: (addr v) = lookup(expected->value)</span> +<span id="L26182" class="LineNr">26182 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L26183" class="LineNr">26183 </span> <span class="subxComment"># var t2/eax: (addr type-tree) = lookup(v2->type)</span> +<span id="L26184" class="LineNr">26184 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L26185" class="LineNr">26185 </span> <span class="subxComment"># if (t != t2) error</span> +<span id="L26186" class="LineNr">26186 </span> (<a href='mu.subx.html#L26416'>type-match?</a> %eax %ebx *(ebp-4)) <span class="subxComment"># => eax</span> +<span id="L26187" class="LineNr">26187 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26188" class="LineNr">26188 </span> { +<span id="L26189" class="LineNr">26189 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L26190" class="LineNr">26190 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L26191" class="LineNr">26191 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L26192" class="LineNr">26192 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26193" class="LineNr">26193 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26194" class="LineNr">26194 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) +<span id="L26195" class="LineNr">26195 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26196" class="LineNr">26196 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26197" class="LineNr">26197 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": type for inout '"</span>) +<span id="L26198" class="LineNr">26198 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L26199" class="LineNr">26199 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L26200" class="LineNr">26200 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26201" class="LineNr">26201 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' is not right\n"</span>) +<span id="L26202" class="LineNr">26202 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L26203" class="LineNr">26203 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L26204" class="LineNr">26204 </span> } +<span id="L26205" class="LineNr">26205 </span><span class="Constant">$check-mu-call:continue-to-next-inout</span>: +<span id="L26206" class="LineNr">26206 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> +<span id="L26207" class="LineNr">26207 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L26208" class="LineNr">26208 </span> 89/<- %ecx 0/r32/eax +<span id="L26209" class="LineNr">26209 </span> <span class="subxComment"># expected = lookup(expected->next)</span> +<span id="L26210" class="LineNr">26210 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L26211" class="LineNr">26211 </span> 89/<- %edx 0/r32/eax +<span id="L26212" class="LineNr">26212 </span> <span class="subxComment">#</span> +<span id="L26213" class="LineNr">26213 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L26214" class="LineNr">26214 </span> } +<span id="L26215" class="LineNr">26215 </span><span class="Constant">$check-mu-call:check-inout-count</span>: +<span id="L26216" class="LineNr">26216 </span> <span class="subxComment"># if (inouts == expected) proceed</span> +<span id="L26217" class="LineNr">26217 </span> 39/compare %ecx 2/r32/edx +<span id="L26218" class="LineNr">26218 </span> { +<span id="L26219" class="LineNr">26219 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L26220" class="LineNr">26220 </span> <span class="subxComment"># exactly one of the two is null</span> +<span id="L26221" class="LineNr">26221 </span> <span class="subxComment"># if (inouts == 0) error("too many inouts")</span> +<span id="L26222" class="LineNr">26222 </span> { +<span id="L26223" class="LineNr">26223 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L26224" class="LineNr">26224 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L26225" class="LineNr">26225 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L26226" class="LineNr">26226 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L26227" class="LineNr">26227 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26228" class="LineNr">26228 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26229" class="LineNr">26229 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) +<span id="L26230" class="LineNr">26230 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26231" class="LineNr">26231 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26232" class="LineNr">26232 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": too many inouts\n"</span>) +<span id="L26233" class="LineNr">26233 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L26234" class="LineNr">26234 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L26235" class="LineNr">26235 </span> } +<span id="L26236" class="LineNr">26236 </span> <span class="subxComment"># if (expected == 0) error("too few inouts")</span> +<span id="L26237" class="LineNr">26237 </span> { +<span id="L26238" class="LineNr">26238 </span> 81 7/subop/compare %edx 0/imm32 +<span id="L26239" class="LineNr">26239 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L26240" class="LineNr">26240 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L26241" class="LineNr">26241 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L26242" class="LineNr">26242 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26243" class="LineNr">26243 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26244" class="LineNr">26244 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) +<span id="L26245" class="LineNr">26245 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26246" class="LineNr">26246 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26247" class="LineNr">26247 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": too few inouts\n"</span>) +<span id="L26248" class="LineNr">26248 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L26249" class="LineNr">26249 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L26250" class="LineNr">26250 </span> } +<span id="L26251" class="LineNr">26251 </span> } +<span id="L26252" class="LineNr">26252 </span><span class="Constant">$check-mu-call:check-outputs</span>: +<span id="L26253" class="LineNr">26253 </span> <span class="subxComment"># var outputs/ecx: (addr stmt-var) = lookup(stmt->outputs)</span> +<span id="L26254" class="LineNr">26254 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L26255" class="LineNr">26255 </span> 89/<- %ecx 0/r32/eax +<span id="L26256" class="LineNr">26256 </span> <span class="subxComment"># var expected/edx: (addr list var) = lookup(f->outputs)</span> +<span id="L26257" class="LineNr">26257 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+0x10) *(edi+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> +<span id="L26258" class="LineNr">26258 </span> 89/<- %edx 0/r32/eax +<span id="L26259" class="LineNr">26259 </span> { +<span id="L26260" class="LineNr">26260 </span><span class="Constant">$check-mu-call:check-for-outputs</span>: +<span id="L26261" class="LineNr">26261 </span> <span class="subxComment"># if (outputs == 0) break</span> +<span id="L26262" class="LineNr">26262 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L26263" class="LineNr">26263 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L26264" class="LineNr">26264 </span> <span class="subxComment"># if (expected == 0) error</span> +<span id="L26265" class="LineNr">26265 </span> 81 7/subop/compare %edx 0/imm32 +<span id="L26266" class="LineNr">26266 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L26267" class="LineNr">26267 </span><span class="Constant">$check-mu-call:check-output-type</span>: +<span id="L26268" class="LineNr">26268 </span> <span class="subxComment"># var v/eax: (addr v) = lookup(outputs->value)</span> +<span id="L26269" class="LineNr">26269 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L26270" class="LineNr">26270 </span> <span class="subxComment"># var t/ebx: (addr type-tree) = lookup(v->type)</span> +<span id="L26271" class="LineNr">26271 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L26272" class="LineNr">26272 </span> 89/<- %ebx 0/r32/eax +<span id="L26273" class="LineNr">26273 </span> <span class="subxComment"># if (outputs->is-deref?) t = t->right # TODO: check that t->left is an addr</span> +<span id="L26274" class="LineNr">26274 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L26275" class="LineNr">26275 </span> { +<span id="L26276" class="LineNr">26276 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26277" class="LineNr">26277 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L26278" class="LineNr">26278 </span> 89/<- %ebx 0/r32/eax +<span id="L26279" class="LineNr">26279 </span> } +<span id="L26280" class="LineNr">26280 </span> <span class="subxComment"># var v2/eax: (addr v) = lookup(expected->value)</span> +<span id="L26281" class="LineNr">26281 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L26282" class="LineNr">26282 </span> <span class="subxComment"># var t2/eax: (addr type-tree) = lookup(v2->type)</span> +<span id="L26283" class="LineNr">26283 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L26284" class="LineNr">26284 </span> <span class="subxComment"># if (t != t2) error</span> +<span id="L26285" class="LineNr">26285 </span> (<a href='mu.subx.html#L26416'>type-match?</a> %eax %ebx *(ebp-4)) <span class="subxComment"># => eax</span> +<span id="L26286" class="LineNr">26286 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26287" class="LineNr">26287 </span> { +<span id="L26288" class="LineNr">26288 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L26289" class="LineNr">26289 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L26290" class="LineNr">26290 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L26291" class="LineNr">26291 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26292" class="LineNr">26292 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26293" class="LineNr">26293 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) +<span id="L26294" class="LineNr">26294 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> <span id="L26295" class="LineNr">26295 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26296" class="LineNr">26296 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) -<span id="L26297" class="LineNr">26297 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26298" class="LineNr">26298 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26299" class="LineNr">26299 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": output '"</span>) -<span id="L26300" class="LineNr">26300 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L26301" class="LineNr">26301 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L26302" class="LineNr">26302 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26303" class="LineNr">26303 </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="L26304" class="LineNr">26304 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L26305" class="LineNr">26305 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L26306" class="LineNr">26306 </span> } -<span id="L26307" class="LineNr">26307 </span> <span class="subxComment"># var v2/eax: (addr v) = lookup(expected->value)</span> -<span id="L26308" class="LineNr">26308 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L26309" class="LineNr">26309 </span> <span class="subxComment"># var r2/eax: (addr array byte) = lookup(v2->register)</span> -<span id="L26310" class="LineNr">26310 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L26311" class="LineNr">26311 </span> <span class="subxComment"># if (r != r2) error</span> -<span id="L26312" class="LineNr">26312 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax %ebx) <span class="subxComment"># => eax</span> -<span id="L26313" class="LineNr">26313 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26314" class="LineNr">26314 </span> { -<span id="L26315" class="LineNr">26315 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L26316" class="LineNr">26316 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L26317" class="LineNr">26317 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L26318" class="LineNr">26318 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26319" class="LineNr">26319 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26320" class="LineNr">26320 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) -<span id="L26321" class="LineNr">26321 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26322" class="LineNr">26322 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26323" class="LineNr">26323 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": register for output '"</span>) -<span id="L26324" class="LineNr">26324 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L26325" class="LineNr">26325 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L26326" class="LineNr">26326 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26327" class="LineNr">26327 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' is not right\n"</span>) -<span id="L26328" class="LineNr">26328 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L26329" class="LineNr">26329 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L26330" class="LineNr">26330 </span> } -<span id="L26331" class="LineNr">26331 </span><span class="Constant">$check-mu-call:continue-to-next-output</span>: -<span id="L26332" class="LineNr">26332 </span> <span class="subxComment"># outputs = lookup(outputs->next)</span> -<span id="L26333" class="LineNr">26333 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L26334" class="LineNr">26334 </span> 89/<- %ecx 0/r32/eax -<span id="L26335" class="LineNr">26335 </span> <span class="subxComment"># expected = lookup(expected->next)</span> -<span id="L26336" class="LineNr">26336 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L26337" class="LineNr">26337 </span> 89/<- %edx 0/r32/eax -<span id="L26338" class="LineNr">26338 </span> <span class="subxComment">#</span> -<span id="L26339" class="LineNr">26339 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L26340" class="LineNr">26340 </span> } -<span id="L26341" class="LineNr">26341 </span><span class="Constant">$check-mu-call:check-output-count</span>: -<span id="L26342" class="LineNr">26342 </span> <span class="subxComment"># if (outputs == expected) proceed</span> -<span id="L26343" class="LineNr">26343 </span> 39/compare %ecx 2/r32/edx -<span id="L26344" class="LineNr">26344 </span> { -<span id="L26345" class="LineNr">26345 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26346" class="LineNr">26346 </span> <span class="subxComment"># exactly one of the two is null</span> -<span id="L26347" class="LineNr">26347 </span> <span class="subxComment"># if (outputs == 0) error("too many outputs")</span> -<span id="L26348" class="LineNr">26348 </span> { -<span id="L26349" class="LineNr">26349 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L26350" class="LineNr">26350 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26351" class="LineNr">26351 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L26352" class="LineNr">26352 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L26353" class="LineNr">26353 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26354" class="LineNr">26354 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26355" class="LineNr">26355 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) -<span id="L26356" class="LineNr">26356 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26357" class="LineNr">26357 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26358" class="LineNr">26358 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": too many outputs\n"</span>) -<span id="L26359" class="LineNr">26359 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L26360" class="LineNr">26360 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L26361" class="LineNr">26361 </span> } -<span id="L26362" class="LineNr">26362 </span> <span class="subxComment"># if (expected == 0) error("too few outputs")</span> -<span id="L26363" class="LineNr">26363 </span> { -<span id="L26364" class="LineNr">26364 </span> 81 7/subop/compare %edx 0/imm32 -<span id="L26365" class="LineNr">26365 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26366" class="LineNr">26366 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L26367" class="LineNr">26367 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L26368" class="LineNr">26368 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26369" class="LineNr">26369 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26370" class="LineNr">26370 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) -<span id="L26371" class="LineNr">26371 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26372" class="LineNr">26372 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26373" class="LineNr">26373 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": too few outputs\n"</span>) -<span id="L26374" class="LineNr">26374 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L26375" class="LineNr">26375 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L26376" class="LineNr">26376 </span> } -<span id="L26377" class="LineNr">26377 </span> } -<span id="L26378" class="LineNr">26378 </span><span class="Constant">$check-mu-call:end</span>: -<span id="L26379" class="LineNr">26379 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26380" class="LineNr">26380 </span> 5f/pop-to-edi -<span id="L26381" class="LineNr">26381 </span> 5e/pop-to-esi -<span id="L26382" class="LineNr">26382 </span> 5b/pop-to-ebx -<span id="L26383" class="LineNr">26383 </span> 5a/pop-to-edx -<span id="L26384" class="LineNr">26384 </span> 59/pop-to-ecx -<span id="L26385" class="LineNr">26385 </span> 58/pop-to-eax -<span id="L26386" class="LineNr">26386 </span> <span class="subxS1Comment"># . reclaim locals exclusively on the stack</span> -<span id="L26387" class="LineNr">26387 </span> 81 0/subop/add %esp 0x70/imm32 -<span id="L26388" class="LineNr">26388 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26389" class="LineNr">26389 </span> 89/<- %esp 5/r32/ebp -<span id="L26390" class="LineNr">26390 </span> 5d/pop-to-ebp -<span id="L26391" class="LineNr">26391 </span> c3/return -<span id="L26392" class="LineNr">26392 </span> -<span id="L26393" class="LineNr">26393 </span><span class="subxComment"># like type-equal? but takes literals type parameters into account</span> -<span id="L26394" class="LineNr">26394 </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="L26395" class="LineNr">26395 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26396" class="LineNr">26396 </span> 55/push-ebp -<span id="L26397" class="LineNr">26397 </span> 89/<- %ebp 4/r32/esp -<span id="L26398" class="LineNr">26398 </span> <span class="subxComment"># if (call is literal and def is numberlike) return true</span> -<span id="L26399" class="LineNr">26399 </span> { -<span id="L26400" class="LineNr">26400 </span><span class="Constant">$type-match?:check-literal-int</span>: -<span id="L26401" class="LineNr">26401 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> *(ebp+0xc) 0) <span class="subxComment"># literal => eax</span> -<span id="L26402" class="LineNr">26402 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26403" class="LineNr">26403 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26404" class="LineNr">26404 </span> (<a href='mu.subx.html#L21933'>mu-numberlike-output?</a> *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L26405" class="LineNr">26405 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26406" class="LineNr">26406 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26407" class="LineNr">26407 </span> b8/copy-to-eax 1/imm32/true -<span id="L26408" class="LineNr">26408 </span> e9/jump $type-match?:end/disp32 -<span id="L26409" class="LineNr">26409 </span> } -<span id="L26410" class="LineNr">26410 </span> <span class="subxComment"># if (call is literal-string and def is string) return true</span> -<span id="L26411" class="LineNr">26411 </span> { -<span id="L26412" class="LineNr">26412 </span><span class="Constant">$type-match?:check-literal-string</span>: -<span id="L26413" class="LineNr">26413 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> *(ebp+0xc) 0x10) <span class="subxComment"># literal-string => eax</span> -<span id="L26414" class="LineNr">26414 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26415" class="LineNr">26415 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26416" class="LineNr">26416 </span> (<a href='mu.subx.html#L35960'>mu-string-type?</a> *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L26417" class="LineNr">26417 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26418" class="LineNr">26418 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26419" class="LineNr">26419 </span> b8/copy-to-eax 1/imm32/true -<span id="L26420" class="LineNr">26420 </span> e9/jump $type-match?:end/disp32 -<span id="L26421" class="LineNr">26421 </span> } -<span id="L26422" class="LineNr">26422 </span><span class="Constant">$type-match?:baseline</span>: -<span id="L26423" class="LineNr">26423 </span> <span class="subxComment"># otherwise fall back</span> -<span id="L26424" class="LineNr">26424 </span> (<a href='mu.subx.html#L26431'>type-component-match?</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L26425" class="LineNr">26425 </span><span class="Constant">$type-match?:end</span>: -<span id="L26426" class="LineNr">26426 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26427" class="LineNr">26427 </span> 89/<- %esp 5/r32/ebp -<span id="L26428" class="LineNr">26428 </span> 5d/pop-to-ebp -<span id="L26429" class="LineNr">26429 </span> c3/return -<span id="L26430" class="LineNr">26430 </span> -<span id="L26431" class="LineNr">26431 </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="L26432" class="LineNr">26432 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26433" class="LineNr">26433 </span> 55/push-ebp -<span id="L26434" class="LineNr">26434 </span> 89/<- %ebp 4/r32/esp -<span id="L26435" class="LineNr">26435 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26436" class="LineNr">26436 </span> 51/push-ecx -<span id="L26437" class="LineNr">26437 </span> 52/push-edx -<span id="L26438" class="LineNr">26438 </span> 53/push-ebx -<span id="L26439" class="LineNr">26439 </span> <span class="subxComment"># ecx = def</span> -<span id="L26440" class="LineNr">26440 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L26441" class="LineNr">26441 </span> <span class="subxComment"># edx = call</span> -<span id="L26442" class="LineNr">26442 </span> 8b/-> *(ebp+0xc) 2/r32/edx -<span id="L26443" class="LineNr">26443 </span><span class="Constant">$type-component-match?:compare-addr</span>: -<span id="L26444" class="LineNr">26444 </span> <span class="subxComment"># if (def == call) return true</span> -<span id="L26445" class="LineNr">26445 </span> 8b/-> %ecx 0/r32/eax <span class="subxComment"># Var-type</span> -<span id="L26446" class="LineNr">26446 </span> 39/compare %edx 0/r32/eax <span class="subxComment"># Var-type</span> -<span id="L26447" class="LineNr">26447 </span> b8/copy-to-eax 1/imm32/true -<span id="L26448" class="LineNr">26448 </span> 0f 84/jump-if-= $type-component-match?:end/disp32 -<span id="L26449" class="LineNr">26449 </span> <span class="subxComment"># if (def == 0) return false</span> -<span id="L26450" class="LineNr">26450 </span> b8/copy-to-eax 0/imm32/false -<span id="L26451" class="LineNr">26451 </span> 81 7/subop/compare %ecx 0/imm32 <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26452" class="LineNr">26452 </span> 0f 84/jump-if-= $type-component-match?:end/disp32 -<span id="L26453" class="LineNr">26453 </span> <span class="subxComment"># if (call == 0) return false</span> -<span id="L26454" class="LineNr">26454 </span> 81 7/subop/compare %edx 0/imm32 <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26455" class="LineNr">26455 </span> 0f 84/jump-if-= $type-component-match?:end/disp32 -<span id="L26456" class="LineNr">26456 </span> <span class="subxComment"># if def is a type parameter, just check in type-parameters</span> -<span id="L26457" class="LineNr">26457 </span> { -<span id="L26458" class="LineNr">26458 </span><span class="Constant">$type-component-match?:check-type-parameter</span>: -<span id="L26459" class="LineNr">26459 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26460" class="LineNr">26460 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26461" class="LineNr">26461 </span> 81 7/subop/compare *(ecx+4) 0xa/imm32/type-parameter <span class="subxComment"># Type-tree-value</span> -<span id="L26462" class="LineNr">26462 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26463" class="LineNr">26463 </span><span class="Constant">$type-component-match?:type-parameter</span>: -<span id="L26464" class="LineNr">26464 </span> (<a href='mu.subx.html#L26528'>type-parameter-match?</a> *(ecx+8) *(ecx+0xc) %edx *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L26465" class="LineNr">26465 </span> e9/jump $type-component-match?:end/disp32 -<span id="L26466" class="LineNr">26466 </span> } -<span id="L26467" class="LineNr">26467 </span> <span class="subxComment"># if def is a list containing just a type parameter, just check in type-parameters</span> -<span id="L26468" class="LineNr">26468 </span> { -<span id="L26469" class="LineNr">26469 </span><span class="Constant">$type-component-match?:check-list-type-parameter</span>: -<span id="L26470" class="LineNr">26470 </span> <span class="subxComment"># if def is a list..</span> -<span id="L26471" class="LineNr">26471 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26472" class="LineNr">26472 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26473" class="LineNr">26473 </span> <span class="subxComment"># ..that's a singleton</span> -<span id="L26474" class="LineNr">26474 </span> 81 7/subop/compare *(ecx+0xc) 0/imm32 <span class="subxComment"># Type-tree-left</span> -<span id="L26475" class="LineNr">26475 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26476" class="LineNr">26476 </span> <span class="subxComment"># ..and whose head is a type parameter</span> -<span id="L26477" class="LineNr">26477 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L26478" class="LineNr">26478 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26479" class="LineNr">26479 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26480" class="LineNr">26480 </span> 81 7/subop/compare *(eax+4) 0xa/imm32/type-parameter <span class="subxComment"># Type-tree-value</span> -<span id="L26481" class="LineNr">26481 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26482" class="LineNr">26482 </span><span class="Constant">$type-component-match?:list-type-parameter</span>: -<span id="L26483" class="LineNr">26483 </span> (<a href='mu.subx.html#L26528'>type-parameter-match?</a> *(eax+8) *(eax+0xc) %edx *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L26484" class="LineNr">26484 </span> e9/jump $type-component-match?:end/disp32 -<span id="L26485" class="LineNr">26485 </span> } -<span id="L26486" class="LineNr">26486 </span><span class="Constant">$type-component-match?:compare-atom-state</span>: -<span id="L26487" class="LineNr">26487 </span> <span class="subxComment"># if (def->is-atom? != call->is-atom?) return false</span> -<span id="L26488" class="LineNr">26488 </span> 8b/-> *ecx 3/r32/ebx <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26489" class="LineNr">26489 </span> 39/compare *edx 3/r32/ebx <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26490" class="LineNr">26490 </span> b8/copy-to-eax 0/imm32/false -<span id="L26491" class="LineNr">26491 </span> 0f 85/jump-if-!= $type-component-match?:end/disp32 -<span id="L26492" class="LineNr">26492 </span> <span class="subxComment"># if def->is-atom? return (def->value == call->value)</span> -<span id="L26493" class="LineNr">26493 </span> { -<span id="L26494" class="LineNr">26494 </span><span class="Constant">$type-component-match?:check-atom</span>: -<span id="L26495" class="LineNr">26495 </span> 81 7/subop/compare %ebx 0/imm32/false -<span id="L26496" class="LineNr">26496 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26497" class="LineNr">26497 </span><span class="Constant">$type-component-match?:is-atom</span>: -<span id="L26498" class="LineNr">26498 </span> 8b/-> *(ecx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> -<span id="L26499" class="LineNr">26499 </span> 39/compare *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> -<span id="L26500" class="LineNr">26500 </span> 0f 94/set-if-= %al -<span id="L26501" class="LineNr">26501 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L26502" class="LineNr">26502 </span> e9/jump $type-component-match?:end/disp32 -<span id="L26503" class="LineNr">26503 </span> } -<span id="L26504" class="LineNr">26504 </span><span class="Constant">$type-component-match?:check-left</span>: -<span id="L26505" class="LineNr">26505 </span> <span class="subxComment"># if (!type-component-match?(def->left, call->left)) return false</span> -<span id="L26506" class="LineNr">26506 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L26507" class="LineNr">26507 </span> 89/<- %ebx 0/r32/eax -<span id="L26508" class="LineNr">26508 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L26509" class="LineNr">26509 </span> (<a href='mu.subx.html#L26431'>type-component-match?</a> %ebx %eax *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L26510" class="LineNr">26510 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26511" class="LineNr">26511 </span> 74/jump-if-= $type-component-match?:end/disp8 -<span id="L26512" class="LineNr">26512 </span><span class="Constant">$type-component-match?:check-right</span>: -<span id="L26513" class="LineNr">26513 </span> <span class="subxComment"># return type-component-match?(def->right, call->right)</span> -<span id="L26514" class="LineNr">26514 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L26515" class="LineNr">26515 </span> 89/<- %ebx 0/r32/eax -<span id="L26516" class="LineNr">26516 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0xc) *(edx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L26517" class="LineNr">26517 </span> (<a href='mu.subx.html#L26431'>type-component-match?</a> %ebx %eax *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L26518" class="LineNr">26518 </span><span class="Constant">$type-component-match?:end</span>: -<span id="L26519" class="LineNr">26519 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26520" class="LineNr">26520 </span> 5b/pop-to-ebx -<span id="L26521" class="LineNr">26521 </span> 5a/pop-to-edx -<span id="L26522" class="LineNr">26522 </span> 59/pop-to-ecx -<span id="L26523" class="LineNr">26523 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26524" class="LineNr">26524 </span> 89/<- %esp 5/r32/ebp -<span id="L26525" class="LineNr">26525 </span> 5d/pop-to-ebp -<span id="L26526" class="LineNr">26526 </span> c3/return -<span id="L26527" class="LineNr">26527 </span> -<span id="L26528" class="LineNr">26528 </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="L26529" class="LineNr">26529 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26530" class="LineNr">26530 </span> 55/push-ebp -<span id="L26531" class="LineNr">26531 </span> 89/<- %ebp 4/r32/esp -<span id="L26532" class="LineNr">26532 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26533" class="LineNr">26533 </span> 51/push-ecx -<span id="L26534" class="LineNr">26534 </span> <span class="subxComment">#</span> -<span id="L26535" class="LineNr">26535 </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="L26536" class="LineNr">26536 </span> <span class="subxComment"># if parameter wasn't saved, save it</span> -<span id="L26537" class="LineNr">26537 </span> { -<span id="L26538" class="LineNr">26538 </span> 81 7/subop/compare *eax 0/imm32 -<span id="L26539" class="LineNr">26539 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26540" class="LineNr">26540 </span> 8b/-> *(ebp+0x10) 1/r32/ecx -<span id="L26541" class="LineNr">26541 </span> 89/<- *eax 1/r32/ecx -<span id="L26542" class="LineNr">26542 </span> } -<span id="L26543" class="LineNr">26543 </span> <span class="subxComment">#</span> -<span id="L26544" class="LineNr">26544 </span> (<a href='mu.subx.html#L26880'>type-equal?</a> *(ebp+0x10) *eax) <span class="subxComment"># => eax</span> -<span id="L26545" class="LineNr">26545 </span><span class="Constant">$type-parameter-match?:end</span>: -<span id="L26546" class="LineNr">26546 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26547" class="LineNr">26547 </span> 59/pop-to-ecx -<span id="L26548" class="LineNr">26548 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26549" class="LineNr">26549 </span> 89/<- %esp 5/r32/ebp -<span id="L26550" class="LineNr">26550 </span> 5d/pop-to-ebp -<span id="L26551" class="LineNr">26551 </span> c3/return -<span id="L26552" class="LineNr">26552 </span> -<span id="L26553" class="LineNr">26553 </span><span class="subxFunction">size-of</span>: <span class="subxComment"># v: (addr var) -> result/eax: int</span> -<span id="L26554" class="LineNr">26554 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26555" class="LineNr">26555 </span> 55/push-ebp -<span id="L26556" class="LineNr">26556 </span> 89/<- %ebp 4/r32/esp -<span id="L26557" class="LineNr">26557 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26558" class="LineNr">26558 </span> 51/push-ecx -<span id="L26559" class="LineNr">26559 </span> <span class="subxComment"># var t/ecx: (addr type-tree) = lookup(v->type)</span> -<span id="L26560" class="LineNr">26560 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L26561" class="LineNr">26561 </span><span class="CommentedCode">#? (write-buffered Stderr "size-of ")</span> -<span id="L26562" class="LineNr">26562 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ecx)</span> -<span id="L26563" class="LineNr">26563 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L26564" class="LineNr">26564 </span><span class="CommentedCode">#? (write-buffered Stderr "type allocid: ")</span> -<span id="L26565" class="LineNr">26565 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ecx+8))</span> -<span id="L26566" class="LineNr">26566 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L26567" class="LineNr">26567 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L26568" class="LineNr">26568 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L26569" class="LineNr">26569 </span> 89/<- %ecx 0/r32/eax -<span id="L26570" class="LineNr">26570 </span> <span class="subxComment"># if mu-array?(t) return size-of-array(t)</span> -<span id="L26571" class="LineNr">26571 </span> { -<span id="L26572" class="LineNr">26572 </span> (<a href='mu.subx.html#L26650'>mu-array?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L26573" class="LineNr">26573 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26574" class="LineNr">26574 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26575" class="LineNr">26575 </span> (<a href='mu.subx.html#L26681'>size-of-array</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L26576" class="LineNr">26576 </span> eb/jump $size-of:end/disp8 -<span id="L26577" class="LineNr">26577 </span> } -<span id="L26578" class="LineNr">26578 </span> <span class="subxComment"># if mu-stream?(t) return size-of-stream(t)</span> -<span id="L26579" class="LineNr">26579 </span> { -<span id="L26580" class="LineNr">26580 </span> (<a href='mu.subx.html#L26715'>mu-stream?</a> %ecx) <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> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26583" class="LineNr">26583 </span> (<a href='mu.subx.html#L26746'>size-of-stream</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L26584" class="LineNr">26584 </span> eb/jump $size-of:end/disp8 -<span id="L26585" class="LineNr">26585 </span> } -<span id="L26586" class="LineNr">26586 </span> <span class="subxComment"># if (!t->is-atom?) t = lookup(t->left)</span> -<span id="L26587" class="LineNr">26587 </span> { -<span id="L26588" class="LineNr">26588 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26589" class="LineNr">26589 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26590" class="LineNr">26590 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L26591" class="LineNr">26591 </span> 89/<- %ecx 0/r32/eax -<span id="L26592" class="LineNr">26592 </span> } -<span id="L26593" class="LineNr">26593 </span> <span class="subxComment"># TODO: assert t->is-atom?</span> -<span id="L26594" class="LineNr">26594 </span> (<a href='mu.subx.html#L26759'>size-of-type-id</a> *(ecx+4)) <span class="subxComment"># Type-tree-value => eax</span> -<span id="L26595" class="LineNr">26595 </span><span class="Constant">$size-of:end</span>: -<span id="L26596" class="LineNr">26596 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26597" class="LineNr">26597 </span> 59/pop-to-ecx -<span id="L26598" class="LineNr">26598 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26599" class="LineNr">26599 </span> 89/<- %esp 5/r32/ebp -<span id="L26600" class="LineNr">26600 </span> 5d/pop-to-ebp -<span id="L26601" class="LineNr">26601 </span> c3/return -<span id="L26602" class="LineNr">26602 </span> -<span id="L26603" class="LineNr">26603 </span><span class="subxFunction">size-of-deref</span>: <span class="subxComment"># v: (addr var) -> result/eax: int</span> -<span id="L26604" class="LineNr">26604 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26605" class="LineNr">26605 </span> 55/push-ebp -<span id="L26606" class="LineNr">26606 </span> 89/<- %ebp 4/r32/esp -<span id="L26607" class="LineNr">26607 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26608" class="LineNr">26608 </span> 51/push-ecx -<span id="L26609" class="LineNr">26609 </span> <span class="subxComment"># var t/ecx: (addr type-tree) = lookup(v->type)</span> -<span id="L26610" class="LineNr">26610 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L26611" class="LineNr">26611 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L26612" class="LineNr">26612 </span> 89/<- %ecx 0/r32/eax -<span id="L26613" class="LineNr">26613 </span> <span class="subxComment"># TODO: assert(t is an addr)</span> -<span id="L26614" class="LineNr">26614 </span> <span class="subxComment"># t = lookup(t->right)</span> -<span id="L26615" class="LineNr">26615 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L26616" class="LineNr">26616 </span> 89/<- %ecx 0/r32/eax -<span id="L26617" class="LineNr">26617 </span> <span class="subxComment"># if mu-array?(t) return size-of-array(t)</span> -<span id="L26618" class="LineNr">26618 </span> { -<span id="L26619" class="LineNr">26619 </span> (<a href='mu.subx.html#L26650'>mu-array?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L26620" class="LineNr">26620 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26621" class="LineNr">26621 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26622" class="LineNr">26622 </span> (<a href='mu.subx.html#L26681'>size-of-array</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L26623" class="LineNr">26623 </span> eb/jump $size-of-deref:end/disp8 -<span id="L26624" class="LineNr">26624 </span> } -<span id="L26625" class="LineNr">26625 </span> <span class="subxComment"># if mu-stream?(t) return size-of-stream(t)</span> -<span id="L26626" class="LineNr">26626 </span> { -<span id="L26627" class="LineNr">26627 </span> (<a href='mu.subx.html#L26715'>mu-stream?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L26628" class="LineNr">26628 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26629" class="LineNr">26629 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26630" class="LineNr">26630 </span> (<a href='mu.subx.html#L26746'>size-of-stream</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L26631" class="LineNr">26631 </span> eb/jump $size-of-deref:end/disp8 -<span id="L26632" class="LineNr">26632 </span> } -<span id="L26633" class="LineNr">26633 </span> <span class="subxComment"># if (!t->is-atom?) t = lookup(t->left)</span> -<span id="L26634" class="LineNr">26634 </span> { -<span id="L26635" class="LineNr">26635 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26636" class="LineNr">26636 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26637" class="LineNr">26637 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L26638" class="LineNr">26638 </span> 89/<- %ecx 0/r32/eax -<span id="L26639" class="LineNr">26639 </span> } -<span id="L26640" class="LineNr">26640 </span> <span class="subxComment"># TODO: assert t->is-atom?</span> -<span id="L26641" class="LineNr">26641 </span> (<a href='mu.subx.html#L26759'>size-of-type-id</a> *(ecx+4)) <span class="subxComment"># Type-tree-value => eax</span> -<span id="L26642" class="LineNr">26642 </span><span class="Constant">$size-of-deref:end</span>: -<span id="L26643" class="LineNr">26643 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26644" class="LineNr">26644 </span> 59/pop-to-ecx -<span id="L26645" class="LineNr">26645 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26646" class="LineNr">26646 </span> 89/<- %esp 5/r32/ebp -<span id="L26647" class="LineNr">26647 </span> 5d/pop-to-ebp -<span id="L26648" class="LineNr">26648 </span> c3/return -<span id="L26649" class="LineNr">26649 </span> -<span id="L26650" class="LineNr">26650 </span><span class="subxFunction">mu-array?</span>: <span class="subxComment"># t: (addr type-tree) -> result/eax: boolean</span> -<span id="L26651" class="LineNr">26651 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26652" class="LineNr">26652 </span> 55/push-ebp -<span id="L26653" class="LineNr">26653 </span> 89/<- %ebp 4/r32/esp -<span id="L26654" class="LineNr">26654 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26655" class="LineNr">26655 </span> 51/push-ecx -<span id="L26656" class="LineNr">26656 </span> <span class="subxComment"># ecx = t</span> -<span id="L26657" class="LineNr">26657 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L26658" class="LineNr">26658 </span> <span class="subxComment"># if t->is-atom?, return false</span> -<span id="L26659" class="LineNr">26659 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26660" class="LineNr">26660 </span> 75/jump-if-!= $mu-array?:return-false/disp8 -<span id="L26661" class="LineNr">26661 </span> <span class="subxComment"># if !t->left->is-atom?, return false</span> -<span id="L26662" class="LineNr">26662 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L26663" class="LineNr">26663 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26664" class="LineNr">26664 </span> 74/jump-if-= $mu-array?:return-false/disp8 -<span id="L26665" class="LineNr">26665 </span> <span class="subxComment"># return t->left->value == array</span> -<span id="L26666" class="LineNr">26666 </span> 81 7/subop/compare *(eax+4) 3/imm32/array-type-id <span class="subxComment"># Type-tree-value</span> -<span id="L26667" class="LineNr">26667 </span> 0f 94/set-if-= %al -<span id="L26668" class="LineNr">26668 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L26669" class="LineNr">26669 </span> eb/jump $mu-array?:end/disp8 -<span id="L26670" class="LineNr">26670 </span><span class="Constant">$mu-array?:return-false</span>: -<span id="L26671" class="LineNr">26671 </span> b8/copy-to-eax 0/imm32/false -<span id="L26672" class="LineNr">26672 </span><span class="Constant">$mu-array?:end</span>: -<span id="L26673" class="LineNr">26673 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26674" class="LineNr">26674 </span> 59/pop-to-ecx -<span id="L26675" class="LineNr">26675 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26676" class="LineNr">26676 </span> 89/<- %esp 5/r32/ebp -<span id="L26677" class="LineNr">26677 </span> 5d/pop-to-ebp -<span id="L26678" class="LineNr">26678 </span> c3/return -<span id="L26679" class="LineNr">26679 </span> -<span id="L26680" class="LineNr">26680 </span><span class="subxComment"># size of a statically allocated array where the size is part of the type expression</span> -<span id="L26681" class="LineNr">26681 </span><span class="subxFunction">size-of-array</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: int</span> -<span id="L26682" class="LineNr">26682 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26683" class="LineNr">26683 </span> 55/push-ebp -<span id="L26684" class="LineNr">26684 </span> 89/<- %ebp 4/r32/esp -<span id="L26685" class="LineNr">26685 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26686" class="LineNr">26686 </span> 51/push-ecx -<span id="L26687" class="LineNr">26687 </span> 52/push-edx -<span id="L26688" class="LineNr">26688 </span> <span class="subxComment">#</span> -<span id="L26689" class="LineNr">26689 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L26690" class="LineNr">26690 </span> <span class="subxComment"># TODO: assert that a->left is 'array'</span> -<span id="L26691" class="LineNr">26691 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L26692" class="LineNr">26692 </span> 89/<- %ecx 0/r32/eax -<span id="L26693" class="LineNr">26693 </span> <span class="subxComment"># var elem-type/edx: type-id = a->right->left->value</span> -<span id="L26694" class="LineNr">26694 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L26695" class="LineNr">26695 </span> 8b/-> *(eax+4) 2/r32/edx <span class="subxComment"># Type-tree-value</span> -<span id="L26696" class="LineNr">26696 </span> <span class="subxComment"># TODO: assert that a->right->right->left->value == size</span> -<span id="L26697" class="LineNr">26697 </span> <span class="subxComment"># var array-size/ecx: int = a->right->right->left->value-size</span> -<span id="L26698" class="LineNr">26698 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L26699" class="LineNr">26699 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L26700" class="LineNr">26700 </span> 8b/-> *(eax+8) 1/r32/ecx <span class="subxComment"># Type-tree-value-size</span> -<span id="L26701" class="LineNr">26701 </span> <span class="subxComment"># return 4 + array-size * size-of(elem-type)</span> -<span id="L26702" class="LineNr">26702 </span> (<a href='mu.subx.html#L29066'>size-of-type-id-as-array-element</a> %edx) <span class="subxComment"># => eax</span> -<span id="L26703" class="LineNr">26703 </span> f7 4/subop/multiply-into-edx-eax %ecx -<span id="L26704" class="LineNr">26704 </span> 05/add-to-eax 4/imm32 <span class="subxComment"># for array size</span> -<span id="L26705" class="LineNr">26705 </span> <span class="subxComment"># TODO: check edx for overflow</span> -<span id="L26706" class="LineNr">26706 </span><span class="Constant">$size-of-array:end</span>: -<span id="L26707" class="LineNr">26707 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26708" class="LineNr">26708 </span> 5a/pop-to-edx -<span id="L26709" class="LineNr">26709 </span> 59/pop-to-ecx -<span id="L26710" class="LineNr">26710 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26711" class="LineNr">26711 </span> 89/<- %esp 5/r32/ebp -<span id="L26712" class="LineNr">26712 </span> 5d/pop-to-ebp -<span id="L26713" class="LineNr">26713 </span> c3/return -<span id="L26714" class="LineNr">26714 </span> -<span id="L26715" class="LineNr">26715 </span><span class="subxFunction">mu-stream?</span>: <span class="subxComment"># t: (addr type-tree) -> result/eax: boolean</span> -<span id="L26716" class="LineNr">26716 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26717" class="LineNr">26717 </span> 55/push-ebp -<span id="L26718" class="LineNr">26718 </span> 89/<- %ebp 4/r32/esp -<span id="L26719" class="LineNr">26719 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26720" class="LineNr">26720 </span> 51/push-ecx -<span id="L26721" class="LineNr">26721 </span> <span class="subxComment"># ecx = t</span> -<span id="L26722" class="LineNr">26722 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L26723" class="LineNr">26723 </span> <span class="subxComment"># if t->is-atom?, return false</span> -<span id="L26724" class="LineNr">26724 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26725" class="LineNr">26725 </span> 75/jump-if-!= $mu-stream?:return-false/disp8 -<span id="L26726" class="LineNr">26726 </span> <span class="subxComment"># if !t->left->is-atom?, return false</span> -<span id="L26727" class="LineNr">26727 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L26728" class="LineNr">26728 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26729" class="LineNr">26729 </span> 74/jump-if-= $mu-stream?:return-false/disp8 -<span id="L26730" class="LineNr">26730 </span> <span class="subxComment"># return t->left->value == stream</span> -<span id="L26731" class="LineNr">26731 </span> 81 7/subop/compare *(eax+4) 0xb/imm32/stream-type-id <span class="subxComment"># Type-tree-value</span> -<span id="L26732" class="LineNr">26732 </span> 0f 94/set-if-= %al -<span id="L26733" class="LineNr">26733 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L26734" class="LineNr">26734 </span> eb/jump $mu-stream?:end/disp8 -<span id="L26735" class="LineNr">26735 </span><span class="Constant">$mu-stream?:return-false</span>: -<span id="L26736" class="LineNr">26736 </span> b8/copy-to-eax 0/imm32/false -<span id="L26737" class="LineNr">26737 </span><span class="Constant">$mu-stream?:end</span>: -<span id="L26738" class="LineNr">26738 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26739" class="LineNr">26739 </span> 59/pop-to-ecx -<span id="L26740" class="LineNr">26740 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26741" class="LineNr">26741 </span> 89/<- %esp 5/r32/ebp -<span id="L26742" class="LineNr">26742 </span> 5d/pop-to-ebp -<span id="L26743" class="LineNr">26743 </span> c3/return -<span id="L26744" class="LineNr">26744 </span> -<span id="L26745" class="LineNr">26745 </span><span class="subxComment"># size of a statically allocated stream where the size is part of the type expression</span> -<span id="L26746" class="LineNr">26746 </span><span class="subxFunction">size-of-stream</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: int</span> -<span id="L26747" class="LineNr">26747 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26748" class="LineNr">26748 </span> 55/push-ebp -<span id="L26749" class="LineNr">26749 </span> 89/<- %ebp 4/r32/esp -<span id="L26750" class="LineNr">26750 </span> <span class="subxComment">#</span> -<span id="L26751" class="LineNr">26751 </span> (<a href='mu.subx.html#L26681'>size-of-array</a> *(ebp+8)) <span class="subxComment"># assumes we ignore the actual type name 'array' in the type</span> -<span id="L26752" class="LineNr">26752 </span> 05/add-to-eax 8/imm32 <span class="subxComment"># for read/write pointers</span> -<span id="L26753" class="LineNr">26753 </span><span class="Constant">$size-of-stream:end</span>: -<span id="L26754" class="LineNr">26754 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26755" class="LineNr">26755 </span> 89/<- %esp 5/r32/ebp -<span id="L26756" class="LineNr">26756 </span> 5d/pop-to-ebp -<span id="L26757" class="LineNr">26757 </span> c3/return -<span id="L26758" class="LineNr">26758 </span> -<span id="L26759" class="LineNr">26759 </span><span class="subxFunction">size-of-type-id</span>: <span class="subxComment"># t: type-id -> result/eax: int</span> -<span id="L26760" class="LineNr">26760 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26761" class="LineNr">26761 </span> 55/push-ebp -<span id="L26762" class="LineNr">26762 </span> 89/<- %ebp 4/r32/esp -<span id="L26763" class="LineNr">26763 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26764" class="LineNr">26764 </span> 51/push-ecx -<span id="L26765" class="LineNr">26765 </span> <span class="subxComment"># var out/ecx: (handle typeinfo)</span> -<span id="L26766" class="LineNr">26766 </span> 68/push 0/imm32 -<span id="L26767" class="LineNr">26767 </span> 68/push 0/imm32 -<span id="L26768" class="LineNr">26768 </span> 89/<- %ecx 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 a literal, return 0</span> -<span id="L26772" class="LineNr">26772 </span> 3d/compare-eax-and 0/imm32 -<span id="L26773" class="LineNr">26773 </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="L26774" class="LineNr">26774 </span> <span class="subxComment"># if t is a byte, return 4 (because we don't really support non-multiples of 4)</span> -<span id="L26775" class="LineNr">26775 </span> 3d/compare-eax-and 8/imm32/byte -<span id="L26776" class="LineNr">26776 </span> { -<span id="L26777" class="LineNr">26777 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26778" class="LineNr">26778 </span> b8/copy-to-eax 4/imm32 -<span id="L26779" class="LineNr">26779 </span> eb/jump $size-of-type-id:end/disp8 -<span id="L26780" class="LineNr">26780 </span> } -<span id="L26781" class="LineNr">26781 </span> <span class="subxComment"># if t is a handle, return 8</span> -<span id="L26782" class="LineNr">26782 </span> 3d/compare-eax-and 4/imm32/handle -<span id="L26783" class="LineNr">26783 </span> { -<span id="L26784" class="LineNr">26784 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26785" class="LineNr">26785 </span> b8/copy-to-eax 8/imm32 -<span id="L26786" class="LineNr">26786 </span> eb/jump $size-of-type-id:end/disp8 <span class="subxComment"># eax changes type from type-id to int</span> -<span id="L26787" class="LineNr">26787 </span> } -<span id="L26788" class="LineNr">26788 </span> <span class="subxComment"># if t is a slice, return 8</span> -<span id="L26789" class="LineNr">26789 </span> 3d/compare-eax-and 0xc/imm32/slice -<span id="L26790" class="LineNr">26790 </span> { -<span id="L26791" class="LineNr">26791 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26792" class="LineNr">26792 </span> b8/copy-to-eax 8/imm32 -<span id="L26793" class="LineNr">26793 </span> eb/jump $size-of-type-id:end/disp8 <span class="subxComment"># eax changes type from type-id to int</span> -<span id="L26794" class="LineNr">26794 </span> } -<span id="L26795" class="LineNr">26795 </span> <span class="subxComment"># if t is a user-defined type, return its size</span> -<span id="L26796" class="LineNr">26796 </span> <span class="subxComment"># TODO: support non-atom type</span> -<span id="L26797" class="LineNr">26797 </span> (<a href='mu.subx.html#L20310'>find-typeinfo</a> %eax %ecx) +<span id="L26296" class="LineNr">26296 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": type for output '"</span>) +<span id="L26297" class="LineNr">26297 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L26298" class="LineNr">26298 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L26299" class="LineNr">26299 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26300" class="LineNr">26300 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' is not right\n"</span>) +<span id="L26301" class="LineNr">26301 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L26302" class="LineNr">26302 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L26303" class="LineNr">26303 </span> } +<span id="L26304" class="LineNr">26304 </span><span class="Constant">$check-mu-call:check-output-register</span>: +<span id="L26305" class="LineNr">26305 </span> <span class="subxComment"># var v/eax: (addr v) = lookup(outputs->value)</span> +<span id="L26306" class="LineNr">26306 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L26307" class="LineNr">26307 </span> <span class="subxComment"># var r/ebx: (addr array byte) = lookup(v->register)</span> +<span id="L26308" class="LineNr">26308 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L26309" class="LineNr">26309 </span> 89/<- %ebx 0/r32/eax +<span id="L26310" class="LineNr">26310 </span> <span class="subxComment"># if (r == 0) error</span> +<span id="L26311" class="LineNr">26311 </span> 3d/compare-eax-and 0/imm32 +<span id="L26312" class="LineNr">26312 </span> { +<span id="L26313" class="LineNr">26313 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L26314" class="LineNr">26314 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L26315" class="LineNr">26315 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L26316" class="LineNr">26316 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26317" class="LineNr">26317 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26318" class="LineNr">26318 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) +<span id="L26319" class="LineNr">26319 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26320" class="LineNr">26320 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26321" class="LineNr">26321 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": output '"</span>) +<span id="L26322" class="LineNr">26322 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L26323" class="LineNr">26323 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L26324" class="LineNr">26324 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26325" class="LineNr">26325 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' is not in a register\n"</span>) +<span id="L26326" class="LineNr">26326 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L26327" class="LineNr">26327 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L26328" class="LineNr">26328 </span> } +<span id="L26329" class="LineNr">26329 </span> <span class="subxComment"># var v2/eax: (addr v) = lookup(expected->value)</span> +<span id="L26330" class="LineNr">26330 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L26331" class="LineNr">26331 </span> <span class="subxComment"># var r2/eax: (addr array byte) = lookup(v2->register)</span> +<span id="L26332" class="LineNr">26332 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L26333" class="LineNr">26333 </span> <span class="subxComment"># if (r != r2) error</span> +<span id="L26334" class="LineNr">26334 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax %ebx) <span class="subxComment"># => eax</span> +<span id="L26335" class="LineNr">26335 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26336" class="LineNr">26336 </span> { +<span id="L26337" class="LineNr">26337 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L26338" class="LineNr">26338 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L26339" class="LineNr">26339 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L26340" class="LineNr">26340 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26341" class="LineNr">26341 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26342" class="LineNr">26342 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) +<span id="L26343" class="LineNr">26343 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26344" class="LineNr">26344 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26345" class="LineNr">26345 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": register for output '"</span>) +<span id="L26346" class="LineNr">26346 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L26347" class="LineNr">26347 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L26348" class="LineNr">26348 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26349" class="LineNr">26349 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' is not right\n"</span>) +<span id="L26350" class="LineNr">26350 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L26351" class="LineNr">26351 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L26352" class="LineNr">26352 </span> } +<span id="L26353" class="LineNr">26353 </span><span class="Constant">$check-mu-call:continue-to-next-output</span>: +<span id="L26354" class="LineNr">26354 </span> <span class="subxComment"># outputs = lookup(outputs->next)</span> +<span id="L26355" class="LineNr">26355 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L26356" class="LineNr">26356 </span> 89/<- %ecx 0/r32/eax +<span id="L26357" class="LineNr">26357 </span> <span class="subxComment"># expected = lookup(expected->next)</span> +<span id="L26358" class="LineNr">26358 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L26359" class="LineNr">26359 </span> 89/<- %edx 0/r32/eax +<span id="L26360" class="LineNr">26360 </span> <span class="subxComment">#</span> +<span id="L26361" class="LineNr">26361 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L26362" class="LineNr">26362 </span> } +<span id="L26363" class="LineNr">26363 </span><span class="Constant">$check-mu-call:check-output-count</span>: +<span id="L26364" class="LineNr">26364 </span> <span class="subxComment"># if (outputs == expected) proceed</span> +<span id="L26365" class="LineNr">26365 </span> 39/compare %ecx 2/r32/edx +<span id="L26366" class="LineNr">26366 </span> { +<span id="L26367" class="LineNr">26367 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L26368" class="LineNr">26368 </span> <span class="subxComment"># exactly one of the two is null</span> +<span id="L26369" class="LineNr">26369 </span> <span class="subxComment"># if (outputs == 0) error("too many outputs")</span> +<span id="L26370" class="LineNr">26370 </span> { +<span id="L26371" class="LineNr">26371 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L26372" class="LineNr">26372 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L26373" class="LineNr">26373 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L26374" class="LineNr">26374 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L26375" class="LineNr">26375 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26376" class="LineNr">26376 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26377" class="LineNr">26377 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) +<span id="L26378" class="LineNr">26378 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26379" class="LineNr">26379 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26380" class="LineNr">26380 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": too many outputs\n"</span>) +<span id="L26381" class="LineNr">26381 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L26382" class="LineNr">26382 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L26383" class="LineNr">26383 </span> } +<span id="L26384" class="LineNr">26384 </span> <span class="subxComment"># if (expected == 0) error("too few outputs")</span> +<span id="L26385" class="LineNr">26385 </span> { +<span id="L26386" class="LineNr">26386 </span> 81 7/subop/compare %edx 0/imm32 +<span id="L26387" class="LineNr">26387 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L26388" class="LineNr">26388 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L26389" class="LineNr">26389 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L26390" class="LineNr">26390 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26391" class="LineNr">26391 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26392" class="LineNr">26392 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) +<span id="L26393" class="LineNr">26393 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26394" class="LineNr">26394 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26395" class="LineNr">26395 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": too few outputs\n"</span>) +<span id="L26396" class="LineNr">26396 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L26397" class="LineNr">26397 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L26398" class="LineNr">26398 </span> } +<span id="L26399" class="LineNr">26399 </span> } +<span id="L26400" class="LineNr">26400 </span><span class="Constant">$check-mu-call:end</span>: +<span id="L26401" class="LineNr">26401 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26402" class="LineNr">26402 </span> 5f/pop-to-edi +<span id="L26403" class="LineNr">26403 </span> 5e/pop-to-esi +<span id="L26404" class="LineNr">26404 </span> 5b/pop-to-ebx +<span id="L26405" class="LineNr">26405 </span> 5a/pop-to-edx +<span id="L26406" class="LineNr">26406 </span> 59/pop-to-ecx +<span id="L26407" class="LineNr">26407 </span> 58/pop-to-eax +<span id="L26408" class="LineNr">26408 </span> <span class="subxS1Comment"># . reclaim locals exclusively on the stack</span> +<span id="L26409" class="LineNr">26409 </span> 81 0/subop/add %esp 0x70/imm32 +<span id="L26410" class="LineNr">26410 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26411" class="LineNr">26411 </span> 89/<- %esp 5/r32/ebp +<span id="L26412" class="LineNr">26412 </span> 5d/pop-to-ebp +<span id="L26413" class="LineNr">26413 </span> c3/return +<span id="L26414" class="LineNr">26414 </span> +<span id="L26415" class="LineNr">26415 </span><span class="subxComment"># like type-equal? but takes literals type parameters into account</span> +<span id="L26416" class="LineNr">26416 </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="L26417" class="LineNr">26417 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26418" class="LineNr">26418 </span> 55/push-ebp +<span id="L26419" class="LineNr">26419 </span> 89/<- %ebp 4/r32/esp +<span id="L26420" class="LineNr">26420 </span> <span class="subxComment"># if (call is literal and def is numberlike) return true</span> +<span id="L26421" class="LineNr">26421 </span> { +<span id="L26422" class="LineNr">26422 </span><span class="Constant">$type-match?:check-literal-int</span>: +<span id="L26423" class="LineNr">26423 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> *(ebp+0xc) 0) <span class="subxComment"># literal => eax</span> +<span id="L26424" class="LineNr">26424 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26425" class="LineNr">26425 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26426" class="LineNr">26426 </span> (<a href='mu.subx.html#L21955'>mu-numberlike-output?</a> *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L26427" class="LineNr">26427 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26428" class="LineNr">26428 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26429" class="LineNr">26429 </span> b8/copy-to-eax 1/imm32/true +<span id="L26430" class="LineNr">26430 </span> e9/jump $type-match?:end/disp32 +<span id="L26431" class="LineNr">26431 </span> } +<span id="L26432" class="LineNr">26432 </span> <span class="subxComment"># if (call is literal-string and def is string) return true</span> +<span id="L26433" class="LineNr">26433 </span> { +<span id="L26434" class="LineNr">26434 </span><span class="Constant">$type-match?:check-literal-string</span>: +<span id="L26435" class="LineNr">26435 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> *(ebp+0xc) 0x10) <span class="subxComment"># literal-string => eax</span> +<span id="L26436" class="LineNr">26436 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26437" class="LineNr">26437 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26438" class="LineNr">26438 </span> (<a href='mu.subx.html#L36289'>mu-string-type?</a> *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L26439" class="LineNr">26439 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26440" class="LineNr">26440 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26441" class="LineNr">26441 </span> b8/copy-to-eax 1/imm32/true +<span id="L26442" class="LineNr">26442 </span> e9/jump $type-match?:end/disp32 +<span id="L26443" class="LineNr">26443 </span> } +<span id="L26444" class="LineNr">26444 </span><span class="Constant">$type-match?:baseline</span>: +<span id="L26445" class="LineNr">26445 </span> <span class="subxComment"># otherwise fall back</span> +<span id="L26446" class="LineNr">26446 </span> (<a href='mu.subx.html#L26453'>type-component-match?</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L26447" class="LineNr">26447 </span><span class="Constant">$type-match?:end</span>: +<span id="L26448" class="LineNr">26448 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26449" class="LineNr">26449 </span> 89/<- %esp 5/r32/ebp +<span id="L26450" class="LineNr">26450 </span> 5d/pop-to-ebp +<span id="L26451" class="LineNr">26451 </span> c3/return +<span id="L26452" class="LineNr">26452 </span> +<span id="L26453" class="LineNr">26453 </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="L26454" class="LineNr">26454 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26455" class="LineNr">26455 </span> 55/push-ebp +<span id="L26456" class="LineNr">26456 </span> 89/<- %ebp 4/r32/esp +<span id="L26457" class="LineNr">26457 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26458" class="LineNr">26458 </span> 51/push-ecx +<span id="L26459" class="LineNr">26459 </span> 52/push-edx +<span id="L26460" class="LineNr">26460 </span> 53/push-ebx +<span id="L26461" class="LineNr">26461 </span> <span class="subxComment"># ecx = def</span> +<span id="L26462" class="LineNr">26462 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L26463" class="LineNr">26463 </span> <span class="subxComment"># edx = call</span> +<span id="L26464" class="LineNr">26464 </span> 8b/-> *(ebp+0xc) 2/r32/edx +<span id="L26465" class="LineNr">26465 </span><span class="Constant">$type-component-match?:compare-addr</span>: +<span id="L26466" class="LineNr">26466 </span> <span class="subxComment"># if (def == call) return true</span> +<span id="L26467" class="LineNr">26467 </span> 8b/-> %ecx 0/r32/eax <span class="subxComment"># Var-type</span> +<span id="L26468" class="LineNr">26468 </span> 39/compare %edx 0/r32/eax <span class="subxComment"># Var-type</span> +<span id="L26469" class="LineNr">26469 </span> b8/copy-to-eax 1/imm32/true +<span id="L26470" class="LineNr">26470 </span> 0f 84/jump-if-= $type-component-match?:end/disp32 +<span id="L26471" class="LineNr">26471 </span> <span class="subxComment"># if (def == 0) return false</span> +<span id="L26472" class="LineNr">26472 </span> b8/copy-to-eax 0/imm32/false +<span id="L26473" class="LineNr">26473 </span> 81 7/subop/compare %ecx 0/imm32 <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26474" class="LineNr">26474 </span> 0f 84/jump-if-= $type-component-match?:end/disp32 +<span id="L26475" class="LineNr">26475 </span> <span class="subxComment"># if (call == 0) return false</span> +<span id="L26476" class="LineNr">26476 </span> 81 7/subop/compare %edx 0/imm32 <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26477" class="LineNr">26477 </span> 0f 84/jump-if-= $type-component-match?:end/disp32 +<span id="L26478" class="LineNr">26478 </span> <span class="subxComment"># if def is a type parameter, just check in type-parameters</span> +<span id="L26479" class="LineNr">26479 </span> { +<span id="L26480" class="LineNr">26480 </span><span class="Constant">$type-component-match?:check-type-parameter</span>: +<span id="L26481" class="LineNr">26481 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26482" class="LineNr">26482 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26483" class="LineNr">26483 </span> 81 7/subop/compare *(ecx+4) 0xa/imm32/type-parameter <span class="subxComment"># Type-tree-value</span> +<span id="L26484" class="LineNr">26484 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26485" class="LineNr">26485 </span><span class="Constant">$type-component-match?:type-parameter</span>: +<span id="L26486" class="LineNr">26486 </span> (<a href='mu.subx.html#L26550'>type-parameter-match?</a> *(ecx+8) *(ecx+0xc) %edx *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L26487" class="LineNr">26487 </span> e9/jump $type-component-match?:end/disp32 +<span id="L26488" class="LineNr">26488 </span> } +<span id="L26489" class="LineNr">26489 </span> <span class="subxComment"># if def is a list containing just a type parameter, just check in type-parameters</span> +<span id="L26490" class="LineNr">26490 </span> { +<span id="L26491" class="LineNr">26491 </span><span class="Constant">$type-component-match?:check-list-type-parameter</span>: +<span id="L26492" class="LineNr">26492 </span> <span class="subxComment"># if def is a list..</span> +<span id="L26493" class="LineNr">26493 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26494" class="LineNr">26494 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26495" class="LineNr">26495 </span> <span class="subxComment"># ..that's a singleton</span> +<span id="L26496" class="LineNr">26496 </span> 81 7/subop/compare *(ecx+0xc) 0/imm32 <span class="subxComment"># Type-tree-left</span> +<span id="L26497" class="LineNr">26497 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26498" class="LineNr">26498 </span> <span class="subxComment"># ..and whose head is a type parameter</span> +<span id="L26499" class="LineNr">26499 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L26500" class="LineNr">26500 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26501" class="LineNr">26501 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26502" class="LineNr">26502 </span> 81 7/subop/compare *(eax+4) 0xa/imm32/type-parameter <span class="subxComment"># Type-tree-value</span> +<span id="L26503" class="LineNr">26503 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26504" class="LineNr">26504 </span><span class="Constant">$type-component-match?:list-type-parameter</span>: +<span id="L26505" class="LineNr">26505 </span> (<a href='mu.subx.html#L26550'>type-parameter-match?</a> *(eax+8) *(eax+0xc) %edx *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L26506" class="LineNr">26506 </span> e9/jump $type-component-match?:end/disp32 +<span id="L26507" class="LineNr">26507 </span> } +<span id="L26508" class="LineNr">26508 </span><span class="Constant">$type-component-match?:compare-atom-state</span>: +<span id="L26509" class="LineNr">26509 </span> <span class="subxComment"># if (def->is-atom? != call->is-atom?) return false</span> +<span id="L26510" class="LineNr">26510 </span> 8b/-> *ecx 3/r32/ebx <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26511" class="LineNr">26511 </span> 39/compare *edx 3/r32/ebx <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26512" class="LineNr">26512 </span> b8/copy-to-eax 0/imm32/false +<span id="L26513" class="LineNr">26513 </span> 0f 85/jump-if-!= $type-component-match?:end/disp32 +<span id="L26514" class="LineNr">26514 </span> <span class="subxComment"># if def->is-atom? return (def->value == call->value)</span> +<span id="L26515" class="LineNr">26515 </span> { +<span id="L26516" class="LineNr">26516 </span><span class="Constant">$type-component-match?:check-atom</span>: +<span id="L26517" class="LineNr">26517 </span> 81 7/subop/compare %ebx 0/imm32/false +<span id="L26518" class="LineNr">26518 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26519" class="LineNr">26519 </span><span class="Constant">$type-component-match?:is-atom</span>: +<span id="L26520" class="LineNr">26520 </span> 8b/-> *(ecx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> +<span id="L26521" class="LineNr">26521 </span> 39/compare *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> +<span id="L26522" class="LineNr">26522 </span> 0f 94/set-if-= %al +<span id="L26523" class="LineNr">26523 </span> 25/and-eax-with 0xff/imm32 +<span id="L26524" class="LineNr">26524 </span> e9/jump $type-component-match?:end/disp32 +<span id="L26525" class="LineNr">26525 </span> } +<span id="L26526" class="LineNr">26526 </span><span class="Constant">$type-component-match?:check-left</span>: +<span id="L26527" class="LineNr">26527 </span> <span class="subxComment"># if (!type-component-match?(def->left, call->left)) return false</span> +<span id="L26528" class="LineNr">26528 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L26529" class="LineNr">26529 </span> 89/<- %ebx 0/r32/eax +<span id="L26530" class="LineNr">26530 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L26531" class="LineNr">26531 </span> (<a href='mu.subx.html#L26453'>type-component-match?</a> %ebx %eax *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L26532" class="LineNr">26532 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26533" class="LineNr">26533 </span> 74/jump-if-= $type-component-match?:end/disp8 +<span id="L26534" class="LineNr">26534 </span><span class="Constant">$type-component-match?:check-right</span>: +<span id="L26535" class="LineNr">26535 </span> <span class="subxComment"># return type-component-match?(def->right, call->right)</span> +<span id="L26536" class="LineNr">26536 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L26537" class="LineNr">26537 </span> 89/<- %ebx 0/r32/eax +<span id="L26538" class="LineNr">26538 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0xc) *(edx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L26539" class="LineNr">26539 </span> (<a href='mu.subx.html#L26453'>type-component-match?</a> %ebx %eax *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L26540" class="LineNr">26540 </span><span class="Constant">$type-component-match?:end</span>: +<span id="L26541" class="LineNr">26541 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26542" class="LineNr">26542 </span> 5b/pop-to-ebx +<span id="L26543" class="LineNr">26543 </span> 5a/pop-to-edx +<span id="L26544" class="LineNr">26544 </span> 59/pop-to-ecx +<span id="L26545" class="LineNr">26545 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26546" class="LineNr">26546 </span> 89/<- %esp 5/r32/ebp +<span id="L26547" class="LineNr">26547 </span> 5d/pop-to-ebp +<span id="L26548" class="LineNr">26548 </span> c3/return +<span id="L26549" class="LineNr">26549 </span> +<span id="L26550" class="LineNr">26550 </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="L26551" class="LineNr">26551 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26552" class="LineNr">26552 </span> 55/push-ebp +<span id="L26553" class="LineNr">26553 </span> 89/<- %ebp 4/r32/esp +<span id="L26554" class="LineNr">26554 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26555" class="LineNr">26555 </span> 51/push-ecx +<span id="L26556" class="LineNr">26556 </span> <span class="subxComment">#</span> +<span id="L26557" class="LineNr">26557 </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="L26558" class="LineNr">26558 </span> <span class="subxComment"># if parameter wasn't saved, save it</span> +<span id="L26559" class="LineNr">26559 </span> { +<span id="L26560" class="LineNr">26560 </span> 81 7/subop/compare *eax 0/imm32 +<span id="L26561" class="LineNr">26561 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26562" class="LineNr">26562 </span> 8b/-> *(ebp+0x10) 1/r32/ecx +<span id="L26563" class="LineNr">26563 </span> 89/<- *eax 1/r32/ecx +<span id="L26564" class="LineNr">26564 </span> } +<span id="L26565" class="LineNr">26565 </span> <span class="subxComment">#</span> +<span id="L26566" class="LineNr">26566 </span> (<a href='mu.subx.html#L26902'>type-equal?</a> *(ebp+0x10) *eax) <span class="subxComment"># => eax</span> +<span id="L26567" class="LineNr">26567 </span><span class="Constant">$type-parameter-match?:end</span>: +<span id="L26568" class="LineNr">26568 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26569" class="LineNr">26569 </span> 59/pop-to-ecx +<span id="L26570" class="LineNr">26570 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26571" class="LineNr">26571 </span> 89/<- %esp 5/r32/ebp +<span id="L26572" class="LineNr">26572 </span> 5d/pop-to-ebp +<span id="L26573" class="LineNr">26573 </span> c3/return +<span id="L26574" class="LineNr">26574 </span> +<span id="L26575" class="LineNr">26575 </span><span class="subxFunction">size-of</span>: <span class="subxComment"># v: (addr var) -> result/eax: int</span> +<span id="L26576" class="LineNr">26576 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26577" class="LineNr">26577 </span> 55/push-ebp +<span id="L26578" class="LineNr">26578 </span> 89/<- %ebp 4/r32/esp +<span id="L26579" class="LineNr">26579 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26580" class="LineNr">26580 </span> 51/push-ecx +<span id="L26581" class="LineNr">26581 </span> <span class="subxComment"># var t/ecx: (addr type-tree) = lookup(v->type)</span> +<span id="L26582" class="LineNr">26582 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L26583" class="LineNr">26583 </span><span class="CommentedCode">#? (write-buffered Stderr "size-of ")</span> +<span id="L26584" class="LineNr">26584 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ecx)</span> +<span id="L26585" class="LineNr">26585 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L26586" class="LineNr">26586 </span><span class="CommentedCode">#? (write-buffered Stderr "type allocid: ")</span> +<span id="L26587" class="LineNr">26587 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ecx+8))</span> +<span id="L26588" class="LineNr">26588 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L26589" class="LineNr">26589 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L26590" class="LineNr">26590 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L26591" class="LineNr">26591 </span> 89/<- %ecx 0/r32/eax +<span id="L26592" class="LineNr">26592 </span> <span class="subxComment"># if mu-array?(t) return size-of-array(t)</span> +<span id="L26593" class="LineNr">26593 </span> { +<span id="L26594" class="LineNr">26594 </span> (<a href='mu.subx.html#L26672'>mu-array?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L26595" class="LineNr">26595 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26596" class="LineNr">26596 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26597" class="LineNr">26597 </span> (<a href='mu.subx.html#L26703'>size-of-array</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L26598" class="LineNr">26598 </span> eb/jump $size-of:end/disp8 +<span id="L26599" class="LineNr">26599 </span> } +<span id="L26600" class="LineNr">26600 </span> <span class="subxComment"># if mu-stream?(t) return size-of-stream(t)</span> +<span id="L26601" class="LineNr">26601 </span> { +<span id="L26602" class="LineNr">26602 </span> (<a href='mu.subx.html#L26737'>mu-stream?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L26603" class="LineNr">26603 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26604" class="LineNr">26604 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26605" class="LineNr">26605 </span> (<a href='mu.subx.html#L26768'>size-of-stream</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L26606" class="LineNr">26606 </span> eb/jump $size-of:end/disp8 +<span id="L26607" class="LineNr">26607 </span> } +<span id="L26608" class="LineNr">26608 </span> <span class="subxComment"># if (!t->is-atom?) t = lookup(t->left)</span> +<span id="L26609" class="LineNr">26609 </span> { +<span id="L26610" class="LineNr">26610 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26611" class="LineNr">26611 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26612" class="LineNr">26612 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L26613" class="LineNr">26613 </span> 89/<- %ecx 0/r32/eax +<span id="L26614" class="LineNr">26614 </span> } +<span id="L26615" class="LineNr">26615 </span> <span class="subxComment"># TODO: assert t->is-atom?</span> +<span id="L26616" class="LineNr">26616 </span> (<a href='mu.subx.html#L26781'>size-of-type-id</a> *(ecx+4)) <span class="subxComment"># Type-tree-value => eax</span> +<span id="L26617" class="LineNr">26617 </span><span class="Constant">$size-of:end</span>: +<span id="L26618" class="LineNr">26618 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26619" class="LineNr">26619 </span> 59/pop-to-ecx +<span id="L26620" class="LineNr">26620 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26621" class="LineNr">26621 </span> 89/<- %esp 5/r32/ebp +<span id="L26622" class="LineNr">26622 </span> 5d/pop-to-ebp +<span id="L26623" class="LineNr">26623 </span> c3/return +<span id="L26624" class="LineNr">26624 </span> +<span id="L26625" class="LineNr">26625 </span><span class="subxFunction">size-of-deref</span>: <span class="subxComment"># v: (addr var) -> result/eax: int</span> +<span id="L26626" class="LineNr">26626 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26627" class="LineNr">26627 </span> 55/push-ebp +<span id="L26628" class="LineNr">26628 </span> 89/<- %ebp 4/r32/esp +<span id="L26629" class="LineNr">26629 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26630" class="LineNr">26630 </span> 51/push-ecx +<span id="L26631" class="LineNr">26631 </span> <span class="subxComment"># var t/ecx: (addr type-tree) = lookup(v->type)</span> +<span id="L26632" class="LineNr">26632 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L26633" class="LineNr">26633 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L26634" class="LineNr">26634 </span> 89/<- %ecx 0/r32/eax +<span id="L26635" class="LineNr">26635 </span> <span class="subxComment"># TODO: assert(t is an addr)</span> +<span id="L26636" class="LineNr">26636 </span> <span class="subxComment"># t = lookup(t->right)</span> +<span id="L26637" class="LineNr">26637 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L26638" class="LineNr">26638 </span> 89/<- %ecx 0/r32/eax +<span id="L26639" class="LineNr">26639 </span> <span class="subxComment"># if mu-array?(t) return size-of-array(t)</span> +<span id="L26640" class="LineNr">26640 </span> { +<span id="L26641" class="LineNr">26641 </span> (<a href='mu.subx.html#L26672'>mu-array?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L26642" class="LineNr">26642 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26643" class="LineNr">26643 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26644" class="LineNr">26644 </span> (<a href='mu.subx.html#L26703'>size-of-array</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L26645" class="LineNr">26645 </span> eb/jump $size-of-deref:end/disp8 +<span id="L26646" class="LineNr">26646 </span> } +<span id="L26647" class="LineNr">26647 </span> <span class="subxComment"># if mu-stream?(t) return size-of-stream(t)</span> +<span id="L26648" class="LineNr">26648 </span> { +<span id="L26649" class="LineNr">26649 </span> (<a href='mu.subx.html#L26737'>mu-stream?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L26650" class="LineNr">26650 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26651" class="LineNr">26651 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26652" class="LineNr">26652 </span> (<a href='mu.subx.html#L26768'>size-of-stream</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L26653" class="LineNr">26653 </span> eb/jump $size-of-deref:end/disp8 +<span id="L26654" class="LineNr">26654 </span> } +<span id="L26655" class="LineNr">26655 </span> <span class="subxComment"># if (!t->is-atom?) t = lookup(t->left)</span> +<span id="L26656" class="LineNr">26656 </span> { +<span id="L26657" class="LineNr">26657 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26658" class="LineNr">26658 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26659" class="LineNr">26659 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L26660" class="LineNr">26660 </span> 89/<- %ecx 0/r32/eax +<span id="L26661" class="LineNr">26661 </span> } +<span id="L26662" class="LineNr">26662 </span> <span class="subxComment"># TODO: assert t->is-atom?</span> +<span id="L26663" class="LineNr">26663 </span> (<a href='mu.subx.html#L26781'>size-of-type-id</a> *(ecx+4)) <span class="subxComment"># Type-tree-value => eax</span> +<span id="L26664" class="LineNr">26664 </span><span class="Constant">$size-of-deref:end</span>: +<span id="L26665" class="LineNr">26665 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26666" class="LineNr">26666 </span> 59/pop-to-ecx +<span id="L26667" class="LineNr">26667 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26668" class="LineNr">26668 </span> 89/<- %esp 5/r32/ebp +<span id="L26669" class="LineNr">26669 </span> 5d/pop-to-ebp +<span id="L26670" class="LineNr">26670 </span> c3/return +<span id="L26671" class="LineNr">26671 </span> +<span id="L26672" class="LineNr">26672 </span><span class="subxFunction">mu-array?</span>: <span class="subxComment"># t: (addr type-tree) -> result/eax: boolean</span> +<span id="L26673" class="LineNr">26673 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26674" class="LineNr">26674 </span> 55/push-ebp +<span id="L26675" class="LineNr">26675 </span> 89/<- %ebp 4/r32/esp +<span id="L26676" class="LineNr">26676 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26677" class="LineNr">26677 </span> 51/push-ecx +<span id="L26678" class="LineNr">26678 </span> <span class="subxComment"># ecx = t</span> +<span id="L26679" class="LineNr">26679 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L26680" class="LineNr">26680 </span> <span class="subxComment"># if t->is-atom?, return false</span> +<span id="L26681" class="LineNr">26681 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26682" class="LineNr">26682 </span> 75/jump-if-!= $mu-array?:return-false/disp8 +<span id="L26683" class="LineNr">26683 </span> <span class="subxComment"># if !t->left->is-atom?, return false</span> +<span id="L26684" class="LineNr">26684 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L26685" class="LineNr">26685 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26686" class="LineNr">26686 </span> 74/jump-if-= $mu-array?:return-false/disp8 +<span id="L26687" class="LineNr">26687 </span> <span class="subxComment"># return t->left->value == array</span> +<span id="L26688" class="LineNr">26688 </span> 81 7/subop/compare *(eax+4) 3/imm32/array-type-id <span class="subxComment"># Type-tree-value</span> +<span id="L26689" class="LineNr">26689 </span> 0f 94/set-if-= %al +<span id="L26690" class="LineNr">26690 </span> 25/and-eax-with 0xff/imm32 +<span id="L26691" class="LineNr">26691 </span> eb/jump $mu-array?:end/disp8 +<span id="L26692" class="LineNr">26692 </span><span class="Constant">$mu-array?:return-false</span>: +<span id="L26693" class="LineNr">26693 </span> b8/copy-to-eax 0/imm32/false +<span id="L26694" class="LineNr">26694 </span><span class="Constant">$mu-array?:end</span>: +<span id="L26695" class="LineNr">26695 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26696" class="LineNr">26696 </span> 59/pop-to-ecx +<span id="L26697" class="LineNr">26697 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26698" class="LineNr">26698 </span> 89/<- %esp 5/r32/ebp +<span id="L26699" class="LineNr">26699 </span> 5d/pop-to-ebp +<span id="L26700" class="LineNr">26700 </span> c3/return +<span id="L26701" class="LineNr">26701 </span> +<span id="L26702" class="LineNr">26702 </span><span class="subxComment"># size of a statically allocated array where the size is part of the type expression</span> +<span id="L26703" class="LineNr">26703 </span><span class="subxFunction">size-of-array</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: int</span> +<span id="L26704" class="LineNr">26704 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26705" class="LineNr">26705 </span> 55/push-ebp +<span id="L26706" class="LineNr">26706 </span> 89/<- %ebp 4/r32/esp +<span id="L26707" class="LineNr">26707 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26708" class="LineNr">26708 </span> 51/push-ecx +<span id="L26709" class="LineNr">26709 </span> 52/push-edx +<span id="L26710" class="LineNr">26710 </span> <span class="subxComment">#</span> +<span id="L26711" class="LineNr">26711 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L26712" class="LineNr">26712 </span> <span class="subxComment"># TODO: assert that a->left is 'array'</span> +<span id="L26713" class="LineNr">26713 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L26714" class="LineNr">26714 </span> 89/<- %ecx 0/r32/eax +<span id="L26715" class="LineNr">26715 </span> <span class="subxComment"># var elem-type/edx: type-id = a->right->left->value</span> +<span id="L26716" class="LineNr">26716 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L26717" class="LineNr">26717 </span> 8b/-> *(eax+4) 2/r32/edx <span class="subxComment"># Type-tree-value</span> +<span id="L26718" class="LineNr">26718 </span> <span class="subxComment"># TODO: assert that a->right->right->left->value == size</span> +<span id="L26719" class="LineNr">26719 </span> <span class="subxComment"># var array-size/ecx: int = a->right->right->left->value-size</span> +<span id="L26720" class="LineNr">26720 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L26721" class="LineNr">26721 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L26722" class="LineNr">26722 </span> 8b/-> *(eax+8) 1/r32/ecx <span class="subxComment"># Type-tree-value-size</span> +<span id="L26723" class="LineNr">26723 </span> <span class="subxComment"># return 4 + array-size * size-of(elem-type)</span> +<span id="L26724" class="LineNr">26724 </span> (<a href='mu.subx.html#L29096'>size-of-type-id-as-array-element</a> %edx) <span class="subxComment"># => eax</span> +<span id="L26725" class="LineNr">26725 </span> f7 4/subop/multiply-into-edx-eax %ecx +<span id="L26726" class="LineNr">26726 </span> 05/add-to-eax 4/imm32 <span class="subxComment"># for array size</span> +<span id="L26727" class="LineNr">26727 </span> <span class="subxComment"># TODO: check edx for overflow</span> +<span id="L26728" class="LineNr">26728 </span><span class="Constant">$size-of-array:end</span>: +<span id="L26729" class="LineNr">26729 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26730" class="LineNr">26730 </span> 5a/pop-to-edx +<span id="L26731" class="LineNr">26731 </span> 59/pop-to-ecx +<span id="L26732" class="LineNr">26732 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26733" class="LineNr">26733 </span> 89/<- %esp 5/r32/ebp +<span id="L26734" class="LineNr">26734 </span> 5d/pop-to-ebp +<span id="L26735" class="LineNr">26735 </span> c3/return +<span id="L26736" class="LineNr">26736 </span> +<span id="L26737" class="LineNr">26737 </span><span class="subxFunction">mu-stream?</span>: <span class="subxComment"># t: (addr type-tree) -> result/eax: boolean</span> +<span id="L26738" class="LineNr">26738 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26739" class="LineNr">26739 </span> 55/push-ebp +<span id="L26740" class="LineNr">26740 </span> 89/<- %ebp 4/r32/esp +<span id="L26741" class="LineNr">26741 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26742" class="LineNr">26742 </span> 51/push-ecx +<span id="L26743" class="LineNr">26743 </span> <span class="subxComment"># ecx = t</span> +<span id="L26744" class="LineNr">26744 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L26745" class="LineNr">26745 </span> <span class="subxComment"># if t->is-atom?, return false</span> +<span id="L26746" class="LineNr">26746 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26747" class="LineNr">26747 </span> 75/jump-if-!= $mu-stream?:return-false/disp8 +<span id="L26748" class="LineNr">26748 </span> <span class="subxComment"># if !t->left->is-atom?, return false</span> +<span id="L26749" class="LineNr">26749 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L26750" class="LineNr">26750 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26751" class="LineNr">26751 </span> 74/jump-if-= $mu-stream?:return-false/disp8 +<span id="L26752" class="LineNr">26752 </span> <span class="subxComment"># return t->left->value == stream</span> +<span id="L26753" class="LineNr">26753 </span> 81 7/subop/compare *(eax+4) 0xb/imm32/stream-type-id <span class="subxComment"># Type-tree-value</span> +<span id="L26754" class="LineNr">26754 </span> 0f 94/set-if-= %al +<span id="L26755" class="LineNr">26755 </span> 25/and-eax-with 0xff/imm32 +<span id="L26756" class="LineNr">26756 </span> eb/jump $mu-stream?:end/disp8 +<span id="L26757" class="LineNr">26757 </span><span class="Constant">$mu-stream?:return-false</span>: +<span id="L26758" class="LineNr">26758 </span> b8/copy-to-eax 0/imm32/false +<span id="L26759" class="LineNr">26759 </span><span class="Constant">$mu-stream?:end</span>: +<span id="L26760" class="LineNr">26760 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26761" class="LineNr">26761 </span> 59/pop-to-ecx +<span id="L26762" class="LineNr">26762 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26763" class="LineNr">26763 </span> 89/<- %esp 5/r32/ebp +<span id="L26764" class="LineNr">26764 </span> 5d/pop-to-ebp +<span id="L26765" class="LineNr">26765 </span> c3/return +<span id="L26766" class="LineNr">26766 </span> +<span id="L26767" class="LineNr">26767 </span><span class="subxComment"># size of a statically allocated stream where the size is part of the type expression</span> +<span id="L26768" class="LineNr">26768 </span><span class="subxFunction">size-of-stream</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: int</span> +<span id="L26769" class="LineNr">26769 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26770" class="LineNr">26770 </span> 55/push-ebp +<span id="L26771" class="LineNr">26771 </span> 89/<- %ebp 4/r32/esp +<span id="L26772" class="LineNr">26772 </span> <span class="subxComment">#</span> +<span id="L26773" class="LineNr">26773 </span> (<a href='mu.subx.html#L26703'>size-of-array</a> *(ebp+8)) <span class="subxComment"># assumes we ignore the actual type name 'array' in the type</span> +<span id="L26774" class="LineNr">26774 </span> 05/add-to-eax 8/imm32 <span class="subxComment"># for read/write pointers</span> +<span id="L26775" class="LineNr">26775 </span><span class="Constant">$size-of-stream:end</span>: +<span id="L26776" class="LineNr">26776 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26777" class="LineNr">26777 </span> 89/<- %esp 5/r32/ebp +<span id="L26778" class="LineNr">26778 </span> 5d/pop-to-ebp +<span id="L26779" class="LineNr">26779 </span> c3/return +<span id="L26780" class="LineNr">26780 </span> +<span id="L26781" class="LineNr">26781 </span><span class="subxFunction">size-of-type-id</span>: <span class="subxComment"># t: type-id -> result/eax: int</span> +<span id="L26782" class="LineNr">26782 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26783" class="LineNr">26783 </span> 55/push-ebp +<span id="L26784" class="LineNr">26784 </span> 89/<- %ebp 4/r32/esp +<span id="L26785" class="LineNr">26785 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26786" class="LineNr">26786 </span> 51/push-ecx +<span id="L26787" class="LineNr">26787 </span> <span class="subxComment"># var out/ecx: (handle typeinfo)</span> +<span id="L26788" class="LineNr">26788 </span> 68/push 0/imm32 +<span id="L26789" class="LineNr">26789 </span> 68/push 0/imm32 +<span id="L26790" class="LineNr">26790 </span> 89/<- %ecx 4/r32/esp +<span id="L26791" class="LineNr">26791 </span> <span class="subxComment"># eax = t</span> +<span id="L26792" class="LineNr">26792 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L26793" class="LineNr">26793 </span> <span class="subxComment"># if t is a literal, return 0</span> +<span id="L26794" class="LineNr">26794 </span> 3d/compare-eax-and 0/imm32 +<span id="L26795" class="LineNr">26795 </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="L26796" class="LineNr">26796 </span> <span class="subxComment"># if t is a byte, return 4 (because we don't really support non-multiples of 4)</span> +<span id="L26797" class="LineNr">26797 </span> 3d/compare-eax-and 8/imm32/byte <span id="L26798" class="LineNr">26798 </span> { -<span id="L26799" class="LineNr">26799 </span> 81 7/subop/compare *ecx 0/imm32 -<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">$size-of-type-id:user-defined</span>: -<span id="L26802" class="LineNr">26802 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> -<span id="L26803" class="LineNr">26803 </span> 8b/-> *(eax+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-total-size-in-bytes</span> -<span id="L26804" class="LineNr">26804 </span> eb/jump $size-of-type-id:end/disp8 -<span id="L26805" class="LineNr">26805 </span> } -<span id="L26806" class="LineNr">26806 </span> <span class="subxComment"># otherwise return the word size</span> -<span id="L26807" class="LineNr">26807 </span> b8/copy-to-eax 4/imm32 -<span id="L26808" class="LineNr">26808 </span><span class="Constant">$size-of-type-id:end</span>: -<span id="L26809" class="LineNr">26809 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L26810" class="LineNr">26810 </span> 81 0/subop/add %esp 8/imm32 -<span id="L26811" class="LineNr">26811 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26812" class="LineNr">26812 </span> 59/pop-to-ecx -<span id="L26813" class="LineNr">26813 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26814" class="LineNr">26814 </span> 89/<- %esp 5/r32/ebp -<span id="L26815" class="LineNr">26815 </span> 5d/pop-to-ebp -<span id="L26816" class="LineNr">26816 </span> c3/return -<span id="L26817" class="LineNr">26817 </span> -<span id="L26818" class="LineNr">26818 </span><span class="subxComment"># Minor violation of our type system since it returns an addr. But we could</span> -<span id="L26819" class="LineNr">26819 </span><span class="subxComment"># replace it with a handle some time.</span> -<span id="L26820" class="LineNr">26820 </span><span class="subxComment"># Returns null if t is an atom.</span> -<span id="L26821" class="LineNr">26821 </span><span class="subxFunction">type-tail</span>: <span class="subxComment"># t: (addr type-tree) -> out/eax: (addr type-tree)</span> -<span id="L26822" class="LineNr">26822 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26823" class="LineNr">26823 </span> 55/push-ebp -<span id="L26824" class="LineNr">26824 </span> 89/<- %ebp 4/r32/esp -<span id="L26825" class="LineNr">26825 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26826" class="LineNr">26826 </span> 51/push-ecx -<span id="L26827" class="LineNr">26827 </span> <span class="subxComment"># eax = 0</span> -<span id="L26828" class="LineNr">26828 </span> b8/copy-to-eax 0/imm32 -<span id="L26829" class="LineNr">26829 </span> <span class="subxComment"># ecx = t</span> -<span id="L26830" class="LineNr">26830 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L26831" class="LineNr">26831 </span><span class="Constant">$type-tail:check-atom</span>: -<span id="L26832" class="LineNr">26832 </span> <span class="subxComment"># if t->is-atom? return 0</span> -<span id="L26833" class="LineNr">26833 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26834" class="LineNr">26834 </span> 0f 85/jump-if-!= $type-tail:end/disp32 -<span id="L26835" class="LineNr">26835 </span> <span class="subxComment"># var tail = t->right</span> -<span id="L26836" class="LineNr">26836 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L26837" class="LineNr">26837 </span> 89/<- %ecx 0/r32/eax -<span id="L26838" class="LineNr">26838 </span><span class="Constant">$type-tail:check-singleton</span>: -<span id="L26839" class="LineNr">26839 </span> <span class="subxComment"># if (tail->right == 0) return tail->left</span> -<span id="L26840" class="LineNr">26840 </span> { -<span id="L26841" class="LineNr">26841 </span> 81 7/subop/compare *(ecx+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L26842" class="LineNr">26842 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26843" class="LineNr">26843 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L26844" class="LineNr">26844 </span> e9/jump $type-tail:end/disp32 -<span id="L26845" class="LineNr">26845 </span> } -<span id="L26846" class="LineNr">26846 </span> <span class="subxComment"># if tail->right->left is an array-capacity, return tail->left</span> -<span id="L26847" class="LineNr">26847 </span> { -<span id="L26848" class="LineNr">26848 </span><span class="Constant">$type-tail:check-array-capacity</span>: -<span id="L26849" class="LineNr">26849 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L26850" class="LineNr">26850 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26851" class="LineNr">26851 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26852" class="LineNr">26852 </span><span class="Constant">$type-tail:check-array-capacity-1</span>: -<span id="L26853" class="LineNr">26853 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L26854" class="LineNr">26854 </span> 3d/compare-eax-and 0/imm32 -<span id="L26855" class="LineNr">26855 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26856" class="LineNr">26856 </span><span class="Constant">$type-tail:check-array-capacity-2</span>: -<span id="L26857" class="LineNr">26857 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 9) <span class="subxComment"># array-capacity => eax</span> -<span id="L26858" class="LineNr">26858 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26859" class="LineNr">26859 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26860" class="LineNr">26860 </span><span class="Constant">$type-tail:array-capacity</span>: -<span id="L26861" class="LineNr">26861 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L26862" class="LineNr">26862 </span> eb/jump $type-tail:end/disp8 -<span id="L26863" class="LineNr">26863 </span> } -<span id="L26864" class="LineNr">26864 </span><span class="Constant">$type-tail:check-compound-left</span>: -<span id="L26865" class="LineNr">26865 </span> <span class="subxComment"># if !tail->left->is-atom? return tail->left</span> -<span id="L26866" class="LineNr">26866 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L26867" class="LineNr">26867 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26868" class="LineNr">26868 </span> 74/jump-if-= $type-tail:end/disp8 -<span id="L26869" class="LineNr">26869 </span><span class="Constant">$type-tail:return-tail</span>: -<span id="L26870" class="LineNr">26870 </span> <span class="subxComment"># return tail</span> -<span id="L26871" class="LineNr">26871 </span> 89/<- %eax 1/r32/ecx -<span id="L26872" class="LineNr">26872 </span><span class="Constant">$type-tail:end</span>: -<span id="L26873" class="LineNr">26873 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26874" class="LineNr">26874 </span> 59/pop-to-ecx -<span id="L26875" class="LineNr">26875 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26876" class="LineNr">26876 </span> 89/<- %esp 5/r32/ebp -<span id="L26877" class="LineNr">26877 </span> 5d/pop-to-ebp -<span id="L26878" class="LineNr">26878 </span> c3/return -<span id="L26879" class="LineNr">26879 </span> -<span id="L26880" class="LineNr">26880 </span><span class="subxFunction">type-equal?</span>: <span class="subxComment"># a: (addr type-tree), b: (addr type-tree) -> result/eax: boolean</span> -<span id="L26881" class="LineNr">26881 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26882" class="LineNr">26882 </span> 55/push-ebp -<span id="L26883" class="LineNr">26883 </span> 89/<- %ebp 4/r32/esp -<span id="L26884" class="LineNr">26884 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26885" class="LineNr">26885 </span> 51/push-ecx -<span id="L26886" class="LineNr">26886 </span> 52/push-edx -<span id="L26887" class="LineNr">26887 </span> 53/push-ebx -<span id="L26888" class="LineNr">26888 </span> <span class="subxComment"># ecx = a</span> -<span id="L26889" class="LineNr">26889 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L26890" class="LineNr">26890 </span> <span class="subxComment"># edx = b</span> -<span id="L26891" class="LineNr">26891 </span> 8b/-> *(ebp+0xc) 2/r32/edx -<span id="L26892" class="LineNr">26892 </span><span class="Constant">$type-equal?:compare-addr</span>: -<span id="L26893" class="LineNr">26893 </span> <span class="subxComment"># if (a == b) return true</span> -<span id="L26894" class="LineNr">26894 </span> 8b/-> %ecx 0/r32/eax <span class="subxComment"># Var-type</span> -<span id="L26895" class="LineNr">26895 </span> 39/compare %edx 0/r32/eax <span class="subxComment"># Var-type</span> -<span id="L26896" class="LineNr">26896 </span> b8/copy-to-eax 1/imm32/true -<span id="L26897" class="LineNr">26897 </span> 0f 84/jump-if-= $type-equal?:end/disp32 -<span id="L26898" class="LineNr">26898 </span><span class="Constant">$type-equal?:compare-null-a</span>: -<span id="L26899" class="LineNr">26899 </span> <span class="subxComment"># if (a == 0) return false</span> -<span id="L26900" class="LineNr">26900 </span> b8/copy-to-eax 0/imm32/false -<span id="L26901" class="LineNr">26901 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L26902" class="LineNr">26902 </span> 0f 84/jump-if-= $type-equal?:end/disp32 -<span id="L26903" class="LineNr">26903 </span><span class="Constant">$type-equal?:compare-null-b</span>: -<span id="L26904" class="LineNr">26904 </span> <span class="subxComment"># if (b == 0) return false</span> -<span id="L26905" class="LineNr">26905 </span> 81 7/subop/compare %edx 0/imm32 -<span id="L26906" class="LineNr">26906 </span> 0f 84/jump-if-= $type-equal?:end/disp32 -<span id="L26907" class="LineNr">26907 </span><span class="Constant">$type-equal?:compare-atom-state</span>: -<span id="L26908" class="LineNr">26908 </span> <span class="subxComment"># if (a->is-atom? != b->is-atom?) return false</span> -<span id="L26909" class="LineNr">26909 </span> 8b/-> *ecx 3/r32/ebx <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26910" class="LineNr">26910 </span> 39/compare *edx 3/r32/ebx <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26911" class="LineNr">26911 </span> b8/copy-to-eax 0/imm32/false -<span id="L26912" class="LineNr">26912 </span> 0f 85/jump-if-!= $type-equal?:end/disp32 -<span id="L26913" class="LineNr">26913 </span> <span class="subxComment"># if a->is-atom? return (a->value == b->value)</span> -<span id="L26914" class="LineNr">26914 </span> { -<span id="L26915" class="LineNr">26915 </span><span class="Constant">$type-equal?:check-atom</span>: -<span id="L26916" class="LineNr">26916 </span> 81 7/subop/compare %ebx 0/imm32/false -<span id="L26917" class="LineNr">26917 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26918" class="LineNr">26918 </span><span class="Constant">$type-equal?:is-atom</span>: -<span id="L26919" class="LineNr">26919 </span> 8b/-> *(ecx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> -<span id="L26920" class="LineNr">26920 </span> 39/compare *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> -<span id="L26921" class="LineNr">26921 </span> 0f 94/set-if-= %al -<span id="L26922" class="LineNr">26922 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L26923" class="LineNr">26923 </span> e9/jump $type-equal?:end/disp32 -<span id="L26924" class="LineNr">26924 </span> } -<span id="L26925" class="LineNr">26925 </span><span class="Constant">$type-equal?:check-left</span>: -<span id="L26926" class="LineNr">26926 </span> <span class="subxComment"># if (!type-equal?(a->left, b->left)) return false</span> -<span id="L26927" class="LineNr">26927 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L26928" class="LineNr">26928 </span> 89/<- %ebx 0/r32/eax -<span id="L26929" class="LineNr">26929 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L26930" class="LineNr">26930 </span> (<a href='mu.subx.html#L26880'>type-equal?</a> %eax %ebx) <span class="subxComment"># => eax</span> -<span id="L26931" class="LineNr">26931 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26932" class="LineNr">26932 </span> 74/jump-if-= $type-equal?:end/disp8 -<span id="L26933" class="LineNr">26933 </span><span class="Constant">$type-equal?:check-right</span>: -<span id="L26934" class="LineNr">26934 </span> <span class="subxComment"># return type-equal?(a->right, b->right)</span> -<span id="L26935" class="LineNr">26935 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L26936" class="LineNr">26936 </span> 89/<- %ebx 0/r32/eax -<span id="L26937" class="LineNr">26937 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0xc) *(edx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L26938" class="LineNr">26938 </span> (<a href='mu.subx.html#L26880'>type-equal?</a> %eax %ebx) <span class="subxComment"># => eax</span> -<span id="L26939" class="LineNr">26939 </span><span class="Constant">$type-equal?:end</span>: -<span id="L26940" class="LineNr">26940 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26941" class="LineNr">26941 </span> 5b/pop-to-ebx -<span id="L26942" class="LineNr">26942 </span> 5a/pop-to-edx -<span id="L26943" class="LineNr">26943 </span> 59/pop-to-ecx -<span id="L26944" class="LineNr">26944 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26945" class="LineNr">26945 </span> 89/<- %esp 5/r32/ebp -<span id="L26946" class="LineNr">26946 </span> 5d/pop-to-ebp -<span id="L26947" class="LineNr">26947 </span> c3/return -<span id="L26948" class="LineNr">26948 </span> -<span id="L26949" class="LineNr">26949 </span><span class="subxComment">#######################################################</span> -<span id="L26950" class="LineNr">26950 </span><span class="subxComment"># Code-generation</span> -<span id="L26951" class="LineNr">26951 </span><span class="subxComment">#######################################################</span> -<span id="L26952" class="LineNr">26952 </span> -<span id="L26953" class="LineNr">26953 </span>== data -<span id="L26954" class="LineNr">26954 </span> -<span id="L26955" class="LineNr">26955 </span><span class="subxComment"># Global state added to each var record when performing code-generation.</span> -<span id="L26956" class="LineNr">26956 </span><span class="SpecialChar">Curr-local-stack-offset</span>: <span class="subxComment"># (addr int)</span> -<span id="L26957" class="LineNr">26957 </span> 0/imm32 -<span id="L26958" class="LineNr">26958 </span> -<span id="L26959" class="LineNr">26959 </span>== code -<span id="L26960" class="LineNr">26960 </span> -<span id="L26961" class="LineNr">26961 </span><span class="subxComment"># We may not need to pass err/ed everywhere here. I think they're relics of Mu</span> -<span id="L26962" class="LineNr">26962 </span><span class="subxComment"># getting type checks later in life.</span> -<span id="L26963" class="LineNr">26963 </span><span class="subxComment"># But we do need them for runtime checks, particularly array index bounds checks.</span> -<span id="L26964" class="LineNr">26964 </span><span class="subxComment"># So perhaps it's not worth taking them out. They're a safety net.</span> -<span id="L26965" class="LineNr">26965 </span> -<span id="L26966" class="LineNr">26966 </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="L26967" class="LineNr">26967 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26968" class="LineNr">26968 </span> 55/push-ebp -<span id="L26969" class="LineNr">26969 </span> 89/<- %ebp 4/r32/esp -<span id="L26970" class="LineNr">26970 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26971" class="LineNr">26971 </span> 50/push-eax -<span id="L26972" class="LineNr">26972 </span> <span class="subxComment"># var curr/eax: (addr function) = *Program->functions</span> -<span id="L26973" class="LineNr">26973 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *_Program-functions *_Program-functions->payload) <span class="subxComment"># => eax</span> -<span id="L26974" class="LineNr">26974 </span> { -<span id="L26975" class="LineNr">26975 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L26976" class="LineNr">26976 </span> 3d/compare-eax-and 0/imm32 -<span id="L26977" class="LineNr">26977 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26978" class="LineNr">26978 </span> (<a href='mu.subx.html#L26991'>emit-subx-function</a> *(ebp+8) %eax *(ebp+0xc) *(ebp+0x10)) -<span id="L26979" class="LineNr">26979 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L26980" class="LineNr">26980 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x20) *(eax+0x24)) <span class="subxComment"># Function-next Function-next => eax</span> -<span id="L26981" class="LineNr">26981 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L26982" class="LineNr">26982 </span> } -<span id="L26983" class="LineNr">26983 </span><span class="Constant">$emit-subx:end</span>: -<span id="L26984" class="LineNr">26984 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26985" class="LineNr">26985 </span> 58/pop-to-eax -<span id="L26986" class="LineNr">26986 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26987" class="LineNr">26987 </span> 89/<- %esp 5/r32/ebp -<span id="L26988" class="LineNr">26988 </span> 5d/pop-to-ebp -<span id="L26989" class="LineNr">26989 </span> c3/return -<span id="L26990" class="LineNr">26990 </span> -<span id="L26991" class="LineNr">26991 </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="L26992" class="LineNr">26992 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26993" class="LineNr">26993 </span> 55/push-ebp -<span id="L26994" class="LineNr">26994 </span> 89/<- %ebp 4/r32/esp -<span id="L26995" class="LineNr">26995 </span> <span class="subxComment"># some preprocessing</span> -<span id="L26996" class="LineNr">26996 </span> (<a href='mu.subx.html#L27036'>populate-mu-type-offsets-in-inouts</a> *(ebp+0xc)) -<span id="L26997" class="LineNr">26997 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26998" class="LineNr">26998 </span> 50/push-eax -<span id="L26999" class="LineNr">26999 </span> 51/push-ecx -<span id="L27000" class="LineNr">27000 </span> 52/push-edx -<span id="L27001" class="LineNr">27001 </span> <span class="subxComment"># initialize some global state</span> -<span id="L27002" class="LineNr">27002 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span> 1/imm32 <span class="subxComment"># Important: keep this in sync with the parse phase</span> -<span id="L27003" class="LineNr">27003 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L26956'>Curr-local-stack-offset</a></span> 0/imm32 -<span id="L27004" class="LineNr">27004 </span> <span class="subxComment"># ecx = f</span> -<span id="L27005" class="LineNr">27005 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L27006" class="LineNr">27006 </span> <span class="subxComment"># var vars/edx: (stack (addr var) 256)</span> -<span id="L27007" class="LineNr">27007 </span> 81 5/subop/subtract %esp 0xc00/imm32 -<span id="L27008" class="LineNr">27008 </span> 68/push 0xc00/imm32/size -<span id="L27009" class="LineNr">27009 </span> 68/push 0/imm32/top -<span id="L27010" class="LineNr">27010 </span> 89/<- %edx 4/r32/esp -<span id="L27011" class="LineNr">27011 </span> <span class="subxComment"># var name/eax: (addr array byte) = lookup(f->name)</span> -<span id="L27012" class="LineNr">27012 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L27013" class="LineNr">27013 </span> <span class="subxComment">#</span> -<span id="L27014" class="LineNr">27014 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L27015" class="LineNr">27015 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":\n"</span>) -<span id="L27016" class="LineNr">27016 </span> (<a href='mu.subx.html#L38473'>emit-subx-prologue</a> *(ebp+8)) -<span id="L27017" class="LineNr">27017 </span> <span class="subxComment"># var body/eax: (addr block) = lookup(f->body)</span> -<span id="L27018" class="LineNr">27018 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Function-body Function-body => eax</span> -<span id="L27019" class="LineNr">27019 </span> <span class="subxComment">#</span> -<span id="L27020" class="LineNr">27020 </span> (<a href='mu.subx.html#L30287'>emit-subx-block</a> *(ebp+8) %eax %edx *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L27021" class="LineNr">27021 </span> (<a href='mu.subx.html#L38487'>emit-subx-epilogue</a> *(ebp+8)) -<span id="L27022" class="LineNr">27022 </span> <span class="subxComment"># TODO: validate that *Curr-block-depth and *Curr-local-stack-offset have</span> -<span id="L27023" class="LineNr">27023 </span> <span class="subxComment"># been cleaned up</span> -<span id="L27024" class="LineNr">27024 </span><span class="Constant">$emit-subx-function:end</span>: -<span id="L27025" class="LineNr">27025 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L27026" class="LineNr">27026 </span> 81 0/subop/add %esp 0xc08/imm32 -<span id="L27027" class="LineNr">27027 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27028" class="LineNr">27028 </span> 5a/pop-to-edx -<span id="L27029" class="LineNr">27029 </span> 59/pop-to-ecx -<span id="L27030" class="LineNr">27030 </span> 58/pop-to-eax -<span id="L27031" class="LineNr">27031 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27032" class="LineNr">27032 </span> 89/<- %esp 5/r32/ebp -<span id="L27033" class="LineNr">27033 </span> 5d/pop-to-ebp -<span id="L27034" class="LineNr">27034 </span> c3/return -<span id="L27035" class="LineNr">27035 </span> -<span id="L27036" class="LineNr">27036 </span><span class="subxFunction">populate-mu-type-offsets-in-inouts</span>: <span class="subxComment"># f: (addr function)</span> -<span id="L27037" class="LineNr">27037 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27038" class="LineNr">27038 </span> 55/push-ebp -<span id="L27039" class="LineNr">27039 </span> 89/<- %ebp 4/r32/esp -<span id="L27040" class="LineNr">27040 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27041" class="LineNr">27041 </span> 50/push-eax -<span id="L27042" class="LineNr">27042 </span> 51/push-ecx -<span id="L27043" class="LineNr">27043 </span> 52/push-edx -<span id="L27044" class="LineNr">27044 </span> 53/push-ebx -<span id="L27045" class="LineNr">27045 </span> 57/push-edi -<span id="L27046" class="LineNr">27046 </span> <span class="subxComment"># var next-offset/edx: int = 8</span> -<span id="L27047" class="LineNr">27047 </span> ba/copy-to-edx 8/imm32 -<span id="L27048" class="LineNr">27048 </span> <span class="subxComment"># var curr/ecx: (addr list var) = lookup(f->inouts)</span> -<span id="L27049" class="LineNr">27049 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L27050" class="LineNr">27050 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> -<span id="L27051" class="LineNr">27051 </span> 89/<- %ecx 0/r32/eax -<span id="L27052" class="LineNr">27052 </span> { -<span id="L27053" class="LineNr">27053 </span><span class="Constant">$populate-mu-type-offsets-in-inouts:loop</span>: -<span id="L27054" class="LineNr">27054 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L27055" class="LineNr">27055 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L27056" class="LineNr">27056 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(curr->value)</span> -<span id="L27057" class="LineNr">27057 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L27058" class="LineNr">27058 </span> 89/<- %ebx 0/r32/eax -<span id="L27059" class="LineNr">27059 </span><span class="CommentedCode">#? (lookup *ebx *(ebx+4))</span> -<span id="L27060" class="LineNr">27060 </span><span class="CommentedCode">#? (write-buffered Stderr "setting offset of fn inout ")</span> -<span id="L27061" class="LineNr">27061 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L27062" class="LineNr">27062 </span><span class="CommentedCode">#? (write-buffered Stderr "@")</span> -<span id="L27063" class="LineNr">27063 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ebx)</span> -<span id="L27064" class="LineNr">27064 </span><span class="CommentedCode">#? (write-buffered Stderr " to ")</span> -<span id="L27065" class="LineNr">27065 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %edx)</span> -<span id="L27066" class="LineNr">27066 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L27067" class="LineNr">27067 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L27068" class="LineNr">27068 </span> <span class="subxComment"># v->offset = next-offset</span> -<span id="L27069" class="LineNr">27069 </span> 89/<- *(ebx+0x14) 2/r32/edx <span class="subxComment"># Var-offset</span> -<span id="L27070" class="LineNr">27070 </span> <span class="subxComment"># next-offset += size-of(v)</span> -<span id="L27071" class="LineNr">27071 </span> (<a href='mu.subx.html#L26553'>size-of</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L27072" class="LineNr">27072 </span> 01/add-to %edx 0/r32/eax -<span id="L27073" class="LineNr">27073 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L27074" class="LineNr">27074 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L27075" class="LineNr">27075 </span> 89/<- %ecx 0/r32/eax -<span id="L27076" class="LineNr">27076 </span> <span class="subxComment">#</span> -<span id="L27077" class="LineNr">27077 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L27078" class="LineNr">27078 </span> } -<span id="L27079" class="LineNr">27079 </span><span class="Constant">$populate-mu-type-offsets-in-inouts:end</span>: -<span id="L27080" class="LineNr">27080 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27081" class="LineNr">27081 </span> 5f/pop-to-edi -<span id="L27082" class="LineNr">27082 </span> 5b/pop-to-ebx -<span id="L27083" class="LineNr">27083 </span> 5a/pop-to-edx -<span id="L27084" class="LineNr">27084 </span> 59/pop-to-ecx -<span id="L27085" class="LineNr">27085 </span> 58/pop-to-eax -<span id="L27086" class="LineNr">27086 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27087" class="LineNr">27087 </span> 89/<- %esp 5/r32/ebp -<span id="L27088" class="LineNr">27088 </span> 5d/pop-to-ebp -<span id="L27089" class="LineNr">27089 </span> c3/return -<span id="L27090" class="LineNr">27090 </span> -<span id="L27091" class="LineNr">27091 </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="L27092" class="LineNr">27092 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27093" class="LineNr">27093 </span> 55/push-ebp -<span id="L27094" class="LineNr">27094 </span> 89/<- %ebp 4/r32/esp -<span id="L27095" class="LineNr">27095 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27096" class="LineNr">27096 </span> 50/push-eax -<span id="L27097" class="LineNr">27097 </span> 51/push-ecx -<span id="L27098" class="LineNr">27098 </span> 53/push-ebx -<span id="L27099" class="LineNr">27099 </span> 56/push-esi -<span id="L27100" class="LineNr">27100 </span> <span class="subxComment"># esi = stmts</span> -<span id="L27101" class="LineNr">27101 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L27102" class="LineNr">27102 </span> <span class="subxComment">#</span> -<span id="L27103" class="LineNr">27103 </span> { -<span id="L27104" class="LineNr">27104 </span><span class="Constant">$emit-subx-stmt-list:loop</span>: -<span id="L27105" class="LineNr">27105 </span> 81 7/subop/compare %esi 0/imm32 -<span id="L27106" class="LineNr">27106 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L27107" class="LineNr">27107 </span> <span class="subxComment"># var curr-stmt/ecx: (addr stmt) = lookup(stmts->value)</span> -<span id="L27108" class="LineNr">27108 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L27109" class="LineNr">27109 </span> 89/<- %ecx 0/r32/eax -<span id="L27110" class="LineNr">27110 </span> { -<span id="L27111" class="LineNr">27111 </span><span class="Constant">$emit-subx-stmt-list:check-for-block</span>: -<span id="L27112" class="LineNr">27112 </span> 81 7/subop/compare *ecx 0/imm32/block <span class="subxComment"># Stmt-tag</span> -<span id="L27113" class="LineNr">27113 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L27114" class="LineNr">27114 </span><span class="Constant">$emit-subx-stmt-list:block</span>: -<span id="L27115" class="LineNr">27115 </span> (<a href='mu.subx.html#L30287'>emit-subx-block</a> *(ebp+8) %ecx *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L27116" class="LineNr">27116 </span> } -<span id="L27117" class="LineNr">27117 </span> { -<span id="L27118" class="LineNr">27118 </span><span class="Constant">$emit-subx-stmt-list:check-for-stmt</span>: -<span id="L27119" class="LineNr">27119 </span> 81 7/subop/compare *ecx 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> -<span id="L27120" class="LineNr">27120 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L27121" class="LineNr">27121 </span><span class="Constant">$emit-subx-stmt-list:stmt1</span>: -<span id="L27122" class="LineNr">27122 </span> { -<span id="L27123" class="LineNr">27123 </span> (<a href='mu.subx.html#L27535'>mu-branch?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L27124" class="LineNr">27124 </span> 3d/compare-eax-and 0/imm32/false -<span id="L27125" class="LineNr">27125 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L27126" class="LineNr">27126 </span><span class="Constant">$emit-subx-stmt-list:branch-stmt</span>: -<span id="L27127" class="Folded">27127 </span><span class="Folded">+-- 25 lines: # unconditional return ----------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L27152" class="Folded">27152 </span><span class="Folded">+-- 27 lines: # unconditional loops -----------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L27179" class="Folded">27179 </span><span class="Folded">+-- 16 lines: # unconditional breaks ----------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L27195" class="Folded">27195 </span><span class="Folded">+-- 38 lines: # simple conditional branches without a target ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L27233" class="Folded">27233 </span><span class="Folded">+-- 19 lines: # conditional branches with an explicit target ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L27252" class="LineNr">27252 </span> } -<span id="L27253" class="LineNr">27253 </span><span class="Constant">$emit-subx-stmt-list:1-to-1</span>: -<span id="L27254" class="LineNr">27254 </span> (<a href='mu.subx.html#L28630'>emit-subx-stmt</a> *(ebp+8) %ecx <span class="SpecialChar"><a href='mu.subx.html#L30394'>Primitives</a></span> *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L27255" class="LineNr">27255 </span> e9/jump $emit-subx-stmt-list:continue/disp32 -<span id="L27256" class="LineNr">27256 </span> } -<span id="L27257" class="LineNr">27257 </span> { -<span id="L27258" class="LineNr">27258 </span><span class="Constant">$emit-subx-stmt-list:check-for-var-def</span>: -<span id="L27259" class="LineNr">27259 </span> 81 7/subop/compare *ecx 2/imm32/var-def <span class="subxComment"># Stmt-tag</span> -<span id="L27260" class="LineNr">27260 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L27261" class="LineNr">27261 </span><span class="Constant">$emit-subx-stmt-list:var-def</span>: -<span id="L27262" class="LineNr">27262 </span> (<a href='mu.subx.html#L28491'>emit-subx-var-def</a> *(ebp+8) %ecx *(ebp+0x18) *(ebp+0x1c)) -<span id="L27263" class="LineNr">27263 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ecx+4)) <span class="subxComment"># Vardef-var</span> -<span id="L27264" class="LineNr">27264 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ecx+8)) <span class="subxComment"># Vardef-var</span> -<span id="L27265" class="LineNr">27265 </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="L27266" class="LineNr">27266 </span> <span class="subxComment">#</span> -<span id="L27267" class="LineNr">27267 </span> eb/jump $emit-subx-stmt-list:continue/disp8 -<span id="L27268" class="LineNr">27268 </span> } -<span id="L27269" class="LineNr">27269 </span> { -<span id="L27270" class="LineNr">27270 </span><span class="Constant">$emit-subx-stmt-list:check-for-reg-var-def</span>: -<span id="L27271" class="LineNr">27271 </span> 81 7/subop/compare *ecx 3/imm32/reg-var-def <span class="subxComment"># Stmt-tag</span> -<span id="L27272" class="LineNr">27272 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L27273" class="LineNr">27273 </span><span class="Constant">$emit-subx-stmt-list:reg-var-def</span>: -<span id="L27274" class="LineNr">27274 </span> <span class="subxComment"># TODO: ensure that there's exactly one output</span> -<span id="L27275" class="LineNr">27275 </span> (<a href='mu.subx.html#L27304'>push-output-and-maybe-emit-spill</a> *(ebp+8) %ecx *(ebp+0x10) %esi *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L27276" class="LineNr">27276 </span> <span class="subxComment"># emit the instruction as usual</span> -<span id="L27277" class="LineNr">27277 </span> (<a href='mu.subx.html#L28630'>emit-subx-stmt</a> *(ebp+8) %ecx <span class="SpecialChar"><a href='mu.subx.html#L30394'>Primitives</a></span> *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L27278" class="LineNr">27278 </span> <span class="subxComment">#</span> -<span id="L27279" class="LineNr">27279 </span> eb/jump $emit-subx-stmt-list:continue/disp8 -<span id="L27280" class="LineNr">27280 </span> } -<span id="L27281" class="LineNr">27281 </span><span class="Constant">$emit-subx-stmt-list:continue</span>: -<span id="L27282" class="LineNr">27282 </span> <span class="subxComment"># TODO: raise an error on unrecognized Stmt-tag</span> -<span id="L27283" class="LineNr">27283 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L27284" class="LineNr">27284 </span> 89/<- %esi 0/r32/eax -<span id="L27285" class="LineNr">27285 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L27286" class="LineNr">27286 </span> } -<span id="L27287" class="LineNr">27287 </span><span class="Constant">$emit-subx-stmt-list:emit-cleanup</span>: -<span id="L27288" class="LineNr">27288 </span> (<a href='mu.subx.html#L27697'>emit-cleanup-code-until-depth</a> *(ebp+8) *(ebp+0x10) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L27289" class="LineNr">27289 </span><span class="Constant">$emit-subx-stmt-list:clean-up</span>: -<span id="L27290" class="LineNr">27290 </span> (<a href='mu.subx.html#L28027'>clean-up-stack-offset-state</a> *(ebp+0x10) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L27291" class="LineNr">27291 </span> (<a href='mu.subx.html#L28415'>clean-up-blocks</a> *(ebp+0x10) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span> *(ebp+0x14)) -<span id="L27292" class="LineNr">27292 </span><span class="Constant">$emit-subx-stmt-list:end</span>: -<span id="L27293" class="LineNr">27293 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27294" class="LineNr">27294 </span> 5e/pop-to-esi -<span id="L27295" class="LineNr">27295 </span> 5b/pop-to-ebx -<span id="L27296" class="LineNr">27296 </span> 59/pop-to-ecx -<span id="L27297" class="LineNr">27297 </span> 58/pop-to-eax -<span id="L27298" class="LineNr">27298 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27299" class="LineNr">27299 </span> 89/<- %esp 5/r32/ebp -<span id="L27300" class="LineNr">27300 </span> 5d/pop-to-ebp -<span id="L27301" class="LineNr">27301 </span> c3/return -<span id="L27302" class="LineNr">27302 </span> -<span id="L27303" class="LineNr">27303 </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="L27304" class="LineNr">27304 </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="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"># ecx = stmt</span> -<span id="L27313" class="LineNr">27313 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L27314" class="LineNr">27314 </span> <span class="subxComment"># var sv/eax: (addr stmt-var) = lookup(curr-stmt->outputs)</span> -<span id="L27315" class="LineNr">27315 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Regvardef-outputs Regvardef-outputs => eax</span> -<span id="L27316" class="LineNr">27316 </span> <span class="subxComment"># TODO: assert !sv->is-deref?</span> -<span id="L27317" class="LineNr">27317 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(sv->value)</span> -<span id="L27318" class="LineNr">27318 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L27319" class="LineNr">27319 </span> 89/<- %ecx 0/r32/eax -<span id="L27320" class="LineNr">27320 </span> <span class="subxComment"># v->block-depth = *Curr-block-depth</span> -<span id="L27321" class="LineNr">27321 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span> 0/r32/eax -<span id="L27322" class="LineNr">27322 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> -<span id="L27323" class="LineNr">27323 </span><span class="CommentedCode">#? (write-buffered Stderr "var ")</span> -<span id="L27324" class="LineNr">27324 </span><span class="CommentedCode">#? (lookup *ecx *(ecx+4))</span> -<span id="L27325" class="LineNr">27325 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L27326" class="LineNr">27326 </span><span class="CommentedCode">#? (write-buffered Stderr " at depth ")</span> -<span id="L27327" class="LineNr">27327 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ecx+0x10))</span> -<span id="L27328" class="LineNr">27328 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L27329" class="LineNr">27329 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L27330" class="LineNr">27330 </span> <span class="subxComment"># ensure that v is in a register</span> -<span id="L27331" class="LineNr">27331 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L27332" class="LineNr">27332 </span> 0f 84/jump-if-= $push-output-and-maybe-emit-spill:abort/disp32 -<span id="L27333" class="LineNr">27333 </span> <span class="subxComment"># var emit-spill?/edx: boolean = not-yet-spilled-this-block? && will-not-write-some-register?(fn)</span> -<span id="L27334" class="LineNr">27334 </span> (<a href='mu.subx.html#L28099'>not-yet-spilled-this-block?</a> %ecx *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L27335" class="LineNr">27335 </span> 89/<- %edx 0/r32/eax -<span id="L27336" class="LineNr">27336 </span> 3d/compare-eax-and 0/imm32/false -<span id="L27337" class="LineNr">27337 </span> 0f 84/jump-if-= $push-output-and-maybe-emit-spill:<a href='203stack.subx.html#L114'>push</a>/disp32 -<span id="L27338" class="LineNr">27338 </span> (<a href='mu.subx.html#L28172'>will-not-write-some-register?</a> %ecx *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> -<span id="L27339" class="LineNr">27339 </span> 89/<- %edx 0/r32/eax -<span id="L27340" class="LineNr">27340 </span> <span class="subxComment"># check emit-spill?</span> -<span id="L27341" class="LineNr">27341 </span> 3d/compare-eax-and 0/imm32/false -<span id="L27342" class="LineNr">27342 </span> 0f 84/jump-if-= $push-output-and-maybe-emit-spill:<a href='203stack.subx.html#L114'>push</a>/disp32 -<span id="L27343" class="LineNr">27343 </span> <span class="subxComment"># TODO: assert(size-of(output) == 4)</span> -<span id="L27344" class="LineNr">27344 </span> <span class="subxComment"># *Curr-local-stack-offset -= 4</span> -<span id="L27345" class="LineNr">27345 </span> 81 5/subop/subtract *<span class="SpecialChar"><a href='mu.subx.html#L26956'>Curr-local-stack-offset</a></span> 4/imm32 -<span id="L27346" class="LineNr">27346 </span> <span class="subxComment"># emit spill</span> -<span id="L27347" class="LineNr">27347 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L27348" class="LineNr">27348 </span> (<a href='mu.subx.html#L27870'>emit-push-register</a> *(ebp+8) %eax) -<span id="L27349" class="LineNr">27349 </span><span class="Constant">$push-output-and-maybe-emit-spill:<a href='203stack.subx.html#L114'>push</a></span>: -<span id="L27350" class="LineNr">27350 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L27351" class="LineNr">27351 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Regvardef-outputs Regvardef-outputs => eax</span> -<span id="L27352" class="LineNr">27352 </span> <span class="subxComment"># push(vars, {sv->value, emit-spill?})</span> -<span id="L27353" class="LineNr">27353 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *eax) <span class="subxComment"># Stmt-var-value</span> -<span id="L27354" class="LineNr">27354 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *(eax+4)) <span class="subxComment"># Stmt-var-value</span> -<span id="L27355" class="LineNr">27355 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) %edx) -<span id="L27356" class="LineNr">27356 </span><span class="Constant">$push-output-and-maybe-emit-spill: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="Constant">$push-output-and-maybe-emit-spill:abort</span>: -<span id="L27367" class="LineNr">27367 </span> <span class="subxComment"># error("var '" var->name "' initialized from an instruction must live in a register\n")</span> -<span id="L27368" class="LineNr">27368 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x1c) <span class="Constant">"var '"</span>) -<span id="L27369" class="LineNr">27369 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x1c) *eax) <span class="subxComment"># Var-name</span> -<span id="L27370" class="LineNr">27370 </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="L27371" class="LineNr">27371 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x1c)) -<span id="L27372" class="LineNr">27372 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x20) 1) -<span id="L27373" class="LineNr">27373 </span> <span class="subxComment"># never gets here</span> -<span id="L27374" class="LineNr">27374 </span> -<span id="L27375" class="LineNr">27375 </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="L27376" class="LineNr">27376 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27377" class="LineNr">27377 </span> 55/push-ebp -<span id="L27378" class="LineNr">27378 </span> 89/<- %ebp 4/r32/esp -<span id="L27379" class="LineNr">27379 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27380" class="LineNr">27380 </span> 50/push-eax -<span id="L27381" class="LineNr">27381 </span> 51/push-ecx -<span id="L27382" class="LineNr">27382 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L27383" class="LineNr">27383 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L27384" class="LineNr">27384 </span> <span class="subxComment"># var target/eax: (addr array byte) = curr-stmt->inouts->value->name</span> -<span id="L27385" class="LineNr">27385 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L27386" class="LineNr">27386 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L27387" class="LineNr">27387 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L27388" class="LineNr">27388 </span> <span class="subxComment"># clean up until target block</span> -<span id="L27389" class="LineNr">27389 </span> (<a href='mu.subx.html#L27950'>emit-cleanup-code-until-target</a> *(ebp+8) *(ebp+0x10) %eax) -<span id="L27390" class="LineNr">27390 </span> <span class="subxComment"># emit jump to target block</span> -<span id="L27391" class="LineNr">27391 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L27392" class="LineNr">27392 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"e9/jump "</span>) -<span id="L27393" class="LineNr">27393 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L27394" class="LineNr">27394 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L27395" class="LineNr">27395 </span> (<a href='105string-equal.subx.html#L57'>string-starts-with?</a> %eax <span class="Constant">"break"</span>) -<span id="L27396" class="LineNr">27396 </span> 3d/compare-eax-and 0/imm32/false -<span id="L27397" class="LineNr">27397 </span> { -<span id="L27398" class="LineNr">27398 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L27399" class="LineNr">27399 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":break/disp32\n"</span>) -<span id="L27400" class="LineNr">27400 </span> eb/jump $emit-subx-cleanup-and-unconditional-nonlocal-branch:end/disp8 -<span id="L27401" class="LineNr">27401 </span> } -<span id="L27402" class="LineNr">27402 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":loop/disp32\n"</span>) -<span id="L27403" class="LineNr">27403 </span><span class="Constant">$emit-subx-cleanup-and-unconditional-nonlocal-branch:end</span>: -<span id="L27404" class="LineNr">27404 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27405" class="LineNr">27405 </span> 59/pop-to-ecx -<span id="L27406" class="LineNr">27406 </span> 58/pop-to-eax -<span id="L27407" class="LineNr">27407 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27408" class="LineNr">27408 </span> 89/<- %esp 5/r32/ebp -<span id="L27409" class="LineNr">27409 </span> 5d/pop-to-ebp -<span id="L27410" class="LineNr">27410 </span> c3/return -<span id="L27411" class="LineNr">27411 </span> -<span id="L27412" class="LineNr">27412 </span><span class="subxFunction">emit-outputs</span>: <span class="subxComment"># out: (addr buffered-file), return-stmt: (addr stmt1), fn: (addr function)</span> -<span id="L27413" class="LineNr">27413 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27414" class="LineNr">27414 </span> 55/push-ebp -<span id="L27415" class="LineNr">27415 </span> 89/<- %ebp 4/r32/esp -<span id="L27416" class="LineNr">27416 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27417" class="LineNr">27417 </span> 50/push-eax -<span id="L27418" class="LineNr">27418 </span> 51/push-ecx -<span id="L27419" class="LineNr">27419 </span> 56/push-esi -<span id="L27420" class="LineNr">27420 </span> 57/push-edi -<span id="L27421" class="LineNr">27421 </span> <span class="subxComment"># var curr-inout/esi: (addr stmt-var) = return-stmt->inouts</span> -<span id="L27422" class="LineNr">27422 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L27423" class="LineNr">27423 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L27424" class="LineNr">27424 </span> 89/<- %esi 0/r32/eax -<span id="L27425" class="LineNr">27425 </span> <span class="subxComment"># var curr-output/edi: (addr list var) = fn->outputs</span> -<span id="L27426" class="LineNr">27426 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L27427" class="LineNr">27427 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> -<span id="L27428" class="LineNr">27428 </span> 89/<- %edi 0/r32/eax -<span id="L27429" class="LineNr">27429 </span> { -<span id="L27430" class="LineNr">27430 </span><span class="Constant">$emit-outputs:loop</span>: -<span id="L27431" class="LineNr">27431 </span> 81 7/subop/compare %esi 0/imm32 -<span id="L27432" class="LineNr">27432 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L27433" class="LineNr">27433 </span> <span class="subxComment"># emit copy to output register</span> -<span id="L27434" class="LineNr">27434 </span> <span class="subxComment"># var curr-output-register/ecx: (addr array byte) = curr-output->value->register</span> -<span id="L27435" class="LineNr">27435 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L27436" class="LineNr">27436 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L27437" class="LineNr">27437 </span> 89/<- %ecx 0/r32/eax -<span id="L27438" class="LineNr">27438 </span> <span class="subxComment"># if curr-output-register starts with "x", emit a floating-point copy</span> -<span id="L27439" class="LineNr">27439 </span> 8a/copy-byte *(ecx+4) 0/r32/AL -<span id="L27440" class="LineNr">27440 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L27441" class="LineNr">27441 </span> 3d/compare-eax-and 0x78/imm32/x -<span id="L27442" class="LineNr">27442 </span> { -<span id="L27443" class="LineNr">27443 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L27444" class="LineNr">27444 </span> (<a href='mu.subx.html#L27513'>emit-float-output</a> *(ebp+8) %esi %ecx) -<span id="L27445" class="LineNr">27445 </span> eb/jump $emit-outputs:continue/disp8 -<span id="L27446" class="LineNr">27446 </span> } -<span id="L27447" class="LineNr">27447 </span> <span class="subxComment"># otherwise emit an int copy</span> -<span id="L27448" class="LineNr">27448 </span> (<a href='mu.subx.html#L27470'>emit-int-output</a> *(ebp+8) %esi %ecx) -<span id="L27449" class="LineNr">27449 </span><span class="Constant">$emit-outputs:continue</span>: -<span id="L27450" class="LineNr">27450 </span> <span class="subxComment"># curr-inout = curr-inout->next</span> -<span id="L27451" class="LineNr">27451 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L27452" class="LineNr">27452 </span> 89/<- %esi 0/r32/eax -<span id="L27453" class="LineNr">27453 </span> <span class="subxComment"># curr-output = curr-output->next</span> -<span id="L27454" class="LineNr">27454 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L27455" class="LineNr">27455 </span> 89/<- %edi 0/r32/eax -<span id="L27456" class="LineNr">27456 </span> <span class="subxComment">#</span> -<span id="L27457" class="LineNr">27457 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L27458" class="LineNr">27458 </span> } -<span id="L27459" class="LineNr">27459 </span><span class="Constant">$emit-outputs:end</span>: -<span id="L27460" class="LineNr">27460 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27461" class="LineNr">27461 </span> 5f/pop-to-edi -<span id="L27462" class="LineNr">27462 </span> 5e/pop-to-esi -<span id="L27463" class="LineNr">27463 </span> 59/pop-to-ecx -<span id="L27464" class="LineNr">27464 </span> 58/pop-to-eax -<span id="L27465" class="LineNr">27465 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27466" class="LineNr">27466 </span> 89/<- %esp 5/r32/ebp -<span id="L27467" class="LineNr">27467 </span> 5d/pop-to-ebp -<span id="L27468" class="LineNr">27468 </span> c3/return -<span id="L27469" class="LineNr">27469 </span> -<span id="L27470" class="LineNr">27470 </span><span class="subxFunction">emit-int-output</span>: <span class="subxComment"># out: (addr buffered-file), return-var: (addr stmt-var), dest-reg: (addr array byte)</span> -<span id="L27471" class="LineNr">27471 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27472" class="LineNr">27472 </span> 55/push-ebp -<span id="L27473" class="LineNr">27473 </span> 89/<- %ebp 4/r32/esp -<span id="L27474" class="LineNr">27474 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27475" class="LineNr">27475 </span> 50/push-eax -<span id="L27476" class="LineNr">27476 </span> 51/push-ecx -<span id="L27477" class="LineNr">27477 </span> <span class="subxComment"># ecx = return-var->value</span> -<span id="L27478" class="LineNr">27478 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L27479" class="LineNr">27479 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L27480" class="LineNr">27480 </span> 89/<- %ecx 0/r32/eax -<span id="L27481" class="LineNr">27481 </span> <span class="subxComment"># if curr-var is a literal, emit copy of a literal to the output</span> -<span id="L27482" class="LineNr">27482 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L27483" class="LineNr">27483 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 0) <span class="subxComment"># literal => eax</span> -<span id="L27484" class="LineNr">27484 </span> { -<span id="L27485" class="LineNr">27485 </span> 3d/compare-eax-and 0/imm32/false -<span id="L27486" class="LineNr">27486 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L27487" class="LineNr">27487 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L27488" class="LineNr">27488 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"c7 0/subop/copy %"</span>) -<span id="L27489" class="LineNr">27489 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0x10)) -<span id="L27490" class="LineNr">27490 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) -<span id="L27491" class="LineNr">27491 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L27492" class="LineNr">27492 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L27493" class="LineNr">27493 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) -<span id="L27494" class="LineNr">27494 </span> e9/jump $emit-int-output:end/disp32 -<span id="L27495" class="LineNr">27495 </span> } -<span id="L27496" class="LineNr">27496 </span> <span class="subxComment"># otherwise emit an integer copy</span> -<span id="L27497" class="LineNr">27497 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L27498" class="LineNr">27498 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8b/->"</span>) -<span id="L27499" class="LineNr">27499 </span> (<a href='mu.subx.html#L35416'>emit-subx-var-as-rm32</a> *(ebp+8) *(ebp+0xc)) -<span id="L27500" class="LineNr">27500 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) -<span id="L27501" class="LineNr">27501 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19375'>Mu-registers</a></span> *(ebp+0x10) 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax</span> -<span id="L27502" class="LineNr">27502 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L27503" class="LineNr">27503 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) -<span id="L27504" class="LineNr">27504 </span><span class="Constant">$emit-int-output:end</span>: -<span id="L27505" class="LineNr">27505 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27506" class="LineNr">27506 </span> 59/pop-to-ecx -<span id="L27507" class="LineNr">27507 </span> 58/pop-to-eax -<span id="L27508" class="LineNr">27508 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27509" class="LineNr">27509 </span> 89/<- %esp 5/r32/ebp -<span id="L27510" class="LineNr">27510 </span> 5d/pop-to-ebp -<span id="L27511" class="LineNr">27511 </span> c3/return -<span id="L27512" class="LineNr">27512 </span> -<span id="L27513" class="LineNr">27513 </span><span class="subxFunction">emit-float-output</span>: <span class="subxComment"># out: (addr buffered-file), return-var: (addr stmt-var), dest-reg: (addr array byte)</span> -<span id="L27514" class="LineNr">27514 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27515" class="LineNr">27515 </span> 55/push-ebp -<span id="L27516" class="LineNr">27516 </span> 89/<- %ebp 4/r32/esp -<span id="L27517" class="LineNr">27517 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27518" class="LineNr">27518 </span> 50/push-eax -<span id="L27519" class="LineNr">27519 </span> <span class="subxComment">#</span> -<span id="L27520" class="LineNr">27520 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L27521" class="LineNr">27521 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"f3 0f 10/->"</span>) -<span id="L27522" class="LineNr">27522 </span> (<a href='mu.subx.html#L35416'>emit-subx-var-as-rm32</a> *(ebp+8) *(ebp+0xc)) -<span id="L27523" class="LineNr">27523 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) -<span id="L27524" class="LineNr">27524 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19375'>Mu-registers</a></span> *(ebp+0x10) 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax</span> -<span id="L27525" class="LineNr">27525 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L27526" class="LineNr">27526 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/x32\n"</span>) -<span id="L27527" class="LineNr">27527 </span><span class="Constant">$emit-float-output:end</span>: -<span id="L27528" class="LineNr">27528 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26799" class="LineNr">26799 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26800" class="LineNr">26800 </span> b8/copy-to-eax 4/imm32 +<span id="L26801" class="LineNr">26801 </span> eb/jump $size-of-type-id:end/disp8 +<span id="L26802" class="LineNr">26802 </span> } +<span id="L26803" class="LineNr">26803 </span> <span class="subxComment"># if t is a handle, return 8</span> +<span id="L26804" class="LineNr">26804 </span> 3d/compare-eax-and 4/imm32/handle +<span id="L26805" class="LineNr">26805 </span> { +<span id="L26806" class="LineNr">26806 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26807" class="LineNr">26807 </span> b8/copy-to-eax 8/imm32 +<span id="L26808" class="LineNr">26808 </span> eb/jump $size-of-type-id:end/disp8 <span class="subxComment"># eax changes type from type-id to int</span> +<span id="L26809" class="LineNr">26809 </span> } +<span id="L26810" class="LineNr">26810 </span> <span class="subxComment"># if t is a slice, return 8</span> +<span id="L26811" class="LineNr">26811 </span> 3d/compare-eax-and 0xc/imm32/slice +<span id="L26812" class="LineNr">26812 </span> { +<span id="L26813" class="LineNr">26813 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26814" class="LineNr">26814 </span> b8/copy-to-eax 8/imm32 +<span id="L26815" class="LineNr">26815 </span> eb/jump $size-of-type-id:end/disp8 <span class="subxComment"># eax changes type from type-id to int</span> +<span id="L26816" class="LineNr">26816 </span> } +<span id="L26817" class="LineNr">26817 </span> <span class="subxComment"># if t is a user-defined type, return its size</span> +<span id="L26818" class="LineNr">26818 </span> <span class="subxComment"># TODO: support non-atom type</span> +<span id="L26819" class="LineNr">26819 </span> (<a href='mu.subx.html#L20332'>find-typeinfo</a> %eax %ecx) +<span id="L26820" class="LineNr">26820 </span> { +<span id="L26821" class="LineNr">26821 </span> 81 7/subop/compare *ecx 0/imm32 +<span id="L26822" class="LineNr">26822 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26823" class="LineNr">26823 </span><span class="Constant">$size-of-type-id:user-defined</span>: +<span id="L26824" class="LineNr">26824 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> +<span id="L26825" class="LineNr">26825 </span> 8b/-> *(eax+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-total-size-in-bytes</span> +<span id="L26826" class="LineNr">26826 </span> eb/jump $size-of-type-id:end/disp8 +<span id="L26827" class="LineNr">26827 </span> } +<span id="L26828" class="LineNr">26828 </span> <span class="subxComment"># otherwise return the word size</span> +<span id="L26829" class="LineNr">26829 </span> b8/copy-to-eax 4/imm32 +<span id="L26830" class="LineNr">26830 </span><span class="Constant">$size-of-type-id:end</span>: +<span id="L26831" class="LineNr">26831 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L26832" class="LineNr">26832 </span> 81 0/subop/add %esp 8/imm32 +<span id="L26833" class="LineNr">26833 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26834" class="LineNr">26834 </span> 59/pop-to-ecx +<span id="L26835" class="LineNr">26835 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26836" class="LineNr">26836 </span> 89/<- %esp 5/r32/ebp +<span id="L26837" class="LineNr">26837 </span> 5d/pop-to-ebp +<span id="L26838" class="LineNr">26838 </span> c3/return +<span id="L26839" class="LineNr">26839 </span> +<span id="L26840" class="LineNr">26840 </span><span class="subxComment"># Minor violation of our type system since it returns an addr. But we could</span> +<span id="L26841" class="LineNr">26841 </span><span class="subxComment"># replace it with a handle some time.</span> +<span id="L26842" class="LineNr">26842 </span><span class="subxComment"># Returns null if t is an atom.</span> +<span id="L26843" class="LineNr">26843 </span><span class="subxFunction">type-tail</span>: <span class="subxComment"># t: (addr type-tree) -> out/eax: (addr type-tree)</span> +<span id="L26844" class="LineNr">26844 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26845" class="LineNr">26845 </span> 55/push-ebp +<span id="L26846" class="LineNr">26846 </span> 89/<- %ebp 4/r32/esp +<span id="L26847" class="LineNr">26847 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26848" class="LineNr">26848 </span> 51/push-ecx +<span id="L26849" class="LineNr">26849 </span> <span class="subxComment"># eax = 0</span> +<span id="L26850" class="LineNr">26850 </span> b8/copy-to-eax 0/imm32 +<span id="L26851" class="LineNr">26851 </span> <span class="subxComment"># ecx = t</span> +<span id="L26852" class="LineNr">26852 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L26853" class="LineNr">26853 </span><span class="Constant">$type-tail:check-atom</span>: +<span id="L26854" class="LineNr">26854 </span> <span class="subxComment"># if t->is-atom? return 0</span> +<span id="L26855" class="LineNr">26855 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26856" class="LineNr">26856 </span> 0f 85/jump-if-!= $type-tail:end/disp32 +<span id="L26857" class="LineNr">26857 </span> <span class="subxComment"># var tail = t->right</span> +<span id="L26858" class="LineNr">26858 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L26859" class="LineNr">26859 </span> 89/<- %ecx 0/r32/eax +<span id="L26860" class="LineNr">26860 </span><span class="Constant">$type-tail:check-singleton</span>: +<span id="L26861" class="LineNr">26861 </span> <span class="subxComment"># if (tail->right == 0) return tail->left</span> +<span id="L26862" class="LineNr">26862 </span> { +<span id="L26863" class="LineNr">26863 </span> 81 7/subop/compare *(ecx+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L26864" class="LineNr">26864 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26865" class="LineNr">26865 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L26866" class="LineNr">26866 </span> e9/jump $type-tail:end/disp32 +<span id="L26867" class="LineNr">26867 </span> } +<span id="L26868" class="LineNr">26868 </span> <span class="subxComment"># if tail->right->left is an array-capacity, return tail->left</span> +<span id="L26869" class="LineNr">26869 </span> { +<span id="L26870" class="LineNr">26870 </span><span class="Constant">$type-tail:check-array-capacity</span>: +<span id="L26871" class="LineNr">26871 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L26872" class="LineNr">26872 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26873" class="LineNr">26873 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26874" class="LineNr">26874 </span><span class="Constant">$type-tail:check-array-capacity-1</span>: +<span id="L26875" class="LineNr">26875 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L26876" class="LineNr">26876 </span> 3d/compare-eax-and 0/imm32 +<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="Constant">$type-tail:check-array-capacity-2</span>: +<span id="L26879" class="LineNr">26879 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 9) <span class="subxComment"># array-capacity => eax</span> +<span id="L26880" class="LineNr">26880 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26881" class="LineNr">26881 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26882" class="LineNr">26882 </span><span class="Constant">$type-tail:array-capacity</span>: +<span id="L26883" class="LineNr">26883 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L26884" class="LineNr">26884 </span> eb/jump $type-tail:end/disp8 +<span id="L26885" class="LineNr">26885 </span> } +<span id="L26886" class="LineNr">26886 </span><span class="Constant">$type-tail:check-compound-left</span>: +<span id="L26887" class="LineNr">26887 </span> <span class="subxComment"># if !tail->left->is-atom? return tail->left</span> +<span id="L26888" class="LineNr">26888 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L26889" class="LineNr">26889 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26890" class="LineNr">26890 </span> 74/jump-if-= $type-tail:end/disp8 +<span id="L26891" class="LineNr">26891 </span><span class="Constant">$type-tail:return-tail</span>: +<span id="L26892" class="LineNr">26892 </span> <span class="subxComment"># return tail</span> +<span id="L26893" class="LineNr">26893 </span> 89/<- %eax 1/r32/ecx +<span id="L26894" class="LineNr">26894 </span><span class="Constant">$type-tail:end</span>: +<span id="L26895" class="LineNr">26895 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26896" class="LineNr">26896 </span> 59/pop-to-ecx +<span id="L26897" class="LineNr">26897 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26898" class="LineNr">26898 </span> 89/<- %esp 5/r32/ebp +<span id="L26899" class="LineNr">26899 </span> 5d/pop-to-ebp +<span id="L26900" class="LineNr">26900 </span> c3/return +<span id="L26901" class="LineNr">26901 </span> +<span id="L26902" class="LineNr">26902 </span><span class="subxFunction">type-equal?</span>: <span class="subxComment"># a: (addr type-tree), b: (addr type-tree) -> result/eax: boolean</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> 51/push-ecx +<span id="L26908" class="LineNr">26908 </span> 52/push-edx +<span id="L26909" class="LineNr">26909 </span> 53/push-ebx +<span id="L26910" class="LineNr">26910 </span> <span class="subxComment"># ecx = a</span> +<span id="L26911" class="LineNr">26911 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L26912" class="LineNr">26912 </span> <span class="subxComment"># edx = b</span> +<span id="L26913" class="LineNr">26913 </span> 8b/-> *(ebp+0xc) 2/r32/edx +<span id="L26914" class="LineNr">26914 </span><span class="Constant">$type-equal?:compare-addr</span>: +<span id="L26915" class="LineNr">26915 </span> <span class="subxComment"># if (a == b) return true</span> +<span id="L26916" class="LineNr">26916 </span> 8b/-> %ecx 0/r32/eax <span class="subxComment"># Var-type</span> +<span id="L26917" class="LineNr">26917 </span> 39/compare %edx 0/r32/eax <span class="subxComment"># Var-type</span> +<span id="L26918" class="LineNr">26918 </span> b8/copy-to-eax 1/imm32/true +<span id="L26919" class="LineNr">26919 </span> 0f 84/jump-if-= $type-equal?:end/disp32 +<span id="L26920" class="LineNr">26920 </span><span class="Constant">$type-equal?:compare-null-a</span>: +<span id="L26921" class="LineNr">26921 </span> <span class="subxComment"># if (a == 0) return false</span> +<span id="L26922" class="LineNr">26922 </span> b8/copy-to-eax 0/imm32/false +<span id="L26923" class="LineNr">26923 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L26924" class="LineNr">26924 </span> 0f 84/jump-if-= $type-equal?:end/disp32 +<span id="L26925" class="LineNr">26925 </span><span class="Constant">$type-equal?:compare-null-b</span>: +<span id="L26926" class="LineNr">26926 </span> <span class="subxComment"># if (b == 0) return false</span> +<span id="L26927" class="LineNr">26927 </span> 81 7/subop/compare %edx 0/imm32 +<span id="L26928" class="LineNr">26928 </span> 0f 84/jump-if-= $type-equal?:end/disp32 +<span id="L26929" class="LineNr">26929 </span><span class="Constant">$type-equal?:compare-atom-state</span>: +<span id="L26930" class="LineNr">26930 </span> <span class="subxComment"># if (a->is-atom? != b->is-atom?) return false</span> +<span id="L26931" class="LineNr">26931 </span> 8b/-> *ecx 3/r32/ebx <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26932" class="LineNr">26932 </span> 39/compare *edx 3/r32/ebx <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26933" class="LineNr">26933 </span> b8/copy-to-eax 0/imm32/false +<span id="L26934" class="LineNr">26934 </span> 0f 85/jump-if-!= $type-equal?:end/disp32 +<span id="L26935" class="LineNr">26935 </span> <span class="subxComment"># if a->is-atom? return (a->value == b->value)</span> +<span id="L26936" class="LineNr">26936 </span> { +<span id="L26937" class="LineNr">26937 </span><span class="Constant">$type-equal?:check-atom</span>: +<span id="L26938" class="LineNr">26938 </span> 81 7/subop/compare %ebx 0/imm32/false +<span id="L26939" class="LineNr">26939 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26940" class="LineNr">26940 </span><span class="Constant">$type-equal?:is-atom</span>: +<span id="L26941" class="LineNr">26941 </span> 8b/-> *(ecx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> +<span id="L26942" class="LineNr">26942 </span> 39/compare *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> +<span id="L26943" class="LineNr">26943 </span> 0f 94/set-if-= %al +<span id="L26944" class="LineNr">26944 </span> 25/and-eax-with 0xff/imm32 +<span id="L26945" class="LineNr">26945 </span> e9/jump $type-equal?:end/disp32 +<span id="L26946" class="LineNr">26946 </span> } +<span id="L26947" class="LineNr">26947 </span><span class="Constant">$type-equal?:check-left</span>: +<span id="L26948" class="LineNr">26948 </span> <span class="subxComment"># if (!type-equal?(a->left, b->left)) return false</span> +<span id="L26949" class="LineNr">26949 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L26950" class="LineNr">26950 </span> 89/<- %ebx 0/r32/eax +<span id="L26951" class="LineNr">26951 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L26952" class="LineNr">26952 </span> (<a href='mu.subx.html#L26902'>type-equal?</a> %eax %ebx) <span class="subxComment"># => eax</span> +<span id="L26953" class="LineNr">26953 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26954" class="LineNr">26954 </span> 74/jump-if-= $type-equal?:end/disp8 +<span id="L26955" class="LineNr">26955 </span><span class="Constant">$type-equal?:check-right</span>: +<span id="L26956" class="LineNr">26956 </span> <span class="subxComment"># return type-equal?(a->right, b->right)</span> +<span id="L26957" class="LineNr">26957 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L26958" class="LineNr">26958 </span> 89/<- %ebx 0/r32/eax +<span id="L26959" class="LineNr">26959 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0xc) *(edx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L26960" class="LineNr">26960 </span> (<a href='mu.subx.html#L26902'>type-equal?</a> %eax %ebx) <span class="subxComment"># => eax</span> +<span id="L26961" class="LineNr">26961 </span><span class="Constant">$type-equal?:end</span>: +<span id="L26962" class="LineNr">26962 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26963" class="LineNr">26963 </span> 5b/pop-to-ebx +<span id="L26964" class="LineNr">26964 </span> 5a/pop-to-edx +<span id="L26965" class="LineNr">26965 </span> 59/pop-to-ecx +<span id="L26966" class="LineNr">26966 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26967" class="LineNr">26967 </span> 89/<- %esp 5/r32/ebp +<span id="L26968" class="LineNr">26968 </span> 5d/pop-to-ebp +<span id="L26969" class="LineNr">26969 </span> c3/return +<span id="L26970" class="LineNr">26970 </span> +<span id="L26971" class="LineNr">26971 </span><span class="subxComment">#######################################################</span> +<span id="L26972" class="LineNr">26972 </span><span class="subxComment"># Code-generation</span> +<span id="L26973" class="LineNr">26973 </span><span class="subxComment">#######################################################</span> +<span id="L26974" class="LineNr">26974 </span> +<span id="L26975" class="LineNr">26975 </span>== data +<span id="L26976" class="LineNr">26976 </span> +<span id="L26977" class="LineNr">26977 </span><span class="subxComment"># Global state added to each var record when performing code-generation.</span> +<span id="L26978" class="LineNr">26978 </span><span class="SpecialChar">Curr-local-stack-offset</span>: <span class="subxComment"># (addr int)</span> +<span id="L26979" class="LineNr">26979 </span> 0/imm32 +<span id="L26980" class="LineNr">26980 </span> +<span id="L26981" class="LineNr">26981 </span>== code +<span id="L26982" class="LineNr">26982 </span> +<span id="L26983" class="LineNr">26983 </span><span class="subxComment"># We may not need to pass err/ed everywhere here. I think they're relics of Mu</span> +<span id="L26984" class="LineNr">26984 </span><span class="subxComment"># getting type checks later in life.</span> +<span id="L26985" class="LineNr">26985 </span><span class="subxComment"># But we do need them for runtime checks, particularly array index bounds checks.</span> +<span id="L26986" class="LineNr">26986 </span><span class="subxComment"># So perhaps it's not worth taking them out. They're a safety net.</span> +<span id="L26987" class="LineNr">26987 </span> +<span id="L26988" class="LineNr">26988 </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="L26989" class="LineNr">26989 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26990" class="LineNr">26990 </span> 55/push-ebp +<span id="L26991" class="LineNr">26991 </span> 89/<- %ebp 4/r32/esp +<span id="L26992" class="LineNr">26992 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26993" class="LineNr">26993 </span> 50/push-eax +<span id="L26994" class="LineNr">26994 </span> <span class="subxComment"># var curr/eax: (addr function) = *Program->functions</span> +<span id="L26995" class="LineNr">26995 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *_Program-functions *_Program-functions->payload) <span class="subxComment"># => eax</span> +<span id="L26996" class="LineNr">26996 </span> { +<span id="L26997" class="LineNr">26997 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L26998" class="LineNr">26998 </span> 3d/compare-eax-and 0/imm32 +<span id="L26999" class="LineNr">26999 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L27000" class="LineNr">27000 </span> (<a href='mu.subx.html#L27013'>emit-subx-function</a> *(ebp+8) %eax *(ebp+0xc) *(ebp+0x10)) +<span id="L27001" class="LineNr">27001 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L27002" class="LineNr">27002 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x20) *(eax+0x24)) <span class="subxComment"># Function-next Function-next => eax</span> +<span id="L27003" class="LineNr">27003 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L27004" class="LineNr">27004 </span> } +<span id="L27005" class="LineNr">27005 </span><span class="Constant">$emit-subx:end</span>: +<span id="L27006" class="LineNr">27006 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27007" class="LineNr">27007 </span> 58/pop-to-eax +<span id="L27008" class="LineNr">27008 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27009" class="LineNr">27009 </span> 89/<- %esp 5/r32/ebp +<span id="L27010" class="LineNr">27010 </span> 5d/pop-to-ebp +<span id="L27011" class="LineNr">27011 </span> c3/return +<span id="L27012" class="LineNr">27012 </span> +<span id="L27013" class="LineNr">27013 </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="L27014" class="LineNr">27014 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27015" class="LineNr">27015 </span> 55/push-ebp +<span id="L27016" class="LineNr">27016 </span> 89/<- %ebp 4/r32/esp +<span id="L27017" class="LineNr">27017 </span> <span class="subxComment"># some preprocessing</span> +<span id="L27018" class="LineNr">27018 </span> (<a href='mu.subx.html#L27058'>populate-mu-type-offsets-in-inouts</a> *(ebp+0xc)) +<span id="L27019" class="LineNr">27019 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27020" class="LineNr">27020 </span> 50/push-eax +<span id="L27021" class="LineNr">27021 </span> 51/push-ecx +<span id="L27022" class="LineNr">27022 </span> 52/push-edx +<span id="L27023" class="LineNr">27023 </span> <span class="subxComment"># initialize some global state</span> +<span id="L27024" class="LineNr">27024 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span> 1/imm32 <span class="subxComment"># Important: keep this in sync with the parse phase</span> +<span id="L27025" class="LineNr">27025 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L26978'>Curr-local-stack-offset</a></span> 0/imm32 +<span id="L27026" class="LineNr">27026 </span> <span class="subxComment"># ecx = f</span> +<span id="L27027" class="LineNr">27027 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L27028" class="LineNr">27028 </span> <span class="subxComment"># var vars/edx: (stack (addr var) 256)</span> +<span id="L27029" class="LineNr">27029 </span> 81 5/subop/subtract %esp 0xc00/imm32 +<span id="L27030" class="LineNr">27030 </span> 68/push 0xc00/imm32/size +<span id="L27031" class="LineNr">27031 </span> 68/push 0/imm32/top +<span id="L27032" class="LineNr">27032 </span> 89/<- %edx 4/r32/esp +<span id="L27033" class="LineNr">27033 </span> <span class="subxComment"># var name/eax: (addr array byte) = lookup(f->name)</span> +<span id="L27034" class="LineNr">27034 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L27035" class="LineNr">27035 </span> <span class="subxComment">#</span> +<span id="L27036" class="LineNr">27036 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L27037" class="LineNr">27037 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":\n"</span>) +<span id="L27038" class="LineNr">27038 </span> (<a href='mu.subx.html#L38802'>emit-subx-prologue</a> *(ebp+8)) +<span id="L27039" class="LineNr">27039 </span> <span class="subxComment"># var body/eax: (addr block) = lookup(f->body)</span> +<span id="L27040" class="LineNr">27040 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Function-body Function-body => eax</span> +<span id="L27041" class="LineNr">27041 </span> <span class="subxComment">#</span> +<span id="L27042" class="LineNr">27042 </span> (<a href='mu.subx.html#L30343'>emit-subx-block</a> *(ebp+8) %eax %edx *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L27043" class="LineNr">27043 </span> (<a href='mu.subx.html#L38816'>emit-subx-epilogue</a> *(ebp+8)) +<span id="L27044" class="LineNr">27044 </span> <span class="subxComment"># TODO: validate that *Curr-block-depth and *Curr-local-stack-offset have</span> +<span id="L27045" class="LineNr">27045 </span> <span class="subxComment"># been cleaned up</span> +<span id="L27046" class="LineNr">27046 </span><span class="Constant">$emit-subx-function:end</span>: +<span id="L27047" class="LineNr">27047 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L27048" class="LineNr">27048 </span> 81 0/subop/add %esp 0xc08/imm32 +<span id="L27049" class="LineNr">27049 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27050" class="LineNr">27050 </span> 5a/pop-to-edx +<span id="L27051" class="LineNr">27051 </span> 59/pop-to-ecx +<span id="L27052" class="LineNr">27052 </span> 58/pop-to-eax +<span id="L27053" class="LineNr">27053 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27054" class="LineNr">27054 </span> 89/<- %esp 5/r32/ebp +<span id="L27055" class="LineNr">27055 </span> 5d/pop-to-ebp +<span id="L27056" class="LineNr">27056 </span> c3/return +<span id="L27057" class="LineNr">27057 </span> +<span id="L27058" class="LineNr">27058 </span><span class="subxFunction">populate-mu-type-offsets-in-inouts</span>: <span class="subxComment"># f: (addr function)</span> +<span id="L27059" class="LineNr">27059 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27060" class="LineNr">27060 </span> 55/push-ebp +<span id="L27061" class="LineNr">27061 </span> 89/<- %ebp 4/r32/esp +<span id="L27062" class="LineNr">27062 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27063" class="LineNr">27063 </span> 50/push-eax +<span id="L27064" class="LineNr">27064 </span> 51/push-ecx +<span id="L27065" class="LineNr">27065 </span> 52/push-edx +<span id="L27066" class="LineNr">27066 </span> 53/push-ebx +<span id="L27067" class="LineNr">27067 </span> 57/push-edi +<span id="L27068" class="LineNr">27068 </span> <span class="subxComment"># var next-offset/edx: int = 8</span> +<span id="L27069" class="LineNr">27069 </span> ba/copy-to-edx 8/imm32 +<span id="L27070" class="LineNr">27070 </span> <span class="subxComment"># var curr/ecx: (addr list var) = lookup(f->inouts)</span> +<span id="L27071" class="LineNr">27071 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L27072" class="LineNr">27072 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> +<span id="L27073" class="LineNr">27073 </span> 89/<- %ecx 0/r32/eax +<span id="L27074" class="LineNr">27074 </span> { +<span id="L27075" class="LineNr">27075 </span><span class="Constant">$populate-mu-type-offsets-in-inouts:loop</span>: +<span id="L27076" class="LineNr">27076 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L27077" class="LineNr">27077 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L27078" class="LineNr">27078 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(curr->value)</span> +<span id="L27079" class="LineNr">27079 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L27080" class="LineNr">27080 </span> 89/<- %ebx 0/r32/eax +<span id="L27081" class="LineNr">27081 </span><span class="CommentedCode">#? (lookup *ebx *(ebx+4))</span> +<span id="L27082" class="LineNr">27082 </span><span class="CommentedCode">#? (write-buffered Stderr "setting offset of fn inout ")</span> +<span id="L27083" class="LineNr">27083 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L27084" class="LineNr">27084 </span><span class="CommentedCode">#? (write-buffered Stderr "@")</span> +<span id="L27085" class="LineNr">27085 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ebx)</span> +<span id="L27086" class="LineNr">27086 </span><span class="CommentedCode">#? (write-buffered Stderr " to ")</span> +<span id="L27087" class="LineNr">27087 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %edx)</span> +<span id="L27088" class="LineNr">27088 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L27089" class="LineNr">27089 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L27090" class="LineNr">27090 </span> <span class="subxComment"># v->offset = next-offset</span> +<span id="L27091" class="LineNr">27091 </span> 89/<- *(ebx+0x14) 2/r32/edx <span class="subxComment"># Var-offset</span> +<span id="L27092" class="LineNr">27092 </span> <span class="subxComment"># next-offset += size-of(v)</span> +<span id="L27093" class="LineNr">27093 </span> (<a href='mu.subx.html#L26575'>size-of</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L27094" class="LineNr">27094 </span> 01/add-to %edx 0/r32/eax +<span id="L27095" class="LineNr">27095 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L27096" class="LineNr">27096 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L27097" class="LineNr">27097 </span> 89/<- %ecx 0/r32/eax +<span id="L27098" class="LineNr">27098 </span> <span class="subxComment">#</span> +<span id="L27099" class="LineNr">27099 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L27100" class="LineNr">27100 </span> } +<span id="L27101" class="LineNr">27101 </span><span class="Constant">$populate-mu-type-offsets-in-inouts:end</span>: +<span id="L27102" class="LineNr">27102 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27103" class="LineNr">27103 </span> 5f/pop-to-edi +<span id="L27104" class="LineNr">27104 </span> 5b/pop-to-ebx +<span id="L27105" class="LineNr">27105 </span> 5a/pop-to-edx +<span id="L27106" class="LineNr">27106 </span> 59/pop-to-ecx +<span id="L27107" class="LineNr">27107 </span> 58/pop-to-eax +<span id="L27108" class="LineNr">27108 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27109" class="LineNr">27109 </span> 89/<- %esp 5/r32/ebp +<span id="L27110" class="LineNr">27110 </span> 5d/pop-to-ebp +<span id="L27111" class="LineNr">27111 </span> c3/return +<span id="L27112" class="LineNr">27112 </span> +<span id="L27113" class="LineNr">27113 </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="L27114" class="LineNr">27114 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27115" class="LineNr">27115 </span> 55/push-ebp +<span id="L27116" class="LineNr">27116 </span> 89/<- %ebp 4/r32/esp +<span id="L27117" class="LineNr">27117 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27118" class="LineNr">27118 </span> 50/push-eax +<span id="L27119" class="LineNr">27119 </span> 51/push-ecx +<span id="L27120" class="LineNr">27120 </span> 53/push-ebx +<span id="L27121" class="LineNr">27121 </span> 56/push-esi +<span id="L27122" class="LineNr">27122 </span> <span class="subxComment"># esi = stmts</span> +<span id="L27123" class="LineNr">27123 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L27124" class="LineNr">27124 </span> <span class="subxComment">#</span> +<span id="L27125" class="LineNr">27125 </span> { +<span id="L27126" class="LineNr">27126 </span><span class="Constant">$emit-subx-stmt-list:loop</span>: +<span id="L27127" class="LineNr">27127 </span> 81 7/subop/compare %esi 0/imm32 +<span id="L27128" class="LineNr">27128 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L27129" class="LineNr">27129 </span> <span class="subxComment"># var curr-stmt/ecx: (addr stmt) = lookup(stmts->value)</span> +<span id="L27130" class="LineNr">27130 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L27131" class="LineNr">27131 </span> 89/<- %ecx 0/r32/eax +<span id="L27132" class="LineNr">27132 </span> { +<span id="L27133" class="LineNr">27133 </span><span class="Constant">$emit-subx-stmt-list:check-for-block</span>: +<span id="L27134" class="LineNr">27134 </span> 81 7/subop/compare *ecx 0/imm32/block <span class="subxComment"># Stmt-tag</span> +<span id="L27135" class="LineNr">27135 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L27136" class="LineNr">27136 </span><span class="Constant">$emit-subx-stmt-list:block</span>: +<span id="L27137" class="LineNr">27137 </span> (<a href='mu.subx.html#L30343'>emit-subx-block</a> *(ebp+8) %ecx *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L27138" class="LineNr">27138 </span> } +<span id="L27139" class="LineNr">27139 </span> { +<span id="L27140" class="LineNr">27140 </span><span class="Constant">$emit-subx-stmt-list:check-for-stmt</span>: +<span id="L27141" class="LineNr">27141 </span> 81 7/subop/compare *ecx 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> +<span id="L27142" class="LineNr">27142 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L27143" class="LineNr">27143 </span><span class="Constant">$emit-subx-stmt-list:stmt1</span>: +<span id="L27144" class="LineNr">27144 </span> { +<span id="L27145" class="LineNr">27145 </span> (<a href='mu.subx.html#L27557'>mu-branch?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L27146" class="LineNr">27146 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27147" class="LineNr">27147 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L27148" class="LineNr">27148 </span><span class="Constant">$emit-subx-stmt-list:branch-stmt</span>: +<span id="L27149" class="Folded">27149 </span><span class="Folded">+-- 25 lines: # unconditional return ----------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L27174" class="Folded">27174 </span><span class="Folded">+-- 27 lines: # unconditional loops -----------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L27201" class="Folded">27201 </span><span class="Folded">+-- 16 lines: # unconditional breaks ----------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L27217" class="Folded">27217 </span><span class="Folded">+-- 38 lines: # simple conditional branches without a target ----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L27255" class="Folded">27255 </span><span class="Folded">+-- 19 lines: # conditional branches with an explicit target ----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L27274" class="LineNr">27274 </span> } +<span id="L27275" class="LineNr">27275 </span><span class="Constant">$emit-subx-stmt-list:1-to-1</span>: +<span id="L27276" class="LineNr">27276 </span> (<a href='mu.subx.html#L28660'>emit-subx-stmt</a> *(ebp+8) %ecx <span class="SpecialChar"><a href='mu.subx.html#L30450'>Primitives</a></span> *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L27277" class="LineNr">27277 </span> e9/jump $emit-subx-stmt-list:continue/disp32 +<span id="L27278" class="LineNr">27278 </span> } +<span id="L27279" class="LineNr">27279 </span> { +<span id="L27280" class="LineNr">27280 </span><span class="Constant">$emit-subx-stmt-list:check-for-var-def</span>: +<span id="L27281" class="LineNr">27281 </span> 81 7/subop/compare *ecx 2/imm32/var-def <span class="subxComment"># Stmt-tag</span> +<span id="L27282" class="LineNr">27282 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L27283" class="LineNr">27283 </span><span class="Constant">$emit-subx-stmt-list:var-def</span>: +<span id="L27284" class="LineNr">27284 </span> (<a href='mu.subx.html#L28521'>emit-subx-var-def</a> *(ebp+8) %ecx *(ebp+0x18) *(ebp+0x1c)) +<span id="L27285" class="LineNr">27285 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ecx+4)) <span class="subxComment"># Vardef-var</span> +<span id="L27286" class="LineNr">27286 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ecx+8)) <span class="subxComment"># Vardef-var</span> +<span id="L27287" class="LineNr">27287 </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="L27288" class="LineNr">27288 </span> <span class="subxComment">#</span> +<span id="L27289" class="LineNr">27289 </span> eb/jump $emit-subx-stmt-list:continue/disp8 +<span id="L27290" class="LineNr">27290 </span> } +<span id="L27291" class="LineNr">27291 </span> { +<span id="L27292" class="LineNr">27292 </span><span class="Constant">$emit-subx-stmt-list:check-for-reg-var-def</span>: +<span id="L27293" class="LineNr">27293 </span> 81 7/subop/compare *ecx 3/imm32/reg-var-def <span class="subxComment"># Stmt-tag</span> +<span id="L27294" class="LineNr">27294 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L27295" class="LineNr">27295 </span><span class="Constant">$emit-subx-stmt-list:reg-var-def</span>: +<span id="L27296" class="LineNr">27296 </span> <span class="subxComment"># TODO: ensure that there's exactly one output</span> +<span id="L27297" class="LineNr">27297 </span> (<a href='mu.subx.html#L27326'>push-output-and-maybe-emit-spill</a> *(ebp+8) %ecx *(ebp+0x10) %esi *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L27298" class="LineNr">27298 </span> <span class="subxComment"># emit the instruction as usual</span> +<span id="L27299" class="LineNr">27299 </span> (<a href='mu.subx.html#L28660'>emit-subx-stmt</a> *(ebp+8) %ecx <span class="SpecialChar"><a href='mu.subx.html#L30450'>Primitives</a></span> *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L27300" class="LineNr">27300 </span> <span class="subxComment">#</span> +<span id="L27301" class="LineNr">27301 </span> eb/jump $emit-subx-stmt-list:continue/disp8 +<span id="L27302" class="LineNr">27302 </span> } +<span id="L27303" class="LineNr">27303 </span><span class="Constant">$emit-subx-stmt-list:continue</span>: +<span id="L27304" class="LineNr">27304 </span> <span class="subxComment"># TODO: raise an error on unrecognized Stmt-tag</span> +<span id="L27305" class="LineNr">27305 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L27306" class="LineNr">27306 </span> 89/<- %esi 0/r32/eax +<span id="L27307" class="LineNr">27307 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L27308" class="LineNr">27308 </span> } +<span id="L27309" class="LineNr">27309 </span><span class="Constant">$emit-subx-stmt-list:emit-cleanup</span>: +<span id="L27310" class="LineNr">27310 </span> (<a href='mu.subx.html#L27727'>emit-cleanup-code-until-depth</a> *(ebp+8) *(ebp+0x10) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L27311" class="LineNr">27311 </span><span class="Constant">$emit-subx-stmt-list:clean-up</span>: +<span id="L27312" class="LineNr">27312 </span> (<a href='mu.subx.html#L28057'>clean-up-stack-offset-state</a> *(ebp+0x10) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L27313" class="LineNr">27313 </span> (<a href='mu.subx.html#L28445'>clean-up-blocks</a> *(ebp+0x10) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span> *(ebp+0x14)) +<span id="L27314" class="LineNr">27314 </span><span class="Constant">$emit-subx-stmt-list:end</span>: +<span id="L27315" class="LineNr">27315 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27316" class="LineNr">27316 </span> 5e/pop-to-esi +<span id="L27317" class="LineNr">27317 </span> 5b/pop-to-ebx +<span id="L27318" class="LineNr">27318 </span> 59/pop-to-ecx +<span id="L27319" class="LineNr">27319 </span> 58/pop-to-eax +<span id="L27320" class="LineNr">27320 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27321" class="LineNr">27321 </span> 89/<- %esp 5/r32/ebp +<span id="L27322" class="LineNr">27322 </span> 5d/pop-to-ebp +<span id="L27323" class="LineNr">27323 </span> c3/return +<span id="L27324" class="LineNr">27324 </span> +<span id="L27325" class="LineNr">27325 </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="L27326" class="LineNr">27326 </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="L27327" class="LineNr">27327 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27328" class="LineNr">27328 </span> 55/push-ebp +<span id="L27329" class="LineNr">27329 </span> 89/<- %ebp 4/r32/esp +<span id="L27330" class="LineNr">27330 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27331" class="LineNr">27331 </span> 50/push-eax +<span id="L27332" class="LineNr">27332 </span> 51/push-ecx +<span id="L27333" class="LineNr">27333 </span> 52/push-edx +<span id="L27334" class="LineNr">27334 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L27335" class="LineNr">27335 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L27336" class="LineNr">27336 </span> <span class="subxComment"># var sv/eax: (addr stmt-var) = lookup(curr-stmt->outputs)</span> +<span id="L27337" class="LineNr">27337 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Regvardef-outputs Regvardef-outputs => eax</span> +<span id="L27338" class="LineNr">27338 </span> <span class="subxComment"># TODO: assert !sv->is-deref?</span> +<span id="L27339" class="LineNr">27339 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(sv->value)</span> +<span id="L27340" class="LineNr">27340 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L27341" class="LineNr">27341 </span> 89/<- %ecx 0/r32/eax +<span id="L27342" class="LineNr">27342 </span> <span class="subxComment"># v->block-depth = *Curr-block-depth</span> +<span id="L27343" class="LineNr">27343 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span> 0/r32/eax +<span id="L27344" class="LineNr">27344 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> +<span id="L27345" class="LineNr">27345 </span><span class="CommentedCode">#? (write-buffered Stderr "var ")</span> +<span id="L27346" class="LineNr">27346 </span><span class="CommentedCode">#? (lookup *ecx *(ecx+4))</span> +<span id="L27347" class="LineNr">27347 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L27348" class="LineNr">27348 </span><span class="CommentedCode">#? (write-buffered Stderr " at depth ")</span> +<span id="L27349" class="LineNr">27349 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ecx+0x10))</span> +<span id="L27350" class="LineNr">27350 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L27351" class="LineNr">27351 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L27352" class="LineNr">27352 </span> <span class="subxComment"># ensure that v is in a register</span> +<span id="L27353" class="LineNr">27353 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L27354" class="LineNr">27354 </span> 0f 84/jump-if-= $push-output-and-maybe-emit-spill:abort/disp32 +<span id="L27355" class="LineNr">27355 </span> <span class="subxComment"># var emit-spill?/edx: boolean = not-yet-spilled-this-block? && will-not-write-some-register?(fn)</span> +<span id="L27356" class="LineNr">27356 </span> (<a href='mu.subx.html#L28129'>not-yet-spilled-this-block?</a> %ecx *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L27357" class="LineNr">27357 </span> 89/<- %edx 0/r32/eax +<span id="L27358" class="LineNr">27358 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27359" class="LineNr">27359 </span> 0f 84/jump-if-= $push-output-and-maybe-emit-spill:<a href='203stack.subx.html#L114'>push</a>/disp32 +<span id="L27360" class="LineNr">27360 </span> (<a href='mu.subx.html#L28202'>will-not-write-some-register?</a> %ecx *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> +<span id="L27361" class="LineNr">27361 </span> 89/<- %edx 0/r32/eax +<span id="L27362" class="LineNr">27362 </span> <span class="subxComment"># check emit-spill?</span> +<span id="L27363" class="LineNr">27363 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27364" class="LineNr">27364 </span> 0f 84/jump-if-= $push-output-and-maybe-emit-spill:<a href='203stack.subx.html#L114'>push</a>/disp32 +<span id="L27365" class="LineNr">27365 </span> <span class="subxComment"># TODO: assert(size-of(output) == 4)</span> +<span id="L27366" class="LineNr">27366 </span> <span class="subxComment"># *Curr-local-stack-offset -= 4</span> +<span id="L27367" class="LineNr">27367 </span> 81 5/subop/subtract *<span class="SpecialChar"><a href='mu.subx.html#L26978'>Curr-local-stack-offset</a></span> 4/imm32 +<span id="L27368" class="LineNr">27368 </span> <span class="subxComment"># emit spill</span> +<span id="L27369" class="LineNr">27369 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L27370" class="LineNr">27370 </span> (<a href='mu.subx.html#L27900'>emit-push-register</a> *(ebp+8) %eax) +<span id="L27371" class="LineNr">27371 </span><span class="Constant">$push-output-and-maybe-emit-spill:<a href='203stack.subx.html#L114'>push</a></span>: +<span id="L27372" class="LineNr">27372 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L27373" class="LineNr">27373 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Regvardef-outputs Regvardef-outputs => eax</span> +<span id="L27374" class="LineNr">27374 </span> <span class="subxComment"># push(vars, {sv->value, emit-spill?})</span> +<span id="L27375" class="LineNr">27375 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *eax) <span class="subxComment"># Stmt-var-value</span> +<span id="L27376" class="LineNr">27376 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *(eax+4)) <span class="subxComment"># Stmt-var-value</span> +<span id="L27377" class="LineNr">27377 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) %edx) +<span id="L27378" class="LineNr">27378 </span><span class="Constant">$push-output-and-maybe-emit-spill:end</span>: +<span id="L27379" class="LineNr">27379 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27380" class="LineNr">27380 </span> 5a/pop-to-edx +<span id="L27381" class="LineNr">27381 </span> 59/pop-to-ecx +<span id="L27382" class="LineNr">27382 </span> 58/pop-to-eax +<span id="L27383" class="LineNr">27383 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27384" class="LineNr">27384 </span> 89/<- %esp 5/r32/ebp +<span id="L27385" class="LineNr">27385 </span> 5d/pop-to-ebp +<span id="L27386" class="LineNr">27386 </span> c3/return +<span id="L27387" class="LineNr">27387 </span> +<span id="L27388" class="LineNr">27388 </span><span class="Constant">$push-output-and-maybe-emit-spill:abort</span>: +<span id="L27389" class="LineNr">27389 </span> <span class="subxComment"># error("var '" var->name "' initialized from an instruction must live in a register\n")</span> +<span id="L27390" class="LineNr">27390 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x1c) <span class="Constant">"var '"</span>) +<span id="L27391" class="LineNr">27391 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x1c) *eax) <span class="subxComment"># Var-name</span> +<span id="L27392" class="LineNr">27392 </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="L27393" class="LineNr">27393 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x1c)) +<span id="L27394" class="LineNr">27394 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x20) 1) +<span id="L27395" class="LineNr">27395 </span> <span class="subxComment"># never gets here</span> +<span id="L27396" class="LineNr">27396 </span> +<span id="L27397" class="LineNr">27397 </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="L27398" class="LineNr">27398 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27399" class="LineNr">27399 </span> 55/push-ebp +<span id="L27400" class="LineNr">27400 </span> 89/<- %ebp 4/r32/esp +<span id="L27401" class="LineNr">27401 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27402" class="LineNr">27402 </span> 50/push-eax +<span id="L27403" class="LineNr">27403 </span> 51/push-ecx +<span id="L27404" class="LineNr">27404 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L27405" class="LineNr">27405 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L27406" class="LineNr">27406 </span> <span class="subxComment"># var target/eax: (addr array byte) = curr-stmt->inouts->value->name</span> +<span id="L27407" class="LineNr">27407 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L27408" class="LineNr">27408 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L27409" class="LineNr">27409 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L27410" class="LineNr">27410 </span> <span class="subxComment"># clean up until target block</span> +<span id="L27411" class="LineNr">27411 </span> (<a href='mu.subx.html#L27980'>emit-cleanup-code-until-target</a> *(ebp+8) *(ebp+0x10) %eax) +<span id="L27412" class="LineNr">27412 </span> <span class="subxComment"># emit jump to target block</span> +<span id="L27413" class="LineNr">27413 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L27414" class="LineNr">27414 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"e9/jump "</span>) +<span id="L27415" class="LineNr">27415 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L27416" class="LineNr">27416 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L27417" class="LineNr">27417 </span> (<a href='105string-equal.subx.html#L57'>string-starts-with?</a> %eax <span class="Constant">"break"</span>) +<span id="L27418" class="LineNr">27418 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27419" class="LineNr">27419 </span> { +<span id="L27420" class="LineNr">27420 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L27421" class="LineNr">27421 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":break/disp32\n"</span>) +<span id="L27422" class="LineNr">27422 </span> eb/jump $emit-subx-cleanup-and-unconditional-nonlocal-branch:end/disp8 +<span id="L27423" class="LineNr">27423 </span> } +<span id="L27424" class="LineNr">27424 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":loop/disp32\n"</span>) +<span id="L27425" class="LineNr">27425 </span><span class="Constant">$emit-subx-cleanup-and-unconditional-nonlocal-branch:end</span>: +<span id="L27426" class="LineNr">27426 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27427" class="LineNr">27427 </span> 59/pop-to-ecx +<span id="L27428" class="LineNr">27428 </span> 58/pop-to-eax +<span id="L27429" class="LineNr">27429 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27430" class="LineNr">27430 </span> 89/<- %esp 5/r32/ebp +<span id="L27431" class="LineNr">27431 </span> 5d/pop-to-ebp +<span id="L27432" class="LineNr">27432 </span> c3/return +<span id="L27433" class="LineNr">27433 </span> +<span id="L27434" class="LineNr">27434 </span><span class="subxFunction">emit-outputs</span>: <span class="subxComment"># out: (addr buffered-file), return-stmt: (addr stmt1), fn: (addr function)</span> +<span id="L27435" class="LineNr">27435 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27436" class="LineNr">27436 </span> 55/push-ebp +<span id="L27437" class="LineNr">27437 </span> 89/<- %ebp 4/r32/esp +<span id="L27438" class="LineNr">27438 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27439" class="LineNr">27439 </span> 50/push-eax +<span id="L27440" class="LineNr">27440 </span> 51/push-ecx +<span id="L27441" class="LineNr">27441 </span> 56/push-esi +<span id="L27442" class="LineNr">27442 </span> 57/push-edi +<span id="L27443" class="LineNr">27443 </span> <span class="subxComment"># var curr-inout/esi: (addr stmt-var) = return-stmt->inouts</span> +<span id="L27444" class="LineNr">27444 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L27445" class="LineNr">27445 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L27446" class="LineNr">27446 </span> 89/<- %esi 0/r32/eax +<span id="L27447" class="LineNr">27447 </span> <span class="subxComment"># var curr-output/edi: (addr list var) = fn->outputs</span> +<span id="L27448" class="LineNr">27448 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L27449" class="LineNr">27449 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> +<span id="L27450" class="LineNr">27450 </span> 89/<- %edi 0/r32/eax +<span id="L27451" class="LineNr">27451 </span> { +<span id="L27452" class="LineNr">27452 </span><span class="Constant">$emit-outputs:loop</span>: +<span id="L27453" class="LineNr">27453 </span> 81 7/subop/compare %esi 0/imm32 +<span id="L27454" class="LineNr">27454 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L27455" class="LineNr">27455 </span> <span class="subxComment"># emit copy to output register</span> +<span id="L27456" class="LineNr">27456 </span> <span class="subxComment"># var curr-output-register/ecx: (addr array byte) = curr-output->value->register</span> +<span id="L27457" class="LineNr">27457 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L27458" class="LineNr">27458 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L27459" class="LineNr">27459 </span> 89/<- %ecx 0/r32/eax +<span id="L27460" class="LineNr">27460 </span> <span class="subxComment"># if curr-output-register starts with "x", emit a floating-point copy</span> +<span id="L27461" class="LineNr">27461 </span> 8a/copy-byte *(ecx+4) 0/r32/AL +<span id="L27462" class="LineNr">27462 </span> 25/and-eax-with 0xff/imm32 +<span id="L27463" class="LineNr">27463 </span> 3d/compare-eax-and 0x78/imm32/x +<span id="L27464" class="LineNr">27464 </span> { +<span id="L27465" class="LineNr">27465 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L27466" class="LineNr">27466 </span> (<a href='mu.subx.html#L27535'>emit-float-output</a> *(ebp+8) %esi %ecx) +<span id="L27467" class="LineNr">27467 </span> eb/jump $emit-outputs:continue/disp8 +<span id="L27468" class="LineNr">27468 </span> } +<span id="L27469" class="LineNr">27469 </span> <span class="subxComment"># otherwise emit an int copy</span> +<span id="L27470" class="LineNr">27470 </span> (<a href='mu.subx.html#L27492'>emit-int-output</a> *(ebp+8) %esi %ecx) +<span id="L27471" class="LineNr">27471 </span><span class="Constant">$emit-outputs:continue</span>: +<span id="L27472" class="LineNr">27472 </span> <span class="subxComment"># curr-inout = curr-inout->next</span> +<span id="L27473" class="LineNr">27473 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L27474" class="LineNr">27474 </span> 89/<- %esi 0/r32/eax +<span id="L27475" class="LineNr">27475 </span> <span class="subxComment"># curr-output = curr-output->next</span> +<span id="L27476" class="LineNr">27476 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L27477" class="LineNr">27477 </span> 89/<- %edi 0/r32/eax +<span id="L27478" class="LineNr">27478 </span> <span class="subxComment">#</span> +<span id="L27479" class="LineNr">27479 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L27480" class="LineNr">27480 </span> } +<span id="L27481" class="LineNr">27481 </span><span class="Constant">$emit-outputs:end</span>: +<span id="L27482" class="LineNr">27482 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27483" class="LineNr">27483 </span> 5f/pop-to-edi +<span id="L27484" class="LineNr">27484 </span> 5e/pop-to-esi +<span id="L27485" class="LineNr">27485 </span> 59/pop-to-ecx +<span id="L27486" class="LineNr">27486 </span> 58/pop-to-eax +<span id="L27487" class="LineNr">27487 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27488" class="LineNr">27488 </span> 89/<- %esp 5/r32/ebp +<span id="L27489" class="LineNr">27489 </span> 5d/pop-to-ebp +<span id="L27490" class="LineNr">27490 </span> c3/return +<span id="L27491" class="LineNr">27491 </span> +<span id="L27492" class="LineNr">27492 </span><span class="subxFunction">emit-int-output</span>: <span class="subxComment"># out: (addr buffered-file), return-var: (addr stmt-var), dest-reg: (addr array byte)</span> +<span id="L27493" class="LineNr">27493 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27494" class="LineNr">27494 </span> 55/push-ebp +<span id="L27495" class="LineNr">27495 </span> 89/<- %ebp 4/r32/esp +<span id="L27496" class="LineNr">27496 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27497" class="LineNr">27497 </span> 50/push-eax +<span id="L27498" class="LineNr">27498 </span> 51/push-ecx +<span id="L27499" class="LineNr">27499 </span> <span class="subxComment"># ecx = return-var->value</span> +<span id="L27500" class="LineNr">27500 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L27501" class="LineNr">27501 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L27502" class="LineNr">27502 </span> 89/<- %ecx 0/r32/eax +<span id="L27503" class="LineNr">27503 </span> <span class="subxComment"># if curr-var is a literal, emit copy of a literal to the output</span> +<span id="L27504" class="LineNr">27504 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L27505" class="LineNr">27505 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 0) <span class="subxComment"># literal => eax</span> +<span id="L27506" class="LineNr">27506 </span> { +<span id="L27507" class="LineNr">27507 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27508" class="LineNr">27508 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L27509" class="LineNr">27509 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L27510" class="LineNr">27510 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"c7 0/subop/copy %"</span>) +<span id="L27511" class="LineNr">27511 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0x10)) +<span id="L27512" class="LineNr">27512 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) +<span id="L27513" class="LineNr">27513 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L27514" class="LineNr">27514 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L27515" class="LineNr">27515 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) +<span id="L27516" class="LineNr">27516 </span> e9/jump $emit-int-output:end/disp32 +<span id="L27517" class="LineNr">27517 </span> } +<span id="L27518" class="LineNr">27518 </span> <span class="subxComment"># otherwise emit an integer copy</span> +<span id="L27519" class="LineNr">27519 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L27520" class="LineNr">27520 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8b/->"</span>) +<span id="L27521" class="LineNr">27521 </span> (<a href='mu.subx.html#L35745'>emit-subx-var-as-rm32</a> *(ebp+8) *(ebp+0xc)) +<span id="L27522" class="LineNr">27522 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) +<span id="L27523" class="LineNr">27523 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19397'>Mu-registers</a></span> *(ebp+0x10) 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax</span> +<span id="L27524" class="LineNr">27524 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L27525" class="LineNr">27525 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) +<span id="L27526" class="LineNr">27526 </span><span class="Constant">$emit-int-output:end</span>: +<span id="L27527" class="LineNr">27527 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27528" class="LineNr">27528 </span> 59/pop-to-ecx <span id="L27529" class="LineNr">27529 </span> 58/pop-to-eax <span id="L27530" class="LineNr">27530 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L27531" class="LineNr">27531 </span> 89/<- %esp 5/r32/ebp <span id="L27532" class="LineNr">27532 </span> 5d/pop-to-ebp <span id="L27533" class="LineNr">27533 </span> c3/return <span id="L27534" class="LineNr">27534 </span> -<span id="L27535" class="LineNr">27535 </span><span class="subxFunction">mu-branch?</span>: <span class="subxComment"># stmt: (addr stmt1) -> result/eax: boolean</span> +<span id="L27535" class="LineNr">27535 </span><span class="subxFunction">emit-float-output</span>: <span class="subxComment"># out: (addr buffered-file), return-var: (addr stmt-var), dest-reg: (addr array byte)</span> <span id="L27536" class="LineNr">27536 </span> <span class="subxS1Comment"># . prologue</span> <span id="L27537" class="LineNr">27537 </span> 55/push-ebp <span id="L27538" class="LineNr">27538 </span> 89/<- %ebp 4/r32/esp <span id="L27539" class="LineNr">27539 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27540" class="LineNr">27540 </span> 51/push-ecx -<span id="L27541" class="LineNr">27541 </span> <span class="subxComment"># ecx = lookup(stmt->operation)</span> -<span id="L27542" class="LineNr">27542 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L27543" class="LineNr">27543 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L27544" class="LineNr">27544 </span> 89/<- %ecx 0/r32/eax -<span id="L27545" class="LineNr">27545 </span> <span class="subxComment"># if (stmt->operation starts with "loop") return true</span> -<span id="L27546" class="LineNr">27546 </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="L27547" class="LineNr">27547 </span> 3d/compare-eax-and 0/imm32/false -<span id="L27548" class="LineNr">27548 </span> 75/jump-if-not-equal $mu-branch?:end/disp8 -<span id="L27549" class="LineNr">27549 </span> <span class="subxComment"># if (stmt->operation starts with "break") return true</span> -<span id="L27550" class="LineNr">27550 </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="L27551" class="LineNr">27551 </span> 3d/compare-eax-and 0/imm32/false -<span id="L27552" class="LineNr">27552 </span> 75/jump-if-not-equal $mu-branch?:end/disp8 -<span id="L27553" class="LineNr">27553 </span> <span class="subxComment"># otherwise return (stmt->operation starts with "return")</span> -<span id="L27554" class="LineNr">27554 </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="L27555" class="LineNr">27555 </span><span class="Constant">$mu-branch?:end</span>: -<span id="L27556" class="LineNr">27556 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27557" class="LineNr">27557 </span> 59/pop-to-ecx -<span id="L27558" class="LineNr">27558 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27559" class="LineNr">27559 </span> 89/<- %esp 5/r32/ebp -<span id="L27560" class="LineNr">27560 </span> 5d/pop-to-ebp -<span id="L27561" class="LineNr">27561 </span> c3/return -<span id="L27562" class="LineNr">27562 </span> -<span id="L27563" class="LineNr">27563 </span><span class="subxFunction">emit-reverse-break</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt1)</span> -<span id="L27564" class="LineNr">27564 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27565" class="LineNr">27565 </span> 55/push-ebp -<span id="L27566" class="LineNr">27566 </span> 89/<- %ebp 4/r32/esp -<span id="L27567" class="LineNr">27567 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27568" class="LineNr">27568 </span> 50/push-eax -<span id="L27569" class="LineNr">27569 </span> <span class="subxComment"># eax = stmt</span> -<span id="L27570" class="LineNr">27570 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L27571" class="LineNr">27571 </span> <span class="subxComment">#</span> -<span id="L27572" class="LineNr">27572 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L27573" class="LineNr">27573 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L27589'>Reverse-branch</a></span> %eax 0x10 <span class="Constant">"reverse-branch: "</span>) <span class="subxComment"># => eax: (addr handle array byte)</span> -<span id="L27574" class="LineNr">27574 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L27575" class="LineNr">27575 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L27576" class="LineNr">27576 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L27577" class="LineNr">27577 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" break/disp32\n"</span>) -<span id="L27578" class="LineNr">27578 </span><span class="Constant">$emit-reverse-break:end</span>: -<span id="L27579" class="LineNr">27579 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27580" class="LineNr">27580 </span> 58/pop-to-eax -<span id="L27581" class="LineNr">27581 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27582" class="LineNr">27582 </span> 89/<- %esp 5/r32/ebp -<span id="L27583" class="LineNr">27583 </span> 5d/pop-to-ebp -<span id="L27584" class="LineNr">27584 </span> c3/return -<span id="L27585" class="LineNr">27585 </span> -<span id="L27586" class="LineNr">27586 </span>== data -<span id="L27587" class="LineNr">27587 </span> -<span id="L27588" class="LineNr">27588 </span><span class="subxComment"># Table from Mu branch instructions to the reverse SubX opcodes for them.</span> -<span id="L27589" class="LineNr">27589 </span><span class="SpecialChar">Reverse-branch</span>: <span class="subxComment"># (table (handle array byte) (handle array byte))</span> -<span id="L27590" class="LineNr">27590 </span> <span class="subxComment"># a table is a stream</span> -<span id="L27591" class="LineNr">27591 </span> 0x1c0/imm32/write -<span id="L27592" class="LineNr">27592 </span> 0/imm32/read -<span id="L27593" class="LineNr">27593 </span> 0x1c0/imm32/size -<span id="L27594" class="LineNr">27594 </span> <span class="subxComment"># data</span> -<span id="L27595" class="LineNr">27595 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33786'>_string-break-if-=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34133'>_string_0f_85_jump_label</a>/imm32 -<span id="L27596" class="LineNr">27596 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33896'>_string-loop-if-=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34133'>_string_0f_85_jump_label</a>/imm32 -<span id="L27597" class="LineNr">27597 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33801'>_string-break-if-!=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34118'>_string_0f_84_jump_label</a>/imm32 -<span id="L27598" class="LineNr">27598 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33911'>_string-loop-if-!=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34118'>_string_0f_84_jump_label</a>/imm32 -<span id="L27599" class="LineNr">27599 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33776'>_string-break-if-<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34193'>_string_0f_8d_jump_label</a>/imm32 -<span id="L27600" class="LineNr">27600 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33886'>_string-loop-if-<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34193'>_string_0f_8d_jump_label</a>/imm32 -<span id="L27601" class="LineNr">27601 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33791'>_string-break-if-></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34208'>_string_0f_8e_jump_label</a>/imm32 -<span id="L27602" class="LineNr">27602 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33901'>_string-loop-if-></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34208'>_string_0f_8e_jump_label</a>/imm32 -<span id="L27603" class="LineNr">27603 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33781'>_string-break-if-<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34223'>_string_0f_8f_jump_label</a>/imm32 -<span id="L27604" class="LineNr">27604 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33891'>_string-loop-if-<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34223'>_string_0f_8f_jump_label</a>/imm32 -<span id="L27605" class="LineNr">27605 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33796'>_string-break-if->=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34178'>_string_0f_8c_jump_label</a>/imm32 -<span id="L27606" class="LineNr">27606 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33906'>_string-loop-if->=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34178'>_string_0f_8c_jump_label</a>/imm32 -<span id="L27607" class="LineNr">27607 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33806'>_string-break-if-addr<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34103'>_string_0f_83_jump_label</a>/imm32 -<span id="L27608" class="LineNr">27608 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33916'>_string-loop-if-addr<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34103'>_string_0f_83_jump_label</a>/imm32 -<span id="L27609" class="LineNr">27609 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33816'>_string-break-if-addr></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34148'>_string_0f_86_jump_label</a>/imm32 -<span id="L27610" class="LineNr">27610 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33926'>_string-loop-if-addr></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34148'>_string_0f_86_jump_label</a>/imm32 -<span id="L27611" class="LineNr">27611 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33811'>_string-break-if-addr<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34163'>_string_0f_87_jump_label</a>/imm32 -<span id="L27612" class="LineNr">27612 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33921'>_string-loop-if-addr<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34163'>_string_0f_87_jump_label</a>/imm32 -<span id="L27613" class="LineNr">27613 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33821'>_string-break-if-addr>=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34088'>_string_0f_82_jump_label</a>/imm32 -<span id="L27614" class="LineNr">27614 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33931'>_string-loop-if-addr>=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34088'>_string_0f_82_jump_label</a>/imm32 -<span id="L27615" class="LineNr">27615 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33826'>_string-break-if-float<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34103'>_string_0f_83_jump_label</a>/imm32 -<span id="L27616" class="LineNr">27616 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33936'>_string-loop-if-float<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34103'>_string_0f_83_jump_label</a>/imm32 -<span id="L27617" class="LineNr">27617 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33836'>_string-break-if-float></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34148'>_string_0f_86_jump_label</a>/imm32 -<span id="L27618" class="LineNr">27618 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33946'>_string-loop-if-float></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34148'>_string_0f_86_jump_label</a>/imm32 -<span id="L27619" class="LineNr">27619 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33831'>_string-break-if-float<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34163'>_string_0f_87_jump_label</a>/imm32 -<span id="L27620" class="LineNr">27620 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33941'>_string-loop-if-float<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34163'>_string_0f_87_jump_label</a>/imm32 -<span id="L27621" class="LineNr">27621 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33841'>_string-break-if-float>=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34088'>_string_0f_82_jump_label</a>/imm32 -<span id="L27622" class="LineNr">27622 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33951'>_string-loop-if-float>=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34088'>_string_0f_82_jump_label</a>/imm32 -<span id="L27623" class="LineNr">27623 </span> -<span id="L27624" class="LineNr">27624 </span>== code -<span id="L27625" class="LineNr">27625 </span> -<span id="L27626" class="LineNr">27626 </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="L27627" class="LineNr">27627 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27628" class="LineNr">27628 </span> 55/push-ebp -<span id="L27629" class="LineNr">27629 </span> 89/<- %ebp 4/r32/esp -<span id="L27630" class="LineNr">27630 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27631" class="LineNr">27631 </span> 50/push-eax -<span id="L27632" class="LineNr">27632 </span> 51/push-ecx -<span id="L27633" class="LineNr">27633 </span> 52/push-edx -<span id="L27634" class="LineNr">27634 </span> 53/push-ebx -<span id="L27635" class="LineNr">27635 </span> 56/push-esi -<span id="L27636" class="LineNr">27636 </span> <span class="subxComment"># ecx = vars</span> -<span id="L27637" class="LineNr">27637 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L27638" class="LineNr">27638 </span> <span class="subxComment"># var eax: int = vars->top</span> -<span id="L27639" class="LineNr">27639 </span> 8b/-> *ecx 0/r32/eax -<span id="L27640" class="LineNr">27640 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L27641" class="LineNr">27641 </span> 8d/copy-address *(ecx+eax-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> -<span id="L27642" class="LineNr">27642 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> -<span id="L27643" class="LineNr">27643 </span> 8d/copy-address *(ecx+8) 1/r32/ecx -<span id="L27644" class="LineNr">27644 </span> <span class="subxComment"># edx = depth</span> -<span id="L27645" class="LineNr">27645 </span> 8b/-> *(ebp+0x10) 2/r32/edx -<span id="L27646" class="LineNr">27646 </span> { -<span id="L27647" class="LineNr">27647 </span><span class="Constant">$emit-unconditional-jump-to-depth:loop</span>: -<span id="L27648" class="LineNr">27648 </span> <span class="subxComment"># if (curr < min) break</span> -<span id="L27649" class="LineNr">27649 </span> 39/compare %esi 1/r32/ecx -<span id="L27650" class="LineNr">27650 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L27651" class="LineNr">27651 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(*curr)</span> -<span id="L27652" class="LineNr">27652 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L27653" class="LineNr">27653 </span> 89/<- %ebx 0/r32/eax -<span id="L27654" class="LineNr">27654 </span> <span class="subxComment"># if (v->block-depth < until-block-depth) break</span> -<span id="L27655" class="LineNr">27655 </span> 39/compare *(ebx+0x10) 2/r32/edx <span class="subxComment"># Var-block-depth</span> -<span id="L27656" class="LineNr">27656 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 -<span id="L27657" class="LineNr">27657 </span> { -<span id="L27658" class="LineNr">27658 </span><span class="Constant">$emit-unconditional-jump-to-depth:<a href='401test.mu.html#L3'>check</a></span>: -<span id="L27659" class="LineNr">27659 </span> <span class="subxComment"># if v->block-depth != until-block-depth, continue</span> -<span id="L27660" class="LineNr">27660 </span> 39/compare *(ebx+0x10) 2/r32/edx <span class="subxComment"># Var-block-depth</span> -<span id="L27661" class="LineNr">27661 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L27662" class="LineNr">27662 </span><span class="Constant">$emit-unconditional-jump-to-depth:depth-found</span>: -<span id="L27663" class="LineNr">27663 </span> <span class="subxComment"># if v is not a literal, continue</span> -<span id="L27664" class="LineNr">27664 </span> (<a href='mu.subx.html#L26553'>size-of</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L27665" class="LineNr">27665 </span> 3d/compare-eax-and 0/imm32 -<span id="L27666" class="LineNr">27666 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L27667" class="LineNr">27667 </span><span class="Constant">$emit-unconditional-jump-to-depth:label-found</span>: -<span id="L27668" class="LineNr">27668 </span> <span class="subxComment"># emit unconditional jump, then return</span> -<span id="L27669" class="LineNr">27669 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L27670" class="LineNr">27670 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"e9/jump "</span>) -<span id="L27671" class="LineNr">27671 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L27672" class="LineNr">27672 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L27673" class="LineNr">27673 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":"</span>) -<span id="L27674" class="LineNr">27674 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0x14)) -<span id="L27675" class="LineNr">27675 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/disp32\n"</span>) -<span id="L27676" class="LineNr">27676 </span> eb/jump $emit-unconditional-jump-to-depth:end/disp8 -<span id="L27677" class="LineNr">27677 </span> } -<span id="L27678" class="LineNr">27678 </span> <span class="subxComment"># curr -= 12</span> -<span id="L27679" class="LineNr">27679 </span> 81 5/subop/subtract %esi 0xc/imm32 -<span id="L27680" class="LineNr">27680 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L27681" class="LineNr">27681 </span> } -<span id="L27682" class="LineNr">27682 </span> <span class="subxComment"># TODO: error if no label at 'depth' was found</span> -<span id="L27683" class="LineNr">27683 </span><span class="Constant">$emit-unconditional-jump-to-depth:end</span>: -<span id="L27684" class="LineNr">27684 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27685" class="LineNr">27685 </span> 5e/pop-to-esi -<span id="L27686" class="LineNr">27686 </span> 5b/pop-to-ebx -<span id="L27687" class="LineNr">27687 </span> 5a/pop-to-edx -<span id="L27688" class="LineNr">27688 </span> 59/pop-to-ecx -<span id="L27689" class="LineNr">27689 </span> 58/pop-to-eax -<span id="L27690" class="LineNr">27690 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27691" class="LineNr">27691 </span> 89/<- %esp 5/r32/ebp -<span id="L27692" class="LineNr">27692 </span> 5d/pop-to-ebp -<span id="L27693" class="LineNr">27693 </span> c3/return -<span id="L27694" class="LineNr">27694 </span> -<span id="L27695" class="LineNr">27695 </span><span class="subxComment"># emit clean-up code for 'vars' until some block depth</span> -<span id="L27696" class="LineNr">27696 </span><span class="subxComment"># doesn't actually modify 'vars' so we need traverse manually inside the stack</span> -<span id="L27697" class="LineNr">27697 </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="L27698" class="LineNr">27698 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27699" class="LineNr">27699 </span> 55/push-ebp -<span id="L27700" class="LineNr">27700 </span> 89/<- %ebp 4/r32/esp -<span id="L27701" class="LineNr">27701 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27702" class="LineNr">27702 </span> 50/push-eax -<span id="L27703" class="LineNr">27703 </span> 51/push-ecx -<span id="L27704" class="LineNr">27704 </span> 52/push-edx -<span id="L27705" class="LineNr">27705 </span> 53/push-ebx -<span id="L27706" class="LineNr">27706 </span> 56/push-esi -<span id="L27707" class="LineNr">27707 </span><span class="CommentedCode">#? (write-buffered Stderr "--- cleanup\n")</span> -<span id="L27708" class="LineNr">27708 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L27709" class="LineNr">27709 </span> <span class="subxComment"># ecx = vars</span> -<span id="L27710" class="LineNr">27710 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L27711" class="LineNr">27711 </span> <span class="subxComment"># var esi: int = vars->top</span> -<span id="L27712" class="LineNr">27712 </span> 8b/-> *ecx 6/r32/esi -<span id="L27713" class="LineNr">27713 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L27714" class="LineNr">27714 </span> 8d/copy-address *(ecx+esi-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> -<span id="L27715" class="LineNr">27715 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> -<span id="L27716" class="LineNr">27716 </span> 81 0/subop/add %ecx 8/imm32 -<span id="L27717" class="LineNr">27717 </span> <span class="subxComment"># edx = until-block-depth</span> -<span id="L27718" class="LineNr">27718 </span> 8b/-> *(ebp+0x10) 2/r32/edx -<span id="L27719" class="LineNr">27719 </span> { -<span id="L27720" class="LineNr">27720 </span><span class="Constant">$emit-cleanup-code-until-depth:loop</span>: -<span id="L27721" class="LineNr">27721 </span> <span class="subxComment"># if (curr < min) break</span> -<span id="L27722" class="LineNr">27722 </span> 39/compare %esi 1/r32/ecx -<span id="L27723" class="LineNr">27723 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L27724" class="LineNr">27724 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(*curr)</span> -<span id="L27725" class="LineNr">27725 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L27726" class="LineNr">27726 </span> 89/<- %ebx 0/r32/eax -<span id="L27727" class="LineNr">27727 </span><span class="CommentedCode">#? (lookup *ebx *(ebx+4)) # Var-name</span> -<span id="L27728" class="LineNr">27728 </span><span class="CommentedCode">#? (write-buffered Stderr "var ")</span> -<span id="L27729" class="LineNr">27729 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L27730" class="LineNr">27730 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L27731" class="LineNr">27731 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L27732" class="LineNr">27732 </span> <span class="subxComment"># if (v->block-depth < until-block-depth) break</span> -<span id="L27733" class="LineNr">27733 </span> 39/compare *(ebx+0x10) 2/r32/edx <span class="subxComment"># Var-block-depth</span> -<span id="L27734" class="LineNr">27734 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 -<span id="L27735" class="LineNr">27735 </span> <span class="subxComment"># if v is in a register</span> -<span id="L27736" class="LineNr">27736 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L27737" class="LineNr">27737 </span> { -<span id="L27738" class="LineNr">27738 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L27739" class="LineNr">27739 </span> { -<span id="L27740" class="LineNr">27740 </span><span class="Constant">$emit-cleanup-code-until-depth:check-for-previous-spill</span>: -<span id="L27741" class="LineNr">27741 </span> 8b/-> *(esi+8) 0/r32/eax <span class="subxComment"># Live-var-register-spilled</span> -<span id="L27742" class="LineNr">27742 </span> 3d/compare-eax-and 0/imm32/false -<span id="L27743" class="LineNr">27743 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L27744" class="LineNr">27744 </span><span class="Constant">$emit-cleanup-code-until-depth:reclaim-var-in-register</span>: -<span id="L27745" class="LineNr">27745 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L27746" class="LineNr">27746 </span> (<a href='mu.subx.html#L27907'>emit-pop-register</a> *(ebp+8) %eax) -<span id="L27747" class="LineNr">27747 </span> } -<span id="L27748" class="LineNr">27748 </span> eb/jump $emit-cleanup-code-until-depth:continue/disp8 -<span id="L27749" class="LineNr">27749 </span> } -<span id="L27750" class="LineNr">27750 </span> <span class="subxComment"># otherwise v is on the stack</span> -<span id="L27751" class="LineNr">27751 </span> { -<span id="L27752" class="LineNr">27752 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L27753" class="LineNr">27753 </span><span class="Constant">$emit-cleanup-code-until-depth:var-on-stack</span>: -<span id="L27754" class="LineNr">27754 </span> (<a href='mu.subx.html#L26553'>size-of</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L27755" class="LineNr">27755 </span> <span class="subxComment"># don't emit code for labels</span> -<span id="L27756" class="LineNr">27756 </span> 3d/compare-eax-and 0/imm32 -<span id="L27757" class="LineNr">27757 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L27758" class="LineNr">27758 </span><span class="Constant">$emit-cleanup-code-until-depth:reclaim-var-on-stack</span>: -<span id="L27759" class="LineNr">27759 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L27760" class="LineNr">27760 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 0/subop/add %esp "</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">"/imm32\n"</span>) -<span id="L27763" class="LineNr">27763 </span> } -<span id="L27764" class="LineNr">27764 </span><span class="Constant">$emit-cleanup-code-until-depth:continue</span>: -<span id="L27765" class="LineNr">27765 </span> <span class="subxComment"># curr -= 12</span> -<span id="L27766" class="LineNr">27766 </span> 81 5/subop/subtract %esi 0xc/imm32 -<span id="L27767" class="LineNr">27767 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L27768" class="LineNr">27768 </span> } -<span id="L27769" class="LineNr">27769 </span><span class="Constant">$emit-cleanup-code-until-depth:end</span>: -<span id="L27770" class="LineNr">27770 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27771" class="LineNr">27771 </span> 5e/pop-to-esi -<span id="L27772" class="LineNr">27772 </span> 5b/pop-to-ebx -<span id="L27773" class="LineNr">27773 </span> 5a/pop-to-edx -<span id="L27774" class="LineNr">27774 </span> 59/pop-to-ecx -<span id="L27775" class="LineNr">27775 </span> 58/pop-to-eax -<span id="L27776" class="LineNr">27776 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27777" class="LineNr">27777 </span> 89/<- %esp 5/r32/ebp -<span id="L27778" class="LineNr">27778 </span> 5d/pop-to-ebp -<span id="L27779" class="LineNr">27779 </span> c3/return -<span id="L27780" class="LineNr">27780 </span> -<span id="L27781" class="LineNr">27781 </span><span class="subxComment"># emit clean-up code for 'vars' that don't conflict with output registers</span> -<span id="L27782" class="LineNr">27782 </span><span class="subxComment"># doesn't actually modify 'vars' so we need traverse manually inside the stack</span> -<span id="L27783" class="LineNr">27783 </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="L27784" class="LineNr">27784 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27785" class="LineNr">27785 </span> 55/push-ebp -<span id="L27786" class="LineNr">27786 </span> 89/<- %ebp 4/r32/esp -<span id="L27787" class="LineNr">27787 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27788" class="LineNr">27788 </span> 50/push-eax -<span id="L27789" class="LineNr">27789 </span> 51/push-ecx -<span id="L27790" class="LineNr">27790 </span> 52/push-edx -<span id="L27791" class="LineNr">27791 </span> 53/push-ebx -<span id="L27792" class="LineNr">27792 </span> 56/push-esi -<span id="L27793" class="LineNr">27793 </span> 57/push-edi -<span id="L27794" class="LineNr">27794 </span> <span class="subxComment"># ecx = vars</span> -<span id="L27795" class="LineNr">27795 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L27796" class="LineNr">27796 </span> <span class="subxComment"># var esi: int = vars->top</span> -<span id="L27797" class="LineNr">27797 </span> 8b/-> *ecx 6/r32/esi -<span id="L27798" class="LineNr">27798 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L27799" class="LineNr">27799 </span> 8d/copy-address *(ecx+esi-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> -<span id="L27800" class="LineNr">27800 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> -<span id="L27801" class="LineNr">27801 </span> 81 0/subop/add %ecx 8/imm32 -<span id="L27802" class="LineNr">27802 </span> { -<span id="L27803" class="LineNr">27803 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:loop</span>: -<span id="L27804" class="LineNr">27804 </span> <span class="subxComment"># if (curr < min) break</span> -<span id="L27805" class="LineNr">27805 </span> 39/compare %esi 1/r32/ecx -<span id="L27806" class="LineNr">27806 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L27807" class="LineNr">27807 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(*curr)</span> -<span id="L27808" class="LineNr">27808 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L27809" class="LineNr">27809 </span> 89/<- %ebx 0/r32/eax -<span id="L27810" class="LineNr">27810 </span> <span class="subxComment"># if v is in a register</span> -<span id="L27811" class="LineNr">27811 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L27812" class="LineNr">27812 </span> { -<span id="L27813" class="LineNr">27813 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L27814" class="LineNr">27814 </span> { -<span id="L27815" class="LineNr">27815 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:check-for-previous-spill</span>: -<span id="L27816" class="LineNr">27816 </span> 8b/-> *(esi+8) 0/r32/eax <span class="subxComment"># Live-var-register-spilled</span> -<span id="L27817" class="LineNr">27817 </span> 3d/compare-eax-and 0/imm32/false -<span id="L27818" class="LineNr">27818 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L27819" class="LineNr">27819 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:reclaim-var-in-register</span>: -<span id="L27820" class="LineNr">27820 </span> <span class="subxComment"># var reg/edi: (addr array name) = v->register</span> -<span id="L27821" class="LineNr">27821 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L27822" class="LineNr">27822 </span> 89/<- %edi 0/r32/eax -<span id="L27823" class="LineNr">27823 </span> <span class="subxComment"># if reg is not in function outputs, emit a pop</span> -<span id="L27824" class="LineNr">27824 </span> (<a href='mu.subx.html#L28453'>reg-in-function-outputs?</a> *(ebp+0x10) %edi) <span class="subxComment"># => eax</span> -<span id="L27825" class="LineNr">27825 </span> 3d/compare-eax-and 0/imm32/false -<span id="L27826" class="LineNr">27826 </span> { -<span id="L27827" class="LineNr">27827 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L27828" class="LineNr">27828 </span> (<a href='mu.subx.html#L27907'>emit-pop-register</a> *(ebp+8) %edi) -<span id="L27829" class="LineNr">27829 </span> eb/jump $emit-cleanup-code-for-non-outputs:reclaim-var-in-register-done/disp8 -<span id="L27830" class="LineNr">27830 </span> } -<span id="L27831" class="LineNr">27831 </span> <span class="subxComment"># otherwise just drop it from the stack</span> -<span id="L27832" class="LineNr">27832 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L27833" class="LineNr">27833 </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="L27834" class="LineNr">27834 </span> } -<span id="L27835" class="LineNr">27835 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:reclaim-var-in-register-done</span>: -<span id="L27836" class="LineNr">27836 </span> eb/jump $emit-cleanup-code-for-non-outputs:continue/disp8 -<span id="L27837" class="LineNr">27837 </span> } -<span id="L27838" class="LineNr">27838 </span> <span class="subxComment"># otherwise v is on the stack</span> -<span id="L27839" class="LineNr">27839 </span> { -<span id="L27840" class="LineNr">27840 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L27841" class="LineNr">27841 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:var-on-stack</span>: -<span id="L27842" class="LineNr">27842 </span> (<a href='mu.subx.html#L26553'>size-of</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L27843" class="LineNr">27843 </span> <span class="subxComment"># don't emit code for labels</span> -<span id="L27844" class="LineNr">27844 </span> 3d/compare-eax-and 0/imm32 -<span id="L27845" class="LineNr">27845 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L27846" class="LineNr">27846 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:reclaim-var-on-stack</span>: -<span id="L27847" class="LineNr">27847 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L27848" class="LineNr">27848 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 0/subop/add %esp "</span>) -<span id="L27849" class="LineNr">27849 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L27850" class="LineNr">27850 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) -<span id="L27851" class="LineNr">27851 </span> } -<span id="L27852" class="LineNr">27852 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:continue</span>: -<span id="L27853" class="LineNr">27853 </span> <span class="subxComment"># curr -= 12</span> -<span id="L27854" class="LineNr">27854 </span> 81 5/subop/subtract %esi 0xc/imm32 -<span id="L27855" class="LineNr">27855 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L27856" class="LineNr">27856 </span> } -<span id="L27857" class="LineNr">27857 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:end</span>: -<span id="L27858" class="LineNr">27858 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27859" class="LineNr">27859 </span> 5f/pop-to-edi -<span id="L27860" class="LineNr">27860 </span> 5e/pop-to-esi -<span id="L27861" class="LineNr">27861 </span> 5b/pop-to-ebx -<span id="L27862" class="LineNr">27862 </span> 5a/pop-to-edx -<span id="L27863" class="LineNr">27863 </span> 59/pop-to-ecx -<span id="L27864" class="LineNr">27864 </span> 58/pop-to-eax -<span id="L27865" class="LineNr">27865 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27866" class="LineNr">27866 </span> 89/<- %esp 5/r32/ebp -<span id="L27867" class="LineNr">27867 </span> 5d/pop-to-ebp -<span id="L27868" class="LineNr">27868 </span> c3/return -<span id="L27869" class="LineNr">27869 </span> -<span id="L27870" class="LineNr">27870 </span><span class="subxFunction">emit-push-register</span>: <span class="subxComment"># out: (addr buffered-file), reg: (addr array byte)</span> -<span id="L27871" class="LineNr">27871 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27872" class="LineNr">27872 </span> 55/push-ebp -<span id="L27873" class="LineNr">27873 </span> 89/<- %ebp 4/r32/esp -<span id="L27874" class="LineNr">27874 </span> <span class="subxComment"># eax = reg</span> -<span id="L27875" class="LineNr">27875 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L27876" class="LineNr">27876 </span> <span class="subxComment"># var prefix/eax: byte = reg->data[0]</span> -<span id="L27877" class="LineNr">27877 </span> 8a/copy-byte *(eax+4) 0/r32/AL -<span id="L27878" class="LineNr">27878 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L27879" class="LineNr">27879 </span> <span class="subxComment"># if (prefix == 'x') push xmm register</span> -<span id="L27880" class="LineNr">27880 </span> { -<span id="L27881" class="LineNr">27881 </span> 3d/compare-eax-and 0x78/imm32/x -<span id="L27882" class="LineNr">27882 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L27883" class="LineNr">27883 </span> <span class="subxComment"># TODO validate register</span> -<span id="L27884" class="LineNr">27884 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L27885" class="LineNr">27885 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 5/subop/subtract %esp 4/imm32\n"</span>) -<span id="L27886" class="LineNr">27886 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L27887" class="LineNr">27887 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"f3 0f 11/<- *esp "</span>) -<span id="L27888" class="LineNr">27888 </span> <span class="subxComment"># var prefix/eax: byte = reg->data[3]</span> -<span id="L27889" class="LineNr">27889 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L27890" class="LineNr">27890 </span> 8a/copy-byte *(eax+7) 0/r32/AL -<span id="L27891" class="LineNr">27891 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L27892" class="LineNr">27892 </span> (<a href='115write-byte.subx.html#L33'>write-byte-buffered</a> *(ebp+8) %eax) -<span id="L27893" class="LineNr">27893 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/x32\n"</span>) -<span id="L27894" class="LineNr">27894 </span> e9/jump $emit-push-register:end/disp32 -<span id="L27895" class="LineNr">27895 </span> } -<span id="L27896" class="LineNr">27896 </span> <span class="subxComment"># otherwise push gp register</span> -<span id="L27897" class="LineNr">27897 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L27898" class="LineNr">27898 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"ff 6/subop/push %"</span>) -<span id="L27899" class="LineNr">27899 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0xc)) -<span id="L27900" class="LineNr">27900 </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="L27901" class="LineNr">27901 </span><span class="Constant">$emit-push-register:end</span>: -<span id="L27902" class="LineNr">27902 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27903" class="LineNr">27903 </span> 89/<- %esp 5/r32/ebp -<span id="L27904" class="LineNr">27904 </span> 5d/pop-to-ebp -<span id="L27905" class="LineNr">27905 </span> c3/return -<span id="L27906" class="LineNr">27906 </span> -<span id="L27907" class="LineNr">27907 </span><span class="subxFunction">emit-pop-register</span>: <span class="subxComment"># out: (addr buffered-file), reg: (addr array byte)</span> -<span id="L27908" class="LineNr">27908 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27909" class="LineNr">27909 </span> 55/push-ebp -<span id="L27910" class="LineNr">27910 </span> 89/<- %ebp 4/r32/esp -<span id="L27911" class="LineNr">27911 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27912" class="LineNr">27912 </span> 50/push-eax -<span id="L27913" class="LineNr">27913 </span> <span class="subxComment"># eax = reg</span> -<span id="L27914" class="LineNr">27914 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L27915" class="LineNr">27915 </span> <span class="subxComment"># var prefix/eax: byte = reg->data[0]</span> -<span id="L27916" class="LineNr">27916 </span> 8a/copy-byte *(eax+4) 0/r32/AL -<span id="L27917" class="LineNr">27917 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L27918" class="LineNr">27918 </span> <span class="subxComment"># if (prefix == 'x') pop to xmm register</span> -<span id="L27919" class="LineNr">27919 </span> { -<span id="L27920" class="LineNr">27920 </span> 3d/compare-eax-and 0x78/imm32/x -<span id="L27921" class="LineNr">27921 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L27922" class="LineNr">27922 </span> <span class="subxComment"># TODO validate register</span> -<span id="L27923" class="LineNr">27923 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L27924" class="LineNr">27924 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"f3 0f 10/-> *esp "</span>) -<span id="L27925" class="LineNr">27925 </span> <span class="subxComment"># var prefix/eax: byte = reg->data[3]</span> -<span id="L27926" class="LineNr">27926 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L27927" class="LineNr">27927 </span> 8a/copy-byte *(eax+7) 0/r32/AL -<span id="L27928" class="LineNr">27928 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L27929" class="LineNr">27929 </span> (<a href='115write-byte.subx.html#L33'>write-byte-buffered</a> *(ebp+8) %eax) -<span id="L27930" class="LineNr">27930 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/x32\n"</span>) -<span id="L27931" class="LineNr">27931 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L27932" class="LineNr">27932 </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="L27933" class="LineNr">27933 </span> e9/jump $emit-pop-register:end/disp32 -<span id="L27934" class="LineNr">27934 </span> } -<span id="L27935" class="LineNr">27935 </span> <span class="subxComment"># otherwise pop to gp register</span> -<span id="L27936" class="LineNr">27936 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L27937" class="LineNr">27937 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8f 0/subop/pop %"</span>) -<span id="L27938" class="LineNr">27938 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0xc)) -<span id="L27939" class="LineNr">27939 </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="L27940" class="LineNr">27940 </span><span class="Constant">$emit-pop-register:end</span>: -<span id="L27941" class="LineNr">27941 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27942" class="LineNr">27942 </span> 58/pop-to-eax -<span id="L27943" class="LineNr">27943 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27944" class="LineNr">27944 </span> 89/<- %esp 5/r32/ebp -<span id="L27945" class="LineNr">27945 </span> 5d/pop-to-ebp -<span id="L27946" class="LineNr">27946 </span> c3/return -<span id="L27947" class="LineNr">27947 </span> -<span id="L27948" class="LineNr">27948 </span><span class="subxComment"># emit clean-up code for 'vars' until a given label is encountered</span> -<span id="L27949" class="LineNr">27949 </span><span class="subxComment"># doesn't actually modify 'vars' so we need traverse manually inside the stack</span> -<span id="L27950" class="LineNr">27950 </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="L27951" class="LineNr">27951 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27952" class="LineNr">27952 </span> 55/push-ebp -<span id="L27953" class="LineNr">27953 </span> 89/<- %ebp 4/r32/esp -<span id="L27954" class="LineNr">27954 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27955" class="LineNr">27955 </span> 50/push-eax -<span id="L27956" class="LineNr">27956 </span> 51/push-ecx -<span id="L27957" class="LineNr">27957 </span> 52/push-edx -<span id="L27958" class="LineNr">27958 </span> 53/push-ebx -<span id="L27959" class="LineNr">27959 </span> <span class="subxComment"># ecx = vars</span> -<span id="L27960" class="LineNr">27960 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L27961" class="LineNr">27961 </span> <span class="subxComment"># var eax: int = vars->top</span> -<span id="L27962" class="LineNr">27962 </span> 8b/-> *ecx 0/r32/eax -<span id="L27963" class="LineNr">27963 </span> <span class="subxComment"># var curr/edx: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L27964" class="LineNr">27964 </span> 8d/copy-address *(ecx+eax-4) 2/r32/edx <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> -<span id="L27965" class="LineNr">27965 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> -<span id="L27966" class="LineNr">27966 </span> 81 0/subop/add %ecx 8/imm32 -<span id="L27967" class="LineNr">27967 </span> { -<span id="L27968" class="LineNr">27968 </span><span class="Constant">$emit-cleanup-code-until-target:loop</span>: -<span id="L27969" class="LineNr">27969 </span> <span class="subxComment"># if (curr < min) break</span> -<span id="L27970" class="LineNr">27970 </span> 39/compare %edx 1/r32/ecx -<span id="L27971" class="LineNr">27971 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L27972" class="LineNr">27972 </span> <span class="subxComment"># var v/ebx: (handle var) = lookup(*curr)</span> -<span id="L27973" class="LineNr">27973 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L27974" class="LineNr">27974 </span> 89/<- %ebx 0/r32/eax -<span id="L27975" class="LineNr">27975 </span> <span class="subxComment"># if (v->name == until-block-label) break</span> -<span id="L27976" class="LineNr">27976 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L27977" class="LineNr">27977 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L27978" class="LineNr">27978 </span> 3d/compare-eax-and 0/imm32/false -<span id="L27979" class="LineNr">27979 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L27980" class="LineNr">27980 </span> <span class="subxComment"># if v is in a register</span> -<span id="L27981" class="LineNr">27981 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L27982" class="LineNr">27982 </span> { -<span id="L27983" class="LineNr">27983 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L27984" class="LineNr">27984 </span> { -<span id="L27985" class="LineNr">27985 </span><span class="Constant">$emit-cleanup-code-until-target:check-for-previous-spill</span>: -<span id="L27986" class="LineNr">27986 </span> 8b/-> *(edx+8) 0/r32/eax <span class="subxComment"># Live-var-register-spilled</span> -<span id="L27987" class="LineNr">27987 </span> 3d/compare-eax-and 0/imm32/false -<span id="L27988" class="LineNr">27988 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L27989" class="LineNr">27989 </span><span class="Constant">$emit-cleanup-code-until-target:reclaim-var-in-register</span>: -<span id="L27990" class="LineNr">27990 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L27991" class="LineNr">27991 </span> (<a href='mu.subx.html#L27907'>emit-pop-register</a> *(ebp+8) %eax) -<span id="L27992" class="LineNr">27992 </span> } -<span id="L27993" class="LineNr">27993 </span> eb/jump $emit-cleanup-code-until-target:continue/disp8 -<span id="L27994" class="LineNr">27994 </span> } -<span id="L27995" class="LineNr">27995 </span> <span class="subxComment"># otherwise v is on the stack</span> -<span id="L27996" class="LineNr">27996 </span> { -<span id="L27997" class="LineNr">27997 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L27998" class="LineNr">27998 </span><span class="Constant">$emit-cleanup-code-until-target:reclaim-var-on-stack</span>: -<span id="L27999" class="LineNr">27999 </span> (<a href='mu.subx.html#L26553'>size-of</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L28000" class="LineNr">28000 </span> <span class="subxComment"># don't emit code for labels</span> -<span id="L28001" class="LineNr">28001 </span> 3d/compare-eax-and 0/imm32 -<span id="L28002" class="LineNr">28002 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L28003" class="LineNr">28003 </span> <span class="subxComment">#</span> -<span id="L28004" class="LineNr">28004 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L28005" class="LineNr">28005 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 0/subop/add %esp "</span>) -<span id="L28006" class="LineNr">28006 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L28007" class="LineNr">28007 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) -<span id="L28008" class="LineNr">28008 </span> } -<span id="L28009" class="LineNr">28009 </span><span class="Constant">$emit-cleanup-code-until-target:continue</span>: -<span id="L28010" class="LineNr">28010 </span> <span class="subxComment"># curr -= 12</span> -<span id="L28011" class="LineNr">28011 </span> 81 5/subop/subtract %edx 0xc/imm32 -<span id="L28012" class="LineNr">28012 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L28013" class="LineNr">28013 </span> } -<span id="L28014" class="LineNr">28014 </span><span class="Constant">$emit-cleanup-code-until-target:end</span>: -<span id="L28015" class="LineNr">28015 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L28016" class="LineNr">28016 </span> 5b/pop-to-ebx -<span id="L28017" class="LineNr">28017 </span> 5a/pop-to-edx -<span id="L28018" class="LineNr">28018 </span> 59/pop-to-ecx -<span id="L28019" class="LineNr">28019 </span> 58/pop-to-eax -<span id="L28020" class="LineNr">28020 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28021" class="LineNr">28021 </span> 89/<- %esp 5/r32/ebp -<span id="L28022" class="LineNr">28022 </span> 5d/pop-to-ebp -<span id="L28023" class="LineNr">28023 </span> c3/return -<span id="L28024" class="LineNr">28024 </span> -<span id="L28025" class="LineNr">28025 </span><span class="subxComment"># update Curr-local-stack-offset assuming vars until some block depth are popped</span> -<span id="L28026" class="LineNr">28026 </span><span class="subxComment"># doesn't actually modify 'vars', so we need traverse manually inside the stack</span> -<span id="L28027" class="LineNr">28027 </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="L28028" class="LineNr">28028 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28029" class="LineNr">28029 </span> 55/push-ebp -<span id="L28030" class="LineNr">28030 </span> 89/<- %ebp 4/r32/esp -<span id="L28031" class="LineNr">28031 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L28032" class="LineNr">28032 </span> 50/push-eax -<span id="L28033" class="LineNr">28033 </span> 51/push-ecx -<span id="L28034" class="LineNr">28034 </span> 52/push-edx -<span id="L28035" class="LineNr">28035 </span> 53/push-ebx -<span id="L28036" class="LineNr">28036 </span> 56/push-esi -<span id="L28037" class="LineNr">28037 </span> <span class="subxComment"># ecx = vars</span> -<span id="L28038" class="LineNr">28038 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L28039" class="LineNr">28039 </span> <span class="subxComment"># var esi: int = vars->top</span> -<span id="L28040" class="LineNr">28040 </span> 8b/-> *ecx 6/r32/esi -<span id="L28041" class="LineNr">28041 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L28042" class="LineNr">28042 </span> 8d/copy-address *(ecx+esi-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> -<span id="L28043" class="LineNr">28043 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> -<span id="L28044" class="LineNr">28044 </span> 81 0/subop/add %ecx 8/imm32 -<span id="L28045" class="LineNr">28045 </span> <span class="subxComment"># edx = until-block-depth</span> -<span id="L28046" class="LineNr">28046 </span> 8b/-> *(ebp+0xc) 2/r32/edx -<span id="L28047" class="LineNr">28047 </span> { -<span id="L28048" class="LineNr">28048 </span><span class="Constant">$clean-up-stack-offset-state:loop</span>: -<span id="L28049" class="LineNr">28049 </span> <span class="subxComment"># if (curr < min) break</span> -<span id="L28050" class="LineNr">28050 </span> 39/compare %esi 1/r32/ecx -<span id="L28051" class="LineNr">28051 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L28052" class="LineNr">28052 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(*curr)</span> -<span id="L28053" class="LineNr">28053 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L28054" class="LineNr">28054 </span> 89/<- %ebx 0/r32/eax -<span id="L28055" class="LineNr">28055 </span> <span class="subxComment"># if (v->block-depth < until-block-depth) break</span> -<span id="L28056" class="LineNr">28056 </span> 39/compare *(ebx+0x10) 2/r32/edx <span class="subxComment"># Var-block-depth</span> -<span id="L28057" class="LineNr">28057 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 -<span id="L28058" class="LineNr">28058 </span> <span class="subxComment"># if v is in a register</span> -<span id="L28059" class="LineNr">28059 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L28060" class="LineNr">28060 </span> { -<span id="L28061" class="LineNr">28061 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28062" class="LineNr">28062 </span> { -<span id="L28063" class="LineNr">28063 </span><span class="Constant">$clean-up-stack-offset-state:check-for-previous-spill</span>: -<span id="L28064" class="LineNr">28064 </span> 8b/-> *(esi+8) 0/r32/eax <span class="subxComment"># Live-var-register-spilled</span> -<span id="L28065" class="LineNr">28065 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28066" class="LineNr">28066 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L28067" class="LineNr">28067 </span><span class="Constant">$clean-up-stack-offset-state:reclaim-var-in-register</span>: -<span id="L28068" class="LineNr">28068 </span> 81 0/subop/add *<span class="SpecialChar"><a href='mu.subx.html#L26956'>Curr-local-stack-offset</a></span> 4/imm32 -<span id="L28069" class="LineNr">28069 </span> } -<span id="L28070" class="LineNr">28070 </span> eb/jump $clean-up-stack-offset-state:continue/disp8 -<span id="L28071" class="LineNr">28071 </span> } -<span id="L28072" class="LineNr">28072 </span> <span class="subxComment"># otherwise v is on the stack</span> -<span id="L28073" class="LineNr">28073 </span> { -<span id="L28074" class="LineNr">28074 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L28075" class="LineNr">28075 </span><span class="Constant">$clean-up-stack-offset-state:var-on-stack</span>: -<span id="L28076" class="LineNr">28076 </span> (<a href='mu.subx.html#L26553'>size-of</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L28077" class="LineNr">28077 </span> 01/add-to *<span class="SpecialChar"><a href='mu.subx.html#L26956'>Curr-local-stack-offset</a></span> 0/r32/eax -<span id="L28078" class="LineNr">28078 </span> } -<span id="L28079" class="LineNr">28079 </span><span class="Constant">$clean-up-stack-offset-state:continue</span>: -<span id="L28080" class="LineNr">28080 </span> <span class="subxComment"># curr -= 12</span> -<span id="L28081" class="LineNr">28081 </span> 81 5/subop/subtract %esi 0xc/imm32 -<span id="L28082" class="LineNr">28082 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L28083" class="LineNr">28083 </span> } -<span id="L28084" class="LineNr">28084 </span><span class="Constant">$clean-up-stack-offset-state:end</span>: -<span id="L28085" class="LineNr">28085 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L28086" class="LineNr">28086 </span> 5e/pop-to-esi -<span id="L28087" class="LineNr">28087 </span> 5b/pop-to-ebx -<span id="L28088" class="LineNr">28088 </span> 5a/pop-to-edx -<span id="L28089" class="LineNr">28089 </span> 59/pop-to-ecx -<span id="L28090" class="LineNr">28090 </span> 58/pop-to-eax -<span id="L28091" class="LineNr">28091 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28092" class="LineNr">28092 </span> 89/<- %esp 5/r32/ebp -<span id="L28093" class="LineNr">28093 </span> 5d/pop-to-ebp -<span id="L28094" class="LineNr">28094 </span> c3/return -<span id="L28095" class="LineNr">28095 </span> -<span id="L28096" class="LineNr">28096 </span><span class="subxComment"># Return true if there isn't a variable in 'vars' with the same block-depth</span> -<span id="L28097" class="LineNr">28097 </span><span class="subxComment"># and register as 'v'.</span> -<span id="L28098" class="LineNr">28098 </span><span class="subxComment"># 'v' is guaranteed not to be within 'vars'.</span> -<span id="L28099" class="LineNr">28099 </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="L28100" class="LineNr">28100 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28101" class="LineNr">28101 </span> 55/push-ebp -<span id="L28102" class="LineNr">28102 </span> 89/<- %ebp 4/r32/esp -<span id="L28103" class="LineNr">28103 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L28104" class="LineNr">28104 </span> 51/push-ecx -<span id="L28105" class="LineNr">28105 </span> 52/push-edx -<span id="L28106" class="LineNr">28106 </span> 53/push-ebx -<span id="L28107" class="LineNr">28107 </span> 56/push-esi -<span id="L28108" class="LineNr">28108 </span> 57/push-edi -<span id="L28109" class="LineNr">28109 </span> <span class="subxComment"># ecx = vars</span> -<span id="L28110" class="LineNr">28110 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L28111" class="LineNr">28111 </span> <span class="subxComment"># var eax: int = vars->top</span> -<span id="L28112" class="LineNr">28112 </span> 8b/-> *ecx 0/r32/eax -<span id="L28113" class="LineNr">28113 </span> <span class="subxComment"># var curr/edx: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L28114" class="LineNr">28114 </span> 8d/copy-address *(ecx+eax-4) 2/r32/edx <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> -<span id="L28115" class="LineNr">28115 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> -<span id="L28116" class="LineNr">28116 </span> 8d/copy-address *(ecx+8) 1/r32/ecx -<span id="L28117" class="LineNr">28117 </span> <span class="subxComment"># var depth/ebx: int = v->block-depth</span> -<span id="L28118" class="LineNr">28118 </span> 8b/-> *(ebp+8) 3/r32/ebx -<span id="L28119" class="LineNr">28119 </span> 8b/-> *(ebx+0x10) 3/r32/ebx <span class="subxComment"># Var-block-depth</span> -<span id="L28120" class="LineNr">28120 </span> <span class="subxComment"># var needle/esi: (addr array byte) = v->register</span> -<span id="L28121" class="LineNr">28121 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L28122" class="LineNr">28122 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L28123" class="LineNr">28123 </span> 89/<- %esi 0/r32/eax -<span id="L28124" class="LineNr">28124 </span> { -<span id="L28125" class="LineNr">28125 </span><span class="Constant">$not-yet-spilled-this-block?:loop</span>: -<span id="L28126" class="LineNr">28126 </span> <span class="subxComment"># if (curr < min) break</span> -<span id="L28127" class="LineNr">28127 </span> 39/compare %edx 1/r32/ecx -<span id="L28128" class="LineNr">28128 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L28129" class="LineNr">28129 </span> <span class="subxComment"># var cand/edi: (addr var) = lookup(*curr)</span> -<span id="L28130" class="LineNr">28130 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L28131" class="LineNr">28131 </span> 89/<- %edi 0/r32/eax -<span id="L28132" class="LineNr">28132 </span> <span class="subxComment"># if (cand->block-depth < depth) break</span> -<span id="L28133" class="LineNr">28133 </span> 39/compare *(edi+0x10) 3/r32/ebx <span class="subxComment"># Var-block-depth</span> -<span id="L28134" class="LineNr">28134 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 -<span id="L28135" class="LineNr">28135 </span> <span class="subxComment"># var cand-reg/edi: (array array byte) = cand->reg</span> -<span id="L28136" class="LineNr">28136 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+0x18) *(edi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L28137" class="LineNr">28137 </span> 89/<- %edi 0/r32/eax -<span id="L28138" class="LineNr">28138 </span> <span class="subxComment"># if (cand-reg == null) continue</span> -<span id="L28139" class="LineNr">28139 </span> { -<span id="L28140" class="LineNr">28140 </span><span class="Constant">$not-yet-spilled-this-block?:check-reg</span>: -<span id="L28141" class="LineNr">28141 </span> 81 7/subop/compare %edi 0/imm32 -<span id="L28142" class="LineNr">28142 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28143" class="LineNr">28143 </span> <span class="subxComment"># if (cand-reg == needle) return true</span> -<span id="L28144" class="LineNr">28144 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi %edi) <span class="subxComment"># => eax</span> -<span id="L28145" class="LineNr">28145 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28146" class="LineNr">28146 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L28147" class="LineNr">28147 </span><span class="Constant">$not-yet-spilled-this-block?:return-false</span>: -<span id="L28148" class="LineNr">28148 </span> b8/copy-to-eax 0/imm32/false -<span id="L28149" class="LineNr">28149 </span> eb/jump $not-yet-spilled-this-block?:end/disp8 -<span id="L28150" class="LineNr">28150 </span> } -<span id="L28151" class="LineNr">28151 </span><span class="Constant">$not-yet-spilled-this-block?:continue</span>: -<span id="L28152" class="LineNr">28152 </span> <span class="subxComment"># curr -= 12</span> -<span id="L28153" class="LineNr">28153 </span> 81 5/subop/subtract %edx 0xc/imm32 -<span id="L28154" class="LineNr">28154 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L28155" class="LineNr">28155 </span> } -<span id="L28156" class="LineNr">28156 </span><span class="Constant">$not-yet-spilled-this-block?:return-true</span>: -<span id="L28157" class="LineNr">28157 </span> <span class="subxComment"># return true</span> -<span id="L28158" class="LineNr">28158 </span> b8/copy-to-eax 1/imm32/true -<span id="L28159" class="LineNr">28159 </span><span class="Constant">$not-yet-spilled-this-block?:end</span>: -<span id="L28160" class="LineNr">28160 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L28161" class="LineNr">28161 </span> 5f/pop-to-edi -<span id="L28162" class="LineNr">28162 </span> 5e/pop-to-esi -<span id="L28163" class="LineNr">28163 </span> 5b/pop-to-ebx -<span id="L28164" class="LineNr">28164 </span> 5a/pop-to-edx -<span id="L28165" class="LineNr">28165 </span> 59/pop-to-ecx -<span id="L28166" class="LineNr">28166 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28167" class="LineNr">28167 </span> 89/<- %esp 5/r32/ebp -<span id="L28168" class="LineNr">28168 </span> 5d/pop-to-ebp -<span id="L28169" class="LineNr">28169 </span> c3/return -<span id="L28170" class="LineNr">28170 </span> -<span id="L28171" class="LineNr">28171 </span><span class="subxComment"># could the register of 'v' ever be written to by one of the vars in fn-outputs?</span> -<span id="L28172" class="LineNr">28172 </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="L28173" class="LineNr">28173 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28174" class="LineNr">28174 </span> 55/push-ebp -<span id="L28175" class="LineNr">28175 </span> 89/<- %ebp 4/r32/esp -<span id="L28176" class="LineNr">28176 </span> <span class="subxComment"># eax = v</span> -<span id="L28177" class="LineNr">28177 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L28178" class="LineNr">28178 </span> <span class="subxComment"># var reg/eax: (addr array byte) = lookup(v->register)</span> -<span id="L28179" class="LineNr">28179 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L28180" class="LineNr">28180 </span> <span class="subxComment"># var target/eax: (addr var) = find-register(fn-outputs, reg)</span> -<span id="L28181" class="LineNr">28181 </span> (<a href='mu.subx.html#L28202'>find-register</a> *(ebp+0x10) %eax) <span class="subxComment"># => eax</span> -<span id="L28182" class="LineNr">28182 </span> <span class="subxComment"># if (target == 0) return true</span> -<span id="L28183" class="LineNr">28183 </span> { -<span id="L28184" class="LineNr">28184 </span> 3d/compare-eax-and 0/imm32 -<span id="L28185" class="LineNr">28185 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L28186" class="LineNr">28186 </span> b8/copy-to-eax 1/imm32/true -<span id="L28187" class="LineNr">28187 </span> eb/jump $will-not-write-some-register?:end/disp8 -<span id="L28188" class="LineNr">28188 </span> } -<span id="L28189" class="LineNr">28189 </span> <span class="subxComment"># return !assigns-in-stmts?(stmts, target)</span> -<span id="L28190" class="LineNr">28190 </span> (<a href='mu.subx.html#L28244'>assigns-in-stmts?</a> *(ebp+0xc) %eax) <span class="subxComment"># => eax</span> -<span id="L28191" class="LineNr">28191 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28192" class="LineNr">28192 </span> <span class="subxComment"># assume: true = 1, so no need to mask with 0x000000ff</span> -<span id="L28193" class="LineNr">28193 </span> 0f 94/set-if-= %al -<span id="L28194" class="LineNr">28194 </span><span class="Constant">$will-not-write-some-register?:end</span>: -<span id="L28195" class="LineNr">28195 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28196" class="LineNr">28196 </span> 89/<- %esp 5/r32/ebp -<span id="L28197" class="LineNr">28197 </span> 5d/pop-to-ebp -<span id="L28198" class="LineNr">28198 </span> c3/return -<span id="L28199" class="LineNr">28199 </span> -<span id="L28200" class="LineNr">28200 </span><span class="subxComment"># return fn output with matching register</span> -<span id="L28201" class="LineNr">28201 </span><span class="subxComment"># always returns false if 'reg' is null</span> -<span id="L28202" class="LineNr">28202 </span><span class="subxFunction">find-register</span>: <span class="subxComment"># fn: (addr function), reg: (addr array byte) -> result/eax: (addr var)</span> +<span id="L27540" class="LineNr">27540 </span> 50/push-eax +<span id="L27541" class="LineNr">27541 </span> <span class="subxComment">#</span> +<span id="L27542" class="LineNr">27542 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L27543" class="LineNr">27543 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"f3 0f 10/->"</span>) +<span id="L27544" class="LineNr">27544 </span> (<a href='mu.subx.html#L35745'>emit-subx-var-as-rm32</a> *(ebp+8) *(ebp+0xc)) +<span id="L27545" class="LineNr">27545 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) +<span id="L27546" class="LineNr">27546 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19397'>Mu-registers</a></span> *(ebp+0x10) 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax</span> +<span id="L27547" class="LineNr">27547 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L27548" class="LineNr">27548 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/x32\n"</span>) +<span id="L27549" class="LineNr">27549 </span><span class="Constant">$emit-float-output:end</span>: +<span id="L27550" class="LineNr">27550 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27551" class="LineNr">27551 </span> 58/pop-to-eax +<span id="L27552" class="LineNr">27552 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27553" class="LineNr">27553 </span> 89/<- %esp 5/r32/ebp +<span id="L27554" class="LineNr">27554 </span> 5d/pop-to-ebp +<span id="L27555" class="LineNr">27555 </span> c3/return +<span id="L27556" class="LineNr">27556 </span> +<span id="L27557" class="LineNr">27557 </span><span class="subxFunction">mu-branch?</span>: <span class="subxComment"># stmt: (addr stmt1) -> result/eax: boolean</span> +<span id="L27558" class="LineNr">27558 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27559" class="LineNr">27559 </span> 55/push-ebp +<span id="L27560" class="LineNr">27560 </span> 89/<- %ebp 4/r32/esp +<span id="L27561" class="LineNr">27561 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27562" class="LineNr">27562 </span> 51/push-ecx +<span id="L27563" class="LineNr">27563 </span> <span class="subxComment"># ecx = lookup(stmt->operation)</span> +<span id="L27564" class="LineNr">27564 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L27565" class="LineNr">27565 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L27566" class="LineNr">27566 </span> 89/<- %ecx 0/r32/eax +<span id="L27567" class="LineNr">27567 </span> <span class="subxComment"># if (stmt->operation starts with "loop") return true</span> +<span id="L27568" class="LineNr">27568 </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="L27569" class="LineNr">27569 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27570" class="LineNr">27570 </span> 75/jump-if-not-equal $mu-branch?:end/disp8 +<span id="L27571" class="LineNr">27571 </span> <span class="subxComment"># if (stmt->operation starts with "break") return true</span> +<span id="L27572" class="LineNr">27572 </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="L27573" class="LineNr">27573 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27574" class="LineNr">27574 </span> 75/jump-if-not-equal $mu-branch?:end/disp8 +<span id="L27575" class="LineNr">27575 </span> <span class="subxComment"># otherwise return (stmt->operation starts with "return")</span> +<span id="L27576" class="LineNr">27576 </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="L27577" class="LineNr">27577 </span><span class="Constant">$mu-branch?:end</span>: +<span id="L27578" class="LineNr">27578 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27579" class="LineNr">27579 </span> 59/pop-to-ecx +<span id="L27580" class="LineNr">27580 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27581" class="LineNr">27581 </span> 89/<- %esp 5/r32/ebp +<span id="L27582" class="LineNr">27582 </span> 5d/pop-to-ebp +<span id="L27583" class="LineNr">27583 </span> c3/return +<span id="L27584" class="LineNr">27584 </span> +<span id="L27585" class="LineNr">27585 </span><span class="subxFunction">emit-reverse-break</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt1)</span> +<span id="L27586" class="LineNr">27586 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27587" class="LineNr">27587 </span> 55/push-ebp +<span id="L27588" class="LineNr">27588 </span> 89/<- %ebp 4/r32/esp +<span id="L27589" class="LineNr">27589 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27590" class="LineNr">27590 </span> 50/push-eax +<span id="L27591" class="LineNr">27591 </span> <span class="subxComment"># eax = stmt</span> +<span id="L27592" class="LineNr">27592 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L27593" class="LineNr">27593 </span> <span class="subxComment">#</span> +<span id="L27594" class="LineNr">27594 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L27595" class="LineNr">27595 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L27611'>Reverse-branch</a></span> %eax 0x10 <span class="Constant">"reverse-branch: "</span>) <span class="subxComment"># => eax: (addr handle array byte)</span> +<span id="L27596" class="LineNr">27596 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L27597" class="LineNr">27597 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L27598" class="LineNr">27598 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L27599" class="LineNr">27599 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" break/disp32\n"</span>) +<span id="L27600" class="LineNr">27600 </span><span class="Constant">$emit-reverse-break:end</span>: +<span id="L27601" class="LineNr">27601 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27602" class="LineNr">27602 </span> 58/pop-to-eax +<span id="L27603" class="LineNr">27603 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27604" class="LineNr">27604 </span> 89/<- %esp 5/r32/ebp +<span id="L27605" class="LineNr">27605 </span> 5d/pop-to-ebp +<span id="L27606" class="LineNr">27606 </span> c3/return +<span id="L27607" class="LineNr">27607 </span> +<span id="L27608" class="LineNr">27608 </span>== data +<span id="L27609" class="LineNr">27609 </span> +<span id="L27610" class="LineNr">27610 </span><span class="subxComment"># Table from Mu branch instructions to the reverse SubX opcodes for them.</span> +<span id="L27611" class="LineNr">27611 </span><span class="SpecialChar">Reverse-branch</span>: <span class="subxComment"># (table (handle array byte) (handle array byte))</span> +<span id="L27612" class="LineNr">27612 </span> <span class="subxComment"># a table is a stream</span> +<span id="L27613" class="LineNr">27613 </span> 0x240/imm32/write +<span id="L27614" class="LineNr">27614 </span> 0/imm32/read +<span id="L27615" class="LineNr">27615 </span> 0x240/imm32/size +<span id="L27616" class="LineNr">27616 </span> <span class="subxComment"># data</span> +<span id="L27617" class="LineNr">27617 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34035'>_string-break-if-=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34457'>_string_0f_85_jump_label</a>/imm32 +<span id="L27618" class="LineNr">27618 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34165'>_string-loop-if-=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34457'>_string_0f_85_jump_label</a>/imm32 +<span id="L27619" class="LineNr">27619 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34050'>_string-break-if-!=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34442'>_string_0f_84_jump_label</a>/imm32 +<span id="L27620" class="LineNr">27620 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34180'>_string-loop-if-!=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34442'>_string_0f_84_jump_label</a>/imm32 +<span id="L27621" class="LineNr">27621 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34025'>_string-break-if-<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34517'>_string_0f_8d_jump_label</a>/imm32 +<span id="L27622" class="LineNr">27622 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34155'>_string-loop-if-<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34517'>_string_0f_8d_jump_label</a>/imm32 +<span id="L27623" class="LineNr">27623 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34040'>_string-break-if-></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34532'>_string_0f_8e_jump_label</a>/imm32 +<span id="L27624" class="LineNr">27624 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34170'>_string-loop-if-></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34532'>_string_0f_8e_jump_label</a>/imm32 +<span id="L27625" class="LineNr">27625 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34030'>_string-break-if-<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34547'>_string_0f_8f_jump_label</a>/imm32 +<span id="L27626" class="LineNr">27626 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34160'>_string-loop-if-<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34547'>_string_0f_8f_jump_label</a>/imm32 +<span id="L27627" class="LineNr">27627 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34045'>_string-break-if->=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34502'>_string_0f_8c_jump_label</a>/imm32 +<span id="L27628" class="LineNr">27628 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34175'>_string-loop-if->=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34502'>_string_0f_8c_jump_label</a>/imm32 +<span id="L27629" class="LineNr">27629 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34055'>_string-break-if-addr<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34427'>_string_0f_83_jump_label</a>/imm32 +<span id="L27630" class="LineNr">27630 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34185'>_string-loop-if-addr<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34427'>_string_0f_83_jump_label</a>/imm32 +<span id="L27631" class="LineNr">27631 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34065'>_string-break-if-addr></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34472'>_string_0f_86_jump_label</a>/imm32 +<span id="L27632" class="LineNr">27632 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34195'>_string-loop-if-addr></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34472'>_string_0f_86_jump_label</a>/imm32 +<span id="L27633" class="LineNr">27633 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34060'>_string-break-if-addr<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34487'>_string_0f_87_jump_label</a>/imm32 +<span id="L27634" class="LineNr">27634 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34190'>_string-loop-if-addr<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34487'>_string_0f_87_jump_label</a>/imm32 +<span id="L27635" class="LineNr">27635 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34070'>_string-break-if-addr>=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34412'>_string_0f_82_jump_label</a>/imm32 +<span id="L27636" class="LineNr">27636 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34200'>_string-loop-if-addr>=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34412'>_string_0f_82_jump_label</a>/imm32 +<span id="L27637" class="LineNr">27637 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34075'>_string-break-if-float<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34427'>_string_0f_83_jump_label</a>/imm32 +<span id="L27638" class="LineNr">27638 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34205'>_string-loop-if-float<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34427'>_string_0f_83_jump_label</a>/imm32 +<span id="L27639" class="LineNr">27639 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34085'>_string-break-if-float></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34472'>_string_0f_86_jump_label</a>/imm32 +<span id="L27640" class="LineNr">27640 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34215'>_string-loop-if-float></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34472'>_string_0f_86_jump_label</a>/imm32 +<span id="L27641" class="LineNr">27641 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34080'>_string-break-if-float<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34487'>_string_0f_87_jump_label</a>/imm32 +<span id="L27642" class="LineNr">27642 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34210'>_string-loop-if-float<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34487'>_string_0f_87_jump_label</a>/imm32 +<span id="L27643" class="LineNr">27643 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34090'>_string-break-if-float>=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34412'>_string_0f_82_jump_label</a>/imm32 +<span id="L27644" class="LineNr">27644 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34220'>_string-loop-if-float>=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34412'>_string_0f_82_jump_label</a>/imm32 +<span id="L27645" class="LineNr">27645 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34095'>_string-break-if-carry</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34427'>_string_0f_83_jump_label</a>/imm32 +<span id="L27646" class="LineNr">27646 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34225'>_string-loop-if-carry</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34427'>_string_0f_83_jump_label</a>/imm32 +<span id="L27647" class="LineNr">27647 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34100'>_string-break-if-not-carry</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34412'>_string_0f_82_jump_label</a>/imm32 +<span id="L27648" class="LineNr">27648 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34230'>_string-loop-if-not-carry</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34412'>_string_0f_82_jump_label</a>/imm32 +<span id="L27649" class="LineNr">27649 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34105'>_string-break-if-overflow</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34397'>_string_0f_81_jump_label</a>/imm32 +<span id="L27650" class="LineNr">27650 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34235'>_string-loop-if-overflow</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34397'>_string_0f_81_jump_label</a>/imm32 +<span id="L27651" class="LineNr">27651 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34110'>_string-break-if-not-overflow</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34382'>_string_0f_80_jump_label</a>/imm32 +<span id="L27652" class="LineNr">27652 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34240'>_string-loop-if-not-overflow</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34382'>_string_0f_80_jump_label</a>/imm32 +<span id="L27653" class="LineNr">27653 </span> +<span id="L27654" class="LineNr">27654 </span>== code +<span id="L27655" class="LineNr">27655 </span> +<span id="L27656" class="LineNr">27656 </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="L27657" class="LineNr">27657 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27658" class="LineNr">27658 </span> 55/push-ebp +<span id="L27659" class="LineNr">27659 </span> 89/<- %ebp 4/r32/esp +<span id="L27660" class="LineNr">27660 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27661" class="LineNr">27661 </span> 50/push-eax +<span id="L27662" class="LineNr">27662 </span> 51/push-ecx +<span id="L27663" class="LineNr">27663 </span> 52/push-edx +<span id="L27664" class="LineNr">27664 </span> 53/push-ebx +<span id="L27665" class="LineNr">27665 </span> 56/push-esi +<span id="L27666" class="LineNr">27666 </span> <span class="subxComment"># ecx = vars</span> +<span id="L27667" class="LineNr">27667 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L27668" class="LineNr">27668 </span> <span class="subxComment"># var eax: int = vars->top</span> +<span id="L27669" class="LineNr">27669 </span> 8b/-> *ecx 0/r32/eax +<span id="L27670" class="LineNr">27670 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L27671" class="LineNr">27671 </span> 8d/copy-address *(ecx+eax-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> +<span id="L27672" class="LineNr">27672 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> +<span id="L27673" class="LineNr">27673 </span> 8d/copy-address *(ecx+8) 1/r32/ecx +<span id="L27674" class="LineNr">27674 </span> <span class="subxComment"># edx = depth</span> +<span id="L27675" class="LineNr">27675 </span> 8b/-> *(ebp+0x10) 2/r32/edx +<span id="L27676" class="LineNr">27676 </span> { +<span id="L27677" class="LineNr">27677 </span><span class="Constant">$emit-unconditional-jump-to-depth:loop</span>: +<span id="L27678" class="LineNr">27678 </span> <span class="subxComment"># if (curr < min) break</span> +<span id="L27679" class="LineNr">27679 </span> 39/compare %esi 1/r32/ecx +<span id="L27680" class="LineNr">27680 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L27681" class="LineNr">27681 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(*curr)</span> +<span id="L27682" class="LineNr">27682 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L27683" class="LineNr">27683 </span> 89/<- %ebx 0/r32/eax +<span id="L27684" class="LineNr">27684 </span> <span class="subxComment"># if (v->block-depth < until-block-depth) break</span> +<span id="L27685" class="LineNr">27685 </span> 39/compare *(ebx+0x10) 2/r32/edx <span class="subxComment"># Var-block-depth</span> +<span id="L27686" class="LineNr">27686 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 +<span id="L27687" class="LineNr">27687 </span> { +<span id="L27688" class="LineNr">27688 </span><span class="Constant">$emit-unconditional-jump-to-depth:<a href='401test.mu.html#L3'>check</a></span>: +<span id="L27689" class="LineNr">27689 </span> <span class="subxComment"># if v->block-depth != until-block-depth, continue</span> +<span id="L27690" class="LineNr">27690 </span> 39/compare *(ebx+0x10) 2/r32/edx <span class="subxComment"># Var-block-depth</span> +<span id="L27691" class="LineNr">27691 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L27692" class="LineNr">27692 </span><span class="Constant">$emit-unconditional-jump-to-depth:depth-found</span>: +<span id="L27693" class="LineNr">27693 </span> <span class="subxComment"># if v is not a literal, continue</span> +<span id="L27694" class="LineNr">27694 </span> (<a href='mu.subx.html#L26575'>size-of</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L27695" class="LineNr">27695 </span> 3d/compare-eax-and 0/imm32 +<span id="L27696" class="LineNr">27696 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L27697" class="LineNr">27697 </span><span class="Constant">$emit-unconditional-jump-to-depth:label-found</span>: +<span id="L27698" class="LineNr">27698 </span> <span class="subxComment"># emit unconditional jump, then return</span> +<span id="L27699" class="LineNr">27699 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L27700" class="LineNr">27700 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"e9/jump "</span>) +<span id="L27701" class="LineNr">27701 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => 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> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0x14)) +<span id="L27705" class="LineNr">27705 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/disp32\n"</span>) +<span id="L27706" class="LineNr">27706 </span> eb/jump $emit-unconditional-jump-to-depth:end/disp8 +<span id="L27707" class="LineNr">27707 </span> } +<span id="L27708" class="LineNr">27708 </span> <span class="subxComment"># curr -= 12</span> +<span id="L27709" class="LineNr">27709 </span> 81 5/subop/subtract %esi 0xc/imm32 +<span id="L27710" class="LineNr">27710 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L27711" class="LineNr">27711 </span> } +<span id="L27712" class="LineNr">27712 </span> <span class="subxComment"># TODO: error if no label at 'depth' was found</span> +<span id="L27713" class="LineNr">27713 </span><span class="Constant">$emit-unconditional-jump-to-depth:end</span>: +<span id="L27714" class="LineNr">27714 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27715" class="LineNr">27715 </span> 5e/pop-to-esi +<span id="L27716" class="LineNr">27716 </span> 5b/pop-to-ebx +<span id="L27717" class="LineNr">27717 </span> 5a/pop-to-edx +<span id="L27718" class="LineNr">27718 </span> 59/pop-to-ecx +<span id="L27719" class="LineNr">27719 </span> 58/pop-to-eax +<span id="L27720" class="LineNr">27720 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27721" class="LineNr">27721 </span> 89/<- %esp 5/r32/ebp +<span id="L27722" class="LineNr">27722 </span> 5d/pop-to-ebp +<span id="L27723" class="LineNr">27723 </span> c3/return +<span id="L27724" class="LineNr">27724 </span> +<span id="L27725" class="LineNr">27725 </span><span class="subxComment"># emit clean-up code for 'vars' until some block depth</span> +<span id="L27726" class="LineNr">27726 </span><span class="subxComment"># doesn't actually modify 'vars' so we need traverse manually inside the stack</span> +<span id="L27727" class="LineNr">27727 </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="L27728" class="LineNr">27728 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27729" class="LineNr">27729 </span> 55/push-ebp +<span id="L27730" class="LineNr">27730 </span> 89/<- %ebp 4/r32/esp +<span id="L27731" class="LineNr">27731 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27732" class="LineNr">27732 </span> 50/push-eax +<span id="L27733" class="LineNr">27733 </span> 51/push-ecx +<span id="L27734" class="LineNr">27734 </span> 52/push-edx +<span id="L27735" class="LineNr">27735 </span> 53/push-ebx +<span id="L27736" class="LineNr">27736 </span> 56/push-esi +<span id="L27737" class="LineNr">27737 </span><span class="CommentedCode">#? (write-buffered Stderr "--- cleanup\n")</span> +<span id="L27738" class="LineNr">27738 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L27739" class="LineNr">27739 </span> <span class="subxComment"># ecx = vars</span> +<span id="L27740" class="LineNr">27740 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L27741" class="LineNr">27741 </span> <span class="subxComment"># var esi: int = vars->top</span> +<span id="L27742" class="LineNr">27742 </span> 8b/-> *ecx 6/r32/esi +<span id="L27743" class="LineNr">27743 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L27744" class="LineNr">27744 </span> 8d/copy-address *(ecx+esi-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> +<span id="L27745" class="LineNr">27745 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> +<span id="L27746" class="LineNr">27746 </span> 81 0/subop/add %ecx 8/imm32 +<span id="L27747" class="LineNr">27747 </span> <span class="subxComment"># edx = until-block-depth</span> +<span id="L27748" class="LineNr">27748 </span> 8b/-> *(ebp+0x10) 2/r32/edx +<span id="L27749" class="LineNr">27749 </span> { +<span id="L27750" class="LineNr">27750 </span><span class="Constant">$emit-cleanup-code-until-depth:loop</span>: +<span id="L27751" class="LineNr">27751 </span> <span class="subxComment"># if (curr < min) break</span> +<span id="L27752" class="LineNr">27752 </span> 39/compare %esi 1/r32/ecx +<span id="L27753" class="LineNr">27753 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L27754" class="LineNr">27754 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(*curr)</span> +<span id="L27755" class="LineNr">27755 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L27756" class="LineNr">27756 </span> 89/<- %ebx 0/r32/eax +<span id="L27757" class="LineNr">27757 </span><span class="CommentedCode">#? (lookup *ebx *(ebx+4)) # Var-name</span> +<span id="L27758" class="LineNr">27758 </span><span class="CommentedCode">#? (write-buffered Stderr "var ")</span> +<span id="L27759" class="LineNr">27759 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L27760" class="LineNr">27760 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L27761" class="LineNr">27761 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L27762" class="LineNr">27762 </span> <span class="subxComment"># if (v->block-depth < until-block-depth) break</span> +<span id="L27763" class="LineNr">27763 </span> 39/compare *(ebx+0x10) 2/r32/edx <span class="subxComment"># Var-block-depth</span> +<span id="L27764" class="LineNr">27764 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 +<span id="L27765" class="LineNr">27765 </span> <span class="subxComment"># if v is in a register</span> +<span id="L27766" class="LineNr">27766 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L27767" class="LineNr">27767 </span> { +<span id="L27768" class="LineNr">27768 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L27769" class="LineNr">27769 </span> { +<span id="L27770" class="LineNr">27770 </span><span class="Constant">$emit-cleanup-code-until-depth:check-for-previous-spill</span>: +<span id="L27771" class="LineNr">27771 </span> 8b/-> *(esi+8) 0/r32/eax <span class="subxComment"># Live-var-register-spilled</span> +<span id="L27772" class="LineNr">27772 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27773" class="LineNr">27773 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L27774" class="LineNr">27774 </span><span class="Constant">$emit-cleanup-code-until-depth:reclaim-var-in-register</span>: +<span id="L27775" class="LineNr">27775 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L27776" class="LineNr">27776 </span> (<a href='mu.subx.html#L27937'>emit-pop-register</a> *(ebp+8) %eax) +<span id="L27777" class="LineNr">27777 </span> } +<span id="L27778" class="LineNr">27778 </span> eb/jump $emit-cleanup-code-until-depth:continue/disp8 +<span id="L27779" class="LineNr">27779 </span> } +<span id="L27780" class="LineNr">27780 </span> <span class="subxComment"># otherwise v is on the stack</span> +<span id="L27781" class="LineNr">27781 </span> { +<span id="L27782" class="LineNr">27782 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L27783" class="LineNr">27783 </span><span class="Constant">$emit-cleanup-code-until-depth:var-on-stack</span>: +<span id="L27784" class="LineNr">27784 </span> (<a href='mu.subx.html#L26575'>size-of</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L27785" class="LineNr">27785 </span> <span class="subxComment"># don't emit code for labels</span> +<span id="L27786" class="LineNr">27786 </span> 3d/compare-eax-and 0/imm32 +<span id="L27787" class="LineNr">27787 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L27788" class="LineNr">27788 </span><span class="Constant">$emit-cleanup-code-until-depth:reclaim-var-on-stack</span>: +<span id="L27789" class="LineNr">27789 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L27790" class="LineNr">27790 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 0/subop/add %esp "</span>) +<span id="L27791" class="LineNr">27791 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L27792" class="LineNr">27792 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) +<span id="L27793" class="LineNr">27793 </span> } +<span id="L27794" class="LineNr">27794 </span><span class="Constant">$emit-cleanup-code-until-depth:continue</span>: +<span id="L27795" class="LineNr">27795 </span> <span class="subxComment"># curr -= 12</span> +<span id="L27796" class="LineNr">27796 </span> 81 5/subop/subtract %esi 0xc/imm32 +<span id="L27797" class="LineNr">27797 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L27798" class="LineNr">27798 </span> } +<span id="L27799" class="LineNr">27799 </span><span class="Constant">$emit-cleanup-code-until-depth:end</span>: +<span id="L27800" class="LineNr">27800 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27801" class="LineNr">27801 </span> 5e/pop-to-esi +<span id="L27802" class="LineNr">27802 </span> 5b/pop-to-ebx +<span id="L27803" class="LineNr">27803 </span> 5a/pop-to-edx +<span id="L27804" class="LineNr">27804 </span> 59/pop-to-ecx +<span id="L27805" class="LineNr">27805 </span> 58/pop-to-eax +<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="subxComment"># emit clean-up code for 'vars' that don't conflict with output registers</span> +<span id="L27812" class="LineNr">27812 </span><span class="subxComment"># doesn't actually modify 'vars' so we need traverse manually inside the stack</span> +<span id="L27813" class="LineNr">27813 </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="L27814" class="LineNr">27814 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27815" class="LineNr">27815 </span> 55/push-ebp +<span id="L27816" class="LineNr">27816 </span> 89/<- %ebp 4/r32/esp +<span id="L27817" class="LineNr">27817 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27818" class="LineNr">27818 </span> 50/push-eax +<span id="L27819" class="LineNr">27819 </span> 51/push-ecx +<span id="L27820" class="LineNr">27820 </span> 52/push-edx +<span id="L27821" class="LineNr">27821 </span> 53/push-ebx +<span id="L27822" class="LineNr">27822 </span> 56/push-esi +<span id="L27823" class="LineNr">27823 </span> 57/push-edi +<span id="L27824" class="LineNr">27824 </span> <span class="subxComment"># ecx = vars</span> +<span id="L27825" class="LineNr">27825 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L27826" class="LineNr">27826 </span> <span class="subxComment"># var esi: int = vars->top</span> +<span id="L27827" class="LineNr">27827 </span> 8b/-> *ecx 6/r32/esi +<span id="L27828" class="LineNr">27828 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L27829" class="LineNr">27829 </span> 8d/copy-address *(ecx+esi-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> +<span id="L27830" class="LineNr">27830 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> +<span id="L27831" class="LineNr">27831 </span> 81 0/subop/add %ecx 8/imm32 +<span id="L27832" class="LineNr">27832 </span> { +<span id="L27833" class="LineNr">27833 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:loop</span>: +<span id="L27834" class="LineNr">27834 </span> <span class="subxComment"># if (curr < min) break</span> +<span id="L27835" class="LineNr">27835 </span> 39/compare %esi 1/r32/ecx +<span id="L27836" class="LineNr">27836 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L27837" class="LineNr">27837 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(*curr)</span> +<span id="L27838" class="LineNr">27838 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L27839" class="LineNr">27839 </span> 89/<- %ebx 0/r32/eax +<span id="L27840" class="LineNr">27840 </span> <span class="subxComment"># if v is in a register</span> +<span id="L27841" class="LineNr">27841 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L27842" class="LineNr">27842 </span> { +<span id="L27843" class="LineNr">27843 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L27844" class="LineNr">27844 </span> { +<span id="L27845" class="LineNr">27845 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:check-for-previous-spill</span>: +<span id="L27846" class="LineNr">27846 </span> 8b/-> *(esi+8) 0/r32/eax <span class="subxComment"># Live-var-register-spilled</span> +<span id="L27847" class="LineNr">27847 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27848" class="LineNr">27848 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L27849" class="LineNr">27849 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:reclaim-var-in-register</span>: +<span id="L27850" class="LineNr">27850 </span> <span class="subxComment"># var reg/edi: (addr array name) = v->register</span> +<span id="L27851" class="LineNr">27851 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L27852" class="LineNr">27852 </span> 89/<- %edi 0/r32/eax +<span id="L27853" class="LineNr">27853 </span> <span class="subxComment"># if reg is not in function outputs, emit a pop</span> +<span id="L27854" class="LineNr">27854 </span> (<a href='mu.subx.html#L28483'>reg-in-function-outputs?</a> *(ebp+0x10) %edi) <span class="subxComment"># => eax</span> +<span id="L27855" class="LineNr">27855 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27856" class="LineNr">27856 </span> { +<span id="L27857" class="LineNr">27857 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L27858" class="LineNr">27858 </span> (<a href='mu.subx.html#L27937'>emit-pop-register</a> *(ebp+8) %edi) +<span id="L27859" class="LineNr">27859 </span> eb/jump $emit-cleanup-code-for-non-outputs:reclaim-var-in-register-done/disp8 +<span id="L27860" class="LineNr">27860 </span> } +<span id="L27861" class="LineNr">27861 </span> <span class="subxComment"># otherwise just drop it from the stack</span> +<span id="L27862" class="LineNr">27862 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L27863" class="LineNr">27863 </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="L27864" class="LineNr">27864 </span> } +<span id="L27865" class="LineNr">27865 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:reclaim-var-in-register-done</span>: +<span id="L27866" class="LineNr">27866 </span> eb/jump $emit-cleanup-code-for-non-outputs:continue/disp8 +<span id="L27867" class="LineNr">27867 </span> } +<span id="L27868" class="LineNr">27868 </span> <span class="subxComment"># otherwise v is on the stack</span> +<span id="L27869" class="LineNr">27869 </span> { +<span id="L27870" class="LineNr">27870 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L27871" class="LineNr">27871 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:var-on-stack</span>: +<span id="L27872" class="LineNr">27872 </span> (<a href='mu.subx.html#L26575'>size-of</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L27873" class="LineNr">27873 </span> <span class="subxComment"># don't emit code for labels</span> +<span id="L27874" class="LineNr">27874 </span> 3d/compare-eax-and 0/imm32 +<span id="L27875" class="LineNr">27875 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L27876" class="LineNr">27876 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:reclaim-var-on-stack</span>: +<span id="L27877" class="LineNr">27877 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L27878" class="LineNr">27878 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 0/subop/add %esp "</span>) +<span id="L27879" class="LineNr">27879 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L27880" class="LineNr">27880 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) +<span id="L27881" class="LineNr">27881 </span> } +<span id="L27882" class="LineNr">27882 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:continue</span>: +<span id="L27883" class="LineNr">27883 </span> <span class="subxComment"># curr -= 12</span> +<span id="L27884" class="LineNr">27884 </span> 81 5/subop/subtract %esi 0xc/imm32 +<span id="L27885" class="LineNr">27885 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L27886" class="LineNr">27886 </span> } +<span id="L27887" class="LineNr">27887 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:end</span>: +<span id="L27888" class="LineNr">27888 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27889" class="LineNr">27889 </span> 5f/pop-to-edi +<span id="L27890" class="LineNr">27890 </span> 5e/pop-to-esi +<span id="L27891" class="LineNr">27891 </span> 5b/pop-to-ebx +<span id="L27892" class="LineNr">27892 </span> 5a/pop-to-edx +<span id="L27893" class="LineNr">27893 </span> 59/pop-to-ecx +<span id="L27894" class="LineNr">27894 </span> 58/pop-to-eax +<span id="L27895" class="LineNr">27895 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27896" class="LineNr">27896 </span> 89/<- %esp 5/r32/ebp +<span id="L27897" class="LineNr">27897 </span> 5d/pop-to-ebp +<span id="L27898" class="LineNr">27898 </span> c3/return +<span id="L27899" class="LineNr">27899 </span> +<span id="L27900" class="LineNr">27900 </span><span class="subxFunction">emit-push-register</span>: <span class="subxComment"># out: (addr buffered-file), reg: (addr array byte)</span> +<span id="L27901" class="LineNr">27901 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27902" class="LineNr">27902 </span> 55/push-ebp +<span id="L27903" class="LineNr">27903 </span> 89/<- %ebp 4/r32/esp +<span id="L27904" class="LineNr">27904 </span> <span class="subxComment"># eax = reg</span> +<span id="L27905" class="LineNr">27905 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L27906" class="LineNr">27906 </span> <span class="subxComment"># var prefix/eax: byte = reg->data[0]</span> +<span id="L27907" class="LineNr">27907 </span> 8a/copy-byte *(eax+4) 0/r32/AL +<span id="L27908" class="LineNr">27908 </span> 25/and-eax-with 0xff/imm32 +<span id="L27909" class="LineNr">27909 </span> <span class="subxComment"># if (prefix == 'x') push xmm register</span> +<span id="L27910" class="LineNr">27910 </span> { +<span id="L27911" class="LineNr">27911 </span> 3d/compare-eax-and 0x78/imm32/x +<span id="L27912" class="LineNr">27912 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L27913" class="LineNr">27913 </span> <span class="subxComment"># TODO validate register</span> +<span id="L27914" class="LineNr">27914 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L27915" class="LineNr">27915 </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="L27916" class="LineNr">27916 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L27917" class="LineNr">27917 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"f3 0f 11/<- *esp "</span>) +<span id="L27918" class="LineNr">27918 </span> <span class="subxComment"># var prefix/eax: byte = reg->data[3]</span> +<span id="L27919" class="LineNr">27919 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L27920" class="LineNr">27920 </span> 8a/copy-byte *(eax+7) 0/r32/AL +<span id="L27921" class="LineNr">27921 </span> 25/and-eax-with 0xff/imm32 +<span id="L27922" class="LineNr">27922 </span> (<a href='115write-byte.subx.html#L33'>write-byte-buffered</a> *(ebp+8) %eax) +<span id="L27923" class="LineNr">27923 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/x32\n"</span>) +<span id="L27924" class="LineNr">27924 </span> e9/jump $emit-push-register:end/disp32 +<span id="L27925" class="LineNr">27925 </span> } +<span id="L27926" class="LineNr">27926 </span> <span class="subxComment"># otherwise push gp register</span> +<span id="L27927" class="LineNr">27927 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L27928" class="LineNr">27928 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"ff 6/subop/push %"</span>) +<span id="L27929" class="LineNr">27929 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0xc)) +<span id="L27930" class="LineNr">27930 </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="L27931" class="LineNr">27931 </span><span class="Constant">$emit-push-register:end</span>: +<span id="L27932" class="LineNr">27932 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27933" class="LineNr">27933 </span> 89/<- %esp 5/r32/ebp +<span id="L27934" class="LineNr">27934 </span> 5d/pop-to-ebp +<span id="L27935" class="LineNr">27935 </span> c3/return +<span id="L27936" class="LineNr">27936 </span> +<span id="L27937" class="LineNr">27937 </span><span class="subxFunction">emit-pop-register</span>: <span class="subxComment"># out: (addr buffered-file), reg: (addr array byte)</span> +<span id="L27938" class="LineNr">27938 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27939" class="LineNr">27939 </span> 55/push-ebp +<span id="L27940" class="LineNr">27940 </span> 89/<- %ebp 4/r32/esp +<span id="L27941" class="LineNr">27941 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27942" class="LineNr">27942 </span> 50/push-eax +<span id="L27943" class="LineNr">27943 </span> <span class="subxComment"># eax = reg</span> +<span id="L27944" class="LineNr">27944 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L27945" class="LineNr">27945 </span> <span class="subxComment"># var prefix/eax: byte = reg->data[0]</span> +<span id="L27946" class="LineNr">27946 </span> 8a/copy-byte *(eax+4) 0/r32/AL +<span id="L27947" class="LineNr">27947 </span> 25/and-eax-with 0xff/imm32 +<span id="L27948" class="LineNr">27948 </span> <span class="subxComment"># if (prefix == 'x') pop to xmm register</span> +<span id="L27949" class="LineNr">27949 </span> { +<span id="L27950" class="LineNr">27950 </span> 3d/compare-eax-and 0x78/imm32/x +<span id="L27951" class="LineNr">27951 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L27952" class="LineNr">27952 </span> <span class="subxComment"># TODO validate register</span> +<span id="L27953" class="LineNr">27953 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L27954" class="LineNr">27954 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"f3 0f 10/-> *esp "</span>) +<span id="L27955" class="LineNr">27955 </span> <span class="subxComment"># var prefix/eax: byte = reg->data[3]</span> +<span id="L27956" class="LineNr">27956 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L27957" class="LineNr">27957 </span> 8a/copy-byte *(eax+7) 0/r32/AL +<span id="L27958" class="LineNr">27958 </span> 25/and-eax-with 0xff/imm32 +<span id="L27959" class="LineNr">27959 </span> (<a href='115write-byte.subx.html#L33'>write-byte-buffered</a> *(ebp+8) %eax) +<span id="L27960" class="LineNr">27960 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/x32\n"</span>) +<span id="L27961" class="LineNr">27961 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L27962" class="LineNr">27962 </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="L27963" class="LineNr">27963 </span> e9/jump $emit-pop-register:end/disp32 +<span id="L27964" class="LineNr">27964 </span> } +<span id="L27965" class="LineNr">27965 </span> <span class="subxComment"># otherwise pop to gp register</span> +<span id="L27966" class="LineNr">27966 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L27967" class="LineNr">27967 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8f 0/subop/pop %"</span>) +<span id="L27968" class="LineNr">27968 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0xc)) +<span id="L27969" class="LineNr">27969 </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="L27970" class="LineNr">27970 </span><span class="Constant">$emit-pop-register:end</span>: +<span id="L27971" class="LineNr">27971 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27972" class="LineNr">27972 </span> 58/pop-to-eax +<span id="L27973" class="LineNr">27973 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27974" class="LineNr">27974 </span> 89/<- %esp 5/r32/ebp +<span id="L27975" class="LineNr">27975 </span> 5d/pop-to-ebp +<span id="L27976" class="LineNr">27976 </span> c3/return +<span id="L27977" class="LineNr">27977 </span> +<span id="L27978" class="LineNr">27978 </span><span class="subxComment"># emit clean-up code for 'vars' until a given label is encountered</span> +<span id="L27979" class="LineNr">27979 </span><span class="subxComment"># doesn't actually modify 'vars' so we need traverse manually inside the stack</span> +<span id="L27980" class="LineNr">27980 </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="L27981" class="LineNr">27981 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27982" class="LineNr">27982 </span> 55/push-ebp +<span id="L27983" class="LineNr">27983 </span> 89/<- %ebp 4/r32/esp +<span id="L27984" class="LineNr">27984 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27985" class="LineNr">27985 </span> 50/push-eax +<span id="L27986" class="LineNr">27986 </span> 51/push-ecx +<span id="L27987" class="LineNr">27987 </span> 52/push-edx +<span id="L27988" class="LineNr">27988 </span> 53/push-ebx +<span id="L27989" class="LineNr">27989 </span> <span class="subxComment"># ecx = vars</span> +<span id="L27990" class="LineNr">27990 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L27991" class="LineNr">27991 </span> <span class="subxComment"># var eax: int = vars->top</span> +<span id="L27992" class="LineNr">27992 </span> 8b/-> *ecx 0/r32/eax +<span id="L27993" class="LineNr">27993 </span> <span class="subxComment"># var curr/edx: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L27994" class="LineNr">27994 </span> 8d/copy-address *(ecx+eax-4) 2/r32/edx <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> +<span id="L27995" class="LineNr">27995 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> +<span id="L27996" class="LineNr">27996 </span> 81 0/subop/add %ecx 8/imm32 +<span id="L27997" class="LineNr">27997 </span> { +<span id="L27998" class="LineNr">27998 </span><span class="Constant">$emit-cleanup-code-until-target:loop</span>: +<span id="L27999" class="LineNr">27999 </span> <span class="subxComment"># if (curr < min) break</span> +<span id="L28000" class="LineNr">28000 </span> 39/compare %edx 1/r32/ecx +<span id="L28001" class="LineNr">28001 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L28002" class="LineNr">28002 </span> <span class="subxComment"># var v/ebx: (handle var) = lookup(*curr)</span> +<span id="L28003" class="LineNr">28003 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L28004" class="LineNr">28004 </span> 89/<- %ebx 0/r32/eax +<span id="L28005" class="LineNr">28005 </span> <span class="subxComment"># if (v->name == until-block-label) break</span> +<span id="L28006" class="LineNr">28006 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L28007" class="LineNr">28007 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L28008" class="LineNr">28008 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28009" class="LineNr">28009 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L28010" class="LineNr">28010 </span> <span class="subxComment"># if v is in a register</span> +<span id="L28011" class="LineNr">28011 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L28012" class="LineNr">28012 </span> { +<span id="L28013" class="LineNr">28013 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28014" class="LineNr">28014 </span> { +<span id="L28015" class="LineNr">28015 </span><span class="Constant">$emit-cleanup-code-until-target:check-for-previous-spill</span>: +<span id="L28016" class="LineNr">28016 </span> 8b/-> *(edx+8) 0/r32/eax <span class="subxComment"># Live-var-register-spilled</span> +<span id="L28017" class="LineNr">28017 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28018" class="LineNr">28018 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L28019" class="LineNr">28019 </span><span class="Constant">$emit-cleanup-code-until-target:reclaim-var-in-register</span>: +<span id="L28020" class="LineNr">28020 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L28021" class="LineNr">28021 </span> (<a href='mu.subx.html#L27937'>emit-pop-register</a> *(ebp+8) %eax) +<span id="L28022" class="LineNr">28022 </span> } +<span id="L28023" class="LineNr">28023 </span> eb/jump $emit-cleanup-code-until-target:continue/disp8 +<span id="L28024" class="LineNr">28024 </span> } +<span id="L28025" class="LineNr">28025 </span> <span class="subxComment"># otherwise v is on the stack</span> +<span id="L28026" class="LineNr">28026 </span> { +<span id="L28027" class="LineNr">28027 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L28028" class="LineNr">28028 </span><span class="Constant">$emit-cleanup-code-until-target:reclaim-var-on-stack</span>: +<span id="L28029" class="LineNr">28029 </span> (<a href='mu.subx.html#L26575'>size-of</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L28030" class="LineNr">28030 </span> <span class="subxComment"># don't emit code for labels</span> +<span id="L28031" class="LineNr">28031 </span> 3d/compare-eax-and 0/imm32 +<span id="L28032" class="LineNr">28032 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L28033" class="LineNr">28033 </span> <span class="subxComment">#</span> +<span id="L28034" class="LineNr">28034 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L28035" class="LineNr">28035 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 0/subop/add %esp "</span>) +<span id="L28036" class="LineNr">28036 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L28037" class="LineNr">28037 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) +<span id="L28038" class="LineNr">28038 </span> } +<span id="L28039" class="LineNr">28039 </span><span class="Constant">$emit-cleanup-code-until-target:continue</span>: +<span id="L28040" class="LineNr">28040 </span> <span class="subxComment"># curr -= 12</span> +<span id="L28041" class="LineNr">28041 </span> 81 5/subop/subtract %edx 0xc/imm32 +<span id="L28042" class="LineNr">28042 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L28043" class="LineNr">28043 </span> } +<span id="L28044" class="LineNr">28044 </span><span class="Constant">$emit-cleanup-code-until-target:end</span>: +<span id="L28045" class="LineNr">28045 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28046" class="LineNr">28046 </span> 5b/pop-to-ebx +<span id="L28047" class="LineNr">28047 </span> 5a/pop-to-edx +<span id="L28048" class="LineNr">28048 </span> 59/pop-to-ecx +<span id="L28049" class="LineNr">28049 </span> 58/pop-to-eax +<span id="L28050" class="LineNr">28050 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28051" class="LineNr">28051 </span> 89/<- %esp 5/r32/ebp +<span id="L28052" class="LineNr">28052 </span> 5d/pop-to-ebp +<span id="L28053" class="LineNr">28053 </span> c3/return +<span id="L28054" class="LineNr">28054 </span> +<span id="L28055" class="LineNr">28055 </span><span class="subxComment"># update Curr-local-stack-offset assuming vars until some block depth are popped</span> +<span id="L28056" class="LineNr">28056 </span><span class="subxComment"># doesn't actually modify 'vars', so we need traverse manually inside the stack</span> +<span id="L28057" class="LineNr">28057 </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="L28058" class="LineNr">28058 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28059" class="LineNr">28059 </span> 55/push-ebp +<span id="L28060" class="LineNr">28060 </span> 89/<- %ebp 4/r32/esp +<span id="L28061" class="LineNr">28061 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28062" class="LineNr">28062 </span> 50/push-eax +<span id="L28063" class="LineNr">28063 </span> 51/push-ecx +<span id="L28064" class="LineNr">28064 </span> 52/push-edx +<span id="L28065" class="LineNr">28065 </span> 53/push-ebx +<span id="L28066" class="LineNr">28066 </span> 56/push-esi +<span id="L28067" class="LineNr">28067 </span> <span class="subxComment"># ecx = vars</span> +<span id="L28068" class="LineNr">28068 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L28069" class="LineNr">28069 </span> <span class="subxComment"># var esi: int = vars->top</span> +<span id="L28070" class="LineNr">28070 </span> 8b/-> *ecx 6/r32/esi +<span id="L28071" class="LineNr">28071 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L28072" class="LineNr">28072 </span> 8d/copy-address *(ecx+esi-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> +<span id="L28073" class="LineNr">28073 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> +<span id="L28074" class="LineNr">28074 </span> 81 0/subop/add %ecx 8/imm32 +<span id="L28075" class="LineNr">28075 </span> <span class="subxComment"># edx = until-block-depth</span> +<span id="L28076" class="LineNr">28076 </span> 8b/-> *(ebp+0xc) 2/r32/edx +<span id="L28077" class="LineNr">28077 </span> { +<span id="L28078" class="LineNr">28078 </span><span class="Constant">$clean-up-stack-offset-state:loop</span>: +<span id="L28079" class="LineNr">28079 </span> <span class="subxComment"># if (curr < min) break</span> +<span id="L28080" class="LineNr">28080 </span> 39/compare %esi 1/r32/ecx +<span id="L28081" class="LineNr">28081 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L28082" class="LineNr">28082 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(*curr)</span> +<span id="L28083" class="LineNr">28083 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L28084" class="LineNr">28084 </span> 89/<- %ebx 0/r32/eax +<span id="L28085" class="LineNr">28085 </span> <span class="subxComment"># if (v->block-depth < until-block-depth) break</span> +<span id="L28086" class="LineNr">28086 </span> 39/compare *(ebx+0x10) 2/r32/edx <span class="subxComment"># Var-block-depth</span> +<span id="L28087" class="LineNr">28087 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 +<span id="L28088" class="LineNr">28088 </span> <span class="subxComment"># if v is in a register</span> +<span id="L28089" class="LineNr">28089 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L28090" class="LineNr">28090 </span> { +<span id="L28091" class="LineNr">28091 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28092" class="LineNr">28092 </span> { +<span id="L28093" class="LineNr">28093 </span><span class="Constant">$clean-up-stack-offset-state:check-for-previous-spill</span>: +<span id="L28094" class="LineNr">28094 </span> 8b/-> *(esi+8) 0/r32/eax <span class="subxComment"># Live-var-register-spilled</span> +<span id="L28095" class="LineNr">28095 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28096" class="LineNr">28096 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L28097" class="LineNr">28097 </span><span class="Constant">$clean-up-stack-offset-state:reclaim-var-in-register</span>: +<span id="L28098" class="LineNr">28098 </span> 81 0/subop/add *<span class="SpecialChar"><a href='mu.subx.html#L26978'>Curr-local-stack-offset</a></span> 4/imm32 +<span id="L28099" class="LineNr">28099 </span> } +<span id="L28100" class="LineNr">28100 </span> eb/jump $clean-up-stack-offset-state:continue/disp8 +<span id="L28101" class="LineNr">28101 </span> } +<span id="L28102" class="LineNr">28102 </span> <span class="subxComment"># otherwise v is on the stack</span> +<span id="L28103" class="LineNr">28103 </span> { +<span id="L28104" class="LineNr">28104 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L28105" class="LineNr">28105 </span><span class="Constant">$clean-up-stack-offset-state:var-on-stack</span>: +<span id="L28106" class="LineNr">28106 </span> (<a href='mu.subx.html#L26575'>size-of</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L28107" class="LineNr">28107 </span> 01/add-to *<span class="SpecialChar"><a href='mu.subx.html#L26978'>Curr-local-stack-offset</a></span> 0/r32/eax +<span id="L28108" class="LineNr">28108 </span> } +<span id="L28109" class="LineNr">28109 </span><span class="Constant">$clean-up-stack-offset-state:continue</span>: +<span id="L28110" class="LineNr">28110 </span> <span class="subxComment"># curr -= 12</span> +<span id="L28111" class="LineNr">28111 </span> 81 5/subop/subtract %esi 0xc/imm32 +<span id="L28112" class="LineNr">28112 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L28113" class="LineNr">28113 </span> } +<span id="L28114" class="LineNr">28114 </span><span class="Constant">$clean-up-stack-offset-state:end</span>: +<span id="L28115" class="LineNr">28115 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28116" class="LineNr">28116 </span> 5e/pop-to-esi +<span id="L28117" class="LineNr">28117 </span> 5b/pop-to-ebx +<span id="L28118" class="LineNr">28118 </span> 5a/pop-to-edx +<span id="L28119" class="LineNr">28119 </span> 59/pop-to-ecx +<span id="L28120" class="LineNr">28120 </span> 58/pop-to-eax +<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="subxComment"># Return true if there isn't a variable in 'vars' with the same block-depth</span> +<span id="L28127" class="LineNr">28127 </span><span class="subxComment"># and register as 'v'.</span> +<span id="L28128" class="LineNr">28128 </span><span class="subxComment"># 'v' is guaranteed not to be within 'vars'.</span> +<span id="L28129" class="LineNr">28129 </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="L28130" class="LineNr">28130 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28131" class="LineNr">28131 </span> 55/push-ebp +<span id="L28132" class="LineNr">28132 </span> 89/<- %ebp 4/r32/esp +<span id="L28133" class="LineNr">28133 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28134" class="LineNr">28134 </span> 51/push-ecx +<span id="L28135" class="LineNr">28135 </span> 52/push-edx +<span id="L28136" class="LineNr">28136 </span> 53/push-ebx +<span id="L28137" class="LineNr">28137 </span> 56/push-esi +<span id="L28138" class="LineNr">28138 </span> 57/push-edi +<span id="L28139" class="LineNr">28139 </span> <span class="subxComment"># ecx = vars</span> +<span id="L28140" class="LineNr">28140 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L28141" class="LineNr">28141 </span> <span class="subxComment"># var eax: int = vars->top</span> +<span id="L28142" class="LineNr">28142 </span> 8b/-> *ecx 0/r32/eax +<span id="L28143" class="LineNr">28143 </span> <span class="subxComment"># var curr/edx: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L28144" class="LineNr">28144 </span> 8d/copy-address *(ecx+eax-4) 2/r32/edx <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> +<span id="L28145" class="LineNr">28145 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> +<span id="L28146" class="LineNr">28146 </span> 8d/copy-address *(ecx+8) 1/r32/ecx +<span id="L28147" class="LineNr">28147 </span> <span class="subxComment"># var depth/ebx: int = v->block-depth</span> +<span id="L28148" class="LineNr">28148 </span> 8b/-> *(ebp+8) 3/r32/ebx +<span id="L28149" class="LineNr">28149 </span> 8b/-> *(ebx+0x10) 3/r32/ebx <span class="subxComment"># Var-block-depth</span> +<span id="L28150" class="LineNr">28150 </span> <span class="subxComment"># var needle/esi: (addr array byte) = v->register</span> +<span id="L28151" class="LineNr">28151 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L28152" class="LineNr">28152 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L28153" class="LineNr">28153 </span> 89/<- %esi 0/r32/eax +<span id="L28154" class="LineNr">28154 </span> { +<span id="L28155" class="LineNr">28155 </span><span class="Constant">$not-yet-spilled-this-block?:loop</span>: +<span id="L28156" class="LineNr">28156 </span> <span class="subxComment"># if (curr < min) break</span> +<span id="L28157" class="LineNr">28157 </span> 39/compare %edx 1/r32/ecx +<span id="L28158" class="LineNr">28158 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L28159" class="LineNr">28159 </span> <span class="subxComment"># var cand/edi: (addr var) = lookup(*curr)</span> +<span id="L28160" class="LineNr">28160 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L28161" class="LineNr">28161 </span> 89/<- %edi 0/r32/eax +<span id="L28162" class="LineNr">28162 </span> <span class="subxComment"># if (cand->block-depth < depth) break</span> +<span id="L28163" class="LineNr">28163 </span> 39/compare *(edi+0x10) 3/r32/ebx <span class="subxComment"># Var-block-depth</span> +<span id="L28164" class="LineNr">28164 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 +<span id="L28165" class="LineNr">28165 </span> <span class="subxComment"># var cand-reg/edi: (array array byte) = cand->reg</span> +<span id="L28166" class="LineNr">28166 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+0x18) *(edi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L28167" class="LineNr">28167 </span> 89/<- %edi 0/r32/eax +<span id="L28168" class="LineNr">28168 </span> <span class="subxComment"># if (cand-reg == null) continue</span> +<span id="L28169" class="LineNr">28169 </span> { +<span id="L28170" class="LineNr">28170 </span><span class="Constant">$not-yet-spilled-this-block?:check-reg</span>: +<span id="L28171" class="LineNr">28171 </span> 81 7/subop/compare %edi 0/imm32 +<span id="L28172" class="LineNr">28172 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28173" class="LineNr">28173 </span> <span class="subxComment"># if (cand-reg == needle) return true</span> +<span id="L28174" class="LineNr">28174 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi %edi) <span class="subxComment"># => eax</span> +<span id="L28175" class="LineNr">28175 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28176" class="LineNr">28176 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L28177" class="LineNr">28177 </span><span class="Constant">$not-yet-spilled-this-block?:return-false</span>: +<span id="L28178" class="LineNr">28178 </span> b8/copy-to-eax 0/imm32/false +<span id="L28179" class="LineNr">28179 </span> eb/jump $not-yet-spilled-this-block?:end/disp8 +<span id="L28180" class="LineNr">28180 </span> } +<span id="L28181" class="LineNr">28181 </span><span class="Constant">$not-yet-spilled-this-block?:continue</span>: +<span id="L28182" class="LineNr">28182 </span> <span class="subxComment"># curr -= 12</span> +<span id="L28183" class="LineNr">28183 </span> 81 5/subop/subtract %edx 0xc/imm32 +<span id="L28184" class="LineNr">28184 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L28185" class="LineNr">28185 </span> } +<span id="L28186" class="LineNr">28186 </span><span class="Constant">$not-yet-spilled-this-block?:return-true</span>: +<span id="L28187" class="LineNr">28187 </span> <span class="subxComment"># return true</span> +<span id="L28188" class="LineNr">28188 </span> b8/copy-to-eax 1/imm32/true +<span id="L28189" class="LineNr">28189 </span><span class="Constant">$not-yet-spilled-this-block?:end</span>: +<span id="L28190" class="LineNr">28190 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28191" class="LineNr">28191 </span> 5f/pop-to-edi +<span id="L28192" class="LineNr">28192 </span> 5e/pop-to-esi +<span id="L28193" class="LineNr">28193 </span> 5b/pop-to-ebx +<span id="L28194" class="LineNr">28194 </span> 5a/pop-to-edx +<span id="L28195" class="LineNr">28195 </span> 59/pop-to-ecx +<span id="L28196" class="LineNr">28196 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28197" class="LineNr">28197 </span> 89/<- %esp 5/r32/ebp +<span id="L28198" class="LineNr">28198 </span> 5d/pop-to-ebp +<span id="L28199" class="LineNr">28199 </span> c3/return +<span id="L28200" class="LineNr">28200 </span> +<span id="L28201" class="LineNr">28201 </span><span class="subxComment"># could the register of 'v' ever be written to by one of the vars in fn-outputs?</span> +<span id="L28202" class="LineNr">28202 </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="L28203" class="LineNr">28203 </span> <span class="subxS1Comment"># . prologue</span> <span id="L28204" class="LineNr">28204 </span> 55/push-ebp <span id="L28205" class="LineNr">28205 </span> 89/<- %ebp 4/r32/esp -<span id="L28206" class="LineNr">28206 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L28207" class="LineNr">28207 </span> 51/push-ecx -<span id="L28208" class="LineNr">28208 </span> <span class="subxComment"># var curr/ecx: (addr list var) = lookup(fn->outputs)</span> -<span id="L28209" class="LineNr">28209 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L28210" class="LineNr">28210 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x10) *(ecx+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> -<span id="L28211" class="LineNr">28211 </span> 89/<- %ecx 0/r32/eax -<span id="L28212" class="LineNr">28212 </span> { -<span id="L28213" class="LineNr">28213 </span><span class="Constant">$find-register:loop</span>: -<span id="L28214" class="LineNr">28214 </span> <span class="subxComment"># if (curr == 0) break</span> -<span id="L28215" class="LineNr">28215 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L28216" class="LineNr">28216 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L28217" class="LineNr">28217 </span> <span class="subxComment"># eax = curr->value->register</span> -<span id="L28218" class="LineNr">28218 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L28219" class="LineNr">28219 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L28220" class="LineNr">28220 </span> <span class="subxComment"># if (eax == reg) return curr->value</span> -<span id="L28221" class="LineNr">28221 </span><span class="Constant">$find-register:compare</span>: -<span id="L28222" class="LineNr">28222 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> *(ebp+0xc) %eax) <span class="subxComment"># => eax</span> -<span id="L28223" class="LineNr">28223 </span> { -<span id="L28224" class="LineNr">28224 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28225" class="LineNr">28225 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L28226" class="LineNr">28226 </span><span class="Constant">$find-register:found</span>: -<span id="L28227" class="LineNr">28227 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L28228" class="LineNr">28228 </span> eb/jump $find-register:end/disp8 -<span id="L28229" class="LineNr">28229 </span> } -<span id="L28230" class="LineNr">28230 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L28231" class="LineNr">28231 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L28232" class="LineNr">28232 </span> 89/<- %ecx 0/r32/eax -<span id="L28233" class="LineNr">28233 </span> <span class="subxComment">#</span> -<span id="L28234" class="LineNr">28234 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L28235" class="LineNr">28235 </span> } -<span id="L28236" class="LineNr">28236 </span><span class="Constant">$find-register:end</span>: -<span id="L28237" class="LineNr">28237 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L28238" class="LineNr">28238 </span> 59/pop-to-ecx -<span id="L28239" class="LineNr">28239 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28240" class="LineNr">28240 </span> 89/<- %esp 5/r32/ebp -<span id="L28241" class="LineNr">28241 </span> 5d/pop-to-ebp -<span id="L28242" class="LineNr">28242 </span> c3/return -<span id="L28243" class="LineNr">28243 </span> -<span id="L28244" class="LineNr">28244 </span><span class="subxFunction">assigns-in-stmts?</span>: <span class="subxComment"># stmts: (addr list stmt), v: (addr var) -> result/eax: boolean</span> -<span id="L28245" class="LineNr">28245 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28246" class="LineNr">28246 </span> 55/push-ebp -<span id="L28247" class="LineNr">28247 </span> 89/<- %ebp 4/r32/esp -<span id="L28248" class="LineNr">28248 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L28249" class="LineNr">28249 </span> 51/push-ecx -<span id="L28250" class="LineNr">28250 </span> <span class="subxComment"># var curr/ecx: (addr list stmt) = stmts</span> -<span id="L28251" class="LineNr">28251 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L28252" class="LineNr">28252 </span> { -<span id="L28253" class="LineNr">28253 </span> <span class="subxComment"># if (curr == 0) break</span> -<span id="L28254" class="LineNr">28254 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L28255" class="LineNr">28255 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L28256" class="LineNr">28256 </span> <span class="subxComment"># if assigns-in-stmt?(curr->value, v) return true</span> -<span id="L28257" class="LineNr">28257 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L28258" class="LineNr">28258 </span> (<a href='mu.subx.html#L28275'>assigns-in-stmt?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L28259" class="LineNr">28259 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28260" class="LineNr">28260 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L28261" class="LineNr">28261 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L28262" class="LineNr">28262 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L28263" class="LineNr">28263 </span> 89/<- %ecx 0/r32/eax -<span id="L28264" class="LineNr">28264 </span> <span class="subxComment">#</span> -<span id="L28265" class="LineNr">28265 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L28266" class="LineNr">28266 </span> } -<span id="L28267" class="LineNr">28267 </span><span class="Constant">$assigns-in-stmts?:end</span>: -<span id="L28268" class="LineNr">28268 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L28269" class="LineNr">28269 </span> 59/pop-to-ecx -<span id="L28270" class="LineNr">28270 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28271" class="LineNr">28271 </span> 89/<- %esp 5/r32/ebp -<span id="L28272" class="LineNr">28272 </span> 5d/pop-to-ebp -<span id="L28273" class="LineNr">28273 </span> c3/return -<span id="L28274" class="LineNr">28274 </span> -<span id="L28275" class="LineNr">28275 </span><span class="subxFunction">assigns-in-stmt?</span>: <span class="subxComment"># stmt: (addr stmt), v: (addr var) -> result/eax: boolean</span> -<span id="L28276" class="LineNr">28276 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28277" class="LineNr">28277 </span> 55/push-ebp -<span id="L28278" class="LineNr">28278 </span> 89/<- %ebp 4/r32/esp -<span id="L28279" class="LineNr">28279 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L28280" class="LineNr">28280 </span> 51/push-ecx -<span id="L28281" class="LineNr">28281 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L28282" class="LineNr">28282 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L28283" class="LineNr">28283 </span> <span class="subxComment"># if stmt is a stmt1, return assigns-in-stmt-vars?(stmt->outputs, v)</span> -<span id="L28284" class="LineNr">28284 </span> { -<span id="L28285" class="LineNr">28285 </span> 81 7/subop/compare *ecx 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> -<span id="L28286" class="LineNr">28286 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L28287" class="LineNr">28287 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L28288" class="LineNr">28288 </span> (<a href='mu.subx.html#L28309'>assigns-in-stmt-vars?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L28289" class="LineNr">28289 </span> eb/jump $assigns-in-stmt?:end/disp8 -<span id="L28290" class="LineNr">28290 </span> } -<span id="L28291" class="LineNr">28291 </span> <span class="subxComment"># if stmt is a block, return assigns-in-stmts?(stmt->stmts, v)</span> -<span id="L28292" class="LineNr">28292 </span> { -<span id="L28293" class="LineNr">28293 </span> 81 7/subop/compare *ecx 0/imm32/block <span class="subxComment"># Stmt-tag</span> -<span id="L28294" class="LineNr">28294 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L28295" class="LineNr">28295 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> -<span id="L28296" class="LineNr">28296 </span> (<a href='mu.subx.html#L28244'>assigns-in-stmts?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L28297" class="LineNr">28297 </span> eb/jump $assigns-in-stmt?:end/disp8 -<span id="L28298" class="LineNr">28298 </span> } -<span id="L28299" class="LineNr">28299 </span> <span class="subxComment"># otherwise return false</span> -<span id="L28300" class="LineNr">28300 </span> b8/copy 0/imm32/false -<span id="L28301" class="LineNr">28301 </span><span class="Constant">$assigns-in-stmt?:end</span>: -<span id="L28302" class="LineNr">28302 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L28303" class="LineNr">28303 </span> 59/pop-to-ecx -<span id="L28304" class="LineNr">28304 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28305" class="LineNr">28305 </span> 89/<- %esp 5/r32/ebp -<span id="L28306" class="LineNr">28306 </span> 5d/pop-to-ebp -<span id="L28307" class="LineNr">28307 </span> c3/return -<span id="L28308" class="LineNr">28308 </span> -<span id="L28309" class="LineNr">28309 </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="L28310" class="LineNr">28310 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28311" class="LineNr">28311 </span> 55/push-ebp -<span id="L28312" class="LineNr">28312 </span> 89/<- %ebp 4/r32/esp -<span id="L28313" class="LineNr">28313 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L28314" class="LineNr">28314 </span> 51/push-ecx -<span id="L28315" class="LineNr">28315 </span> <span class="subxComment"># var curr/ecx: (addr stmt-var) = stmt-var</span> -<span id="L28316" class="LineNr">28316 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L28317" class="LineNr">28317 </span> { -<span id="L28318" class="LineNr">28318 </span> <span class="subxComment"># if (curr == 0) break</span> -<span id="L28319" class="LineNr">28319 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L28320" class="LineNr">28320 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L28321" class="LineNr">28321 </span> <span class="subxComment"># eax = lookup(curr->value)</span> -<span id="L28322" class="LineNr">28322 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L28323" class="LineNr">28323 </span> <span class="subxComment"># if (eax == v && curr->is-deref? == false) return true</span> -<span id="L28324" class="LineNr">28324 </span> { -<span id="L28325" class="LineNr">28325 </span> 39/compare *(ebp+0xc) 0/r32/eax -<span id="L28326" class="LineNr">28326 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L28327" class="LineNr">28327 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L28328" class="LineNr">28328 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L28329" class="LineNr">28329 </span> b8/copy-to-eax 1/imm32/true -<span id="L28330" class="LineNr">28330 </span> eb/jump $assigns-in-stmt-vars?:end/disp8 -<span id="L28331" class="LineNr">28331 </span> } -<span id="L28332" class="LineNr">28332 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L28333" class="LineNr">28333 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L28334" class="LineNr">28334 </span> 89/<- %ecx 0/r32/eax -<span id="L28335" class="LineNr">28335 </span> <span class="subxComment">#</span> -<span id="L28336" class="LineNr">28336 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L28337" class="LineNr">28337 </span> } -<span id="L28338" class="LineNr">28338 </span><span class="Constant">$assigns-in-stmt-vars?:end</span>: -<span id="L28339" class="LineNr">28339 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L28340" class="LineNr">28340 </span> 59/pop-to-ecx -<span id="L28341" class="LineNr">28341 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28342" class="LineNr">28342 </span> 89/<- %esp 5/r32/ebp -<span id="L28343" class="LineNr">28343 </span> 5d/pop-to-ebp -<span id="L28344" class="LineNr">28344 </span> c3/return -<span id="L28345" class="LineNr">28345 </span> -<span id="L28346" class="LineNr">28346 </span><span class="subxComment"># is there a var before 'v' with the same block-depth and register on the 'vars' stack?</span> -<span id="L28347" class="LineNr">28347 </span><span class="subxComment"># v is guaranteed to be within vars</span> -<span id="L28348" class="LineNr">28348 </span><span class="subxComment"># 'start' is provided as an optimization, a pointer within vars</span> -<span id="L28349" class="LineNr">28349 </span><span class="subxComment"># *start == v</span> -<span id="L28350" class="LineNr">28350 </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="L28351" class="LineNr">28351 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28352" class="LineNr">28352 </span> 55/push-ebp -<span id="L28353" class="LineNr">28353 </span> 89/<- %ebp 4/r32/esp -<span id="L28354" class="LineNr">28354 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L28355" class="LineNr">28355 </span> 51/push-ecx -<span id="L28356" class="LineNr">28356 </span> 52/push-edx -<span id="L28357" class="LineNr">28357 </span> 53/push-ebx -<span id="L28358" class="LineNr">28358 </span> 56/push-esi -<span id="L28359" class="LineNr">28359 </span> 57/push-edi -<span id="L28360" class="LineNr">28360 </span> <span class="subxComment"># ecx = v</span> -<span id="L28361" class="LineNr">28361 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L28362" class="LineNr">28362 </span> <span class="subxComment"># var reg/edx: (addr array byte) = lookup(v->register)</span> -<span id="L28363" class="LineNr">28363 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L28364" class="LineNr">28364 </span> 89/<- %edx 0/r32/eax -<span id="L28365" class="LineNr">28365 </span> <span class="subxComment"># var depth/ebx: int = v->block-depth</span> -<span id="L28366" class="LineNr">28366 </span> 8b/-> *(ecx+0x10) 3/r32/ebx <span class="subxComment"># Var-block-depth</span> -<span id="L28367" class="LineNr">28367 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> -<span id="L28368" class="LineNr">28368 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L28369" class="LineNr">28369 </span> 81 0/subop/add %ecx 8/imm32 -<span id="L28370" class="LineNr">28370 </span> <span class="subxComment"># TODO: check that start >= min and start < &vars->data[top]</span> -<span id="L28371" class="LineNr">28371 </span> <span class="subxComment"># TODO: check that *start == v</span> -<span id="L28372" class="LineNr">28372 </span> <span class="subxComment"># var curr/esi: (addr handle var) = start</span> -<span id="L28373" class="LineNr">28373 </span> 8b/-> *(ebp+0x10) 6/r32/esi -<span id="L28374" class="LineNr">28374 </span> <span class="subxComment"># curr -= 8</span> -<span id="L28375" class="LineNr">28375 </span> 81 5/subop/subtract %esi 8/imm32 -<span id="L28376" class="LineNr">28376 </span> { -<span id="L28377" class="LineNr">28377 </span><span class="Constant">$same-register-spilled-before?:loop</span>: -<span id="L28378" class="LineNr">28378 </span> <span class="subxComment"># if (curr < min) break</span> -<span id="L28379" class="LineNr">28379 </span> 39/compare %esi 1/r32/ecx -<span id="L28380" class="LineNr">28380 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L28381" class="LineNr">28381 </span> <span class="subxComment"># var x/eax: (addr var) = lookup(*curr)</span> -<span id="L28382" class="LineNr">28382 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L28383" class="LineNr">28383 </span> <span class="subxComment"># if (x->block-depth < depth) break</span> -<span id="L28384" class="LineNr">28384 </span> 39/compare *(eax+0x10) 3/r32/ebx <span class="subxComment"># Var-block-depth</span> -<span id="L28385" class="LineNr">28385 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 -<span id="L28386" class="LineNr">28386 </span> <span class="subxComment"># if (x->register == 0) continue</span> -<span id="L28387" class="LineNr">28387 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L28388" class="LineNr">28388 </span> 74/jump-if-= $same-register-spilled-before?:continue/disp8 -<span id="L28389" class="LineNr">28389 </span> <span class="subxComment"># if (x->register == reg) return true</span> -<span id="L28390" class="LineNr">28390 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L28391" class="LineNr">28391 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax %edx) <span class="subxComment"># => eax</span> -<span id="L28392" class="LineNr">28392 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28393" class="LineNr">28393 </span> b8/copy-to-eax 1/imm32/true -<span id="L28394" class="LineNr">28394 </span> 75/jump-if-!= $same-register-spilled-before?:end/disp8 -<span id="L28395" class="LineNr">28395 </span><span class="Constant">$same-register-spilled-before?:continue</span>: -<span id="L28396" class="LineNr">28396 </span> <span class="subxComment"># curr -= 8</span> -<span id="L28397" class="LineNr">28397 </span> 81 5/subop/subtract %esi 8/imm32 -<span id="L28398" class="LineNr">28398 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L28399" class="LineNr">28399 </span> } -<span id="L28400" class="LineNr">28400 </span><span class="Constant">$same-register-spilled-before?:false</span>: -<span id="L28401" class="LineNr">28401 </span> b8/copy-to-eax 0/imm32/false -<span id="L28402" class="LineNr">28402 </span><span class="Constant">$same-register-spilled-before?:end</span>: -<span id="L28403" class="LineNr">28403 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L28404" class="LineNr">28404 </span> 5f/pop-to-edi -<span id="L28405" class="LineNr">28405 </span> 5e/pop-to-esi -<span id="L28406" class="LineNr">28406 </span> 5b/pop-to-ebx -<span id="L28407" class="LineNr">28407 </span> 5a/pop-to-edx -<span id="L28408" class="LineNr">28408 </span> 59/pop-to-ecx -<span id="L28409" class="LineNr">28409 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28410" class="LineNr">28410 </span> 89/<- %esp 5/r32/ebp -<span id="L28411" class="LineNr">28411 </span> 5d/pop-to-ebp -<span id="L28412" class="LineNr">28412 </span> c3/return -<span id="L28413" class="LineNr">28413 </span> -<span id="L28414" class="LineNr">28414 </span><span class="subxComment"># clean up global state for 'vars' until some block depth (inclusive)</span> -<span id="L28415" class="LineNr">28415 </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="L28416" class="LineNr">28416 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28417" class="LineNr">28417 </span> 55/push-ebp -<span id="L28418" class="LineNr">28418 </span> 89/<- %ebp 4/r32/esp -<span id="L28419" class="LineNr">28419 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L28420" class="LineNr">28420 </span> 50/push-eax -<span id="L28421" class="LineNr">28421 </span> 51/push-ecx -<span id="L28422" class="LineNr">28422 </span> 56/push-esi -<span id="L28423" class="LineNr">28423 </span> <span class="subxComment"># esi = vars</span> -<span id="L28424" class="LineNr">28424 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L28425" class="LineNr">28425 </span> <span class="subxComment"># ecx = until-block-depth</span> -<span id="L28426" class="LineNr">28426 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L28427" class="LineNr">28427 </span> { -<span id="L28428" class="LineNr">28428 </span><span class="Constant">$clean-up-blocks:reclaim-loop</span>: -<span id="L28429" class="LineNr">28429 </span> <span class="subxComment"># if (vars->top <= 0) break</span> -<span id="L28430" class="LineNr">28430 </span> 8b/-> *esi 0/r32/eax <span class="subxComment"># Stack-top</span> -<span id="L28431" class="LineNr">28431 </span> 3d/compare-eax-and 0/imm32 -<span id="L28432" class="LineNr">28432 </span> 0f 8e/jump-if-<= <span class="Constant">break</span>/disp32 -<span id="L28433" class="LineNr">28433 </span> <span class="subxComment"># var v/eax: (addr var) = lookup(vars[vars->top-12])</span> -<span id="L28434" class="LineNr">28434 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+eax-4) *(esi+eax)) <span class="subxComment"># vars + 8 + vars->top - 12 => eax</span> -<span id="L28435" class="LineNr">28435 </span> <span class="subxComment"># if (v->block-depth < until-block-depth) break</span> -<span id="L28436" class="LineNr">28436 </span> 39/compare *(eax+0x10) 1/r32/ecx <span class="subxComment"># Var-block-depth</span> -<span id="L28437" class="LineNr">28437 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 -<span id="L28438" class="LineNr">28438 </span> (<a href='203stack.subx.html#L234'>pop</a> %esi) <span class="subxComment"># => eax</span> -<span id="L28439" class="LineNr">28439 </span> (<a href='203stack.subx.html#L234'>pop</a> %esi) <span class="subxComment"># => eax</span> -<span id="L28440" class="LineNr">28440 </span> (<a href='203stack.subx.html#L234'>pop</a> %esi) <span class="subxComment"># => eax</span> -<span id="L28441" class="LineNr">28441 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L28442" class="LineNr">28442 </span> } -<span id="L28443" class="LineNr">28443 </span><span class="Constant">$clean-up-blocks:end</span>: -<span id="L28444" class="LineNr">28444 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L28445" class="LineNr">28445 </span> 5e/pop-to-esi -<span id="L28446" class="LineNr">28446 </span> 59/pop-to-ecx -<span id="L28447" class="LineNr">28447 </span> 58/pop-to-eax -<span id="L28448" class="LineNr">28448 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28449" class="LineNr">28449 </span> 89/<- %esp 5/r32/ebp -<span id="L28450" class="LineNr">28450 </span> 5d/pop-to-ebp -<span id="L28451" class="LineNr">28451 </span> c3/return -<span id="L28452" class="LineNr">28452 </span> -<span id="L28453" class="LineNr">28453 </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="L28454" class="LineNr">28454 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28455" class="LineNr">28455 </span> 55/push-ebp -<span id="L28456" class="LineNr">28456 </span> 89/<- %ebp 4/r32/esp -<span id="L28457" class="LineNr">28457 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L28458" class="LineNr">28458 </span> 51/push-ecx -<span id="L28459" class="LineNr">28459 </span> <span class="subxComment"># var curr/ecx: (addr list var) = lookup(fn->outputs)</span> -<span id="L28460" class="LineNr">28460 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L28461" class="LineNr">28461 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> -<span id="L28462" class="LineNr">28462 </span> 89/<- %ecx 0/r32/eax -<span id="L28463" class="LineNr">28463 </span> <span class="subxComment"># while curr != null</span> -<span id="L28464" class="LineNr">28464 </span> { -<span id="L28465" class="LineNr">28465 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L28466" class="LineNr">28466 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L28467" class="LineNr">28467 </span> <span class="subxComment"># var v/eax: (addr var) = lookup(curr->value)</span> -<span id="L28468" class="LineNr">28468 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L28469" class="LineNr">28469 </span> <span class="subxComment"># var reg/eax: (addr array byte) = lookup(v->register)</span> -<span id="L28470" class="LineNr">28470 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L28471" class="LineNr">28471 </span> <span class="subxComment"># if (reg == target) return true</span> -<span id="L28472" class="LineNr">28472 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L28473" class="LineNr">28473 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28474" class="LineNr">28474 </span> 75/jump-if-!= $reg-in-function-outputs?:end/disp8 -<span id="L28475" class="LineNr">28475 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L28476" class="LineNr">28476 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L28477" class="LineNr">28477 </span> 89/<- %ecx 0/r32/eax -<span id="L28478" class="LineNr">28478 </span> <span class="subxComment">#</span> -<span id="L28479" class="LineNr">28479 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L28480" class="LineNr">28480 </span> } -<span id="L28481" class="LineNr">28481 </span> <span class="subxComment"># return false</span> -<span id="L28482" class="LineNr">28482 </span> b8/copy-to-eax 0/imm32 -<span id="L28483" class="LineNr">28483 </span><span class="Constant">$reg-in-function-outputs?:end</span>: -<span id="L28484" class="LineNr">28484 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L28485" class="LineNr">28485 </span> 59/pop-to-ecx -<span id="L28486" class="LineNr">28486 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28487" class="LineNr">28487 </span> 89/<- %esp 5/r32/ebp -<span id="L28488" class="LineNr">28488 </span> 5d/pop-to-ebp -<span id="L28489" class="LineNr">28489 </span> c3/return -<span id="L28490" class="LineNr">28490 </span> -<span id="L28491" class="LineNr">28491 </span><span class="subxFunction">emit-subx-var-def</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L28492" class="LineNr">28492 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28493" class="LineNr">28493 </span> 55/push-ebp -<span id="L28494" class="LineNr">28494 </span> 89/<- %ebp 4/r32/esp -<span id="L28495" class="LineNr">28495 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L28496" class="LineNr">28496 </span> 50/push-eax -<span id="L28497" class="LineNr">28497 </span> 51/push-ecx -<span id="L28498" class="LineNr">28498 </span> 52/push-edx -<span id="L28499" class="LineNr">28499 </span> <span class="subxComment"># eax = stmt</span> -<span id="L28500" class="LineNr">28500 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L28501" class="LineNr">28501 </span> <span class="subxComment"># var v/ecx: (addr var)</span> -<span id="L28502" class="LineNr">28502 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Vardef-var Vardef-var => eax</span> -<span id="L28503" class="LineNr">28503 </span> 89/<- %ecx 0/r32/eax -<span id="L28504" class="LineNr">28504 </span> <span class="subxComment"># v->block-depth = *Curr-block-depth</span> -<span id="L28505" class="LineNr">28505 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span> 0/r32/eax -<span id="L28506" class="LineNr">28506 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> -<span id="L28507" class="LineNr">28507 </span> <span class="subxComment"># var n/edx: int = size-of(stmt->var)</span> -<span id="L28508" class="LineNr">28508 </span> (<a href='mu.subx.html#L26553'>size-of</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L28509" class="LineNr">28509 </span> 89/<- %edx 0/r32/eax -<span id="L28510" class="LineNr">28510 </span> <span class="subxComment"># *Curr-local-stack-offset -= n</span> -<span id="L28511" class="LineNr">28511 </span> 29/subtract-from *<span class="SpecialChar"><a href='mu.subx.html#L26956'>Curr-local-stack-offset</a></span> 2/r32/edx -<span id="L28512" class="LineNr">28512 </span> <span class="subxComment"># v->offset = *Curr-local-stack-offset</span> -<span id="L28513" class="LineNr">28513 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L26956'>Curr-local-stack-offset</a></span> 0/r32/eax -<span id="L28514" class="LineNr">28514 </span> 89/<- *(ecx+0x14) 0/r32/eax <span class="subxComment"># Var-offset</span> -<span id="L28515" class="LineNr">28515 </span> <span class="subxComment"># if v is an array, do something special to initialize it</span> -<span id="L28516" class="LineNr">28516 </span> { -<span id="L28517" class="LineNr">28517 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L28518" class="LineNr">28518 </span> (<a href='mu.subx.html#L26650'>mu-array?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L28519" class="LineNr">28519 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28520" class="LineNr">28520 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28521" class="LineNr">28521 </span> <span class="subxComment"># var array-size-without-size/edx: int = n-4</span> -<span id="L28522" class="LineNr">28522 </span> 81 5/subop/subtract %edx 4/imm32 -<span id="L28523" class="LineNr">28523 </span> <span class="subxComment">#</span> -<span id="L28524" class="LineNr">28524 </span> (<a href='mu.subx.html#L28567'>emit-array-data-initialization</a> *(ebp+8) %edx) -<span id="L28525" class="LineNr">28525 </span> e9/jump $emit-subx-var-def:end/disp32 -<span id="L28526" class="LineNr">28526 </span> } -<span id="L28527" class="LineNr">28527 </span> <span class="subxComment"># another special-case for initializing streams</span> -<span id="L28528" class="LineNr">28528 </span> <span class="subxComment"># a stream is an array with 2 extra pointers</span> -<span id="L28529" class="LineNr">28529 </span> { -<span id="L28530" class="LineNr">28530 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L28531" class="LineNr">28531 </span> (<a href='mu.subx.html#L26715'>mu-stream?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L28532" class="LineNr">28532 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28533" class="LineNr">28533 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28534" class="LineNr">28534 </span> <span class="subxComment"># var array-size-without-size/edx: int = n-12</span> -<span id="L28535" class="LineNr">28535 </span> 81 5/subop/subtract %edx 0xc/imm32 -<span id="L28536" class="LineNr">28536 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L28537" class="LineNr">28537 </span> (<a href='mu.subx.html#L28586'>emit-stream-data-initialization</a> *(ebp+8) %edx %eax *(ebp+0x10) *(ebp+0x14)) -<span id="L28538" class="LineNr">28538 </span> <span class="subxComment"># emit read and write pointers</span> -<span id="L28539" class="LineNr">28539 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L28540" class="LineNr">28540 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"68/push 0/imm32\n"</span>) -<span id="L28541" class="LineNr">28541 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L28542" class="LineNr">28542 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"68/push 0/imm32\n"</span>) -<span id="L28543" class="LineNr">28543 </span> <span class="subxComment">#</span> -<span id="L28544" class="LineNr">28544 </span> eb/jump $emit-subx-var-def:end/disp8 -<span id="L28545" class="LineNr">28545 </span> } -<span id="L28546" class="LineNr">28546 </span> <span class="subxComment"># while n > 0</span> -<span id="L28547" class="LineNr">28547 </span> { -<span id="L28548" class="LineNr">28548 </span> 81 7/subop/compare %edx 0/imm32 -<span id="L28549" class="LineNr">28549 </span> 7e/jump-if-<= <span class="Constant">break</span>/disp8 -<span id="L28550" class="LineNr">28550 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L28551" class="LineNr">28551 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"68/push 0/imm32\n"</span>) -<span id="L28552" class="LineNr">28552 </span> <span class="subxComment"># n -= 4</span> -<span id="L28553" class="LineNr">28553 </span> 81 5/subop/subtract %edx 4/imm32 -<span id="L28554" class="LineNr">28554 </span> <span class="subxComment">#</span> -<span id="L28555" class="LineNr">28555 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L28206" class="LineNr">28206 </span> <span class="subxComment"># eax = v</span> +<span id="L28207" class="LineNr">28207 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L28208" class="LineNr">28208 </span> <span class="subxComment"># var reg/eax: (addr array byte) = lookup(v->register)</span> +<span id="L28209" class="LineNr">28209 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L28210" class="LineNr">28210 </span> <span class="subxComment"># var target/eax: (addr var) = find-register(fn-outputs, reg)</span> +<span id="L28211" class="LineNr">28211 </span> (<a href='mu.subx.html#L28232'>find-register</a> *(ebp+0x10) %eax) <span class="subxComment"># => eax</span> +<span id="L28212" class="LineNr">28212 </span> <span class="subxComment"># if (target == 0) return true</span> +<span id="L28213" class="LineNr">28213 </span> { +<span id="L28214" class="LineNr">28214 </span> 3d/compare-eax-and 0/imm32 +<span id="L28215" class="LineNr">28215 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L28216" class="LineNr">28216 </span> b8/copy-to-eax 1/imm32/true +<span id="L28217" class="LineNr">28217 </span> eb/jump $will-not-write-some-register?:end/disp8 +<span id="L28218" class="LineNr">28218 </span> } +<span id="L28219" class="LineNr">28219 </span> <span class="subxComment"># return !assigns-in-stmts?(stmts, target)</span> +<span id="L28220" class="LineNr">28220 </span> (<a href='mu.subx.html#L28274'>assigns-in-stmts?</a> *(ebp+0xc) %eax) <span class="subxComment"># => eax</span> +<span id="L28221" class="LineNr">28221 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28222" class="LineNr">28222 </span> <span class="subxComment"># assume: true = 1, so no need to mask with 0x000000ff</span> +<span id="L28223" class="LineNr">28223 </span> 0f 94/set-if-= %al +<span id="L28224" class="LineNr">28224 </span><span class="Constant">$will-not-write-some-register?:end</span>: +<span id="L28225" class="LineNr">28225 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28226" class="LineNr">28226 </span> 89/<- %esp 5/r32/ebp +<span id="L28227" class="LineNr">28227 </span> 5d/pop-to-ebp +<span id="L28228" class="LineNr">28228 </span> c3/return +<span id="L28229" class="LineNr">28229 </span> +<span id="L28230" class="LineNr">28230 </span><span class="subxComment"># return fn output with matching register</span> +<span id="L28231" class="LineNr">28231 </span><span class="subxComment"># always returns false if 'reg' is null</span> +<span id="L28232" class="LineNr">28232 </span><span class="subxFunction">find-register</span>: <span class="subxComment"># fn: (addr function), reg: (addr array byte) -> result/eax: (addr var)</span> +<span id="L28233" class="LineNr">28233 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28234" class="LineNr">28234 </span> 55/push-ebp +<span id="L28235" class="LineNr">28235 </span> 89/<- %ebp 4/r32/esp +<span id="L28236" class="LineNr">28236 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28237" class="LineNr">28237 </span> 51/push-ecx +<span id="L28238" class="LineNr">28238 </span> <span class="subxComment"># var curr/ecx: (addr list var) = lookup(fn->outputs)</span> +<span id="L28239" class="LineNr">28239 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L28240" class="LineNr">28240 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x10) *(ecx+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> +<span id="L28241" class="LineNr">28241 </span> 89/<- %ecx 0/r32/eax +<span id="L28242" class="LineNr">28242 </span> { +<span id="L28243" class="LineNr">28243 </span><span class="Constant">$find-register:loop</span>: +<span id="L28244" class="LineNr">28244 </span> <span class="subxComment"># if (curr == 0) break</span> +<span id="L28245" class="LineNr">28245 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L28246" class="LineNr">28246 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L28247" class="LineNr">28247 </span> <span class="subxComment"># eax = curr->value->register</span> +<span id="L28248" class="LineNr">28248 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L28249" class="LineNr">28249 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L28250" class="LineNr">28250 </span> <span class="subxComment"># if (eax == reg) return curr->value</span> +<span id="L28251" class="LineNr">28251 </span><span class="Constant">$find-register:compare</span>: +<span id="L28252" class="LineNr">28252 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> *(ebp+0xc) %eax) <span class="subxComment"># => eax</span> +<span id="L28253" class="LineNr">28253 </span> { +<span id="L28254" class="LineNr">28254 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28255" class="LineNr">28255 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L28256" class="LineNr">28256 </span><span class="Constant">$find-register:found</span>: +<span id="L28257" class="LineNr">28257 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L28258" class="LineNr">28258 </span> eb/jump $find-register:end/disp8 +<span id="L28259" class="LineNr">28259 </span> } +<span id="L28260" class="LineNr">28260 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L28261" class="LineNr">28261 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L28262" class="LineNr">28262 </span> 89/<- %ecx 0/r32/eax +<span id="L28263" class="LineNr">28263 </span> <span class="subxComment">#</span> +<span id="L28264" class="LineNr">28264 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L28265" class="LineNr">28265 </span> } +<span id="L28266" class="LineNr">28266 </span><span class="Constant">$find-register:end</span>: +<span id="L28267" class="LineNr">28267 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28268" class="LineNr">28268 </span> 59/pop-to-ecx +<span id="L28269" class="LineNr">28269 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28270" class="LineNr">28270 </span> 89/<- %esp 5/r32/ebp +<span id="L28271" class="LineNr">28271 </span> 5d/pop-to-ebp +<span id="L28272" class="LineNr">28272 </span> c3/return +<span id="L28273" class="LineNr">28273 </span> +<span id="L28274" class="LineNr">28274 </span><span class="subxFunction">assigns-in-stmts?</span>: <span class="subxComment"># stmts: (addr list stmt), v: (addr var) -> result/eax: boolean</span> +<span id="L28275" class="LineNr">28275 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28276" class="LineNr">28276 </span> 55/push-ebp +<span id="L28277" class="LineNr">28277 </span> 89/<- %ebp 4/r32/esp +<span id="L28278" class="LineNr">28278 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28279" class="LineNr">28279 </span> 51/push-ecx +<span id="L28280" class="LineNr">28280 </span> <span class="subxComment"># var curr/ecx: (addr list stmt) = stmts</span> +<span id="L28281" class="LineNr">28281 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L28282" class="LineNr">28282 </span> { +<span id="L28283" class="LineNr">28283 </span> <span class="subxComment"># if (curr == 0) break</span> +<span id="L28284" class="LineNr">28284 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L28285" class="LineNr">28285 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L28286" class="LineNr">28286 </span> <span class="subxComment"># if assigns-in-stmt?(curr->value, v) return true</span> +<span id="L28287" class="LineNr">28287 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L28288" class="LineNr">28288 </span> (<a href='mu.subx.html#L28305'>assigns-in-stmt?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L28289" class="LineNr">28289 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28290" class="LineNr">28290 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L28291" class="LineNr">28291 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L28292" class="LineNr">28292 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L28293" class="LineNr">28293 </span> 89/<- %ecx 0/r32/eax +<span id="L28294" class="LineNr">28294 </span> <span class="subxComment">#</span> +<span id="L28295" class="LineNr">28295 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L28296" class="LineNr">28296 </span> } +<span id="L28297" class="LineNr">28297 </span><span class="Constant">$assigns-in-stmts?:end</span>: +<span id="L28298" class="LineNr">28298 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28299" class="LineNr">28299 </span> 59/pop-to-ecx +<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">assigns-in-stmt?</span>: <span class="subxComment"># stmt: (addr stmt), v: (addr var) -> result/eax: boolean</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="subxS1Comment"># . save registers</span> +<span id="L28310" class="LineNr">28310 </span> 51/push-ecx +<span id="L28311" class="LineNr">28311 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L28312" class="LineNr">28312 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L28313" class="LineNr">28313 </span> <span class="subxComment"># if stmt is a stmt1, return assigns-in-stmt-vars?(stmt->outputs, v)</span> +<span id="L28314" class="LineNr">28314 </span> { +<span id="L28315" class="LineNr">28315 </span> 81 7/subop/compare *ecx 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> +<span id="L28316" class="LineNr">28316 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L28317" class="LineNr">28317 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L28318" class="LineNr">28318 </span> (<a href='mu.subx.html#L28339'>assigns-in-stmt-vars?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L28319" class="LineNr">28319 </span> eb/jump $assigns-in-stmt?:end/disp8 +<span id="L28320" class="LineNr">28320 </span> } +<span id="L28321" class="LineNr">28321 </span> <span class="subxComment"># if stmt is a block, return assigns-in-stmts?(stmt->stmts, v)</span> +<span id="L28322" class="LineNr">28322 </span> { +<span id="L28323" class="LineNr">28323 </span> 81 7/subop/compare *ecx 0/imm32/block <span class="subxComment"># Stmt-tag</span> +<span id="L28324" class="LineNr">28324 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L28325" class="LineNr">28325 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> +<span id="L28326" class="LineNr">28326 </span> (<a href='mu.subx.html#L28274'>assigns-in-stmts?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L28327" class="LineNr">28327 </span> eb/jump $assigns-in-stmt?:end/disp8 +<span id="L28328" class="LineNr">28328 </span> } +<span id="L28329" class="LineNr">28329 </span> <span class="subxComment"># otherwise return false</span> +<span id="L28330" class="LineNr">28330 </span> b8/copy 0/imm32/false +<span id="L28331" class="LineNr">28331 </span><span class="Constant">$assigns-in-stmt?:end</span>: +<span id="L28332" class="LineNr">28332 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28333" class="LineNr">28333 </span> 59/pop-to-ecx +<span id="L28334" class="LineNr">28334 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28335" class="LineNr">28335 </span> 89/<- %esp 5/r32/ebp +<span id="L28336" class="LineNr">28336 </span> 5d/pop-to-ebp +<span id="L28337" class="LineNr">28337 </span> c3/return +<span id="L28338" class="LineNr">28338 </span> +<span id="L28339" class="LineNr">28339 </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="L28340" class="LineNr">28340 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28341" class="LineNr">28341 </span> 55/push-ebp +<span id="L28342" class="LineNr">28342 </span> 89/<- %ebp 4/r32/esp +<span id="L28343" class="LineNr">28343 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28344" class="LineNr">28344 </span> 51/push-ecx +<span id="L28345" class="LineNr">28345 </span> <span class="subxComment"># var curr/ecx: (addr stmt-var) = stmt-var</span> +<span id="L28346" class="LineNr">28346 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L28347" class="LineNr">28347 </span> { +<span id="L28348" class="LineNr">28348 </span> <span class="subxComment"># if (curr == 0) break</span> +<span id="L28349" class="LineNr">28349 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L28350" class="LineNr">28350 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L28351" class="LineNr">28351 </span> <span class="subxComment"># eax = lookup(curr->value)</span> +<span id="L28352" class="LineNr">28352 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L28353" class="LineNr">28353 </span> <span class="subxComment"># if (eax == v && curr->is-deref? == false) return true</span> +<span id="L28354" class="LineNr">28354 </span> { +<span id="L28355" class="LineNr">28355 </span> 39/compare *(ebp+0xc) 0/r32/eax +<span id="L28356" class="LineNr">28356 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L28357" class="LineNr">28357 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L28358" class="LineNr">28358 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L28359" class="LineNr">28359 </span> b8/copy-to-eax 1/imm32/true +<span id="L28360" class="LineNr">28360 </span> eb/jump $assigns-in-stmt-vars?:end/disp8 +<span id="L28361" class="LineNr">28361 </span> } +<span id="L28362" class="LineNr">28362 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L28363" class="LineNr">28363 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L28364" class="LineNr">28364 </span> 89/<- %ecx 0/r32/eax +<span id="L28365" class="LineNr">28365 </span> <span class="subxComment">#</span> +<span id="L28366" class="LineNr">28366 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L28367" class="LineNr">28367 </span> } +<span id="L28368" class="LineNr">28368 </span><span class="Constant">$assigns-in-stmt-vars?:end</span>: +<span id="L28369" class="LineNr">28369 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28370" class="LineNr">28370 </span> 59/pop-to-ecx +<span id="L28371" class="LineNr">28371 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28372" class="LineNr">28372 </span> 89/<- %esp 5/r32/ebp +<span id="L28373" class="LineNr">28373 </span> 5d/pop-to-ebp +<span id="L28374" class="LineNr">28374 </span> c3/return +<span id="L28375" class="LineNr">28375 </span> +<span id="L28376" class="LineNr">28376 </span><span class="subxComment"># is there a var before 'v' with the same block-depth and register on the 'vars' stack?</span> +<span id="L28377" class="LineNr">28377 </span><span class="subxComment"># v is guaranteed to be within vars</span> +<span id="L28378" class="LineNr">28378 </span><span class="subxComment"># 'start' is provided as an optimization, a pointer within vars</span> +<span id="L28379" class="LineNr">28379 </span><span class="subxComment"># *start == v</span> +<span id="L28380" class="LineNr">28380 </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="L28381" class="LineNr">28381 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28382" class="LineNr">28382 </span> 55/push-ebp +<span id="L28383" class="LineNr">28383 </span> 89/<- %ebp 4/r32/esp +<span id="L28384" class="LineNr">28384 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28385" class="LineNr">28385 </span> 51/push-ecx +<span id="L28386" class="LineNr">28386 </span> 52/push-edx +<span id="L28387" class="LineNr">28387 </span> 53/push-ebx +<span id="L28388" class="LineNr">28388 </span> 56/push-esi +<span id="L28389" class="LineNr">28389 </span> 57/push-edi +<span id="L28390" class="LineNr">28390 </span> <span class="subxComment"># ecx = v</span> +<span id="L28391" class="LineNr">28391 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L28392" class="LineNr">28392 </span> <span class="subxComment"># var reg/edx: (addr array byte) = lookup(v->register)</span> +<span id="L28393" class="LineNr">28393 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L28394" class="LineNr">28394 </span> 89/<- %edx 0/r32/eax +<span id="L28395" class="LineNr">28395 </span> <span class="subxComment"># var depth/ebx: int = v->block-depth</span> +<span id="L28396" class="LineNr">28396 </span> 8b/-> *(ecx+0x10) 3/r32/ebx <span class="subxComment"># Var-block-depth</span> +<span id="L28397" class="LineNr">28397 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> +<span id="L28398" class="LineNr">28398 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L28399" class="LineNr">28399 </span> 81 0/subop/add %ecx 8/imm32 +<span id="L28400" class="LineNr">28400 </span> <span class="subxComment"># TODO: check that start >= min and start < &vars->data[top]</span> +<span id="L28401" class="LineNr">28401 </span> <span class="subxComment"># TODO: check that *start == v</span> +<span id="L28402" class="LineNr">28402 </span> <span class="subxComment"># var curr/esi: (addr handle var) = start</span> +<span id="L28403" class="LineNr">28403 </span> 8b/-> *(ebp+0x10) 6/r32/esi +<span id="L28404" class="LineNr">28404 </span> <span class="subxComment"># curr -= 8</span> +<span id="L28405" class="LineNr">28405 </span> 81 5/subop/subtract %esi 8/imm32 +<span id="L28406" class="LineNr">28406 </span> { +<span id="L28407" class="LineNr">28407 </span><span class="Constant">$same-register-spilled-before?:loop</span>: +<span id="L28408" class="LineNr">28408 </span> <span class="subxComment"># if (curr < min) break</span> +<span id="L28409" class="LineNr">28409 </span> 39/compare %esi 1/r32/ecx +<span id="L28410" class="LineNr">28410 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L28411" class="LineNr">28411 </span> <span class="subxComment"># var x/eax: (addr var) = lookup(*curr)</span> +<span id="L28412" class="LineNr">28412 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L28413" class="LineNr">28413 </span> <span class="subxComment"># if (x->block-depth < depth) break</span> +<span id="L28414" class="LineNr">28414 </span> 39/compare *(eax+0x10) 3/r32/ebx <span class="subxComment"># Var-block-depth</span> +<span id="L28415" class="LineNr">28415 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 +<span id="L28416" class="LineNr">28416 </span> <span class="subxComment"># if (x->register == 0) continue</span> +<span id="L28417" class="LineNr">28417 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L28418" class="LineNr">28418 </span> 74/jump-if-= $same-register-spilled-before?:continue/disp8 +<span id="L28419" class="LineNr">28419 </span> <span class="subxComment"># if (x->register == reg) return true</span> +<span id="L28420" class="LineNr">28420 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L28421" class="LineNr">28421 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax %edx) <span class="subxComment"># => eax</span> +<span id="L28422" class="LineNr">28422 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28423" class="LineNr">28423 </span> b8/copy-to-eax 1/imm32/true +<span id="L28424" class="LineNr">28424 </span> 75/jump-if-!= $same-register-spilled-before?:end/disp8 +<span id="L28425" class="LineNr">28425 </span><span class="Constant">$same-register-spilled-before?:continue</span>: +<span id="L28426" class="LineNr">28426 </span> <span class="subxComment"># curr -= 8</span> +<span id="L28427" class="LineNr">28427 </span> 81 5/subop/subtract %esi 8/imm32 +<span id="L28428" class="LineNr">28428 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L28429" class="LineNr">28429 </span> } +<span id="L28430" class="LineNr">28430 </span><span class="Constant">$same-register-spilled-before?:false</span>: +<span id="L28431" class="LineNr">28431 </span> b8/copy-to-eax 0/imm32/false +<span id="L28432" class="LineNr">28432 </span><span class="Constant">$same-register-spilled-before?:end</span>: +<span id="L28433" class="LineNr">28433 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28434" class="LineNr">28434 </span> 5f/pop-to-edi +<span id="L28435" class="LineNr">28435 </span> 5e/pop-to-esi +<span id="L28436" class="LineNr">28436 </span> 5b/pop-to-ebx +<span id="L28437" class="LineNr">28437 </span> 5a/pop-to-edx +<span id="L28438" class="LineNr">28438 </span> 59/pop-to-ecx +<span id="L28439" class="LineNr">28439 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28440" class="LineNr">28440 </span> 89/<- %esp 5/r32/ebp +<span id="L28441" class="LineNr">28441 </span> 5d/pop-to-ebp +<span id="L28442" class="LineNr">28442 </span> c3/return +<span id="L28443" class="LineNr">28443 </span> +<span id="L28444" class="LineNr">28444 </span><span class="subxComment"># clean up global state for 'vars' until some block depth (inclusive)</span> +<span id="L28445" class="LineNr">28445 </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="L28446" class="LineNr">28446 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28447" class="LineNr">28447 </span> 55/push-ebp +<span id="L28448" class="LineNr">28448 </span> 89/<- %ebp 4/r32/esp +<span id="L28449" class="LineNr">28449 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28450" class="LineNr">28450 </span> 50/push-eax +<span id="L28451" class="LineNr">28451 </span> 51/push-ecx +<span id="L28452" class="LineNr">28452 </span> 56/push-esi +<span id="L28453" class="LineNr">28453 </span> <span class="subxComment"># esi = vars</span> +<span id="L28454" class="LineNr">28454 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L28455" class="LineNr">28455 </span> <span class="subxComment"># ecx = until-block-depth</span> +<span id="L28456" class="LineNr">28456 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L28457" class="LineNr">28457 </span> { +<span id="L28458" class="LineNr">28458 </span><span class="Constant">$clean-up-blocks:reclaim-loop</span>: +<span id="L28459" class="LineNr">28459 </span> <span class="subxComment"># if (vars->top <= 0) break</span> +<span id="L28460" class="LineNr">28460 </span> 8b/-> *esi 0/r32/eax <span class="subxComment"># Stack-top</span> +<span id="L28461" class="LineNr">28461 </span> 3d/compare-eax-and 0/imm32 +<span id="L28462" class="LineNr">28462 </span> 0f 8e/jump-if-<= <span class="Constant">break</span>/disp32 +<span id="L28463" class="LineNr">28463 </span> <span class="subxComment"># var v/eax: (addr var) = lookup(vars[vars->top-12])</span> +<span id="L28464" class="LineNr">28464 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+eax-4) *(esi+eax)) <span class="subxComment"># vars + 8 + vars->top - 12 => eax</span> +<span id="L28465" class="LineNr">28465 </span> <span class="subxComment"># if (v->block-depth < until-block-depth) break</span> +<span id="L28466" class="LineNr">28466 </span> 39/compare *(eax+0x10) 1/r32/ecx <span class="subxComment"># Var-block-depth</span> +<span id="L28467" class="LineNr">28467 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 +<span id="L28468" class="LineNr">28468 </span> (<a href='203stack.subx.html#L234'>pop</a> %esi) <span class="subxComment"># => eax</span> +<span id="L28469" class="LineNr">28469 </span> (<a href='203stack.subx.html#L234'>pop</a> %esi) <span class="subxComment"># => eax</span> +<span id="L28470" class="LineNr">28470 </span> (<a href='203stack.subx.html#L234'>pop</a> %esi) <span class="subxComment"># => eax</span> +<span id="L28471" class="LineNr">28471 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L28472" class="LineNr">28472 </span> } +<span id="L28473" class="LineNr">28473 </span><span class="Constant">$clean-up-blocks:end</span>: +<span id="L28474" class="LineNr">28474 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28475" class="LineNr">28475 </span> 5e/pop-to-esi +<span id="L28476" class="LineNr">28476 </span> 59/pop-to-ecx +<span id="L28477" class="LineNr">28477 </span> 58/pop-to-eax +<span id="L28478" class="LineNr">28478 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28479" class="LineNr">28479 </span> 89/<- %esp 5/r32/ebp +<span id="L28480" class="LineNr">28480 </span> 5d/pop-to-ebp +<span id="L28481" class="LineNr">28481 </span> c3/return +<span id="L28482" class="LineNr">28482 </span> +<span id="L28483" class="LineNr">28483 </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="L28484" class="LineNr">28484 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28485" class="LineNr">28485 </span> 55/push-ebp +<span id="L28486" class="LineNr">28486 </span> 89/<- %ebp 4/r32/esp +<span id="L28487" class="LineNr">28487 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28488" class="LineNr">28488 </span> 51/push-ecx +<span id="L28489" class="LineNr">28489 </span> <span class="subxComment"># var curr/ecx: (addr list var) = lookup(fn->outputs)</span> +<span id="L28490" class="LineNr">28490 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L28491" class="LineNr">28491 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> +<span id="L28492" class="LineNr">28492 </span> 89/<- %ecx 0/r32/eax +<span id="L28493" class="LineNr">28493 </span> <span class="subxComment"># while curr != null</span> +<span id="L28494" class="LineNr">28494 </span> { +<span id="L28495" class="LineNr">28495 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L28496" class="LineNr">28496 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L28497" class="LineNr">28497 </span> <span class="subxComment"># var v/eax: (addr var) = lookup(curr->value)</span> +<span id="L28498" class="LineNr">28498 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L28499" class="LineNr">28499 </span> <span class="subxComment"># var reg/eax: (addr array byte) = lookup(v->register)</span> +<span id="L28500" class="LineNr">28500 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L28501" class="LineNr">28501 </span> <span class="subxComment"># if (reg == target) return true</span> +<span id="L28502" class="LineNr">28502 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L28503" class="LineNr">28503 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28504" class="LineNr">28504 </span> 75/jump-if-!= $reg-in-function-outputs?:end/disp8 +<span id="L28505" class="LineNr">28505 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L28506" class="LineNr">28506 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L28507" class="LineNr">28507 </span> 89/<- %ecx 0/r32/eax +<span id="L28508" class="LineNr">28508 </span> <span class="subxComment">#</span> +<span id="L28509" class="LineNr">28509 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L28510" class="LineNr">28510 </span> } +<span id="L28511" class="LineNr">28511 </span> <span class="subxComment"># return false</span> +<span id="L28512" class="LineNr">28512 </span> b8/copy-to-eax 0/imm32 +<span id="L28513" class="LineNr">28513 </span><span class="Constant">$reg-in-function-outputs?:end</span>: +<span id="L28514" class="LineNr">28514 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28515" class="LineNr">28515 </span> 59/pop-to-ecx +<span id="L28516" class="LineNr">28516 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28517" class="LineNr">28517 </span> 89/<- %esp 5/r32/ebp +<span id="L28518" class="LineNr">28518 </span> 5d/pop-to-ebp +<span id="L28519" class="LineNr">28519 </span> c3/return +<span id="L28520" class="LineNr">28520 </span> +<span id="L28521" class="LineNr">28521 </span><span class="subxFunction">emit-subx-var-def</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L28522" class="LineNr">28522 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28523" class="LineNr">28523 </span> 55/push-ebp +<span id="L28524" class="LineNr">28524 </span> 89/<- %ebp 4/r32/esp +<span id="L28525" class="LineNr">28525 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28526" class="LineNr">28526 </span> 50/push-eax +<span id="L28527" class="LineNr">28527 </span> 51/push-ecx +<span id="L28528" class="LineNr">28528 </span> 52/push-edx +<span id="L28529" class="LineNr">28529 </span> <span class="subxComment"># eax = stmt</span> +<span id="L28530" class="LineNr">28530 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L28531" class="LineNr">28531 </span> <span class="subxComment"># var v/ecx: (addr var)</span> +<span id="L28532" class="LineNr">28532 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Vardef-var Vardef-var => eax</span> +<span id="L28533" class="LineNr">28533 </span> 89/<- %ecx 0/r32/eax +<span id="L28534" class="LineNr">28534 </span> <span class="subxComment"># v->block-depth = *Curr-block-depth</span> +<span id="L28535" class="LineNr">28535 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span> 0/r32/eax +<span id="L28536" class="LineNr">28536 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> +<span id="L28537" class="LineNr">28537 </span> <span class="subxComment"># var n/edx: int = size-of(stmt->var)</span> +<span id="L28538" class="LineNr">28538 </span> (<a href='mu.subx.html#L26575'>size-of</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L28539" class="LineNr">28539 </span> 89/<- %edx 0/r32/eax +<span id="L28540" class="LineNr">28540 </span> <span class="subxComment"># *Curr-local-stack-offset -= n</span> +<span id="L28541" class="LineNr">28541 </span> 29/subtract-from *<span class="SpecialChar"><a href='mu.subx.html#L26978'>Curr-local-stack-offset</a></span> 2/r32/edx +<span id="L28542" class="LineNr">28542 </span> <span class="subxComment"># v->offset = *Curr-local-stack-offset</span> +<span id="L28543" class="LineNr">28543 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L26978'>Curr-local-stack-offset</a></span> 0/r32/eax +<span id="L28544" class="LineNr">28544 </span> 89/<- *(ecx+0x14) 0/r32/eax <span class="subxComment"># Var-offset</span> +<span id="L28545" class="LineNr">28545 </span> <span class="subxComment"># if v is an array, do something special to initialize it</span> +<span id="L28546" class="LineNr">28546 </span> { +<span id="L28547" class="LineNr">28547 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L28548" class="LineNr">28548 </span> (<a href='mu.subx.html#L26672'>mu-array?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L28549" class="LineNr">28549 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28550" class="LineNr">28550 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28551" class="LineNr">28551 </span> <span class="subxComment"># var array-size-without-size/edx: int = n-4</span> +<span id="L28552" class="LineNr">28552 </span> 81 5/subop/subtract %edx 4/imm32 +<span id="L28553" class="LineNr">28553 </span> <span class="subxComment">#</span> +<span id="L28554" class="LineNr">28554 </span> (<a href='mu.subx.html#L28597'>emit-array-data-initialization</a> *(ebp+8) %edx) +<span id="L28555" class="LineNr">28555 </span> e9/jump $emit-subx-var-def:end/disp32 <span id="L28556" class="LineNr">28556 </span> } -<span id="L28557" class="LineNr">28557 </span><span class="Constant">$emit-subx-var-def:end</span>: -<span id="L28558" class="LineNr">28558 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L28559" class="LineNr">28559 </span> 5a/pop-to-edx -<span id="L28560" class="LineNr">28560 </span> 59/pop-to-ecx -<span id="L28561" class="LineNr">28561 </span> 58/pop-to-eax -<span id="L28562" class="LineNr">28562 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28563" class="LineNr">28563 </span> 89/<- %esp 5/r32/ebp -<span id="L28564" class="LineNr">28564 </span> 5d/pop-to-ebp -<span id="L28565" class="LineNr">28565 </span> c3/return -<span id="L28566" class="LineNr">28566 </span> -<span id="L28567" class="LineNr">28567 </span><span class="subxFunction">emit-array-data-initialization</span>: <span class="subxComment"># out: (addr buffered-file), n: int</span> -<span id="L28568" class="LineNr">28568 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28569" class="LineNr">28569 </span> 55/push-ebp -<span id="L28570" class="LineNr">28570 </span> 89/<- %ebp 4/r32/esp -<span id="L28571" class="LineNr">28571 </span> <span class="subxComment">#</span> -<span id="L28572" class="LineNr">28572 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L28573" class="LineNr">28573 </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="L28574" class="LineNr">28574 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *(ebp+0xc)) -<span id="L28575" class="LineNr">28575 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L28576" class="LineNr">28576 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L28577" class="LineNr">28577 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"68/push "</span>) -<span id="L28578" class="LineNr">28578 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *(ebp+0xc)) -<span id="L28579" class="LineNr">28579 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) -<span id="L28580" class="LineNr">28580 </span><span class="Constant">$emit-array-data-initialization:end</span>: -<span id="L28581" class="LineNr">28581 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28582" class="LineNr">28582 </span> 89/<- %esp 5/r32/ebp -<span id="L28583" class="LineNr">28583 </span> 5d/pop-to-ebp -<span id="L28584" class="LineNr">28584 </span> c3/return -<span id="L28585" class="LineNr">28585 </span> -<span id="L28586" class="LineNr">28586 </span><span class="subxFunction">emit-stream-data-initialization</span>: <span class="subxComment"># out: (addr buffered-file), n: int, type: (addr type-tree), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L28587" class="LineNr">28587 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28588" class="LineNr">28588 </span> 55/push-ebp -<span id="L28589" class="LineNr">28589 </span> 89/<- %ebp 4/r32/esp -<span id="L28590" class="LineNr">28590 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L28591" class="LineNr">28591 </span> 50/push-eax -<span id="L28592" class="LineNr">28592 </span> <span class="subxComment"># Optimization: if it's a stream of bytes, don't initialize.</span> -<span id="L28593" class="LineNr">28593 </span> <span class="subxComment">#</span> -<span id="L28594" class="LineNr">28594 </span> <span class="subxComment"># We often construct large temporary streams on the stack for 'trace'</span> -<span id="L28595" class="LineNr">28595 </span> <span class="subxComment"># statements. Initializing such streams can significantly slow programs</span> -<span id="L28596" class="LineNr">28596 </span> <span class="subxComment"># down.</span> -<span id="L28597" class="LineNr">28597 </span> <span class="subxComment">#</span> -<span id="L28598" class="LineNr">28598 </span> <span class="subxComment"># Mu doesn't really depend on initializing stream contents for type- or</span> -<span id="L28599" class="LineNr">28599 </span> <span class="subxComment"># memory-safety; we're mostly doing so to make it easy to debug unsafe</span> -<span id="L28600" class="LineNr">28600 </span> <span class="subxComment"># SubX code that misuses stream objects by manipulating read/write</span> -<span id="L28601" class="LineNr">28601 </span> <span class="subxComment"># pointers. But you can't _really_ protect from unsafe SubX, so I think we</span> -<span id="L28602" class="LineNr">28602 </span> <span class="subxComment"># don't give up much safety or security here.</span> -<span id="L28603" class="LineNr">28603 </span> { -<span id="L28604" class="LineNr">28604 </span> (<a href='mu.subx.html#L29087'>stream-element-type-id</a> *(ebp+0x10) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> -<span id="L28605" class="LineNr">28605 </span> 3d/compare-eax-and 8/imm32/byte -<span id="L28606" class="LineNr">28606 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L28607" class="LineNr">28607 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L28608" class="LineNr">28608 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 5/subop/subtract %esp "</span>) -<span id="L28609" class="LineNr">28609 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *(ebp+0xc)) -<span id="L28610" class="LineNr">28610 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) -<span id="L28611" class="LineNr">28611 </span> eb/jump $emit-stream-data-initialization:emit-length/disp8 -<span id="L28612" class="LineNr">28612 </span> } -<span id="L28613" class="LineNr">28613 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L28614" class="LineNr">28614 </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="L28615" class="LineNr">28615 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *(ebp+0xc)) -<span id="L28616" class="LineNr">28616 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L28617" class="LineNr">28617 </span><span class="Constant">$emit-stream-data-initialization:emit-length</span>: -<span id="L28618" class="LineNr">28618 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L28619" class="LineNr">28619 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"68/push "</span>) -<span id="L28620" class="LineNr">28620 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *(ebp+0xc)) -<span id="L28621" class="LineNr">28621 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) -<span id="L28622" class="LineNr">28622 </span><span class="Constant">$emit-stream-data-initialization:end</span>: -<span id="L28623" class="LineNr">28623 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L28624" class="LineNr">28624 </span> 58/pop-to-eax -<span id="L28625" class="LineNr">28625 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28626" class="LineNr">28626 </span> 89/<- %esp 5/r32/ebp -<span id="L28627" class="LineNr">28627 </span> 5d/pop-to-ebp -<span id="L28628" class="LineNr">28628 </span> c3/return -<span id="L28629" class="LineNr">28629 </span> -<span id="L28630" class="LineNr">28630 </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="L28631" class="LineNr">28631 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28632" class="LineNr">28632 </span> 55/push-ebp -<span id="L28633" class="LineNr">28633 </span> 89/<- %ebp 4/r32/esp -<span id="L28634" class="LineNr">28634 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L28635" class="LineNr">28635 </span> 50/push-eax -<span id="L28636" class="LineNr">28636 </span> 51/push-ecx -<span id="L28637" class="LineNr">28637 </span> <span class="subxH1Comment"># - some special-case primitives that don't actually use the 'primitives' data structure</span> -<span id="L28638" class="LineNr">28638 </span> <span class="subxComment"># var op/ecx: (addr array byte) = lookup(stmt->operation)</span> -<span id="L28639" class="LineNr">28639 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L28640" class="LineNr">28640 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L28641" class="LineNr">28641 </span> 89/<- %ecx 0/r32/eax -<span id="L28642" class="LineNr">28642 </span> <span class="subxComment"># copy byte (can be a primitive except we need to emit a second instruction)</span> -<span id="L28643" class="LineNr">28643 </span> { -<span id="L28644" class="LineNr">28644 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "copy-byte")) break</span> -<span id="L28645" class="LineNr">28645 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"copy-byte"</span>) <span class="subxComment"># => eax</span> -<span id="L28646" class="LineNr">28646 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28647" class="LineNr">28647 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28648" class="LineNr">28648 </span> (<a href='mu.subx.html#L29255'>translate-mu-copy-byte-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) -<span id="L28649" class="LineNr">28649 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L28650" class="LineNr">28650 </span> } -<span id="L28651" class="LineNr">28651 </span> <span class="subxComment"># copy-byte-to can be a primitive; writes to memory don't need to clear surrounding bytes</span> -<span id="L28652" class="LineNr">28652 </span> <span class="subxComment"># array size</span> -<span id="L28653" class="LineNr">28653 </span> { -<span id="L28654" class="LineNr">28654 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "length")) break</span> -<span id="L28655" class="LineNr">28655 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"length"</span>) <span class="subxComment"># => eax</span> -<span id="L28656" class="LineNr">28656 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28657" class="LineNr">28657 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28658" class="LineNr">28658 </span> (<a href='mu.subx.html#L28826'>translate-mu-length-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) -<span id="L28659" class="LineNr">28659 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L28660" class="LineNr">28660 </span> } -<span id="L28661" class="LineNr">28661 </span> <span class="subxComment"># index into array</span> -<span id="L28662" class="LineNr">28662 </span> { -<span id="L28663" class="LineNr">28663 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "index")) break</span> -<span id="L28664" class="LineNr">28664 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"index"</span>) <span class="subxComment"># => eax</span> -<span id="L28665" class="LineNr">28665 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28666" class="LineNr">28666 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28667" class="LineNr">28667 </span> (<a href='mu.subx.html#L29297'>translate-mu-index-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L28668" class="LineNr">28668 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L28669" class="LineNr">28669 </span> } -<span id="L28670" class="LineNr">28670 </span> <span class="subxComment"># compute-offset for index into array</span> -<span id="L28671" class="LineNr">28671 </span> { -<span id="L28672" class="LineNr">28672 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "compute-offset")) break</span> -<span id="L28673" class="LineNr">28673 </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="L28674" class="LineNr">28674 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28675" class="LineNr">28675 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28676" class="LineNr">28676 </span> (<a href='mu.subx.html#L29701'>translate-mu-compute-index-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) -<span id="L28677" class="LineNr">28677 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L28678" class="LineNr">28678 </span> } -<span id="L28679" class="LineNr">28679 </span> <span class="subxComment"># get field from record</span> -<span id="L28680" class="LineNr">28680 </span> { -<span id="L28681" class="LineNr">28681 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "get")) break</span> -<span id="L28682" class="LineNr">28682 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"get"</span>) <span class="subxComment"># => eax</span> -<span id="L28683" class="LineNr">28683 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28684" class="LineNr">28684 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28685" class="LineNr">28685 </span> (<a href='mu.subx.html#L29749'>translate-mu-get-stmt</a> *(ebp+8) *(ebp+0xc)) -<span id="L28686" class="LineNr">28686 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L28687" class="LineNr">28687 </span> } -<span id="L28688" class="LineNr">28688 </span> <span class="subxComment"># allocate scalar</span> -<span id="L28689" class="LineNr">28689 </span> { -<span id="L28690" class="LineNr">28690 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "allocate")) break</span> -<span id="L28691" class="LineNr">28691 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"allocate"</span>) <span class="subxComment"># => eax</span> -<span id="L28692" class="LineNr">28692 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28693" class="LineNr">28693 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28694" class="LineNr">28694 </span> (<a href='mu.subx.html#L29868'>translate-mu-allocate-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) -<span id="L28695" class="LineNr">28695 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L28696" class="LineNr">28696 </span> } -<span id="L28697" class="LineNr">28697 </span> <span class="subxComment"># copy-object</span> -<span id="L28698" class="LineNr">28698 </span> { -<span id="L28699" class="LineNr">28699 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "copy-object")) break</span> -<span id="L28700" class="LineNr">28700 </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="L28701" class="LineNr">28701 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28702" class="LineNr">28702 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28703" class="LineNr">28703 </span> (<a href='mu.subx.html#L29811'>translate-mu-copy-object-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) -<span id="L28704" class="LineNr">28704 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L28705" class="LineNr">28705 </span> } -<span id="L28706" class="LineNr">28706 </span> <span class="subxComment"># clear-object</span> -<span id="L28707" class="LineNr">28707 </span> { -<span id="L28708" class="LineNr">28708 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "clear-object")) break</span> -<span id="L28709" class="LineNr">28709 </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="L28710" class="LineNr">28710 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28711" class="LineNr">28711 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28712" class="LineNr">28712 </span> (<a href='mu.subx.html#L29841'>translate-mu-clear-object-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) -<span id="L28713" class="LineNr">28713 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L28714" class="LineNr">28714 </span> } -<span id="L28715" class="LineNr">28715 </span> <span class="subxComment"># allocate array</span> -<span id="L28716" class="LineNr">28716 </span> { -<span id="L28717" class="LineNr">28717 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "populate")) break</span> -<span id="L28718" class="LineNr">28718 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"populate"</span>) <span class="subxComment"># => eax</span> -<span id="L28719" class="LineNr">28719 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28720" class="LineNr">28720 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28721" class="LineNr">28721 </span> (<a href='mu.subx.html#L29964'>translate-mu-populate-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) -<span id="L28722" class="LineNr">28722 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L28723" class="LineNr">28723 </span> } -<span id="L28724" class="LineNr">28724 </span> <span class="subxComment"># allocate stream</span> -<span id="L28725" class="LineNr">28725 </span> { -<span id="L28726" class="LineNr">28726 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "populate-stream")) break</span> -<span id="L28727" class="LineNr">28727 </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="L28728" class="LineNr">28728 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28729" class="LineNr">28729 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28730" class="LineNr">28730 </span> (<a href='mu.subx.html#L30000'>translate-mu-populate-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) -<span id="L28731" class="LineNr">28731 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L28732" class="LineNr">28732 </span> } -<span id="L28733" class="LineNr">28733 </span> <span class="subxComment"># read from stream</span> -<span id="L28734" class="LineNr">28734 </span> { -<span id="L28735" class="LineNr">28735 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "read-from-stream")) break</span> -<span id="L28736" class="LineNr">28736 </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="L28737" class="LineNr">28737 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28738" class="LineNr">28738 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28739" class="LineNr">28739 </span> (<a href='mu.subx.html#L30036'>translate-mu-read-from-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) -<span id="L28740" class="LineNr">28740 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L28741" class="LineNr">28741 </span> } -<span id="L28742" class="LineNr">28742 </span> <span class="subxComment"># write to stream</span> -<span id="L28743" class="LineNr">28743 </span> { -<span id="L28744" class="LineNr">28744 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "write-to-stream")) break</span> -<span id="L28745" class="LineNr">28745 </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="L28746" class="LineNr">28746 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28747" class="LineNr">28747 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28748" class="LineNr">28748 </span> (<a href='mu.subx.html#L30073'>translate-mu-write-to-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) -<span id="L28749" class="LineNr">28749 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L28750" class="LineNr">28750 </span> } -<span id="L28751" class="LineNr">28751 </span> <span class="subxH1Comment"># - optimizations</span> -<span id="L28752" class="LineNr">28752 </span> <span class="subxComment"># if copy instruction has same register in source and destination, emit nothing</span> -<span id="L28753" class="LineNr">28753 </span> (<a href='mu.subx.html#L28780'>redundant-copy?</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L28754" class="LineNr">28754 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28755" class="LineNr">28755 </span> 75/jump-if-!= $emit-subx-stmt:end/disp8 -<span id="L28756" class="LineNr">28756 </span> <span class="subxH1Comment"># - if stmt matches a primitive, emit it</span> -<span id="L28757" class="LineNr">28757 </span> { -<span id="L28758" class="LineNr">28758 </span><span class="Constant">$emit-subx-stmt:check-for-primitive</span>: -<span id="L28759" class="LineNr">28759 </span> <span class="subxComment"># var curr/eax: (addr primitive)</span> -<span id="L28760" class="LineNr">28760 </span> (<a href='mu.subx.html#L35475'>find-matching-primitive</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># primitives, stmt => eax</span> -<span id="L28761" class="LineNr">28761 </span> 3d/compare-eax-and 0/imm32 -<span id="L28762" class="LineNr">28762 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L28763" class="LineNr">28763 </span><span class="Constant">$emit-subx-stmt:primitive</span>: -<span id="L28764" class="LineNr">28764 </span> (<a href='mu.subx.html#L34946'>emit-subx-primitive</a> *(ebp+8) *(ebp+0xc) %eax) <span class="subxComment"># out, stmt, curr</span> -<span id="L28765" class="LineNr">28765 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L28766" class="LineNr">28766 </span> } -<span id="L28767" class="LineNr">28767 </span> <span class="subxH1Comment"># - otherwise emit a call</span> -<span id="L28768" class="LineNr">28768 </span> <span class="subxComment"># TODO: type-checking</span> -<span id="L28769" class="LineNr">28769 </span><span class="Constant">$emit-subx-stmt:call</span>: -<span id="L28770" class="LineNr">28770 </span> (<a href='mu.subx.html#L35215'>emit-call</a> *(ebp+8) *(ebp+0xc)) -<span id="L28771" class="LineNr">28771 </span><span class="Constant">$emit-subx-stmt:end</span>: -<span id="L28772" class="LineNr">28772 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L28773" class="LineNr">28773 </span> 59/pop-to-ecx -<span id="L28774" class="LineNr">28774 </span> 58/pop-to-eax -<span id="L28775" class="LineNr">28775 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28776" class="LineNr">28776 </span> 89/<- %esp 5/r32/ebp -<span id="L28777" class="LineNr">28777 </span> 5d/pop-to-ebp -<span id="L28778" class="LineNr">28778 </span> c3/return -<span id="L28779" class="LineNr">28779 </span> -<span id="L28780" class="LineNr">28780 </span><span class="subxFunction">redundant-copy?</span>: <span class="subxComment"># stmt: (addr stmt) -> result/eax: boolean</span> -<span id="L28781" class="LineNr">28781 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28782" class="LineNr">28782 </span> 55/push-ebp -<span id="L28783" class="LineNr">28783 </span> 89/<- %ebp 4/r32/esp -<span id="L28784" class="LineNr">28784 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L28785" class="LineNr">28785 </span> 56/push-esi -<span id="L28786" class="LineNr">28786 </span> 57/push-edi -<span id="L28787" class="LineNr">28787 </span> <span class="subxComment"># esi = stmt</span> -<span id="L28788" class="LineNr">28788 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L28789" class="LineNr">28789 </span> <span class="subxComment"># if stmt->operation != "copy" return false</span> -<span id="L28790" class="LineNr">28790 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L28791" class="LineNr">28791 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"copy"</span>) <span class="subxComment"># => eax</span> -<span id="L28792" class="LineNr">28792 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28793" class="LineNr">28793 </span> 0f 84/jump-if-= $redundant-copy?:end/disp32 -<span id="L28794" class="LineNr">28794 </span> <span class="subxComment"># var output-reg/edi: (addr stmt-var) = stmt->outputs->value->register</span> -<span id="L28795" class="LineNr">28795 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L28796" class="LineNr">28796 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L28797" class="LineNr">28797 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L28798" class="LineNr">28798 </span> <span class="subxS1Comment"># . if output-reg == null, return false</span> -<span id="L28799" class="LineNr">28799 </span> 3d/compare-eax-and 0/imm32 -<span id="L28800" class="LineNr">28800 </span> 74/jump-if-= $redundant-copy?:end/disp8 -<span id="L28801" class="LineNr">28801 </span> 89/<- %edi 0/r32/eax -<span id="L28802" class="LineNr">28802 </span> <span class="subxComment"># return (inout->value->register == output->value->register)</span> -<span id="L28803" class="LineNr">28803 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L28804" class="LineNr">28804 </span> <span class="subxS1Comment"># . if inout->is-deref return false</span> -<span id="L28805" class="LineNr">28805 </span> 81 7/subop/compare *(eax+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L28806" class="LineNr">28806 </span> { -<span id="L28807" class="LineNr">28807 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L28808" class="LineNr">28808 </span> b8/copy-to-eax 0/imm32/false -<span id="L28809" class="LineNr">28809 </span> e9/jump $redundant-copy?:end/disp32 -<span id="L28810" class="LineNr">28810 </span> } -<span id="L28811" class="LineNr">28811 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L28812" class="LineNr">28812 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L28813" class="LineNr">28813 </span> <span class="subxS1Comment"># . if inout-reg == null, return false</span> -<span id="L28814" class="LineNr">28814 </span> 3d/compare-eax-and 0/imm32 -<span id="L28815" class="LineNr">28815 </span> 74/jump-if-= $redundant-copy?:end/disp8 -<span id="L28816" class="LineNr">28816 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax %edi) <span class="subxComment"># => eax</span> -<span id="L28817" class="LineNr">28817 </span><span class="Constant">$redundant-copy?:end</span>: -<span id="L28818" class="LineNr">28818 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L28819" class="LineNr">28819 </span> 5f/pop-to-edi -<span id="L28820" class="LineNr">28820 </span> 5e/pop-to-esi -<span id="L28821" class="LineNr">28821 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28822" class="LineNr">28822 </span> 89/<- %esp 5/r32/ebp -<span id="L28823" class="LineNr">28823 </span> 5d/pop-to-ebp -<span id="L28824" class="LineNr">28824 </span> c3/return -<span id="L28825" class="LineNr">28825 </span> -<span id="L28826" class="LineNr">28826 </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="L28827" class="LineNr">28827 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28828" class="LineNr">28828 </span> 55/push-ebp -<span id="L28829" class="LineNr">28829 </span> 89/<- %ebp 4/r32/esp -<span id="L28830" class="LineNr">28830 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L28831" class="LineNr">28831 </span> 50/push-eax -<span id="L28832" class="LineNr">28832 </span> 51/push-ecx -<span id="L28833" class="LineNr">28833 </span> 52/push-edx -<span id="L28834" class="LineNr">28834 </span> 53/push-ebx -<span id="L28835" class="LineNr">28835 </span> 56/push-esi -<span id="L28836" class="LineNr">28836 </span> <span class="subxComment"># esi = stmt</span> -<span id="L28837" class="LineNr">28837 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L28838" class="LineNr">28838 </span> <span class="subxComment"># var base/ebx: (addr var) = stmt->inouts[0]->value</span> -<span id="L28839" class="LineNr">28839 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L28840" class="LineNr">28840 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L28841" class="LineNr">28841 </span> 89/<- %ebx 0/r32/eax -<span id="L28842" class="LineNr">28842 </span> <span class="subxComment"># var elemsize/ecx: int = array-element-size(base)</span> -<span id="L28843" class="LineNr">28843 </span> (<a href='mu.subx.html#L28947'>array-element-size</a> %ebx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L28844" class="LineNr">28844 </span> 89/<- %ecx 0/r32/eax -<span id="L28845" class="LineNr">28845 </span> <span class="subxComment"># var outreg/edx: (addr array byte) = stmt->outputs[0]->value->register</span> -<span id="L28846" class="LineNr">28846 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L28847" class="LineNr">28847 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L28848" class="LineNr">28848 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L28849" class="LineNr">28849 </span> 89/<- %edx 0/r32/eax -<span id="L28850" class="LineNr">28850 </span> <span class="subxComment"># if elemsize == 1</span> -<span id="L28851" class="LineNr">28851 </span> { -<span id="L28852" class="LineNr">28852 </span> 81 7/subop/compare %ecx 1/imm32 -<span id="L28853" class="LineNr">28853 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L28854" class="LineNr">28854 </span><span class="Constant">$translate-mu-length-stmt:size-1</span>: -<span id="L28855" class="LineNr">28855 </span> (<a href='mu.subx.html#L29190'>emit-save-size-to</a> *(ebp+8) %ebx %edx) -<span id="L28856" class="LineNr">28856 </span> e9/jump $translate-mu-length-stmt:end/disp32 -<span id="L28857" class="LineNr">28857 </span> } -<span id="L28858" class="LineNr">28858 </span> <span class="subxComment"># if elemsize is a power of 2 less than 256</span> -<span id="L28859" class="LineNr">28859 </span> { -<span id="L28860" class="LineNr">28860 </span> (<a href='mu.subx.html#L30199'>power-of-2?</a> %ecx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L28861" class="LineNr">28861 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28862" class="LineNr">28862 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L28863" class="LineNr">28863 </span> 81 7/subop/compare %ecx 0xff/imm32 -<span id="L28864" class="LineNr">28864 </span> 7f/jump-if-> <span class="Constant">break</span>/disp8 -<span id="L28865" class="LineNr">28865 </span><span class="Constant">$translate-mu-length-stmt:size-power-of-2</span>: -<span id="L28866" class="LineNr">28866 </span> (<a href='mu.subx.html#L29190'>emit-save-size-to</a> *(ebp+8) %ebx %edx) -<span id="L28867" class="LineNr">28867 </span> (<a href='mu.subx.html#L29233'>emit-divide-by-shift-right</a> *(ebp+8) %edx %ecx) -<span id="L28868" class="LineNr">28868 </span> e9/jump $translate-mu-length-stmt:end/disp32 -<span id="L28869" class="LineNr">28869 </span> } -<span id="L28870" class="LineNr">28870 </span> <span class="subxComment"># otherwise, the complex case</span> -<span id="L28871" class="LineNr">28871 </span> <span class="subxS1Comment"># . emit register spills</span> -<span id="L28872" class="LineNr">28872 </span> { -<span id="L28873" class="LineNr">28873 </span><span class="Constant">$translate-mu-length-stmt:complex</span>: -<span id="L28874" class="LineNr">28874 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"eax"</span>) <span class="subxComment"># => eax</span> -<span id="L28875" class="LineNr">28875 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28876" class="LineNr">28876 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 -<span id="L28877" class="LineNr">28877 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L28878" class="LineNr">28878 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"50/push-eax\n"</span>) -<span id="L28879" class="LineNr">28879 </span> } -<span id="L28880" class="LineNr">28880 </span> { -<span id="L28881" class="LineNr">28881 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"ecx"</span>) <span class="subxComment"># => eax</span> -<span id="L28882" class="LineNr">28882 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28883" class="LineNr">28883 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 -<span id="L28884" class="LineNr">28884 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L28885" class="LineNr">28885 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"51/push-ecx\n"</span>) -<span id="L28886" class="LineNr">28886 </span> } -<span id="L28887" class="LineNr">28887 </span> { -<span id="L28888" class="LineNr">28888 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"edx"</span>) <span class="subxComment"># => eax</span> -<span id="L28889" class="LineNr">28889 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28890" class="LineNr">28890 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 -<span id="L28891" class="LineNr">28891 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L28892" class="LineNr">28892 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"52/push-edx\n"</span>) -<span id="L28893" class="LineNr">28893 </span> } -<span id="L28894" class="LineNr">28894 </span> <span class="subxS1Comment"># .</span> -<span id="L28895" class="LineNr">28895 </span> (<a href='mu.subx.html#L29190'>emit-save-size-to</a> *(ebp+8) %ebx <span class="Constant">"eax"</span>) -<span id="L28896" class="LineNr">28896 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L28897" class="LineNr">28897 </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="L28898" class="LineNr">28898 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L28899" class="LineNr">28899 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"b9/copy-to-ecx "</span>) -<span id="L28900" class="LineNr">28900 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %ecx) -<span id="L28901" class="LineNr">28901 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) -<span id="L28902" class="LineNr">28902 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L28903" class="LineNr">28903 </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="L28904" class="LineNr">28904 </span> { -<span id="L28905" class="LineNr">28905 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"eax"</span>) <span class="subxComment"># => eax</span> -<span id="L28906" class="LineNr">28906 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28907" class="LineNr">28907 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 -<span id="L28908" class="LineNr">28908 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L28909" class="LineNr">28909 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"89/<- %"</span>) -<span id="L28910" class="LineNr">28910 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %edx) -<span id="L28911" class="LineNr">28911 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 0/r32/eax\n"</span>) -<span id="L28912" class="LineNr">28912 </span> } -<span id="L28913" class="LineNr">28913 </span> <span class="subxS1Comment"># . emit register restores</span> -<span id="L28914" class="LineNr">28914 </span> { -<span id="L28915" class="LineNr">28915 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"edx"</span>) <span class="subxComment"># => eax</span> -<span id="L28916" class="LineNr">28916 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28917" class="LineNr">28917 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 -<span id="L28918" class="LineNr">28918 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L28919" class="LineNr">28919 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"5a/pop-to-edx\n"</span>) -<span id="L28920" class="LineNr">28920 </span> } -<span id="L28921" class="LineNr">28921 </span> { -<span id="L28922" class="LineNr">28922 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"ecx"</span>) <span class="subxComment"># => eax</span> -<span id="L28923" class="LineNr">28923 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28924" class="LineNr">28924 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 -<span id="L28925" class="LineNr">28925 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L28926" class="LineNr">28926 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"59/pop-to-ecx\n"</span>) -<span id="L28927" class="LineNr">28927 </span> } -<span id="L28928" class="LineNr">28928 </span> { -<span id="L28929" class="LineNr">28929 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"eax"</span>) <span class="subxComment"># => eax</span> -<span id="L28930" class="LineNr">28930 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28931" class="LineNr">28931 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 -<span id="L28932" class="LineNr">28932 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L28933" class="LineNr">28933 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"58/pop-to-eax\n"</span>) -<span id="L28934" class="LineNr">28934 </span> } -<span id="L28935" class="LineNr">28935 </span><span class="Constant">$translate-mu-length-stmt:end</span>: -<span id="L28936" class="LineNr">28936 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L28937" class="LineNr">28937 </span> 5e/pop-to-esi -<span id="L28938" class="LineNr">28938 </span> 5b/pop-to-ebx -<span id="L28939" class="LineNr">28939 </span> 5a/pop-to-edx -<span id="L28940" class="LineNr">28940 </span> 59/pop-to-ecx -<span id="L28941" class="LineNr">28941 </span> 58/pop-to-eax -<span id="L28942" class="LineNr">28942 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28943" class="LineNr">28943 </span> 89/<- %esp 5/r32/ebp -<span id="L28944" class="LineNr">28944 </span> 5d/pop-to-ebp -<span id="L28945" class="LineNr">28945 </span> c3/return -<span id="L28946" class="LineNr">28946 </span> -<span id="L28947" class="LineNr">28947 </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="L28948" class="LineNr">28948 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28949" class="LineNr">28949 </span> 55/push-ebp -<span id="L28950" class="LineNr">28950 </span> 89/<- %ebp 4/r32/esp -<span id="L28951" class="LineNr">28951 </span> <span class="subxComment">#</span> -<span id="L28952" class="LineNr">28952 </span> (<a href='mu.subx.html#L28960'>array-element-type-id</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L28953" class="LineNr">28953 </span> (<a href='mu.subx.html#L29066'>size-of-type-id-as-array-element</a> %eax) <span class="subxComment"># => eax</span> -<span id="L28954" class="LineNr">28954 </span><span class="Constant">$array-element-size:end</span>: -<span id="L28955" class="LineNr">28955 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28956" class="LineNr">28956 </span> 89/<- %esp 5/r32/ebp -<span id="L28957" class="LineNr">28957 </span> 5d/pop-to-ebp -<span id="L28958" class="LineNr">28958 </span> c3/return -<span id="L28959" class="LineNr">28959 </span> -<span id="L28960" class="LineNr">28960 </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="L28961" class="LineNr">28961 </span> <span class="subxComment"># precondition: n is positive</span> -<span id="L28962" class="LineNr">28962 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28963" class="LineNr">28963 </span> 55/push-ebp -<span id="L28964" class="LineNr">28964 </span> 89/<- %ebp 4/r32/esp -<span id="L28965" class="LineNr">28965 </span> <span class="subxComment">#</span> -<span id="L28966" class="LineNr">28966 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L28967" class="LineNr">28967 </span> <span class="subxComment"># var t/eax: (addr type-tree)</span> -<span id="L28968" class="LineNr">28968 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L28969" class="LineNr">28969 </span> <span class="subxComment"># if t == 0 abort</span> -<span id="L28970" class="LineNr">28970 </span> 3d/compare-eax-with 0/imm32 -<span id="L28971" class="LineNr">28971 </span> 0f 84/jump-if-== $array-element-type-id:error0/disp32 -<span id="L28972" class="LineNr">28972 </span> <span class="subxComment"># if t->is-atom? abort</span> -<span id="L28973" class="LineNr">28973 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L28974" class="LineNr">28974 </span> 0f 85/jump-if-!= $array-element-type-id:error1/disp32 -<span id="L28975" class="LineNr">28975 </span> <span class="subxComment"># if (t->left == addr) t = t->right</span> -<span id="L28976" class="LineNr">28976 </span> { -<span id="L28977" class="LineNr">28977 </span> 50/push-eax -<span id="L28978" class="LineNr">28978 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L28979" class="LineNr">28979 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L28980" class="LineNr">28980 </span> 3d/compare-eax-with 0/imm32/false -<span id="L28981" class="LineNr">28981 </span> 58/pop-to-eax -<span id="L28982" class="LineNr">28982 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L28983" class="LineNr">28983 </span><span class="Constant">$array-element-type-id:skip-addr</span>: -<span id="L28984" class="LineNr">28984 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L28985" class="LineNr">28985 </span> } -<span id="L28986" class="LineNr">28986 </span> <span class="subxComment"># if t == 0 abort</span> -<span id="L28987" class="LineNr">28987 </span> 3d/compare-eax-with 0/imm32 -<span id="L28988" class="LineNr">28988 </span> 0f 84/jump-if-= $array-element-type-id:error2/disp32 -<span id="L28989" class="LineNr">28989 </span> <span class="subxComment"># if t->is-atom? abort</span> -<span id="L28990" class="LineNr">28990 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L28991" class="LineNr">28991 </span> 0f 85/jump-if-!= $array-element-type-id:error2/disp32 -<span id="L28992" class="LineNr">28992 </span> <span class="subxComment"># if t->left != array abort</span> -<span id="L28993" class="LineNr">28993 </span> { -<span id="L28994" class="LineNr">28994 </span> 50/push-eax -<span id="L28995" class="LineNr">28995 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L28996" class="LineNr">28996 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> -<span id="L28997" class="LineNr">28997 </span> 3d/compare-eax-with 0/imm32/false -<span id="L28998" class="LineNr">28998 </span> 58/pop-to-eax -<span id="L28999" class="LineNr">28999 </span><span class="Constant">$array-element-type-id:no-array</span>: -<span id="L29000" class="LineNr">29000 </span> 0f 84/jump-if-= $array-element-type-id:error2/disp32 -<span id="L29001" class="LineNr">29001 </span> } -<span id="L29002" class="LineNr">29002 </span><span class="Constant">$array-element-type-id:skip-array</span>: -<span id="L29003" class="LineNr">29003 </span> <span class="subxComment"># t = t->right</span> -<span id="L29004" class="LineNr">29004 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L29005" class="LineNr">29005 </span> <span class="subxComment"># if t == 0 abort</span> -<span id="L29006" class="LineNr">29006 </span> 3d/compare-eax-with 0/imm32 -<span id="L29007" class="LineNr">29007 </span> 0f 84/jump-if-= $array-element-type-id:error2/disp32 -<span id="L29008" class="LineNr">29008 </span> <span class="subxComment"># if t->is-atom? abort</span> -<span id="L29009" class="LineNr">29009 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L29010" class="LineNr">29010 </span> 0f 85/jump-if-!= $array-element-type-id:error2/disp32 -<span id="L29011" class="LineNr">29011 </span> <span class="subxComment"># t = t->left</span> -<span id="L29012" class="LineNr">29012 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L29013" class="LineNr">29013 </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="L29014" class="LineNr">29014 </span> <span class="subxComment"># if (t->is-atom == false) t = lookup(t->left)</span> -<span id="L29015" class="LineNr">29015 </span> { -<span id="L29016" class="LineNr">29016 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L29017" class="LineNr">29017 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L29018" class="LineNr">29018 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L29019" class="LineNr">29019 </span> } -<span id="L29020" class="LineNr">29020 </span> <span class="subxComment"># return t->value</span> -<span id="L29021" class="LineNr">29021 </span> 8b/-> *(eax+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> -<span id="L29022" class="LineNr">29022 </span><span class="Constant">$array-element-type-id:end</span>: -<span id="L29023" class="LineNr">29023 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29024" class="LineNr">29024 </span> 89/<- %esp 5/r32/ebp -<span id="L29025" class="LineNr">29025 </span> 5d/pop-to-ebp -<span id="L29026" class="LineNr">29026 </span> c3/return -<span id="L29027" class="LineNr">29027 </span> -<span id="L29028" class="LineNr">29028 </span><span class="Constant">$array-element-type-id:error0</span>: -<span id="L29029" class="LineNr">29029 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"array-element-type-id: var '"</span>) -<span id="L29030" class="LineNr">29030 </span> 50/push-eax -<span id="L29031" class="LineNr">29031 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L29032" class="LineNr">29032 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L29033" class="LineNr">29033 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) %eax) -<span id="L29034" class="LineNr">29034 </span> 58/pop-to-eax -<span id="L29035" class="LineNr">29035 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' has no type\n"</span>) -<span id="L29036" class="LineNr">29036 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L29037" class="LineNr">29037 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L29038" class="LineNr">29038 </span> <span class="subxComment"># never gets here</span> -<span id="L29039" class="LineNr">29039 </span> -<span id="L29040" class="LineNr">29040 </span><span class="Constant">$array-element-type-id:error1</span>: -<span id="L29041" class="LineNr">29041 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"array-element-type-id: var '"</span>) -<span id="L29042" class="LineNr">29042 </span> 50/push-eax -<span id="L29043" class="LineNr">29043 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L29044" class="LineNr">29044 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L29045" class="LineNr">29045 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) %eax) -<span id="L29046" class="LineNr">29046 </span> 58/pop-to-eax -<span id="L29047" class="LineNr">29047 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' has atomic type "</span>) -<span id="L29048" class="LineNr">29048 </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="L29049" class="LineNr">29049 </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="L29050" class="LineNr">29050 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L29051" class="LineNr">29051 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L29052" class="LineNr">29052 </span> <span class="subxComment"># never gets here</span> -<span id="L29053" class="LineNr">29053 </span> -<span id="L29054" class="LineNr">29054 </span><span class="Constant">$array-element-type-id:error2</span>: -<span id="L29055" class="LineNr">29055 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"array-element-type-id: var '"</span>) -<span id="L29056" class="LineNr">29056 </span> 50/push-eax -<span id="L29057" class="LineNr">29057 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L29058" class="LineNr">29058 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L29059" class="LineNr">29059 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) %eax) -<span id="L29060" class="LineNr">29060 </span> 58/pop-to-eax -<span id="L29061" class="LineNr">29061 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' has non-array type\n"</span>) -<span id="L29062" class="LineNr">29062 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L29063" class="LineNr">29063 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L29064" class="LineNr">29064 </span> <span class="subxComment"># never gets here</span> -<span id="L29065" class="LineNr">29065 </span> -<span id="L29066" class="LineNr">29066 </span><span class="subxFunction">size-of-type-id-as-array-element</span>: <span class="subxComment"># t: type-id -> result/eax: int</span> -<span id="L29067" class="LineNr">29067 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29068" class="LineNr">29068 </span> 55/push-ebp -<span id="L29069" class="LineNr">29069 </span> 89/<- %ebp 4/r32/esp -<span id="L29070" class="LineNr">29070 </span> <span class="subxComment"># eax = t</span> -<span id="L29071" class="LineNr">29071 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L29072" class="LineNr">29072 </span> <span class="subxComment"># if t is 'byte', size is 1</span> -<span id="L29073" class="LineNr">29073 </span> 3d/compare-eax-and 8/imm32/byte -<span id="L29074" class="LineNr">29074 </span> { -<span id="L29075" class="LineNr">29075 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L29076" class="LineNr">29076 </span> b8/copy-to-eax 1/imm32 -<span id="L29077" class="LineNr">29077 </span> eb/jump $size-of-type-id-as-array-element:end/disp8 -<span id="L29078" class="LineNr">29078 </span> } -<span id="L29079" class="LineNr">29079 </span> <span class="subxComment"># otherwise proceed as usual</span> -<span id="L29080" class="LineNr">29080 </span> (<a href='mu.subx.html#L26759'>size-of-type-id</a> %eax) <span class="subxComment"># => eax</span> -<span id="L29081" class="LineNr">29081 </span><span class="Constant">$size-of-type-id-as-array-element:end</span>: -<span id="L29082" class="LineNr">29082 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29083" class="LineNr">29083 </span> 89/<- %esp 5/r32/ebp -<span id="L29084" class="LineNr">29084 </span> 5d/pop-to-ebp -<span id="L29085" class="LineNr">29085 </span> c3/return -<span id="L29086" class="LineNr">29086 </span> -<span id="L29087" class="LineNr">29087 </span><span class="subxFunction">stream-element-type-id</span>: <span class="subxComment"># type: (addr type-tree), err: (addr buffered-file), ed: (addr exit-descriptor) -> result/eax: type-id</span> -<span id="L29088" class="LineNr">29088 </span> <span class="subxComment"># precondition: n is positive</span> -<span id="L29089" class="LineNr">29089 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29090" class="LineNr">29090 </span> 55/push-ebp -<span id="L29091" class="LineNr">29091 </span> 89/<- %ebp 4/r32/esp -<span id="L29092" class="LineNr">29092 </span> <span class="subxComment"># eax = type</span> -<span id="L29093" class="LineNr">29093 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L29094" class="LineNr">29094 </span> <span class="subxComment"># if type == 0 abort</span> -<span id="L29095" class="LineNr">29095 </span> 3d/compare-eax-with 0/imm32 -<span id="L29096" class="LineNr">29096 </span> 0f 84/jump-if-== $stream-element-type-id:error0/disp32 -<span id="L29097" class="LineNr">29097 </span> <span class="subxComment"># if type->is-atom? abort</span> -<span id="L29098" class="LineNr">29098 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L29099" class="LineNr">29099 </span> 0f 85/jump-if-!= $stream-element-type-id:error1/disp32 -<span id="L29100" class="LineNr">29100 </span> <span class="subxComment"># if (type->left == addr) type = type->right</span> -<span id="L29101" class="LineNr">29101 </span> { -<span id="L29102" class="LineNr">29102 </span> 50/push-eax -<span id="L29103" class="LineNr">29103 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L29104" class="LineNr">29104 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L29105" class="LineNr">29105 </span> 3d/compare-eax-with 0/imm32/false -<span id="L29106" class="LineNr">29106 </span> 58/pop-to-eax -<span id="L29107" class="LineNr">29107 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L29108" class="LineNr">29108 </span><span class="Constant">$stream-element-type-id:skip-addr</span>: -<span id="L29109" class="LineNr">29109 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L29110" class="LineNr">29110 </span> } -<span id="L29111" class="LineNr">29111 </span> <span class="subxComment"># if type == 0 abort</span> -<span id="L29112" class="LineNr">29112 </span> 3d/compare-eax-with 0/imm32 -<span id="L29113" class="LineNr">29113 </span> 0f 84/jump-if-= $stream-element-type-id:error2/disp32 -<span id="L29114" class="LineNr">29114 </span> <span class="subxComment"># if type->is-atom? abort</span> -<span id="L29115" class="LineNr">29115 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L29116" class="LineNr">29116 </span> 0f 85/jump-if-!= $stream-element-type-id:error2/disp32 -<span id="L29117" class="LineNr">29117 </span> <span class="subxComment"># if type->left != stream abort</span> -<span id="L29118" class="LineNr">29118 </span> { -<span id="L29119" class="LineNr">29119 </span> 50/push-eax -<span id="L29120" class="LineNr">29120 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L29121" class="LineNr">29121 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 0xb) <span class="subxComment"># stream => eax</span> -<span id="L29122" class="LineNr">29122 </span> 3d/compare-eax-with 0/imm32/false -<span id="L29123" class="LineNr">29123 </span> 58/pop-to-eax -<span id="L29124" class="LineNr">29124 </span><span class="Constant">$stream-element-type-id:no-stream</span>: -<span id="L29125" class="LineNr">29125 </span> 0f 84/jump-if-= $stream-element-type-id:error2/disp32 -<span id="L29126" class="LineNr">29126 </span> } -<span id="L29127" class="LineNr">29127 </span><span class="Constant">$stream-element-type-id:skip-stream</span>: -<span id="L29128" class="LineNr">29128 </span> <span class="subxComment"># type = type->right</span> -<span id="L29129" class="LineNr">29129 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L29130" class="LineNr">29130 </span> <span class="subxComment"># if type == 0 abort</span> -<span id="L29131" class="LineNr">29131 </span> 3d/compare-eax-with 0/imm32 -<span id="L29132" class="LineNr">29132 </span> 0f 84/jump-if-= $stream-element-type-id:error2/disp32 -<span id="L29133" class="LineNr">29133 </span> <span class="subxComment"># if type->is-atom? abort</span> -<span id="L29134" class="LineNr">29134 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L29135" class="LineNr">29135 </span> 0f 85/jump-if-!= $stream-element-type-id:error2/disp32 -<span id="L29136" class="LineNr">29136 </span> <span class="subxComment"># t = type->left</span> -<span id="L29137" class="LineNr">29137 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L29138" class="LineNr">29138 </span> <span class="subxComment"># if (!type->is-atom?) type = type->left # TODO: assumes stream element size can be determined from just first word of stream element type</span> -<span id="L29139" class="LineNr">29139 </span> { -<span id="L29140" class="LineNr">29140 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L29141" class="LineNr">29141 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L29142" class="LineNr">29142 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L29143" class="LineNr">29143 </span> } -<span id="L29144" class="LineNr">29144 </span> <span class="subxComment"># return type->value</span> -<span id="L29145" class="LineNr">29145 </span> 8b/-> *(eax+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> -<span id="L29146" class="LineNr">29146 </span><span class="Constant">$stream-element-type-id:end</span>: -<span id="L29147" class="LineNr">29147 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29148" class="LineNr">29148 </span> 89/<- %esp 5/r32/ebp -<span id="L29149" class="LineNr">29149 </span> 5d/pop-to-ebp -<span id="L29150" class="LineNr">29150 </span> c3/return -<span id="L29151" class="LineNr">29151 </span> -<span id="L29152" class="LineNr">29152 </span><span class="Constant">$stream-element-type-id:error0</span>: -<span id="L29153" class="LineNr">29153 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"stream-element-type-id: var '"</span>) -<span id="L29154" class="LineNr">29154 </span> 50/push-eax -<span id="L29155" class="LineNr">29155 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L29156" class="LineNr">29156 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L29157" class="LineNr">29157 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) %eax) -<span id="L29158" class="LineNr">29158 </span> 58/pop-to-eax -<span id="L29159" class="LineNr">29159 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' has no type\n"</span>) -<span id="L29160" class="LineNr">29160 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L29161" class="LineNr">29161 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L29162" class="LineNr">29162 </span> <span class="subxComment"># never gets here</span> -<span id="L29163" class="LineNr">29163 </span> -<span id="L29164" class="LineNr">29164 </span><span class="Constant">$stream-element-type-id:error1</span>: -<span id="L29165" class="LineNr">29165 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"stream-element-type-id: var '"</span>) -<span id="L29166" class="LineNr">29166 </span> 50/push-eax -<span id="L29167" class="LineNr">29167 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L29168" class="LineNr">29168 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L29169" class="LineNr">29169 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) %eax) -<span id="L29170" class="LineNr">29170 </span> 58/pop-to-eax -<span id="L29171" class="LineNr">29171 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' has atomic type "</span>) -<span id="L29172" class="LineNr">29172 </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="L29173" class="LineNr">29173 </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="L29174" class="LineNr">29174 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L29175" class="LineNr">29175 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L29176" class="LineNr">29176 </span> <span class="subxComment"># never gets here</span> -<span id="L29177" class="LineNr">29177 </span> -<span id="L29178" class="LineNr">29178 </span><span class="Constant">$stream-element-type-id:error2</span>: -<span id="L29179" class="LineNr">29179 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"stream-element-type-id: var '"</span>) -<span id="L29180" class="LineNr">29180 </span> 50/push-eax -<span id="L29181" class="LineNr">29181 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L29182" class="LineNr">29182 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L29183" class="LineNr">29183 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) %eax) -<span id="L29184" class="LineNr">29184 </span> 58/pop-to-eax -<span id="L29185" class="LineNr">29185 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' has non-stream type\n"</span>) -<span id="L29186" class="LineNr">29186 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L29187" class="LineNr">29187 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L29188" class="LineNr">29188 </span> <span class="subxComment"># never gets here</span> -<span id="L29189" class="LineNr">29189 </span> -<span id="L29190" class="LineNr">29190 </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="L29191" class="LineNr">29191 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29192" class="LineNr">29192 </span> 55/push-ebp -<span id="L29193" class="LineNr">29193 </span> 89/<- %ebp 4/r32/esp -<span id="L29194" class="LineNr">29194 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L29195" class="LineNr">29195 </span> 50/push-eax -<span id="L29196" class="LineNr">29196 </span> 53/push-ebx -<span id="L29197" class="LineNr">29197 </span> <span class="subxComment"># ebx = base</span> -<span id="L29198" class="LineNr">29198 </span> 8b/-> *(ebp+0xc) 3/r32/ebx -<span id="L29199" class="LineNr">29199 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L29200" class="LineNr">29200 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8b/-> *"</span>) -<span id="L29201" class="LineNr">29201 </span> <span class="subxComment"># if base is an (addr array ...) in a register</span> -<span id="L29202" class="LineNr">29202 </span> { -<span id="L29203" class="LineNr">29203 </span> 81 7/subop/compare *(ebx+0x18)) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L29204" class="LineNr">29204 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L29205" class="LineNr">29205 </span><span class="Constant">$emit-save-size-to:emit-base-from-register</span>: -<span id="L29206" class="LineNr">29206 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L29207" class="LineNr">29207 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L29208" class="LineNr">29208 </span> eb/jump $emit-save-size-to:emit-output/disp8 -<span id="L29209" class="LineNr">29209 </span> } -<span id="L29210" class="LineNr">29210 </span> <span class="subxComment"># otherwise if base is an (array ...) on the stack</span> -<span id="L29211" class="LineNr">29211 </span> { -<span id="L29212" class="LineNr">29212 </span> 81 7/subop/compare *(ebx+0x14)) 0/imm32 <span class="subxComment"># Var-offset</span> -<span id="L29213" class="LineNr">29213 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L29214" class="LineNr">29214 </span><span class="Constant">$emit-save-size-to:emit-base-from-stack</span>: -<span id="L29215" class="LineNr">29215 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(ebp+"</span>) -<span id="L29216" class="LineNr">29216 </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="L29217" class="LineNr">29217 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) -<span id="L29218" class="LineNr">29218 </span> } -<span id="L29219" class="LineNr">29219 </span><span class="Constant">$emit-save-size-to:emit-output</span>: -<span id="L29220" class="LineNr">29220 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) -<span id="L29221" class="LineNr">29221 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19375'>Mu-registers</a></span> *(ebp+0x10) 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax</span> -<span id="L29222" class="LineNr">29222 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L29223" class="LineNr">29223 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) -<span id="L29224" class="LineNr">29224 </span><span class="Constant">$emit-save-size-to:end</span>: -<span id="L29225" class="LineNr">29225 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L29226" class="LineNr">29226 </span> 5b/pop-to-ebx -<span id="L29227" class="LineNr">29227 </span> 58/pop-to-eax -<span id="L29228" class="LineNr">29228 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29229" class="LineNr">29229 </span> 89/<- %esp 5/r32/ebp -<span id="L29230" class="LineNr">29230 </span> 5d/pop-to-ebp -<span id="L29231" class="LineNr">29231 </span> c3/return -<span id="L29232" class="LineNr">29232 </span> -<span id="L29233" class="LineNr">29233 </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="L29234" class="LineNr">29234 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29235" class="LineNr">29235 </span> 55/push-ebp -<span id="L29236" class="LineNr">29236 </span> 89/<- %ebp 4/r32/esp -<span id="L29237" class="LineNr">29237 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L29238" class="LineNr">29238 </span> 50/push-eax -<span id="L29239" class="LineNr">29239 </span> <span class="subxComment">#</span> -<span id="L29240" class="LineNr">29240 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L29241" class="LineNr">29241 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"c1/shift 5/subop/>> %"</span>) -<span id="L29242" class="LineNr">29242 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0xc)) -<span id="L29243" class="LineNr">29243 </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="L29244" class="LineNr">29244 </span> (<a href='mu.subx.html#L30229'>num-shift-rights</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L29245" class="LineNr">29245 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L29246" class="LineNr">29246 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm8\n"</span>) -<span id="L29247" class="LineNr">29247 </span><span class="Constant">$emit-divide-by-shift-right:end</span>: -<span id="L29248" class="LineNr">29248 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L29249" class="LineNr">29249 </span> 58/pop-to-eax -<span id="L29250" class="LineNr">29250 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29251" class="LineNr">29251 </span> 89/<- %esp 5/r32/ebp -<span id="L29252" class="LineNr">29252 </span> 5d/pop-to-ebp -<span id="L29253" class="LineNr">29253 </span> c3/return -<span id="L29254" class="LineNr">29254 </span> -<span id="L29255" class="LineNr">29255 </span><span class="subxFunction">translate-mu-copy-byte-stmt</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L29256" class="LineNr">29256 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29257" class="LineNr">29257 </span> 55/push-ebp -<span id="L29258" class="LineNr">29258 </span> 89/<- %ebp 4/r32/esp -<span id="L29259" class="LineNr">29259 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L29260" class="LineNr">29260 </span> 50/push-eax -<span id="L29261" class="LineNr">29261 </span> 56/push-esi -<span id="L29262" class="LineNr">29262 </span> <span class="subxComment"># esi = stmt</span> -<span id="L29263" class="LineNr">29263 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L29264" class="LineNr">29264 </span> <span class="subxComment">#</span> -<span id="L29265" class="LineNr">29265 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L29266" class="LineNr">29266 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8a/byte->"</span>) -<span id="L29267" class="LineNr">29267 </span> <span class="subxComment"># emit stmt->inouts[0]</span> -<span id="L29268" class="LineNr">29268 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L29269" class="LineNr">29269 </span> (<a href='mu.subx.html#L35416'>emit-subx-var-as-rm32</a> *(ebp+8) %eax) -<span id="L29270" class="LineNr">29270 </span> <span class="subxComment"># emit /r32 for stmt->outputs[0]->register</span> -<span id="L29271" class="LineNr">29271 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L29272" class="LineNr">29272 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L29273" class="LineNr">29273 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L29274" class="LineNr">29274 </span> (<a href='131table.subx.html#L1800'>maybe-get</a> <span class="SpecialChar"><a href='mu.subx.html#L19375'>Mu-registers</a></span> %eax 0xc) <span class="subxComment"># => eax: (addr register-index)</span> -<span id="L29275" class="LineNr">29275 </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="L29276" class="LineNr">29276 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L29277" class="LineNr">29277 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) -<span id="L29278" class="LineNr">29278 </span> <span class="subxComment"># clear rest of register</span> -<span id="L29279" class="LineNr">29279 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L29280" class="LineNr">29280 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 4/subop/and %"</span>) -<span id="L29281" class="LineNr">29281 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L29282" class="LineNr">29282 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L29283" class="LineNr">29283 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L29284" class="LineNr">29284 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L29285" class="LineNr">29285 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L29286" class="LineNr">29286 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 0xff/imm32\n"</span>) -<span id="L29287" class="LineNr">29287 </span><span class="Constant">$translate-mu-copy-byte-stmt:end</span>: -<span id="L29288" class="LineNr">29288 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L29289" class="LineNr">29289 </span> 5e/pop-to-esi -<span id="L29290" class="LineNr">29290 </span> 58/pop-to-eax -<span id="L29291" class="LineNr">29291 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29292" class="LineNr">29292 </span> 89/<- %esp 5/r32/ebp -<span id="L29293" class="LineNr">29293 </span> 5d/pop-to-ebp -<span id="L29294" class="LineNr">29294 </span> c3/return -<span id="L29295" class="LineNr">29295 </span> -<span id="L29296" class="LineNr">29296 </span><span class="subxComment"># a little different from other translate- functions; notice the extra 'fn' argument</span> -<span id="L29297" class="LineNr">29297 </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="L29298" class="LineNr">29298 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29299" class="LineNr">29299 </span> 55/push-ebp -<span id="L29300" class="LineNr">29300 </span> 89/<- %ebp 4/r32/esp -<span id="L29301" class="LineNr">29301 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L29302" class="LineNr">29302 </span> 53/push-ebx -<span id="L29303" class="LineNr">29303 </span> <span class="subxComment"># ebx = stmt</span> -<span id="L29304" class="LineNr">29304 </span> 8b/-> *(ebp+0xc) 3/r32/ebx -<span id="L29305" class="LineNr">29305 </span> <span class="subxComment"># var base/ebx: (addr var) = stmt->inouts[0]</span> -<span id="L29306" class="LineNr">29306 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L29307" class="LineNr">29307 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L29308" class="LineNr">29308 </span> 89/<- %ebx 0/r32/eax -<span id="L29309" class="LineNr">29309 </span> <span class="subxComment"># emit bounds-check</span> -<span id="L29310" class="LineNr">29310 </span> (<a href='mu.subx.html#L29347'>emit-mu-index-bounds-check</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18)) -<span id="L29311" class="LineNr">29311 </span> <span class="subxComment"># if (var->register) do one thing</span> -<span id="L29312" class="LineNr">29312 </span> { -<span id="L29313" class="LineNr">29313 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L29314" class="LineNr">29314 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L29315" class="LineNr">29315 </span> <span class="subxComment"># TODO: ensure there's no dereference</span> -<span id="L29316" class="LineNr">29316 </span> (<a href='mu.subx.html#L29466'>translate-mu-index-stmt-with-array-in-register</a> *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) -<span id="L29317" class="LineNr">29317 </span> eb/jump $translate-mu-index-stmt:end/disp8 -<span id="L29318" class="LineNr">29318 </span> } -<span id="L29319" class="LineNr">29319 </span> <span class="subxComment"># if (var->offset) do a different thing</span> -<span id="L29320" class="LineNr">29320 </span> { -<span id="L29321" class="LineNr">29321 </span> 81 7/subop/compare *(ebx+0x14) 0/imm32 <span class="subxComment"># Var-offset</span> -<span id="L29322" class="LineNr">29322 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L29323" class="LineNr">29323 </span> <span class="subxComment"># TODO: ensure there's no dereference</span> -<span id="L29324" class="LineNr">29324 </span> (<a href='mu.subx.html#L29582'>translate-mu-index-stmt-with-array-on-stack</a> *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) -<span id="L29325" class="LineNr">29325 </span> eb/jump $translate-mu-index-stmt:end/disp8 -<span id="L29326" class="LineNr">29326 </span> } -<span id="L29327" class="LineNr">29327 </span><span class="Constant">$translate-mu-index-stmt:end</span>: -<span id="L29328" class="LineNr">29328 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L29329" class="LineNr">29329 </span> 5b/pop-to-ebx -<span id="L29330" class="LineNr">29330 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29331" class="LineNr">29331 </span> 89/<- %esp 5/r32/ebp -<span id="L29332" class="LineNr">29332 </span> 5d/pop-to-ebp -<span id="L29333" class="LineNr">29333 </span> c3/return -<span id="L29334" class="LineNr">29334 </span> -<span id="L29335" class="LineNr">29335 </span><span class="Constant">$translate-mu-index-stmt:error1</span>: -<span id="L29336" class="LineNr">29336 </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="L29337" class="LineNr">29337 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L29338" class="LineNr">29338 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L29339" class="LineNr">29339 </span> <span class="subxComment"># never gets here</span> -<span id="L29340" class="LineNr">29340 </span> -<span id="L29341" class="LineNr">29341 </span><span class="Constant">$translate-mu-index-stmt:error2</span>: -<span id="L29342" class="LineNr">29342 </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="L29343" class="LineNr">29343 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L29344" class="LineNr">29344 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L29345" class="LineNr">29345 </span> <span class="subxComment"># never gets here</span> -<span id="L29346" class="LineNr">29346 </span> -<span id="L29347" class="LineNr">29347 </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="L29348" class="LineNr">29348 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29349" class="LineNr">29349 </span> 55/push-ebp -<span id="L29350" class="LineNr">29350 </span> 89/<- %ebp 4/r32/esp -<span id="L29351" class="LineNr">29351 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L29352" class="LineNr">29352 </span> 50/push-eax -<span id="L29353" class="LineNr">29353 </span> 51/push-ecx -<span id="L29354" class="LineNr">29354 </span> 52/push-edx -<span id="L29355" class="LineNr">29355 </span> 53/push-ebx -<span id="L29356" class="LineNr">29356 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L29357" class="LineNr">29357 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L29358" class="LineNr">29358 </span> <span class="subxComment">#</span> -<span id="L29359" class="LineNr">29359 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L29360" class="LineNr">29360 </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="L29361" class="LineNr">29361 </span><span class="Constant">$emit-mu-index-bounds-check:compute-base</span>: -<span id="L29362" class="LineNr">29362 </span> <span class="subxComment"># var base/ebx: (addr var) = inouts[0]</span> -<span id="L29363" class="LineNr">29363 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L29364" class="LineNr">29364 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L29365" class="LineNr">29365 </span> 89/<- %ebx 0/r32/eax -<span id="L29366" class="LineNr">29366 </span><span class="Constant">$emit-mu-index-bounds-check:emit-index</span>: -<span id="L29367" class="LineNr">29367 </span> <span class="subxComment"># var index/edx: (addr var) = inouts[1]</span> -<span id="L29368" class="LineNr">29368 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L29369" class="LineNr">29369 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L29370" class="LineNr">29370 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L29371" class="LineNr">29371 </span> 89/<- %edx 0/r32/eax -<span id="L29372" class="LineNr">29372 </span> <span class="subxComment"># if index->register, print its code</span> -<span id="L29373" class="LineNr">29373 </span> 81 7/subop/compare *(edx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L29374" class="LineNr">29374 </span> { -<span id="L29375" class="LineNr">29375 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L29376" class="LineNr">29376 </span><span class="Constant">$emit-mu-index-bounds-check:emit-register-index</span>: -<span id="L29377" class="LineNr">29377 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"%"</span>) -<span id="L29378" class="LineNr">29378 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L29379" class="LineNr">29379 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L29380" class="LineNr">29380 </span> eb/jump $emit-mu-index-bounds-check:index-done/disp8 -<span id="L29381" class="LineNr">29381 </span> } -<span id="L29382" class="LineNr">29382 </span> <span class="subxComment"># otherwise if index is a literal, print it</span> -<span id="L29383" class="LineNr">29383 </span><span class="Constant">$emit-mu-index-bounds-check:emit-literal-index</span>: -<span id="L29384" class="LineNr">29384 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L29385" class="LineNr">29385 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> -<span id="L29386" class="LineNr">29386 </span> 3d/compare-eax-and 0/imm32/false -<span id="L29387" class="LineNr">29387 </span> { -<span id="L29388" class="LineNr">29388 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L29389" class="LineNr">29389 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L29390" class="LineNr">29390 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L29391" class="LineNr">29391 </span> } -<span id="L29392" class="LineNr">29392 </span><span class="Constant">$emit-mu-index-bounds-check:index-done</span>: -<span id="L29393" class="LineNr">29393 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) -<span id="L29394" class="LineNr">29394 </span><span class="Constant">$emit-mu-index-bounds-check:emit-element-size</span>: -<span id="L29395" class="LineNr">29395 </span> <span class="subxComment"># if index is a literal or int, print size of array element</span> -<span id="L29396" class="LineNr">29396 </span> { -<span id="L29397" class="LineNr">29397 </span> { -<span id="L29398" class="LineNr">29398 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L29399" class="LineNr">29399 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 0) <span class="subxComment"># literal => eax</span> -<span id="L29400" class="LineNr">29400 </span> 3d/compare-eax-and 0/imm32/false -<span id="L29401" class="LineNr">29401 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L29402" class="LineNr">29402 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L29403" class="LineNr">29403 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 1) <span class="subxComment"># int => eax</span> -<span id="L29404" class="LineNr">29404 </span> 3d/compare-eax-and 0/imm32/false -<span id="L29405" class="LineNr">29405 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L29406" class="LineNr">29406 </span> eb/jump $emit-mu-index-bounds-check:emit-element-size-offset/disp8 -<span id="L29407" class="LineNr">29407 </span> } -<span id="L29408" class="LineNr">29408 </span><span class="Constant">$emit-mu-index-bounds-check:emit-int-register-index</span>: -<span id="L29409" class="LineNr">29409 </span> (<a href='mu.subx.html#L28947'>array-element-size</a> %ebx *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> -<span id="L29410" class="LineNr">29410 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L29411" class="LineNr">29411 </span> e9/jump $emit-mu-index-bounds-check:emit-base/disp32 -<span id="L29412" class="LineNr">29412 </span> } -<span id="L29413" class="LineNr">29413 </span><span class="Constant">$emit-mu-index-bounds-check:emit-element-size-offset</span>: -<span id="L29414" class="LineNr">29414 </span> <span class="subxComment"># if index has type (offset ...), print "1"</span> -<span id="L29415" class="LineNr">29415 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L29416" class="LineNr">29416 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L28557" class="LineNr">28557 </span> <span class="subxComment"># another special-case for initializing streams</span> +<span id="L28558" class="LineNr">28558 </span> <span class="subxComment"># a stream is an array with 2 extra pointers</span> +<span id="L28559" class="LineNr">28559 </span> { +<span id="L28560" class="LineNr">28560 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L28561" class="LineNr">28561 </span> (<a href='mu.subx.html#L26737'>mu-stream?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L28562" class="LineNr">28562 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28563" class="LineNr">28563 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28564" class="LineNr">28564 </span> <span class="subxComment"># var array-size-without-size/edx: int = n-12</span> +<span id="L28565" class="LineNr">28565 </span> 81 5/subop/subtract %edx 0xc/imm32 +<span id="L28566" class="LineNr">28566 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L28567" class="LineNr">28567 </span> (<a href='mu.subx.html#L28616'>emit-stream-data-initialization</a> *(ebp+8) %edx %eax *(ebp+0x10) *(ebp+0x14)) +<span id="L28568" class="LineNr">28568 </span> <span class="subxComment"># emit read and write pointers</span> +<span id="L28569" class="LineNr">28569 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L28570" class="LineNr">28570 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"68/push 0/imm32\n"</span>) +<span id="L28571" class="LineNr">28571 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L28572" class="LineNr">28572 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"68/push 0/imm32\n"</span>) +<span id="L28573" class="LineNr">28573 </span> <span class="subxComment">#</span> +<span id="L28574" class="LineNr">28574 </span> eb/jump $emit-subx-var-def:end/disp8 +<span id="L28575" class="LineNr">28575 </span> } +<span id="L28576" class="LineNr">28576 </span> <span class="subxComment"># while n > 0</span> +<span id="L28577" class="LineNr">28577 </span> { +<span id="L28578" class="LineNr">28578 </span> 81 7/subop/compare %edx 0/imm32 +<span id="L28579" class="LineNr">28579 </span> 7e/jump-if-<= <span class="Constant">break</span>/disp8 +<span id="L28580" class="LineNr">28580 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L28581" class="LineNr">28581 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"68/push 0/imm32\n"</span>) +<span id="L28582" class="LineNr">28582 </span> <span class="subxComment"># n -= 4</span> +<span id="L28583" class="LineNr">28583 </span> 81 5/subop/subtract %edx 4/imm32 +<span id="L28584" class="LineNr">28584 </span> <span class="subxComment">#</span> +<span id="L28585" class="LineNr">28585 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L28586" class="LineNr">28586 </span> } +<span id="L28587" class="LineNr">28587 </span><span class="Constant">$emit-subx-var-def:end</span>: +<span id="L28588" class="LineNr">28588 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28589" class="LineNr">28589 </span> 5a/pop-to-edx +<span id="L28590" class="LineNr">28590 </span> 59/pop-to-ecx +<span id="L28591" class="LineNr">28591 </span> 58/pop-to-eax +<span id="L28592" class="LineNr">28592 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28593" class="LineNr">28593 </span> 89/<- %esp 5/r32/ebp +<span id="L28594" class="LineNr">28594 </span> 5d/pop-to-ebp +<span id="L28595" class="LineNr">28595 </span> c3/return +<span id="L28596" class="LineNr">28596 </span> +<span id="L28597" class="LineNr">28597 </span><span class="subxFunction">emit-array-data-initialization</span>: <span class="subxComment"># out: (addr buffered-file), n: int</span> +<span id="L28598" class="LineNr">28598 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28599" class="LineNr">28599 </span> 55/push-ebp +<span id="L28600" class="LineNr">28600 </span> 89/<- %ebp 4/r32/esp +<span id="L28601" class="LineNr">28601 </span> <span class="subxComment">#</span> +<span id="L28602" class="LineNr">28602 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L28603" class="LineNr">28603 </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="L28604" class="LineNr">28604 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *(ebp+0xc)) +<span id="L28605" class="LineNr">28605 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L28606" class="LineNr">28606 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L28607" class="LineNr">28607 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"68/push "</span>) +<span id="L28608" class="LineNr">28608 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *(ebp+0xc)) +<span id="L28609" class="LineNr">28609 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) +<span id="L28610" class="LineNr">28610 </span><span class="Constant">$emit-array-data-initialization:end</span>: +<span id="L28611" class="LineNr">28611 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28612" class="LineNr">28612 </span> 89/<- %esp 5/r32/ebp +<span id="L28613" class="LineNr">28613 </span> 5d/pop-to-ebp +<span id="L28614" class="LineNr">28614 </span> c3/return +<span id="L28615" class="LineNr">28615 </span> +<span id="L28616" class="LineNr">28616 </span><span class="subxFunction">emit-stream-data-initialization</span>: <span class="subxComment"># out: (addr buffered-file), n: int, type: (addr type-tree), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L28617" class="LineNr">28617 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28618" class="LineNr">28618 </span> 55/push-ebp +<span id="L28619" class="LineNr">28619 </span> 89/<- %ebp 4/r32/esp +<span id="L28620" class="LineNr">28620 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28621" class="LineNr">28621 </span> 50/push-eax +<span id="L28622" class="LineNr">28622 </span> <span class="subxComment"># Optimization: if it's a stream of bytes, don't initialize.</span> +<span id="L28623" class="LineNr">28623 </span> <span class="subxComment">#</span> +<span id="L28624" class="LineNr">28624 </span> <span class="subxComment"># We often construct large temporary streams on the stack for 'trace'</span> +<span id="L28625" class="LineNr">28625 </span> <span class="subxComment"># statements. Initializing such streams can significantly slow programs</span> +<span id="L28626" class="LineNr">28626 </span> <span class="subxComment"># down.</span> +<span id="L28627" class="LineNr">28627 </span> <span class="subxComment">#</span> +<span id="L28628" class="LineNr">28628 </span> <span class="subxComment"># Mu doesn't really depend on initializing stream contents for type- or</span> +<span id="L28629" class="LineNr">28629 </span> <span class="subxComment"># memory-safety; we're mostly doing so to make it easy to debug unsafe</span> +<span id="L28630" class="LineNr">28630 </span> <span class="subxComment"># SubX code that misuses stream objects by manipulating read/write</span> +<span id="L28631" class="LineNr">28631 </span> <span class="subxComment"># pointers. But you can't _really_ protect from unsafe SubX, so I think we</span> +<span id="L28632" class="LineNr">28632 </span> <span class="subxComment"># don't give up much safety or security here.</span> +<span id="L28633" class="LineNr">28633 </span> { +<span id="L28634" class="LineNr">28634 </span> (<a href='mu.subx.html#L29117'>stream-element-type-id</a> *(ebp+0x10) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> +<span id="L28635" class="LineNr">28635 </span> 3d/compare-eax-and 8/imm32/byte +<span id="L28636" class="LineNr">28636 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L28637" class="LineNr">28637 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L28638" class="LineNr">28638 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 5/subop/subtract %esp "</span>) +<span id="L28639" class="LineNr">28639 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *(ebp+0xc)) +<span id="L28640" class="LineNr">28640 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) +<span id="L28641" class="LineNr">28641 </span> eb/jump $emit-stream-data-initialization:emit-length/disp8 +<span id="L28642" class="LineNr">28642 </span> } +<span id="L28643" class="LineNr">28643 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L28644" class="LineNr">28644 </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="L28645" class="LineNr">28645 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *(ebp+0xc)) +<span id="L28646" class="LineNr">28646 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L28647" class="LineNr">28647 </span><span class="Constant">$emit-stream-data-initialization:emit-length</span>: +<span id="L28648" class="LineNr">28648 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L28649" class="LineNr">28649 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"68/push "</span>) +<span id="L28650" class="LineNr">28650 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *(ebp+0xc)) +<span id="L28651" class="LineNr">28651 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) +<span id="L28652" class="LineNr">28652 </span><span class="Constant">$emit-stream-data-initialization:end</span>: +<span id="L28653" class="LineNr">28653 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28654" class="LineNr">28654 </span> 58/pop-to-eax +<span id="L28655" class="LineNr">28655 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28656" class="LineNr">28656 </span> 89/<- %esp 5/r32/ebp +<span id="L28657" class="LineNr">28657 </span> 5d/pop-to-ebp +<span id="L28658" class="LineNr">28658 </span> c3/return +<span id="L28659" class="LineNr">28659 </span> +<span id="L28660" class="LineNr">28660 </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="L28661" class="LineNr">28661 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28662" class="LineNr">28662 </span> 55/push-ebp +<span id="L28663" class="LineNr">28663 </span> 89/<- %ebp 4/r32/esp +<span id="L28664" class="LineNr">28664 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28665" class="LineNr">28665 </span> 50/push-eax +<span id="L28666" class="LineNr">28666 </span> 51/push-ecx +<span id="L28667" class="LineNr">28667 </span> <span class="subxH1Comment"># - some special-case primitives that don't actually use the 'primitives' data structure</span> +<span id="L28668" class="LineNr">28668 </span> <span class="subxComment"># var op/ecx: (addr array byte) = lookup(stmt->operation)</span> +<span id="L28669" class="LineNr">28669 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L28670" class="LineNr">28670 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L28671" class="LineNr">28671 </span> 89/<- %ecx 0/r32/eax +<span id="L28672" class="LineNr">28672 </span> <span class="subxComment"># copy byte (can be a primitive except we need to emit a second instruction)</span> +<span id="L28673" class="LineNr">28673 </span> { +<span id="L28674" class="LineNr">28674 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "copy-byte")) break</span> +<span id="L28675" class="LineNr">28675 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"copy-byte"</span>) <span class="subxComment"># => eax</span> +<span id="L28676" class="LineNr">28676 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28677" class="LineNr">28677 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28678" class="LineNr">28678 </span> (<a href='mu.subx.html#L29285'>translate-mu-copy-byte-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) +<span id="L28679" class="LineNr">28679 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L28680" class="LineNr">28680 </span> } +<span id="L28681" class="LineNr">28681 </span> <span class="subxComment"># copy-byte-to can be a primitive; writes to memory don't need to clear surrounding bytes</span> +<span id="L28682" class="LineNr">28682 </span> <span class="subxComment"># array size</span> +<span id="L28683" class="LineNr">28683 </span> { +<span id="L28684" class="LineNr">28684 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "length")) break</span> +<span id="L28685" class="LineNr">28685 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"length"</span>) <span class="subxComment"># => eax</span> +<span id="L28686" class="LineNr">28686 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28687" class="LineNr">28687 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28688" class="LineNr">28688 </span> (<a href='mu.subx.html#L28856'>translate-mu-length-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) +<span id="L28689" class="LineNr">28689 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L28690" class="LineNr">28690 </span> } +<span id="L28691" class="LineNr">28691 </span> <span class="subxComment"># index into array</span> +<span id="L28692" class="LineNr">28692 </span> { +<span id="L28693" class="LineNr">28693 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "index")) break</span> +<span id="L28694" class="LineNr">28694 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"index"</span>) <span class="subxComment"># => eax</span> +<span id="L28695" class="LineNr">28695 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28696" class="LineNr">28696 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28697" class="LineNr">28697 </span> (<a href='mu.subx.html#L29327'>translate-mu-index-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L28698" class="LineNr">28698 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L28699" class="LineNr">28699 </span> } +<span id="L28700" class="LineNr">28700 </span> <span class="subxComment"># compute-offset for index into array</span> +<span id="L28701" class="LineNr">28701 </span> { +<span id="L28702" class="LineNr">28702 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "compute-offset")) break</span> +<span id="L28703" class="LineNr">28703 </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="L28704" class="LineNr">28704 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28705" class="LineNr">28705 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28706" class="LineNr">28706 </span> (<a href='mu.subx.html#L29739'>translate-mu-compute-index-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) +<span id="L28707" class="LineNr">28707 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L28708" class="LineNr">28708 </span> } +<span id="L28709" class="LineNr">28709 </span> <span class="subxComment"># get field from record</span> +<span id="L28710" class="LineNr">28710 </span> { +<span id="L28711" class="LineNr">28711 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "get")) break</span> +<span id="L28712" class="LineNr">28712 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"get"</span>) <span class="subxComment"># => eax</span> +<span id="L28713" class="LineNr">28713 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28714" class="LineNr">28714 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28715" class="LineNr">28715 </span> (<a href='mu.subx.html#L29787'>translate-mu-get-stmt</a> *(ebp+8) *(ebp+0xc)) +<span id="L28716" class="LineNr">28716 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L28717" class="LineNr">28717 </span> } +<span id="L28718" class="LineNr">28718 </span> <span class="subxComment"># allocate scalar</span> +<span id="L28719" class="LineNr">28719 </span> { +<span id="L28720" class="LineNr">28720 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "allocate")) break</span> +<span id="L28721" class="LineNr">28721 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"allocate"</span>) <span class="subxComment"># => eax</span> +<span id="L28722" class="LineNr">28722 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28723" class="LineNr">28723 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28724" class="LineNr">28724 </span> (<a href='mu.subx.html#L29924'>translate-mu-allocate-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) +<span id="L28725" class="LineNr">28725 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L28726" class="LineNr">28726 </span> } +<span id="L28727" class="LineNr">28727 </span> <span class="subxComment"># copy-object</span> +<span id="L28728" class="LineNr">28728 </span> { +<span id="L28729" class="LineNr">28729 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "copy-object")) break</span> +<span id="L28730" class="LineNr">28730 </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="L28731" class="LineNr">28731 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28732" class="LineNr">28732 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28733" class="LineNr">28733 </span> (<a href='mu.subx.html#L29867'>translate-mu-copy-object-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) +<span id="L28734" class="LineNr">28734 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L28735" class="LineNr">28735 </span> } +<span id="L28736" class="LineNr">28736 </span> <span class="subxComment"># clear-object</span> +<span id="L28737" class="LineNr">28737 </span> { +<span id="L28738" class="LineNr">28738 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "clear-object")) break</span> +<span id="L28739" class="LineNr">28739 </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="L28740" class="LineNr">28740 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28741" class="LineNr">28741 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28742" class="LineNr">28742 </span> (<a href='mu.subx.html#L29897'>translate-mu-clear-object-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) +<span id="L28743" class="LineNr">28743 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L28744" class="LineNr">28744 </span> } +<span id="L28745" class="LineNr">28745 </span> <span class="subxComment"># allocate array</span> +<span id="L28746" class="LineNr">28746 </span> { +<span id="L28747" class="LineNr">28747 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "populate")) break</span> +<span id="L28748" class="LineNr">28748 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"populate"</span>) <span class="subxComment"># => eax</span> +<span id="L28749" class="LineNr">28749 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28750" class="LineNr">28750 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28751" class="LineNr">28751 </span> (<a href='mu.subx.html#L30020'>translate-mu-populate-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) +<span id="L28752" class="LineNr">28752 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L28753" class="LineNr">28753 </span> } +<span id="L28754" class="LineNr">28754 </span> <span class="subxComment"># allocate stream</span> +<span id="L28755" class="LineNr">28755 </span> { +<span id="L28756" class="LineNr">28756 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "populate-stream")) break</span> +<span id="L28757" class="LineNr">28757 </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="L28758" class="LineNr">28758 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28759" class="LineNr">28759 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28760" class="LineNr">28760 </span> (<a href='mu.subx.html#L30056'>translate-mu-populate-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) +<span id="L28761" class="LineNr">28761 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L28762" class="LineNr">28762 </span> } +<span id="L28763" class="LineNr">28763 </span> <span class="subxComment"># read from stream</span> +<span id="L28764" class="LineNr">28764 </span> { +<span id="L28765" class="LineNr">28765 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "read-from-stream")) break</span> +<span id="L28766" class="LineNr">28766 </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="L28767" class="LineNr">28767 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28768" class="LineNr">28768 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28769" class="LineNr">28769 </span> (<a href='mu.subx.html#L30092'>translate-mu-read-from-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) +<span id="L28770" class="LineNr">28770 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L28771" class="LineNr">28771 </span> } +<span id="L28772" class="LineNr">28772 </span> <span class="subxComment"># write to stream</span> +<span id="L28773" class="LineNr">28773 </span> { +<span id="L28774" class="LineNr">28774 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "write-to-stream")) break</span> +<span id="L28775" class="LineNr">28775 </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="L28776" class="LineNr">28776 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28777" class="LineNr">28777 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28778" class="LineNr">28778 </span> (<a href='mu.subx.html#L30129'>translate-mu-write-to-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) +<span id="L28779" class="LineNr">28779 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L28780" class="LineNr">28780 </span> } +<span id="L28781" class="LineNr">28781 </span> <span class="subxH1Comment"># - optimizations</span> +<span id="L28782" class="LineNr">28782 </span> <span class="subxComment"># if copy instruction has same register in source and destination, emit nothing</span> +<span id="L28783" class="LineNr">28783 </span> (<a href='mu.subx.html#L28810'>redundant-copy?</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L28784" class="LineNr">28784 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28785" class="LineNr">28785 </span> 75/jump-if-!= $emit-subx-stmt:end/disp8 +<span id="L28786" class="LineNr">28786 </span> <span class="subxH1Comment"># - if stmt matches a primitive, emit it</span> +<span id="L28787" class="LineNr">28787 </span> { +<span id="L28788" class="LineNr">28788 </span><span class="Constant">$emit-subx-stmt:check-for-primitive</span>: +<span id="L28789" class="LineNr">28789 </span> <span class="subxComment"># var curr/eax: (addr primitive)</span> +<span id="L28790" class="LineNr">28790 </span> (<a href='mu.subx.html#L35804'>find-matching-primitive</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># primitives, stmt => eax</span> +<span id="L28791" class="LineNr">28791 </span> 3d/compare-eax-and 0/imm32 +<span id="L28792" class="LineNr">28792 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L28793" class="LineNr">28793 </span><span class="Constant">$emit-subx-stmt:primitive</span>: +<span id="L28794" class="LineNr">28794 </span> (<a href='mu.subx.html#L35275'>emit-subx-primitive</a> *(ebp+8) *(ebp+0xc) %eax) <span class="subxComment"># out, stmt, curr</span> +<span id="L28795" class="LineNr">28795 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L28796" class="LineNr">28796 </span> } +<span id="L28797" class="LineNr">28797 </span> <span class="subxH1Comment"># - otherwise emit a call</span> +<span id="L28798" class="LineNr">28798 </span> <span class="subxComment"># TODO: type-checking</span> +<span id="L28799" class="LineNr">28799 </span><span class="Constant">$emit-subx-stmt:call</span>: +<span id="L28800" class="LineNr">28800 </span> (<a href='mu.subx.html#L35544'>emit-call</a> *(ebp+8) *(ebp+0xc)) +<span id="L28801" class="LineNr">28801 </span><span class="Constant">$emit-subx-stmt:end</span>: +<span id="L28802" class="LineNr">28802 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28803" class="LineNr">28803 </span> 59/pop-to-ecx +<span id="L28804" class="LineNr">28804 </span> 58/pop-to-eax +<span id="L28805" class="LineNr">28805 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28806" class="LineNr">28806 </span> 89/<- %esp 5/r32/ebp +<span id="L28807" class="LineNr">28807 </span> 5d/pop-to-ebp +<span id="L28808" class="LineNr">28808 </span> c3/return +<span id="L28809" class="LineNr">28809 </span> +<span id="L28810" class="LineNr">28810 </span><span class="subxFunction">redundant-copy?</span>: <span class="subxComment"># stmt: (addr stmt) -> result/eax: boolean</span> +<span id="L28811" class="LineNr">28811 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28812" class="LineNr">28812 </span> 55/push-ebp +<span id="L28813" class="LineNr">28813 </span> 89/<- %ebp 4/r32/esp +<span id="L28814" class="LineNr">28814 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28815" class="LineNr">28815 </span> 56/push-esi +<span id="L28816" class="LineNr">28816 </span> 57/push-edi +<span id="L28817" class="LineNr">28817 </span> <span class="subxComment"># esi = stmt</span> +<span id="L28818" class="LineNr">28818 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L28819" class="LineNr">28819 </span> <span class="subxComment"># if stmt->operation != "copy" return false</span> +<span id="L28820" class="LineNr">28820 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L28821" class="LineNr">28821 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"copy"</span>) <span class="subxComment"># => eax</span> +<span id="L28822" class="LineNr">28822 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28823" class="LineNr">28823 </span> 0f 84/jump-if-= $redundant-copy?:end/disp32 +<span id="L28824" class="LineNr">28824 </span> <span class="subxComment"># var output-reg/edi: (addr stmt-var) = stmt->outputs->value->register</span> +<span id="L28825" class="LineNr">28825 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L28826" class="LineNr">28826 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L28827" class="LineNr">28827 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L28828" class="LineNr">28828 </span> <span class="subxS1Comment"># . if output-reg == null, return false</span> +<span id="L28829" class="LineNr">28829 </span> 3d/compare-eax-and 0/imm32 +<span id="L28830" class="LineNr">28830 </span> 74/jump-if-= $redundant-copy?:end/disp8 +<span id="L28831" class="LineNr">28831 </span> 89/<- %edi 0/r32/eax +<span id="L28832" class="LineNr">28832 </span> <span class="subxComment"># return (inout->value->register == output->value->register)</span> +<span id="L28833" class="LineNr">28833 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L28834" class="LineNr">28834 </span> <span class="subxS1Comment"># . if inout->is-deref return false</span> +<span id="L28835" class="LineNr">28835 </span> 81 7/subop/compare *(eax+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L28836" class="LineNr">28836 </span> { +<span id="L28837" class="LineNr">28837 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L28838" class="LineNr">28838 </span> b8/copy-to-eax 0/imm32/false +<span id="L28839" class="LineNr">28839 </span> e9/jump $redundant-copy?:end/disp32 +<span id="L28840" class="LineNr">28840 </span> } +<span id="L28841" class="LineNr">28841 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L28842" class="LineNr">28842 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L28843" class="LineNr">28843 </span> <span class="subxS1Comment"># . if inout-reg == null, return false</span> +<span id="L28844" class="LineNr">28844 </span> 3d/compare-eax-and 0/imm32 +<span id="L28845" class="LineNr">28845 </span> 74/jump-if-= $redundant-copy?:end/disp8 +<span id="L28846" class="LineNr">28846 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax %edi) <span class="subxComment"># => eax</span> +<span id="L28847" class="LineNr">28847 </span><span class="Constant">$redundant-copy?:end</span>: +<span id="L28848" class="LineNr">28848 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28849" class="LineNr">28849 </span> 5f/pop-to-edi +<span id="L28850" class="LineNr">28850 </span> 5e/pop-to-esi +<span id="L28851" class="LineNr">28851 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28852" class="LineNr">28852 </span> 89/<- %esp 5/r32/ebp +<span id="L28853" class="LineNr">28853 </span> 5d/pop-to-ebp +<span id="L28854" class="LineNr">28854 </span> c3/return +<span id="L28855" class="LineNr">28855 </span> +<span id="L28856" class="LineNr">28856 </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="L28857" class="LineNr">28857 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28858" class="LineNr">28858 </span> 55/push-ebp +<span id="L28859" class="LineNr">28859 </span> 89/<- %ebp 4/r32/esp +<span id="L28860" class="LineNr">28860 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28861" class="LineNr">28861 </span> 50/push-eax +<span id="L28862" class="LineNr">28862 </span> 51/push-ecx +<span id="L28863" class="LineNr">28863 </span> 52/push-edx +<span id="L28864" class="LineNr">28864 </span> 53/push-ebx +<span id="L28865" class="LineNr">28865 </span> 56/push-esi +<span id="L28866" class="LineNr">28866 </span> <span class="subxComment"># esi = stmt</span> +<span id="L28867" class="LineNr">28867 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L28868" class="LineNr">28868 </span> <span class="subxComment"># var base/ebx: (addr var) = stmt->inouts[0]->value</span> +<span id="L28869" class="LineNr">28869 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L28870" class="LineNr">28870 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L28871" class="LineNr">28871 </span> 89/<- %ebx 0/r32/eax +<span id="L28872" class="LineNr">28872 </span> <span class="subxComment"># var elemsize/ecx: int = array-element-size(base)</span> +<span id="L28873" class="LineNr">28873 </span> (<a href='mu.subx.html#L28977'>array-element-size</a> %ebx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L28874" class="LineNr">28874 </span> 89/<- %ecx 0/r32/eax +<span id="L28875" class="LineNr">28875 </span> <span class="subxComment"># var outreg/edx: (addr array byte) = stmt->outputs[0]->value->register</span> +<span id="L28876" class="LineNr">28876 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L28877" class="LineNr">28877 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L28878" class="LineNr">28878 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L28879" class="LineNr">28879 </span> 89/<- %edx 0/r32/eax +<span id="L28880" class="LineNr">28880 </span> <span class="subxComment"># if elemsize == 1</span> +<span id="L28881" class="LineNr">28881 </span> { +<span id="L28882" class="LineNr">28882 </span> 81 7/subop/compare %ecx 1/imm32 +<span id="L28883" class="LineNr">28883 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L28884" class="LineNr">28884 </span><span class="Constant">$translate-mu-length-stmt:size-1</span>: +<span id="L28885" class="LineNr">28885 </span> (<a href='mu.subx.html#L29220'>emit-save-size-to</a> *(ebp+8) %ebx %edx) +<span id="L28886" class="LineNr">28886 </span> e9/jump $translate-mu-length-stmt:end/disp32 +<span id="L28887" class="LineNr">28887 </span> } +<span id="L28888" class="LineNr">28888 </span> <span class="subxComment"># if elemsize is a power of 2 less than 256</span> +<span id="L28889" class="LineNr">28889 </span> { +<span id="L28890" class="LineNr">28890 </span> (<a href='mu.subx.html#L30255'>power-of-2?</a> %ecx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L28891" class="LineNr">28891 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28892" class="LineNr">28892 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L28893" class="LineNr">28893 </span> 81 7/subop/compare %ecx 0xff/imm32 +<span id="L28894" class="LineNr">28894 </span> 7f/jump-if-> <span class="Constant">break</span>/disp8 +<span id="L28895" class="LineNr">28895 </span><span class="Constant">$translate-mu-length-stmt:size-power-of-2</span>: +<span id="L28896" class="LineNr">28896 </span> (<a href='mu.subx.html#L29220'>emit-save-size-to</a> *(ebp+8) %ebx %edx) +<span id="L28897" class="LineNr">28897 </span> (<a href='mu.subx.html#L29263'>emit-divide-by-shift-right</a> *(ebp+8) %edx %ecx) +<span id="L28898" class="LineNr">28898 </span> e9/jump $translate-mu-length-stmt:end/disp32 +<span id="L28899" class="LineNr">28899 </span> } +<span id="L28900" class="LineNr">28900 </span> <span class="subxComment"># otherwise, the complex case</span> +<span id="L28901" class="LineNr">28901 </span> <span class="subxS1Comment"># . emit register spills</span> +<span id="L28902" class="LineNr">28902 </span> { +<span id="L28903" class="LineNr">28903 </span><span class="Constant">$translate-mu-length-stmt:complex</span>: +<span id="L28904" class="LineNr">28904 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"eax"</span>) <span class="subxComment"># => eax</span> +<span id="L28905" class="LineNr">28905 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28906" class="LineNr">28906 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 +<span id="L28907" class="LineNr">28907 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L28908" class="LineNr">28908 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"50/push-eax\n"</span>) +<span id="L28909" class="LineNr">28909 </span> } +<span id="L28910" class="LineNr">28910 </span> { +<span id="L28911" class="LineNr">28911 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"ecx"</span>) <span class="subxComment"># => eax</span> +<span id="L28912" class="LineNr">28912 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28913" class="LineNr">28913 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 +<span id="L28914" class="LineNr">28914 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L28915" class="LineNr">28915 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"51/push-ecx\n"</span>) +<span id="L28916" class="LineNr">28916 </span> } +<span id="L28917" class="LineNr">28917 </span> { +<span id="L28918" class="LineNr">28918 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"edx"</span>) <span class="subxComment"># => eax</span> +<span id="L28919" class="LineNr">28919 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28920" class="LineNr">28920 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 +<span id="L28921" class="LineNr">28921 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L28922" class="LineNr">28922 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"52/push-edx\n"</span>) +<span id="L28923" class="LineNr">28923 </span> } +<span id="L28924" class="LineNr">28924 </span> <span class="subxS1Comment"># .</span> +<span id="L28925" class="LineNr">28925 </span> (<a href='mu.subx.html#L29220'>emit-save-size-to</a> *(ebp+8) %ebx <span class="Constant">"eax"</span>) +<span id="L28926" class="LineNr">28926 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L28927" class="LineNr">28927 </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="L28928" class="LineNr">28928 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L28929" class="LineNr">28929 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"b9/copy-to-ecx "</span>) +<span id="L28930" class="LineNr">28930 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %ecx) +<span id="L28931" class="LineNr">28931 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) +<span id="L28932" class="LineNr">28932 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L28933" class="LineNr">28933 </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="L28934" class="LineNr">28934 </span> { +<span id="L28935" class="LineNr">28935 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"eax"</span>) <span class="subxComment"># => eax</span> +<span id="L28936" class="LineNr">28936 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28937" class="LineNr">28937 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 +<span id="L28938" class="LineNr">28938 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L28939" class="LineNr">28939 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"89/<- %"</span>) +<span id="L28940" class="LineNr">28940 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %edx) +<span id="L28941" class="LineNr">28941 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 0/r32/eax\n"</span>) +<span id="L28942" class="LineNr">28942 </span> } +<span id="L28943" class="LineNr">28943 </span> <span class="subxS1Comment"># . emit register restores</span> +<span id="L28944" class="LineNr">28944 </span> { +<span id="L28945" class="LineNr">28945 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"edx"</span>) <span class="subxComment"># => eax</span> +<span id="L28946" class="LineNr">28946 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28947" class="LineNr">28947 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 +<span id="L28948" class="LineNr">28948 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L28949" class="LineNr">28949 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"5a/pop-to-edx\n"</span>) +<span id="L28950" class="LineNr">28950 </span> } +<span id="L28951" class="LineNr">28951 </span> { +<span id="L28952" class="LineNr">28952 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"ecx"</span>) <span class="subxComment"># => eax</span> +<span id="L28953" class="LineNr">28953 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28954" class="LineNr">28954 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 +<span id="L28955" class="LineNr">28955 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L28956" class="LineNr">28956 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"59/pop-to-ecx\n"</span>) +<span id="L28957" class="LineNr">28957 </span> } +<span id="L28958" class="LineNr">28958 </span> { +<span id="L28959" class="LineNr">28959 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"eax"</span>) <span class="subxComment"># => eax</span> +<span id="L28960" class="LineNr">28960 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28961" class="LineNr">28961 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 +<span id="L28962" class="LineNr">28962 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L28963" class="LineNr">28963 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"58/pop-to-eax\n"</span>) +<span id="L28964" class="LineNr">28964 </span> } +<span id="L28965" class="LineNr">28965 </span><span class="Constant">$translate-mu-length-stmt:end</span>: +<span id="L28966" class="LineNr">28966 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28967" class="LineNr">28967 </span> 5e/pop-to-esi +<span id="L28968" class="LineNr">28968 </span> 5b/pop-to-ebx +<span id="L28969" class="LineNr">28969 </span> 5a/pop-to-edx +<span id="L28970" class="LineNr">28970 </span> 59/pop-to-ecx +<span id="L28971" class="LineNr">28971 </span> 58/pop-to-eax +<span id="L28972" class="LineNr">28972 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28973" class="LineNr">28973 </span> 89/<- %esp 5/r32/ebp +<span id="L28974" class="LineNr">28974 </span> 5d/pop-to-ebp +<span id="L28975" class="LineNr">28975 </span> c3/return +<span id="L28976" class="LineNr">28976 </span> +<span id="L28977" class="LineNr">28977 </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="L28978" class="LineNr">28978 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28979" class="LineNr">28979 </span> 55/push-ebp +<span id="L28980" class="LineNr">28980 </span> 89/<- %ebp 4/r32/esp +<span id="L28981" class="LineNr">28981 </span> <span class="subxComment">#</span> +<span id="L28982" class="LineNr">28982 </span> (<a href='mu.subx.html#L28990'>array-element-type-id</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L28983" class="LineNr">28983 </span> (<a href='mu.subx.html#L29096'>size-of-type-id-as-array-element</a> %eax) <span class="subxComment"># => eax</span> +<span id="L28984" class="LineNr">28984 </span><span class="Constant">$array-element-size:end</span>: +<span id="L28985" class="LineNr">28985 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28986" class="LineNr">28986 </span> 89/<- %esp 5/r32/ebp +<span id="L28987" class="LineNr">28987 </span> 5d/pop-to-ebp +<span id="L28988" class="LineNr">28988 </span> c3/return +<span id="L28989" class="LineNr">28989 </span> +<span id="L28990" class="LineNr">28990 </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="L28991" class="LineNr">28991 </span> <span class="subxComment"># precondition: n is positive</span> +<span id="L28992" class="LineNr">28992 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28993" class="LineNr">28993 </span> 55/push-ebp +<span id="L28994" class="LineNr">28994 </span> 89/<- %ebp 4/r32/esp +<span id="L28995" class="LineNr">28995 </span> <span class="subxComment">#</span> +<span id="L28996" class="LineNr">28996 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L28997" class="LineNr">28997 </span> <span class="subxComment"># var t/eax: (addr type-tree)</span> +<span id="L28998" class="LineNr">28998 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L28999" class="LineNr">28999 </span> <span class="subxComment"># if t == 0 abort</span> +<span id="L29000" class="LineNr">29000 </span> 3d/compare-eax-with 0/imm32 +<span id="L29001" class="LineNr">29001 </span> 0f 84/jump-if-== $array-element-type-id:error0/disp32 +<span id="L29002" class="LineNr">29002 </span> <span class="subxComment"># if t->is-atom? abort</span> +<span id="L29003" class="LineNr">29003 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L29004" class="LineNr">29004 </span> 0f 85/jump-if-!= $array-element-type-id:error1/disp32 +<span id="L29005" class="LineNr">29005 </span> <span class="subxComment"># if (t->left == addr) t = t->right</span> +<span id="L29006" class="LineNr">29006 </span> { +<span id="L29007" class="LineNr">29007 </span> 50/push-eax +<span id="L29008" class="LineNr">29008 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L29009" class="LineNr">29009 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L29010" class="LineNr">29010 </span> 3d/compare-eax-with 0/imm32/false +<span id="L29011" class="LineNr">29011 </span> 58/pop-to-eax +<span id="L29012" class="LineNr">29012 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L29013" class="LineNr">29013 </span><span class="Constant">$array-element-type-id:skip-addr</span>: +<span id="L29014" class="LineNr">29014 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L29015" class="LineNr">29015 </span> } +<span id="L29016" class="LineNr">29016 </span> <span class="subxComment"># if t == 0 abort</span> +<span id="L29017" class="LineNr">29017 </span> 3d/compare-eax-with 0/imm32 +<span id="L29018" class="LineNr">29018 </span> 0f 84/jump-if-= $array-element-type-id:error2/disp32 +<span id="L29019" class="LineNr">29019 </span> <span class="subxComment"># if t->is-atom? abort</span> +<span id="L29020" class="LineNr">29020 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L29021" class="LineNr">29021 </span> 0f 85/jump-if-!= $array-element-type-id:error2/disp32 +<span id="L29022" class="LineNr">29022 </span> <span class="subxComment"># if t->left != array abort</span> +<span id="L29023" class="LineNr">29023 </span> { +<span id="L29024" class="LineNr">29024 </span> 50/push-eax +<span id="L29025" class="LineNr">29025 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L29026" class="LineNr">29026 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> +<span id="L29027" class="LineNr">29027 </span> 3d/compare-eax-with 0/imm32/false +<span id="L29028" class="LineNr">29028 </span> 58/pop-to-eax +<span id="L29029" class="LineNr">29029 </span><span class="Constant">$array-element-type-id:no-array</span>: +<span id="L29030" class="LineNr">29030 </span> 0f 84/jump-if-= $array-element-type-id:error2/disp32 +<span id="L29031" class="LineNr">29031 </span> } +<span id="L29032" class="LineNr">29032 </span><span class="Constant">$array-element-type-id:skip-array</span>: +<span id="L29033" class="LineNr">29033 </span> <span class="subxComment"># t = t->right</span> +<span id="L29034" class="LineNr">29034 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L29035" class="LineNr">29035 </span> <span class="subxComment"># if t == 0 abort</span> +<span id="L29036" class="LineNr">29036 </span> 3d/compare-eax-with 0/imm32 +<span id="L29037" class="LineNr">29037 </span> 0f 84/jump-if-= $array-element-type-id:error2/disp32 +<span id="L29038" class="LineNr">29038 </span> <span class="subxComment"># if t->is-atom? abort</span> +<span id="L29039" class="LineNr">29039 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L29040" class="LineNr">29040 </span> 0f 85/jump-if-!= $array-element-type-id:error2/disp32 +<span id="L29041" class="LineNr">29041 </span> <span class="subxComment"># t = t->left</span> +<span id="L29042" class="LineNr">29042 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L29043" class="LineNr">29043 </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="L29044" class="LineNr">29044 </span> <span class="subxComment"># if (t->is-atom == false) t = lookup(t->left)</span> +<span id="L29045" class="LineNr">29045 </span> { +<span id="L29046" class="LineNr">29046 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L29047" class="LineNr">29047 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L29048" class="LineNr">29048 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L29049" class="LineNr">29049 </span> } +<span id="L29050" class="LineNr">29050 </span> <span class="subxComment"># return t->value</span> +<span id="L29051" class="LineNr">29051 </span> 8b/-> *(eax+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> +<span id="L29052" class="LineNr">29052 </span><span class="Constant">$array-element-type-id:end</span>: +<span id="L29053" class="LineNr">29053 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29054" class="LineNr">29054 </span> 89/<- %esp 5/r32/ebp +<span id="L29055" class="LineNr">29055 </span> 5d/pop-to-ebp +<span id="L29056" class="LineNr">29056 </span> c3/return +<span id="L29057" class="LineNr">29057 </span> +<span id="L29058" class="LineNr">29058 </span><span class="Constant">$array-element-type-id:error0</span>: +<span id="L29059" class="LineNr">29059 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"array-element-type-id: var '"</span>) +<span id="L29060" class="LineNr">29060 </span> 50/push-eax +<span id="L29061" class="LineNr">29061 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L29062" class="LineNr">29062 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L29063" class="LineNr">29063 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) %eax) +<span id="L29064" class="LineNr">29064 </span> 58/pop-to-eax +<span id="L29065" class="LineNr">29065 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' has no type\n"</span>) +<span id="L29066" class="LineNr">29066 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L29067" class="LineNr">29067 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) +<span id="L29068" class="LineNr">29068 </span> <span class="subxComment"># never gets here</span> +<span id="L29069" class="LineNr">29069 </span> +<span id="L29070" class="LineNr">29070 </span><span class="Constant">$array-element-type-id:error1</span>: +<span id="L29071" class="LineNr">29071 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"array-element-type-id: var '"</span>) +<span id="L29072" class="LineNr">29072 </span> 50/push-eax +<span id="L29073" class="LineNr">29073 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L29074" class="LineNr">29074 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L29075" class="LineNr">29075 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) %eax) +<span id="L29076" class="LineNr">29076 </span> 58/pop-to-eax +<span id="L29077" class="LineNr">29077 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' has atomic type "</span>) +<span id="L29078" class="LineNr">29078 </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="L29079" class="LineNr">29079 </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="L29080" class="LineNr">29080 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L29081" class="LineNr">29081 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) +<span id="L29082" class="LineNr">29082 </span> <span class="subxComment"># never gets here</span> +<span id="L29083" class="LineNr">29083 </span> +<span id="L29084" class="LineNr">29084 </span><span class="Constant">$array-element-type-id:error2</span>: +<span id="L29085" class="LineNr">29085 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"array-element-type-id: var '"</span>) +<span id="L29086" class="LineNr">29086 </span> 50/push-eax +<span id="L29087" class="LineNr">29087 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L29088" class="LineNr">29088 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L29089" class="LineNr">29089 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) %eax) +<span id="L29090" class="LineNr">29090 </span> 58/pop-to-eax +<span id="L29091" class="LineNr">29091 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' has non-array type\n"</span>) +<span id="L29092" class="LineNr">29092 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L29093" class="LineNr">29093 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) +<span id="L29094" class="LineNr">29094 </span> <span class="subxComment"># never gets here</span> +<span id="L29095" class="LineNr">29095 </span> +<span id="L29096" class="LineNr">29096 </span><span class="subxFunction">size-of-type-id-as-array-element</span>: <span class="subxComment"># t: type-id -> result/eax: int</span> +<span id="L29097" class="LineNr">29097 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29098" class="LineNr">29098 </span> 55/push-ebp +<span id="L29099" class="LineNr">29099 </span> 89/<- %ebp 4/r32/esp +<span id="L29100" class="LineNr">29100 </span> <span class="subxComment"># eax = t</span> +<span id="L29101" class="LineNr">29101 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L29102" class="LineNr">29102 </span> <span class="subxComment"># if t is 'byte', size is 1</span> +<span id="L29103" class="LineNr">29103 </span> 3d/compare-eax-and 8/imm32/byte +<span id="L29104" class="LineNr">29104 </span> { +<span id="L29105" class="LineNr">29105 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L29106" class="LineNr">29106 </span> b8/copy-to-eax 1/imm32 +<span id="L29107" class="LineNr">29107 </span> eb/jump $size-of-type-id-as-array-element:end/disp8 +<span id="L29108" class="LineNr">29108 </span> } +<span id="L29109" class="LineNr">29109 </span> <span class="subxComment"># otherwise proceed as usual</span> +<span id="L29110" class="LineNr">29110 </span> (<a href='mu.subx.html#L26781'>size-of-type-id</a> %eax) <span class="subxComment"># => eax</span> +<span id="L29111" class="LineNr">29111 </span><span class="Constant">$size-of-type-id-as-array-element:end</span>: +<span id="L29112" class="LineNr">29112 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29113" class="LineNr">29113 </span> 89/<- %esp 5/r32/ebp +<span id="L29114" class="LineNr">29114 </span> 5d/pop-to-ebp +<span id="L29115" class="LineNr">29115 </span> c3/return +<span id="L29116" class="LineNr">29116 </span> +<span id="L29117" class="LineNr">29117 </span><span class="subxFunction">stream-element-type-id</span>: <span class="subxComment"># type: (addr type-tree), err: (addr buffered-file), ed: (addr exit-descriptor) -> result/eax: type-id</span> +<span id="L29118" class="LineNr">29118 </span> <span class="subxComment"># precondition: n is positive</span> +<span id="L29119" class="LineNr">29119 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29120" class="LineNr">29120 </span> 55/push-ebp +<span id="L29121" class="LineNr">29121 </span> 89/<- %ebp 4/r32/esp +<span id="L29122" class="LineNr">29122 </span> <span class="subxComment"># eax = type</span> +<span id="L29123" class="LineNr">29123 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L29124" class="LineNr">29124 </span> <span class="subxComment"># if type == 0 abort</span> +<span id="L29125" class="LineNr">29125 </span> 3d/compare-eax-with 0/imm32 +<span id="L29126" class="LineNr">29126 </span> 0f 84/jump-if-== $stream-element-type-id:error0/disp32 +<span id="L29127" class="LineNr">29127 </span> <span class="subxComment"># if type->is-atom? abort</span> +<span id="L29128" class="LineNr">29128 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L29129" class="LineNr">29129 </span> 0f 85/jump-if-!= $stream-element-type-id:error1/disp32 +<span id="L29130" class="LineNr">29130 </span> <span class="subxComment"># if (type->left == addr) type = type->right</span> +<span id="L29131" class="LineNr">29131 </span> { +<span id="L29132" class="LineNr">29132 </span> 50/push-eax +<span id="L29133" class="LineNr">29133 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L29134" class="LineNr">29134 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L29135" class="LineNr">29135 </span> 3d/compare-eax-with 0/imm32/false +<span id="L29136" class="LineNr">29136 </span> 58/pop-to-eax +<span id="L29137" class="LineNr">29137 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L29138" class="LineNr">29138 </span><span class="Constant">$stream-element-type-id:skip-addr</span>: +<span id="L29139" class="LineNr">29139 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L29140" class="LineNr">29140 </span> } +<span id="L29141" class="LineNr">29141 </span> <span class="subxComment"># if type == 0 abort</span> +<span id="L29142" class="LineNr">29142 </span> 3d/compare-eax-with 0/imm32 +<span id="L29143" class="LineNr">29143 </span> 0f 84/jump-if-= $stream-element-type-id:error2/disp32 +<span id="L29144" class="LineNr">29144 </span> <span class="subxComment"># if type->is-atom? abort</span> +<span id="L29145" class="LineNr">29145 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L29146" class="LineNr">29146 </span> 0f 85/jump-if-!= $stream-element-type-id:error2/disp32 +<span id="L29147" class="LineNr">29147 </span> <span class="subxComment"># if type->left != stream abort</span> +<span id="L29148" class="LineNr">29148 </span> { +<span id="L29149" class="LineNr">29149 </span> 50/push-eax +<span id="L29150" class="LineNr">29150 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L29151" class="LineNr">29151 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 0xb) <span class="subxComment"># stream => eax</span> +<span id="L29152" class="LineNr">29152 </span> 3d/compare-eax-with 0/imm32/false +<span id="L29153" class="LineNr">29153 </span> 58/pop-to-eax +<span id="L29154" class="LineNr">29154 </span><span class="Constant">$stream-element-type-id:no-stream</span>: +<span id="L29155" class="LineNr">29155 </span> 0f 84/jump-if-= $stream-element-type-id:error2/disp32 +<span id="L29156" class="LineNr">29156 </span> } +<span id="L29157" class="LineNr">29157 </span><span class="Constant">$stream-element-type-id:skip-stream</span>: +<span id="L29158" class="LineNr">29158 </span> <span class="subxComment"># type = type->right</span> +<span id="L29159" class="LineNr">29159 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L29160" class="LineNr">29160 </span> <span class="subxComment"># if type == 0 abort</span> +<span id="L29161" class="LineNr">29161 </span> 3d/compare-eax-with 0/imm32 +<span id="L29162" class="LineNr">29162 </span> 0f 84/jump-if-= $stream-element-type-id:error2/disp32 +<span id="L29163" class="LineNr">29163 </span> <span class="subxComment"># if type->is-atom? abort</span> +<span id="L29164" class="LineNr">29164 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L29165" class="LineNr">29165 </span> 0f 85/jump-if-!= $stream-element-type-id:error2/disp32 +<span id="L29166" class="LineNr">29166 </span> <span class="subxComment"># t = type->left</span> +<span id="L29167" class="LineNr">29167 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L29168" class="LineNr">29168 </span> <span class="subxComment"># if (!type->is-atom?) type = type->left # TODO: assumes stream element size can be determined from just first word of stream element type</span> +<span id="L29169" class="LineNr">29169 </span> { +<span id="L29170" class="LineNr">29170 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L29171" class="LineNr">29171 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L29172" class="LineNr">29172 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L29173" class="LineNr">29173 </span> } +<span id="L29174" class="LineNr">29174 </span> <span class="subxComment"># return type->value</span> +<span id="L29175" class="LineNr">29175 </span> 8b/-> *(eax+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> +<span id="L29176" class="LineNr">29176 </span><span class="Constant">$stream-element-type-id:end</span>: +<span id="L29177" class="LineNr">29177 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29178" class="LineNr">29178 </span> 89/<- %esp 5/r32/ebp +<span id="L29179" class="LineNr">29179 </span> 5d/pop-to-ebp +<span id="L29180" class="LineNr">29180 </span> c3/return +<span id="L29181" class="LineNr">29181 </span> +<span id="L29182" class="LineNr">29182 </span><span class="Constant">$stream-element-type-id:error0</span>: +<span id="L29183" class="LineNr">29183 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"stream-element-type-id: var '"</span>) +<span id="L29184" class="LineNr">29184 </span> 50/push-eax +<span id="L29185" class="LineNr">29185 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L29186" class="LineNr">29186 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L29187" class="LineNr">29187 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) %eax) +<span id="L29188" class="LineNr">29188 </span> 58/pop-to-eax +<span id="L29189" class="LineNr">29189 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' has no type\n"</span>) +<span id="L29190" class="LineNr">29190 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L29191" class="LineNr">29191 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) +<span id="L29192" class="LineNr">29192 </span> <span class="subxComment"># never gets here</span> +<span id="L29193" class="LineNr">29193 </span> +<span id="L29194" class="LineNr">29194 </span><span class="Constant">$stream-element-type-id:error1</span>: +<span id="L29195" class="LineNr">29195 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"stream-element-type-id: var '"</span>) +<span id="L29196" class="LineNr">29196 </span> 50/push-eax +<span id="L29197" class="LineNr">29197 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L29198" class="LineNr">29198 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L29199" class="LineNr">29199 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) %eax) +<span id="L29200" class="LineNr">29200 </span> 58/pop-to-eax +<span id="L29201" class="LineNr">29201 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' has atomic type "</span>) +<span id="L29202" class="LineNr">29202 </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="L29203" class="LineNr">29203 </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="L29204" class="LineNr">29204 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L29205" class="LineNr">29205 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) +<span id="L29206" class="LineNr">29206 </span> <span class="subxComment"># never gets here</span> +<span id="L29207" class="LineNr">29207 </span> +<span id="L29208" class="LineNr">29208 </span><span class="Constant">$stream-element-type-id:error2</span>: +<span id="L29209" class="LineNr">29209 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"stream-element-type-id: var '"</span>) +<span id="L29210" class="LineNr">29210 </span> 50/push-eax +<span id="L29211" class="LineNr">29211 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L29212" class="LineNr">29212 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L29213" class="LineNr">29213 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) %eax) +<span id="L29214" class="LineNr">29214 </span> 58/pop-to-eax +<span id="L29215" class="LineNr">29215 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' has non-stream type\n"</span>) +<span id="L29216" class="LineNr">29216 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L29217" class="LineNr">29217 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) +<span id="L29218" class="LineNr">29218 </span> <span class="subxComment"># never gets here</span> +<span id="L29219" class="LineNr">29219 </span> +<span id="L29220" class="LineNr">29220 </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="L29221" class="LineNr">29221 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29222" class="LineNr">29222 </span> 55/push-ebp +<span id="L29223" class="LineNr">29223 </span> 89/<- %ebp 4/r32/esp +<span id="L29224" class="LineNr">29224 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L29225" class="LineNr">29225 </span> 50/push-eax +<span id="L29226" class="LineNr">29226 </span> 53/push-ebx +<span id="L29227" class="LineNr">29227 </span> <span class="subxComment"># ebx = base</span> +<span id="L29228" class="LineNr">29228 </span> 8b/-> *(ebp+0xc) 3/r32/ebx +<span id="L29229" class="LineNr">29229 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L29230" class="LineNr">29230 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8b/-> *"</span>) +<span id="L29231" class="LineNr">29231 </span> <span class="subxComment"># if base is an (addr array ...) in a register</span> +<span id="L29232" class="LineNr">29232 </span> { +<span id="L29233" class="LineNr">29233 </span> 81 7/subop/compare *(ebx+0x18)) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L29234" class="LineNr">29234 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L29235" class="LineNr">29235 </span><span class="Constant">$emit-save-size-to:emit-base-from-register</span>: +<span id="L29236" class="LineNr">29236 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29237" class="LineNr">29237 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L29238" class="LineNr">29238 </span> eb/jump $emit-save-size-to:emit-output/disp8 +<span id="L29239" class="LineNr">29239 </span> } +<span id="L29240" class="LineNr">29240 </span> <span class="subxComment"># otherwise if base is an (array ...) on the stack</span> +<span id="L29241" class="LineNr">29241 </span> { +<span id="L29242" class="LineNr">29242 </span> 81 7/subop/compare *(ebx+0x14)) 0/imm32 <span class="subxComment"># Var-offset</span> +<span id="L29243" class="LineNr">29243 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L29244" class="LineNr">29244 </span><span class="Constant">$emit-save-size-to:emit-base-from-stack</span>: +<span id="L29245" class="LineNr">29245 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(ebp+"</span>) +<span id="L29246" class="LineNr">29246 </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="L29247" class="LineNr">29247 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) +<span id="L29248" class="LineNr">29248 </span> } +<span id="L29249" class="LineNr">29249 </span><span class="Constant">$emit-save-size-to:emit-output</span>: +<span id="L29250" class="LineNr">29250 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) +<span id="L29251" class="LineNr">29251 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19397'>Mu-registers</a></span> *(ebp+0x10) 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax</span> +<span id="L29252" class="LineNr">29252 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L29253" class="LineNr">29253 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) +<span id="L29254" class="LineNr">29254 </span><span class="Constant">$emit-save-size-to:end</span>: +<span id="L29255" class="LineNr">29255 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L29256" class="LineNr">29256 </span> 5b/pop-to-ebx +<span id="L29257" class="LineNr">29257 </span> 58/pop-to-eax +<span id="L29258" class="LineNr">29258 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29259" class="LineNr">29259 </span> 89/<- %esp 5/r32/ebp +<span id="L29260" class="LineNr">29260 </span> 5d/pop-to-ebp +<span id="L29261" class="LineNr">29261 </span> c3/return +<span id="L29262" class="LineNr">29262 </span> +<span id="L29263" class="LineNr">29263 </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="L29264" class="LineNr">29264 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29265" class="LineNr">29265 </span> 55/push-ebp +<span id="L29266" class="LineNr">29266 </span> 89/<- %ebp 4/r32/esp +<span id="L29267" class="LineNr">29267 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L29268" class="LineNr">29268 </span> 50/push-eax +<span id="L29269" class="LineNr">29269 </span> <span class="subxComment">#</span> +<span id="L29270" class="LineNr">29270 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L29271" class="LineNr">29271 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"c1/shift 5/subop/>> %"</span>) +<span id="L29272" class="LineNr">29272 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0xc)) +<span id="L29273" class="LineNr">29273 </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="L29274" class="LineNr">29274 </span> (<a href='mu.subx.html#L30285'>num-shift-rights</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L29275" class="LineNr">29275 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L29276" class="LineNr">29276 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm8\n"</span>) +<span id="L29277" class="LineNr">29277 </span><span class="Constant">$emit-divide-by-shift-right:end</span>: +<span id="L29278" class="LineNr">29278 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L29279" class="LineNr">29279 </span> 58/pop-to-eax +<span id="L29280" class="LineNr">29280 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29281" class="LineNr">29281 </span> 89/<- %esp 5/r32/ebp +<span id="L29282" class="LineNr">29282 </span> 5d/pop-to-ebp +<span id="L29283" class="LineNr">29283 </span> c3/return +<span id="L29284" class="LineNr">29284 </span> +<span id="L29285" class="LineNr">29285 </span><span class="subxFunction">translate-mu-copy-byte-stmt</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L29286" class="LineNr">29286 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29287" class="LineNr">29287 </span> 55/push-ebp +<span id="L29288" class="LineNr">29288 </span> 89/<- %ebp 4/r32/esp +<span id="L29289" class="LineNr">29289 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L29290" class="LineNr">29290 </span> 50/push-eax +<span id="L29291" class="LineNr">29291 </span> 56/push-esi +<span id="L29292" class="LineNr">29292 </span> <span class="subxComment"># esi = stmt</span> +<span id="L29293" class="LineNr">29293 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L29294" class="LineNr">29294 </span> <span class="subxComment">#</span> +<span id="L29295" class="LineNr">29295 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L29296" class="LineNr">29296 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8a/byte->"</span>) +<span id="L29297" class="LineNr">29297 </span> <span class="subxComment"># emit stmt->inouts[0]</span> +<span id="L29298" class="LineNr">29298 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L29299" class="LineNr">29299 </span> (<a href='mu.subx.html#L35745'>emit-subx-var-as-rm32</a> *(ebp+8) %eax) +<span id="L29300" class="LineNr">29300 </span> <span class="subxComment"># emit /r32 for stmt->outputs[0]->register</span> +<span id="L29301" class="LineNr">29301 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L29302" class="LineNr">29302 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L29303" class="LineNr">29303 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29304" class="LineNr">29304 </span> (<a href='131table.subx.html#L1800'>maybe-get</a> <span class="SpecialChar"><a href='mu.subx.html#L19397'>Mu-registers</a></span> %eax 0xc) <span class="subxComment"># => eax: (addr register-index)</span> +<span id="L29305" class="LineNr">29305 </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="L29306" class="LineNr">29306 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L29307" class="LineNr">29307 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) +<span id="L29308" class="LineNr">29308 </span> <span class="subxComment"># clear rest of register</span> +<span id="L29309" class="LineNr">29309 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L29310" class="LineNr">29310 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 4/subop/and %"</span>) +<span id="L29311" class="LineNr">29311 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L29312" class="LineNr">29312 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L29313" class="LineNr">29313 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L29314" class="LineNr">29314 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29315" class="LineNr">29315 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L29316" class="LineNr">29316 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 0xff/imm32\n"</span>) +<span id="L29317" class="LineNr">29317 </span><span class="Constant">$translate-mu-copy-byte-stmt:end</span>: +<span id="L29318" class="LineNr">29318 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L29319" class="LineNr">29319 </span> 5e/pop-to-esi +<span id="L29320" class="LineNr">29320 </span> 58/pop-to-eax +<span id="L29321" class="LineNr">29321 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29322" class="LineNr">29322 </span> 89/<- %esp 5/r32/ebp +<span id="L29323" class="LineNr">29323 </span> 5d/pop-to-ebp +<span id="L29324" class="LineNr">29324 </span> c3/return +<span id="L29325" class="LineNr">29325 </span> +<span id="L29326" class="LineNr">29326 </span><span class="subxComment"># a little different from other translate- functions; notice the extra 'fn' argument</span> +<span id="L29327" class="LineNr">29327 </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="L29328" class="LineNr">29328 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29329" class="LineNr">29329 </span> 55/push-ebp +<span id="L29330" class="LineNr">29330 </span> 89/<- %ebp 4/r32/esp +<span id="L29331" class="LineNr">29331 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L29332" class="LineNr">29332 </span> 53/push-ebx +<span id="L29333" class="LineNr">29333 </span> <span class="subxComment"># ebx = stmt</span> +<span id="L29334" class="LineNr">29334 </span> 8b/-> *(ebp+0xc) 3/r32/ebx +<span id="L29335" class="LineNr">29335 </span> <span class="subxComment"># var base/ebx: (addr var) = stmt->inouts[0]</span> +<span id="L29336" class="LineNr">29336 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L29337" class="LineNr">29337 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L29338" class="LineNr">29338 </span> 89/<- %ebx 0/r32/eax +<span id="L29339" class="LineNr">29339 </span> <span class="subxComment"># emit bounds-check</span> +<span id="L29340" class="LineNr">29340 </span> (<a href='mu.subx.html#L29377'>emit-mu-index-bounds-check</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18)) +<span id="L29341" class="LineNr">29341 </span> <span class="subxComment"># if (var->register) do one thing</span> +<span id="L29342" class="LineNr">29342 </span> { +<span id="L29343" class="LineNr">29343 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L29344" class="LineNr">29344 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L29345" class="LineNr">29345 </span> <span class="subxComment"># TODO: ensure there's no dereference</span> +<span id="L29346" class="LineNr">29346 </span> (<a href='mu.subx.html#L29496'>translate-mu-index-stmt-with-array-in-register</a> *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) +<span id="L29347" class="LineNr">29347 </span> eb/jump $translate-mu-index-stmt:end/disp8 +<span id="L29348" class="LineNr">29348 </span> } +<span id="L29349" class="LineNr">29349 </span> <span class="subxComment"># if (var->offset) do a different thing</span> +<span id="L29350" class="LineNr">29350 </span> { +<span id="L29351" class="LineNr">29351 </span> 81 7/subop/compare *(ebx+0x14) 0/imm32 <span class="subxComment"># Var-offset</span> +<span id="L29352" class="LineNr">29352 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L29353" class="LineNr">29353 </span> <span class="subxComment"># TODO: ensure there's no dereference</span> +<span id="L29354" class="LineNr">29354 </span> (<a href='mu.subx.html#L29620'>translate-mu-index-stmt-with-array-on-stack</a> *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) +<span id="L29355" class="LineNr">29355 </span> eb/jump $translate-mu-index-stmt:end/disp8 +<span id="L29356" class="LineNr">29356 </span> } +<span id="L29357" class="LineNr">29357 </span><span class="Constant">$translate-mu-index-stmt:end</span>: +<span id="L29358" class="LineNr">29358 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L29359" class="LineNr">29359 </span> 5b/pop-to-ebx +<span id="L29360" class="LineNr">29360 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29361" class="LineNr">29361 </span> 89/<- %esp 5/r32/ebp +<span id="L29362" class="LineNr">29362 </span> 5d/pop-to-ebp +<span id="L29363" class="LineNr">29363 </span> c3/return +<span id="L29364" class="LineNr">29364 </span> +<span id="L29365" class="LineNr">29365 </span><span class="Constant">$translate-mu-index-stmt:error1</span>: +<span id="L29366" class="LineNr">29366 </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="L29367" class="LineNr">29367 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L29368" class="LineNr">29368 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L29369" class="LineNr">29369 </span> <span class="subxComment"># never gets here</span> +<span id="L29370" class="LineNr">29370 </span> +<span id="L29371" class="LineNr">29371 </span><span class="Constant">$translate-mu-index-stmt:error2</span>: +<span id="L29372" class="LineNr">29372 </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="L29373" class="LineNr">29373 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L29374" class="LineNr">29374 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L29375" class="LineNr">29375 </span> <span class="subxComment"># never gets here</span> +<span id="L29376" class="LineNr">29376 </span> +<span id="L29377" class="LineNr">29377 </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="L29378" class="LineNr">29378 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29379" class="LineNr">29379 </span> 55/push-ebp +<span id="L29380" class="LineNr">29380 </span> 89/<- %ebp 4/r32/esp +<span id="L29381" class="LineNr">29381 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L29382" class="LineNr">29382 </span> 50/push-eax +<span id="L29383" class="LineNr">29383 </span> 51/push-ecx +<span id="L29384" class="LineNr">29384 </span> 52/push-edx +<span id="L29385" class="LineNr">29385 </span> 53/push-ebx +<span id="L29386" class="LineNr">29386 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L29387" class="LineNr">29387 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L29388" class="LineNr">29388 </span> <span class="subxComment">#</span> +<span id="L29389" class="LineNr">29389 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L29390" class="LineNr">29390 </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="L29391" class="LineNr">29391 </span><span class="Constant">$emit-mu-index-bounds-check:compute-base</span>: +<span id="L29392" class="LineNr">29392 </span> <span class="subxComment"># var base/ebx: (addr var) = inouts[0]</span> +<span id="L29393" class="LineNr">29393 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L29394" class="LineNr">29394 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L29395" class="LineNr">29395 </span> 89/<- %ebx 0/r32/eax +<span id="L29396" class="LineNr">29396 </span><span class="Constant">$emit-mu-index-bounds-check:emit-index</span>: +<span id="L29397" class="LineNr">29397 </span> <span class="subxComment"># var index/edx: (addr var) = inouts[1]</span> +<span id="L29398" class="LineNr">29398 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L29399" class="LineNr">29399 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L29400" class="LineNr">29400 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L29401" class="LineNr">29401 </span> 89/<- %edx 0/r32/eax +<span id="L29402" class="LineNr">29402 </span> <span class="subxComment"># if index->register, print its code</span> +<span id="L29403" class="LineNr">29403 </span> 81 7/subop/compare *(edx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L29404" class="LineNr">29404 </span> { +<span id="L29405" class="LineNr">29405 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L29406" class="LineNr">29406 </span><span class="Constant">$emit-mu-index-bounds-check:emit-register-index</span>: +<span id="L29407" class="LineNr">29407 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"%"</span>) +<span id="L29408" class="LineNr">29408 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29409" class="LineNr">29409 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L29410" class="LineNr">29410 </span> eb/jump $emit-mu-index-bounds-check:index-done/disp8 +<span id="L29411" class="LineNr">29411 </span> } +<span id="L29412" class="LineNr">29412 </span> <span class="subxComment"># otherwise if index is a literal, print it</span> +<span id="L29413" class="LineNr">29413 </span><span class="Constant">$emit-mu-index-bounds-check:emit-literal-index</span>: +<span id="L29414" class="LineNr">29414 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L29415" class="LineNr">29415 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> +<span id="L29416" class="LineNr">29416 </span> 3d/compare-eax-and 0/imm32/false <span id="L29417" class="LineNr">29417 </span> { -<span id="L29418" class="LineNr">29418 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L29419" class="LineNr">29419 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L29420" class="LineNr">29420 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 7) <span class="subxComment"># => eax</span> -<span id="L29421" class="LineNr">29421 </span> 3d/compare-eax-and 0/imm32/false -<span id="L29422" class="LineNr">29422 </span> { -<span id="L29423" class="LineNr">29423 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L29424" class="LineNr">29424 </span><span class="Constant">$emit-mu-index-bounds-check:emit-offset-register-index</span>: -<span id="L29425" class="LineNr">29425 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"1"</span>) -<span id="L29426" class="LineNr">29426 </span> } -<span id="L29427" class="LineNr">29427 </span> } -<span id="L29428" class="LineNr">29428 </span><span class="Constant">$emit-mu-index-bounds-check:emit-base</span>: -<span id="L29429" class="LineNr">29429 </span> <span class="subxComment"># if base is in a register, print " *" base->register</span> -<span id="L29430" class="LineNr">29430 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L29431" class="LineNr">29431 </span> { -<span id="L29432" class="LineNr">29432 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L29433" class="LineNr">29433 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *"</span>) -<span id="L29434" class="LineNr">29434 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L29435" class="LineNr">29435 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L29436" class="LineNr">29436 </span> e9/jump $emit-mu-index-bounds-check:emit-function-name/disp32 -<span id="L29437" class="LineNr">29437 </span> } -<span id="L29438" class="LineNr">29438 </span> <span class="subxComment"># otherwise print " *(ebp+" base->offset ")"</span> -<span id="L29439" class="LineNr">29439 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *(ebp+"</span>) -<span id="L29440" class="LineNr">29440 </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="L29441" class="LineNr">29441 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) -<span id="L29442" class="LineNr">29442 </span><span class="Constant">$emit-mu-index-bounds-check:emit-function-name</span>: -<span id="L29443" class="LineNr">29443 </span> <span class="subxComment"># " \"" function-name "\""</span> -<span id="L29444" class="LineNr">29444 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" \"</span>") -<span id="L29445" class="LineNr">29445 </span> 8b/-> *(ebp+0x10) 1/r32/ecx -<span id="L29446" class="LineNr">29446 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L29447" class="LineNr">29447 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L29448" class="LineNr">29448 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"\"</span>") -<span id="L29449" class="LineNr">29449 </span><span class="Constant">$emit-mu-index-bounds-check:emit-array-name</span>: -<span id="L29450" class="LineNr">29450 </span> <span class="subxComment"># " \"" base->name "\""</span> -<span id="L29451" class="LineNr">29451 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" \"</span>") -<span id="L29452" class="LineNr">29452 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L29453" class="LineNr">29453 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L29454" class="LineNr">29454 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"\"</span>)\n") -<span id="L29455" class="LineNr">29455 </span><span class="Constant">$emit-mu-index-bounds-check:end</span>: -<span id="L29456" class="LineNr">29456 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L29457" class="LineNr">29457 </span> 5b/pop-to-ebx -<span id="L29458" class="LineNr">29458 </span> 5a/pop-to-edx -<span id="L29459" class="LineNr">29459 </span> 59/pop-to-ecx -<span id="L29460" class="LineNr">29460 </span> 58/pop-to-eax -<span id="L29461" class="LineNr">29461 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29462" class="LineNr">29462 </span> 89/<- %esp 5/r32/ebp -<span id="L29463" class="LineNr">29463 </span> 5d/pop-to-ebp -<span id="L29464" class="LineNr">29464 </span> c3/return -<span id="L29465" class="LineNr">29465 </span> -<span id="L29466" class="LineNr">29466 </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="L29467" class="LineNr">29467 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29468" class="LineNr">29468 </span> 55/push-ebp -<span id="L29469" class="LineNr">29469 </span> 89/<- %ebp 4/r32/esp -<span id="L29470" class="LineNr">29470 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L29471" class="LineNr">29471 </span> 50/push-eax -<span id="L29472" class="LineNr">29472 </span> 51/push-ecx -<span id="L29473" class="LineNr">29473 </span> 52/push-edx -<span id="L29474" class="LineNr">29474 </span> 53/push-ebx -<span id="L29475" class="LineNr">29475 </span> <span class="subxComment">#</span> -<span id="L29476" class="LineNr">29476 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L29477" class="LineNr">29477 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8d/copy-address *("</span>) -<span id="L29478" class="LineNr">29478 </span> <span class="subxComment"># TODO: ensure inouts[0] is in a register and not dereferenced</span> -<span id="L29479" class="LineNr">29479 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-base</span>: -<span id="L29480" class="LineNr">29480 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L29481" class="LineNr">29481 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L29482" class="LineNr">29482 </span> <span class="subxComment"># var base/ebx: (addr var) = inouts[0]</span> -<span id="L29483" class="LineNr">29483 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L29484" class="LineNr">29484 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L29485" class="LineNr">29485 </span> 89/<- %ebx 0/r32/eax -<span id="L29486" class="LineNr">29486 </span> <span class="subxComment"># print base->register " + "</span> -<span id="L29487" class="LineNr">29487 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L29488" class="LineNr">29488 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L29489" class="LineNr">29489 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" + "</span>) -<span id="L29490" class="LineNr">29490 </span> <span class="subxComment"># var index/edx: (addr var) = inouts[1]</span> -<span id="L29491" class="LineNr">29491 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L29492" class="LineNr">29492 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L29493" class="LineNr">29493 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L29494" class="LineNr">29494 </span> 89/<- %edx 0/r32/eax -<span id="L29495" class="LineNr">29495 </span> <span class="subxComment"># if index->register</span> -<span id="L29496" class="LineNr">29496 </span> 81 7/subop/compare *(edx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L29497" class="LineNr">29497 </span> { -<span id="L29498" class="LineNr">29498 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L29499" class="LineNr">29499 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-register-index</span>: -<span id="L29500" class="LineNr">29500 </span> <span class="subxComment"># if index is an int</span> -<span id="L29501" class="LineNr">29501 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L29502" class="LineNr">29502 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 1) <span class="subxComment"># int => eax</span> -<span id="L29503" class="LineNr">29503 </span> 3d/compare-eax-and 0/imm32/false -<span id="L29504" class="LineNr">29504 </span> { -<span id="L29505" class="LineNr">29505 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L29506" class="LineNr">29506 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-int-register-index</span>: -<span id="L29507" class="LineNr">29507 </span> <span class="subxComment"># print index->register "<<" log2(array-element-size(base)) " + 4) "</span> -<span id="L29508" class="LineNr">29508 </span> <span class="subxS1Comment"># . index->register "<<"</span> -<span id="L29509" class="LineNr">29509 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L29510" class="LineNr">29510 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L29511" class="LineNr">29511 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"<<"</span>) -<span id="L29512" class="LineNr">29512 </span> <span class="subxS1Comment"># . log2(array-element-size(base->type))</span> -<span id="L29513" class="LineNr">29513 </span> <span class="subxComment"># we know size is a power of 2</span> -<span id="L29514" class="LineNr">29514 </span> (<a href='mu.subx.html#L28947'>array-element-size</a> %ebx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L29515" class="LineNr">29515 </span> (<a href='mu.subx.html#L30229'>num-shift-rights</a> %eax) <span class="subxComment"># => eax</span> -<span id="L29516" class="LineNr">29516 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L29517" class="LineNr">29517 </span> e9/jump $translate-mu-index-stmt-with-array-in-register:emit-register-index-done/disp32 -<span id="L29518" class="LineNr">29518 </span> } -<span id="L29519" class="LineNr">29519 </span> <span class="subxComment"># if index->type is any other atom, abort</span> -<span id="L29520" class="LineNr">29520 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L29521" class="LineNr">29521 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L29522" class="LineNr">29522 </span> 0f 85/jump-if-!= $translate-mu-index-stmt:error2/disp32 -<span id="L29523" class="LineNr">29523 </span> <span class="subxComment"># if index has type (offset ...)</span> -<span id="L29524" class="LineNr">29524 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L29525" class="LineNr">29525 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 7) <span class="subxComment"># => eax</span> -<span id="L29526" class="LineNr">29526 </span> 3d/compare-eax-and 0/imm32/false -<span id="L29527" class="LineNr">29527 </span> { -<span id="L29528" class="LineNr">29528 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L29529" class="LineNr">29529 </span> <span class="subxComment"># print index->register</span> -<span id="L29530" class="LineNr">29530 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-offset-register-index</span>: -<span id="L29531" class="LineNr">29531 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L29532" class="LineNr">29532 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L29533" class="LineNr">29533 </span> } -<span id="L29534" class="LineNr">29534 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-register-index-done</span>: -<span id="L29535" class="LineNr">29535 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" + 4) "</span>) -<span id="L29536" class="LineNr">29536 </span> e9/jump $translate-mu-index-stmt-with-array-in-register:emit-output/disp32 -<span id="L29537" class="LineNr">29537 </span> } -<span id="L29538" class="LineNr">29538 </span> <span class="subxComment"># otherwise if index is a literal</span> -<span id="L29539" class="LineNr">29539 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L29540" class="LineNr">29540 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> -<span id="L29541" class="LineNr">29541 </span> 3d/compare-eax-and 0/imm32/false -<span id="L29542" class="LineNr">29542 </span> { -<span id="L29543" class="LineNr">29543 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L29544" class="LineNr">29544 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-literal-index</span>: -<span id="L29545" class="LineNr">29545 </span> <span class="subxComment"># var index-value/edx: int = parse-hex-int(index->name)</span> -<span id="L29546" class="LineNr">29546 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L29547" class="LineNr">29547 </span> (<a href='118parse-hex-int.subx.html#L354'>parse-hex-int</a> %eax) <span class="subxComment"># => eax</span> -<span id="L29548" class="LineNr">29548 </span> 89/<- %edx 0/r32/eax -<span id="L29549" class="LineNr">29549 </span> <span class="subxComment"># offset = idx-value * array-element-size(base->type)</span> -<span id="L29550" class="LineNr">29550 </span> (<a href='mu.subx.html#L28947'>array-element-size</a> %ebx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L29551" class="LineNr">29551 </span> f7 4/subop/multiply-into-edx-eax %edx <span class="subxComment"># clobbers edx</span> -<span id="L29552" class="LineNr">29552 </span> <span class="subxComment"># offset += 4 for array size</span> -<span id="L29553" class="LineNr">29553 </span> 05/add-to-eax 4/imm32 -<span id="L29554" class="LineNr">29554 </span> <span class="subxComment"># TODO: check edx for overflow</span> -<span id="L29555" class="LineNr">29555 </span> <span class="subxComment"># print offset</span> -<span id="L29556" class="LineNr">29556 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L29557" class="LineNr">29557 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) -<span id="L29558" class="LineNr">29558 </span> e9/jump $translate-mu-index-stmt-with-array-in-register:emit-output/disp32 -<span id="L29559" class="LineNr">29559 </span> } -<span id="L29560" class="LineNr">29560 </span> <span class="subxComment"># otherwise abort</span> -<span id="L29561" class="LineNr">29561 </span> e9/jump $translate-mu-index-stmt:error1/disp32 -<span id="L29562" class="LineNr">29562 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-output</span>: -<span id="L29563" class="LineNr">29563 </span> <span class="subxComment"># outputs[0] "/r32"</span> -<span id="L29564" class="LineNr">29564 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L29565" class="LineNr">29565 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L29566" class="LineNr">29566 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L29567" class="LineNr">29567 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L29568" class="LineNr">29568 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19375'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax: (addr int)</span> -<span id="L29569" class="LineNr">29569 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L29570" class="LineNr">29570 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) -<span id="L29571" class="LineNr">29571 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:end</span>: -<span id="L29572" class="LineNr">29572 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L29573" class="LineNr">29573 </span> 5b/pop-to-ebx -<span id="L29574" class="LineNr">29574 </span> 5a/pop-to-edx -<span id="L29575" class="LineNr">29575 </span> 59/pop-to-ecx -<span id="L29576" class="LineNr">29576 </span> 58/pop-to-eax -<span id="L29577" class="LineNr">29577 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29578" class="LineNr">29578 </span> 89/<- %esp 5/r32/ebp -<span id="L29579" class="LineNr">29579 </span> 5d/pop-to-ebp -<span id="L29580" class="LineNr">29580 </span> c3/return -<span id="L29581" class="LineNr">29581 </span> -<span id="L29582" class="LineNr">29582 </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="L29583" class="LineNr">29583 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29584" class="LineNr">29584 </span> 55/push-ebp -<span id="L29585" class="LineNr">29585 </span> 89/<- %ebp 4/r32/esp -<span id="L29586" class="LineNr">29586 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L29587" class="LineNr">29587 </span> 50/push-eax -<span id="L29588" class="LineNr">29588 </span> 51/push-ecx -<span id="L29589" class="LineNr">29589 </span> 52/push-edx -<span id="L29590" class="LineNr">29590 </span> 53/push-ebx -<span id="L29591" class="LineNr">29591 </span> <span class="subxComment">#</span> -<span id="L29592" class="LineNr">29592 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L29593" class="LineNr">29593 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8d/copy-address *(ebp + "</span>) -<span id="L29594" class="LineNr">29594 </span> <span class="subxComment"># var curr/edx: (addr stmt-var) = lookup(stmt->inouts)</span> -<span id="L29595" class="LineNr">29595 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L29596" class="LineNr">29596 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L29597" class="LineNr">29597 </span> 89/<- %edx 0/r32/eax -<span id="L29598" class="LineNr">29598 </span> <span class="subxComment"># var base/ecx: (addr var) = lookup(curr->value)</span> -<span id="L29599" class="LineNr">29599 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L29600" class="LineNr">29600 </span> 89/<- %ecx 0/r32/eax -<span id="L29601" class="LineNr">29601 </span> <span class="subxComment"># var curr2/eax: (addr stmt-var) = lookup(curr->next)</span> -<span id="L29602" class="LineNr">29602 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L29603" class="LineNr">29603 </span> <span class="subxComment"># var index/edx: (handle var) = curr2->value</span> +<span id="L29418" class="LineNr">29418 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L29419" class="LineNr">29419 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L29420" class="LineNr">29420 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L29421" class="LineNr">29421 </span> } +<span id="L29422" class="LineNr">29422 </span><span class="Constant">$emit-mu-index-bounds-check:index-done</span>: +<span id="L29423" class="LineNr">29423 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) +<span id="L29424" class="LineNr">29424 </span><span class="Constant">$emit-mu-index-bounds-check:emit-element-size</span>: +<span id="L29425" class="LineNr">29425 </span> <span class="subxComment"># if index is a literal or int, print size of array element</span> +<span id="L29426" class="LineNr">29426 </span> { +<span id="L29427" class="LineNr">29427 </span> { +<span id="L29428" class="LineNr">29428 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L29429" class="LineNr">29429 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 0) <span class="subxComment"># literal => eax</span> +<span id="L29430" class="LineNr">29430 </span> 3d/compare-eax-and 0/imm32/false +<span id="L29431" class="LineNr">29431 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L29432" class="LineNr">29432 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L29433" class="LineNr">29433 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 1) <span class="subxComment"># int => eax</span> +<span id="L29434" class="LineNr">29434 </span> 3d/compare-eax-and 0/imm32/false +<span id="L29435" class="LineNr">29435 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L29436" class="LineNr">29436 </span> eb/jump $emit-mu-index-bounds-check:emit-element-size-offset/disp8 +<span id="L29437" class="LineNr">29437 </span> } +<span id="L29438" class="LineNr">29438 </span><span class="Constant">$emit-mu-index-bounds-check:emit-int-register-index</span>: +<span id="L29439" class="LineNr">29439 </span> (<a href='mu.subx.html#L28977'>array-element-size</a> %ebx *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> +<span id="L29440" class="LineNr">29440 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L29441" class="LineNr">29441 </span> e9/jump $emit-mu-index-bounds-check:emit-base/disp32 +<span id="L29442" class="LineNr">29442 </span> } +<span id="L29443" class="LineNr">29443 </span><span class="Constant">$emit-mu-index-bounds-check:emit-element-size-offset</span>: +<span id="L29444" class="LineNr">29444 </span> <span class="subxComment"># if index has type (offset ...), print "1"</span> +<span id="L29445" class="LineNr">29445 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L29446" class="LineNr">29446 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L29447" class="LineNr">29447 </span> { +<span id="L29448" class="LineNr">29448 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L29449" class="LineNr">29449 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L29450" class="LineNr">29450 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 7) <span class="subxComment"># => eax</span> +<span id="L29451" class="LineNr">29451 </span> 3d/compare-eax-and 0/imm32/false +<span id="L29452" class="LineNr">29452 </span> { +<span id="L29453" class="LineNr">29453 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L29454" class="LineNr">29454 </span><span class="Constant">$emit-mu-index-bounds-check:emit-offset-register-index</span>: +<span id="L29455" class="LineNr">29455 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"1"</span>) +<span id="L29456" class="LineNr">29456 </span> } +<span id="L29457" class="LineNr">29457 </span> } +<span id="L29458" class="LineNr">29458 </span><span class="Constant">$emit-mu-index-bounds-check:emit-base</span>: +<span id="L29459" class="LineNr">29459 </span> <span class="subxComment"># if base is in a register, print " *" base->register</span> +<span id="L29460" class="LineNr">29460 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L29461" class="LineNr">29461 </span> { +<span id="L29462" class="LineNr">29462 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L29463" class="LineNr">29463 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *"</span>) +<span id="L29464" class="LineNr">29464 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29465" class="LineNr">29465 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L29466" class="LineNr">29466 </span> e9/jump $emit-mu-index-bounds-check:emit-function-name/disp32 +<span id="L29467" class="LineNr">29467 </span> } +<span id="L29468" class="LineNr">29468 </span> <span class="subxComment"># otherwise print " *(ebp+" base->offset ")"</span> +<span id="L29469" class="LineNr">29469 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *(ebp+"</span>) +<span id="L29470" class="LineNr">29470 </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="L29471" class="LineNr">29471 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) +<span id="L29472" class="LineNr">29472 </span><span class="Constant">$emit-mu-index-bounds-check:emit-function-name</span>: +<span id="L29473" class="LineNr">29473 </span> <span class="subxComment"># " \"" function-name "\""</span> +<span id="L29474" class="LineNr">29474 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" \"</span>") +<span id="L29475" class="LineNr">29475 </span> 8b/-> *(ebp+0x10) 1/r32/ecx +<span id="L29476" class="LineNr">29476 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L29477" class="LineNr">29477 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L29478" class="LineNr">29478 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"\"</span>") +<span id="L29479" class="LineNr">29479 </span><span class="Constant">$emit-mu-index-bounds-check:emit-array-name</span>: +<span id="L29480" class="LineNr">29480 </span> <span class="subxComment"># " \"" base->name "\""</span> +<span id="L29481" class="LineNr">29481 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" \"</span>") +<span id="L29482" class="LineNr">29482 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L29483" class="LineNr">29483 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L29484" class="LineNr">29484 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"\"</span>)\n") +<span id="L29485" class="LineNr">29485 </span><span class="Constant">$emit-mu-index-bounds-check:end</span>: +<span id="L29486" class="LineNr">29486 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L29487" class="LineNr">29487 </span> 5b/pop-to-ebx +<span id="L29488" class="LineNr">29488 </span> 5a/pop-to-edx +<span id="L29489" class="LineNr">29489 </span> 59/pop-to-ecx +<span id="L29490" class="LineNr">29490 </span> 58/pop-to-eax +<span id="L29491" class="LineNr">29491 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29492" class="LineNr">29492 </span> 89/<- %esp 5/r32/ebp +<span id="L29493" class="LineNr">29493 </span> 5d/pop-to-ebp +<span id="L29494" class="LineNr">29494 </span> c3/return +<span id="L29495" class="LineNr">29495 </span> +<span id="L29496" class="LineNr">29496 </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="L29497" class="LineNr">29497 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29498" class="LineNr">29498 </span> 55/push-ebp +<span id="L29499" class="LineNr">29499 </span> 89/<- %ebp 4/r32/esp +<span id="L29500" class="LineNr">29500 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L29501" class="LineNr">29501 </span> 50/push-eax +<span id="L29502" class="LineNr">29502 </span> 51/push-ecx +<span id="L29503" class="LineNr">29503 </span> 52/push-edx +<span id="L29504" class="LineNr">29504 </span> 53/push-ebx +<span id="L29505" class="LineNr">29505 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L29506" class="LineNr">29506 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L29507" class="LineNr">29507 </span> <span class="subxComment"># var base/ebx: (addr var) = inouts[0]</span> +<span id="L29508" class="LineNr">29508 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L29509" class="LineNr">29509 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L29510" class="LineNr">29510 </span> 89/<- %ebx 0/r32/eax +<span id="L29511" class="LineNr">29511 </span> <span class="subxComment"># emit null check</span> +<span id="L29512" class="LineNr">29512 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L29513" class="LineNr">29513 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 7/subop/compare %"</span>) +<span id="L29514" class="LineNr">29514 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29515" class="LineNr">29515 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L29516" class="LineNr">29516 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 0/imm32\n"</span>) +<span id="L29517" class="LineNr">29517 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L29518" class="LineNr">29518 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"0f 84/jump-if-= <a href='313index-bounds-check.subx.html#L88'>__mu-abort-null-index-base-address</a>/disp32\n"</span>) +<span id="L29519" class="LineNr">29519 </span> <span class="subxComment">#</span> +<span id="L29520" class="LineNr">29520 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L29521" class="LineNr">29521 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8d/copy-address *("</span>) +<span id="L29522" class="LineNr">29522 </span> <span class="subxComment"># TODO: ensure inouts[0] is in a register and not dereferenced</span> +<span id="L29523" class="LineNr">29523 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-base</span>: +<span id="L29524" class="LineNr">29524 </span> <span class="subxComment"># print base->register " + "</span> +<span id="L29525" class="LineNr">29525 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29526" class="LineNr">29526 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L29527" class="LineNr">29527 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" + "</span>) +<span id="L29528" class="LineNr">29528 </span> <span class="subxComment"># var index/edx: (addr var) = inouts[1]</span> +<span id="L29529" class="LineNr">29529 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L29530" class="LineNr">29530 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L29531" class="LineNr">29531 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L29532" class="LineNr">29532 </span> 89/<- %edx 0/r32/eax +<span id="L29533" class="LineNr">29533 </span> <span class="subxComment"># if index->register</span> +<span id="L29534" class="LineNr">29534 </span> 81 7/subop/compare *(edx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L29535" class="LineNr">29535 </span> { +<span id="L29536" class="LineNr">29536 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L29537" class="LineNr">29537 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-register-index</span>: +<span id="L29538" class="LineNr">29538 </span> <span class="subxComment"># if index is an int</span> +<span id="L29539" class="LineNr">29539 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L29540" class="LineNr">29540 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 1) <span class="subxComment"># int => eax</span> +<span id="L29541" class="LineNr">29541 </span> 3d/compare-eax-and 0/imm32/false +<span id="L29542" class="LineNr">29542 </span> { +<span id="L29543" class="LineNr">29543 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L29544" class="LineNr">29544 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-int-register-index</span>: +<span id="L29545" class="LineNr">29545 </span> <span class="subxComment"># print index->register "<<" log2(array-element-size(base)) " + 4) "</span> +<span id="L29546" class="LineNr">29546 </span> <span class="subxS1Comment"># . index->register "<<"</span> +<span id="L29547" class="LineNr">29547 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29548" class="LineNr">29548 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L29549" class="LineNr">29549 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"<<"</span>) +<span id="L29550" class="LineNr">29550 </span> <span class="subxS1Comment"># . log2(array-element-size(base->type))</span> +<span id="L29551" class="LineNr">29551 </span> <span class="subxComment"># we know size is a power of 2</span> +<span id="L29552" class="LineNr">29552 </span> (<a href='mu.subx.html#L28977'>array-element-size</a> %ebx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L29553" class="LineNr">29553 </span> (<a href='mu.subx.html#L30285'>num-shift-rights</a> %eax) <span class="subxComment"># => eax</span> +<span id="L29554" class="LineNr">29554 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L29555" class="LineNr">29555 </span> e9/jump $translate-mu-index-stmt-with-array-in-register:emit-register-index-done/disp32 +<span id="L29556" class="LineNr">29556 </span> } +<span id="L29557" class="LineNr">29557 </span> <span class="subxComment"># if index->type is any other atom, abort</span> +<span id="L29558" class="LineNr">29558 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L29559" class="LineNr">29559 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L29560" class="LineNr">29560 </span> 0f 85/jump-if-!= $translate-mu-index-stmt:error2/disp32 +<span id="L29561" class="LineNr">29561 </span> <span class="subxComment"># if index has type (offset ...)</span> +<span id="L29562" class="LineNr">29562 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L29563" class="LineNr">29563 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 7) <span class="subxComment"># => eax</span> +<span id="L29564" class="LineNr">29564 </span> 3d/compare-eax-and 0/imm32/false +<span id="L29565" class="LineNr">29565 </span> { +<span id="L29566" class="LineNr">29566 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L29567" class="LineNr">29567 </span> <span class="subxComment"># print index->register</span> +<span id="L29568" class="LineNr">29568 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-offset-register-index</span>: +<span id="L29569" class="LineNr">29569 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29570" class="LineNr">29570 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L29571" class="LineNr">29571 </span> } +<span id="L29572" class="LineNr">29572 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-register-index-done</span>: +<span id="L29573" class="LineNr">29573 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" + 4) "</span>) +<span id="L29574" class="LineNr">29574 </span> e9/jump $translate-mu-index-stmt-with-array-in-register:emit-output/disp32 +<span id="L29575" class="LineNr">29575 </span> } +<span id="L29576" class="LineNr">29576 </span> <span class="subxComment"># otherwise if index is a literal</span> +<span id="L29577" class="LineNr">29577 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L29578" class="LineNr">29578 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> +<span id="L29579" class="LineNr">29579 </span> 3d/compare-eax-and 0/imm32/false +<span id="L29580" class="LineNr">29580 </span> { +<span id="L29581" class="LineNr">29581 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L29582" class="LineNr">29582 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-literal-index</span>: +<span id="L29583" class="LineNr">29583 </span> <span class="subxComment"># var index-value/edx: int = parse-hex-int(index->name)</span> +<span id="L29584" class="LineNr">29584 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L29585" class="LineNr">29585 </span> (<a href='118parse-hex-int.subx.html#L354'>parse-hex-int</a> %eax) <span class="subxComment"># => eax</span> +<span id="L29586" class="LineNr">29586 </span> 89/<- %edx 0/r32/eax +<span id="L29587" class="LineNr">29587 </span> <span class="subxComment"># offset = idx-value * array-element-size(base->type)</span> +<span id="L29588" class="LineNr">29588 </span> (<a href='mu.subx.html#L28977'>array-element-size</a> %ebx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L29589" class="LineNr">29589 </span> f7 4/subop/multiply-into-edx-eax %edx <span class="subxComment"># clobbers edx</span> +<span id="L29590" class="LineNr">29590 </span> <span class="subxComment"># offset += 4 for array size</span> +<span id="L29591" class="LineNr">29591 </span> 05/add-to-eax 4/imm32 +<span id="L29592" class="LineNr">29592 </span> <span class="subxComment"># TODO: check edx for overflow</span> +<span id="L29593" class="LineNr">29593 </span> <span class="subxComment"># print offset</span> +<span id="L29594" class="LineNr">29594 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L29595" class="LineNr">29595 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) +<span id="L29596" class="LineNr">29596 </span> e9/jump $translate-mu-index-stmt-with-array-in-register:emit-output/disp32 +<span id="L29597" class="LineNr">29597 </span> } +<span id="L29598" class="LineNr">29598 </span> <span class="subxComment"># otherwise abort</span> +<span id="L29599" class="LineNr">29599 </span> e9/jump $translate-mu-index-stmt:error1/disp32 +<span id="L29600" class="LineNr">29600 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-output</span>: +<span id="L29601" class="LineNr">29601 </span> <span class="subxComment"># outputs[0] "/r32"</span> +<span id="L29602" class="LineNr">29602 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L29603" class="LineNr">29603 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> <span id="L29604" class="LineNr">29604 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L29605" class="LineNr">29605 </span> 89/<- %edx 0/r32/eax -<span id="L29606" class="LineNr">29606 </span> <span class="subxComment"># if index->register</span> -<span id="L29607" class="LineNr">29607 </span> 81 7/subop/compare *(edx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L29608" class="LineNr">29608 </span> { -<span id="L29609" class="LineNr">29609 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L29610" class="LineNr">29610 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-register-index</span>: -<span id="L29611" class="LineNr">29611 </span> <span class="subxComment"># if index is an int</span> -<span id="L29612" class="LineNr">29612 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L29613" class="LineNr">29613 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 1) <span class="subxComment"># int => eax</span> -<span id="L29614" class="LineNr">29614 </span> 3d/compare-eax-and 0/imm32/false -<span id="L29615" class="LineNr">29615 </span> { -<span id="L29616" class="LineNr">29616 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L29617" class="LineNr">29617 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-int-register-index</span>: -<span id="L29618" class="LineNr">29618 </span> <span class="subxComment"># print index->register "<<" log2(array-element-size(base)) " + " base->offset+4</span> -<span id="L29619" class="LineNr">29619 </span> <span class="subxS1Comment"># . inouts[1]->register "<<"</span> -<span id="L29620" class="LineNr">29620 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L29621" class="LineNr">29621 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L29622" class="LineNr">29622 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"<<"</span>) -<span id="L29623" class="LineNr">29623 </span> <span class="subxS1Comment"># . log2(array-element-size(base))</span> -<span id="L29624" class="LineNr">29624 </span> <span class="subxComment"># TODO: ensure size is a power of 2</span> -<span id="L29625" class="LineNr">29625 </span> (<a href='mu.subx.html#L28947'>array-element-size</a> %ecx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L29626" class="LineNr">29626 </span> (<a href='mu.subx.html#L30229'>num-shift-rights</a> %eax) <span class="subxComment"># => eax</span> -<span id="L29627" class="LineNr">29627 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L29628" class="LineNr">29628 </span> <span class="subxComment">#</span> -<span id="L29629" class="LineNr">29629 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" + "</span>) -<span id="L29630" class="LineNr">29630 </span> <span class="subxComment">#</span> -<span id="L29631" class="LineNr">29631 </span> 8b/-> *(ecx+0x14) 0/r32/eax <span class="subxComment"># Var-offset</span> -<span id="L29632" class="LineNr">29632 </span> 05/add-to-eax 4/imm32 <span class="subxComment"># for array length</span> -<span id="L29633" class="LineNr">29633 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L29634" class="LineNr">29634 </span> e9/jump $translate-mu-index-stmt-with-array-on-stack:emit-register-index-done/disp32 -<span id="L29635" class="LineNr">29635 </span> } -<span id="L29636" class="LineNr">29636 </span> <span class="subxComment"># if index->type is any other atom, abort</span> -<span id="L29637" class="LineNr">29637 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L29638" class="LineNr">29638 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L29639" class="LineNr">29639 </span> 0f 85/jump-if-!= $translate-mu-index-stmt:error2/disp32 -<span id="L29640" class="LineNr">29640 </span> <span class="subxComment"># if index has type (offset ...)</span> -<span id="L29641" class="LineNr">29641 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L29642" class="LineNr">29642 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 7) <span class="subxComment"># => eax</span> -<span id="L29643" class="LineNr">29643 </span> 3d/compare-eax-and 0/imm32/false -<span id="L29644" class="LineNr">29644 </span> { -<span id="L29645" class="LineNr">29645 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L29646" class="LineNr">29646 </span> <span class="subxComment"># print index->register</span> -<span id="L29647" class="LineNr">29647 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-offset-register-index</span>: -<span id="L29648" class="LineNr">29648 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L29649" class="LineNr">29649 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L29650" class="LineNr">29650 </span> } -<span id="L29651" class="LineNr">29651 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-register-index-done</span>: -<span id="L29652" class="LineNr">29652 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) -<span id="L29653" class="LineNr">29653 </span> e9/jump $translate-mu-index-stmt-with-array-on-stack:emit-output/disp32 -<span id="L29654" class="LineNr">29654 </span> } -<span id="L29655" class="LineNr">29655 </span> <span class="subxComment"># otherwise if index is a literal</span> -<span id="L29656" class="LineNr">29656 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L29657" class="LineNr">29657 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> -<span id="L29658" class="LineNr">29658 </span> 3d/compare-eax-and 0/imm32/false -<span id="L29659" class="LineNr">29659 </span> { -<span id="L29660" class="LineNr">29660 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L29661" class="LineNr">29661 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-literal-index</span>: -<span id="L29662" class="LineNr">29662 </span> <span class="subxComment"># var idx-value/edx: int = parse-hex-int(index->name)</span> -<span id="L29663" class="LineNr">29663 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L29664" class="LineNr">29664 </span> (<a href='118parse-hex-int.subx.html#L354'>parse-hex-int</a> %eax) <span class="subxComment"># Var-name => eax</span> -<span id="L29665" class="LineNr">29665 </span> 89/<- %edx 0/r32/eax -<span id="L29666" class="LineNr">29666 </span> <span class="subxComment"># offset = idx-value * array-element-size(base)</span> -<span id="L29667" class="LineNr">29667 </span> (<a href='mu.subx.html#L28947'>array-element-size</a> %ecx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L29668" class="LineNr">29668 </span> f7 4/subop/multiply-into-edx-eax %edx <span class="subxComment"># clobbers edx</span> -<span id="L29669" class="LineNr">29669 </span> <span class="subxComment"># offset += base->offset</span> -<span id="L29670" class="LineNr">29670 </span> 03/add *(ecx+0x14) 0/r32/eax <span class="subxComment"># Var-offset</span> -<span id="L29671" class="LineNr">29671 </span> <span class="subxComment"># offset += 4 for array size</span> -<span id="L29672" class="LineNr">29672 </span> 05/add-to-eax 4/imm32 -<span id="L29673" class="LineNr">29673 </span> <span class="subxComment"># TODO: check edx for overflow</span> -<span id="L29674" class="LineNr">29674 </span> <span class="subxComment"># print offset</span> -<span id="L29675" class="LineNr">29675 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L29676" class="LineNr">29676 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) -<span id="L29677" class="LineNr">29677 </span> e9/jump $translate-mu-index-stmt-with-array-on-stack:emit-output/disp32 -<span id="L29678" class="LineNr">29678 </span> } -<span id="L29679" class="LineNr">29679 </span> <span class="subxComment"># otherwise abort</span> -<span id="L29680" class="LineNr">29680 </span> e9/jump $translate-mu-index-stmt:error1/disp32 -<span id="L29681" class="LineNr">29681 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-output</span>: -<span id="L29682" class="LineNr">29682 </span> <span class="subxComment"># outputs[0] "/r32"</span> -<span id="L29683" class="LineNr">29683 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L29684" class="LineNr">29684 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x14) *(eax+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L29685" class="LineNr">29685 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L29686" class="LineNr">29686 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L29687" class="LineNr">29687 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19375'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax: (addr int)</span> -<span id="L29688" class="LineNr">29688 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L29689" class="LineNr">29689 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) -<span id="L29690" class="LineNr">29690 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:end</span>: -<span id="L29691" class="LineNr">29691 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L29692" class="LineNr">29692 </span> 5b/pop-to-ebx -<span id="L29693" class="LineNr">29693 </span> 5a/pop-to-edx -<span id="L29694" class="LineNr">29694 </span> 59/pop-to-ecx -<span id="L29695" class="LineNr">29695 </span> 58/pop-to-eax -<span id="L29696" class="LineNr">29696 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29697" class="LineNr">29697 </span> 89/<- %esp 5/r32/ebp -<span id="L29698" class="LineNr">29698 </span> 5d/pop-to-ebp -<span id="L29699" class="LineNr">29699 </span> c3/return -<span id="L29700" class="LineNr">29700 </span> -<span id="L29701" class="LineNr">29701 </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="L29702" class="LineNr">29702 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29703" class="LineNr">29703 </span> 55/push-ebp -<span id="L29704" class="LineNr">29704 </span> 89/<- %ebp 4/r32/esp -<span id="L29705" class="LineNr">29705 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L29706" class="LineNr">29706 </span> 50/push-eax -<span id="L29707" class="LineNr">29707 </span> 51/push-ecx -<span id="L29708" class="LineNr">29708 </span> 52/push-edx -<span id="L29709" class="LineNr">29709 </span> 53/push-ebx -<span id="L29710" class="LineNr">29710 </span> <span class="subxComment">#</span> -<span id="L29711" class="LineNr">29711 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L29712" class="LineNr">29712 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"69/multiply"</span>) -<span id="L29713" class="LineNr">29713 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L29714" class="LineNr">29714 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L29715" class="LineNr">29715 </span> <span class="subxComment"># var first-inout/ebx: (addr stmt-var) = stmt->inouts[0]</span> -<span id="L29716" class="LineNr">29716 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L29717" class="LineNr">29717 </span> 89/<- %ebx 0/r32/eax -<span id="L29718" class="LineNr">29718 </span><span class="Constant">$translate-mu-compute-index-stmt:emit-index</span>: -<span id="L29719" class="LineNr">29719 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L29720" class="LineNr">29720 </span> (<a href='mu.subx.html#L35416'>emit-subx-var-as-rm32</a> *(ebp+8) %eax) -<span id="L29721" class="LineNr">29721 </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="L29722" class="LineNr">29722 </span><span class="Constant">$translate-mu-compute-index-stmt:emit-elem-size</span>: -<span id="L29723" class="LineNr">29723 </span> <span class="subxComment"># var base/ebx: (addr var)</span> -<span id="L29724" class="LineNr">29724 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L29725" class="LineNr">29725 </span> 89/<- %ebx 0/r32/eax -<span id="L29726" class="LineNr">29726 </span> <span class="subxComment"># print array-element-size(base)</span> -<span id="L29727" class="LineNr">29727 </span> (<a href='mu.subx.html#L28947'>array-element-size</a> %ebx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L29728" class="LineNr">29728 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L29729" class="LineNr">29729 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32 "</span>) -<span id="L29730" class="LineNr">29730 </span><span class="Constant">$translate-mu-compute-index-stmt:emit-output</span>: -<span id="L29731" class="LineNr">29731 </span> <span class="subxComment"># outputs[0] "/r32"</span> -<span id="L29732" class="LineNr">29732 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L29733" class="LineNr">29733 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L29734" class="LineNr">29734 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L29735" class="LineNr">29735 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19375'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax: (addr int)</span> -<span id="L29736" class="LineNr">29736 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L29737" class="LineNr">29737 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) -<span id="L29738" class="LineNr">29738 </span><span class="Constant">$translate-mu-compute-index-stmt:end</span>: -<span id="L29739" class="LineNr">29739 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L29740" class="LineNr">29740 </span> 5b/pop-to-ebx -<span id="L29741" class="LineNr">29741 </span> 5a/pop-to-edx -<span id="L29742" class="LineNr">29742 </span> 59/pop-to-ecx -<span id="L29743" class="LineNr">29743 </span> 58/pop-to-eax -<span id="L29744" class="LineNr">29744 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29745" class="LineNr">29745 </span> 89/<- %esp 5/r32/ebp -<span id="L29746" class="LineNr">29746 </span> 5d/pop-to-ebp -<span id="L29747" class="LineNr">29747 </span> c3/return -<span id="L29748" class="LineNr">29748 </span> -<span id="L29749" class="LineNr">29749 </span><span class="subxFunction">translate-mu-get-stmt</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt)</span> -<span id="L29750" class="LineNr">29750 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29751" class="LineNr">29751 </span> 55/push-ebp -<span id="L29752" class="LineNr">29752 </span> 89/<- %ebp 4/r32/esp -<span id="L29753" class="LineNr">29753 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L29754" class="LineNr">29754 </span> 50/push-eax -<span id="L29755" class="LineNr">29755 </span> 51/push-ecx -<span id="L29756" class="LineNr">29756 </span> 52/push-edx -<span id="L29757" class="LineNr">29757 </span> <span class="subxComment">#</span> -<span id="L29758" class="LineNr">29758 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L29759" class="LineNr">29759 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8d/copy-address "</span>) -<span id="L29760" class="LineNr">29760 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L29761" class="LineNr">29761 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L29762" class="LineNr">29762 </span> <span class="subxComment"># var offset/edx: int = get offset of stmt</span> -<span id="L29763" class="LineNr">29763 </span> (<a href='mu.subx.html#L30256'>mu-get-offset</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L29764" class="LineNr">29764 </span> 89/<- %edx 0/r32/eax -<span id="L29765" class="LineNr">29765 </span> <span class="subxComment"># var base/eax: (addr var) = stmt->inouts->value</span> -<span id="L29766" class="LineNr">29766 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L29767" class="LineNr">29767 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L29768" class="LineNr">29768 </span> <span class="subxComment"># if base is in a register</span> -<span id="L29769" class="LineNr">29769 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L29770" class="LineNr">29770 </span> { -<span id="L29771" class="LineNr">29771 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L29772" class="LineNr">29772 </span><span class="Constant">$translate-mu-get-stmt:emit-register-input</span>: -<span id="L29773" class="LineNr">29773 </span> <span class="subxComment"># emit "*(" base->register " + " offset ") "</span> -<span id="L29774" class="LineNr">29774 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"*("</span>) -<span id="L29775" class="LineNr">29775 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L29776" class="LineNr">29776 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L29777" class="LineNr">29777 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" + "</span>) -<span id="L29778" class="LineNr">29778 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %edx) -<span id="L29779" class="LineNr">29779 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) -<span id="L29780" class="LineNr">29780 </span> e9/jump $translate-mu-get-stmt:emit-output/disp32 -<span id="L29781" class="LineNr">29781 </span> } -<span id="L29782" class="LineNr">29782 </span> <span class="subxComment"># otherwise base is on the stack</span> -<span id="L29783" class="LineNr">29783 </span> { -<span id="L29784" class="LineNr">29784 </span><span class="Constant">$translate-mu-get-stmt:emit-stack-input</span>: -<span id="L29785" class="LineNr">29785 </span> <span class="subxComment"># emit "*(ebp + " inouts[0]->stack-offset + offset ") "</span> -<span id="L29786" class="LineNr">29786 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"*(ebp+"</span>) -<span id="L29787" class="LineNr">29787 </span> 03/add *(eax+0x14) 2/r32/edx <span class="subxComment"># Var-offset</span> -<span id="L29788" class="LineNr">29788 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %edx) -<span id="L29789" class="LineNr">29789 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) -<span id="L29790" class="LineNr">29790 </span> eb/jump $translate-mu-get-stmt:emit-output/disp8 -<span id="L29791" class="LineNr">29791 </span> } -<span id="L29792" class="LineNr">29792 </span><span class="Constant">$translate-mu-get-stmt:emit-output</span>: -<span id="L29793" class="LineNr">29793 </span> <span class="subxComment"># var output/eax: (addr var) = stmt->outputs->value</span> -<span id="L29794" class="LineNr">29794 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L29795" class="LineNr">29795 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L29796" class="LineNr">29796 </span> <span class="subxComment"># emit offset->register "/r32"</span> -<span id="L29797" class="LineNr">29797 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L29798" class="LineNr">29798 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19375'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax: (addr int)</span> -<span id="L29799" class="LineNr">29799 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L29800" class="LineNr">29800 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) -<span id="L29801" class="LineNr">29801 </span><span class="Constant">$translate-mu-get-stmt:end</span>: -<span id="L29802" class="LineNr">29802 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L29803" class="LineNr">29803 </span> 5a/pop-to-edx -<span id="L29804" class="LineNr">29804 </span> 59/pop-to-ecx -<span id="L29805" class="LineNr">29805 </span> 58/pop-to-eax -<span id="L29806" class="LineNr">29806 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29807" class="LineNr">29807 </span> 89/<- %esp 5/r32/ebp -<span id="L29808" class="LineNr">29808 </span> 5d/pop-to-ebp -<span id="L29809" class="LineNr">29809 </span> c3/return -<span id="L29810" class="LineNr">29810 </span> -<span id="L29811" class="LineNr">29811 </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="L29812" class="LineNr">29812 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29813" class="LineNr">29813 </span> 55/push-ebp -<span id="L29814" class="LineNr">29814 </span> 89/<- %ebp 4/r32/esp -<span id="L29815" class="LineNr">29815 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L29816" class="LineNr">29816 </span> 50/push-eax -<span id="L29817" class="LineNr">29817 </span> <span class="subxComment">#</span> -<span id="L29818" class="LineNr">29818 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L29819" class="LineNr">29819 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(copy-bytes"</span>) -<span id="L29820" class="LineNr">29820 </span> <span class="subxComment"># eax = stmt</span> -<span id="L29821" class="LineNr">29821 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L29822" class="LineNr">29822 </span> <span class="subxComment"># var first-inout/eax: (addr stmt-var) = stmt->inouts[0]</span> -<span id="L29823" class="LineNr">29823 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L29824" class="LineNr">29824 </span> (<a href='mu.subx.html#L35254'>emit-subx-call-operand</a> *(ebp+8) %eax) -<span id="L29825" class="LineNr">29825 </span> <span class="subxComment"># var second-inout/eax: (addr stmt-var) = stmt->inouts[1]</span> -<span id="L29826" class="LineNr">29826 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L29827" class="LineNr">29827 </span> (<a href='mu.subx.html#L35254'>emit-subx-call-operand</a> *(ebp+8) %eax) -<span id="L29828" class="LineNr">29828 </span> <span class="subxComment"># emit size of inouts</span> -<span id="L29829" class="LineNr">29829 </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="L29830" class="LineNr">29830 </span> (<a href='mu.subx.html#L29934'>addr-payload-size</a> %eax *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L29831" class="LineNr">29831 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L29832" class="LineNr">29832 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L29833" class="LineNr">29833 </span><span class="Constant">$translate-mu-copy-object-stmt:end</span>: -<span id="L29834" class="LineNr">29834 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L29835" class="LineNr">29835 </span> 58/pop-to-eax -<span id="L29836" class="LineNr">29836 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29837" class="LineNr">29837 </span> 89/<- %esp 5/r32/ebp -<span id="L29838" class="LineNr">29838 </span> 5d/pop-to-ebp -<span id="L29839" class="LineNr">29839 </span> c3/return -<span id="L29840" class="LineNr">29840 </span> -<span id="L29841" class="LineNr">29841 </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="L29842" class="LineNr">29842 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29843" class="LineNr">29843 </span> 55/push-ebp -<span id="L29844" class="LineNr">29844 </span> 89/<- %ebp 4/r32/esp -<span id="L29845" class="LineNr">29845 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L29846" class="LineNr">29846 </span> 50/push-eax -<span id="L29847" class="LineNr">29847 </span> <span class="subxComment">#</span> -<span id="L29848" class="LineNr">29848 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L29849" class="LineNr">29849 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(zero-out"</span>) -<span id="L29850" class="LineNr">29850 </span> <span class="subxComment"># eax = stmt</span> -<span id="L29851" class="LineNr">29851 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L29852" class="LineNr">29852 </span> <span class="subxComment"># var dest/eax: (addr stmt-var) = stmt->inouts[0]</span> -<span id="L29853" class="LineNr">29853 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L29854" class="LineNr">29854 </span> <span class="subxComment">#</span> -<span id="L29855" class="LineNr">29855 </span> (<a href='mu.subx.html#L35254'>emit-subx-call-operand</a> *(ebp+8) %eax) -<span id="L29856" class="LineNr">29856 </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="L29857" class="LineNr">29857 </span> (<a href='mu.subx.html#L29934'>addr-payload-size</a> %eax *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L29858" class="LineNr">29858 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L29859" class="LineNr">29859 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L29860" class="LineNr">29860 </span><span class="Constant">$translate-mu-clear-object-stmt:end</span>: -<span id="L29861" class="LineNr">29861 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L29862" class="LineNr">29862 </span> 58/pop-to-eax -<span id="L29863" class="LineNr">29863 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29864" class="LineNr">29864 </span> 89/<- %esp 5/r32/ebp -<span id="L29865" class="LineNr">29865 </span> 5d/pop-to-ebp -<span id="L29866" class="LineNr">29866 </span> c3/return -<span id="L29867" class="LineNr">29867 </span> -<span id="L29868" class="LineNr">29868 </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="L29869" class="LineNr">29869 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29870" class="LineNr">29870 </span> 55/push-ebp -<span id="L29871" class="LineNr">29871 </span> 89/<- %ebp 4/r32/esp -<span id="L29872" class="LineNr">29872 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L29873" class="LineNr">29873 </span> 50/push-eax -<span id="L29874" class="LineNr">29874 </span> 56/push-esi -<span id="L29875" class="LineNr">29875 </span> 57/push-edi -<span id="L29876" class="LineNr">29876 </span> <span class="subxComment"># esi = stmt</span> -<span id="L29877" class="LineNr">29877 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L29878" class="LineNr">29878 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[0]</span> -<span id="L29879" class="LineNr">29879 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L29880" class="LineNr">29880 </span> 89/<- %edi 0/r32/eax -<span id="L29881" class="LineNr">29881 </span> <span class="subxComment">#</span> -<span id="L29882" class="LineNr">29882 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L29883" class="LineNr">29883 </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="L29884" class="LineNr">29884 </span> (<a href='mu.subx.html#L29898'>addr-handle-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L29885" class="LineNr">29885 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L29886" class="LineNr">29886 </span> (<a href='mu.subx.html#L35254'>emit-subx-call-operand</a> *(ebp+8) %edi) -<span id="L29887" class="LineNr">29887 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L29888" class="LineNr">29888 </span><span class="Constant">$translate-mu-allocate-stmt:end</span>: -<span id="L29889" class="LineNr">29889 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L29890" class="LineNr">29890 </span> 5f/pop-to-edi -<span id="L29891" class="LineNr">29891 </span> 5e/pop-to-esi -<span id="L29892" class="LineNr">29892 </span> 58/pop-to-eax -<span id="L29893" class="LineNr">29893 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29894" class="LineNr">29894 </span> 89/<- %esp 5/r32/ebp -<span id="L29895" class="LineNr">29895 </span> 5d/pop-to-ebp -<span id="L29896" class="LineNr">29896 </span> c3/return -<span id="L29897" class="LineNr">29897 </span> -<span id="L29898" class="LineNr">29898 </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="L29899" class="LineNr">29899 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29900" class="LineNr">29900 </span> 55/push-ebp -<span id="L29901" class="LineNr">29901 </span> 89/<- %ebp 4/r32/esp -<span id="L29902" class="LineNr">29902 </span> <span class="subxComment"># var t/eax: (addr type-tree) = s->value->type</span> -<span id="L29903" class="LineNr">29903 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L29904" class="LineNr">29904 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L29905" class="LineNr">29905 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L29906" class="LineNr">29906 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L29907" class="LineNr">29907 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> -<span id="L29908" class="LineNr">29908 </span> <span class="subxComment"># TODO: check t->left == addr</span> -<span id="L29909" class="LineNr">29909 </span> <span class="subxComment"># t = t->right</span> -<span id="L29910" class="LineNr">29910 </span><span class="Constant">$addr-handle-payload-size:skip-addr</span>: -<span id="L29911" class="LineNr">29911 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L29912" class="LineNr">29912 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L29913" class="LineNr">29913 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> -<span id="L29914" class="LineNr">29914 </span> <span class="subxComment"># TODO: check t->left == handle</span> -<span id="L29915" class="LineNr">29915 </span> <span class="subxComment"># t = t->right</span> -<span id="L29916" class="LineNr">29916 </span><span class="Constant">$addr-handle-payload-size:skip-handle</span>: -<span id="L29917" class="LineNr">29917 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L29918" class="LineNr">29918 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L29919" class="LineNr">29919 </span> <span class="subxComment"># if !t->is-atom? t = t->left</span> -<span id="L29920" class="LineNr">29920 </span> 81 7/subop/compare *eax 0/imm32/false -<span id="L29921" class="LineNr">29921 </span> { -<span id="L29922" class="LineNr">29922 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L29923" class="LineNr">29923 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L29924" class="LineNr">29924 </span> } -<span id="L29925" class="LineNr">29925 </span> <span class="subxComment"># TODO: check t->is-atom?</span> -<span id="L29926" class="LineNr">29926 </span> <span class="subxComment"># return size(t->value)</span> -<span id="L29927" class="LineNr">29927 </span> (<a href='mu.subx.html#L26759'>size-of-type-id</a> *(eax+4)) <span class="subxComment"># Type-tree-value => eax</span> -<span id="L29928" class="LineNr">29928 </span><span class="Constant">$addr-handle-payload-size:end</span>: -<span id="L29929" class="LineNr">29929 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29930" class="LineNr">29930 </span> 89/<- %esp 5/r32/ebp -<span id="L29931" class="LineNr">29931 </span> 5d/pop-to-ebp -<span id="L29932" class="LineNr">29932 </span> c3/return -<span id="L29933" class="LineNr">29933 </span> -<span id="L29934" class="LineNr">29934 </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="L29935" class="LineNr">29935 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29936" class="LineNr">29936 </span> 55/push-ebp -<span id="L29937" class="LineNr">29937 </span> 89/<- %ebp 4/r32/esp -<span id="L29938" class="LineNr">29938 </span> <span class="subxComment"># var t/eax: (addr type-tree) = s->value->type</span> -<span id="L29939" class="LineNr">29939 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L29940" class="LineNr">29940 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L29941" class="LineNr">29941 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L29942" class="LineNr">29942 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L29943" class="LineNr">29943 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> -<span id="L29944" class="LineNr">29944 </span> <span class="subxComment"># TODO: check t->left == addr</span> -<span id="L29945" class="LineNr">29945 </span> <span class="subxComment"># t = t->right</span> -<span id="L29946" class="LineNr">29946 </span><span class="Constant">$addr-payload-size:skip-addr</span>: -<span id="L29947" class="LineNr">29947 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L29948" class="LineNr">29948 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L29949" class="LineNr">29949 </span> <span class="subxComment"># if !t->is-atom? t = t->left</span> -<span id="L29950" class="LineNr">29950 </span> 81 7/subop/compare *eax 0/imm32/false -<span id="L29951" class="LineNr">29951 </span> { -<span id="L29952" class="LineNr">29952 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L29953" class="LineNr">29953 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L29954" class="LineNr">29954 </span> } -<span id="L29955" class="LineNr">29955 </span> <span class="subxComment"># TODO: check t->is-atom?</span> -<span id="L29956" class="LineNr">29956 </span> <span class="subxComment"># return size(t->value)</span> -<span id="L29957" class="LineNr">29957 </span> (<a href='mu.subx.html#L26759'>size-of-type-id</a> *(eax+4)) <span class="subxComment"># Type-tree-value => eax</span> -<span id="L29958" class="LineNr">29958 </span><span class="Constant">$addr-payload-size:end</span>: -<span id="L29959" class="LineNr">29959 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29960" class="LineNr">29960 </span> 89/<- %esp 5/r32/ebp -<span id="L29961" class="LineNr">29961 </span> 5d/pop-to-ebp -<span id="L29962" class="LineNr">29962 </span> c3/return -<span id="L29963" class="LineNr">29963 </span> -<span id="L29964" class="LineNr">29964 </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="L29965" class="LineNr">29965 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29966" class="LineNr">29966 </span> 55/push-ebp -<span id="L29967" class="LineNr">29967 </span> 89/<- %ebp 4/r32/esp -<span id="L29968" class="LineNr">29968 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L29969" class="LineNr">29969 </span> 50/push-eax -<span id="L29970" class="LineNr">29970 </span> 51/push-ecx -<span id="L29971" class="LineNr">29971 </span> 56/push-esi -<span id="L29972" class="LineNr">29972 </span> 57/push-edi -<span id="L29973" class="LineNr">29973 </span> <span class="subxComment"># esi = stmt</span> -<span id="L29974" class="LineNr">29974 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L29975" class="LineNr">29975 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[0]</span> -<span id="L29976" class="LineNr">29976 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L29977" class="LineNr">29977 </span> 89/<- %edi 0/r32/eax -<span id="L29978" class="LineNr">29978 </span> <span class="subxComment"># var len/ecx: (addr stmt-var) = stmt->inouts[1]</span> -<span id="L29979" class="LineNr">29979 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L29980" class="LineNr">29980 </span> 89/<- %ecx 0/r32/eax -<span id="L29981" class="LineNr">29981 </span> <span class="subxComment">#</span> -<span id="L29982" class="LineNr">29982 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L29983" class="LineNr">29983 </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="L29984" class="LineNr">29984 </span> (<a href='mu.subx.html#L30113'>addr-handle-array-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L29985" class="LineNr">29985 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L29986" class="LineNr">29986 </span> (<a href='mu.subx.html#L35254'>emit-subx-call-operand</a> *(ebp+8) %ecx) -<span id="L29987" class="LineNr">29987 </span> (<a href='mu.subx.html#L35254'>emit-subx-call-operand</a> *(ebp+8) %edi) -<span id="L29988" class="LineNr">29988 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L29989" class="LineNr">29989 </span><span class="Constant">$translate-mu-populate-stmt:end</span>: -<span id="L29990" class="LineNr">29990 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L29991" class="LineNr">29991 </span> 5f/pop-to-edi -<span id="L29992" class="LineNr">29992 </span> 5e/pop-to-esi -<span id="L29993" class="LineNr">29993 </span> 59/pop-to-ecx -<span id="L29994" class="LineNr">29994 </span> 58/pop-to-eax -<span id="L29995" class="LineNr">29995 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29996" class="LineNr">29996 </span> 89/<- %esp 5/r32/ebp -<span id="L29997" class="LineNr">29997 </span> 5d/pop-to-ebp -<span id="L29998" class="LineNr">29998 </span> c3/return -<span id="L29999" class="LineNr">29999 </span> -<span id="L30000" class="LineNr">30000 </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="L30001" class="LineNr">30001 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L30002" class="LineNr">30002 </span> 55/push-ebp -<span id="L30003" class="LineNr">30003 </span> 89/<- %ebp 4/r32/esp -<span id="L30004" class="LineNr">30004 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L30005" class="LineNr">30005 </span> 50/push-eax -<span id="L30006" class="LineNr">30006 </span> 51/push-ecx -<span id="L30007" class="LineNr">30007 </span> 56/push-esi -<span id="L30008" class="LineNr">30008 </span> 57/push-edi -<span id="L30009" class="LineNr">30009 </span> <span class="subxComment"># esi = stmt</span> -<span id="L30010" class="LineNr">30010 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L30011" class="LineNr">30011 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[0]</span> -<span id="L30012" class="LineNr">30012 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L30013" class="LineNr">30013 </span> 89/<- %edi 0/r32/eax -<span id="L30014" class="LineNr">30014 </span> <span class="subxComment"># var len/ecx: (addr stmt-var) = stmt->inouts[1]</span> -<span id="L30015" class="LineNr">30015 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L30016" class="LineNr">30016 </span> 89/<- %ecx 0/r32/eax -<span id="L30017" class="LineNr">30017 </span> <span class="subxComment">#</span> -<span id="L30018" class="LineNr">30018 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L30019" class="LineNr">30019 </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="L30020" class="LineNr">30020 </span> (<a href='mu.subx.html#L30156'>addr-handle-stream-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L30021" class="LineNr">30021 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L30022" class="LineNr">30022 </span> (<a href='mu.subx.html#L35254'>emit-subx-call-operand</a> *(ebp+8) %ecx) -<span id="L30023" class="LineNr">30023 </span> (<a href='mu.subx.html#L35254'>emit-subx-call-operand</a> *(ebp+8) %edi) -<span id="L30024" class="LineNr">30024 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L30025" class="LineNr">30025 </span><span class="Constant">$translate-mu-populate-stream-stmt:end</span>: -<span id="L30026" class="LineNr">30026 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L30027" class="LineNr">30027 </span> 5f/pop-to-edi -<span id="L30028" class="LineNr">30028 </span> 5e/pop-to-esi -<span id="L30029" class="LineNr">30029 </span> 59/pop-to-ecx -<span id="L30030" class="LineNr">30030 </span> 58/pop-to-eax -<span id="L30031" class="LineNr">30031 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L30032" class="LineNr">30032 </span> 89/<- %esp 5/r32/ebp -<span id="L30033" class="LineNr">30033 </span> 5d/pop-to-ebp -<span id="L30034" class="LineNr">30034 </span> c3/return -<span id="L30035" class="LineNr">30035 </span> -<span id="L30036" class="LineNr">30036 </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="L30037" class="LineNr">30037 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L30038" class="LineNr">30038 </span> 55/push-ebp -<span id="L30039" class="LineNr">30039 </span> 89/<- %ebp 4/r32/esp -<span id="L30040" class="LineNr">30040 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L30041" class="LineNr">30041 </span> 50/push-eax -<span id="L30042" class="LineNr">30042 </span> 51/push-ecx -<span id="L30043" class="LineNr">30043 </span> 56/push-esi -<span id="L30044" class="LineNr">30044 </span> 57/push-edi -<span id="L30045" class="LineNr">30045 </span> <span class="subxComment"># esi = stmt</span> -<span id="L30046" class="LineNr">30046 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L30047" class="LineNr">30047 </span> <span class="subxComment"># var stream/ecx: (addr stmt-var) = stmt->inouts[0]</span> -<span id="L30048" class="LineNr">30048 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L30049" class="LineNr">30049 </span> 89/<- %ecx 0/r32/eax -<span id="L30050" class="LineNr">30050 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[1]</span> -<span id="L30051" class="LineNr">30051 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L30052" class="LineNr">30052 </span> 89/<- %edi 0/r32/eax -<span id="L30053" class="LineNr">30053 </span> <span class="subxComment">#</span> -<span id="L30054" class="LineNr">30054 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L30055" class="LineNr">30055 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(read-from-stream"</span>) -<span id="L30056" class="LineNr">30056 </span> (<a href='mu.subx.html#L35254'>emit-subx-call-operand</a> *(ebp+8) %ecx) -<span id="L30057" class="LineNr">30057 </span> (<a href='mu.subx.html#L35254'>emit-subx-call-operand</a> *(ebp+8) %edi) -<span id="L30058" class="LineNr">30058 </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="L30059" class="LineNr">30059 </span> (<a href='mu.subx.html#L29934'>addr-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L30060" class="LineNr">30060 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L30061" class="LineNr">30061 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L30062" class="LineNr">30062 </span><span class="Constant">$translate-mu-read-from-stream-stmt:end</span>: -<span id="L30063" class="LineNr">30063 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L30064" class="LineNr">30064 </span> 5f/pop-to-edi -<span id="L30065" class="LineNr">30065 </span> 5e/pop-to-esi -<span id="L30066" class="LineNr">30066 </span> 59/pop-to-ecx -<span id="L30067" class="LineNr">30067 </span> 58/pop-to-eax -<span id="L30068" class="LineNr">30068 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L30069" class="LineNr">30069 </span> 89/<- %esp 5/r32/ebp -<span id="L30070" class="LineNr">30070 </span> 5d/pop-to-ebp -<span id="L30071" class="LineNr">30071 </span> c3/return -<span id="L30072" class="LineNr">30072 </span> -<span id="L30073" class="LineNr">30073 </span><span class="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="L30074" class="LineNr">30074 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L30075" class="LineNr">30075 </span> 55/push-ebp -<span id="L30076" class="LineNr">30076 </span> 89/<- %ebp 4/r32/esp -<span id="L30077" class="LineNr">30077 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L30078" class="LineNr">30078 </span> 50/push-eax -<span id="L30079" class="LineNr">30079 </span> 51/push-ecx -<span id="L30080" class="LineNr">30080 </span> 56/push-esi -<span id="L30081" class="LineNr">30081 </span> 57/push-edi -<span id="L30082" class="LineNr">30082 </span> <span class="subxComment"># esi = stmt</span> -<span id="L30083" class="LineNr">30083 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L30084" class="LineNr">30084 </span> <span class="subxComment"># var stream/ecx: (addr stmt-var) = stmt->inouts[0]</span> -<span id="L30085" class="LineNr">30085 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L30086" class="LineNr">30086 </span> 89/<- %ecx 0/r32/eax -<span id="L30087" class="LineNr">30087 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[1]</span> -<span id="L30088" class="LineNr">30088 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L30089" class="LineNr">30089 </span> 89/<- %edi 0/r32/eax -<span id="L30090" class="LineNr">30090 </span> <span class="subxComment">#</span> -<span id="L30091" class="LineNr">30091 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L30092" class="LineNr">30092 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(write-to-stream"</span>) -<span id="L30093" class="LineNr">30093 </span> (<a href='mu.subx.html#L35254'>emit-subx-call-operand</a> *(ebp+8) %ecx) -<span id="L30094" class="LineNr">30094 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+8)) -<span id="L30095" class="LineNr">30095 </span> (<a href='mu.subx.html#L35254'>emit-subx-call-operand</a> *(ebp+8) %edi) -<span id="L30096" class="LineNr">30096 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+8)) -<span id="L30097" class="LineNr">30097 </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="L30098" class="LineNr">30098 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+8)) -<span id="L30099" class="LineNr">30099 </span> (<a href='mu.subx.html#L29934'>addr-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L30100" class="LineNr">30100 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L30101" class="LineNr">30101 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L30102" class="LineNr">30102 </span><span class="Constant">$translate-mu-write-to-stream-stmt:end</span>: -<span id="L30103" class="LineNr">30103 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L30104" class="LineNr">30104 </span> 5f/pop-to-edi -<span id="L30105" class="LineNr">30105 </span> 5e/pop-to-esi -<span id="L30106" class="LineNr">30106 </span> 59/pop-to-ecx -<span id="L30107" class="LineNr">30107 </span> 58/pop-to-eax -<span id="L30108" class="LineNr">30108 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L30109" class="LineNr">30109 </span> 89/<- %esp 5/r32/ebp -<span id="L30110" class="LineNr">30110 </span> 5d/pop-to-ebp -<span id="L30111" class="LineNr">30111 </span> c3/return -<span id="L30112" class="LineNr">30112 </span> -<span id="L30113" class="LineNr">30113 </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="L30114" class="LineNr">30114 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L30115" class="LineNr">30115 </span> 55/push-ebp -<span id="L30116" class="LineNr">30116 </span> 89/<- %ebp 4/r32/esp -<span id="L30117" class="LineNr">30117 </span> <span class="subxComment"># var t/eax: (addr type-tree) = s->value->type</span> -<span id="L30118" class="LineNr">30118 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L30119" class="LineNr">30119 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L30120" class="LineNr">30120 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L30121" class="LineNr">30121 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L30122" class="LineNr">30122 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> -<span id="L30123" class="LineNr">30123 </span> <span class="subxComment"># TODO: check t->left == addr</span> -<span id="L30124" class="LineNr">30124 </span> <span class="subxComment"># t = t->right</span> -<span id="L30125" class="LineNr">30125 </span><span class="Constant">$addr-handle-array-payload-size:skip-addr</span>: -<span id="L30126" class="LineNr">30126 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L30127" class="LineNr">30127 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L30128" class="LineNr">30128 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> -<span id="L30129" class="LineNr">30129 </span> <span class="subxComment"># TODO: check t->left == handle</span> -<span id="L30130" class="LineNr">30130 </span> <span class="subxComment"># t = t->right</span> -<span id="L30131" class="LineNr">30131 </span><span class="Constant">$addr-handle-array-payload-size:skip-handle</span>: -<span id="L30132" class="LineNr">30132 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L30133" class="LineNr">30133 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L30134" class="LineNr">30134 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> -<span id="L30135" class="LineNr">30135 </span> <span class="subxComment"># TODO: check t->left == array</span> -<span id="L30136" class="LineNr">30136 </span> <span class="subxComment"># t = t->right</span> -<span id="L30137" class="LineNr">30137 </span><span class="Constant">$addr-handle-array-payload-size:skip-array</span>: -<span id="L30138" class="LineNr">30138 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L30139" class="LineNr">30139 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L30140" class="LineNr">30140 </span> <span class="subxComment"># if !t->is-atom? t = t->left</span> -<span id="L30141" class="LineNr">30141 </span> 81 7/subop/compare *eax 0/imm32/false -<span id="L30142" class="LineNr">30142 </span> { -<span id="L30143" class="LineNr">30143 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L30144" class="LineNr">30144 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L30145" class="LineNr">30145 </span> } -<span id="L30146" class="LineNr">30146 </span><span class="Constant">$addr-handle-array-payload-size:compute-size</span>: -<span id="L30147" class="LineNr">30147 </span> <span class="subxComment"># TODO: check t->is-atom?</span> -<span id="L30148" class="LineNr">30148 </span> <span class="subxComment"># return size(t->value)</span> -<span id="L30149" class="LineNr">30149 </span> (<a href='mu.subx.html#L29066'>size-of-type-id-as-array-element</a> *(eax+4)) <span class="subxComment"># Type-tree-value => eax</span> -<span id="L30150" class="LineNr">30150 </span><span class="Constant">$addr-handle-array-payload-size:end</span>: -<span id="L30151" class="LineNr">30151 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L30152" class="LineNr">30152 </span> 89/<- %esp 5/r32/ebp -<span id="L30153" class="LineNr">30153 </span> 5d/pop-to-ebp -<span id="L30154" class="LineNr">30154 </span> c3/return -<span id="L30155" class="LineNr">30155 </span> -<span id="L30156" class="LineNr">30156 </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="L30157" class="LineNr">30157 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L30158" class="LineNr">30158 </span> 55/push-ebp -<span id="L30159" class="LineNr">30159 </span> 89/<- %ebp 4/r32/esp -<span id="L30160" class="LineNr">30160 </span> <span class="subxComment"># var t/eax: (addr type-tree) = s->value->type</span> -<span id="L30161" class="LineNr">30161 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L30162" class="LineNr">30162 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L30163" class="LineNr">30163 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L30164" class="LineNr">30164 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L30165" class="LineNr">30165 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> -<span id="L30166" class="LineNr">30166 </span> <span class="subxComment"># TODO: check t->left == addr</span> -<span id="L30167" class="LineNr">30167 </span> <span class="subxComment"># t = t->right</span> -<span id="L30168" class="LineNr">30168 </span><span class="Constant">$addr-handle-stream-payload-size:skip-addr</span>: -<span id="L30169" class="LineNr">30169 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L30170" class="LineNr">30170 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L30171" class="LineNr">30171 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> -<span id="L30172" class="LineNr">30172 </span> <span class="subxComment"># TODO: check t->left == handle</span> -<span id="L30173" class="LineNr">30173 </span> <span class="subxComment"># t = t->right</span> -<span id="L30174" class="LineNr">30174 </span><span class="Constant">$addr-handle-stream-payload-size:skip-handle</span>: -<span id="L30175" class="LineNr">30175 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L30176" class="LineNr">30176 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L30177" class="LineNr">30177 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> -<span id="L30178" class="LineNr">30178 </span> <span class="subxComment"># TODO: check t->left == stream</span> -<span id="L30179" class="LineNr">30179 </span> <span class="subxComment"># t = t->right</span> -<span id="L30180" class="LineNr">30180 </span><span class="Constant">$addr-handle-stream-payload-size:skip-stream</span>: -<span id="L30181" class="LineNr">30181 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L30182" class="LineNr">30182 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L30183" class="LineNr">30183 </span> <span class="subxComment"># if !t->is-atom? t = t->left</span> -<span id="L30184" class="LineNr">30184 </span> 81 7/subop/compare *eax 0/imm32/false -<span id="L30185" class="LineNr">30185 </span> { -<span id="L30186" class="LineNr">30186 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L30187" class="LineNr">30187 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L30188" class="LineNr">30188 </span> } -<span id="L30189" class="LineNr">30189 </span><span class="Constant">$addr-handle-stream-payload-size:compute-size</span>: -<span id="L30190" class="LineNr">30190 </span> <span class="subxComment"># TODO: check t->is-atom?</span> -<span id="L30191" class="LineNr">30191 </span> <span class="subxComment"># return size(t->value)</span> -<span id="L30192" class="LineNr">30192 </span> (<a href='mu.subx.html#L29066'>size-of-type-id-as-array-element</a> *(eax+4)) <span class="subxComment"># Type-tree-value => eax</span> -<span id="L30193" class="LineNr">30193 </span><span class="Constant">$addr-handle-stream-payload-size:end</span>: -<span id="L30194" class="LineNr">30194 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L30195" class="LineNr">30195 </span> 89/<- %esp 5/r32/ebp -<span id="L30196" class="LineNr">30196 </span> 5d/pop-to-ebp -<span id="L30197" class="LineNr">30197 </span> c3/return -<span id="L30198" class="LineNr">30198 </span> -<span id="L30199" class="LineNr">30199 </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="L30200" class="LineNr">30200 </span> <span class="subxComment"># precondition: n is positive</span> -<span id="L30201" class="LineNr">30201 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L30202" class="LineNr">30202 </span> 55/push-ebp -<span id="L30203" class="LineNr">30203 </span> 89/<- %ebp 4/r32/esp -<span id="L30204" class="LineNr">30204 </span> <span class="subxComment"># eax = n</span> -<span id="L30205" class="LineNr">30205 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L30206" class="LineNr">30206 </span> <span class="subxComment"># if (n < 0) abort</span> -<span id="L30207" class="LineNr">30207 </span> 3d/compare-eax-with 0/imm32 -<span id="L30208" class="LineNr">30208 </span> 0f 8c/jump-if-< $power-of-2?:abort/disp32 -<span id="L30209" class="LineNr">30209 </span> <span class="subxComment"># var tmp/eax: int = n-1</span> -<span id="L30210" class="LineNr">30210 </span> 48/decrement-eax -<span id="L30211" class="LineNr">30211 </span> <span class="subxComment"># var tmp2/eax: int = n & tmp</span> -<span id="L30212" class="LineNr">30212 </span> 23/and-> *(ebp+8) 0/r32/eax -<span id="L30213" class="LineNr">30213 </span> <span class="subxComment"># return (tmp2 == 0)</span> -<span id="L30214" class="LineNr">30214 </span> 3d/compare-eax-and 0/imm32 -<span id="L30215" class="LineNr">30215 </span> 0f 94/set-byte-if-= %al -<span id="L30216" class="LineNr">30216 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L30217" class="LineNr">30217 </span><span class="Constant">$power-of-2?:end</span>: -<span id="L30218" class="LineNr">30218 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L30219" class="LineNr">30219 </span> 89/<- %esp 5/r32/ebp -<span id="L30220" class="LineNr">30220 </span> 5d/pop-to-ebp -<span id="L30221" class="LineNr">30221 </span> c3/return -<span id="L30222" class="LineNr">30222 </span> -<span id="L30223" class="LineNr">30223 </span><span class="Constant">$power-of-2?:abort</span>: -<span id="L30224" class="LineNr">30224 </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="L30225" class="LineNr">30225 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L30226" class="LineNr">30226 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L30227" class="LineNr">30227 </span> <span class="subxComment"># never gets here</span> -<span id="L30228" class="LineNr">30228 </span> -<span id="L30229" class="LineNr">30229 </span><span class="subxFunction">num-shift-rights</span>: <span class="subxComment"># n: int -> result/eax: int</span> -<span id="L30230" class="LineNr">30230 </span> <span class="subxComment"># precondition: n is a positive power of 2</span> -<span id="L30231" class="LineNr">30231 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L30232" class="LineNr">30232 </span> 55/push-ebp -<span id="L30233" class="LineNr">30233 </span> 89/<- %ebp 4/r32/esp -<span id="L30234" class="LineNr">30234 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L30235" class="LineNr">30235 </span> 51/push-ecx -<span id="L30236" class="LineNr">30236 </span> <span class="subxComment"># var curr/ecx: int = n</span> -<span id="L30237" class="LineNr">30237 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L30238" class="LineNr">30238 </span> <span class="subxComment"># result = 0</span> -<span id="L30239" class="LineNr">30239 </span> b8/copy-to-eax 0/imm32 -<span id="L30240" class="LineNr">30240 </span> { -<span id="L30241" class="LineNr">30241 </span> <span class="subxComment"># if (curr <= 1) break</span> -<span id="L30242" class="LineNr">30242 </span> 81 7/subop/compare %ecx 1/imm32 -<span id="L30243" class="LineNr">30243 </span> 7e/jump-if-<= <span class="Constant">break</span>/disp8 -<span id="L30244" class="LineNr">30244 </span> 40/increment-eax -<span id="L30245" class="LineNr">30245 </span> c1/shift 5/subop/arithmetic-right %ecx 1/imm8 -<span id="L30246" class="LineNr">30246 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L30247" class="LineNr">30247 </span> } -<span id="L30248" class="LineNr">30248 </span><span class="Constant">$num-shift-rights:end</span>: -<span id="L30249" class="LineNr">30249 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L30250" class="LineNr">30250 </span> 59/pop-to-ecx -<span id="L30251" class="LineNr">30251 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L30252" class="LineNr">30252 </span> 89/<- %esp 5/r32/ebp -<span id="L30253" class="LineNr">30253 </span> 5d/pop-to-ebp -<span id="L30254" class="LineNr">30254 </span> c3/return -<span id="L30255" class="LineNr">30255 </span> -<span id="L30256" class="LineNr">30256 </span><span class="subxFunction">mu-get-offset</span>: <span class="subxComment"># stmt: (addr stmt) -> result/eax: int</span> +<span id="L29605" class="LineNr">29605 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29606" class="LineNr">29606 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19397'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax: (addr int)</span> +<span id="L29607" class="LineNr">29607 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L29608" class="LineNr">29608 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) +<span id="L29609" class="LineNr">29609 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:end</span>: +<span id="L29610" class="LineNr">29610 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L29611" class="LineNr">29611 </span> 5b/pop-to-ebx +<span id="L29612" class="LineNr">29612 </span> 5a/pop-to-edx +<span id="L29613" class="LineNr">29613 </span> 59/pop-to-ecx +<span id="L29614" class="LineNr">29614 </span> 58/pop-to-eax +<span id="L29615" class="LineNr">29615 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29616" class="LineNr">29616 </span> 89/<- %esp 5/r32/ebp +<span id="L29617" class="LineNr">29617 </span> 5d/pop-to-ebp +<span id="L29618" class="LineNr">29618 </span> c3/return +<span id="L29619" class="LineNr">29619 </span> +<span id="L29620" class="LineNr">29620 </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="L29621" class="LineNr">29621 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29622" class="LineNr">29622 </span> 55/push-ebp +<span id="L29623" class="LineNr">29623 </span> 89/<- %ebp 4/r32/esp +<span id="L29624" class="LineNr">29624 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L29625" class="LineNr">29625 </span> 50/push-eax +<span id="L29626" class="LineNr">29626 </span> 51/push-ecx +<span id="L29627" class="LineNr">29627 </span> 52/push-edx +<span id="L29628" class="LineNr">29628 </span> 53/push-ebx +<span id="L29629" class="LineNr">29629 </span> <span class="subxComment">#</span> +<span id="L29630" class="LineNr">29630 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L29631" class="LineNr">29631 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8d/copy-address *(ebp + "</span>) +<span id="L29632" class="LineNr">29632 </span> <span class="subxComment"># var curr/edx: (addr stmt-var) = lookup(stmt->inouts)</span> +<span id="L29633" class="LineNr">29633 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L29634" class="LineNr">29634 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L29635" class="LineNr">29635 </span> 89/<- %edx 0/r32/eax +<span id="L29636" class="LineNr">29636 </span> <span class="subxComment"># var base/ecx: (addr var) = lookup(curr->value)</span> +<span id="L29637" class="LineNr">29637 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L29638" class="LineNr">29638 </span> 89/<- %ecx 0/r32/eax +<span id="L29639" class="LineNr">29639 </span> <span class="subxComment"># var curr2/eax: (addr stmt-var) = lookup(curr->next)</span> +<span id="L29640" class="LineNr">29640 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L29641" class="LineNr">29641 </span> <span class="subxComment"># var index/edx: (handle var) = curr2->value</span> +<span id="L29642" class="LineNr">29642 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L29643" class="LineNr">29643 </span> 89/<- %edx 0/r32/eax +<span id="L29644" class="LineNr">29644 </span> <span class="subxComment"># if index->register</span> +<span id="L29645" class="LineNr">29645 </span> 81 7/subop/compare *(edx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L29646" class="LineNr">29646 </span> { +<span id="L29647" class="LineNr">29647 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L29648" class="LineNr">29648 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-register-index</span>: +<span id="L29649" class="LineNr">29649 </span> <span class="subxComment"># if index is an int</span> +<span id="L29650" class="LineNr">29650 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L29651" class="LineNr">29651 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 1) <span class="subxComment"># int => eax</span> +<span id="L29652" class="LineNr">29652 </span> 3d/compare-eax-and 0/imm32/false +<span id="L29653" class="LineNr">29653 </span> { +<span id="L29654" class="LineNr">29654 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L29655" class="LineNr">29655 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-int-register-index</span>: +<span id="L29656" class="LineNr">29656 </span> <span class="subxComment"># print index->register "<<" log2(array-element-size(base)) " + " base->offset+4</span> +<span id="L29657" class="LineNr">29657 </span> <span class="subxS1Comment"># . inouts[1]->register "<<"</span> +<span id="L29658" class="LineNr">29658 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29659" class="LineNr">29659 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L29660" class="LineNr">29660 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"<<"</span>) +<span id="L29661" class="LineNr">29661 </span> <span class="subxS1Comment"># . log2(array-element-size(base))</span> +<span id="L29662" class="LineNr">29662 </span> <span class="subxComment"># TODO: ensure size is a power of 2</span> +<span id="L29663" class="LineNr">29663 </span> (<a href='mu.subx.html#L28977'>array-element-size</a> %ecx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L29664" class="LineNr">29664 </span> (<a href='mu.subx.html#L30285'>num-shift-rights</a> %eax) <span class="subxComment"># => eax</span> +<span id="L29665" class="LineNr">29665 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L29666" class="LineNr">29666 </span> <span class="subxComment">#</span> +<span id="L29667" class="LineNr">29667 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" + "</span>) +<span id="L29668" class="LineNr">29668 </span> <span class="subxComment">#</span> +<span id="L29669" class="LineNr">29669 </span> 8b/-> *(ecx+0x14) 0/r32/eax <span class="subxComment"># Var-offset</span> +<span id="L29670" class="LineNr">29670 </span> 05/add-to-eax 4/imm32 <span class="subxComment"># for array length</span> +<span id="L29671" class="LineNr">29671 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L29672" class="LineNr">29672 </span> e9/jump $translate-mu-index-stmt-with-array-on-stack:emit-register-index-done/disp32 +<span id="L29673" class="LineNr">29673 </span> } +<span id="L29674" class="LineNr">29674 </span> <span class="subxComment"># if index->type is any other atom, abort</span> +<span id="L29675" class="LineNr">29675 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L29676" class="LineNr">29676 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L29677" class="LineNr">29677 </span> 0f 85/jump-if-!= $translate-mu-index-stmt:error2/disp32 +<span id="L29678" class="LineNr">29678 </span> <span class="subxComment"># if index has type (offset ...)</span> +<span id="L29679" class="LineNr">29679 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L29680" class="LineNr">29680 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 7) <span class="subxComment"># => eax</span> +<span id="L29681" class="LineNr">29681 </span> 3d/compare-eax-and 0/imm32/false +<span id="L29682" class="LineNr">29682 </span> { +<span id="L29683" class="LineNr">29683 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L29684" class="LineNr">29684 </span> <span class="subxComment"># print index->register</span> +<span id="L29685" class="LineNr">29685 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-offset-register-index</span>: +<span id="L29686" class="LineNr">29686 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29687" class="LineNr">29687 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L29688" class="LineNr">29688 </span> } +<span id="L29689" class="LineNr">29689 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-register-index-done</span>: +<span id="L29690" class="LineNr">29690 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) +<span id="L29691" class="LineNr">29691 </span> e9/jump $translate-mu-index-stmt-with-array-on-stack:emit-output/disp32 +<span id="L29692" class="LineNr">29692 </span> } +<span id="L29693" class="LineNr">29693 </span> <span class="subxComment"># otherwise if index is a literal</span> +<span id="L29694" class="LineNr">29694 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L29695" class="LineNr">29695 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> +<span id="L29696" class="LineNr">29696 </span> 3d/compare-eax-and 0/imm32/false +<span id="L29697" class="LineNr">29697 </span> { +<span id="L29698" class="LineNr">29698 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L29699" class="LineNr">29699 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-literal-index</span>: +<span id="L29700" class="LineNr">29700 </span> <span class="subxComment"># var idx-value/edx: int = parse-hex-int(index->name)</span> +<span id="L29701" class="LineNr">29701 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L29702" class="LineNr">29702 </span> (<a href='118parse-hex-int.subx.html#L354'>parse-hex-int</a> %eax) <span class="subxComment"># Var-name => eax</span> +<span id="L29703" class="LineNr">29703 </span> 89/<- %edx 0/r32/eax +<span id="L29704" class="LineNr">29704 </span> <span class="subxComment"># offset = idx-value * array-element-size(base)</span> +<span id="L29705" class="LineNr">29705 </span> (<a href='mu.subx.html#L28977'>array-element-size</a> %ecx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L29706" class="LineNr">29706 </span> f7 4/subop/multiply-into-edx-eax %edx <span class="subxComment"># clobbers edx</span> +<span id="L29707" class="LineNr">29707 </span> <span class="subxComment"># offset += base->offset</span> +<span id="L29708" class="LineNr">29708 </span> 03/add *(ecx+0x14) 0/r32/eax <span class="subxComment"># Var-offset</span> +<span id="L29709" class="LineNr">29709 </span> <span class="subxComment"># offset += 4 for array size</span> +<span id="L29710" class="LineNr">29710 </span> 05/add-to-eax 4/imm32 +<span id="L29711" class="LineNr">29711 </span> <span class="subxComment"># TODO: check edx for overflow</span> +<span id="L29712" class="LineNr">29712 </span> <span class="subxComment"># print offset</span> +<span id="L29713" class="LineNr">29713 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L29714" class="LineNr">29714 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) +<span id="L29715" class="LineNr">29715 </span> e9/jump $translate-mu-index-stmt-with-array-on-stack:emit-output/disp32 +<span id="L29716" class="LineNr">29716 </span> } +<span id="L29717" class="LineNr">29717 </span> <span class="subxComment"># otherwise abort</span> +<span id="L29718" class="LineNr">29718 </span> e9/jump $translate-mu-index-stmt:error1/disp32 +<span id="L29719" class="LineNr">29719 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-output</span>: +<span id="L29720" class="LineNr">29720 </span> <span class="subxComment"># outputs[0] "/r32"</span> +<span id="L29721" class="LineNr">29721 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L29722" class="LineNr">29722 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x14) *(eax+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L29723" class="LineNr">29723 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L29724" class="LineNr">29724 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29725" class="LineNr">29725 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19397'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax: (addr int)</span> +<span id="L29726" class="LineNr">29726 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L29727" class="LineNr">29727 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) +<span id="L29728" class="LineNr">29728 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:end</span>: +<span id="L29729" class="LineNr">29729 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L29730" class="LineNr">29730 </span> 5b/pop-to-ebx +<span id="L29731" class="LineNr">29731 </span> 5a/pop-to-edx +<span id="L29732" class="LineNr">29732 </span> 59/pop-to-ecx +<span id="L29733" class="LineNr">29733 </span> 58/pop-to-eax +<span id="L29734" class="LineNr">29734 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29735" class="LineNr">29735 </span> 89/<- %esp 5/r32/ebp +<span id="L29736" class="LineNr">29736 </span> 5d/pop-to-ebp +<span id="L29737" class="LineNr">29737 </span> c3/return +<span id="L29738" class="LineNr">29738 </span> +<span id="L29739" class="LineNr">29739 </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="L29740" class="LineNr">29740 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29741" class="LineNr">29741 </span> 55/push-ebp +<span id="L29742" class="LineNr">29742 </span> 89/<- %ebp 4/r32/esp +<span id="L29743" class="LineNr">29743 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L29744" class="LineNr">29744 </span> 50/push-eax +<span id="L29745" class="LineNr">29745 </span> 51/push-ecx +<span id="L29746" class="LineNr">29746 </span> 52/push-edx +<span id="L29747" class="LineNr">29747 </span> 53/push-ebx +<span id="L29748" class="LineNr">29748 </span> <span class="subxComment">#</span> +<span id="L29749" class="LineNr">29749 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L29750" class="LineNr">29750 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"69/multiply"</span>) +<span id="L29751" class="LineNr">29751 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L29752" class="LineNr">29752 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L29753" class="LineNr">29753 </span> <span class="subxComment"># var first-inout/ebx: (addr stmt-var) = stmt->inouts[0]</span> +<span id="L29754" class="LineNr">29754 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L29755" class="LineNr">29755 </span> 89/<- %ebx 0/r32/eax +<span id="L29756" class="LineNr">29756 </span><span class="Constant">$translate-mu-compute-index-stmt:emit-index</span>: +<span id="L29757" class="LineNr">29757 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L29758" class="LineNr">29758 </span> (<a href='mu.subx.html#L35745'>emit-subx-var-as-rm32</a> *(ebp+8) %eax) +<span id="L29759" class="LineNr">29759 </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="L29760" class="LineNr">29760 </span><span class="Constant">$translate-mu-compute-index-stmt:emit-elem-size</span>: +<span id="L29761" class="LineNr">29761 </span> <span class="subxComment"># var base/ebx: (addr var)</span> +<span id="L29762" class="LineNr">29762 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L29763" class="LineNr">29763 </span> 89/<- %ebx 0/r32/eax +<span id="L29764" class="LineNr">29764 </span> <span class="subxComment"># print array-element-size(base)</span> +<span id="L29765" class="LineNr">29765 </span> (<a href='mu.subx.html#L28977'>array-element-size</a> %ebx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L29766" class="LineNr">29766 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L29767" class="LineNr">29767 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32 "</span>) +<span id="L29768" class="LineNr">29768 </span><span class="Constant">$translate-mu-compute-index-stmt:emit-output</span>: +<span id="L29769" class="LineNr">29769 </span> <span class="subxComment"># outputs[0] "/r32"</span> +<span id="L29770" class="LineNr">29770 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L29771" class="LineNr">29771 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L29772" class="LineNr">29772 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29773" class="LineNr">29773 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19397'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax: (addr int)</span> +<span id="L29774" class="LineNr">29774 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L29775" class="LineNr">29775 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) +<span id="L29776" class="LineNr">29776 </span><span class="Constant">$translate-mu-compute-index-stmt:end</span>: +<span id="L29777" class="LineNr">29777 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L29778" class="LineNr">29778 </span> 5b/pop-to-ebx +<span id="L29779" class="LineNr">29779 </span> 5a/pop-to-edx +<span id="L29780" class="LineNr">29780 </span> 59/pop-to-ecx +<span id="L29781" class="LineNr">29781 </span> 58/pop-to-eax +<span id="L29782" class="LineNr">29782 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29783" class="LineNr">29783 </span> 89/<- %esp 5/r32/ebp +<span id="L29784" class="LineNr">29784 </span> 5d/pop-to-ebp +<span id="L29785" class="LineNr">29785 </span> c3/return +<span id="L29786" class="LineNr">29786 </span> +<span id="L29787" class="LineNr">29787 </span><span class="subxFunction">translate-mu-get-stmt</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt)</span> +<span id="L29788" class="LineNr">29788 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29789" class="LineNr">29789 </span> 55/push-ebp +<span id="L29790" class="LineNr">29790 </span> 89/<- %ebp 4/r32/esp +<span id="L29791" class="LineNr">29791 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L29792" class="LineNr">29792 </span> 50/push-eax +<span id="L29793" class="LineNr">29793 </span> 51/push-ecx +<span id="L29794" class="LineNr">29794 </span> 52/push-edx +<span id="L29795" class="LineNr">29795 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L29796" class="LineNr">29796 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L29797" class="LineNr">29797 </span> <span class="subxComment"># var base/eax: (addr var) = stmt->inouts->value</span> +<span id="L29798" class="LineNr">29798 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L29799" class="LineNr">29799 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L29800" class="LineNr">29800 </span> <span class="subxComment"># if base is in a register, insert a null check</span> +<span id="L29801" class="LineNr">29801 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L29802" class="LineNr">29802 </span> { +<span id="L29803" class="LineNr">29803 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L29804" class="LineNr">29804 </span><span class="Constant">$translate-mu-get-stmt:emit-null-check-for-register-input</span>: +<span id="L29805" class="LineNr">29805 </span> <span class="subxComment"># emit "81 7/subop/compare %" base->register " 0/imm32\n"</span> +<span id="L29806" class="LineNr">29806 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L29807" class="LineNr">29807 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 7/subop/compare %"</span>) +<span id="L29808" class="LineNr">29808 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29809" class="LineNr">29809 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L29810" class="LineNr">29810 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 0/imm32\n"</span>) +<span id="L29811" class="LineNr">29811 </span> <span class="subxComment">#</span> +<span id="L29812" class="LineNr">29812 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L29813" class="LineNr">29813 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"0f 84/jump-if-= <a href='313index-bounds-check.subx.html#L96'>__mu-abort-null-get-base-address</a>/disp32\n"</span>) +<span id="L29814" class="LineNr">29814 </span> } +<span id="L29815" class="LineNr">29815 </span> <span class="subxComment"># var offset/edx: int = get offset of stmt</span> +<span id="L29816" class="LineNr">29816 </span> (<a href='mu.subx.html#L30312'>mu-get-offset</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L29817" class="LineNr">29817 </span> 89/<- %edx 0/r32/eax +<span id="L29818" class="LineNr">29818 </span> <span class="subxComment"># var base/eax: (addr var) = stmt->inouts->value</span> +<span id="L29819" class="LineNr">29819 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L29820" class="LineNr">29820 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L29821" class="LineNr">29821 </span> <span class="subxComment">#</span> +<span id="L29822" class="LineNr">29822 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L29823" class="LineNr">29823 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8d/copy-address "</span>) +<span id="L29824" class="LineNr">29824 </span> <span class="subxComment"># if base is in a register</span> +<span id="L29825" class="LineNr">29825 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L29826" class="LineNr">29826 </span> { +<span id="L29827" class="LineNr">29827 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L29828" class="LineNr">29828 </span><span class="Constant">$translate-mu-get-stmt:emit-register-input</span>: +<span id="L29829" class="LineNr">29829 </span> <span class="subxComment"># emit "*(" base->register " + " offset ") "</span> +<span id="L29830" class="LineNr">29830 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"*("</span>) +<span id="L29831" class="LineNr">29831 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29832" class="LineNr">29832 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L29833" class="LineNr">29833 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" + "</span>) +<span id="L29834" class="LineNr">29834 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %edx) +<span id="L29835" class="LineNr">29835 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) +<span id="L29836" class="LineNr">29836 </span> e9/jump $translate-mu-get-stmt:emit-output/disp32 +<span id="L29837" class="LineNr">29837 </span> } +<span id="L29838" class="LineNr">29838 </span> <span class="subxComment"># otherwise base is on the stack</span> +<span id="L29839" class="LineNr">29839 </span> { +<span id="L29840" class="LineNr">29840 </span><span class="Constant">$translate-mu-get-stmt:emit-stack-input</span>: +<span id="L29841" class="LineNr">29841 </span> <span class="subxComment"># emit "*(ebp + " inouts[0]->stack-offset + offset ") "</span> +<span id="L29842" class="LineNr">29842 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"*(ebp+"</span>) +<span id="L29843" class="LineNr">29843 </span> 03/add *(eax+0x14) 2/r32/edx <span class="subxComment"># Var-offset</span> +<span id="L29844" class="LineNr">29844 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %edx) +<span id="L29845" class="LineNr">29845 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) +<span id="L29846" class="LineNr">29846 </span> eb/jump $translate-mu-get-stmt:emit-output/disp8 +<span id="L29847" class="LineNr">29847 </span> } +<span id="L29848" class="LineNr">29848 </span><span class="Constant">$translate-mu-get-stmt:emit-output</span>: +<span id="L29849" class="LineNr">29849 </span> <span class="subxComment"># var output/eax: (addr var) = stmt->outputs->value</span> +<span id="L29850" class="LineNr">29850 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L29851" class="LineNr">29851 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L29852" class="LineNr">29852 </span> <span class="subxComment"># emit offset->register "/r32"</span> +<span id="L29853" class="LineNr">29853 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29854" class="LineNr">29854 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19397'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax: (addr int)</span> +<span id="L29855" class="LineNr">29855 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L29856" class="LineNr">29856 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) +<span id="L29857" class="LineNr">29857 </span><span class="Constant">$translate-mu-get-stmt:end</span>: +<span id="L29858" class="LineNr">29858 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L29859" class="LineNr">29859 </span> 5a/pop-to-edx +<span id="L29860" class="LineNr">29860 </span> 59/pop-to-ecx +<span id="L29861" class="LineNr">29861 </span> 58/pop-to-eax +<span id="L29862" class="LineNr">29862 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29863" class="LineNr">29863 </span> 89/<- %esp 5/r32/ebp +<span id="L29864" class="LineNr">29864 </span> 5d/pop-to-ebp +<span id="L29865" class="LineNr">29865 </span> c3/return +<span id="L29866" class="LineNr">29866 </span> +<span id="L29867" class="LineNr">29867 </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="L29868" class="LineNr">29868 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29869" class="LineNr">29869 </span> 55/push-ebp +<span id="L29870" class="LineNr">29870 </span> 89/<- %ebp 4/r32/esp +<span id="L29871" class="LineNr">29871 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L29872" class="LineNr">29872 </span> 50/push-eax +<span id="L29873" class="LineNr">29873 </span> <span class="subxComment">#</span> +<span id="L29874" class="LineNr">29874 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L29875" class="LineNr">29875 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(copy-bytes"</span>) +<span id="L29876" class="LineNr">29876 </span> <span class="subxComment"># eax = stmt</span> +<span id="L29877" class="LineNr">29877 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L29878" class="LineNr">29878 </span> <span class="subxComment"># var first-inout/eax: (addr stmt-var) = stmt->inouts[0]</span> +<span id="L29879" class="LineNr">29879 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L29880" class="LineNr">29880 </span> (<a href='mu.subx.html#L35583'>emit-subx-call-operand</a> *(ebp+8) %eax) +<span id="L29881" class="LineNr">29881 </span> <span class="subxComment"># var second-inout/eax: (addr stmt-var) = stmt->inouts[1]</span> +<span id="L29882" class="LineNr">29882 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L29883" class="LineNr">29883 </span> (<a href='mu.subx.html#L35583'>emit-subx-call-operand</a> *(ebp+8) %eax) +<span id="L29884" class="LineNr">29884 </span> <span class="subxComment"># emit size of inouts</span> +<span id="L29885" class="LineNr">29885 </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="L29886" class="LineNr">29886 </span> (<a href='mu.subx.html#L29990'>addr-payload-size</a> %eax *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L29887" class="LineNr">29887 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L29888" class="LineNr">29888 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L29889" class="LineNr">29889 </span><span class="Constant">$translate-mu-copy-object-stmt:end</span>: +<span id="L29890" class="LineNr">29890 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L29891" class="LineNr">29891 </span> 58/pop-to-eax +<span id="L29892" class="LineNr">29892 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29893" class="LineNr">29893 </span> 89/<- %esp 5/r32/ebp +<span id="L29894" class="LineNr">29894 </span> 5d/pop-to-ebp +<span id="L29895" class="LineNr">29895 </span> c3/return +<span id="L29896" class="LineNr">29896 </span> +<span id="L29897" class="LineNr">29897 </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="L29898" class="LineNr">29898 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29899" class="LineNr">29899 </span> 55/push-ebp +<span id="L29900" class="LineNr">29900 </span> 89/<- %ebp 4/r32/esp +<span id="L29901" class="LineNr">29901 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L29902" class="LineNr">29902 </span> 50/push-eax +<span id="L29903" class="LineNr">29903 </span> <span class="subxComment">#</span> +<span id="L29904" class="LineNr">29904 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L29905" class="LineNr">29905 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(zero-out"</span>) +<span id="L29906" class="LineNr">29906 </span> <span class="subxComment"># eax = stmt</span> +<span id="L29907" class="LineNr">29907 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L29908" class="LineNr">29908 </span> <span class="subxComment"># var dest/eax: (addr stmt-var) = stmt->inouts[0]</span> +<span id="L29909" class="LineNr">29909 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L29910" class="LineNr">29910 </span> <span class="subxComment">#</span> +<span id="L29911" class="LineNr">29911 </span> (<a href='mu.subx.html#L35583'>emit-subx-call-operand</a> *(ebp+8) %eax) +<span id="L29912" class="LineNr">29912 </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="L29913" class="LineNr">29913 </span> (<a href='mu.subx.html#L29990'>addr-payload-size</a> %eax *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L29914" class="LineNr">29914 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L29915" class="LineNr">29915 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L29916" class="LineNr">29916 </span><span class="Constant">$translate-mu-clear-object-stmt:end</span>: +<span id="L29917" class="LineNr">29917 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L29918" class="LineNr">29918 </span> 58/pop-to-eax +<span id="L29919" class="LineNr">29919 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29920" class="LineNr">29920 </span> 89/<- %esp 5/r32/ebp +<span id="L29921" class="LineNr">29921 </span> 5d/pop-to-ebp +<span id="L29922" class="LineNr">29922 </span> c3/return +<span id="L29923" class="LineNr">29923 </span> +<span id="L29924" class="LineNr">29924 </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="L29925" class="LineNr">29925 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29926" class="LineNr">29926 </span> 55/push-ebp +<span id="L29927" class="LineNr">29927 </span> 89/<- %ebp 4/r32/esp +<span id="L29928" class="LineNr">29928 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L29929" class="LineNr">29929 </span> 50/push-eax +<span id="L29930" class="LineNr">29930 </span> 56/push-esi +<span id="L29931" class="LineNr">29931 </span> 57/push-edi +<span id="L29932" class="LineNr">29932 </span> <span class="subxComment"># esi = stmt</span> +<span id="L29933" class="LineNr">29933 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L29934" class="LineNr">29934 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[0]</span> +<span id="L29935" class="LineNr">29935 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L29936" class="LineNr">29936 </span> 89/<- %edi 0/r32/eax +<span id="L29937" class="LineNr">29937 </span> <span class="subxComment">#</span> +<span id="L29938" class="LineNr">29938 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L29939" class="LineNr">29939 </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="L29940" class="LineNr">29940 </span> (<a href='mu.subx.html#L29954'>addr-handle-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L29941" class="LineNr">29941 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L29942" class="LineNr">29942 </span> (<a href='mu.subx.html#L35583'>emit-subx-call-operand</a> *(ebp+8) %edi) +<span id="L29943" class="LineNr">29943 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L29944" class="LineNr">29944 </span><span class="Constant">$translate-mu-allocate-stmt:end</span>: +<span id="L29945" class="LineNr">29945 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L29946" class="LineNr">29946 </span> 5f/pop-to-edi +<span id="L29947" class="LineNr">29947 </span> 5e/pop-to-esi +<span id="L29948" class="LineNr">29948 </span> 58/pop-to-eax +<span id="L29949" class="LineNr">29949 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29950" class="LineNr">29950 </span> 89/<- %esp 5/r32/ebp +<span id="L29951" class="LineNr">29951 </span> 5d/pop-to-ebp +<span id="L29952" class="LineNr">29952 </span> c3/return +<span id="L29953" class="LineNr">29953 </span> +<span id="L29954" class="LineNr">29954 </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="L29955" class="LineNr">29955 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29956" class="LineNr">29956 </span> 55/push-ebp +<span id="L29957" class="LineNr">29957 </span> 89/<- %ebp 4/r32/esp +<span id="L29958" class="LineNr">29958 </span> <span class="subxComment"># var t/eax: (addr type-tree) = s->value->type</span> +<span id="L29959" class="LineNr">29959 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L29960" class="LineNr">29960 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L29961" class="LineNr">29961 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L29962" class="LineNr">29962 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L29963" class="LineNr">29963 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> +<span id="L29964" class="LineNr">29964 </span> <span class="subxComment"># TODO: check t->left == addr</span> +<span id="L29965" class="LineNr">29965 </span> <span class="subxComment"># t = t->right</span> +<span id="L29966" class="LineNr">29966 </span><span class="Constant">$addr-handle-payload-size:skip-addr</span>: +<span id="L29967" class="LineNr">29967 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L29968" class="LineNr">29968 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L29969" class="LineNr">29969 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> +<span id="L29970" class="LineNr">29970 </span> <span class="subxComment"># TODO: check t->left == handle</span> +<span id="L29971" class="LineNr">29971 </span> <span class="subxComment"># t = t->right</span> +<span id="L29972" class="LineNr">29972 </span><span class="Constant">$addr-handle-payload-size:skip-handle</span>: +<span id="L29973" class="LineNr">29973 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L29974" class="LineNr">29974 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L29975" class="LineNr">29975 </span> <span class="subxComment"># if !t->is-atom? t = t->left</span> +<span id="L29976" class="LineNr">29976 </span> 81 7/subop/compare *eax 0/imm32/false +<span id="L29977" class="LineNr">29977 </span> { +<span id="L29978" class="LineNr">29978 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L29979" class="LineNr">29979 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L29980" class="LineNr">29980 </span> } +<span id="L29981" class="LineNr">29981 </span> <span class="subxComment"># TODO: check t->is-atom?</span> +<span id="L29982" class="LineNr">29982 </span> <span class="subxComment"># return size(t->value)</span> +<span id="L29983" class="LineNr">29983 </span> (<a href='mu.subx.html#L26781'>size-of-type-id</a> *(eax+4)) <span class="subxComment"># Type-tree-value => eax</span> +<span id="L29984" class="LineNr">29984 </span><span class="Constant">$addr-handle-payload-size:end</span>: +<span id="L29985" class="LineNr">29985 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29986" class="LineNr">29986 </span> 89/<- %esp 5/r32/ebp +<span id="L29987" class="LineNr">29987 </span> 5d/pop-to-ebp +<span id="L29988" class="LineNr">29988 </span> c3/return +<span id="L29989" class="LineNr">29989 </span> +<span id="L29990" class="LineNr">29990 </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="L29991" class="LineNr">29991 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29992" class="LineNr">29992 </span> 55/push-ebp +<span id="L29993" class="LineNr">29993 </span> 89/<- %ebp 4/r32/esp +<span id="L29994" class="LineNr">29994 </span> <span class="subxComment"># var t/eax: (addr type-tree) = s->value->type</span> +<span id="L29995" class="LineNr">29995 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L29996" class="LineNr">29996 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L29997" class="LineNr">29997 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L29998" class="LineNr">29998 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L29999" class="LineNr">29999 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> +<span id="L30000" class="LineNr">30000 </span> <span class="subxComment"># TODO: check t->left == addr</span> +<span id="L30001" class="LineNr">30001 </span> <span class="subxComment"># t = t->right</span> +<span id="L30002" class="LineNr">30002 </span><span class="Constant">$addr-payload-size:skip-addr</span>: +<span id="L30003" class="LineNr">30003 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L30004" class="LineNr">30004 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L30005" class="LineNr">30005 </span> <span class="subxComment"># if !t->is-atom? t = t->left</span> +<span id="L30006" class="LineNr">30006 </span> 81 7/subop/compare *eax 0/imm32/false +<span id="L30007" class="LineNr">30007 </span> { +<span id="L30008" class="LineNr">30008 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L30009" class="LineNr">30009 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L30010" class="LineNr">30010 </span> } +<span id="L30011" class="LineNr">30011 </span> <span class="subxComment"># TODO: check t->is-atom?</span> +<span id="L30012" class="LineNr">30012 </span> <span class="subxComment"># return size(t->value)</span> +<span id="L30013" class="LineNr">30013 </span> (<a href='mu.subx.html#L26781'>size-of-type-id</a> *(eax+4)) <span class="subxComment"># Type-tree-value => eax</span> +<span id="L30014" class="LineNr">30014 </span><span class="Constant">$addr-payload-size:end</span>: +<span id="L30015" class="LineNr">30015 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L30016" class="LineNr">30016 </span> 89/<- %esp 5/r32/ebp +<span id="L30017" class="LineNr">30017 </span> 5d/pop-to-ebp +<span id="L30018" class="LineNr">30018 </span> c3/return +<span id="L30019" class="LineNr">30019 </span> +<span id="L30020" class="LineNr">30020 </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="L30021" class="LineNr">30021 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L30022" class="LineNr">30022 </span> 55/push-ebp +<span id="L30023" class="LineNr">30023 </span> 89/<- %ebp 4/r32/esp +<span id="L30024" class="LineNr">30024 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L30025" class="LineNr">30025 </span> 50/push-eax +<span id="L30026" class="LineNr">30026 </span> 51/push-ecx +<span id="L30027" class="LineNr">30027 </span> 56/push-esi +<span id="L30028" class="LineNr">30028 </span> 57/push-edi +<span id="L30029" class="LineNr">30029 </span> <span class="subxComment"># esi = stmt</span> +<span id="L30030" class="LineNr">30030 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L30031" class="LineNr">30031 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[0]</span> +<span id="L30032" class="LineNr">30032 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L30033" class="LineNr">30033 </span> 89/<- %edi 0/r32/eax +<span id="L30034" class="LineNr">30034 </span> <span class="subxComment"># var len/ecx: (addr stmt-var) = stmt->inouts[1]</span> +<span id="L30035" class="LineNr">30035 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L30036" class="LineNr">30036 </span> 89/<- %ecx 0/r32/eax +<span id="L30037" class="LineNr">30037 </span> <span class="subxComment">#</span> +<span id="L30038" class="LineNr">30038 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L30039" class="LineNr">30039 </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="L30040" class="LineNr">30040 </span> (<a href='mu.subx.html#L30169'>addr-handle-array-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L30041" class="LineNr">30041 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L30042" class="LineNr">30042 </span> (<a href='mu.subx.html#L35583'>emit-subx-call-operand</a> *(ebp+8) %ecx) +<span id="L30043" class="LineNr">30043 </span> (<a href='mu.subx.html#L35583'>emit-subx-call-operand</a> *(ebp+8) %edi) +<span id="L30044" class="LineNr">30044 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L30045" class="LineNr">30045 </span><span class="Constant">$translate-mu-populate-stmt:end</span>: +<span id="L30046" class="LineNr">30046 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L30047" class="LineNr">30047 </span> 5f/pop-to-edi +<span id="L30048" class="LineNr">30048 </span> 5e/pop-to-esi +<span id="L30049" class="LineNr">30049 </span> 59/pop-to-ecx +<span id="L30050" class="LineNr">30050 </span> 58/pop-to-eax +<span id="L30051" class="LineNr">30051 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L30052" class="LineNr">30052 </span> 89/<- %esp 5/r32/ebp +<span id="L30053" class="LineNr">30053 </span> 5d/pop-to-ebp +<span id="L30054" class="LineNr">30054 </span> c3/return +<span id="L30055" class="LineNr">30055 </span> +<span id="L30056" class="LineNr">30056 </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="L30057" class="LineNr">30057 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L30058" class="LineNr">30058 </span> 55/push-ebp +<span id="L30059" class="LineNr">30059 </span> 89/<- %ebp 4/r32/esp +<span id="L30060" class="LineNr">30060 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L30061" class="LineNr">30061 </span> 50/push-eax +<span id="L30062" class="LineNr">30062 </span> 51/push-ecx +<span id="L30063" class="LineNr">30063 </span> 56/push-esi +<span id="L30064" class="LineNr">30064 </span> 57/push-edi +<span id="L30065" class="LineNr">30065 </span> <span class="subxComment"># esi = stmt</span> +<span id="L30066" class="LineNr">30066 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L30067" class="LineNr">30067 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[0]</span> +<span id="L30068" class="LineNr">30068 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L30069" class="LineNr">30069 </span> 89/<- %edi 0/r32/eax +<span id="L30070" class="LineNr">30070 </span> <span class="subxComment"># var len/ecx: (addr stmt-var) = stmt->inouts[1]</span> +<span id="L30071" class="LineNr">30071 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L30072" class="LineNr">30072 </span> 89/<- %ecx 0/r32/eax +<span id="L30073" class="LineNr">30073 </span> <span class="subxComment">#</span> +<span id="L30074" class="LineNr">30074 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L30075" class="LineNr">30075 </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="L30076" class="LineNr">30076 </span> (<a href='mu.subx.html#L30212'>addr-handle-stream-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L30077" class="LineNr">30077 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L30078" class="LineNr">30078 </span> (<a href='mu.subx.html#L35583'>emit-subx-call-operand</a> *(ebp+8) %ecx) +<span id="L30079" class="LineNr">30079 </span> (<a href='mu.subx.html#L35583'>emit-subx-call-operand</a> *(ebp+8) %edi) +<span id="L30080" class="LineNr">30080 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L30081" class="LineNr">30081 </span><span class="Constant">$translate-mu-populate-stream-stmt:end</span>: +<span id="L30082" class="LineNr">30082 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L30083" class="LineNr">30083 </span> 5f/pop-to-edi +<span id="L30084" class="LineNr">30084 </span> 5e/pop-to-esi +<span id="L30085" class="LineNr">30085 </span> 59/pop-to-ecx +<span id="L30086" class="LineNr">30086 </span> 58/pop-to-eax +<span id="L30087" class="LineNr">30087 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L30088" class="LineNr">30088 </span> 89/<- %esp 5/r32/ebp +<span id="L30089" class="LineNr">30089 </span> 5d/pop-to-ebp +<span id="L30090" class="LineNr">30090 </span> c3/return +<span id="L30091" class="LineNr">30091 </span> +<span id="L30092" class="LineNr">30092 </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="L30093" class="LineNr">30093 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L30094" class="LineNr">30094 </span> 55/push-ebp +<span id="L30095" class="LineNr">30095 </span> 89/<- %ebp 4/r32/esp +<span id="L30096" class="LineNr">30096 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L30097" class="LineNr">30097 </span> 50/push-eax +<span id="L30098" class="LineNr">30098 </span> 51/push-ecx +<span id="L30099" class="LineNr">30099 </span> 56/push-esi +<span id="L30100" class="LineNr">30100 </span> 57/push-edi +<span id="L30101" class="LineNr">30101 </span> <span class="subxComment"># esi = stmt</span> +<span id="L30102" class="LineNr">30102 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L30103" class="LineNr">30103 </span> <span class="subxComment"># var stream/ecx: (addr stmt-var) = stmt->inouts[0]</span> +<span id="L30104" class="LineNr">30104 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L30105" class="LineNr">30105 </span> 89/<- %ecx 0/r32/eax +<span id="L30106" class="LineNr">30106 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[1]</span> +<span id="L30107" class="LineNr">30107 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L30108" class="LineNr">30108 </span> 89/<- %edi 0/r32/eax +<span id="L30109" class="LineNr">30109 </span> <span class="subxComment">#</span> +<span id="L30110" class="LineNr">30110 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L30111" class="LineNr">30111 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(read-from-stream"</span>) +<span id="L30112" class="LineNr">30112 </span> (<a href='mu.subx.html#L35583'>emit-subx-call-operand</a> *(ebp+8) %ecx) +<span id="L30113" class="LineNr">30113 </span> (<a href='mu.subx.html#L35583'>emit-subx-call-operand</a> *(ebp+8) %edi) +<span id="L30114" class="LineNr">30114 </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="L30115" class="LineNr">30115 </span> (<a href='mu.subx.html#L29990'>addr-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L30116" class="LineNr">30116 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L30117" class="LineNr">30117 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L30118" class="LineNr">30118 </span><span class="Constant">$translate-mu-read-from-stream-stmt:end</span>: +<span id="L30119" class="LineNr">30119 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L30120" class="LineNr">30120 </span> 5f/pop-to-edi +<span id="L30121" class="LineNr">30121 </span> 5e/pop-to-esi +<span id="L30122" class="LineNr">30122 </span> 59/pop-to-ecx +<span id="L30123" class="LineNr">30123 </span> 58/pop-to-eax +<span id="L30124" class="LineNr">30124 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L30125" class="LineNr">30125 </span> 89/<- %esp 5/r32/ebp +<span id="L30126" class="LineNr">30126 </span> 5d/pop-to-ebp +<span id="L30127" class="LineNr">30127 </span> c3/return +<span id="L30128" class="LineNr">30128 </span> +<span id="L30129" class="LineNr">30129 </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="L30130" class="LineNr">30130 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L30131" class="LineNr">30131 </span> 55/push-ebp +<span id="L30132" class="LineNr">30132 </span> 89/<- %ebp 4/r32/esp +<span id="L30133" class="LineNr">30133 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L30134" class="LineNr">30134 </span> 50/push-eax +<span id="L30135" class="LineNr">30135 </span> 51/push-ecx +<span id="L30136" class="LineNr">30136 </span> 56/push-esi +<span id="L30137" class="LineNr">30137 </span> 57/push-edi +<span id="L30138" class="LineNr">30138 </span> <span class="subxComment"># esi = stmt</span> +<span id="L30139" class="LineNr">30139 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L30140" class="LineNr">30140 </span> <span class="subxComment"># var stream/ecx: (addr stmt-var) = stmt->inouts[0]</span> +<span id="L30141" class="LineNr">30141 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L30142" class="LineNr">30142 </span> 89/<- %ecx 0/r32/eax +<span id="L30143" class="LineNr">30143 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[1]</span> +<span id="L30144" class="LineNr">30144 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L30145" class="LineNr">30145 </span> 89/<- %edi 0/r32/eax +<span id="L30146" class="LineNr">30146 </span> <span class="subxComment">#</span> +<span id="L30147" class="LineNr">30147 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L30148" class="LineNr">30148 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(write-to-stream"</span>) +<span id="L30149" class="LineNr">30149 </span> (<a href='mu.subx.html#L35583'>emit-subx-call-operand</a> *(ebp+8) %ecx) +<span id="L30150" class="LineNr">30150 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+8)) +<span id="L30151" class="LineNr">30151 </span> (<a href='mu.subx.html#L35583'>emit-subx-call-operand</a> *(ebp+8) %edi) +<span id="L30152" class="LineNr">30152 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+8)) +<span id="L30153" class="LineNr">30153 </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="L30154" class="LineNr">30154 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+8)) +<span id="L30155" class="LineNr">30155 </span> (<a href='mu.subx.html#L29990'>addr-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L30156" class="LineNr">30156 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L30157" class="LineNr">30157 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L30158" class="LineNr">30158 </span><span class="Constant">$translate-mu-write-to-stream-stmt:end</span>: +<span id="L30159" class="LineNr">30159 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L30160" class="LineNr">30160 </span> 5f/pop-to-edi +<span id="L30161" class="LineNr">30161 </span> 5e/pop-to-esi +<span id="L30162" class="LineNr">30162 </span> 59/pop-to-ecx +<span id="L30163" class="LineNr">30163 </span> 58/pop-to-eax +<span id="L30164" class="LineNr">30164 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L30165" class="LineNr">30165 </span> 89/<- %esp 5/r32/ebp +<span id="L30166" class="LineNr">30166 </span> 5d/pop-to-ebp +<span id="L30167" class="LineNr">30167 </span> c3/return +<span id="L30168" class="LineNr">30168 </span> +<span id="L30169" class="LineNr">30169 </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="L30170" class="LineNr">30170 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L30171" class="LineNr">30171 </span> 55/push-ebp +<span id="L30172" class="LineNr">30172 </span> 89/<- %ebp 4/r32/esp +<span id="L30173" class="LineNr">30173 </span> <span class="subxComment"># var t/eax: (addr type-tree) = s->value->type</span> +<span id="L30174" class="LineNr">30174 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L30175" class="LineNr">30175 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L30176" class="LineNr">30176 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L30177" class="LineNr">30177 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L30178" class="LineNr">30178 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> +<span id="L30179" class="LineNr">30179 </span> <span class="subxComment"># TODO: check t->left == addr</span> +<span id="L30180" class="LineNr">30180 </span> <span class="subxComment"># t = t->right</span> +<span id="L30181" class="LineNr">30181 </span><span class="Constant">$addr-handle-array-payload-size:skip-addr</span>: +<span id="L30182" class="LineNr">30182 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L30183" class="LineNr">30183 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L30184" class="LineNr">30184 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> +<span id="L30185" class="LineNr">30185 </span> <span class="subxComment"># TODO: check t->left == handle</span> +<span id="L30186" class="LineNr">30186 </span> <span class="subxComment"># t = t->right</span> +<span id="L30187" class="LineNr">30187 </span><span class="Constant">$addr-handle-array-payload-size:skip-handle</span>: +<span id="L30188" class="LineNr">30188 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L30189" class="LineNr">30189 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L30190" class="LineNr">30190 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> +<span id="L30191" class="LineNr">30191 </span> <span class="subxComment"># TODO: check t->left == array</span> +<span id="L30192" class="LineNr">30192 </span> <span class="subxComment"># t = t->right</span> +<span id="L30193" class="LineNr">30193 </span><span class="Constant">$addr-handle-array-payload-size:skip-array</span>: +<span id="L30194" class="LineNr">30194 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L30195" class="LineNr">30195 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L30196" class="LineNr">30196 </span> <span class="subxComment"># if !t->is-atom? t = t->left</span> +<span id="L30197" class="LineNr">30197 </span> 81 7/subop/compare *eax 0/imm32/false +<span id="L30198" class="LineNr">30198 </span> { +<span id="L30199" class="LineNr">30199 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L30200" class="LineNr">30200 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L30201" class="LineNr">30201 </span> } +<span id="L30202" class="LineNr">30202 </span><span class="Constant">$addr-handle-array-payload-size:compute-size</span>: +<span id="L30203" class="LineNr">30203 </span> <span class="subxComment"># TODO: check t->is-atom?</span> +<span id="L30204" class="LineNr">30204 </span> <span class="subxComment"># return size(t->value)</span> +<span id="L30205" class="LineNr">30205 </span> (<a href='mu.subx.html#L29096'>size-of-type-id-as-array-element</a> *(eax+4)) <span class="subxComment"># Type-tree-value => eax</span> +<span id="L30206" class="LineNr">30206 </span><span class="Constant">$addr-handle-array-payload-size:end</span>: +<span id="L30207" class="LineNr">30207 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L30208" class="LineNr">30208 </span> 89/<- %esp 5/r32/ebp +<span id="L30209" class="LineNr">30209 </span> 5d/pop-to-ebp +<span id="L30210" class="LineNr">30210 </span> c3/return +<span id="L30211" class="LineNr">30211 </span> +<span id="L30212" class="LineNr">30212 </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="L30213" class="LineNr">30213 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L30214" class="LineNr">30214 </span> 55/push-ebp +<span id="L30215" class="LineNr">30215 </span> 89/<- %ebp 4/r32/esp +<span id="L30216" class="LineNr">30216 </span> <span class="subxComment"># var t/eax: (addr type-tree) = s->value->type</span> +<span id="L30217" class="LineNr">30217 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L30218" class="LineNr">30218 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L30219" class="LineNr">30219 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L30220" class="LineNr">30220 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L30221" class="LineNr">30221 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> +<span id="L30222" class="LineNr">30222 </span> <span class="subxComment"># TODO: check t->left == addr</span> +<span id="L30223" class="LineNr">30223 </span> <span class="subxComment"># t = t->right</span> +<span id="L30224" class="LineNr">30224 </span><span class="Constant">$addr-handle-stream-payload-size:skip-addr</span>: +<span id="L30225" class="LineNr">30225 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L30226" class="LineNr">30226 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L30227" class="LineNr">30227 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> +<span id="L30228" class="LineNr">30228 </span> <span class="subxComment"># TODO: check t->left == handle</span> +<span id="L30229" class="LineNr">30229 </span> <span class="subxComment"># t = t->right</span> +<span id="L30230" class="LineNr">30230 </span><span class="Constant">$addr-handle-stream-payload-size:skip-handle</span>: +<span id="L30231" class="LineNr">30231 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L30232" class="LineNr">30232 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L30233" class="LineNr">30233 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> +<span id="L30234" class="LineNr">30234 </span> <span class="subxComment"># TODO: check t->left == stream</span> +<span id="L30235" class="LineNr">30235 </span> <span class="subxComment"># t = t->right</span> +<span id="L30236" class="LineNr">30236 </span><span class="Constant">$addr-handle-stream-payload-size:skip-stream</span>: +<span id="L30237" class="LineNr">30237 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L30238" class="LineNr">30238 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L30239" class="LineNr">30239 </span> <span class="subxComment"># if !t->is-atom? t = t->left</span> +<span id="L30240" class="LineNr">30240 </span> 81 7/subop/compare *eax 0/imm32/false +<span id="L30241" class="LineNr">30241 </span> { +<span id="L30242" class="LineNr">30242 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L30243" class="LineNr">30243 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L30244" class="LineNr">30244 </span> } +<span id="L30245" class="LineNr">30245 </span><span class="Constant">$addr-handle-stream-payload-size:compute-size</span>: +<span id="L30246" class="LineNr">30246 </span> <span class="subxComment"># TODO: check t->is-atom?</span> +<span id="L30247" class="LineNr">30247 </span> <span class="subxComment"># return size(t->value)</span> +<span id="L30248" class="LineNr">30248 </span> (<a href='mu.subx.html#L29096'>size-of-type-id-as-array-element</a> *(eax+4)) <span class="subxComment"># Type-tree-value => eax</span> +<span id="L30249" class="LineNr">30249 </span><span class="Constant">$addr-handle-stream-payload-size:end</span>: +<span id="L30250" class="LineNr">30250 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L30251" class="LineNr">30251 </span> 89/<- %esp 5/r32/ebp +<span id="L30252" class="LineNr">30252 </span> 5d/pop-to-ebp +<span id="L30253" class="LineNr">30253 </span> c3/return +<span id="L30254" class="LineNr">30254 </span> +<span id="L30255" class="LineNr">30255 </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="L30256" class="LineNr">30256 </span> <span class="subxComment"># precondition: n is positive</span> <span id="L30257" class="LineNr">30257 </span> <span class="subxS1Comment"># . prologue</span> <span id="L30258" class="LineNr">30258 </span> 55/push-ebp <span id="L30259" class="LineNr">30259 </span> 89/<- %ebp 4/r32/esp -<span id="L30260" class="LineNr">30260 </span> <span class="subxComment"># var second-inout/eax: (addr stmt-var) = stmt->inouts->next</span> +<span id="L30260" class="LineNr">30260 </span> <span class="subxComment"># eax = n</span> <span id="L30261" class="LineNr">30261 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L30262" class="LineNr">30262 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L30263" class="LineNr">30263 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L30264" class="LineNr">30264 </span> <span class="subxComment"># var output-var/eax: (addr var) = second-inout->value</span> -<span id="L30265" class="LineNr">30265 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L30266" class="LineNr">30266 </span><span class="CommentedCode">#? (write-buffered Stderr "mu-get-offset: ")</span> -<span id="L30267" class="LineNr">30267 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L30268" class="LineNr">30268 </span><span class="CommentedCode">#? (write-buffered Stderr " name: ")</span> -<span id="L30269" class="LineNr">30269 </span><span class="CommentedCode">#? 50/push-eax</span> -<span id="L30270" class="LineNr">30270 </span><span class="CommentedCode">#? (lookup *eax *(eax+4)) # Var-name</span> -<span id="L30271" class="LineNr">30271 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L30272" class="LineNr">30272 </span><span class="CommentedCode">#? 58/pop-to-eax</span> -<span id="L30273" class="LineNr">30273 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L30274" class="LineNr">30274 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L30275" class="LineNr">30275 </span> <span class="subxComment"># return output-var->stack-offset</span> -<span id="L30276" class="LineNr">30276 </span> 8b/-> *(eax+0x14) 0/r32/eax <span class="subxComment"># Var-offset</span> -<span id="L30277" class="LineNr">30277 </span><span class="CommentedCode">#? (write-buffered Stderr "=> ")</span> -<span id="L30278" class="LineNr">30278 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L30279" class="LineNr">30279 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L30280" class="LineNr">30280 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L30281" class="LineNr">30281 </span><span class="Constant">$emit-get-offset:end</span>: -<span id="L30282" class="LineNr">30282 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L30283" class="LineNr">30283 </span> 89/<- %esp 5/r32/ebp -<span id="L30284" class="LineNr">30284 </span> 5d/pop-to-ebp -<span id="L30285" class="LineNr">30285 </span> c3/return -<span id="L30286" class="LineNr">30286 </span> -<span id="L30287" class="LineNr">30287 </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="L30288" class="LineNr">30288 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L30289" class="LineNr">30289 </span> 55/push-ebp -<span id="L30290" class="LineNr">30290 </span> 89/<- %ebp 4/r32/esp -<span id="L30291" class="LineNr">30291 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L30292" class="LineNr">30292 </span> 50/push-eax -<span id="L30293" class="LineNr">30293 </span> 51/push-ecx -<span id="L30294" class="LineNr">30294 </span> 56/push-esi -<span id="L30295" class="LineNr">30295 </span> <span class="subxComment"># esi = block</span> -<span id="L30296" class="LineNr">30296 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L30297" class="LineNr">30297 </span> <span class="subxComment"># block->var->block-depth = *Curr-block-depth</span> -<span id="L30298" class="LineNr">30298 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Block-var Block-var => eax</span> -<span id="L30299" class="LineNr">30299 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span> 1/r32/ecx -<span id="L30300" class="LineNr">30300 </span> 89/<- *(eax+0x10) 1/r32/ecx <span class="subxComment"># Var-block-depth</span> -<span id="L30301" class="LineNr">30301 </span> <span class="subxComment"># var stmts/eax: (addr list stmt) = lookup(block->statements)</span> -<span id="L30302" class="LineNr">30302 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> -<span id="L30303" class="LineNr">30303 </span> <span class="subxComment">#</span> -<span id="L30304" class="LineNr">30304 </span> { -<span id="L30305" class="LineNr">30305 </span><span class="Constant">$emit-subx-block:check-empty</span>: -<span id="L30306" class="LineNr">30306 </span> 3d/compare-eax-and 0/imm32 -<span id="L30307" class="LineNr">30307 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L30308" class="LineNr">30308 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L30309" class="LineNr">30309 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"{\n"</span>) -<span id="L30310" class="LineNr">30310 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(block->var)</span> -<span id="L30311" class="LineNr">30311 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Block-var Block-var => eax</span> -<span id="L30312" class="LineNr">30312 </span> 89/<- %ecx 0/r32/eax -<span id="L30313" class="LineNr">30313 </span> <span class="subxComment">#</span> -<span id="L30314" class="LineNr">30314 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L30315" class="LineNr">30315 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L30316" class="LineNr">30316 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":loop:\n"</span>) -<span id="L30317" class="LineNr">30317 </span> ff 0/subop/increment *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span> -<span id="L30318" class="LineNr">30318 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *(esi+0xc)) <span class="subxComment"># Block-var</span> -<span id="L30319" class="LineNr">30319 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *(esi+0x10)) <span class="subxComment"># Block-var</span> -<span id="L30320" class="LineNr">30320 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) 0) <span class="subxComment"># false</span> -<span id="L30321" class="LineNr">30321 </span> <span class="subxComment"># emit block->statements</span> -<span id="L30322" class="LineNr">30322 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> -<span id="L30323" class="LineNr">30323 </span> (<a href='mu.subx.html#L27091'>emit-subx-stmt-list</a> *(ebp+8) %eax *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L30324" class="LineNr">30324 </span> (<a href='203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L30325" class="LineNr">30325 </span> (<a href='203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L30326" class="LineNr">30326 </span> (<a href='203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L30327" class="LineNr">30327 </span> ff 1/subop/decrement *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span> -<span id="L30328" class="LineNr">30328 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L30329" class="LineNr">30329 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"}\n"</span>) -<span id="L30330" class="LineNr">30330 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L30331" class="LineNr">30331 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L30332" class="LineNr">30332 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":break:\n"</span>) -<span id="L30333" class="LineNr">30333 </span> } -<span id="L30334" class="LineNr">30334 </span><span class="Constant">$emit-subx-block:end</span>: -<span id="L30335" class="LineNr">30335 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L30336" class="LineNr">30336 </span> 5e/pop-to-esi -<span id="L30337" class="LineNr">30337 </span> 59/pop-to-ecx -<span id="L30338" class="LineNr">30338 </span> 58/pop-to-eax -<span id="L30339" class="LineNr">30339 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L30340" class="LineNr">30340 </span> 89/<- %esp 5/r32/ebp -<span id="L30341" class="LineNr">30341 </span> 5d/pop-to-ebp -<span id="L30342" class="LineNr">30342 </span> c3/return -<span id="L30343" class="LineNr">30343 </span> -<span id="L30344" class="LineNr">30344 </span><span class="subxComment"># Primitives supported</span> -<span id="L30345" class="LineNr">30345 </span><span class="subxComment"># See mu_instructions for a summary of this linked-list data structure.</span> -<span id="L30346" class="LineNr">30346 </span><span class="subxComment">#</span> -<span id="L30347" class="LineNr">30347 </span><span class="subxComment"># For each operation, put variants with hard-coded registers before flexible ones.</span> -<span id="L30348" class="LineNr">30348 </span><span class="subxComment">#</span> -<span id="L30349" class="LineNr">30349 </span><span class="subxComment"># Unfortunately, our restrictions on addresses require that various fields in</span> -<span id="L30350" class="LineNr">30350 </span><span class="subxComment"># primitives be handles, which complicates these definitions.</span> -<span id="L30351" class="LineNr">30351 </span><span class="subxComment"># - we need to insert dummy fields all over the place for fake alloc-ids</span> -<span id="L30352" class="LineNr">30352 </span><span class="subxComment"># - we can't use our syntax sugar of quoted literals for string fields</span> -<span id="L30353" class="LineNr">30353 </span><span class="subxComment">#</span> -<span id="L30354" class="LineNr">30354 </span><span class="subxComment"># Fake alloc-ids are needed because our type definitions up top require</span> -<span id="L30355" class="LineNr">30355 </span><span class="subxComment"># handles but it's clearer to statically allocate these long-lived objects.</span> -<span id="L30356" class="LineNr">30356 </span><span class="subxComment"># Fake alloc-ids are perfectly safe, but they can't be reclaimed.</span> -<span id="L30357" class="LineNr">30357 </span><span class="subxComment">#</span> -<span id="L30358" class="LineNr">30358 </span><span class="subxComment"># Every 'object' below starts with a fake alloc-id. It may also contain other</span> -<span id="L30359" class="LineNr">30359 </span><span class="subxComment"># fake alloc-ids for various handle fields.</span> -<span id="L30360" class="LineNr">30360 </span><span class="subxComment">#</span> -<span id="L30361" class="LineNr">30361 </span><span class="subxComment"># I think of objects starting with a fake alloc-id as having type 'payload'.</span> -<span id="L30362" class="LineNr">30362 </span><span class="subxComment"># It's not really intended to be created dynamically; for that use `allocate`</span> -<span id="L30363" class="LineNr">30363 </span><span class="subxComment"># as usual.</span> -<span id="L30364" class="LineNr">30364 </span><span class="subxComment">#</span> -<span id="L30365" class="LineNr">30365 </span><span class="subxComment"># Idea for a notation to simplify such definitions:</span> -<span id="L30366" class="LineNr">30366 </span><span class="subxComment"># _Primitive-increment-eax: # (payload primitive)</span> -<span id="L30367" class="LineNr">30367 </span><span class="subxComment"># 0x11/alloc-id:fake:payload</span> -<span id="L30368" class="LineNr">30368 </span><span class="subxComment"># 0x11 @(0x11 "increment") # name</span> -<span id="L30369" class="LineNr">30369 </span><span class="subxComment"># 0 0 # inouts</span> -<span id="L30370" class="LineNr">30370 </span><span class="subxComment"># 0x11 @(0x11/payload</span> -<span id="L30371" class="LineNr">30371 </span><span class="subxComment"># 0x11 @(0x11/payload # List-value</span> -<span id="L30372" class="LineNr">30372 </span><span class="subxComment"># 0 0 # Var-name</span> -<span id="L30373" class="LineNr">30373 </span><span class="subxComment"># 0x11 @(0x11 # Var-type</span> -<span id="L30374" class="LineNr">30374 </span><span class="subxComment"># 1/is-atom</span> -<span id="L30375" class="LineNr">30375 </span><span class="subxComment"># 1/value 0/unused # Type-tree-left</span> -<span id="L30376" class="LineNr">30376 </span><span class="subxComment"># 0 0 # Type-tree-right</span> -<span id="L30377" class="LineNr">30377 </span><span class="subxComment"># )</span> -<span id="L30378" class="LineNr">30378 </span><span class="subxComment"># 1 # block-depth</span> -<span id="L30379" class="LineNr">30379 </span><span class="subxComment"># 0 # stack-offset</span> -<span id="L30380" class="LineNr">30380 </span><span class="subxComment"># 0x11 @(0x11 "eax") # Var-register</span> -<span id="L30381" class="LineNr">30381 </span><span class="subxComment"># )</span> -<span id="L30382" class="LineNr">30382 </span><span class="subxComment"># 0 0) # List-next</span> -<span id="L30383" class="LineNr">30383 </span><span class="subxComment"># ...</span> -<span id="L30384" class="LineNr">30384 </span><span class="subxComment"># _Primitive-increment-ecx/imm32/next</span> -<span id="L30385" class="LineNr">30385 </span><span class="subxComment"># ...</span> -<span id="L30386" class="LineNr">30386 </span><span class="subxComment"># Awfully complex and non-obvious. But also clearly signals there's something</span> -<span id="L30387" class="LineNr">30387 </span><span class="subxComment"># to learn here, so may be worth trying.</span> -<span id="L30388" class="LineNr">30388 </span><span class="subxComment">#</span> -<span id="L30389" class="LineNr">30389 </span><span class="subxComment"># '@' is just an initial thought. Punctuation used so far in Mu: () * % # / "</span> -<span id="L30390" class="LineNr">30390 </span><span class="subxComment">#</span> -<span id="L30391" class="LineNr">30391 </span><span class="subxComment"># For now we'll continue to just use comments and manually ensure they stay up</span> -<span id="L30392" class="LineNr">30392 </span><span class="subxComment"># to date.</span> -<span id="L30393" class="LineNr">30393 </span>== data -<span id="L30394" class="LineNr">30394 </span><span class="SpecialChar">Primitives</span>: <span class="subxComment"># (addr primitive)</span> -<span id="L30395" class="LineNr">30395 </span><span class="subxH1Comment"># - increment/decrement</span> -<span id="L30396" class="LineNr">30396 </span><span class="subxMinorFunction">_Primitive-increment-eax</span>: <span class="subxComment"># (addr primitive)</span> -<span id="L30397" class="LineNr">30397 </span> <span class="subxComment"># var/eax <- increment => 40/increment-eax</span> -<span id="L30398" class="LineNr">30398 </span> 0x11/imm32/alloc-id:fake -<span id="L30399" class="LineNr">30399 </span> <a href='mu.subx.html#L33876'>_string-increment</a>/imm32/name -<span id="L30400" class="LineNr">30400 </span> 0/imm32/no-inouts -<span id="L30401" class="LineNr">30401 </span> 0/imm32/no-inouts -<span id="L30402" class="LineNr">30402 </span> 0x11/imm32/alloc-id:fake -<span id="L30403" class="LineNr">30403 </span> <span class="SpecialChar"><a href='mu.subx.html#L34743'>Single-int-var-in-eax</a></span>/imm32/outputs -<span id="L30404" class="LineNr">30404 </span> 0x11/imm32/alloc-id:fake -<span id="L30405" class="LineNr">30405 </span> <a href='mu.subx.html#L34378'>_string_40_increment_eax</a>/imm32/subx-name -<span id="L30406" class="LineNr">30406 </span> 0/imm32/no-rm32 -<span id="L30407" class="LineNr">30407 </span> 0/imm32/no-r32 -<span id="L30408" class="LineNr">30408 </span> 0/imm32/no-imm32 -<span id="L30409" class="LineNr">30409 </span> 0/imm32/no-imm8 -<span id="L30410" class="LineNr">30410 </span> 0/imm32/no-disp32 -<span id="L30411" class="LineNr">30411 </span> 0/imm32/no-xm32 -<span id="L30412" class="LineNr">30412 </span> 0/imm32/no-x32 -<span id="L30413" class="LineNr">30413 </span> 0x11/imm32/alloc-id:fake -<span id="L30414" class="LineNr">30414 </span> <a href='mu.subx.html#L30415'>_Primitive-increment-ecx</a>/imm32/next -<span id="L30415" class="LineNr">30415 </span><span class="subxMinorFunction">_Primitive-increment-ecx</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30416" class="LineNr">30416 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30417" class="LineNr">30417 </span> <span class="subxComment"># var/ecx <- increment => 41/increment-ecx</span> -<span id="L30418" class="LineNr">30418 </span> 0x11/imm32/alloc-id:fake -<span id="L30419" class="LineNr">30419 </span> <a href='mu.subx.html#L33876'>_string-increment</a>/imm32/name -<span id="L30420" class="LineNr">30420 </span> 0/imm32/no-inouts -<span id="L30421" class="LineNr">30421 </span> 0/imm32/no-inouts -<span id="L30422" class="LineNr">30422 </span> 0x11/imm32/alloc-id:fake -<span id="L30423" class="LineNr">30423 </span> <span class="SpecialChar"><a href='mu.subx.html#L34761'>Single-int-var-in-ecx</a></span>/imm32/outputs -<span id="L30424" class="LineNr">30424 </span> 0x11/imm32/alloc-id:fake -<span id="L30425" class="LineNr">30425 </span> <a href='mu.subx.html#L34383'>_string_41_increment_ecx</a>/imm32/subx-name -<span id="L30426" class="LineNr">30426 </span> 0/imm32/no-rm32 -<span id="L30427" class="LineNr">30427 </span> 0/imm32/no-r32 -<span id="L30428" class="LineNr">30428 </span> 0/imm32/no-imm32 -<span id="L30429" class="LineNr">30429 </span> 0/imm32/no-imm8 -<span id="L30430" class="LineNr">30430 </span> 0/imm32/no-disp32 -<span id="L30431" class="LineNr">30431 </span> 0/imm32/no-xm32 -<span id="L30432" class="LineNr">30432 </span> 0/imm32/no-x32 -<span id="L30433" class="LineNr">30433 </span> 0x11/imm32/alloc-id:fake -<span id="L30434" class="LineNr">30434 </span> <a href='mu.subx.html#L30435'>_Primitive-increment-edx</a>/imm32/next -<span id="L30435" class="LineNr">30435 </span><span class="subxMinorFunction">_Primitive-increment-edx</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30436" class="LineNr">30436 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30437" class="LineNr">30437 </span> <span class="subxComment"># var/edx <- increment => 42/increment-edx</span> -<span id="L30438" class="LineNr">30438 </span> 0x11/imm32/alloc-id:fake -<span id="L30439" class="LineNr">30439 </span> <a href='mu.subx.html#L33876'>_string-increment</a>/imm32/name -<span id="L30440" class="LineNr">30440 </span> 0/imm32/no-inouts -<span id="L30441" class="LineNr">30441 </span> 0/imm32/no-inouts -<span id="L30442" class="LineNr">30442 </span> 0x11/imm32/alloc-id:fake -<span id="L30443" class="LineNr">30443 </span> <span class="SpecialChar"><a href='mu.subx.html#L34779'>Single-int-var-in-edx</a></span>/imm32/outputs -<span id="L30444" class="LineNr">30444 </span> 0x11/imm32/alloc-id:fake -<span id="L30445" class="LineNr">30445 </span> <a href='mu.subx.html#L34388'>_string_42_increment_edx</a>/imm32/subx-name -<span id="L30446" class="LineNr">30446 </span> 0/imm32/no-rm32 -<span id="L30447" class="LineNr">30447 </span> 0/imm32/no-r32 -<span id="L30448" class="LineNr">30448 </span> 0/imm32/no-imm32 -<span id="L30449" class="LineNr">30449 </span> 0/imm32/no-imm8 -<span id="L30450" class="LineNr">30450 </span> 0/imm32/no-disp32 -<span id="L30451" class="LineNr">30451 </span> 0/imm32/no-xm32 -<span id="L30452" class="LineNr">30452 </span> 0/imm32/no-x32 -<span id="L30453" class="LineNr">30453 </span> 0x11/imm32/alloc-id:fake -<span id="L30454" class="LineNr">30454 </span> <a href='mu.subx.html#L30455'>_Primitive-increment-ebx</a>/imm32/next -<span id="L30455" class="LineNr">30455 </span><span class="subxMinorFunction">_Primitive-increment-ebx</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30456" class="LineNr">30456 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30457" class="LineNr">30457 </span> <span class="subxComment"># var/ebx <- increment => 43/increment-ebx</span> +<span id="L30262" class="LineNr">30262 </span> <span class="subxComment"># if (n < 0) abort</span> +<span id="L30263" class="LineNr">30263 </span> 3d/compare-eax-with 0/imm32 +<span id="L30264" class="LineNr">30264 </span> 0f 8c/jump-if-< $power-of-2?:abort/disp32 +<span id="L30265" class="LineNr">30265 </span> <span class="subxComment"># var tmp/eax: int = n-1</span> +<span id="L30266" class="LineNr">30266 </span> 48/decrement-eax +<span id="L30267" class="LineNr">30267 </span> <span class="subxComment"># var tmp2/eax: int = n & tmp</span> +<span id="L30268" class="LineNr">30268 </span> 23/and-> *(ebp+8) 0/r32/eax +<span id="L30269" class="LineNr">30269 </span> <span class="subxComment"># return (tmp2 == 0)</span> +<span id="L30270" class="LineNr">30270 </span> 3d/compare-eax-and 0/imm32 +<span id="L30271" class="LineNr">30271 </span> 0f 94/set-byte-if-= %al +<span id="L30272" class="LineNr">30272 </span> 25/and-eax-with 0xff/imm32 +<span id="L30273" class="LineNr">30273 </span><span class="Constant">$power-of-2?:end</span>: +<span id="L30274" class="LineNr">30274 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L30275" class="LineNr">30275 </span> 89/<- %esp 5/r32/ebp +<span id="L30276" class="LineNr">30276 </span> 5d/pop-to-ebp +<span id="L30277" class="LineNr">30277 </span> c3/return +<span id="L30278" class="LineNr">30278 </span> +<span id="L30279" class="LineNr">30279 </span><span class="Constant">$power-of-2?:abort</span>: +<span id="L30280" class="LineNr">30280 </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="L30281" class="LineNr">30281 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L30282" class="LineNr">30282 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) +<span id="L30283" class="LineNr">30283 </span> <span class="subxComment"># never gets here</span> +<span id="L30284" class="LineNr">30284 </span> +<span id="L30285" class="LineNr">30285 </span><span class="subxFunction">num-shift-rights</span>: <span class="subxComment"># n: int -> result/eax: int</span> +<span id="L30286" class="LineNr">30286 </span> <span class="subxComment"># precondition: n is a positive power of 2</span> +<span id="L30287" class="LineNr">30287 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L30288" class="LineNr">30288 </span> 55/push-ebp +<span id="L30289" class="LineNr">30289 </span> 89/<- %ebp 4/r32/esp +<span id="L30290" class="LineNr">30290 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L30291" class="LineNr">30291 </span> 51/push-ecx +<span id="L30292" class="LineNr">30292 </span> <span class="subxComment"># var curr/ecx: int = n</span> +<span id="L30293" class="LineNr">30293 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L30294" class="LineNr">30294 </span> <span class="subxComment"># result = 0</span> +<span id="L30295" class="LineNr">30295 </span> b8/copy-to-eax 0/imm32 +<span id="L30296" class="LineNr">30296 </span> { +<span id="L30297" class="LineNr">30297 </span> <span class="subxComment"># if (curr <= 1) break</span> +<span id="L30298" class="LineNr">30298 </span> 81 7/subop/compare %ecx 1/imm32 +<span id="L30299" class="LineNr">30299 </span> 7e/jump-if-<= <span class="Constant">break</span>/disp8 +<span id="L30300" class="LineNr">30300 </span> 40/increment-eax +<span id="L30301" class="LineNr">30301 </span> c1/shift 5/subop/arithmetic-right %ecx 1/imm8 +<span id="L30302" class="LineNr">30302 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L30303" class="LineNr">30303 </span> } +<span id="L30304" class="LineNr">30304 </span><span class="Constant">$num-shift-rights:end</span>: +<span id="L30305" class="LineNr">30305 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L30306" class="LineNr">30306 </span> 59/pop-to-ecx +<span id="L30307" class="LineNr">30307 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L30308" class="LineNr">30308 </span> 89/<- %esp 5/r32/ebp +<span id="L30309" class="LineNr">30309 </span> 5d/pop-to-ebp +<span id="L30310" class="LineNr">30310 </span> c3/return +<span id="L30311" class="LineNr">30311 </span> +<span id="L30312" class="LineNr">30312 </span><span class="subxFunction">mu-get-offset</span>: <span class="subxComment"># stmt: (addr stmt) -> result/eax: int</span> +<span id="L30313" class="LineNr">30313 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L30314" class="LineNr">30314 </span> 55/push-ebp +<span id="L30315" class="LineNr">30315 </span> 89/<- %ebp 4/r32/esp +<span id="L30316" class="LineNr">30316 </span> <span class="subxComment"># var second-inout/eax: (addr stmt-var) = stmt->inouts->next</span> +<span id="L30317" class="LineNr">30317 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L30318" class="LineNr">30318 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L30319" class="LineNr">30319 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L30320" class="LineNr">30320 </span> <span class="subxComment"># var output-var/eax: (addr var) = second-inout->value</span> +<span id="L30321" class="LineNr">30321 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L30322" class="LineNr">30322 </span><span class="CommentedCode">#? (write-buffered Stderr "mu-get-offset: ")</span> +<span id="L30323" class="LineNr">30323 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L30324" class="LineNr">30324 </span><span class="CommentedCode">#? (write-buffered Stderr " name: ")</span> +<span id="L30325" class="LineNr">30325 </span><span class="CommentedCode">#? 50/push-eax</span> +<span id="L30326" class="LineNr">30326 </span><span class="CommentedCode">#? (lookup *eax *(eax+4)) # Var-name</span> +<span id="L30327" class="LineNr">30327 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L30328" class="LineNr">30328 </span><span class="CommentedCode">#? 58/pop-to-eax</span> +<span id="L30329" class="LineNr">30329 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L30330" class="LineNr">30330 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L30331" class="LineNr">30331 </span> <span class="subxComment"># return output-var->stack-offset</span> +<span id="L30332" class="LineNr">30332 </span> 8b/-> *(eax+0x14) 0/r32/eax <span class="subxComment"># Var-offset</span> +<span id="L30333" class="LineNr">30333 </span><span class="CommentedCode">#? (write-buffered Stderr "=> ")</span> +<span id="L30334" class="LineNr">30334 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L30335" class="LineNr">30335 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L30336" class="LineNr">30336 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L30337" class="LineNr">30337 </span><span class="Constant">$emit-get-offset:end</span>: +<span id="L30338" class="LineNr">30338 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L30339" class="LineNr">30339 </span> 89/<- %esp 5/r32/ebp +<span id="L30340" class="LineNr">30340 </span> 5d/pop-to-ebp +<span id="L30341" class="LineNr">30341 </span> c3/return +<span id="L30342" class="LineNr">30342 </span> +<span id="L30343" class="LineNr">30343 </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="L30344" class="LineNr">30344 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L30345" class="LineNr">30345 </span> 55/push-ebp +<span id="L30346" class="LineNr">30346 </span> 89/<- %ebp 4/r32/esp +<span id="L30347" class="LineNr">30347 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L30348" class="LineNr">30348 </span> 50/push-eax +<span id="L30349" class="LineNr">30349 </span> 51/push-ecx +<span id="L30350" class="LineNr">30350 </span> 56/push-esi +<span id="L30351" class="LineNr">30351 </span> <span class="subxComment"># esi = block</span> +<span id="L30352" class="LineNr">30352 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L30353" class="LineNr">30353 </span> <span class="subxComment"># block->var->block-depth = *Curr-block-depth</span> +<span id="L30354" class="LineNr">30354 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Block-var Block-var => eax</span> +<span id="L30355" class="LineNr">30355 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span> 1/r32/ecx +<span id="L30356" class="LineNr">30356 </span> 89/<- *(eax+0x10) 1/r32/ecx <span class="subxComment"># Var-block-depth</span> +<span id="L30357" class="LineNr">30357 </span> <span class="subxComment"># var stmts/eax: (addr list stmt) = lookup(block->statements)</span> +<span id="L30358" class="LineNr">30358 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> +<span id="L30359" class="LineNr">30359 </span> <span class="subxComment">#</span> +<span id="L30360" class="LineNr">30360 </span> { +<span id="L30361" class="LineNr">30361 </span><span class="Constant">$emit-subx-block:check-empty</span>: +<span id="L30362" class="LineNr">30362 </span> 3d/compare-eax-and 0/imm32 +<span id="L30363" class="LineNr">30363 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L30364" class="LineNr">30364 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L30365" class="LineNr">30365 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"{\n"</span>) +<span id="L30366" class="LineNr">30366 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(block->var)</span> +<span id="L30367" class="LineNr">30367 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Block-var Block-var => eax</span> +<span id="L30368" class="LineNr">30368 </span> 89/<- %ecx 0/r32/eax +<span id="L30369" class="LineNr">30369 </span> <span class="subxComment">#</span> +<span id="L30370" class="LineNr">30370 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L30371" class="LineNr">30371 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L30372" class="LineNr">30372 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":loop:\n"</span>) +<span id="L30373" class="LineNr">30373 </span> ff 0/subop/increment *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span> +<span id="L30374" class="LineNr">30374 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *(esi+0xc)) <span class="subxComment"># Block-var</span> +<span id="L30375" class="LineNr">30375 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *(esi+0x10)) <span class="subxComment"># Block-var</span> +<span id="L30376" class="LineNr">30376 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) 0) <span class="subxComment"># false</span> +<span id="L30377" class="LineNr">30377 </span> <span class="subxComment"># emit block->statements</span> +<span id="L30378" class="LineNr">30378 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> +<span id="L30379" class="LineNr">30379 </span> (<a href='mu.subx.html#L27113'>emit-subx-stmt-list</a> *(ebp+8) %eax *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L30380" class="LineNr">30380 </span> (<a href='203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L30381" class="LineNr">30381 </span> (<a href='203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L30382" class="LineNr">30382 </span> (<a href='203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L30383" class="LineNr">30383 </span> ff 1/subop/decrement *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span> +<span id="L30384" class="LineNr">30384 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L30385" class="LineNr">30385 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"}\n"</span>) +<span id="L30386" class="LineNr">30386 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L30387" class="LineNr">30387 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L30388" class="LineNr">30388 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":break:\n"</span>) +<span id="L30389" class="LineNr">30389 </span> } +<span id="L30390" class="LineNr">30390 </span><span class="Constant">$emit-subx-block:end</span>: +<span id="L30391" class="LineNr">30391 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L30392" class="LineNr">30392 </span> 5e/pop-to-esi +<span id="L30393" class="LineNr">30393 </span> 59/pop-to-ecx +<span id="L30394" class="LineNr">30394 </span> 58/pop-to-eax +<span id="L30395" class="LineNr">30395 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L30396" class="LineNr">30396 </span> 89/<- %esp 5/r32/ebp +<span id="L30397" class="LineNr">30397 </span> 5d/pop-to-ebp +<span id="L30398" class="LineNr">30398 </span> c3/return +<span id="L30399" class="LineNr">30399 </span> +<span id="L30400" class="LineNr">30400 </span><span class="subxComment"># Primitives supported</span> +<span id="L30401" class="LineNr">30401 </span><span class="subxComment"># See mu_instructions for a summary of this linked-list data structure.</span> +<span id="L30402" class="LineNr">30402 </span><span class="subxComment">#</span> +<span id="L30403" class="LineNr">30403 </span><span class="subxComment"># For each operation, put variants with hard-coded registers before flexible ones.</span> +<span id="L30404" class="LineNr">30404 </span><span class="subxComment">#</span> +<span id="L30405" class="LineNr">30405 </span><span class="subxComment"># Unfortunately, our restrictions on addresses require that various fields in</span> +<span id="L30406" class="LineNr">30406 </span><span class="subxComment"># primitives be handles, which complicates these definitions.</span> +<span id="L30407" class="LineNr">30407 </span><span class="subxComment"># - we need to insert dummy fields all over the place for fake alloc-ids</span> +<span id="L30408" class="LineNr">30408 </span><span class="subxComment"># - we can't use our syntax sugar of quoted literals for string fields</span> +<span id="L30409" class="LineNr">30409 </span><span class="subxComment">#</span> +<span id="L30410" class="LineNr">30410 </span><span class="subxComment"># Fake alloc-ids are needed because our type definitions up top require</span> +<span id="L30411" class="LineNr">30411 </span><span class="subxComment"># handles but it's clearer to statically allocate these long-lived objects.</span> +<span id="L30412" class="LineNr">30412 </span><span class="subxComment"># Fake alloc-ids are perfectly safe, but they can't be reclaimed.</span> +<span id="L30413" class="LineNr">30413 </span><span class="subxComment">#</span> +<span id="L30414" class="LineNr">30414 </span><span class="subxComment"># Every 'object' below starts with a fake alloc-id. It may also contain other</span> +<span id="L30415" class="LineNr">30415 </span><span class="subxComment"># fake alloc-ids for various handle fields.</span> +<span id="L30416" class="LineNr">30416 </span><span class="subxComment">#</span> +<span id="L30417" class="LineNr">30417 </span><span class="subxComment"># I think of objects starting with a fake alloc-id as having type 'payload'.</span> +<span id="L30418" class="LineNr">30418 </span><span class="subxComment"># It's not really intended to be created dynamically; for that use `allocate`</span> +<span id="L30419" class="LineNr">30419 </span><span class="subxComment"># as usual.</span> +<span id="L30420" class="LineNr">30420 </span><span class="subxComment">#</span> +<span id="L30421" class="LineNr">30421 </span><span class="subxComment"># Idea for a notation to simplify such definitions:</span> +<span id="L30422" class="LineNr">30422 </span><span class="subxComment"># _Primitive-increment-eax: # (payload primitive)</span> +<span id="L30423" class="LineNr">30423 </span><span class="subxComment"># 0x11/alloc-id:fake:payload</span> +<span id="L30424" class="LineNr">30424 </span><span class="subxComment"># 0x11 @(0x11 "increment") # name</span> +<span id="L30425" class="LineNr">30425 </span><span class="subxComment"># 0 0 # inouts</span> +<span id="L30426" class="LineNr">30426 </span><span class="subxComment"># 0x11 @(0x11/payload</span> +<span id="L30427" class="LineNr">30427 </span><span class="subxComment"># 0x11 @(0x11/payload # List-value</span> +<span id="L30428" class="LineNr">30428 </span><span class="subxComment"># 0 0 # Var-name</span> +<span id="L30429" class="LineNr">30429 </span><span class="subxComment"># 0x11 @(0x11 # Var-type</span> +<span id="L30430" class="LineNr">30430 </span><span class="subxComment"># 1/is-atom</span> +<span id="L30431" class="LineNr">30431 </span><span class="subxComment"># 1/value 0/unused # Type-tree-left</span> +<span id="L30432" class="LineNr">30432 </span><span class="subxComment"># 0 0 # Type-tree-right</span> +<span id="L30433" class="LineNr">30433 </span><span class="subxComment"># )</span> +<span id="L30434" class="LineNr">30434 </span><span class="subxComment"># 1 # block-depth</span> +<span id="L30435" class="LineNr">30435 </span><span class="subxComment"># 0 # stack-offset</span> +<span id="L30436" class="LineNr">30436 </span><span class="subxComment"># 0x11 @(0x11 "eax") # Var-register</span> +<span id="L30437" class="LineNr">30437 </span><span class="subxComment"># )</span> +<span id="L30438" class="LineNr">30438 </span><span class="subxComment"># 0 0) # List-next</span> +<span id="L30439" class="LineNr">30439 </span><span class="subxComment"># ...</span> +<span id="L30440" class="LineNr">30440 </span><span class="subxComment"># _Primitive-increment-ecx/imm32/next</span> +<span id="L30441" class="LineNr">30441 </span><span class="subxComment"># ...</span> +<span id="L30442" class="LineNr">30442 </span><span class="subxComment"># Awfully complex and non-obvious. But also clearly signals there's something</span> +<span id="L30443" class="LineNr">30443 </span><span class="subxComment"># to learn here, so may be worth trying.</span> +<span id="L30444" class="LineNr">30444 </span><span class="subxComment">#</span> +<span id="L30445" class="LineNr">30445 </span><span class="subxComment"># '@' is just an initial thought. Punctuation used so far in Mu: () * % # / "</span> +<span id="L30446" class="LineNr">30446 </span><span class="subxComment">#</span> +<span id="L30447" class="LineNr">30447 </span><span class="subxComment"># For now we'll continue to just use comments and manually ensure they stay up</span> +<span id="L30448" class="LineNr">30448 </span><span class="subxComment"># to date.</span> +<span id="L30449" class="LineNr">30449 </span>== data +<span id="L30450" class="LineNr">30450 </span><span class="SpecialChar">Primitives</span>: <span class="subxComment"># (addr primitive)</span> +<span id="L30451" class="LineNr">30451 </span><span class="subxH1Comment"># - increment/decrement</span> +<span id="L30452" class="LineNr">30452 </span><span class="subxMinorFunction">_Primitive-increment-eax</span>: <span class="subxComment"># (addr primitive)</span> +<span id="L30453" class="LineNr">30453 </span> <span class="subxComment"># var/eax <- increment => 40/increment-eax</span> +<span id="L30454" class="LineNr">30454 </span> 0x11/imm32/alloc-id:fake +<span id="L30455" class="LineNr">30455 </span> <a href='mu.subx.html#L34145'>_string-increment</a>/imm32/name +<span id="L30456" class="LineNr">30456 </span> 0/imm32/no-inouts +<span id="L30457" class="LineNr">30457 </span> 0/imm32/no-inouts <span id="L30458" class="LineNr">30458 </span> 0x11/imm32/alloc-id:fake -<span id="L30459" class="LineNr">30459 </span> <a href='mu.subx.html#L33876'>_string-increment</a>/imm32/name -<span id="L30460" class="LineNr">30460 </span> 0/imm32/no-inouts -<span id="L30461" class="LineNr">30461 </span> 0/imm32/no-inouts -<span id="L30462" class="LineNr">30462 </span> 0x11/imm32/alloc-id:fake -<span id="L30463" class="LineNr">30463 </span> <span class="SpecialChar"><a href='mu.subx.html#L34797'>Single-int-var-in-ebx</a></span>/imm32/outputs -<span id="L30464" class="LineNr">30464 </span> 0x11/imm32/alloc-id:fake -<span id="L30465" class="LineNr">30465 </span> <a href='mu.subx.html#L34393'>_string_43_increment_ebx</a>/imm32/subx-name -<span id="L30466" class="LineNr">30466 </span> 0/imm32/no-rm32 -<span id="L30467" class="LineNr">30467 </span> 0/imm32/no-r32 -<span id="L30468" class="LineNr">30468 </span> 0/imm32/no-imm32 -<span id="L30469" class="LineNr">30469 </span> 0/imm32/no-imm8 -<span id="L30470" class="LineNr">30470 </span> 0/imm32/no-disp32 -<span id="L30471" class="LineNr">30471 </span> 0/imm32/no-xm32 -<span id="L30472" class="LineNr">30472 </span> 0/imm32/no-x32 -<span id="L30473" class="LineNr">30473 </span> 0x11/imm32/alloc-id:fake -<span id="L30474" class="LineNr">30474 </span> <a href='mu.subx.html#L30475'>_Primitive-increment-esi</a>/imm32/next -<span id="L30475" class="LineNr">30475 </span><span class="subxMinorFunction">_Primitive-increment-esi</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30476" class="LineNr">30476 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30477" class="LineNr">30477 </span> <span class="subxComment"># var/esi <- increment => 46/increment-esi</span> +<span id="L30459" class="LineNr">30459 </span> <span class="SpecialChar"><a href='mu.subx.html#L35072'>Single-int-var-in-eax</a></span>/imm32/outputs +<span id="L30460" class="LineNr">30460 </span> 0x11/imm32/alloc-id:fake +<span id="L30461" class="LineNr">30461 </span> <a href='mu.subx.html#L34702'>_string_40_increment_eax</a>/imm32/subx-name +<span id="L30462" class="LineNr">30462 </span> 0/imm32/no-rm32 +<span id="L30463" class="LineNr">30463 </span> 0/imm32/no-r32 +<span id="L30464" class="LineNr">30464 </span> 0/imm32/no-imm32 +<span id="L30465" class="LineNr">30465 </span> 0/imm32/no-imm8 +<span id="L30466" class="LineNr">30466 </span> 0/imm32/no-disp32 +<span id="L30467" class="LineNr">30467 </span> 0/imm32/no-xm32 +<span id="L30468" class="LineNr">30468 </span> 0/imm32/no-x32 +<span id="L30469" class="LineNr">30469 </span> 0x11/imm32/alloc-id:fake +<span id="L30470" class="LineNr">30470 </span> <a href='mu.subx.html#L30471'>_Primitive-increment-ecx</a>/imm32/next +<span id="L30471" class="LineNr">30471 </span><span class="subxMinorFunction">_Primitive-increment-ecx</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30472" class="LineNr">30472 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30473" class="LineNr">30473 </span> <span class="subxComment"># var/ecx <- increment => 41/increment-ecx</span> +<span id="L30474" class="LineNr">30474 </span> 0x11/imm32/alloc-id:fake +<span id="L30475" class="LineNr">30475 </span> <a href='mu.subx.html#L34145'>_string-increment</a>/imm32/name +<span id="L30476" class="LineNr">30476 </span> 0/imm32/no-inouts +<span id="L30477" class="LineNr">30477 </span> 0/imm32/no-inouts <span id="L30478" class="LineNr">30478 </span> 0x11/imm32/alloc-id:fake -<span id="L30479" class="LineNr">30479 </span> <a href='mu.subx.html#L33876'>_string-increment</a>/imm32/name -<span id="L30480" class="LineNr">30480 </span> 0/imm32/no-inouts -<span id="L30481" class="LineNr">30481 </span> 0/imm32/no-inouts -<span id="L30482" class="LineNr">30482 </span> 0x11/imm32/alloc-id:fake -<span id="L30483" class="LineNr">30483 </span> <span class="SpecialChar"><a href='mu.subx.html#L34815'>Single-int-var-in-esi</a></span>/imm32/outputs -<span id="L30484" class="LineNr">30484 </span> 0x11/imm32/alloc-id:fake -<span id="L30485" class="LineNr">30485 </span> <a href='mu.subx.html#L34398'>_string_46_increment_esi</a>/imm32/subx-name -<span id="L30486" class="LineNr">30486 </span> 0/imm32/no-rm32 -<span id="L30487" class="LineNr">30487 </span> 0/imm32/no-r32 -<span id="L30488" class="LineNr">30488 </span> 0/imm32/no-imm32 -<span id="L30489" class="LineNr">30489 </span> 0/imm32/no-imm8 -<span id="L30490" class="LineNr">30490 </span> 0/imm32/no-disp32 -<span id="L30491" class="LineNr">30491 </span> 0/imm32/no-xm32 -<span id="L30492" class="LineNr">30492 </span> 0/imm32/no-x32 -<span id="L30493" class="LineNr">30493 </span> 0x11/imm32/alloc-id:fake -<span id="L30494" class="LineNr">30494 </span> <a href='mu.subx.html#L30495'>_Primitive-increment-edi</a>/imm32/next -<span id="L30495" class="LineNr">30495 </span><span class="subxMinorFunction">_Primitive-increment-edi</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30496" class="LineNr">30496 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30497" class="LineNr">30497 </span> <span class="subxComment"># var/edi <- increment => 47/increment-edi</span> +<span id="L30479" class="LineNr">30479 </span> <span class="SpecialChar"><a href='mu.subx.html#L35090'>Single-int-var-in-ecx</a></span>/imm32/outputs +<span id="L30480" class="LineNr">30480 </span> 0x11/imm32/alloc-id:fake +<span id="L30481" class="LineNr">30481 </span> <a href='mu.subx.html#L34707'>_string_41_increment_ecx</a>/imm32/subx-name +<span id="L30482" class="LineNr">30482 </span> 0/imm32/no-rm32 +<span id="L30483" class="LineNr">30483 </span> 0/imm32/no-r32 +<span id="L30484" class="LineNr">30484 </span> 0/imm32/no-imm32 +<span id="L30485" class="LineNr">30485 </span> 0/imm32/no-imm8 +<span id="L30486" class="LineNr">30486 </span> 0/imm32/no-disp32 +<span id="L30487" class="LineNr">30487 </span> 0/imm32/no-xm32 +<span id="L30488" class="LineNr">30488 </span> 0/imm32/no-x32 +<span id="L30489" class="LineNr">30489 </span> 0x11/imm32/alloc-id:fake +<span id="L30490" class="LineNr">30490 </span> <a href='mu.subx.html#L30491'>_Primitive-increment-edx</a>/imm32/next +<span id="L30491" class="LineNr">30491 </span><span class="subxMinorFunction">_Primitive-increment-edx</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30492" class="LineNr">30492 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30493" class="LineNr">30493 </span> <span class="subxComment"># var/edx <- increment => 42/increment-edx</span> +<span id="L30494" class="LineNr">30494 </span> 0x11/imm32/alloc-id:fake +<span id="L30495" class="LineNr">30495 </span> <a href='mu.subx.html#L34145'>_string-increment</a>/imm32/name +<span id="L30496" class="LineNr">30496 </span> 0/imm32/no-inouts +<span id="L30497" class="LineNr">30497 </span> 0/imm32/no-inouts <span id="L30498" class="LineNr">30498 </span> 0x11/imm32/alloc-id:fake -<span id="L30499" class="LineNr">30499 </span> <a href='mu.subx.html#L33876'>_string-increment</a>/imm32/name -<span id="L30500" class="LineNr">30500 </span> 0/imm32/no-inouts -<span id="L30501" class="LineNr">30501 </span> 0/imm32/no-inouts -<span id="L30502" class="LineNr">30502 </span> 0x11/imm32/alloc-id:fake -<span id="L30503" class="LineNr">30503 </span> <span class="SpecialChar"><a href='mu.subx.html#L34833'>Single-int-var-in-edi</a></span>/imm32/outputs -<span id="L30504" class="LineNr">30504 </span> 0x11/imm32/alloc-id:fake -<span id="L30505" class="LineNr">30505 </span> <a href='mu.subx.html#L34403'>_string_47_increment_edi</a>/imm32/subx-name -<span id="L30506" class="LineNr">30506 </span> 0/imm32/no-rm32 -<span id="L30507" class="LineNr">30507 </span> 0/imm32/no-r32 -<span id="L30508" class="LineNr">30508 </span> 0/imm32/no-imm32 -<span id="L30509" class="LineNr">30509 </span> 0/imm32/no-imm8 -<span id="L30510" class="LineNr">30510 </span> 0/imm32/no-disp32 -<span id="L30511" class="LineNr">30511 </span> 0/imm32/no-xm32 -<span id="L30512" class="LineNr">30512 </span> 0/imm32/no-x32 -<span id="L30513" class="LineNr">30513 </span> 0x11/imm32/alloc-id:fake -<span id="L30514" class="LineNr">30514 </span> <a href='mu.subx.html#L30515'>_Primitive-decrement-eax</a>/imm32/next -<span id="L30515" class="LineNr">30515 </span><span class="subxMinorFunction">_Primitive-decrement-eax</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30516" class="LineNr">30516 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30517" class="LineNr">30517 </span> <span class="subxComment"># var/eax <- decrement => 48/decrement-eax</span> +<span id="L30499" class="LineNr">30499 </span> <span class="SpecialChar"><a href='mu.subx.html#L35108'>Single-int-var-in-edx</a></span>/imm32/outputs +<span id="L30500" class="LineNr">30500 </span> 0x11/imm32/alloc-id:fake +<span id="L30501" class="LineNr">30501 </span> <a href='mu.subx.html#L34712'>_string_42_increment_edx</a>/imm32/subx-name +<span id="L30502" class="LineNr">30502 </span> 0/imm32/no-rm32 +<span id="L30503" class="LineNr">30503 </span> 0/imm32/no-r32 +<span id="L30504" class="LineNr">30504 </span> 0/imm32/no-imm32 +<span id="L30505" class="LineNr">30505 </span> 0/imm32/no-imm8 +<span id="L30506" class="LineNr">30506 </span> 0/imm32/no-disp32 +<span id="L30507" class="LineNr">30507 </span> 0/imm32/no-xm32 +<span id="L30508" class="LineNr">30508 </span> 0/imm32/no-x32 +<span id="L30509" class="LineNr">30509 </span> 0x11/imm32/alloc-id:fake +<span id="L30510" class="LineNr">30510 </span> <a href='mu.subx.html#L30511'>_Primitive-increment-ebx</a>/imm32/next +<span id="L30511" class="LineNr">30511 </span><span class="subxMinorFunction">_Primitive-increment-ebx</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30512" class="LineNr">30512 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30513" class="LineNr">30513 </span> <span class="subxComment"># var/ebx <- increment => 43/increment-ebx</span> +<span id="L30514" class="LineNr">30514 </span> 0x11/imm32/alloc-id:fake +<span id="L30515" class="LineNr">30515 </span> <a href='mu.subx.html#L34145'>_string-increment</a>/imm32/name +<span id="L30516" class="LineNr">30516 </span> 0/imm32/no-inouts +<span id="L30517" class="LineNr">30517 </span> 0/imm32/no-inouts <span id="L30518" class="LineNr">30518 </span> 0x11/imm32/alloc-id:fake -<span id="L30519" class="LineNr">30519 </span> <a href='mu.subx.html#L33871'>_string-decrement</a>/imm32/name -<span id="L30520" class="LineNr">30520 </span> 0/imm32/no-inouts -<span id="L30521" class="LineNr">30521 </span> 0/imm32/no-inouts -<span id="L30522" class="LineNr">30522 </span> 0x11/imm32/alloc-id:fake -<span id="L30523" class="LineNr">30523 </span> <span class="SpecialChar"><a href='mu.subx.html#L34743'>Single-int-var-in-eax</a></span>/imm32/outputs -<span id="L30524" class="LineNr">30524 </span> 0x11/imm32/alloc-id:fake -<span id="L30525" class="LineNr">30525 </span> <a href='mu.subx.html#L34408'>_string_48_decrement_eax</a>/imm32/subx-name -<span id="L30526" class="LineNr">30526 </span> 0/imm32/no-rm32 -<span id="L30527" class="LineNr">30527 </span> 0/imm32/no-r32 -<span id="L30528" class="LineNr">30528 </span> 0/imm32/no-imm32 -<span id="L30529" class="LineNr">30529 </span> 0/imm32/no-imm8 -<span id="L30530" class="LineNr">30530 </span> 0/imm32/no-disp32 -<span id="L30531" class="LineNr">30531 </span> 0/imm32/no-xm32 -<span id="L30532" class="LineNr">30532 </span> 0/imm32/no-x32 -<span id="L30533" class="LineNr">30533 </span> 0x11/imm32/alloc-id:fake -<span id="L30534" class="LineNr">30534 </span> <a href='mu.subx.html#L30535'>_Primitive-decrement-ecx</a>/imm32/next -<span id="L30535" class="LineNr">30535 </span><span class="subxMinorFunction">_Primitive-decrement-ecx</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30536" class="LineNr">30536 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30537" class="LineNr">30537 </span> <span class="subxComment"># var/ecx <- decrement => 49/decrement-ecx</span> +<span id="L30519" class="LineNr">30519 </span> <span class="SpecialChar"><a href='mu.subx.html#L35126'>Single-int-var-in-ebx</a></span>/imm32/outputs +<span id="L30520" class="LineNr">30520 </span> 0x11/imm32/alloc-id:fake +<span id="L30521" class="LineNr">30521 </span> <a href='mu.subx.html#L34717'>_string_43_increment_ebx</a>/imm32/subx-name +<span id="L30522" class="LineNr">30522 </span> 0/imm32/no-rm32 +<span id="L30523" class="LineNr">30523 </span> 0/imm32/no-r32 +<span id="L30524" class="LineNr">30524 </span> 0/imm32/no-imm32 +<span id="L30525" class="LineNr">30525 </span> 0/imm32/no-imm8 +<span id="L30526" class="LineNr">30526 </span> 0/imm32/no-disp32 +<span id="L30527" class="LineNr">30527 </span> 0/imm32/no-xm32 +<span id="L30528" class="LineNr">30528 </span> 0/imm32/no-x32 +<span id="L30529" class="LineNr">30529 </span> 0x11/imm32/alloc-id:fake +<span id="L30530" class="LineNr">30530 </span> <a href='mu.subx.html#L30531'>_Primitive-increment-esi</a>/imm32/next +<span id="L30531" class="LineNr">30531 </span><span class="subxMinorFunction">_Primitive-increment-esi</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30532" class="LineNr">30532 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30533" class="LineNr">30533 </span> <span class="subxComment"># var/esi <- increment => 46/increment-esi</span> +<span id="L30534" class="LineNr">30534 </span> 0x11/imm32/alloc-id:fake +<span id="L30535" class="LineNr">30535 </span> <a href='mu.subx.html#L34145'>_string-increment</a>/imm32/name +<span id="L30536" class="LineNr">30536 </span> 0/imm32/no-inouts +<span id="L30537" class="LineNr">30537 </span> 0/imm32/no-inouts <span id="L30538" class="LineNr">30538 </span> 0x11/imm32/alloc-id:fake -<span id="L30539" class="LineNr">30539 </span> <a href='mu.subx.html#L33871'>_string-decrement</a>/imm32/name -<span id="L30540" class="LineNr">30540 </span> 0/imm32/no-inouts -<span id="L30541" class="LineNr">30541 </span> 0/imm32/no-inouts -<span id="L30542" class="LineNr">30542 </span> 0x11/imm32/alloc-id:fake -<span id="L30543" class="LineNr">30543 </span> <span class="SpecialChar"><a href='mu.subx.html#L34761'>Single-int-var-in-ecx</a></span>/imm32/outputs -<span id="L30544" class="LineNr">30544 </span> 0x11/imm32/alloc-id:fake -<span id="L30545" class="LineNr">30545 </span> <a href='mu.subx.html#L34413'>_string_49_decrement_ecx</a>/imm32/subx-name -<span id="L30546" class="LineNr">30546 </span> 0/imm32/no-rm32 -<span id="L30547" class="LineNr">30547 </span> 0/imm32/no-r32 -<span id="L30548" class="LineNr">30548 </span> 0/imm32/no-imm32 -<span id="L30549" class="LineNr">30549 </span> 0/imm32/no-imm8 -<span id="L30550" class="LineNr">30550 </span> 0/imm32/no-disp32 -<span id="L30551" class="LineNr">30551 </span> 0/imm32/no-xm32 -<span id="L30552" class="LineNr">30552 </span> 0/imm32/no-x32 -<span id="L30553" class="LineNr">30553 </span> 0x11/imm32/alloc-id:fake -<span id="L30554" class="LineNr">30554 </span> <a href='mu.subx.html#L30555'>_Primitive-decrement-edx</a>/imm32/next -<span id="L30555" class="LineNr">30555 </span><span class="subxMinorFunction">_Primitive-decrement-edx</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30556" class="LineNr">30556 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30557" class="LineNr">30557 </span> <span class="subxComment"># var/edx <- decrement => 4a/decrement-edx</span> +<span id="L30539" class="LineNr">30539 </span> <span class="SpecialChar"><a href='mu.subx.html#L35144'>Single-int-var-in-esi</a></span>/imm32/outputs +<span id="L30540" class="LineNr">30540 </span> 0x11/imm32/alloc-id:fake +<span id="L30541" class="LineNr">30541 </span> <a href='mu.subx.html#L34722'>_string_46_increment_esi</a>/imm32/subx-name +<span id="L30542" class="LineNr">30542 </span> 0/imm32/no-rm32 +<span id="L30543" class="LineNr">30543 </span> 0/imm32/no-r32 +<span id="L30544" class="LineNr">30544 </span> 0/imm32/no-imm32 +<span id="L30545" class="LineNr">30545 </span> 0/imm32/no-imm8 +<span id="L30546" class="LineNr">30546 </span> 0/imm32/no-disp32 +<span id="L30547" class="LineNr">30547 </span> 0/imm32/no-xm32 +<span id="L30548" class="LineNr">30548 </span> 0/imm32/no-x32 +<span id="L30549" class="LineNr">30549 </span> 0x11/imm32/alloc-id:fake +<span id="L30550" class="LineNr">30550 </span> <a href='mu.subx.html#L30551'>_Primitive-increment-edi</a>/imm32/next +<span id="L30551" class="LineNr">30551 </span><span class="subxMinorFunction">_Primitive-increment-edi</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30552" class="LineNr">30552 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30553" class="LineNr">30553 </span> <span class="subxComment"># var/edi <- increment => 47/increment-edi</span> +<span id="L30554" class="LineNr">30554 </span> 0x11/imm32/alloc-id:fake +<span id="L30555" class="LineNr">30555 </span> <a href='mu.subx.html#L34145'>_string-increment</a>/imm32/name +<span id="L30556" class="LineNr">30556 </span> 0/imm32/no-inouts +<span id="L30557" class="LineNr">30557 </span> 0/imm32/no-inouts <span id="L30558" class="LineNr">30558 </span> 0x11/imm32/alloc-id:fake -<span id="L30559" class="LineNr">30559 </span> <a href='mu.subx.html#L33871'>_string-decrement</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> 0x11/imm32/alloc-id:fake -<span id="L30563" class="LineNr">30563 </span> <span class="SpecialChar"><a href='mu.subx.html#L34779'>Single-int-var-in-edx</a></span>/imm32/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#L34418'>_string_4a_decrement_edx</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="L30573" class="LineNr">30573 </span> 0x11/imm32/alloc-id:fake -<span id="L30574" class="LineNr">30574 </span> <a href='mu.subx.html#L30575'>_Primitive-decrement-ebx</a>/imm32/next -<span id="L30575" class="LineNr">30575 </span><span class="subxMinorFunction">_Primitive-decrement-ebx</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30576" class="LineNr">30576 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30577" class="LineNr">30577 </span> <span class="subxComment"># var/ebx <- decrement => 4b/decrement-ebx</span> +<span id="L30559" class="LineNr">30559 </span> <span class="SpecialChar"><a href='mu.subx.html#L35162'>Single-int-var-in-edi</a></span>/imm32/outputs +<span id="L30560" class="LineNr">30560 </span> 0x11/imm32/alloc-id:fake +<span id="L30561" class="LineNr">30561 </span> <a href='mu.subx.html#L34727'>_string_47_increment_edi</a>/imm32/subx-name +<span id="L30562" class="LineNr">30562 </span> 0/imm32/no-rm32 +<span id="L30563" class="LineNr">30563 </span> 0/imm32/no-r32 +<span id="L30564" class="LineNr">30564 </span> 0/imm32/no-imm32 +<span id="L30565" class="LineNr">30565 </span> 0/imm32/no-imm8 +<span id="L30566" class="LineNr">30566 </span> 0/imm32/no-disp32 +<span id="L30567" class="LineNr">30567 </span> 0/imm32/no-xm32 +<span id="L30568" class="LineNr">30568 </span> 0/imm32/no-x32 +<span id="L30569" class="LineNr">30569 </span> 0x11/imm32/alloc-id:fake +<span id="L30570" class="LineNr">30570 </span> <a href='mu.subx.html#L30571'>_Primitive-decrement-eax</a>/imm32/next +<span id="L30571" class="LineNr">30571 </span><span class="subxMinorFunction">_Primitive-decrement-eax</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30572" class="LineNr">30572 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30573" class="LineNr">30573 </span> <span class="subxComment"># var/eax <- decrement => 48/decrement-eax</span> +<span id="L30574" class="LineNr">30574 </span> 0x11/imm32/alloc-id:fake +<span id="L30575" class="LineNr">30575 </span> <a href='mu.subx.html#L34140'>_string-decrement</a>/imm32/name +<span id="L30576" class="LineNr">30576 </span> 0/imm32/no-inouts +<span id="L30577" class="LineNr">30577 </span> 0/imm32/no-inouts <span id="L30578" class="LineNr">30578 </span> 0x11/imm32/alloc-id:fake -<span id="L30579" class="LineNr">30579 </span> <a href='mu.subx.html#L33871'>_string-decrement</a>/imm32/name -<span id="L30580" class="LineNr">30580 </span> 0/imm32/no-inouts -<span id="L30581" class="LineNr">30581 </span> 0/imm32/no-inouts -<span id="L30582" class="LineNr">30582 </span> 0x11/imm32/alloc-id:fake -<span id="L30583" class="LineNr">30583 </span> <span class="SpecialChar"><a href='mu.subx.html#L34797'>Single-int-var-in-ebx</a></span>/imm32/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#L34423'>_string_4b_decrement_ebx</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> 0/imm32/no-disp32 -<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-decrement-esi</a>/imm32/next -<span id="L30595" class="LineNr">30595 </span><span class="subxMinorFunction">_Primitive-decrement-esi</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> <span class="subxComment"># var/esi <- decrement => 4e/decrement-esi</span> +<span id="L30579" class="LineNr">30579 </span> <span class="SpecialChar"><a href='mu.subx.html#L35072'>Single-int-var-in-eax</a></span>/imm32/outputs +<span id="L30580" class="LineNr">30580 </span> 0x11/imm32/alloc-id:fake +<span id="L30581" class="LineNr">30581 </span> <a href='mu.subx.html#L34732'>_string_48_decrement_eax</a>/imm32/subx-name +<span id="L30582" class="LineNr">30582 </span> 0/imm32/no-rm32 +<span id="L30583" class="LineNr">30583 </span> 0/imm32/no-r32 +<span id="L30584" class="LineNr">30584 </span> 0/imm32/no-imm32 +<span id="L30585" class="LineNr">30585 </span> 0/imm32/no-imm8 +<span id="L30586" class="LineNr">30586 </span> 0/imm32/no-disp32 +<span id="L30587" class="LineNr">30587 </span> 0/imm32/no-xm32 +<span id="L30588" class="LineNr">30588 </span> 0/imm32/no-x32 +<span id="L30589" class="LineNr">30589 </span> 0x11/imm32/alloc-id:fake +<span id="L30590" class="LineNr">30590 </span> <a href='mu.subx.html#L30591'>_Primitive-decrement-ecx</a>/imm32/next +<span id="L30591" class="LineNr">30591 </span><span class="subxMinorFunction">_Primitive-decrement-ecx</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30592" class="LineNr">30592 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30593" class="LineNr">30593 </span> <span class="subxComment"># var/ecx <- decrement => 49/decrement-ecx</span> +<span id="L30594" class="LineNr">30594 </span> 0x11/imm32/alloc-id:fake +<span id="L30595" class="LineNr">30595 </span> <a href='mu.subx.html#L34140'>_string-decrement</a>/imm32/name +<span id="L30596" class="LineNr">30596 </span> 0/imm32/no-inouts +<span id="L30597" class="LineNr">30597 </span> 0/imm32/no-inouts <span id="L30598" class="LineNr">30598 </span> 0x11/imm32/alloc-id:fake -<span id="L30599" class="LineNr">30599 </span> <a href='mu.subx.html#L33871'>_string-decrement</a>/imm32/name -<span id="L30600" class="LineNr">30600 </span> 0/imm32/no-inouts -<span id="L30601" class="LineNr">30601 </span> 0/imm32/no-inouts -<span id="L30602" class="LineNr">30602 </span> 0x11/imm32/alloc-id:fake -<span id="L30603" class="LineNr">30603 </span> <span class="SpecialChar"><a href='mu.subx.html#L34815'>Single-int-var-in-esi</a></span>/imm32/outputs -<span id="L30604" class="LineNr">30604 </span> 0x11/imm32/alloc-id:fake -<span id="L30605" class="LineNr">30605 </span> <a href='mu.subx.html#L34428'>_string_4e_decrement_esi</a>/imm32/subx-name -<span id="L30606" class="LineNr">30606 </span> 0/imm32/no-rm32 -<span id="L30607" class="LineNr">30607 </span> 0/imm32/no-r32 -<span id="L30608" class="LineNr">30608 </span> 0/imm32/no-imm32 -<span id="L30609" class="LineNr">30609 </span> 0/imm32/no-imm8 -<span id="L30610" class="LineNr">30610 </span> 0/imm32/no-disp32 -<span id="L30611" class="LineNr">30611 </span> 0/imm32/no-xm32 -<span id="L30612" class="LineNr">30612 </span> 0/imm32/no-x32 -<span id="L30613" class="LineNr">30613 </span> 0x11/imm32/alloc-id:fake -<span id="L30614" class="LineNr">30614 </span> <a href='mu.subx.html#L30615'>_Primitive-decrement-edi</a>/imm32/next -<span id="L30615" class="LineNr">30615 </span><span class="subxMinorFunction">_Primitive-decrement-edi</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30616" class="LineNr">30616 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30617" class="LineNr">30617 </span> <span class="subxComment"># var/edi <- decrement => 4f/decrement-edi</span> +<span id="L30599" class="LineNr">30599 </span> <span class="SpecialChar"><a href='mu.subx.html#L35090'>Single-int-var-in-ecx</a></span>/imm32/outputs +<span id="L30600" class="LineNr">30600 </span> 0x11/imm32/alloc-id:fake +<span id="L30601" class="LineNr">30601 </span> <a href='mu.subx.html#L34737'>_string_49_decrement_ecx</a>/imm32/subx-name +<span id="L30602" class="LineNr">30602 </span> 0/imm32/no-rm32 +<span id="L30603" class="LineNr">30603 </span> 0/imm32/no-r32 +<span id="L30604" class="LineNr">30604 </span> 0/imm32/no-imm32 +<span id="L30605" class="LineNr">30605 </span> 0/imm32/no-imm8 +<span id="L30606" class="LineNr">30606 </span> 0/imm32/no-disp32 +<span id="L30607" class="LineNr">30607 </span> 0/imm32/no-xm32 +<span id="L30608" class="LineNr">30608 </span> 0/imm32/no-x32 +<span id="L30609" class="LineNr">30609 </span> 0x11/imm32/alloc-id:fake +<span id="L30610" class="LineNr">30610 </span> <a href='mu.subx.html#L30611'>_Primitive-decrement-edx</a>/imm32/next +<span id="L30611" class="LineNr">30611 </span><span class="subxMinorFunction">_Primitive-decrement-edx</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30612" class="LineNr">30612 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30613" class="LineNr">30613 </span> <span class="subxComment"># var/edx <- decrement => 4a/decrement-edx</span> +<span id="L30614" class="LineNr">30614 </span> 0x11/imm32/alloc-id:fake +<span id="L30615" class="LineNr">30615 </span> <a href='mu.subx.html#L34140'>_string-decrement</a>/imm32/name +<span id="L30616" class="LineNr">30616 </span> 0/imm32/no-inouts +<span id="L30617" class="LineNr">30617 </span> 0/imm32/no-inouts <span id="L30618" class="LineNr">30618 </span> 0x11/imm32/alloc-id:fake -<span id="L30619" class="LineNr">30619 </span> <a href='mu.subx.html#L33871'>_string-decrement</a>/imm32/name -<span id="L30620" class="LineNr">30620 </span> 0/imm32/no-inouts -<span id="L30621" class="LineNr">30621 </span> 0/imm32/no-inouts -<span id="L30622" class="LineNr">30622 </span> 0x11/imm32/alloc-id:fake -<span id="L30623" class="LineNr">30623 </span> <span class="SpecialChar"><a href='mu.subx.html#L34833'>Single-int-var-in-edi</a></span>/imm32/outputs -<span id="L30624" class="LineNr">30624 </span> 0x11/imm32/alloc-id:fake -<span id="L30625" class="LineNr">30625 </span> <a href='mu.subx.html#L34433'>_string_4f_decrement_edi</a>/imm32/subx-name -<span id="L30626" class="LineNr">30626 </span> 0/imm32/no-rm32 -<span id="L30627" class="LineNr">30627 </span> 0/imm32/no-r32 -<span id="L30628" class="LineNr">30628 </span> 0/imm32/no-imm32 -<span id="L30629" class="LineNr">30629 </span> 0/imm32/no-imm8 -<span id="L30630" class="LineNr">30630 </span> 0/imm32/no-disp32 -<span id="L30631" class="LineNr">30631 </span> 0/imm32/no-xm32 -<span id="L30632" class="LineNr">30632 </span> 0/imm32/no-x32 -<span id="L30633" class="LineNr">30633 </span> 0x11/imm32/alloc-id:fake -<span id="L30634" class="LineNr">30634 </span> <a href='mu.subx.html#L30635'>_Primitive-increment-mem</a>/imm32/next -<span id="L30635" class="LineNr">30635 </span><span class="subxMinorFunction">_Primitive-increment-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30636" class="LineNr">30636 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30637" class="LineNr">30637 </span> <span class="subxComment"># increment var => ff 0/subop/increment *(ebp+__)</span> +<span id="L30619" class="LineNr">30619 </span> <span class="SpecialChar"><a href='mu.subx.html#L35108'>Single-int-var-in-edx</a></span>/imm32/outputs +<span id="L30620" class="LineNr">30620 </span> 0x11/imm32/alloc-id:fake +<span id="L30621" class="LineNr">30621 </span> <a href='mu.subx.html#L34742'>_string_4a_decrement_edx</a>/imm32/subx-name +<span id="L30622" class="LineNr">30622 </span> 0/imm32/no-rm32 +<span id="L30623" class="LineNr">30623 </span> 0/imm32/no-r32 +<span id="L30624" class="LineNr">30624 </span> 0/imm32/no-imm32 +<span id="L30625" class="LineNr">30625 </span> 0/imm32/no-imm8 +<span id="L30626" class="LineNr">30626 </span> 0/imm32/no-disp32 +<span id="L30627" class="LineNr">30627 </span> 0/imm32/no-xm32 +<span id="L30628" class="LineNr">30628 </span> 0/imm32/no-x32 +<span id="L30629" class="LineNr">30629 </span> 0x11/imm32/alloc-id:fake +<span id="L30630" class="LineNr">30630 </span> <a href='mu.subx.html#L30631'>_Primitive-decrement-ebx</a>/imm32/next +<span id="L30631" class="LineNr">30631 </span><span class="subxMinorFunction">_Primitive-decrement-ebx</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30632" class="LineNr">30632 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30633" class="LineNr">30633 </span> <span class="subxComment"># var/ebx <- decrement => 4b/decrement-ebx</span> +<span id="L30634" class="LineNr">30634 </span> 0x11/imm32/alloc-id:fake +<span id="L30635" class="LineNr">30635 </span> <a href='mu.subx.html#L34140'>_string-decrement</a>/imm32/name +<span id="L30636" class="LineNr">30636 </span> 0/imm32/no-inouts +<span id="L30637" class="LineNr">30637 </span> 0/imm32/no-inouts <span id="L30638" class="LineNr">30638 </span> 0x11/imm32/alloc-id:fake -<span id="L30639" class="LineNr">30639 </span> <a href='mu.subx.html#L33876'>_string-increment</a>/imm32/name +<span id="L30639" class="LineNr">30639 </span> <span class="SpecialChar"><a href='mu.subx.html#L35126'>Single-int-var-in-ebx</a></span>/imm32/outputs <span id="L30640" class="LineNr">30640 </span> 0x11/imm32/alloc-id:fake -<span id="L30641" class="LineNr">30641 </span> <span class="SpecialChar"><a href='mu.subx.html#L34574'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L30642" class="LineNr">30642 </span> 0/imm32/no-outputs -<span id="L30643" class="LineNr">30643 </span> 0/imm32/no-outputs -<span id="L30644" class="LineNr">30644 </span> 0x11/imm32/alloc-id:fake -<span id="L30645" class="LineNr">30645 </span> <a href='mu.subx.html#L34548'>_string_ff_subop_increment</a>/imm32/subx-name -<span id="L30646" class="LineNr">30646 </span> 1/imm32/rm32-is-first-inout -<span id="L30647" class="LineNr">30647 </span> 0/imm32/no-r32 -<span id="L30648" class="LineNr">30648 </span> 0/imm32/no-imm32 -<span id="L30649" class="LineNr">30649 </span> 0/imm32/no-imm8 -<span id="L30650" class="LineNr">30650 </span> 0/imm32/no-disp32 -<span id="L30651" class="LineNr">30651 </span> 0/imm32/no-xm32 -<span id="L30652" class="LineNr">30652 </span> 0/imm32/no-x32 -<span id="L30653" class="LineNr">30653 </span> 0x11/imm32/alloc-id:fake -<span id="L30654" class="LineNr">30654 </span> <a href='mu.subx.html#L30655'>_Primitive-increment-reg</a>/imm32/next -<span id="L30655" class="LineNr">30655 </span><span class="subxMinorFunction">_Primitive-increment-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30656" class="LineNr">30656 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30657" class="LineNr">30657 </span> <span class="subxComment"># var/reg <- increment => ff 0/subop/increment %__</span> +<span id="L30641" class="LineNr">30641 </span> <a href='mu.subx.html#L34747'>_string_4b_decrement_ebx</a>/imm32/subx-name +<span id="L30642" class="LineNr">30642 </span> 0/imm32/no-rm32 +<span id="L30643" class="LineNr">30643 </span> 0/imm32/no-r32 +<span id="L30644" class="LineNr">30644 </span> 0/imm32/no-imm32 +<span id="L30645" class="LineNr">30645 </span> 0/imm32/no-imm8 +<span id="L30646" class="LineNr">30646 </span> 0/imm32/no-disp32 +<span id="L30647" class="LineNr">30647 </span> 0/imm32/no-xm32 +<span id="L30648" class="LineNr">30648 </span> 0/imm32/no-x32 +<span id="L30649" class="LineNr">30649 </span> 0x11/imm32/alloc-id:fake +<span id="L30650" class="LineNr">30650 </span> <a href='mu.subx.html#L30651'>_Primitive-decrement-esi</a>/imm32/next +<span id="L30651" class="LineNr">30651 </span><span class="subxMinorFunction">_Primitive-decrement-esi</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30652" class="LineNr">30652 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30653" class="LineNr">30653 </span> <span class="subxComment"># var/esi <- decrement => 4e/decrement-esi</span> +<span id="L30654" class="LineNr">30654 </span> 0x11/imm32/alloc-id:fake +<span id="L30655" class="LineNr">30655 </span> <a href='mu.subx.html#L34140'>_string-decrement</a>/imm32/name +<span id="L30656" class="LineNr">30656 </span> 0/imm32/no-inouts +<span id="L30657" class="LineNr">30657 </span> 0/imm32/no-inouts <span id="L30658" class="LineNr">30658 </span> 0x11/imm32/alloc-id:fake -<span id="L30659" class="LineNr">30659 </span> <a href='mu.subx.html#L33876'>_string-increment</a>/imm32/name -<span id="L30660" class="LineNr">30660 </span> 0/imm32/no-inouts -<span id="L30661" class="LineNr">30661 </span> 0/imm32/no-inouts -<span id="L30662" class="LineNr">30662 </span> 0x11/imm32/alloc-id:fake -<span id="L30663" class="LineNr">30663 </span> <span class="SpecialChar"><a href='mu.subx.html#L34683'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L30664" class="LineNr">30664 </span> 0x11/imm32/alloc-id:fake -<span id="L30665" class="LineNr">30665 </span> <a href='mu.subx.html#L34548'>_string_ff_subop_increment</a>/imm32/subx-name -<span id="L30666" class="LineNr">30666 </span> 3/imm32/rm32-is-first-output -<span id="L30667" class="LineNr">30667 </span> 0/imm32/no-r32 -<span id="L30668" class="LineNr">30668 </span> 0/imm32/no-imm32 -<span id="L30669" class="LineNr">30669 </span> 0/imm32/no-imm8 -<span id="L30670" class="LineNr">30670 </span> 0/imm32/no-disp32 -<span id="L30671" class="LineNr">30671 </span> 0/imm32/no-xm32 -<span id="L30672" class="LineNr">30672 </span> 0/imm32/no-x32 -<span id="L30673" class="LineNr">30673 </span> 0x11/imm32/alloc-id:fake -<span id="L30674" class="LineNr">30674 </span> <a href='mu.subx.html#L30675'>_Primitive-decrement-mem</a>/imm32/next -<span id="L30675" class="LineNr">30675 </span><span class="subxMinorFunction">_Primitive-decrement-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30676" class="LineNr">30676 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30677" class="LineNr">30677 </span> <span class="subxComment"># decrement var => ff 1/subop/decrement *(ebp+__)</span> +<span id="L30659" class="LineNr">30659 </span> <span class="SpecialChar"><a href='mu.subx.html#L35144'>Single-int-var-in-esi</a></span>/imm32/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#L34752'>_string_4e_decrement_esi</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> 0/imm32/no-disp32 +<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-decrement-edi</a>/imm32/next +<span id="L30671" class="LineNr">30671 </span><span class="subxMinorFunction">_Primitive-decrement-edi</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> <span class="subxComment"># var/edi <- decrement => 4f/decrement-edi</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#L34140'>_string-decrement</a>/imm32/name +<span id="L30676" class="LineNr">30676 </span> 0/imm32/no-inouts +<span id="L30677" class="LineNr">30677 </span> 0/imm32/no-inouts <span id="L30678" class="LineNr">30678 </span> 0x11/imm32/alloc-id:fake -<span id="L30679" class="LineNr">30679 </span> <a href='mu.subx.html#L33871'>_string-decrement</a>/imm32/name +<span id="L30679" class="LineNr">30679 </span> <span class="SpecialChar"><a href='mu.subx.html#L35162'>Single-int-var-in-edi</a></span>/imm32/outputs <span id="L30680" class="LineNr">30680 </span> 0x11/imm32/alloc-id:fake -<span id="L30681" class="LineNr">30681 </span> <span class="SpecialChar"><a href='mu.subx.html#L34574'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L30682" class="LineNr">30682 </span> 0/imm32/no-outputs -<span id="L30683" class="LineNr">30683 </span> 0/imm32/no-outputs -<span id="L30684" class="LineNr">30684 </span> 0x11/imm32/alloc-id:fake -<span id="L30685" class="LineNr">30685 </span> <a href='mu.subx.html#L34553'>_string_ff_subop_decrement</a>/imm32/subx-name -<span id="L30686" class="LineNr">30686 </span> 1/imm32/rm32-is-first-inout -<span id="L30687" class="LineNr">30687 </span> 0/imm32/no-r32 -<span id="L30688" class="LineNr">30688 </span> 0/imm32/no-imm32 -<span id="L30689" class="LineNr">30689 </span> 0/imm32/no-imm8 -<span id="L30690" class="LineNr">30690 </span> 0/imm32/no-disp32 -<span id="L30691" class="LineNr">30691 </span> 0/imm32/no-xm32 -<span id="L30692" class="LineNr">30692 </span> 0/imm32/no-x32 -<span id="L30693" class="LineNr">30693 </span> 0x11/imm32/alloc-id:fake -<span id="L30694" class="LineNr">30694 </span> <a href='mu.subx.html#L30695'>_Primitive-decrement-reg</a>/imm32/next -<span id="L30695" class="LineNr">30695 </span><span class="subxMinorFunction">_Primitive-decrement-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30696" class="LineNr">30696 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30697" class="LineNr">30697 </span> <span class="subxComment"># var/reg <- decrement => ff 1/subop/decrement %__</span> -<span id="L30698" class="LineNr">30698 </span> 0x11/imm32/alloc-id:fake -<span id="L30699" class="LineNr">30699 </span> <a href='mu.subx.html#L33871'>_string-decrement</a>/imm32/name -<span id="L30700" class="LineNr">30700 </span> 0/imm32/no-inouts -<span id="L30701" class="LineNr">30701 </span> 0/imm32/no-inouts -<span id="L30702" class="LineNr">30702 </span> 0x11/imm32/alloc-id:fake -<span id="L30703" class="LineNr">30703 </span> <span class="SpecialChar"><a href='mu.subx.html#L34683'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L30704" class="LineNr">30704 </span> 0x11/imm32/alloc-id:fake -<span id="L30705" class="LineNr">30705 </span> <a href='mu.subx.html#L34553'>_string_ff_subop_decrement</a>/imm32/subx-name -<span id="L30706" class="LineNr">30706 </span> 3/imm32/rm32-is-first-output -<span id="L30707" class="LineNr">30707 </span> 0/imm32/no-r32 -<span id="L30708" class="LineNr">30708 </span> 0/imm32/no-imm32 -<span id="L30709" class="LineNr">30709 </span> 0/imm32/no-imm8 -<span id="L30710" class="LineNr">30710 </span> 0/imm32/no-disp32 -<span id="L30711" class="LineNr">30711 </span> 0/imm32/no-xm32 -<span id="L30712" class="LineNr">30712 </span> 0/imm32/no-x32 -<span id="L30713" class="LineNr">30713 </span> 0x11/imm32/alloc-id:fake -<span id="L30714" class="LineNr">30714 </span> <a href='mu.subx.html#L30716'>_Primitive-add-to-eax</a>/imm32/next -<span id="L30715" class="LineNr">30715 </span><span class="subxH1Comment"># - add</span> -<span id="L30716" class="LineNr">30716 </span><span class="subxMinorFunction">_Primitive-add-to-eax</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30717" class="LineNr">30717 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30718" class="LineNr">30718 </span> <span class="subxComment"># var/eax <- add lit => 05/add-to-eax lit/imm32</span> -<span id="L30719" class="LineNr">30719 </span> 0x11/imm32/alloc-id:fake -<span id="L30720" class="LineNr">30720 </span> <a href='mu.subx.html#L33746'>_string-add</a>/imm32/name -<span id="L30721" class="LineNr">30721 </span> 0x11/imm32/alloc-id:fake -<span id="L30722" class="LineNr">30722 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L30723" class="LineNr">30723 </span> 0x11/imm32/alloc-id:fake -<span id="L30724" class="LineNr">30724 </span> <span class="SpecialChar"><a href='mu.subx.html#L34743'>Single-int-var-in-eax</a></span>/imm32/outputs -<span id="L30725" class="LineNr">30725 </span> 0x11/imm32/alloc-id:fake -<span id="L30726" class="LineNr">30726 </span> <a href='mu.subx.html#L34068'>_string_05_add_to_eax</a>/imm32/subx-name -<span id="L30727" class="LineNr">30727 </span> 0/imm32/no-rm32 -<span id="L30728" class="LineNr">30728 </span> 0/imm32/no-r32 -<span id="L30729" class="LineNr">30729 </span> 1/imm32/imm32-is-first-inout -<span id="L30730" class="LineNr">30730 </span> 0/imm32/no-imm8 -<span id="L30731" class="LineNr">30731 </span> 0/imm32/no-disp32 -<span id="L30732" class="LineNr">30732 </span> 0/imm32/no-xm32 -<span id="L30733" class="LineNr">30733 </span> 0/imm32/no-x32 +<span id="L30681" class="LineNr">30681 </span> <a href='mu.subx.html#L34757'>_string_4f_decrement_edi</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> 0/imm32/no-xm32 +<span id="L30688" class="LineNr">30688 </span> 0/imm32/no-x32 +<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-increment-mem</a>/imm32/next +<span id="L30691" class="LineNr">30691 </span><span class="subxMinorFunction">_Primitive-increment-mem</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"># increment var => ff 0/subop/increment *(ebp+__)</span> +<span id="L30694" class="LineNr">30694 </span> 0x11/imm32/alloc-id:fake +<span id="L30695" class="LineNr">30695 </span> <a href='mu.subx.html#L34145'>_string-increment</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#L34903'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L30698" class="LineNr">30698 </span> 0/imm32/no-outputs +<span id="L30699" class="LineNr">30699 </span> 0/imm32/no-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#L34877'>_string_ff_subop_increment</a>/imm32/subx-name +<span id="L30702" class="LineNr">30702 </span> 1/imm32/rm32-is-first-inout +<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> 0/imm32/no-xm32 +<span id="L30708" class="LineNr">30708 </span> 0/imm32/no-x32 +<span id="L30709" class="LineNr">30709 </span> 0x11/imm32/alloc-id:fake +<span id="L30710" class="LineNr">30710 </span> <a href='mu.subx.html#L30711'>_Primitive-increment-reg</a>/imm32/next +<span id="L30711" class="LineNr">30711 </span><span class="subxMinorFunction">_Primitive-increment-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30712" class="LineNr">30712 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30713" class="LineNr">30713 </span> <span class="subxComment"># var/reg <- increment => ff 0/subop/increment %__</span> +<span id="L30714" class="LineNr">30714 </span> 0x11/imm32/alloc-id:fake +<span id="L30715" class="LineNr">30715 </span> <a href='mu.subx.html#L34145'>_string-increment</a>/imm32/name +<span id="L30716" class="LineNr">30716 </span> 0/imm32/no-inouts +<span id="L30717" class="LineNr">30717 </span> 0/imm32/no-inouts +<span id="L30718" class="LineNr">30718 </span> 0x11/imm32/alloc-id:fake +<span id="L30719" class="LineNr">30719 </span> <span class="SpecialChar"><a href='mu.subx.html#L35012'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L30720" class="LineNr">30720 </span> 0x11/imm32/alloc-id:fake +<span id="L30721" class="LineNr">30721 </span> <a href='mu.subx.html#L34877'>_string_ff_subop_increment</a>/imm32/subx-name +<span id="L30722" class="LineNr">30722 </span> 3/imm32/rm32-is-first-output +<span id="L30723" class="LineNr">30723 </span> 0/imm32/no-r32 +<span id="L30724" class="LineNr">30724 </span> 0/imm32/no-imm32 +<span id="L30725" class="LineNr">30725 </span> 0/imm32/no-imm8 +<span id="L30726" class="LineNr">30726 </span> 0/imm32/no-disp32 +<span id="L30727" class="LineNr">30727 </span> 0/imm32/no-xm32 +<span id="L30728" class="LineNr">30728 </span> 0/imm32/no-x32 +<span id="L30729" class="LineNr">30729 </span> 0x11/imm32/alloc-id:fake +<span id="L30730" class="LineNr">30730 </span> <a href='mu.subx.html#L30731'>_Primitive-decrement-mem</a>/imm32/next +<span id="L30731" class="LineNr">30731 </span><span class="subxMinorFunction">_Primitive-decrement-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30732" class="LineNr">30732 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30733" class="LineNr">30733 </span> <span class="subxComment"># decrement var => ff 1/subop/decrement *(ebp+__)</span> <span id="L30734" class="LineNr">30734 </span> 0x11/imm32/alloc-id:fake -<span id="L30735" class="LineNr">30735 </span> <a href='mu.subx.html#L30736'>_Primitive-add-reg-to-reg</a>/imm32/next -<span id="L30736" class="LineNr">30736 </span><span class="subxMinorFunction">_Primitive-add-reg-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30737" class="LineNr">30737 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30738" class="LineNr">30738 </span> <span class="subxComment"># var1/reg <- add var2/reg => 01/add-to var1/rm32 var2/r32</span> -<span id="L30739" class="LineNr">30739 </span> 0x11/imm32/alloc-id:fake -<span id="L30740" class="LineNr">30740 </span> <a href='mu.subx.html#L33746'>_string-add</a>/imm32/name -<span id="L30741" class="LineNr">30741 </span> 0x11/imm32/alloc-id:fake -<span id="L30742" class="LineNr">30742 </span> <span class="SpecialChar"><a href='mu.subx.html#L34683'>Single-int-var-in-some-register</a></span>/imm32/inouts -<span id="L30743" class="LineNr">30743 </span> 0x11/imm32/alloc-id:fake -<span id="L30744" class="LineNr">30744 </span> <span class="SpecialChar"><a href='mu.subx.html#L34683'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L30745" class="LineNr">30745 </span> 0x11/imm32/alloc-id:fake -<span id="L30746" class="LineNr">30746 </span> <a href='mu.subx.html#L34058'>_string_01_add_to</a>/imm32/subx-name -<span id="L30747" class="LineNr">30747 </span> 3/imm32/rm32-is-first-output -<span id="L30748" class="LineNr">30748 </span> 1/imm32/r32-is-first-inout -<span id="L30749" class="LineNr">30749 </span> 0/imm32/no-imm32 -<span id="L30750" class="LineNr">30750 </span> 0/imm32/no-imm8 -<span id="L30751" class="LineNr">30751 </span> 0/imm32/no-disp32 -<span id="L30752" class="LineNr">30752 </span> 0/imm32/no-xm32 -<span id="L30753" class="LineNr">30753 </span> 0/imm32/no-x32 +<span id="L30735" class="LineNr">30735 </span> <a href='mu.subx.html#L34140'>_string-decrement</a>/imm32/name +<span id="L30736" class="LineNr">30736 </span> 0x11/imm32/alloc-id:fake +<span id="L30737" class="LineNr">30737 </span> <span class="SpecialChar"><a href='mu.subx.html#L34903'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L30738" class="LineNr">30738 </span> 0/imm32/no-outputs +<span id="L30739" class="LineNr">30739 </span> 0/imm32/no-outputs +<span id="L30740" class="LineNr">30740 </span> 0x11/imm32/alloc-id:fake +<span id="L30741" class="LineNr">30741 </span> <a href='mu.subx.html#L34882'>_string_ff_subop_decrement</a>/imm32/subx-name +<span id="L30742" class="LineNr">30742 </span> 1/imm32/rm32-is-first-inout +<span id="L30743" class="LineNr">30743 </span> 0/imm32/no-r32 +<span id="L30744" class="LineNr">30744 </span> 0/imm32/no-imm32 +<span id="L30745" class="LineNr">30745 </span> 0/imm32/no-imm8 +<span id="L30746" class="LineNr">30746 </span> 0/imm32/no-disp32 +<span id="L30747" class="LineNr">30747 </span> 0/imm32/no-xm32 +<span id="L30748" class="LineNr">30748 </span> 0/imm32/no-x32 +<span id="L30749" class="LineNr">30749 </span> 0x11/imm32/alloc-id:fake +<span id="L30750" class="LineNr">30750 </span> <a href='mu.subx.html#L30751'>_Primitive-decrement-reg</a>/imm32/next +<span id="L30751" class="LineNr">30751 </span><span class="subxMinorFunction">_Primitive-decrement-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30752" class="LineNr">30752 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30753" class="LineNr">30753 </span> <span class="subxComment"># var/reg <- decrement => ff 1/subop/decrement %__</span> <span id="L30754" class="LineNr">30754 </span> 0x11/imm32/alloc-id:fake -<span id="L30755" class="LineNr">30755 </span> <a href='mu.subx.html#L30756'>_Primitive-add-reg-to-mem</a>/imm32/next -<span id="L30756" class="LineNr">30756 </span><span class="subxMinorFunction">_Primitive-add-reg-to-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30757" class="LineNr">30757 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30758" class="LineNr">30758 </span> <span class="subxComment"># add-to var1 var2/reg => 01/add-to var1 var2/r32</span> -<span id="L30759" class="LineNr">30759 </span> 0x11/imm32/alloc-id:fake -<span id="L30760" class="LineNr">30760 </span> <a href='mu.subx.html#L33756'>_string-add-to</a>/imm32/name -<span id="L30761" class="LineNr">30761 </span> 0x11/imm32/alloc-id:fake -<span id="L30762" class="LineNr">30762 </span> <span class="SpecialChar"><a href='mu.subx.html#L34612'>Two-args-int-stack-int-reg</a></span>/imm32/inouts -<span id="L30763" class="LineNr">30763 </span> 0/imm32/no-outputs -<span id="L30764" class="LineNr">30764 </span> 0/imm32/no-outputs -<span id="L30765" class="LineNr">30765 </span> 0x11/imm32/alloc-id:fake -<span id="L30766" class="LineNr">30766 </span> <a href='mu.subx.html#L34058'>_string_01_add_to</a>/imm32/subx-name -<span id="L30767" class="LineNr">30767 </span> 1/imm32/rm32-is-first-inout -<span id="L30768" class="LineNr">30768 </span> 2/imm32/r32-is-second-inout -<span id="L30769" class="LineNr">30769 </span> 0/imm32/no-imm32 -<span id="L30770" class="LineNr">30770 </span> 0/imm32/no-imm8 -<span id="L30771" class="LineNr">30771 </span> 0/imm32/no-disp32 -<span id="L30772" class="LineNr">30772 </span> 0/imm32/no-xm32 -<span id="L30773" class="LineNr">30773 </span> 0/imm32/no-x32 -<span id="L30774" class="LineNr">30774 </span> 0x11/imm32/alloc-id:fake -<span id="L30775" class="LineNr">30775 </span> <a href='mu.subx.html#L30776'>_Primitive-add-mem-to-reg</a>/imm32/next -<span id="L30776" class="LineNr">30776 </span><span class="subxMinorFunction">_Primitive-add-mem-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30777" class="LineNr">30777 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30778" class="LineNr">30778 </span> <span class="subxComment"># var1/reg <- add var2 => 03/add var2/rm32 var1/r32</span> +<span id="L30755" class="LineNr">30755 </span> <a href='mu.subx.html#L34140'>_string-decrement</a>/imm32/name +<span id="L30756" class="LineNr">30756 </span> 0/imm32/no-inouts +<span id="L30757" class="LineNr">30757 </span> 0/imm32/no-inouts +<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#L35012'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L30760" class="LineNr">30760 </span> 0x11/imm32/alloc-id:fake +<span id="L30761" class="LineNr">30761 </span> <a href='mu.subx.html#L34882'>_string_ff_subop_decrement</a>/imm32/subx-name +<span id="L30762" class="LineNr">30762 </span> 3/imm32/rm32-is-first-output +<span id="L30763" class="LineNr">30763 </span> 0/imm32/no-r32 +<span id="L30764" class="LineNr">30764 </span> 0/imm32/no-imm32 +<span id="L30765" class="LineNr">30765 </span> 0/imm32/no-imm8 +<span id="L30766" class="LineNr">30766 </span> 0/imm32/no-disp32 +<span id="L30767" class="LineNr">30767 </span> 0/imm32/no-xm32 +<span id="L30768" class="LineNr">30768 </span> 0/imm32/no-x32 +<span id="L30769" class="LineNr">30769 </span> 0x11/imm32/alloc-id:fake +<span id="L30770" class="LineNr">30770 </span> <a href='mu.subx.html#L30772'>_Primitive-add-to-eax</a>/imm32/next +<span id="L30771" class="LineNr">30771 </span><span class="subxH1Comment"># - add</span> +<span id="L30772" class="LineNr">30772 </span><span class="subxMinorFunction">_Primitive-add-to-eax</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30773" class="LineNr">30773 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30774" class="LineNr">30774 </span> <span class="subxComment"># var/eax <- add lit => 05/add-to-eax lit/imm32</span> +<span id="L30775" class="LineNr">30775 </span> 0x11/imm32/alloc-id:fake +<span id="L30776" class="LineNr">30776 </span> <a href='mu.subx.html#L33995'>_string-add</a>/imm32/name +<span id="L30777" class="LineNr">30777 </span> 0x11/imm32/alloc-id:fake +<span id="L30778" class="LineNr">30778 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts <span id="L30779" class="LineNr">30779 </span> 0x11/imm32/alloc-id:fake -<span id="L30780" class="LineNr">30780 </span> <a href='mu.subx.html#L33746'>_string-add</a>/imm32/name +<span id="L30780" class="LineNr">30780 </span> <span class="SpecialChar"><a href='mu.subx.html#L35072'>Single-int-var-in-eax</a></span>/imm32/outputs <span id="L30781" class="LineNr">30781 </span> 0x11/imm32/alloc-id:fake -<span id="L30782" class="LineNr">30782 </span> <span class="SpecialChar"><a href='mu.subx.html#L34574'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L30783" class="LineNr">30783 </span> 0x11/imm32/alloc-id:fake -<span id="L30784" class="LineNr">30784 </span> <span class="SpecialChar"><a href='mu.subx.html#L34683'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L30785" class="LineNr">30785 </span> 0x11/imm32/alloc-id:fake -<span id="L30786" class="LineNr">30786 </span> <a href='mu.subx.html#L34063'>_string_03_add</a>/imm32/subx-name -<span id="L30787" class="LineNr">30787 </span> 1/imm32/rm32-is-first-inout -<span id="L30788" class="LineNr">30788 </span> 3/imm32/r32-is-first-output -<span id="L30789" class="LineNr">30789 </span> 0/imm32/no-imm32 -<span id="L30790" class="LineNr">30790 </span> 0/imm32/no-imm8 -<span id="L30791" class="LineNr">30791 </span> 0/imm32/no-disp32 -<span id="L30792" class="LineNr">30792 </span> 0/imm32/no-xm32 -<span id="L30793" class="LineNr">30793 </span> 0/imm32/no-x32 -<span id="L30794" class="LineNr">30794 </span> 0x11/imm32/alloc-id:fake -<span id="L30795" class="LineNr">30795 </span> <a href='mu.subx.html#L30796'>_Primitive-add-lit-to-reg</a>/imm32/next -<span id="L30796" class="LineNr">30796 </span><span class="subxMinorFunction">_Primitive-add-lit-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30797" class="LineNr">30797 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30798" class="LineNr">30798 </span> <span class="subxComment"># var1/reg <- add lit => 81 0/subop/add var1/rm32 lit/imm32</span> +<span id="L30782" class="LineNr">30782 </span> <a href='mu.subx.html#L34362'>_string_05_add_to_eax</a>/imm32/subx-name +<span id="L30783" class="LineNr">30783 </span> 0/imm32/no-rm32 +<span id="L30784" class="LineNr">30784 </span> 0/imm32/no-r32 +<span id="L30785" class="LineNr">30785 </span> 1/imm32/imm32-is-first-inout +<span id="L30786" class="LineNr">30786 </span> 0/imm32/no-imm8 +<span id="L30787" class="LineNr">30787 </span> 0/imm32/no-disp32 +<span id="L30788" class="LineNr">30788 </span> 0/imm32/no-xm32 +<span id="L30789" class="LineNr">30789 </span> 0/imm32/no-x32 +<span id="L30790" class="LineNr">30790 </span> 0x11/imm32/alloc-id:fake +<span id="L30791" class="LineNr">30791 </span> <a href='mu.subx.html#L30792'>_Primitive-add-reg-to-reg</a>/imm32/next +<span id="L30792" class="LineNr">30792 </span><span class="subxMinorFunction">_Primitive-add-reg-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30793" class="LineNr">30793 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30794" class="LineNr">30794 </span> <span class="subxComment"># var1/reg <- add var2/reg => 01/add-to var1/rm32 var2/r32</span> +<span id="L30795" class="LineNr">30795 </span> 0x11/imm32/alloc-id:fake +<span id="L30796" class="LineNr">30796 </span> <a href='mu.subx.html#L33995'>_string-add</a>/imm32/name +<span id="L30797" class="LineNr">30797 </span> 0x11/imm32/alloc-id:fake +<span id="L30798" class="LineNr">30798 </span> <span class="SpecialChar"><a href='mu.subx.html#L35012'>Single-int-var-in-some-register</a></span>/imm32/inouts <span id="L30799" class="LineNr">30799 </span> 0x11/imm32/alloc-id:fake -<span id="L30800" class="LineNr">30800 </span> <a href='mu.subx.html#L33746'>_string-add</a>/imm32/name +<span id="L30800" class="LineNr">30800 </span> <span class="SpecialChar"><a href='mu.subx.html#L35012'>Single-int-var-in-some-register</a></span>/imm32/outputs <span id="L30801" class="LineNr">30801 </span> 0x11/imm32/alloc-id:fake -<span id="L30802" class="LineNr">30802 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L30803" class="LineNr">30803 </span> 0x11/imm32/alloc-id:fake -<span id="L30804" class="LineNr">30804 </span> <span class="SpecialChar"><a href='mu.subx.html#L34683'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L30805" class="LineNr">30805 </span> 0x11/imm32/alloc-id:fake -<span id="L30806" class="LineNr">30806 </span> <a href='mu.subx.html#L34438'>_string_81_subop_add</a>/imm32/subx-name -<span id="L30807" class="LineNr">30807 </span> 3/imm32/rm32-is-first-output -<span id="L30808" class="LineNr">30808 </span> 0/imm32/no-r32 -<span id="L30809" class="LineNr">30809 </span> 1/imm32/imm32-is-first-inout -<span id="L30810" class="LineNr">30810 </span> 0/imm32/no-imm8 -<span id="L30811" class="LineNr">30811 </span> 0/imm32/no-disp32 -<span id="L30812" class="LineNr">30812 </span> 0/imm32/no-xm32 -<span id="L30813" class="LineNr">30813 </span> 0/imm32/no-x32 -<span id="L30814" class="LineNr">30814 </span> 0x11/imm32/alloc-id:fake -<span id="L30815" class="LineNr">30815 </span> <a href='mu.subx.html#L30816'>_Primitive-add-lit-to-mem</a>/imm32/next -<span id="L30816" class="LineNr">30816 </span><span class="subxMinorFunction">_Primitive-add-lit-to-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30817" class="LineNr">30817 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30818" class="LineNr">30818 </span> <span class="subxComment"># add-to var1, lit => 81 0/subop/add var1/rm32 lit/imm32</span> -<span id="L30819" class="LineNr">30819 </span> 0x11/imm32/alloc-id:fake -<span id="L30820" class="LineNr">30820 </span> <a href='mu.subx.html#L33756'>_string-add-to</a>/imm32/name +<span id="L30802" class="LineNr">30802 </span> <a href='mu.subx.html#L34352'>_string_01_add_to</a>/imm32/subx-name +<span id="L30803" class="LineNr">30803 </span> 3/imm32/rm32-is-first-output +<span id="L30804" class="LineNr">30804 </span> 1/imm32/r32-is-first-inout +<span id="L30805" class="LineNr">30805 </span> 0/imm32/no-imm32 +<span id="L30806" class="LineNr">30806 </span> 0/imm32/no-imm8 +<span id="L30807" class="LineNr">30807 </span> 0/imm32/no-disp32 +<span id="L30808" class="LineNr">30808 </span> 0/imm32/no-xm32 +<span id="L30809" class="LineNr">30809 </span> 0/imm32/no-x32 +<span id="L30810" class="LineNr">30810 </span> 0x11/imm32/alloc-id:fake +<span id="L30811" class="LineNr">30811 </span> <a href='mu.subx.html#L30812'>_Primitive-add-reg-to-mem</a>/imm32/next +<span id="L30812" class="LineNr">30812 </span><span class="subxMinorFunction">_Primitive-add-reg-to-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30813" class="LineNr">30813 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30814" class="LineNr">30814 </span> <span class="subxComment"># add-to var1 var2/reg => 01/add-to var1 var2/r32</span> +<span id="L30815" class="LineNr">30815 </span> 0x11/imm32/alloc-id:fake +<span id="L30816" class="LineNr">30816 </span> <a href='mu.subx.html#L34005'>_string-add-to</a>/imm32/name +<span id="L30817" class="LineNr">30817 </span> 0x11/imm32/alloc-id:fake +<span id="L30818" class="LineNr">30818 </span> <span class="SpecialChar"><a href='mu.subx.html#L34941'>Two-args-int-stack-int-reg</a></span>/imm32/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> <span class="SpecialChar"><a href='mu.subx.html#L34648'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L30823" class="LineNr">30823 </span> 0/imm32/no-outputs -<span id="L30824" class="LineNr">30824 </span> 0/imm32/no-outputs -<span id="L30825" class="LineNr">30825 </span> 0x11/imm32/alloc-id:fake -<span id="L30826" class="LineNr">30826 </span> <a href='mu.subx.html#L34438'>_string_81_subop_add</a>/imm32/subx-name -<span id="L30827" class="LineNr">30827 </span> 1/imm32/rm32-is-first-inout -<span id="L30828" class="LineNr">30828 </span> 0/imm32/no-r32 -<span id="L30829" class="LineNr">30829 </span> 2/imm32/imm32-is-second-inout -<span id="L30830" class="LineNr">30830 </span> 0/imm32/no-imm8 -<span id="L30831" class="LineNr">30831 </span> 0/imm32/no-disp32 -<span id="L30832" class="LineNr">30832 </span> 0/imm32/no-xm32 -<span id="L30833" class="LineNr">30833 </span> 0/imm32/no-x32 -<span id="L30834" class="LineNr">30834 </span> 0x11/imm32/alloc-id:fake -<span id="L30835" class="LineNr">30835 </span> <a href='mu.subx.html#L30837'>_Primitive-subtract-from-eax</a>/imm32/next -<span id="L30836" class="LineNr">30836 </span><span class="subxH1Comment"># - subtract</span> -<span id="L30837" class="LineNr">30837 </span><span class="subxMinorFunction">_Primitive-subtract-from-eax</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30838" class="LineNr">30838 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30839" class="LineNr">30839 </span> <span class="subxComment"># var/eax <- subtract lit => 2d/subtract-from-eax lit/imm32</span> -<span id="L30840" class="LineNr">30840 </span> 0x11/imm32/alloc-id:fake -<span id="L30841" class="LineNr">30841 </span> <a href='mu.subx.html#L34021'>_string-subtract</a>/imm32/name -<span id="L30842" class="LineNr">30842 </span> 0x11/imm32/alloc-id:fake -<span id="L30843" class="LineNr">30843 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L30844" class="LineNr">30844 </span> 0x11/imm32/alloc-id:fake -<span id="L30845" class="LineNr">30845 </span> <span class="SpecialChar"><a href='mu.subx.html#L34743'>Single-int-var-in-eax</a></span>/imm32/outputs -<span id="L30846" class="LineNr">30846 </span> 0x11/imm32/alloc-id:fake -<span id="L30847" class="LineNr">30847 </span> <a href='mu.subx.html#L34343'>_string_2d_subtract_from_eax</a>/imm32/subx-name -<span id="L30848" class="LineNr">30848 </span> 0/imm32/no-rm32 -<span id="L30849" class="LineNr">30849 </span> 0/imm32/no-r32 -<span id="L30850" class="LineNr">30850 </span> 1/imm32/imm32-is-first-inout -<span id="L30851" class="LineNr">30851 </span> 0/imm32/no-imm8 -<span id="L30852" class="LineNr">30852 </span> 0/imm32/no-disp32 -<span id="L30853" class="LineNr">30853 </span> 0/imm32/no-xm32 -<span id="L30854" class="LineNr">30854 </span> 0/imm32/no-x32 +<span id="L30822" class="LineNr">30822 </span> <a href='mu.subx.html#L34352'>_string_01_add_to</a>/imm32/subx-name +<span id="L30823" class="LineNr">30823 </span> 1/imm32/rm32-is-first-inout +<span id="L30824" class="LineNr">30824 </span> 2/imm32/r32-is-second-inout +<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-add-mem-to-reg</a>/imm32/next +<span id="L30832" class="LineNr">30832 </span><span class="subxMinorFunction">_Primitive-add-mem-to-reg</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> <span class="subxComment"># var1/reg <- add var2 => 03/add var2/rm32 var1/r32</span> +<span id="L30835" class="LineNr">30835 </span> 0x11/imm32/alloc-id:fake +<span id="L30836" class="LineNr">30836 </span> <a href='mu.subx.html#L33995'>_string-add</a>/imm32/name +<span id="L30837" class="LineNr">30837 </span> 0x11/imm32/alloc-id:fake +<span id="L30838" class="LineNr">30838 </span> <span class="SpecialChar"><a href='mu.subx.html#L34903'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L30839" class="LineNr">30839 </span> 0x11/imm32/alloc-id:fake +<span id="L30840" class="LineNr">30840 </span> <span class="SpecialChar"><a href='mu.subx.html#L35012'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L30841" class="LineNr">30841 </span> 0x11/imm32/alloc-id:fake +<span id="L30842" class="LineNr">30842 </span> <a href='mu.subx.html#L34357'>_string_03_add</a>/imm32/subx-name +<span id="L30843" class="LineNr">30843 </span> 1/imm32/rm32-is-first-inout +<span id="L30844" class="LineNr">30844 </span> 3/imm32/r32-is-first-output +<span id="L30845" class="LineNr">30845 </span> 0/imm32/no-imm32 +<span id="L30846" class="LineNr">30846 </span> 0/imm32/no-imm8 +<span id="L30847" class="LineNr">30847 </span> 0/imm32/no-disp32 +<span id="L30848" class="LineNr">30848 </span> 0/imm32/no-xm32 +<span id="L30849" class="LineNr">30849 </span> 0/imm32/no-x32 +<span id="L30850" class="LineNr">30850 </span> 0x11/imm32/alloc-id:fake +<span id="L30851" class="LineNr">30851 </span> <a href='mu.subx.html#L30852'>_Primitive-add-lit-to-reg</a>/imm32/next +<span id="L30852" class="LineNr">30852 </span><span class="subxMinorFunction">_Primitive-add-lit-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30853" class="LineNr">30853 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30854" class="LineNr">30854 </span> <span class="subxComment"># var1/reg <- add lit => 81 0/subop/add var1/rm32 lit/imm32</span> <span id="L30855" class="LineNr">30855 </span> 0x11/imm32/alloc-id:fake -<span id="L30856" class="LineNr">30856 </span> <a href='mu.subx.html#L30857'>_Primitive-subtract-reg-from-reg</a>/imm32/next -<span id="L30857" class="LineNr">30857 </span><span class="subxMinorFunction">_Primitive-subtract-reg-from-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30858" class="LineNr">30858 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30859" class="LineNr">30859 </span> <span class="subxComment"># var1/reg <- subtract var2/reg => 29/subtract-from var1/rm32 var2/r32</span> -<span id="L30860" class="LineNr">30860 </span> 0x11/imm32/alloc-id:fake -<span id="L30861" class="LineNr">30861 </span> <a href='mu.subx.html#L34021'>_string-subtract</a>/imm32/name -<span id="L30862" class="LineNr">30862 </span> 0x11/imm32/alloc-id:fake -<span id="L30863" class="LineNr">30863 </span> <span class="SpecialChar"><a href='mu.subx.html#L34683'>Single-int-var-in-some-register</a></span>/imm32/inouts -<span id="L30864" class="LineNr">30864 </span> 0x11/imm32/alloc-id:fake -<span id="L30865" class="LineNr">30865 </span> <span class="SpecialChar"><a href='mu.subx.html#L34683'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L30866" class="LineNr">30866 </span> 0x11/imm32/alloc-id:fake -<span id="L30867" class="LineNr">30867 </span> <a href='mu.subx.html#L34333'>_string_29_subtract_from</a>/imm32/subx-name -<span id="L30868" class="LineNr">30868 </span> 3/imm32/rm32-is-first-output -<span id="L30869" class="LineNr">30869 </span> 1/imm32/r32-is-first-inout -<span id="L30870" class="LineNr">30870 </span> 0/imm32/no-imm32 -<span id="L30871" class="LineNr">30871 </span> 0/imm32/no-imm8 -<span id="L30872" class="LineNr">30872 </span> 0/imm32/no-disp32 -<span id="L30873" class="LineNr">30873 </span> 0/imm32/no-xm32 -<span id="L30874" class="LineNr">30874 </span> 0/imm32/no-x32 +<span id="L30856" class="LineNr">30856 </span> <a href='mu.subx.html#L33995'>_string-add</a>/imm32/name +<span id="L30857" class="LineNr">30857 </span> 0x11/imm32/alloc-id:fake +<span id="L30858" class="LineNr">30858 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts +<span id="L30859" class="LineNr">30859 </span> 0x11/imm32/alloc-id:fake +<span id="L30860" class="LineNr">30860 </span> <span class="SpecialChar"><a href='mu.subx.html#L35012'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L30861" class="LineNr">30861 </span> 0x11/imm32/alloc-id:fake +<span id="L30862" class="LineNr">30862 </span> <a href='mu.subx.html#L34762'>_string_81_subop_add</a>/imm32/subx-name +<span id="L30863" class="LineNr">30863 </span> 3/imm32/rm32-is-first-output +<span id="L30864" class="LineNr">30864 </span> 0/imm32/no-r32 +<span id="L30865" class="LineNr">30865 </span> 1/imm32/imm32-is-first-inout +<span id="L30866" class="LineNr">30866 </span> 0/imm32/no-imm8 +<span id="L30867" class="LineNr">30867 </span> 0/imm32/no-disp32 +<span id="L30868" class="LineNr">30868 </span> 0/imm32/no-xm32 +<span id="L30869" class="LineNr">30869 </span> 0/imm32/no-x32 +<span id="L30870" class="LineNr">30870 </span> 0x11/imm32/alloc-id:fake +<span id="L30871" class="LineNr">30871 </span> <a href='mu.subx.html#L30872'>_Primitive-add-lit-to-mem</a>/imm32/next +<span id="L30872" class="LineNr">30872 </span><span class="subxMinorFunction">_Primitive-add-lit-to-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30873" class="LineNr">30873 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30874" class="LineNr">30874 </span> <span class="subxComment"># add-to var1, lit => 81 0/subop/add var1/rm32 lit/imm32</span> <span id="L30875" class="LineNr">30875 </span> 0x11/imm32/alloc-id:fake -<span id="L30876" class="LineNr">30876 </span> <a href='mu.subx.html#L30877'>_Primitive-subtract-reg-from-mem</a>/imm32/next -<span id="L30877" class="LineNr">30877 </span><span class="subxMinorFunction">_Primitive-subtract-reg-from-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30878" class="LineNr">30878 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30879" class="LineNr">30879 </span> <span class="subxComment"># subtract-from var1 var2/reg => 29/subtract-from var1 var2/r32</span> -<span id="L30880" class="LineNr">30880 </span> 0x11/imm32/alloc-id:fake -<span id="L30881" class="LineNr">30881 </span> <a href='mu.subx.html#L34026'>_string-subtract-from</a>/imm32/name -<span id="L30882" class="LineNr">30882 </span> 0x11/imm32/alloc-id:fake -<span id="L30883" class="LineNr">30883 </span> <span class="SpecialChar"><a href='mu.subx.html#L34612'>Two-args-int-stack-int-reg</a></span>/imm32/inouts -<span id="L30884" class="LineNr">30884 </span> 0/imm32/no-outputs -<span id="L30885" class="LineNr">30885 </span> 0/imm32/no-outputs -<span id="L30886" class="LineNr">30886 </span> 0x11/imm32/alloc-id:fake -<span id="L30887" class="LineNr">30887 </span> <a href='mu.subx.html#L34333'>_string_29_subtract_from</a>/imm32/subx-name -<span id="L30888" class="LineNr">30888 </span> 1/imm32/rm32-is-first-inout -<span id="L30889" class="LineNr">30889 </span> 2/imm32/r32-is-second-inout -<span id="L30890" class="LineNr">30890 </span> 0/imm32/no-imm32 -<span id="L30891" class="LineNr">30891 </span> 0/imm32/no-imm8 -<span id="L30892" class="LineNr">30892 </span> 0/imm32/no-disp32 -<span id="L30893" class="LineNr">30893 </span> 0/imm32/no-xm32 -<span id="L30894" class="LineNr">30894 </span> 0/imm32/no-x32 -<span id="L30895" class="LineNr">30895 </span> 0x11/imm32/alloc-id:fake -<span id="L30896" class="LineNr">30896 </span> <a href='mu.subx.html#L30897'>_Primitive-subtract-mem-from-reg</a>/imm32/next -<span id="L30897" class="LineNr">30897 </span><span class="subxMinorFunction">_Primitive-subtract-mem-from-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30898" class="LineNr">30898 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30899" class="LineNr">30899 </span> <span class="subxComment"># var1/reg <- subtract var2 => 2b/subtract var2/rm32 var1/r32</span> +<span id="L30876" class="LineNr">30876 </span> <a href='mu.subx.html#L34005'>_string-add-to</a>/imm32/name +<span id="L30877" class="LineNr">30877 </span> 0x11/imm32/alloc-id:fake +<span id="L30878" class="LineNr">30878 </span> <span class="SpecialChar"><a href='mu.subx.html#L34977'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L30879" class="LineNr">30879 </span> 0/imm32/no-outputs +<span id="L30880" class="LineNr">30880 </span> 0/imm32/no-outputs +<span id="L30881" class="LineNr">30881 </span> 0x11/imm32/alloc-id:fake +<span id="L30882" class="LineNr">30882 </span> <a href='mu.subx.html#L34762'>_string_81_subop_add</a>/imm32/subx-name +<span id="L30883" class="LineNr">30883 </span> 1/imm32/rm32-is-first-inout +<span id="L30884" class="LineNr">30884 </span> 0/imm32/no-r32 +<span id="L30885" class="LineNr">30885 </span> 2/imm32/imm32-is-second-inout +<span id="L30886" class="LineNr">30886 </span> 0/imm32/no-imm8 +<span id="L30887" class="LineNr">30887 </span> 0/imm32/no-disp32 +<span id="L30888" class="LineNr">30888 </span> 0/imm32/no-xm32 +<span id="L30889" class="LineNr">30889 </span> 0/imm32/no-x32 +<span id="L30890" class="LineNr">30890 </span> 0x11/imm32/alloc-id:fake +<span id="L30891" class="LineNr">30891 </span> <a href='mu.subx.html#L30893'>_Primitive-subtract-from-eax</a>/imm32/next +<span id="L30892" class="LineNr">30892 </span><span class="subxH1Comment"># - subtract</span> +<span id="L30893" class="LineNr">30893 </span><span class="subxMinorFunction">_Primitive-subtract-from-eax</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30894" class="LineNr">30894 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30895" class="LineNr">30895 </span> <span class="subxComment"># var/eax <- subtract lit => 2d/subtract-from-eax lit/imm32</span> +<span id="L30896" class="LineNr">30896 </span> 0x11/imm32/alloc-id:fake +<span id="L30897" class="LineNr">30897 </span> <a href='mu.subx.html#L34315'>_string-subtract</a>/imm32/name +<span id="L30898" class="LineNr">30898 </span> 0x11/imm32/alloc-id:fake +<span id="L30899" class="LineNr">30899 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts <span id="L30900" class="LineNr">30900 </span> 0x11/imm32/alloc-id:fake -<span id="L30901" class="LineNr">30901 </span> <a href='mu.subx.html#L34021'>_string-subtract</a>/imm32/name +<span id="L30901" class="LineNr">30901 </span> <span class="SpecialChar"><a href='mu.subx.html#L35072'>Single-int-var-in-eax</a></span>/imm32/outputs <span id="L30902" class="LineNr">30902 </span> 0x11/imm32/alloc-id:fake -<span id="L30903" class="LineNr">30903 </span> <span class="SpecialChar"><a href='mu.subx.html#L34574'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L30904" class="LineNr">30904 </span> 0x11/imm32/alloc-id:fake -<span id="L30905" class="LineNr">30905 </span> <span class="SpecialChar"><a href='mu.subx.html#L34683'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L30906" class="LineNr">30906 </span> 0x11/imm32/alloc-id:fake -<span id="L30907" class="LineNr">30907 </span> <a href='mu.subx.html#L34338'>_string_2b_subtract</a>/imm32/subx-name -<span id="L30908" class="LineNr">30908 </span> 1/imm32/rm32-is-first-inout -<span id="L30909" class="LineNr">30909 </span> 3/imm32/r32-is-first-output -<span id="L30910" class="LineNr">30910 </span> 0/imm32/no-imm32 -<span id="L30911" class="LineNr">30911 </span> 0/imm32/no-imm8 -<span id="L30912" class="LineNr">30912 </span> 0/imm32/no-disp32 -<span id="L30913" class="LineNr">30913 </span> 0/imm32/no-xm32 -<span id="L30914" class="LineNr">30914 </span> 0/imm32/no-x32 -<span id="L30915" class="LineNr">30915 </span> 0x11/imm32/alloc-id:fake -<span id="L30916" class="LineNr">30916 </span> <a href='mu.subx.html#L30917'>_Primitive-subtract-lit-from-reg</a>/imm32/next -<span id="L30917" class="LineNr">30917 </span><span class="subxMinorFunction">_Primitive-subtract-lit-from-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30918" class="LineNr">30918 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30919" class="LineNr">30919 </span> <span class="subxComment"># var1/reg <- subtract lit => 81 5/subop/subtract var1/rm32 lit/imm32</span> +<span id="L30903" class="LineNr">30903 </span> <a href='mu.subx.html#L34667'>_string_2d_subtract_from_eax</a>/imm32/subx-name +<span id="L30904" class="LineNr">30904 </span> 0/imm32/no-rm32 +<span id="L30905" class="LineNr">30905 </span> 0/imm32/no-r32 +<span id="L30906" class="LineNr">30906 </span> 1/imm32/imm32-is-first-inout +<span id="L30907" class="LineNr">30907 </span> 0/imm32/no-imm8 +<span id="L30908" class="LineNr">30908 </span> 0/imm32/no-disp32 +<span id="L30909" class="LineNr">30909 </span> 0/imm32/no-xm32 +<span id="L30910" class="LineNr">30910 </span> 0/imm32/no-x32 +<span id="L30911" class="LineNr">30911 </span> 0x11/imm32/alloc-id:fake +<span id="L30912" class="LineNr">30912 </span> <a href='mu.subx.html#L30913'>_Primitive-subtract-reg-from-reg</a>/imm32/next +<span id="L30913" class="LineNr">30913 </span><span class="subxMinorFunction">_Primitive-subtract-reg-from-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30914" class="LineNr">30914 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30915" class="LineNr">30915 </span> <span class="subxComment"># var1/reg <- subtract var2/reg => 29/subtract-from var1/rm32 var2/r32</span> +<span id="L30916" class="LineNr">30916 </span> 0x11/imm32/alloc-id:fake +<span id="L30917" class="LineNr">30917 </span> <a href='mu.subx.html#L34315'>_string-subtract</a>/imm32/name +<span id="L30918" class="LineNr">30918 </span> 0x11/imm32/alloc-id:fake +<span id="L30919" class="LineNr">30919 </span> <span class="SpecialChar"><a href='mu.subx.html#L35012'>Single-int-var-in-some-register</a></span>/imm32/inouts <span id="L30920" class="LineNr">30920 </span> 0x11/imm32/alloc-id:fake -<span id="L30921" class="LineNr">30921 </span> <a href='mu.subx.html#L34021'>_string-subtract</a>/imm32/name +<span id="L30921" class="LineNr">30921 </span> <span class="SpecialChar"><a href='mu.subx.html#L35012'>Single-int-var-in-some-register</a></span>/imm32/outputs <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#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L30924" class="LineNr">30924 </span> 0x11/imm32/alloc-id:fake -<span id="L30925" class="LineNr">30925 </span> <span class="SpecialChar"><a href='mu.subx.html#L34683'>Single-int-var-in-some-register</a></span>/imm32/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#L34453'>_string_81_subop_subtract</a>/imm32/subx-name -<span id="L30928" class="LineNr">30928 </span> 3/imm32/rm32-is-first-output -<span id="L30929" class="LineNr">30929 </span> 0/imm32/no-r32 -<span id="L30930" class="LineNr">30930 </span> 1/imm32/imm32-is-first-inout -<span id="L30931" class="LineNr">30931 </span> 0/imm32/no-imm8 -<span id="L30932" class="LineNr">30932 </span> 0/imm32/no-disp32 -<span id="L30933" class="LineNr">30933 </span> 0/imm32/no-xm32 -<span id="L30934" class="LineNr">30934 </span> 0/imm32/no-x32 -<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-subtract-lit-from-mem</a>/imm32/next -<span id="L30937" class="LineNr">30937 </span><span class="subxMinorFunction">_Primitive-subtract-lit-from-mem</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> <span class="subxComment"># subtract-from var1, lit => 81 5/subop/subtract var1/rm32 lit/imm32</span> -<span id="L30940" class="LineNr">30940 </span> 0x11/imm32/alloc-id:fake -<span id="L30941" class="LineNr">30941 </span> <a href='mu.subx.html#L34026'>_string-subtract-from</a>/imm32/name +<span id="L30923" class="LineNr">30923 </span> <a href='mu.subx.html#L34657'>_string_29_subtract_from</a>/imm32/subx-name +<span id="L30924" class="LineNr">30924 </span> 3/imm32/rm32-is-first-output +<span id="L30925" class="LineNr">30925 </span> 1/imm32/r32-is-first-inout +<span id="L30926" class="LineNr">30926 </span> 0/imm32/no-imm32 +<span id="L30927" class="LineNr">30927 </span> 0/imm32/no-imm8 +<span id="L30928" class="LineNr">30928 </span> 0/imm32/no-disp32 +<span id="L30929" class="LineNr">30929 </span> 0/imm32/no-xm32 +<span id="L30930" class="LineNr">30930 </span> 0/imm32/no-x32 +<span id="L30931" class="LineNr">30931 </span> 0x11/imm32/alloc-id:fake +<span id="L30932" class="LineNr">30932 </span> <a href='mu.subx.html#L30933'>_Primitive-subtract-reg-from-mem</a>/imm32/next +<span id="L30933" class="LineNr">30933 </span><span class="subxMinorFunction">_Primitive-subtract-reg-from-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30934" class="LineNr">30934 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30935" class="LineNr">30935 </span> <span class="subxComment"># subtract-from var1 var2/reg => 29/subtract-from var1 var2/r32</span> +<span id="L30936" class="LineNr">30936 </span> 0x11/imm32/alloc-id:fake +<span id="L30937" class="LineNr">30937 </span> <a href='mu.subx.html#L34320'>_string-subtract-from</a>/imm32/name +<span id="L30938" class="LineNr">30938 </span> 0x11/imm32/alloc-id:fake +<span id="L30939" class="LineNr">30939 </span> <span class="SpecialChar"><a href='mu.subx.html#L34941'>Two-args-int-stack-int-reg</a></span>/imm32/inouts +<span id="L30940" class="LineNr">30940 </span> 0/imm32/no-outputs +<span id="L30941" class="LineNr">30941 </span> 0/imm32/no-outputs <span id="L30942" class="LineNr">30942 </span> 0x11/imm32/alloc-id:fake -<span id="L30943" class="LineNr">30943 </span> <span class="SpecialChar"><a href='mu.subx.html#L34648'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L30944" class="LineNr">30944 </span> 0/imm32/no-outputs -<span id="L30945" class="LineNr">30945 </span> 0/imm32/no-outputs -<span id="L30946" class="LineNr">30946 </span> 0x11/imm32/alloc-id:fake -<span id="L30947" class="LineNr">30947 </span> <a href='mu.subx.html#L34453'>_string_81_subop_subtract</a>/imm32/subx-name -<span id="L30948" class="LineNr">30948 </span> 1/imm32/rm32-is-first-inout -<span id="L30949" class="LineNr">30949 </span> 0/imm32/no-r32 -<span id="L30950" class="LineNr">30950 </span> 2/imm32/imm32-is-second-inout -<span id="L30951" class="LineNr">30951 </span> 0/imm32/no-imm8 -<span id="L30952" class="LineNr">30952 </span> 0/imm32/no-disp32 -<span id="L30953" class="LineNr">30953 </span> 0/imm32/no-xm32 -<span id="L30954" class="LineNr">30954 </span> 0/imm32/no-x32 -<span id="L30955" class="LineNr">30955 </span> 0x11/imm32/alloc-id:fake -<span id="L30956" class="LineNr">30956 </span> <a href='mu.subx.html#L30958'>_Primitive-and-with-eax</a>/imm32/next -<span id="L30957" class="LineNr">30957 </span><span class="subxH1Comment"># - and</span> -<span id="L30958" class="LineNr">30958 </span><span class="subxMinorFunction">_Primitive-and-with-eax</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30959" class="LineNr">30959 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30960" class="LineNr">30960 </span> <span class="subxComment"># var/eax <- and lit => 25/and-with-eax lit/imm32</span> -<span id="L30961" class="LineNr">30961 </span> 0x11/imm32/alloc-id:fake -<span id="L30962" class="LineNr">30962 </span> <a href='mu.subx.html#L33761'>_string-and</a>/imm32/name -<span id="L30963" class="LineNr">30963 </span> 0x11/imm32/alloc-id:fake -<span id="L30964" class="LineNr">30964 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L30965" class="LineNr">30965 </span> 0x11/imm32/alloc-id:fake -<span id="L30966" class="LineNr">30966 </span> <span class="SpecialChar"><a href='mu.subx.html#L34743'>Single-int-var-in-eax</a></span>/imm32/outputs -<span id="L30967" class="LineNr">30967 </span> 0x11/imm32/alloc-id:fake -<span id="L30968" class="LineNr">30968 </span> <a href='mu.subx.html#L34328'>_string_25_and_with_eax</a>/imm32/subx-name -<span id="L30969" class="LineNr">30969 </span> 0/imm32/no-rm32 -<span id="L30970" class="LineNr">30970 </span> 0/imm32/no-r32 -<span id="L30971" class="LineNr">30971 </span> 1/imm32/imm32-is-first-inout -<span id="L30972" class="LineNr">30972 </span> 0/imm32/no-imm8 -<span id="L30973" class="LineNr">30973 </span> 0/imm32/no-disp32 -<span id="L30974" class="LineNr">30974 </span> 0/imm32/no-xm32 -<span id="L30975" class="LineNr">30975 </span> 0/imm32/no-x32 +<span id="L30943" class="LineNr">30943 </span> <a href='mu.subx.html#L34657'>_string_29_subtract_from</a>/imm32/subx-name +<span id="L30944" class="LineNr">30944 </span> 1/imm32/rm32-is-first-inout +<span id="L30945" class="LineNr">30945 </span> 2/imm32/r32-is-second-inout +<span id="L30946" class="LineNr">30946 </span> 0/imm32/no-imm32 +<span id="L30947" class="LineNr">30947 </span> 0/imm32/no-imm8 +<span id="L30948" class="LineNr">30948 </span> 0/imm32/no-disp32 +<span id="L30949" class="LineNr">30949 </span> 0/imm32/no-xm32 +<span id="L30950" class="LineNr">30950 </span> 0/imm32/no-x32 +<span id="L30951" class="LineNr">30951 </span> 0x11/imm32/alloc-id:fake +<span id="L30952" class="LineNr">30952 </span> <a href='mu.subx.html#L30953'>_Primitive-subtract-mem-from-reg</a>/imm32/next +<span id="L30953" class="LineNr">30953 </span><span class="subxMinorFunction">_Primitive-subtract-mem-from-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30954" class="LineNr">30954 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30955" class="LineNr">30955 </span> <span class="subxComment"># var1/reg <- subtract var2 => 2b/subtract var2/rm32 var1/r32</span> +<span id="L30956" class="LineNr">30956 </span> 0x11/imm32/alloc-id:fake +<span id="L30957" class="LineNr">30957 </span> <a href='mu.subx.html#L34315'>_string-subtract</a>/imm32/name +<span id="L30958" class="LineNr">30958 </span> 0x11/imm32/alloc-id:fake +<span id="L30959" class="LineNr">30959 </span> <span class="SpecialChar"><a href='mu.subx.html#L34903'>Single-int-var-in-mem</a></span>/imm32/inouts +<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#L35012'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L30962" class="LineNr">30962 </span> 0x11/imm32/alloc-id:fake +<span id="L30963" class="LineNr">30963 </span> <a href='mu.subx.html#L34662'>_string_2b_subtract</a>/imm32/subx-name +<span id="L30964" class="LineNr">30964 </span> 1/imm32/rm32-is-first-inout +<span id="L30965" class="LineNr">30965 </span> 3/imm32/r32-is-first-output +<span id="L30966" class="LineNr">30966 </span> 0/imm32/no-imm32 +<span id="L30967" class="LineNr">30967 </span> 0/imm32/no-imm8 +<span id="L30968" class="LineNr">30968 </span> 0/imm32/no-disp32 +<span id="L30969" class="LineNr">30969 </span> 0/imm32/no-xm32 +<span id="L30970" class="LineNr">30970 </span> 0/imm32/no-x32 +<span id="L30971" class="LineNr">30971 </span> 0x11/imm32/alloc-id:fake +<span id="L30972" class="LineNr">30972 </span> <a href='mu.subx.html#L30973'>_Primitive-subtract-lit-from-reg</a>/imm32/next +<span id="L30973" class="LineNr">30973 </span><span class="subxMinorFunction">_Primitive-subtract-lit-from-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30974" class="LineNr">30974 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30975" class="LineNr">30975 </span> <span class="subxComment"># var1/reg <- subtract lit => 81 5/subop/subtract var1/rm32 lit/imm32</span> <span id="L30976" class="LineNr">30976 </span> 0x11/imm32/alloc-id:fake -<span id="L30977" class="LineNr">30977 </span> <a href='mu.subx.html#L30978'>_Primitive-and-reg-with-reg</a>/imm32/next -<span id="L30978" class="LineNr">30978 </span><span class="subxMinorFunction">_Primitive-and-reg-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30979" class="LineNr">30979 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30980" class="LineNr">30980 </span> <span class="subxComment"># var1/reg <- and var2/reg => 21/and-with var1/rm32 var2/r32</span> -<span id="L30981" class="LineNr">30981 </span> 0x11/imm32/alloc-id:fake -<span id="L30982" class="LineNr">30982 </span> <a href='mu.subx.html#L33761'>_string-and</a>/imm32/name -<span id="L30983" class="LineNr">30983 </span> 0x11/imm32/alloc-id:fake -<span id="L30984" class="LineNr">30984 </span> <span class="SpecialChar"><a href='mu.subx.html#L34683'>Single-int-var-in-some-register</a></span>/imm32/inouts -<span id="L30985" class="LineNr">30985 </span> 0x11/imm32/alloc-id:fake -<span id="L30986" class="LineNr">30986 </span> <span class="SpecialChar"><a href='mu.subx.html#L34683'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L30987" class="LineNr">30987 </span> 0x11/imm32/alloc-id:fake -<span id="L30988" class="LineNr">30988 </span> <a href='mu.subx.html#L34318'>_string_21_and_with</a>/imm32/subx-name -<span id="L30989" class="LineNr">30989 </span> 3/imm32/rm32-is-first-output -<span id="L30990" class="LineNr">30990 </span> 1/imm32/r32-is-first-inout -<span id="L30991" class="LineNr">30991 </span> 0/imm32/no-imm32 -<span id="L30992" class="LineNr">30992 </span> 0/imm32/no-imm8 -<span id="L30993" class="LineNr">30993 </span> 0/imm32/no-disp32 -<span id="L30994" class="LineNr">30994 </span> 0/imm32/no-xm32 -<span id="L30995" class="LineNr">30995 </span> 0/imm32/no-x32 +<span id="L30977" class="LineNr">30977 </span> <a href='mu.subx.html#L34315'>_string-subtract</a>/imm32/name +<span id="L30978" class="LineNr">30978 </span> 0x11/imm32/alloc-id:fake +<span id="L30979" class="LineNr">30979 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts +<span id="L30980" class="LineNr">30980 </span> 0x11/imm32/alloc-id:fake +<span id="L30981" class="LineNr">30981 </span> <span class="SpecialChar"><a href='mu.subx.html#L35012'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L30982" class="LineNr">30982 </span> 0x11/imm32/alloc-id:fake +<span id="L30983" class="LineNr">30983 </span> <a href='mu.subx.html#L34777'>_string_81_subop_subtract</a>/imm32/subx-name +<span id="L30984" class="LineNr">30984 </span> 3/imm32/rm32-is-first-output +<span id="L30985" class="LineNr">30985 </span> 0/imm32/no-r32 +<span id="L30986" class="LineNr">30986 </span> 1/imm32/imm32-is-first-inout +<span id="L30987" class="LineNr">30987 </span> 0/imm32/no-imm8 +<span id="L30988" class="LineNr">30988 </span> 0/imm32/no-disp32 +<span id="L30989" class="LineNr">30989 </span> 0/imm32/no-xm32 +<span id="L30990" class="LineNr">30990 </span> 0/imm32/no-x32 +<span id="L30991" class="LineNr">30991 </span> 0x11/imm32/alloc-id:fake +<span id="L30992" class="LineNr">30992 </span> <a href='mu.subx.html#L30993'>_Primitive-subtract-lit-from-mem</a>/imm32/next +<span id="L30993" class="LineNr">30993 </span><span class="subxMinorFunction">_Primitive-subtract-lit-from-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30994" class="LineNr">30994 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30995" class="LineNr">30995 </span> <span class="subxComment"># subtract-from var1, lit => 81 5/subop/subtract var1/rm32 lit/imm32</span> <span id="L30996" class="LineNr">30996 </span> 0x11/imm32/alloc-id:fake -<span id="L30997" class="LineNr">30997 </span> <a href='mu.subx.html#L30998'>_Primitive-and-reg-with-mem</a>/imm32/next -<span id="L30998" class="LineNr">30998 </span><span class="subxMinorFunction">_Primitive-and-reg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30999" class="LineNr">30999 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31000" class="LineNr">31000 </span> <span class="subxComment"># and-with var1 var2/reg => 21/and-with var1 var2/r32</span> -<span id="L31001" class="LineNr">31001 </span> 0x11/imm32/alloc-id:fake -<span id="L31002" class="LineNr">31002 </span> <a href='mu.subx.html#L33766'>_string-and-with</a>/imm32/name -<span id="L31003" class="LineNr">31003 </span> 0x11/imm32/alloc-id:fake -<span id="L31004" class="LineNr">31004 </span> <span class="SpecialChar"><a href='mu.subx.html#L34612'>Two-args-int-stack-int-reg</a></span>/imm32/inouts -<span id="L31005" class="LineNr">31005 </span> 0/imm32/no-outputs -<span id="L31006" class="LineNr">31006 </span> 0/imm32/no-outputs -<span id="L31007" class="LineNr">31007 </span> 0x11/imm32/alloc-id:fake -<span id="L31008" class="LineNr">31008 </span> <a href='mu.subx.html#L34318'>_string_21_and_with</a>/imm32/subx-name -<span id="L31009" class="LineNr">31009 </span> 1/imm32/rm32-is-first-inout -<span id="L31010" class="LineNr">31010 </span> 2/imm32/r32-is-second-inout -<span id="L31011" class="LineNr">31011 </span> 0/imm32/no-imm32 -<span id="L31012" class="LineNr">31012 </span> 0/imm32/no-imm8 -<span id="L31013" class="LineNr">31013 </span> 0/imm32/no-disp32 -<span id="L31014" class="LineNr">31014 </span> 0/imm32/no-xm32 -<span id="L31015" class="LineNr">31015 </span> 0/imm32/no-x32 -<span id="L31016" class="LineNr">31016 </span> 0x11/imm32/alloc-id:fake -<span id="L31017" class="LineNr">31017 </span> <a href='mu.subx.html#L31018'>_Primitive-and-mem-with-reg</a>/imm32/next -<span id="L31018" class="LineNr">31018 </span><span class="subxMinorFunction">_Primitive-and-mem-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31019" class="LineNr">31019 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31020" class="LineNr">31020 </span> <span class="subxComment"># var1/reg <- and var2 => 23/and var2/rm32 var1/r32</span> +<span id="L30997" class="LineNr">30997 </span> <a href='mu.subx.html#L34320'>_string-subtract-from</a>/imm32/name +<span id="L30998" class="LineNr">30998 </span> 0x11/imm32/alloc-id:fake +<span id="L30999" class="LineNr">30999 </span> <span class="SpecialChar"><a href='mu.subx.html#L34977'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L31000" class="LineNr">31000 </span> 0/imm32/no-outputs +<span id="L31001" class="LineNr">31001 </span> 0/imm32/no-outputs +<span id="L31002" class="LineNr">31002 </span> 0x11/imm32/alloc-id:fake +<span id="L31003" class="LineNr">31003 </span> <a href='mu.subx.html#L34777'>_string_81_subop_subtract</a>/imm32/subx-name +<span id="L31004" class="LineNr">31004 </span> 1/imm32/rm32-is-first-inout +<span id="L31005" class="LineNr">31005 </span> 0/imm32/no-r32 +<span id="L31006" class="LineNr">31006 </span> 2/imm32/imm32-is-second-inout +<span id="L31007" class="LineNr">31007 </span> 0/imm32/no-imm8 +<span id="L31008" class="LineNr">31008 </span> 0/imm32/no-disp32 +<span id="L31009" class="LineNr">31009 </span> 0/imm32/no-xm32 +<span id="L31010" class="LineNr">31010 </span> 0/imm32/no-x32 +<span id="L31011" class="LineNr">31011 </span> 0x11/imm32/alloc-id:fake +<span id="L31012" class="LineNr">31012 </span> <a href='mu.subx.html#L31014'>_Primitive-and-with-eax</a>/imm32/next +<span id="L31013" class="LineNr">31013 </span><span class="subxH1Comment"># - and</span> +<span id="L31014" class="LineNr">31014 </span><span class="subxMinorFunction">_Primitive-and-with-eax</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> <span class="subxComment"># var/eax <- and lit => 25/and-with-eax lit/imm32</span> +<span id="L31017" class="LineNr">31017 </span> 0x11/imm32/alloc-id:fake +<span id="L31018" class="LineNr">31018 </span> <a href='mu.subx.html#L34010'>_string-and</a>/imm32/name +<span id="L31019" class="LineNr">31019 </span> 0x11/imm32/alloc-id:fake +<span id="L31020" class="LineNr">31020 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts <span id="L31021" class="LineNr">31021 </span> 0x11/imm32/alloc-id:fake -<span id="L31022" class="LineNr">31022 </span> <a href='mu.subx.html#L33761'>_string-and</a>/imm32/name +<span id="L31022" class="LineNr">31022 </span> <span class="SpecialChar"><a href='mu.subx.html#L35072'>Single-int-var-in-eax</a></span>/imm32/outputs <span id="L31023" class="LineNr">31023 </span> 0x11/imm32/alloc-id:fake -<span id="L31024" class="LineNr">31024 </span> <span class="SpecialChar"><a href='mu.subx.html#L34574'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L31025" class="LineNr">31025 </span> 0x11/imm32/alloc-id:fake -<span id="L31026" class="LineNr">31026 </span> <span class="SpecialChar"><a href='mu.subx.html#L34683'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L31027" class="LineNr">31027 </span> 0x11/imm32/alloc-id:fake -<span id="L31028" class="LineNr">31028 </span> <a href='mu.subx.html#L34323'>_string_23_and</a>/imm32/subx-name -<span id="L31029" class="LineNr">31029 </span> 1/imm32/rm32-is-first-inout -<span id="L31030" class="LineNr">31030 </span> 3/imm32/r32-is-first-output -<span id="L31031" class="LineNr">31031 </span> 0/imm32/no-imm32 -<span id="L31032" class="LineNr">31032 </span> 0/imm32/no-imm8 -<span id="L31033" class="LineNr">31033 </span> 0/imm32/no-disp32 -<span id="L31034" class="LineNr">31034 </span> 0/imm32/no-xm32 -<span id="L31035" class="LineNr">31035 </span> 0/imm32/no-x32 -<span id="L31036" class="LineNr">31036 </span> 0x11/imm32/alloc-id:fake -<span id="L31037" class="LineNr">31037 </span> <a href='mu.subx.html#L31038'>_Primitive-and-lit-with-reg</a>/imm32/next -<span id="L31038" class="LineNr">31038 </span><span class="subxMinorFunction">_Primitive-and-lit-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31039" class="LineNr">31039 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31040" class="LineNr">31040 </span> <span class="subxComment"># var1/reg <- and lit => 81 4/subop/and var1/rm32 lit/imm32</span> +<span id="L31024" class="LineNr">31024 </span> <a href='mu.subx.html#L34652'>_string_25_and_with_eax</a>/imm32/subx-name +<span id="L31025" class="LineNr">31025 </span> 0/imm32/no-rm32 +<span id="L31026" class="LineNr">31026 </span> 0/imm32/no-r32 +<span id="L31027" class="LineNr">31027 </span> 1/imm32/imm32-is-first-inout +<span id="L31028" class="LineNr">31028 </span> 0/imm32/no-imm8 +<span id="L31029" class="LineNr">31029 </span> 0/imm32/no-disp32 +<span id="L31030" class="LineNr">31030 </span> 0/imm32/no-xm32 +<span id="L31031" class="LineNr">31031 </span> 0/imm32/no-x32 +<span id="L31032" class="LineNr">31032 </span> 0x11/imm32/alloc-id:fake +<span id="L31033" class="LineNr">31033 </span> <a href='mu.subx.html#L31034'>_Primitive-and-reg-with-reg</a>/imm32/next +<span id="L31034" class="LineNr">31034 </span><span class="subxMinorFunction">_Primitive-and-reg-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31035" class="LineNr">31035 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31036" class="LineNr">31036 </span> <span class="subxComment"># var1/reg <- and var2/reg => 21/and-with var1/rm32 var2/r32</span> +<span id="L31037" class="LineNr">31037 </span> 0x11/imm32/alloc-id:fake +<span id="L31038" class="LineNr">31038 </span> <a href='mu.subx.html#L34010'>_string-and</a>/imm32/name +<span id="L31039" class="LineNr">31039 </span> 0x11/imm32/alloc-id:fake +<span id="L31040" class="LineNr">31040 </span> <span class="SpecialChar"><a href='mu.subx.html#L35012'>Single-int-var-in-some-register</a></span>/imm32/inouts <span id="L31041" class="LineNr">31041 </span> 0x11/imm32/alloc-id:fake -<span id="L31042" class="LineNr">31042 </span> <a href='mu.subx.html#L33761'>_string-and</a>/imm32/name +<span id="L31042" class="LineNr">31042 </span> <span class="SpecialChar"><a href='mu.subx.html#L35012'>Single-int-var-in-some-register</a></span>/imm32/outputs <span id="L31043" class="LineNr">31043 </span> 0x11/imm32/alloc-id:fake -<span id="L31044" class="LineNr">31044 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L31045" class="LineNr">31045 </span> 0x11/imm32/alloc-id:fake -<span id="L31046" class="LineNr">31046 </span> <span class="SpecialChar"><a href='mu.subx.html#L34683'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L31047" class="LineNr">31047 </span> 0x11/imm32/alloc-id:fake -<span id="L31048" class="LineNr">31048 </span> <a href='mu.subx.html#L34448'>_string_81_subop_and</a>/imm32/subx-name -<span id="L31049" class="LineNr">31049 </span> 3/imm32/rm32-is-first-output -<span id="L31050" class="LineNr">31050 </span> 0/imm32/no-r32 -<span id="L31051" class="LineNr">31051 </span> 1/imm32/imm32-is-first-inout -<span id="L31052" class="LineNr">31052 </span> 0/imm32/no-imm8 -<span id="L31053" class="LineNr">31053 </span> 0/imm32/no-disp32 -<span id="L31054" class="LineNr">31054 </span> 0/imm32/no-xm32 -<span id="L31055" class="LineNr">31055 </span> 0/imm32/no-x32 -<span id="L31056" class="LineNr">31056 </span> 0x11/imm32/alloc-id:fake -<span id="L31057" class="LineNr">31057 </span> <a href='mu.subx.html#L31058'>_Primitive-and-lit-with-mem</a>/imm32/next -<span id="L31058" class="LineNr">31058 </span><span class="subxMinorFunction">_Primitive-and-lit-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31059" class="LineNr">31059 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31060" class="LineNr">31060 </span> <span class="subxComment"># and-with var1, lit => 81 4/subop/and var1/rm32 lit/imm32</span> -<span id="L31061" class="LineNr">31061 </span> 0x11/imm32/alloc-id:fake -<span id="L31062" class="LineNr">31062 </span> <a href='mu.subx.html#L33766'>_string-and-with</a>/imm32/name +<span id="L31044" class="LineNr">31044 </span> <a href='mu.subx.html#L34642'>_string_21_and_with</a>/imm32/subx-name +<span id="L31045" class="LineNr">31045 </span> 3/imm32/rm32-is-first-output +<span id="L31046" class="LineNr">31046 </span> 1/imm32/r32-is-first-inout +<span id="L31047" class="LineNr">31047 </span> 0/imm32/no-imm32 +<span id="L31048" class="LineNr">31048 </span> 0/imm32/no-imm8 +<span id="L31049" class="LineNr">31049 </span> 0/imm32/no-disp32 +<span id="L31050" class="LineNr">31050 </span> 0/imm32/no-xm32 +<span id="L31051" class="LineNr">31051 </span> 0/imm32/no-x32 +<span id="L31052" class="LineNr">31052 </span> 0x11/imm32/alloc-id:fake +<span id="L31053" class="LineNr">31053 </span> <a href='mu.subx.html#L31054'>_Primitive-and-reg-with-mem</a>/imm32/next +<span id="L31054" class="LineNr">31054 </span><span class="subxMinorFunction">_Primitive-and-reg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31055" class="LineNr">31055 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31056" class="LineNr">31056 </span> <span class="subxComment"># and-with var1 var2/reg => 21/and-with var1 var2/r32</span> +<span id="L31057" class="LineNr">31057 </span> 0x11/imm32/alloc-id:fake +<span id="L31058" class="LineNr">31058 </span> <a href='mu.subx.html#L34015'>_string-and-with</a>/imm32/name +<span id="L31059" class="LineNr">31059 </span> 0x11/imm32/alloc-id:fake +<span id="L31060" class="LineNr">31060 </span> <span class="SpecialChar"><a href='mu.subx.html#L34941'>Two-args-int-stack-int-reg</a></span>/imm32/inouts +<span id="L31061" class="LineNr">31061 </span> 0/imm32/no-outputs +<span id="L31062" class="LineNr">31062 </span> 0/imm32/no-outputs <span id="L31063" class="LineNr">31063 </span> 0x11/imm32/alloc-id:fake -<span id="L31064" class="LineNr">31064 </span> <span class="SpecialChar"><a href='mu.subx.html#L34648'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L31065" class="LineNr">31065 </span> 0/imm32/no-outputs -<span id="L31066" class="LineNr">31066 </span> 0/imm32/no-outputs -<span id="L31067" class="LineNr">31067 </span> 0x11/imm32/alloc-id:fake -<span id="L31068" class="LineNr">31068 </span> <a href='mu.subx.html#L34448'>_string_81_subop_and</a>/imm32/subx-name -<span id="L31069" class="LineNr">31069 </span> 1/imm32/rm32-is-first-inout -<span id="L31070" class="LineNr">31070 </span> 0/imm32/no-r32 -<span id="L31071" class="LineNr">31071 </span> 2/imm32/imm32-is-second-inout -<span id="L31072" class="LineNr">31072 </span> 0/imm32/no-imm8 -<span id="L31073" class="LineNr">31073 </span> 0/imm32/no-disp32 -<span id="L31074" class="LineNr">31074 </span> 0/imm32/no-xm32 -<span id="L31075" class="LineNr">31075 </span> 0/imm32/no-x32 -<span id="L31076" class="LineNr">31076 </span> 0x11/imm32/alloc-id:fake -<span id="L31077" class="LineNr">31077 </span> <a href='mu.subx.html#L31079'>_Primitive-or-with-eax</a>/imm32/next -<span id="L31078" class="LineNr">31078 </span><span class="subxH1Comment"># - or</span> -<span id="L31079" class="LineNr">31079 </span><span class="subxMinorFunction">_Primitive-or-with-eax</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> <span class="subxComment"># var/eax <- or lit => 0d/or-with-eax lit/imm32</span> -<span id="L31082" class="LineNr">31082 </span> 0x11/imm32/alloc-id:fake -<span id="L31083" class="LineNr">31083 </span> <a href='mu.subx.html#L34011'>_string-or</a>/imm32/name -<span id="L31084" class="LineNr">31084 </span> 0x11/imm32/alloc-id:fake -<span id="L31085" class="LineNr">31085 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L31086" class="LineNr">31086 </span> 0x11/imm32/alloc-id:fake -<span id="L31087" class="LineNr">31087 </span> <span class="SpecialChar"><a href='mu.subx.html#L34743'>Single-int-var-in-eax</a></span>/imm32/outputs -<span id="L31088" class="LineNr">31088 </span> 0x11/imm32/alloc-id:fake -<span id="L31089" class="LineNr">31089 </span> <a href='mu.subx.html#L34083'>_string_0d_or_with_eax</a>/imm32/subx-name -<span id="L31090" class="LineNr">31090 </span> 0/imm32/no-rm32 -<span id="L31091" class="LineNr">31091 </span> 0/imm32/no-r32 -<span id="L31092" class="LineNr">31092 </span> 1/imm32/imm32-is-first-inout -<span id="L31093" class="LineNr">31093 </span> 0/imm32/no-imm8 -<span id="L31094" class="LineNr">31094 </span> 0/imm32/no-disp32 -<span id="L31095" class="LineNr">31095 </span> 0/imm32/no-xm32 -<span id="L31096" class="LineNr">31096 </span> 0/imm32/no-x32 +<span id="L31064" class="LineNr">31064 </span> <a href='mu.subx.html#L34642'>_string_21_and_with</a>/imm32/subx-name +<span id="L31065" class="LineNr">31065 </span> 1/imm32/rm32-is-first-inout +<span id="L31066" class="LineNr">31066 </span> 2/imm32/r32-is-second-inout +<span id="L31067" class="LineNr">31067 </span> 0/imm32/no-imm32 +<span id="L31068" class="LineNr">31068 </span> 0/imm32/no-imm8 +<span id="L31069" class="LineNr">31069 </span> 0/imm32/no-disp32 +<span id="L31070" class="LineNr">31070 </span> 0/imm32/no-xm32 +<span id="L31071" class="LineNr">31071 </span> 0/imm32/no-x32 +<span id="L31072" class="LineNr">31072 </span> 0x11/imm32/alloc-id:fake +<span id="L31073" class="LineNr">31073 </span> <a href='mu.subx.html#L31074'>_Primitive-and-mem-with-reg</a>/imm32/next +<span id="L31074" class="LineNr">31074 </span><span class="subxMinorFunction">_Primitive-and-mem-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31075" class="LineNr">31075 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31076" class="LineNr">31076 </span> <span class="subxComment"># var1/reg <- and var2 => 23/and var2/rm32 var1/r32</span> +<span id="L31077" class="LineNr">31077 </span> 0x11/imm32/alloc-id:fake +<span id="L31078" class="LineNr">31078 </span> <a href='mu.subx.html#L34010'>_string-and</a>/imm32/name +<span id="L31079" class="LineNr">31079 </span> 0x11/imm32/alloc-id:fake +<span id="L31080" class="LineNr">31080 </span> <span class="SpecialChar"><a href='mu.subx.html#L34903'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L31081" class="LineNr">31081 </span> 0x11/imm32/alloc-id:fake +<span id="L31082" class="LineNr">31082 </span> <span class="SpecialChar"><a href='mu.subx.html#L35012'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31083" class="LineNr">31083 </span> 0x11/imm32/alloc-id:fake +<span id="L31084" class="LineNr">31084 </span> <a href='mu.subx.html#L34647'>_string_23_and</a>/imm32/subx-name +<span id="L31085" class="LineNr">31085 </span> 1/imm32/rm32-is-first-inout +<span id="L31086" class="LineNr">31086 </span> 3/imm32/r32-is-first-output +<span id="L31087" class="LineNr">31087 </span> 0/imm32/no-imm32 +<span id="L31088" class="LineNr">31088 </span> 0/imm32/no-imm8 +<span id="L31089" class="LineNr">31089 </span> 0/imm32/no-disp32 +<span id="L31090" class="LineNr">31090 </span> 0/imm32/no-xm32 +<span id="L31091" class="LineNr">31091 </span> 0/imm32/no-x32 +<span id="L31092" class="LineNr">31092 </span> 0x11/imm32/alloc-id:fake +<span id="L31093" class="LineNr">31093 </span> <a href='mu.subx.html#L31094'>_Primitive-and-lit-with-reg</a>/imm32/next +<span id="L31094" class="LineNr">31094 </span><span class="subxMinorFunction">_Primitive-and-lit-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31095" class="LineNr">31095 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31096" class="LineNr">31096 </span> <span class="subxComment"># var1/reg <- and lit => 81 4/subop/and var1/rm32 lit/imm32</span> <span id="L31097" class="LineNr">31097 </span> 0x11/imm32/alloc-id:fake -<span id="L31098" class="LineNr">31098 </span> <a href='mu.subx.html#L31099'>_Primitive-or-reg-with-reg</a>/imm32/next -<span id="L31099" class="LineNr">31099 </span><span class="subxMinorFunction">_Primitive-or-reg-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31100" class="LineNr">31100 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31101" class="LineNr">31101 </span> <span class="subxComment"># var1/reg <- or var2/reg => 09/or-with var1/rm32 var2/r32</span> -<span id="L31102" class="LineNr">31102 </span> 0x11/imm32/alloc-id:fake -<span id="L31103" class="LineNr">31103 </span> <a href='mu.subx.html#L34011'>_string-or</a>/imm32/name -<span id="L31104" class="LineNr">31104 </span> 0x11/imm32/alloc-id:fake -<span id="L31105" class="LineNr">31105 </span> <span class="SpecialChar"><a href='mu.subx.html#L34683'>Single-int-var-in-some-register</a></span>/imm32/inouts -<span id="L31106" class="LineNr">31106 </span> 0x11/imm32/alloc-id:fake -<span id="L31107" class="LineNr">31107 </span> <span class="SpecialChar"><a href='mu.subx.html#L34683'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L31108" class="LineNr">31108 </span> 0x11/imm32/alloc-id:fake -<span id="L31109" class="LineNr">31109 </span> <a href='mu.subx.html#L34073'>_string_09_or_with</a>/imm32/subx-name -<span id="L31110" class="LineNr">31110 </span> 3/imm32/rm32-is-first-output -<span id="L31111" class="LineNr">31111 </span> 1/imm32/r32-is-first-inout -<span id="L31112" class="LineNr">31112 </span> 0/imm32/no-imm32 -<span id="L31113" class="LineNr">31113 </span> 0/imm32/no-imm8 -<span id="L31114" class="LineNr">31114 </span> 0/imm32/no-disp32 -<span id="L31115" class="LineNr">31115 </span> 0/imm32/no-xm32 -<span id="L31116" class="LineNr">31116 </span> 0/imm32/no-x32 +<span id="L31098" class="LineNr">31098 </span> <a href='mu.subx.html#L34010'>_string-and</a>/imm32/name +<span id="L31099" class="LineNr">31099 </span> 0x11/imm32/alloc-id:fake +<span id="L31100" class="LineNr">31100 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts +<span id="L31101" class="LineNr">31101 </span> 0x11/imm32/alloc-id:fake +<span id="L31102" class="LineNr">31102 </span> <span class="SpecialChar"><a href='mu.subx.html#L35012'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31103" class="LineNr">31103 </span> 0x11/imm32/alloc-id:fake +<span id="L31104" class="LineNr">31104 </span> <a href='mu.subx.html#L34772'>_string_81_subop_and</a>/imm32/subx-name +<span id="L31105" class="LineNr">31105 </span> 3/imm32/rm32-is-first-output +<span id="L31106" class="LineNr">31106 </span> 0/imm32/no-r32 +<span id="L31107" class="LineNr">31107 </span> 1/imm32/imm32-is-first-inout +<span id="L31108" class="LineNr">31108 </span> 0/imm32/no-imm8 +<span id="L31109" class="LineNr">31109 </span> 0/imm32/no-disp32 +<span id="L31110" class="LineNr">31110 </span> 0/imm32/no-xm32 +<span id="L31111" class="LineNr">31111 </span> 0/imm32/no-x32 +<span id="L31112" class="LineNr">31112 </span> 0x11/imm32/alloc-id:fake +<span id="L31113" class="LineNr">31113 </span> <a href='mu.subx.html#L31114'>_Primitive-and-lit-with-mem</a>/imm32/next +<span id="L31114" class="LineNr">31114 </span><span class="subxMinorFunction">_Primitive-and-lit-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31115" class="LineNr">31115 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31116" class="LineNr">31116 </span> <span class="subxComment"># and-with var1, lit => 81 4/subop/and var1/rm32 lit/imm32</span> <span id="L31117" class="LineNr">31117 </span> 0x11/imm32/alloc-id:fake -<span id="L31118" class="LineNr">31118 </span> <a href='mu.subx.html#L31119'>_Primitive-or-reg-with-mem</a>/imm32/next -<span id="L31119" class="LineNr">31119 </span><span class="subxMinorFunction">_Primitive-or-reg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31120" class="LineNr">31120 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31121" class="LineNr">31121 </span> <span class="subxComment"># or-with var1 var2/reg => 09/or-with var1 var2/r32</span> -<span id="L31122" class="LineNr">31122 </span> 0x11/imm32/alloc-id:fake -<span id="L31123" class="LineNr">31123 </span> <a href='mu.subx.html#L34016'>_string-or-with</a>/imm32/name -<span id="L31124" class="LineNr">31124 </span> 0x11/imm32/alloc-id:fake -<span id="L31125" class="LineNr">31125 </span> <span class="SpecialChar"><a href='mu.subx.html#L34612'>Two-args-int-stack-int-reg</a></span>/imm32/inouts -<span id="L31126" class="LineNr">31126 </span> 0/imm32/no-outputs -<span id="L31127" class="LineNr">31127 </span> 0/imm32/no-outputs -<span id="L31128" class="LineNr">31128 </span> 0x11/imm32/alloc-id:fake -<span id="L31129" class="LineNr">31129 </span> <a href='mu.subx.html#L34073'>_string_09_or_with</a>/imm32/subx-name -<span id="L31130" class="LineNr">31130 </span> 1/imm32/rm32-is-first-inout -<span id="L31131" class="LineNr">31131 </span> 2/imm32/r32-is-second-inout -<span id="L31132" class="LineNr">31132 </span> 0/imm32/no-imm32 -<span id="L31133" class="LineNr">31133 </span> 0/imm32/no-imm8 -<span id="L31134" class="LineNr">31134 </span> 0/imm32/no-disp32 -<span id="L31135" class="LineNr">31135 </span> 0/imm32/no-xm32 -<span id="L31136" class="LineNr">31136 </span> 0/imm32/no-x32 -<span id="L31137" class="LineNr">31137 </span> 0x11/imm32/alloc-id:fake -<span id="L31138" class="LineNr">31138 </span> <a href='mu.subx.html#L31139'>_Primitive-or-mem-with-reg</a>/imm32/next -<span id="L31139" class="LineNr">31139 </span><span class="subxMinorFunction">_Primitive-or-mem-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31140" class="LineNr">31140 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31141" class="LineNr">31141 </span> <span class="subxComment"># var1/reg <- or var2 => 0b/or var2/rm32 var1/r32</span> +<span id="L31118" class="LineNr">31118 </span> <a href='mu.subx.html#L34015'>_string-and-with</a>/imm32/name +<span id="L31119" class="LineNr">31119 </span> 0x11/imm32/alloc-id:fake +<span id="L31120" class="LineNr">31120 </span> <span class="SpecialChar"><a href='mu.subx.html#L34977'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L31121" class="LineNr">31121 </span> 0/imm32/no-outputs +<span id="L31122" class="LineNr">31122 </span> 0/imm32/no-outputs +<span id="L31123" class="LineNr">31123 </span> 0x11/imm32/alloc-id:fake +<span id="L31124" class="LineNr">31124 </span> <a href='mu.subx.html#L34772'>_string_81_subop_and</a>/imm32/subx-name +<span id="L31125" class="LineNr">31125 </span> 1/imm32/rm32-is-first-inout +<span id="L31126" class="LineNr">31126 </span> 0/imm32/no-r32 +<span id="L31127" class="LineNr">31127 </span> 2/imm32/imm32-is-second-inout +<span id="L31128" class="LineNr">31128 </span> 0/imm32/no-imm8 +<span id="L31129" class="LineNr">31129 </span> 0/imm32/no-disp32 +<span id="L31130" class="LineNr">31130 </span> 0/imm32/no-xm32 +<span id="L31131" class="LineNr">31131 </span> 0/imm32/no-x32 +<span id="L31132" class="LineNr">31132 </span> 0x11/imm32/alloc-id:fake +<span id="L31133" class="LineNr">31133 </span> <a href='mu.subx.html#L31135'>_Primitive-or-with-eax</a>/imm32/next +<span id="L31134" class="LineNr">31134 </span><span class="subxH1Comment"># - or</span> +<span id="L31135" class="LineNr">31135 </span><span class="subxMinorFunction">_Primitive-or-with-eax</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31136" class="LineNr">31136 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31137" class="LineNr">31137 </span> <span class="subxComment"># var/eax <- or lit => 0d/or-with-eax lit/imm32</span> +<span id="L31138" class="LineNr">31138 </span> 0x11/imm32/alloc-id:fake +<span id="L31139" class="LineNr">31139 </span> <a href='mu.subx.html#L34305'>_string-or</a>/imm32/name +<span id="L31140" class="LineNr">31140 </span> 0x11/imm32/alloc-id:fake +<span id="L31141" class="LineNr">31141 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts <span id="L31142" class="LineNr">31142 </span> 0x11/imm32/alloc-id:fake -<span id="L31143" class="LineNr">31143 </span> <a href='mu.subx.html#L34011'>_string-or</a>/imm32/name +<span id="L31143" class="LineNr">31143 </span> <span class="SpecialChar"><a href='mu.subx.html#L35072'>Single-int-var-in-eax</a></span>/imm32/outputs <span id="L31144" class="LineNr">31144 </span> 0x11/imm32/alloc-id:fake -<span id="L31145" class="LineNr">31145 </span> <span class="SpecialChar"><a href='mu.subx.html#L34574'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L31146" class="LineNr">31146 </span> 0x11/imm32/alloc-id:fake -<span id="L31147" class="LineNr">31147 </span> <span class="SpecialChar"><a href='mu.subx.html#L34683'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L31148" class="LineNr">31148 </span> 0x11/imm32/alloc-id:fake -<span id="L31149" class="LineNr">31149 </span> <a href='mu.subx.html#L34078'>_string_0b_or</a>/imm32/subx-name -<span id="L31150" class="LineNr">31150 </span> 1/imm32/rm32-is-first-inout -<span id="L31151" class="LineNr">31151 </span> 3/imm32/r32-is-first-output -<span id="L31152" class="LineNr">31152 </span> 0/imm32/no-imm32 -<span id="L31153" class="LineNr">31153 </span> 0/imm32/no-imm8 -<span id="L31154" class="LineNr">31154 </span> 0/imm32/no-disp32 -<span id="L31155" class="LineNr">31155 </span> 0/imm32/no-xm32 -<span id="L31156" class="LineNr">31156 </span> 0/imm32/no-x32 -<span id="L31157" class="LineNr">31157 </span> 0x11/imm32/alloc-id:fake -<span id="L31158" class="LineNr">31158 </span> <a href='mu.subx.html#L31159'>_Primitive-or-lit-with-reg</a>/imm32/next -<span id="L31159" class="LineNr">31159 </span><span class="subxMinorFunction">_Primitive-or-lit-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31160" class="LineNr">31160 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31161" class="LineNr">31161 </span> <span class="subxComment"># var1/reg <- or lit => 81 1/subop/or var1/rm32 lit/imm32</span> +<span id="L31145" class="LineNr">31145 </span> <a href='mu.subx.html#L34377'>_string_0d_or_with_eax</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> 1/imm32/imm32-is-first-inout +<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-or-reg-with-reg</a>/imm32/next +<span id="L31155" class="LineNr">31155 </span><span class="subxMinorFunction">_Primitive-or-reg-with-reg</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> <span class="subxComment"># var1/reg <- or var2/reg => 09/or-with var1/rm32 var2/r32</span> +<span id="L31158" class="LineNr">31158 </span> 0x11/imm32/alloc-id:fake +<span id="L31159" class="LineNr">31159 </span> <a href='mu.subx.html#L34305'>_string-or</a>/imm32/name +<span id="L31160" class="LineNr">31160 </span> 0x11/imm32/alloc-id:fake +<span id="L31161" class="LineNr">31161 </span> <span class="SpecialChar"><a href='mu.subx.html#L35012'>Single-int-var-in-some-register</a></span>/imm32/inouts <span id="L31162" class="LineNr">31162 </span> 0x11/imm32/alloc-id:fake -<span id="L31163" class="LineNr">31163 </span> <a href='mu.subx.html#L34011'>_string-or</a>/imm32/name +<span id="L31163" class="LineNr">31163 </span> <span class="SpecialChar"><a href='mu.subx.html#L35012'>Single-int-var-in-some-register</a></span>/imm32/outputs <span id="L31164" class="LineNr">31164 </span> 0x11/imm32/alloc-id:fake -<span id="L31165" class="LineNr">31165 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L31166" class="LineNr">31166 </span> 0x11/imm32/alloc-id:fake -<span id="L31167" class="LineNr">31167 </span> <span class="SpecialChar"><a href='mu.subx.html#L34683'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L31168" class="LineNr">31168 </span> 0x11/imm32/alloc-id:fake -<span id="L31169" class="LineNr">31169 </span> <a href='mu.subx.html#L34443'>_string_81_subop_or</a>/imm32/subx-name -<span id="L31170" class="LineNr">31170 </span> 3/imm32/rm32-is-first-output -<span id="L31171" class="LineNr">31171 </span> 0/imm32/no-r32 -<span id="L31172" class="LineNr">31172 </span> 1/imm32/imm32-is-first-inout -<span id="L31173" class="LineNr">31173 </span> 0/imm32/no-imm8 -<span id="L31174" class="LineNr">31174 </span> 0/imm32/no-disp32 -<span id="L31175" class="LineNr">31175 </span> 0/imm32/no-xm32 -<span id="L31176" class="LineNr">31176 </span> 0/imm32/no-x32 -<span id="L31177" class="LineNr">31177 </span> 0x11/imm32/alloc-id:fake -<span id="L31178" class="LineNr">31178 </span> <a href='mu.subx.html#L31179'>_Primitive-or-lit-with-mem</a>/imm32/next -<span id="L31179" class="LineNr">31179 </span><span class="subxMinorFunction">_Primitive-or-lit-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31180" class="LineNr">31180 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31181" class="LineNr">31181 </span> <span class="subxComment"># or-with var1, lit => 81 1/subop/or var1/rm32 lit/imm32</span> -<span id="L31182" class="LineNr">31182 </span> 0x11/imm32/alloc-id:fake -<span id="L31183" class="LineNr">31183 </span> <a href='mu.subx.html#L34016'>_string-or-with</a>/imm32/name +<span id="L31165" class="LineNr">31165 </span> <a href='mu.subx.html#L34367'>_string_09_or_with</a>/imm32/subx-name +<span id="L31166" class="LineNr">31166 </span> 3/imm32/rm32-is-first-output +<span id="L31167" class="LineNr">31167 </span> 1/imm32/r32-is-first-inout +<span id="L31168" class="LineNr">31168 </span> 0/imm32/no-imm32 +<span id="L31169" class="LineNr">31169 </span> 0/imm32/no-imm8 +<span id="L31170" class="LineNr">31170 </span> 0/imm32/no-disp32 +<span id="L31171" class="LineNr">31171 </span> 0/imm32/no-xm32 +<span id="L31172" class="LineNr">31172 </span> 0/imm32/no-x32 +<span id="L31173" class="LineNr">31173 </span> 0x11/imm32/alloc-id:fake +<span id="L31174" class="LineNr">31174 </span> <a href='mu.subx.html#L31175'>_Primitive-or-reg-with-mem</a>/imm32/next +<span id="L31175" class="LineNr">31175 </span><span class="subxMinorFunction">_Primitive-or-reg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31176" class="LineNr">31176 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31177" class="LineNr">31177 </span> <span class="subxComment"># or-with var1 var2/reg => 09/or-with var1 var2/r32</span> +<span id="L31178" class="LineNr">31178 </span> 0x11/imm32/alloc-id:fake +<span id="L31179" class="LineNr">31179 </span> <a href='mu.subx.html#L34310'>_string-or-with</a>/imm32/name +<span id="L31180" class="LineNr">31180 </span> 0x11/imm32/alloc-id:fake +<span id="L31181" class="LineNr">31181 </span> <span class="SpecialChar"><a href='mu.subx.html#L34941'>Two-args-int-stack-int-reg</a></span>/imm32/inouts +<span id="L31182" class="LineNr">31182 </span> 0/imm32/no-outputs +<span id="L31183" class="LineNr">31183 </span> 0/imm32/no-outputs <span id="L31184" class="LineNr">31184 </span> 0x11/imm32/alloc-id:fake -<span id="L31185" class="LineNr">31185 </span> <span class="SpecialChar"><a href='mu.subx.html#L34648'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L31186" class="LineNr">31186 </span> 0/imm32/no-outputs -<span id="L31187" class="LineNr">31187 </span> 0/imm32/no-outputs -<span id="L31188" class="LineNr">31188 </span> 0x11/imm32/alloc-id:fake -<span id="L31189" class="LineNr">31189 </span> <a href='mu.subx.html#L34443'>_string_81_subop_or</a>/imm32/subx-name -<span id="L31190" class="LineNr">31190 </span> 1/imm32/rm32-is-first-inout -<span id="L31191" class="LineNr">31191 </span> 0/imm32/no-r32 -<span id="L31192" class="LineNr">31192 </span> 2/imm32/imm32-is-second-inout -<span id="L31193" class="LineNr">31193 </span> 0/imm32/no-imm8 -<span id="L31194" class="LineNr">31194 </span> 0/imm32/no-disp32 -<span id="L31195" class="LineNr">31195 </span> 0/imm32/no-xm32 -<span id="L31196" class="LineNr">31196 </span> 0/imm32/no-x32 -<span id="L31197" class="LineNr">31197 </span> 0x11/imm32/alloc-id:fake -<span id="L31198" class="LineNr">31198 </span> <a href='mu.subx.html#L31200'>_Primitive-xor-with-eax</a>/imm32/next -<span id="L31199" class="LineNr">31199 </span><span class="subxH1Comment"># - xor</span> -<span id="L31200" class="LineNr">31200 </span><span class="subxMinorFunction">_Primitive-xor-with-eax</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31201" class="LineNr">31201 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31202" class="LineNr">31202 </span> <span class="subxComment"># var/eax <- xor lit => 35/xor-with-eax lit/imm32</span> -<span id="L31203" class="LineNr">31203 </span> 0x11/imm32/alloc-id:fake -<span id="L31204" class="LineNr">31204 </span> <a href='mu.subx.html#L34031'>_string-xor</a>/imm32/name -<span id="L31205" class="LineNr">31205 </span> 0x11/imm32/alloc-id:fake -<span id="L31206" class="LineNr">31206 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L31207" class="LineNr">31207 </span> 0x11/imm32/alloc-id:fake -<span id="L31208" class="LineNr">31208 </span> <span class="SpecialChar"><a href='mu.subx.html#L34743'>Single-int-var-in-eax</a></span>/imm32/outputs -<span id="L31209" class="LineNr">31209 </span> 0x11/imm32/alloc-id:fake -<span id="L31210" class="LineNr">31210 </span> <a href='mu.subx.html#L34358'>_string_35_xor_with_eax</a>/imm32/subx-name -<span id="L31211" class="LineNr">31211 </span> 0/imm32/no-rm32 -<span id="L31212" class="LineNr">31212 </span> 0/imm32/no-r32 -<span id="L31213" class="LineNr">31213 </span> 1/imm32/imm32-is-first-inout -<span id="L31214" class="LineNr">31214 </span> 0/imm32/no-imm8 -<span id="L31215" class="LineNr">31215 </span> 0/imm32/no-disp32 -<span id="L31216" class="LineNr">31216 </span> 0/imm32/no-xm32 -<span id="L31217" class="LineNr">31217 </span> 0/imm32/no-x32 +<span id="L31185" class="LineNr">31185 </span> <a href='mu.subx.html#L34367'>_string_09_or_with</a>/imm32/subx-name +<span id="L31186" class="LineNr">31186 </span> 1/imm32/rm32-is-first-inout +<span id="L31187" class="LineNr">31187 </span> 2/imm32/r32-is-second-inout +<span id="L31188" class="LineNr">31188 </span> 0/imm32/no-imm32 +<span id="L31189" class="LineNr">31189 </span> 0/imm32/no-imm8 +<span id="L31190" class="LineNr">31190 </span> 0/imm32/no-disp32 +<span id="L31191" class="LineNr">31191 </span> 0/imm32/no-xm32 +<span id="L31192" class="LineNr">31192 </span> 0/imm32/no-x32 +<span id="L31193" class="LineNr">31193 </span> 0x11/imm32/alloc-id:fake +<span id="L31194" class="LineNr">31194 </span> <a href='mu.subx.html#L31195'>_Primitive-or-mem-with-reg</a>/imm32/next +<span id="L31195" class="LineNr">31195 </span><span class="subxMinorFunction">_Primitive-or-mem-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31196" class="LineNr">31196 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31197" class="LineNr">31197 </span> <span class="subxComment"># var1/reg <- or var2 => 0b/or var2/rm32 var1/r32</span> +<span id="L31198" class="LineNr">31198 </span> 0x11/imm32/alloc-id:fake +<span id="L31199" class="LineNr">31199 </span> <a href='mu.subx.html#L34305'>_string-or</a>/imm32/name +<span id="L31200" class="LineNr">31200 </span> 0x11/imm32/alloc-id:fake +<span id="L31201" class="LineNr">31201 </span> <span class="SpecialChar"><a href='mu.subx.html#L34903'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L31202" class="LineNr">31202 </span> 0x11/imm32/alloc-id:fake +<span id="L31203" class="LineNr">31203 </span> <span class="SpecialChar"><a href='mu.subx.html#L35012'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31204" class="LineNr">31204 </span> 0x11/imm32/alloc-id:fake +<span id="L31205" class="LineNr">31205 </span> <a href='mu.subx.html#L34372'>_string_0b_or</a>/imm32/subx-name +<span id="L31206" class="LineNr">31206 </span> 1/imm32/rm32-is-first-inout +<span id="L31207" class="LineNr">31207 </span> 3/imm32/r32-is-first-output +<span id="L31208" class="LineNr">31208 </span> 0/imm32/no-imm32 +<span id="L31209" class="LineNr">31209 </span> 0/imm32/no-imm8 +<span id="L31210" class="LineNr">31210 </span> 0/imm32/no-disp32 +<span id="L31211" class="LineNr">31211 </span> 0/imm32/no-xm32 +<span id="L31212" class="LineNr">31212 </span> 0/imm32/no-x32 +<span id="L31213" class="LineNr">31213 </span> 0x11/imm32/alloc-id:fake +<span id="L31214" class="LineNr">31214 </span> <a href='mu.subx.html#L31215'>_Primitive-or-lit-with-reg</a>/imm32/next +<span id="L31215" class="LineNr">31215 </span><span class="subxMinorFunction">_Primitive-or-lit-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31216" class="LineNr">31216 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31217" class="LineNr">31217 </span> <span class="subxComment"># var1/reg <- or lit => 81 1/subop/or var1/rm32 lit/imm32</span> <span id="L31218" class="LineNr">31218 </span> 0x11/imm32/alloc-id:fake -<span id="L31219" class="LineNr">31219 </span> <a href='mu.subx.html#L31220'>_Primitive-xor-reg-with-reg</a>/imm32/next -<span id="L31220" class="LineNr">31220 </span><span class="subxMinorFunction">_Primitive-xor-reg-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31221" class="LineNr">31221 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31222" class="LineNr">31222 </span> <span class="subxComment"># var1/reg <- xor var2/reg => 31/xor-with var1/rm32 var2/r32</span> -<span id="L31223" class="LineNr">31223 </span> 0x11/imm32/alloc-id:fake -<span id="L31224" class="LineNr">31224 </span> <a href='mu.subx.html#L34031'>_string-xor</a>/imm32/name -<span id="L31225" class="LineNr">31225 </span> 0x11/imm32/alloc-id:fake -<span id="L31226" class="LineNr">31226 </span> <span class="SpecialChar"><a href='mu.subx.html#L34683'>Single-int-var-in-some-register</a></span>/imm32/inouts -<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#L34683'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L31229" class="LineNr">31229 </span> 0x11/imm32/alloc-id:fake -<span id="L31230" class="LineNr">31230 </span> <a href='mu.subx.html#L34348'>_string_31_xor_with</a>/imm32/subx-name -<span id="L31231" class="LineNr">31231 </span> 3/imm32/rm32-is-first-output -<span id="L31232" class="LineNr">31232 </span> 1/imm32/r32-is-first-inout -<span id="L31233" class="LineNr">31233 </span> 0/imm32/no-imm32 -<span id="L31234" class="LineNr">31234 </span> 0/imm32/no-imm8 -<span id="L31235" class="LineNr">31235 </span> 0/imm32/no-disp32 -<span id="L31236" class="LineNr">31236 </span> 0/imm32/no-xm32 -<span id="L31237" class="LineNr">31237 </span> 0/imm32/no-x32 +<span id="L31219" class="LineNr">31219 </span> <a href='mu.subx.html#L34305'>_string-or</a>/imm32/name +<span id="L31220" class="LineNr">31220 </span> 0x11/imm32/alloc-id:fake +<span id="L31221" class="LineNr">31221 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts +<span id="L31222" class="LineNr">31222 </span> 0x11/imm32/alloc-id:fake +<span id="L31223" class="LineNr">31223 </span> <span class="SpecialChar"><a href='mu.subx.html#L35012'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31224" class="LineNr">31224 </span> 0x11/imm32/alloc-id:fake +<span id="L31225" class="LineNr">31225 </span> <a href='mu.subx.html#L34767'>_string_81_subop_or</a>/imm32/subx-name +<span id="L31226" class="LineNr">31226 </span> 3/imm32/rm32-is-first-output +<span id="L31227" class="LineNr">31227 </span> 0/imm32/no-r32 +<span id="L31228" class="LineNr">31228 </span> 1/imm32/imm32-is-first-inout +<span id="L31229" class="LineNr">31229 </span> 0/imm32/no-imm8 +<span id="L31230" class="LineNr">31230 </span> 0/imm32/no-disp32 +<span id="L31231" class="LineNr">31231 </span> 0/imm32/no-xm32 +<span id="L31232" class="LineNr">31232 </span> 0/imm32/no-x32 +<span id="L31233" class="LineNr">31233 </span> 0x11/imm32/alloc-id:fake +<span id="L31234" class="LineNr">31234 </span> <a href='mu.subx.html#L31235'>_Primitive-or-lit-with-mem</a>/imm32/next +<span id="L31235" class="LineNr">31235 </span><span class="subxMinorFunction">_Primitive-or-lit-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31236" class="LineNr">31236 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31237" class="LineNr">31237 </span> <span class="subxComment"># or-with var1, lit => 81 1/subop/or var1/rm32 lit/imm32</span> <span id="L31238" class="LineNr">31238 </span> 0x11/imm32/alloc-id:fake -<span id="L31239" class="LineNr">31239 </span> <a href='mu.subx.html#L31240'>_Primitive-xor-reg-with-mem</a>/imm32/next -<span id="L31240" class="LineNr">31240 </span><span class="subxMinorFunction">_Primitive-xor-reg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31241" class="LineNr">31241 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31242" class="LineNr">31242 </span> <span class="subxComment"># xor-with var1 var2/reg => 31/xor-with var1 var2/r32</span> -<span id="L31243" class="LineNr">31243 </span> 0x11/imm32/alloc-id:fake -<span id="L31244" class="LineNr">31244 </span> <a href='mu.subx.html#L34036'>_string-xor-with</a>/imm32/name -<span id="L31245" class="LineNr">31245 </span> 0x11/imm32/alloc-id:fake -<span id="L31246" class="LineNr">31246 </span> <span class="SpecialChar"><a href='mu.subx.html#L34612'>Two-args-int-stack-int-reg</a></span>/imm32/inouts -<span id="L31247" class="LineNr">31247 </span> 0/imm32/no-outputs -<span id="L31248" class="LineNr">31248 </span> 0/imm32/no-outputs -<span id="L31249" class="LineNr">31249 </span> 0x11/imm32/alloc-id:fake -<span id="L31250" class="LineNr">31250 </span> <a href='mu.subx.html#L34348'>_string_31_xor_with</a>/imm32/subx-name -<span id="L31251" class="LineNr">31251 </span> 1/imm32/rm32-is-first-inout -<span id="L31252" class="LineNr">31252 </span> 2/imm32/r32-is-second-inout -<span id="L31253" class="LineNr">31253 </span> 0/imm32/no-imm32 -<span id="L31254" class="LineNr">31254 </span> 0/imm32/no-imm8 -<span id="L31255" class="LineNr">31255 </span> 0/imm32/no-disp32 -<span id="L31256" class="LineNr">31256 </span> 0/imm32/no-xm32 -<span id="L31257" class="LineNr">31257 </span> 0/imm32/no-x32 -<span id="L31258" class="LineNr">31258 </span> 0x11/imm32/alloc-id:fake -<span id="L31259" class="LineNr">31259 </span> <a href='mu.subx.html#L31260'>_Primitive-xor-mem-with-reg</a>/imm32/next -<span id="L31260" class="LineNr">31260 </span><span class="subxMinorFunction">_Primitive-xor-mem-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31261" class="LineNr">31261 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31262" class="LineNr">31262 </span> <span class="subxComment"># var1/reg <- xor var2 => 33/xor var2/rm32 var1/r32</span> +<span id="L31239" class="LineNr">31239 </span> <a href='mu.subx.html#L34310'>_string-or-with</a>/imm32/name +<span id="L31240" class="LineNr">31240 </span> 0x11/imm32/alloc-id:fake +<span id="L31241" class="LineNr">31241 </span> <span class="SpecialChar"><a href='mu.subx.html#L34977'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L31242" class="LineNr">31242 </span> 0/imm32/no-outputs +<span id="L31243" class="LineNr">31243 </span> 0/imm32/no-outputs +<span id="L31244" class="LineNr">31244 </span> 0x11/imm32/alloc-id:fake +<span id="L31245" class="LineNr">31245 </span> <a href='mu.subx.html#L34767'>_string_81_subop_or</a>/imm32/subx-name +<span id="L31246" class="LineNr">31246 </span> 1/imm32/rm32-is-first-inout +<span id="L31247" class="LineNr">31247 </span> 0/imm32/no-r32 +<span id="L31248" class="LineNr">31248 </span> 2/imm32/imm32-is-second-inout +<span id="L31249" class="LineNr">31249 </span> 0/imm32/no-imm8 +<span id="L31250" class="LineNr">31250 </span> 0/imm32/no-disp32 +<span id="L31251" class="LineNr">31251 </span> 0/imm32/no-xm32 +<span id="L31252" class="LineNr">31252 </span> 0/imm32/no-x32 +<span id="L31253" class="LineNr">31253 </span> 0x11/imm32/alloc-id:fake +<span id="L31254" class="LineNr">31254 </span> <a href='mu.subx.html#L31256'>_Primitive-not-reg</a>/imm32/next +<span id="L31255" class="LineNr">31255 </span><span class="subxH1Comment"># - not</span> +<span id="L31256" class="LineNr">31256 </span><span class="subxMinorFunction">_Primitive-not-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31257" class="LineNr">31257 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31258" class="LineNr">31258 </span> <span class="subxComment"># var1/reg <- not => f7 2/subop/not var1/rm32</span> +<span id="L31259" class="LineNr">31259 </span> 0x11/imm32/alloc-id:fake +<span id="L31260" class="LineNr">31260 </span> <a href='mu.subx.html#L34300'>_string-not</a>/imm32/name +<span id="L31261" class="LineNr">31261 </span> 0/imm32/no-inouts +<span id="L31262" class="LineNr">31262 </span> 0/imm32/no-inouts <span id="L31263" class="LineNr">31263 </span> 0x11/imm32/alloc-id:fake -<span id="L31264" class="LineNr">31264 </span> <a href='mu.subx.html#L34031'>_string-xor</a>/imm32/name +<span id="L31264" class="LineNr">31264 </span> <span class="SpecialChar"><a href='mu.subx.html#L35012'>Single-int-var-in-some-register</a></span>/imm32/outputs <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#L34574'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L31267" class="LineNr">31267 </span> 0x11/imm32/alloc-id:fake -<span id="L31268" class="LineNr">31268 </span> <span class="SpecialChar"><a href='mu.subx.html#L34683'>Single-int-var-in-some-register</a></span>/imm32/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#L34353'>_string_33_xor</a>/imm32/subx-name -<span id="L31271" class="LineNr">31271 </span> 1/imm32/rm32-is-first-inout -<span id="L31272" class="LineNr">31272 </span> 3/imm32/r32-is-first-output -<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> 0/imm32/no-disp32 -<span id="L31276" class="LineNr">31276 </span> 0/imm32/no-xm32 -<span id="L31277" class="LineNr">31277 </span> 0/imm32/no-x32 -<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-xor-lit-with-reg</a>/imm32/next -<span id="L31280" class="LineNr">31280 </span><span class="subxMinorFunction">_Primitive-xor-lit-with-reg</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> <span class="subxComment"># var1/reg <- xor lit => 81 6/subop/xor var1/rm32 lit/imm32</span> -<span id="L31283" class="LineNr">31283 </span> 0x11/imm32/alloc-id:fake -<span id="L31284" class="LineNr">31284 </span> <a href='mu.subx.html#L34031'>_string-xor</a>/imm32/name +<span id="L31266" class="LineNr">31266 </span> <a href='mu.subx.html#L34872'>_string_f7_subop_not</a>/imm32/subx-name +<span id="L31267" class="LineNr">31267 </span> 3/imm32/rm32-is-first-output +<span id="L31268" class="LineNr">31268 </span> 0/imm32/no-r32 +<span id="L31269" class="LineNr">31269 </span> 0/imm32/no-imm32 +<span id="L31270" class="LineNr">31270 </span> 0/imm32/no-imm8 +<span id="L31271" class="LineNr">31271 </span> 0/imm32/no-disp32 +<span id="L31272" class="LineNr">31272 </span> 0/imm32/no-xm32 +<span id="L31273" class="LineNr">31273 </span> 0/imm32/no-x32 +<span id="L31274" class="LineNr">31274 </span> 0x11/imm32/alloc-id:fake +<span id="L31275" class="LineNr">31275 </span> <a href='mu.subx.html#L31276'>_Primitive-not-mem</a>/imm32/next +<span id="L31276" class="LineNr">31276 </span><span class="subxMinorFunction">_Primitive-not-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31277" class="LineNr">31277 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31278" class="LineNr">31278 </span> <span class="subxComment"># not var1 => f7 2/subop/not var1/rm32</span> +<span id="L31279" class="LineNr">31279 </span> 0x11/imm32/alloc-id:fake +<span id="L31280" class="LineNr">31280 </span> <a href='mu.subx.html#L34300'>_string-not</a>/imm32/name +<span id="L31281" class="LineNr">31281 </span> 0x11/imm32/alloc-id:fake +<span id="L31282" class="LineNr">31282 </span> <span class="SpecialChar"><a href='mu.subx.html#L34903'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L31283" class="LineNr">31283 </span> 0/imm32/no-outputs +<span id="L31284" class="LineNr">31284 </span> 0/imm32/no-outputs <span id="L31285" class="LineNr">31285 </span> 0x11/imm32/alloc-id:fake -<span id="L31286" class="LineNr">31286 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L31287" class="LineNr">31287 </span> 0x11/imm32/alloc-id:fake -<span id="L31288" class="LineNr">31288 </span> <span class="SpecialChar"><a href='mu.subx.html#L34683'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L31289" class="LineNr">31289 </span> 0x11/imm32/alloc-id:fake -<span id="L31290" class="LineNr">31290 </span> <a href='mu.subx.html#L34458'>_string_81_subop_xor</a>/imm32/subx-name -<span id="L31291" class="LineNr">31291 </span> 3/imm32/rm32-is-first-output -<span id="L31292" class="LineNr">31292 </span> 0/imm32/no-r32 -<span id="L31293" class="LineNr">31293 </span> 1/imm32/imm32-is-first-inout -<span id="L31294" class="LineNr">31294 </span> 0/imm32/no-imm8 -<span id="L31295" class="LineNr">31295 </span> 0/imm32/no-disp32 -<span id="L31296" class="LineNr">31296 </span> 0/imm32/no-xm32 -<span id="L31297" class="LineNr">31297 </span> 0/imm32/no-x32 -<span id="L31298" class="LineNr">31298 </span> 0x11/imm32/alloc-id:fake -<span id="L31299" class="LineNr">31299 </span> <a href='mu.subx.html#L31300'>_Primitive-xor-lit-with-mem</a>/imm32/next -<span id="L31300" class="LineNr">31300 </span><span class="subxMinorFunction">_Primitive-xor-lit-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31301" class="LineNr">31301 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31302" class="LineNr">31302 </span> <span class="subxComment"># xor-with var1, lit => 81 6/subop/xor var1/rm32 lit/imm32</span> -<span id="L31303" class="LineNr">31303 </span> 0x11/imm32/alloc-id:fake -<span id="L31304" class="LineNr">31304 </span> <a href='mu.subx.html#L34036'>_string-xor-with</a>/imm32/name -<span id="L31305" class="LineNr">31305 </span> 0x11/imm32/alloc-id:fake -<span id="L31306" class="LineNr">31306 </span> <span class="SpecialChar"><a href='mu.subx.html#L34648'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L31307" class="LineNr">31307 </span> 0/imm32/no-outputs -<span id="L31308" class="LineNr">31308 </span> 0/imm32/no-outputs -<span id="L31309" class="LineNr">31309 </span> 0x11/imm32/alloc-id:fake -<span id="L31310" class="LineNr">31310 </span> <a href='mu.subx.html#L34458'>_string_81_subop_xor</a>/imm32/subx-name -<span id="L31311" class="LineNr">31311 </span> 1/imm32/rm32-is-first-inout -<span id="L31312" class="LineNr">31312 </span> 0/imm32/no-r32 -<span id="L31313" class="LineNr">31313 </span> 2/imm32/imm32-is-second-inout -<span id="L31314" class="LineNr">31314 </span> 0/imm32/no-imm8 -<span id="L31315" class="LineNr">31315 </span> 0/imm32/no-disp32 -<span id="L31316" class="LineNr">31316 </span> 0/imm32/no-xm32 -<span id="L31317" class="LineNr">31317 </span> 0/imm32/no-x32 -<span id="L31318" class="LineNr">31318 </span> 0x11/imm32/alloc-id:fake -<span id="L31319" class="LineNr">31319 </span> <a href='mu.subx.html#L31320'>_Primitive-shift-reg-left-by-lit</a>/imm32/next -<span id="L31320" class="LineNr">31320 </span><span class="subxMinorFunction">_Primitive-shift-reg-left-by-lit</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31321" class="LineNr">31321 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31322" class="LineNr">31322 </span> <span class="subxComment"># var1/reg <- shift-left lit => c1/shift 4/subop/left var1/rm32 lit/imm32</span> -<span id="L31323" class="LineNr">31323 </span> 0x11/imm32/alloc-id:fake -<span id="L31324" class="LineNr">31324 </span> <a href='mu.subx.html#L34041'>_string-shift-left</a>/imm32/name -<span id="L31325" class="LineNr">31325 </span> 0x11/imm32/alloc-id:fake -<span id="L31326" class="LineNr">31326 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L31327" class="LineNr">31327 </span> 0x11/imm32/alloc-id:fake -<span id="L31328" class="LineNr">31328 </span> <span class="SpecialChar"><a href='mu.subx.html#L34683'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L31329" class="LineNr">31329 </span> 0x11/imm32/alloc-id:fake -<span id="L31330" class="LineNr">31330 </span> <a href='mu.subx.html#L34558'>_string_c1_subop_shift_left</a>/imm32/subx-name -<span id="L31331" class="LineNr">31331 </span> 3/imm32/rm32-is-first-output -<span id="L31332" class="LineNr">31332 </span> 0/imm32/no-r32 -<span id="L31333" class="LineNr">31333 </span> 0/imm32/no-imm32 -<span id="L31334" class="LineNr">31334 </span> 1/imm32/imm8-is-first-inout -<span id="L31335" class="LineNr">31335 </span> 0/imm32/no-disp32 -<span id="L31336" class="LineNr">31336 </span> 0/imm32/no-xm32 -<span id="L31337" class="LineNr">31337 </span> 0/imm32/no-x32 -<span id="L31338" class="LineNr">31338 </span> 0x11/imm32/alloc-id:fake -<span id="L31339" class="LineNr">31339 </span> <a href='mu.subx.html#L31340'>_Primitive-shift-reg-right-by-lit</a>/imm32/next -<span id="L31340" class="LineNr">31340 </span><span class="subxMinorFunction">_Primitive-shift-reg-right-by-lit</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31341" class="LineNr">31341 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31342" class="LineNr">31342 </span> <span class="subxComment"># var1/reg <- shift-right lit => c1/shift 5/subop/right var1/rm32 lit/imm32</span> -<span id="L31343" class="LineNr">31343 </span> 0x11/imm32/alloc-id:fake -<span id="L31344" class="LineNr">31344 </span> <a href='mu.subx.html#L34046'>_string-shift-right</a>/imm32/name -<span id="L31345" class="LineNr">31345 </span> 0x11/imm32/alloc-id:fake -<span id="L31346" class="LineNr">31346 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L31347" class="LineNr">31347 </span> 0x11/imm32/alloc-id:fake -<span id="L31348" class="LineNr">31348 </span> <span class="SpecialChar"><a href='mu.subx.html#L34683'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L31349" class="LineNr">31349 </span> 0x11/imm32/alloc-id:fake -<span id="L31350" class="LineNr">31350 </span> <a href='mu.subx.html#L34563'>_string_c1_subop_shift_right_padding_zeroes</a>/imm32/subx-name -<span id="L31351" class="LineNr">31351 </span> 3/imm32/rm32-is-first-output -<span id="L31352" class="LineNr">31352 </span> 0/imm32/no-r32 -<span id="L31353" class="LineNr">31353 </span> 0/imm32/no-imm32 -<span id="L31354" class="LineNr">31354 </span> 1/imm32/imm8-is-first-inout -<span id="L31355" class="LineNr">31355 </span> 0/imm32/no-disp32 -<span id="L31356" class="LineNr">31356 </span> 0/imm32/no-xm32 -<span id="L31357" class="LineNr">31357 </span> 0/imm32/no-x32 -<span id="L31358" class="LineNr">31358 </span> 0x11/imm32/alloc-id:fake -<span id="L31359" class="LineNr">31359 </span> <a href='mu.subx.html#L31360'>_Primitive-shift-reg-right-signed-by-lit</a>/imm32/next -<span id="L31360" class="LineNr">31360 </span><span class="subxMinorFunction">_Primitive-shift-reg-right-signed-by-lit</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31361" class="LineNr">31361 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31362" class="LineNr">31362 </span> <span class="subxComment"># var1/reg <- shift-right-signed lit => c1/shift 7/subop/right-preserving-sign var1/rm32 lit/imm32</span> -<span id="L31363" class="LineNr">31363 </span> 0x11/imm32/alloc-id:fake -<span id="L31364" class="LineNr">31364 </span> <a href='mu.subx.html#L34051'>_string-shift-right-signed</a>/imm32/name -<span id="L31365" class="LineNr">31365 </span> 0x11/imm32/alloc-id:fake -<span id="L31366" class="LineNr">31366 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L31367" class="LineNr">31367 </span> 0x11/imm32/alloc-id:fake -<span id="L31368" class="LineNr">31368 </span> <span class="SpecialChar"><a href='mu.subx.html#L34683'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L31369" class="LineNr">31369 </span> 0x11/imm32/alloc-id:fake -<span id="L31370" class="LineNr">31370 </span> <a href='mu.subx.html#L34568'>_string_c1_subop_shift_right_preserving_sign</a>/imm32/subx-name -<span id="L31371" class="LineNr">31371 </span> 3/imm32/rm32-is-first-output -<span id="L31372" class="LineNr">31372 </span> 0/imm32/no-r32 -<span id="L31373" class="LineNr">31373 </span> 0/imm32/no-imm32 -<span id="L31374" class="LineNr">31374 </span> 1/imm32/imm8-is-first-inout -<span id="L31375" class="LineNr">31375 </span> 0/imm32/no-disp32 -<span id="L31376" class="LineNr">31376 </span> 0/imm32/no-xm32 -<span id="L31377" class="LineNr">31377 </span> 0/imm32/no-x32 -<span id="L31378" class="LineNr">31378 </span> 0x11/imm32/alloc-id:fake -<span id="L31379" class="LineNr">31379 </span> <a href='mu.subx.html#L31380'>_Primitive-shift-mem-left-by-lit</a>/imm32/next -<span id="L31380" class="LineNr">31380 </span><span class="subxMinorFunction">_Primitive-shift-mem-left-by-lit</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31381" class="LineNr">31381 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31382" class="LineNr">31382 </span> <span class="subxComment"># shift-left var1, lit => c1/shift 4/subop/left var1/rm32 lit/imm32</span> -<span id="L31383" class="LineNr">31383 </span> 0x11/imm32/alloc-id:fake -<span id="L31384" class="LineNr">31384 </span> <a href='mu.subx.html#L34041'>_string-shift-left</a>/imm32/name -<span id="L31385" class="LineNr">31385 </span> 0x11/imm32/alloc-id:fake -<span id="L31386" class="LineNr">31386 </span> <span class="SpecialChar"><a href='mu.subx.html#L34648'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L31387" class="LineNr">31387 </span> 0/imm32/no-outputs -<span id="L31388" class="LineNr">31388 </span> 0/imm32/no-outputs -<span id="L31389" class="LineNr">31389 </span> 0x11/imm32/alloc-id:fake -<span id="L31390" class="LineNr">31390 </span> <a href='mu.subx.html#L34558'>_string_c1_subop_shift_left</a>/imm32/subx-name -<span id="L31391" class="LineNr">31391 </span> 1/imm32/rm32-is-first-inout -<span id="L31392" class="LineNr">31392 </span> 0/imm32/no-r32 -<span id="L31393" class="LineNr">31393 </span> 0/imm32/no-imm32 -<span id="L31394" class="LineNr">31394 </span> 2/imm32/imm8-is-second-inout -<span id="L31395" class="LineNr">31395 </span> 0/imm32/no-disp32 -<span id="L31396" class="LineNr">31396 </span> 0/imm32/no-xm32 -<span id="L31397" class="LineNr">31397 </span> 0/imm32/no-x32 -<span id="L31398" class="LineNr">31398 </span> 0x11/imm32/alloc-id:fake -<span id="L31399" class="LineNr">31399 </span> <a href='mu.subx.html#L31400'>_Primitive-shift-mem-right-by-lit</a>/imm32/next -<span id="L31400" class="LineNr">31400 </span><span class="subxMinorFunction">_Primitive-shift-mem-right-by-lit</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31401" class="LineNr">31401 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31402" class="LineNr">31402 </span> <span class="subxComment"># shift-right var1, lit => c1/shift 5/subop/right var1/rm32 lit/imm32</span> -<span id="L31403" class="LineNr">31403 </span> 0x11/imm32/alloc-id:fake -<span id="L31404" class="LineNr">31404 </span> <a href='mu.subx.html#L34046'>_string-shift-right</a>/imm32/name -<span id="L31405" class="LineNr">31405 </span> 0x11/imm32/alloc-id:fake -<span id="L31406" class="LineNr">31406 </span> <span class="SpecialChar"><a href='mu.subx.html#L34648'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L31407" class="LineNr">31407 </span> 0/imm32/no-outputs -<span id="L31408" class="LineNr">31408 </span> 0/imm32/no-outputs -<span id="L31409" class="LineNr">31409 </span> 0x11/imm32/alloc-id:fake -<span id="L31410" class="LineNr">31410 </span> <a href='mu.subx.html#L34563'>_string_c1_subop_shift_right_padding_zeroes</a>/imm32/subx-name -<span id="L31411" class="LineNr">31411 </span> 1/imm32/rm32-is-first-inout -<span id="L31412" class="LineNr">31412 </span> 0/imm32/no-r32 -<span id="L31413" class="LineNr">31413 </span> 0/imm32/no-imm32 -<span id="L31414" class="LineNr">31414 </span> 2/imm32/imm8-is-second-inout -<span id="L31415" class="LineNr">31415 </span> 0/imm32/no-disp32 -<span id="L31416" class="LineNr">31416 </span> 0/imm32/no-xm32 -<span id="L31417" class="LineNr">31417 </span> 0/imm32/no-x32 -<span id="L31418" class="LineNr">31418 </span> 0x11/imm32/alloc-id:fake -<span id="L31419" class="LineNr">31419 </span> <a href='mu.subx.html#L31420'>_Primitive-shift-mem-right-signed-by-lit</a>/imm32/next -<span id="L31420" class="LineNr">31420 </span><span class="subxMinorFunction">_Primitive-shift-mem-right-signed-by-lit</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31421" class="LineNr">31421 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31422" class="LineNr">31422 </span> <span class="subxComment"># shift-right-signed var1, lit => c1/shift 7/subop/right-preserving-sign var1/rm32 lit/imm32</span> -<span id="L31423" class="LineNr">31423 </span> 0x11/imm32/alloc-id:fake -<span id="L31424" class="LineNr">31424 </span> <a href='mu.subx.html#L34051'>_string-shift-right-signed</a>/imm32/name -<span id="L31425" class="LineNr">31425 </span> 0x11/imm32/alloc-id:fake -<span id="L31426" class="LineNr">31426 </span> <span class="SpecialChar"><a href='mu.subx.html#L34648'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L31427" class="LineNr">31427 </span> 0/imm32/no-outputs -<span id="L31428" class="LineNr">31428 </span> 0/imm32/no-outputs -<span id="L31429" class="LineNr">31429 </span> 0x11/imm32/alloc-id:fake -<span id="L31430" class="LineNr">31430 </span> <a href='mu.subx.html#L34568'>_string_c1_subop_shift_right_preserving_sign</a>/imm32/subx-name -<span id="L31431" class="LineNr">31431 </span> 1/imm32/rm32-is-first-inout -<span id="L31432" class="LineNr">31432 </span> 0/imm32/no-r32 -<span id="L31433" class="LineNr">31433 </span> 0/imm32/no-imm32 -<span id="L31434" class="LineNr">31434 </span> 2/imm32/imm8-is-second-inout -<span id="L31435" class="LineNr">31435 </span> 0/imm32/no-disp32 -<span id="L31436" class="LineNr">31436 </span> 0/imm32/no-xm32 -<span id="L31437" class="LineNr">31437 </span> 0/imm32/no-x32 -<span id="L31438" class="LineNr">31438 </span> 0x11/imm32/alloc-id:fake -<span id="L31439" class="LineNr">31439 </span> <a href='mu.subx.html#L31441'>_Primitive-copy-to-eax</a>/imm32/next -<span id="L31440" class="LineNr">31440 </span><span class="subxH1Comment"># - copy</span> -<span id="L31441" class="LineNr">31441 </span><span class="subxMinorFunction">_Primitive-copy-to-eax</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"># var/eax <- copy lit => b8/copy-to-eax lit/imm32</span> +<span id="L31286" class="LineNr">31286 </span> <a href='mu.subx.html#L34872'>_string_f7_subop_not</a>/imm32/subx-name +<span id="L31287" class="LineNr">31287 </span> 1/imm32/rm32-is-first-inout +<span id="L31288" class="LineNr">31288 </span> 0/imm32/no-r32 +<span id="L31289" class="LineNr">31289 </span> 0/imm32/no-imm32 +<span id="L31290" class="LineNr">31290 </span> 0/imm32/no-imm8 +<span id="L31291" class="LineNr">31291 </span> 0/imm32/no-disp32 +<span id="L31292" class="LineNr">31292 </span> 0/imm32/no-xm32 +<span id="L31293" class="LineNr">31293 </span> 0/imm32/no-x32 +<span id="L31294" class="LineNr">31294 </span> 0x11/imm32/alloc-id:fake +<span id="L31295" class="LineNr">31295 </span> <a href='mu.subx.html#L31297'>_Primitive-xor-with-eax</a>/imm32/next +<span id="L31296" class="LineNr">31296 </span><span class="subxH1Comment"># - xor</span> +<span id="L31297" class="LineNr">31297 </span><span class="subxMinorFunction">_Primitive-xor-with-eax</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31298" class="LineNr">31298 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31299" class="LineNr">31299 </span> <span class="subxComment"># var/eax <- xor lit => 35/xor-with-eax lit/imm32</span> +<span id="L31300" class="LineNr">31300 </span> 0x11/imm32/alloc-id:fake +<span id="L31301" class="LineNr">31301 </span> <a href='mu.subx.html#L34325'>_string-xor</a>/imm32/name +<span id="L31302" class="LineNr">31302 </span> 0x11/imm32/alloc-id:fake +<span id="L31303" class="LineNr">31303 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts +<span id="L31304" class="LineNr">31304 </span> 0x11/imm32/alloc-id:fake +<span id="L31305" class="LineNr">31305 </span> <span class="SpecialChar"><a href='mu.subx.html#L35072'>Single-int-var-in-eax</a></span>/imm32/outputs +<span id="L31306" class="LineNr">31306 </span> 0x11/imm32/alloc-id:fake +<span id="L31307" class="LineNr">31307 </span> <a href='mu.subx.html#L34682'>_string_35_xor_with_eax</a>/imm32/subx-name +<span id="L31308" class="LineNr">31308 </span> 0/imm32/no-rm32 +<span id="L31309" class="LineNr">31309 </span> 0/imm32/no-r32 +<span id="L31310" class="LineNr">31310 </span> 1/imm32/imm32-is-first-inout +<span id="L31311" class="LineNr">31311 </span> 0/imm32/no-imm8 +<span id="L31312" class="LineNr">31312 </span> 0/imm32/no-disp32 +<span id="L31313" class="LineNr">31313 </span> 0/imm32/no-xm32 +<span id="L31314" class="LineNr">31314 </span> 0/imm32/no-x32 +<span id="L31315" class="LineNr">31315 </span> 0x11/imm32/alloc-id:fake +<span id="L31316" class="LineNr">31316 </span> <a href='mu.subx.html#L31317'>_Primitive-xor-reg-with-reg</a>/imm32/next +<span id="L31317" class="LineNr">31317 </span><span class="subxMinorFunction">_Primitive-xor-reg-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31318" class="LineNr">31318 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31319" class="LineNr">31319 </span> <span class="subxComment"># var1/reg <- xor var2/reg => 31/xor-with var1/rm32 var2/r32</span> +<span id="L31320" class="LineNr">31320 </span> 0x11/imm32/alloc-id:fake +<span id="L31321" class="LineNr">31321 </span> <a href='mu.subx.html#L34325'>_string-xor</a>/imm32/name +<span id="L31322" class="LineNr">31322 </span> 0x11/imm32/alloc-id:fake +<span id="L31323" class="LineNr">31323 </span> <span class="SpecialChar"><a href='mu.subx.html#L35012'>Single-int-var-in-some-register</a></span>/imm32/inouts +<span id="L31324" class="LineNr">31324 </span> 0x11/imm32/alloc-id:fake +<span id="L31325" class="LineNr">31325 </span> <span class="SpecialChar"><a href='mu.subx.html#L35012'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31326" class="LineNr">31326 </span> 0x11/imm32/alloc-id:fake +<span id="L31327" class="LineNr">31327 </span> <a href='mu.subx.html#L34672'>_string_31_xor_with</a>/imm32/subx-name +<span id="L31328" class="LineNr">31328 </span> 3/imm32/rm32-is-first-output +<span id="L31329" class="LineNr">31329 </span> 1/imm32/r32-is-first-inout +<span id="L31330" class="LineNr">31330 </span> 0/imm32/no-imm32 +<span id="L31331" class="LineNr">31331 </span> 0/imm32/no-imm8 +<span id="L31332" class="LineNr">31332 </span> 0/imm32/no-disp32 +<span id="L31333" class="LineNr">31333 </span> 0/imm32/no-xm32 +<span id="L31334" class="LineNr">31334 </span> 0/imm32/no-x32 +<span id="L31335" class="LineNr">31335 </span> 0x11/imm32/alloc-id:fake +<span id="L31336" class="LineNr">31336 </span> <a href='mu.subx.html#L31337'>_Primitive-xor-reg-with-mem</a>/imm32/next +<span id="L31337" class="LineNr">31337 </span><span class="subxMinorFunction">_Primitive-xor-reg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31338" class="LineNr">31338 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31339" class="LineNr">31339 </span> <span class="subxComment"># xor-with var1 var2/reg => 31/xor-with var1 var2/r32</span> +<span id="L31340" class="LineNr">31340 </span> 0x11/imm32/alloc-id:fake +<span id="L31341" class="LineNr">31341 </span> <a href='mu.subx.html#L34330'>_string-xor-with</a>/imm32/name +<span id="L31342" class="LineNr">31342 </span> 0x11/imm32/alloc-id:fake +<span id="L31343" class="LineNr">31343 </span> <span class="SpecialChar"><a href='mu.subx.html#L34941'>Two-args-int-stack-int-reg</a></span>/imm32/inouts +<span id="L31344" class="LineNr">31344 </span> 0/imm32/no-outputs +<span id="L31345" class="LineNr">31345 </span> 0/imm32/no-outputs +<span id="L31346" class="LineNr">31346 </span> 0x11/imm32/alloc-id:fake +<span id="L31347" class="LineNr">31347 </span> <a href='mu.subx.html#L34672'>_string_31_xor_with</a>/imm32/subx-name +<span id="L31348" class="LineNr">31348 </span> 1/imm32/rm32-is-first-inout +<span id="L31349" class="LineNr">31349 </span> 2/imm32/r32-is-second-inout +<span id="L31350" class="LineNr">31350 </span> 0/imm32/no-imm32 +<span id="L31351" class="LineNr">31351 </span> 0/imm32/no-imm8 +<span id="L31352" class="LineNr">31352 </span> 0/imm32/no-disp32 +<span id="L31353" class="LineNr">31353 </span> 0/imm32/no-xm32 +<span id="L31354" class="LineNr">31354 </span> 0/imm32/no-x32 +<span id="L31355" class="LineNr">31355 </span> 0x11/imm32/alloc-id:fake +<span id="L31356" class="LineNr">31356 </span> <a href='mu.subx.html#L31357'>_Primitive-xor-mem-with-reg</a>/imm32/next +<span id="L31357" class="LineNr">31357 </span><span class="subxMinorFunction">_Primitive-xor-mem-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31358" class="LineNr">31358 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31359" class="LineNr">31359 </span> <span class="subxComment"># var1/reg <- xor var2 => 33/xor var2/rm32 var1/r32</span> +<span id="L31360" class="LineNr">31360 </span> 0x11/imm32/alloc-id:fake +<span id="L31361" class="LineNr">31361 </span> <a href='mu.subx.html#L34325'>_string-xor</a>/imm32/name +<span id="L31362" class="LineNr">31362 </span> 0x11/imm32/alloc-id:fake +<span id="L31363" class="LineNr">31363 </span> <span class="SpecialChar"><a href='mu.subx.html#L34903'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L31364" class="LineNr">31364 </span> 0x11/imm32/alloc-id:fake +<span id="L31365" class="LineNr">31365 </span> <span class="SpecialChar"><a href='mu.subx.html#L35012'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31366" class="LineNr">31366 </span> 0x11/imm32/alloc-id:fake +<span id="L31367" class="LineNr">31367 </span> <a href='mu.subx.html#L34677'>_string_33_xor</a>/imm32/subx-name +<span id="L31368" class="LineNr">31368 </span> 1/imm32/rm32-is-first-inout +<span id="L31369" class="LineNr">31369 </span> 3/imm32/r32-is-first-output +<span id="L31370" class="LineNr">31370 </span> 0/imm32/no-imm32 +<span id="L31371" class="LineNr">31371 </span> 0/imm32/no-imm8 +<span id="L31372" class="LineNr">31372 </span> 0/imm32/no-disp32 +<span id="L31373" class="LineNr">31373 </span> 0/imm32/no-xm32 +<span id="L31374" class="LineNr">31374 </span> 0/imm32/no-x32 +<span id="L31375" class="LineNr">31375 </span> 0x11/imm32/alloc-id:fake +<span id="L31376" class="LineNr">31376 </span> <a href='mu.subx.html#L31377'>_Primitive-xor-lit-with-reg</a>/imm32/next +<span id="L31377" class="LineNr">31377 </span><span class="subxMinorFunction">_Primitive-xor-lit-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31378" class="LineNr">31378 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31379" class="LineNr">31379 </span> <span class="subxComment"># var1/reg <- xor lit => 81 6/subop/xor var1/rm32 lit/imm32</span> +<span id="L31380" class="LineNr">31380 </span> 0x11/imm32/alloc-id:fake +<span id="L31381" class="LineNr">31381 </span> <a href='mu.subx.html#L34325'>_string-xor</a>/imm32/name +<span id="L31382" class="LineNr">31382 </span> 0x11/imm32/alloc-id:fake +<span id="L31383" class="LineNr">31383 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts +<span id="L31384" class="LineNr">31384 </span> 0x11/imm32/alloc-id:fake +<span id="L31385" class="LineNr">31385 </span> <span class="SpecialChar"><a href='mu.subx.html#L35012'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31386" class="LineNr">31386 </span> 0x11/imm32/alloc-id:fake +<span id="L31387" class="LineNr">31387 </span> <a href='mu.subx.html#L34782'>_string_81_subop_xor</a>/imm32/subx-name +<span id="L31388" class="LineNr">31388 </span> 3/imm32/rm32-is-first-output +<span id="L31389" class="LineNr">31389 </span> 0/imm32/no-r32 +<span id="L31390" class="LineNr">31390 </span> 1/imm32/imm32-is-first-inout +<span id="L31391" class="LineNr">31391 </span> 0/imm32/no-imm8 +<span id="L31392" class="LineNr">31392 </span> 0/imm32/no-disp32 +<span id="L31393" class="LineNr">31393 </span> 0/imm32/no-xm32 +<span id="L31394" class="LineNr">31394 </span> 0/imm32/no-x32 +<span id="L31395" class="LineNr">31395 </span> 0x11/imm32/alloc-id:fake +<span id="L31396" class="LineNr">31396 </span> <a href='mu.subx.html#L31397'>_Primitive-xor-lit-with-mem</a>/imm32/next +<span id="L31397" class="LineNr">31397 </span><span class="subxMinorFunction">_Primitive-xor-lit-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31398" class="LineNr">31398 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31399" class="LineNr">31399 </span> <span class="subxComment"># xor-with var1, lit => 81 6/subop/xor var1/rm32 lit/imm32</span> +<span id="L31400" class="LineNr">31400 </span> 0x11/imm32/alloc-id:fake +<span id="L31401" class="LineNr">31401 </span> <a href='mu.subx.html#L34330'>_string-xor-with</a>/imm32/name +<span id="L31402" class="LineNr">31402 </span> 0x11/imm32/alloc-id:fake +<span id="L31403" class="LineNr">31403 </span> <span class="SpecialChar"><a href='mu.subx.html#L34977'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L31404" class="LineNr">31404 </span> 0/imm32/no-outputs +<span id="L31405" class="LineNr">31405 </span> 0/imm32/no-outputs +<span id="L31406" class="LineNr">31406 </span> 0x11/imm32/alloc-id:fake +<span id="L31407" class="LineNr">31407 </span> <a href='mu.subx.html#L34782'>_string_81_subop_xor</a>/imm32/subx-name +<span id="L31408" class="LineNr">31408 </span> 1/imm32/rm32-is-first-inout +<span id="L31409" class="LineNr">31409 </span> 0/imm32/no-r32 +<span id="L31410" class="LineNr">31410 </span> 2/imm32/imm32-is-second-inout +<span id="L31411" class="LineNr">31411 </span> 0/imm32/no-imm8 +<span id="L31412" class="LineNr">31412 </span> 0/imm32/no-disp32 +<span id="L31413" class="LineNr">31413 </span> 0/imm32/no-xm32 +<span id="L31414" class="LineNr">31414 </span> 0/imm32/no-x32 +<span id="L31415" class="LineNr">31415 </span> 0x11/imm32/alloc-id:fake +<span id="L31416" class="LineNr">31416 </span> <a href='mu.subx.html#L31417'>_Primitive-shift-reg-left-by-lit</a>/imm32/next +<span id="L31417" class="LineNr">31417 </span><span class="subxMinorFunction">_Primitive-shift-reg-left-by-lit</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31418" class="LineNr">31418 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31419" class="LineNr">31419 </span> <span class="subxComment"># var1/reg <- shift-left lit => c1/shift 4/subop/left var1/rm32 lit/imm32</span> +<span id="L31420" class="LineNr">31420 </span> 0x11/imm32/alloc-id:fake +<span id="L31421" class="LineNr">31421 </span> <a href='mu.subx.html#L34335'>_string-shift-left</a>/imm32/name +<span id="L31422" class="LineNr">31422 </span> 0x11/imm32/alloc-id:fake +<span id="L31423" class="LineNr">31423 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts +<span id="L31424" class="LineNr">31424 </span> 0x11/imm32/alloc-id:fake +<span id="L31425" class="LineNr">31425 </span> <span class="SpecialChar"><a href='mu.subx.html#L35012'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31426" class="LineNr">31426 </span> 0x11/imm32/alloc-id:fake +<span id="L31427" class="LineNr">31427 </span> <a href='mu.subx.html#L34887'>_string_c1_subop_shift_left</a>/imm32/subx-name +<span id="L31428" class="LineNr">31428 </span> 3/imm32/rm32-is-first-output +<span id="L31429" class="LineNr">31429 </span> 0/imm32/no-r32 +<span id="L31430" class="LineNr">31430 </span> 0/imm32/no-imm32 +<span id="L31431" class="LineNr">31431 </span> 1/imm32/imm8-is-first-inout +<span id="L31432" class="LineNr">31432 </span> 0/imm32/no-disp32 +<span id="L31433" class="LineNr">31433 </span> 0/imm32/no-xm32 +<span id="L31434" class="LineNr">31434 </span> 0/imm32/no-x32 +<span id="L31435" class="LineNr">31435 </span> 0x11/imm32/alloc-id:fake +<span id="L31436" class="LineNr">31436 </span> <a href='mu.subx.html#L31437'>_Primitive-shift-reg-right-by-lit</a>/imm32/next +<span id="L31437" class="LineNr">31437 </span><span class="subxMinorFunction">_Primitive-shift-reg-right-by-lit</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31438" class="LineNr">31438 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31439" class="LineNr">31439 </span> <span class="subxComment"># var1/reg <- shift-right lit => c1/shift 5/subop/right var1/rm32 lit/imm32</span> +<span id="L31440" class="LineNr">31440 </span> 0x11/imm32/alloc-id:fake +<span id="L31441" class="LineNr">31441 </span> <a href='mu.subx.html#L34340'>_string-shift-right</a>/imm32/name +<span id="L31442" class="LineNr">31442 </span> 0x11/imm32/alloc-id:fake +<span id="L31443" class="LineNr">31443 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts <span id="L31444" class="LineNr">31444 </span> 0x11/imm32/alloc-id:fake -<span id="L31445" class="LineNr">31445 </span> <a href='mu.subx.html#L33851'>_string-copy</a>/imm32/name +<span id="L31445" class="LineNr">31445 </span> <span class="SpecialChar"><a href='mu.subx.html#L35012'>Single-int-var-in-some-register</a></span>/imm32/outputs <span id="L31446" class="LineNr">31446 </span> 0x11/imm32/alloc-id:fake -<span id="L31447" class="LineNr">31447 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L31448" class="LineNr">31448 </span> 0x11/imm32/alloc-id:fake -<span id="L31449" class="LineNr">31449 </span> <span class="SpecialChar"><a href='mu.subx.html#L34743'>Single-int-var-in-eax</a></span>/imm32/outputs -<span id="L31450" class="LineNr">31450 </span> 0x11/imm32/alloc-id:fake -<span id="L31451" class="LineNr">31451 </span> <a href='mu.subx.html#L34493'>_string_b8_copy_to_eax</a>/imm32/subx-name -<span id="L31452" class="LineNr">31452 </span> 0/imm32/no-rm32 -<span id="L31453" class="LineNr">31453 </span> 0/imm32/no-r32 -<span id="L31454" class="LineNr">31454 </span> 1/imm32/imm32-is-first-inout -<span id="L31455" class="LineNr">31455 </span> 0/imm32/no-imm8 -<span id="L31456" class="LineNr">31456 </span> 0/imm32/no-disp32 -<span id="L31457" class="LineNr">31457 </span> 0/imm32/no-xm32 -<span id="L31458" class="LineNr">31458 </span> 0/imm32/no-x32 -<span id="L31459" class="LineNr">31459 </span> 0x11/imm32/alloc-id:fake -<span id="L31460" class="LineNr">31460 </span> <a href='mu.subx.html#L31461'>_Primitive-copy-to-ecx</a>/imm32/next -<span id="L31461" class="LineNr">31461 </span><span class="subxMinorFunction">_Primitive-copy-to-ecx</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31462" class="LineNr">31462 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31463" class="LineNr">31463 </span> <span class="subxComment"># var/ecx <- copy lit => b9/copy-to-ecx lit/imm32</span> +<span id="L31447" class="LineNr">31447 </span> <a href='mu.subx.html#L34892'>_string_c1_subop_shift_right_padding_zeroes</a>/imm32/subx-name +<span id="L31448" class="LineNr">31448 </span> 3/imm32/rm32-is-first-output +<span id="L31449" class="LineNr">31449 </span> 0/imm32/no-r32 +<span id="L31450" class="LineNr">31450 </span> 0/imm32/no-imm32 +<span id="L31451" class="LineNr">31451 </span> 1/imm32/imm8-is-first-inout +<span id="L31452" class="LineNr">31452 </span> 0/imm32/no-disp32 +<span id="L31453" class="LineNr">31453 </span> 0/imm32/no-xm32 +<span id="L31454" class="LineNr">31454 </span> 0/imm32/no-x32 +<span id="L31455" class="LineNr">31455 </span> 0x11/imm32/alloc-id:fake +<span id="L31456" class="LineNr">31456 </span> <a href='mu.subx.html#L31457'>_Primitive-shift-reg-right-signed-by-lit</a>/imm32/next +<span id="L31457" class="LineNr">31457 </span><span class="subxMinorFunction">_Primitive-shift-reg-right-signed-by-lit</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31458" class="LineNr">31458 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31459" class="LineNr">31459 </span> <span class="subxComment"># var1/reg <- shift-right-signed lit => c1/shift 7/subop/right-preserving-sign var1/rm32 lit/imm32</span> +<span id="L31460" class="LineNr">31460 </span> 0x11/imm32/alloc-id:fake +<span id="L31461" class="LineNr">31461 </span> <a href='mu.subx.html#L34345'>_string-shift-right-signed</a>/imm32/name +<span id="L31462" class="LineNr">31462 </span> 0x11/imm32/alloc-id:fake +<span id="L31463" class="LineNr">31463 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts <span id="L31464" class="LineNr">31464 </span> 0x11/imm32/alloc-id:fake -<span id="L31465" class="LineNr">31465 </span> <a href='mu.subx.html#L33851'>_string-copy</a>/imm32/name +<span id="L31465" class="LineNr">31465 </span> <span class="SpecialChar"><a href='mu.subx.html#L35012'>Single-int-var-in-some-register</a></span>/imm32/outputs <span id="L31466" class="LineNr">31466 </span> 0x11/imm32/alloc-id:fake -<span id="L31467" class="LineNr">31467 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L31468" class="LineNr">31468 </span> 0x11/imm32/alloc-id:fake -<span id="L31469" class="LineNr">31469 </span> <span class="SpecialChar"><a href='mu.subx.html#L34761'>Single-int-var-in-ecx</a></span>/imm32/outputs -<span id="L31470" class="LineNr">31470 </span> 0x11/imm32/alloc-id:fake -<span id="L31471" class="LineNr">31471 </span> <a href='mu.subx.html#L34498'>_string_b9_copy_to_ecx</a>/imm32/subx-name -<span id="L31472" class="LineNr">31472 </span> 0/imm32/no-rm32 -<span id="L31473" class="LineNr">31473 </span> 0/imm32/no-r32 -<span id="L31474" class="LineNr">31474 </span> 1/imm32/imm32-is-first-inout -<span id="L31475" class="LineNr">31475 </span> 0/imm32/no-imm8 -<span id="L31476" class="LineNr">31476 </span> 0/imm32/no-disp32 -<span id="L31477" class="LineNr">31477 </span> 0/imm32/no-xm32 -<span id="L31478" class="LineNr">31478 </span> 0/imm32/no-x32 -<span id="L31479" class="LineNr">31479 </span> 0x11/imm32/alloc-id:fake -<span id="L31480" class="LineNr">31480 </span> <a href='mu.subx.html#L31481'>_Primitive-copy-to-edx</a>/imm32/next -<span id="L31481" class="LineNr">31481 </span><span class="subxMinorFunction">_Primitive-copy-to-edx</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31482" class="LineNr">31482 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31483" class="LineNr">31483 </span> <span class="subxComment"># var/edx <- copy lit => ba/copy-to-edx lit/imm32</span> -<span id="L31484" class="LineNr">31484 </span> 0x11/imm32/alloc-id:fake -<span id="L31485" class="LineNr">31485 </span> <a href='mu.subx.html#L33851'>_string-copy</a>/imm32/name +<span id="L31467" class="LineNr">31467 </span> <a href='mu.subx.html#L34897'>_string_c1_subop_shift_right_preserving_sign</a>/imm32/subx-name +<span id="L31468" class="LineNr">31468 </span> 3/imm32/rm32-is-first-output +<span id="L31469" class="LineNr">31469 </span> 0/imm32/no-r32 +<span id="L31470" class="LineNr">31470 </span> 0/imm32/no-imm32 +<span id="L31471" class="LineNr">31471 </span> 1/imm32/imm8-is-first-inout +<span id="L31472" class="LineNr">31472 </span> 0/imm32/no-disp32 +<span id="L31473" class="LineNr">31473 </span> 0/imm32/no-xm32 +<span id="L31474" class="LineNr">31474 </span> 0/imm32/no-x32 +<span id="L31475" class="LineNr">31475 </span> 0x11/imm32/alloc-id:fake +<span id="L31476" class="LineNr">31476 </span> <a href='mu.subx.html#L31477'>_Primitive-shift-mem-left-by-lit</a>/imm32/next +<span id="L31477" class="LineNr">31477 </span><span class="subxMinorFunction">_Primitive-shift-mem-left-by-lit</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31478" class="LineNr">31478 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31479" class="LineNr">31479 </span> <span class="subxComment"># shift-left var1, lit => c1/shift 4/subop/left var1/rm32 lit/imm32</span> +<span id="L31480" class="LineNr">31480 </span> 0x11/imm32/alloc-id:fake +<span id="L31481" class="LineNr">31481 </span> <a href='mu.subx.html#L34335'>_string-shift-left</a>/imm32/name +<span id="L31482" class="LineNr">31482 </span> 0x11/imm32/alloc-id:fake +<span id="L31483" class="LineNr">31483 </span> <span class="SpecialChar"><a href='mu.subx.html#L34977'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L31484" class="LineNr">31484 </span> 0/imm32/no-outputs +<span id="L31485" class="LineNr">31485 </span> 0/imm32/no-outputs <span id="L31486" class="LineNr">31486 </span> 0x11/imm32/alloc-id:fake -<span id="L31487" class="LineNr">31487 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L31488" class="LineNr">31488 </span> 0x11/imm32/alloc-id:fake -<span id="L31489" class="LineNr">31489 </span> <span class="SpecialChar"><a href='mu.subx.html#L34779'>Single-int-var-in-edx</a></span>/imm32/outputs -<span id="L31490" class="LineNr">31490 </span> 0x11/imm32/alloc-id:fake -<span id="L31491" class="LineNr">31491 </span> <a href='mu.subx.html#L34503'>_string_ba_copy_to_edx</a>/imm32/subx-name -<span id="L31492" class="LineNr">31492 </span> 0/imm32/no-rm32 -<span id="L31493" class="LineNr">31493 </span> 0/imm32/no-r32 -<span id="L31494" class="LineNr">31494 </span> 1/imm32/imm32-is-first-inout -<span id="L31495" class="LineNr">31495 </span> 0/imm32/no-imm8 -<span id="L31496" class="LineNr">31496 </span> 0/imm32/no-disp32 -<span id="L31497" class="LineNr">31497 </span> 0/imm32/no-xm32 -<span id="L31498" class="LineNr">31498 </span> 0/imm32/no-x32 -<span id="L31499" class="LineNr">31499 </span> 0x11/imm32/alloc-id:fake -<span id="L31500" class="LineNr">31500 </span> <a href='mu.subx.html#L31501'>_Primitive-copy-to-ebx</a>/imm32/next -<span id="L31501" class="LineNr">31501 </span><span class="subxMinorFunction">_Primitive-copy-to-ebx</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31502" class="LineNr">31502 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31503" class="LineNr">31503 </span> <span class="subxComment"># var/ebx <- copy lit => bb/copy-to-ebx lit/imm32</span> -<span id="L31504" class="LineNr">31504 </span> 0x11/imm32/alloc-id:fake -<span id="L31505" class="LineNr">31505 </span> <a href='mu.subx.html#L33851'>_string-copy</a>/imm32/name +<span id="L31487" class="LineNr">31487 </span> <a href='mu.subx.html#L34887'>_string_c1_subop_shift_left</a>/imm32/subx-name +<span id="L31488" class="LineNr">31488 </span> 1/imm32/rm32-is-first-inout +<span id="L31489" class="LineNr">31489 </span> 0/imm32/no-r32 +<span id="L31490" class="LineNr">31490 </span> 0/imm32/no-imm32 +<span id="L31491" class="LineNr">31491 </span> 2/imm32/imm8-is-second-inout +<span id="L31492" class="LineNr">31492 </span> 0/imm32/no-disp32 +<span id="L31493" class="LineNr">31493 </span> 0/imm32/no-xm32 +<span id="L31494" class="LineNr">31494 </span> 0/imm32/no-x32 +<span id="L31495" class="LineNr">31495 </span> 0x11/imm32/alloc-id:fake +<span id="L31496" class="LineNr">31496 </span> <a href='mu.subx.html#L31497'>_Primitive-shift-mem-right-by-lit</a>/imm32/next +<span id="L31497" class="LineNr">31497 </span><span class="subxMinorFunction">_Primitive-shift-mem-right-by-lit</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31498" class="LineNr">31498 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31499" class="LineNr">31499 </span> <span class="subxComment"># shift-right var1, lit => c1/shift 5/subop/right var1/rm32 lit/imm32</span> +<span id="L31500" class="LineNr">31500 </span> 0x11/imm32/alloc-id:fake +<span id="L31501" class="LineNr">31501 </span> <a href='mu.subx.html#L34340'>_string-shift-right</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#L34977'>Int-var-and-literal</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> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L31508" class="LineNr">31508 </span> 0x11/imm32/alloc-id:fake -<span id="L31509" class="LineNr">31509 </span> <span class="SpecialChar"><a href='mu.subx.html#L34797'>Single-int-var-in-ebx</a></span>/imm32/outputs -<span id="L31510" class="LineNr">31510 </span> 0x11/imm32/alloc-id:fake -<span id="L31511" class="LineNr">31511 </span> <a href='mu.subx.html#L34508'>_string_bb_copy_to_ebx</a>/imm32/subx-name -<span id="L31512" class="LineNr">31512 </span> 0/imm32/no-rm32 -<span id="L31513" class="LineNr">31513 </span> 0/imm32/no-r32 -<span id="L31514" class="LineNr">31514 </span> 1/imm32/imm32-is-first-inout -<span id="L31515" class="LineNr">31515 </span> 0/imm32/no-imm8 -<span id="L31516" class="LineNr">31516 </span> 0/imm32/no-disp32 -<span id="L31517" class="LineNr">31517 </span> 0/imm32/no-xm32 -<span id="L31518" class="LineNr">31518 </span> 0/imm32/no-x32 -<span id="L31519" class="LineNr">31519 </span> 0x11/imm32/alloc-id:fake -<span id="L31520" class="LineNr">31520 </span> <a href='mu.subx.html#L31521'>_Primitive-copy-to-esi</a>/imm32/next -<span id="L31521" class="LineNr">31521 </span><span class="subxMinorFunction">_Primitive-copy-to-esi</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31522" class="LineNr">31522 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31523" class="LineNr">31523 </span> <span class="subxComment"># var/esi <- copy lit => be/copy-to-esi lit/imm32</span> -<span id="L31524" class="LineNr">31524 </span> 0x11/imm32/alloc-id:fake -<span id="L31525" class="LineNr">31525 </span> <a href='mu.subx.html#L33851'>_string-copy</a>/imm32/name +<span id="L31507" class="LineNr">31507 </span> <a href='mu.subx.html#L34892'>_string_c1_subop_shift_right_padding_zeroes</a>/imm32/subx-name +<span id="L31508" class="LineNr">31508 </span> 1/imm32/rm32-is-first-inout +<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> 2/imm32/imm8-is-second-inout +<span id="L31512" class="LineNr">31512 </span> 0/imm32/no-disp32 +<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-shift-mem-right-signed-by-lit</a>/imm32/next +<span id="L31517" class="LineNr">31517 </span><span class="subxMinorFunction">_Primitive-shift-mem-right-signed-by-lit</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> <span class="subxComment"># shift-right-signed var1, lit => c1/shift 7/subop/right-preserving-sign var1/rm32 lit/imm32</span> +<span id="L31520" class="LineNr">31520 </span> 0x11/imm32/alloc-id:fake +<span id="L31521" class="LineNr">31521 </span> <a href='mu.subx.html#L34345'>_string-shift-right-signed</a>/imm32/name +<span id="L31522" class="LineNr">31522 </span> 0x11/imm32/alloc-id:fake +<span id="L31523" class="LineNr">31523 </span> <span class="SpecialChar"><a href='mu.subx.html#L34977'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L31524" class="LineNr">31524 </span> 0/imm32/no-outputs +<span id="L31525" class="LineNr">31525 </span> 0/imm32/no-outputs <span id="L31526" class="LineNr">31526 </span> 0x11/imm32/alloc-id:fake -<span id="L31527" class="LineNr">31527 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L31528" class="LineNr">31528 </span> 0x11/imm32/alloc-id:fake -<span id="L31529" class="LineNr">31529 </span> <span class="SpecialChar"><a href='mu.subx.html#L34815'>Single-int-var-in-esi</a></span>/imm32/outputs -<span id="L31530" class="LineNr">31530 </span> 0x11/imm32/alloc-id:fake -<span id="L31531" class="LineNr">31531 </span> <a href='mu.subx.html#L34513'>_string_be_copy_to_esi</a>/imm32/subx-name -<span id="L31532" class="LineNr">31532 </span> 0/imm32/no-rm32 -<span id="L31533" class="LineNr">31533 </span> 0/imm32/no-r32 -<span id="L31534" class="LineNr">31534 </span> 1/imm32/imm32-is-first-inout -<span id="L31535" class="LineNr">31535 </span> 0/imm32/no-imm8 -<span id="L31536" class="LineNr">31536 </span> 0/imm32/no-disp32 -<span id="L31537" class="LineNr">31537 </span> 0/imm32/no-xm32 -<span id="L31538" class="LineNr">31538 </span> 0/imm32/no-x32 -<span id="L31539" class="LineNr">31539 </span> 0x11/imm32/alloc-id:fake -<span id="L31540" class="LineNr">31540 </span> <a href='mu.subx.html#L31541'>_Primitive-copy-to-edi</a>/imm32/next -<span id="L31541" class="LineNr">31541 </span><span class="subxMinorFunction">_Primitive-copy-to-edi</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31542" class="LineNr">31542 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31543" class="LineNr">31543 </span> <span class="subxComment"># var/edi <- copy lit => bf/copy-to-edi lit/imm32</span> -<span id="L31544" class="LineNr">31544 </span> 0x11/imm32/alloc-id:fake -<span id="L31545" class="LineNr">31545 </span> <a href='mu.subx.html#L33851'>_string-copy</a>/imm32/name -<span id="L31546" class="LineNr">31546 </span> 0x11/imm32/alloc-id:fake -<span id="L31547" class="LineNr">31547 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L31548" class="LineNr">31548 </span> 0x11/imm32/alloc-id:fake -<span id="L31549" class="LineNr">31549 </span> <span class="SpecialChar"><a href='mu.subx.html#L34833'>Single-int-var-in-edi</a></span>/imm32/outputs -<span id="L31550" class="LineNr">31550 </span> 0x11/imm32/alloc-id:fake -<span id="L31551" class="LineNr">31551 </span> <a href='mu.subx.html#L34518'>_string_bf_copy_to_edi</a>/imm32/subx-name -<span id="L31552" class="LineNr">31552 </span> 0/imm32/no-rm32 -<span id="L31553" class="LineNr">31553 </span> 0/imm32/no-r32 -<span id="L31554" class="LineNr">31554 </span> 1/imm32/imm32-is-first-inout -<span id="L31555" class="LineNr">31555 </span> 0/imm32/no-imm8 -<span id="L31556" class="LineNr">31556 </span> 0/imm32/no-disp32 -<span id="L31557" class="LineNr">31557 </span> 0/imm32/no-xm32 -<span id="L31558" class="LineNr">31558 </span> 0/imm32/no-x32 -<span id="L31559" class="LineNr">31559 </span> 0x11/imm32/alloc-id:fake -<span id="L31560" class="LineNr">31560 </span> <a href='mu.subx.html#L31561'>_Primitive-copy-reg-to-reg</a>/imm32/next -<span id="L31561" class="LineNr">31561 </span><span class="subxMinorFunction">_Primitive-copy-reg-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31562" class="LineNr">31562 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31563" class="LineNr">31563 </span> <span class="subxComment"># var1/reg <- copy var2/reg => 89/<- var1/rm32 var2/r32</span> -<span id="L31564" class="LineNr">31564 </span> 0x11/imm32/alloc-id:fake -<span id="L31565" class="LineNr">31565 </span> <a href='mu.subx.html#L33851'>_string-copy</a>/imm32/name -<span id="L31566" class="LineNr">31566 </span> 0x11/imm32/alloc-id:fake -<span id="L31567" class="LineNr">31567 </span> <span class="SpecialChar"><a href='mu.subx.html#L34683'>Single-int-var-in-some-register</a></span>/imm32/inouts -<span id="L31568" class="LineNr">31568 </span> 0x11/imm32/alloc-id:fake -<span id="L31569" class="LineNr">31569 </span> <span class="SpecialChar"><a href='mu.subx.html#L34683'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L31570" class="LineNr">31570 </span> 0x11/imm32/alloc-id:fake -<span id="L31571" class="LineNr">31571 </span> <a href='mu.subx.html#L34468'>_string_89_<-</a>/imm32/subx-name -<span id="L31572" class="LineNr">31572 </span> 3/imm32/rm32-is-first-output -<span id="L31573" class="LineNr">31573 </span> 1/imm32/r32-is-first-inout -<span id="L31574" class="LineNr">31574 </span> 0/imm32/no-imm32 -<span id="L31575" class="LineNr">31575 </span> 0/imm32/no-imm8 -<span id="L31576" class="LineNr">31576 </span> 0/imm32/no-disp32 -<span id="L31577" class="LineNr">31577 </span> 0/imm32/no-xm32 -<span id="L31578" class="LineNr">31578 </span> 0/imm32/no-x32 -<span id="L31579" class="LineNr">31579 </span> 0x11/imm32/alloc-id:fake -<span id="L31580" class="LineNr">31580 </span> <a href='mu.subx.html#L31581'>_Primitive-copy-reg-to-mem</a>/imm32/next -<span id="L31581" class="LineNr">31581 </span><span class="subxMinorFunction">_Primitive-copy-reg-to-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31582" class="LineNr">31582 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31583" class="LineNr">31583 </span> <span class="subxComment"># copy-to var1 var2/reg => 89/<- var1 var2/r32</span> -<span id="L31584" class="LineNr">31584 </span> 0x11/imm32/alloc-id:fake -<span id="L31585" class="LineNr">31585 </span> <a href='mu.subx.html#L33856'>_string-copy-to</a>/imm32/name -<span id="L31586" class="LineNr">31586 </span> 0x11/imm32/alloc-id:fake -<span id="L31587" class="LineNr">31587 </span> <span class="SpecialChar"><a href='mu.subx.html#L34612'>Two-args-int-stack-int-reg</a></span>/imm32/inouts -<span id="L31588" class="LineNr">31588 </span> 0/imm32/no-outputs -<span id="L31589" class="LineNr">31589 </span> 0/imm32/no-outputs -<span id="L31590" class="LineNr">31590 </span> 0x11/imm32/alloc-id:fake -<span id="L31591" class="LineNr">31591 </span> <a href='mu.subx.html#L34468'>_string_89_<-</a>/imm32/subx-name -<span id="L31592" class="LineNr">31592 </span> 1/imm32/rm32-is-first-inout -<span id="L31593" class="LineNr">31593 </span> 2/imm32/r32-is-second-inout -<span id="L31594" class="LineNr">31594 </span> 0/imm32/no-imm32 -<span id="L31595" class="LineNr">31595 </span> 0/imm32/no-imm8 -<span id="L31596" class="LineNr">31596 </span> 0/imm32/no-disp32 -<span id="L31597" class="LineNr">31597 </span> 0/imm32/no-xm32 -<span id="L31598" class="LineNr">31598 </span> 0/imm32/no-x32 -<span id="L31599" class="LineNr">31599 </span> 0x11/imm32/alloc-id:fake -<span id="L31600" class="LineNr">31600 </span> <a href='mu.subx.html#L31601'>_Primitive-copy-mem-to-reg</a>/imm32/next -<span id="L31601" class="LineNr">31601 </span><span class="subxMinorFunction">_Primitive-copy-mem-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31602" class="LineNr">31602 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31603" class="LineNr">31603 </span> <span class="subxComment"># var1/reg <- copy var2 => 8b/-> var2/rm32 var1/r32</span> -<span id="L31604" class="LineNr">31604 </span> 0x11/imm32/alloc-id:fake -<span id="L31605" class="LineNr">31605 </span> <a href='mu.subx.html#L33851'>_string-copy</a>/imm32/name -<span id="L31606" class="LineNr">31606 </span> 0x11/imm32/alloc-id:fake -<span id="L31607" class="LineNr">31607 </span> <span class="SpecialChar"><a href='mu.subx.html#L34574'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L31608" class="LineNr">31608 </span> 0x11/imm32/alloc-id:fake -<span id="L31609" class="LineNr">31609 </span> <span class="SpecialChar"><a href='mu.subx.html#L34683'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L31610" class="LineNr">31610 </span> 0x11/imm32/alloc-id:fake -<span id="L31611" class="LineNr">31611 </span> <a href='mu.subx.html#L34473'>_string_8b_-></a>/imm32/subx-name -<span id="L31612" class="LineNr">31612 </span> 1/imm32/rm32-is-first-inout -<span id="L31613" class="LineNr">31613 </span> 3/imm32/r32-is-first-output -<span id="L31614" class="LineNr">31614 </span> 0/imm32/no-imm32 -<span id="L31615" class="LineNr">31615 </span> 0/imm32/no-imm8 -<span id="L31616" class="LineNr">31616 </span> 0/imm32/no-disp32 -<span id="L31617" class="LineNr">31617 </span> 0/imm32/no-xm32 -<span id="L31618" class="LineNr">31618 </span> 0/imm32/no-x32 -<span id="L31619" class="LineNr">31619 </span> 0x11/imm32/alloc-id:fake -<span id="L31620" class="LineNr">31620 </span> <a href='mu.subx.html#L31621'>_Primitive-copy-lit-to-reg</a>/imm32/next -<span id="L31621" class="LineNr">31621 </span><span class="subxMinorFunction">_Primitive-copy-lit-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31622" class="LineNr">31622 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31623" class="LineNr">31623 </span> <span class="subxComment"># var1/reg <- copy lit => c7 0/subop/copy var1/rm32 lit/imm32</span> -<span id="L31624" class="LineNr">31624 </span> 0x11/imm32/alloc-id:fake -<span id="L31625" class="LineNr">31625 </span> <a href='mu.subx.html#L33851'>_string-copy</a>/imm32/name -<span id="L31626" class="LineNr">31626 </span> 0x11/imm32/alloc-id:fake -<span id="L31627" class="LineNr">31627 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L31628" class="LineNr">31628 </span> 0x11/imm32/alloc-id:fake -<span id="L31629" class="LineNr">31629 </span> <span class="SpecialChar"><a href='mu.subx.html#L34683'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L31630" class="LineNr">31630 </span> 0x11/imm32/alloc-id:fake -<span id="L31631" class="LineNr">31631 </span> <a href='mu.subx.html#L34523'>_string_c7_subop_copy</a>/imm32/subx-name -<span id="L31632" class="LineNr">31632 </span> 3/imm32/rm32-is-first-output -<span id="L31633" class="LineNr">31633 </span> 0/imm32/no-r32 -<span id="L31634" class="LineNr">31634 </span> 1/imm32/imm32-is-first-inout -<span id="L31635" class="LineNr">31635 </span> 0/imm32/no-imm8 -<span id="L31636" class="LineNr">31636 </span> 0/imm32/no-disp32 -<span id="L31637" class="LineNr">31637 </span> 0/imm32/no-xm32 -<span id="L31638" class="LineNr">31638 </span> 0/imm32/no-x32 -<span id="L31639" class="LineNr">31639 </span> 0x11/imm32/alloc-id:fake -<span id="L31640" class="LineNr">31640 </span> <a href='mu.subx.html#L31641'>_Primitive-copy-lit-to-mem</a>/imm32/next -<span id="L31641" class="LineNr">31641 </span><span class="subxMinorFunction">_Primitive-copy-lit-to-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31642" class="LineNr">31642 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31643" class="LineNr">31643 </span> <span class="subxComment"># copy-to var1, lit => c7 0/subop/copy var1/rm32 lit/imm32</span> -<span id="L31644" class="LineNr">31644 </span> 0x11/imm32/alloc-id:fake -<span id="L31645" class="LineNr">31645 </span> <a href='mu.subx.html#L33856'>_string-copy-to</a>/imm32/name -<span id="L31646" class="LineNr">31646 </span> 0x11/imm32/alloc-id:fake -<span id="L31647" class="LineNr">31647 </span> <span class="SpecialChar"><a href='mu.subx.html#L34648'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L31648" class="LineNr">31648 </span> 0/imm32/no-outputs -<span id="L31649" class="LineNr">31649 </span> 0/imm32/no-outputs -<span id="L31650" class="LineNr">31650 </span> 0x11/imm32/alloc-id:fake -<span id="L31651" class="LineNr">31651 </span> <a href='mu.subx.html#L34523'>_string_c7_subop_copy</a>/imm32/subx-name -<span id="L31652" class="LineNr">31652 </span> 1/imm32/rm32-is-first-inout -<span id="L31653" class="LineNr">31653 </span> 0/imm32/no-r32 -<span id="L31654" class="LineNr">31654 </span> 2/imm32/imm32-is-second-inout -<span id="L31655" class="LineNr">31655 </span> 0/imm32/no-imm8 -<span id="L31656" class="LineNr">31656 </span> 0/imm32/no-disp32 -<span id="L31657" class="LineNr">31657 </span> 0/imm32/no-xm32 -<span id="L31658" class="LineNr">31658 </span> 0/imm32/no-x32 -<span id="L31659" class="LineNr">31659 </span> 0x11/imm32/alloc-id:fake -<span id="L31660" class="LineNr">31660 </span> <a href='mu.subx.html#L31662'>_Primitive-copy-byte-from-reg</a>/imm32/next -<span id="L31661" class="LineNr">31661 </span><span class="subxH1Comment"># - copy byte</span> -<span id="L31662" class="LineNr">31662 </span><span class="subxMinorFunction">_Primitive-copy-byte-from-reg</span>: -<span id="L31663" class="LineNr">31663 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31664" class="LineNr">31664 </span> <span class="subxComment"># var/reg <- copy-byte var2/reg2 => 8a/byte-> %var2 var/r32</span> +<span id="L31527" class="LineNr">31527 </span> <a href='mu.subx.html#L34897'>_string_c1_subop_shift_right_preserving_sign</a>/imm32/subx-name +<span id="L31528" class="LineNr">31528 </span> 1/imm32/rm32-is-first-inout +<span id="L31529" class="LineNr">31529 </span> 0/imm32/no-r32 +<span id="L31530" class="LineNr">31530 </span> 0/imm32/no-imm32 +<span id="L31531" class="LineNr">31531 </span> 2/imm32/imm8-is-second-inout +<span id="L31532" class="LineNr">31532 </span> 0/imm32/no-disp32 +<span id="L31533" class="LineNr">31533 </span> 0/imm32/no-xm32 +<span id="L31534" class="LineNr">31534 </span> 0/imm32/no-x32 +<span id="L31535" class="LineNr">31535 </span> 0x11/imm32/alloc-id:fake +<span id="L31536" class="LineNr">31536 </span> <a href='mu.subx.html#L31538'>_Primitive-copy-to-eax</a>/imm32/next +<span id="L31537" class="LineNr">31537 </span><span class="subxH1Comment"># - copy</span> +<span id="L31538" class="LineNr">31538 </span><span class="subxMinorFunction">_Primitive-copy-to-eax</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31539" class="LineNr">31539 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31540" class="LineNr">31540 </span> <span class="subxComment"># var/eax <- copy lit => b8/copy-to-eax lit/imm32</span> +<span id="L31541" class="LineNr">31541 </span> 0x11/imm32/alloc-id:fake +<span id="L31542" class="LineNr">31542 </span> <a href='mu.subx.html#L34120'>_string-copy</a>/imm32/name +<span id="L31543" class="LineNr">31543 </span> 0x11/imm32/alloc-id:fake +<span id="L31544" class="LineNr">31544 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts +<span id="L31545" class="LineNr">31545 </span> 0x11/imm32/alloc-id:fake +<span id="L31546" class="LineNr">31546 </span> <span class="SpecialChar"><a href='mu.subx.html#L35072'>Single-int-var-in-eax</a></span>/imm32/outputs +<span id="L31547" class="LineNr">31547 </span> 0x11/imm32/alloc-id:fake +<span id="L31548" class="LineNr">31548 </span> <a href='mu.subx.html#L34817'>_string_b8_copy_to_eax</a>/imm32/subx-name +<span id="L31549" class="LineNr">31549 </span> 0/imm32/no-rm32 +<span id="L31550" class="LineNr">31550 </span> 0/imm32/no-r32 +<span id="L31551" class="LineNr">31551 </span> 1/imm32/imm32-is-first-inout +<span id="L31552" class="LineNr">31552 </span> 0/imm32/no-imm8 +<span id="L31553" class="LineNr">31553 </span> 0/imm32/no-disp32 +<span id="L31554" class="LineNr">31554 </span> 0/imm32/no-xm32 +<span id="L31555" class="LineNr">31555 </span> 0/imm32/no-x32 +<span id="L31556" class="LineNr">31556 </span> 0x11/imm32/alloc-id:fake +<span id="L31557" class="LineNr">31557 </span> <a href='mu.subx.html#L31558'>_Primitive-copy-to-ecx</a>/imm32/next +<span id="L31558" class="LineNr">31558 </span><span class="subxMinorFunction">_Primitive-copy-to-ecx</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31559" class="LineNr">31559 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31560" class="LineNr">31560 </span> <span class="subxComment"># var/ecx <- copy lit => b9/copy-to-ecx lit/imm32</span> +<span id="L31561" class="LineNr">31561 </span> 0x11/imm32/alloc-id:fake +<span id="L31562" class="LineNr">31562 </span> <a href='mu.subx.html#L34120'>_string-copy</a>/imm32/name +<span id="L31563" class="LineNr">31563 </span> 0x11/imm32/alloc-id:fake +<span id="L31564" class="LineNr">31564 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts +<span id="L31565" class="LineNr">31565 </span> 0x11/imm32/alloc-id:fake +<span id="L31566" class="LineNr">31566 </span> <span class="SpecialChar"><a href='mu.subx.html#L35090'>Single-int-var-in-ecx</a></span>/imm32/outputs +<span id="L31567" class="LineNr">31567 </span> 0x11/imm32/alloc-id:fake +<span id="L31568" class="LineNr">31568 </span> <a href='mu.subx.html#L34822'>_string_b9_copy_to_ecx</a>/imm32/subx-name +<span id="L31569" class="LineNr">31569 </span> 0/imm32/no-rm32 +<span id="L31570" class="LineNr">31570 </span> 0/imm32/no-r32 +<span id="L31571" class="LineNr">31571 </span> 1/imm32/imm32-is-first-inout +<span id="L31572" class="LineNr">31572 </span> 0/imm32/no-imm8 +<span id="L31573" class="LineNr">31573 </span> 0/imm32/no-disp32 +<span id="L31574" class="LineNr">31574 </span> 0/imm32/no-xm32 +<span id="L31575" class="LineNr">31575 </span> 0/imm32/no-x32 +<span id="L31576" class="LineNr">31576 </span> 0x11/imm32/alloc-id:fake +<span id="L31577" class="LineNr">31577 </span> <a href='mu.subx.html#L31578'>_Primitive-copy-to-edx</a>/imm32/next +<span id="L31578" class="LineNr">31578 </span><span class="subxMinorFunction">_Primitive-copy-to-edx</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31579" class="LineNr">31579 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31580" class="LineNr">31580 </span> <span class="subxComment"># var/edx <- copy lit => ba/copy-to-edx lit/imm32</span> +<span id="L31581" class="LineNr">31581 </span> 0x11/imm32/alloc-id:fake +<span id="L31582" class="LineNr">31582 </span> <a href='mu.subx.html#L34120'>_string-copy</a>/imm32/name +<span id="L31583" class="LineNr">31583 </span> 0x11/imm32/alloc-id:fake +<span id="L31584" class="LineNr">31584 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts +<span id="L31585" class="LineNr">31585 </span> 0x11/imm32/alloc-id:fake +<span id="L31586" class="LineNr">31586 </span> <span class="SpecialChar"><a href='mu.subx.html#L35108'>Single-int-var-in-edx</a></span>/imm32/outputs +<span id="L31587" class="LineNr">31587 </span> 0x11/imm32/alloc-id:fake +<span id="L31588" class="LineNr">31588 </span> <a href='mu.subx.html#L34827'>_string_ba_copy_to_edx</a>/imm32/subx-name +<span id="L31589" class="LineNr">31589 </span> 0/imm32/no-rm32 +<span id="L31590" class="LineNr">31590 </span> 0/imm32/no-r32 +<span id="L31591" class="LineNr">31591 </span> 1/imm32/imm32-is-first-inout +<span id="L31592" class="LineNr">31592 </span> 0/imm32/no-imm8 +<span id="L31593" class="LineNr">31593 </span> 0/imm32/no-disp32 +<span id="L31594" class="LineNr">31594 </span> 0/imm32/no-xm32 +<span id="L31595" class="LineNr">31595 </span> 0/imm32/no-x32 +<span id="L31596" class="LineNr">31596 </span> 0x11/imm32/alloc-id:fake +<span id="L31597" class="LineNr">31597 </span> <a href='mu.subx.html#L31598'>_Primitive-copy-to-ebx</a>/imm32/next +<span id="L31598" class="LineNr">31598 </span><span class="subxMinorFunction">_Primitive-copy-to-ebx</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31599" class="LineNr">31599 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31600" class="LineNr">31600 </span> <span class="subxComment"># var/ebx <- copy lit => bb/copy-to-ebx lit/imm32</span> +<span id="L31601" class="LineNr">31601 </span> 0x11/imm32/alloc-id:fake +<span id="L31602" class="LineNr">31602 </span> <a href='mu.subx.html#L34120'>_string-copy</a>/imm32/name +<span id="L31603" class="LineNr">31603 </span> 0x11/imm32/alloc-id:fake +<span id="L31604" class="LineNr">31604 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts +<span id="L31605" class="LineNr">31605 </span> 0x11/imm32/alloc-id:fake +<span id="L31606" class="LineNr">31606 </span> <span class="SpecialChar"><a href='mu.subx.html#L35126'>Single-int-var-in-ebx</a></span>/imm32/outputs +<span id="L31607" class="LineNr">31607 </span> 0x11/imm32/alloc-id:fake +<span id="L31608" class="LineNr">31608 </span> <a href='mu.subx.html#L34832'>_string_bb_copy_to_ebx</a>/imm32/subx-name +<span id="L31609" class="LineNr">31609 </span> 0/imm32/no-rm32 +<span id="L31610" class="LineNr">31610 </span> 0/imm32/no-r32 +<span id="L31611" class="LineNr">31611 </span> 1/imm32/imm32-is-first-inout +<span id="L31612" class="LineNr">31612 </span> 0/imm32/no-imm8 +<span id="L31613" class="LineNr">31613 </span> 0/imm32/no-disp32 +<span id="L31614" class="LineNr">31614 </span> 0/imm32/no-xm32 +<span id="L31615" class="LineNr">31615 </span> 0/imm32/no-x32 +<span id="L31616" class="LineNr">31616 </span> 0x11/imm32/alloc-id:fake +<span id="L31617" class="LineNr">31617 </span> <a href='mu.subx.html#L31618'>_Primitive-copy-to-esi</a>/imm32/next +<span id="L31618" class="LineNr">31618 </span><span class="subxMinorFunction">_Primitive-copy-to-esi</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31619" class="LineNr">31619 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31620" class="LineNr">31620 </span> <span class="subxComment"># var/esi <- copy lit => be/copy-to-esi lit/imm32</span> +<span id="L31621" class="LineNr">31621 </span> 0x11/imm32/alloc-id:fake +<span id="L31622" class="LineNr">31622 </span> <a href='mu.subx.html#L34120'>_string-copy</a>/imm32/name +<span id="L31623" class="LineNr">31623 </span> 0x11/imm32/alloc-id:fake +<span id="L31624" class="LineNr">31624 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts +<span id="L31625" class="LineNr">31625 </span> 0x11/imm32/alloc-id:fake +<span id="L31626" class="LineNr">31626 </span> <span class="SpecialChar"><a href='mu.subx.html#L35144'>Single-int-var-in-esi</a></span>/imm32/outputs +<span id="L31627" class="LineNr">31627 </span> 0x11/imm32/alloc-id:fake +<span id="L31628" class="LineNr">31628 </span> <a href='mu.subx.html#L34837'>_string_be_copy_to_esi</a>/imm32/subx-name +<span id="L31629" class="LineNr">31629 </span> 0/imm32/no-rm32 +<span id="L31630" class="LineNr">31630 </span> 0/imm32/no-r32 +<span id="L31631" class="LineNr">31631 </span> 1/imm32/imm32-is-first-inout +<span id="L31632" class="LineNr">31632 </span> 0/imm32/no-imm8 +<span id="L31633" class="LineNr">31633 </span> 0/imm32/no-disp32 +<span id="L31634" class="LineNr">31634 </span> 0/imm32/no-xm32 +<span id="L31635" class="LineNr">31635 </span> 0/imm32/no-x32 +<span id="L31636" class="LineNr">31636 </span> 0x11/imm32/alloc-id:fake +<span id="L31637" class="LineNr">31637 </span> <a href='mu.subx.html#L31638'>_Primitive-copy-to-edi</a>/imm32/next +<span id="L31638" class="LineNr">31638 </span><span class="subxMinorFunction">_Primitive-copy-to-edi</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31639" class="LineNr">31639 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31640" class="LineNr">31640 </span> <span class="subxComment"># var/edi <- copy lit => bf/copy-to-edi lit/imm32</span> +<span id="L31641" class="LineNr">31641 </span> 0x11/imm32/alloc-id:fake +<span id="L31642" class="LineNr">31642 </span> <a href='mu.subx.html#L34120'>_string-copy</a>/imm32/name +<span id="L31643" class="LineNr">31643 </span> 0x11/imm32/alloc-id:fake +<span id="L31644" class="LineNr">31644 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts +<span id="L31645" class="LineNr">31645 </span> 0x11/imm32/alloc-id:fake +<span id="L31646" class="LineNr">31646 </span> <span class="SpecialChar"><a href='mu.subx.html#L35162'>Single-int-var-in-edi</a></span>/imm32/outputs +<span id="L31647" class="LineNr">31647 </span> 0x11/imm32/alloc-id:fake +<span id="L31648" class="LineNr">31648 </span> <a href='mu.subx.html#L34842'>_string_bf_copy_to_edi</a>/imm32/subx-name +<span id="L31649" class="LineNr">31649 </span> 0/imm32/no-rm32 +<span id="L31650" class="LineNr">31650 </span> 0/imm32/no-r32 +<span id="L31651" class="LineNr">31651 </span> 1/imm32/imm32-is-first-inout +<span id="L31652" class="LineNr">31652 </span> 0/imm32/no-imm8 +<span id="L31653" class="LineNr">31653 </span> 0/imm32/no-disp32 +<span id="L31654" class="LineNr">31654 </span> 0/imm32/no-xm32 +<span id="L31655" class="LineNr">31655 </span> 0/imm32/no-x32 +<span id="L31656" class="LineNr">31656 </span> 0x11/imm32/alloc-id:fake +<span id="L31657" class="LineNr">31657 </span> <a href='mu.subx.html#L31658'>_Primitive-copy-reg-to-reg</a>/imm32/next +<span id="L31658" class="LineNr">31658 </span><span class="subxMinorFunction">_Primitive-copy-reg-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31659" class="LineNr">31659 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31660" class="LineNr">31660 </span> <span class="subxComment"># var1/reg <- copy var2/reg => 89/<- var1/rm32 var2/r32</span> +<span id="L31661" class="LineNr">31661 </span> 0x11/imm32/alloc-id:fake +<span id="L31662" class="LineNr">31662 </span> <a href='mu.subx.html#L34120'>_string-copy</a>/imm32/name +<span id="L31663" class="LineNr">31663 </span> 0x11/imm32/alloc-id:fake +<span id="L31664" class="LineNr">31664 </span> <span class="SpecialChar"><a href='mu.subx.html#L35012'>Single-int-var-in-some-register</a></span>/imm32/inouts <span id="L31665" class="LineNr">31665 </span> 0x11/imm32/alloc-id:fake -<span id="L31666" class="LineNr">31666 </span> <a href='mu.subx.html#L33861'>_string-copy-byte</a>/imm32/name +<span id="L31666" class="LineNr">31666 </span> <span class="SpecialChar"><a href='mu.subx.html#L35012'>Single-int-var-in-some-register</a></span>/imm32/outputs <span id="L31667" class="LineNr">31667 </span> 0x11/imm32/alloc-id:fake -<span id="L31668" class="LineNr">31668 </span> <span class="SpecialChar"><a href='mu.subx.html#L34697'>Single-byte-var-in-some-register</a></span>/imm32/inouts -<span id="L31669" class="LineNr">31669 </span> 0x11/imm32/alloc-id:fake -<span id="L31670" class="LineNr">31670 </span> <span class="SpecialChar"><a href='mu.subx.html#L34697'>Single-byte-var-in-some-register</a></span>/imm32/outputs -<span id="L31671" class="LineNr">31671 </span> 0x11/imm32/alloc-id:fake -<span id="L31672" class="LineNr">31672 </span> <a href='mu.subx.html#L34478'>_string_8a_copy_byte</a>/imm32/subx-name -<span id="L31673" class="LineNr">31673 </span> 1/imm32/rm32-is-first-inout -<span id="L31674" class="LineNr">31674 </span> 3/imm32/r32-is-first-output -<span id="L31675" class="LineNr">31675 </span> 0/imm32/no-imm32 -<span id="L31676" class="LineNr">31676 </span> 0/imm32/no-imm8 -<span id="L31677" class="LineNr">31677 </span> 0/imm32/no-disp32 -<span id="L31678" class="LineNr">31678 </span> 0/imm32/no-xm32 -<span id="L31679" class="LineNr">31679 </span> 0/imm32/no-x32 -<span id="L31680" class="LineNr">31680 </span> 0x11/imm32/alloc-id:fake -<span id="L31681" class="LineNr">31681 </span> <a href='mu.subx.html#L31682'>_Primitive-copy-byte-from-mem</a>/imm32/next -<span id="L31682" class="LineNr">31682 </span><span class="subxMinorFunction">_Primitive-copy-byte-from-mem</span>: -<span id="L31683" class="LineNr">31683 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31684" class="LineNr">31684 </span> <span class="subxComment"># var/reg <- copy-byte *var2/reg2 => 8a/byte-> *var2 var/r32</span> -<span id="L31685" class="LineNr">31685 </span> 0x11/imm32/alloc-id:fake -<span id="L31686" class="LineNr">31686 </span> <a href='mu.subx.html#L33861'>_string-copy-byte</a>/imm32/name +<span id="L31668" class="LineNr">31668 </span> <a href='mu.subx.html#L34792'>_string_89_<-</a>/imm32/subx-name +<span id="L31669" class="LineNr">31669 </span> 3/imm32/rm32-is-first-output +<span id="L31670" class="LineNr">31670 </span> 1/imm32/r32-is-first-inout +<span id="L31671" class="LineNr">31671 </span> 0/imm32/no-imm32 +<span id="L31672" class="LineNr">31672 </span> 0/imm32/no-imm8 +<span id="L31673" class="LineNr">31673 </span> 0/imm32/no-disp32 +<span id="L31674" class="LineNr">31674 </span> 0/imm32/no-xm32 +<span id="L31675" class="LineNr">31675 </span> 0/imm32/no-x32 +<span id="L31676" class="LineNr">31676 </span> 0x11/imm32/alloc-id:fake +<span id="L31677" class="LineNr">31677 </span> <a href='mu.subx.html#L31678'>_Primitive-copy-reg-to-mem</a>/imm32/next +<span id="L31678" class="LineNr">31678 </span><span class="subxMinorFunction">_Primitive-copy-reg-to-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31679" class="LineNr">31679 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31680" class="LineNr">31680 </span> <span class="subxComment"># copy-to var1 var2/reg => 89/<- var1 var2/r32</span> +<span id="L31681" class="LineNr">31681 </span> 0x11/imm32/alloc-id:fake +<span id="L31682" class="LineNr">31682 </span> <a href='mu.subx.html#L34125'>_string-copy-to</a>/imm32/name +<span id="L31683" class="LineNr">31683 </span> 0x11/imm32/alloc-id:fake +<span id="L31684" class="LineNr">31684 </span> <span class="SpecialChar"><a href='mu.subx.html#L34941'>Two-args-int-stack-int-reg</a></span>/imm32/inouts +<span id="L31685" class="LineNr">31685 </span> 0/imm32/no-outputs +<span id="L31686" class="LineNr">31686 </span> 0/imm32/no-outputs <span id="L31687" class="LineNr">31687 </span> 0x11/imm32/alloc-id:fake -<span id="L31688" class="LineNr">31688 </span> <span class="SpecialChar"><a href='mu.subx.html#L34593'>Single-byte-var-in-mem</a></span>/imm32/inouts -<span id="L31689" class="LineNr">31689 </span> 0x11/imm32/alloc-id:fake -<span id="L31690" class="LineNr">31690 </span> <span class="SpecialChar"><a href='mu.subx.html#L34697'>Single-byte-var-in-some-register</a></span>/imm32/outputs -<span id="L31691" class="LineNr">31691 </span> 0x11/imm32/alloc-id:fake -<span id="L31692" class="LineNr">31692 </span> <a href='mu.subx.html#L34478'>_string_8a_copy_byte</a>/imm32/subx-name -<span id="L31693" class="LineNr">31693 </span> 1/imm32/rm32-is-first-inout -<span id="L31694" class="LineNr">31694 </span> 3/imm32/r32-is-first-output -<span id="L31695" class="LineNr">31695 </span> 0/imm32/no-imm32 -<span id="L31696" class="LineNr">31696 </span> 0/imm32/no-imm8 -<span id="L31697" class="LineNr">31697 </span> 0/imm32/no-disp32 -<span id="L31698" class="LineNr">31698 </span> 0/imm32/no-xm32 -<span id="L31699" class="LineNr">31699 </span> 0/imm32/no-x32 -<span id="L31700" class="LineNr">31700 </span> 0x11/imm32/alloc-id:fake -<span id="L31701" class="LineNr">31701 </span> <a href='mu.subx.html#L31702'>_Primitive-copy-byte-to-mem</a>/imm32/next -<span id="L31702" class="LineNr">31702 </span><span class="subxMinorFunction">_Primitive-copy-byte-to-mem</span>: -<span id="L31703" class="LineNr">31703 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31704" class="LineNr">31704 </span> <span class="subxComment"># copy-byte-to *var1/reg1, var2/reg2 => 88/byte<- *reg1 reg2/r32</span> +<span id="L31688" class="LineNr">31688 </span> <a href='mu.subx.html#L34792'>_string_89_<-</a>/imm32/subx-name +<span id="L31689" class="LineNr">31689 </span> 1/imm32/rm32-is-first-inout +<span id="L31690" class="LineNr">31690 </span> 2/imm32/r32-is-second-inout +<span id="L31691" class="LineNr">31691 </span> 0/imm32/no-imm32 +<span id="L31692" class="LineNr">31692 </span> 0/imm32/no-imm8 +<span id="L31693" class="LineNr">31693 </span> 0/imm32/no-disp32 +<span id="L31694" class="LineNr">31694 </span> 0/imm32/no-xm32 +<span id="L31695" class="LineNr">31695 </span> 0/imm32/no-x32 +<span id="L31696" class="LineNr">31696 </span> 0x11/imm32/alloc-id:fake +<span id="L31697" class="LineNr">31697 </span> <a href='mu.subx.html#L31698'>_Primitive-copy-mem-to-reg</a>/imm32/next +<span id="L31698" class="LineNr">31698 </span><span class="subxMinorFunction">_Primitive-copy-mem-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31699" class="LineNr">31699 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31700" class="LineNr">31700 </span> <span class="subxComment"># var1/reg <- copy var2 => 8b/-> var2/rm32 var1/r32</span> +<span id="L31701" class="LineNr">31701 </span> 0x11/imm32/alloc-id:fake +<span id="L31702" class="LineNr">31702 </span> <a href='mu.subx.html#L34120'>_string-copy</a>/imm32/name +<span id="L31703" class="LineNr">31703 </span> 0x11/imm32/alloc-id:fake +<span id="L31704" class="LineNr">31704 </span> <span class="SpecialChar"><a href='mu.subx.html#L34903'>Single-int-var-in-mem</a></span>/imm32/inouts <span id="L31705" class="LineNr">31705 </span> 0x11/imm32/alloc-id:fake -<span id="L31706" class="LineNr">31706 </span> <a href='mu.subx.html#L33866'>_string-copy-byte-to</a>/imm32/name +<span id="L31706" class="LineNr">31706 </span> <span class="SpecialChar"><a href='mu.subx.html#L35012'>Single-int-var-in-some-register</a></span>/imm32/outputs <span id="L31707" class="LineNr">31707 </span> 0x11/imm32/alloc-id:fake -<span id="L31708" class="LineNr">31708 </span> <span class="SpecialChar"><a href='mu.subx.html#L34627'>Two-args-byte-stack-byte-reg</a></span>/imm32/inouts -<span id="L31709" class="LineNr">31709 </span> 0/imm32/no-outputs -<span id="L31710" class="LineNr">31710 </span> 0/imm32/no-outputs -<span id="L31711" class="LineNr">31711 </span> 0x11/imm32/alloc-id:fake -<span id="L31712" class="LineNr">31712 </span> <a href='mu.subx.html#L34483'>_string_88_copy_byte</a>/imm32/subx-name -<span id="L31713" class="LineNr">31713 </span> 1/imm32/rm32-is-first-inout -<span id="L31714" class="LineNr">31714 </span> 2/imm32/r32-is-second-inout -<span id="L31715" class="LineNr">31715 </span> 0/imm32/no-imm32 -<span id="L31716" class="LineNr">31716 </span> 0/imm32/no-imm8 -<span id="L31717" class="LineNr">31717 </span> 0/imm32/no-disp32 -<span id="L31718" class="LineNr">31718 </span> 0/imm32/no-xm32 -<span id="L31719" class="LineNr">31719 </span> 0/imm32/no-x32 -<span id="L31720" class="LineNr">31720 </span> 0x11/imm32/alloc-id:fake -<span id="L31721" class="LineNr">31721 </span> <a href='mu.subx.html#L31723'>_Primitive-address</a>/imm32/next -<span id="L31722" class="LineNr">31722 </span><span class="subxH1Comment"># - address</span> -<span id="L31723" class="LineNr">31723 </span><span class="subxMinorFunction">_Primitive-address</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31724" class="LineNr">31724 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31725" class="LineNr">31725 </span> <span class="subxComment"># var1/reg <- address var2 => 8d/copy-address var2/rm32 var1/r32</span> -<span id="L31726" class="LineNr">31726 </span> 0x11/imm32/alloc-id:fake -<span id="L31727" class="LineNr">31727 </span> <a href='mu.subx.html#L33751'>_string-address</a>/imm32/name -<span id="L31728" class="LineNr">31728 </span> 0x11/imm32/alloc-id:fake -<span id="L31729" class="LineNr">31729 </span> <span class="SpecialChar"><a href='mu.subx.html#L34574'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L31730" class="LineNr">31730 </span> 0x11/imm32/alloc-id:fake -<span id="L31731" class="LineNr">31731 </span> <span class="SpecialChar"><a href='mu.subx.html#L34690'>Single-addr-var-in-some-register</a></span>/imm32/outputs -<span id="L31732" class="LineNr">31732 </span> 0x11/imm32/alloc-id:fake -<span id="L31733" class="LineNr">31733 </span> <a href='mu.subx.html#L34488'>_string_8d_copy_address</a>/imm32/subx-name -<span id="L31734" class="LineNr">31734 </span> 1/imm32/rm32-is-first-inout -<span id="L31735" class="LineNr">31735 </span> 3/imm32/r32-is-first-output -<span id="L31736" class="LineNr">31736 </span> 0/imm32/no-imm32 -<span id="L31737" class="LineNr">31737 </span> 0/imm32/no-imm8 -<span id="L31738" class="LineNr">31738 </span> 0/imm32/no-disp32 -<span id="L31739" class="LineNr">31739 </span> 0/imm32/no-xm32 -<span id="L31740" class="LineNr">31740 </span> 0/imm32/no-x32 +<span id="L31708" class="LineNr">31708 </span> <a href='mu.subx.html#L34797'>_string_8b_-></a>/imm32/subx-name +<span id="L31709" class="LineNr">31709 </span> 1/imm32/rm32-is-first-inout +<span id="L31710" class="LineNr">31710 </span> 3/imm32/r32-is-first-output +<span id="L31711" class="LineNr">31711 </span> 0/imm32/no-imm32 +<span id="L31712" class="LineNr">31712 </span> 0/imm32/no-imm8 +<span id="L31713" class="LineNr">31713 </span> 0/imm32/no-disp32 +<span id="L31714" class="LineNr">31714 </span> 0/imm32/no-xm32 +<span id="L31715" class="LineNr">31715 </span> 0/imm32/no-x32 +<span id="L31716" class="LineNr">31716 </span> 0x11/imm32/alloc-id:fake +<span id="L31717" class="LineNr">31717 </span> <a href='mu.subx.html#L31718'>_Primitive-copy-lit-to-reg</a>/imm32/next +<span id="L31718" class="LineNr">31718 </span><span class="subxMinorFunction">_Primitive-copy-lit-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31719" class="LineNr">31719 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31720" class="LineNr">31720 </span> <span class="subxComment"># var1/reg <- copy lit => c7 0/subop/copy var1/rm32 lit/imm32</span> +<span id="L31721" class="LineNr">31721 </span> 0x11/imm32/alloc-id:fake +<span id="L31722" class="LineNr">31722 </span> <a href='mu.subx.html#L34120'>_string-copy</a>/imm32/name +<span id="L31723" class="LineNr">31723 </span> 0x11/imm32/alloc-id:fake +<span id="L31724" class="LineNr">31724 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts +<span id="L31725" class="LineNr">31725 </span> 0x11/imm32/alloc-id:fake +<span id="L31726" class="LineNr">31726 </span> <span class="SpecialChar"><a href='mu.subx.html#L35012'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31727" class="LineNr">31727 </span> 0x11/imm32/alloc-id:fake +<span id="L31728" class="LineNr">31728 </span> <a href='mu.subx.html#L34847'>_string_c7_subop_copy</a>/imm32/subx-name +<span id="L31729" class="LineNr">31729 </span> 3/imm32/rm32-is-first-output +<span id="L31730" class="LineNr">31730 </span> 0/imm32/no-r32 +<span id="L31731" class="LineNr">31731 </span> 1/imm32/imm32-is-first-inout +<span id="L31732" class="LineNr">31732 </span> 0/imm32/no-imm8 +<span id="L31733" class="LineNr">31733 </span> 0/imm32/no-disp32 +<span id="L31734" class="LineNr">31734 </span> 0/imm32/no-xm32 +<span id="L31735" class="LineNr">31735 </span> 0/imm32/no-x32 +<span id="L31736" class="LineNr">31736 </span> 0x11/imm32/alloc-id:fake +<span id="L31737" class="LineNr">31737 </span> <a href='mu.subx.html#L31738'>_Primitive-copy-lit-to-mem</a>/imm32/next +<span id="L31738" class="LineNr">31738 </span><span class="subxMinorFunction">_Primitive-copy-lit-to-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31739" class="LineNr">31739 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31740" class="LineNr">31740 </span> <span class="subxComment"># copy-to var1, lit => c7 0/subop/copy var1/rm32 lit/imm32</span> <span id="L31741" class="LineNr">31741 </span> 0x11/imm32/alloc-id:fake -<span id="L31742" class="LineNr">31742 </span> <a href='mu.subx.html#L31744'>_Primitive-compare-reg-with-reg</a>/imm32/next -<span id="L31743" class="LineNr">31743 </span><span class="subxH1Comment"># - compare</span> -<span id="L31744" class="LineNr">31744 </span><span class="subxMinorFunction">_Primitive-compare-reg-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31745" class="LineNr">31745 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31746" class="LineNr">31746 </span> <span class="subxComment"># compare var1/reg1 var2/reg2 => 39/compare var1/rm32 var2/r32</span> +<span id="L31742" class="LineNr">31742 </span> <a href='mu.subx.html#L34125'>_string-copy-to</a>/imm32/name +<span id="L31743" class="LineNr">31743 </span> 0x11/imm32/alloc-id:fake +<span id="L31744" class="LineNr">31744 </span> <span class="SpecialChar"><a href='mu.subx.html#L34977'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L31745" class="LineNr">31745 </span> 0/imm32/no-outputs +<span id="L31746" class="LineNr">31746 </span> 0/imm32/no-outputs <span id="L31747" class="LineNr">31747 </span> 0x11/imm32/alloc-id:fake -<span id="L31748" class="LineNr">31748 </span> <a href='mu.subx.html#L33846'>_string-compare</a>/imm32/name -<span id="L31749" class="LineNr">31749 </span> 0x11/imm32/alloc-id:fake -<span id="L31750" class="LineNr">31750 </span> <span class="SpecialChar"><a href='mu.subx.html#L34619'>Two-int-args-in-regs</a></span>/imm32/inouts -<span id="L31751" class="LineNr">31751 </span> 0/imm32/no-outputs -<span id="L31752" class="LineNr">31752 </span> 0/imm32/no-outputs -<span id="L31753" class="LineNr">31753 </span> 0x11/imm32/alloc-id:fake -<span id="L31754" class="LineNr">31754 </span> <a href='mu.subx.html#L34363'>_string_39_compare-></a>/imm32/subx-name -<span id="L31755" class="LineNr">31755 </span> 1/imm32/rm32-is-first-inout -<span id="L31756" class="LineNr">31756 </span> 2/imm32/r32-is-second-inout -<span id="L31757" class="LineNr">31757 </span> 0/imm32/no-imm32 -<span id="L31758" class="LineNr">31758 </span> 0/imm32/no-imm8 -<span id="L31759" class="LineNr">31759 </span> 0/imm32/no-disp32 -<span id="L31760" class="LineNr">31760 </span> 0/imm32/no-xm32 -<span id="L31761" class="LineNr">31761 </span> 0/imm32/no-x32 +<span id="L31748" class="LineNr">31748 </span> <a href='mu.subx.html#L34847'>_string_c7_subop_copy</a>/imm32/subx-name +<span id="L31749" class="LineNr">31749 </span> 1/imm32/rm32-is-first-inout +<span id="L31750" class="LineNr">31750 </span> 0/imm32/no-r32 +<span id="L31751" class="LineNr">31751 </span> 2/imm32/imm32-is-second-inout +<span id="L31752" class="LineNr">31752 </span> 0/imm32/no-imm8 +<span id="L31753" class="LineNr">31753 </span> 0/imm32/no-disp32 +<span id="L31754" class="LineNr">31754 </span> 0/imm32/no-xm32 +<span id="L31755" class="LineNr">31755 </span> 0/imm32/no-x32 +<span id="L31756" class="LineNr">31756 </span> 0x11/imm32/alloc-id:fake +<span id="L31757" class="LineNr">31757 </span> <a href='mu.subx.html#L31759'>_Primitive-copy-byte-from-reg</a>/imm32/next +<span id="L31758" class="LineNr">31758 </span><span class="subxH1Comment"># - copy byte</span> +<span id="L31759" class="LineNr">31759 </span><span class="subxMinorFunction">_Primitive-copy-byte-from-reg</span>: +<span id="L31760" class="LineNr">31760 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31761" class="LineNr">31761 </span> <span class="subxComment"># var/reg <- copy-byte var2/reg2 => 8a/byte-> %var2 var/r32</span> <span id="L31762" class="LineNr">31762 </span> 0x11/imm32/alloc-id:fake -<span id="L31763" class="LineNr">31763 </span> <a href='mu.subx.html#L31764'>_Primitive-compare-mem-with-reg</a>/imm32/next -<span id="L31764" class="LineNr">31764 </span><span class="subxMinorFunction">_Primitive-compare-mem-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31765" class="LineNr">31765 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31766" class="LineNr">31766 </span> <span class="subxComment"># compare var1 var2/reg => 39/compare var1/rm32 var2/r32</span> -<span id="L31767" class="LineNr">31767 </span> 0x11/imm32/alloc-id:fake -<span id="L31768" class="LineNr">31768 </span> <a href='mu.subx.html#L33846'>_string-compare</a>/imm32/name -<span id="L31769" class="LineNr">31769 </span> 0x11/imm32/alloc-id:fake -<span id="L31770" class="LineNr">31770 </span> <span class="SpecialChar"><a href='mu.subx.html#L34612'>Two-args-int-stack-int-reg</a></span>/imm32/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#L34363'>_string_39_compare-></a>/imm32/subx-name -<span id="L31775" class="LineNr">31775 </span> 1/imm32/rm32-is-first-inout -<span id="L31776" class="LineNr">31776 </span> 2/imm32/r32-is-second-inout -<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="L31763" class="LineNr">31763 </span> <a href='mu.subx.html#L34130'>_string-copy-byte</a>/imm32/name +<span id="L31764" class="LineNr">31764 </span> 0x11/imm32/alloc-id:fake +<span id="L31765" class="LineNr">31765 </span> <span class="SpecialChar"><a href='mu.subx.html#L35026'>Single-byte-var-in-some-register</a></span>/imm32/inouts +<span id="L31766" class="LineNr">31766 </span> 0x11/imm32/alloc-id:fake +<span id="L31767" class="LineNr">31767 </span> <span class="SpecialChar"><a href='mu.subx.html#L35026'>Single-byte-var-in-some-register</a></span>/imm32/outputs +<span id="L31768" class="LineNr">31768 </span> 0x11/imm32/alloc-id:fake +<span id="L31769" class="LineNr">31769 </span> <a href='mu.subx.html#L34802'>_string_8a_copy_byte</a>/imm32/subx-name +<span id="L31770" class="LineNr">31770 </span> 1/imm32/rm32-is-first-inout +<span id="L31771" class="LineNr">31771 </span> 3/imm32/r32-is-first-output +<span id="L31772" class="LineNr">31772 </span> 0/imm32/no-imm32 +<span id="L31773" class="LineNr">31773 </span> 0/imm32/no-imm8 +<span id="L31774" class="LineNr">31774 </span> 0/imm32/no-disp32 +<span id="L31775" class="LineNr">31775 </span> 0/imm32/no-xm32 +<span id="L31776" class="LineNr">31776 </span> 0/imm32/no-x32 +<span id="L31777" class="LineNr">31777 </span> 0x11/imm32/alloc-id:fake +<span id="L31778" class="LineNr">31778 </span> <a href='mu.subx.html#L31779'>_Primitive-copy-byte-from-mem</a>/imm32/next +<span id="L31779" class="LineNr">31779 </span><span class="subxMinorFunction">_Primitive-copy-byte-from-mem</span>: +<span id="L31780" class="LineNr">31780 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31781" class="LineNr">31781 </span> <span class="subxComment"># var/reg <- copy-byte *var2/reg2 => 8a/byte-> *var2 var/r32</span> <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-compare-reg-with-mem</a>/imm32/next -<span id="L31784" class="LineNr">31784 </span><span class="subxMinorFunction">_Primitive-compare-reg-with-mem</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> <span class="subxComment"># compare var1/reg var2 => 3b/compare<- var2/rm32 var1/r32</span> -<span id="L31787" class="LineNr">31787 </span> 0x11/imm32/alloc-id:fake -<span id="L31788" class="LineNr">31788 </span> <a href='mu.subx.html#L33846'>_string-compare</a>/imm32/name -<span id="L31789" class="LineNr">31789 </span> 0x11/imm32/alloc-id:fake -<span id="L31790" class="LineNr">31790 </span> <span class="SpecialChar"><a href='mu.subx.html#L34634'>Two-args-int-reg-int-stack</a></span>/imm32/inouts -<span id="L31791" class="LineNr">31791 </span> 0/imm32/no-outputs -<span id="L31792" class="LineNr">31792 </span> 0/imm32/no-outputs -<span id="L31793" class="LineNr">31793 </span> 0x11/imm32/alloc-id:fake -<span id="L31794" class="LineNr">31794 </span> <a href='mu.subx.html#L34368'>_string_3b_compare<-</a>/imm32/subx-name -<span id="L31795" class="LineNr">31795 </span> 2/imm32/rm32-is-second-inout -<span id="L31796" class="LineNr">31796 </span> 1/imm32/r32-is-first-inout -<span id="L31797" class="LineNr">31797 </span> 0/imm32/no-imm32 -<span id="L31798" class="LineNr">31798 </span> 0/imm32/no-imm8 -<span id="L31799" class="LineNr">31799 </span> 0/imm32/no-disp32 -<span id="L31800" class="LineNr">31800 </span> 0/imm32/no-xm32 -<span id="L31801" class="LineNr">31801 </span> 0/imm32/no-x32 +<span id="L31783" class="LineNr">31783 </span> <a href='mu.subx.html#L34130'>_string-copy-byte</a>/imm32/name +<span id="L31784" class="LineNr">31784 </span> 0x11/imm32/alloc-id:fake +<span id="L31785" class="LineNr">31785 </span> <span class="SpecialChar"><a href='mu.subx.html#L34922'>Single-byte-var-in-mem</a></span>/imm32/inouts +<span id="L31786" class="LineNr">31786 </span> 0x11/imm32/alloc-id:fake +<span id="L31787" class="LineNr">31787 </span> <span class="SpecialChar"><a href='mu.subx.html#L35026'>Single-byte-var-in-some-register</a></span>/imm32/outputs +<span id="L31788" class="LineNr">31788 </span> 0x11/imm32/alloc-id:fake +<span id="L31789" class="LineNr">31789 </span> <a href='mu.subx.html#L34802'>_string_8a_copy_byte</a>/imm32/subx-name +<span id="L31790" class="LineNr">31790 </span> 1/imm32/rm32-is-first-inout +<span id="L31791" class="LineNr">31791 </span> 3/imm32/r32-is-first-output +<span id="L31792" class="LineNr">31792 </span> 0/imm32/no-imm32 +<span id="L31793" class="LineNr">31793 </span> 0/imm32/no-imm8 +<span id="L31794" class="LineNr">31794 </span> 0/imm32/no-disp32 +<span id="L31795" class="LineNr">31795 </span> 0/imm32/no-xm32 +<span id="L31796" class="LineNr">31796 </span> 0/imm32/no-x32 +<span id="L31797" class="LineNr">31797 </span> 0x11/imm32/alloc-id:fake +<span id="L31798" class="LineNr">31798 </span> <a href='mu.subx.html#L31799'>_Primitive-copy-byte-to-mem</a>/imm32/next +<span id="L31799" class="LineNr">31799 </span><span class="subxMinorFunction">_Primitive-copy-byte-to-mem</span>: +<span id="L31800" class="LineNr">31800 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31801" class="LineNr">31801 </span> <span class="subxComment"># copy-byte-to *var1/reg1, var2/reg2 => 88/byte<- *reg1 reg2/r32</span> <span id="L31802" class="LineNr">31802 </span> 0x11/imm32/alloc-id:fake -<span id="L31803" class="LineNr">31803 </span> <a href='mu.subx.html#L31804'>_Primitive-compare-eax-with-literal</a>/imm32/next -<span id="L31804" class="LineNr">31804 </span><span class="subxMinorFunction">_Primitive-compare-eax-with-literal</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31805" class="LineNr">31805 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31806" class="LineNr">31806 </span> <span class="subxComment"># compare var1/eax n => 3d/compare-eax-with n/imm32</span> -<span id="L31807" class="LineNr">31807 </span> 0x11/imm32/alloc-id:fake -<span id="L31808" class="LineNr">31808 </span> <a href='mu.subx.html#L33846'>_string-compare</a>/imm32/name -<span id="L31809" class="LineNr">31809 </span> 0x11/imm32/alloc-id:fake -<span id="L31810" class="LineNr">31810 </span> <span class="SpecialChar"><a href='mu.subx.html#L34641'>Two-args-int-eax-int-literal</a></span>/imm32/inouts -<span id="L31811" class="LineNr">31811 </span> 0/imm32/no-outputs -<span id="L31812" class="LineNr">31812 </span> 0/imm32/no-outputs -<span id="L31813" class="LineNr">31813 </span> 0x11/imm32/alloc-id:fake -<span id="L31814" class="LineNr">31814 </span> <a href='mu.subx.html#L34373'>_string_3d_compare_eax_with</a>/imm32/subx-name -<span id="L31815" class="LineNr">31815 </span> 0/imm32/no-rm32 -<span id="L31816" class="LineNr">31816 </span> 0/imm32/no-r32 -<span id="L31817" class="LineNr">31817 </span> 2/imm32/imm32-is-second-inout -<span id="L31818" class="LineNr">31818 </span> 0/imm32/no-imm8 -<span id="L31819" class="LineNr">31819 </span> 0/imm32/no-disp32 -<span id="L31820" class="LineNr">31820 </span> 0/imm32/no-xm32 -<span id="L31821" class="LineNr">31821 </span> 0/imm32/no-x32 -<span id="L31822" class="LineNr">31822 </span> 0x11/imm32/alloc-id:fake -<span id="L31823" class="LineNr">31823 </span> <a href='mu.subx.html#L31824'>_Primitive-compare-reg-with-literal</a>/imm32/next -<span id="L31824" class="LineNr">31824 </span><span class="subxMinorFunction">_Primitive-compare-reg-with-literal</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31825" class="LineNr">31825 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31826" class="LineNr">31826 </span> <span class="subxComment"># compare var1/reg n => 81 7/subop/compare %reg n/imm32</span> +<span id="L31803" class="LineNr">31803 </span> <a href='mu.subx.html#L34135'>_string-copy-byte-to</a>/imm32/name +<span id="L31804" class="LineNr">31804 </span> 0x11/imm32/alloc-id:fake +<span id="L31805" class="LineNr">31805 </span> <span class="SpecialChar"><a href='mu.subx.html#L34956'>Two-args-byte-stack-byte-reg</a></span>/imm32/inouts +<span id="L31806" class="LineNr">31806 </span> 0/imm32/no-outputs +<span id="L31807" class="LineNr">31807 </span> 0/imm32/no-outputs +<span id="L31808" class="LineNr">31808 </span> 0x11/imm32/alloc-id:fake +<span id="L31809" class="LineNr">31809 </span> <a href='mu.subx.html#L34807'>_string_88_copy_byte</a>/imm32/subx-name +<span id="L31810" class="LineNr">31810 </span> 1/imm32/rm32-is-first-inout +<span id="L31811" class="LineNr">31811 </span> 2/imm32/r32-is-second-inout +<span id="L31812" class="LineNr">31812 </span> 0/imm32/no-imm32 +<span id="L31813" class="LineNr">31813 </span> 0/imm32/no-imm8 +<span id="L31814" class="LineNr">31814 </span> 0/imm32/no-disp32 +<span id="L31815" class="LineNr">31815 </span> 0/imm32/no-xm32 +<span id="L31816" class="LineNr">31816 </span> 0/imm32/no-x32 +<span id="L31817" class="LineNr">31817 </span> 0x11/imm32/alloc-id:fake +<span id="L31818" class="LineNr">31818 </span> <a href='mu.subx.html#L31820'>_Primitive-address</a>/imm32/next +<span id="L31819" class="LineNr">31819 </span><span class="subxH1Comment"># - address</span> +<span id="L31820" class="LineNr">31820 </span><span class="subxMinorFunction">_Primitive-address</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31821" class="LineNr">31821 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31822" class="LineNr">31822 </span> <span class="subxComment"># var1/reg <- address var2 => 8d/copy-address var2/rm32 var1/r32</span> +<span id="L31823" class="LineNr">31823 </span> 0x11/imm32/alloc-id:fake +<span id="L31824" class="LineNr">31824 </span> <a href='mu.subx.html#L34000'>_string-address</a>/imm32/name +<span id="L31825" class="LineNr">31825 </span> 0x11/imm32/alloc-id:fake +<span id="L31826" class="LineNr">31826 </span> <span class="SpecialChar"><a href='mu.subx.html#L34903'>Single-int-var-in-mem</a></span>/imm32/inouts <span id="L31827" class="LineNr">31827 </span> 0x11/imm32/alloc-id:fake -<span id="L31828" class="LineNr">31828 </span> <a href='mu.subx.html#L33846'>_string-compare</a>/imm32/name +<span id="L31828" class="LineNr">31828 </span> <span class="SpecialChar"><a href='mu.subx.html#L35019'>Single-addr-var-in-some-register</a></span>/imm32/outputs <span id="L31829" class="LineNr">31829 </span> 0x11/imm32/alloc-id:fake -<span id="L31830" class="LineNr">31830 </span> <span class="SpecialChar"><a href='mu.subx.html#L34655'>Int-var-in-register-and-literal</a></span>/imm32/inouts -<span id="L31831" class="LineNr">31831 </span> 0/imm32/no-outputs -<span id="L31832" class="LineNr">31832 </span> 0/imm32/no-outputs -<span id="L31833" class="LineNr">31833 </span> 0x11/imm32/alloc-id:fake -<span id="L31834" class="LineNr">31834 </span> <a href='mu.subx.html#L34463'>_string_81_subop_compare</a>/imm32/subx-name -<span id="L31835" class="LineNr">31835 </span> 1/imm32/rm32-is-first-inout -<span id="L31836" class="LineNr">31836 </span> 0/imm32/no-r32 -<span id="L31837" class="LineNr">31837 </span> 2/imm32/imm32-is-second-inout -<span id="L31838" class="LineNr">31838 </span> 0/imm32/no-imm8 -<span id="L31839" class="LineNr">31839 </span> 0/imm32/no-disp32 -<span id="L31840" class="LineNr">31840 </span> 0/imm32/no-xm32 -<span id="L31841" class="LineNr">31841 </span> 0/imm32/no-x32 -<span id="L31842" class="LineNr">31842 </span> 0x11/imm32/alloc-id:fake -<span id="L31843" class="LineNr">31843 </span> <a href='mu.subx.html#L31844'>_Primitive-compare-mem-with-literal</a>/imm32/next -<span id="L31844" class="LineNr">31844 </span><span class="subxMinorFunction">_Primitive-compare-mem-with-literal</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31845" class="LineNr">31845 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31846" class="LineNr">31846 </span> <span class="subxComment"># compare var1 n => 81 7/subop/compare *(ebp+___) n/imm32</span> -<span id="L31847" class="LineNr">31847 </span> 0x11/imm32/alloc-id:fake -<span id="L31848" class="LineNr">31848 </span> <a href='mu.subx.html#L33846'>_string-compare</a>/imm32/name -<span id="L31849" class="LineNr">31849 </span> 0x11/imm32/alloc-id:fake -<span id="L31850" class="LineNr">31850 </span> <span class="SpecialChar"><a href='mu.subx.html#L34648'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L31851" class="LineNr">31851 </span> 0/imm32/no-outputs -<span id="L31852" class="LineNr">31852 </span> 0/imm32/no-outputs -<span id="L31853" class="LineNr">31853 </span> 0x11/imm32/alloc-id:fake -<span id="L31854" class="LineNr">31854 </span> <a href='mu.subx.html#L34463'>_string_81_subop_compare</a>/imm32/subx-name -<span id="L31855" class="LineNr">31855 </span> 1/imm32/rm32-is-first-inout -<span id="L31856" class="LineNr">31856 </span> 0/imm32/no-r32 -<span id="L31857" class="LineNr">31857 </span> 2/imm32/imm32-is-second-inout -<span id="L31858" class="LineNr">31858 </span> 0/imm32/no-imm8 -<span id="L31859" class="LineNr">31859 </span> 0/imm32/no-disp32 -<span id="L31860" class="LineNr">31860 </span> 0/imm32/no-xm32 -<span id="L31861" class="LineNr">31861 </span> 0/imm32/no-x32 -<span id="L31862" class="LineNr">31862 </span> 0x11/imm32/alloc-id:fake -<span id="L31863" class="LineNr">31863 </span> <a href='mu.subx.html#L31865'>_Primitive-negate-reg</a>/imm32/next -<span id="L31864" class="LineNr">31864 </span><span class="subxH1Comment"># - negate</span> -<span id="L31865" class="LineNr">31865 </span><span class="subxMinorFunction">_Primitive-negate-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31866" class="LineNr">31866 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31867" class="LineNr">31867 </span> <span class="subxComment"># var1/reg <- negate => f7 3/subop/negate var1/rm32</span> -<span id="L31868" class="LineNr">31868 </span> 0x11/imm32/alloc-id:fake -<span id="L31869" class="LineNr">31869 </span> <a href='mu.subx.html#L34006'>_string-negate</a>/imm32/name -<span id="L31870" class="LineNr">31870 </span> 0/imm32/no-inouts -<span id="L31871" class="LineNr">31871 </span> 0/imm32/no-inouts -<span id="L31872" class="LineNr">31872 </span> 0x11/imm32/alloc-id:fake -<span id="L31873" class="LineNr">31873 </span> <span class="SpecialChar"><a href='mu.subx.html#L34683'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L31874" class="LineNr">31874 </span> 0x11/imm32/alloc-id:fake -<span id="L31875" class="LineNr">31875 </span> <a href='mu.subx.html#L34543'>_string_f7_subop_negate</a>/imm32/subx-name -<span id="L31876" class="LineNr">31876 </span> 3/imm32/rm32-is-first-output -<span id="L31877" class="LineNr">31877 </span> 0/imm32/no-r32 -<span id="L31878" class="LineNr">31878 </span> 0/imm32/no-imm32 -<span id="L31879" class="LineNr">31879 </span> 0/imm32/no-imm8 -<span id="L31880" class="LineNr">31880 </span> 0/imm32/no-disp32 -<span id="L31881" class="LineNr">31881 </span> 0/imm32/no-xm32 -<span id="L31882" class="LineNr">31882 </span> 0/imm32/no-x32 -<span id="L31883" class="LineNr">31883 </span> 0x11/imm32/alloc-id:fake -<span id="L31884" class="LineNr">31884 </span> <a href='mu.subx.html#L31885'>_Primitive-negate-mem</a>/imm32/next -<span id="L31885" class="LineNr">31885 </span><span class="subxMinorFunction">_Primitive-negate-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31886" class="LineNr">31886 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31887" class="LineNr">31887 </span> <span class="subxComment"># negate var1 => f7 3/subop/negate var1/rm32</span> -<span id="L31888" class="LineNr">31888 </span> 0x11/imm32/alloc-id:fake -<span id="L31889" class="LineNr">31889 </span> <a href='mu.subx.html#L34006'>_string-negate</a>/imm32/name +<span id="L31830" class="LineNr">31830 </span> <a href='mu.subx.html#L34812'>_string_8d_copy_address</a>/imm32/subx-name +<span id="L31831" class="LineNr">31831 </span> 1/imm32/rm32-is-first-inout +<span id="L31832" class="LineNr">31832 </span> 3/imm32/r32-is-first-output +<span id="L31833" class="LineNr">31833 </span> 0/imm32/no-imm32 +<span id="L31834" class="LineNr">31834 </span> 0/imm32/no-imm8 +<span id="L31835" class="LineNr">31835 </span> 0/imm32/no-disp32 +<span id="L31836" class="LineNr">31836 </span> 0/imm32/no-xm32 +<span id="L31837" class="LineNr">31837 </span> 0/imm32/no-x32 +<span id="L31838" class="LineNr">31838 </span> 0x11/imm32/alloc-id:fake +<span id="L31839" class="LineNr">31839 </span> <a href='mu.subx.html#L31841'>_Primitive-compare-reg-with-reg</a>/imm32/next +<span id="L31840" class="LineNr">31840 </span><span class="subxH1Comment"># - compare</span> +<span id="L31841" class="LineNr">31841 </span><span class="subxMinorFunction">_Primitive-compare-reg-with-reg</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> <span class="subxComment"># compare var1/reg1 var2/reg2 => 39/compare var1/rm32 var2/r32</span> +<span id="L31844" class="LineNr">31844 </span> 0x11/imm32/alloc-id:fake +<span id="L31845" class="LineNr">31845 </span> <a href='mu.subx.html#L34115'>_string-compare</a>/imm32/name +<span id="L31846" class="LineNr">31846 </span> 0x11/imm32/alloc-id:fake +<span id="L31847" class="LineNr">31847 </span> <span class="SpecialChar"><a href='mu.subx.html#L34948'>Two-int-args-in-regs</a></span>/imm32/inouts +<span id="L31848" class="LineNr">31848 </span> 0/imm32/no-outputs +<span id="L31849" class="LineNr">31849 </span> 0/imm32/no-outputs +<span id="L31850" class="LineNr">31850 </span> 0x11/imm32/alloc-id:fake +<span id="L31851" class="LineNr">31851 </span> <a href='mu.subx.html#L34687'>_string_39_compare-></a>/imm32/subx-name +<span id="L31852" class="LineNr">31852 </span> 1/imm32/rm32-is-first-inout +<span id="L31853" class="LineNr">31853 </span> 2/imm32/r32-is-second-inout +<span id="L31854" class="LineNr">31854 </span> 0/imm32/no-imm32 +<span id="L31855" class="LineNr">31855 </span> 0/imm32/no-imm8 +<span id="L31856" class="LineNr">31856 </span> 0/imm32/no-disp32 +<span id="L31857" class="LineNr">31857 </span> 0/imm32/no-xm32 +<span id="L31858" class="LineNr">31858 </span> 0/imm32/no-x32 +<span id="L31859" class="LineNr">31859 </span> 0x11/imm32/alloc-id:fake +<span id="L31860" class="LineNr">31860 </span> <a href='mu.subx.html#L31861'>_Primitive-compare-mem-with-reg</a>/imm32/next +<span id="L31861" class="LineNr">31861 </span><span class="subxMinorFunction">_Primitive-compare-mem-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31862" class="LineNr">31862 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31863" class="LineNr">31863 </span> <span class="subxComment"># compare var1 var2/reg => 39/compare var1/rm32 var2/r32</span> +<span id="L31864" class="LineNr">31864 </span> 0x11/imm32/alloc-id:fake +<span id="L31865" class="LineNr">31865 </span> <a href='mu.subx.html#L34115'>_string-compare</a>/imm32/name +<span id="L31866" class="LineNr">31866 </span> 0x11/imm32/alloc-id:fake +<span id="L31867" class="LineNr">31867 </span> <span class="SpecialChar"><a href='mu.subx.html#L34941'>Two-args-int-stack-int-reg</a></span>/imm32/inouts +<span id="L31868" class="LineNr">31868 </span> 0/imm32/no-outputs +<span id="L31869" class="LineNr">31869 </span> 0/imm32/no-outputs +<span id="L31870" class="LineNr">31870 </span> 0x11/imm32/alloc-id:fake +<span id="L31871" class="LineNr">31871 </span> <a href='mu.subx.html#L34687'>_string_39_compare-></a>/imm32/subx-name +<span id="L31872" class="LineNr">31872 </span> 1/imm32/rm32-is-first-inout +<span id="L31873" class="LineNr">31873 </span> 2/imm32/r32-is-second-inout +<span id="L31874" class="LineNr">31874 </span> 0/imm32/no-imm32 +<span id="L31875" class="LineNr">31875 </span> 0/imm32/no-imm8 +<span id="L31876" class="LineNr">31876 </span> 0/imm32/no-disp32 +<span id="L31877" class="LineNr">31877 </span> 0/imm32/no-xm32 +<span id="L31878" class="LineNr">31878 </span> 0/imm32/no-x32 +<span id="L31879" class="LineNr">31879 </span> 0x11/imm32/alloc-id:fake +<span id="L31880" class="LineNr">31880 </span> <a href='mu.subx.html#L31881'>_Primitive-compare-reg-with-mem</a>/imm32/next +<span id="L31881" class="LineNr">31881 </span><span class="subxMinorFunction">_Primitive-compare-reg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31882" class="LineNr">31882 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31883" class="LineNr">31883 </span> <span class="subxComment"># compare var1/reg var2 => 3b/compare<- var2/rm32 var1/r32</span> +<span id="L31884" class="LineNr">31884 </span> 0x11/imm32/alloc-id:fake +<span id="L31885" class="LineNr">31885 </span> <a href='mu.subx.html#L34115'>_string-compare</a>/imm32/name +<span id="L31886" class="LineNr">31886 </span> 0x11/imm32/alloc-id:fake +<span id="L31887" class="LineNr">31887 </span> <span class="SpecialChar"><a href='mu.subx.html#L34963'>Two-args-int-reg-int-stack</a></span>/imm32/inouts +<span id="L31888" class="LineNr">31888 </span> 0/imm32/no-outputs +<span id="L31889" class="LineNr">31889 </span> 0/imm32/no-outputs <span id="L31890" class="LineNr">31890 </span> 0x11/imm32/alloc-id:fake -<span id="L31891" class="LineNr">31891 </span> <span class="SpecialChar"><a href='mu.subx.html#L34574'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L31892" class="LineNr">31892 </span> 0/imm32/no-outputs -<span id="L31893" class="LineNr">31893 </span> 0/imm32/no-outputs -<span id="L31894" class="LineNr">31894 </span> 0x11/imm32/alloc-id:fake -<span id="L31895" class="LineNr">31895 </span> <a href='mu.subx.html#L34543'>_string_f7_subop_negate</a>/imm32/subx-name -<span id="L31896" class="LineNr">31896 </span> 1/imm32/rm32-is-first-inout -<span id="L31897" class="LineNr">31897 </span> 0/imm32/no-r32 -<span id="L31898" class="LineNr">31898 </span> 0/imm32/no-imm32 -<span id="L31899" class="LineNr">31899 </span> 0/imm32/no-imm8 -<span id="L31900" class="LineNr">31900 </span> 0/imm32/no-disp32 -<span id="L31901" class="LineNr">31901 </span> 0/imm32/no-xm32 -<span id="L31902" class="LineNr">31902 </span> 0/imm32/no-x32 -<span id="L31903" class="LineNr">31903 </span> 0x11/imm32/alloc-id:fake -<span id="L31904" class="LineNr">31904 </span> <a href='mu.subx.html#L31906'>_Primitive-multiply-reg-by-reg</a>/imm32/next -<span id="L31905" class="LineNr">31905 </span><span class="subxH1Comment"># - multiply</span> -<span id="L31906" class="LineNr">31906 </span><span class="subxMinorFunction">_Primitive-multiply-reg-by-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31907" class="LineNr">31907 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31908" class="LineNr">31908 </span> <span class="subxComment"># var1/reg <- multiply var2 => 0f af/multiply var2/rm32 var1/r32</span> -<span id="L31909" class="LineNr">31909 </span> 0x11/imm32/alloc-id:fake -<span id="L31910" class="LineNr">31910 </span> <a href='mu.subx.html#L33956'>_string-multiply</a>/imm32/name -<span id="L31911" class="LineNr">31911 </span> 0x11/imm32/alloc-id:fake -<span id="L31912" class="LineNr">31912 </span> <span class="SpecialChar"><a href='mu.subx.html#L34683'>Single-int-var-in-some-register</a></span>/imm32/inouts -<span id="L31913" class="LineNr">31913 </span> 0x11/imm32/alloc-id:fake -<span id="L31914" class="LineNr">31914 </span> <span class="SpecialChar"><a href='mu.subx.html#L34683'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L31915" class="LineNr">31915 </span> 0x11/imm32/alloc-id:fake -<span id="L31916" class="LineNr">31916 </span> <a href='mu.subx.html#L34238'>_string_0f_af_multiply</a>/imm32/subx-name -<span id="L31917" class="LineNr">31917 </span> 1/imm32/rm32-is-first-inout -<span id="L31918" class="LineNr">31918 </span> 3/imm32/r32-is-first-output -<span id="L31919" class="LineNr">31919 </span> 0/imm32/no-imm32 -<span id="L31920" class="LineNr">31920 </span> 0/imm32/no-imm8 -<span id="L31921" class="LineNr">31921 </span> 0/imm32/no-disp32 -<span id="L31922" class="LineNr">31922 </span> 0/imm32/no-xm32 -<span id="L31923" class="LineNr">31923 </span> 0/imm32/no-x32 +<span id="L31891" class="LineNr">31891 </span> <a href='mu.subx.html#L34692'>_string_3b_compare<-</a>/imm32/subx-name +<span id="L31892" class="LineNr">31892 </span> 2/imm32/rm32-is-second-inout +<span id="L31893" class="LineNr">31893 </span> 1/imm32/r32-is-first-inout +<span id="L31894" class="LineNr">31894 </span> 0/imm32/no-imm32 +<span id="L31895" class="LineNr">31895 </span> 0/imm32/no-imm8 +<span id="L31896" class="LineNr">31896 </span> 0/imm32/no-disp32 +<span id="L31897" class="LineNr">31897 </span> 0/imm32/no-xm32 +<span id="L31898" class="LineNr">31898 </span> 0/imm32/no-x32 +<span id="L31899" class="LineNr">31899 </span> 0x11/imm32/alloc-id:fake +<span id="L31900" class="LineNr">31900 </span> <a href='mu.subx.html#L31901'>_Primitive-compare-eax-with-literal</a>/imm32/next +<span id="L31901" class="LineNr">31901 </span><span class="subxMinorFunction">_Primitive-compare-eax-with-literal</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31902" class="LineNr">31902 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31903" class="LineNr">31903 </span> <span class="subxComment"># compare var1/eax n => 3d/compare-eax-with n/imm32</span> +<span id="L31904" class="LineNr">31904 </span> 0x11/imm32/alloc-id:fake +<span id="L31905" class="LineNr">31905 </span> <a href='mu.subx.html#L34115'>_string-compare</a>/imm32/name +<span id="L31906" class="LineNr">31906 </span> 0x11/imm32/alloc-id:fake +<span id="L31907" class="LineNr">31907 </span> <span class="SpecialChar"><a href='mu.subx.html#L34970'>Two-args-int-eax-int-literal</a></span>/imm32/inouts +<span id="L31908" class="LineNr">31908 </span> 0/imm32/no-outputs +<span id="L31909" class="LineNr">31909 </span> 0/imm32/no-outputs +<span id="L31910" class="LineNr">31910 </span> 0x11/imm32/alloc-id:fake +<span id="L31911" class="LineNr">31911 </span> <a href='mu.subx.html#L34697'>_string_3d_compare_eax_with</a>/imm32/subx-name +<span id="L31912" class="LineNr">31912 </span> 0/imm32/no-rm32 +<span id="L31913" class="LineNr">31913 </span> 0/imm32/no-r32 +<span id="L31914" class="LineNr">31914 </span> 2/imm32/imm32-is-second-inout +<span id="L31915" class="LineNr">31915 </span> 0/imm32/no-imm8 +<span id="L31916" class="LineNr">31916 </span> 0/imm32/no-disp32 +<span id="L31917" class="LineNr">31917 </span> 0/imm32/no-xm32 +<span id="L31918" class="LineNr">31918 </span> 0/imm32/no-x32 +<span id="L31919" class="LineNr">31919 </span> 0x11/imm32/alloc-id:fake +<span id="L31920" class="LineNr">31920 </span> <a href='mu.subx.html#L31921'>_Primitive-compare-reg-with-literal</a>/imm32/next +<span id="L31921" class="LineNr">31921 </span><span class="subxMinorFunction">_Primitive-compare-reg-with-literal</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31922" class="LineNr">31922 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31923" class="LineNr">31923 </span> <span class="subxComment"># compare var1/reg n => 81 7/subop/compare %reg n/imm32</span> <span id="L31924" class="LineNr">31924 </span> 0x11/imm32/alloc-id:fake -<span id="L31925" class="LineNr">31925 </span> <a href='mu.subx.html#L31926'>_Primitive-multiply-reg-by-mem</a>/imm32/next -<span id="L31926" class="LineNr">31926 </span><span class="subxMinorFunction">_Primitive-multiply-reg-by-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31927" class="LineNr">31927 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31928" class="LineNr">31928 </span> <span class="subxComment"># var1/reg <- multiply var2 => 0f af/multiply var2/rm32 var1/r32</span> -<span id="L31929" class="LineNr">31929 </span> 0x11/imm32/alloc-id:fake -<span id="L31930" class="LineNr">31930 </span> <a href='mu.subx.html#L33956'>_string-multiply</a>/imm32/name -<span id="L31931" class="LineNr">31931 </span> 0x11/imm32/alloc-id:fake -<span id="L31932" class="LineNr">31932 </span> <span class="SpecialChar"><a href='mu.subx.html#L34574'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L31933" class="LineNr">31933 </span> 0x11/imm32/alloc-id:fake -<span id="L31934" class="LineNr">31934 </span> <span class="SpecialChar"><a href='mu.subx.html#L34683'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L31935" class="LineNr">31935 </span> 0x11/imm32/alloc-id:fake -<span id="L31936" class="LineNr">31936 </span> <a href='mu.subx.html#L34238'>_string_0f_af_multiply</a>/imm32/subx-name -<span id="L31937" class="LineNr">31937 </span> 1/imm32/rm32-is-first-inout -<span id="L31938" class="LineNr">31938 </span> 3/imm32/r32-is-first-output -<span id="L31939" class="LineNr">31939 </span> 0/imm32/no-imm32 -<span id="L31940" class="LineNr">31940 </span> 0/imm32/no-imm8 -<span id="L31941" class="LineNr">31941 </span> 0/imm32/no-disp32 -<span id="L31942" class="LineNr">31942 </span> 0/imm32/no-xm32 -<span id="L31943" class="LineNr">31943 </span> 0/imm32/no-x32 +<span id="L31925" class="LineNr">31925 </span> <a href='mu.subx.html#L34115'>_string-compare</a>/imm32/name +<span id="L31926" class="LineNr">31926 </span> 0x11/imm32/alloc-id:fake +<span id="L31927" class="LineNr">31927 </span> <span class="SpecialChar"><a href='mu.subx.html#L34984'>Int-var-in-register-and-literal</a></span>/imm32/inouts +<span id="L31928" class="LineNr">31928 </span> 0/imm32/no-outputs +<span id="L31929" class="LineNr">31929 </span> 0/imm32/no-outputs +<span id="L31930" class="LineNr">31930 </span> 0x11/imm32/alloc-id:fake +<span id="L31931" class="LineNr">31931 </span> <a href='mu.subx.html#L34787'>_string_81_subop_compare</a>/imm32/subx-name +<span id="L31932" class="LineNr">31932 </span> 1/imm32/rm32-is-first-inout +<span id="L31933" class="LineNr">31933 </span> 0/imm32/no-r32 +<span id="L31934" class="LineNr">31934 </span> 2/imm32/imm32-is-second-inout +<span id="L31935" class="LineNr">31935 </span> 0/imm32/no-imm8 +<span id="L31936" class="LineNr">31936 </span> 0/imm32/no-disp32 +<span id="L31937" class="LineNr">31937 </span> 0/imm32/no-xm32 +<span id="L31938" class="LineNr">31938 </span> 0/imm32/no-x32 +<span id="L31939" class="LineNr">31939 </span> 0x11/imm32/alloc-id:fake +<span id="L31940" class="LineNr">31940 </span> <a href='mu.subx.html#L31941'>_Primitive-compare-mem-with-literal</a>/imm32/next +<span id="L31941" class="LineNr">31941 </span><span class="subxMinorFunction">_Primitive-compare-mem-with-literal</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31942" class="LineNr">31942 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31943" class="LineNr">31943 </span> <span class="subxComment"># compare var1 n => 81 7/subop/compare *(ebp+___) n/imm32</span> <span id="L31944" class="LineNr">31944 </span> 0x11/imm32/alloc-id:fake -<span id="L31945" class="LineNr">31945 </span> <a href='mu.subx.html#L31947'>_Primitive-convert-mem-to-xreg</a>/imm32/next -<span id="L31946" class="LineNr">31946 </span><span class="subxH1Comment"># - convert int to floating point</span> -<span id="L31947" class="LineNr">31947 </span><span class="subxMinorFunction">_Primitive-convert-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31948" class="LineNr">31948 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31949" class="LineNr">31949 </span> <span class="subxComment"># var1/xreg <- convert var2 => f3 0f 2a/convert-to-float var2/rm32 var1/x32</span> +<span id="L31945" class="LineNr">31945 </span> <a href='mu.subx.html#L34115'>_string-compare</a>/imm32/name +<span id="L31946" class="LineNr">31946 </span> 0x11/imm32/alloc-id:fake +<span id="L31947" class="LineNr">31947 </span> <span class="SpecialChar"><a href='mu.subx.html#L34977'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L31948" class="LineNr">31948 </span> 0/imm32/no-outputs +<span id="L31949" class="LineNr">31949 </span> 0/imm32/no-outputs <span id="L31950" class="LineNr">31950 </span> 0x11/imm32/alloc-id:fake -<span id="L31951" class="LineNr">31951 </span> <a href='mu.subx.html#L33961'>_string-convert</a>/imm32/name -<span id="L31952" class="LineNr">31952 </span> 0x11/imm32/alloc-id:fake -<span id="L31953" class="LineNr">31953 </span> <span class="SpecialChar"><a href='mu.subx.html#L34574'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L31954" class="LineNr">31954 </span> 0x11/imm32/alloc-id:fake -<span id="L31955" class="LineNr">31955 </span> <span class="SpecialChar"><a href='mu.subx.html#L34887'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L31956" class="LineNr">31956 </span> 0x11/imm32/alloc-id:fake -<span id="L31957" class="LineNr">31957 </span> <a href='mu.subx.html#L34243'>_string_f3_0f_2a_convert_to_float</a>/imm32/subx-name -<span id="L31958" class="LineNr">31958 </span> 1/imm32/rm32-is-first-inout -<span id="L31959" class="LineNr">31959 </span> 0/imm32/no-r32 -<span id="L31960" class="LineNr">31960 </span> 0/imm32/no-imm32 -<span id="L31961" class="LineNr">31961 </span> 0/imm32/no-imm8 -<span id="L31962" class="LineNr">31962 </span> 0/imm32/no-disp32 -<span id="L31963" class="LineNr">31963 </span> 0/imm32/no-xm32 -<span id="L31964" class="LineNr">31964 </span> 3/imm32/x32-is-first-output +<span id="L31951" class="LineNr">31951 </span> <a href='mu.subx.html#L34787'>_string_81_subop_compare</a>/imm32/subx-name +<span id="L31952" class="LineNr">31952 </span> 1/imm32/rm32-is-first-inout +<span id="L31953" class="LineNr">31953 </span> 0/imm32/no-r32 +<span id="L31954" class="LineNr">31954 </span> 2/imm32/imm32-is-second-inout +<span id="L31955" class="LineNr">31955 </span> 0/imm32/no-imm8 +<span id="L31956" class="LineNr">31956 </span> 0/imm32/no-disp32 +<span id="L31957" class="LineNr">31957 </span> 0/imm32/no-xm32 +<span id="L31958" class="LineNr">31958 </span> 0/imm32/no-x32 +<span id="L31959" class="LineNr">31959 </span> 0x11/imm32/alloc-id:fake +<span id="L31960" class="LineNr">31960 </span> <a href='mu.subx.html#L31962'>_Primitive-negate-reg</a>/imm32/next +<span id="L31961" class="LineNr">31961 </span><span class="subxH1Comment"># - negate</span> +<span id="L31962" class="LineNr">31962 </span><span class="subxMinorFunction">_Primitive-negate-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31963" class="LineNr">31963 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31964" class="LineNr">31964 </span> <span class="subxComment"># var1/reg <- negate => f7 3/subop/negate var1/rm32</span> <span id="L31965" class="LineNr">31965 </span> 0x11/imm32/alloc-id:fake -<span id="L31966" class="LineNr">31966 </span> <a href='mu.subx.html#L31967'>_Primitive-convert-reg-to-xreg</a>/imm32/next -<span id="L31967" class="LineNr">31967 </span><span class="subxMinorFunction">_Primitive-convert-reg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31968" class="LineNr">31968 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31969" class="LineNr">31969 </span> <span class="subxComment"># var1/xreg <- convert var2/reg => f3 0f 2a/convert-to-float var2/rm32 var1/x32</span> -<span id="L31970" class="LineNr">31970 </span> 0x11/imm32/alloc-id:fake -<span id="L31971" class="LineNr">31971 </span> <a href='mu.subx.html#L33961'>_string-convert</a>/imm32/name -<span id="L31972" class="LineNr">31972 </span> 0x11/imm32/alloc-id:fake -<span id="L31973" class="LineNr">31973 </span> <span class="SpecialChar"><a href='mu.subx.html#L34683'>Single-int-var-in-some-register</a></span>/imm32/inouts -<span id="L31974" class="LineNr">31974 </span> 0x11/imm32/alloc-id:fake -<span id="L31975" class="LineNr">31975 </span> <span class="SpecialChar"><a href='mu.subx.html#L34887'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L31976" class="LineNr">31976 </span> 0x11/imm32/alloc-id:fake -<span id="L31977" class="LineNr">31977 </span> <a href='mu.subx.html#L34243'>_string_f3_0f_2a_convert_to_float</a>/imm32/subx-name -<span id="L31978" class="LineNr">31978 </span> 1/imm32/rm32-is-first-inout -<span id="L31979" class="LineNr">31979 </span> 0/imm32/no-r32 -<span id="L31980" class="LineNr">31980 </span> 0/imm32/no-imm32 -<span id="L31981" class="LineNr">31981 </span> 0/imm32/no-imm8 -<span id="L31982" class="LineNr">31982 </span> 0/imm32/no-disp32 -<span id="L31983" class="LineNr">31983 </span> 0/imm32/no-xm32 -<span id="L31984" class="LineNr">31984 </span> 3/imm32/x32-is-first-output +<span id="L31966" class="LineNr">31966 </span> <a href='mu.subx.html#L34295'>_string-negate</a>/imm32/name +<span id="L31967" class="LineNr">31967 </span> 0/imm32/no-inouts +<span id="L31968" class="LineNr">31968 </span> 0/imm32/no-inouts +<span id="L31969" class="LineNr">31969 </span> 0x11/imm32/alloc-id:fake +<span id="L31970" class="LineNr">31970 </span> <span class="SpecialChar"><a href='mu.subx.html#L35012'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31971" class="LineNr">31971 </span> 0x11/imm32/alloc-id:fake +<span id="L31972" class="LineNr">31972 </span> <a href='mu.subx.html#L34867'>_string_f7_subop_negate</a>/imm32/subx-name +<span id="L31973" class="LineNr">31973 </span> 3/imm32/rm32-is-first-output +<span id="L31974" class="LineNr">31974 </span> 0/imm32/no-r32 +<span id="L31975" class="LineNr">31975 </span> 0/imm32/no-imm32 +<span id="L31976" class="LineNr">31976 </span> 0/imm32/no-imm8 +<span id="L31977" class="LineNr">31977 </span> 0/imm32/no-disp32 +<span id="L31978" class="LineNr">31978 </span> 0/imm32/no-xm32 +<span id="L31979" class="LineNr">31979 </span> 0/imm32/no-x32 +<span id="L31980" class="LineNr">31980 </span> 0x11/imm32/alloc-id:fake +<span id="L31981" class="LineNr">31981 </span> <a href='mu.subx.html#L31982'>_Primitive-negate-mem</a>/imm32/next +<span id="L31982" class="LineNr">31982 </span><span class="subxMinorFunction">_Primitive-negate-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31983" class="LineNr">31983 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31984" class="LineNr">31984 </span> <span class="subxComment"># negate var1 => f7 3/subop/negate var1/rm32</span> <span id="L31985" class="LineNr">31985 </span> 0x11/imm32/alloc-id:fake -<span id="L31986" class="LineNr">31986 </span> <a href='mu.subx.html#L31988'>_Primitive-convert-xmem-to-reg</a>/imm32/next -<span id="L31987" class="LineNr">31987 </span><span class="subxH1Comment"># - convert floating point to int</span> -<span id="L31988" class="LineNr">31988 </span><span class="subxMinorFunction">_Primitive-convert-xmem-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31989" class="LineNr">31989 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31990" class="LineNr">31990 </span> <span class="subxComment"># var1/reg <- convert var2 => f3 0f 2d/convert-to-int var2/xm32 var1/r32</span> +<span id="L31986" class="LineNr">31986 </span> <a href='mu.subx.html#L34295'>_string-negate</a>/imm32/name +<span id="L31987" class="LineNr">31987 </span> 0x11/imm32/alloc-id:fake +<span id="L31988" class="LineNr">31988 </span> <span class="SpecialChar"><a href='mu.subx.html#L34903'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L31989" class="LineNr">31989 </span> 0/imm32/no-outputs +<span id="L31990" class="LineNr">31990 </span> 0/imm32/no-outputs <span id="L31991" class="LineNr">31991 </span> 0x11/imm32/alloc-id:fake -<span id="L31992" class="LineNr">31992 </span> <a href='mu.subx.html#L33961'>_string-convert</a>/imm32/name -<span id="L31993" class="LineNr">31993 </span> 0x11/imm32/alloc-id:fake -<span id="L31994" class="LineNr">31994 </span> <span class="SpecialChar"><a href='mu.subx.html#L34869'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L31995" class="LineNr">31995 </span> 0x11/imm32/alloc-id:fake -<span id="L31996" class="LineNr">31996 </span> <span class="SpecialChar"><a href='mu.subx.html#L34683'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L31997" class="LineNr">31997 </span> 0x11/imm32/alloc-id:fake -<span id="L31998" class="LineNr">31998 </span> <a href='mu.subx.html#L34248'>_string_f3_0f_2d_convert_to_int</a>/imm32/subx-name -<span id="L31999" class="LineNr">31999 </span> 0/imm32/no-rm32 -<span id="L32000" class="LineNr">32000 </span> 3/imm32/r32-is-first-output -<span id="L32001" class="LineNr">32001 </span> 0/imm32/no-imm32 -<span id="L32002" class="LineNr">32002 </span> 0/imm32/no-imm8 -<span id="L32003" class="LineNr">32003 </span> 0/imm32/no-disp32 -<span id="L32004" class="LineNr">32004 </span> 1/imm32/xm32-is-first-inout -<span id="L32005" class="LineNr">32005 </span> 0/imm32/no-x32 +<span id="L31992" class="LineNr">31992 </span> <a href='mu.subx.html#L34867'>_string_f7_subop_negate</a>/imm32/subx-name +<span id="L31993" class="LineNr">31993 </span> 1/imm32/rm32-is-first-inout +<span id="L31994" class="LineNr">31994 </span> 0/imm32/no-r32 +<span id="L31995" class="LineNr">31995 </span> 0/imm32/no-imm32 +<span id="L31996" class="LineNr">31996 </span> 0/imm32/no-imm8 +<span id="L31997" class="LineNr">31997 </span> 0/imm32/no-disp32 +<span id="L31998" class="LineNr">31998 </span> 0/imm32/no-xm32 +<span id="L31999" class="LineNr">31999 </span> 0/imm32/no-x32 +<span id="L32000" class="LineNr">32000 </span> 0x11/imm32/alloc-id:fake +<span id="L32001" class="LineNr">32001 </span> <a href='mu.subx.html#L32003'>_Primitive-multiply-reg-by-reg</a>/imm32/next +<span id="L32002" class="LineNr">32002 </span><span class="subxH1Comment"># - multiply</span> +<span id="L32003" class="LineNr">32003 </span><span class="subxMinorFunction">_Primitive-multiply-reg-by-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32004" class="LineNr">32004 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32005" class="LineNr">32005 </span> <span class="subxComment"># var1/reg <- multiply var2 => 0f af/multiply var2/rm32 var1/r32</span> <span id="L32006" class="LineNr">32006 </span> 0x11/imm32/alloc-id:fake -<span id="L32007" class="LineNr">32007 </span> <a href='mu.subx.html#L32008'>_Primitive-convert-xreg-to-reg</a>/imm32/next -<span id="L32008" class="LineNr">32008 </span><span class="subxMinorFunction">_Primitive-convert-xreg-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32009" class="LineNr">32009 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32010" class="LineNr">32010 </span> <span class="subxComment"># var1/reg <- convert var2/xreg => f3 0f 2d/convert-to-int var2/xm32 var1/r32</span> -<span id="L32011" class="LineNr">32011 </span> 0x11/imm32/alloc-id:fake -<span id="L32012" class="LineNr">32012 </span> <a href='mu.subx.html#L33961'>_string-convert</a>/imm32/name -<span id="L32013" class="LineNr">32013 </span> 0x11/imm32/alloc-id:fake -<span id="L32014" class="LineNr">32014 </span> <span class="SpecialChar"><a href='mu.subx.html#L34887'>Single-float-var-in-some-register</a></span>/imm32/inouts -<span id="L32015" class="LineNr">32015 </span> 0x11/imm32/alloc-id:fake -<span id="L32016" class="LineNr">32016 </span> <span class="SpecialChar"><a href='mu.subx.html#L34683'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L32017" class="LineNr">32017 </span> 0x11/imm32/alloc-id:fake -<span id="L32018" class="LineNr">32018 </span> <a href='mu.subx.html#L34248'>_string_f3_0f_2d_convert_to_int</a>/imm32/subx-name -<span id="L32019" class="LineNr">32019 </span> 0/imm32/no-rm32 -<span id="L32020" class="LineNr">32020 </span> 3/imm32/r32-is-first-output -<span id="L32021" class="LineNr">32021 </span> 0/imm32/no-imm32 -<span id="L32022" class="LineNr">32022 </span> 0/imm32/no-imm8 -<span id="L32023" class="LineNr">32023 </span> 0/imm32/no-disp32 -<span id="L32024" class="LineNr">32024 </span> 1/imm32/xm32-is-first-inout -<span id="L32025" class="LineNr">32025 </span> 0/imm32/no-x32 +<span id="L32007" class="LineNr">32007 </span> <a href='mu.subx.html#L34245'>_string-multiply</a>/imm32/name +<span id="L32008" class="LineNr">32008 </span> 0x11/imm32/alloc-id:fake +<span id="L32009" class="LineNr">32009 </span> <span class="SpecialChar"><a href='mu.subx.html#L35012'>Single-int-var-in-some-register</a></span>/imm32/inouts +<span id="L32010" class="LineNr">32010 </span> 0x11/imm32/alloc-id:fake +<span id="L32011" class="LineNr">32011 </span> <span class="SpecialChar"><a href='mu.subx.html#L35012'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L32012" class="LineNr">32012 </span> 0x11/imm32/alloc-id:fake +<span id="L32013" class="LineNr">32013 </span> <a href='mu.subx.html#L34562'>_string_0f_af_multiply</a>/imm32/subx-name +<span id="L32014" class="LineNr">32014 </span> 1/imm32/rm32-is-first-inout +<span id="L32015" class="LineNr">32015 </span> 3/imm32/r32-is-first-output +<span id="L32016" class="LineNr">32016 </span> 0/imm32/no-imm32 +<span id="L32017" class="LineNr">32017 </span> 0/imm32/no-imm8 +<span id="L32018" class="LineNr">32018 </span> 0/imm32/no-disp32 +<span id="L32019" class="LineNr">32019 </span> 0/imm32/no-xm32 +<span id="L32020" class="LineNr">32020 </span> 0/imm32/no-x32 +<span id="L32021" class="LineNr">32021 </span> 0x11/imm32/alloc-id:fake +<span id="L32022" class="LineNr">32022 </span> <a href='mu.subx.html#L32023'>_Primitive-multiply-reg-by-mem</a>/imm32/next +<span id="L32023" class="LineNr">32023 </span><span class="subxMinorFunction">_Primitive-multiply-reg-by-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32024" class="LineNr">32024 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32025" class="LineNr">32025 </span> <span class="subxComment"># var1/reg <- multiply var2 => 0f af/multiply var2/rm32 var1/r32</span> <span id="L32026" class="LineNr">32026 </span> 0x11/imm32/alloc-id:fake -<span id="L32027" class="LineNr">32027 </span> <a href='mu.subx.html#L32028'>_Primitive-truncate-xmem-to-reg</a>/imm32/next -<span id="L32028" class="LineNr">32028 </span><span class="subxMinorFunction">_Primitive-truncate-xmem-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32029" class="LineNr">32029 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32030" class="LineNr">32030 </span> <span class="subxComment"># var1/reg <- truncate var2 => f3 0f 2c/truncate-to-int var2/xm32 var1/r32</span> -<span id="L32031" class="LineNr">32031 </span> 0x11/imm32/alloc-id:fake -<span id="L32032" class="LineNr">32032 </span> <a href='mu.subx.html#L33966'>_string-truncate</a>/imm32/name -<span id="L32033" class="LineNr">32033 </span> 0x11/imm32/alloc-id:fake -<span id="L32034" class="LineNr">32034 </span> <span class="SpecialChar"><a href='mu.subx.html#L34869'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L32035" class="LineNr">32035 </span> 0x11/imm32/alloc-id:fake -<span id="L32036" class="LineNr">32036 </span> <span class="SpecialChar"><a href='mu.subx.html#L34683'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L32037" class="LineNr">32037 </span> 0x11/imm32/alloc-id:fake -<span id="L32038" class="LineNr">32038 </span> <a href='mu.subx.html#L34253'>_string_f3_0f_2c_truncate_to_int</a>/imm32/subx-name -<span id="L32039" class="LineNr">32039 </span> 0/imm32/no-rm32 -<span id="L32040" class="LineNr">32040 </span> 3/imm32/r32-is-first-output -<span id="L32041" class="LineNr">32041 </span> 0/imm32/no-imm32 -<span id="L32042" class="LineNr">32042 </span> 0/imm32/no-imm8 -<span id="L32043" class="LineNr">32043 </span> 0/imm32/no-disp32 -<span id="L32044" class="LineNr">32044 </span> 1/imm32/xm32-is-first-inout -<span id="L32045" class="LineNr">32045 </span> 0/imm32/no-x32 -<span id="L32046" class="LineNr">32046 </span> 0x11/imm32/alloc-id:fake -<span id="L32047" class="LineNr">32047 </span> <a href='mu.subx.html#L32048'>_Primitive-truncate-xreg-to-reg</a>/imm32/next -<span id="L32048" class="LineNr">32048 </span><span class="subxMinorFunction">_Primitive-truncate-xreg-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32049" class="LineNr">32049 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32050" class="LineNr">32050 </span> <span class="subxComment"># var1/reg <- truncate var2/xreg => f3 0f 2c/truncate-to-int var2/xm32 var1/r32</span> +<span id="L32027" class="LineNr">32027 </span> <a href='mu.subx.html#L34245'>_string-multiply</a>/imm32/name +<span id="L32028" class="LineNr">32028 </span> 0x11/imm32/alloc-id:fake +<span id="L32029" class="LineNr">32029 </span> <span class="SpecialChar"><a href='mu.subx.html#L34903'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L32030" class="LineNr">32030 </span> 0x11/imm32/alloc-id:fake +<span id="L32031" class="LineNr">32031 </span> <span class="SpecialChar"><a href='mu.subx.html#L35012'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L32032" class="LineNr">32032 </span> 0x11/imm32/alloc-id:fake +<span id="L32033" class="LineNr">32033 </span> <a href='mu.subx.html#L34562'>_string_0f_af_multiply</a>/imm32/subx-name +<span id="L32034" class="LineNr">32034 </span> 1/imm32/rm32-is-first-inout +<span id="L32035" class="LineNr">32035 </span> 3/imm32/r32-is-first-output +<span id="L32036" class="LineNr">32036 </span> 0/imm32/no-imm32 +<span id="L32037" class="LineNr">32037 </span> 0/imm32/no-imm8 +<span id="L32038" class="LineNr">32038 </span> 0/imm32/no-disp32 +<span id="L32039" class="LineNr">32039 </span> 0/imm32/no-xm32 +<span id="L32040" class="LineNr">32040 </span> 0/imm32/no-x32 +<span id="L32041" class="LineNr">32041 </span> 0x11/imm32/alloc-id:fake +<span id="L32042" class="LineNr">32042 </span> <a href='mu.subx.html#L32044'>_Primitive-convert-mem-to-xreg</a>/imm32/next +<span id="L32043" class="LineNr">32043 </span><span class="subxH1Comment"># - convert int to floating point</span> +<span id="L32044" class="LineNr">32044 </span><span class="subxMinorFunction">_Primitive-convert-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32045" class="LineNr">32045 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32046" class="LineNr">32046 </span> <span class="subxComment"># var1/xreg <- convert var2 => f3 0f 2a/convert-to-float var2/rm32 var1/x32</span> +<span id="L32047" class="LineNr">32047 </span> 0x11/imm32/alloc-id:fake +<span id="L32048" class="LineNr">32048 </span> <a href='mu.subx.html#L34250'>_string-convert</a>/imm32/name +<span id="L32049" class="LineNr">32049 </span> 0x11/imm32/alloc-id:fake +<span id="L32050" class="LineNr">32050 </span> <span class="SpecialChar"><a href='mu.subx.html#L34903'>Single-int-var-in-mem</a></span>/imm32/inouts <span id="L32051" class="LineNr">32051 </span> 0x11/imm32/alloc-id:fake -<span id="L32052" class="LineNr">32052 </span> <a href='mu.subx.html#L33966'>_string-truncate</a>/imm32/name +<span id="L32052" class="LineNr">32052 </span> <span class="SpecialChar"><a href='mu.subx.html#L35216'>Single-float-var-in-some-register</a></span>/imm32/outputs <span id="L32053" class="LineNr">32053 </span> 0x11/imm32/alloc-id:fake -<span id="L32054" class="LineNr">32054 </span> <span class="SpecialChar"><a href='mu.subx.html#L34887'>Single-float-var-in-some-register</a></span>/imm32/inouts -<span id="L32055" class="LineNr">32055 </span> 0x11/imm32/alloc-id:fake -<span id="L32056" class="LineNr">32056 </span> <span class="SpecialChar"><a href='mu.subx.html#L34683'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L32057" class="LineNr">32057 </span> 0x11/imm32/alloc-id:fake -<span id="L32058" class="LineNr">32058 </span> <a href='mu.subx.html#L34253'>_string_f3_0f_2c_truncate_to_int</a>/imm32/subx-name -<span id="L32059" class="LineNr">32059 </span> 0/imm32/no-rm32 -<span id="L32060" class="LineNr">32060 </span> 3/imm32/r32-is-first-output -<span id="L32061" class="LineNr">32061 </span> 0/imm32/no-imm32 -<span id="L32062" class="LineNr">32062 </span> 0/imm32/no-imm8 -<span id="L32063" class="LineNr">32063 </span> 0/imm32/no-disp32 -<span id="L32064" class="LineNr">32064 </span> 1/imm32/xm32-is-first-inout -<span id="L32065" class="LineNr">32065 </span> 0/imm32/no-x32 -<span id="L32066" class="LineNr">32066 </span> 0x11/imm32/alloc-id:fake -<span id="L32067" class="LineNr">32067 </span> <a href='mu.subx.html#L32069'>_Primitive-reinterpret-xmem-as-reg</a>/imm32/next -<span id="L32068" class="LineNr">32068 </span><span class="subxH1Comment"># - reinterpret bytes (just for debugging)</span> -<span id="L32069" class="LineNr">32069 </span><span class="subxMinorFunction">_Primitive-reinterpret-xmem-as-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32070" class="LineNr">32070 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32071" class="LineNr">32071 </span> <span class="subxComment"># var1/reg <- reinterpret var2 => 8b/-> var2/xm32 var1/r32</span> -<span id="L32072" class="LineNr">32072 </span> 0x11/imm32/alloc-id:fake -<span id="L32073" class="LineNr">32073 </span> <a href='mu.subx.html#L33971'>_string-reinterpret</a>/imm32/name -<span id="L32074" class="LineNr">32074 </span> 0x11/imm32/alloc-id:fake -<span id="L32075" class="LineNr">32075 </span> <span class="SpecialChar"><a href='mu.subx.html#L34869'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L32076" class="LineNr">32076 </span> 0x11/imm32/alloc-id:fake -<span id="L32077" class="LineNr">32077 </span> <span class="SpecialChar"><a href='mu.subx.html#L34683'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L32078" class="LineNr">32078 </span> 0x11/imm32/alloc-id:fake -<span id="L32079" class="LineNr">32079 </span> <a href='mu.subx.html#L34473'>_string_8b_-></a>/imm32/subx-name -<span id="L32080" class="LineNr">32080 </span> 0/imm32/no-rm32 -<span id="L32081" class="LineNr">32081 </span> 3/imm32/r32-is-first-output -<span id="L32082" class="LineNr">32082 </span> 0/imm32/no-imm32 -<span id="L32083" class="LineNr">32083 </span> 0/imm32/no-imm8 -<span id="L32084" class="LineNr">32084 </span> 0/imm32/no-disp32 -<span id="L32085" class="LineNr">32085 </span> 1/imm32/xm32-is-first-inout -<span id="L32086" class="LineNr">32086 </span> 0/imm32/no-x32 -<span id="L32087" class="LineNr">32087 </span> 0x11/imm32/alloc-id:fake -<span id="L32088" class="LineNr">32088 </span> <a href='mu.subx.html#L32089'>_Primitive-reinterpret-mem-as-xreg</a>/imm32/next -<span id="L32089" class="LineNr">32089 </span><span class="subxMinorFunction">_Primitive-reinterpret-mem-as-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32090" class="LineNr">32090 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32091" class="LineNr">32091 </span> <span class="subxComment"># var1/xreg <- reinterpret var2 => f3 0f 10/-> var2/rm32 var1/x32</span> +<span id="L32054" class="LineNr">32054 </span> <a href='mu.subx.html#L34567'>_string_f3_0f_2a_convert_to_float</a>/imm32/subx-name +<span id="L32055" class="LineNr">32055 </span> 1/imm32/rm32-is-first-inout +<span id="L32056" class="LineNr">32056 </span> 0/imm32/no-r32 +<span id="L32057" class="LineNr">32057 </span> 0/imm32/no-imm32 +<span id="L32058" class="LineNr">32058 </span> 0/imm32/no-imm8 +<span id="L32059" class="LineNr">32059 </span> 0/imm32/no-disp32 +<span id="L32060" class="LineNr">32060 </span> 0/imm32/no-xm32 +<span id="L32061" class="LineNr">32061 </span> 3/imm32/x32-is-first-output +<span id="L32062" class="LineNr">32062 </span> 0x11/imm32/alloc-id:fake +<span id="L32063" class="LineNr">32063 </span> <a href='mu.subx.html#L32064'>_Primitive-convert-reg-to-xreg</a>/imm32/next +<span id="L32064" class="LineNr">32064 </span><span class="subxMinorFunction">_Primitive-convert-reg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32065" class="LineNr">32065 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32066" class="LineNr">32066 </span> <span class="subxComment"># var1/xreg <- convert var2/reg => f3 0f 2a/convert-to-float var2/rm32 var1/x32</span> +<span id="L32067" class="LineNr">32067 </span> 0x11/imm32/alloc-id:fake +<span id="L32068" class="LineNr">32068 </span> <a href='mu.subx.html#L34250'>_string-convert</a>/imm32/name +<span id="L32069" class="LineNr">32069 </span> 0x11/imm32/alloc-id:fake +<span id="L32070" class="LineNr">32070 </span> <span class="SpecialChar"><a href='mu.subx.html#L35012'>Single-int-var-in-some-register</a></span>/imm32/inouts +<span id="L32071" class="LineNr">32071 </span> 0x11/imm32/alloc-id:fake +<span id="L32072" class="LineNr">32072 </span> <span class="SpecialChar"><a href='mu.subx.html#L35216'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32073" class="LineNr">32073 </span> 0x11/imm32/alloc-id:fake +<span id="L32074" class="LineNr">32074 </span> <a href='mu.subx.html#L34567'>_string_f3_0f_2a_convert_to_float</a>/imm32/subx-name +<span id="L32075" class="LineNr">32075 </span> 1/imm32/rm32-is-first-inout +<span id="L32076" class="LineNr">32076 </span> 0/imm32/no-r32 +<span id="L32077" class="LineNr">32077 </span> 0/imm32/no-imm32 +<span id="L32078" class="LineNr">32078 </span> 0/imm32/no-imm8 +<span id="L32079" class="LineNr">32079 </span> 0/imm32/no-disp32 +<span id="L32080" class="LineNr">32080 </span> 0/imm32/no-xm32 +<span id="L32081" class="LineNr">32081 </span> 3/imm32/x32-is-first-output +<span id="L32082" class="LineNr">32082 </span> 0x11/imm32/alloc-id:fake +<span id="L32083" class="LineNr">32083 </span> <a href='mu.subx.html#L32085'>_Primitive-convert-xmem-to-reg</a>/imm32/next +<span id="L32084" class="LineNr">32084 </span><span class="subxH1Comment"># - convert floating point to int</span> +<span id="L32085" class="LineNr">32085 </span><span class="subxMinorFunction">_Primitive-convert-xmem-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32086" class="LineNr">32086 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32087" class="LineNr">32087 </span> <span class="subxComment"># var1/reg <- convert var2 => f3 0f 2d/convert-to-int var2/xm32 var1/r32</span> +<span id="L32088" class="LineNr">32088 </span> 0x11/imm32/alloc-id:fake +<span id="L32089" class="LineNr">32089 </span> <a href='mu.subx.html#L34250'>_string-convert</a>/imm32/name +<span id="L32090" class="LineNr">32090 </span> 0x11/imm32/alloc-id:fake +<span id="L32091" class="LineNr">32091 </span> <span class="SpecialChar"><a href='mu.subx.html#L35198'>Single-float-var-in-mem</a></span>/imm32/inouts <span id="L32092" class="LineNr">32092 </span> 0x11/imm32/alloc-id:fake -<span id="L32093" class="LineNr">32093 </span> <a href='mu.subx.html#L33971'>_string-reinterpret</a>/imm32/name +<span id="L32093" class="LineNr">32093 </span> <span class="SpecialChar"><a href='mu.subx.html#L35012'>Single-int-var-in-some-register</a></span>/imm32/outputs <span id="L32094" class="LineNr">32094 </span> 0x11/imm32/alloc-id:fake -<span id="L32095" class="LineNr">32095 </span> <span class="SpecialChar"><a href='mu.subx.html#L34574'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L32096" class="LineNr">32096 </span> 0x11/imm32/alloc-id:fake -<span id="L32097" class="LineNr">32097 </span> <span class="SpecialChar"><a href='mu.subx.html#L34887'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32098" class="LineNr">32098 </span> 0x11/imm32/alloc-id:fake -<span id="L32099" class="LineNr">32099 </span> <a href='mu.subx.html#L34303'>_string_f3_0f_10_copy</a>/imm32/subx-name -<span id="L32100" class="LineNr">32100 </span> 1/imm32/rm32-is-first-inout -<span id="L32101" class="LineNr">32101 </span> 0/imm32/no-r32 -<span id="L32102" class="LineNr">32102 </span> 0/imm32/no-imm32 -<span id="L32103" class="LineNr">32103 </span> 0/imm32/no-imm8 -<span id="L32104" class="LineNr">32104 </span> 0/imm32/no-disp32 -<span id="L32105" class="LineNr">32105 </span> 0/imm32/no-xm32 -<span id="L32106" class="LineNr">32106 </span> 3/imm32/x32-is-first-output -<span id="L32107" class="LineNr">32107 </span> 0x11/imm32/alloc-id:fake -<span id="L32108" class="LineNr">32108 </span> <a href='mu.subx.html#L32110'>_Primitive-copy-xreg-to-xreg</a>/imm32/next -<span id="L32109" class="LineNr">32109 </span><span class="subxH1Comment"># - floating-point copy</span> -<span id="L32110" class="LineNr">32110 </span><span class="subxMinorFunction">_Primitive-copy-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32111" class="LineNr">32111 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32112" class="LineNr">32112 </span> <span class="subxComment"># var1/xreg <- copy var2/xreg => f3 0f 11/<- var1/xm32 var2/x32</span> -<span id="L32113" class="LineNr">32113 </span> 0x11/imm32/alloc-id:fake -<span id="L32114" class="LineNr">32114 </span> <a href='mu.subx.html#L33851'>_string-copy</a>/imm32/name -<span id="L32115" class="LineNr">32115 </span> 0x11/imm32/alloc-id:fake -<span id="L32116" class="LineNr">32116 </span> <span class="SpecialChar"><a href='mu.subx.html#L34887'>Single-float-var-in-some-register</a></span>/imm32/inouts -<span id="L32117" class="LineNr">32117 </span> 0x11/imm32/alloc-id:fake -<span id="L32118" class="LineNr">32118 </span> <span class="SpecialChar"><a href='mu.subx.html#L34887'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32119" class="LineNr">32119 </span> 0x11/imm32/alloc-id:fake -<span id="L32120" class="LineNr">32120 </span> <a href='mu.subx.html#L34308'>_string_f3_0f_11_copy</a>/imm32/subx-name -<span id="L32121" class="LineNr">32121 </span> 0/imm32/no-rm32 -<span id="L32122" class="LineNr">32122 </span> 0/imm32/no-r32 -<span id="L32123" class="LineNr">32123 </span> 0/imm32/no-imm32 -<span id="L32124" class="LineNr">32124 </span> 0/imm32/no-imm8 -<span id="L32125" class="LineNr">32125 </span> 0/imm32/no-disp32 -<span id="L32126" class="LineNr">32126 </span> 3/imm32/xm32-is-first-output -<span id="L32127" class="LineNr">32127 </span> 1/imm32/x32-is-first-inout +<span id="L32095" class="LineNr">32095 </span> <a href='mu.subx.html#L34572'>_string_f3_0f_2d_convert_to_int</a>/imm32/subx-name +<span id="L32096" class="LineNr">32096 </span> 0/imm32/no-rm32 +<span id="L32097" class="LineNr">32097 </span> 3/imm32/r32-is-first-output +<span id="L32098" class="LineNr">32098 </span> 0/imm32/no-imm32 +<span id="L32099" class="LineNr">32099 </span> 0/imm32/no-imm8 +<span id="L32100" class="LineNr">32100 </span> 0/imm32/no-disp32 +<span id="L32101" class="LineNr">32101 </span> 1/imm32/xm32-is-first-inout +<span id="L32102" class="LineNr">32102 </span> 0/imm32/no-x32 +<span id="L32103" class="LineNr">32103 </span> 0x11/imm32/alloc-id:fake +<span id="L32104" class="LineNr">32104 </span> <a href='mu.subx.html#L32105'>_Primitive-convert-xreg-to-reg</a>/imm32/next +<span id="L32105" class="LineNr">32105 </span><span class="subxMinorFunction">_Primitive-convert-xreg-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32106" class="LineNr">32106 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32107" class="LineNr">32107 </span> <span class="subxComment"># var1/reg <- convert var2/xreg => f3 0f 2d/convert-to-int var2/xm32 var1/r32</span> +<span id="L32108" class="LineNr">32108 </span> 0x11/imm32/alloc-id:fake +<span id="L32109" class="LineNr">32109 </span> <a href='mu.subx.html#L34250'>_string-convert</a>/imm32/name +<span id="L32110" class="LineNr">32110 </span> 0x11/imm32/alloc-id:fake +<span id="L32111" class="LineNr">32111 </span> <span class="SpecialChar"><a href='mu.subx.html#L35216'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L32112" class="LineNr">32112 </span> 0x11/imm32/alloc-id:fake +<span id="L32113" class="LineNr">32113 </span> <span class="SpecialChar"><a href='mu.subx.html#L35012'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L32114" class="LineNr">32114 </span> 0x11/imm32/alloc-id:fake +<span id="L32115" class="LineNr">32115 </span> <a href='mu.subx.html#L34572'>_string_f3_0f_2d_convert_to_int</a>/imm32/subx-name +<span id="L32116" class="LineNr">32116 </span> 0/imm32/no-rm32 +<span id="L32117" class="LineNr">32117 </span> 3/imm32/r32-is-first-output +<span id="L32118" class="LineNr">32118 </span> 0/imm32/no-imm32 +<span id="L32119" class="LineNr">32119 </span> 0/imm32/no-imm8 +<span id="L32120" class="LineNr">32120 </span> 0/imm32/no-disp32 +<span id="L32121" class="LineNr">32121 </span> 1/imm32/xm32-is-first-inout +<span id="L32122" class="LineNr">32122 </span> 0/imm32/no-x32 +<span id="L32123" class="LineNr">32123 </span> 0x11/imm32/alloc-id:fake +<span id="L32124" class="LineNr">32124 </span> <a href='mu.subx.html#L32125'>_Primitive-truncate-xmem-to-reg</a>/imm32/next +<span id="L32125" class="LineNr">32125 </span><span class="subxMinorFunction">_Primitive-truncate-xmem-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32126" class="LineNr">32126 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32127" class="LineNr">32127 </span> <span class="subxComment"># var1/reg <- truncate var2 => f3 0f 2c/truncate-to-int var2/xm32 var1/r32</span> <span id="L32128" class="LineNr">32128 </span> 0x11/imm32/alloc-id:fake -<span id="L32129" class="LineNr">32129 </span> <a href='mu.subx.html#L32130'>_Primitive-copy-xreg-to-mem</a>/imm32/next -<span id="L32130" class="LineNr">32130 </span><span class="subxMinorFunction">_Primitive-copy-xreg-to-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32131" class="LineNr">32131 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32132" class="LineNr">32132 </span> <span class="subxComment"># copy-to var1 var2/xreg => f3 0f 11/<- var1 var2/x32</span> -<span id="L32133" class="LineNr">32133 </span> 0x11/imm32/alloc-id:fake -<span id="L32134" class="LineNr">32134 </span> <a href='mu.subx.html#L33856'>_string-copy-to</a>/imm32/name -<span id="L32135" class="LineNr">32135 </span> 0x11/imm32/alloc-id:fake -<span id="L32136" class="LineNr">32136 </span> <span class="SpecialChar"><a href='mu.subx.html#L34676'>Two-args-float-stack-float-reg</a></span>/imm32/inouts -<span id="L32137" class="LineNr">32137 </span> 0/imm32/no-outputs -<span id="L32138" class="LineNr">32138 </span> 0/imm32/no-outputs -<span id="L32139" class="LineNr">32139 </span> 0x11/imm32/alloc-id:fake -<span id="L32140" class="LineNr">32140 </span> <a href='mu.subx.html#L34308'>_string_f3_0f_11_copy</a>/imm32/subx-name -<span id="L32141" class="LineNr">32141 </span> 0/imm32/no-rm32 -<span id="L32142" class="LineNr">32142 </span> 0/imm32/no-r32 -<span id="L32143" class="LineNr">32143 </span> 0/imm32/no-imm32 -<span id="L32144" class="LineNr">32144 </span> 0/imm32/no-imm8 -<span id="L32145" class="LineNr">32145 </span> 0/imm32/no-disp32 -<span id="L32146" class="LineNr">32146 </span> 1/imm32/xm32-is-first-inout -<span id="L32147" class="LineNr">32147 </span> 2/imm32/x32-is-second-inout +<span id="L32129" class="LineNr">32129 </span> <a href='mu.subx.html#L34255'>_string-truncate</a>/imm32/name +<span id="L32130" class="LineNr">32130 </span> 0x11/imm32/alloc-id:fake +<span id="L32131" class="LineNr">32131 </span> <span class="SpecialChar"><a href='mu.subx.html#L35198'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L32132" class="LineNr">32132 </span> 0x11/imm32/alloc-id:fake +<span id="L32133" class="LineNr">32133 </span> <span class="SpecialChar"><a href='mu.subx.html#L35012'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L32134" class="LineNr">32134 </span> 0x11/imm32/alloc-id:fake +<span id="L32135" class="LineNr">32135 </span> <a href='mu.subx.html#L34577'>_string_f3_0f_2c_truncate_to_int</a>/imm32/subx-name +<span id="L32136" class="LineNr">32136 </span> 0/imm32/no-rm32 +<span id="L32137" class="LineNr">32137 </span> 3/imm32/r32-is-first-output +<span id="L32138" class="LineNr">32138 </span> 0/imm32/no-imm32 +<span id="L32139" class="LineNr">32139 </span> 0/imm32/no-imm8 +<span id="L32140" class="LineNr">32140 </span> 0/imm32/no-disp32 +<span id="L32141" class="LineNr">32141 </span> 1/imm32/xm32-is-first-inout +<span id="L32142" class="LineNr">32142 </span> 0/imm32/no-x32 +<span id="L32143" class="LineNr">32143 </span> 0x11/imm32/alloc-id:fake +<span id="L32144" class="LineNr">32144 </span> <a href='mu.subx.html#L32145'>_Primitive-truncate-xreg-to-reg</a>/imm32/next +<span id="L32145" class="LineNr">32145 </span><span class="subxMinorFunction">_Primitive-truncate-xreg-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32146" class="LineNr">32146 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32147" class="LineNr">32147 </span> <span class="subxComment"># var1/reg <- truncate var2/xreg => f3 0f 2c/truncate-to-int var2/xm32 var1/r32</span> <span id="L32148" class="LineNr">32148 </span> 0x11/imm32/alloc-id:fake -<span id="L32149" class="LineNr">32149 </span> <a href='mu.subx.html#L32150'>_Primitive-copy-mem-to-xreg</a>/imm32/next -<span id="L32150" class="LineNr">32150 </span><span class="subxMinorFunction">_Primitive-copy-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32151" class="LineNr">32151 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32152" class="LineNr">32152 </span> <span class="subxComment"># var1/xreg <- copy var2 => f3 0f 10/-> var2/rm32 var1/x32</span> -<span id="L32153" class="LineNr">32153 </span> 0x11/imm32/alloc-id:fake -<span id="L32154" class="LineNr">32154 </span> <a href='mu.subx.html#L33851'>_string-copy</a>/imm32/name -<span id="L32155" class="LineNr">32155 </span> 0x11/imm32/alloc-id:fake -<span id="L32156" class="LineNr">32156 </span> <span class="SpecialChar"><a href='mu.subx.html#L34869'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L32157" class="LineNr">32157 </span> 0x11/imm32/alloc-id:fake -<span id="L32158" class="LineNr">32158 </span> <span class="SpecialChar"><a href='mu.subx.html#L34887'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32159" class="LineNr">32159 </span> 0x11/imm32/alloc-id:fake -<span id="L32160" class="LineNr">32160 </span> <a href='mu.subx.html#L34303'>_string_f3_0f_10_copy</a>/imm32/subx-name -<span id="L32161" class="LineNr">32161 </span> 0/imm32/no-rm32 -<span id="L32162" class="LineNr">32162 </span> 0/imm32/no-r32 -<span id="L32163" class="LineNr">32163 </span> 0/imm32/no-imm32 -<span id="L32164" class="LineNr">32164 </span> 0/imm32/no-imm8 -<span id="L32165" class="LineNr">32165 </span> 0/imm32/no-disp32 -<span id="L32166" class="LineNr">32166 </span> 1/imm32/xm32-is-first-inout -<span id="L32167" class="LineNr">32167 </span> 3/imm32/x32-is-first-output -<span id="L32168" class="LineNr">32168 </span> 0x11/imm32/alloc-id:fake -<span id="L32169" class="LineNr">32169 </span> <a href='mu.subx.html#L32171'>_Primitive-address-of-xmem</a>/imm32/next -<span id="L32170" class="LineNr">32170 </span><span class="subxH1Comment"># - floating-point-address</span> -<span id="L32171" class="LineNr">32171 </span><span class="subxMinorFunction">_Primitive-address-of-xmem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32172" class="LineNr">32172 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32173" class="LineNr">32173 </span> <span class="subxComment"># var1/reg <- address var2 => 8d/copy-address var2/rm32 var1/r32</span> -<span id="L32174" class="LineNr">32174 </span> 0x11/imm32/alloc-id:fake -<span id="L32175" class="LineNr">32175 </span> <a href='mu.subx.html#L33751'>_string-address</a>/imm32/name -<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#L34869'>Single-float-var-in-mem</a></span>/imm32/inouts -<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#L34690'>Single-addr-var-in-some-register</a></span>/imm32/outputs -<span id="L32180" class="LineNr">32180 </span> 0x11/imm32/alloc-id:fake -<span id="L32181" class="LineNr">32181 </span> <a href='mu.subx.html#L34488'>_string_8d_copy_address</a>/imm32/subx-name -<span id="L32182" class="LineNr">32182 </span> 1/imm32/rm32-is-first-inout -<span id="L32183" class="LineNr">32183 </span> 3/imm32/r32-is-first-output -<span id="L32184" class="LineNr">32184 </span> 0/imm32/no-imm32 -<span id="L32185" class="LineNr">32185 </span> 0/imm32/no-imm8 -<span id="L32186" class="LineNr">32186 </span> 0/imm32/no-disp32 -<span id="L32187" class="LineNr">32187 </span> 0/imm32/no-xm32 -<span id="L32188" class="LineNr">32188 </span> 0/imm32/no-x32 +<span id="L32149" class="LineNr">32149 </span> <a href='mu.subx.html#L34255'>_string-truncate</a>/imm32/name +<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#L35216'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L32152" class="LineNr">32152 </span> 0x11/imm32/alloc-id:fake +<span id="L32153" class="LineNr">32153 </span> <span class="SpecialChar"><a href='mu.subx.html#L35012'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L32154" class="LineNr">32154 </span> 0x11/imm32/alloc-id:fake +<span id="L32155" class="LineNr">32155 </span> <a href='mu.subx.html#L34577'>_string_f3_0f_2c_truncate_to_int</a>/imm32/subx-name +<span id="L32156" class="LineNr">32156 </span> 0/imm32/no-rm32 +<span id="L32157" class="LineNr">32157 </span> 3/imm32/r32-is-first-output +<span id="L32158" class="LineNr">32158 </span> 0/imm32/no-imm32 +<span id="L32159" class="LineNr">32159 </span> 0/imm32/no-imm8 +<span id="L32160" class="LineNr">32160 </span> 0/imm32/no-disp32 +<span id="L32161" class="LineNr">32161 </span> 1/imm32/xm32-is-first-inout +<span id="L32162" class="LineNr">32162 </span> 0/imm32/no-x32 +<span id="L32163" class="LineNr">32163 </span> 0x11/imm32/alloc-id:fake +<span id="L32164" class="LineNr">32164 </span> <a href='mu.subx.html#L32166'>_Primitive-reinterpret-xmem-as-reg</a>/imm32/next +<span id="L32165" class="LineNr">32165 </span><span class="subxH1Comment"># - reinterpret bytes (just for debugging)</span> +<span id="L32166" class="LineNr">32166 </span><span class="subxMinorFunction">_Primitive-reinterpret-xmem-as-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32167" class="LineNr">32167 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32168" class="LineNr">32168 </span> <span class="subxComment"># var1/reg <- reinterpret var2 => 8b/-> var2/xm32 var1/r32</span> +<span id="L32169" class="LineNr">32169 </span> 0x11/imm32/alloc-id:fake +<span id="L32170" class="LineNr">32170 </span> <a href='mu.subx.html#L34260'>_string-reinterpret</a>/imm32/name +<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#L35198'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L32173" class="LineNr">32173 </span> 0x11/imm32/alloc-id:fake +<span id="L32174" class="LineNr">32174 </span> <span class="SpecialChar"><a href='mu.subx.html#L35012'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L32175" class="LineNr">32175 </span> 0x11/imm32/alloc-id:fake +<span id="L32176" class="LineNr">32176 </span> <a href='mu.subx.html#L34797'>_string_8b_-></a>/imm32/subx-name +<span id="L32177" class="LineNr">32177 </span> 0/imm32/no-rm32 +<span id="L32178" class="LineNr">32178 </span> 3/imm32/r32-is-first-output +<span id="L32179" class="LineNr">32179 </span> 0/imm32/no-imm32 +<span id="L32180" class="LineNr">32180 </span> 0/imm32/no-imm8 +<span id="L32181" class="LineNr">32181 </span> 0/imm32/no-disp32 +<span id="L32182" class="LineNr">32182 </span> 1/imm32/xm32-is-first-inout +<span id="L32183" class="LineNr">32183 </span> 0/imm32/no-x32 +<span id="L32184" class="LineNr">32184 </span> 0x11/imm32/alloc-id:fake +<span id="L32185" class="LineNr">32185 </span> <a href='mu.subx.html#L32186'>_Primitive-reinterpret-mem-as-xreg</a>/imm32/next +<span id="L32186" class="LineNr">32186 </span><span class="subxMinorFunction">_Primitive-reinterpret-mem-as-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32187" class="LineNr">32187 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32188" class="LineNr">32188 </span> <span class="subxComment"># var1/xreg <- reinterpret var2 => f3 0f 10/-> var2/rm32 var1/x32</span> <span id="L32189" class="LineNr">32189 </span> 0x11/imm32/alloc-id:fake -<span id="L32190" class="LineNr">32190 </span> <a href='mu.subx.html#L32192'>_Primitive-add-xreg-to-xreg</a>/imm32/next -<span id="L32191" class="LineNr">32191 </span><span class="subxH1Comment"># - floating-point add</span> -<span id="L32192" class="LineNr">32192 </span><span class="subxMinorFunction">_Primitive-add-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32193" class="LineNr">32193 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32194" class="LineNr">32194 </span> <span class="subxComment"># var1/xreg <- add var2/xreg => f3 0f 58/add var1/xm32 var2/x32</span> +<span id="L32190" class="LineNr">32190 </span> <a href='mu.subx.html#L34260'>_string-reinterpret</a>/imm32/name +<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#L34903'>Single-int-var-in-mem</a></span>/imm32/inouts +<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#L35216'>Single-float-var-in-some-register</a></span>/imm32/outputs <span id="L32195" class="LineNr">32195 </span> 0x11/imm32/alloc-id:fake -<span id="L32196" class="LineNr">32196 </span> <a href='mu.subx.html#L33746'>_string-add</a>/imm32/name -<span id="L32197" class="LineNr">32197 </span> 0x11/imm32/alloc-id:fake -<span id="L32198" class="LineNr">32198 </span> <span class="SpecialChar"><a href='mu.subx.html#L34887'>Single-float-var-in-some-register</a></span>/imm32/inouts -<span id="L32199" class="LineNr">32199 </span> 0x11/imm32/alloc-id:fake -<span id="L32200" class="LineNr">32200 </span> <span class="SpecialChar"><a href='mu.subx.html#L34887'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32201" class="LineNr">32201 </span> 0x11/imm32/alloc-id:fake -<span id="L32202" class="LineNr">32202 </span> <a href='mu.subx.html#L34258'>_string_f3_0f_58_add</a>/imm32/subx-name -<span id="L32203" class="LineNr">32203 </span> 0/imm32/no-rm32 -<span id="L32204" class="LineNr">32204 </span> 0/imm32/no-r32 -<span id="L32205" class="LineNr">32205 </span> 0/imm32/no-imm32 -<span id="L32206" class="LineNr">32206 </span> 0/imm32/no-imm8 -<span id="L32207" class="LineNr">32207 </span> 0/imm32/no-disp32 -<span id="L32208" class="LineNr">32208 </span> 1/imm32/xm32-is-first-inout -<span id="L32209" class="LineNr">32209 </span> 3/imm32/x32-is-first-output +<span id="L32196" class="LineNr">32196 </span> <a href='mu.subx.html#L34627'>_string_f3_0f_10_copy</a>/imm32/subx-name +<span id="L32197" class="LineNr">32197 </span> 1/imm32/rm32-is-first-inout +<span id="L32198" class="LineNr">32198 </span> 0/imm32/no-r32 +<span id="L32199" class="LineNr">32199 </span> 0/imm32/no-imm32 +<span id="L32200" class="LineNr">32200 </span> 0/imm32/no-imm8 +<span id="L32201" class="LineNr">32201 </span> 0/imm32/no-disp32 +<span id="L32202" class="LineNr">32202 </span> 0/imm32/no-xm32 +<span id="L32203" class="LineNr">32203 </span> 3/imm32/x32-is-first-output +<span id="L32204" class="LineNr">32204 </span> 0x11/imm32/alloc-id:fake +<span id="L32205" class="LineNr">32205 </span> <a href='mu.subx.html#L32207'>_Primitive-copy-xreg-to-xreg</a>/imm32/next +<span id="L32206" class="LineNr">32206 </span><span class="subxH1Comment"># - floating-point copy</span> +<span id="L32207" class="LineNr">32207 </span><span class="subxMinorFunction">_Primitive-copy-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32208" class="LineNr">32208 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32209" class="LineNr">32209 </span> <span class="subxComment"># var1/xreg <- copy var2/xreg => f3 0f 11/<- var1/xm32 var2/x32</span> <span id="L32210" class="LineNr">32210 </span> 0x11/imm32/alloc-id:fake -<span id="L32211" class="LineNr">32211 </span> <a href='mu.subx.html#L32212'>_Primitive-add-mem-to-xreg</a>/imm32/next -<span id="L32212" class="LineNr">32212 </span><span class="subxMinorFunction">_Primitive-add-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32213" class="LineNr">32213 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32214" class="LineNr">32214 </span> <span class="subxComment"># var1/xreg <- add var2 => f3 0f 58/add var2/xm32 var1/x32</span> -<span id="L32215" class="LineNr">32215 </span> 0x11/imm32/alloc-id:fake -<span id="L32216" class="LineNr">32216 </span> <a href='mu.subx.html#L33746'>_string-add</a>/imm32/name -<span id="L32217" class="LineNr">32217 </span> 0x11/imm32/alloc-id:fake -<span id="L32218" class="LineNr">32218 </span> <span class="SpecialChar"><a href='mu.subx.html#L34869'>Single-float-var-in-mem</a></span>/imm32/inouts -<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#L34887'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32221" class="LineNr">32221 </span> 0x11/imm32/alloc-id:fake -<span id="L32222" class="LineNr">32222 </span> <a href='mu.subx.html#L34258'>_string_f3_0f_58_add</a>/imm32/subx-name -<span id="L32223" class="LineNr">32223 </span> 0/imm32/no-rm32 -<span id="L32224" class="LineNr">32224 </span> 0/imm32/no-r32 -<span id="L32225" class="LineNr">32225 </span> 0/imm32/no-imm32 -<span id="L32226" class="LineNr">32226 </span> 0/imm32/no-imm8 -<span id="L32227" class="LineNr">32227 </span> 0/imm32/no-disp32 -<span id="L32228" class="LineNr">32228 </span> 1/imm32/xm32-is-first-inout -<span id="L32229" class="LineNr">32229 </span> 3/imm32/x32-is-first-output +<span id="L32211" class="LineNr">32211 </span> <a href='mu.subx.html#L34120'>_string-copy</a>/imm32/name +<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#L35216'>Single-float-var-in-some-register</a></span>/imm32/inouts +<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#L35216'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32216" class="LineNr">32216 </span> 0x11/imm32/alloc-id:fake +<span id="L32217" class="LineNr">32217 </span> <a href='mu.subx.html#L34632'>_string_f3_0f_11_copy</a>/imm32/subx-name +<span id="L32218" class="LineNr">32218 </span> 0/imm32/no-rm32 +<span id="L32219" class="LineNr">32219 </span> 0/imm32/no-r32 +<span id="L32220" class="LineNr">32220 </span> 0/imm32/no-imm32 +<span id="L32221" class="LineNr">32221 </span> 0/imm32/no-imm8 +<span id="L32222" class="LineNr">32222 </span> 0/imm32/no-disp32 +<span id="L32223" class="LineNr">32223 </span> 3/imm32/xm32-is-first-output +<span id="L32224" class="LineNr">32224 </span> 1/imm32/x32-is-first-inout +<span id="L32225" class="LineNr">32225 </span> 0x11/imm32/alloc-id:fake +<span id="L32226" class="LineNr">32226 </span> <a href='mu.subx.html#L32227'>_Primitive-copy-xreg-to-mem</a>/imm32/next +<span id="L32227" class="LineNr">32227 </span><span class="subxMinorFunction">_Primitive-copy-xreg-to-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32228" class="LineNr">32228 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32229" class="LineNr">32229 </span> <span class="subxComment"># copy-to var1 var2/xreg => f3 0f 11/<- var1 var2/x32</span> <span id="L32230" class="LineNr">32230 </span> 0x11/imm32/alloc-id:fake -<span id="L32231" class="LineNr">32231 </span> <a href='mu.subx.html#L32233'>_Primitive-subtract-xreg-from-xreg</a>/imm32/next -<span id="L32232" class="LineNr">32232 </span><span class="subxH1Comment"># - floating-point subtract</span> -<span id="L32233" class="LineNr">32233 </span><span class="subxMinorFunction">_Primitive-subtract-xreg-from-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32234" class="LineNr">32234 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32235" class="LineNr">32235 </span> <span class="subxComment"># var1/xreg <- subtract var2/xreg => f3 0f 5c/subtract var1/xm32 var2/x32</span> +<span id="L32231" class="LineNr">32231 </span> <a href='mu.subx.html#L34125'>_string-copy-to</a>/imm32/name +<span id="L32232" class="LineNr">32232 </span> 0x11/imm32/alloc-id:fake +<span id="L32233" class="LineNr">32233 </span> <span class="SpecialChar"><a href='mu.subx.html#L35005'>Two-args-float-stack-float-reg</a></span>/imm32/inouts +<span id="L32234" class="LineNr">32234 </span> 0/imm32/no-outputs +<span id="L32235" class="LineNr">32235 </span> 0/imm32/no-outputs <span id="L32236" class="LineNr">32236 </span> 0x11/imm32/alloc-id:fake -<span id="L32237" class="LineNr">32237 </span> <a href='mu.subx.html#L34021'>_string-subtract</a>/imm32/name -<span id="L32238" class="LineNr">32238 </span> 0x11/imm32/alloc-id:fake -<span id="L32239" class="LineNr">32239 </span> <span class="SpecialChar"><a href='mu.subx.html#L34887'>Single-float-var-in-some-register</a></span>/imm32/inouts -<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#L34887'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32242" class="LineNr">32242 </span> 0x11/imm32/alloc-id:fake -<span id="L32243" class="LineNr">32243 </span> <a href='mu.subx.html#L34263'>_string_f3_0f_5c_subtract</a>/imm32/subx-name -<span id="L32244" class="LineNr">32244 </span> 0/imm32/no-rm32 -<span id="L32245" class="LineNr">32245 </span> 0/imm32/no-r32 -<span id="L32246" class="LineNr">32246 </span> 0/imm32/no-imm32 -<span id="L32247" class="LineNr">32247 </span> 0/imm32/no-imm8 -<span id="L32248" class="LineNr">32248 </span> 0/imm32/no-disp32 -<span id="L32249" class="LineNr">32249 </span> 1/imm32/xm32-is-first-inout -<span id="L32250" class="LineNr">32250 </span> 3/imm32/x32-is-first-output -<span id="L32251" class="LineNr">32251 </span> 0x11/imm32/alloc-id:fake -<span id="L32252" class="LineNr">32252 </span> <a href='mu.subx.html#L32253'>_Primitive-subtract-mem-from-xreg</a>/imm32/next -<span id="L32253" class="LineNr">32253 </span><span class="subxMinorFunction">_Primitive-subtract-mem-from-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32254" class="LineNr">32254 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32255" class="LineNr">32255 </span> <span class="subxComment"># var1/xreg <- subtract var2 => f3 0f 5c/subtract var2/xm32 var1/x32</span> +<span id="L32237" class="LineNr">32237 </span> <a href='mu.subx.html#L34632'>_string_f3_0f_11_copy</a>/imm32/subx-name +<span id="L32238" class="LineNr">32238 </span> 0/imm32/no-rm32 +<span id="L32239" class="LineNr">32239 </span> 0/imm32/no-r32 +<span id="L32240" class="LineNr">32240 </span> 0/imm32/no-imm32 +<span id="L32241" class="LineNr">32241 </span> 0/imm32/no-imm8 +<span id="L32242" class="LineNr">32242 </span> 0/imm32/no-disp32 +<span id="L32243" class="LineNr">32243 </span> 1/imm32/xm32-is-first-inout +<span id="L32244" class="LineNr">32244 </span> 2/imm32/x32-is-second-inout +<span id="L32245" class="LineNr">32245 </span> 0x11/imm32/alloc-id:fake +<span id="L32246" class="LineNr">32246 </span> <a href='mu.subx.html#L32247'>_Primitive-copy-mem-to-xreg</a>/imm32/next +<span id="L32247" class="LineNr">32247 </span><span class="subxMinorFunction">_Primitive-copy-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32248" class="LineNr">32248 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32249" class="LineNr">32249 </span> <span class="subxComment"># var1/xreg <- copy var2 => f3 0f 10/-> var2/rm32 var1/x32</span> +<span id="L32250" class="LineNr">32250 </span> 0x11/imm32/alloc-id:fake +<span id="L32251" class="LineNr">32251 </span> <a href='mu.subx.html#L34120'>_string-copy</a>/imm32/name +<span id="L32252" class="LineNr">32252 </span> 0x11/imm32/alloc-id:fake +<span id="L32253" class="LineNr">32253 </span> <span class="SpecialChar"><a href='mu.subx.html#L35198'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L32254" class="LineNr">32254 </span> 0x11/imm32/alloc-id:fake +<span id="L32255" class="LineNr">32255 </span> <span class="SpecialChar"><a href='mu.subx.html#L35216'>Single-float-var-in-some-register</a></span>/imm32/outputs <span id="L32256" class="LineNr">32256 </span> 0x11/imm32/alloc-id:fake -<span id="L32257" class="LineNr">32257 </span> <a href='mu.subx.html#L34021'>_string-subtract</a>/imm32/name -<span id="L32258" class="LineNr">32258 </span> 0x11/imm32/alloc-id:fake -<span id="L32259" class="LineNr">32259 </span> <span class="SpecialChar"><a href='mu.subx.html#L34869'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L32260" class="LineNr">32260 </span> 0x11/imm32/alloc-id:fake -<span id="L32261" class="LineNr">32261 </span> <span class="SpecialChar"><a href='mu.subx.html#L34887'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32262" class="LineNr">32262 </span> 0x11/imm32/alloc-id:fake -<span id="L32263" class="LineNr">32263 </span> <a href='mu.subx.html#L34263'>_string_f3_0f_5c_subtract</a>/imm32/subx-name -<span id="L32264" class="LineNr">32264 </span> 0/imm32/no-rm32 -<span id="L32265" class="LineNr">32265 </span> 0/imm32/no-r32 -<span id="L32266" class="LineNr">32266 </span> 0/imm32/no-imm32 -<span id="L32267" class="LineNr">32267 </span> 0/imm32/no-imm8 -<span id="L32268" class="LineNr">32268 </span> 0/imm32/no-disp32 -<span id="L32269" class="LineNr">32269 </span> 1/imm32/xm32-is-first-inout -<span id="L32270" class="LineNr">32270 </span> 3/imm32/x32-is-first-output +<span id="L32257" class="LineNr">32257 </span> <a href='mu.subx.html#L34627'>_string_f3_0f_10_copy</a>/imm32/subx-name +<span id="L32258" class="LineNr">32258 </span> 0/imm32/no-rm32 +<span id="L32259" class="LineNr">32259 </span> 0/imm32/no-r32 +<span id="L32260" class="LineNr">32260 </span> 0/imm32/no-imm32 +<span id="L32261" class="LineNr">32261 </span> 0/imm32/no-imm8 +<span id="L32262" class="LineNr">32262 </span> 0/imm32/no-disp32 +<span id="L32263" class="LineNr">32263 </span> 1/imm32/xm32-is-first-inout +<span id="L32264" class="LineNr">32264 </span> 3/imm32/x32-is-first-output +<span id="L32265" class="LineNr">32265 </span> 0x11/imm32/alloc-id:fake +<span id="L32266" class="LineNr">32266 </span> <a href='mu.subx.html#L32268'>_Primitive-address-of-xmem</a>/imm32/next +<span id="L32267" class="LineNr">32267 </span><span class="subxH1Comment"># - floating-point-address</span> +<span id="L32268" class="LineNr">32268 </span><span class="subxMinorFunction">_Primitive-address-of-xmem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32269" class="LineNr">32269 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32270" class="LineNr">32270 </span> <span class="subxComment"># var1/reg <- address var2 => 8d/copy-address var2/rm32 var1/r32</span> <span id="L32271" class="LineNr">32271 </span> 0x11/imm32/alloc-id:fake -<span id="L32272" class="LineNr">32272 </span> <a href='mu.subx.html#L32274'>_Primitive-multiply-xreg-by-xreg</a>/imm32/next -<span id="L32273" class="LineNr">32273 </span><span class="subxH1Comment"># - floating-point multiply</span> -<span id="L32274" class="LineNr">32274 </span><span class="subxMinorFunction">_Primitive-multiply-xreg-by-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32275" class="LineNr">32275 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32276" class="LineNr">32276 </span> <span class="subxComment"># var1/xreg <- multiply var2 => f3 0f 59/multiply var2/xm32 var1/x32</span> +<span id="L32272" class="LineNr">32272 </span> <a href='mu.subx.html#L34000'>_string-address</a>/imm32/name +<span id="L32273" class="LineNr">32273 </span> 0x11/imm32/alloc-id:fake +<span id="L32274" class="LineNr">32274 </span> <span class="SpecialChar"><a href='mu.subx.html#L35198'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L32275" class="LineNr">32275 </span> 0x11/imm32/alloc-id:fake +<span id="L32276" class="LineNr">32276 </span> <span class="SpecialChar"><a href='mu.subx.html#L35019'>Single-addr-var-in-some-register</a></span>/imm32/outputs <span id="L32277" class="LineNr">32277 </span> 0x11/imm32/alloc-id:fake -<span id="L32278" class="LineNr">32278 </span> <a href='mu.subx.html#L33956'>_string-multiply</a>/imm32/name -<span id="L32279" class="LineNr">32279 </span> 0x11/imm32/alloc-id:fake -<span id="L32280" class="LineNr">32280 </span> <span class="SpecialChar"><a href='mu.subx.html#L34887'>Single-float-var-in-some-register</a></span>/imm32/inouts -<span id="L32281" class="LineNr">32281 </span> 0x11/imm32/alloc-id:fake -<span id="L32282" class="LineNr">32282 </span> <span class="SpecialChar"><a href='mu.subx.html#L34887'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32283" class="LineNr">32283 </span> 0x11/imm32/alloc-id:fake -<span id="L32284" class="LineNr">32284 </span> <a href='mu.subx.html#L34268'>_string_f3_0f_59_multiply</a>/imm32/subx-name -<span id="L32285" class="LineNr">32285 </span> 0/imm32/no-rm32 -<span id="L32286" class="LineNr">32286 </span> 0/imm32/no-r32 -<span id="L32287" class="LineNr">32287 </span> 0/imm32/no-imm32 -<span id="L32288" class="LineNr">32288 </span> 0/imm32/no-imm8 -<span id="L32289" class="LineNr">32289 </span> 0/imm32/no-disp32 -<span id="L32290" class="LineNr">32290 </span> 1/imm32/xm32-is-first-inout -<span id="L32291" class="LineNr">32291 </span> 3/imm32/x32-is-first-output +<span id="L32278" class="LineNr">32278 </span> <a href='mu.subx.html#L34812'>_string_8d_copy_address</a>/imm32/subx-name +<span id="L32279" class="LineNr">32279 </span> 1/imm32/rm32-is-first-inout +<span id="L32280" class="LineNr">32280 </span> 3/imm32/r32-is-first-output +<span id="L32281" class="LineNr">32281 </span> 0/imm32/no-imm32 +<span id="L32282" class="LineNr">32282 </span> 0/imm32/no-imm8 +<span id="L32283" class="LineNr">32283 </span> 0/imm32/no-disp32 +<span id="L32284" class="LineNr">32284 </span> 0/imm32/no-xm32 +<span id="L32285" class="LineNr">32285 </span> 0/imm32/no-x32 +<span id="L32286" class="LineNr">32286 </span> 0x11/imm32/alloc-id:fake +<span id="L32287" class="LineNr">32287 </span> <a href='mu.subx.html#L32289'>_Primitive-add-xreg-to-xreg</a>/imm32/next +<span id="L32288" class="LineNr">32288 </span><span class="subxH1Comment"># - floating-point add</span> +<span id="L32289" class="LineNr">32289 </span><span class="subxMinorFunction">_Primitive-add-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32290" class="LineNr">32290 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32291" class="LineNr">32291 </span> <span class="subxComment"># var1/xreg <- add var2/xreg => f3 0f 58/add var1/xm32 var2/x32</span> <span id="L32292" class="LineNr">32292 </span> 0x11/imm32/alloc-id:fake -<span id="L32293" class="LineNr">32293 </span> <a href='mu.subx.html#L32294'>_Primitive-multiply-xreg-by-mem</a>/imm32/next -<span id="L32294" class="LineNr">32294 </span><span class="subxMinorFunction">_Primitive-multiply-xreg-by-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32295" class="LineNr">32295 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32296" class="LineNr">32296 </span> <span class="subxComment"># var1/xreg <- multiply var2 => 53 0f 59/multiply var2/xm32 var1/x32</span> -<span id="L32297" class="LineNr">32297 </span> 0x11/imm32/alloc-id:fake -<span id="L32298" class="LineNr">32298 </span> <a href='mu.subx.html#L33956'>_string-multiply</a>/imm32/name -<span id="L32299" class="LineNr">32299 </span> 0x11/imm32/alloc-id:fake -<span id="L32300" class="LineNr">32300 </span> <span class="SpecialChar"><a href='mu.subx.html#L34869'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L32301" class="LineNr">32301 </span> 0x11/imm32/alloc-id:fake -<span id="L32302" class="LineNr">32302 </span> <span class="SpecialChar"><a href='mu.subx.html#L34887'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32303" class="LineNr">32303 </span> 0x11/imm32/alloc-id:fake -<span id="L32304" class="LineNr">32304 </span> <a href='mu.subx.html#L34268'>_string_f3_0f_59_multiply</a>/imm32/subx-name -<span id="L32305" class="LineNr">32305 </span> 0/imm32/no-rm32 -<span id="L32306" class="LineNr">32306 </span> 0/imm32/no-r32 -<span id="L32307" class="LineNr">32307 </span> 0/imm32/no-imm32 -<span id="L32308" class="LineNr">32308 </span> 0/imm32/no-imm8 -<span id="L32309" class="LineNr">32309 </span> 0/imm32/no-disp32 -<span id="L32310" class="LineNr">32310 </span> 1/imm32/xm32-is-first-inout -<span id="L32311" class="LineNr">32311 </span> 3/imm32/x32-is-first-output +<span id="L32293" class="LineNr">32293 </span> <a href='mu.subx.html#L33995'>_string-add</a>/imm32/name +<span id="L32294" class="LineNr">32294 </span> 0x11/imm32/alloc-id:fake +<span id="L32295" class="LineNr">32295 </span> <span class="SpecialChar"><a href='mu.subx.html#L35216'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L32296" class="LineNr">32296 </span> 0x11/imm32/alloc-id:fake +<span id="L32297" class="LineNr">32297 </span> <span class="SpecialChar"><a href='mu.subx.html#L35216'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32298" class="LineNr">32298 </span> 0x11/imm32/alloc-id:fake +<span id="L32299" class="LineNr">32299 </span> <a href='mu.subx.html#L34582'>_string_f3_0f_58_add</a>/imm32/subx-name +<span id="L32300" class="LineNr">32300 </span> 0/imm32/no-rm32 +<span id="L32301" class="LineNr">32301 </span> 0/imm32/no-r32 +<span id="L32302" class="LineNr">32302 </span> 0/imm32/no-imm32 +<span id="L32303" class="LineNr">32303 </span> 0/imm32/no-imm8 +<span id="L32304" class="LineNr">32304 </span> 0/imm32/no-disp32 +<span id="L32305" class="LineNr">32305 </span> 1/imm32/xm32-is-first-inout +<span id="L32306" class="LineNr">32306 </span> 3/imm32/x32-is-first-output +<span id="L32307" class="LineNr">32307 </span> 0x11/imm32/alloc-id:fake +<span id="L32308" class="LineNr">32308 </span> <a href='mu.subx.html#L32309'>_Primitive-add-mem-to-xreg</a>/imm32/next +<span id="L32309" class="LineNr">32309 </span><span class="subxMinorFunction">_Primitive-add-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32310" class="LineNr">32310 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32311" class="LineNr">32311 </span> <span class="subxComment"># var1/xreg <- add var2 => f3 0f 58/add var2/xm32 var1/x32</span> <span id="L32312" class="LineNr">32312 </span> 0x11/imm32/alloc-id:fake -<span id="L32313" class="LineNr">32313 </span> <a href='mu.subx.html#L32315'>_Primitive-divide-xreg-by-xreg</a>/imm32/next -<span id="L32314" class="LineNr">32314 </span><span class="subxH1Comment"># - floating-point divide</span> -<span id="L32315" class="LineNr">32315 </span><span class="subxMinorFunction">_Primitive-divide-xreg-by-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32316" class="LineNr">32316 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32317" class="LineNr">32317 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5e/divide var2/xm32 var1/x32</span> +<span id="L32313" class="LineNr">32313 </span> <a href='mu.subx.html#L33995'>_string-add</a>/imm32/name +<span id="L32314" class="LineNr">32314 </span> 0x11/imm32/alloc-id:fake +<span id="L32315" class="LineNr">32315 </span> <span class="SpecialChar"><a href='mu.subx.html#L35198'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L32316" class="LineNr">32316 </span> 0x11/imm32/alloc-id:fake +<span id="L32317" class="LineNr">32317 </span> <span class="SpecialChar"><a href='mu.subx.html#L35216'>Single-float-var-in-some-register</a></span>/imm32/outputs <span id="L32318" class="LineNr">32318 </span> 0x11/imm32/alloc-id:fake -<span id="L32319" class="LineNr">32319 </span> <a href='mu.subx.html#L33976'>_string-divide</a>/imm32/name -<span id="L32320" class="LineNr">32320 </span> 0x11/imm32/alloc-id:fake -<span id="L32321" class="LineNr">32321 </span> <span class="SpecialChar"><a href='mu.subx.html#L34887'>Single-float-var-in-some-register</a></span>/imm32/inouts -<span id="L32322" class="LineNr">32322 </span> 0x11/imm32/alloc-id:fake -<span id="L32323" class="LineNr">32323 </span> <span class="SpecialChar"><a href='mu.subx.html#L34887'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32324" class="LineNr">32324 </span> 0x11/imm32/alloc-id:fake -<span id="L32325" class="LineNr">32325 </span> <a href='mu.subx.html#L34273'>_string_f3_0f_5e_divide</a>/imm32/subx-name -<span id="L32326" class="LineNr">32326 </span> 0/imm32/no-rm32 -<span id="L32327" class="LineNr">32327 </span> 0/imm32/no-r32 -<span id="L32328" class="LineNr">32328 </span> 0/imm32/no-imm32 -<span id="L32329" class="LineNr">32329 </span> 0/imm32/no-imm8 -<span id="L32330" class="LineNr">32330 </span> 0/imm32/no-disp32 -<span id="L32331" class="LineNr">32331 </span> 1/imm32/xm32-is-first-inout -<span id="L32332" class="LineNr">32332 </span> 3/imm32/x32-is-first-output +<span id="L32319" class="LineNr">32319 </span> <a href='mu.subx.html#L34582'>_string_f3_0f_58_add</a>/imm32/subx-name +<span id="L32320" class="LineNr">32320 </span> 0/imm32/no-rm32 +<span id="L32321" class="LineNr">32321 </span> 0/imm32/no-r32 +<span id="L32322" class="LineNr">32322 </span> 0/imm32/no-imm32 +<span id="L32323" class="LineNr">32323 </span> 0/imm32/no-imm8 +<span id="L32324" class="LineNr">32324 </span> 0/imm32/no-disp32 +<span id="L32325" class="LineNr">32325 </span> 1/imm32/xm32-is-first-inout +<span id="L32326" class="LineNr">32326 </span> 3/imm32/x32-is-first-output +<span id="L32327" class="LineNr">32327 </span> 0x11/imm32/alloc-id:fake +<span id="L32328" class="LineNr">32328 </span> <a href='mu.subx.html#L32330'>_Primitive-subtract-xreg-from-xreg</a>/imm32/next +<span id="L32329" class="LineNr">32329 </span><span class="subxH1Comment"># - floating-point subtract</span> +<span id="L32330" class="LineNr">32330 </span><span class="subxMinorFunction">_Primitive-subtract-xreg-from-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32331" class="LineNr">32331 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32332" class="LineNr">32332 </span> <span class="subxComment"># var1/xreg <- subtract var2/xreg => f3 0f 5c/subtract var1/xm32 var2/x32</span> <span id="L32333" class="LineNr">32333 </span> 0x11/imm32/alloc-id:fake -<span id="L32334" class="LineNr">32334 </span> <a href='mu.subx.html#L32335'>_Primitive-divide-xreg-by-mem</a>/imm32/next -<span id="L32335" class="LineNr">32335 </span><span class="subxMinorFunction">_Primitive-divide-xreg-by-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32336" class="LineNr">32336 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32337" class="LineNr">32337 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5e/divide var2/xm32 var1/x32</span> -<span id="L32338" class="LineNr">32338 </span> 0x11/imm32/alloc-id:fake -<span id="L32339" class="LineNr">32339 </span> <a href='mu.subx.html#L33976'>_string-divide</a>/imm32/name -<span id="L32340" class="LineNr">32340 </span> 0x11/imm32/alloc-id:fake -<span id="L32341" class="LineNr">32341 </span> <span class="SpecialChar"><a href='mu.subx.html#L34869'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L32342" class="LineNr">32342 </span> 0x11/imm32/alloc-id:fake -<span id="L32343" class="LineNr">32343 </span> <span class="SpecialChar"><a href='mu.subx.html#L34887'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32344" class="LineNr">32344 </span> 0x11/imm32/alloc-id:fake -<span id="L32345" class="LineNr">32345 </span> <a href='mu.subx.html#L34273'>_string_f3_0f_5e_divide</a>/imm32/subx-name -<span id="L32346" class="LineNr">32346 </span> 0/imm32/no-rm32 -<span id="L32347" class="LineNr">32347 </span> 0/imm32/no-r32 -<span id="L32348" class="LineNr">32348 </span> 0/imm32/no-imm32 -<span id="L32349" class="LineNr">32349 </span> 0/imm32/no-imm8 -<span id="L32350" class="LineNr">32350 </span> 0/imm32/no-disp32 -<span id="L32351" class="LineNr">32351 </span> 1/imm32/xm32-is-first-inout -<span id="L32352" class="LineNr">32352 </span> 3/imm32/x32-is-first-output +<span id="L32334" class="LineNr">32334 </span> <a href='mu.subx.html#L34315'>_string-subtract</a>/imm32/name +<span id="L32335" class="LineNr">32335 </span> 0x11/imm32/alloc-id:fake +<span id="L32336" class="LineNr">32336 </span> <span class="SpecialChar"><a href='mu.subx.html#L35216'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L32337" class="LineNr">32337 </span> 0x11/imm32/alloc-id:fake +<span id="L32338" class="LineNr">32338 </span> <span class="SpecialChar"><a href='mu.subx.html#L35216'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32339" class="LineNr">32339 </span> 0x11/imm32/alloc-id:fake +<span id="L32340" class="LineNr">32340 </span> <a href='mu.subx.html#L34587'>_string_f3_0f_5c_subtract</a>/imm32/subx-name +<span id="L32341" class="LineNr">32341 </span> 0/imm32/no-rm32 +<span id="L32342" class="LineNr">32342 </span> 0/imm32/no-r32 +<span id="L32343" class="LineNr">32343 </span> 0/imm32/no-imm32 +<span id="L32344" class="LineNr">32344 </span> 0/imm32/no-imm8 +<span id="L32345" class="LineNr">32345 </span> 0/imm32/no-disp32 +<span id="L32346" class="LineNr">32346 </span> 1/imm32/xm32-is-first-inout +<span id="L32347" class="LineNr">32347 </span> 3/imm32/x32-is-first-output +<span id="L32348" class="LineNr">32348 </span> 0x11/imm32/alloc-id:fake +<span id="L32349" class="LineNr">32349 </span> <a href='mu.subx.html#L32350'>_Primitive-subtract-mem-from-xreg</a>/imm32/next +<span id="L32350" class="LineNr">32350 </span><span class="subxMinorFunction">_Primitive-subtract-mem-from-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32351" class="LineNr">32351 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32352" class="LineNr">32352 </span> <span class="subxComment"># var1/xreg <- subtract var2 => f3 0f 5c/subtract var2/xm32 var1/x32</span> <span id="L32353" class="LineNr">32353 </span> 0x11/imm32/alloc-id:fake -<span id="L32354" class="LineNr">32354 </span> <a href='mu.subx.html#L32356'>_Primitive-max-xreg-with-xreg</a>/imm32/next -<span id="L32355" class="LineNr">32355 </span><span class="subxH1Comment"># - floating-point maximum</span> -<span id="L32356" class="LineNr">32356 </span><span class="subxMinorFunction">_Primitive-max-xreg-with-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32357" class="LineNr">32357 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32358" class="LineNr">32358 </span> <span class="subxComment"># var1/xreg <- max var2 => f3 0f 5f/max var2/xm32 var1/x32</span> +<span id="L32354" class="LineNr">32354 </span> <a href='mu.subx.html#L34315'>_string-subtract</a>/imm32/name +<span id="L32355" class="LineNr">32355 </span> 0x11/imm32/alloc-id:fake +<span id="L32356" class="LineNr">32356 </span> <span class="SpecialChar"><a href='mu.subx.html#L35198'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L32357" class="LineNr">32357 </span> 0x11/imm32/alloc-id:fake +<span id="L32358" class="LineNr">32358 </span> <span class="SpecialChar"><a href='mu.subx.html#L35216'>Single-float-var-in-some-register</a></span>/imm32/outputs <span id="L32359" class="LineNr">32359 </span> 0x11/imm32/alloc-id:fake -<span id="L32360" class="LineNr">32360 </span> <a href='mu.subx.html#L33981'>_string-max</a>/imm32/name -<span id="L32361" class="LineNr">32361 </span> 0x11/imm32/alloc-id:fake -<span id="L32362" class="LineNr">32362 </span> <span class="SpecialChar"><a href='mu.subx.html#L34887'>Single-float-var-in-some-register</a></span>/imm32/inouts -<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#L34887'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32365" class="LineNr">32365 </span> 0x11/imm32/alloc-id:fake -<span id="L32366" class="LineNr">32366 </span> <a href='mu.subx.html#L34298'>_string_f3_0f_5f_max</a>/imm32/subx-name -<span id="L32367" class="LineNr">32367 </span> 0/imm32/no-rm32 -<span id="L32368" class="LineNr">32368 </span> 0/imm32/no-r32 -<span id="L32369" class="LineNr">32369 </span> 0/imm32/no-imm32 -<span id="L32370" class="LineNr">32370 </span> 0/imm32/no-imm8 -<span id="L32371" class="LineNr">32371 </span> 0/imm32/no-disp32 -<span id="L32372" class="LineNr">32372 </span> 1/imm32/xm32-is-first-inout -<span id="L32373" class="LineNr">32373 </span> 3/imm32/x32-is-first-output +<span id="L32360" class="LineNr">32360 </span> <a href='mu.subx.html#L34587'>_string_f3_0f_5c_subtract</a>/imm32/subx-name +<span id="L32361" class="LineNr">32361 </span> 0/imm32/no-rm32 +<span id="L32362" class="LineNr">32362 </span> 0/imm32/no-r32 +<span id="L32363" class="LineNr">32363 </span> 0/imm32/no-imm32 +<span id="L32364" class="LineNr">32364 </span> 0/imm32/no-imm8 +<span id="L32365" class="LineNr">32365 </span> 0/imm32/no-disp32 +<span id="L32366" class="LineNr">32366 </span> 1/imm32/xm32-is-first-inout +<span id="L32367" class="LineNr">32367 </span> 3/imm32/x32-is-first-output +<span id="L32368" class="LineNr">32368 </span> 0x11/imm32/alloc-id:fake +<span id="L32369" class="LineNr">32369 </span> <a href='mu.subx.html#L32371'>_Primitive-multiply-xreg-by-xreg</a>/imm32/next +<span id="L32370" class="LineNr">32370 </span><span class="subxH1Comment"># - floating-point multiply</span> +<span id="L32371" class="LineNr">32371 </span><span class="subxMinorFunction">_Primitive-multiply-xreg-by-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32372" class="LineNr">32372 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32373" class="LineNr">32373 </span> <span class="subxComment"># var1/xreg <- multiply var2 => f3 0f 59/multiply var2/xm32 var1/x32</span> <span id="L32374" class="LineNr">32374 </span> 0x11/imm32/alloc-id:fake -<span id="L32375" class="LineNr">32375 </span> <a href='mu.subx.html#L32376'>_Primitive-max-xreg-with-mem</a>/imm32/next -<span id="L32376" class="LineNr">32376 </span><span class="subxMinorFunction">_Primitive-max-xreg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32377" class="LineNr">32377 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32378" class="LineNr">32378 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5f/max var2/xm32 var1/x32</span> -<span id="L32379" class="LineNr">32379 </span> 0x11/imm32/alloc-id:fake -<span id="L32380" class="LineNr">32380 </span> <a href='mu.subx.html#L33981'>_string-max</a>/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#L34869'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L32383" class="LineNr">32383 </span> 0x11/imm32/alloc-id:fake -<span id="L32384" class="LineNr">32384 </span> <span class="SpecialChar"><a href='mu.subx.html#L34887'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32385" class="LineNr">32385 </span> 0x11/imm32/alloc-id:fake -<span id="L32386" class="LineNr">32386 </span> <a href='mu.subx.html#L34298'>_string_f3_0f_5f_max</a>/imm32/subx-name -<span id="L32387" class="LineNr">32387 </span> 0/imm32/no-rm32 -<span id="L32388" class="LineNr">32388 </span> 0/imm32/no-r32 -<span id="L32389" class="LineNr">32389 </span> 0/imm32/no-imm32 -<span id="L32390" class="LineNr">32390 </span> 0/imm32/no-imm8 -<span id="L32391" class="LineNr">32391 </span> 0/imm32/no-disp32 -<span id="L32392" class="LineNr">32392 </span> 1/imm32/xm32-is-first-inout -<span id="L32393" class="LineNr">32393 </span> 3/imm32/x32-is-first-output +<span id="L32375" class="LineNr">32375 </span> <a href='mu.subx.html#L34245'>_string-multiply</a>/imm32/name +<span id="L32376" class="LineNr">32376 </span> 0x11/imm32/alloc-id:fake +<span id="L32377" class="LineNr">32377 </span> <span class="SpecialChar"><a href='mu.subx.html#L35216'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L32378" class="LineNr">32378 </span> 0x11/imm32/alloc-id:fake +<span id="L32379" class="LineNr">32379 </span> <span class="SpecialChar"><a href='mu.subx.html#L35216'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32380" class="LineNr">32380 </span> 0x11/imm32/alloc-id:fake +<span id="L32381" class="LineNr">32381 </span> <a href='mu.subx.html#L34592'>_string_f3_0f_59_multiply</a>/imm32/subx-name +<span id="L32382" class="LineNr">32382 </span> 0/imm32/no-rm32 +<span id="L32383" class="LineNr">32383 </span> 0/imm32/no-r32 +<span id="L32384" class="LineNr">32384 </span> 0/imm32/no-imm32 +<span id="L32385" class="LineNr">32385 </span> 0/imm32/no-imm8 +<span id="L32386" class="LineNr">32386 </span> 0/imm32/no-disp32 +<span id="L32387" class="LineNr">32387 </span> 1/imm32/xm32-is-first-inout +<span id="L32388" class="LineNr">32388 </span> 3/imm32/x32-is-first-output +<span id="L32389" class="LineNr">32389 </span> 0x11/imm32/alloc-id:fake +<span id="L32390" class="LineNr">32390 </span> <a href='mu.subx.html#L32391'>_Primitive-multiply-xreg-by-mem</a>/imm32/next +<span id="L32391" class="LineNr">32391 </span><span class="subxMinorFunction">_Primitive-multiply-xreg-by-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32392" class="LineNr">32392 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32393" class="LineNr">32393 </span> <span class="subxComment"># var1/xreg <- multiply var2 => 53 0f 59/multiply var2/xm32 var1/x32</span> <span id="L32394" class="LineNr">32394 </span> 0x11/imm32/alloc-id:fake -<span id="L32395" class="LineNr">32395 </span> <a href='mu.subx.html#L32397'>_Primitive-min-xreg-with-xreg</a>/imm32/next -<span id="L32396" class="LineNr">32396 </span><span class="subxH1Comment"># - floating-point minimum</span> -<span id="L32397" class="LineNr">32397 </span><span class="subxMinorFunction">_Primitive-min-xreg-with-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32398" class="LineNr">32398 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32399" class="LineNr">32399 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5d/min var2/xm32 var1/x32</span> +<span id="L32395" class="LineNr">32395 </span> <a href='mu.subx.html#L34245'>_string-multiply</a>/imm32/name +<span id="L32396" class="LineNr">32396 </span> 0x11/imm32/alloc-id:fake +<span id="L32397" class="LineNr">32397 </span> <span class="SpecialChar"><a href='mu.subx.html#L35198'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L32398" class="LineNr">32398 </span> 0x11/imm32/alloc-id:fake +<span id="L32399" class="LineNr">32399 </span> <span class="SpecialChar"><a href='mu.subx.html#L35216'>Single-float-var-in-some-register</a></span>/imm32/outputs <span id="L32400" class="LineNr">32400 </span> 0x11/imm32/alloc-id:fake -<span id="L32401" class="LineNr">32401 </span> <a href='mu.subx.html#L33986'>_string-min</a>/imm32/name -<span id="L32402" class="LineNr">32402 </span> 0x11/imm32/alloc-id:fake -<span id="L32403" class="LineNr">32403 </span> <span class="SpecialChar"><a href='mu.subx.html#L34887'>Single-float-var-in-some-register</a></span>/imm32/inouts -<span id="L32404" class="LineNr">32404 </span> 0x11/imm32/alloc-id:fake -<span id="L32405" class="LineNr">32405 </span> <span class="SpecialChar"><a href='mu.subx.html#L34887'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32406" class="LineNr">32406 </span> 0x11/imm32/alloc-id:fake -<span id="L32407" class="LineNr">32407 </span> <a href='mu.subx.html#L34293'>_string_f3_0f_5d_min</a>/imm32/subx-name -<span id="L32408" class="LineNr">32408 </span> 0/imm32/no-rm32 -<span id="L32409" class="LineNr">32409 </span> 0/imm32/no-r32 -<span id="L32410" class="LineNr">32410 </span> 0/imm32/no-imm32 -<span id="L32411" class="LineNr">32411 </span> 0/imm32/no-imm8 -<span id="L32412" class="LineNr">32412 </span> 0/imm32/no-disp32 -<span id="L32413" class="LineNr">32413 </span> 1/imm32/xm32-is-first-inout -<span id="L32414" class="LineNr">32414 </span> 3/imm32/x32-is-first-output +<span id="L32401" class="LineNr">32401 </span> <a href='mu.subx.html#L34592'>_string_f3_0f_59_multiply</a>/imm32/subx-name +<span id="L32402" class="LineNr">32402 </span> 0/imm32/no-rm32 +<span id="L32403" class="LineNr">32403 </span> 0/imm32/no-r32 +<span id="L32404" class="LineNr">32404 </span> 0/imm32/no-imm32 +<span id="L32405" class="LineNr">32405 </span> 0/imm32/no-imm8 +<span id="L32406" class="LineNr">32406 </span> 0/imm32/no-disp32 +<span id="L32407" class="LineNr">32407 </span> 1/imm32/xm32-is-first-inout +<span id="L32408" class="LineNr">32408 </span> 3/imm32/x32-is-first-output +<span id="L32409" class="LineNr">32409 </span> 0x11/imm32/alloc-id:fake +<span id="L32410" class="LineNr">32410 </span> <a href='mu.subx.html#L32412'>_Primitive-divide-xreg-by-xreg</a>/imm32/next +<span id="L32411" class="LineNr">32411 </span><span class="subxH1Comment"># - floating-point divide</span> +<span id="L32412" class="LineNr">32412 </span><span class="subxMinorFunction">_Primitive-divide-xreg-by-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32413" class="LineNr">32413 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32414" class="LineNr">32414 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5e/divide var2/xm32 var1/x32</span> <span id="L32415" class="LineNr">32415 </span> 0x11/imm32/alloc-id:fake -<span id="L32416" class="LineNr">32416 </span> <a href='mu.subx.html#L32417'>_Primitive-min-xreg-with-mem</a>/imm32/next -<span id="L32417" class="LineNr">32417 </span><span class="subxMinorFunction">_Primitive-min-xreg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32418" class="LineNr">32418 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32419" class="LineNr">32419 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5d/min var2/xm32 var1/x32</span> -<span id="L32420" class="LineNr">32420 </span> 0x11/imm32/alloc-id:fake -<span id="L32421" class="LineNr">32421 </span> <a href='mu.subx.html#L33986'>_string-min</a>/imm32/name -<span id="L32422" class="LineNr">32422 </span> 0x11/imm32/alloc-id:fake -<span id="L32423" class="LineNr">32423 </span> <span class="SpecialChar"><a href='mu.subx.html#L34869'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L32424" class="LineNr">32424 </span> 0x11/imm32/alloc-id:fake -<span id="L32425" class="LineNr">32425 </span> <span class="SpecialChar"><a href='mu.subx.html#L34887'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32426" class="LineNr">32426 </span> 0x11/imm32/alloc-id:fake -<span id="L32427" class="LineNr">32427 </span> <a href='mu.subx.html#L34293'>_string_f3_0f_5d_min</a>/imm32/subx-name -<span id="L32428" class="LineNr">32428 </span> 0/imm32/no-rm32 -<span id="L32429" class="LineNr">32429 </span> 0/imm32/no-r32 -<span id="L32430" class="LineNr">32430 </span> 0/imm32/no-imm32 -<span id="L32431" class="LineNr">32431 </span> 0/imm32/no-imm8 -<span id="L32432" class="LineNr">32432 </span> 0/imm32/no-disp32 -<span id="L32433" class="LineNr">32433 </span> 1/imm32/xm32-is-first-inout -<span id="L32434" class="LineNr">32434 </span> 3/imm32/x32-is-first-output +<span id="L32416" class="LineNr">32416 </span> <a href='mu.subx.html#L34265'>_string-divide</a>/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#L35216'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L32419" class="LineNr">32419 </span> 0x11/imm32/alloc-id:fake +<span id="L32420" class="LineNr">32420 </span> <span class="SpecialChar"><a href='mu.subx.html#L35216'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32421" class="LineNr">32421 </span> 0x11/imm32/alloc-id:fake +<span id="L32422" class="LineNr">32422 </span> <a href='mu.subx.html#L34597'>_string_f3_0f_5e_divide</a>/imm32/subx-name +<span id="L32423" class="LineNr">32423 </span> 0/imm32/no-rm32 +<span id="L32424" class="LineNr">32424 </span> 0/imm32/no-r32 +<span id="L32425" class="LineNr">32425 </span> 0/imm32/no-imm32 +<span id="L32426" class="LineNr">32426 </span> 0/imm32/no-imm8 +<span id="L32427" class="LineNr">32427 </span> 0/imm32/no-disp32 +<span id="L32428" class="LineNr">32428 </span> 1/imm32/xm32-is-first-inout +<span id="L32429" class="LineNr">32429 </span> 3/imm32/x32-is-first-output +<span id="L32430" class="LineNr">32430 </span> 0x11/imm32/alloc-id:fake +<span id="L32431" class="LineNr">32431 </span> <a href='mu.subx.html#L32432'>_Primitive-divide-xreg-by-mem</a>/imm32/next +<span id="L32432" class="LineNr">32432 </span><span class="subxMinorFunction">_Primitive-divide-xreg-by-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32433" class="LineNr">32433 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32434" class="LineNr">32434 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5e/divide var2/xm32 var1/x32</span> <span id="L32435" class="LineNr">32435 </span> 0x11/imm32/alloc-id:fake -<span id="L32436" class="LineNr">32436 </span> <a href='mu.subx.html#L32438'>_Primitive-reciprocal-xreg-to-xreg</a>/imm32/next -<span id="L32437" class="LineNr">32437 </span><span class="subxH1Comment"># - floating-point reciprocal</span> -<span id="L32438" class="LineNr">32438 </span><span class="subxMinorFunction">_Primitive-reciprocal-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32439" class="LineNr">32439 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32440" class="LineNr">32440 </span> <span class="subxComment"># var1/xreg <- reciprocal var2 => f3 0f 53/reciprocal var2/xm32 var1/x32</span> +<span id="L32436" class="LineNr">32436 </span> <a href='mu.subx.html#L34265'>_string-divide</a>/imm32/name +<span id="L32437" class="LineNr">32437 </span> 0x11/imm32/alloc-id:fake +<span id="L32438" class="LineNr">32438 </span> <span class="SpecialChar"><a href='mu.subx.html#L35198'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L32439" class="LineNr">32439 </span> 0x11/imm32/alloc-id:fake +<span id="L32440" class="LineNr">32440 </span> <span class="SpecialChar"><a href='mu.subx.html#L35216'>Single-float-var-in-some-register</a></span>/imm32/outputs <span id="L32441" class="LineNr">32441 </span> 0x11/imm32/alloc-id:fake -<span id="L32442" class="LineNr">32442 </span> <a href='mu.subx.html#L33991'>_string-reciprocal</a>/imm32/name -<span id="L32443" class="LineNr">32443 </span> 0x11/imm32/alloc-id:fake -<span id="L32444" class="LineNr">32444 </span> <span class="SpecialChar"><a href='mu.subx.html#L34887'>Single-float-var-in-some-register</a></span>/imm32/inouts -<span id="L32445" class="LineNr">32445 </span> 0x11/imm32/alloc-id:fake -<span id="L32446" class="LineNr">32446 </span> <span class="SpecialChar"><a href='mu.subx.html#L34887'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32447" class="LineNr">32447 </span> 0x11/imm32/alloc-id:fake -<span id="L32448" class="LineNr">32448 </span> <a href='mu.subx.html#L34278'>_string_f3_0f_53_reciprocal</a>/imm32/subx-name -<span id="L32449" class="LineNr">32449 </span> 0/imm32/no-rm32 -<span id="L32450" class="LineNr">32450 </span> 0/imm32/no-r32 -<span id="L32451" class="LineNr">32451 </span> 0/imm32/no-imm32 -<span id="L32452" class="LineNr">32452 </span> 0/imm32/no-imm8 -<span id="L32453" class="LineNr">32453 </span> 0/imm32/no-disp32 -<span id="L32454" class="LineNr">32454 </span> 1/imm32/xm32-is-first-inout -<span id="L32455" class="LineNr">32455 </span> 3/imm32/x32-is-first-output +<span id="L32442" class="LineNr">32442 </span> <a href='mu.subx.html#L34597'>_string_f3_0f_5e_divide</a>/imm32/subx-name +<span id="L32443" class="LineNr">32443 </span> 0/imm32/no-rm32 +<span id="L32444" class="LineNr">32444 </span> 0/imm32/no-r32 +<span id="L32445" class="LineNr">32445 </span> 0/imm32/no-imm32 +<span id="L32446" class="LineNr">32446 </span> 0/imm32/no-imm8 +<span id="L32447" class="LineNr">32447 </span> 0/imm32/no-disp32 +<span id="L32448" class="LineNr">32448 </span> 1/imm32/xm32-is-first-inout +<span id="L32449" class="LineNr">32449 </span> 3/imm32/x32-is-first-output +<span id="L32450" class="LineNr">32450 </span> 0x11/imm32/alloc-id:fake +<span id="L32451" class="LineNr">32451 </span> <a href='mu.subx.html#L32453'>_Primitive-max-xreg-with-xreg</a>/imm32/next +<span id="L32452" class="LineNr">32452 </span><span class="subxH1Comment"># - floating-point maximum</span> +<span id="L32453" class="LineNr">32453 </span><span class="subxMinorFunction">_Primitive-max-xreg-with-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32454" class="LineNr">32454 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32455" class="LineNr">32455 </span> <span class="subxComment"># var1/xreg <- max var2 => f3 0f 5f/max var2/xm32 var1/x32</span> <span id="L32456" class="LineNr">32456 </span> 0x11/imm32/alloc-id:fake -<span id="L32457" class="LineNr">32457 </span> <a href='mu.subx.html#L32458'>_Primitive-reciprocal-mem-to-xreg</a>/imm32/next -<span id="L32458" class="LineNr">32458 </span><span class="subxMinorFunction">_Primitive-reciprocal-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32459" class="LineNr">32459 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32460" class="LineNr">32460 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 53/reciprocal var2/xm32 var1/x32</span> -<span id="L32461" class="LineNr">32461 </span> 0x11/imm32/alloc-id:fake -<span id="L32462" class="LineNr">32462 </span> <a href='mu.subx.html#L33991'>_string-reciprocal</a>/imm32/name -<span id="L32463" class="LineNr">32463 </span> 0x11/imm32/alloc-id:fake -<span id="L32464" class="LineNr">32464 </span> <span class="SpecialChar"><a href='mu.subx.html#L34869'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L32465" class="LineNr">32465 </span> 0x11/imm32/alloc-id:fake -<span id="L32466" class="LineNr">32466 </span> <span class="SpecialChar"><a href='mu.subx.html#L34887'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32467" class="LineNr">32467 </span> 0x11/imm32/alloc-id:fake -<span id="L32468" class="LineNr">32468 </span> <a href='mu.subx.html#L34278'>_string_f3_0f_53_reciprocal</a>/imm32/subx-name -<span id="L32469" class="LineNr">32469 </span> 0/imm32/no-rm32 -<span id="L32470" class="LineNr">32470 </span> 0/imm32/no-r32 -<span id="L32471" class="LineNr">32471 </span> 0/imm32/no-imm32 -<span id="L32472" class="LineNr">32472 </span> 0/imm32/no-imm8 -<span id="L32473" class="LineNr">32473 </span> 0/imm32/no-disp32 -<span id="L32474" class="LineNr">32474 </span> 1/imm32/xm32-is-first-inout -<span id="L32475" class="LineNr">32475 </span> 3/imm32/x32-is-first-output +<span id="L32457" class="LineNr">32457 </span> <a href='mu.subx.html#L34270'>_string-max</a>/imm32/name +<span id="L32458" class="LineNr">32458 </span> 0x11/imm32/alloc-id:fake +<span id="L32459" class="LineNr">32459 </span> <span class="SpecialChar"><a href='mu.subx.html#L35216'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L32460" class="LineNr">32460 </span> 0x11/imm32/alloc-id:fake +<span id="L32461" class="LineNr">32461 </span> <span class="SpecialChar"><a href='mu.subx.html#L35216'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32462" class="LineNr">32462 </span> 0x11/imm32/alloc-id:fake +<span id="L32463" class="LineNr">32463 </span> <a href='mu.subx.html#L34622'>_string_f3_0f_5f_max</a>/imm32/subx-name +<span id="L32464" class="LineNr">32464 </span> 0/imm32/no-rm32 +<span id="L32465" class="LineNr">32465 </span> 0/imm32/no-r32 +<span id="L32466" class="LineNr">32466 </span> 0/imm32/no-imm32 +<span id="L32467" class="LineNr">32467 </span> 0/imm32/no-imm8 +<span id="L32468" class="LineNr">32468 </span> 0/imm32/no-disp32 +<span id="L32469" class="LineNr">32469 </span> 1/imm32/xm32-is-first-inout +<span id="L32470" class="LineNr">32470 </span> 3/imm32/x32-is-first-output +<span id="L32471" class="LineNr">32471 </span> 0x11/imm32/alloc-id:fake +<span id="L32472" class="LineNr">32472 </span> <a href='mu.subx.html#L32473'>_Primitive-max-xreg-with-mem</a>/imm32/next +<span id="L32473" class="LineNr">32473 </span><span class="subxMinorFunction">_Primitive-max-xreg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32474" class="LineNr">32474 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32475" class="LineNr">32475 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5f/max var2/xm32 var1/x32</span> <span id="L32476" class="LineNr">32476 </span> 0x11/imm32/alloc-id:fake -<span id="L32477" class="LineNr">32477 </span> <a href='mu.subx.html#L32479'>_Primitive-square-root-xreg-to-xreg</a>/imm32/next -<span id="L32478" class="LineNr">32478 </span><span class="subxH1Comment"># - floating-point square root</span> -<span id="L32479" class="LineNr">32479 </span><span class="subxMinorFunction">_Primitive-square-root-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32480" class="LineNr">32480 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32481" class="LineNr">32481 </span> <span class="subxComment"># var1/xreg <- square-root var2 => f3 0f 51/square-root var2/xm32 var1/x32</span> +<span id="L32477" class="LineNr">32477 </span> <a href='mu.subx.html#L34270'>_string-max</a>/imm32/name +<span id="L32478" class="LineNr">32478 </span> 0x11/imm32/alloc-id:fake +<span id="L32479" class="LineNr">32479 </span> <span class="SpecialChar"><a href='mu.subx.html#L35198'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L32480" class="LineNr">32480 </span> 0x11/imm32/alloc-id:fake +<span id="L32481" class="LineNr">32481 </span> <span class="SpecialChar"><a href='mu.subx.html#L35216'>Single-float-var-in-some-register</a></span>/imm32/outputs <span id="L32482" class="LineNr">32482 </span> 0x11/imm32/alloc-id:fake -<span id="L32483" class="LineNr">32483 </span> <a href='mu.subx.html#L33996'>_string-square-root</a>/imm32/name -<span id="L32484" class="LineNr">32484 </span> 0x11/imm32/alloc-id:fake -<span id="L32485" class="LineNr">32485 </span> <span class="SpecialChar"><a href='mu.subx.html#L34887'>Single-float-var-in-some-register</a></span>/imm32/inouts -<span id="L32486" class="LineNr">32486 </span> 0x11/imm32/alloc-id:fake -<span id="L32487" class="LineNr">32487 </span> <span class="SpecialChar"><a href='mu.subx.html#L34887'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32488" class="LineNr">32488 </span> 0x11/imm32/alloc-id:fake -<span id="L32489" class="LineNr">32489 </span> <a href='mu.subx.html#L34283'>_string_f3_0f_51_square_root</a>/imm32/subx-name -<span id="L32490" class="LineNr">32490 </span> 0/imm32/no-rm32 -<span id="L32491" class="LineNr">32491 </span> 0/imm32/no-r32 -<span id="L32492" class="LineNr">32492 </span> 0/imm32/no-imm32 -<span id="L32493" class="LineNr">32493 </span> 0/imm32/no-imm8 -<span id="L32494" class="LineNr">32494 </span> 0/imm32/no-disp32 -<span id="L32495" class="LineNr">32495 </span> 1/imm32/xm32-is-first-inout -<span id="L32496" class="LineNr">32496 </span> 3/imm32/x32-is-first-output +<span id="L32483" class="LineNr">32483 </span> <a href='mu.subx.html#L34622'>_string_f3_0f_5f_max</a>/imm32/subx-name +<span id="L32484" class="LineNr">32484 </span> 0/imm32/no-rm32 +<span id="L32485" class="LineNr">32485 </span> 0/imm32/no-r32 +<span id="L32486" class="LineNr">32486 </span> 0/imm32/no-imm32 +<span id="L32487" class="LineNr">32487 </span> 0/imm32/no-imm8 +<span id="L32488" class="LineNr">32488 </span> 0/imm32/no-disp32 +<span id="L32489" class="LineNr">32489 </span> 1/imm32/xm32-is-first-inout +<span id="L32490" class="LineNr">32490 </span> 3/imm32/x32-is-first-output +<span id="L32491" class="LineNr">32491 </span> 0x11/imm32/alloc-id:fake +<span id="L32492" class="LineNr">32492 </span> <a href='mu.subx.html#L32494'>_Primitive-min-xreg-with-xreg</a>/imm32/next +<span id="L32493" class="LineNr">32493 </span><span class="subxH1Comment"># - floating-point minimum</span> +<span id="L32494" class="LineNr">32494 </span><span class="subxMinorFunction">_Primitive-min-xreg-with-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32495" class="LineNr">32495 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32496" class="LineNr">32496 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5d/min var2/xm32 var1/x32</span> <span id="L32497" class="LineNr">32497 </span> 0x11/imm32/alloc-id:fake -<span id="L32498" class="LineNr">32498 </span> <a href='mu.subx.html#L32499'>_Primitive-square-root-mem-to-xreg</a>/imm32/next -<span id="L32499" class="LineNr">32499 </span><span class="subxMinorFunction">_Primitive-square-root-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32500" class="LineNr">32500 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32501" class="LineNr">32501 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 51/square-root var2/xm32 var1/x32</span> -<span id="L32502" class="LineNr">32502 </span> 0x11/imm32/alloc-id:fake -<span id="L32503" class="LineNr">32503 </span> <a href='mu.subx.html#L33996'>_string-square-root</a>/imm32/name -<span id="L32504" class="LineNr">32504 </span> 0x11/imm32/alloc-id:fake -<span id="L32505" class="LineNr">32505 </span> <span class="SpecialChar"><a href='mu.subx.html#L34869'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L32506" class="LineNr">32506 </span> 0x11/imm32/alloc-id:fake -<span id="L32507" class="LineNr">32507 </span> <span class="SpecialChar"><a href='mu.subx.html#L34887'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32508" class="LineNr">32508 </span> 0x11/imm32/alloc-id:fake -<span id="L32509" class="LineNr">32509 </span> <a href='mu.subx.html#L34283'>_string_f3_0f_51_square_root</a>/imm32/subx-name -<span id="L32510" class="LineNr">32510 </span> 0/imm32/no-rm32 -<span id="L32511" class="LineNr">32511 </span> 0/imm32/no-r32 -<span id="L32512" class="LineNr">32512 </span> 0/imm32/no-imm32 -<span id="L32513" class="LineNr">32513 </span> 0/imm32/no-imm8 -<span id="L32514" class="LineNr">32514 </span> 0/imm32/no-disp32 -<span id="L32515" class="LineNr">32515 </span> 1/imm32/xm32-is-first-inout -<span id="L32516" class="LineNr">32516 </span> 3/imm32/x32-is-first-output +<span id="L32498" class="LineNr">32498 </span> <a href='mu.subx.html#L34275'>_string-min</a>/imm32/name +<span id="L32499" class="LineNr">32499 </span> 0x11/imm32/alloc-id:fake +<span id="L32500" class="LineNr">32500 </span> <span class="SpecialChar"><a href='mu.subx.html#L35216'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L32501" class="LineNr">32501 </span> 0x11/imm32/alloc-id:fake +<span id="L32502" class="LineNr">32502 </span> <span class="SpecialChar"><a href='mu.subx.html#L35216'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32503" class="LineNr">32503 </span> 0x11/imm32/alloc-id:fake +<span id="L32504" class="LineNr">32504 </span> <a href='mu.subx.html#L34617'>_string_f3_0f_5d_min</a>/imm32/subx-name +<span id="L32505" class="LineNr">32505 </span> 0/imm32/no-rm32 +<span id="L32506" class="LineNr">32506 </span> 0/imm32/no-r32 +<span id="L32507" class="LineNr">32507 </span> 0/imm32/no-imm32 +<span id="L32508" class="LineNr">32508 </span> 0/imm32/no-imm8 +<span id="L32509" class="LineNr">32509 </span> 0/imm32/no-disp32 +<span id="L32510" class="LineNr">32510 </span> 1/imm32/xm32-is-first-inout +<span id="L32511" class="LineNr">32511 </span> 3/imm32/x32-is-first-output +<span id="L32512" class="LineNr">32512 </span> 0x11/imm32/alloc-id:fake +<span id="L32513" class="LineNr">32513 </span> <a href='mu.subx.html#L32514'>_Primitive-min-xreg-with-mem</a>/imm32/next +<span id="L32514" class="LineNr">32514 </span><span class="subxMinorFunction">_Primitive-min-xreg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32515" class="LineNr">32515 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32516" class="LineNr">32516 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5d/min var2/xm32 var1/x32</span> <span id="L32517" class="LineNr">32517 </span> 0x11/imm32/alloc-id:fake -<span id="L32518" class="LineNr">32518 </span> <a href='mu.subx.html#L32520'>_Primitive-inverse-square-root-xreg-to-xreg</a>/imm32/next -<span id="L32519" class="LineNr">32519 </span><span class="subxH1Comment"># - floating-point inverse square root 1/sqrt(x)</span> -<span id="L32520" class="LineNr">32520 </span><span class="subxMinorFunction">_Primitive-inverse-square-root-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32521" class="LineNr">32521 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32522" class="LineNr">32522 </span> <span class="subxComment"># var1/xreg <- reciprocal var2 => f3 0f 52/inverse-square-root var2/xm32 var1/x32</span> +<span id="L32518" class="LineNr">32518 </span> <a href='mu.subx.html#L34275'>_string-min</a>/imm32/name +<span id="L32519" class="LineNr">32519 </span> 0x11/imm32/alloc-id:fake +<span id="L32520" class="LineNr">32520 </span> <span class="SpecialChar"><a href='mu.subx.html#L35198'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L32521" class="LineNr">32521 </span> 0x11/imm32/alloc-id:fake +<span id="L32522" class="LineNr">32522 </span> <span class="SpecialChar"><a href='mu.subx.html#L35216'>Single-float-var-in-some-register</a></span>/imm32/outputs <span id="L32523" class="LineNr">32523 </span> 0x11/imm32/alloc-id:fake -<span id="L32524" class="LineNr">32524 </span> <a href='mu.subx.html#L34001'>_string-inverse-square-root</a>/imm32/name -<span id="L32525" class="LineNr">32525 </span> 0x11/imm32/alloc-id:fake -<span id="L32526" class="LineNr">32526 </span> <span class="SpecialChar"><a href='mu.subx.html#L34887'>Single-float-var-in-some-register</a></span>/imm32/inouts -<span id="L32527" class="LineNr">32527 </span> 0x11/imm32/alloc-id:fake -<span id="L32528" class="LineNr">32528 </span> <span class="SpecialChar"><a href='mu.subx.html#L34887'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32529" class="LineNr">32529 </span> 0x11/imm32/alloc-id:fake -<span id="L32530" class="LineNr">32530 </span> <a href='mu.subx.html#L34288'>_string_f3_0f_52_inverse_square_root</a>/imm32/subx-name -<span id="L32531" class="LineNr">32531 </span> 0/imm32/no-rm32 -<span id="L32532" class="LineNr">32532 </span> 0/imm32/no-r32 -<span id="L32533" class="LineNr">32533 </span> 0/imm32/no-imm32 -<span id="L32534" class="LineNr">32534 </span> 0/imm32/no-imm8 -<span id="L32535" class="LineNr">32535 </span> 0/imm32/no-disp32 -<span id="L32536" class="LineNr">32536 </span> 1/imm32/xm32-is-first-inout -<span id="L32537" class="LineNr">32537 </span> 3/imm32/x32-is-first-output +<span id="L32524" class="LineNr">32524 </span> <a href='mu.subx.html#L34617'>_string_f3_0f_5d_min</a>/imm32/subx-name +<span id="L32525" class="LineNr">32525 </span> 0/imm32/no-rm32 +<span id="L32526" class="LineNr">32526 </span> 0/imm32/no-r32 +<span id="L32527" class="LineNr">32527 </span> 0/imm32/no-imm32 +<span id="L32528" class="LineNr">32528 </span> 0/imm32/no-imm8 +<span id="L32529" class="LineNr">32529 </span> 0/imm32/no-disp32 +<span id="L32530" class="LineNr">32530 </span> 1/imm32/xm32-is-first-inout +<span id="L32531" class="LineNr">32531 </span> 3/imm32/x32-is-first-output +<span id="L32532" class="LineNr">32532 </span> 0x11/imm32/alloc-id:fake +<span id="L32533" class="LineNr">32533 </span> <a href='mu.subx.html#L32535'>_Primitive-reciprocal-xreg-to-xreg</a>/imm32/next +<span id="L32534" class="LineNr">32534 </span><span class="subxH1Comment"># - floating-point reciprocal</span> +<span id="L32535" class="LineNr">32535 </span><span class="subxMinorFunction">_Primitive-reciprocal-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32536" class="LineNr">32536 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32537" class="LineNr">32537 </span> <span class="subxComment"># var1/xreg <- reciprocal var2 => f3 0f 53/reciprocal var2/xm32 var1/x32</span> <span id="L32538" class="LineNr">32538 </span> 0x11/imm32/alloc-id:fake -<span id="L32539" class="LineNr">32539 </span> <a href='mu.subx.html#L32540'>_Primitive-inverse-square-root-mem-to-xreg</a>/imm32/next -<span id="L32540" class="LineNr">32540 </span><span class="subxMinorFunction">_Primitive-inverse-square-root-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32541" class="LineNr">32541 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32542" class="LineNr">32542 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 52/inverse-square-root var2/xm32 var1/x32</span> -<span id="L32543" class="LineNr">32543 </span> 0x11/imm32/alloc-id:fake -<span id="L32544" class="LineNr">32544 </span> <a href='mu.subx.html#L34001'>_string-inverse-square-root</a>/imm32/name -<span id="L32545" class="LineNr">32545 </span> 0x11/imm32/alloc-id:fake -<span id="L32546" class="LineNr">32546 </span> <span class="SpecialChar"><a href='mu.subx.html#L34869'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L32547" class="LineNr">32547 </span> 0x11/imm32/alloc-id:fake -<span id="L32548" class="LineNr">32548 </span> <span class="SpecialChar"><a href='mu.subx.html#L34887'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32549" class="LineNr">32549 </span> 0x11/imm32/alloc-id:fake -<span id="L32550" class="LineNr">32550 </span> <a href='mu.subx.html#L34288'>_string_f3_0f_52_inverse_square_root</a>/imm32/subx-name -<span id="L32551" class="LineNr">32551 </span> 0/imm32/no-rm32 -<span id="L32552" class="LineNr">32552 </span> 0/imm32/no-r32 -<span id="L32553" class="LineNr">32553 </span> 0/imm32/no-imm32 -<span id="L32554" class="LineNr">32554 </span> 0/imm32/no-imm8 -<span id="L32555" class="LineNr">32555 </span> 0/imm32/no-disp32 -<span id="L32556" class="LineNr">32556 </span> 1/imm32/xm32-is-first-inout -<span id="L32557" class="LineNr">32557 </span> 3/imm32/x32-is-first-output +<span id="L32539" class="LineNr">32539 </span> <a href='mu.subx.html#L34280'>_string-reciprocal</a>/imm32/name +<span id="L32540" class="LineNr">32540 </span> 0x11/imm32/alloc-id:fake +<span id="L32541" class="LineNr">32541 </span> <span class="SpecialChar"><a href='mu.subx.html#L35216'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L32542" class="LineNr">32542 </span> 0x11/imm32/alloc-id:fake +<span id="L32543" class="LineNr">32543 </span> <span class="SpecialChar"><a href='mu.subx.html#L35216'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32544" class="LineNr">32544 </span> 0x11/imm32/alloc-id:fake +<span id="L32545" class="LineNr">32545 </span> <a href='mu.subx.html#L34602'>_string_f3_0f_53_reciprocal</a>/imm32/subx-name +<span id="L32546" class="LineNr">32546 </span> 0/imm32/no-rm32 +<span id="L32547" class="LineNr">32547 </span> 0/imm32/no-r32 +<span id="L32548" class="LineNr">32548 </span> 0/imm32/no-imm32 +<span id="L32549" class="LineNr">32549 </span> 0/imm32/no-imm8 +<span id="L32550" class="LineNr">32550 </span> 0/imm32/no-disp32 +<span id="L32551" class="LineNr">32551 </span> 1/imm32/xm32-is-first-inout +<span id="L32552" class="LineNr">32552 </span> 3/imm32/x32-is-first-output +<span id="L32553" class="LineNr">32553 </span> 0x11/imm32/alloc-id:fake +<span id="L32554" class="LineNr">32554 </span> <a href='mu.subx.html#L32555'>_Primitive-reciprocal-mem-to-xreg</a>/imm32/next +<span id="L32555" class="LineNr">32555 </span><span class="subxMinorFunction">_Primitive-reciprocal-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32556" class="LineNr">32556 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32557" class="LineNr">32557 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 53/reciprocal var2/xm32 var1/x32</span> <span id="L32558" class="LineNr">32558 </span> 0x11/imm32/alloc-id:fake -<span id="L32559" class="LineNr">32559 </span> <a href='mu.subx.html#L32561'>_Primitive-compare-xreg-with-xreg</a>/imm32/next -<span id="L32560" class="LineNr">32560 </span><span class="subxH1Comment"># - floating-point compare</span> -<span id="L32561" class="LineNr">32561 </span><span class="subxMinorFunction">_Primitive-compare-xreg-with-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32562" class="LineNr">32562 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32563" class="LineNr">32563 </span> <span class="subxComment"># compare var1/reg1 var2/reg2 => 0f 2f/compare var2/x32 var1/xm32</span> +<span id="L32559" class="LineNr">32559 </span> <a href='mu.subx.html#L34280'>_string-reciprocal</a>/imm32/name +<span id="L32560" class="LineNr">32560 </span> 0x11/imm32/alloc-id:fake +<span id="L32561" class="LineNr">32561 </span> <span class="SpecialChar"><a href='mu.subx.html#L35198'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L32562" class="LineNr">32562 </span> 0x11/imm32/alloc-id:fake +<span id="L32563" class="LineNr">32563 </span> <span class="SpecialChar"><a href='mu.subx.html#L35216'>Single-float-var-in-some-register</a></span>/imm32/outputs <span id="L32564" class="LineNr">32564 </span> 0x11/imm32/alloc-id:fake -<span id="L32565" class="LineNr">32565 </span> <a href='mu.subx.html#L33846'>_string-compare</a>/imm32/name -<span id="L32566" class="LineNr">32566 </span> 0x11/imm32/alloc-id:fake -<span id="L32567" class="LineNr">32567 </span> <span class="SpecialChar"><a href='mu.subx.html#L34662'>Two-float-args-in-regs</a></span>/imm32/inouts -<span id="L32568" class="LineNr">32568 </span> 0/imm32/no-outputs -<span id="L32569" class="LineNr">32569 </span> 0/imm32/no-outputs -<span id="L32570" class="LineNr">32570 </span> 0x11/imm32/alloc-id:fake -<span id="L32571" class="LineNr">32571 </span> <a href='mu.subx.html#L34313'>_string_0f_2f_compare</a>/imm32/subx-name -<span id="L32572" class="LineNr">32572 </span> 0/imm32/no-rm32 -<span id="L32573" class="LineNr">32573 </span> 0/imm32/no-r32 -<span id="L32574" class="LineNr">32574 </span> 0/imm32/no-imm32 -<span id="L32575" class="LineNr">32575 </span> 0/imm32/no-imm8 -<span id="L32576" class="LineNr">32576 </span> 0/imm32/no-disp32 -<span id="L32577" class="LineNr">32577 </span> 2/imm32/xm32-is-second-inout -<span id="L32578" class="LineNr">32578 </span> 1/imm32/x32-is-first-inout +<span id="L32565" class="LineNr">32565 </span> <a href='mu.subx.html#L34602'>_string_f3_0f_53_reciprocal</a>/imm32/subx-name +<span id="L32566" class="LineNr">32566 </span> 0/imm32/no-rm32 +<span id="L32567" class="LineNr">32567 </span> 0/imm32/no-r32 +<span id="L32568" class="LineNr">32568 </span> 0/imm32/no-imm32 +<span id="L32569" class="LineNr">32569 </span> 0/imm32/no-imm8 +<span id="L32570" class="LineNr">32570 </span> 0/imm32/no-disp32 +<span id="L32571" class="LineNr">32571 </span> 1/imm32/xm32-is-first-inout +<span id="L32572" class="LineNr">32572 </span> 3/imm32/x32-is-first-output +<span id="L32573" class="LineNr">32573 </span> 0x11/imm32/alloc-id:fake +<span id="L32574" class="LineNr">32574 </span> <a href='mu.subx.html#L32576'>_Primitive-square-root-xreg-to-xreg</a>/imm32/next +<span id="L32575" class="LineNr">32575 </span><span class="subxH1Comment"># - floating-point square root</span> +<span id="L32576" class="LineNr">32576 </span><span class="subxMinorFunction">_Primitive-square-root-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32577" class="LineNr">32577 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32578" class="LineNr">32578 </span> <span class="subxComment"># var1/xreg <- square-root var2 => f3 0f 51/square-root var2/xm32 var1/x32</span> <span id="L32579" class="LineNr">32579 </span> 0x11/imm32/alloc-id:fake -<span id="L32580" class="LineNr">32580 </span> <a href='mu.subx.html#L32581'>_Primitive-compare-xreg-with-mem</a>/imm32/next -<span id="L32581" class="LineNr">32581 </span><span class="subxMinorFunction">_Primitive-compare-xreg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32582" class="LineNr">32582 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32583" class="LineNr">32583 </span> <span class="subxComment"># compare var1/xreg var2 => 0f 2f/compare var1/x32 var2/xm32</span> -<span id="L32584" class="LineNr">32584 </span> 0x11/imm32/alloc-id:fake -<span id="L32585" class="LineNr">32585 </span> <a href='mu.subx.html#L33846'>_string-compare</a>/imm32/name -<span id="L32586" class="LineNr">32586 </span> 0x11/imm32/alloc-id:fake -<span id="L32587" class="LineNr">32587 </span> <span class="SpecialChar"><a href='mu.subx.html#L34669'>Two-args-float-reg-float-stack</a></span>/imm32/inouts -<span id="L32588" class="LineNr">32588 </span> 0/imm32/no-outputs -<span id="L32589" class="LineNr">32589 </span> 0/imm32/no-outputs -<span id="L32590" class="LineNr">32590 </span> 0x11/imm32/alloc-id:fake -<span id="L32591" class="LineNr">32591 </span> <a href='mu.subx.html#L34313'>_string_0f_2f_compare</a>/imm32/subx-name -<span id="L32592" class="LineNr">32592 </span> 0/imm32/no-rm32 -<span id="L32593" class="LineNr">32593 </span> 0/imm32/no-r32 -<span id="L32594" class="LineNr">32594 </span> 0/imm32/no-imm32 -<span id="L32595" class="LineNr">32595 </span> 0/imm32/no-imm8 -<span id="L32596" class="LineNr">32596 </span> 0/imm32/no-disp32 -<span id="L32597" class="LineNr">32597 </span> 2/imm32/xm32-is-second-inout -<span id="L32598" class="LineNr">32598 </span> 1/imm32/x32-is-first-inout +<span id="L32580" class="LineNr">32580 </span> <a href='mu.subx.html#L34285'>_string-square-root</a>/imm32/name +<span id="L32581" class="LineNr">32581 </span> 0x11/imm32/alloc-id:fake +<span id="L32582" class="LineNr">32582 </span> <span class="SpecialChar"><a href='mu.subx.html#L35216'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L32583" class="LineNr">32583 </span> 0x11/imm32/alloc-id:fake +<span id="L32584" class="LineNr">32584 </span> <span class="SpecialChar"><a href='mu.subx.html#L35216'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32585" class="LineNr">32585 </span> 0x11/imm32/alloc-id:fake +<span id="L32586" class="LineNr">32586 </span> <a href='mu.subx.html#L34607'>_string_f3_0f_51_square_root</a>/imm32/subx-name +<span id="L32587" class="LineNr">32587 </span> 0/imm32/no-rm32 +<span id="L32588" class="LineNr">32588 </span> 0/imm32/no-r32 +<span id="L32589" class="LineNr">32589 </span> 0/imm32/no-imm32 +<span id="L32590" class="LineNr">32590 </span> 0/imm32/no-imm8 +<span id="L32591" class="LineNr">32591 </span> 0/imm32/no-disp32 +<span id="L32592" class="LineNr">32592 </span> 1/imm32/xm32-is-first-inout +<span id="L32593" class="LineNr">32593 </span> 3/imm32/x32-is-first-output +<span id="L32594" class="LineNr">32594 </span> 0x11/imm32/alloc-id:fake +<span id="L32595" class="LineNr">32595 </span> <a href='mu.subx.html#L32596'>_Primitive-square-root-mem-to-xreg</a>/imm32/next +<span id="L32596" class="LineNr">32596 </span><span class="subxMinorFunction">_Primitive-square-root-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32597" class="LineNr">32597 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32598" class="LineNr">32598 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 51/square-root var2/xm32 var1/x32</span> <span id="L32599" class="LineNr">32599 </span> 0x11/imm32/alloc-id:fake -<span id="L32600" class="LineNr">32600 </span> <a href='mu.subx.html#L32602'>_Primitive-break-if-addr<</a>/imm32/next -<span id="L32601" class="LineNr">32601 </span><span class="subxH1Comment"># - branches</span> -<span id="L32602" class="LineNr">32602 </span><span class="subxMinorFunction">_Primitive-break-if-addr<</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32603" class="LineNr">32603 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32604" class="LineNr">32604 </span> 0x11/imm32/alloc-id:fake -<span id="L32605" class="LineNr">32605 </span> <a href='mu.subx.html#L33806'>_string-break-if-addr<</a>/imm32/name -<span id="L32606" class="LineNr">32606 </span> 0/imm32/no-inouts -<span id="L32607" class="LineNr">32607 </span> 0/imm32/no-inouts -<span id="L32608" class="LineNr">32608 </span> 0/imm32/no-outputs -<span id="L32609" class="LineNr">32609 </span> 0/imm32/no-outputs -<span id="L32610" class="LineNr">32610 </span> 0x11/imm32/alloc-id:fake -<span id="L32611" class="LineNr">32611 </span> <a href='mu.subx.html#L34093'>_string_0f_82_jump_break</a>/imm32/subx-name -<span id="L32612" class="LineNr">32612 </span> 0/imm32/no-rm32 -<span id="L32613" class="LineNr">32613 </span> 0/imm32/no-r32 -<span id="L32614" class="LineNr">32614 </span> 0/imm32/no-imm32 -<span id="L32615" class="LineNr">32615 </span> 0/imm32/no-imm8 -<span id="L32616" class="LineNr">32616 </span> 0/imm32/no-disp32 -<span id="L32617" class="LineNr">32617 </span> 0/imm32/no-xm32 -<span id="L32618" class="LineNr">32618 </span> 0/imm32/no-x32 -<span id="L32619" class="LineNr">32619 </span> 0x11/imm32/alloc-id:fake -<span id="L32620" class="LineNr">32620 </span> <a href='mu.subx.html#L32621'>_Primitive-break-if-addr>=</a>/imm32/next -<span id="L32621" class="LineNr">32621 </span><span class="subxMinorFunction">_Primitive-break-if-addr>=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32622" class="LineNr">32622 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32623" class="LineNr">32623 </span> 0x11/imm32/alloc-id:fake -<span id="L32624" class="LineNr">32624 </span> <a href='mu.subx.html#L33821'>_string-break-if-addr>=</a>/imm32/name -<span id="L32625" class="LineNr">32625 </span> 0/imm32/no-inouts -<span id="L32626" class="LineNr">32626 </span> 0/imm32/no-inouts -<span id="L32627" class="LineNr">32627 </span> 0/imm32/no-outputs -<span id="L32628" class="LineNr">32628 </span> 0/imm32/no-outputs -<span id="L32629" class="LineNr">32629 </span> 0x11/imm32/alloc-id:fake -<span id="L32630" class="LineNr">32630 </span> <a href='mu.subx.html#L34108'>_string_0f_83_jump_break</a>/imm32/subx-name -<span id="L32631" class="LineNr">32631 </span> 0/imm32/no-rm32 -<span id="L32632" class="LineNr">32632 </span> 0/imm32/no-r32 -<span id="L32633" class="LineNr">32633 </span> 0/imm32/no-imm32 -<span id="L32634" class="LineNr">32634 </span> 0/imm32/no-imm8 -<span id="L32635" class="LineNr">32635 </span> 0/imm32/no-disp32 -<span id="L32636" class="LineNr">32636 </span> 0/imm32/no-xm32 -<span id="L32637" class="LineNr">32637 </span> 0/imm32/no-x32 -<span id="L32638" class="LineNr">32638 </span> 0x11/imm32/alloc-id:fake -<span id="L32639" class="LineNr">32639 </span> <a href='mu.subx.html#L32640'>_Primitive-break-if-=</a>/imm32/next -<span id="L32640" class="LineNr">32640 </span><span class="subxMinorFunction">_Primitive-break-if-=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32641" class="LineNr">32641 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32600" class="LineNr">32600 </span> <a href='mu.subx.html#L34285'>_string-square-root</a>/imm32/name +<span id="L32601" class="LineNr">32601 </span> 0x11/imm32/alloc-id:fake +<span id="L32602" class="LineNr">32602 </span> <span class="SpecialChar"><a href='mu.subx.html#L35198'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L32603" class="LineNr">32603 </span> 0x11/imm32/alloc-id:fake +<span id="L32604" class="LineNr">32604 </span> <span class="SpecialChar"><a href='mu.subx.html#L35216'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32605" class="LineNr">32605 </span> 0x11/imm32/alloc-id:fake +<span id="L32606" class="LineNr">32606 </span> <a href='mu.subx.html#L34607'>_string_f3_0f_51_square_root</a>/imm32/subx-name +<span id="L32607" class="LineNr">32607 </span> 0/imm32/no-rm32 +<span id="L32608" class="LineNr">32608 </span> 0/imm32/no-r32 +<span id="L32609" class="LineNr">32609 </span> 0/imm32/no-imm32 +<span id="L32610" class="LineNr">32610 </span> 0/imm32/no-imm8 +<span id="L32611" class="LineNr">32611 </span> 0/imm32/no-disp32 +<span id="L32612" class="LineNr">32612 </span> 1/imm32/xm32-is-first-inout +<span id="L32613" class="LineNr">32613 </span> 3/imm32/x32-is-first-output +<span id="L32614" class="LineNr">32614 </span> 0x11/imm32/alloc-id:fake +<span id="L32615" class="LineNr">32615 </span> <a href='mu.subx.html#L32617'>_Primitive-inverse-square-root-xreg-to-xreg</a>/imm32/next +<span id="L32616" class="LineNr">32616 </span><span class="subxH1Comment"># - floating-point inverse square root 1/sqrt(x)</span> +<span id="L32617" class="LineNr">32617 </span><span class="subxMinorFunction">_Primitive-inverse-square-root-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32618" class="LineNr">32618 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32619" class="LineNr">32619 </span> <span class="subxComment"># var1/xreg <- reciprocal var2 => f3 0f 52/inverse-square-root var2/xm32 var1/x32</span> +<span id="L32620" class="LineNr">32620 </span> 0x11/imm32/alloc-id:fake +<span id="L32621" class="LineNr">32621 </span> <a href='mu.subx.html#L34290'>_string-inverse-square-root</a>/imm32/name +<span id="L32622" class="LineNr">32622 </span> 0x11/imm32/alloc-id:fake +<span id="L32623" class="LineNr">32623 </span> <span class="SpecialChar"><a href='mu.subx.html#L35216'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L32624" class="LineNr">32624 </span> 0x11/imm32/alloc-id:fake +<span id="L32625" class="LineNr">32625 </span> <span class="SpecialChar"><a href='mu.subx.html#L35216'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32626" class="LineNr">32626 </span> 0x11/imm32/alloc-id:fake +<span id="L32627" class="LineNr">32627 </span> <a href='mu.subx.html#L34612'>_string_f3_0f_52_inverse_square_root</a>/imm32/subx-name +<span id="L32628" class="LineNr">32628 </span> 0/imm32/no-rm32 +<span id="L32629" class="LineNr">32629 </span> 0/imm32/no-r32 +<span id="L32630" class="LineNr">32630 </span> 0/imm32/no-imm32 +<span id="L32631" class="LineNr">32631 </span> 0/imm32/no-imm8 +<span id="L32632" class="LineNr">32632 </span> 0/imm32/no-disp32 +<span id="L32633" class="LineNr">32633 </span> 1/imm32/xm32-is-first-inout +<span id="L32634" class="LineNr">32634 </span> 3/imm32/x32-is-first-output +<span id="L32635" class="LineNr">32635 </span> 0x11/imm32/alloc-id:fake +<span id="L32636" class="LineNr">32636 </span> <a href='mu.subx.html#L32637'>_Primitive-inverse-square-root-mem-to-xreg</a>/imm32/next +<span id="L32637" class="LineNr">32637 </span><span class="subxMinorFunction">_Primitive-inverse-square-root-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32638" class="LineNr">32638 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32639" class="LineNr">32639 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 52/inverse-square-root var2/xm32 var1/x32</span> +<span id="L32640" class="LineNr">32640 </span> 0x11/imm32/alloc-id:fake +<span id="L32641" class="LineNr">32641 </span> <a href='mu.subx.html#L34290'>_string-inverse-square-root</a>/imm32/name <span id="L32642" class="LineNr">32642 </span> 0x11/imm32/alloc-id:fake -<span id="L32643" class="LineNr">32643 </span> <a href='mu.subx.html#L33786'>_string-break-if-=</a>/imm32/name -<span id="L32644" class="LineNr">32644 </span> 0/imm32/no-inouts -<span id="L32645" class="LineNr">32645 </span> 0/imm32/no-inouts -<span id="L32646" class="LineNr">32646 </span> 0/imm32/no-outputs -<span id="L32647" class="LineNr">32647 </span> 0/imm32/no-outputs -<span id="L32648" class="LineNr">32648 </span> 0x11/imm32/alloc-id:fake -<span id="L32649" class="LineNr">32649 </span> <a href='mu.subx.html#L34123'>_string_0f_84_jump_break</a>/imm32/subx-name -<span id="L32650" class="LineNr">32650 </span> 0/imm32/no-rm32 -<span id="L32651" class="LineNr">32651 </span> 0/imm32/no-r32 -<span id="L32652" class="LineNr">32652 </span> 0/imm32/no-imm32 -<span id="L32653" class="LineNr">32653 </span> 0/imm32/no-imm8 -<span id="L32654" class="LineNr">32654 </span> 0/imm32/no-disp32 -<span id="L32655" class="LineNr">32655 </span> 0/imm32/no-xm32 -<span id="L32656" class="LineNr">32656 </span> 0/imm32/no-x32 -<span id="L32657" class="LineNr">32657 </span> 0x11/imm32/alloc-id:fake -<span id="L32658" class="LineNr">32658 </span> <a href='mu.subx.html#L32659'>_Primitive-break-if-!=</a>/imm32/next -<span id="L32659" class="LineNr">32659 </span><span class="subxMinorFunction">_Primitive-break-if-!=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32660" class="LineNr">32660 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32643" class="LineNr">32643 </span> <span class="SpecialChar"><a href='mu.subx.html#L35198'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L32644" class="LineNr">32644 </span> 0x11/imm32/alloc-id:fake +<span id="L32645" class="LineNr">32645 </span> <span class="SpecialChar"><a href='mu.subx.html#L35216'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32646" class="LineNr">32646 </span> 0x11/imm32/alloc-id:fake +<span id="L32647" class="LineNr">32647 </span> <a href='mu.subx.html#L34612'>_string_f3_0f_52_inverse_square_root</a>/imm32/subx-name +<span id="L32648" class="LineNr">32648 </span> 0/imm32/no-rm32 +<span id="L32649" class="LineNr">32649 </span> 0/imm32/no-r32 +<span id="L32650" class="LineNr">32650 </span> 0/imm32/no-imm32 +<span id="L32651" class="LineNr">32651 </span> 0/imm32/no-imm8 +<span id="L32652" class="LineNr">32652 </span> 0/imm32/no-disp32 +<span id="L32653" class="LineNr">32653 </span> 1/imm32/xm32-is-first-inout +<span id="L32654" class="LineNr">32654 </span> 3/imm32/x32-is-first-output +<span id="L32655" class="LineNr">32655 </span> 0x11/imm32/alloc-id:fake +<span id="L32656" class="LineNr">32656 </span> <a href='mu.subx.html#L32658'>_Primitive-compare-xreg-with-xreg</a>/imm32/next +<span id="L32657" class="LineNr">32657 </span><span class="subxH1Comment"># - floating-point compare</span> +<span id="L32658" class="LineNr">32658 </span><span class="subxMinorFunction">_Primitive-compare-xreg-with-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32659" class="LineNr">32659 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32660" class="LineNr">32660 </span> <span class="subxComment"># compare var1/reg1 var2/reg2 => 0f 2f/compare var2/x32 var1/xm32</span> <span id="L32661" class="LineNr">32661 </span> 0x11/imm32/alloc-id:fake -<span id="L32662" class="LineNr">32662 </span> <a href='mu.subx.html#L33801'>_string-break-if-!=</a>/imm32/name -<span id="L32663" class="LineNr">32663 </span> 0/imm32/no-inouts -<span id="L32664" class="LineNr">32664 </span> 0/imm32/no-inouts +<span id="L32662" class="LineNr">32662 </span> <a href='mu.subx.html#L34115'>_string-compare</a>/imm32/name +<span id="L32663" class="LineNr">32663 </span> 0x11/imm32/alloc-id:fake +<span id="L32664" class="LineNr">32664 </span> <span class="SpecialChar"><a href='mu.subx.html#L34991'>Two-float-args-in-regs</a></span>/imm32/inouts <span id="L32665" class="LineNr">32665 </span> 0/imm32/no-outputs <span id="L32666" class="LineNr">32666 </span> 0/imm32/no-outputs <span id="L32667" class="LineNr">32667 </span> 0x11/imm32/alloc-id:fake -<span id="L32668" class="LineNr">32668 </span> <a href='mu.subx.html#L34138'>_string_0f_85_jump_break</a>/imm32/subx-name +<span id="L32668" class="LineNr">32668 </span> <a href='mu.subx.html#L34637'>_string_0f_2f_compare</a>/imm32/subx-name <span id="L32669" class="LineNr">32669 </span> 0/imm32/no-rm32 <span id="L32670" class="LineNr">32670 </span> 0/imm32/no-r32 <span id="L32671" class="LineNr">32671 </span> 0/imm32/no-imm32 <span id="L32672" class="LineNr">32672 </span> 0/imm32/no-imm8 <span id="L32673" class="LineNr">32673 </span> 0/imm32/no-disp32 -<span id="L32674" class="LineNr">32674 </span> 0/imm32/no-xm32 -<span id="L32675" class="LineNr">32675 </span> 0/imm32/no-x32 +<span id="L32674" class="LineNr">32674 </span> 2/imm32/xm32-is-second-inout +<span id="L32675" class="LineNr">32675 </span> 1/imm32/x32-is-first-inout <span id="L32676" class="LineNr">32676 </span> 0x11/imm32/alloc-id:fake -<span id="L32677" class="LineNr">32677 </span> <a href='mu.subx.html#L32678'>_Primitive-break-if-addr<=</a>/imm32/next -<span id="L32678" class="LineNr">32678 </span><span class="subxMinorFunction">_Primitive-break-if-addr<=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32677" class="LineNr">32677 </span> <a href='mu.subx.html#L32678'>_Primitive-compare-xreg-with-mem</a>/imm32/next +<span id="L32678" class="LineNr">32678 </span><span class="subxMinorFunction">_Primitive-compare-xreg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> <span id="L32679" class="LineNr">32679 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32680" class="LineNr">32680 </span> 0x11/imm32/alloc-id:fake -<span id="L32681" class="LineNr">32681 </span> <a href='mu.subx.html#L33811'>_string-break-if-addr<=</a>/imm32/name -<span id="L32682" class="LineNr">32682 </span> 0/imm32/no-inouts -<span id="L32683" class="LineNr">32683 </span> 0/imm32/no-inouts -<span id="L32684" class="LineNr">32684 </span> 0/imm32/no-outputs +<span id="L32680" class="LineNr">32680 </span> <span class="subxComment"># compare var1/xreg var2 => 0f 2f/compare var1/x32 var2/xm32</span> +<span id="L32681" class="LineNr">32681 </span> 0x11/imm32/alloc-id:fake +<span id="L32682" class="LineNr">32682 </span> <a href='mu.subx.html#L34115'>_string-compare</a>/imm32/name +<span id="L32683" class="LineNr">32683 </span> 0x11/imm32/alloc-id:fake +<span id="L32684" class="LineNr">32684 </span> <span class="SpecialChar"><a href='mu.subx.html#L34998'>Two-args-float-reg-float-stack</a></span>/imm32/inouts <span id="L32685" class="LineNr">32685 </span> 0/imm32/no-outputs -<span id="L32686" class="LineNr">32686 </span> 0x11/imm32/alloc-id:fake -<span id="L32687" class="LineNr">32687 </span> <a href='mu.subx.html#L34153'>_string_0f_86_jump_break</a>/imm32/subx-name -<span id="L32688" class="LineNr">32688 </span> 0/imm32/no-rm32 -<span id="L32689" class="LineNr">32689 </span> 0/imm32/no-r32 -<span id="L32690" class="LineNr">32690 </span> 0/imm32/no-imm32 -<span id="L32691" class="LineNr">32691 </span> 0/imm32/no-imm8 -<span id="L32692" class="LineNr">32692 </span> 0/imm32/no-disp32 -<span id="L32693" class="LineNr">32693 </span> 0/imm32/no-xm32 -<span id="L32694" class="LineNr">32694 </span> 0/imm32/no-x32 -<span id="L32695" class="LineNr">32695 </span> 0x11/imm32/alloc-id:fake -<span id="L32696" class="LineNr">32696 </span> <a href='mu.subx.html#L32697'>_Primitive-break-if-addr></a>/imm32/next -<span id="L32697" class="LineNr">32697 </span><span class="subxMinorFunction">_Primitive-break-if-addr></span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32698" class="LineNr">32698 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32699" class="LineNr">32699 </span> 0x11/imm32/alloc-id:fake -<span id="L32700" class="LineNr">32700 </span> <a href='mu.subx.html#L33816'>_string-break-if-addr></a>/imm32/name -<span id="L32701" class="LineNr">32701 </span> 0/imm32/no-inouts -<span id="L32702" class="LineNr">32702 </span> 0/imm32/no-inouts -<span id="L32703" class="LineNr">32703 </span> 0/imm32/no-outputs -<span id="L32704" class="LineNr">32704 </span> 0/imm32/no-outputs -<span id="L32705" class="LineNr">32705 </span> 0x11/imm32/alloc-id:fake -<span id="L32706" class="LineNr">32706 </span> <a href='mu.subx.html#L34168'>_string_0f_87_jump_break</a>/imm32/subx-name -<span id="L32707" class="LineNr">32707 </span> 0/imm32/no-rm32 -<span id="L32708" class="LineNr">32708 </span> 0/imm32/no-r32 -<span id="L32709" class="LineNr">32709 </span> 0/imm32/no-imm32 -<span id="L32710" class="LineNr">32710 </span> 0/imm32/no-imm8 -<span id="L32711" class="LineNr">32711 </span> 0/imm32/no-disp32 -<span id="L32712" class="LineNr">32712 </span> 0/imm32/no-xm32 -<span id="L32713" class="LineNr">32713 </span> 0/imm32/no-x32 -<span id="L32714" class="LineNr">32714 </span> 0x11/imm32/alloc-id:fake -<span id="L32715" class="LineNr">32715 </span> <a href='mu.subx.html#L32716'>_Primitive-break-if-<</a>/imm32/next -<span id="L32716" class="LineNr">32716 </span><span class="subxMinorFunction">_Primitive-break-if-<</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32717" class="LineNr">32717 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32718" class="LineNr">32718 </span> 0x11/imm32/alloc-id:fake -<span id="L32719" class="LineNr">32719 </span> <a href='mu.subx.html#L33776'>_string-break-if-<</a>/imm32/name -<span id="L32720" class="LineNr">32720 </span> 0/imm32/no-inouts -<span id="L32721" class="LineNr">32721 </span> 0/imm32/no-inouts -<span id="L32722" class="LineNr">32722 </span> 0/imm32/no-outputs -<span id="L32723" class="LineNr">32723 </span> 0/imm32/no-outputs -<span id="L32724" class="LineNr">32724 </span> 0x11/imm32/alloc-id:fake -<span id="L32725" class="LineNr">32725 </span> <a href='mu.subx.html#L34183'>_string_0f_8c_jump_break</a>/imm32/subx-name -<span id="L32726" class="LineNr">32726 </span> 0/imm32/no-rm32 -<span id="L32727" class="LineNr">32727 </span> 0/imm32/no-r32 -<span id="L32728" class="LineNr">32728 </span> 0/imm32/no-imm32 -<span id="L32729" class="LineNr">32729 </span> 0/imm32/no-imm8 -<span id="L32730" class="LineNr">32730 </span> 0/imm32/no-disp32 -<span id="L32731" class="LineNr">32731 </span> 0/imm32/no-xm32 -<span id="L32732" class="LineNr">32732 </span> 0/imm32/no-x32 -<span id="L32733" class="LineNr">32733 </span> 0x11/imm32/alloc-id:fake -<span id="L32734" class="LineNr">32734 </span> <a href='mu.subx.html#L32735'>_Primitive-break-if->=</a>/imm32/next -<span id="L32735" class="LineNr">32735 </span><span class="subxMinorFunction">_Primitive-break-if->=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32736" class="LineNr">32736 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32737" class="LineNr">32737 </span> 0x11/imm32/alloc-id:fake -<span id="L32738" class="LineNr">32738 </span> <a href='mu.subx.html#L33796'>_string-break-if->=</a>/imm32/name -<span id="L32739" class="LineNr">32739 </span> 0/imm32/no-inouts -<span id="L32740" class="LineNr">32740 </span> 0/imm32/no-inouts -<span id="L32741" class="LineNr">32741 </span> 0/imm32/no-outputs -<span id="L32742" class="LineNr">32742 </span> 0/imm32/no-outputs -<span id="L32743" class="LineNr">32743 </span> 0x11/imm32/alloc-id:fake -<span id="L32744" class="LineNr">32744 </span> <a href='mu.subx.html#L34198'>_string_0f_8d_jump_break</a>/imm32/subx-name -<span id="L32745" class="LineNr">32745 </span> 0/imm32/no-rm32 -<span id="L32746" class="LineNr">32746 </span> 0/imm32/no-r32 -<span id="L32747" class="LineNr">32747 </span> 0/imm32/no-imm32 -<span id="L32748" class="LineNr">32748 </span> 0/imm32/no-imm8 -<span id="L32749" class="LineNr">32749 </span> 0/imm32/no-disp32 -<span id="L32750" class="LineNr">32750 </span> 0/imm32/no-xm32 -<span id="L32751" class="LineNr">32751 </span> 0/imm32/no-x32 -<span id="L32752" class="LineNr">32752 </span> 0x11/imm32/alloc-id:fake -<span id="L32753" class="LineNr">32753 </span> <a href='mu.subx.html#L32754'>_Primitive-break-if-<=</a>/imm32/next -<span id="L32754" class="LineNr">32754 </span><span class="subxMinorFunction">_Primitive-break-if-<=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32755" class="LineNr">32755 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32756" class="LineNr">32756 </span> 0x11/imm32/alloc-id:fake -<span id="L32757" class="LineNr">32757 </span> <a href='mu.subx.html#L33781'>_string-break-if-<=</a>/imm32/name -<span id="L32758" class="LineNr">32758 </span> 0/imm32/no-inouts -<span id="L32759" class="LineNr">32759 </span> 0/imm32/no-inouts -<span id="L32760" class="LineNr">32760 </span> 0/imm32/no-outputs -<span id="L32761" class="LineNr">32761 </span> 0/imm32/no-outputs -<span id="L32762" class="LineNr">32762 </span> 0x11/imm32/alloc-id:fake -<span id="L32763" class="LineNr">32763 </span> <a href='mu.subx.html#L34213'>_string_0f_8e_jump_break</a>/imm32/subx-name -<span id="L32764" class="LineNr">32764 </span> 0/imm32/no-rm32 -<span id="L32765" class="LineNr">32765 </span> 0/imm32/no-r32 -<span id="L32766" class="LineNr">32766 </span> 0/imm32/no-imm32 -<span id="L32767" class="LineNr">32767 </span> 0/imm32/no-imm8 -<span id="L32768" class="LineNr">32768 </span> 0/imm32/no-disp32 -<span id="L32769" class="LineNr">32769 </span> 0/imm32/no-xm32 -<span id="L32770" class="LineNr">32770 </span> 0/imm32/no-x32 -<span id="L32771" class="LineNr">32771 </span> 0x11/imm32/alloc-id:fake -<span id="L32772" class="LineNr">32772 </span> <a href='mu.subx.html#L32773'>_Primitive-break-if-></a>/imm32/next -<span id="L32773" class="LineNr">32773 </span><span class="subxMinorFunction">_Primitive-break-if-></span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32774" class="LineNr">32774 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32775" class="LineNr">32775 </span> 0x11/imm32/alloc-id:fake -<span id="L32776" class="LineNr">32776 </span> <a href='mu.subx.html#L33791'>_string-break-if-></a>/imm32/name -<span id="L32777" class="LineNr">32777 </span> 0/imm32/no-inouts -<span id="L32778" class="LineNr">32778 </span> 0/imm32/no-inouts -<span id="L32779" class="LineNr">32779 </span> 0/imm32/no-outputs -<span id="L32780" class="LineNr">32780 </span> 0/imm32/no-outputs -<span id="L32781" class="LineNr">32781 </span> 0x11/imm32/alloc-id:fake -<span id="L32782" class="LineNr">32782 </span> <a href='mu.subx.html#L34228'>_string_0f_8f_jump_break</a>/imm32/subx-name -<span id="L32783" class="LineNr">32783 </span> 0/imm32/no-rm32 -<span id="L32784" class="LineNr">32784 </span> 0/imm32/no-r32 -<span id="L32785" class="LineNr">32785 </span> 0/imm32/no-imm32 -<span id="L32786" class="LineNr">32786 </span> 0/imm32/no-imm8 -<span id="L32787" class="LineNr">32787 </span> 0/imm32/no-disp32 -<span id="L32788" class="LineNr">32788 </span> 0/imm32/no-xm32 -<span id="L32789" class="LineNr">32789 </span> 0/imm32/no-x32 -<span id="L32790" class="LineNr">32790 </span> 0x11/imm32/alloc-id:fake -<span id="L32791" class="LineNr">32791 </span> <a href='mu.subx.html#L32792'>_Primitive-break</a>/imm32/next -<span id="L32792" class="LineNr">32792 </span><span class="subxMinorFunction">_Primitive-break</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32793" class="LineNr">32793 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32794" class="LineNr">32794 </span> 0x11/imm32/alloc-id:fake -<span id="L32795" class="LineNr">32795 </span> <a href='mu.subx.html#L33771'>_string-break</a>/imm32/name -<span id="L32796" class="LineNr">32796 </span> 0/imm32/no-inouts -<span id="L32797" class="LineNr">32797 </span> 0/imm32/no-inouts -<span id="L32798" class="LineNr">32798 </span> 0/imm32/no-outputs -<span id="L32799" class="LineNr">32799 </span> 0/imm32/no-outputs -<span id="L32800" class="LineNr">32800 </span> 0x11/imm32/alloc-id:fake -<span id="L32801" class="LineNr">32801 </span> <a href='mu.subx.html#L34533'>_string_e9_jump_break</a>/imm32/subx-name -<span id="L32802" class="LineNr">32802 </span> 0/imm32/no-rm32 -<span id="L32803" class="LineNr">32803 </span> 0/imm32/no-r32 -<span id="L32804" class="LineNr">32804 </span> 0/imm32/no-imm32 -<span id="L32805" class="LineNr">32805 </span> 0/imm32/no-imm8 -<span id="L32806" class="LineNr">32806 </span> 0/imm32/no-disp32 -<span id="L32807" class="LineNr">32807 </span> 0/imm32/no-xm32 -<span id="L32808" class="LineNr">32808 </span> 0/imm32/no-x32 -<span id="L32809" class="LineNr">32809 </span> 0x11/imm32/alloc-id:fake -<span id="L32810" class="LineNr">32810 </span> <a href='mu.subx.html#L32811'>_Primitive-loop-if-addr<</a>/imm32/next -<span id="L32811" class="LineNr">32811 </span><span class="subxMinorFunction">_Primitive-loop-if-addr<</span>: <span class="subxComment"># (payload primitive)</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> <a href='mu.subx.html#L33916'>_string-loop-if-addr<</a>/imm32/name -<span id="L32815" class="LineNr">32815 </span> 0/imm32/no-inouts -<span id="L32816" class="LineNr">32816 </span> 0/imm32/no-inouts -<span id="L32817" class="LineNr">32817 </span> 0/imm32/no-outputs -<span id="L32818" class="LineNr">32818 </span> 0/imm32/no-outputs -<span id="L32819" class="LineNr">32819 </span> 0x11/imm32/alloc-id:fake -<span id="L32820" class="LineNr">32820 </span> <a href='mu.subx.html#L34098'>_string_0f_82_jump_loop</a>/imm32/subx-name -<span id="L32821" class="LineNr">32821 </span> 0/imm32/no-rm32 -<span id="L32822" class="LineNr">32822 </span> 0/imm32/no-r32 -<span id="L32823" class="LineNr">32823 </span> 0/imm32/no-imm32 -<span id="L32824" class="LineNr">32824 </span> 0/imm32/no-imm8 -<span id="L32825" class="LineNr">32825 </span> 0/imm32/no-disp32 -<span id="L32826" class="LineNr">32826 </span> 0/imm32/no-xm32 -<span id="L32827" class="LineNr">32827 </span> 0/imm32/no-x32 -<span id="L32828" class="LineNr">32828 </span> 0x11/imm32/alloc-id:fake -<span id="L32829" class="LineNr">32829 </span> <a href='mu.subx.html#L32830'>_Primitive-loop-if-addr>=</a>/imm32/next -<span id="L32830" class="LineNr">32830 </span><span class="subxMinorFunction">_Primitive-loop-if-addr>=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32831" class="LineNr">32831 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32832" class="LineNr">32832 </span> 0x11/imm32/alloc-id:fake -<span id="L32833" class="LineNr">32833 </span> <a href='mu.subx.html#L33931'>_string-loop-if-addr>=</a>/imm32/name -<span id="L32834" class="LineNr">32834 </span> 0/imm32/no-inouts -<span id="L32835" class="LineNr">32835 </span> 0/imm32/no-inouts -<span id="L32836" class="LineNr">32836 </span> 0/imm32/no-outputs -<span id="L32837" class="LineNr">32837 </span> 0/imm32/no-outputs -<span id="L32838" class="LineNr">32838 </span> 0x11/imm32/alloc-id:fake -<span id="L32839" class="LineNr">32839 </span> <a href='mu.subx.html#L34113'>_string_0f_83_jump_loop</a>/imm32/subx-name -<span id="L32840" class="LineNr">32840 </span> 0/imm32/no-rm32 -<span id="L32841" class="LineNr">32841 </span> 0/imm32/no-r32 -<span id="L32842" class="LineNr">32842 </span> 0/imm32/no-imm32 -<span id="L32843" class="LineNr">32843 </span> 0/imm32/no-imm8 -<span id="L32844" class="LineNr">32844 </span> 0/imm32/no-disp32 -<span id="L32845" class="LineNr">32845 </span> 0/imm32/no-xm32 -<span id="L32846" class="LineNr">32846 </span> 0/imm32/no-x32 -<span id="L32847" class="LineNr">32847 </span> 0x11/imm32/alloc-id:fake -<span id="L32848" class="LineNr">32848 </span> <a href='mu.subx.html#L32849'>_Primitive-loop-if-=</a>/imm32/next -<span id="L32849" class="LineNr">32849 </span><span class="subxMinorFunction">_Primitive-loop-if-=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32850" class="LineNr">32850 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32851" class="LineNr">32851 </span> 0x11/imm32/alloc-id:fake -<span id="L32852" class="LineNr">32852 </span> <a href='mu.subx.html#L33896'>_string-loop-if-=</a>/imm32/name -<span id="L32853" class="LineNr">32853 </span> 0/imm32/no-inouts -<span id="L32854" class="LineNr">32854 </span> 0/imm32/no-inouts -<span id="L32855" class="LineNr">32855 </span> 0/imm32/no-outputs -<span id="L32856" class="LineNr">32856 </span> 0/imm32/no-outputs -<span id="L32857" class="LineNr">32857 </span> 0x11/imm32/alloc-id:fake -<span id="L32858" class="LineNr">32858 </span> <a href='mu.subx.html#L34128'>_string_0f_84_jump_loop</a>/imm32/subx-name -<span id="L32859" class="LineNr">32859 </span> 0/imm32/no-rm32 -<span id="L32860" class="LineNr">32860 </span> 0/imm32/no-r32 -<span id="L32861" class="LineNr">32861 </span> 0/imm32/no-imm32 -<span id="L32862" class="LineNr">32862 </span> 0/imm32/no-imm8 -<span id="L32863" class="LineNr">32863 </span> 0/imm32/no-disp32 -<span id="L32864" class="LineNr">32864 </span> 0/imm32/no-xm32 -<span id="L32865" class="LineNr">32865 </span> 0/imm32/no-x32 -<span id="L32866" class="LineNr">32866 </span> 0x11/imm32/alloc-id:fake -<span id="L32867" class="LineNr">32867 </span> <a href='mu.subx.html#L32868'>_Primitive-loop-if-!=</a>/imm32/next -<span id="L32868" class="LineNr">32868 </span><span class="subxMinorFunction">_Primitive-loop-if-!=</span>: <span class="subxComment"># (payload primitive)</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> <a href='mu.subx.html#L33911'>_string-loop-if-!=</a>/imm32/name -<span id="L32872" class="LineNr">32872 </span> 0/imm32/no-inouts -<span id="L32873" class="LineNr">32873 </span> 0/imm32/no-inouts -<span id="L32874" class="LineNr">32874 </span> 0/imm32/no-outputs -<span id="L32875" class="LineNr">32875 </span> 0/imm32/no-outputs -<span id="L32876" class="LineNr">32876 </span> 0x11/imm32/alloc-id:fake -<span id="L32877" class="LineNr">32877 </span> <a href='mu.subx.html#L34143'>_string_0f_85_jump_loop</a>/imm32/subx-name -<span id="L32878" class="LineNr">32878 </span> 0/imm32/no-rm32 -<span id="L32879" class="LineNr">32879 </span> 0/imm32/no-r32 -<span id="L32880" class="LineNr">32880 </span> 0/imm32/no-imm32 -<span id="L32881" class="LineNr">32881 </span> 0/imm32/no-imm8 -<span id="L32882" class="LineNr">32882 </span> 0/imm32/no-disp32 -<span id="L32883" class="LineNr">32883 </span> 0/imm32/no-xm32 -<span id="L32884" class="LineNr">32884 </span> 0/imm32/no-x32 -<span id="L32885" class="LineNr">32885 </span> 0x11/imm32/alloc-id:fake -<span id="L32886" class="LineNr">32886 </span> <a href='mu.subx.html#L32887'>_Primitive-loop-if-addr<=</a>/imm32/next -<span id="L32887" class="LineNr">32887 </span><span class="subxMinorFunction">_Primitive-loop-if-addr<=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32888" class="LineNr">32888 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32889" class="LineNr">32889 </span> 0x11/imm32/alloc-id:fake -<span id="L32890" class="LineNr">32890 </span> <a href='mu.subx.html#L33921'>_string-loop-if-addr<=</a>/imm32/name -<span id="L32891" class="LineNr">32891 </span> 0/imm32/no-inouts -<span id="L32892" class="LineNr">32892 </span> 0/imm32/no-inouts -<span id="L32893" class="LineNr">32893 </span> 0/imm32/no-outputs -<span id="L32894" class="LineNr">32894 </span> 0/imm32/no-outputs -<span id="L32895" class="LineNr">32895 </span> 0x11/imm32/alloc-id:fake -<span id="L32896" class="LineNr">32896 </span> <a href='mu.subx.html#L34158'>_string_0f_86_jump_loop</a>/imm32/subx-name -<span id="L32897" class="LineNr">32897 </span> 0/imm32/no-rm32 -<span id="L32898" class="LineNr">32898 </span> 0/imm32/no-r32 -<span id="L32899" class="LineNr">32899 </span> 0/imm32/no-imm32 -<span id="L32900" class="LineNr">32900 </span> 0/imm32/no-imm8 -<span id="L32901" class="LineNr">32901 </span> 0/imm32/no-disp32 -<span id="L32902" class="LineNr">32902 </span> 0/imm32/no-xm32 -<span id="L32903" class="LineNr">32903 </span> 0/imm32/no-x32 -<span id="L32904" class="LineNr">32904 </span> 0x11/imm32/alloc-id:fake -<span id="L32905" class="LineNr">32905 </span> <a href='mu.subx.html#L32906'>_Primitive-loop-if-addr></a>/imm32/next -<span id="L32906" class="LineNr">32906 </span><span class="subxMinorFunction">_Primitive-loop-if-addr></span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32907" class="LineNr">32907 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32908" class="LineNr">32908 </span> 0x11/imm32/alloc-id:fake -<span id="L32909" class="LineNr">32909 </span> <a href='mu.subx.html#L33926'>_string-loop-if-addr></a>/imm32/name -<span id="L32910" class="LineNr">32910 </span> 0/imm32/no-inouts -<span id="L32911" class="LineNr">32911 </span> 0/imm32/no-inouts -<span id="L32912" class="LineNr">32912 </span> 0/imm32/no-outputs -<span id="L32913" class="LineNr">32913 </span> 0/imm32/no-outputs -<span id="L32914" class="LineNr">32914 </span> 0x11/imm32/alloc-id:fake -<span id="L32915" class="LineNr">32915 </span> <a href='mu.subx.html#L34173'>_string_0f_87_jump_loop</a>/imm32/subx-name -<span id="L32916" class="LineNr">32916 </span> 0/imm32/no-rm32 -<span id="L32917" class="LineNr">32917 </span> 0/imm32/no-r32 -<span id="L32918" class="LineNr">32918 </span> 0/imm32/no-imm32 -<span id="L32919" class="LineNr">32919 </span> 0/imm32/no-imm8 -<span id="L32920" class="LineNr">32920 </span> 0/imm32/no-disp32 -<span id="L32921" class="LineNr">32921 </span> 0/imm32/no-xm32 -<span id="L32922" class="LineNr">32922 </span> 0/imm32/no-x32 -<span id="L32923" class="LineNr">32923 </span> 0x11/imm32/alloc-id:fake -<span id="L32924" class="LineNr">32924 </span> <a href='mu.subx.html#L32925'>_Primitive-loop-if-<</a>/imm32/next -<span id="L32925" class="LineNr">32925 </span><span class="subxMinorFunction">_Primitive-loop-if-<</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32926" class="LineNr">32926 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32927" class="LineNr">32927 </span> 0x11/imm32/alloc-id:fake -<span id="L32928" class="LineNr">32928 </span> <a href='mu.subx.html#L33886'>_string-loop-if-<</a>/imm32/name -<span id="L32929" class="LineNr">32929 </span> 0/imm32/no-inouts -<span id="L32930" class="LineNr">32930 </span> 0/imm32/no-inouts -<span id="L32931" class="LineNr">32931 </span> 0/imm32/no-outputs -<span id="L32932" class="LineNr">32932 </span> 0/imm32/no-outputs -<span id="L32933" class="LineNr">32933 </span> 0x11/imm32/alloc-id:fake -<span id="L32934" class="LineNr">32934 </span> <a href='mu.subx.html#L34188'>_string_0f_8c_jump_loop</a>/imm32/subx-name -<span id="L32935" class="LineNr">32935 </span> 0/imm32/no-rm32 -<span id="L32936" class="LineNr">32936 </span> 0/imm32/no-r32 -<span id="L32937" class="LineNr">32937 </span> 0/imm32/no-imm32 -<span id="L32938" class="LineNr">32938 </span> 0/imm32/no-imm8 -<span id="L32939" class="LineNr">32939 </span> 0/imm32/no-disp32 -<span id="L32940" class="LineNr">32940 </span> 0/imm32/no-xm32 -<span id="L32941" class="LineNr">32941 </span> 0/imm32/no-x32 -<span id="L32942" class="LineNr">32942 </span> 0x11/imm32/alloc-id:fake -<span id="L32943" class="LineNr">32943 </span> <a href='mu.subx.html#L32944'>_Primitive-loop-if->=</a>/imm32/next -<span id="L32944" class="LineNr">32944 </span><span class="subxMinorFunction">_Primitive-loop-if->=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32945" class="LineNr">32945 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32946" class="LineNr">32946 </span> 0x11/imm32/alloc-id:fake -<span id="L32947" class="LineNr">32947 </span> <a href='mu.subx.html#L33906'>_string-loop-if->=</a>/imm32/name -<span id="L32948" class="LineNr">32948 </span> 0/imm32/no-inouts -<span id="L32949" class="LineNr">32949 </span> 0/imm32/no-inouts -<span id="L32950" class="LineNr">32950 </span> 0/imm32/no-outputs -<span id="L32951" class="LineNr">32951 </span> 0/imm32/no-outputs -<span id="L32952" class="LineNr">32952 </span> 0x11/imm32/alloc-id:fake -<span id="L32953" class="LineNr">32953 </span> <a href='mu.subx.html#L34203'>_string_0f_8d_jump_loop</a>/imm32/subx-name -<span id="L32954" class="LineNr">32954 </span> 0/imm32/no-rm32 -<span id="L32955" class="LineNr">32955 </span> 0/imm32/no-r32 -<span id="L32956" class="LineNr">32956 </span> 0/imm32/no-imm32 -<span id="L32957" class="LineNr">32957 </span> 0/imm32/no-imm8 -<span id="L32958" class="LineNr">32958 </span> 0/imm32/no-disp32 -<span id="L32959" class="LineNr">32959 </span> 0/imm32/no-xm32 -<span id="L32960" class="LineNr">32960 </span> 0/imm32/no-x32 -<span id="L32961" class="LineNr">32961 </span> 0x11/imm32/alloc-id:fake -<span id="L32962" class="LineNr">32962 </span> <a href='mu.subx.html#L32963'>_Primitive-loop-if-<=</a>/imm32/next -<span id="L32963" class="LineNr">32963 </span><span class="subxMinorFunction">_Primitive-loop-if-<=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32964" class="LineNr">32964 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32965" class="LineNr">32965 </span> 0x11/imm32/alloc-id:fake -<span id="L32966" class="LineNr">32966 </span> <a href='mu.subx.html#L33891'>_string-loop-if-<=</a>/imm32/name -<span id="L32967" class="LineNr">32967 </span> 0/imm32/no-inouts -<span id="L32968" class="LineNr">32968 </span> 0/imm32/no-inouts -<span id="L32969" class="LineNr">32969 </span> 0/imm32/no-outputs -<span id="L32970" class="LineNr">32970 </span> 0/imm32/no-outputs -<span id="L32971" class="LineNr">32971 </span> 0x11/imm32/alloc-id:fake -<span id="L32972" class="LineNr">32972 </span> <a href='mu.subx.html#L34218'>_string_0f_8e_jump_loop</a>/imm32/subx-name -<span id="L32973" class="LineNr">32973 </span> 0/imm32/no-rm32 -<span id="L32974" class="LineNr">32974 </span> 0/imm32/no-r32 -<span id="L32975" class="LineNr">32975 </span> 0/imm32/no-imm32 -<span id="L32976" class="LineNr">32976 </span> 0/imm32/no-imm8 -<span id="L32977" class="LineNr">32977 </span> 0/imm32/no-disp32 -<span id="L32978" class="LineNr">32978 </span> 0/imm32/no-xm32 -<span id="L32979" class="LineNr">32979 </span> 0/imm32/no-x32 -<span id="L32980" class="LineNr">32980 </span> 0x11/imm32/alloc-id:fake -<span id="L32981" class="LineNr">32981 </span> <a href='mu.subx.html#L32982'>_Primitive-loop-if-></a>/imm32/next -<span id="L32982" class="LineNr">32982 </span><span class="subxMinorFunction">_Primitive-loop-if-></span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32983" class="LineNr">32983 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32984" class="LineNr">32984 </span> 0x11/imm32/alloc-id:fake -<span id="L32985" class="LineNr">32985 </span> <a href='mu.subx.html#L33901'>_string-loop-if-></a>/imm32/name -<span id="L32986" class="LineNr">32986 </span> 0/imm32/no-inouts -<span id="L32987" class="LineNr">32987 </span> 0/imm32/no-inouts -<span id="L32988" class="LineNr">32988 </span> 0/imm32/no-outputs -<span id="L32989" class="LineNr">32989 </span> 0/imm32/no-outputs -<span id="L32990" class="LineNr">32990 </span> 0x11/imm32/alloc-id:fake -<span id="L32991" class="LineNr">32991 </span> <a href='mu.subx.html#L34233'>_string_0f_8f_jump_loop</a>/imm32/subx-name -<span id="L32992" class="LineNr">32992 </span> 0/imm32/no-rm32 -<span id="L32993" class="LineNr">32993 </span> 0/imm32/no-r32 -<span id="L32994" class="LineNr">32994 </span> 0/imm32/no-imm32 -<span id="L32995" class="LineNr">32995 </span> 0/imm32/no-imm8 -<span id="L32996" class="LineNr">32996 </span> 0/imm32/no-disp32 -<span id="L32997" class="LineNr">32997 </span> 0/imm32/no-xm32 -<span id="L32998" class="LineNr">32998 </span> 0/imm32/no-x32 -<span id="L32999" class="LineNr">32999 </span> 0x11/imm32/alloc-id:fake -<span id="L33000" class="LineNr">33000 </span> <a href='mu.subx.html#L33001'>_Primitive-loop</a>/imm32/next <span class="subxComment"># we probably don't need an unconditional break</span> -<span id="L33001" class="LineNr">33001 </span><span class="subxMinorFunction">_Primitive-loop</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33002" class="LineNr">33002 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33003" class="LineNr">33003 </span> 0x11/imm32/alloc-id:fake -<span id="L33004" class="LineNr">33004 </span> <a href='mu.subx.html#L33881'>_string-loop</a>/imm32/name -<span id="L33005" class="LineNr">33005 </span> 0/imm32/no-inouts -<span id="L33006" class="LineNr">33006 </span> 0/imm32/no-inouts -<span id="L33007" class="LineNr">33007 </span> 0/imm32/no-outputs -<span id="L33008" class="LineNr">33008 </span> 0/imm32/no-outputs -<span id="L33009" class="LineNr">33009 </span> 0x11/imm32/alloc-id:fake -<span id="L33010" class="LineNr">33010 </span> <a href='mu.subx.html#L34538'>_string_e9_jump_loop</a>/imm32/subx-name -<span id="L33011" class="LineNr">33011 </span> 0/imm32/no-rm32 -<span id="L33012" class="LineNr">33012 </span> 0/imm32/no-r32 -<span id="L33013" class="LineNr">33013 </span> 0/imm32/no-imm32 -<span id="L33014" class="LineNr">33014 </span> 0/imm32/no-imm8 -<span id="L33015" class="LineNr">33015 </span> 0/imm32/no-disp32 -<span id="L33016" class="LineNr">33016 </span> 0/imm32/no-xm32 -<span id="L33017" class="LineNr">33017 </span> 0/imm32/no-x32 -<span id="L33018" class="LineNr">33018 </span> 0x11/imm32/alloc-id:fake -<span id="L33019" class="LineNr">33019 </span> <a href='mu.subx.html#L33021'>_Primitive-break-if-addr<-named</a>/imm32/next -<span id="L33020" class="LineNr">33020 </span><span class="subxH1Comment"># - branches to named blocks</span> -<span id="L33021" class="LineNr">33021 </span><span class="subxMinorFunction">_Primitive-break-if-addr<-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33022" class="LineNr">33022 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33023" class="LineNr">33023 </span> 0x11/imm32/alloc-id:fake -<span id="L33024" class="LineNr">33024 </span> <a href='mu.subx.html#L33806'>_string-break-if-addr<</a>/imm32/name -<span id="L33025" class="LineNr">33025 </span> 0x11/imm32/alloc-id:fake -<span id="L33026" class="LineNr">33026 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L33027" class="LineNr">33027 </span> 0/imm32/no-outputs +<span id="L32686" class="LineNr">32686 </span> 0/imm32/no-outputs +<span id="L32687" class="LineNr">32687 </span> 0x11/imm32/alloc-id:fake +<span id="L32688" class="LineNr">32688 </span> <a href='mu.subx.html#L34637'>_string_0f_2f_compare</a>/imm32/subx-name +<span id="L32689" class="LineNr">32689 </span> 0/imm32/no-rm32 +<span id="L32690" class="LineNr">32690 </span> 0/imm32/no-r32 +<span id="L32691" class="LineNr">32691 </span> 0/imm32/no-imm32 +<span id="L32692" class="LineNr">32692 </span> 0/imm32/no-imm8 +<span id="L32693" class="LineNr">32693 </span> 0/imm32/no-disp32 +<span id="L32694" class="LineNr">32694 </span> 2/imm32/xm32-is-second-inout +<span id="L32695" class="LineNr">32695 </span> 1/imm32/x32-is-first-inout +<span id="L32696" class="LineNr">32696 </span> 0x11/imm32/alloc-id:fake +<span id="L32697" class="LineNr">32697 </span> <a href='mu.subx.html#L32699'>_Primitive-break-if-addr<</a>/imm32/next +<span id="L32698" class="LineNr">32698 </span><span class="subxH1Comment"># - branches</span> +<span id="L32699" class="LineNr">32699 </span><span class="subxMinorFunction">_Primitive-break-if-addr<</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32700" class="LineNr">32700 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32701" class="LineNr">32701 </span> 0x11/imm32/alloc-id:fake +<span id="L32702" class="LineNr">32702 </span> <a href='mu.subx.html#L34055'>_string-break-if-addr<</a>/imm32/name +<span id="L32703" class="LineNr">32703 </span> 0/imm32/no-inouts +<span id="L32704" class="LineNr">32704 </span> 0/imm32/no-inouts +<span id="L32705" class="LineNr">32705 </span> 0/imm32/no-outputs +<span id="L32706" class="LineNr">32706 </span> 0/imm32/no-outputs +<span id="L32707" class="LineNr">32707 </span> 0x11/imm32/alloc-id:fake +<span id="L32708" class="LineNr">32708 </span> <a href='mu.subx.html#L34417'>_string_0f_82_jump_break</a>/imm32/subx-name +<span id="L32709" class="LineNr">32709 </span> 0/imm32/no-rm32 +<span id="L32710" class="LineNr">32710 </span> 0/imm32/no-r32 +<span id="L32711" class="LineNr">32711 </span> 0/imm32/no-imm32 +<span id="L32712" class="LineNr">32712 </span> 0/imm32/no-imm8 +<span id="L32713" class="LineNr">32713 </span> 0/imm32/no-disp32 +<span id="L32714" class="LineNr">32714 </span> 0/imm32/no-xm32 +<span id="L32715" class="LineNr">32715 </span> 0/imm32/no-x32 +<span id="L32716" class="LineNr">32716 </span> 0x11/imm32/alloc-id:fake +<span id="L32717" class="LineNr">32717 </span> <a href='mu.subx.html#L32718'>_Primitive-break-if-addr>=</a>/imm32/next +<span id="L32718" class="LineNr">32718 </span><span class="subxMinorFunction">_Primitive-break-if-addr>=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32719" class="LineNr">32719 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32720" class="LineNr">32720 </span> 0x11/imm32/alloc-id:fake +<span id="L32721" class="LineNr">32721 </span> <a href='mu.subx.html#L34070'>_string-break-if-addr>=</a>/imm32/name +<span id="L32722" class="LineNr">32722 </span> 0/imm32/no-inouts +<span id="L32723" class="LineNr">32723 </span> 0/imm32/no-inouts +<span id="L32724" class="LineNr">32724 </span> 0/imm32/no-outputs +<span id="L32725" class="LineNr">32725 </span> 0/imm32/no-outputs +<span id="L32726" class="LineNr">32726 </span> 0x11/imm32/alloc-id:fake +<span id="L32727" class="LineNr">32727 </span> <a href='mu.subx.html#L34432'>_string_0f_83_jump_break</a>/imm32/subx-name +<span id="L32728" class="LineNr">32728 </span> 0/imm32/no-rm32 +<span id="L32729" class="LineNr">32729 </span> 0/imm32/no-r32 +<span id="L32730" class="LineNr">32730 </span> 0/imm32/no-imm32 +<span id="L32731" class="LineNr">32731 </span> 0/imm32/no-imm8 +<span id="L32732" class="LineNr">32732 </span> 0/imm32/no-disp32 +<span id="L32733" class="LineNr">32733 </span> 0/imm32/no-xm32 +<span id="L32734" class="LineNr">32734 </span> 0/imm32/no-x32 +<span id="L32735" class="LineNr">32735 </span> 0x11/imm32/alloc-id:fake +<span id="L32736" class="LineNr">32736 </span> <a href='mu.subx.html#L32737'>_Primitive-break-if-=</a>/imm32/next +<span id="L32737" class="LineNr">32737 </span><span class="subxMinorFunction">_Primitive-break-if-=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32738" class="LineNr">32738 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32739" class="LineNr">32739 </span> 0x11/imm32/alloc-id:fake +<span id="L32740" class="LineNr">32740 </span> <a href='mu.subx.html#L34035'>_string-break-if-=</a>/imm32/name +<span id="L32741" class="LineNr">32741 </span> 0/imm32/no-inouts +<span id="L32742" class="LineNr">32742 </span> 0/imm32/no-inouts +<span id="L32743" class="LineNr">32743 </span> 0/imm32/no-outputs +<span id="L32744" class="LineNr">32744 </span> 0/imm32/no-outputs +<span id="L32745" class="LineNr">32745 </span> 0x11/imm32/alloc-id:fake +<span id="L32746" class="LineNr">32746 </span> <a href='mu.subx.html#L34447'>_string_0f_84_jump_break</a>/imm32/subx-name +<span id="L32747" class="LineNr">32747 </span> 0/imm32/no-rm32 +<span id="L32748" class="LineNr">32748 </span> 0/imm32/no-r32 +<span id="L32749" class="LineNr">32749 </span> 0/imm32/no-imm32 +<span id="L32750" class="LineNr">32750 </span> 0/imm32/no-imm8 +<span id="L32751" class="LineNr">32751 </span> 0/imm32/no-disp32 +<span id="L32752" class="LineNr">32752 </span> 0/imm32/no-xm32 +<span id="L32753" class="LineNr">32753 </span> 0/imm32/no-x32 +<span id="L32754" class="LineNr">32754 </span> 0x11/imm32/alloc-id:fake +<span id="L32755" class="LineNr">32755 </span> <a href='mu.subx.html#L32756'>_Primitive-break-if-!=</a>/imm32/next +<span id="L32756" class="LineNr">32756 </span><span class="subxMinorFunction">_Primitive-break-if-!=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32757" class="LineNr">32757 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32758" class="LineNr">32758 </span> 0x11/imm32/alloc-id:fake +<span id="L32759" class="LineNr">32759 </span> <a href='mu.subx.html#L34050'>_string-break-if-!=</a>/imm32/name +<span id="L32760" class="LineNr">32760 </span> 0/imm32/no-inouts +<span id="L32761" class="LineNr">32761 </span> 0/imm32/no-inouts +<span id="L32762" class="LineNr">32762 </span> 0/imm32/no-outputs +<span id="L32763" class="LineNr">32763 </span> 0/imm32/no-outputs +<span id="L32764" class="LineNr">32764 </span> 0x11/imm32/alloc-id:fake +<span id="L32765" class="LineNr">32765 </span> <a href='mu.subx.html#L34462'>_string_0f_85_jump_break</a>/imm32/subx-name +<span id="L32766" class="LineNr">32766 </span> 0/imm32/no-rm32 +<span id="L32767" class="LineNr">32767 </span> 0/imm32/no-r32 +<span id="L32768" class="LineNr">32768 </span> 0/imm32/no-imm32 +<span id="L32769" class="LineNr">32769 </span> 0/imm32/no-imm8 +<span id="L32770" class="LineNr">32770 </span> 0/imm32/no-disp32 +<span id="L32771" class="LineNr">32771 </span> 0/imm32/no-xm32 +<span id="L32772" class="LineNr">32772 </span> 0/imm32/no-x32 +<span id="L32773" class="LineNr">32773 </span> 0x11/imm32/alloc-id:fake +<span id="L32774" class="LineNr">32774 </span> <a href='mu.subx.html#L32775'>_Primitive-break-if-addr<=</a>/imm32/next +<span id="L32775" class="LineNr">32775 </span><span class="subxMinorFunction">_Primitive-break-if-addr<=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32776" class="LineNr">32776 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32777" class="LineNr">32777 </span> 0x11/imm32/alloc-id:fake +<span id="L32778" class="LineNr">32778 </span> <a href='mu.subx.html#L34060'>_string-break-if-addr<=</a>/imm32/name +<span id="L32779" class="LineNr">32779 </span> 0/imm32/no-inouts +<span id="L32780" class="LineNr">32780 </span> 0/imm32/no-inouts +<span id="L32781" class="LineNr">32781 </span> 0/imm32/no-outputs +<span id="L32782" class="LineNr">32782 </span> 0/imm32/no-outputs +<span id="L32783" class="LineNr">32783 </span> 0x11/imm32/alloc-id:fake +<span id="L32784" class="LineNr">32784 </span> <a href='mu.subx.html#L34477'>_string_0f_86_jump_break</a>/imm32/subx-name +<span id="L32785" class="LineNr">32785 </span> 0/imm32/no-rm32 +<span id="L32786" class="LineNr">32786 </span> 0/imm32/no-r32 +<span id="L32787" class="LineNr">32787 </span> 0/imm32/no-imm32 +<span id="L32788" class="LineNr">32788 </span> 0/imm32/no-imm8 +<span id="L32789" class="LineNr">32789 </span> 0/imm32/no-disp32 +<span id="L32790" class="LineNr">32790 </span> 0/imm32/no-xm32 +<span id="L32791" class="LineNr">32791 </span> 0/imm32/no-x32 +<span id="L32792" class="LineNr">32792 </span> 0x11/imm32/alloc-id:fake +<span id="L32793" class="LineNr">32793 </span> <a href='mu.subx.html#L32794'>_Primitive-break-if-addr></a>/imm32/next +<span id="L32794" class="LineNr">32794 </span><span class="subxMinorFunction">_Primitive-break-if-addr></span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32795" class="LineNr">32795 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32796" class="LineNr">32796 </span> 0x11/imm32/alloc-id:fake +<span id="L32797" class="LineNr">32797 </span> <a href='mu.subx.html#L34065'>_string-break-if-addr></a>/imm32/name +<span id="L32798" class="LineNr">32798 </span> 0/imm32/no-inouts +<span id="L32799" class="LineNr">32799 </span> 0/imm32/no-inouts +<span id="L32800" class="LineNr">32800 </span> 0/imm32/no-outputs +<span id="L32801" class="LineNr">32801 </span> 0/imm32/no-outputs +<span id="L32802" class="LineNr">32802 </span> 0x11/imm32/alloc-id:fake +<span id="L32803" class="LineNr">32803 </span> <a href='mu.subx.html#L34492'>_string_0f_87_jump_break</a>/imm32/subx-name +<span id="L32804" class="LineNr">32804 </span> 0/imm32/no-rm32 +<span id="L32805" class="LineNr">32805 </span> 0/imm32/no-r32 +<span id="L32806" class="LineNr">32806 </span> 0/imm32/no-imm32 +<span id="L32807" class="LineNr">32807 </span> 0/imm32/no-imm8 +<span id="L32808" class="LineNr">32808 </span> 0/imm32/no-disp32 +<span id="L32809" class="LineNr">32809 </span> 0/imm32/no-xm32 +<span id="L32810" class="LineNr">32810 </span> 0/imm32/no-x32 +<span id="L32811" class="LineNr">32811 </span> 0x11/imm32/alloc-id:fake +<span id="L32812" class="LineNr">32812 </span> <a href='mu.subx.html#L32813'>_Primitive-break-if-<</a>/imm32/next +<span id="L32813" class="LineNr">32813 </span><span class="subxMinorFunction">_Primitive-break-if-<</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32814" class="LineNr">32814 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32815" class="LineNr">32815 </span> 0x11/imm32/alloc-id:fake +<span id="L32816" class="LineNr">32816 </span> <a href='mu.subx.html#L34025'>_string-break-if-<</a>/imm32/name +<span id="L32817" class="LineNr">32817 </span> 0/imm32/no-inouts +<span id="L32818" class="LineNr">32818 </span> 0/imm32/no-inouts +<span id="L32819" class="LineNr">32819 </span> 0/imm32/no-outputs +<span id="L32820" class="LineNr">32820 </span> 0/imm32/no-outputs +<span id="L32821" class="LineNr">32821 </span> 0x11/imm32/alloc-id:fake +<span id="L32822" class="LineNr">32822 </span> <a href='mu.subx.html#L34507'>_string_0f_8c_jump_break</a>/imm32/subx-name +<span id="L32823" class="LineNr">32823 </span> 0/imm32/no-rm32 +<span id="L32824" class="LineNr">32824 </span> 0/imm32/no-r32 +<span id="L32825" class="LineNr">32825 </span> 0/imm32/no-imm32 +<span id="L32826" class="LineNr">32826 </span> 0/imm32/no-imm8 +<span id="L32827" class="LineNr">32827 </span> 0/imm32/no-disp32 +<span id="L32828" class="LineNr">32828 </span> 0/imm32/no-xm32 +<span id="L32829" class="LineNr">32829 </span> 0/imm32/no-x32 +<span id="L32830" class="LineNr">32830 </span> 0x11/imm32/alloc-id:fake +<span id="L32831" class="LineNr">32831 </span> <a href='mu.subx.html#L32832'>_Primitive-break-if->=</a>/imm32/next +<span id="L32832" class="LineNr">32832 </span><span class="subxMinorFunction">_Primitive-break-if->=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32833" class="LineNr">32833 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32834" class="LineNr">32834 </span> 0x11/imm32/alloc-id:fake +<span id="L32835" class="LineNr">32835 </span> <a href='mu.subx.html#L34045'>_string-break-if->=</a>/imm32/name +<span id="L32836" class="LineNr">32836 </span> 0/imm32/no-inouts +<span id="L32837" class="LineNr">32837 </span> 0/imm32/no-inouts +<span id="L32838" class="LineNr">32838 </span> 0/imm32/no-outputs +<span id="L32839" class="LineNr">32839 </span> 0/imm32/no-outputs +<span id="L32840" class="LineNr">32840 </span> 0x11/imm32/alloc-id:fake +<span id="L32841" class="LineNr">32841 </span> <a href='mu.subx.html#L34522'>_string_0f_8d_jump_break</a>/imm32/subx-name +<span id="L32842" class="LineNr">32842 </span> 0/imm32/no-rm32 +<span id="L32843" class="LineNr">32843 </span> 0/imm32/no-r32 +<span id="L32844" class="LineNr">32844 </span> 0/imm32/no-imm32 +<span id="L32845" class="LineNr">32845 </span> 0/imm32/no-imm8 +<span id="L32846" class="LineNr">32846 </span> 0/imm32/no-disp32 +<span id="L32847" class="LineNr">32847 </span> 0/imm32/no-xm32 +<span id="L32848" class="LineNr">32848 </span> 0/imm32/no-x32 +<span id="L32849" class="LineNr">32849 </span> 0x11/imm32/alloc-id:fake +<span id="L32850" class="LineNr">32850 </span> <a href='mu.subx.html#L32851'>_Primitive-break-if-<=</a>/imm32/next +<span id="L32851" class="LineNr">32851 </span><span class="subxMinorFunction">_Primitive-break-if-<=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32852" class="LineNr">32852 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32853" class="LineNr">32853 </span> 0x11/imm32/alloc-id:fake +<span id="L32854" class="LineNr">32854 </span> <a href='mu.subx.html#L34030'>_string-break-if-<=</a>/imm32/name +<span id="L32855" class="LineNr">32855 </span> 0/imm32/no-inouts +<span id="L32856" class="LineNr">32856 </span> 0/imm32/no-inouts +<span id="L32857" class="LineNr">32857 </span> 0/imm32/no-outputs +<span id="L32858" class="LineNr">32858 </span> 0/imm32/no-outputs +<span id="L32859" class="LineNr">32859 </span> 0x11/imm32/alloc-id:fake +<span id="L32860" class="LineNr">32860 </span> <a href='mu.subx.html#L34537'>_string_0f_8e_jump_break</a>/imm32/subx-name +<span id="L32861" class="LineNr">32861 </span> 0/imm32/no-rm32 +<span id="L32862" class="LineNr">32862 </span> 0/imm32/no-r32 +<span id="L32863" class="LineNr">32863 </span> 0/imm32/no-imm32 +<span id="L32864" class="LineNr">32864 </span> 0/imm32/no-imm8 +<span id="L32865" class="LineNr">32865 </span> 0/imm32/no-disp32 +<span id="L32866" class="LineNr">32866 </span> 0/imm32/no-xm32 +<span id="L32867" class="LineNr">32867 </span> 0/imm32/no-x32 +<span id="L32868" class="LineNr">32868 </span> 0x11/imm32/alloc-id:fake +<span id="L32869" class="LineNr">32869 </span> <a href='mu.subx.html#L32870'>_Primitive-break-if-></a>/imm32/next +<span id="L32870" class="LineNr">32870 </span><span class="subxMinorFunction">_Primitive-break-if-></span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32871" class="LineNr">32871 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32872" class="LineNr">32872 </span> 0x11/imm32/alloc-id:fake +<span id="L32873" class="LineNr">32873 </span> <a href='mu.subx.html#L34040'>_string-break-if-></a>/imm32/name +<span id="L32874" class="LineNr">32874 </span> 0/imm32/no-inouts +<span id="L32875" class="LineNr">32875 </span> 0/imm32/no-inouts +<span id="L32876" class="LineNr">32876 </span> 0/imm32/no-outputs +<span id="L32877" class="LineNr">32877 </span> 0/imm32/no-outputs +<span id="L32878" class="LineNr">32878 </span> 0x11/imm32/alloc-id:fake +<span id="L32879" class="LineNr">32879 </span> <a href='mu.subx.html#L34552'>_string_0f_8f_jump_break</a>/imm32/subx-name +<span id="L32880" class="LineNr">32880 </span> 0/imm32/no-rm32 +<span id="L32881" class="LineNr">32881 </span> 0/imm32/no-r32 +<span id="L32882" class="LineNr">32882 </span> 0/imm32/no-imm32 +<span id="L32883" class="LineNr">32883 </span> 0/imm32/no-imm8 +<span id="L32884" class="LineNr">32884 </span> 0/imm32/no-disp32 +<span id="L32885" class="LineNr">32885 </span> 0/imm32/no-xm32 +<span id="L32886" class="LineNr">32886 </span> 0/imm32/no-x32 +<span id="L32887" class="LineNr">32887 </span> 0x11/imm32/alloc-id:fake +<span id="L32888" class="LineNr">32888 </span> <a href='mu.subx.html#L32889'>_Primitive-break-if-carry</a>/imm32/next +<span id="L32889" class="LineNr">32889 </span><span class="subxMinorFunction">_Primitive-break-if-carry</span>: <span class="subxComment"># (payload primitive)</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> <a href='mu.subx.html#L34095'>_string-break-if-carry</a>/imm32/name +<span id="L32893" class="LineNr">32893 </span> 0/imm32/no-inouts +<span id="L32894" class="LineNr">32894 </span> 0/imm32/no-inouts +<span id="L32895" class="LineNr">32895 </span> 0/imm32/no-outputs +<span id="L32896" class="LineNr">32896 </span> 0/imm32/no-outputs +<span id="L32897" class="LineNr">32897 </span> 0x11/imm32/alloc-id:fake +<span id="L32898" class="LineNr">32898 </span> <a href='mu.subx.html#L34417'>_string_0f_82_jump_break</a>/imm32/subx-name +<span id="L32899" class="LineNr">32899 </span> 0/imm32/no-rm32 +<span id="L32900" class="LineNr">32900 </span> 0/imm32/no-r32 +<span id="L32901" class="LineNr">32901 </span> 0/imm32/no-imm32 +<span id="L32902" class="LineNr">32902 </span> 0/imm32/no-imm8 +<span id="L32903" class="LineNr">32903 </span> 0/imm32/no-disp32 +<span id="L32904" class="LineNr">32904 </span> 0/imm32/no-xm32 +<span id="L32905" class="LineNr">32905 </span> 0/imm32/no-x32 +<span id="L32906" class="LineNr">32906 </span> 0x11/imm32/alloc-id:fake +<span id="L32907" class="LineNr">32907 </span> <a href='mu.subx.html#L32908'>_Primitive-break-if-not-carry</a>/imm32/next +<span id="L32908" class="LineNr">32908 </span><span class="subxMinorFunction">_Primitive-break-if-not-carry</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32909" class="LineNr">32909 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32910" class="LineNr">32910 </span> 0x11/imm32/alloc-id:fake +<span id="L32911" class="LineNr">32911 </span> <a href='mu.subx.html#L34100'>_string-break-if-not-carry</a>/imm32/name +<span id="L32912" class="LineNr">32912 </span> 0/imm32/no-inouts +<span id="L32913" class="LineNr">32913 </span> 0/imm32/no-inouts +<span id="L32914" class="LineNr">32914 </span> 0/imm32/no-outputs +<span id="L32915" class="LineNr">32915 </span> 0/imm32/no-outputs +<span id="L32916" class="LineNr">32916 </span> 0x11/imm32/alloc-id:fake +<span id="L32917" class="LineNr">32917 </span> <a href='mu.subx.html#L34432'>_string_0f_83_jump_break</a>/imm32/subx-name +<span id="L32918" class="LineNr">32918 </span> 0/imm32/no-rm32 +<span id="L32919" class="LineNr">32919 </span> 0/imm32/no-r32 +<span id="L32920" class="LineNr">32920 </span> 0/imm32/no-imm32 +<span id="L32921" class="LineNr">32921 </span> 0/imm32/no-imm8 +<span id="L32922" class="LineNr">32922 </span> 0/imm32/no-disp32 +<span id="L32923" class="LineNr">32923 </span> 0/imm32/no-xm32 +<span id="L32924" class="LineNr">32924 </span> 0/imm32/no-x32 +<span id="L32925" class="LineNr">32925 </span> 0x11/imm32/alloc-id:fake +<span id="L32926" class="LineNr">32926 </span> <a href='mu.subx.html#L32927'>_Primitive-break-if-overflow</a>/imm32/next +<span id="L32927" class="LineNr">32927 </span><span class="subxMinorFunction">_Primitive-break-if-overflow</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32928" class="LineNr">32928 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32929" class="LineNr">32929 </span> 0x11/imm32/alloc-id:fake +<span id="L32930" class="LineNr">32930 </span> <a href='mu.subx.html#L34105'>_string-break-if-overflow</a>/imm32/name +<span id="L32931" class="LineNr">32931 </span> 0/imm32/no-inouts +<span id="L32932" class="LineNr">32932 </span> 0/imm32/no-inouts +<span id="L32933" class="LineNr">32933 </span> 0/imm32/no-outputs +<span id="L32934" class="LineNr">32934 </span> 0/imm32/no-outputs +<span id="L32935" class="LineNr">32935 </span> 0x11/imm32/alloc-id:fake +<span id="L32936" class="LineNr">32936 </span> <a href='mu.subx.html#L34387'>_string_0f_80_jump_break</a>/imm32/subx-name +<span id="L32937" class="LineNr">32937 </span> 0/imm32/no-rm32 +<span id="L32938" class="LineNr">32938 </span> 0/imm32/no-r32 +<span id="L32939" class="LineNr">32939 </span> 0/imm32/no-imm32 +<span id="L32940" class="LineNr">32940 </span> 0/imm32/no-imm8 +<span id="L32941" class="LineNr">32941 </span> 0/imm32/no-disp32 +<span id="L32942" class="LineNr">32942 </span> 0/imm32/no-xm32 +<span id="L32943" class="LineNr">32943 </span> 0/imm32/no-x32 +<span id="L32944" class="LineNr">32944 </span> 0x11/imm32/alloc-id:fake +<span id="L32945" class="LineNr">32945 </span> <a href='mu.subx.html#L32946'>_Primitive-break-if-not-overflow</a>/imm32/next +<span id="L32946" class="LineNr">32946 </span><span class="subxMinorFunction">_Primitive-break-if-not-overflow</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32947" class="LineNr">32947 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32948" class="LineNr">32948 </span> 0x11/imm32/alloc-id:fake +<span id="L32949" class="LineNr">32949 </span> <a href='mu.subx.html#L34110'>_string-break-if-not-overflow</a>/imm32/name +<span id="L32950" class="LineNr">32950 </span> 0/imm32/no-inouts +<span id="L32951" class="LineNr">32951 </span> 0/imm32/no-inouts +<span id="L32952" class="LineNr">32952 </span> 0/imm32/no-outputs +<span id="L32953" class="LineNr">32953 </span> 0/imm32/no-outputs +<span id="L32954" class="LineNr">32954 </span> 0x11/imm32/alloc-id:fake +<span id="L32955" class="LineNr">32955 </span> <a href='mu.subx.html#L34402'>_string_0f_81_jump_break</a>/imm32/subx-name +<span id="L32956" class="LineNr">32956 </span> 0/imm32/no-rm32 +<span id="L32957" class="LineNr">32957 </span> 0/imm32/no-r32 +<span id="L32958" class="LineNr">32958 </span> 0/imm32/no-imm32 +<span id="L32959" class="LineNr">32959 </span> 0/imm32/no-imm8 +<span id="L32960" class="LineNr">32960 </span> 0/imm32/no-disp32 +<span id="L32961" class="LineNr">32961 </span> 0/imm32/no-xm32 +<span id="L32962" class="LineNr">32962 </span> 0/imm32/no-x32 +<span id="L32963" class="LineNr">32963 </span> 0x11/imm32/alloc-id:fake +<span id="L32964" class="LineNr">32964 </span> <a href='mu.subx.html#L32965'>_Primitive-break</a>/imm32/next +<span id="L32965" class="LineNr">32965 </span><span class="subxMinorFunction">_Primitive-break</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32966" class="LineNr">32966 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32967" class="LineNr">32967 </span> 0x11/imm32/alloc-id:fake +<span id="L32968" class="LineNr">32968 </span> <a href='mu.subx.html#L34020'>_string-break</a>/imm32/name +<span id="L32969" class="LineNr">32969 </span> 0/imm32/no-inouts +<span id="L32970" class="LineNr">32970 </span> 0/imm32/no-inouts +<span id="L32971" class="LineNr">32971 </span> 0/imm32/no-outputs +<span id="L32972" class="LineNr">32972 </span> 0/imm32/no-outputs +<span id="L32973" class="LineNr">32973 </span> 0x11/imm32/alloc-id:fake +<span id="L32974" class="LineNr">32974 </span> <a href='mu.subx.html#L34857'>_string_e9_jump_break</a>/imm32/subx-name +<span id="L32975" class="LineNr">32975 </span> 0/imm32/no-rm32 +<span id="L32976" class="LineNr">32976 </span> 0/imm32/no-r32 +<span id="L32977" class="LineNr">32977 </span> 0/imm32/no-imm32 +<span id="L32978" class="LineNr">32978 </span> 0/imm32/no-imm8 +<span id="L32979" class="LineNr">32979 </span> 0/imm32/no-disp32 +<span id="L32980" class="LineNr">32980 </span> 0/imm32/no-xm32 +<span id="L32981" class="LineNr">32981 </span> 0/imm32/no-x32 +<span id="L32982" class="LineNr">32982 </span> 0x11/imm32/alloc-id:fake +<span id="L32983" class="LineNr">32983 </span> <a href='mu.subx.html#L32984'>_Primitive-loop-if-addr<</a>/imm32/next +<span id="L32984" class="LineNr">32984 </span><span class="subxMinorFunction">_Primitive-loop-if-addr<</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32985" class="LineNr">32985 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32986" class="LineNr">32986 </span> 0x11/imm32/alloc-id:fake +<span id="L32987" class="LineNr">32987 </span> <a href='mu.subx.html#L34185'>_string-loop-if-addr<</a>/imm32/name +<span id="L32988" class="LineNr">32988 </span> 0/imm32/no-inouts +<span id="L32989" class="LineNr">32989 </span> 0/imm32/no-inouts +<span id="L32990" class="LineNr">32990 </span> 0/imm32/no-outputs +<span id="L32991" class="LineNr">32991 </span> 0/imm32/no-outputs +<span id="L32992" class="LineNr">32992 </span> 0x11/imm32/alloc-id:fake +<span id="L32993" class="LineNr">32993 </span> <a href='mu.subx.html#L34422'>_string_0f_82_jump_loop</a>/imm32/subx-name +<span id="L32994" class="LineNr">32994 </span> 0/imm32/no-rm32 +<span id="L32995" class="LineNr">32995 </span> 0/imm32/no-r32 +<span id="L32996" class="LineNr">32996 </span> 0/imm32/no-imm32 +<span id="L32997" class="LineNr">32997 </span> 0/imm32/no-imm8 +<span id="L32998" class="LineNr">32998 </span> 0/imm32/no-disp32 +<span id="L32999" class="LineNr">32999 </span> 0/imm32/no-xm32 +<span id="L33000" class="LineNr">33000 </span> 0/imm32/no-x32 +<span id="L33001" class="LineNr">33001 </span> 0x11/imm32/alloc-id:fake +<span id="L33002" class="LineNr">33002 </span> <a href='mu.subx.html#L33003'>_Primitive-loop-if-addr>=</a>/imm32/next +<span id="L33003" class="LineNr">33003 </span><span class="subxMinorFunction">_Primitive-loop-if-addr>=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33004" class="LineNr">33004 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33005" class="LineNr">33005 </span> 0x11/imm32/alloc-id:fake +<span id="L33006" class="LineNr">33006 </span> <a href='mu.subx.html#L34200'>_string-loop-if-addr>=</a>/imm32/name +<span id="L33007" class="LineNr">33007 </span> 0/imm32/no-inouts +<span id="L33008" class="LineNr">33008 </span> 0/imm32/no-inouts +<span id="L33009" class="LineNr">33009 </span> 0/imm32/no-outputs +<span id="L33010" class="LineNr">33010 </span> 0/imm32/no-outputs +<span id="L33011" class="LineNr">33011 </span> 0x11/imm32/alloc-id:fake +<span id="L33012" class="LineNr">33012 </span> <a href='mu.subx.html#L34437'>_string_0f_83_jump_loop</a>/imm32/subx-name +<span id="L33013" class="LineNr">33013 </span> 0/imm32/no-rm32 +<span id="L33014" class="LineNr">33014 </span> 0/imm32/no-r32 +<span id="L33015" class="LineNr">33015 </span> 0/imm32/no-imm32 +<span id="L33016" class="LineNr">33016 </span> 0/imm32/no-imm8 +<span id="L33017" class="LineNr">33017 </span> 0/imm32/no-disp32 +<span id="L33018" class="LineNr">33018 </span> 0/imm32/no-xm32 +<span id="L33019" class="LineNr">33019 </span> 0/imm32/no-x32 +<span id="L33020" class="LineNr">33020 </span> 0x11/imm32/alloc-id:fake +<span id="L33021" class="LineNr">33021 </span> <a href='mu.subx.html#L33022'>_Primitive-loop-if-=</a>/imm32/next +<span id="L33022" class="LineNr">33022 </span><span class="subxMinorFunction">_Primitive-loop-if-=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33023" class="LineNr">33023 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33024" class="LineNr">33024 </span> 0x11/imm32/alloc-id:fake +<span id="L33025" class="LineNr">33025 </span> <a href='mu.subx.html#L34165'>_string-loop-if-=</a>/imm32/name +<span id="L33026" class="LineNr">33026 </span> 0/imm32/no-inouts +<span id="L33027" class="LineNr">33027 </span> 0/imm32/no-inouts <span id="L33028" class="LineNr">33028 </span> 0/imm32/no-outputs -<span id="L33029" class="LineNr">33029 </span> 0x11/imm32/alloc-id:fake -<span id="L33030" class="LineNr">33030 </span> <a href='mu.subx.html#L34088'>_string_0f_82_jump_label</a>/imm32/subx-name -<span id="L33031" class="LineNr">33031 </span> 0/imm32/no-rm32 -<span id="L33032" class="LineNr">33032 </span> 0/imm32/no-r32 -<span id="L33033" class="LineNr">33033 </span> 0/imm32/no-imm32 -<span id="L33034" class="LineNr">33034 </span> 0/imm32/no-imm8 -<span id="L33035" class="LineNr">33035 </span> 1/imm32/disp32-is-first-inout -<span id="L33036" class="LineNr">33036 </span> 0/imm32/no-xm32 -<span id="L33037" class="LineNr">33037 </span> 0/imm32/no-x32 -<span id="L33038" class="LineNr">33038 </span> 0x11/imm32/alloc-id:fake -<span id="L33039" class="LineNr">33039 </span> <a href='mu.subx.html#L33040'>_Primitive-break-if-addr>=-named</a>/imm32/next -<span id="L33040" class="LineNr">33040 </span><span class="subxMinorFunction">_Primitive-break-if-addr>=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33041" class="LineNr">33041 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33042" class="LineNr">33042 </span> 0x11/imm32/alloc-id:fake -<span id="L33043" class="LineNr">33043 </span> <a href='mu.subx.html#L33821'>_string-break-if-addr>=</a>/imm32/name -<span id="L33044" class="LineNr">33044 </span> 0x11/imm32/alloc-id:fake -<span id="L33045" class="LineNr">33045 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L33046" class="LineNr">33046 </span> 0/imm32/no-outputs +<span id="L33029" class="LineNr">33029 </span> 0/imm32/no-outputs +<span id="L33030" class="LineNr">33030 </span> 0x11/imm32/alloc-id:fake +<span id="L33031" class="LineNr">33031 </span> <a href='mu.subx.html#L34452'>_string_0f_84_jump_loop</a>/imm32/subx-name +<span id="L33032" class="LineNr">33032 </span> 0/imm32/no-rm32 +<span id="L33033" class="LineNr">33033 </span> 0/imm32/no-r32 +<span id="L33034" class="LineNr">33034 </span> 0/imm32/no-imm32 +<span id="L33035" class="LineNr">33035 </span> 0/imm32/no-imm8 +<span id="L33036" class="LineNr">33036 </span> 0/imm32/no-disp32 +<span id="L33037" class="LineNr">33037 </span> 0/imm32/no-xm32 +<span id="L33038" class="LineNr">33038 </span> 0/imm32/no-x32 +<span id="L33039" class="LineNr">33039 </span> 0x11/imm32/alloc-id:fake +<span id="L33040" class="LineNr">33040 </span> <a href='mu.subx.html#L33041'>_Primitive-loop-if-!=</a>/imm32/next +<span id="L33041" class="LineNr">33041 </span><span class="subxMinorFunction">_Primitive-loop-if-!=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33042" class="LineNr">33042 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33043" class="LineNr">33043 </span> 0x11/imm32/alloc-id:fake +<span id="L33044" class="LineNr">33044 </span> <a href='mu.subx.html#L34180'>_string-loop-if-!=</a>/imm32/name +<span id="L33045" class="LineNr">33045 </span> 0/imm32/no-inouts +<span id="L33046" class="LineNr">33046 </span> 0/imm32/no-inouts <span id="L33047" class="LineNr">33047 </span> 0/imm32/no-outputs -<span id="L33048" class="LineNr">33048 </span> 0x11/imm32/alloc-id:fake -<span id="L33049" class="LineNr">33049 </span> <a href='mu.subx.html#L34103'>_string_0f_83_jump_label</a>/imm32/subx-name -<span id="L33050" class="LineNr">33050 </span> 0/imm32/no-rm32 -<span id="L33051" class="LineNr">33051 </span> 0/imm32/no-r32 -<span id="L33052" class="LineNr">33052 </span> 0/imm32/no-imm32 -<span id="L33053" class="LineNr">33053 </span> 0/imm32/no-imm8 -<span id="L33054" class="LineNr">33054 </span> 1/imm32/disp32-is-first-inout -<span id="L33055" class="LineNr">33055 </span> 0/imm32/no-xm32 -<span id="L33056" class="LineNr">33056 </span> 0/imm32/no-x32 -<span id="L33057" class="LineNr">33057 </span> 0x11/imm32/alloc-id:fake -<span id="L33058" class="LineNr">33058 </span> <a href='mu.subx.html#L33059'>_Primitive-break-if-=-named</a>/imm32/next -<span id="L33059" class="LineNr">33059 </span><span class="subxMinorFunction">_Primitive-break-if-=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33060" class="LineNr">33060 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33061" class="LineNr">33061 </span> 0x11/imm32/alloc-id:fake -<span id="L33062" class="LineNr">33062 </span> <a href='mu.subx.html#L33786'>_string-break-if-=</a>/imm32/name -<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#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L33065" class="LineNr">33065 </span> 0/imm32/no-outputs +<span id="L33048" class="LineNr">33048 </span> 0/imm32/no-outputs +<span id="L33049" class="LineNr">33049 </span> 0x11/imm32/alloc-id:fake +<span id="L33050" class="LineNr">33050 </span> <a href='mu.subx.html#L34467'>_string_0f_85_jump_loop</a>/imm32/subx-name +<span id="L33051" class="LineNr">33051 </span> 0/imm32/no-rm32 +<span id="L33052" class="LineNr">33052 </span> 0/imm32/no-r32 +<span id="L33053" class="LineNr">33053 </span> 0/imm32/no-imm32 +<span id="L33054" class="LineNr">33054 </span> 0/imm32/no-imm8 +<span id="L33055" class="LineNr">33055 </span> 0/imm32/no-disp32 +<span id="L33056" class="LineNr">33056 </span> 0/imm32/no-xm32 +<span id="L33057" class="LineNr">33057 </span> 0/imm32/no-x32 +<span id="L33058" class="LineNr">33058 </span> 0x11/imm32/alloc-id:fake +<span id="L33059" class="LineNr">33059 </span> <a href='mu.subx.html#L33060'>_Primitive-loop-if-addr<=</a>/imm32/next +<span id="L33060" class="LineNr">33060 </span><span class="subxMinorFunction">_Primitive-loop-if-addr<=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33061" class="LineNr">33061 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33062" class="LineNr">33062 </span> 0x11/imm32/alloc-id:fake +<span id="L33063" class="LineNr">33063 </span> <a href='mu.subx.html#L34190'>_string-loop-if-addr<=</a>/imm32/name +<span id="L33064" class="LineNr">33064 </span> 0/imm32/no-inouts +<span id="L33065" class="LineNr">33065 </span> 0/imm32/no-inouts <span id="L33066" class="LineNr">33066 </span> 0/imm32/no-outputs -<span id="L33067" class="LineNr">33067 </span> 0x11/imm32/alloc-id:fake -<span id="L33068" class="LineNr">33068 </span> <a href='mu.subx.html#L34118'>_string_0f_84_jump_label</a>/imm32/subx-name -<span id="L33069" class="LineNr">33069 </span> 0/imm32/no-rm32 -<span id="L33070" class="LineNr">33070 </span> 0/imm32/no-r32 -<span id="L33071" class="LineNr">33071 </span> 0/imm32/no-imm32 -<span id="L33072" class="LineNr">33072 </span> 0/imm32/no-imm8 -<span id="L33073" class="LineNr">33073 </span> 1/imm32/disp32-is-first-inout -<span id="L33074" class="LineNr">33074 </span> 0/imm32/no-xm32 -<span id="L33075" class="LineNr">33075 </span> 0/imm32/no-x32 -<span id="L33076" class="LineNr">33076 </span> 0x11/imm32/alloc-id:fake -<span id="L33077" class="LineNr">33077 </span> <a href='mu.subx.html#L33078'>_Primitive-break-if-!=-named</a>/imm32/next -<span id="L33078" class="LineNr">33078 </span><span class="subxMinorFunction">_Primitive-break-if-!=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33079" class="LineNr">33079 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33080" class="LineNr">33080 </span> 0x11/imm32/alloc-id:fake -<span id="L33081" class="LineNr">33081 </span> <a href='mu.subx.html#L33801'>_string-break-if-!=</a>/imm32/name -<span id="L33082" class="LineNr">33082 </span> 0x11/imm32/alloc-id:fake -<span id="L33083" class="LineNr">33083 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L33084" class="LineNr">33084 </span> 0/imm32/no-outputs +<span id="L33067" class="LineNr">33067 </span> 0/imm32/no-outputs +<span id="L33068" class="LineNr">33068 </span> 0x11/imm32/alloc-id:fake +<span id="L33069" class="LineNr">33069 </span> <a href='mu.subx.html#L34482'>_string_0f_86_jump_loop</a>/imm32/subx-name +<span id="L33070" class="LineNr">33070 </span> 0/imm32/no-rm32 +<span id="L33071" class="LineNr">33071 </span> 0/imm32/no-r32 +<span id="L33072" class="LineNr">33072 </span> 0/imm32/no-imm32 +<span id="L33073" class="LineNr">33073 </span> 0/imm32/no-imm8 +<span id="L33074" class="LineNr">33074 </span> 0/imm32/no-disp32 +<span id="L33075" class="LineNr">33075 </span> 0/imm32/no-xm32 +<span id="L33076" class="LineNr">33076 </span> 0/imm32/no-x32 +<span id="L33077" class="LineNr">33077 </span> 0x11/imm32/alloc-id:fake +<span id="L33078" class="LineNr">33078 </span> <a href='mu.subx.html#L33079'>_Primitive-loop-if-addr></a>/imm32/next +<span id="L33079" class="LineNr">33079 </span><span class="subxMinorFunction">_Primitive-loop-if-addr></span>: <span class="subxComment"># (payload primitive)</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> <a href='mu.subx.html#L34195'>_string-loop-if-addr></a>/imm32/name +<span id="L33083" class="LineNr">33083 </span> 0/imm32/no-inouts +<span id="L33084" class="LineNr">33084 </span> 0/imm32/no-inouts <span id="L33085" class="LineNr">33085 </span> 0/imm32/no-outputs -<span id="L33086" class="LineNr">33086 </span> 0x11/imm32/alloc-id:fake -<span id="L33087" class="LineNr">33087 </span> <a href='mu.subx.html#L34133'>_string_0f_85_jump_label</a>/imm32/subx-name -<span id="L33088" class="LineNr">33088 </span> 0/imm32/no-rm32 -<span id="L33089" class="LineNr">33089 </span> 0/imm32/no-r32 -<span id="L33090" class="LineNr">33090 </span> 0/imm32/no-imm32 -<span id="L33091" class="LineNr">33091 </span> 0/imm32/no-imm8 -<span id="L33092" class="LineNr">33092 </span> 1/imm32/disp32-is-first-inout -<span id="L33093" class="LineNr">33093 </span> 0/imm32/no-xm32 -<span id="L33094" class="LineNr">33094 </span> 0/imm32/no-x32 -<span id="L33095" class="LineNr">33095 </span> 0x11/imm32/alloc-id:fake -<span id="L33096" class="LineNr">33096 </span> <a href='mu.subx.html#L33097'>_Primitive-break-if-addr<=-named</a>/imm32/next -<span id="L33097" class="LineNr">33097 </span><span class="subxMinorFunction">_Primitive-break-if-addr<=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33098" class="LineNr">33098 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33099" class="LineNr">33099 </span> 0x11/imm32/alloc-id:fake -<span id="L33100" class="LineNr">33100 </span> <a href='mu.subx.html#L33811'>_string-break-if-addr<=</a>/imm32/name -<span id="L33101" class="LineNr">33101 </span> 0x11/imm32/alloc-id:fake -<span id="L33102" class="LineNr">33102 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L33103" class="LineNr">33103 </span> 0/imm32/no-outputs +<span id="L33086" class="LineNr">33086 </span> 0/imm32/no-outputs +<span id="L33087" class="LineNr">33087 </span> 0x11/imm32/alloc-id:fake +<span id="L33088" class="LineNr">33088 </span> <a href='mu.subx.html#L34497'>_string_0f_87_jump_loop</a>/imm32/subx-name +<span id="L33089" class="LineNr">33089 </span> 0/imm32/no-rm32 +<span id="L33090" class="LineNr">33090 </span> 0/imm32/no-r32 +<span id="L33091" class="LineNr">33091 </span> 0/imm32/no-imm32 +<span id="L33092" class="LineNr">33092 </span> 0/imm32/no-imm8 +<span id="L33093" class="LineNr">33093 </span> 0/imm32/no-disp32 +<span id="L33094" class="LineNr">33094 </span> 0/imm32/no-xm32 +<span id="L33095" class="LineNr">33095 </span> 0/imm32/no-x32 +<span id="L33096" class="LineNr">33096 </span> 0x11/imm32/alloc-id:fake +<span id="L33097" class="LineNr">33097 </span> <a href='mu.subx.html#L33098'>_Primitive-loop-if-<</a>/imm32/next +<span id="L33098" class="LineNr">33098 </span><span class="subxMinorFunction">_Primitive-loop-if-<</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33099" class="LineNr">33099 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33100" class="LineNr">33100 </span> 0x11/imm32/alloc-id:fake +<span id="L33101" class="LineNr">33101 </span> <a href='mu.subx.html#L34155'>_string-loop-if-<</a>/imm32/name +<span id="L33102" class="LineNr">33102 </span> 0/imm32/no-inouts +<span id="L33103" class="LineNr">33103 </span> 0/imm32/no-inouts <span id="L33104" class="LineNr">33104 </span> 0/imm32/no-outputs -<span id="L33105" class="LineNr">33105 </span> 0x11/imm32/alloc-id:fake -<span id="L33106" class="LineNr">33106 </span> <a href='mu.subx.html#L34148'>_string_0f_86_jump_label</a>/imm32/subx-name -<span id="L33107" class="LineNr">33107 </span> 0/imm32/no-rm32 -<span id="L33108" class="LineNr">33108 </span> 0/imm32/no-r32 -<span id="L33109" class="LineNr">33109 </span> 0/imm32/no-imm32 -<span id="L33110" class="LineNr">33110 </span> 0/imm32/no-imm8 -<span id="L33111" class="LineNr">33111 </span> 1/imm32/disp32-is-first-inout -<span id="L33112" class="LineNr">33112 </span> 0/imm32/no-xm32 -<span id="L33113" class="LineNr">33113 </span> 0/imm32/no-x32 -<span id="L33114" class="LineNr">33114 </span> 0x11/imm32/alloc-id:fake -<span id="L33115" class="LineNr">33115 </span> <a href='mu.subx.html#L33116'>_Primitive-break-if-addr>-named</a>/imm32/next -<span id="L33116" class="LineNr">33116 </span><span class="subxMinorFunction">_Primitive-break-if-addr>-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33117" class="LineNr">33117 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33118" class="LineNr">33118 </span> 0x11/imm32/alloc-id:fake -<span id="L33119" class="LineNr">33119 </span> <a href='mu.subx.html#L33816'>_string-break-if-addr></a>/imm32/name -<span id="L33120" class="LineNr">33120 </span> 0x11/imm32/alloc-id:fake -<span id="L33121" class="LineNr">33121 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L33122" class="LineNr">33122 </span> 0/imm32/no-outputs +<span id="L33105" class="LineNr">33105 </span> 0/imm32/no-outputs +<span id="L33106" class="LineNr">33106 </span> 0x11/imm32/alloc-id:fake +<span id="L33107" class="LineNr">33107 </span> <a href='mu.subx.html#L34512'>_string_0f_8c_jump_loop</a>/imm32/subx-name +<span id="L33108" class="LineNr">33108 </span> 0/imm32/no-rm32 +<span id="L33109" class="LineNr">33109 </span> 0/imm32/no-r32 +<span id="L33110" class="LineNr">33110 </span> 0/imm32/no-imm32 +<span id="L33111" class="LineNr">33111 </span> 0/imm32/no-imm8 +<span id="L33112" class="LineNr">33112 </span> 0/imm32/no-disp32 +<span id="L33113" class="LineNr">33113 </span> 0/imm32/no-xm32 +<span id="L33114" class="LineNr">33114 </span> 0/imm32/no-x32 +<span id="L33115" class="LineNr">33115 </span> 0x11/imm32/alloc-id:fake +<span id="L33116" class="LineNr">33116 </span> <a href='mu.subx.html#L33117'>_Primitive-loop-if->=</a>/imm32/next +<span id="L33117" class="LineNr">33117 </span><span class="subxMinorFunction">_Primitive-loop-if->=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33118" class="LineNr">33118 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33119" class="LineNr">33119 </span> 0x11/imm32/alloc-id:fake +<span id="L33120" class="LineNr">33120 </span> <a href='mu.subx.html#L34175'>_string-loop-if->=</a>/imm32/name +<span id="L33121" class="LineNr">33121 </span> 0/imm32/no-inouts +<span id="L33122" class="LineNr">33122 </span> 0/imm32/no-inouts <span id="L33123" class="LineNr">33123 </span> 0/imm32/no-outputs -<span id="L33124" class="LineNr">33124 </span> 0x11/imm32/alloc-id:fake -<span id="L33125" class="LineNr">33125 </span> <a href='mu.subx.html#L34163'>_string_0f_87_jump_label</a>/imm32/subx-name -<span id="L33126" class="LineNr">33126 </span> 0/imm32/no-rm32 -<span id="L33127" class="LineNr">33127 </span> 0/imm32/no-r32 -<span id="L33128" class="LineNr">33128 </span> 0/imm32/no-imm32 -<span id="L33129" class="LineNr">33129 </span> 0/imm32/no-imm8 -<span id="L33130" class="LineNr">33130 </span> 1/imm32/disp32-is-first-inout -<span id="L33131" class="LineNr">33131 </span> 0/imm32/no-xm32 -<span id="L33132" class="LineNr">33132 </span> 0/imm32/no-x32 -<span id="L33133" class="LineNr">33133 </span> 0x11/imm32/alloc-id:fake -<span id="L33134" class="LineNr">33134 </span> <a href='mu.subx.html#L33135'>_Primitive-break-if-<-named</a>/imm32/next -<span id="L33135" class="LineNr">33135 </span><span class="subxMinorFunction">_Primitive-break-if-<-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33136" class="LineNr">33136 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33137" class="LineNr">33137 </span> 0x11/imm32/alloc-id:fake -<span id="L33138" class="LineNr">33138 </span> <a href='mu.subx.html#L33776'>_string-break-if-<</a>/imm32/name -<span id="L33139" class="LineNr">33139 </span> 0x11/imm32/alloc-id:fake -<span id="L33140" class="LineNr">33140 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L33141" class="LineNr">33141 </span> 0/imm32/no-outputs +<span id="L33124" class="LineNr">33124 </span> 0/imm32/no-outputs +<span id="L33125" class="LineNr">33125 </span> 0x11/imm32/alloc-id:fake +<span id="L33126" class="LineNr">33126 </span> <a href='mu.subx.html#L34527'>_string_0f_8d_jump_loop</a>/imm32/subx-name +<span id="L33127" class="LineNr">33127 </span> 0/imm32/no-rm32 +<span id="L33128" class="LineNr">33128 </span> 0/imm32/no-r32 +<span id="L33129" class="LineNr">33129 </span> 0/imm32/no-imm32 +<span id="L33130" class="LineNr">33130 </span> 0/imm32/no-imm8 +<span id="L33131" class="LineNr">33131 </span> 0/imm32/no-disp32 +<span id="L33132" class="LineNr">33132 </span> 0/imm32/no-xm32 +<span id="L33133" class="LineNr">33133 </span> 0/imm32/no-x32 +<span id="L33134" class="LineNr">33134 </span> 0x11/imm32/alloc-id:fake +<span id="L33135" class="LineNr">33135 </span> <a href='mu.subx.html#L33136'>_Primitive-loop-if-<=</a>/imm32/next +<span id="L33136" class="LineNr">33136 </span><span class="subxMinorFunction">_Primitive-loop-if-<=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33137" class="LineNr">33137 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33138" class="LineNr">33138 </span> 0x11/imm32/alloc-id:fake +<span id="L33139" class="LineNr">33139 </span> <a href='mu.subx.html#L34160'>_string-loop-if-<=</a>/imm32/name +<span id="L33140" class="LineNr">33140 </span> 0/imm32/no-inouts +<span id="L33141" class="LineNr">33141 </span> 0/imm32/no-inouts <span id="L33142" class="LineNr">33142 </span> 0/imm32/no-outputs -<span id="L33143" class="LineNr">33143 </span> 0x11/imm32/alloc-id:fake -<span id="L33144" class="LineNr">33144 </span> <a href='mu.subx.html#L34178'>_string_0f_8c_jump_label</a>/imm32/subx-name -<span id="L33145" class="LineNr">33145 </span> 0/imm32/no-rm32 -<span id="L33146" class="LineNr">33146 </span> 0/imm32/no-r32 -<span id="L33147" class="LineNr">33147 </span> 0/imm32/no-imm32 -<span id="L33148" class="LineNr">33148 </span> 0/imm32/no-imm8 -<span id="L33149" class="LineNr">33149 </span> 1/imm32/disp32-is-first-inout -<span id="L33150" class="LineNr">33150 </span> 0/imm32/no-xm32 -<span id="L33151" class="LineNr">33151 </span> 0/imm32/no-x32 -<span id="L33152" class="LineNr">33152 </span> 0x11/imm32/alloc-id:fake -<span id="L33153" class="LineNr">33153 </span> <a href='mu.subx.html#L33154'>_Primitive-break-if->=-named</a>/imm32/next -<span id="L33154" class="LineNr">33154 </span><span class="subxMinorFunction">_Primitive-break-if->=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33155" class="LineNr">33155 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33156" class="LineNr">33156 </span> 0x11/imm32/alloc-id:fake -<span id="L33157" class="LineNr">33157 </span> <a href='mu.subx.html#L33796'>_string-break-if->=</a>/imm32/name -<span id="L33158" class="LineNr">33158 </span> 0x11/imm32/alloc-id:fake -<span id="L33159" class="LineNr">33159 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L33160" class="LineNr">33160 </span> 0/imm32/no-outputs +<span id="L33143" class="LineNr">33143 </span> 0/imm32/no-outputs +<span id="L33144" class="LineNr">33144 </span> 0x11/imm32/alloc-id:fake +<span id="L33145" class="LineNr">33145 </span> <a href='mu.subx.html#L34542'>_string_0f_8e_jump_loop</a>/imm32/subx-name +<span id="L33146" class="LineNr">33146 </span> 0/imm32/no-rm32 +<span id="L33147" class="LineNr">33147 </span> 0/imm32/no-r32 +<span id="L33148" class="LineNr">33148 </span> 0/imm32/no-imm32 +<span id="L33149" class="LineNr">33149 </span> 0/imm32/no-imm8 +<span id="L33150" class="LineNr">33150 </span> 0/imm32/no-disp32 +<span id="L33151" class="LineNr">33151 </span> 0/imm32/no-xm32 +<span id="L33152" class="LineNr">33152 </span> 0/imm32/no-x32 +<span id="L33153" class="LineNr">33153 </span> 0x11/imm32/alloc-id:fake +<span id="L33154" class="LineNr">33154 </span> <a href='mu.subx.html#L33155'>_Primitive-loop-if-></a>/imm32/next +<span id="L33155" class="LineNr">33155 </span><span class="subxMinorFunction">_Primitive-loop-if-></span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33156" class="LineNr">33156 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33157" class="LineNr">33157 </span> 0x11/imm32/alloc-id:fake +<span id="L33158" class="LineNr">33158 </span> <a href='mu.subx.html#L34170'>_string-loop-if-></a>/imm32/name +<span id="L33159" class="LineNr">33159 </span> 0/imm32/no-inouts +<span id="L33160" class="LineNr">33160 </span> 0/imm32/no-inouts <span id="L33161" class="LineNr">33161 </span> 0/imm32/no-outputs -<span id="L33162" class="LineNr">33162 </span> 0x11/imm32/alloc-id:fake -<span id="L33163" class="LineNr">33163 </span> <a href='mu.subx.html#L34193'>_string_0f_8d_jump_label</a>/imm32/subx-name -<span id="L33164" class="LineNr">33164 </span> 0/imm32/no-rm32 -<span id="L33165" class="LineNr">33165 </span> 0/imm32/no-r32 -<span id="L33166" class="LineNr">33166 </span> 0/imm32/no-imm32 -<span id="L33167" class="LineNr">33167 </span> 0/imm32/no-imm8 -<span id="L33168" class="LineNr">33168 </span> 1/imm32/disp32-is-first-inout -<span id="L33169" class="LineNr">33169 </span> 0/imm32/no-xm32 -<span id="L33170" class="LineNr">33170 </span> 0/imm32/no-x32 -<span id="L33171" class="LineNr">33171 </span> 0x11/imm32/alloc-id:fake -<span id="L33172" class="LineNr">33172 </span> <a href='mu.subx.html#L33173'>_Primitive-break-if-<=-named</a>/imm32/next -<span id="L33173" class="LineNr">33173 </span><span class="subxMinorFunction">_Primitive-break-if-<=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33174" class="LineNr">33174 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33175" class="LineNr">33175 </span> 0x11/imm32/alloc-id:fake -<span id="L33176" class="LineNr">33176 </span> <a href='mu.subx.html#L33781'>_string-break-if-<=</a>/imm32/name -<span id="L33177" class="LineNr">33177 </span> 0x11/imm32/alloc-id:fake -<span id="L33178" class="LineNr">33178 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L33179" class="LineNr">33179 </span> 0/imm32/no-outputs +<span id="L33162" class="LineNr">33162 </span> 0/imm32/no-outputs +<span id="L33163" class="LineNr">33163 </span> 0x11/imm32/alloc-id:fake +<span id="L33164" class="LineNr">33164 </span> <a href='mu.subx.html#L34557'>_string_0f_8f_jump_loop</a>/imm32/subx-name +<span id="L33165" class="LineNr">33165 </span> 0/imm32/no-rm32 +<span id="L33166" class="LineNr">33166 </span> 0/imm32/no-r32 +<span id="L33167" class="LineNr">33167 </span> 0/imm32/no-imm32 +<span id="L33168" class="LineNr">33168 </span> 0/imm32/no-imm8 +<span id="L33169" class="LineNr">33169 </span> 0/imm32/no-disp32 +<span id="L33170" class="LineNr">33170 </span> 0/imm32/no-xm32 +<span id="L33171" class="LineNr">33171 </span> 0/imm32/no-x32 +<span id="L33172" class="LineNr">33172 </span> 0x11/imm32/alloc-id:fake +<span id="L33173" class="LineNr">33173 </span> <a href='mu.subx.html#L33174'>_Primitive-loop-if-carry</a>/imm32/next +<span id="L33174" class="LineNr">33174 </span><span class="subxMinorFunction">_Primitive-loop-if-carry</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33175" class="LineNr">33175 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33176" class="LineNr">33176 </span> 0x11/imm32/alloc-id:fake +<span id="L33177" class="LineNr">33177 </span> <a href='mu.subx.html#L34225'>_string-loop-if-carry</a>/imm32/name +<span id="L33178" class="LineNr">33178 </span> 0/imm32/no-inouts +<span id="L33179" class="LineNr">33179 </span> 0/imm32/no-inouts <span id="L33180" class="LineNr">33180 </span> 0/imm32/no-outputs -<span id="L33181" class="LineNr">33181 </span> 0x11/imm32/alloc-id:fake -<span id="L33182" class="LineNr">33182 </span> <a href='mu.subx.html#L34208'>_string_0f_8e_jump_label</a>/imm32/subx-name -<span id="L33183" class="LineNr">33183 </span> 0/imm32/no-rm32 -<span id="L33184" class="LineNr">33184 </span> 0/imm32/no-r32 -<span id="L33185" class="LineNr">33185 </span> 0/imm32/no-imm32 -<span id="L33186" class="LineNr">33186 </span> 0/imm32/no-imm8 -<span id="L33187" class="LineNr">33187 </span> 1/imm32/disp32-is-first-inout -<span id="L33188" class="LineNr">33188 </span> 0/imm32/no-xm32 -<span id="L33189" class="LineNr">33189 </span> 0/imm32/no-x32 -<span id="L33190" class="LineNr">33190 </span> 0x11/imm32/alloc-id:fake -<span id="L33191" class="LineNr">33191 </span> <a href='mu.subx.html#L33192'>_Primitive-break-if->-named</a>/imm32/next -<span id="L33192" class="LineNr">33192 </span><span class="subxMinorFunction">_Primitive-break-if->-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33193" class="LineNr">33193 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33194" class="LineNr">33194 </span> 0x11/imm32/alloc-id:fake -<span id="L33195" class="LineNr">33195 </span> <a href='mu.subx.html#L33791'>_string-break-if-></a>/imm32/name -<span id="L33196" class="LineNr">33196 </span> 0x11/imm32/alloc-id:fake -<span id="L33197" class="LineNr">33197 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L33198" class="LineNr">33198 </span> 0/imm32/no-outputs +<span id="L33181" class="LineNr">33181 </span> 0/imm32/no-outputs +<span id="L33182" class="LineNr">33182 </span> 0x11/imm32/alloc-id:fake +<span id="L33183" class="LineNr">33183 </span> <a href='mu.subx.html#L34422'>_string_0f_82_jump_loop</a>/imm32/subx-name +<span id="L33184" class="LineNr">33184 </span> 0/imm32/no-rm32 +<span id="L33185" class="LineNr">33185 </span> 0/imm32/no-r32 +<span id="L33186" class="LineNr">33186 </span> 0/imm32/no-imm32 +<span id="L33187" class="LineNr">33187 </span> 0/imm32/no-imm8 +<span id="L33188" class="LineNr">33188 </span> 0/imm32/no-disp32 +<span id="L33189" class="LineNr">33189 </span> 0/imm32/no-xm32 +<span id="L33190" class="LineNr">33190 </span> 0/imm32/no-x32 +<span id="L33191" class="LineNr">33191 </span> 0x11/imm32/alloc-id:fake +<span id="L33192" class="LineNr">33192 </span> <a href='mu.subx.html#L33193'>_Primitive-loop-if-not-carry</a>/imm32/next +<span id="L33193" class="LineNr">33193 </span><span class="subxMinorFunction">_Primitive-loop-if-not-carry</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33194" class="LineNr">33194 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33195" class="LineNr">33195 </span> 0x11/imm32/alloc-id:fake +<span id="L33196" class="LineNr">33196 </span> <a href='mu.subx.html#L34230'>_string-loop-if-not-carry</a>/imm32/name +<span id="L33197" class="LineNr">33197 </span> 0/imm32/no-inouts +<span id="L33198" class="LineNr">33198 </span> 0/imm32/no-inouts <span id="L33199" class="LineNr">33199 </span> 0/imm32/no-outputs -<span id="L33200" class="LineNr">33200 </span> 0x11/imm32/alloc-id:fake -<span id="L33201" class="LineNr">33201 </span> <a href='mu.subx.html#L34223'>_string_0f_8f_jump_label</a>/imm32/subx-name -<span id="L33202" class="LineNr">33202 </span> 0/imm32/no-rm32 -<span id="L33203" class="LineNr">33203 </span> 0/imm32/no-r32 -<span id="L33204" class="LineNr">33204 </span> 0/imm32/no-imm32 -<span id="L33205" class="LineNr">33205 </span> 0/imm32/no-imm8 -<span id="L33206" class="LineNr">33206 </span> 1/imm32/disp32-is-first-inout -<span id="L33207" class="LineNr">33207 </span> 0/imm32/no-xm32 -<span id="L33208" class="LineNr">33208 </span> 0/imm32/no-x32 -<span id="L33209" class="LineNr">33209 </span> 0x11/imm32/alloc-id:fake -<span id="L33210" class="LineNr">33210 </span> <a href='mu.subx.html#L33211'>_Primitive-break-named</a>/imm32/next -<span id="L33211" class="LineNr">33211 </span><span class="subxMinorFunction">_Primitive-break-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33212" class="LineNr">33212 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33213" class="LineNr">33213 </span> 0x11/imm32/alloc-id:fake -<span id="L33214" class="LineNr">33214 </span> <a href='mu.subx.html#L33771'>_string-break</a>/imm32/name -<span id="L33215" class="LineNr">33215 </span> 0x11/imm32/alloc-id:fake -<span id="L33216" class="LineNr">33216 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L33217" class="LineNr">33217 </span> 0/imm32/no-outputs +<span id="L33200" class="LineNr">33200 </span> 0/imm32/no-outputs +<span id="L33201" class="LineNr">33201 </span> 0x11/imm32/alloc-id:fake +<span id="L33202" class="LineNr">33202 </span> <a href='mu.subx.html#L34437'>_string_0f_83_jump_loop</a>/imm32/subx-name +<span id="L33203" class="LineNr">33203 </span> 0/imm32/no-rm32 +<span id="L33204" class="LineNr">33204 </span> 0/imm32/no-r32 +<span id="L33205" class="LineNr">33205 </span> 0/imm32/no-imm32 +<span id="L33206" class="LineNr">33206 </span> 0/imm32/no-imm8 +<span id="L33207" class="LineNr">33207 </span> 0/imm32/no-disp32 +<span id="L33208" class="LineNr">33208 </span> 0/imm32/no-xm32 +<span id="L33209" class="LineNr">33209 </span> 0/imm32/no-x32 +<span id="L33210" class="LineNr">33210 </span> 0x11/imm32/alloc-id:fake +<span id="L33211" class="LineNr">33211 </span> <a href='mu.subx.html#L33212'>_Primitive-loop-if-overflow</a>/imm32/next +<span id="L33212" class="LineNr">33212 </span><span class="subxMinorFunction">_Primitive-loop-if-overflow</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33213" class="LineNr">33213 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33214" class="LineNr">33214 </span> 0x11/imm32/alloc-id:fake +<span id="L33215" class="LineNr">33215 </span> <a href='mu.subx.html#L34235'>_string-loop-if-overflow</a>/imm32/name +<span id="L33216" class="LineNr">33216 </span> 0/imm32/no-inouts +<span id="L33217" class="LineNr">33217 </span> 0/imm32/no-inouts <span id="L33218" class="LineNr">33218 </span> 0/imm32/no-outputs -<span id="L33219" class="LineNr">33219 </span> 0x11/imm32/alloc-id:fake -<span id="L33220" class="LineNr">33220 </span> <a href='mu.subx.html#L34528'>_string_e9_jump_label</a>/imm32/subx-name -<span id="L33221" class="LineNr">33221 </span> 0/imm32/no-rm32 -<span id="L33222" class="LineNr">33222 </span> 0/imm32/no-r32 -<span id="L33223" class="LineNr">33223 </span> 0/imm32/no-imm32 -<span id="L33224" class="LineNr">33224 </span> 0/imm32/no-imm8 -<span id="L33225" class="LineNr">33225 </span> 1/imm32/disp32-is-first-inout -<span id="L33226" class="LineNr">33226 </span> 0/imm32/no-xm32 -<span id="L33227" class="LineNr">33227 </span> 0/imm32/no-x32 -<span id="L33228" class="LineNr">33228 </span> 0x11/imm32/alloc-id:fake -<span id="L33229" class="LineNr">33229 </span> <a href='mu.subx.html#L33230'>_Primitive-loop-if-addr<-named</a>/imm32/next -<span id="L33230" class="LineNr">33230 </span><span class="subxMinorFunction">_Primitive-loop-if-addr<-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33231" class="LineNr">33231 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33232" class="LineNr">33232 </span> 0x11/imm32/alloc-id:fake -<span id="L33233" class="LineNr">33233 </span> <a href='mu.subx.html#L33916'>_string-loop-if-addr<</a>/imm32/name -<span id="L33234" class="LineNr">33234 </span> 0x11/imm32/alloc-id:fake -<span id="L33235" class="LineNr">33235 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L33236" class="LineNr">33236 </span> 0/imm32/no-outputs +<span id="L33219" class="LineNr">33219 </span> 0/imm32/no-outputs +<span id="L33220" class="LineNr">33220 </span> 0x11/imm32/alloc-id:fake +<span id="L33221" class="LineNr">33221 </span> <a href='mu.subx.html#L34392'>_string_0f_80_jump_loop</a>/imm32/subx-name +<span id="L33222" class="LineNr">33222 </span> 0/imm32/no-rm32 +<span id="L33223" class="LineNr">33223 </span> 0/imm32/no-r32 +<span id="L33224" class="LineNr">33224 </span> 0/imm32/no-imm32 +<span id="L33225" class="LineNr">33225 </span> 0/imm32/no-imm8 +<span id="L33226" class="LineNr">33226 </span> 0/imm32/no-disp32 +<span id="L33227" class="LineNr">33227 </span> 0/imm32/no-xm32 +<span id="L33228" class="LineNr">33228 </span> 0/imm32/no-x32 +<span id="L33229" class="LineNr">33229 </span> 0x11/imm32/alloc-id:fake +<span id="L33230" class="LineNr">33230 </span> <a href='mu.subx.html#L33231'>_Primitive-loop-if-not-overflow</a>/imm32/next +<span id="L33231" class="LineNr">33231 </span><span class="subxMinorFunction">_Primitive-loop-if-not-overflow</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33232" class="LineNr">33232 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33233" class="LineNr">33233 </span> 0x11/imm32/alloc-id:fake +<span id="L33234" class="LineNr">33234 </span> <a href='mu.subx.html#L34240'>_string-loop-if-not-overflow</a>/imm32/name +<span id="L33235" class="LineNr">33235 </span> 0/imm32/no-inouts +<span id="L33236" class="LineNr">33236 </span> 0/imm32/no-inouts <span id="L33237" class="LineNr">33237 </span> 0/imm32/no-outputs -<span id="L33238" class="LineNr">33238 </span> 0x11/imm32/alloc-id:fake -<span id="L33239" class="LineNr">33239 </span> <a href='mu.subx.html#L34088'>_string_0f_82_jump_label</a>/imm32/subx-name -<span id="L33240" class="LineNr">33240 </span> 0/imm32/no-rm32 -<span id="L33241" class="LineNr">33241 </span> 0/imm32/no-r32 -<span id="L33242" class="LineNr">33242 </span> 0/imm32/no-imm32 -<span id="L33243" class="LineNr">33243 </span> 0/imm32/no-imm8 -<span id="L33244" class="LineNr">33244 </span> 1/imm32/disp32-is-first-inout -<span id="L33245" class="LineNr">33245 </span> 0/imm32/no-xm32 -<span id="L33246" class="LineNr">33246 </span> 0/imm32/no-x32 -<span id="L33247" class="LineNr">33247 </span> 0x11/imm32/alloc-id:fake -<span id="L33248" class="LineNr">33248 </span> <a href='mu.subx.html#L33249'>_Primitive-loop-if-addr>=-named</a>/imm32/next -<span id="L33249" class="LineNr">33249 </span><span class="subxMinorFunction">_Primitive-loop-if-addr>=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33250" class="LineNr">33250 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33251" class="LineNr">33251 </span> 0x11/imm32/alloc-id:fake -<span id="L33252" class="LineNr">33252 </span> <a href='mu.subx.html#L33931'>_string-loop-if-addr>=</a>/imm32/name -<span id="L33253" class="LineNr">33253 </span> 0x11/imm32/alloc-id:fake -<span id="L33254" class="LineNr">33254 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L33255" class="LineNr">33255 </span> 0/imm32/no-outputs +<span id="L33238" class="LineNr">33238 </span> 0/imm32/no-outputs +<span id="L33239" class="LineNr">33239 </span> 0x11/imm32/alloc-id:fake +<span id="L33240" class="LineNr">33240 </span> <a href='mu.subx.html#L34407'>_string_0f_81_jump_loop</a>/imm32/subx-name +<span id="L33241" class="LineNr">33241 </span> 0/imm32/no-rm32 +<span id="L33242" class="LineNr">33242 </span> 0/imm32/no-r32 +<span id="L33243" class="LineNr">33243 </span> 0/imm32/no-imm32 +<span id="L33244" class="LineNr">33244 </span> 0/imm32/no-imm8 +<span id="L33245" class="LineNr">33245 </span> 0/imm32/no-disp32 +<span id="L33246" class="LineNr">33246 </span> 0/imm32/no-xm32 +<span id="L33247" class="LineNr">33247 </span> 0/imm32/no-x32 +<span id="L33248" class="LineNr">33248 </span> 0x11/imm32/alloc-id:fake +<span id="L33249" class="LineNr">33249 </span> <a href='mu.subx.html#L33250'>_Primitive-loop</a>/imm32/next <span class="subxComment"># we probably don't need an unconditional break</span> +<span id="L33250" class="LineNr">33250 </span><span class="subxMinorFunction">_Primitive-loop</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33251" class="LineNr">33251 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33252" class="LineNr">33252 </span> 0x11/imm32/alloc-id:fake +<span id="L33253" class="LineNr">33253 </span> <a href='mu.subx.html#L34150'>_string-loop</a>/imm32/name +<span id="L33254" class="LineNr">33254 </span> 0/imm32/no-inouts +<span id="L33255" class="LineNr">33255 </span> 0/imm32/no-inouts <span id="L33256" class="LineNr">33256 </span> 0/imm32/no-outputs -<span id="L33257" class="LineNr">33257 </span> 0x11/imm32/alloc-id:fake -<span id="L33258" class="LineNr">33258 </span> <a href='mu.subx.html#L34103'>_string_0f_83_jump_label</a>/imm32/subx-name -<span id="L33259" class="LineNr">33259 </span> 0/imm32/no-rm32 -<span id="L33260" class="LineNr">33260 </span> 0/imm32/no-r32 -<span id="L33261" class="LineNr">33261 </span> 0/imm32/no-imm32 -<span id="L33262" class="LineNr">33262 </span> 0/imm32/no-imm8 -<span id="L33263" class="LineNr">33263 </span> 1/imm32/disp32-is-first-inout -<span id="L33264" class="LineNr">33264 </span> 0/imm32/no-xm32 -<span id="L33265" class="LineNr">33265 </span> 0/imm32/no-x32 -<span id="L33266" class="LineNr">33266 </span> 0x11/imm32/alloc-id:fake -<span id="L33267" class="LineNr">33267 </span> <a href='mu.subx.html#L33268'>_Primitive-loop-if-=-named</a>/imm32/next -<span id="L33268" class="LineNr">33268 </span><span class="subxMinorFunction">_Primitive-loop-if-=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33269" class="LineNr">33269 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33270" class="LineNr">33270 </span> 0x11/imm32/alloc-id:fake -<span id="L33271" class="LineNr">33271 </span> <a href='mu.subx.html#L33896'>_string-loop-if-=</a>/imm32/name +<span id="L33257" class="LineNr">33257 </span> 0/imm32/no-outputs +<span id="L33258" class="LineNr">33258 </span> 0x11/imm32/alloc-id:fake +<span id="L33259" class="LineNr">33259 </span> <a href='mu.subx.html#L34862'>_string_e9_jump_loop</a>/imm32/subx-name +<span id="L33260" class="LineNr">33260 </span> 0/imm32/no-rm32 +<span id="L33261" class="LineNr">33261 </span> 0/imm32/no-r32 +<span id="L33262" class="LineNr">33262 </span> 0/imm32/no-imm32 +<span id="L33263" class="LineNr">33263 </span> 0/imm32/no-imm8 +<span id="L33264" class="LineNr">33264 </span> 0/imm32/no-disp32 +<span id="L33265" class="LineNr">33265 </span> 0/imm32/no-xm32 +<span id="L33266" class="LineNr">33266 </span> 0/imm32/no-x32 +<span id="L33267" class="LineNr">33267 </span> 0x11/imm32/alloc-id:fake +<span id="L33268" class="LineNr">33268 </span> <a href='mu.subx.html#L33270'>_Primitive-break-if-addr<-named</a>/imm32/next +<span id="L33269" class="LineNr">33269 </span><span class="subxH1Comment"># - branches to named blocks</span> +<span id="L33270" class="LineNr">33270 </span><span class="subxMinorFunction">_Primitive-break-if-addr<-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33271" class="LineNr">33271 </span> 0x11/imm32/alloc-id:fake:payload <span id="L33272" class="LineNr">33272 </span> 0x11/imm32/alloc-id:fake -<span id="L33273" class="LineNr">33273 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L33274" class="LineNr">33274 </span> 0/imm32/no-outputs -<span id="L33275" class="LineNr">33275 </span> 0/imm32/no-outputs -<span id="L33276" class="LineNr">33276 </span> 0x11/imm32/alloc-id:fake -<span id="L33277" class="LineNr">33277 </span> <a href='mu.subx.html#L34118'>_string_0f_84_jump_label</a>/imm32/subx-name -<span id="L33278" class="LineNr">33278 </span> 0/imm32/no-rm32 -<span id="L33279" class="LineNr">33279 </span> 0/imm32/no-r32 -<span id="L33280" class="LineNr">33280 </span> 0/imm32/no-imm32 -<span id="L33281" class="LineNr">33281 </span> 0/imm32/no-imm8 -<span id="L33282" class="LineNr">33282 </span> 1/imm32/disp32-is-first-inout -<span id="L33283" class="LineNr">33283 </span> 0/imm32/no-xm32 -<span id="L33284" class="LineNr">33284 </span> 0/imm32/no-x32 -<span id="L33285" class="LineNr">33285 </span> 0x11/imm32/alloc-id:fake -<span id="L33286" class="LineNr">33286 </span> <a href='mu.subx.html#L33287'>_Primitive-loop-if-!=-named</a>/imm32/next -<span id="L33287" class="LineNr">33287 </span><span class="subxMinorFunction">_Primitive-loop-if-!=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33288" class="LineNr">33288 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33289" class="LineNr">33289 </span> 0x11/imm32/alloc-id:fake -<span id="L33290" class="LineNr">33290 </span> <a href='mu.subx.html#L33911'>_string-loop-if-!=</a>/imm32/name +<span id="L33273" class="LineNr">33273 </span> <a href='mu.subx.html#L34055'>_string-break-if-addr<</a>/imm32/name +<span id="L33274" class="LineNr">33274 </span> 0x11/imm32/alloc-id:fake +<span id="L33275" class="LineNr">33275 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts +<span id="L33276" class="LineNr">33276 </span> 0/imm32/no-outputs +<span id="L33277" class="LineNr">33277 </span> 0/imm32/no-outputs +<span id="L33278" class="LineNr">33278 </span> 0x11/imm32/alloc-id:fake +<span id="L33279" class="LineNr">33279 </span> <a href='mu.subx.html#L34412'>_string_0f_82_jump_label</a>/imm32/subx-name +<span id="L33280" class="LineNr">33280 </span> 0/imm32/no-rm32 +<span id="L33281" class="LineNr">33281 </span> 0/imm32/no-r32 +<span id="L33282" class="LineNr">33282 </span> 0/imm32/no-imm32 +<span id="L33283" class="LineNr">33283 </span> 0/imm32/no-imm8 +<span id="L33284" class="LineNr">33284 </span> 1/imm32/disp32-is-first-inout +<span id="L33285" class="LineNr">33285 </span> 0/imm32/no-xm32 +<span id="L33286" class="LineNr">33286 </span> 0/imm32/no-x32 +<span id="L33287" class="LineNr">33287 </span> 0x11/imm32/alloc-id:fake +<span id="L33288" class="LineNr">33288 </span> <a href='mu.subx.html#L33289'>_Primitive-break-if-addr>=-named</a>/imm32/next +<span id="L33289" class="LineNr">33289 </span><span class="subxMinorFunction">_Primitive-break-if-addr>=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33290" class="LineNr">33290 </span> 0x11/imm32/alloc-id:fake:payload <span id="L33291" class="LineNr">33291 </span> 0x11/imm32/alloc-id:fake -<span id="L33292" class="LineNr">33292 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L33293" class="LineNr">33293 </span> 0/imm32/no-outputs -<span id="L33294" class="LineNr">33294 </span> 0/imm32/no-outputs -<span id="L33295" class="LineNr">33295 </span> 0x11/imm32/alloc-id:fake -<span id="L33296" class="LineNr">33296 </span> <a href='mu.subx.html#L34133'>_string_0f_85_jump_label</a>/imm32/subx-name -<span id="L33297" class="LineNr">33297 </span> 0/imm32/no-rm32 -<span id="L33298" class="LineNr">33298 </span> 0/imm32/no-r32 -<span id="L33299" class="LineNr">33299 </span> 0/imm32/no-imm32 -<span id="L33300" class="LineNr">33300 </span> 0/imm32/no-imm8 -<span id="L33301" class="LineNr">33301 </span> 1/imm32/disp32-is-first-inout -<span id="L33302" class="LineNr">33302 </span> 0/imm32/no-xm32 -<span id="L33303" class="LineNr">33303 </span> 0/imm32/no-x32 -<span id="L33304" class="LineNr">33304 </span> 0x11/imm32/alloc-id:fake -<span id="L33305" class="LineNr">33305 </span> <a href='mu.subx.html#L33306'>_Primitive-loop-if-addr<=-named</a>/imm32/next -<span id="L33306" class="LineNr">33306 </span><span class="subxMinorFunction">_Primitive-loop-if-addr<=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33307" class="LineNr">33307 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33308" class="LineNr">33308 </span> 0x11/imm32/alloc-id:fake -<span id="L33309" class="LineNr">33309 </span> <a href='mu.subx.html#L33921'>_string-loop-if-addr<=</a>/imm32/name +<span id="L33292" class="LineNr">33292 </span> <a href='mu.subx.html#L34070'>_string-break-if-addr>=</a>/imm32/name +<span id="L33293" class="LineNr">33293 </span> 0x11/imm32/alloc-id:fake +<span id="L33294" class="LineNr">33294 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts +<span id="L33295" class="LineNr">33295 </span> 0/imm32/no-outputs +<span id="L33296" class="LineNr">33296 </span> 0/imm32/no-outputs +<span id="L33297" class="LineNr">33297 </span> 0x11/imm32/alloc-id:fake +<span id="L33298" class="LineNr">33298 </span> <a href='mu.subx.html#L34427'>_string_0f_83_jump_label</a>/imm32/subx-name +<span id="L33299" class="LineNr">33299 </span> 0/imm32/no-rm32 +<span id="L33300" class="LineNr">33300 </span> 0/imm32/no-r32 +<span id="L33301" class="LineNr">33301 </span> 0/imm32/no-imm32 +<span id="L33302" class="LineNr">33302 </span> 0/imm32/no-imm8 +<span id="L33303" class="LineNr">33303 </span> 1/imm32/disp32-is-first-inout +<span id="L33304" class="LineNr">33304 </span> 0/imm32/no-xm32 +<span id="L33305" class="LineNr">33305 </span> 0/imm32/no-x32 +<span id="L33306" class="LineNr">33306 </span> 0x11/imm32/alloc-id:fake +<span id="L33307" class="LineNr">33307 </span> <a href='mu.subx.html#L33308'>_Primitive-break-if-=-named</a>/imm32/next +<span id="L33308" class="LineNr">33308 </span><span class="subxMinorFunction">_Primitive-break-if-=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33309" class="LineNr">33309 </span> 0x11/imm32/alloc-id:fake:payload <span id="L33310" class="LineNr">33310 </span> 0x11/imm32/alloc-id:fake -<span id="L33311" class="LineNr">33311 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L33312" class="LineNr">33312 </span> 0/imm32/no-outputs -<span id="L33313" class="LineNr">33313 </span> 0/imm32/no-outputs -<span id="L33314" class="LineNr">33314 </span> 0x11/imm32/alloc-id:fake -<span id="L33315" class="LineNr">33315 </span> <a href='mu.subx.html#L34148'>_string_0f_86_jump_label</a>/imm32/subx-name -<span id="L33316" class="LineNr">33316 </span> 0/imm32/no-rm32 -<span id="L33317" class="LineNr">33317 </span> 0/imm32/no-r32 -<span id="L33318" class="LineNr">33318 </span> 0/imm32/no-imm32 -<span id="L33319" class="LineNr">33319 </span> 0/imm32/no-imm8 -<span id="L33320" class="LineNr">33320 </span> 1/imm32/disp32-is-first-inout -<span id="L33321" class="LineNr">33321 </span> 0/imm32/no-xm32 -<span id="L33322" class="LineNr">33322 </span> 0/imm32/no-x32 -<span id="L33323" class="LineNr">33323 </span> 0x11/imm32/alloc-id:fake -<span id="L33324" class="LineNr">33324 </span> <a href='mu.subx.html#L33325'>_Primitive-loop-if-addr>-named</a>/imm32/next -<span id="L33325" class="LineNr">33325 </span><span class="subxMinorFunction">_Primitive-loop-if-addr>-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33326" class="LineNr">33326 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33327" class="LineNr">33327 </span> 0x11/imm32/alloc-id:fake -<span id="L33328" class="LineNr">33328 </span> <a href='mu.subx.html#L33926'>_string-loop-if-addr></a>/imm32/name +<span id="L33311" class="LineNr">33311 </span> <a href='mu.subx.html#L34035'>_string-break-if-=</a>/imm32/name +<span id="L33312" class="LineNr">33312 </span> 0x11/imm32/alloc-id:fake +<span id="L33313" class="LineNr">33313 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts +<span id="L33314" class="LineNr">33314 </span> 0/imm32/no-outputs +<span id="L33315" class="LineNr">33315 </span> 0/imm32/no-outputs +<span id="L33316" class="LineNr">33316 </span> 0x11/imm32/alloc-id:fake +<span id="L33317" class="LineNr">33317 </span> <a href='mu.subx.html#L34442'>_string_0f_84_jump_label</a>/imm32/subx-name +<span id="L33318" class="LineNr">33318 </span> 0/imm32/no-rm32 +<span id="L33319" class="LineNr">33319 </span> 0/imm32/no-r32 +<span id="L33320" class="LineNr">33320 </span> 0/imm32/no-imm32 +<span id="L33321" class="LineNr">33321 </span> 0/imm32/no-imm8 +<span id="L33322" class="LineNr">33322 </span> 1/imm32/disp32-is-first-inout +<span id="L33323" class="LineNr">33323 </span> 0/imm32/no-xm32 +<span id="L33324" class="LineNr">33324 </span> 0/imm32/no-x32 +<span id="L33325" class="LineNr">33325 </span> 0x11/imm32/alloc-id:fake +<span id="L33326" class="LineNr">33326 </span> <a href='mu.subx.html#L33327'>_Primitive-break-if-!=-named</a>/imm32/next +<span id="L33327" class="LineNr">33327 </span><span class="subxMinorFunction">_Primitive-break-if-!=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33328" class="LineNr">33328 </span> 0x11/imm32/alloc-id:fake:payload <span id="L33329" class="LineNr">33329 </span> 0x11/imm32/alloc-id:fake -<span id="L33330" class="LineNr">33330 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L33331" class="LineNr">33331 </span> 0/imm32/no-outputs -<span id="L33332" class="LineNr">33332 </span> 0/imm32/no-outputs -<span id="L33333" class="LineNr">33333 </span> 0x11/imm32/alloc-id:fake -<span id="L33334" class="LineNr">33334 </span> <a href='mu.subx.html#L34163'>_string_0f_87_jump_label</a>/imm32/subx-name -<span id="L33335" class="LineNr">33335 </span> 0/imm32/no-rm32 -<span id="L33336" class="LineNr">33336 </span> 0/imm32/no-r32 -<span id="L33337" class="LineNr">33337 </span> 0/imm32/no-imm32 -<span id="L33338" class="LineNr">33338 </span> 0/imm32/no-imm8 -<span id="L33339" class="LineNr">33339 </span> 1/imm32/disp32-is-first-inout -<span id="L33340" class="LineNr">33340 </span> 0/imm32/no-xm32 -<span id="L33341" class="LineNr">33341 </span> 0/imm32/no-x32 -<span id="L33342" class="LineNr">33342 </span> 0x11/imm32/alloc-id:fake -<span id="L33343" class="LineNr">33343 </span> <a href='mu.subx.html#L33344'>_Primitive-loop-if-<-named</a>/imm32/next -<span id="L33344" class="LineNr">33344 </span><span class="subxMinorFunction">_Primitive-loop-if-<-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33345" class="LineNr">33345 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33346" class="LineNr">33346 </span> 0x11/imm32/alloc-id:fake -<span id="L33347" class="LineNr">33347 </span> <a href='mu.subx.html#L33886'>_string-loop-if-<</a>/imm32/name +<span id="L33330" class="LineNr">33330 </span> <a href='mu.subx.html#L34050'>_string-break-if-!=</a>/imm32/name +<span id="L33331" class="LineNr">33331 </span> 0x11/imm32/alloc-id:fake +<span id="L33332" class="LineNr">33332 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts +<span id="L33333" class="LineNr">33333 </span> 0/imm32/no-outputs +<span id="L33334" class="LineNr">33334 </span> 0/imm32/no-outputs +<span id="L33335" class="LineNr">33335 </span> 0x11/imm32/alloc-id:fake +<span id="L33336" class="LineNr">33336 </span> <a href='mu.subx.html#L34457'>_string_0f_85_jump_label</a>/imm32/subx-name +<span id="L33337" class="LineNr">33337 </span> 0/imm32/no-rm32 +<span id="L33338" class="LineNr">33338 </span> 0/imm32/no-r32 +<span id="L33339" class="LineNr">33339 </span> 0/imm32/no-imm32 +<span id="L33340" class="LineNr">33340 </span> 0/imm32/no-imm8 +<span id="L33341" class="LineNr">33341 </span> 1/imm32/disp32-is-first-inout +<span id="L33342" class="LineNr">33342 </span> 0/imm32/no-xm32 +<span id="L33343" class="LineNr">33343 </span> 0/imm32/no-x32 +<span id="L33344" class="LineNr">33344 </span> 0x11/imm32/alloc-id:fake +<span id="L33345" class="LineNr">33345 </span> <a href='mu.subx.html#L33346'>_Primitive-break-if-addr<=-named</a>/imm32/next +<span id="L33346" class="LineNr">33346 </span><span class="subxMinorFunction">_Primitive-break-if-addr<=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33347" class="LineNr">33347 </span> 0x11/imm32/alloc-id:fake:payload <span id="L33348" class="LineNr">33348 </span> 0x11/imm32/alloc-id:fake -<span id="L33349" class="LineNr">33349 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L33350" class="LineNr">33350 </span> 0/imm32/no-outputs -<span id="L33351" class="LineNr">33351 </span> 0/imm32/no-outputs -<span id="L33352" class="LineNr">33352 </span> 0x11/imm32/alloc-id:fake -<span id="L33353" class="LineNr">33353 </span> <a href='mu.subx.html#L34178'>_string_0f_8c_jump_label</a>/imm32/subx-name -<span id="L33354" class="LineNr">33354 </span> 0/imm32/no-rm32 -<span id="L33355" class="LineNr">33355 </span> 0/imm32/no-r32 -<span id="L33356" class="LineNr">33356 </span> 0/imm32/no-imm32 -<span id="L33357" class="LineNr">33357 </span> 0/imm32/no-imm8 -<span id="L33358" class="LineNr">33358 </span> 1/imm32/disp32-is-first-inout -<span id="L33359" class="LineNr">33359 </span> 0/imm32/no-xm32 -<span id="L33360" class="LineNr">33360 </span> 0/imm32/no-x32 -<span id="L33361" class="LineNr">33361 </span> 0x11/imm32/alloc-id:fake -<span id="L33362" class="LineNr">33362 </span> <a href='mu.subx.html#L33363'>_Primitive-loop-if->=-named</a>/imm32/next -<span id="L33363" class="LineNr">33363 </span><span class="subxMinorFunction">_Primitive-loop-if->=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33364" class="LineNr">33364 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33365" class="LineNr">33365 </span> 0x11/imm32/alloc-id:fake -<span id="L33366" class="LineNr">33366 </span> <a href='mu.subx.html#L33906'>_string-loop-if->=</a>/imm32/name +<span id="L33349" class="LineNr">33349 </span> <a href='mu.subx.html#L34060'>_string-break-if-addr<=</a>/imm32/name +<span id="L33350" class="LineNr">33350 </span> 0x11/imm32/alloc-id:fake +<span id="L33351" class="LineNr">33351 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts +<span id="L33352" class="LineNr">33352 </span> 0/imm32/no-outputs +<span id="L33353" class="LineNr">33353 </span> 0/imm32/no-outputs +<span id="L33354" class="LineNr">33354 </span> 0x11/imm32/alloc-id:fake +<span id="L33355" class="LineNr">33355 </span> <a href='mu.subx.html#L34472'>_string_0f_86_jump_label</a>/imm32/subx-name +<span id="L33356" class="LineNr">33356 </span> 0/imm32/no-rm32 +<span id="L33357" class="LineNr">33357 </span> 0/imm32/no-r32 +<span id="L33358" class="LineNr">33358 </span> 0/imm32/no-imm32 +<span id="L33359" class="LineNr">33359 </span> 0/imm32/no-imm8 +<span id="L33360" class="LineNr">33360 </span> 1/imm32/disp32-is-first-inout +<span id="L33361" class="LineNr">33361 </span> 0/imm32/no-xm32 +<span id="L33362" class="LineNr">33362 </span> 0/imm32/no-x32 +<span id="L33363" class="LineNr">33363 </span> 0x11/imm32/alloc-id:fake +<span id="L33364" class="LineNr">33364 </span> <a href='mu.subx.html#L33365'>_Primitive-break-if-addr>-named</a>/imm32/next +<span id="L33365" class="LineNr">33365 </span><span class="subxMinorFunction">_Primitive-break-if-addr>-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33366" class="LineNr">33366 </span> 0x11/imm32/alloc-id:fake:payload <span id="L33367" class="LineNr">33367 </span> 0x11/imm32/alloc-id:fake -<span id="L33368" class="LineNr">33368 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L33369" class="LineNr">33369 </span> 0/imm32/no-outputs -<span id="L33370" class="LineNr">33370 </span> 0/imm32/no-outputs -<span id="L33371" class="LineNr">33371 </span> 0x11/imm32/alloc-id:fake -<span id="L33372" class="LineNr">33372 </span> <a href='mu.subx.html#L34193'>_string_0f_8d_jump_label</a>/imm32/subx-name -<span id="L33373" class="LineNr">33373 </span> 0/imm32/no-rm32 -<span id="L33374" class="LineNr">33374 </span> 0/imm32/no-r32 -<span id="L33375" class="LineNr">33375 </span> 0/imm32/no-imm32 -<span id="L33376" class="LineNr">33376 </span> 0/imm32/no-imm8 -<span id="L33377" class="LineNr">33377 </span> 1/imm32/disp32-is-first-inout -<span id="L33378" class="LineNr">33378 </span> 0/imm32/no-xm32 -<span id="L33379" class="LineNr">33379 </span> 0/imm32/no-x32 -<span id="L33380" class="LineNr">33380 </span> 0x11/imm32/alloc-id:fake -<span id="L33381" class="LineNr">33381 </span> <a href='mu.subx.html#L33382'>_Primitive-loop-if-<=-named</a>/imm32/next -<span id="L33382" class="LineNr">33382 </span><span class="subxMinorFunction">_Primitive-loop-if-<=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33383" class="LineNr">33383 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33384" class="LineNr">33384 </span> 0x11/imm32/alloc-id:fake -<span id="L33385" class="LineNr">33385 </span> <a href='mu.subx.html#L33891'>_string-loop-if-<=</a>/imm32/name +<span id="L33368" class="LineNr">33368 </span> <a href='mu.subx.html#L34065'>_string-break-if-addr></a>/imm32/name +<span id="L33369" class="LineNr">33369 </span> 0x11/imm32/alloc-id:fake +<span id="L33370" class="LineNr">33370 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts +<span id="L33371" class="LineNr">33371 </span> 0/imm32/no-outputs +<span id="L33372" class="LineNr">33372 </span> 0/imm32/no-outputs +<span id="L33373" class="LineNr">33373 </span> 0x11/imm32/alloc-id:fake +<span id="L33374" class="LineNr">33374 </span> <a href='mu.subx.html#L34487'>_string_0f_87_jump_label</a>/imm32/subx-name +<span id="L33375" class="LineNr">33375 </span> 0/imm32/no-rm32 +<span id="L33376" class="LineNr">33376 </span> 0/imm32/no-r32 +<span id="L33377" class="LineNr">33377 </span> 0/imm32/no-imm32 +<span id="L33378" class="LineNr">33378 </span> 0/imm32/no-imm8 +<span id="L33379" class="LineNr">33379 </span> 1/imm32/disp32-is-first-inout +<span id="L33380" class="LineNr">33380 </span> 0/imm32/no-xm32 +<span id="L33381" class="LineNr">33381 </span> 0/imm32/no-x32 +<span id="L33382" class="LineNr">33382 </span> 0x11/imm32/alloc-id:fake +<span id="L33383" class="LineNr">33383 </span> <a href='mu.subx.html#L33384'>_Primitive-break-if-<-named</a>/imm32/next +<span id="L33384" class="LineNr">33384 </span><span class="subxMinorFunction">_Primitive-break-if-<-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33385" class="LineNr">33385 </span> 0x11/imm32/alloc-id:fake:payload <span id="L33386" class="LineNr">33386 </span> 0x11/imm32/alloc-id:fake -<span id="L33387" class="LineNr">33387 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L33388" class="LineNr">33388 </span> 0/imm32/no-outputs -<span id="L33389" class="LineNr">33389 </span> 0/imm32/no-outputs -<span id="L33390" class="LineNr">33390 </span> 0x11/imm32/alloc-id:fake -<span id="L33391" class="LineNr">33391 </span> <a href='mu.subx.html#L34208'>_string_0f_8e_jump_label</a>/imm32/subx-name -<span id="L33392" class="LineNr">33392 </span> 0/imm32/no-rm32 -<span id="L33393" class="LineNr">33393 </span> 0/imm32/no-r32 -<span id="L33394" class="LineNr">33394 </span> 0/imm32/no-imm32 -<span id="L33395" class="LineNr">33395 </span> 0/imm32/no-imm8 -<span id="L33396" class="LineNr">33396 </span> 1/imm32/disp32-is-first-inout -<span id="L33397" class="LineNr">33397 </span> 0/imm32/no-xm32 -<span id="L33398" class="LineNr">33398 </span> 0/imm32/no-x32 -<span id="L33399" class="LineNr">33399 </span> 0x11/imm32/alloc-id:fake -<span id="L33400" class="LineNr">33400 </span> <a href='mu.subx.html#L33401'>_Primitive-loop-if->-named</a>/imm32/next -<span id="L33401" class="LineNr">33401 </span><span class="subxMinorFunction">_Primitive-loop-if->-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33402" class="LineNr">33402 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33403" class="LineNr">33403 </span> 0x11/imm32/alloc-id:fake -<span id="L33404" class="LineNr">33404 </span> <a href='mu.subx.html#L33901'>_string-loop-if-></a>/imm32/name +<span id="L33387" class="LineNr">33387 </span> <a href='mu.subx.html#L34025'>_string-break-if-<</a>/imm32/name +<span id="L33388" class="LineNr">33388 </span> 0x11/imm32/alloc-id:fake +<span id="L33389" class="LineNr">33389 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts +<span id="L33390" class="LineNr">33390 </span> 0/imm32/no-outputs +<span id="L33391" class="LineNr">33391 </span> 0/imm32/no-outputs +<span id="L33392" class="LineNr">33392 </span> 0x11/imm32/alloc-id:fake +<span id="L33393" class="LineNr">33393 </span> <a href='mu.subx.html#L34502'>_string_0f_8c_jump_label</a>/imm32/subx-name +<span id="L33394" class="LineNr">33394 </span> 0/imm32/no-rm32 +<span id="L33395" class="LineNr">33395 </span> 0/imm32/no-r32 +<span id="L33396" class="LineNr">33396 </span> 0/imm32/no-imm32 +<span id="L33397" class="LineNr">33397 </span> 0/imm32/no-imm8 +<span id="L33398" class="LineNr">33398 </span> 1/imm32/disp32-is-first-inout +<span id="L33399" class="LineNr">33399 </span> 0/imm32/no-xm32 +<span id="L33400" class="LineNr">33400 </span> 0/imm32/no-x32 +<span id="L33401" class="LineNr">33401 </span> 0x11/imm32/alloc-id:fake +<span id="L33402" class="LineNr">33402 </span> <a href='mu.subx.html#L33403'>_Primitive-break-if->=-named</a>/imm32/next +<span id="L33403" class="LineNr">33403 </span><span class="subxMinorFunction">_Primitive-break-if->=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33404" class="LineNr">33404 </span> 0x11/imm32/alloc-id:fake:payload <span id="L33405" class="LineNr">33405 </span> 0x11/imm32/alloc-id:fake -<span id="L33406" class="LineNr">33406 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L33407" class="LineNr">33407 </span> 0/imm32/no-outputs -<span id="L33408" class="LineNr">33408 </span> 0/imm32/no-outputs -<span id="L33409" class="LineNr">33409 </span> 0x11/imm32/alloc-id:fake -<span id="L33410" class="LineNr">33410 </span> <a href='mu.subx.html#L34223'>_string_0f_8f_jump_label</a>/imm32/subx-name -<span id="L33411" class="LineNr">33411 </span> 0/imm32/no-rm32 -<span id="L33412" class="LineNr">33412 </span> 0/imm32/no-r32 -<span id="L33413" class="LineNr">33413 </span> 0/imm32/no-imm32 -<span id="L33414" class="LineNr">33414 </span> 0/imm32/no-imm8 -<span id="L33415" class="LineNr">33415 </span> 1/imm32/disp32-is-first-inout -<span id="L33416" class="LineNr">33416 </span> 0/imm32/no-xm32 -<span id="L33417" class="LineNr">33417 </span> 0/imm32/no-x32 -<span id="L33418" class="LineNr">33418 </span> 0x11/imm32/alloc-id:fake -<span id="L33419" class="LineNr">33419 </span> <a href='mu.subx.html#L33420'>_Primitive-loop-named</a>/imm32/next <span class="subxComment"># we probably don't need an unconditional break</span> -<span id="L33420" class="LineNr">33420 </span><span class="subxMinorFunction">_Primitive-loop-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33421" class="LineNr">33421 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33422" class="LineNr">33422 </span> 0x11/imm32/alloc-id:fake -<span id="L33423" class="LineNr">33423 </span> <a href='mu.subx.html#L33881'>_string-loop</a>/imm32/name +<span id="L33406" class="LineNr">33406 </span> <a href='mu.subx.html#L34045'>_string-break-if->=</a>/imm32/name +<span id="L33407" class="LineNr">33407 </span> 0x11/imm32/alloc-id:fake +<span id="L33408" class="LineNr">33408 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts +<span id="L33409" class="LineNr">33409 </span> 0/imm32/no-outputs +<span id="L33410" class="LineNr">33410 </span> 0/imm32/no-outputs +<span id="L33411" class="LineNr">33411 </span> 0x11/imm32/alloc-id:fake +<span id="L33412" class="LineNr">33412 </span> <a href='mu.subx.html#L34517'>_string_0f_8d_jump_label</a>/imm32/subx-name +<span id="L33413" class="LineNr">33413 </span> 0/imm32/no-rm32 +<span id="L33414" class="LineNr">33414 </span> 0/imm32/no-r32 +<span id="L33415" class="LineNr">33415 </span> 0/imm32/no-imm32 +<span id="L33416" class="LineNr">33416 </span> 0/imm32/no-imm8 +<span id="L33417" class="LineNr">33417 </span> 1/imm32/disp32-is-first-inout +<span id="L33418" class="LineNr">33418 </span> 0/imm32/no-xm32 +<span id="L33419" class="LineNr">33419 </span> 0/imm32/no-x32 +<span id="L33420" class="LineNr">33420 </span> 0x11/imm32/alloc-id:fake +<span id="L33421" class="LineNr">33421 </span> <a href='mu.subx.html#L33422'>_Primitive-break-if-<=-named</a>/imm32/next +<span id="L33422" class="LineNr">33422 </span><span class="subxMinorFunction">_Primitive-break-if-<=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33423" class="LineNr">33423 </span> 0x11/imm32/alloc-id:fake:payload <span id="L33424" class="LineNr">33424 </span> 0x11/imm32/alloc-id:fake -<span id="L33425" class="LineNr">33425 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L33426" class="LineNr">33426 </span> 0/imm32/no-outputs -<span id="L33427" class="LineNr">33427 </span> 0/imm32/no-outputs -<span id="L33428" class="LineNr">33428 </span> 0x11/imm32/alloc-id:fake -<span id="L33429" class="LineNr">33429 </span> <a href='mu.subx.html#L34528'>_string_e9_jump_label</a>/imm32/subx-name -<span id="L33430" class="LineNr">33430 </span> 0/imm32/no-rm32 -<span id="L33431" class="LineNr">33431 </span> 0/imm32/no-r32 -<span id="L33432" class="LineNr">33432 </span> 0/imm32/no-imm32 -<span id="L33433" class="LineNr">33433 </span> 0/imm32/no-imm8 -<span id="L33434" class="LineNr">33434 </span> 1/imm32/disp32-is-first-inout -<span id="L33435" class="LineNr">33435 </span> 0/imm32/no-xm32 -<span id="L33436" class="LineNr">33436 </span> 0/imm32/no-x32 -<span id="L33437" class="LineNr">33437 </span> 0x11/imm32/alloc-id:fake -<span id="L33438" class="LineNr">33438 </span> <a href='mu.subx.html#L33440'>_Primitive-break-if-float<</a>/imm32/next -<span id="L33439" class="LineNr">33439 </span><span class="subxH1Comment"># - branches based on floating-point comparisons</span> -<span id="L33440" class="LineNr">33440 </span><span class="subxMinorFunction">_Primitive-break-if-float<</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33441" class="LineNr">33441 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33442" class="LineNr">33442 </span> 0x11/imm32/alloc-id:fake -<span id="L33443" class="LineNr">33443 </span> <a href='mu.subx.html#L33826'>_string-break-if-float<</a>/imm32/name -<span id="L33444" class="LineNr">33444 </span> 0/imm32/no-inouts -<span id="L33445" class="LineNr">33445 </span> 0/imm32/no-inouts -<span id="L33446" class="LineNr">33446 </span> 0/imm32/no-outputs +<span id="L33425" class="LineNr">33425 </span> <a href='mu.subx.html#L34030'>_string-break-if-<=</a>/imm32/name +<span id="L33426" class="LineNr">33426 </span> 0x11/imm32/alloc-id:fake +<span id="L33427" class="LineNr">33427 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts +<span id="L33428" class="LineNr">33428 </span> 0/imm32/no-outputs +<span id="L33429" class="LineNr">33429 </span> 0/imm32/no-outputs +<span id="L33430" class="LineNr">33430 </span> 0x11/imm32/alloc-id:fake +<span id="L33431" class="LineNr">33431 </span> <a href='mu.subx.html#L34532'>_string_0f_8e_jump_label</a>/imm32/subx-name +<span id="L33432" class="LineNr">33432 </span> 0/imm32/no-rm32 +<span id="L33433" class="LineNr">33433 </span> 0/imm32/no-r32 +<span id="L33434" class="LineNr">33434 </span> 0/imm32/no-imm32 +<span id="L33435" class="LineNr">33435 </span> 0/imm32/no-imm8 +<span id="L33436" class="LineNr">33436 </span> 1/imm32/disp32-is-first-inout +<span id="L33437" class="LineNr">33437 </span> 0/imm32/no-xm32 +<span id="L33438" class="LineNr">33438 </span> 0/imm32/no-x32 +<span id="L33439" class="LineNr">33439 </span> 0x11/imm32/alloc-id:fake +<span id="L33440" class="LineNr">33440 </span> <a href='mu.subx.html#L33441'>_Primitive-break-if->-named</a>/imm32/next +<span id="L33441" class="LineNr">33441 </span><span class="subxMinorFunction">_Primitive-break-if->-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33442" class="LineNr">33442 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33443" class="LineNr">33443 </span> 0x11/imm32/alloc-id:fake +<span id="L33444" class="LineNr">33444 </span> <a href='mu.subx.html#L34040'>_string-break-if-></a>/imm32/name +<span id="L33445" class="LineNr">33445 </span> 0x11/imm32/alloc-id:fake +<span id="L33446" class="LineNr">33446 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts <span id="L33447" class="LineNr">33447 </span> 0/imm32/no-outputs -<span id="L33448" class="LineNr">33448 </span> 0x11/imm32/alloc-id:fake -<span id="L33449" class="LineNr">33449 </span> <a href='mu.subx.html#L34093'>_string_0f_82_jump_break</a>/imm32/subx-name -<span id="L33450" class="LineNr">33450 </span> 0/imm32/no-rm32 -<span id="L33451" class="LineNr">33451 </span> 0/imm32/no-r32 -<span id="L33452" class="LineNr">33452 </span> 0/imm32/no-imm32 -<span id="L33453" class="LineNr">33453 </span> 0/imm32/no-imm8 -<span id="L33454" class="LineNr">33454 </span> 0/imm32/no-disp32 -<span id="L33455" class="LineNr">33455 </span> 0/imm32/no-xm32 -<span id="L33456" class="LineNr">33456 </span> 0/imm32/no-x32 -<span id="L33457" class="LineNr">33457 </span> 0x11/imm32/alloc-id:fake -<span id="L33458" class="LineNr">33458 </span> <a href='mu.subx.html#L33459'>_Primitive-break-if-float>=</a>/imm32/next -<span id="L33459" class="LineNr">33459 </span><span class="subxMinorFunction">_Primitive-break-if-float>=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33460" class="LineNr">33460 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33461" class="LineNr">33461 </span> 0x11/imm32/alloc-id:fake -<span id="L33462" class="LineNr">33462 </span> <a href='mu.subx.html#L33841'>_string-break-if-float>=</a>/imm32/name -<span id="L33463" class="LineNr">33463 </span> 0/imm32/no-inouts -<span id="L33464" class="LineNr">33464 </span> 0/imm32/no-inouts -<span id="L33465" class="LineNr">33465 </span> 0/imm32/no-outputs +<span id="L33448" class="LineNr">33448 </span> 0/imm32/no-outputs +<span id="L33449" class="LineNr">33449 </span> 0x11/imm32/alloc-id:fake +<span id="L33450" class="LineNr">33450 </span> <a href='mu.subx.html#L34547'>_string_0f_8f_jump_label</a>/imm32/subx-name +<span id="L33451" class="LineNr">33451 </span> 0/imm32/no-rm32 +<span id="L33452" class="LineNr">33452 </span> 0/imm32/no-r32 +<span id="L33453" class="LineNr">33453 </span> 0/imm32/no-imm32 +<span id="L33454" class="LineNr">33454 </span> 0/imm32/no-imm8 +<span id="L33455" class="LineNr">33455 </span> 1/imm32/disp32-is-first-inout +<span id="L33456" class="LineNr">33456 </span> 0/imm32/no-xm32 +<span id="L33457" class="LineNr">33457 </span> 0/imm32/no-x32 +<span id="L33458" class="LineNr">33458 </span> 0x11/imm32/alloc-id:fake +<span id="L33459" class="LineNr">33459 </span> <a href='mu.subx.html#L33460'>_Primitive-break-named</a>/imm32/next +<span id="L33460" class="LineNr">33460 </span><span class="subxMinorFunction">_Primitive-break-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33461" class="LineNr">33461 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33462" class="LineNr">33462 </span> 0x11/imm32/alloc-id:fake +<span id="L33463" class="LineNr">33463 </span> <a href='mu.subx.html#L34020'>_string-break</a>/imm32/name +<span id="L33464" class="LineNr">33464 </span> 0x11/imm32/alloc-id:fake +<span id="L33465" class="LineNr">33465 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts <span id="L33466" class="LineNr">33466 </span> 0/imm32/no-outputs -<span id="L33467" class="LineNr">33467 </span> 0x11/imm32/alloc-id:fake -<span id="L33468" class="LineNr">33468 </span> <a href='mu.subx.html#L34108'>_string_0f_83_jump_break</a>/imm32/subx-name -<span id="L33469" class="LineNr">33469 </span> 0/imm32/no-rm32 -<span id="L33470" class="LineNr">33470 </span> 0/imm32/no-r32 -<span id="L33471" class="LineNr">33471 </span> 0/imm32/no-imm32 -<span id="L33472" class="LineNr">33472 </span> 0/imm32/no-imm8 -<span id="L33473" class="LineNr">33473 </span> 0/imm32/no-disp32 -<span id="L33474" class="LineNr">33474 </span> 0/imm32/no-xm32 -<span id="L33475" class="LineNr">33475 </span> 0/imm32/no-x32 -<span id="L33476" class="LineNr">33476 </span> 0x11/imm32/alloc-id:fake -<span id="L33477" class="LineNr">33477 </span> <a href='mu.subx.html#L33478'>_Primitive-break-if-float<=</a>/imm32/next -<span id="L33478" class="LineNr">33478 </span><span class="subxMinorFunction">_Primitive-break-if-float<=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33479" class="LineNr">33479 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33480" class="LineNr">33480 </span> 0x11/imm32/alloc-id:fake -<span id="L33481" class="LineNr">33481 </span> <a href='mu.subx.html#L33831'>_string-break-if-float<=</a>/imm32/name -<span id="L33482" class="LineNr">33482 </span> 0/imm32/no-inouts -<span id="L33483" class="LineNr">33483 </span> 0/imm32/no-inouts -<span id="L33484" class="LineNr">33484 </span> 0/imm32/no-outputs +<span id="L33467" class="LineNr">33467 </span> 0/imm32/no-outputs +<span id="L33468" class="LineNr">33468 </span> 0x11/imm32/alloc-id:fake +<span id="L33469" class="LineNr">33469 </span> <a href='mu.subx.html#L34852'>_string_e9_jump_label</a>/imm32/subx-name +<span id="L33470" class="LineNr">33470 </span> 0/imm32/no-rm32 +<span id="L33471" class="LineNr">33471 </span> 0/imm32/no-r32 +<span id="L33472" class="LineNr">33472 </span> 0/imm32/no-imm32 +<span id="L33473" class="LineNr">33473 </span> 0/imm32/no-imm8 +<span id="L33474" class="LineNr">33474 </span> 1/imm32/disp32-is-first-inout +<span id="L33475" class="LineNr">33475 </span> 0/imm32/no-xm32 +<span id="L33476" class="LineNr">33476 </span> 0/imm32/no-x32 +<span id="L33477" class="LineNr">33477 </span> 0x11/imm32/alloc-id:fake +<span id="L33478" class="LineNr">33478 </span> <a href='mu.subx.html#L33479'>_Primitive-loop-if-addr<-named</a>/imm32/next +<span id="L33479" class="LineNr">33479 </span><span class="subxMinorFunction">_Primitive-loop-if-addr<-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33480" class="LineNr">33480 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33481" class="LineNr">33481 </span> 0x11/imm32/alloc-id:fake +<span id="L33482" class="LineNr">33482 </span> <a href='mu.subx.html#L34185'>_string-loop-if-addr<</a>/imm32/name +<span id="L33483" class="LineNr">33483 </span> 0x11/imm32/alloc-id:fake +<span id="L33484" class="LineNr">33484 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts <span id="L33485" class="LineNr">33485 </span> 0/imm32/no-outputs -<span id="L33486" class="LineNr">33486 </span> 0x11/imm32/alloc-id:fake -<span id="L33487" class="LineNr">33487 </span> <a href='mu.subx.html#L34153'>_string_0f_86_jump_break</a>/imm32/subx-name -<span id="L33488" class="LineNr">33488 </span> 0/imm32/no-rm32 -<span id="L33489" class="LineNr">33489 </span> 0/imm32/no-r32 -<span id="L33490" class="LineNr">33490 </span> 0/imm32/no-imm32 -<span id="L33491" class="LineNr">33491 </span> 0/imm32/no-imm8 -<span id="L33492" class="LineNr">33492 </span> 0/imm32/no-disp32 -<span id="L33493" class="LineNr">33493 </span> 0/imm32/no-xm32 -<span id="L33494" class="LineNr">33494 </span> 0/imm32/no-x32 -<span id="L33495" class="LineNr">33495 </span> 0x11/imm32/alloc-id:fake -<span id="L33496" class="LineNr">33496 </span> <a href='mu.subx.html#L33497'>_Primitive-break-if-float></a>/imm32/next -<span id="L33497" class="LineNr">33497 </span><span class="subxMinorFunction">_Primitive-break-if-float></span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33498" class="LineNr">33498 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33499" class="LineNr">33499 </span> 0x11/imm32/alloc-id:fake -<span id="L33500" class="LineNr">33500 </span> <a href='mu.subx.html#L33836'>_string-break-if-float></a>/imm32/name -<span id="L33501" class="LineNr">33501 </span> 0/imm32/no-inouts -<span id="L33502" class="LineNr">33502 </span> 0/imm32/no-inouts -<span id="L33503" class="LineNr">33503 </span> 0/imm32/no-outputs +<span id="L33486" class="LineNr">33486 </span> 0/imm32/no-outputs +<span id="L33487" class="LineNr">33487 </span> 0x11/imm32/alloc-id:fake +<span id="L33488" class="LineNr">33488 </span> <a href='mu.subx.html#L34412'>_string_0f_82_jump_label</a>/imm32/subx-name +<span id="L33489" class="LineNr">33489 </span> 0/imm32/no-rm32 +<span id="L33490" class="LineNr">33490 </span> 0/imm32/no-r32 +<span id="L33491" class="LineNr">33491 </span> 0/imm32/no-imm32 +<span id="L33492" class="LineNr">33492 </span> 0/imm32/no-imm8 +<span id="L33493" class="LineNr">33493 </span> 1/imm32/disp32-is-first-inout +<span id="L33494" class="LineNr">33494 </span> 0/imm32/no-xm32 +<span id="L33495" class="LineNr">33495 </span> 0/imm32/no-x32 +<span id="L33496" class="LineNr">33496 </span> 0x11/imm32/alloc-id:fake +<span id="L33497" class="LineNr">33497 </span> <a href='mu.subx.html#L33498'>_Primitive-loop-if-addr>=-named</a>/imm32/next +<span id="L33498" class="LineNr">33498 </span><span class="subxMinorFunction">_Primitive-loop-if-addr>=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33499" class="LineNr">33499 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33500" class="LineNr">33500 </span> 0x11/imm32/alloc-id:fake +<span id="L33501" class="LineNr">33501 </span> <a href='mu.subx.html#L34200'>_string-loop-if-addr>=</a>/imm32/name +<span id="L33502" class="LineNr">33502 </span> 0x11/imm32/alloc-id:fake +<span id="L33503" class="LineNr">33503 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts <span id="L33504" class="LineNr">33504 </span> 0/imm32/no-outputs -<span id="L33505" class="LineNr">33505 </span> 0x11/imm32/alloc-id:fake -<span id="L33506" class="LineNr">33506 </span> <a href='mu.subx.html#L34168'>_string_0f_87_jump_break</a>/imm32/subx-name -<span id="L33507" class="LineNr">33507 </span> 0/imm32/no-rm32 -<span id="L33508" class="LineNr">33508 </span> 0/imm32/no-r32 -<span id="L33509" class="LineNr">33509 </span> 0/imm32/no-imm32 -<span id="L33510" class="LineNr">33510 </span> 0/imm32/no-imm8 -<span id="L33511" class="LineNr">33511 </span> 0/imm32/no-disp32 -<span id="L33512" class="LineNr">33512 </span> 0/imm32/no-xm32 -<span id="L33513" class="LineNr">33513 </span> 0/imm32/no-x32 -<span id="L33514" class="LineNr">33514 </span> 0x11/imm32/alloc-id:fake -<span id="L33515" class="LineNr">33515 </span> <a href='mu.subx.html#L33516'>_Primitive-loop-if-float<</a>/imm32/next -<span id="L33516" class="LineNr">33516 </span><span class="subxMinorFunction">_Primitive-loop-if-float<</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33517" class="LineNr">33517 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33518" class="LineNr">33518 </span> 0x11/imm32/alloc-id:fake -<span id="L33519" class="LineNr">33519 </span> <a href='mu.subx.html#L33936'>_string-loop-if-float<</a>/imm32/name -<span id="L33520" class="LineNr">33520 </span> 0/imm32/no-inouts -<span id="L33521" class="LineNr">33521 </span> 0/imm32/no-inouts -<span id="L33522" class="LineNr">33522 </span> 0/imm32/no-outputs +<span id="L33505" class="LineNr">33505 </span> 0/imm32/no-outputs +<span id="L33506" class="LineNr">33506 </span> 0x11/imm32/alloc-id:fake +<span id="L33507" class="LineNr">33507 </span> <a href='mu.subx.html#L34427'>_string_0f_83_jump_label</a>/imm32/subx-name +<span id="L33508" class="LineNr">33508 </span> 0/imm32/no-rm32 +<span id="L33509" class="LineNr">33509 </span> 0/imm32/no-r32 +<span id="L33510" class="LineNr">33510 </span> 0/imm32/no-imm32 +<span id="L33511" class="LineNr">33511 </span> 0/imm32/no-imm8 +<span id="L33512" class="LineNr">33512 </span> 1/imm32/disp32-is-first-inout +<span id="L33513" class="LineNr">33513 </span> 0/imm32/no-xm32 +<span id="L33514" class="LineNr">33514 </span> 0/imm32/no-x32 +<span id="L33515" class="LineNr">33515 </span> 0x11/imm32/alloc-id:fake +<span id="L33516" class="LineNr">33516 </span> <a href='mu.subx.html#L33517'>_Primitive-loop-if-=-named</a>/imm32/next +<span id="L33517" class="LineNr">33517 </span><span class="subxMinorFunction">_Primitive-loop-if-=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33518" class="LineNr">33518 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33519" class="LineNr">33519 </span> 0x11/imm32/alloc-id:fake +<span id="L33520" class="LineNr">33520 </span> <a href='mu.subx.html#L34165'>_string-loop-if-=</a>/imm32/name +<span id="L33521" class="LineNr">33521 </span> 0x11/imm32/alloc-id:fake +<span id="L33522" class="LineNr">33522 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts <span id="L33523" class="LineNr">33523 </span> 0/imm32/no-outputs -<span id="L33524" class="LineNr">33524 </span> 0x11/imm32/alloc-id:fake -<span id="L33525" class="LineNr">33525 </span> <a href='mu.subx.html#L34098'>_string_0f_82_jump_loop</a>/imm32/subx-name -<span id="L33526" class="LineNr">33526 </span> 0/imm32/no-rm32 -<span id="L33527" class="LineNr">33527 </span> 0/imm32/no-r32 -<span id="L33528" class="LineNr">33528 </span> 0/imm32/no-imm32 -<span id="L33529" class="LineNr">33529 </span> 0/imm32/no-imm8 -<span id="L33530" class="LineNr">33530 </span> 0/imm32/no-disp32 -<span id="L33531" class="LineNr">33531 </span> 0/imm32/no-xm32 -<span id="L33532" class="LineNr">33532 </span> 0/imm32/no-x32 -<span id="L33533" class="LineNr">33533 </span> 0x11/imm32/alloc-id:fake -<span id="L33534" class="LineNr">33534 </span> <a href='mu.subx.html#L33535'>_Primitive-loop-if-float>=</a>/imm32/next -<span id="L33535" class="LineNr">33535 </span><span class="subxMinorFunction">_Primitive-loop-if-float>=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33536" class="LineNr">33536 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33537" class="LineNr">33537 </span> 0x11/imm32/alloc-id:fake -<span id="L33538" class="LineNr">33538 </span> <a href='mu.subx.html#L33951'>_string-loop-if-float>=</a>/imm32/name -<span id="L33539" class="LineNr">33539 </span> 0/imm32/no-inouts -<span id="L33540" class="LineNr">33540 </span> 0/imm32/no-inouts -<span id="L33541" class="LineNr">33541 </span> 0/imm32/no-outputs +<span id="L33524" class="LineNr">33524 </span> 0/imm32/no-outputs +<span id="L33525" class="LineNr">33525 </span> 0x11/imm32/alloc-id:fake +<span id="L33526" class="LineNr">33526 </span> <a href='mu.subx.html#L34442'>_string_0f_84_jump_label</a>/imm32/subx-name +<span id="L33527" class="LineNr">33527 </span> 0/imm32/no-rm32 +<span id="L33528" class="LineNr">33528 </span> 0/imm32/no-r32 +<span id="L33529" class="LineNr">33529 </span> 0/imm32/no-imm32 +<span id="L33530" class="LineNr">33530 </span> 0/imm32/no-imm8 +<span id="L33531" class="LineNr">33531 </span> 1/imm32/disp32-is-first-inout +<span id="L33532" class="LineNr">33532 </span> 0/imm32/no-xm32 +<span id="L33533" class="LineNr">33533 </span> 0/imm32/no-x32 +<span id="L33534" class="LineNr">33534 </span> 0x11/imm32/alloc-id:fake +<span id="L33535" class="LineNr">33535 </span> <a href='mu.subx.html#L33536'>_Primitive-loop-if-!=-named</a>/imm32/next +<span id="L33536" class="LineNr">33536 </span><span class="subxMinorFunction">_Primitive-loop-if-!=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33537" class="LineNr">33537 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33538" class="LineNr">33538 </span> 0x11/imm32/alloc-id:fake +<span id="L33539" class="LineNr">33539 </span> <a href='mu.subx.html#L34180'>_string-loop-if-!=</a>/imm32/name +<span id="L33540" class="LineNr">33540 </span> 0x11/imm32/alloc-id:fake +<span id="L33541" class="LineNr">33541 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts <span id="L33542" class="LineNr">33542 </span> 0/imm32/no-outputs -<span id="L33543" class="LineNr">33543 </span> 0x11/imm32/alloc-id:fake -<span id="L33544" class="LineNr">33544 </span> <a href='mu.subx.html#L34113'>_string_0f_83_jump_loop</a>/imm32/subx-name -<span id="L33545" class="LineNr">33545 </span> 0/imm32/no-rm32 -<span id="L33546" class="LineNr">33546 </span> 0/imm32/no-r32 -<span id="L33547" class="LineNr">33547 </span> 0/imm32/no-imm32 -<span id="L33548" class="LineNr">33548 </span> 0/imm32/no-imm8 -<span id="L33549" class="LineNr">33549 </span> 0/imm32/no-disp32 -<span id="L33550" class="LineNr">33550 </span> 0/imm32/no-xm32 -<span id="L33551" class="LineNr">33551 </span> 0/imm32/no-x32 -<span id="L33552" class="LineNr">33552 </span> 0x11/imm32/alloc-id:fake -<span id="L33553" class="LineNr">33553 </span> <a href='mu.subx.html#L33554'>_Primitive-loop-if-float<=</a>/imm32/next -<span id="L33554" class="LineNr">33554 </span><span class="subxMinorFunction">_Primitive-loop-if-float<=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33555" class="LineNr">33555 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33556" class="LineNr">33556 </span> 0x11/imm32/alloc-id:fake -<span id="L33557" class="LineNr">33557 </span> <a href='mu.subx.html#L33941'>_string-loop-if-float<=</a>/imm32/name -<span id="L33558" class="LineNr">33558 </span> 0/imm32/no-inouts -<span id="L33559" class="LineNr">33559 </span> 0/imm32/no-inouts -<span id="L33560" class="LineNr">33560 </span> 0/imm32/no-outputs +<span id="L33543" class="LineNr">33543 </span> 0/imm32/no-outputs +<span id="L33544" class="LineNr">33544 </span> 0x11/imm32/alloc-id:fake +<span id="L33545" class="LineNr">33545 </span> <a href='mu.subx.html#L34457'>_string_0f_85_jump_label</a>/imm32/subx-name +<span id="L33546" class="LineNr">33546 </span> 0/imm32/no-rm32 +<span id="L33547" class="LineNr">33547 </span> 0/imm32/no-r32 +<span id="L33548" class="LineNr">33548 </span> 0/imm32/no-imm32 +<span id="L33549" class="LineNr">33549 </span> 0/imm32/no-imm8 +<span id="L33550" class="LineNr">33550 </span> 1/imm32/disp32-is-first-inout +<span id="L33551" class="LineNr">33551 </span> 0/imm32/no-xm32 +<span id="L33552" class="LineNr">33552 </span> 0/imm32/no-x32 +<span id="L33553" class="LineNr">33553 </span> 0x11/imm32/alloc-id:fake +<span id="L33554" class="LineNr">33554 </span> <a href='mu.subx.html#L33555'>_Primitive-loop-if-addr<=-named</a>/imm32/next +<span id="L33555" class="LineNr">33555 </span><span class="subxMinorFunction">_Primitive-loop-if-addr<=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33556" class="LineNr">33556 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33557" class="LineNr">33557 </span> 0x11/imm32/alloc-id:fake +<span id="L33558" class="LineNr">33558 </span> <a href='mu.subx.html#L34190'>_string-loop-if-addr<=</a>/imm32/name +<span id="L33559" class="LineNr">33559 </span> 0x11/imm32/alloc-id:fake +<span id="L33560" class="LineNr">33560 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts <span id="L33561" class="LineNr">33561 </span> 0/imm32/no-outputs -<span id="L33562" class="LineNr">33562 </span> 0x11/imm32/alloc-id:fake -<span id="L33563" class="LineNr">33563 </span> <a href='mu.subx.html#L34158'>_string_0f_86_jump_loop</a>/imm32/subx-name -<span id="L33564" class="LineNr">33564 </span> 0/imm32/no-rm32 -<span id="L33565" class="LineNr">33565 </span> 0/imm32/no-r32 -<span id="L33566" class="LineNr">33566 </span> 0/imm32/no-imm32 -<span id="L33567" class="LineNr">33567 </span> 0/imm32/no-imm8 -<span id="L33568" class="LineNr">33568 </span> 0/imm32/no-disp32 -<span id="L33569" class="LineNr">33569 </span> 0/imm32/no-xm32 -<span id="L33570" class="LineNr">33570 </span> 0/imm32/no-x32 -<span id="L33571" class="LineNr">33571 </span> 0x11/imm32/alloc-id:fake -<span id="L33572" class="LineNr">33572 </span> <a href='mu.subx.html#L33573'>_Primitive-loop-if-float></a>/imm32/next -<span id="L33573" class="LineNr">33573 </span><span class="subxMinorFunction">_Primitive-loop-if-float></span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33574" class="LineNr">33574 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33575" class="LineNr">33575 </span> 0x11/imm32/alloc-id:fake -<span id="L33576" class="LineNr">33576 </span> <a href='mu.subx.html#L33946'>_string-loop-if-float></a>/imm32/name -<span id="L33577" class="LineNr">33577 </span> 0/imm32/no-inouts -<span id="L33578" class="LineNr">33578 </span> 0/imm32/no-inouts -<span id="L33579" class="LineNr">33579 </span> 0/imm32/no-outputs +<span id="L33562" class="LineNr">33562 </span> 0/imm32/no-outputs +<span id="L33563" class="LineNr">33563 </span> 0x11/imm32/alloc-id:fake +<span id="L33564" class="LineNr">33564 </span> <a href='mu.subx.html#L34472'>_string_0f_86_jump_label</a>/imm32/subx-name +<span id="L33565" class="LineNr">33565 </span> 0/imm32/no-rm32 +<span id="L33566" class="LineNr">33566 </span> 0/imm32/no-r32 +<span id="L33567" class="LineNr">33567 </span> 0/imm32/no-imm32 +<span id="L33568" class="LineNr">33568 </span> 0/imm32/no-imm8 +<span id="L33569" class="LineNr">33569 </span> 1/imm32/disp32-is-first-inout +<span id="L33570" class="LineNr">33570 </span> 0/imm32/no-xm32 +<span id="L33571" class="LineNr">33571 </span> 0/imm32/no-x32 +<span id="L33572" class="LineNr">33572 </span> 0x11/imm32/alloc-id:fake +<span id="L33573" class="LineNr">33573 </span> <a href='mu.subx.html#L33574'>_Primitive-loop-if-addr>-named</a>/imm32/next +<span id="L33574" class="LineNr">33574 </span><span class="subxMinorFunction">_Primitive-loop-if-addr>-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33575" class="LineNr">33575 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33576" class="LineNr">33576 </span> 0x11/imm32/alloc-id:fake +<span id="L33577" class="LineNr">33577 </span> <a href='mu.subx.html#L34195'>_string-loop-if-addr></a>/imm32/name +<span id="L33578" class="LineNr">33578 </span> 0x11/imm32/alloc-id:fake +<span id="L33579" class="LineNr">33579 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts <span id="L33580" class="LineNr">33580 </span> 0/imm32/no-outputs -<span id="L33581" class="LineNr">33581 </span> 0x11/imm32/alloc-id:fake -<span id="L33582" class="LineNr">33582 </span> <a href='mu.subx.html#L34173'>_string_0f_87_jump_loop</a>/imm32/subx-name -<span id="L33583" class="LineNr">33583 </span> 0/imm32/no-rm32 -<span id="L33584" class="LineNr">33584 </span> 0/imm32/no-r32 -<span id="L33585" class="LineNr">33585 </span> 0/imm32/no-imm32 -<span id="L33586" class="LineNr">33586 </span> 0/imm32/no-imm8 -<span id="L33587" class="LineNr">33587 </span> 0/imm32/no-disp32 -<span id="L33588" class="LineNr">33588 </span> 0/imm32/no-xm32 -<span id="L33589" class="LineNr">33589 </span> 0/imm32/no-x32 -<span id="L33590" class="LineNr">33590 </span> 0x11/imm32/alloc-id:fake -<span id="L33591" class="LineNr">33591 </span> <a href='mu.subx.html#L33592'>_Primitive-break-if-float<-named</a>/imm32/next -<span id="L33592" class="LineNr">33592 </span><span class="subxMinorFunction">_Primitive-break-if-float<-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33593" class="LineNr">33593 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33594" class="LineNr">33594 </span> 0x11/imm32/alloc-id:fake -<span id="L33595" class="LineNr">33595 </span> <a href='mu.subx.html#L33826'>_string-break-if-float<</a>/imm32/name -<span id="L33596" class="LineNr">33596 </span> 0x11/imm32/alloc-id:fake -<span id="L33597" class="LineNr">33597 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L33598" class="LineNr">33598 </span> 0/imm32/no-outputs +<span id="L33581" class="LineNr">33581 </span> 0/imm32/no-outputs +<span id="L33582" class="LineNr">33582 </span> 0x11/imm32/alloc-id:fake +<span id="L33583" class="LineNr">33583 </span> <a href='mu.subx.html#L34487'>_string_0f_87_jump_label</a>/imm32/subx-name +<span id="L33584" class="LineNr">33584 </span> 0/imm32/no-rm32 +<span id="L33585" class="LineNr">33585 </span> 0/imm32/no-r32 +<span id="L33586" class="LineNr">33586 </span> 0/imm32/no-imm32 +<span id="L33587" class="LineNr">33587 </span> 0/imm32/no-imm8 +<span id="L33588" class="LineNr">33588 </span> 1/imm32/disp32-is-first-inout +<span id="L33589" class="LineNr">33589 </span> 0/imm32/no-xm32 +<span id="L33590" class="LineNr">33590 </span> 0/imm32/no-x32 +<span id="L33591" class="LineNr">33591 </span> 0x11/imm32/alloc-id:fake +<span id="L33592" class="LineNr">33592 </span> <a href='mu.subx.html#L33593'>_Primitive-loop-if-<-named</a>/imm32/next +<span id="L33593" class="LineNr">33593 </span><span class="subxMinorFunction">_Primitive-loop-if-<-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33594" class="LineNr">33594 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33595" class="LineNr">33595 </span> 0x11/imm32/alloc-id:fake +<span id="L33596" class="LineNr">33596 </span> <a href='mu.subx.html#L34155'>_string-loop-if-<</a>/imm32/name +<span id="L33597" class="LineNr">33597 </span> 0x11/imm32/alloc-id:fake +<span id="L33598" class="LineNr">33598 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts <span id="L33599" class="LineNr">33599 </span> 0/imm32/no-outputs -<span id="L33600" class="LineNr">33600 </span> 0x11/imm32/alloc-id:fake -<span id="L33601" class="LineNr">33601 </span> <a href='mu.subx.html#L34088'>_string_0f_82_jump_label</a>/imm32/subx-name -<span id="L33602" class="LineNr">33602 </span> 0/imm32/no-rm32 -<span id="L33603" class="LineNr">33603 </span> 0/imm32/no-r32 -<span id="L33604" class="LineNr">33604 </span> 0/imm32/no-imm32 -<span id="L33605" class="LineNr">33605 </span> 0/imm32/no-imm8 -<span id="L33606" class="LineNr">33606 </span> 1/imm32/disp32-is-first-inout -<span id="L33607" class="LineNr">33607 </span> 0/imm32/no-xm32 -<span id="L33608" class="LineNr">33608 </span> 0/imm32/no-x32 -<span id="L33609" class="LineNr">33609 </span> 0x11/imm32/alloc-id:fake -<span id="L33610" class="LineNr">33610 </span> <a href='mu.subx.html#L33611'>_Primitive-break-if-float>=-named</a>/imm32/next -<span id="L33611" class="LineNr">33611 </span><span class="subxMinorFunction">_Primitive-break-if-float>=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33612" class="LineNr">33612 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33613" class="LineNr">33613 </span> 0x11/imm32/alloc-id:fake -<span id="L33614" class="LineNr">33614 </span> <a href='mu.subx.html#L33841'>_string-break-if-float>=</a>/imm32/name -<span id="L33615" class="LineNr">33615 </span> 0x11/imm32/alloc-id:fake -<span id="L33616" class="LineNr">33616 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L33617" class="LineNr">33617 </span> 0/imm32/no-outputs +<span id="L33600" class="LineNr">33600 </span> 0/imm32/no-outputs +<span id="L33601" class="LineNr">33601 </span> 0x11/imm32/alloc-id:fake +<span id="L33602" class="LineNr">33602 </span> <a href='mu.subx.html#L34502'>_string_0f_8c_jump_label</a>/imm32/subx-name +<span id="L33603" class="LineNr">33603 </span> 0/imm32/no-rm32 +<span id="L33604" class="LineNr">33604 </span> 0/imm32/no-r32 +<span id="L33605" class="LineNr">33605 </span> 0/imm32/no-imm32 +<span id="L33606" class="LineNr">33606 </span> 0/imm32/no-imm8 +<span id="L33607" class="LineNr">33607 </span> 1/imm32/disp32-is-first-inout +<span id="L33608" class="LineNr">33608 </span> 0/imm32/no-xm32 +<span id="L33609" class="LineNr">33609 </span> 0/imm32/no-x32 +<span id="L33610" class="LineNr">33610 </span> 0x11/imm32/alloc-id:fake +<span id="L33611" class="LineNr">33611 </span> <a href='mu.subx.html#L33612'>_Primitive-loop-if->=-named</a>/imm32/next +<span id="L33612" class="LineNr">33612 </span><span class="subxMinorFunction">_Primitive-loop-if->=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33613" class="LineNr">33613 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33614" class="LineNr">33614 </span> 0x11/imm32/alloc-id:fake +<span id="L33615" class="LineNr">33615 </span> <a href='mu.subx.html#L34175'>_string-loop-if->=</a>/imm32/name +<span id="L33616" class="LineNr">33616 </span> 0x11/imm32/alloc-id:fake +<span id="L33617" class="LineNr">33617 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts <span id="L33618" class="LineNr">33618 </span> 0/imm32/no-outputs -<span id="L33619" class="LineNr">33619 </span> 0x11/imm32/alloc-id:fake -<span id="L33620" class="LineNr">33620 </span> <a href='mu.subx.html#L34103'>_string_0f_83_jump_label</a>/imm32/subx-name -<span id="L33621" class="LineNr">33621 </span> 0/imm32/no-rm32 -<span id="L33622" class="LineNr">33622 </span> 0/imm32/no-r32 -<span id="L33623" class="LineNr">33623 </span> 0/imm32/no-imm32 -<span id="L33624" class="LineNr">33624 </span> 0/imm32/no-imm8 -<span id="L33625" class="LineNr">33625 </span> 1/imm32/disp32-is-first-inout -<span id="L33626" class="LineNr">33626 </span> 0/imm32/no-xm32 -<span id="L33627" class="LineNr">33627 </span> 0/imm32/no-x32 -<span id="L33628" class="LineNr">33628 </span> 0x11/imm32/alloc-id:fake -<span id="L33629" class="LineNr">33629 </span> <a href='mu.subx.html#L33630'>_Primitive-break-if-float<=-named</a>/imm32/next -<span id="L33630" class="LineNr">33630 </span><span class="subxMinorFunction">_Primitive-break-if-float<=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33631" class="LineNr">33631 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33632" class="LineNr">33632 </span> 0x11/imm32/alloc-id:fake -<span id="L33633" class="LineNr">33633 </span> <a href='mu.subx.html#L33831'>_string-break-if-float<=</a>/imm32/name -<span id="L33634" class="LineNr">33634 </span> 0x11/imm32/alloc-id:fake -<span id="L33635" class="LineNr">33635 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L33636" class="LineNr">33636 </span> 0/imm32/no-outputs +<span id="L33619" class="LineNr">33619 </span> 0/imm32/no-outputs +<span id="L33620" class="LineNr">33620 </span> 0x11/imm32/alloc-id:fake +<span id="L33621" class="LineNr">33621 </span> <a href='mu.subx.html#L34517'>_string_0f_8d_jump_label</a>/imm32/subx-name +<span id="L33622" class="LineNr">33622 </span> 0/imm32/no-rm32 +<span id="L33623" class="LineNr">33623 </span> 0/imm32/no-r32 +<span id="L33624" class="LineNr">33624 </span> 0/imm32/no-imm32 +<span id="L33625" class="LineNr">33625 </span> 0/imm32/no-imm8 +<span id="L33626" class="LineNr">33626 </span> 1/imm32/disp32-is-first-inout +<span id="L33627" class="LineNr">33627 </span> 0/imm32/no-xm32 +<span id="L33628" class="LineNr">33628 </span> 0/imm32/no-x32 +<span id="L33629" class="LineNr">33629 </span> 0x11/imm32/alloc-id:fake +<span id="L33630" class="LineNr">33630 </span> <a href='mu.subx.html#L33631'>_Primitive-loop-if-<=-named</a>/imm32/next +<span id="L33631" class="LineNr">33631 </span><span class="subxMinorFunction">_Primitive-loop-if-<=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33632" class="LineNr">33632 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33633" class="LineNr">33633 </span> 0x11/imm32/alloc-id:fake +<span id="L33634" class="LineNr">33634 </span> <a href='mu.subx.html#L34160'>_string-loop-if-<=</a>/imm32/name +<span id="L33635" class="LineNr">33635 </span> 0x11/imm32/alloc-id:fake +<span id="L33636" class="LineNr">33636 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts <span id="L33637" class="LineNr">33637 </span> 0/imm32/no-outputs -<span id="L33638" class="LineNr">33638 </span> 0x11/imm32/alloc-id:fake -<span id="L33639" class="LineNr">33639 </span> <a href='mu.subx.html#L34148'>_string_0f_86_jump_label</a>/imm32/subx-name -<span id="L33640" class="LineNr">33640 </span> 0/imm32/no-rm32 -<span id="L33641" class="LineNr">33641 </span> 0/imm32/no-r32 -<span id="L33642" class="LineNr">33642 </span> 0/imm32/no-imm32 -<span id="L33643" class="LineNr">33643 </span> 0/imm32/no-imm8 -<span id="L33644" class="LineNr">33644 </span> 1/imm32/disp32-is-first-inout -<span id="L33645" class="LineNr">33645 </span> 0/imm32/no-xm32 -<span id="L33646" class="LineNr">33646 </span> 0/imm32/no-x32 -<span id="L33647" class="LineNr">33647 </span> 0x11/imm32/alloc-id:fake -<span id="L33648" class="LineNr">33648 </span> <a href='mu.subx.html#L33649'>_Primitive-break-if-float>-named</a>/imm32/next -<span id="L33649" class="LineNr">33649 </span><span class="subxMinorFunction">_Primitive-break-if-float>-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33650" class="LineNr">33650 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33651" class="LineNr">33651 </span> 0x11/imm32/alloc-id:fake -<span id="L33652" class="LineNr">33652 </span> <a href='mu.subx.html#L33836'>_string-break-if-float></a>/imm32/name -<span id="L33653" class="LineNr">33653 </span> 0x11/imm32/alloc-id:fake -<span id="L33654" class="LineNr">33654 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L33655" class="LineNr">33655 </span> 0/imm32/no-outputs +<span id="L33638" class="LineNr">33638 </span> 0/imm32/no-outputs +<span id="L33639" class="LineNr">33639 </span> 0x11/imm32/alloc-id:fake +<span id="L33640" class="LineNr">33640 </span> <a href='mu.subx.html#L34532'>_string_0f_8e_jump_label</a>/imm32/subx-name +<span id="L33641" class="LineNr">33641 </span> 0/imm32/no-rm32 +<span id="L33642" class="LineNr">33642 </span> 0/imm32/no-r32 +<span id="L33643" class="LineNr">33643 </span> 0/imm32/no-imm32 +<span id="L33644" class="LineNr">33644 </span> 0/imm32/no-imm8 +<span id="L33645" class="LineNr">33645 </span> 1/imm32/disp32-is-first-inout +<span id="L33646" class="LineNr">33646 </span> 0/imm32/no-xm32 +<span id="L33647" class="LineNr">33647 </span> 0/imm32/no-x32 +<span id="L33648" class="LineNr">33648 </span> 0x11/imm32/alloc-id:fake +<span id="L33649" class="LineNr">33649 </span> <a href='mu.subx.html#L33650'>_Primitive-loop-if->-named</a>/imm32/next +<span id="L33650" class="LineNr">33650 </span><span class="subxMinorFunction">_Primitive-loop-if->-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33651" class="LineNr">33651 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33652" class="LineNr">33652 </span> 0x11/imm32/alloc-id:fake +<span id="L33653" class="LineNr">33653 </span> <a href='mu.subx.html#L34170'>_string-loop-if-></a>/imm32/name +<span id="L33654" class="LineNr">33654 </span> 0x11/imm32/alloc-id:fake +<span id="L33655" class="LineNr">33655 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts <span id="L33656" class="LineNr">33656 </span> 0/imm32/no-outputs -<span id="L33657" class="LineNr">33657 </span> 0x11/imm32/alloc-id:fake -<span id="L33658" class="LineNr">33658 </span> <a href='mu.subx.html#L34163'>_string_0f_87_jump_label</a>/imm32/subx-name -<span id="L33659" class="LineNr">33659 </span> 0/imm32/no-rm32 -<span id="L33660" class="LineNr">33660 </span> 0/imm32/no-r32 -<span id="L33661" class="LineNr">33661 </span> 0/imm32/no-imm32 -<span id="L33662" class="LineNr">33662 </span> 0/imm32/no-imm8 -<span id="L33663" class="LineNr">33663 </span> 1/imm32/disp32-is-first-inout -<span id="L33664" class="LineNr">33664 </span> 0/imm32/no-xm32 -<span id="L33665" class="LineNr">33665 </span> 0/imm32/no-x32 -<span id="L33666" class="LineNr">33666 </span> 0x11/imm32/alloc-id:fake -<span id="L33667" class="LineNr">33667 </span> <a href='mu.subx.html#L33668'>_Primitive-loop-if-float<-named</a>/imm32/next -<span id="L33668" class="LineNr">33668 </span><span class="subxMinorFunction">_Primitive-loop-if-float<-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33669" class="LineNr">33669 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33670" class="LineNr">33670 </span> 0x11/imm32/alloc-id:fake -<span id="L33671" class="LineNr">33671 </span> <a href='mu.subx.html#L33936'>_string-loop-if-float<</a>/imm32/name -<span id="L33672" class="LineNr">33672 </span> 0x11/imm32/alloc-id:fake -<span id="L33673" class="LineNr">33673 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L33674" class="LineNr">33674 </span> 0/imm32/no-outputs +<span id="L33657" class="LineNr">33657 </span> 0/imm32/no-outputs +<span id="L33658" class="LineNr">33658 </span> 0x11/imm32/alloc-id:fake +<span id="L33659" class="LineNr">33659 </span> <a href='mu.subx.html#L34547'>_string_0f_8f_jump_label</a>/imm32/subx-name +<span id="L33660" class="LineNr">33660 </span> 0/imm32/no-rm32 +<span id="L33661" class="LineNr">33661 </span> 0/imm32/no-r32 +<span id="L33662" class="LineNr">33662 </span> 0/imm32/no-imm32 +<span id="L33663" class="LineNr">33663 </span> 0/imm32/no-imm8 +<span id="L33664" class="LineNr">33664 </span> 1/imm32/disp32-is-first-inout +<span id="L33665" class="LineNr">33665 </span> 0/imm32/no-xm32 +<span id="L33666" class="LineNr">33666 </span> 0/imm32/no-x32 +<span id="L33667" class="LineNr">33667 </span> 0x11/imm32/alloc-id:fake +<span id="L33668" class="LineNr">33668 </span> <a href='mu.subx.html#L33669'>_Primitive-loop-named</a>/imm32/next <span class="subxComment"># we probably don't need an unconditional break</span> +<span id="L33669" class="LineNr">33669 </span><span class="subxMinorFunction">_Primitive-loop-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33670" class="LineNr">33670 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33671" class="LineNr">33671 </span> 0x11/imm32/alloc-id:fake +<span id="L33672" class="LineNr">33672 </span> <a href='mu.subx.html#L34150'>_string-loop</a>/imm32/name +<span id="L33673" class="LineNr">33673 </span> 0x11/imm32/alloc-id:fake +<span id="L33674" class="LineNr">33674 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts <span id="L33675" class="LineNr">33675 </span> 0/imm32/no-outputs -<span id="L33676" class="LineNr">33676 </span> 0x11/imm32/alloc-id:fake -<span id="L33677" class="LineNr">33677 </span> <a href='mu.subx.html#L34088'>_string_0f_82_jump_label</a>/imm32/subx-name -<span id="L33678" class="LineNr">33678 </span> 0/imm32/no-rm32 -<span id="L33679" class="LineNr">33679 </span> 0/imm32/no-r32 -<span id="L33680" class="LineNr">33680 </span> 0/imm32/no-imm32 -<span id="L33681" class="LineNr">33681 </span> 0/imm32/no-imm8 -<span id="L33682" class="LineNr">33682 </span> 1/imm32/disp32-is-first-inout -<span id="L33683" class="LineNr">33683 </span> 0/imm32/no-xm32 -<span id="L33684" class="LineNr">33684 </span> 0/imm32/no-x32 -<span id="L33685" class="LineNr">33685 </span> 0x11/imm32/alloc-id:fake -<span id="L33686" class="LineNr">33686 </span> <a href='mu.subx.html#L33687'>_Primitive-loop-if-float>=-named</a>/imm32/next -<span id="L33687" class="LineNr">33687 </span><span class="subxMinorFunction">_Primitive-loop-if-float>=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33688" class="LineNr">33688 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33689" class="LineNr">33689 </span> 0x11/imm32/alloc-id:fake -<span id="L33690" class="LineNr">33690 </span> <a href='mu.subx.html#L33951'>_string-loop-if-float>=</a>/imm32/name +<span id="L33676" class="LineNr">33676 </span> 0/imm32/no-outputs +<span id="L33677" class="LineNr">33677 </span> 0x11/imm32/alloc-id:fake +<span id="L33678" class="LineNr">33678 </span> <a href='mu.subx.html#L34852'>_string_e9_jump_label</a>/imm32/subx-name +<span id="L33679" class="LineNr">33679 </span> 0/imm32/no-rm32 +<span id="L33680" class="LineNr">33680 </span> 0/imm32/no-r32 +<span id="L33681" class="LineNr">33681 </span> 0/imm32/no-imm32 +<span id="L33682" class="LineNr">33682 </span> 0/imm32/no-imm8 +<span id="L33683" class="LineNr">33683 </span> 1/imm32/disp32-is-first-inout +<span id="L33684" class="LineNr">33684 </span> 0/imm32/no-xm32 +<span id="L33685" class="LineNr">33685 </span> 0/imm32/no-x32 +<span id="L33686" class="LineNr">33686 </span> 0x11/imm32/alloc-id:fake +<span id="L33687" class="LineNr">33687 </span> <a href='mu.subx.html#L33689'>_Primitive-break-if-float<</a>/imm32/next +<span id="L33688" class="LineNr">33688 </span><span class="subxH1Comment"># - branches based on floating-point comparisons</span> +<span id="L33689" class="LineNr">33689 </span><span class="subxMinorFunction">_Primitive-break-if-float<</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33690" class="LineNr">33690 </span> 0x11/imm32/alloc-id:fake:payload <span id="L33691" class="LineNr">33691 </span> 0x11/imm32/alloc-id:fake -<span id="L33692" class="LineNr">33692 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L33693" class="LineNr">33693 </span> 0/imm32/no-outputs -<span id="L33694" class="LineNr">33694 </span> 0/imm32/no-outputs -<span id="L33695" class="LineNr">33695 </span> 0x11/imm32/alloc-id:fake -<span id="L33696" class="LineNr">33696 </span> <a href='mu.subx.html#L34103'>_string_0f_83_jump_label</a>/imm32/subx-name -<span id="L33697" class="LineNr">33697 </span> 0/imm32/no-rm32 -<span id="L33698" class="LineNr">33698 </span> 0/imm32/no-r32 -<span id="L33699" class="LineNr">33699 </span> 0/imm32/no-imm32 -<span id="L33700" class="LineNr">33700 </span> 0/imm32/no-imm8 -<span id="L33701" class="LineNr">33701 </span> 1/imm32/disp32-is-first-inout -<span id="L33702" class="LineNr">33702 </span> 0/imm32/no-xm32 -<span id="L33703" class="LineNr">33703 </span> 0/imm32/no-x32 -<span id="L33704" class="LineNr">33704 </span> 0x11/imm32/alloc-id:fake -<span id="L33705" class="LineNr">33705 </span> <a href='mu.subx.html#L33706'>_Primitive-loop-if-float<=-named</a>/imm32/next -<span id="L33706" class="LineNr">33706 </span><span class="subxMinorFunction">_Primitive-loop-if-float<=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33707" class="LineNr">33707 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33708" class="LineNr">33708 </span> 0x11/imm32/alloc-id:fake -<span id="L33709" class="LineNr">33709 </span> <a href='mu.subx.html#L33941'>_string-loop-if-float<=</a>/imm32/name +<span id="L33692" class="LineNr">33692 </span> <a href='mu.subx.html#L34075'>_string-break-if-float<</a>/imm32/name +<span id="L33693" class="LineNr">33693 </span> 0/imm32/no-inouts +<span id="L33694" class="LineNr">33694 </span> 0/imm32/no-inouts +<span id="L33695" class="LineNr">33695 </span> 0/imm32/no-outputs +<span id="L33696" class="LineNr">33696 </span> 0/imm32/no-outputs +<span id="L33697" class="LineNr">33697 </span> 0x11/imm32/alloc-id:fake +<span id="L33698" class="LineNr">33698 </span> <a href='mu.subx.html#L34417'>_string_0f_82_jump_break</a>/imm32/subx-name +<span id="L33699" class="LineNr">33699 </span> 0/imm32/no-rm32 +<span id="L33700" class="LineNr">33700 </span> 0/imm32/no-r32 +<span id="L33701" class="LineNr">33701 </span> 0/imm32/no-imm32 +<span id="L33702" class="LineNr">33702 </span> 0/imm32/no-imm8 +<span id="L33703" class="LineNr">33703 </span> 0/imm32/no-disp32 +<span id="L33704" class="LineNr">33704 </span> 0/imm32/no-xm32 +<span id="L33705" class="LineNr">33705 </span> 0/imm32/no-x32 +<span id="L33706" class="LineNr">33706 </span> 0x11/imm32/alloc-id:fake +<span id="L33707" class="LineNr">33707 </span> <a href='mu.subx.html#L33708'>_Primitive-break-if-float>=</a>/imm32/next +<span id="L33708" class="LineNr">33708 </span><span class="subxMinorFunction">_Primitive-break-if-float>=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33709" class="LineNr">33709 </span> 0x11/imm32/alloc-id:fake:payload <span id="L33710" class="LineNr">33710 </span> 0x11/imm32/alloc-id:fake -<span id="L33711" class="LineNr">33711 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L33712" class="LineNr">33712 </span> 0/imm32/no-outputs -<span id="L33713" class="LineNr">33713 </span> 0/imm32/no-outputs -<span id="L33714" class="LineNr">33714 </span> 0x11/imm32/alloc-id:fake -<span id="L33715" class="LineNr">33715 </span> <a href='mu.subx.html#L34148'>_string_0f_86_jump_label</a>/imm32/subx-name -<span id="L33716" class="LineNr">33716 </span> 0/imm32/no-rm32 -<span id="L33717" class="LineNr">33717 </span> 0/imm32/no-r32 -<span id="L33718" class="LineNr">33718 </span> 0/imm32/no-imm32 -<span id="L33719" class="LineNr">33719 </span> 0/imm32/no-imm8 -<span id="L33720" class="LineNr">33720 </span> 1/imm32/disp32-is-first-inout -<span id="L33721" class="LineNr">33721 </span> 0/imm32/no-xm32 -<span id="L33722" class="LineNr">33722 </span> 0/imm32/no-x32 -<span id="L33723" class="LineNr">33723 </span> 0x11/imm32/alloc-id:fake -<span id="L33724" class="LineNr">33724 </span> <a href='mu.subx.html#L33725'>_Primitive-loop-if-float>-named</a>/imm32/next -<span id="L33725" class="LineNr">33725 </span><span class="subxMinorFunction">_Primitive-loop-if-float>-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33726" class="LineNr">33726 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33727" class="LineNr">33727 </span> 0x11/imm32/alloc-id:fake -<span id="L33728" class="LineNr">33728 </span> <a href='mu.subx.html#L33946'>_string-loop-if-float></a>/imm32/name +<span id="L33711" class="LineNr">33711 </span> <a href='mu.subx.html#L34090'>_string-break-if-float>=</a>/imm32/name +<span id="L33712" class="LineNr">33712 </span> 0/imm32/no-inouts +<span id="L33713" class="LineNr">33713 </span> 0/imm32/no-inouts +<span id="L33714" class="LineNr">33714 </span> 0/imm32/no-outputs +<span id="L33715" class="LineNr">33715 </span> 0/imm32/no-outputs +<span id="L33716" class="LineNr">33716 </span> 0x11/imm32/alloc-id:fake +<span id="L33717" class="LineNr">33717 </span> <a href='mu.subx.html#L34432'>_string_0f_83_jump_break</a>/imm32/subx-name +<span id="L33718" class="LineNr">33718 </span> 0/imm32/no-rm32 +<span id="L33719" class="LineNr">33719 </span> 0/imm32/no-r32 +<span id="L33720" class="LineNr">33720 </span> 0/imm32/no-imm32 +<span id="L33721" class="LineNr">33721 </span> 0/imm32/no-imm8 +<span id="L33722" class="LineNr">33722 </span> 0/imm32/no-disp32 +<span id="L33723" class="LineNr">33723 </span> 0/imm32/no-xm32 +<span id="L33724" class="LineNr">33724 </span> 0/imm32/no-x32 +<span id="L33725" class="LineNr">33725 </span> 0x11/imm32/alloc-id:fake +<span id="L33726" class="LineNr">33726 </span> <a href='mu.subx.html#L33727'>_Primitive-break-if-float<=</a>/imm32/next +<span id="L33727" class="LineNr">33727 </span><span class="subxMinorFunction">_Primitive-break-if-float<=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33728" class="LineNr">33728 </span> 0x11/imm32/alloc-id:fake:payload <span id="L33729" class="LineNr">33729 </span> 0x11/imm32/alloc-id:fake -<span id="L33730" class="LineNr">33730 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/inouts -<span id="L33731" class="LineNr">33731 </span> 0/imm32/no-outputs -<span id="L33732" class="LineNr">33732 </span> 0/imm32/no-outputs -<span id="L33733" class="LineNr">33733 </span> 0x11/imm32/alloc-id:fake -<span id="L33734" class="LineNr">33734 </span> <a href='mu.subx.html#L34163'>_string_0f_87_jump_label</a>/imm32/subx-name -<span id="L33735" class="LineNr">33735 </span> 0/imm32/no-rm32 -<span id="L33736" class="LineNr">33736 </span> 0/imm32/no-r32 -<span id="L33737" class="LineNr">33737 </span> 0/imm32/no-imm32 -<span id="L33738" class="LineNr">33738 </span> 0/imm32/no-imm8 -<span id="L33739" class="LineNr">33739 </span> 1/imm32/disp32-is-first-inout -<span id="L33740" class="LineNr">33740 </span> 0/imm32/no-xm32 -<span id="L33741" class="LineNr">33741 </span> 0/imm32/no-x32 -<span id="L33742" class="LineNr">33742 </span> 0/imm32/next -<span id="L33743" class="LineNr">33743 </span> 0/imm32/next -<span id="L33744" class="LineNr">33744 </span> -<span id="L33745" class="LineNr">33745 </span><span class="subxComment"># string literals for Mu instructions</span> -<span id="L33746" class="LineNr">33746 </span><span class="subxMinorFunction">_string-add</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33730" class="LineNr">33730 </span> <a href='mu.subx.html#L34080'>_string-break-if-float<=</a>/imm32/name +<span id="L33731" class="LineNr">33731 </span> 0/imm32/no-inouts +<span id="L33732" class="LineNr">33732 </span> 0/imm32/no-inouts +<span id="L33733" class="LineNr">33733 </span> 0/imm32/no-outputs +<span id="L33734" class="LineNr">33734 </span> 0/imm32/no-outputs +<span id="L33735" class="LineNr">33735 </span> 0x11/imm32/alloc-id:fake +<span id="L33736" class="LineNr">33736 </span> <a href='mu.subx.html#L34477'>_string_0f_86_jump_break</a>/imm32/subx-name +<span id="L33737" class="LineNr">33737 </span> 0/imm32/no-rm32 +<span id="L33738" class="LineNr">33738 </span> 0/imm32/no-r32 +<span id="L33739" class="LineNr">33739 </span> 0/imm32/no-imm32 +<span id="L33740" class="LineNr">33740 </span> 0/imm32/no-imm8 +<span id="L33741" class="LineNr">33741 </span> 0/imm32/no-disp32 +<span id="L33742" class="LineNr">33742 </span> 0/imm32/no-xm32 +<span id="L33743" class="LineNr">33743 </span> 0/imm32/no-x32 +<span id="L33744" class="LineNr">33744 </span> 0x11/imm32/alloc-id:fake +<span id="L33745" class="LineNr">33745 </span> <a href='mu.subx.html#L33746'>_Primitive-break-if-float></a>/imm32/next +<span id="L33746" class="LineNr">33746 </span><span class="subxMinorFunction">_Primitive-break-if-float></span>: <span class="subxComment"># (payload primitive)</span> <span id="L33747" class="LineNr">33747 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33748" class="LineNr">33748 </span> <span class="subxComment"># "add"</span> -<span id="L33749" class="LineNr">33749 </span> 0x3/imm32/size -<span id="L33750" class="LineNr">33750 </span> 0x61/a 0x64/d 0x64/d -<span id="L33751" class="LineNr">33751 </span><span class="subxMinorFunction">_string-address</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33752" class="LineNr">33752 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33753" class="LineNr">33753 </span> <span class="subxComment"># "address"</span> -<span id="L33754" class="LineNr">33754 </span> 0x7/imm32/size -<span id="L33755" class="LineNr">33755 </span> 0x61/a 0x64/d 0x64/d 0x72/r 0x65/e 0x73/s 0x73/s -<span id="L33756" class="LineNr">33756 </span><span class="subxMinorFunction">_string-add-to</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33757" class="LineNr">33757 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33758" class="LineNr">33758 </span> <span class="subxComment"># "add-to"</span> -<span id="L33759" class="LineNr">33759 </span> 0x6/imm32/size -<span id="L33760" class="LineNr">33760 </span> 0x61/a 0x64/d 0x64/d 0x2d/dash 0x74/t 0x6f/o -<span id="L33761" class="LineNr">33761 </span><span class="subxMinorFunction">_string-and</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33762" class="LineNr">33762 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33763" class="LineNr">33763 </span> <span class="subxComment"># "and"</span> -<span id="L33764" class="LineNr">33764 </span> 0x3/imm32/size -<span id="L33765" class="LineNr">33765 </span> 0x61/a 0x6e/n 0x64/d -<span id="L33766" class="LineNr">33766 </span><span class="subxMinorFunction">_string-and-with</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33767" class="LineNr">33767 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33768" class="LineNr">33768 </span> <span class="subxComment"># "and-with"</span> -<span id="L33769" class="LineNr">33769 </span> 0x8/imm32/size -<span id="L33770" class="LineNr">33770 </span> 0x61/a 0x6e/n 0x64/d 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h -<span id="L33771" class="LineNr">33771 </span><span class="subxMinorFunction">_string-break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33772" class="LineNr">33772 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33773" class="LineNr">33773 </span> <span class="subxComment"># "break"</span> -<span id="L33774" class="LineNr">33774 </span> 0x5/imm32/size -<span id="L33775" class="LineNr">33775 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k -<span id="L33776" class="LineNr">33776 </span><span class="subxMinorFunction">_string-break-if-<</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33777" class="LineNr">33777 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33778" class="LineNr">33778 </span> <span class="subxComment"># "break-if-<"</span> -<span id="L33779" class="LineNr">33779 </span> 0xa/imm32/size -<span id="L33780" class="LineNr">33780 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< -<span id="L33781" class="LineNr">33781 </span><span class="subxMinorFunction">_string-break-if-<=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33782" class="LineNr">33782 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33783" class="LineNr">33783 </span> <span class="subxComment"># "break-if-<="</span> -<span id="L33784" class="LineNr">33784 </span> 0xb/imm32/size -<span id="L33785" class="LineNr">33785 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< 0x3d/= -<span id="L33786" class="LineNr">33786 </span><span class="subxMinorFunction">_string-break-if-=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33787" class="LineNr">33787 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33788" class="LineNr">33788 </span> <span class="subxComment"># "break-if-="</span> -<span id="L33789" class="LineNr">33789 </span> 0xa/imm32/size -<span id="L33790" class="LineNr">33790 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3d/= -<span id="L33791" class="LineNr">33791 </span><span class="subxMinorFunction">_string-break-if-></span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33792" class="LineNr">33792 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33793" class="LineNr">33793 </span> <span class="subxComment"># "break-if->"</span> -<span id="L33794" class="LineNr">33794 </span> 0xa/imm32/size -<span id="L33795" class="LineNr">33795 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> -<span id="L33796" class="LineNr">33796 </span><span class="subxMinorFunction">_string-break-if->=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33797" class="LineNr">33797 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33798" class="LineNr">33798 </span> <span class="subxComment"># "break-if->="</span> -<span id="L33799" class="LineNr">33799 </span> 0xb/imm32/size -<span id="L33800" class="LineNr">33800 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> 0x3d/= -<span id="L33801" class="LineNr">33801 </span><span class="subxMinorFunction">_string-break-if-!=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33802" class="LineNr">33802 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33803" class="LineNr">33803 </span> <span class="subxComment"># "break-if-!="</span> -<span id="L33804" class="LineNr">33804 </span> 0xb/imm32/size -<span id="L33805" class="LineNr">33805 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x21/! 0x3d/= -<span id="L33806" class="LineNr">33806 </span><span class="subxMinorFunction">_string-break-if-addr<</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33807" class="LineNr">33807 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33808" class="LineNr">33808 </span> <span class="subxComment"># "break-if-addr<"</span> -<span id="L33809" class="LineNr">33809 </span> 0xe/imm32/size -<span id="L33810" class="LineNr">33810 </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="L33811" class="LineNr">33811 </span><span class="subxMinorFunction">_string-break-if-addr<=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33812" class="LineNr">33812 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33813" class="LineNr">33813 </span> <span class="subxComment"># "break-if-addr<="</span> -<span id="L33814" class="LineNr">33814 </span> 0xf/imm32/size -<span id="L33815" class="LineNr">33815 </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="L33816" class="LineNr">33816 </span><span class="subxMinorFunction">_string-break-if-addr></span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33817" class="LineNr">33817 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33818" class="LineNr">33818 </span> <span class="subxComment"># "break-if-addr>"</span> -<span id="L33819" class="LineNr">33819 </span> 0xe/imm32/size -<span id="L33820" class="LineNr">33820 </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="L33821" class="LineNr">33821 </span><span class="subxMinorFunction">_string-break-if-addr>=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33822" class="LineNr">33822 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33823" class="LineNr">33823 </span> <span class="subxComment"># "break-if-addr>="</span> -<span id="L33824" class="LineNr">33824 </span> 0xf/imm32/size -<span id="L33825" class="LineNr">33825 </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="L33826" class="LineNr">33826 </span><span class="subxMinorFunction">_string-break-if-float<</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33827" class="LineNr">33827 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33828" class="LineNr">33828 </span> <span class="subxComment"># "break-if-float<"</span> -<span id="L33829" class="LineNr">33829 </span> 0xf/imm32/size -<span id="L33830" class="LineNr">33830 </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="L33831" class="LineNr">33831 </span><span class="subxMinorFunction">_string-break-if-float<=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33832" class="LineNr">33832 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33833" class="LineNr">33833 </span> <span class="subxComment"># "break-if-float<="</span> -<span id="L33834" class="LineNr">33834 </span> 0x10/imm32/size -<span id="L33835" class="LineNr">33835 </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="L33836" class="LineNr">33836 </span><span class="subxMinorFunction">_string-break-if-float></span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33837" class="LineNr">33837 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33838" class="LineNr">33838 </span> <span class="subxComment"># "break-if-float>"</span> -<span id="L33839" class="LineNr">33839 </span> 0xf/imm32/size -<span id="L33840" class="LineNr">33840 </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="L33841" class="LineNr">33841 </span><span class="subxMinorFunction">_string-break-if-float>=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33748" class="LineNr">33748 </span> 0x11/imm32/alloc-id:fake +<span id="L33749" class="LineNr">33749 </span> <a href='mu.subx.html#L34085'>_string-break-if-float></a>/imm32/name +<span id="L33750" class="LineNr">33750 </span> 0/imm32/no-inouts +<span id="L33751" class="LineNr">33751 </span> 0/imm32/no-inouts +<span id="L33752" class="LineNr">33752 </span> 0/imm32/no-outputs +<span id="L33753" class="LineNr">33753 </span> 0/imm32/no-outputs +<span id="L33754" class="LineNr">33754 </span> 0x11/imm32/alloc-id:fake +<span id="L33755" class="LineNr">33755 </span> <a href='mu.subx.html#L34492'>_string_0f_87_jump_break</a>/imm32/subx-name +<span id="L33756" class="LineNr">33756 </span> 0/imm32/no-rm32 +<span id="L33757" class="LineNr">33757 </span> 0/imm32/no-r32 +<span id="L33758" class="LineNr">33758 </span> 0/imm32/no-imm32 +<span id="L33759" class="LineNr">33759 </span> 0/imm32/no-imm8 +<span id="L33760" class="LineNr">33760 </span> 0/imm32/no-disp32 +<span id="L33761" class="LineNr">33761 </span> 0/imm32/no-xm32 +<span id="L33762" class="LineNr">33762 </span> 0/imm32/no-x32 +<span id="L33763" class="LineNr">33763 </span> 0x11/imm32/alloc-id:fake +<span id="L33764" class="LineNr">33764 </span> <a href='mu.subx.html#L33765'>_Primitive-loop-if-float<</a>/imm32/next +<span id="L33765" class="LineNr">33765 </span><span class="subxMinorFunction">_Primitive-loop-if-float<</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33766" class="LineNr">33766 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33767" class="LineNr">33767 </span> 0x11/imm32/alloc-id:fake +<span id="L33768" class="LineNr">33768 </span> <a href='mu.subx.html#L34205'>_string-loop-if-float<</a>/imm32/name +<span id="L33769" class="LineNr">33769 </span> 0/imm32/no-inouts +<span id="L33770" class="LineNr">33770 </span> 0/imm32/no-inouts +<span id="L33771" class="LineNr">33771 </span> 0/imm32/no-outputs +<span id="L33772" class="LineNr">33772 </span> 0/imm32/no-outputs +<span id="L33773" class="LineNr">33773 </span> 0x11/imm32/alloc-id:fake +<span id="L33774" class="LineNr">33774 </span> <a href='mu.subx.html#L34422'>_string_0f_82_jump_loop</a>/imm32/subx-name +<span id="L33775" class="LineNr">33775 </span> 0/imm32/no-rm32 +<span id="L33776" class="LineNr">33776 </span> 0/imm32/no-r32 +<span id="L33777" class="LineNr">33777 </span> 0/imm32/no-imm32 +<span id="L33778" class="LineNr">33778 </span> 0/imm32/no-imm8 +<span id="L33779" class="LineNr">33779 </span> 0/imm32/no-disp32 +<span id="L33780" class="LineNr">33780 </span> 0/imm32/no-xm32 +<span id="L33781" class="LineNr">33781 </span> 0/imm32/no-x32 +<span id="L33782" class="LineNr">33782 </span> 0x11/imm32/alloc-id:fake +<span id="L33783" class="LineNr">33783 </span> <a href='mu.subx.html#L33784'>_Primitive-loop-if-float>=</a>/imm32/next +<span id="L33784" class="LineNr">33784 </span><span class="subxMinorFunction">_Primitive-loop-if-float>=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33785" class="LineNr">33785 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33786" class="LineNr">33786 </span> 0x11/imm32/alloc-id:fake +<span id="L33787" class="LineNr">33787 </span> <a href='mu.subx.html#L34220'>_string-loop-if-float>=</a>/imm32/name +<span id="L33788" class="LineNr">33788 </span> 0/imm32/no-inouts +<span id="L33789" class="LineNr">33789 </span> 0/imm32/no-inouts +<span id="L33790" class="LineNr">33790 </span> 0/imm32/no-outputs +<span id="L33791" class="LineNr">33791 </span> 0/imm32/no-outputs +<span id="L33792" class="LineNr">33792 </span> 0x11/imm32/alloc-id:fake +<span id="L33793" class="LineNr">33793 </span> <a href='mu.subx.html#L34437'>_string_0f_83_jump_loop</a>/imm32/subx-name +<span id="L33794" class="LineNr">33794 </span> 0/imm32/no-rm32 +<span id="L33795" class="LineNr">33795 </span> 0/imm32/no-r32 +<span id="L33796" class="LineNr">33796 </span> 0/imm32/no-imm32 +<span id="L33797" class="LineNr">33797 </span> 0/imm32/no-imm8 +<span id="L33798" class="LineNr">33798 </span> 0/imm32/no-disp32 +<span id="L33799" class="LineNr">33799 </span> 0/imm32/no-xm32 +<span id="L33800" class="LineNr">33800 </span> 0/imm32/no-x32 +<span id="L33801" class="LineNr">33801 </span> 0x11/imm32/alloc-id:fake +<span id="L33802" class="LineNr">33802 </span> <a href='mu.subx.html#L33803'>_Primitive-loop-if-float<=</a>/imm32/next +<span id="L33803" class="LineNr">33803 </span><span class="subxMinorFunction">_Primitive-loop-if-float<=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33804" class="LineNr">33804 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33805" class="LineNr">33805 </span> 0x11/imm32/alloc-id:fake +<span id="L33806" class="LineNr">33806 </span> <a href='mu.subx.html#L34210'>_string-loop-if-float<=</a>/imm32/name +<span id="L33807" class="LineNr">33807 </span> 0/imm32/no-inouts +<span id="L33808" class="LineNr">33808 </span> 0/imm32/no-inouts +<span id="L33809" class="LineNr">33809 </span> 0/imm32/no-outputs +<span id="L33810" class="LineNr">33810 </span> 0/imm32/no-outputs +<span id="L33811" class="LineNr">33811 </span> 0x11/imm32/alloc-id:fake +<span id="L33812" class="LineNr">33812 </span> <a href='mu.subx.html#L34482'>_string_0f_86_jump_loop</a>/imm32/subx-name +<span id="L33813" class="LineNr">33813 </span> 0/imm32/no-rm32 +<span id="L33814" class="LineNr">33814 </span> 0/imm32/no-r32 +<span id="L33815" class="LineNr">33815 </span> 0/imm32/no-imm32 +<span id="L33816" class="LineNr">33816 </span> 0/imm32/no-imm8 +<span id="L33817" class="LineNr">33817 </span> 0/imm32/no-disp32 +<span id="L33818" class="LineNr">33818 </span> 0/imm32/no-xm32 +<span id="L33819" class="LineNr">33819 </span> 0/imm32/no-x32 +<span id="L33820" class="LineNr">33820 </span> 0x11/imm32/alloc-id:fake +<span id="L33821" class="LineNr">33821 </span> <a href='mu.subx.html#L33822'>_Primitive-loop-if-float></a>/imm32/next +<span id="L33822" class="LineNr">33822 </span><span class="subxMinorFunction">_Primitive-loop-if-float></span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33823" class="LineNr">33823 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33824" class="LineNr">33824 </span> 0x11/imm32/alloc-id:fake +<span id="L33825" class="LineNr">33825 </span> <a href='mu.subx.html#L34215'>_string-loop-if-float></a>/imm32/name +<span id="L33826" class="LineNr">33826 </span> 0/imm32/no-inouts +<span id="L33827" class="LineNr">33827 </span> 0/imm32/no-inouts +<span id="L33828" class="LineNr">33828 </span> 0/imm32/no-outputs +<span id="L33829" class="LineNr">33829 </span> 0/imm32/no-outputs +<span id="L33830" class="LineNr">33830 </span> 0x11/imm32/alloc-id:fake +<span id="L33831" class="LineNr">33831 </span> <a href='mu.subx.html#L34497'>_string_0f_87_jump_loop</a>/imm32/subx-name +<span id="L33832" class="LineNr">33832 </span> 0/imm32/no-rm32 +<span id="L33833" class="LineNr">33833 </span> 0/imm32/no-r32 +<span id="L33834" class="LineNr">33834 </span> 0/imm32/no-imm32 +<span id="L33835" class="LineNr">33835 </span> 0/imm32/no-imm8 +<span id="L33836" class="LineNr">33836 </span> 0/imm32/no-disp32 +<span id="L33837" class="LineNr">33837 </span> 0/imm32/no-xm32 +<span id="L33838" class="LineNr">33838 </span> 0/imm32/no-x32 +<span id="L33839" class="LineNr">33839 </span> 0x11/imm32/alloc-id:fake +<span id="L33840" class="LineNr">33840 </span> <a href='mu.subx.html#L33841'>_Primitive-break-if-float<-named</a>/imm32/next +<span id="L33841" class="LineNr">33841 </span><span class="subxMinorFunction">_Primitive-break-if-float<-named</span>: <span class="subxComment"># (payload primitive)</span> <span id="L33842" class="LineNr">33842 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33843" class="LineNr">33843 </span> <span class="subxComment"># "break-if-float>="</span> -<span id="L33844" class="LineNr">33844 </span> 0x10/imm32/size -<span id="L33845" class="LineNr">33845 </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="L33846" class="LineNr">33846 </span><span class="subxMinorFunction">_string-compare</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33847" class="LineNr">33847 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33848" class="LineNr">33848 </span> <span class="subxComment"># "compare"</span> -<span id="L33849" class="LineNr">33849 </span> 0x7/imm32/size -<span id="L33850" class="LineNr">33850 </span> 0x63/c 0x6f/o 0x6d/m 0x70/p 0x61/a 0x72/r 0x65/e -<span id="L33851" class="LineNr">33851 </span><span class="subxMinorFunction">_string-copy</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33852" class="LineNr">33852 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33853" class="LineNr">33853 </span> <span class="subxComment"># "copy"</span> -<span id="L33854" class="LineNr">33854 </span> 0x4/imm32/size -<span id="L33855" class="LineNr">33855 </span> 0x63/c 0x6f/o 0x70/p 0x79/y -<span id="L33856" class="LineNr">33856 </span><span class="subxMinorFunction">_string-copy-to</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33857" class="LineNr">33857 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33858" class="LineNr">33858 </span> <span class="subxComment"># "copy-to"</span> -<span id="L33859" class="LineNr">33859 </span> 0x7/imm32/size -<span id="L33860" class="LineNr">33860 </span> 0x63/c 0x6f/o 0x70/p 0x79/y 0x2d/dash 0x74/t 0x6f/o -<span id="L33861" class="LineNr">33861 </span><span class="subxMinorFunction">_string-copy-byte</span>: -<span id="L33862" class="LineNr">33862 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33863" class="LineNr">33863 </span> <span class="subxComment"># "copy-byte"</span> -<span id="L33864" class="LineNr">33864 </span> 0x9/imm32/size -<span id="L33865" class="LineNr">33865 </span> 0x63/c 0x6f/o 0x70/p 0x79/y 0x2d/- 0x62/b 0x79/y 0x74/t 0x65/e -<span id="L33866" class="LineNr">33866 </span><span class="subxMinorFunction">_string-copy-byte-to</span>: -<span id="L33867" class="LineNr">33867 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33868" class="LineNr">33868 </span> <span class="subxComment"># "copy-byte-to"</span> -<span id="L33869" class="LineNr">33869 </span> 0xc/imm32/size -<span id="L33870" class="LineNr">33870 </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="L33871" class="LineNr">33871 </span><span class="subxMinorFunction">_string-decrement</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33872" class="LineNr">33872 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33873" class="LineNr">33873 </span> <span class="subxComment"># "decrement"</span> -<span id="L33874" class="LineNr">33874 </span> 0x9/imm32/size -<span id="L33875" class="LineNr">33875 </span> 0x64/d 0x65/e 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t -<span id="L33876" class="LineNr">33876 </span><span class="subxMinorFunction">_string-increment</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33877" class="LineNr">33877 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33878" class="LineNr">33878 </span> <span class="subxComment"># "increment"</span> -<span id="L33879" class="LineNr">33879 </span> 0x9/imm32/size -<span id="L33880" class="LineNr">33880 </span> 0x69/i 0x6e/n 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t -<span id="L33881" class="LineNr">33881 </span><span class="subxMinorFunction">_string-loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33882" class="LineNr">33882 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33883" class="LineNr">33883 </span> <span class="subxComment"># "loop"</span> -<span id="L33884" class="LineNr">33884 </span> 0x4/imm32/size -<span id="L33885" class="LineNr">33885 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p -<span id="L33886" class="LineNr">33886 </span><span class="subxMinorFunction">_string-loop-if-<</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33887" class="LineNr">33887 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33888" class="LineNr">33888 </span> <span class="subxComment"># "loop-if-<"</span> -<span id="L33889" class="LineNr">33889 </span> 0x9/imm32/size -<span id="L33890" class="LineNr">33890 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< -<span id="L33891" class="LineNr">33891 </span><span class="subxMinorFunction">_string-loop-if-<=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33892" class="LineNr">33892 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33893" class="LineNr">33893 </span> <span class="subxComment"># "loop-if-<="</span> -<span id="L33894" class="LineNr">33894 </span> 0xa/imm32/size -<span id="L33895" class="LineNr">33895 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< 0x3d/= -<span id="L33896" class="LineNr">33896 </span><span class="subxMinorFunction">_string-loop-if-=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33897" class="LineNr">33897 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33898" class="LineNr">33898 </span> <span class="subxComment"># "loop-if-="</span> -<span id="L33899" class="LineNr">33899 </span> 0x9/imm32/size -<span id="L33900" class="LineNr">33900 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3d/= -<span id="L33901" class="LineNr">33901 </span><span class="subxMinorFunction">_string-loop-if-></span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33902" class="LineNr">33902 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33903" class="LineNr">33903 </span> <span class="subxComment"># "loop-if->"</span> -<span id="L33904" class="LineNr">33904 </span> 0x9/imm32/size -<span id="L33905" class="LineNr">33905 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> -<span id="L33906" class="LineNr">33906 </span><span class="subxMinorFunction">_string-loop-if->=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33907" class="LineNr">33907 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33908" class="LineNr">33908 </span> <span class="subxComment"># "loop-if->="</span> -<span id="L33909" class="LineNr">33909 </span> 0xa/imm32/size -<span id="L33910" class="LineNr">33910 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> 0x3d/= -<span id="L33911" class="LineNr">33911 </span><span class="subxMinorFunction">_string-loop-if-!=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33912" class="LineNr">33912 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33913" class="LineNr">33913 </span> <span class="subxComment"># "loop-if-!="</span> -<span id="L33914" class="LineNr">33914 </span> 0xa/imm32/size -<span id="L33915" class="LineNr">33915 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x21/! 0x3d/= -<span id="L33916" class="LineNr">33916 </span><span class="subxMinorFunction">_string-loop-if-addr<</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33917" class="LineNr">33917 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33918" class="LineNr">33918 </span> <span class="subxComment"># "loop-if-addr<"</span> -<span id="L33919" class="LineNr">33919 </span> 0xd/imm32/size -<span id="L33920" class="LineNr">33920 </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="L33921" class="LineNr">33921 </span><span class="subxMinorFunction">_string-loop-if-addr<=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33922" class="LineNr">33922 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33923" class="LineNr">33923 </span> <span class="subxComment"># "loop-if-addr<="</span> -<span id="L33924" class="LineNr">33924 </span> 0xe/imm32/size -<span id="L33925" class="LineNr">33925 </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="L33926" class="LineNr">33926 </span><span class="subxMinorFunction">_string-loop-if-addr></span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33927" class="LineNr">33927 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33928" class="LineNr">33928 </span> <span class="subxComment"># "loop-if-addr>"</span> -<span id="L33929" class="LineNr">33929 </span> 0xd/imm32/size -<span id="L33930" class="LineNr">33930 </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="L33931" class="LineNr">33931 </span><span class="subxMinorFunction">_string-loop-if-addr>=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33932" class="LineNr">33932 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33933" class="LineNr">33933 </span> <span class="subxComment"># "loop-if-addr>="</span> -<span id="L33934" class="LineNr">33934 </span> 0xe/imm32/size -<span id="L33935" class="LineNr">33935 </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="L33936" class="LineNr">33936 </span><span class="subxMinorFunction">_string-loop-if-float<</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33843" class="LineNr">33843 </span> 0x11/imm32/alloc-id:fake +<span id="L33844" class="LineNr">33844 </span> <a href='mu.subx.html#L34075'>_string-break-if-float<</a>/imm32/name +<span id="L33845" class="LineNr">33845 </span> 0x11/imm32/alloc-id:fake +<span id="L33846" class="LineNr">33846 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts +<span id="L33847" class="LineNr">33847 </span> 0/imm32/no-outputs +<span id="L33848" class="LineNr">33848 </span> 0/imm32/no-outputs +<span id="L33849" class="LineNr">33849 </span> 0x11/imm32/alloc-id:fake +<span id="L33850" class="LineNr">33850 </span> <a href='mu.subx.html#L34412'>_string_0f_82_jump_label</a>/imm32/subx-name +<span id="L33851" class="LineNr">33851 </span> 0/imm32/no-rm32 +<span id="L33852" class="LineNr">33852 </span> 0/imm32/no-r32 +<span id="L33853" class="LineNr">33853 </span> 0/imm32/no-imm32 +<span id="L33854" class="LineNr">33854 </span> 0/imm32/no-imm8 +<span id="L33855" class="LineNr">33855 </span> 1/imm32/disp32-is-first-inout +<span id="L33856" class="LineNr">33856 </span> 0/imm32/no-xm32 +<span id="L33857" class="LineNr">33857 </span> 0/imm32/no-x32 +<span id="L33858" class="LineNr">33858 </span> 0x11/imm32/alloc-id:fake +<span id="L33859" class="LineNr">33859 </span> <a href='mu.subx.html#L33860'>_Primitive-break-if-float>=-named</a>/imm32/next +<span id="L33860" class="LineNr">33860 </span><span class="subxMinorFunction">_Primitive-break-if-float>=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33861" class="LineNr">33861 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33862" class="LineNr">33862 </span> 0x11/imm32/alloc-id:fake +<span id="L33863" class="LineNr">33863 </span> <a href='mu.subx.html#L34090'>_string-break-if-float>=</a>/imm32/name +<span id="L33864" class="LineNr">33864 </span> 0x11/imm32/alloc-id:fake +<span id="L33865" class="LineNr">33865 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts +<span id="L33866" class="LineNr">33866 </span> 0/imm32/no-outputs +<span id="L33867" class="LineNr">33867 </span> 0/imm32/no-outputs +<span id="L33868" class="LineNr">33868 </span> 0x11/imm32/alloc-id:fake +<span id="L33869" class="LineNr">33869 </span> <a href='mu.subx.html#L34427'>_string_0f_83_jump_label</a>/imm32/subx-name +<span id="L33870" class="LineNr">33870 </span> 0/imm32/no-rm32 +<span id="L33871" class="LineNr">33871 </span> 0/imm32/no-r32 +<span id="L33872" class="LineNr">33872 </span> 0/imm32/no-imm32 +<span id="L33873" class="LineNr">33873 </span> 0/imm32/no-imm8 +<span id="L33874" class="LineNr">33874 </span> 1/imm32/disp32-is-first-inout +<span id="L33875" class="LineNr">33875 </span> 0/imm32/no-xm32 +<span id="L33876" class="LineNr">33876 </span> 0/imm32/no-x32 +<span id="L33877" class="LineNr">33877 </span> 0x11/imm32/alloc-id:fake +<span id="L33878" class="LineNr">33878 </span> <a href='mu.subx.html#L33879'>_Primitive-break-if-float<=-named</a>/imm32/next +<span id="L33879" class="LineNr">33879 </span><span class="subxMinorFunction">_Primitive-break-if-float<=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33880" class="LineNr">33880 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33881" class="LineNr">33881 </span> 0x11/imm32/alloc-id:fake +<span id="L33882" class="LineNr">33882 </span> <a href='mu.subx.html#L34080'>_string-break-if-float<=</a>/imm32/name +<span id="L33883" class="LineNr">33883 </span> 0x11/imm32/alloc-id:fake +<span id="L33884" class="LineNr">33884 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts +<span id="L33885" class="LineNr">33885 </span> 0/imm32/no-outputs +<span id="L33886" class="LineNr">33886 </span> 0/imm32/no-outputs +<span id="L33887" class="LineNr">33887 </span> 0x11/imm32/alloc-id:fake +<span id="L33888" class="LineNr">33888 </span> <a href='mu.subx.html#L34472'>_string_0f_86_jump_label</a>/imm32/subx-name +<span id="L33889" class="LineNr">33889 </span> 0/imm32/no-rm32 +<span id="L33890" class="LineNr">33890 </span> 0/imm32/no-r32 +<span id="L33891" class="LineNr">33891 </span> 0/imm32/no-imm32 +<span id="L33892" class="LineNr">33892 </span> 0/imm32/no-imm8 +<span id="L33893" class="LineNr">33893 </span> 1/imm32/disp32-is-first-inout +<span id="L33894" class="LineNr">33894 </span> 0/imm32/no-xm32 +<span id="L33895" class="LineNr">33895 </span> 0/imm32/no-x32 +<span id="L33896" class="LineNr">33896 </span> 0x11/imm32/alloc-id:fake +<span id="L33897" class="LineNr">33897 </span> <a href='mu.subx.html#L33898'>_Primitive-break-if-float>-named</a>/imm32/next +<span id="L33898" class="LineNr">33898 </span><span class="subxMinorFunction">_Primitive-break-if-float>-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33899" class="LineNr">33899 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33900" class="LineNr">33900 </span> 0x11/imm32/alloc-id:fake +<span id="L33901" class="LineNr">33901 </span> <a href='mu.subx.html#L34085'>_string-break-if-float></a>/imm32/name +<span id="L33902" class="LineNr">33902 </span> 0x11/imm32/alloc-id:fake +<span id="L33903" class="LineNr">33903 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts +<span id="L33904" class="LineNr">33904 </span> 0/imm32/no-outputs +<span id="L33905" class="LineNr">33905 </span> 0/imm32/no-outputs +<span id="L33906" class="LineNr">33906 </span> 0x11/imm32/alloc-id:fake +<span id="L33907" class="LineNr">33907 </span> <a href='mu.subx.html#L34487'>_string_0f_87_jump_label</a>/imm32/subx-name +<span id="L33908" class="LineNr">33908 </span> 0/imm32/no-rm32 +<span id="L33909" class="LineNr">33909 </span> 0/imm32/no-r32 +<span id="L33910" class="LineNr">33910 </span> 0/imm32/no-imm32 +<span id="L33911" class="LineNr">33911 </span> 0/imm32/no-imm8 +<span id="L33912" class="LineNr">33912 </span> 1/imm32/disp32-is-first-inout +<span id="L33913" class="LineNr">33913 </span> 0/imm32/no-xm32 +<span id="L33914" class="LineNr">33914 </span> 0/imm32/no-x32 +<span id="L33915" class="LineNr">33915 </span> 0x11/imm32/alloc-id:fake +<span id="L33916" class="LineNr">33916 </span> <a href='mu.subx.html#L33917'>_Primitive-loop-if-float<-named</a>/imm32/next +<span id="L33917" class="LineNr">33917 </span><span class="subxMinorFunction">_Primitive-loop-if-float<-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33918" class="LineNr">33918 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33919" class="LineNr">33919 </span> 0x11/imm32/alloc-id:fake +<span id="L33920" class="LineNr">33920 </span> <a href='mu.subx.html#L34205'>_string-loop-if-float<</a>/imm32/name +<span id="L33921" class="LineNr">33921 </span> 0x11/imm32/alloc-id:fake +<span id="L33922" class="LineNr">33922 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts +<span id="L33923" class="LineNr">33923 </span> 0/imm32/no-outputs +<span id="L33924" class="LineNr">33924 </span> 0/imm32/no-outputs +<span id="L33925" class="LineNr">33925 </span> 0x11/imm32/alloc-id:fake +<span id="L33926" class="LineNr">33926 </span> <a href='mu.subx.html#L34412'>_string_0f_82_jump_label</a>/imm32/subx-name +<span id="L33927" class="LineNr">33927 </span> 0/imm32/no-rm32 +<span id="L33928" class="LineNr">33928 </span> 0/imm32/no-r32 +<span id="L33929" class="LineNr">33929 </span> 0/imm32/no-imm32 +<span id="L33930" class="LineNr">33930 </span> 0/imm32/no-imm8 +<span id="L33931" class="LineNr">33931 </span> 1/imm32/disp32-is-first-inout +<span id="L33932" class="LineNr">33932 </span> 0/imm32/no-xm32 +<span id="L33933" class="LineNr">33933 </span> 0/imm32/no-x32 +<span id="L33934" class="LineNr">33934 </span> 0x11/imm32/alloc-id:fake +<span id="L33935" class="LineNr">33935 </span> <a href='mu.subx.html#L33936'>_Primitive-loop-if-float>=-named</a>/imm32/next +<span id="L33936" class="LineNr">33936 </span><span class="subxMinorFunction">_Primitive-loop-if-float>=-named</span>: <span class="subxComment"># (payload primitive)</span> <span id="L33937" class="LineNr">33937 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33938" class="LineNr">33938 </span> <span class="subxComment"># "loop-if-float<"</span> -<span id="L33939" class="LineNr">33939 </span> 0xe/imm32/size -<span id="L33940" class="LineNr">33940 </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="L33941" class="LineNr">33941 </span><span class="subxMinorFunction">_string-loop-if-float<=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33942" class="LineNr">33942 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33943" class="LineNr">33943 </span> <span class="subxComment"># "loop-if-float<="</span> -<span id="L33944" class="LineNr">33944 </span> 0xf/imm32/size -<span id="L33945" class="LineNr">33945 </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="L33946" class="LineNr">33946 </span><span class="subxMinorFunction">_string-loop-if-float></span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33947" class="LineNr">33947 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33948" class="LineNr">33948 </span> <span class="subxComment"># "loop-if-float>"</span> -<span id="L33949" class="LineNr">33949 </span> 0xe/imm32/size -<span id="L33950" class="LineNr">33950 </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="L33951" class="LineNr">33951 </span><span class="subxMinorFunction">_string-loop-if-float>=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33952" class="LineNr">33952 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33953" class="LineNr">33953 </span> <span class="subxComment"># "loop-if-float>="</span> -<span id="L33954" class="LineNr">33954 </span> 0xf/imm32/size -<span id="L33955" class="LineNr">33955 </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="L33956" class="LineNr">33956 </span><span class="subxMinorFunction">_string-multiply</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33957" class="LineNr">33957 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33958" class="LineNr">33958 </span> <span class="subxComment"># "multiply"</span> -<span id="L33959" class="LineNr">33959 </span> 0x8/imm32/size -<span id="L33960" class="LineNr">33960 </span> 0x6d/m 0x75/u 0x6c/l 0x74/t 0x69/i 0x70/p 0x6c/l 0x79/y -<span id="L33961" class="LineNr">33961 </span><span class="subxMinorFunction">_string-convert</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33962" class="LineNr">33962 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33963" class="LineNr">33963 </span> <span class="subxComment"># "convert"</span> -<span id="L33964" class="LineNr">33964 </span> 0x7/imm32/size -<span id="L33965" class="LineNr">33965 </span> 0x63/c 0x6f/o 0x6e/n 0x76/v 0x65/e 0x72/r 0x74/t -<span id="L33966" class="LineNr">33966 </span><span class="subxMinorFunction">_string-truncate</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33967" class="LineNr">33967 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33968" class="LineNr">33968 </span> <span class="subxComment"># "truncate"</span> -<span id="L33969" class="LineNr">33969 </span> 0x8/imm32/size -<span id="L33970" class="LineNr">33970 </span> 0x74/t 0x72/r 0x75/u 0x6e/n 0x63/c 0x61/a 0x74/t 0x65/e -<span id="L33971" class="LineNr">33971 </span><span class="subxMinorFunction">_string-reinterpret</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33972" class="LineNr">33972 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33973" class="LineNr">33973 </span> <span class="subxComment"># "reinterpret"</span> -<span id="L33974" class="LineNr">33974 </span> 0xb/imm32/size -<span id="L33975" class="LineNr">33975 </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="L33976" class="LineNr">33976 </span><span class="subxMinorFunction">_string-divide</span>: -<span id="L33977" class="LineNr">33977 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33978" class="LineNr">33978 </span> <span class="subxComment"># "divide"</span> -<span id="L33979" class="LineNr">33979 </span> 0x6/imm32/size -<span id="L33980" class="LineNr">33980 </span> 0x64/d 0x69/i 0x76/v 0x69/i 0x64/d 0x65/e -<span id="L33981" class="LineNr">33981 </span><span class="subxMinorFunction">_string-max</span>: -<span id="L33982" class="LineNr">33982 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33983" class="LineNr">33983 </span> <span class="subxComment"># "max"</span> -<span id="L33984" class="LineNr">33984 </span> 0x3/imm32/size -<span id="L33985" class="LineNr">33985 </span> 0x6d/m 0x61/a 0x78/x -<span id="L33986" class="LineNr">33986 </span><span class="subxMinorFunction">_string-min</span>: -<span id="L33987" class="LineNr">33987 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33988" class="LineNr">33988 </span> <span class="subxComment"># "min"</span> -<span id="L33989" class="LineNr">33989 </span> 0x3/imm32/size -<span id="L33990" class="LineNr">33990 </span> 0x6d/m 0x69/i 0x6e/n -<span id="L33991" class="LineNr">33991 </span><span class="subxMinorFunction">_string-reciprocal</span>: -<span id="L33992" class="LineNr">33992 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33993" class="LineNr">33993 </span> <span class="subxComment"># "reciprocal"</span> -<span id="L33994" class="LineNr">33994 </span> 0xa/imm32/size -<span id="L33995" class="LineNr">33995 </span> 0x72/r 0x65/e 0x63/c 0x69/i 0x70/p 0x72/r 0x6f/o 0x63/c 0x61/a 0x6c/l -<span id="L33996" class="LineNr">33996 </span><span class="subxMinorFunction">_string-square-root</span>: -<span id="L33997" class="LineNr">33997 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33998" class="LineNr">33998 </span> <span class="subxComment"># "square-root"</span> -<span id="L33999" class="LineNr">33999 </span> 0xb/imm32/size -<span id="L34000" class="LineNr">34000 </span> 0x73/s 0x71/q 0x75/u 0x61/a 0x72/r 0x65/e 0x2d/- 0x72/r 0x6f/o 0x6f/o 0x74/t -<span id="L34001" class="LineNr">34001 </span><span class="subxMinorFunction">_string-inverse-square-root</span>: -<span id="L34002" class="LineNr">34002 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34003" class="LineNr">34003 </span> <span class="subxComment"># "inverse-square-root"</span> -<span id="L34004" class="LineNr">34004 </span> 0x13/imm32/size -<span id="L34005" class="LineNr">34005 </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="L34006" class="LineNr">34006 </span><span class="subxMinorFunction">_string-negate</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34007" class="LineNr">34007 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34008" class="LineNr">34008 </span> <span class="subxComment"># "negate"</span> -<span id="L34009" class="LineNr">34009 </span> 0x6/imm32/size -<span id="L34010" class="LineNr">34010 </span> 0x6e/n 0x65/e 0x67/g 0x61/a 0x74/t 0x65/e -<span id="L34011" class="LineNr">34011 </span><span class="subxMinorFunction">_string-or</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34012" class="LineNr">34012 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34013" class="LineNr">34013 </span> <span class="subxComment"># "or"</span> -<span id="L34014" class="LineNr">34014 </span> 0x2/imm32/size -<span id="L34015" class="LineNr">34015 </span> 0x6f/o 0x72/r -<span id="L34016" class="LineNr">34016 </span><span class="subxMinorFunction">_string-or-with</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34017" class="LineNr">34017 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34018" class="LineNr">34018 </span> <span class="subxComment"># "or-with"</span> -<span id="L34019" class="LineNr">34019 </span> 0x7/imm32/size -<span id="L34020" class="LineNr">34020 </span> 0x6f/o 0x72/r 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h -<span id="L34021" class="LineNr">34021 </span><span class="subxMinorFunction">_string-subtract</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34022" class="LineNr">34022 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34023" class="LineNr">34023 </span> <span class="subxComment"># "subtract"</span> -<span id="L34024" class="LineNr">34024 </span> 0x8/imm32/size -<span id="L34025" class="LineNr">34025 </span> 0x73/s 0x75/u 0x62/b 0x74/t 0x72/r 0x61/a 0x63/c 0x74/t -<span id="L34026" class="LineNr">34026 </span><span class="subxMinorFunction">_string-subtract-from</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34027" class="LineNr">34027 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34028" class="LineNr">34028 </span> <span class="subxComment"># "subtract-from"</span> -<span id="L34029" class="LineNr">34029 </span> 0xd/imm32/size -<span id="L34030" class="LineNr">34030 </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="L34031" class="LineNr">34031 </span><span class="subxMinorFunction">_string-xor</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34032" class="LineNr">34032 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34033" class="LineNr">34033 </span> <span class="subxComment"># "xor"</span> -<span id="L34034" class="LineNr">34034 </span> 0x3/imm32/size -<span id="L34035" class="LineNr">34035 </span> 0x78/x 0x6f/o 0x72/r -<span id="L34036" class="LineNr">34036 </span><span class="subxMinorFunction">_string-xor-with</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34037" class="LineNr">34037 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34038" class="LineNr">34038 </span> <span class="subxComment"># "xor-with"</span> -<span id="L34039" class="LineNr">34039 </span> 0x8/imm32/size -<span id="L34040" class="LineNr">34040 </span> 0x78/x 0x6f/o 0x72/r 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h -<span id="L34041" class="LineNr">34041 </span><span class="subxMinorFunction">_string-shift-left</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34042" class="LineNr">34042 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34043" class="LineNr">34043 </span> <span class="subxComment"># "shift-left"</span> -<span id="L34044" class="LineNr">34044 </span> 0xa/imm32/size -<span id="L34045" class="LineNr">34045 </span> 0x73/s 0x68/h 0x69/i 0x66/f 0x74/t 0x2d/dash 0x6c/l 0x65/e 0x66/f 0x74/t -<span id="L34046" class="LineNr">34046 </span><span class="subxMinorFunction">_string-shift-right</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34047" class="LineNr">34047 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34048" class="LineNr">34048 </span> <span class="subxComment"># "shift-right"</span> -<span id="L34049" class="LineNr">34049 </span> 0xb/imm32/size -<span id="L34050" class="LineNr">34050 </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="L34051" class="LineNr">34051 </span><span class="subxMinorFunction">_string-shift-right-signed</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34052" class="LineNr">34052 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34053" class="LineNr">34053 </span> <span class="subxComment"># "shift-right-signed"</span> -<span id="L34054" class="LineNr">34054 </span> 0x12/imm32/size -<span id="L34055" class="LineNr">34055 </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="L34056" class="LineNr">34056 </span> -<span id="L34057" class="LineNr">34057 </span><span class="subxComment"># string literals for SubX instructions</span> -<span id="L34058" class="LineNr">34058 </span><span class="subxMinorFunction">_string_01_add_to</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34059" class="LineNr">34059 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34060" class="LineNr">34060 </span> <span class="subxComment"># "01/add-to"</span> -<span id="L34061" class="LineNr">34061 </span> 0x9/imm32/size -<span id="L34062" class="LineNr">34062 </span> 0x30/0 0x31/1 0x2f/slash 0x61/a 0x64/d 0x64/d 0x2d/dash 0x74/t 0x6f/o -<span id="L34063" class="LineNr">34063 </span><span class="subxMinorFunction">_string_03_add</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34064" class="LineNr">34064 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34065" class="LineNr">34065 </span> <span class="subxComment"># "03/add"</span> -<span id="L34066" class="LineNr">34066 </span> 0x6/imm32/size -<span id="L34067" class="LineNr">34067 </span> 0x30/0 0x33/3 0x2f/slash 0x61/a 0x64/d 0x64/d -<span id="L34068" class="LineNr">34068 </span><span class="subxMinorFunction">_string_05_add_to_eax</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34069" class="LineNr">34069 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34070" class="LineNr">34070 </span> <span class="subxComment"># "05/add-to-eax"</span> -<span id="L34071" class="LineNr">34071 </span> 0xd/imm32/size -<span id="L34072" class="LineNr">34072 </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="L34073" class="LineNr">34073 </span><span class="subxMinorFunction">_string_09_or_with</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34074" class="LineNr">34074 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34075" class="LineNr">34075 </span> <span class="subxComment"># "09/or-with"</span> -<span id="L34076" class="LineNr">34076 </span> 0xa/imm32/size -<span id="L34077" class="LineNr">34077 </span> 0x30/0 0x39/9 0x2f/slash 0x6f/o 0x72/r 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h -<span id="L34078" class="LineNr">34078 </span><span class="subxMinorFunction">_string_0b_or</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34079" class="LineNr">34079 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34080" class="LineNr">34080 </span> <span class="subxComment"># "0b/or"</span> -<span id="L34081" class="LineNr">34081 </span> 0x5/imm32/size -<span id="L34082" class="LineNr">34082 </span> 0x30/0 0x62/b 0x2f/slash 0x6f/o 0x72/r -<span id="L34083" class="LineNr">34083 </span><span class="subxMinorFunction">_string_0d_or_with_eax</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34084" class="LineNr">34084 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34085" class="LineNr">34085 </span> <span class="subxComment"># "0d/or-with-eax"</span> -<span id="L34086" class="LineNr">34086 </span> 0xe/imm32/size -<span id="L34087" class="LineNr">34087 </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="L34088" class="LineNr">34088 </span><span class="subxMinorFunction">_string_0f_82_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34089" class="LineNr">34089 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34090" class="LineNr">34090 </span> <span class="subxComment"># "0f 82/jump-if-addr<"</span> -<span id="L34091" class="LineNr">34091 </span> 0x13/imm32/size -<span id="L34092" class="LineNr">34092 </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="L34093" class="LineNr">34093 </span><span class="subxMinorFunction">_string_0f_82_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34094" class="LineNr">34094 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34095" class="LineNr">34095 </span> <span class="subxComment"># "0f 82/jump-if-addr< break/disp32"</span> -<span id="L34096" class="LineNr">34096 </span> 0x20/imm32/size -<span id="L34097" class="LineNr">34097 </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="L34098" class="LineNr">34098 </span><span class="subxMinorFunction">_string_0f_82_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34099" class="LineNr">34099 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34100" class="LineNr">34100 </span> <span class="subxComment"># "0f 82/jump-if-addr< loop/disp32"</span> -<span id="L34101" class="LineNr">34101 </span> 0x1f/imm32/size -<span id="L34102" class="LineNr">34102 </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="L34103" class="LineNr">34103 </span><span class="subxMinorFunction">_string_0f_83_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34104" class="LineNr">34104 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34105" class="LineNr">34105 </span> <span class="subxComment"># "0f 83/jump-if-addr>="</span> -<span id="L34106" class="LineNr">34106 </span> 0x14/imm32/size -<span id="L34107" class="LineNr">34107 </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="L34108" class="LineNr">34108 </span><span class="subxMinorFunction">_string_0f_83_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34109" class="LineNr">34109 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34110" class="LineNr">34110 </span> <span class="subxComment"># "0f 83/jump-if-addr>= break/disp32"</span> -<span id="L34111" class="LineNr">34111 </span> 0x21/imm32/size -<span id="L34112" class="LineNr">34112 </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="L34113" class="LineNr">34113 </span><span class="subxMinorFunction">_string_0f_83_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34114" class="LineNr">34114 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34115" class="LineNr">34115 </span> <span class="subxComment"># "0f 83/jump-if-addr>= loop/disp32"</span> -<span id="L34116" class="LineNr">34116 </span> 0x20/imm32/size -<span id="L34117" class="LineNr">34117 </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="L34118" class="LineNr">34118 </span><span class="subxMinorFunction">_string_0f_84_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34119" class="LineNr">34119 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34120" class="LineNr">34120 </span> <span class="subxComment"># "0f 84/jump-if-="</span> -<span id="L34121" class="LineNr">34121 </span> 0xf/imm32/size -<span id="L34122" class="LineNr">34122 </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="L34123" class="LineNr">34123 </span><span class="subxMinorFunction">_string_0f_84_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34124" class="LineNr">34124 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34125" class="LineNr">34125 </span> <span class="subxComment"># "0f 84/jump-if-= break/disp32"</span> -<span id="L34126" class="LineNr">34126 </span> 0x1c/imm32/size -<span id="L34127" class="LineNr">34127 </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="L34128" class="LineNr">34128 </span><span class="subxMinorFunction">_string_0f_84_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34129" class="LineNr">34129 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34130" class="LineNr">34130 </span> <span class="subxComment"># "0f 84/jump-if-= loop/disp32"</span> -<span id="L34131" class="LineNr">34131 </span> 0x1b/imm32/size -<span id="L34132" class="LineNr">34132 </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="L34133" class="LineNr">34133 </span><span class="subxMinorFunction">_string_0f_85_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34134" class="LineNr">34134 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34135" class="LineNr">34135 </span> <span class="subxComment"># "0f 85/jump-if-!="</span> -<span id="L34136" class="LineNr">34136 </span> 0x10/imm32/size -<span id="L34137" class="LineNr">34137 </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="L34138" class="LineNr">34138 </span><span class="subxMinorFunction">_string_0f_85_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34139" class="LineNr">34139 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34140" class="LineNr">34140 </span> <span class="subxComment"># "0f 85/jump-if-!= break/disp32"</span> -<span id="L34141" class="LineNr">34141 </span> 0x1d/imm32/size -<span id="L34142" class="LineNr">34142 </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="L34143" class="LineNr">34143 </span><span class="subxMinorFunction">_string_0f_85_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34144" class="LineNr">34144 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34145" class="LineNr">34145 </span> <span class="subxComment"># "0f 85/jump-if-!= loop/disp32"</span> -<span id="L34146" class="LineNr">34146 </span> 0x1c/imm32/size -<span id="L34147" class="LineNr">34147 </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="L34148" class="LineNr">34148 </span><span class="subxMinorFunction">_string_0f_86_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34149" class="LineNr">34149 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34150" class="LineNr">34150 </span> <span class="subxComment"># "0f 86/jump-if-addr<="</span> -<span id="L34151" class="LineNr">34151 </span> 0x14/imm32/size -<span id="L34152" class="LineNr">34152 </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="L34153" class="LineNr">34153 </span><span class="subxMinorFunction">_string_0f_86_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34154" class="LineNr">34154 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34155" class="LineNr">34155 </span> <span class="subxComment"># "0f 86/jump-if-addr<= break/disp32"</span> -<span id="L34156" class="LineNr">34156 </span> 0x21/imm32/size -<span id="L34157" class="LineNr">34157 </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="L34158" class="LineNr">34158 </span><span class="subxMinorFunction">_string_0f_86_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34159" class="LineNr">34159 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34160" class="LineNr">34160 </span> <span class="subxComment"># "0f 86/jump-if-addr<= loop/disp32"</span> -<span id="L34161" class="LineNr">34161 </span> 0x20/imm32/size -<span id="L34162" class="LineNr">34162 </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="L34163" class="LineNr">34163 </span><span class="subxMinorFunction">_string_0f_87_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34164" class="LineNr">34164 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34165" class="LineNr">34165 </span> <span class="subxComment"># "0f 87/jump-if-addr>"</span> -<span id="L34166" class="LineNr">34166 </span> 0x13/imm32/size -<span id="L34167" class="LineNr">34167 </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="L34168" class="LineNr">34168 </span><span class="subxMinorFunction">_string_0f_87_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34169" class="LineNr">34169 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34170" class="LineNr">34170 </span> <span class="subxComment"># "0f 87/jump-if-addr> break/disp32"</span> -<span id="L34171" class="LineNr">34171 </span> 0x20/imm32/size -<span id="L34172" class="LineNr">34172 </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="L34173" class="LineNr">34173 </span><span class="subxMinorFunction">_string_0f_87_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34174" class="LineNr">34174 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34175" class="LineNr">34175 </span> <span class="subxComment"># "0f 87/jump-if-addr> loop/disp32"</span> -<span id="L34176" class="LineNr">34176 </span> 0x1f/imm32/size -<span id="L34177" class="LineNr">34177 </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="L34178" class="LineNr">34178 </span><span class="subxMinorFunction">_string_0f_8c_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34179" class="LineNr">34179 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34180" class="LineNr">34180 </span> <span class="subxComment"># "0f 8c/jump-if-<"</span> -<span id="L34181" class="LineNr">34181 </span> 0xf/imm32/size -<span id="L34182" class="LineNr">34182 </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="L34183" class="LineNr">34183 </span><span class="subxMinorFunction">_string_0f_8c_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34184" class="LineNr">34184 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34185" class="LineNr">34185 </span> <span class="subxComment"># "0f 8c/jump-if-< break/disp32"</span> -<span id="L34186" class="LineNr">34186 </span> 0x1c/imm32/size -<span id="L34187" class="LineNr">34187 </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="L34188" class="LineNr">34188 </span><span class="subxMinorFunction">_string_0f_8c_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34189" class="LineNr">34189 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34190" class="LineNr">34190 </span> <span class="subxComment"># "0f 8c/jump-if-< loop/disp32"</span> -<span id="L34191" class="LineNr">34191 </span> 0x1b/imm32/size -<span id="L34192" class="LineNr">34192 </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="L34193" class="LineNr">34193 </span><span class="subxMinorFunction">_string_0f_8d_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34194" class="LineNr">34194 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34195" class="LineNr">34195 </span> <span class="subxComment"># "0f 8d/jump-if->="</span> -<span id="L34196" class="LineNr">34196 </span> 0x10/imm32/size -<span id="L34197" class="LineNr">34197 </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="L34198" class="LineNr">34198 </span><span class="subxMinorFunction">_string_0f_8d_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34199" class="LineNr">34199 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34200" class="LineNr">34200 </span> <span class="subxComment"># "0f 8d/jump-if->= break/disp32"</span> -<span id="L34201" class="LineNr">34201 </span> 0x1d/imm32/size -<span id="L34202" class="LineNr">34202 </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="L34203" class="LineNr">34203 </span><span class="subxMinorFunction">_string_0f_8d_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34204" class="LineNr">34204 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34205" class="LineNr">34205 </span> <span class="subxComment"># "0f 8d/jump-if->= loop/disp32"</span> -<span id="L34206" class="LineNr">34206 </span> 0x1c/imm32/size -<span id="L34207" class="LineNr">34207 </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="L34208" class="LineNr">34208 </span><span class="subxMinorFunction">_string_0f_8e_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34209" class="LineNr">34209 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34210" class="LineNr">34210 </span> <span class="subxComment"># "0f 8e/jump-if-<="</span> -<span id="L34211" class="LineNr">34211 </span> 0x10/imm32/size -<span id="L34212" class="LineNr">34212 </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="L34213" class="LineNr">34213 </span><span class="subxMinorFunction">_string_0f_8e_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34214" class="LineNr">34214 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34215" class="LineNr">34215 </span> <span class="subxComment"># "0f 8e/jump-if-<= break/disp32"</span> -<span id="L34216" class="LineNr">34216 </span> 0x1d/imm32/size -<span id="L34217" class="LineNr">34217 </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="L34218" class="LineNr">34218 </span><span class="subxMinorFunction">_string_0f_8e_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34219" class="LineNr">34219 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34220" class="LineNr">34220 </span> <span class="subxComment"># "0f 8e/jump-if-<= loop/disp32"</span> -<span id="L34221" class="LineNr">34221 </span> 0x1c/imm32/size -<span id="L34222" class="LineNr">34222 </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="L34223" class="LineNr">34223 </span><span class="subxMinorFunction">_string_0f_8f_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34224" class="LineNr">34224 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34225" class="LineNr">34225 </span> <span class="subxComment"># "0f 8f/jump-if->"</span> -<span id="L34226" class="LineNr">34226 </span> 0xf/imm32/size -<span id="L34227" class="LineNr">34227 </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="L34228" class="LineNr">34228 </span><span class="subxMinorFunction">_string_0f_8f_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34229" class="LineNr">34229 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34230" class="LineNr">34230 </span> <span class="subxComment"># "0f 8f/jump-if-> break/disp32"</span> -<span id="L34231" class="LineNr">34231 </span> 0x1c/imm32/size -<span id="L34232" class="LineNr">34232 </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="L34233" class="LineNr">34233 </span><span class="subxMinorFunction">_string_0f_8f_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34234" class="LineNr">34234 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34235" class="LineNr">34235 </span> <span class="subxComment"># "0f 8f/jump-if-> loop/disp32"</span> -<span id="L34236" class="LineNr">34236 </span> 0x1b/imm32/size -<span id="L34237" class="LineNr">34237 </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="L34238" class="LineNr">34238 </span><span class="subxMinorFunction">_string_0f_af_multiply</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34239" class="LineNr">34239 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34240" class="LineNr">34240 </span> <span class="subxComment"># "0f af/multiply"</span> -<span id="L34241" class="LineNr">34241 </span> 0xe/imm32/size -<span id="L34242" class="LineNr">34242 </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="L34243" class="LineNr">34243 </span><span class="subxMinorFunction">_string_f3_0f_2a_convert_to_float</span>: -<span id="L34244" class="LineNr">34244 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34245" class="LineNr">34245 </span> <span class="subxComment"># "f3 0f 2a/convert-to-float"</span> -<span id="L34246" class="LineNr">34246 </span> 0x19/imm32/size -<span id="L34247" class="LineNr">34247 </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="L34248" class="LineNr">34248 </span><span class="subxMinorFunction">_string_f3_0f_2d_convert_to_int</span>: -<span id="L34249" class="LineNr">34249 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34250" class="LineNr">34250 </span> <span class="subxComment"># "f3 0f 2d/convert-to-int"</span> -<span id="L34251" class="LineNr">34251 </span> 0x17/imm32/size -<span id="L34252" class="LineNr">34252 </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="L34253" class="LineNr">34253 </span><span class="subxMinorFunction">_string_f3_0f_2c_truncate_to_int</span>: -<span id="L34254" class="LineNr">34254 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34255" class="LineNr">34255 </span> <span class="subxComment"># "f3 0f 2c/truncate-to-int"</span> -<span id="L34256" class="LineNr">34256 </span> 0x18/imm32/size -<span id="L34257" class="LineNr">34257 </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="L34258" class="LineNr">34258 </span><span class="subxMinorFunction">_string_f3_0f_58_add</span>: -<span id="L34259" class="LineNr">34259 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34260" class="LineNr">34260 </span> <span class="subxComment"># "f3 0f 58/add"</span> -<span id="L34261" class="LineNr">34261 </span> 0xc/imm32/size -<span id="L34262" class="LineNr">34262 </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="L34263" class="LineNr">34263 </span><span class="subxMinorFunction">_string_f3_0f_5c_subtract</span>: -<span id="L34264" class="LineNr">34264 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34265" class="LineNr">34265 </span> <span class="subxComment"># "f3 0f 5c/subtract"</span> -<span id="L34266" class="LineNr">34266 </span> 0x11/imm32/size -<span id="L34267" class="LineNr">34267 </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="L34268" class="LineNr">34268 </span><span class="subxMinorFunction">_string_f3_0f_59_multiply</span>: -<span id="L34269" class="LineNr">34269 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34270" class="LineNr">34270 </span> <span class="subxComment"># "f3 0f 59/multiply"</span> -<span id="L34271" class="LineNr">34271 </span> 0x11/imm32/size -<span id="L34272" class="LineNr">34272 </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="L34273" class="LineNr">34273 </span><span class="subxMinorFunction">_string_f3_0f_5e_divide</span>: -<span id="L34274" class="LineNr">34274 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34275" class="LineNr">34275 </span> <span class="subxComment"># "f3 0f 5e/divide"</span> -<span id="L34276" class="LineNr">34276 </span> 0xf/imm32/size -<span id="L34277" class="LineNr">34277 </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="L34278" class="LineNr">34278 </span><span class="subxMinorFunction">_string_f3_0f_53_reciprocal</span>: -<span id="L34279" class="LineNr">34279 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34280" class="LineNr">34280 </span> <span class="subxComment"># "f3 0f 53/reciprocal"</span> -<span id="L34281" class="LineNr">34281 </span> 0x13/imm32/size -<span id="L34282" class="LineNr">34282 </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="L34283" class="LineNr">34283 </span><span class="subxMinorFunction">_string_f3_0f_51_square_root</span>: -<span id="L34284" class="LineNr">34284 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34285" class="LineNr">34285 </span> <span class="subxComment"># "f3 0f 51/square-root"</span> -<span id="L34286" class="LineNr">34286 </span> 0x14/imm32/size -<span id="L34287" class="LineNr">34287 </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="L34288" class="LineNr">34288 </span><span class="subxMinorFunction">_string_f3_0f_52_inverse_square_root</span>: -<span id="L34289" class="LineNr">34289 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34290" class="LineNr">34290 </span> <span class="subxComment"># "f3 0f 52/inverse-square-root"</span> -<span id="L34291" class="LineNr">34291 </span> 0x1c/imm32/size -<span id="L34292" class="LineNr">34292 </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="L34293" class="LineNr">34293 </span><span class="subxMinorFunction">_string_f3_0f_5d_min</span>: -<span id="L34294" class="LineNr">34294 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34295" class="LineNr">34295 </span> <span class="subxComment"># "f3 0f 5d/min"</span> -<span id="L34296" class="LineNr">34296 </span> 0xc/imm32/size -<span id="L34297" class="LineNr">34297 </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="L34298" class="LineNr">34298 </span><span class="subxMinorFunction">_string_f3_0f_5f_max</span>: -<span id="L34299" class="LineNr">34299 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34300" class="LineNr">34300 </span> <span class="subxComment"># "f3 0f 5f/max"</span> -<span id="L34301" class="LineNr">34301 </span> 0xc/imm32/size -<span id="L34302" class="LineNr">34302 </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="L34303" class="LineNr">34303 </span><span class="subxMinorFunction">_string_f3_0f_10_copy</span>: -<span id="L34304" class="LineNr">34304 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34305" class="LineNr">34305 </span> <span class="subxComment"># "f3 0f 10/copy"</span> -<span id="L34306" class="LineNr">34306 </span> 0xd/imm32/size -<span id="L34307" class="LineNr">34307 </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="L34308" class="LineNr">34308 </span><span class="subxMinorFunction">_string_f3_0f_11_copy</span>: -<span id="L34309" class="LineNr">34309 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34310" class="LineNr">34310 </span> <span class="subxComment"># "f3 0f 11/copy"</span> -<span id="L34311" class="LineNr">34311 </span> 0xd/imm32/size -<span id="L34312" class="LineNr">34312 </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="L34313" class="LineNr">34313 </span><span class="subxMinorFunction">_string_0f_2f_compare</span>: -<span id="L34314" class="LineNr">34314 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34315" class="LineNr">34315 </span> <span class="subxComment"># "0f 2f/compare"</span> -<span id="L34316" class="LineNr">34316 </span> 0xd/imm32/size -<span id="L34317" class="LineNr">34317 </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="L34318" class="LineNr">34318 </span><span class="subxMinorFunction">_string_21_and_with</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34319" class="LineNr">34319 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34320" class="LineNr">34320 </span> <span class="subxComment"># "21/and-with"</span> -<span id="L34321" class="LineNr">34321 </span> 0xb/imm32/size -<span id="L34322" class="LineNr">34322 </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="L34323" class="LineNr">34323 </span><span class="subxMinorFunction">_string_23_and</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34324" class="LineNr">34324 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34325" class="LineNr">34325 </span> <span class="subxComment"># "23/and"</span> -<span id="L34326" class="LineNr">34326 </span> 0x6/imm32/size -<span id="L34327" class="LineNr">34327 </span> 0x32/2 0x33/3 0x2f/slash 0x61/a 0x6e/n 0x64/d -<span id="L34328" class="LineNr">34328 </span><span class="subxMinorFunction">_string_25_and_with_eax</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34329" class="LineNr">34329 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34330" class="LineNr">34330 </span> <span class="subxComment"># "25/and-with-eax"</span> -<span id="L34331" class="LineNr">34331 </span> 0xf/imm32/size -<span id="L34332" class="LineNr">34332 </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="L34333" class="LineNr">34333 </span><span class="subxMinorFunction">_string_29_subtract_from</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34334" class="LineNr">34334 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34335" class="LineNr">34335 </span> <span class="subxComment"># "29/subtract-from"</span> -<span id="L34336" class="LineNr">34336 </span> 0x10/imm32/size -<span id="L34337" class="LineNr">34337 </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="L34338" class="LineNr">34338 </span><span class="subxMinorFunction">_string_2b_subtract</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34339" class="LineNr">34339 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34340" class="LineNr">34340 </span> <span class="subxComment"># "2b/subtract"</span> -<span id="L34341" class="LineNr">34341 </span> 0xb/imm32/size -<span id="L34342" class="LineNr">34342 </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="L34343" class="LineNr">34343 </span><span class="subxMinorFunction">_string_2d_subtract_from_eax</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34344" class="LineNr">34344 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34345" class="LineNr">34345 </span> <span class="subxComment"># "2d/subtract-from-eax"</span> -<span id="L34346" class="LineNr">34346 </span> 0x14/imm32/size -<span id="L34347" class="LineNr">34347 </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="L34348" class="LineNr">34348 </span><span class="subxMinorFunction">_string_31_xor_with</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34349" class="LineNr">34349 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34350" class="LineNr">34350 </span> <span class="subxComment"># "31/xor-with"</span> -<span id="L34351" class="LineNr">34351 </span> 0xb/imm32/size -<span id="L34352" class="LineNr">34352 </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="L34353" class="LineNr">34353 </span><span class="subxMinorFunction">_string_33_xor</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34354" class="LineNr">34354 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34355" class="LineNr">34355 </span> <span class="subxComment"># "33/xor"</span> -<span id="L34356" class="LineNr">34356 </span> 0x6/imm32/size -<span id="L34357" class="LineNr">34357 </span> 0x33/3 0x33/3 0x2f/slash 0x78/x 0x6f/o 0x72/r -<span id="L34358" class="LineNr">34358 </span><span class="subxMinorFunction">_string_35_xor_with_eax</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34359" class="LineNr">34359 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34360" class="LineNr">34360 </span> <span class="subxComment"># "35/xor-with-eax"</span> -<span id="L34361" class="LineNr">34361 </span> 0xf/imm32/size -<span id="L34362" class="LineNr">34362 </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="L34363" class="LineNr">34363 </span><span class="subxMinorFunction">_string_39_compare-></span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34364" class="LineNr">34364 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34365" class="LineNr">34365 </span> <span class="subxComment"># "39/compare->"</span> -<span id="L34366" class="LineNr">34366 </span> 0xc/imm32/size -<span id="L34367" class="LineNr">34367 </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="L34368" class="LineNr">34368 </span><span class="subxMinorFunction">_string_3b_compare<-</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34369" class="LineNr">34369 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34370" class="LineNr">34370 </span> <span class="subxComment"># "3b/compare<-"</span> -<span id="L34371" class="LineNr">34371 </span> 0xc/imm32/size -<span id="L34372" class="LineNr">34372 </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="L34373" class="LineNr">34373 </span><span class="subxMinorFunction">_string_3d_compare_eax_with</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34374" class="LineNr">34374 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34375" class="LineNr">34375 </span> <span class="subxComment"># "3d/compare-eax-with"</span> -<span id="L34376" class="LineNr">34376 </span> 0x13/imm32/size -<span id="L34377" class="LineNr">34377 </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="L34378" class="LineNr">34378 </span><span class="subxMinorFunction">_string_40_increment_eax</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34379" class="LineNr">34379 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34380" class="LineNr">34380 </span> <span class="subxComment"># "40/increment-eax"</span> -<span id="L34381" class="LineNr">34381 </span> 0x10/imm32/size -<span id="L34382" class="LineNr">34382 </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="L34383" class="LineNr">34383 </span><span class="subxMinorFunction">_string_41_increment_ecx</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34384" class="LineNr">34384 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34385" class="LineNr">34385 </span> <span class="subxComment"># "41/increment-ecx"</span> -<span id="L34386" class="LineNr">34386 </span> 0x10/imm32/size -<span id="L34387" class="LineNr">34387 </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="L34388" class="LineNr">34388 </span><span class="subxMinorFunction">_string_42_increment_edx</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34389" class="LineNr">34389 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34390" class="LineNr">34390 </span> <span class="subxComment"># "42/increment-edx"</span> -<span id="L34391" class="LineNr">34391 </span> 0x10/imm32/size -<span id="L34392" class="LineNr">34392 </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="L34393" class="LineNr">34393 </span><span class="subxMinorFunction">_string_43_increment_ebx</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34394" class="LineNr">34394 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34395" class="LineNr">34395 </span> <span class="subxComment"># "43/increment-ebx"</span> -<span id="L34396" class="LineNr">34396 </span> 0x10/imm32/size -<span id="L34397" class="LineNr">34397 </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="L34398" class="LineNr">34398 </span><span class="subxMinorFunction">_string_46_increment_esi</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34399" class="LineNr">34399 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34400" class="LineNr">34400 </span> <span class="subxComment"># "46/increment-esi"</span> -<span id="L34401" class="LineNr">34401 </span> 0x10/imm32/size -<span id="L34402" class="LineNr">34402 </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="L34403" class="LineNr">34403 </span><span class="subxMinorFunction">_string_47_increment_edi</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34404" class="LineNr">34404 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34405" class="LineNr">34405 </span> <span class="subxComment"># "47/increment-edi"</span> -<span id="L34406" class="LineNr">34406 </span> 0x10/imm32/size -<span id="L34407" class="LineNr">34407 </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="L34408" class="LineNr">34408 </span><span class="subxMinorFunction">_string_48_decrement_eax</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34409" class="LineNr">34409 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34410" class="LineNr">34410 </span> <span class="subxComment"># "48/decrement-eax"</span> -<span id="L34411" class="LineNr">34411 </span> 0x10/imm32/size -<span id="L34412" class="LineNr">34412 </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="L34413" class="LineNr">34413 </span><span class="subxMinorFunction">_string_49_decrement_ecx</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34414" class="LineNr">34414 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34415" class="LineNr">34415 </span> <span class="subxComment"># "49/decrement-ecx"</span> -<span id="L34416" class="LineNr">34416 </span> 0x10/imm32/size -<span id="L34417" class="LineNr">34417 </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="L34418" class="LineNr">34418 </span><span class="subxMinorFunction">_string_4a_decrement_edx</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34419" class="LineNr">34419 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34420" class="LineNr">34420 </span> <span class="subxComment"># "4a/decrement-edx"</span> -<span id="L34421" class="LineNr">34421 </span> 0x10/imm32/size -<span id="L34422" class="LineNr">34422 </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="L34423" class="LineNr">34423 </span><span class="subxMinorFunction">_string_4b_decrement_ebx</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34424" class="LineNr">34424 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34425" class="LineNr">34425 </span> <span class="subxComment"># "4b/decrement-ebx"</span> -<span id="L34426" class="LineNr">34426 </span> 0x10/imm32/size -<span id="L34427" class="LineNr">34427 </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="L34428" class="LineNr">34428 </span><span class="subxMinorFunction">_string_4e_decrement_esi</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34429" class="LineNr">34429 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34430" class="LineNr">34430 </span> <span class="subxComment"># "4e/decrement-esi"</span> -<span id="L34431" class="LineNr">34431 </span> 0x10/imm32/size -<span id="L34432" class="LineNr">34432 </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="L34433" class="LineNr">34433 </span><span class="subxMinorFunction">_string_4f_decrement_edi</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34434" class="LineNr">34434 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34435" class="LineNr">34435 </span> <span class="subxComment"># "4f/decrement-edi"</span> -<span id="L34436" class="LineNr">34436 </span> 0x10/imm32/size -<span id="L34437" class="LineNr">34437 </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="L34438" class="LineNr">34438 </span><span class="subxMinorFunction">_string_81_subop_add</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34439" class="LineNr">34439 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34440" class="LineNr">34440 </span> <span class="subxComment"># "81 0/subop/add"</span> -<span id="L34441" class="LineNr">34441 </span> 0xe/imm32/size -<span id="L34442" class="LineNr">34442 </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="L34443" class="LineNr">34443 </span><span class="subxMinorFunction">_string_81_subop_or</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34444" class="LineNr">34444 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34445" class="LineNr">34445 </span> <span class="subxComment"># "81 1/subop/or"</span> -<span id="L34446" class="LineNr">34446 </span> 0xd/imm32/size -<span id="L34447" class="LineNr">34447 </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="L34448" class="LineNr">34448 </span><span class="subxMinorFunction">_string_81_subop_and</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34449" class="LineNr">34449 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34450" class="LineNr">34450 </span> <span class="subxComment"># "81 4/subop/and"</span> -<span id="L34451" class="LineNr">34451 </span> 0xe/imm32/size -<span id="L34452" class="LineNr">34452 </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="L34453" class="LineNr">34453 </span><span class="subxMinorFunction">_string_81_subop_subtract</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34454" class="LineNr">34454 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34455" class="LineNr">34455 </span> <span class="subxComment"># "81 5/subop/subtract"</span> -<span id="L34456" class="LineNr">34456 </span> 0x13/imm32/size -<span id="L34457" class="LineNr">34457 </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="L34458" class="LineNr">34458 </span><span class="subxMinorFunction">_string_81_subop_xor</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34459" class="LineNr">34459 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34460" class="LineNr">34460 </span> <span class="subxComment"># "81 6/subop/xor"</span> -<span id="L34461" class="LineNr">34461 </span> 0xe/imm32/size -<span id="L34462" class="LineNr">34462 </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="L34463" class="LineNr">34463 </span><span class="subxMinorFunction">_string_81_subop_compare</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34464" class="LineNr">34464 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34465" class="LineNr">34465 </span> <span class="subxComment"># "81 7/subop/compare"</span> -<span id="L34466" class="LineNr">34466 </span> 0x12/imm32/size -<span id="L34467" class="LineNr">34467 </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="L34468" class="LineNr">34468 </span><span class="subxMinorFunction">_string_89_<-</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34469" class="LineNr">34469 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34470" class="LineNr">34470 </span> <span class="subxComment"># "89/<-"</span> -<span id="L34471" class="LineNr">34471 </span> 0x5/imm32/size -<span id="L34472" class="LineNr">34472 </span> 0x38/8 0x39/9 0x2f/slash 0x3c/< 0x2d/dash -<span id="L34473" class="LineNr">34473 </span><span class="subxMinorFunction">_string_8b_-></span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34474" class="LineNr">34474 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34475" class="LineNr">34475 </span> <span class="subxComment"># "8b/->"</span> -<span id="L34476" class="LineNr">34476 </span> 0x5/imm32/size -<span id="L34477" class="LineNr">34477 </span> 0x38/8 0x62/b 0x2f/slash 0x2d/dash 0x3e/> -<span id="L34478" class="LineNr">34478 </span><span class="subxMinorFunction">_string_8a_copy_byte</span>: -<span id="L34479" class="LineNr">34479 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34480" class="LineNr">34480 </span> <span class="subxComment"># "8a/byte->"</span> -<span id="L34481" class="LineNr">34481 </span> 0x9/imm32/size -<span id="L34482" class="LineNr">34482 </span> 0x38/8 0x61/a 0x2f// 0x62/b 0x79/y 0x74/t 0x65/e 0x2d/- 0x3e/> -<span id="L34483" class="LineNr">34483 </span><span class="subxMinorFunction">_string_88_copy_byte</span>: -<span id="L34484" class="LineNr">34484 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34485" class="LineNr">34485 </span> <span class="subxComment"># "88/byte<-"</span> -<span id="L34486" class="LineNr">34486 </span> 0x9/imm32/size -<span id="L34487" class="LineNr">34487 </span> 0x38/8 0x38/8 0x2f// 0x62/b 0x79/y 0x74/t 0x65/e 0x3c/< 0x2d/- -<span id="L34488" class="LineNr">34488 </span><span class="subxMinorFunction">_string_8d_copy_address</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34489" class="LineNr">34489 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34490" class="LineNr">34490 </span> <span class="subxComment"># "8d/copy-address"</span> -<span id="L34491" class="LineNr">34491 </span> 0xf/imm32/size -<span id="L34492" class="LineNr">34492 </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="L34493" class="LineNr">34493 </span><span class="subxMinorFunction">_string_b8_copy_to_eax</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34494" class="LineNr">34494 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34495" class="LineNr">34495 </span> <span class="subxComment"># "b8/copy-to-eax"</span> -<span id="L34496" class="LineNr">34496 </span> 0xe/imm32/size -<span id="L34497" class="LineNr">34497 </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="L34498" class="LineNr">34498 </span><span class="subxMinorFunction">_string_b9_copy_to_ecx</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34499" class="LineNr">34499 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34500" class="LineNr">34500 </span> <span class="subxComment"># "b9/copy-to-ecx"</span> -<span id="L34501" class="LineNr">34501 </span> 0xe/imm32/size -<span id="L34502" class="LineNr">34502 </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="L34503" class="LineNr">34503 </span><span class="subxMinorFunction">_string_ba_copy_to_edx</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34504" class="LineNr">34504 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34505" class="LineNr">34505 </span> <span class="subxComment"># "ba/copy-to-edx"</span> -<span id="L34506" class="LineNr">34506 </span> 0xe/imm32/size -<span id="L34507" class="LineNr">34507 </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="L34508" class="LineNr">34508 </span><span class="subxMinorFunction">_string_bb_copy_to_ebx</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34509" class="LineNr">34509 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34510" class="LineNr">34510 </span> <span class="subxComment"># "bb/copy-to-ebx"</span> -<span id="L34511" class="LineNr">34511 </span> 0xe/imm32/size -<span id="L34512" class="LineNr">34512 </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="L34513" class="LineNr">34513 </span><span class="subxMinorFunction">_string_be_copy_to_esi</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34514" class="LineNr">34514 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34515" class="LineNr">34515 </span> <span class="subxComment"># "be/copy-to-esi"</span> -<span id="L34516" class="LineNr">34516 </span> 0xe/imm32/size -<span id="L34517" class="LineNr">34517 </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="L34518" class="LineNr">34518 </span><span class="subxMinorFunction">_string_bf_copy_to_edi</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34519" class="LineNr">34519 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34520" class="LineNr">34520 </span> <span class="subxComment"># "bf/copy-to-edi"</span> -<span id="L34521" class="LineNr">34521 </span> 0xe/imm32/size -<span id="L34522" class="LineNr">34522 </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="L34523" class="LineNr">34523 </span><span class="subxMinorFunction">_string_c7_subop_copy</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34524" class="LineNr">34524 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34525" class="LineNr">34525 </span> <span class="subxComment"># "c7 0/subop/copy"</span> -<span id="L34526" class="LineNr">34526 </span> 0xf/imm32/size -<span id="L34527" class="LineNr">34527 </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="L34528" class="LineNr">34528 </span><span class="subxMinorFunction">_string_e9_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34529" class="LineNr">34529 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34530" class="LineNr">34530 </span> <span class="subxComment"># "e9/jump"</span> -<span id="L34531" class="LineNr">34531 </span> 0x7/imm32/size -<span id="L34532" class="LineNr">34532 </span> 0x65/e 0x39/9 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p -<span id="L34533" class="LineNr">34533 </span><span class="subxMinorFunction">_string_e9_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34534" class="LineNr">34534 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34535" class="LineNr">34535 </span> <span class="subxComment"># "e9/jump break/disp32"</span> -<span id="L34536" class="LineNr">34536 </span> 0x14/imm32/size -<span id="L34537" class="LineNr">34537 </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="L34538" class="LineNr">34538 </span><span class="subxMinorFunction">_string_e9_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34539" class="LineNr">34539 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34540" class="LineNr">34540 </span> <span class="subxComment"># "e9/jump loop/disp32"</span> -<span id="L34541" class="LineNr">34541 </span> 0x13/imm32/size -<span id="L34542" class="LineNr">34542 </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="L34543" class="LineNr">34543 </span><span class="subxMinorFunction">_string_f7_subop_negate</span>: -<span id="L34544" class="LineNr">34544 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34545" class="LineNr">34545 </span> <span class="subxComment"># "f7 3/subop/negate"</span> -<span id="L34546" class="LineNr">34546 </span> 0x11/imm32/size -<span id="L34547" class="LineNr">34547 </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="L34548" class="LineNr">34548 </span><span class="subxMinorFunction">_string_ff_subop_increment</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34549" class="LineNr">34549 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34550" class="LineNr">34550 </span> <span class="subxComment"># "ff 0/subop/increment"</span> -<span id="L34551" class="LineNr">34551 </span> 0x14/imm32/size -<span id="L34552" class="LineNr">34552 </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="L34553" class="LineNr">34553 </span><span class="subxMinorFunction">_string_ff_subop_decrement</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34554" class="LineNr">34554 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34555" class="LineNr">34555 </span> <span class="subxComment"># "ff 1/subop/decrement"</span> -<span id="L34556" class="LineNr">34556 </span> 0x14/imm32/size -<span id="L34557" class="LineNr">34557 </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="L34558" class="LineNr">34558 </span><span class="subxMinorFunction">_string_c1_subop_shift_left</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34559" class="LineNr">34559 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34560" class="LineNr">34560 </span> <span class="subxComment"># "c1/shift 4/subop/left"</span> -<span id="L34561" class="LineNr">34561 </span> 0x15/imm32/size -<span id="L34562" class="LineNr">34562 </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="L34563" class="LineNr">34563 </span><span class="subxMinorFunction">_string_c1_subop_shift_right_padding_zeroes</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34564" class="LineNr">34564 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34565" class="LineNr">34565 </span> <span class="subxComment"># "c1/shift 5/subop/right-padding-zeroes"</span> -<span id="L34566" class="LineNr">34566 </span> 0x25/imm32/size -<span id="L34567" class="LineNr">34567 </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="L34568" class="LineNr">34568 </span><span class="subxMinorFunction">_string_c1_subop_shift_right_preserving_sign</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34569" class="LineNr">34569 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34570" class="LineNr">34570 </span> <span class="subxComment"># "c1/shift 7/subop/right-preserving-sign"</span> -<span id="L34571" class="LineNr">34571 </span> 0x26/imm32/size -<span id="L34572" class="LineNr">34572 </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="L34573" class="LineNr">34573 </span> -<span id="L34574" class="LineNr">34574 </span><span class="SpecialChar">Single-int-var-in-mem</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34575" class="LineNr">34575 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34576" class="LineNr">34576 </span> 0x11/imm32/alloc-id:fake -<span id="L34577" class="LineNr">34577 </span> <span class="SpecialChar"><a href='mu.subx.html#L34581'>Int-var-in-mem</a></span>/imm32 -<span id="L34578" class="LineNr">34578 </span> 0/imm32/next -<span id="L34579" class="LineNr">34579 </span> 0/imm32/next -<span id="L34580" class="LineNr">34580 </span> -<span id="L34581" class="LineNr">34581 </span><span class="SpecialChar">Int-var-in-mem</span>: <span class="subxComment"># (payload var)</span> -<span id="L34582" class="LineNr">34582 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34583" class="LineNr">34583 </span> 0/imm32/name -<span id="L34584" class="LineNr">34584 </span> 0/imm32/name -<span id="L34585" class="LineNr">34585 </span> 0x11/imm32/alloc-id:fake -<span id="L34586" class="LineNr">34586 </span> <span class="SpecialChar"><a href='mu.subx.html#L34905'>Type-int</a></span>/imm32 -<span id="L34587" class="LineNr">34587 </span> 1/imm32/some-block-depth -<span id="L34588" class="LineNr">34588 </span> 1/imm32/some-stack-offset -<span id="L34589" class="LineNr">34589 </span> 0/imm32/no-register -<span id="L34590" class="LineNr">34590 </span> 0/imm32/no-register -<span id="L34591" class="LineNr">34591 </span> -<span id="L34592" class="LineNr">34592 </span><span class="subxComment"># Not really legal, but closest we can currently represent a dereference of an (addr byte)</span> -<span id="L34593" class="LineNr">34593 </span><span class="SpecialChar">Single-byte-var-in-mem</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34594" class="LineNr">34594 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34595" class="LineNr">34595 </span> 0x11/imm32/alloc-id:fake -<span id="L34596" class="LineNr">34596 </span> <span class="SpecialChar"><a href='mu.subx.html#L34601'>Byte-var-in-mem</a></span>/imm32 -<span id="L34597" class="LineNr">34597 </span> 0/imm32/next -<span id="L34598" class="LineNr">34598 </span> 0/imm32/next -<span id="L34599" class="LineNr">34599 </span> -<span id="L34600" class="LineNr">34600 </span><span class="subxComment"># Not really legal, but closest we can currently represent a dereference of an (addr byte)</span> -<span id="L34601" class="LineNr">34601 </span><span class="SpecialChar">Byte-var-in-mem</span>: <span class="subxComment"># (payload var)</span> -<span id="L34602" class="LineNr">34602 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34603" class="LineNr">34603 </span> 0/imm32/name -<span id="L34604" class="LineNr">34604 </span> 0/imm32/name -<span id="L34605" class="LineNr">34605 </span> 0x11/imm32/alloc-id:fake -<span id="L34606" class="LineNr">34606 </span> <span class="SpecialChar"><a href='mu.subx.html#L34929'>Type-byte</a></span>/imm32 -<span id="L34607" class="LineNr">34607 </span> 1/imm32/some-block-depth -<span id="L34608" class="LineNr">34608 </span> 1/imm32/some-stack-offset -<span id="L34609" class="LineNr">34609 </span> 0/imm32/no-register -<span id="L34610" class="LineNr">34610 </span> 0/imm32/no-register -<span id="L34611" class="LineNr">34611 </span> -<span id="L34612" class="LineNr">34612 </span><span class="SpecialChar">Two-args-int-stack-int-reg</span>: <span class="subxComment"># (payload list var)</span> +<span id="L33938" class="LineNr">33938 </span> 0x11/imm32/alloc-id:fake +<span id="L33939" class="LineNr">33939 </span> <a href='mu.subx.html#L34220'>_string-loop-if-float>=</a>/imm32/name +<span id="L33940" class="LineNr">33940 </span> 0x11/imm32/alloc-id:fake +<span id="L33941" class="LineNr">33941 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts +<span id="L33942" class="LineNr">33942 </span> 0/imm32/no-outputs +<span id="L33943" class="LineNr">33943 </span> 0/imm32/no-outputs +<span id="L33944" class="LineNr">33944 </span> 0x11/imm32/alloc-id:fake +<span id="L33945" class="LineNr">33945 </span> <a href='mu.subx.html#L34427'>_string_0f_83_jump_label</a>/imm32/subx-name +<span id="L33946" class="LineNr">33946 </span> 0/imm32/no-rm32 +<span id="L33947" class="LineNr">33947 </span> 0/imm32/no-r32 +<span id="L33948" class="LineNr">33948 </span> 0/imm32/no-imm32 +<span id="L33949" class="LineNr">33949 </span> 0/imm32/no-imm8 +<span id="L33950" class="LineNr">33950 </span> 1/imm32/disp32-is-first-inout +<span id="L33951" class="LineNr">33951 </span> 0/imm32/no-xm32 +<span id="L33952" class="LineNr">33952 </span> 0/imm32/no-x32 +<span id="L33953" class="LineNr">33953 </span> 0x11/imm32/alloc-id:fake +<span id="L33954" class="LineNr">33954 </span> <a href='mu.subx.html#L33955'>_Primitive-loop-if-float<=-named</a>/imm32/next +<span id="L33955" class="LineNr">33955 </span><span class="subxMinorFunction">_Primitive-loop-if-float<=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33956" class="LineNr">33956 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33957" class="LineNr">33957 </span> 0x11/imm32/alloc-id:fake +<span id="L33958" class="LineNr">33958 </span> <a href='mu.subx.html#L34210'>_string-loop-if-float<=</a>/imm32/name +<span id="L33959" class="LineNr">33959 </span> 0x11/imm32/alloc-id:fake +<span id="L33960" class="LineNr">33960 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts +<span id="L33961" class="LineNr">33961 </span> 0/imm32/no-outputs +<span id="L33962" class="LineNr">33962 </span> 0/imm32/no-outputs +<span id="L33963" class="LineNr">33963 </span> 0x11/imm32/alloc-id:fake +<span id="L33964" class="LineNr">33964 </span> <a href='mu.subx.html#L34472'>_string_0f_86_jump_label</a>/imm32/subx-name +<span id="L33965" class="LineNr">33965 </span> 0/imm32/no-rm32 +<span id="L33966" class="LineNr">33966 </span> 0/imm32/no-r32 +<span id="L33967" class="LineNr">33967 </span> 0/imm32/no-imm32 +<span id="L33968" class="LineNr">33968 </span> 0/imm32/no-imm8 +<span id="L33969" class="LineNr">33969 </span> 1/imm32/disp32-is-first-inout +<span id="L33970" class="LineNr">33970 </span> 0/imm32/no-xm32 +<span id="L33971" class="LineNr">33971 </span> 0/imm32/no-x32 +<span id="L33972" class="LineNr">33972 </span> 0x11/imm32/alloc-id:fake +<span id="L33973" class="LineNr">33973 </span> <a href='mu.subx.html#L33974'>_Primitive-loop-if-float>-named</a>/imm32/next +<span id="L33974" class="LineNr">33974 </span><span class="subxMinorFunction">_Primitive-loop-if-float>-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33975" class="LineNr">33975 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33976" class="LineNr">33976 </span> 0x11/imm32/alloc-id:fake +<span id="L33977" class="LineNr">33977 </span> <a href='mu.subx.html#L34215'>_string-loop-if-float></a>/imm32/name +<span id="L33978" class="LineNr">33978 </span> 0x11/imm32/alloc-id:fake +<span id="L33979" class="LineNr">33979 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/inouts +<span id="L33980" class="LineNr">33980 </span> 0/imm32/no-outputs +<span id="L33981" class="LineNr">33981 </span> 0/imm32/no-outputs +<span id="L33982" class="LineNr">33982 </span> 0x11/imm32/alloc-id:fake +<span id="L33983" class="LineNr">33983 </span> <a href='mu.subx.html#L34487'>_string_0f_87_jump_label</a>/imm32/subx-name +<span id="L33984" class="LineNr">33984 </span> 0/imm32/no-rm32 +<span id="L33985" class="LineNr">33985 </span> 0/imm32/no-r32 +<span id="L33986" class="LineNr">33986 </span> 0/imm32/no-imm32 +<span id="L33987" class="LineNr">33987 </span> 0/imm32/no-imm8 +<span id="L33988" class="LineNr">33988 </span> 1/imm32/disp32-is-first-inout +<span id="L33989" class="LineNr">33989 </span> 0/imm32/no-xm32 +<span id="L33990" class="LineNr">33990 </span> 0/imm32/no-x32 +<span id="L33991" class="LineNr">33991 </span> 0/imm32/next +<span id="L33992" class="LineNr">33992 </span> 0/imm32/next +<span id="L33993" class="LineNr">33993 </span> +<span id="L33994" class="LineNr">33994 </span><span class="subxComment"># string literals for Mu instructions</span> +<span id="L33995" class="LineNr">33995 </span><span class="subxMinorFunction">_string-add</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33996" class="LineNr">33996 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33997" class="LineNr">33997 </span> <span class="subxComment"># "add"</span> +<span id="L33998" class="LineNr">33998 </span> 0x3/imm32/size +<span id="L33999" class="LineNr">33999 </span> 0x61/a 0x64/d 0x64/d +<span id="L34000" class="LineNr">34000 </span><span class="subxMinorFunction">_string-address</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34001" class="LineNr">34001 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34002" class="LineNr">34002 </span> <span class="subxComment"># "address"</span> +<span id="L34003" class="LineNr">34003 </span> 0x7/imm32/size +<span id="L34004" class="LineNr">34004 </span> 0x61/a 0x64/d 0x64/d 0x72/r 0x65/e 0x73/s 0x73/s +<span id="L34005" class="LineNr">34005 </span><span class="subxMinorFunction">_string-add-to</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34006" class="LineNr">34006 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34007" class="LineNr">34007 </span> <span class="subxComment"># "add-to"</span> +<span id="L34008" class="LineNr">34008 </span> 0x6/imm32/size +<span id="L34009" class="LineNr">34009 </span> 0x61/a 0x64/d 0x64/d 0x2d/dash 0x74/t 0x6f/o +<span id="L34010" class="LineNr">34010 </span><span class="subxMinorFunction">_string-and</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34011" class="LineNr">34011 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34012" class="LineNr">34012 </span> <span class="subxComment"># "and"</span> +<span id="L34013" class="LineNr">34013 </span> 0x3/imm32/size +<span id="L34014" class="LineNr">34014 </span> 0x61/a 0x6e/n 0x64/d +<span id="L34015" class="LineNr">34015 </span><span class="subxMinorFunction">_string-and-with</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34016" class="LineNr">34016 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34017" class="LineNr">34017 </span> <span class="subxComment"># "and-with"</span> +<span id="L34018" class="LineNr">34018 </span> 0x8/imm32/size +<span id="L34019" class="LineNr">34019 </span> 0x61/a 0x6e/n 0x64/d 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h +<span id="L34020" class="LineNr">34020 </span><span class="subxMinorFunction">_string-break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34021" class="LineNr">34021 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34022" class="LineNr">34022 </span> <span class="subxComment"># "break"</span> +<span id="L34023" class="LineNr">34023 </span> 0x5/imm32/size +<span id="L34024" class="LineNr">34024 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k +<span id="L34025" class="LineNr">34025 </span><span class="subxMinorFunction">_string-break-if-<</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34026" class="LineNr">34026 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34027" class="LineNr">34027 </span> <span class="subxComment"># "break-if-<"</span> +<span id="L34028" class="LineNr">34028 </span> 0xa/imm32/size +<span id="L34029" class="LineNr">34029 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< +<span id="L34030" class="LineNr">34030 </span><span class="subxMinorFunction">_string-break-if-<=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34031" class="LineNr">34031 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34032" class="LineNr">34032 </span> <span class="subxComment"># "break-if-<="</span> +<span id="L34033" class="LineNr">34033 </span> 0xb/imm32/size +<span id="L34034" class="LineNr">34034 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< 0x3d/= +<span id="L34035" class="LineNr">34035 </span><span class="subxMinorFunction">_string-break-if-=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34036" class="LineNr">34036 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34037" class="LineNr">34037 </span> <span class="subxComment"># "break-if-="</span> +<span id="L34038" class="LineNr">34038 </span> 0xa/imm32/size +<span id="L34039" class="LineNr">34039 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3d/= +<span id="L34040" class="LineNr">34040 </span><span class="subxMinorFunction">_string-break-if-></span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34041" class="LineNr">34041 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34042" class="LineNr">34042 </span> <span class="subxComment"># "break-if->"</span> +<span id="L34043" class="LineNr">34043 </span> 0xa/imm32/size +<span id="L34044" class="LineNr">34044 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> +<span id="L34045" class="LineNr">34045 </span><span class="subxMinorFunction">_string-break-if->=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34046" class="LineNr">34046 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34047" class="LineNr">34047 </span> <span class="subxComment"># "break-if->="</span> +<span id="L34048" class="LineNr">34048 </span> 0xb/imm32/size +<span id="L34049" class="LineNr">34049 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> 0x3d/= +<span id="L34050" class="LineNr">34050 </span><span class="subxMinorFunction">_string-break-if-!=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34051" class="LineNr">34051 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34052" class="LineNr">34052 </span> <span class="subxComment"># "break-if-!="</span> +<span id="L34053" class="LineNr">34053 </span> 0xb/imm32/size +<span id="L34054" class="LineNr">34054 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x21/! 0x3d/= +<span id="L34055" class="LineNr">34055 </span><span class="subxMinorFunction">_string-break-if-addr<</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34056" class="LineNr">34056 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34057" class="LineNr">34057 </span> <span class="subxComment"># "break-if-addr<"</span> +<span id="L34058" class="LineNr">34058 </span> 0xe/imm32/size +<span id="L34059" class="LineNr">34059 </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="L34060" class="LineNr">34060 </span><span class="subxMinorFunction">_string-break-if-addr<=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34061" class="LineNr">34061 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34062" class="LineNr">34062 </span> <span class="subxComment"># "break-if-addr<="</span> +<span id="L34063" class="LineNr">34063 </span> 0xf/imm32/size +<span id="L34064" class="LineNr">34064 </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="L34065" class="LineNr">34065 </span><span class="subxMinorFunction">_string-break-if-addr></span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34066" class="LineNr">34066 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34067" class="LineNr">34067 </span> <span class="subxComment"># "break-if-addr>"</span> +<span id="L34068" class="LineNr">34068 </span> 0xe/imm32/size +<span id="L34069" class="LineNr">34069 </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="L34070" class="LineNr">34070 </span><span class="subxMinorFunction">_string-break-if-addr>=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34071" class="LineNr">34071 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34072" class="LineNr">34072 </span> <span class="subxComment"># "break-if-addr>="</span> +<span id="L34073" class="LineNr">34073 </span> 0xf/imm32/size +<span id="L34074" class="LineNr">34074 </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="L34075" class="LineNr">34075 </span><span class="subxMinorFunction">_string-break-if-float<</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34076" class="LineNr">34076 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34077" class="LineNr">34077 </span> <span class="subxComment"># "break-if-float<"</span> +<span id="L34078" class="LineNr">34078 </span> 0xf/imm32/size +<span id="L34079" class="LineNr">34079 </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="L34080" class="LineNr">34080 </span><span class="subxMinorFunction">_string-break-if-float<=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34081" class="LineNr">34081 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34082" class="LineNr">34082 </span> <span class="subxComment"># "break-if-float<="</span> +<span id="L34083" class="LineNr">34083 </span> 0x10/imm32/size +<span id="L34084" class="LineNr">34084 </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="L34085" class="LineNr">34085 </span><span class="subxMinorFunction">_string-break-if-float></span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34086" class="LineNr">34086 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34087" class="LineNr">34087 </span> <span class="subxComment"># "break-if-float>"</span> +<span id="L34088" class="LineNr">34088 </span> 0xf/imm32/size +<span id="L34089" class="LineNr">34089 </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="L34090" class="LineNr">34090 </span><span class="subxMinorFunction">_string-break-if-float>=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34091" class="LineNr">34091 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34092" class="LineNr">34092 </span> <span class="subxComment"># "break-if-float>="</span> +<span id="L34093" class="LineNr">34093 </span> 0x10/imm32/size +<span id="L34094" class="LineNr">34094 </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="L34095" class="LineNr">34095 </span><span class="subxMinorFunction">_string-break-if-carry</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34096" class="LineNr">34096 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34097" class="LineNr">34097 </span> <span class="subxComment"># "break-if-carry"</span> +<span id="L34098" class="LineNr">34098 </span> 0xe/imm32/size +<span id="L34099" class="LineNr">34099 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x63/c 0x61/a 0x72/r 0x72/r 0x79/y +<span id="L34100" class="LineNr">34100 </span><span class="subxMinorFunction">_string-break-if-not-carry</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34101" class="LineNr">34101 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34102" class="LineNr">34102 </span> <span class="subxComment"># "break-if-not-carry"</span> +<span id="L34103" class="LineNr">34103 </span> 0x12/imm32/size +<span id="L34104" class="LineNr">34104 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x6e/n 0x6f/o 0x74/t 0x2d/dash 0x63/c 0x61/a 0x72/r 0x72/r 0x79/y +<span id="L34105" class="LineNr">34105 </span><span class="subxMinorFunction">_string-break-if-overflow</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34106" class="LineNr">34106 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34107" class="LineNr">34107 </span> <span class="subxComment"># "break-if-overflow"</span> +<span id="L34108" class="LineNr">34108 </span> 0x11/imm32/size +<span id="L34109" class="LineNr">34109 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x6f/o 0x76/v 0x65/e 0x72/r 0x66/f 0x6c/l 0x6f/o 0x77/w +<span id="L34110" class="LineNr">34110 </span><span class="subxMinorFunction">_string-break-if-not-overflow</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34111" class="LineNr">34111 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34112" class="LineNr">34112 </span> <span class="subxComment"># "break-if-not-overflow"</span> +<span id="L34113" class="LineNr">34113 </span> 0x15/imm32/size +<span id="L34114" class="LineNr">34114 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x6e/n 0x6f/o 0x74/t 0x2d/dash 0x6f/o 0x76/v 0x65/e 0x72/r 0x66/f 0x6c/l 0x6f/o 0x77/w +<span id="L34115" class="LineNr">34115 </span><span class="subxMinorFunction">_string-compare</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34116" class="LineNr">34116 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34117" class="LineNr">34117 </span> <span class="subxComment"># "compare"</span> +<span id="L34118" class="LineNr">34118 </span> 0x7/imm32/size +<span id="L34119" class="LineNr">34119 </span> 0x63/c 0x6f/o 0x6d/m 0x70/p 0x61/a 0x72/r 0x65/e +<span id="L34120" class="LineNr">34120 </span><span class="subxMinorFunction">_string-copy</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34121" class="LineNr">34121 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34122" class="LineNr">34122 </span> <span class="subxComment"># "copy"</span> +<span id="L34123" class="LineNr">34123 </span> 0x4/imm32/size +<span id="L34124" class="LineNr">34124 </span> 0x63/c 0x6f/o 0x70/p 0x79/y +<span id="L34125" class="LineNr">34125 </span><span class="subxMinorFunction">_string-copy-to</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34126" class="LineNr">34126 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34127" class="LineNr">34127 </span> <span class="subxComment"># "copy-to"</span> +<span id="L34128" class="LineNr">34128 </span> 0x7/imm32/size +<span id="L34129" class="LineNr">34129 </span> 0x63/c 0x6f/o 0x70/p 0x79/y 0x2d/dash 0x74/t 0x6f/o +<span id="L34130" class="LineNr">34130 </span><span class="subxMinorFunction">_string-copy-byte</span>: +<span id="L34131" class="LineNr">34131 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34132" class="LineNr">34132 </span> <span class="subxComment"># "copy-byte"</span> +<span id="L34133" class="LineNr">34133 </span> 0x9/imm32/size +<span id="L34134" class="LineNr">34134 </span> 0x63/c 0x6f/o 0x70/p 0x79/y 0x2d/dash 0x62/b 0x79/y 0x74/t 0x65/e +<span id="L34135" class="LineNr">34135 </span><span class="subxMinorFunction">_string-copy-byte-to</span>: +<span id="L34136" class="LineNr">34136 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34137" class="LineNr">34137 </span> <span class="subxComment"># "copy-byte-to"</span> +<span id="L34138" class="LineNr">34138 </span> 0xc/imm32/size +<span id="L34139" class="LineNr">34139 </span> 0x63/c 0x6f/o 0x70/p 0x79/y 0x2d/dash 0x62/b 0x79/y 0x74/t 0x65/e 0x2d/dash 0x74/t 0x6f/o +<span id="L34140" class="LineNr">34140 </span><span class="subxMinorFunction">_string-decrement</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34141" class="LineNr">34141 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34142" class="LineNr">34142 </span> <span class="subxComment"># "decrement"</span> +<span id="L34143" class="LineNr">34143 </span> 0x9/imm32/size +<span id="L34144" class="LineNr">34144 </span> 0x64/d 0x65/e 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t +<span id="L34145" class="LineNr">34145 </span><span class="subxMinorFunction">_string-increment</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34146" class="LineNr">34146 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34147" class="LineNr">34147 </span> <span class="subxComment"># "increment"</span> +<span id="L34148" class="LineNr">34148 </span> 0x9/imm32/size +<span id="L34149" class="LineNr">34149 </span> 0x69/i 0x6e/n 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t +<span id="L34150" class="LineNr">34150 </span><span class="subxMinorFunction">_string-loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34151" class="LineNr">34151 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34152" class="LineNr">34152 </span> <span class="subxComment"># "loop"</span> +<span id="L34153" class="LineNr">34153 </span> 0x4/imm32/size +<span id="L34154" class="LineNr">34154 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p +<span id="L34155" class="LineNr">34155 </span><span class="subxMinorFunction">_string-loop-if-<</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34156" class="LineNr">34156 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34157" class="LineNr">34157 </span> <span class="subxComment"># "loop-if-<"</span> +<span id="L34158" class="LineNr">34158 </span> 0x9/imm32/size +<span id="L34159" class="LineNr">34159 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< +<span id="L34160" class="LineNr">34160 </span><span class="subxMinorFunction">_string-loop-if-<=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34161" class="LineNr">34161 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34162" class="LineNr">34162 </span> <span class="subxComment"># "loop-if-<="</span> +<span id="L34163" class="LineNr">34163 </span> 0xa/imm32/size +<span id="L34164" class="LineNr">34164 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< 0x3d/= +<span id="L34165" class="LineNr">34165 </span><span class="subxMinorFunction">_string-loop-if-=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34166" class="LineNr">34166 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34167" class="LineNr">34167 </span> <span class="subxComment"># "loop-if-="</span> +<span id="L34168" class="LineNr">34168 </span> 0x9/imm32/size +<span id="L34169" class="LineNr">34169 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3d/= +<span id="L34170" class="LineNr">34170 </span><span class="subxMinorFunction">_string-loop-if-></span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34171" class="LineNr">34171 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34172" class="LineNr">34172 </span> <span class="subxComment"># "loop-if->"</span> +<span id="L34173" class="LineNr">34173 </span> 0x9/imm32/size +<span id="L34174" class="LineNr">34174 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> +<span id="L34175" class="LineNr">34175 </span><span class="subxMinorFunction">_string-loop-if->=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34176" class="LineNr">34176 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34177" class="LineNr">34177 </span> <span class="subxComment"># "loop-if->="</span> +<span id="L34178" class="LineNr">34178 </span> 0xa/imm32/size +<span id="L34179" class="LineNr">34179 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> 0x3d/= +<span id="L34180" class="LineNr">34180 </span><span class="subxMinorFunction">_string-loop-if-!=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34181" class="LineNr">34181 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34182" class="LineNr">34182 </span> <span class="subxComment"># "loop-if-!="</span> +<span id="L34183" class="LineNr">34183 </span> 0xa/imm32/size +<span id="L34184" class="LineNr">34184 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x21/! 0x3d/= +<span id="L34185" class="LineNr">34185 </span><span class="subxMinorFunction">_string-loop-if-addr<</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34186" class="LineNr">34186 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34187" class="LineNr">34187 </span> <span class="subxComment"># "loop-if-addr<"</span> +<span id="L34188" class="LineNr">34188 </span> 0xd/imm32/size +<span id="L34189" class="LineNr">34189 </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="L34190" class="LineNr">34190 </span><span class="subxMinorFunction">_string-loop-if-addr<=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34191" class="LineNr">34191 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34192" class="LineNr">34192 </span> <span class="subxComment"># "loop-if-addr<="</span> +<span id="L34193" class="LineNr">34193 </span> 0xe/imm32/size +<span id="L34194" class="LineNr">34194 </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="L34195" class="LineNr">34195 </span><span class="subxMinorFunction">_string-loop-if-addr></span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34196" class="LineNr">34196 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34197" class="LineNr">34197 </span> <span class="subxComment"># "loop-if-addr>"</span> +<span id="L34198" class="LineNr">34198 </span> 0xd/imm32/size +<span id="L34199" class="LineNr">34199 </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="L34200" class="LineNr">34200 </span><span class="subxMinorFunction">_string-loop-if-addr>=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34201" class="LineNr">34201 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34202" class="LineNr">34202 </span> <span class="subxComment"># "loop-if-addr>="</span> +<span id="L34203" class="LineNr">34203 </span> 0xe/imm32/size +<span id="L34204" class="LineNr">34204 </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="L34205" class="LineNr">34205 </span><span class="subxMinorFunction">_string-loop-if-float<</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34206" class="LineNr">34206 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34207" class="LineNr">34207 </span> <span class="subxComment"># "loop-if-float<"</span> +<span id="L34208" class="LineNr">34208 </span> 0xe/imm32/size +<span id="L34209" class="LineNr">34209 </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="L34210" class="LineNr">34210 </span><span class="subxMinorFunction">_string-loop-if-float<=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34211" class="LineNr">34211 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34212" class="LineNr">34212 </span> <span class="subxComment"># "loop-if-float<="</span> +<span id="L34213" class="LineNr">34213 </span> 0xf/imm32/size +<span id="L34214" class="LineNr">34214 </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="L34215" class="LineNr">34215 </span><span class="subxMinorFunction">_string-loop-if-float></span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34216" class="LineNr">34216 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34217" class="LineNr">34217 </span> <span class="subxComment"># "loop-if-float>"</span> +<span id="L34218" class="LineNr">34218 </span> 0xe/imm32/size +<span id="L34219" class="LineNr">34219 </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="L34220" class="LineNr">34220 </span><span class="subxMinorFunction">_string-loop-if-float>=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34221" class="LineNr">34221 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34222" class="LineNr">34222 </span> <span class="subxComment"># "loop-if-float>="</span> +<span id="L34223" class="LineNr">34223 </span> 0xf/imm32/size +<span id="L34224" class="LineNr">34224 </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="L34225" class="LineNr">34225 </span><span class="subxMinorFunction">_string-loop-if-carry</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34226" class="LineNr">34226 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34227" class="LineNr">34227 </span> <span class="subxComment"># "loop-if-carry"</span> +<span id="L34228" class="LineNr">34228 </span> 0xd/imm32/size +<span id="L34229" class="LineNr">34229 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x63/c 0x61/a 0x72/r 0x72/r 0x79/y +<span id="L34230" class="LineNr">34230 </span><span class="subxMinorFunction">_string-loop-if-not-carry</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34231" class="LineNr">34231 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34232" class="LineNr">34232 </span> <span class="subxComment"># "loop-if-not-carry"</span> +<span id="L34233" class="LineNr">34233 </span> 0x11/imm32/size +<span id="L34234" class="LineNr">34234 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x6e/n 0x6f/o 0x74/t 0x2d/dash 0x63/c 0x61/a 0x72/r 0x72/r 0x79/y +<span id="L34235" class="LineNr">34235 </span><span class="subxMinorFunction">_string-loop-if-overflow</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34236" class="LineNr">34236 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34237" class="LineNr">34237 </span> <span class="subxComment"># "loop-if-overflow"</span> +<span id="L34238" class="LineNr">34238 </span> 0x10/imm32/size +<span id="L34239" class="LineNr">34239 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x6f/o 0x76/v 0x65/e 0x72/r 0x66/f 0x6c/l 0x6f/o 0x77/w +<span id="L34240" class="LineNr">34240 </span><span class="subxMinorFunction">_string-loop-if-not-overflow</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34241" class="LineNr">34241 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34242" class="LineNr">34242 </span> <span class="subxComment"># "loop-if-not-overflow"</span> +<span id="L34243" class="LineNr">34243 </span> 0x14/imm32/size +<span id="L34244" class="LineNr">34244 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x6e/n 0x6f/o 0x74/t 0x2d/dash 0x6f/o 0x76/v 0x65/e 0x72/r 0x66/f 0x6c/l 0x6f/o 0x77/w +<span id="L34245" class="LineNr">34245 </span><span class="subxMinorFunction">_string-multiply</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34246" class="LineNr">34246 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34247" class="LineNr">34247 </span> <span class="subxComment"># "multiply"</span> +<span id="L34248" class="LineNr">34248 </span> 0x8/imm32/size +<span id="L34249" class="LineNr">34249 </span> 0x6d/m 0x75/u 0x6c/l 0x74/t 0x69/i 0x70/p 0x6c/l 0x79/y +<span id="L34250" class="LineNr">34250 </span><span class="subxMinorFunction">_string-convert</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34251" class="LineNr">34251 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34252" class="LineNr">34252 </span> <span class="subxComment"># "convert"</span> +<span id="L34253" class="LineNr">34253 </span> 0x7/imm32/size +<span id="L34254" class="LineNr">34254 </span> 0x63/c 0x6f/o 0x6e/n 0x76/v 0x65/e 0x72/r 0x74/t +<span id="L34255" class="LineNr">34255 </span><span class="subxMinorFunction">_string-truncate</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34256" class="LineNr">34256 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34257" class="LineNr">34257 </span> <span class="subxComment"># "truncate"</span> +<span id="L34258" class="LineNr">34258 </span> 0x8/imm32/size +<span id="L34259" class="LineNr">34259 </span> 0x74/t 0x72/r 0x75/u 0x6e/n 0x63/c 0x61/a 0x74/t 0x65/e +<span id="L34260" class="LineNr">34260 </span><span class="subxMinorFunction">_string-reinterpret</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34261" class="LineNr">34261 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34262" class="LineNr">34262 </span> <span class="subxComment"># "reinterpret"</span> +<span id="L34263" class="LineNr">34263 </span> 0xb/imm32/size +<span id="L34264" class="LineNr">34264 </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="L34265" class="LineNr">34265 </span><span class="subxMinorFunction">_string-divide</span>: +<span id="L34266" class="LineNr">34266 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34267" class="LineNr">34267 </span> <span class="subxComment"># "divide"</span> +<span id="L34268" class="LineNr">34268 </span> 0x6/imm32/size +<span id="L34269" class="LineNr">34269 </span> 0x64/d 0x69/i 0x76/v 0x69/i 0x64/d 0x65/e +<span id="L34270" class="LineNr">34270 </span><span class="subxMinorFunction">_string-max</span>: +<span id="L34271" class="LineNr">34271 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34272" class="LineNr">34272 </span> <span class="subxComment"># "max"</span> +<span id="L34273" class="LineNr">34273 </span> 0x3/imm32/size +<span id="L34274" class="LineNr">34274 </span> 0x6d/m 0x61/a 0x78/x +<span id="L34275" class="LineNr">34275 </span><span class="subxMinorFunction">_string-min</span>: +<span id="L34276" class="LineNr">34276 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34277" class="LineNr">34277 </span> <span class="subxComment"># "min"</span> +<span id="L34278" class="LineNr">34278 </span> 0x3/imm32/size +<span id="L34279" class="LineNr">34279 </span> 0x6d/m 0x69/i 0x6e/n +<span id="L34280" class="LineNr">34280 </span><span class="subxMinorFunction">_string-reciprocal</span>: +<span id="L34281" class="LineNr">34281 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34282" class="LineNr">34282 </span> <span class="subxComment"># "reciprocal"</span> +<span id="L34283" class="LineNr">34283 </span> 0xa/imm32/size +<span id="L34284" class="LineNr">34284 </span> 0x72/r 0x65/e 0x63/c 0x69/i 0x70/p 0x72/r 0x6f/o 0x63/c 0x61/a 0x6c/l +<span id="L34285" class="LineNr">34285 </span><span class="subxMinorFunction">_string-square-root</span>: +<span id="L34286" class="LineNr">34286 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34287" class="LineNr">34287 </span> <span class="subxComment"># "square-root"</span> +<span id="L34288" class="LineNr">34288 </span> 0xb/imm32/size +<span id="L34289" class="LineNr">34289 </span> 0x73/s 0x71/q 0x75/u 0x61/a 0x72/r 0x65/e 0x2d/dash 0x72/r 0x6f/o 0x6f/o 0x74/t +<span id="L34290" class="LineNr">34290 </span><span class="subxMinorFunction">_string-inverse-square-root</span>: +<span id="L34291" class="LineNr">34291 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34292" class="LineNr">34292 </span> <span class="subxComment"># "inverse-square-root"</span> +<span id="L34293" class="LineNr">34293 </span> 0x13/imm32/size +<span id="L34294" class="LineNr">34294 </span> 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="L34295" class="LineNr">34295 </span><span class="subxMinorFunction">_string-negate</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34296" class="LineNr">34296 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34297" class="LineNr">34297 </span> <span class="subxComment"># "negate"</span> +<span id="L34298" class="LineNr">34298 </span> 0x6/imm32/size +<span id="L34299" class="LineNr">34299 </span> 0x6e/n 0x65/e 0x67/g 0x61/a 0x74/t 0x65/e +<span id="L34300" class="LineNr">34300 </span><span class="subxMinorFunction">_string-not</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34301" class="LineNr">34301 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34302" class="LineNr">34302 </span> <span class="subxComment"># "not"</span> +<span id="L34303" class="LineNr">34303 </span> 0x3/imm32/size +<span id="L34304" class="LineNr">34304 </span> 0x6e/n 0x6f/o 0x74/t +<span id="L34305" class="LineNr">34305 </span><span class="subxMinorFunction">_string-or</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34306" class="LineNr">34306 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34307" class="LineNr">34307 </span> <span class="subxComment"># "or"</span> +<span id="L34308" class="LineNr">34308 </span> 0x2/imm32/size +<span id="L34309" class="LineNr">34309 </span> 0x6f/o 0x72/r +<span id="L34310" class="LineNr">34310 </span><span class="subxMinorFunction">_string-or-with</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34311" class="LineNr">34311 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34312" class="LineNr">34312 </span> <span class="subxComment"># "or-with"</span> +<span id="L34313" class="LineNr">34313 </span> 0x7/imm32/size +<span id="L34314" class="LineNr">34314 </span> 0x6f/o 0x72/r 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h +<span id="L34315" class="LineNr">34315 </span><span class="subxMinorFunction">_string-subtract</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34316" class="LineNr">34316 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34317" class="LineNr">34317 </span> <span class="subxComment"># "subtract"</span> +<span id="L34318" class="LineNr">34318 </span> 0x8/imm32/size +<span id="L34319" class="LineNr">34319 </span> 0x73/s 0x75/u 0x62/b 0x74/t 0x72/r 0x61/a 0x63/c 0x74/t +<span id="L34320" class="LineNr">34320 </span><span class="subxMinorFunction">_string-subtract-from</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34321" class="LineNr">34321 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34322" class="LineNr">34322 </span> <span class="subxComment"># "subtract-from"</span> +<span id="L34323" class="LineNr">34323 </span> 0xd/imm32/size +<span id="L34324" class="LineNr">34324 </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="L34325" class="LineNr">34325 </span><span class="subxMinorFunction">_string-xor</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34326" class="LineNr">34326 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34327" class="LineNr">34327 </span> <span class="subxComment"># "xor"</span> +<span id="L34328" class="LineNr">34328 </span> 0x3/imm32/size +<span id="L34329" class="LineNr">34329 </span> 0x78/x 0x6f/o 0x72/r +<span id="L34330" class="LineNr">34330 </span><span class="subxMinorFunction">_string-xor-with</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34331" class="LineNr">34331 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34332" class="LineNr">34332 </span> <span class="subxComment"># "xor-with"</span> +<span id="L34333" class="LineNr">34333 </span> 0x8/imm32/size +<span id="L34334" class="LineNr">34334 </span> 0x78/x 0x6f/o 0x72/r 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h +<span id="L34335" class="LineNr">34335 </span><span class="subxMinorFunction">_string-shift-left</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34336" class="LineNr">34336 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34337" class="LineNr">34337 </span> <span class="subxComment"># "shift-left"</span> +<span id="L34338" class="LineNr">34338 </span> 0xa/imm32/size +<span id="L34339" class="LineNr">34339 </span> 0x73/s 0x68/h 0x69/i 0x66/f 0x74/t 0x2d/dash 0x6c/l 0x65/e 0x66/f 0x74/t +<span id="L34340" class="LineNr">34340 </span><span class="subxMinorFunction">_string-shift-right</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34341" class="LineNr">34341 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34342" class="LineNr">34342 </span> <span class="subxComment"># "shift-right"</span> +<span id="L34343" class="LineNr">34343 </span> 0xb/imm32/size +<span id="L34344" class="LineNr">34344 </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="L34345" class="LineNr">34345 </span><span class="subxMinorFunction">_string-shift-right-signed</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34346" class="LineNr">34346 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34347" class="LineNr">34347 </span> <span class="subxComment"># "shift-right-signed"</span> +<span id="L34348" class="LineNr">34348 </span> 0x12/imm32/size +<span id="L34349" class="LineNr">34349 </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="L34350" class="LineNr">34350 </span> +<span id="L34351" class="LineNr">34351 </span><span class="subxComment"># string literals for SubX instructions</span> +<span id="L34352" class="LineNr">34352 </span><span class="subxMinorFunction">_string_01_add_to</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34353" class="LineNr">34353 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34354" class="LineNr">34354 </span> <span class="subxComment"># "01/add-to"</span> +<span id="L34355" class="LineNr">34355 </span> 0x9/imm32/size +<span id="L34356" class="LineNr">34356 </span> 0x30/0 0x31/1 0x2f/slash 0x61/a 0x64/d 0x64/d 0x2d/dash 0x74/t 0x6f/o +<span id="L34357" class="LineNr">34357 </span><span class="subxMinorFunction">_string_03_add</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34358" class="LineNr">34358 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34359" class="LineNr">34359 </span> <span class="subxComment"># "03/add"</span> +<span id="L34360" class="LineNr">34360 </span> 0x6/imm32/size +<span id="L34361" class="LineNr">34361 </span> 0x30/0 0x33/3 0x2f/slash 0x61/a 0x64/d 0x64/d +<span id="L34362" class="LineNr">34362 </span><span class="subxMinorFunction">_string_05_add_to_eax</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34363" class="LineNr">34363 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34364" class="LineNr">34364 </span> <span class="subxComment"># "05/add-to-eax"</span> +<span id="L34365" class="LineNr">34365 </span> 0xd/imm32/size +<span id="L34366" class="LineNr">34366 </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="L34367" class="LineNr">34367 </span><span class="subxMinorFunction">_string_09_or_with</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34368" class="LineNr">34368 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34369" class="LineNr">34369 </span> <span class="subxComment"># "09/or-with"</span> +<span id="L34370" class="LineNr">34370 </span> 0xa/imm32/size +<span id="L34371" class="LineNr">34371 </span> 0x30/0 0x39/9 0x2f/slash 0x6f/o 0x72/r 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h +<span id="L34372" class="LineNr">34372 </span><span class="subxMinorFunction">_string_0b_or</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34373" class="LineNr">34373 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34374" class="LineNr">34374 </span> <span class="subxComment"># "0b/or"</span> +<span id="L34375" class="LineNr">34375 </span> 0x5/imm32/size +<span id="L34376" class="LineNr">34376 </span> 0x30/0 0x62/b 0x2f/slash 0x6f/o 0x72/r +<span id="L34377" class="LineNr">34377 </span><span class="subxMinorFunction">_string_0d_or_with_eax</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34378" class="LineNr">34378 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34379" class="LineNr">34379 </span> <span class="subxComment"># "0d/or-with-eax"</span> +<span id="L34380" class="LineNr">34380 </span> 0xe/imm32/size +<span id="L34381" class="LineNr">34381 </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="L34382" class="LineNr">34382 </span><span class="subxMinorFunction">_string_0f_80_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34383" class="LineNr">34383 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34384" class="LineNr">34384 </span> <span class="subxComment"># "0f 80/jump-if-overflow"</span> +<span id="L34385" class="LineNr">34385 </span> 0x16/imm32/size +<span id="L34386" class="LineNr">34386 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x30/0 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x6f/o 0x76/v 0x65/e 0x72/r 0x66/f 0x6c/l 0x6f/o 0x77/w +<span id="L34387" class="LineNr">34387 </span><span class="subxMinorFunction">_string_0f_80_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34388" class="LineNr">34388 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34389" class="LineNr">34389 </span> <span class="subxComment"># "0f 80/jump-if-overflow break/disp32"</span> +<span id="L34390" class="LineNr">34390 </span> 0x23/imm32/size +<span id="L34391" class="LineNr">34391 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x30/0 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x6f/o 0x76/v 0x65/e 0x72/r 0x66/f 0x6c/l 0x6f/o 0x77/w 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="L34392" class="LineNr">34392 </span><span class="subxMinorFunction">_string_0f_80_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34393" class="LineNr">34393 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34394" class="LineNr">34394 </span> <span class="subxComment"># "0f 80/jump-if-overflow loop/disp32"</span> +<span id="L34395" class="LineNr">34395 </span> 0x22/imm32/size +<span id="L34396" class="LineNr">34396 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x30/0 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x6f/o 0x76/v 0x65/e 0x72/r 0x66/f 0x6c/l 0x6f/o 0x77/w 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="L34397" class="LineNr">34397 </span><span class="subxMinorFunction">_string_0f_81_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34398" class="LineNr">34398 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34399" class="LineNr">34399 </span> <span class="subxComment"># "0f 81/jump-if-not-overflow"</span> +<span id="L34400" class="LineNr">34400 </span> 0x1a/imm32/size +<span id="L34401" class="LineNr">34401 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x31/1 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x6e/n 0x6f/o 0x74/t 0x2d/dash 0x6f/o 0x76/v 0x65/e 0x72/r 0x66/f 0x6c/l 0x6f/o 0x77/w +<span id="L34402" class="LineNr">34402 </span><span class="subxMinorFunction">_string_0f_81_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34403" class="LineNr">34403 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34404" class="LineNr">34404 </span> <span class="subxComment"># "0f 81/jump-if-not-overflow break/disp32"</span> +<span id="L34405" class="LineNr">34405 </span> 0x27/imm32/size +<span id="L34406" class="LineNr">34406 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x31/1 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x6e/n 0x6f/o 0x74/t 0x2d/dash 0x6f/o 0x76/v 0x65/e 0x72/r 0x66/f 0x6c/l 0x6f/o 0x77/w 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="L34407" class="LineNr">34407 </span><span class="subxMinorFunction">_string_0f_81_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34408" class="LineNr">34408 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34409" class="LineNr">34409 </span> <span class="subxComment"># "0f 81/jump-if-not-overflow loop/disp32"</span> +<span id="L34410" class="LineNr">34410 </span> 0x26/imm32/size +<span id="L34411" class="LineNr">34411 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x31/1 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x6e/n 0x6f/o 0x74/t 0x2d/dash 0x6f/o 0x76/v 0x65/e 0x72/r 0x66/f 0x6c/l 0x6f/o 0x77/w 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="L34412" class="LineNr">34412 </span><span class="subxMinorFunction">_string_0f_82_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34413" class="LineNr">34413 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34414" class="LineNr">34414 </span> <span class="subxComment"># "0f 82/jump-if-addr<"</span> +<span id="L34415" class="LineNr">34415 </span> 0x13/imm32/size +<span id="L34416" class="LineNr">34416 </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="L34417" class="LineNr">34417 </span><span class="subxMinorFunction">_string_0f_82_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34418" class="LineNr">34418 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34419" class="LineNr">34419 </span> <span class="subxComment"># "0f 82/jump-if-addr< break/disp32"</span> +<span id="L34420" class="LineNr">34420 </span> 0x20/imm32/size +<span id="L34421" class="LineNr">34421 </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="L34422" class="LineNr">34422 </span><span class="subxMinorFunction">_string_0f_82_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34423" class="LineNr">34423 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34424" class="LineNr">34424 </span> <span class="subxComment"># "0f 82/jump-if-addr< loop/disp32"</span> +<span id="L34425" class="LineNr">34425 </span> 0x1f/imm32/size +<span id="L34426" class="LineNr">34426 </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="L34427" class="LineNr">34427 </span><span class="subxMinorFunction">_string_0f_83_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34428" class="LineNr">34428 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34429" class="LineNr">34429 </span> <span class="subxComment"># "0f 83/jump-if-addr>="</span> +<span id="L34430" class="LineNr">34430 </span> 0x14/imm32/size +<span id="L34431" class="LineNr">34431 </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="L34432" class="LineNr">34432 </span><span class="subxMinorFunction">_string_0f_83_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34433" class="LineNr">34433 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34434" class="LineNr">34434 </span> <span class="subxComment"># "0f 83/jump-if-addr>= break/disp32"</span> +<span id="L34435" class="LineNr">34435 </span> 0x21/imm32/size +<span id="L34436" class="LineNr">34436 </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="L34437" class="LineNr">34437 </span><span class="subxMinorFunction">_string_0f_83_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34438" class="LineNr">34438 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34439" class="LineNr">34439 </span> <span class="subxComment"># "0f 83/jump-if-addr>= loop/disp32"</span> +<span id="L34440" class="LineNr">34440 </span> 0x20/imm32/size +<span id="L34441" class="LineNr">34441 </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="L34442" class="LineNr">34442 </span><span class="subxMinorFunction">_string_0f_84_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34443" class="LineNr">34443 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34444" class="LineNr">34444 </span> <span class="subxComment"># "0f 84/jump-if-="</span> +<span id="L34445" class="LineNr">34445 </span> 0xf/imm32/size +<span id="L34446" class="LineNr">34446 </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="L34447" class="LineNr">34447 </span><span class="subxMinorFunction">_string_0f_84_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34448" class="LineNr">34448 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34449" class="LineNr">34449 </span> <span class="subxComment"># "0f 84/jump-if-= break/disp32"</span> +<span id="L34450" class="LineNr">34450 </span> 0x1c/imm32/size +<span id="L34451" class="LineNr">34451 </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="L34452" class="LineNr">34452 </span><span class="subxMinorFunction">_string_0f_84_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34453" class="LineNr">34453 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34454" class="LineNr">34454 </span> <span class="subxComment"># "0f 84/jump-if-= loop/disp32"</span> +<span id="L34455" class="LineNr">34455 </span> 0x1a/imm32/size +<span id="L34456" class="LineNr">34456 </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="L34457" class="LineNr">34457 </span><span class="subxMinorFunction">_string_0f_85_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34458" class="LineNr">34458 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34459" class="LineNr">34459 </span> <span class="subxComment"># "0f 85/jump-if-!="</span> +<span id="L34460" class="LineNr">34460 </span> 0x10/imm32/size +<span id="L34461" class="LineNr">34461 </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="L34462" class="LineNr">34462 </span><span class="subxMinorFunction">_string_0f_85_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34463" class="LineNr">34463 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34464" class="LineNr">34464 </span> <span class="subxComment"># "0f 85/jump-if-!= break/disp32"</span> +<span id="L34465" class="LineNr">34465 </span> 0x1d/imm32/size +<span id="L34466" class="LineNr">34466 </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="L34467" class="LineNr">34467 </span><span class="subxMinorFunction">_string_0f_85_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34468" class="LineNr">34468 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34469" class="LineNr">34469 </span> <span class="subxComment"># "0f 85/jump-if-!= loop/disp32"</span> +<span id="L34470" class="LineNr">34470 </span> 0x1c/imm32/size +<span id="L34471" class="LineNr">34471 </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="L34472" class="LineNr">34472 </span><span class="subxMinorFunction">_string_0f_86_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34473" class="LineNr">34473 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34474" class="LineNr">34474 </span> <span class="subxComment"># "0f 86/jump-if-addr<="</span> +<span id="L34475" class="LineNr">34475 </span> 0x14/imm32/size +<span id="L34476" class="LineNr">34476 </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="L34477" class="LineNr">34477 </span><span class="subxMinorFunction">_string_0f_86_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34478" class="LineNr">34478 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34479" class="LineNr">34479 </span> <span class="subxComment"># "0f 86/jump-if-addr<= break/disp32"</span> +<span id="L34480" class="LineNr">34480 </span> 0x21/imm32/size +<span id="L34481" class="LineNr">34481 </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="L34482" class="LineNr">34482 </span><span class="subxMinorFunction">_string_0f_86_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34483" class="LineNr">34483 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34484" class="LineNr">34484 </span> <span class="subxComment"># "0f 86/jump-if-addr<= loop/disp32"</span> +<span id="L34485" class="LineNr">34485 </span> 0x20/imm32/size +<span id="L34486" class="LineNr">34486 </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="L34487" class="LineNr">34487 </span><span class="subxMinorFunction">_string_0f_87_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34488" class="LineNr">34488 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34489" class="LineNr">34489 </span> <span class="subxComment"># "0f 87/jump-if-addr>"</span> +<span id="L34490" class="LineNr">34490 </span> 0x13/imm32/size +<span id="L34491" class="LineNr">34491 </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="L34492" class="LineNr">34492 </span><span class="subxMinorFunction">_string_0f_87_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34493" class="LineNr">34493 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34494" class="LineNr">34494 </span> <span class="subxComment"># "0f 87/jump-if-addr> break/disp32"</span> +<span id="L34495" class="LineNr">34495 </span> 0x20/imm32/size +<span id="L34496" class="LineNr">34496 </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="L34497" class="LineNr">34497 </span><span class="subxMinorFunction">_string_0f_87_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34498" class="LineNr">34498 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34499" class="LineNr">34499 </span> <span class="subxComment"># "0f 87/jump-if-addr> loop/disp32"</span> +<span id="L34500" class="LineNr">34500 </span> 0x1f/imm32/size +<span id="L34501" class="LineNr">34501 </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="L34502" class="LineNr">34502 </span><span class="subxMinorFunction">_string_0f_8c_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34503" class="LineNr">34503 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34504" class="LineNr">34504 </span> <span class="subxComment"># "0f 8c/jump-if-<"</span> +<span id="L34505" class="LineNr">34505 </span> 0xf/imm32/size +<span id="L34506" class="LineNr">34506 </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="L34507" class="LineNr">34507 </span><span class="subxMinorFunction">_string_0f_8c_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34508" class="LineNr">34508 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34509" class="LineNr">34509 </span> <span class="subxComment"># "0f 8c/jump-if-< break/disp32"</span> +<span id="L34510" class="LineNr">34510 </span> 0x1c/imm32/size +<span id="L34511" class="LineNr">34511 </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="L34512" class="LineNr">34512 </span><span class="subxMinorFunction">_string_0f_8c_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34513" class="LineNr">34513 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34514" class="LineNr">34514 </span> <span class="subxComment"># "0f 8c/jump-if-< loop/disp32"</span> +<span id="L34515" class="LineNr">34515 </span> 0x1b/imm32/size +<span id="L34516" class="LineNr">34516 </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="L34517" class="LineNr">34517 </span><span class="subxMinorFunction">_string_0f_8d_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34518" class="LineNr">34518 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34519" class="LineNr">34519 </span> <span class="subxComment"># "0f 8d/jump-if->="</span> +<span id="L34520" class="LineNr">34520 </span> 0x10/imm32/size +<span id="L34521" class="LineNr">34521 </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="L34522" class="LineNr">34522 </span><span class="subxMinorFunction">_string_0f_8d_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34523" class="LineNr">34523 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34524" class="LineNr">34524 </span> <span class="subxComment"># "0f 8d/jump-if->= break/disp32"</span> +<span id="L34525" class="LineNr">34525 </span> 0x1d/imm32/size +<span id="L34526" class="LineNr">34526 </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="L34527" class="LineNr">34527 </span><span class="subxMinorFunction">_string_0f_8d_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34528" class="LineNr">34528 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34529" class="LineNr">34529 </span> <span class="subxComment"># "0f 8d/jump-if->= loop/disp32"</span> +<span id="L34530" class="LineNr">34530 </span> 0x1c/imm32/size +<span id="L34531" class="LineNr">34531 </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="L34532" class="LineNr">34532 </span><span class="subxMinorFunction">_string_0f_8e_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34533" class="LineNr">34533 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34534" class="LineNr">34534 </span> <span class="subxComment"># "0f 8e/jump-if-<="</span> +<span id="L34535" class="LineNr">34535 </span> 0x10/imm32/size +<span id="L34536" class="LineNr">34536 </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="L34537" class="LineNr">34537 </span><span class="subxMinorFunction">_string_0f_8e_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34538" class="LineNr">34538 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34539" class="LineNr">34539 </span> <span class="subxComment"># "0f 8e/jump-if-<= break/disp32"</span> +<span id="L34540" class="LineNr">34540 </span> 0x1d/imm32/size +<span id="L34541" class="LineNr">34541 </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="L34542" class="LineNr">34542 </span><span class="subxMinorFunction">_string_0f_8e_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34543" class="LineNr">34543 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34544" class="LineNr">34544 </span> <span class="subxComment"># "0f 8e/jump-if-<= loop/disp32"</span> +<span id="L34545" class="LineNr">34545 </span> 0x1c/imm32/size +<span id="L34546" class="LineNr">34546 </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="L34547" class="LineNr">34547 </span><span class="subxMinorFunction">_string_0f_8f_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34548" class="LineNr">34548 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34549" class="LineNr">34549 </span> <span class="subxComment"># "0f 8f/jump-if->"</span> +<span id="L34550" class="LineNr">34550 </span> 0xf/imm32/size +<span id="L34551" class="LineNr">34551 </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="L34552" class="LineNr">34552 </span><span class="subxMinorFunction">_string_0f_8f_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34553" class="LineNr">34553 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34554" class="LineNr">34554 </span> <span class="subxComment"># "0f 8f/jump-if-> break/disp32"</span> +<span id="L34555" class="LineNr">34555 </span> 0x1c/imm32/size +<span id="L34556" class="LineNr">34556 </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="L34557" class="LineNr">34557 </span><span class="subxMinorFunction">_string_0f_8f_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34558" class="LineNr">34558 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34559" class="LineNr">34559 </span> <span class="subxComment"># "0f 8f/jump-if-> loop/disp32"</span> +<span id="L34560" class="LineNr">34560 </span> 0x1b/imm32/size +<span id="L34561" class="LineNr">34561 </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="L34562" class="LineNr">34562 </span><span class="subxMinorFunction">_string_0f_af_multiply</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34563" class="LineNr">34563 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34564" class="LineNr">34564 </span> <span class="subxComment"># "0f af/multiply"</span> +<span id="L34565" class="LineNr">34565 </span> 0xe/imm32/size +<span id="L34566" class="LineNr">34566 </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="L34567" class="LineNr">34567 </span><span class="subxMinorFunction">_string_f3_0f_2a_convert_to_float</span>: +<span id="L34568" class="LineNr">34568 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34569" class="LineNr">34569 </span> <span class="subxComment"># "f3 0f 2a/convert-to-float"</span> +<span id="L34570" class="LineNr">34570 </span> 0x19/imm32/size +<span id="L34571" class="LineNr">34571 </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="L34572" class="LineNr">34572 </span><span class="subxMinorFunction">_string_f3_0f_2d_convert_to_int</span>: +<span id="L34573" class="LineNr">34573 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34574" class="LineNr">34574 </span> <span class="subxComment"># "f3 0f 2d/convert-to-int"</span> +<span id="L34575" class="LineNr">34575 </span> 0x17/imm32/size +<span id="L34576" class="LineNr">34576 </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="L34577" class="LineNr">34577 </span><span class="subxMinorFunction">_string_f3_0f_2c_truncate_to_int</span>: +<span id="L34578" class="LineNr">34578 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34579" class="LineNr">34579 </span> <span class="subxComment"># "f3 0f 2c/truncate-to-int"</span> +<span id="L34580" class="LineNr">34580 </span> 0x18/imm32/size +<span id="L34581" class="LineNr">34581 </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="L34582" class="LineNr">34582 </span><span class="subxMinorFunction">_string_f3_0f_58_add</span>: +<span id="L34583" class="LineNr">34583 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34584" class="LineNr">34584 </span> <span class="subxComment"># "f3 0f 58/add"</span> +<span id="L34585" class="LineNr">34585 </span> 0xc/imm32/size +<span id="L34586" class="LineNr">34586 </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="L34587" class="LineNr">34587 </span><span class="subxMinorFunction">_string_f3_0f_5c_subtract</span>: +<span id="L34588" class="LineNr">34588 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34589" class="LineNr">34589 </span> <span class="subxComment"># "f3 0f 5c/subtract"</span> +<span id="L34590" class="LineNr">34590 </span> 0x11/imm32/size +<span id="L34591" class="LineNr">34591 </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="L34592" class="LineNr">34592 </span><span class="subxMinorFunction">_string_f3_0f_59_multiply</span>: +<span id="L34593" class="LineNr">34593 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34594" class="LineNr">34594 </span> <span class="subxComment"># "f3 0f 59/multiply"</span> +<span id="L34595" class="LineNr">34595 </span> 0x11/imm32/size +<span id="L34596" class="LineNr">34596 </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="L34597" class="LineNr">34597 </span><span class="subxMinorFunction">_string_f3_0f_5e_divide</span>: +<span id="L34598" class="LineNr">34598 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34599" class="LineNr">34599 </span> <span class="subxComment"># "f3 0f 5e/divide"</span> +<span id="L34600" class="LineNr">34600 </span> 0xf/imm32/size +<span id="L34601" class="LineNr">34601 </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="L34602" class="LineNr">34602 </span><span class="subxMinorFunction">_string_f3_0f_53_reciprocal</span>: +<span id="L34603" class="LineNr">34603 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34604" class="LineNr">34604 </span> <span class="subxComment"># "f3 0f 53/reciprocal"</span> +<span id="L34605" class="LineNr">34605 </span> 0x13/imm32/size +<span id="L34606" class="LineNr">34606 </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="L34607" class="LineNr">34607 </span><span class="subxMinorFunction">_string_f3_0f_51_square_root</span>: +<span id="L34608" class="LineNr">34608 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34609" class="LineNr">34609 </span> <span class="subxComment"># "f3 0f 51/square-root"</span> +<span id="L34610" class="LineNr">34610 </span> 0x14/imm32/size +<span id="L34611" class="LineNr">34611 </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="L34612" class="LineNr">34612 </span><span class="subxMinorFunction">_string_f3_0f_52_inverse_square_root</span>: <span id="L34613" class="LineNr">34613 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34614" class="LineNr">34614 </span> 0x11/imm32/alloc-id:fake -<span id="L34615" class="LineNr">34615 </span> <span class="SpecialChar"><a href='mu.subx.html#L34581'>Int-var-in-mem</a></span>/imm32 -<span id="L34616" class="LineNr">34616 </span> 0x11/imm32/alloc-id:fake -<span id="L34617" class="LineNr">34617 </span> <span class="SpecialChar"><a href='mu.subx.html#L34683'>Single-int-var-in-some-register</a></span>/imm32/next -<span id="L34618" class="LineNr">34618 </span> -<span id="L34619" class="LineNr">34619 </span><span class="SpecialChar">Two-int-args-in-regs</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34620" class="LineNr">34620 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34621" class="LineNr">34621 </span> 0x11/imm32/alloc-id:fake -<span id="L34622" class="LineNr">34622 </span> <span class="SpecialChar"><a href='mu.subx.html#L34704'>Int-var-in-some-register</a></span>/imm32 -<span id="L34623" class="LineNr">34623 </span> 0x11/imm32/alloc-id:fake -<span id="L34624" class="LineNr">34624 </span> <span class="SpecialChar"><a href='mu.subx.html#L34683'>Single-int-var-in-some-register</a></span>/imm32/next -<span id="L34625" class="LineNr">34625 </span> -<span id="L34626" class="LineNr">34626 </span><span class="subxComment"># Not really legal, but closest we can currently represent a dereference of an (addr byte)</span> -<span id="L34627" class="LineNr">34627 </span><span class="SpecialChar">Two-args-byte-stack-byte-reg</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34614" class="LineNr">34614 </span> <span class="subxComment"># "f3 0f 52/inverse-square-root"</span> +<span id="L34615" class="LineNr">34615 </span> 0x1c/imm32/size +<span id="L34616" class="LineNr">34616 </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="L34617" class="LineNr">34617 </span><span class="subxMinorFunction">_string_f3_0f_5d_min</span>: +<span id="L34618" class="LineNr">34618 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34619" class="LineNr">34619 </span> <span class="subxComment"># "f3 0f 5d/min"</span> +<span id="L34620" class="LineNr">34620 </span> 0xc/imm32/size +<span id="L34621" class="LineNr">34621 </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="L34622" class="LineNr">34622 </span><span class="subxMinorFunction">_string_f3_0f_5f_max</span>: +<span id="L34623" class="LineNr">34623 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34624" class="LineNr">34624 </span> <span class="subxComment"># "f3 0f 5f/max"</span> +<span id="L34625" class="LineNr">34625 </span> 0xc/imm32/size +<span id="L34626" class="LineNr">34626 </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="L34627" class="LineNr">34627 </span><span class="subxMinorFunction">_string_f3_0f_10_copy</span>: <span id="L34628" class="LineNr">34628 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34629" class="LineNr">34629 </span> 0x11/imm32/alloc-id:fake -<span id="L34630" class="LineNr">34630 </span> <span class="SpecialChar"><a href='mu.subx.html#L34601'>Byte-var-in-mem</a></span>/imm32 -<span id="L34631" class="LineNr">34631 </span> 0x11/imm32/alloc-id:fake -<span id="L34632" class="LineNr">34632 </span> <span class="SpecialChar"><a href='mu.subx.html#L34697'>Single-byte-var-in-some-register</a></span>/imm32/next -<span id="L34633" class="LineNr">34633 </span> -<span id="L34634" class="LineNr">34634 </span><span class="SpecialChar">Two-args-int-reg-int-stack</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34635" class="LineNr">34635 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34636" class="LineNr">34636 </span> 0x11/imm32/alloc-id:fake -<span id="L34637" class="LineNr">34637 </span> <span class="SpecialChar"><a href='mu.subx.html#L34704'>Int-var-in-some-register</a></span>/imm32 -<span id="L34638" class="LineNr">34638 </span> 0x11/imm32/alloc-id:fake -<span id="L34639" class="LineNr">34639 </span> <span class="SpecialChar"><a href='mu.subx.html#L34574'>Single-int-var-in-mem</a></span>/imm32/next -<span id="L34640" class="LineNr">34640 </span> -<span id="L34641" class="LineNr">34641 </span><span class="SpecialChar">Two-args-int-eax-int-literal</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34642" class="LineNr">34642 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34643" class="LineNr">34643 </span> 0x11/imm32/alloc-id:fake -<span id="L34644" class="LineNr">34644 </span> <span class="SpecialChar"><a href='mu.subx.html#L34750'>Int-var-in-eax</a></span>/imm32 -<span id="L34645" class="LineNr">34645 </span> 0x11/imm32/alloc-id:fake -<span id="L34646" class="LineNr">34646 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/next -<span id="L34647" class="LineNr">34647 </span> -<span id="L34648" class="LineNr">34648 </span><span class="SpecialChar">Int-var-and-literal</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34649" class="LineNr">34649 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34650" class="LineNr">34650 </span> 0x11/imm32/alloc-id:fake -<span id="L34651" class="LineNr">34651 </span> <span class="SpecialChar"><a href='mu.subx.html#L34581'>Int-var-in-mem</a></span>/imm32 -<span id="L34652" class="LineNr">34652 </span> 0x11/imm32/alloc-id:fake -<span id="L34653" class="LineNr">34653 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/next -<span id="L34654" class="LineNr">34654 </span> -<span id="L34655" class="LineNr">34655 </span><span class="SpecialChar">Int-var-in-register-and-literal</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34656" class="LineNr">34656 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34657" class="LineNr">34657 </span> 0x11/imm32/alloc-id:fake -<span id="L34658" class="LineNr">34658 </span> <span class="SpecialChar"><a href='mu.subx.html#L34704'>Int-var-in-some-register</a></span>/imm32 -<span id="L34659" class="LineNr">34659 </span> 0x11/imm32/alloc-id:fake -<span id="L34660" class="LineNr">34660 </span> <span class="SpecialChar"><a href='mu.subx.html#L34851'>Single-lit-var</a></span>/imm32/next -<span id="L34661" class="LineNr">34661 </span> -<span id="L34662" class="LineNr">34662 </span><span class="SpecialChar">Two-float-args-in-regs</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34629" class="LineNr">34629 </span> <span class="subxComment"># "f3 0f 10/copy"</span> +<span id="L34630" class="LineNr">34630 </span> 0xd/imm32/size +<span id="L34631" class="LineNr">34631 </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="L34632" class="LineNr">34632 </span><span class="subxMinorFunction">_string_f3_0f_11_copy</span>: +<span id="L34633" class="LineNr">34633 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34634" class="LineNr">34634 </span> <span class="subxComment"># "f3 0f 11/copy"</span> +<span id="L34635" class="LineNr">34635 </span> 0xd/imm32/size +<span id="L34636" class="LineNr">34636 </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="L34637" class="LineNr">34637 </span><span class="subxMinorFunction">_string_0f_2f_compare</span>: +<span id="L34638" class="LineNr">34638 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34639" class="LineNr">34639 </span> <span class="subxComment"># "0f 2f/compare"</span> +<span id="L34640" class="LineNr">34640 </span> 0xd/imm32/size +<span id="L34641" class="LineNr">34641 </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="L34642" class="LineNr">34642 </span><span class="subxMinorFunction">_string_21_and_with</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34643" class="LineNr">34643 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34644" class="LineNr">34644 </span> <span class="subxComment"># "21/and-with"</span> +<span id="L34645" class="LineNr">34645 </span> 0xb/imm32/size +<span id="L34646" class="LineNr">34646 </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="L34647" class="LineNr">34647 </span><span class="subxMinorFunction">_string_23_and</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34648" class="LineNr">34648 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34649" class="LineNr">34649 </span> <span class="subxComment"># "23/and"</span> +<span id="L34650" class="LineNr">34650 </span> 0x6/imm32/size +<span id="L34651" class="LineNr">34651 </span> 0x32/2 0x33/3 0x2f/slash 0x61/a 0x6e/n 0x64/d +<span id="L34652" class="LineNr">34652 </span><span class="subxMinorFunction">_string_25_and_with_eax</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34653" class="LineNr">34653 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34654" class="LineNr">34654 </span> <span class="subxComment"># "25/and-with-eax"</span> +<span id="L34655" class="LineNr">34655 </span> 0xf/imm32/size +<span id="L34656" class="LineNr">34656 </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="L34657" class="LineNr">34657 </span><span class="subxMinorFunction">_string_29_subtract_from</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34658" class="LineNr">34658 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34659" class="LineNr">34659 </span> <span class="subxComment"># "29/subtract-from"</span> +<span id="L34660" class="LineNr">34660 </span> 0x10/imm32/size +<span id="L34661" class="LineNr">34661 </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="L34662" class="LineNr">34662 </span><span class="subxMinorFunction">_string_2b_subtract</span>: <span class="subxComment"># (payload array byte)</span> <span id="L34663" class="LineNr">34663 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34664" class="LineNr">34664 </span> 0x11/imm32/alloc-id:fake -<span id="L34665" class="LineNr">34665 </span> <span class="SpecialChar"><a href='mu.subx.html#L34894'>Float-var-in-some-register</a></span>/imm32 -<span id="L34666" class="LineNr">34666 </span> 0x11/imm32/alloc-id:fake -<span id="L34667" class="LineNr">34667 </span> <span class="SpecialChar"><a href='mu.subx.html#L34887'>Single-float-var-in-some-register</a></span>/imm32/next -<span id="L34668" class="LineNr">34668 </span> -<span id="L34669" class="LineNr">34669 </span><span class="SpecialChar">Two-args-float-reg-float-stack</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34670" class="LineNr">34670 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34671" class="LineNr">34671 </span> 0x11/imm32/alloc-id:fake -<span id="L34672" class="LineNr">34672 </span> <span class="SpecialChar"><a href='mu.subx.html#L34894'>Float-var-in-some-register</a></span>/imm32 -<span id="L34673" class="LineNr">34673 </span> 0x11/imm32/alloc-id:fake -<span id="L34674" class="LineNr">34674 </span> <span class="SpecialChar"><a href='mu.subx.html#L34869'>Single-float-var-in-mem</a></span>/imm32/next -<span id="L34675" class="LineNr">34675 </span> -<span id="L34676" class="LineNr">34676 </span><span class="SpecialChar">Two-args-float-stack-float-reg</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34677" class="LineNr">34677 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34678" class="LineNr">34678 </span> 0x11/imm32/alloc-id:fake -<span id="L34679" class="LineNr">34679 </span> <span class="SpecialChar"><a href='mu.subx.html#L34876'>Float-var-in-mem</a></span>/imm32 -<span id="L34680" class="LineNr">34680 </span> 0x11/imm32/alloc-id:fake -<span id="L34681" class="LineNr">34681 </span> <span class="SpecialChar"><a href='mu.subx.html#L34887'>Single-float-var-in-some-register</a></span>/imm32/next -<span id="L34682" class="LineNr">34682 </span> -<span id="L34683" class="LineNr">34683 </span><span class="SpecialChar">Single-int-var-in-some-register</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34684" class="LineNr">34684 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34685" class="LineNr">34685 </span> 0x11/imm32/alloc-id:fake -<span id="L34686" class="LineNr">34686 </span> <span class="SpecialChar"><a href='mu.subx.html#L34704'>Int-var-in-some-register</a></span>/imm32 -<span id="L34687" class="LineNr">34687 </span> 0/imm32/next -<span id="L34688" class="LineNr">34688 </span> 0/imm32/next -<span id="L34689" class="LineNr">34689 </span> -<span id="L34690" class="LineNr">34690 </span><span class="SpecialChar">Single-addr-var-in-some-register</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34691" class="LineNr">34691 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34692" class="LineNr">34692 </span> 0x11/imm32/alloc-id:fake -<span id="L34693" class="LineNr">34693 </span> <span class="SpecialChar"><a href='mu.subx.html#L34721'>Addr-var-in-some-register</a></span>/imm32 -<span id="L34694" class="LineNr">34694 </span> 0/imm32/next -<span id="L34695" class="LineNr">34695 </span> 0/imm32/next -<span id="L34696" class="LineNr">34696 </span> -<span id="L34697" class="LineNr">34697 </span><span class="SpecialChar">Single-byte-var-in-some-register</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34664" class="LineNr">34664 </span> <span class="subxComment"># "2b/subtract"</span> +<span id="L34665" class="LineNr">34665 </span> 0xb/imm32/size +<span id="L34666" class="LineNr">34666 </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="L34667" class="LineNr">34667 </span><span class="subxMinorFunction">_string_2d_subtract_from_eax</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34668" class="LineNr">34668 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34669" class="LineNr">34669 </span> <span class="subxComment"># "2d/subtract-from-eax"</span> +<span id="L34670" class="LineNr">34670 </span> 0x14/imm32/size +<span id="L34671" class="LineNr">34671 </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="L34672" class="LineNr">34672 </span><span class="subxMinorFunction">_string_31_xor_with</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34673" class="LineNr">34673 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34674" class="LineNr">34674 </span> <span class="subxComment"># "31/xor-with"</span> +<span id="L34675" class="LineNr">34675 </span> 0xb/imm32/size +<span id="L34676" class="LineNr">34676 </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="L34677" class="LineNr">34677 </span><span class="subxMinorFunction">_string_33_xor</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34678" class="LineNr">34678 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34679" class="LineNr">34679 </span> <span class="subxComment"># "33/xor"</span> +<span id="L34680" class="LineNr">34680 </span> 0x6/imm32/size +<span id="L34681" class="LineNr">34681 </span> 0x33/3 0x33/3 0x2f/slash 0x78/x 0x6f/o 0x72/r +<span id="L34682" class="LineNr">34682 </span><span class="subxMinorFunction">_string_35_xor_with_eax</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34683" class="LineNr">34683 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34684" class="LineNr">34684 </span> <span class="subxComment"># "35/xor-with-eax"</span> +<span id="L34685" class="LineNr">34685 </span> 0xf/imm32/size +<span id="L34686" class="LineNr">34686 </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="L34687" class="LineNr">34687 </span><span class="subxMinorFunction">_string_39_compare-></span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34688" class="LineNr">34688 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34689" class="LineNr">34689 </span> <span class="subxComment"># "39/compare->"</span> +<span id="L34690" class="LineNr">34690 </span> 0xc/imm32/size +<span id="L34691" class="LineNr">34691 </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="L34692" class="LineNr">34692 </span><span class="subxMinorFunction">_string_3b_compare<-</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34693" class="LineNr">34693 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34694" class="LineNr">34694 </span> <span class="subxComment"># "3b/compare<-"</span> +<span id="L34695" class="LineNr">34695 </span> 0xc/imm32/size +<span id="L34696" class="LineNr">34696 </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="L34697" class="LineNr">34697 </span><span class="subxMinorFunction">_string_3d_compare_eax_with</span>: <span class="subxComment"># (payload array byte)</span> <span id="L34698" class="LineNr">34698 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34699" class="LineNr">34699 </span> 0x11/imm32/alloc-id:fake -<span id="L34700" class="LineNr">34700 </span> <span class="SpecialChar"><a href='mu.subx.html#L34732'>Byte-var-in-some-register</a></span>/imm32 -<span id="L34701" class="LineNr">34701 </span> 0/imm32/next -<span id="L34702" class="LineNr">34702 </span> 0/imm32/next -<span id="L34703" class="LineNr">34703 </span> -<span id="L34704" class="LineNr">34704 </span><span class="SpecialChar">Int-var-in-some-register</span>: <span class="subxComment"># (payload var)</span> -<span id="L34705" class="LineNr">34705 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34706" class="LineNr">34706 </span> 0/imm32/name -<span id="L34707" class="LineNr">34707 </span> 0/imm32/name -<span id="L34708" class="LineNr">34708 </span> 0x11/imm32/alloc-id:fake -<span id="L34709" class="LineNr">34709 </span> <span class="SpecialChar"><a href='mu.subx.html#L34905'>Type-int</a></span>/imm32 -<span id="L34710" class="LineNr">34710 </span> 1/imm32/some-block-depth -<span id="L34711" class="LineNr">34711 </span> 0/imm32/no-stack-offset -<span id="L34712" class="LineNr">34712 </span> 0x11/imm32/alloc-id:fake -<span id="L34713" class="LineNr">34713 </span> <span class="SpecialChar"><a href='mu.subx.html#L34715'>Any-register</a></span>/imm32 -<span id="L34714" class="LineNr">34714 </span> -<span id="L34715" class="LineNr">34715 </span><span class="SpecialChar">Any-register</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34716" class="LineNr">34716 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34717" class="LineNr">34717 </span> 1/imm32/size -<span id="L34718" class="LineNr">34718 </span> <span class="subxComment"># data</span> -<span id="L34719" class="LineNr">34719 </span> 2a/asterisk -<span id="L34720" class="LineNr">34720 </span> -<span id="L34721" class="LineNr">34721 </span><span class="SpecialChar">Addr-var-in-some-register</span>: <span class="subxComment"># (payload var)</span> -<span id="L34722" class="LineNr">34722 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34723" class="LineNr">34723 </span> 0/imm32/name -<span id="L34724" class="LineNr">34724 </span> 0/imm32/name -<span id="L34725" class="LineNr">34725 </span> 0x11/imm32/alloc-id:fake -<span id="L34726" class="LineNr">34726 </span> <span class="SpecialChar"><a href='mu.subx.html#L34921'>Type-addr</a></span>/imm32 -<span id="L34727" class="LineNr">34727 </span> 1/imm32/some-block-depth -<span id="L34728" class="LineNr">34728 </span> 0/imm32/no-stack-offset -<span id="L34729" class="LineNr">34729 </span> 0x11/imm32/alloc-id:fake -<span id="L34730" class="LineNr">34730 </span> <span class="SpecialChar"><a href='mu.subx.html#L34715'>Any-register</a></span>/imm32 -<span id="L34731" class="LineNr">34731 </span> -<span id="L34732" class="LineNr">34732 </span><span class="SpecialChar">Byte-var-in-some-register</span>: <span class="subxComment"># (payload var)</span> +<span id="L34699" class="LineNr">34699 </span> <span class="subxComment"># "3d/compare-eax-with"</span> +<span id="L34700" class="LineNr">34700 </span> 0x13/imm32/size +<span id="L34701" class="LineNr">34701 </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="L34702" class="LineNr">34702 </span><span class="subxMinorFunction">_string_40_increment_eax</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34703" class="LineNr">34703 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34704" class="LineNr">34704 </span> <span class="subxComment"># "40/increment-eax"</span> +<span id="L34705" class="LineNr">34705 </span> 0x10/imm32/size +<span id="L34706" class="LineNr">34706 </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="L34707" class="LineNr">34707 </span><span class="subxMinorFunction">_string_41_increment_ecx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34708" class="LineNr">34708 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34709" class="LineNr">34709 </span> <span class="subxComment"># "41/increment-ecx"</span> +<span id="L34710" class="LineNr">34710 </span> 0x10/imm32/size +<span id="L34711" class="LineNr">34711 </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="L34712" class="LineNr">34712 </span><span class="subxMinorFunction">_string_42_increment_edx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34713" class="LineNr">34713 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34714" class="LineNr">34714 </span> <span class="subxComment"># "42/increment-edx"</span> +<span id="L34715" class="LineNr">34715 </span> 0x10/imm32/size +<span id="L34716" class="LineNr">34716 </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="L34717" class="LineNr">34717 </span><span class="subxMinorFunction">_string_43_increment_ebx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34718" class="LineNr">34718 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34719" class="LineNr">34719 </span> <span class="subxComment"># "43/increment-ebx"</span> +<span id="L34720" class="LineNr">34720 </span> 0x10/imm32/size +<span id="L34721" class="LineNr">34721 </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="L34722" class="LineNr">34722 </span><span class="subxMinorFunction">_string_46_increment_esi</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34723" class="LineNr">34723 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34724" class="LineNr">34724 </span> <span class="subxComment"># "46/increment-esi"</span> +<span id="L34725" class="LineNr">34725 </span> 0x10/imm32/size +<span id="L34726" class="LineNr">34726 </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="L34727" class="LineNr">34727 </span><span class="subxMinorFunction">_string_47_increment_edi</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34728" class="LineNr">34728 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34729" class="LineNr">34729 </span> <span class="subxComment"># "47/increment-edi"</span> +<span id="L34730" class="LineNr">34730 </span> 0x10/imm32/size +<span id="L34731" class="LineNr">34731 </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="L34732" class="LineNr">34732 </span><span class="subxMinorFunction">_string_48_decrement_eax</span>: <span class="subxComment"># (payload array byte)</span> <span id="L34733" class="LineNr">34733 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34734" class="LineNr">34734 </span> 0/imm32/name -<span id="L34735" class="LineNr">34735 </span> 0/imm32/name -<span id="L34736" class="LineNr">34736 </span> 0x11/imm32/alloc-id:fake -<span id="L34737" class="LineNr">34737 </span> <span class="SpecialChar"><a href='mu.subx.html#L34929'>Type-byte</a></span>/imm32 -<span id="L34738" class="LineNr">34738 </span> 1/imm32/some-block-depth -<span id="L34739" class="LineNr">34739 </span> 0/imm32/no-stack-offset -<span id="L34740" class="LineNr">34740 </span> 0x11/imm32/alloc-id:fake -<span id="L34741" class="LineNr">34741 </span> <span class="SpecialChar"><a href='mu.subx.html#L34715'>Any-register</a></span>/imm32 -<span id="L34742" class="LineNr">34742 </span> -<span id="L34743" class="LineNr">34743 </span><span class="SpecialChar">Single-int-var-in-eax</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34744" class="LineNr">34744 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34745" class="LineNr">34745 </span> 0x11/imm32/alloc-id:fake -<span id="L34746" class="LineNr">34746 </span> <span class="SpecialChar"><a href='mu.subx.html#L34750'>Int-var-in-eax</a></span>/imm32 -<span id="L34747" class="LineNr">34747 </span> 0/imm32/next -<span id="L34748" class="LineNr">34748 </span> 0/imm32/next -<span id="L34749" class="LineNr">34749 </span> -<span id="L34750" class="LineNr">34750 </span><span class="SpecialChar">Int-var-in-eax</span>: -<span id="L34751" class="LineNr">34751 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34752" class="LineNr">34752 </span> 0/imm32/name -<span id="L34753" class="LineNr">34753 </span> 0/imm32/name -<span id="L34754" class="LineNr">34754 </span> 0x11/imm32/alloc-id:fake -<span id="L34755" class="LineNr">34755 </span> <span class="SpecialChar"><a href='mu.subx.html#L34905'>Type-int</a></span>/imm32 -<span id="L34756" class="LineNr">34756 </span> 1/imm32/some-block-depth -<span id="L34757" class="LineNr">34757 </span> 0/imm32/no-stack-offset -<span id="L34758" class="LineNr">34758 </span> 0x11/imm32/alloc-id:fake -<span id="L34759" class="LineNr">34759 </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="L34760" class="LineNr">34760 </span> -<span id="L34761" class="LineNr">34761 </span><span class="SpecialChar">Single-int-var-in-ecx</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34762" class="LineNr">34762 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34763" class="LineNr">34763 </span> 0x11/imm32/alloc-id:fake -<span id="L34764" class="LineNr">34764 </span> <span class="SpecialChar"><a href='mu.subx.html#L34768'>Int-var-in-ecx</a></span>/imm32 -<span id="L34765" class="LineNr">34765 </span> 0/imm32/next -<span id="L34766" class="LineNr">34766 </span> 0/imm32/next -<span id="L34767" class="LineNr">34767 </span> -<span id="L34768" class="LineNr">34768 </span><span class="SpecialChar">Int-var-in-ecx</span>: -<span id="L34769" class="LineNr">34769 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34770" class="LineNr">34770 </span> 0/imm32/name -<span id="L34771" class="LineNr">34771 </span> 0/imm32/name -<span id="L34772" class="LineNr">34772 </span> 0x11/imm32/alloc-id:fake -<span id="L34773" class="LineNr">34773 </span> <span class="SpecialChar"><a href='mu.subx.html#L34905'>Type-int</a></span>/imm32 -<span id="L34774" class="LineNr">34774 </span> 1/imm32/some-block-depth -<span id="L34775" class="LineNr">34775 </span> 0/imm32/no-stack-offset -<span id="L34776" class="LineNr">34776 </span> 0x11/imm32/alloc-id:fake -<span id="L34777" class="LineNr">34777 </span> $Register-ecx/imm32/register -<span id="L34778" class="LineNr">34778 </span> -<span id="L34779" class="LineNr">34779 </span><span class="SpecialChar">Single-int-var-in-edx</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34780" class="LineNr">34780 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34781" class="LineNr">34781 </span> 0x11/imm32/alloc-id:fake -<span id="L34782" class="LineNr">34782 </span> <span class="SpecialChar"><a href='mu.subx.html#L34786'>Int-var-in-edx</a></span>/imm32 -<span id="L34783" class="LineNr">34783 </span> 0/imm32/next -<span id="L34784" class="LineNr">34784 </span> 0/imm32/next -<span id="L34785" class="LineNr">34785 </span> -<span id="L34786" class="LineNr">34786 </span><span class="SpecialChar">Int-var-in-edx</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34787" class="LineNr">34787 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34788" class="LineNr">34788 </span> 0/imm32/name -<span id="L34789" class="LineNr">34789 </span> 0/imm32/name -<span id="L34790" class="LineNr">34790 </span> 0x11/imm32/alloc-id:fake -<span id="L34791" class="LineNr">34791 </span> <span class="SpecialChar"><a href='mu.subx.html#L34905'>Type-int</a></span>/imm32 -<span id="L34792" class="LineNr">34792 </span> 1/imm32/some-block-depth -<span id="L34793" class="LineNr">34793 </span> 0/imm32/no-stack-offset -<span id="L34794" class="LineNr">34794 </span> 0x11/imm32/alloc-id:fake -<span id="L34795" class="LineNr">34795 </span> $Register-edx/imm32/register -<span id="L34796" class="LineNr">34796 </span> -<span id="L34797" class="LineNr">34797 </span><span class="SpecialChar">Single-int-var-in-ebx</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34734" class="LineNr">34734 </span> <span class="subxComment"># "48/decrement-eax"</span> +<span id="L34735" class="LineNr">34735 </span> 0x10/imm32/size +<span id="L34736" class="LineNr">34736 </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="L34737" class="LineNr">34737 </span><span class="subxMinorFunction">_string_49_decrement_ecx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34738" class="LineNr">34738 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34739" class="LineNr">34739 </span> <span class="subxComment"># "49/decrement-ecx"</span> +<span id="L34740" class="LineNr">34740 </span> 0x10/imm32/size +<span id="L34741" class="LineNr">34741 </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="L34742" class="LineNr">34742 </span><span class="subxMinorFunction">_string_4a_decrement_edx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34743" class="LineNr">34743 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34744" class="LineNr">34744 </span> <span class="subxComment"># "4a/decrement-edx"</span> +<span id="L34745" class="LineNr">34745 </span> 0x10/imm32/size +<span id="L34746" class="LineNr">34746 </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="L34747" class="LineNr">34747 </span><span class="subxMinorFunction">_string_4b_decrement_ebx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34748" class="LineNr">34748 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34749" class="LineNr">34749 </span> <span class="subxComment"># "4b/decrement-ebx"</span> +<span id="L34750" class="LineNr">34750 </span> 0x10/imm32/size +<span id="L34751" class="LineNr">34751 </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="L34752" class="LineNr">34752 </span><span class="subxMinorFunction">_string_4e_decrement_esi</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34753" class="LineNr">34753 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34754" class="LineNr">34754 </span> <span class="subxComment"># "4e/decrement-esi"</span> +<span id="L34755" class="LineNr">34755 </span> 0x10/imm32/size +<span id="L34756" class="LineNr">34756 </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="L34757" class="LineNr">34757 </span><span class="subxMinorFunction">_string_4f_decrement_edi</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34758" class="LineNr">34758 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34759" class="LineNr">34759 </span> <span class="subxComment"># "4f/decrement-edi"</span> +<span id="L34760" class="LineNr">34760 </span> 0x10/imm32/size +<span id="L34761" class="LineNr">34761 </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="L34762" class="LineNr">34762 </span><span class="subxMinorFunction">_string_81_subop_add</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34763" class="LineNr">34763 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34764" class="LineNr">34764 </span> <span class="subxComment"># "81 0/subop/add"</span> +<span id="L34765" class="LineNr">34765 </span> 0xe/imm32/size +<span id="L34766" class="LineNr">34766 </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="L34767" class="LineNr">34767 </span><span class="subxMinorFunction">_string_81_subop_or</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34768" class="LineNr">34768 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34769" class="LineNr">34769 </span> <span class="subxComment"># "81 1/subop/or"</span> +<span id="L34770" class="LineNr">34770 </span> 0xd/imm32/size +<span id="L34771" class="LineNr">34771 </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="L34772" class="LineNr">34772 </span><span class="subxMinorFunction">_string_81_subop_and</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34773" class="LineNr">34773 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34774" class="LineNr">34774 </span> <span class="subxComment"># "81 4/subop/and"</span> +<span id="L34775" class="LineNr">34775 </span> 0xe/imm32/size +<span id="L34776" class="LineNr">34776 </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="L34777" class="LineNr">34777 </span><span class="subxMinorFunction">_string_81_subop_subtract</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34778" class="LineNr">34778 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34779" class="LineNr">34779 </span> <span class="subxComment"># "81 5/subop/subtract"</span> +<span id="L34780" class="LineNr">34780 </span> 0x13/imm32/size +<span id="L34781" class="LineNr">34781 </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="L34782" class="LineNr">34782 </span><span class="subxMinorFunction">_string_81_subop_xor</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34783" class="LineNr">34783 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34784" class="LineNr">34784 </span> <span class="subxComment"># "81 6/subop/xor"</span> +<span id="L34785" class="LineNr">34785 </span> 0xe/imm32/size +<span id="L34786" class="LineNr">34786 </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="L34787" class="LineNr">34787 </span><span class="subxMinorFunction">_string_81_subop_compare</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34788" class="LineNr">34788 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34789" class="LineNr">34789 </span> <span class="subxComment"># "81 7/subop/compare"</span> +<span id="L34790" class="LineNr">34790 </span> 0x12/imm32/size +<span id="L34791" class="LineNr">34791 </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="L34792" class="LineNr">34792 </span><span class="subxMinorFunction">_string_89_<-</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34793" class="LineNr">34793 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34794" class="LineNr">34794 </span> <span class="subxComment"># "89/<-"</span> +<span id="L34795" class="LineNr">34795 </span> 0x5/imm32/size +<span id="L34796" class="LineNr">34796 </span> 0x38/8 0x39/9 0x2f/slash 0x3c/< 0x2d/dash +<span id="L34797" class="LineNr">34797 </span><span class="subxMinorFunction">_string_8b_-></span>: <span class="subxComment"># (payload array byte)</span> <span id="L34798" class="LineNr">34798 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34799" class="LineNr">34799 </span> 0x11/imm32/alloc-id:fake -<span id="L34800" class="LineNr">34800 </span> <span class="SpecialChar"><a href='mu.subx.html#L34804'>Int-var-in-ebx</a></span>/imm32 -<span id="L34801" class="LineNr">34801 </span> 0/imm32/next -<span id="L34802" class="LineNr">34802 </span> 0/imm32/next -<span id="L34803" class="LineNr">34803 </span> -<span id="L34804" class="LineNr">34804 </span><span class="SpecialChar">Int-var-in-ebx</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34805" class="LineNr">34805 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34806" class="LineNr">34806 </span> 0/imm32/name -<span id="L34807" class="LineNr">34807 </span> 0/imm32/name -<span id="L34808" class="LineNr">34808 </span> 0x11/imm32/alloc-id:fake -<span id="L34809" class="LineNr">34809 </span> <span class="SpecialChar"><a href='mu.subx.html#L34905'>Type-int</a></span>/imm32 -<span id="L34810" class="LineNr">34810 </span> 1/imm32/some-block-depth -<span id="L34811" class="LineNr">34811 </span> 0/imm32/no-stack-offset -<span id="L34812" class="LineNr">34812 </span> 0x11/imm32/alloc-id:fake -<span id="L34813" class="LineNr">34813 </span> $Register-ebx/imm32/register -<span id="L34814" class="LineNr">34814 </span> -<span id="L34815" class="LineNr">34815 </span><span class="SpecialChar">Single-int-var-in-esi</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34816" class="LineNr">34816 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34817" class="LineNr">34817 </span> 0x11/imm32/alloc-id:fake -<span id="L34818" class="LineNr">34818 </span> <span class="SpecialChar"><a href='mu.subx.html#L34822'>Int-var-in-esi</a></span>/imm32 -<span id="L34819" class="LineNr">34819 </span> 0/imm32/next -<span id="L34820" class="LineNr">34820 </span> 0/imm32/next -<span id="L34821" class="LineNr">34821 </span> -<span id="L34822" class="LineNr">34822 </span><span class="SpecialChar">Int-var-in-esi</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34799" class="LineNr">34799 </span> <span class="subxComment"># "8b/->"</span> +<span id="L34800" class="LineNr">34800 </span> 0x5/imm32/size +<span id="L34801" class="LineNr">34801 </span> 0x38/8 0x62/b 0x2f/slash 0x2d/dash 0x3e/> +<span id="L34802" class="LineNr">34802 </span><span class="subxMinorFunction">_string_8a_copy_byte</span>: +<span id="L34803" class="LineNr">34803 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34804" class="LineNr">34804 </span> <span class="subxComment"># "8a/byte->"</span> +<span id="L34805" class="LineNr">34805 </span> 0x9/imm32/size +<span id="L34806" class="LineNr">34806 </span> 0x38/8 0x61/a 0x2f/slash 0x62/b 0x79/y 0x74/t 0x65/e 0x2d/dash 0x3e/> +<span id="L34807" class="LineNr">34807 </span><span class="subxMinorFunction">_string_88_copy_byte</span>: +<span id="L34808" class="LineNr">34808 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34809" class="LineNr">34809 </span> <span class="subxComment"># "88/byte<-"</span> +<span id="L34810" class="LineNr">34810 </span> 0x9/imm32/size +<span id="L34811" class="LineNr">34811 </span> 0x38/8 0x38/8 0x2f/slash 0x62/b 0x79/y 0x74/t 0x65/e 0x3c/< 0x2d/- +<span id="L34812" class="LineNr">34812 </span><span class="subxMinorFunction">_string_8d_copy_address</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34813" class="LineNr">34813 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34814" class="LineNr">34814 </span> <span class="subxComment"># "8d/copy-address"</span> +<span id="L34815" class="LineNr">34815 </span> 0xf/imm32/size +<span id="L34816" class="LineNr">34816 </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="L34817" class="LineNr">34817 </span><span class="subxMinorFunction">_string_b8_copy_to_eax</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34818" class="LineNr">34818 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34819" class="LineNr">34819 </span> <span class="subxComment"># "b8/copy-to-eax"</span> +<span id="L34820" class="LineNr">34820 </span> 0xe/imm32/size +<span id="L34821" class="LineNr">34821 </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="L34822" class="LineNr">34822 </span><span class="subxMinorFunction">_string_b9_copy_to_ecx</span>: <span class="subxComment"># (payload array byte)</span> <span id="L34823" class="LineNr">34823 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34824" class="LineNr">34824 </span> 0/imm32/name -<span id="L34825" class="LineNr">34825 </span> 0/imm32/name -<span id="L34826" class="LineNr">34826 </span> 0x11/imm32/alloc-id:fake -<span id="L34827" class="LineNr">34827 </span> <span class="SpecialChar"><a href='mu.subx.html#L34905'>Type-int</a></span>/imm32 -<span id="L34828" class="LineNr">34828 </span> 1/imm32/some-block-depth -<span id="L34829" class="LineNr">34829 </span> 0/imm32/no-stack-offset -<span id="L34830" class="LineNr">34830 </span> 0x11/imm32/alloc-id:fake -<span id="L34831" class="LineNr">34831 </span> $Register-esi/imm32/register -<span id="L34832" class="LineNr">34832 </span> -<span id="L34833" class="LineNr">34833 </span><span class="SpecialChar">Single-int-var-in-edi</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34834" class="LineNr">34834 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34835" class="LineNr">34835 </span> 0x11/imm32/alloc-id:fake -<span id="L34836" class="LineNr">34836 </span> <span class="SpecialChar"><a href='mu.subx.html#L34840'>Int-var-in-edi</a></span>/imm32 -<span id="L34837" class="LineNr">34837 </span> 0/imm32/next -<span id="L34838" class="LineNr">34838 </span> 0/imm32/next -<span id="L34839" class="LineNr">34839 </span> -<span id="L34840" class="LineNr">34840 </span><span class="SpecialChar">Int-var-in-edi</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34841" class="LineNr">34841 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34842" class="LineNr">34842 </span> 0/imm32/name -<span id="L34843" class="LineNr">34843 </span> 0/imm32/name -<span id="L34844" class="LineNr">34844 </span> 0x11/imm32/alloc-id:fake -<span id="L34845" class="LineNr">34845 </span> <span class="SpecialChar"><a href='mu.subx.html#L34905'>Type-int</a></span>/imm32 -<span id="L34846" class="LineNr">34846 </span> 1/imm32/some-block-depth -<span id="L34847" class="LineNr">34847 </span> 0/imm32/no-stack-offset -<span id="L34848" class="LineNr">34848 </span> 0x11/imm32/alloc-id:fake -<span id="L34849" class="LineNr">34849 </span> $Register-edi/imm32/register -<span id="L34850" class="LineNr">34850 </span> -<span id="L34851" class="LineNr">34851 </span><span class="SpecialChar">Single-lit-var</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34852" class="LineNr">34852 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34853" class="LineNr">34853 </span> 0x11/imm32/alloc-id:fake -<span id="L34854" class="LineNr">34854 </span> <span class="SpecialChar"><a href='mu.subx.html#L34858'>Lit-var</a></span>/imm32 -<span id="L34855" class="LineNr">34855 </span> 0/imm32/next -<span id="L34856" class="LineNr">34856 </span> 0/imm32/next -<span id="L34857" class="LineNr">34857 </span> -<span id="L34858" class="LineNr">34858 </span><span class="SpecialChar">Lit-var</span>: <span class="subxComment"># (payload var)</span> -<span id="L34859" class="LineNr">34859 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34860" class="LineNr">34860 </span> 0/imm32/name -<span id="L34861" class="LineNr">34861 </span> 0/imm32/name -<span id="L34862" class="LineNr">34862 </span> 0x11/imm32/alloc-id:fake -<span id="L34863" class="LineNr">34863 </span> <span class="SpecialChar"><a href='mu.subx.html#L34913'>Type-literal</a></span>/imm32 -<span id="L34864" class="LineNr">34864 </span> 1/imm32/some-block-depth -<span id="L34865" class="LineNr">34865 </span> 0/imm32/no-stack-offset -<span id="L34866" class="LineNr">34866 </span> 0/imm32/no-register -<span id="L34867" class="LineNr">34867 </span> 0/imm32/no-register -<span id="L34868" class="LineNr">34868 </span> -<span id="L34869" class="LineNr">34869 </span><span class="SpecialChar">Single-float-var-in-mem</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34870" class="LineNr">34870 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34871" class="LineNr">34871 </span> 0x11/imm32/alloc-id:fake -<span id="L34872" class="LineNr">34872 </span> <span class="SpecialChar"><a href='mu.subx.html#L34876'>Float-var-in-mem</a></span>/imm32 -<span id="L34873" class="LineNr">34873 </span> 0/imm32/next -<span id="L34874" class="LineNr">34874 </span> 0/imm32/next -<span id="L34875" class="LineNr">34875 </span> -<span id="L34876" class="LineNr">34876 </span><span class="SpecialChar">Float-var-in-mem</span>: <span class="subxComment"># (payload var)</span> -<span id="L34877" class="LineNr">34877 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34878" class="LineNr">34878 </span> 0/imm32/name -<span id="L34879" class="LineNr">34879 </span> 0/imm32/name -<span id="L34880" class="LineNr">34880 </span> 0x11/imm32/alloc-id:fake -<span id="L34881" class="LineNr">34881 </span> <span class="SpecialChar"><a href='mu.subx.html#L34937'>Type-float</a></span>/imm32 -<span id="L34882" class="LineNr">34882 </span> 1/imm32/some-block-depth -<span id="L34883" class="LineNr">34883 </span> 1/imm32/some-stack-offset -<span id="L34884" class="LineNr">34884 </span> 0/imm32/no-register -<span id="L34885" class="LineNr">34885 </span> 0/imm32/no-register -<span id="L34886" class="LineNr">34886 </span> -<span id="L34887" class="LineNr">34887 </span><span class="SpecialChar">Single-float-var-in-some-register</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34824" class="LineNr">34824 </span> <span class="subxComment"># "b9/copy-to-ecx"</span> +<span id="L34825" class="LineNr">34825 </span> 0xe/imm32/size +<span id="L34826" class="LineNr">34826 </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="L34827" class="LineNr">34827 </span><span class="subxMinorFunction">_string_ba_copy_to_edx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34828" class="LineNr">34828 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34829" class="LineNr">34829 </span> <span class="subxComment"># "ba/copy-to-edx"</span> +<span id="L34830" class="LineNr">34830 </span> 0xe/imm32/size +<span id="L34831" class="LineNr">34831 </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="L34832" class="LineNr">34832 </span><span class="subxMinorFunction">_string_bb_copy_to_ebx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34833" class="LineNr">34833 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34834" class="LineNr">34834 </span> <span class="subxComment"># "bb/copy-to-ebx"</span> +<span id="L34835" class="LineNr">34835 </span> 0xe/imm32/size +<span id="L34836" class="LineNr">34836 </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="L34837" class="LineNr">34837 </span><span class="subxMinorFunction">_string_be_copy_to_esi</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34838" class="LineNr">34838 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34839" class="LineNr">34839 </span> <span class="subxComment"># "be/copy-to-esi"</span> +<span id="L34840" class="LineNr">34840 </span> 0xe/imm32/size +<span id="L34841" class="LineNr">34841 </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="L34842" class="LineNr">34842 </span><span class="subxMinorFunction">_string_bf_copy_to_edi</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34843" class="LineNr">34843 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34844" class="LineNr">34844 </span> <span class="subxComment"># "bf/copy-to-edi"</span> +<span id="L34845" class="LineNr">34845 </span> 0xe/imm32/size +<span id="L34846" class="LineNr">34846 </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="L34847" class="LineNr">34847 </span><span class="subxMinorFunction">_string_c7_subop_copy</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34848" class="LineNr">34848 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34849" class="LineNr">34849 </span> <span class="subxComment"># "c7 0/subop/copy"</span> +<span id="L34850" class="LineNr">34850 </span> 0xf/imm32/size +<span id="L34851" class="LineNr">34851 </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="L34852" class="LineNr">34852 </span><span class="subxMinorFunction">_string_e9_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34853" class="LineNr">34853 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34854" class="LineNr">34854 </span> <span class="subxComment"># "e9/jump"</span> +<span id="L34855" class="LineNr">34855 </span> 0x7/imm32/size +<span id="L34856" class="LineNr">34856 </span> 0x65/e 0x39/9 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p +<span id="L34857" class="LineNr">34857 </span><span class="subxMinorFunction">_string_e9_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34858" class="LineNr">34858 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34859" class="LineNr">34859 </span> <span class="subxComment"># "e9/jump break/disp32"</span> +<span id="L34860" class="LineNr">34860 </span> 0x14/imm32/size +<span id="L34861" class="LineNr">34861 </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="L34862" class="LineNr">34862 </span><span class="subxMinorFunction">_string_e9_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34863" class="LineNr">34863 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34864" class="LineNr">34864 </span> <span class="subxComment"># "e9/jump loop/disp32"</span> +<span id="L34865" class="LineNr">34865 </span> 0x13/imm32/size +<span id="L34866" class="LineNr">34866 </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="L34867" class="LineNr">34867 </span><span class="subxMinorFunction">_string_f7_subop_negate</span>: +<span id="L34868" class="LineNr">34868 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34869" class="LineNr">34869 </span> <span class="subxComment"># "f7 3/subop/negate"</span> +<span id="L34870" class="LineNr">34870 </span> 0x11/imm32/size +<span id="L34871" class="LineNr">34871 </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="L34872" class="LineNr">34872 </span><span class="subxMinorFunction">_string_f7_subop_not</span>: +<span id="L34873" class="LineNr">34873 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34874" class="LineNr">34874 </span> <span class="subxComment"># "f7 2/subop/not"</span> +<span id="L34875" class="LineNr">34875 </span> 0xe/imm32/size +<span id="L34876" class="LineNr">34876 </span> 0x66/f 0x37/7 0x20/space 0x32/2 0x2f/slash 0x73/s 0x75/u 0x62/b 0x6f/o 0x70/p 0x2f/slash 0x6e/n 0x6f/o 0x74/t +<span id="L34877" class="LineNr">34877 </span><span class="subxMinorFunction">_string_ff_subop_increment</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34878" class="LineNr">34878 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34879" class="LineNr">34879 </span> <span class="subxComment"># "ff 0/subop/increment"</span> +<span id="L34880" class="LineNr">34880 </span> 0x14/imm32/size +<span id="L34881" class="LineNr">34881 </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="L34882" class="LineNr">34882 </span><span class="subxMinorFunction">_string_ff_subop_decrement</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34883" class="LineNr">34883 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34884" class="LineNr">34884 </span> <span class="subxComment"># "ff 1/subop/decrement"</span> +<span id="L34885" class="LineNr">34885 </span> 0x14/imm32/size +<span id="L34886" class="LineNr">34886 </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="L34887" class="LineNr">34887 </span><span class="subxMinorFunction">_string_c1_subop_shift_left</span>: <span class="subxComment"># (payload array byte)</span> <span id="L34888" class="LineNr">34888 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34889" class="LineNr">34889 </span> 0x11/imm32/alloc-id:fake -<span id="L34890" class="LineNr">34890 </span> <span class="SpecialChar"><a href='mu.subx.html#L34894'>Float-var-in-some-register</a></span>/imm32 -<span id="L34891" class="LineNr">34891 </span> 0/imm32/next -<span id="L34892" class="LineNr">34892 </span> 0/imm32/next -<span id="L34893" class="LineNr">34893 </span> -<span id="L34894" class="LineNr">34894 </span><span class="SpecialChar">Float-var-in-some-register</span>: <span class="subxComment"># (payload var)</span> -<span id="L34895" class="LineNr">34895 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34896" class="LineNr">34896 </span> 0/imm32/name -<span id="L34897" class="LineNr">34897 </span> 0/imm32/name -<span id="L34898" class="LineNr">34898 </span> 0x11/imm32/alloc-id:fake -<span id="L34899" class="LineNr">34899 </span> <span class="SpecialChar"><a href='mu.subx.html#L34937'>Type-float</a></span>/imm32 -<span id="L34900" class="LineNr">34900 </span> 1/imm32/some-block-depth -<span id="L34901" class="LineNr">34901 </span> 0/imm32/no-stack-offset -<span id="L34902" class="LineNr">34902 </span> 0x11/imm32/alloc-id:fake -<span id="L34903" class="LineNr">34903 </span> <span class="SpecialChar"><a href='mu.subx.html#L34715'>Any-register</a></span>/imm32 -<span id="L34904" class="LineNr">34904 </span> -<span id="L34905" class="LineNr">34905 </span><span class="SpecialChar">Type-int</span>: <span class="subxComment"># (payload type-tree)</span> -<span id="L34906" class="LineNr">34906 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34907" class="LineNr">34907 </span> 1/imm32/is-atom -<span id="L34908" class="LineNr">34908 </span> 1/imm32/value:int -<span id="L34909" class="LineNr">34909 </span> 0/imm32/left:unused -<span id="L34910" class="LineNr">34910 </span> 0/imm32/right:null -<span id="L34911" class="LineNr">34911 </span> 0/imm32/right:null -<span id="L34912" class="LineNr">34912 </span> -<span id="L34913" class="LineNr">34913 </span><span class="SpecialChar">Type-literal</span>: <span class="subxComment"># (payload type-tree)</span> -<span id="L34914" class="LineNr">34914 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34915" class="LineNr">34915 </span> 1/imm32/is-atom -<span id="L34916" class="LineNr">34916 </span> 0/imm32/value:literal -<span id="L34917" class="LineNr">34917 </span> 0/imm32/left:unused -<span id="L34918" class="LineNr">34918 </span> 0/imm32/right:null -<span id="L34919" class="LineNr">34919 </span> 0/imm32/right:null +<span id="L34889" class="LineNr">34889 </span> <span class="subxComment"># "c1/shift 4/subop/left"</span> +<span id="L34890" class="LineNr">34890 </span> 0x15/imm32/size +<span id="L34891" class="LineNr">34891 </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="L34892" class="LineNr">34892 </span><span class="subxMinorFunction">_string_c1_subop_shift_right_padding_zeroes</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34893" class="LineNr">34893 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34894" class="LineNr">34894 </span> <span class="subxComment"># "c1/shift 5/subop/right-padding-zeroes"</span> +<span id="L34895" class="LineNr">34895 </span> 0x25/imm32/size +<span id="L34896" class="LineNr">34896 </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="L34897" class="LineNr">34897 </span><span class="subxMinorFunction">_string_c1_subop_shift_right_preserving_sign</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34898" class="LineNr">34898 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34899" class="LineNr">34899 </span> <span class="subxComment"># "c1/shift 7/subop/right-preserving-sign"</span> +<span id="L34900" class="LineNr">34900 </span> 0x26/imm32/size +<span id="L34901" class="LineNr">34901 </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="L34902" class="LineNr">34902 </span> +<span id="L34903" class="LineNr">34903 </span><span class="SpecialChar">Single-int-var-in-mem</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34904" class="LineNr">34904 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34905" class="LineNr">34905 </span> 0x11/imm32/alloc-id:fake +<span id="L34906" class="LineNr">34906 </span> <span class="SpecialChar"><a href='mu.subx.html#L34910'>Int-var-in-mem</a></span>/imm32 +<span id="L34907" class="LineNr">34907 </span> 0/imm32/next +<span id="L34908" class="LineNr">34908 </span> 0/imm32/next +<span id="L34909" class="LineNr">34909 </span> +<span id="L34910" class="LineNr">34910 </span><span class="SpecialChar">Int-var-in-mem</span>: <span class="subxComment"># (payload var)</span> +<span id="L34911" class="LineNr">34911 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34912" class="LineNr">34912 </span> 0/imm32/name +<span id="L34913" class="LineNr">34913 </span> 0/imm32/name +<span id="L34914" class="LineNr">34914 </span> 0x11/imm32/alloc-id:fake +<span id="L34915" class="LineNr">34915 </span> <span class="SpecialChar"><a href='mu.subx.html#L35234'>Type-int</a></span>/imm32 +<span id="L34916" class="LineNr">34916 </span> 1/imm32/some-block-depth +<span id="L34917" class="LineNr">34917 </span> 1/imm32/some-stack-offset +<span id="L34918" class="LineNr">34918 </span> 0/imm32/no-register +<span id="L34919" class="LineNr">34919 </span> 0/imm32/no-register <span id="L34920" class="LineNr">34920 </span> -<span id="L34921" class="LineNr">34921 </span><span class="SpecialChar">Type-addr</span>: <span class="subxComment"># (payload type-tree)</span> -<span id="L34922" class="LineNr">34922 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34923" class="LineNr">34923 </span> 1/imm32/is-atom -<span id="L34924" class="LineNr">34924 </span> 2/imm32/value:addr -<span id="L34925" class="LineNr">34925 </span> 0/imm32/left:unused -<span id="L34926" class="LineNr">34926 </span> 0/imm32/right:null -<span id="L34927" class="LineNr">34927 </span> 0/imm32/right:null +<span id="L34921" class="LineNr">34921 </span><span class="subxComment"># Not really legal, but closest we can currently represent a dereference of an (addr byte)</span> +<span id="L34922" class="LineNr">34922 </span><span class="SpecialChar">Single-byte-var-in-mem</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34923" class="LineNr">34923 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34924" class="LineNr">34924 </span> 0x11/imm32/alloc-id:fake +<span id="L34925" class="LineNr">34925 </span> <span class="SpecialChar"><a href='mu.subx.html#L34930'>Byte-var-in-mem</a></span>/imm32 +<span id="L34926" class="LineNr">34926 </span> 0/imm32/next +<span id="L34927" class="LineNr">34927 </span> 0/imm32/next <span id="L34928" class="LineNr">34928 </span> -<span id="L34929" class="LineNr">34929 </span><span class="SpecialChar">Type-byte</span>: <span class="subxComment"># (payload type-tree)</span> -<span id="L34930" class="LineNr">34930 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34931" class="LineNr">34931 </span> 1/imm32/is-atom -<span id="L34932" class="LineNr">34932 </span> 8/imm32/value:byte -<span id="L34933" class="LineNr">34933 </span> 0/imm32/left:unused -<span id="L34934" class="LineNr">34934 </span> 0/imm32/right:null -<span id="L34935" class="LineNr">34935 </span> 0/imm32/right:null -<span id="L34936" class="LineNr">34936 </span> -<span id="L34937" class="LineNr">34937 </span><span class="SpecialChar">Type-float</span>: <span class="subxComment"># (payload type-tree)</span> -<span id="L34938" class="LineNr">34938 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34939" class="LineNr">34939 </span> 1/imm32/is-atom -<span id="L34940" class="LineNr">34940 </span> 0xf/imm32/value:float -<span id="L34941" class="LineNr">34941 </span> 0/imm32/left:unused -<span id="L34942" class="LineNr">34942 </span> 0/imm32/right:null -<span id="L34943" class="LineNr">34943 </span> 0/imm32/right:null -<span id="L34944" class="LineNr">34944 </span> -<span id="L34945" class="LineNr">34945 </span>== code -<span id="L34946" class="LineNr">34946 </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="L34947" class="LineNr">34947 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L34948" class="LineNr">34948 </span> 55/push-ebp -<span id="L34949" class="LineNr">34949 </span> 89/<- %ebp 4/r32/esp -<span id="L34950" class="LineNr">34950 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L34951" class="LineNr">34951 </span> 50/push-eax -<span id="L34952" class="LineNr">34952 </span> 51/push-ecx -<span id="L34953" class="LineNr">34953 </span> <span class="subxComment"># ecx = primitive</span> -<span id="L34954" class="LineNr">34954 </span> 8b/-> *(ebp+0x10) 1/r32/ecx -<span id="L34955" class="LineNr">34955 </span> <span class="subxComment"># emit primitive name</span> -<span id="L34956" class="LineNr">34956 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L34957" class="LineNr">34957 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Primitive-subx-name Primitive-subx-name => eax</span> -<span id="L34958" class="LineNr">34958 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L34959" class="LineNr">34959 </span> <span class="subxComment"># emit rm32 if necessary</span> -<span id="L34960" class="LineNr">34960 </span> (<a href='mu.subx.html#L34983'>emit-subx-rm32</a> *(ebp+8) *(ecx+0x20) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># Primitive-subx-rm32</span> -<span id="L34961" class="LineNr">34961 </span> <span class="subxComment"># emit xm32 if necessary</span> -<span id="L34962" class="LineNr">34962 </span> (<a href='mu.subx.html#L34983'>emit-subx-rm32</a> *(ebp+8) *(ecx+0x34) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># Primitive-subx-xm32</span> -<span id="L34963" class="LineNr">34963 </span> <span class="subxComment"># emit r32 if necessary</span> -<span id="L34964" class="LineNr">34964 </span> (<a href='mu.subx.html#L35057'>emit-subx-r32</a> *(ebp+8) *(ecx+0x24) *(ebp+0xc)) <span class="subxComment"># Primitive-subx-r32</span> -<span id="L34965" class="LineNr">34965 </span> <span class="subxComment"># emit x32 if necessary</span> -<span id="L34966" class="LineNr">34966 </span> (<a href='mu.subx.html#L35088'>emit-subx-x32</a> *(ebp+8) *(ecx+0x38) *(ebp+0xc)) <span class="subxComment"># Primitive-subx-x32</span> -<span id="L34967" class="LineNr">34967 </span> <span class="subxComment"># emit imm32 if necessary</span> -<span id="L34968" class="LineNr">34968 </span> (<a href='mu.subx.html#L35119'>emit-subx-imm32</a> *(ebp+8) *(ecx+0x28) *(ebp+0xc)) <span class="subxComment"># Primitive-subx-imm32</span> -<span id="L34969" class="LineNr">34969 </span> <span class="subxComment"># emit imm8 if necessary</span> -<span id="L34970" class="LineNr">34970 </span> (<a href='mu.subx.html#L35145'>emit-subx-imm8</a> *(ebp+8) *(ecx+0x2c) *(ebp+0xc)) <span class="subxComment"># Primitive-subx-imm8</span> -<span id="L34971" class="LineNr">34971 </span> <span class="subxComment"># emit disp32 if necessary</span> -<span id="L34972" class="LineNr">34972 </span> (<a href='mu.subx.html#L35171'>emit-subx-disp32</a> *(ebp+8) *(ecx+0x30) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># Primitive-subx-disp32</span> -<span id="L34973" class="LineNr">34973 </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="L34974" class="LineNr">34974 </span><span class="Constant">$emit-subx-primitive:end</span>: -<span id="L34975" class="LineNr">34975 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L34976" class="LineNr">34976 </span> 59/pop-to-ecx -<span id="L34977" class="LineNr">34977 </span> 58/pop-to-eax -<span id="L34978" class="LineNr">34978 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L34979" class="LineNr">34979 </span> 89/<- %esp 5/r32/ebp -<span id="L34980" class="LineNr">34980 </span> 5d/pop-to-ebp -<span id="L34981" class="LineNr">34981 </span> c3/return -<span id="L34982" class="LineNr">34982 </span> -<span id="L34983" class="LineNr">34983 </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="L34984" class="LineNr">34984 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L34985" class="LineNr">34985 </span> 55/push-ebp -<span id="L34986" class="LineNr">34986 </span> 89/<- %ebp 4/r32/esp -<span id="L34987" class="LineNr">34987 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L34988" class="LineNr">34988 </span> 50/push-eax -<span id="L34989" class="LineNr">34989 </span> <span class="subxComment"># if (l == 0) return</span> -<span id="L34990" class="LineNr">34990 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 -<span id="L34991" class="LineNr">34991 </span> 74/jump-if-= $emit-subx-rm32:end/disp8 -<span id="L34992" class="LineNr">34992 </span> <span class="subxComment"># var v/eax: (addr stmt-var)</span> -<span id="L34993" class="LineNr">34993 </span> (<a href='mu.subx.html#L35003'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> -<span id="L34994" class="LineNr">34994 </span> (<a href='mu.subx.html#L35416'>emit-subx-var-as-rm32</a> *(ebp+8) %eax) -<span id="L34995" class="LineNr">34995 </span><span class="Constant">$emit-subx-rm32:end</span>: -<span id="L34996" class="LineNr">34996 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L34997" class="LineNr">34997 </span> 58/pop-to-eax -<span id="L34998" class="LineNr">34998 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L34999" class="LineNr">34999 </span> 89/<- %esp 5/r32/ebp -<span id="L35000" class="LineNr">35000 </span> 5d/pop-to-ebp -<span id="L35001" class="LineNr">35001 </span> c3/return -<span id="L35002" class="LineNr">35002 </span> -<span id="L35003" class="LineNr">35003 </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="L35004" class="LineNr">35004 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35005" class="LineNr">35005 </span> 55/push-ebp -<span id="L35006" class="LineNr">35006 </span> 89/<- %ebp 4/r32/esp -<span id="L35007" class="LineNr">35007 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L35008" class="LineNr">35008 </span> 51/push-ecx -<span id="L35009" class="LineNr">35009 </span> <span class="subxComment"># eax = l</span> -<span id="L35010" class="LineNr">35010 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L35011" class="LineNr">35011 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L35012" class="LineNr">35012 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L35013" class="LineNr">35013 </span> <span class="subxComment"># if (l == 1) return stmt->inouts</span> -<span id="L35014" class="LineNr">35014 </span> { -<span id="L35015" class="LineNr">35015 </span> 3d/compare-eax-and 1/imm32 -<span id="L35016" class="LineNr">35016 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35017" class="LineNr">35017 </span><span class="Constant">$get-stmt-operand-from-arg-location:1</span>: -<span id="L35018" class="LineNr">35018 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L35019" class="LineNr">35019 </span> eb/jump $get-stmt-operand-from-arg-location:end/disp8 -<span id="L35020" class="LineNr">35020 </span> } -<span id="L35021" class="LineNr">35021 </span> <span class="subxComment"># if (l == 2) return stmt->inouts->next</span> -<span id="L35022" class="LineNr">35022 </span> { -<span id="L35023" class="LineNr">35023 </span> 3d/compare-eax-and 2/imm32 -<span id="L35024" class="LineNr">35024 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35025" class="LineNr">35025 </span><span class="Constant">$get-stmt-operand-from-arg-location:2</span>: -<span id="L35026" class="LineNr">35026 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L35027" class="LineNr">35027 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L35028" class="LineNr">35028 </span> eb/jump $get-stmt-operand-from-arg-location:end/disp8 -<span id="L35029" class="LineNr">35029 </span> } -<span id="L35030" class="LineNr">35030 </span> <span class="subxComment"># if (l == 3) return stmt->outputs</span> -<span id="L35031" class="LineNr">35031 </span> { -<span id="L35032" class="LineNr">35032 </span> 3d/compare-eax-and 3/imm32 -<span id="L35033" class="LineNr">35033 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35034" class="LineNr">35034 </span><span class="Constant">$get-stmt-operand-from-arg-location:3</span>: -<span id="L35035" class="LineNr">35035 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L35036" class="LineNr">35036 </span> eb/jump $get-stmt-operand-from-arg-location:end/disp8 -<span id="L35037" class="LineNr">35037 </span> } -<span id="L35038" class="LineNr">35038 </span> <span class="subxComment"># abort</span> -<span id="L35039" class="LineNr">35039 </span> e9/jump $get-stmt-operand-from-arg-location:abort/disp32 -<span id="L35040" class="LineNr">35040 </span><span class="Constant">$get-stmt-operand-from-arg-location:end</span>: -<span id="L35041" class="LineNr">35041 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L35042" class="LineNr">35042 </span> 59/pop-to-ecx -<span id="L35043" class="LineNr">35043 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35044" class="LineNr">35044 </span> 89/<- %esp 5/r32/ebp -<span id="L35045" class="LineNr">35045 </span> 5d/pop-to-ebp -<span id="L35046" class="LineNr">35046 </span> c3/return -<span id="L35047" class="LineNr">35047 </span> -<span id="L35048" class="LineNr">35048 </span><span class="Constant">$get-stmt-operand-from-arg-location:abort</span>: -<span id="L35049" class="LineNr">35049 </span> <span class="subxComment"># error("invalid arg-location " eax)</span> -<span id="L35050" class="LineNr">35050 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"invalid arg-location "</span>) -<span id="L35051" class="LineNr">35051 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+0x10) %eax) -<span id="L35052" class="LineNr">35052 </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="L35053" class="LineNr">35053 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L35054" class="LineNr">35054 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L35055" class="LineNr">35055 </span> <span class="subxComment"># never gets here</span> -<span id="L35056" class="LineNr">35056 </span> -<span id="L35057" class="LineNr">35057 </span><span class="subxFunction">emit-subx-r32</span>: <span class="subxComment"># out: (addr buffered-file), l: arg-location, stmt: (addr stmt)</span> -<span id="L35058" class="LineNr">35058 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35059" class="LineNr">35059 </span> 55/push-ebp -<span id="L35060" class="LineNr">35060 </span> 89/<- %ebp 4/r32/esp -<span id="L35061" class="LineNr">35061 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L35062" class="LineNr">35062 </span> 50/push-eax -<span id="L35063" class="LineNr">35063 </span> 51/push-ecx -<span id="L35064" class="LineNr">35064 </span> <span class="subxComment"># if (l == 0) return</span> -<span id="L35065" class="LineNr">35065 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 -<span id="L35066" class="LineNr">35066 </span> 0f 84/jump-if-= $emit-subx-r32:end/disp32 -<span id="L35067" class="LineNr">35067 </span> <span class="subxComment"># var v/eax: (addr stmt-var)</span> -<span id="L35068" class="LineNr">35068 </span> (<a href='mu.subx.html#L35003'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L35069" class="LineNr">35069 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L35070" class="LineNr">35070 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L35071" class="LineNr">35071 </span><span class="CommentedCode">#? (write-buffered Stderr "looking up ")</span> -<span id="L35072" class="LineNr">35072 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L35073" class="LineNr">35073 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L35074" class="LineNr">35074 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L35075" class="LineNr">35075 </span> (<a href='131table.subx.html#L1800'>maybe-get</a> <span class="SpecialChar"><a href='mu.subx.html#L19375'>Mu-registers</a></span> %eax 0xc) <span class="subxComment"># => eax: (addr register-index)</span> -<span id="L35076" class="LineNr">35076 </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="L35077" class="LineNr">35077 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L35078" class="LineNr">35078 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32"</span>) -<span id="L35079" class="LineNr">35079 </span><span class="Constant">$emit-subx-r32:end</span>: -<span id="L35080" class="LineNr">35080 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L35081" class="LineNr">35081 </span> 59/pop-to-ecx -<span id="L35082" class="LineNr">35082 </span> 58/pop-to-eax -<span id="L35083" class="LineNr">35083 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35084" class="LineNr">35084 </span> 89/<- %esp 5/r32/ebp -<span id="L35085" class="LineNr">35085 </span> 5d/pop-to-ebp -<span id="L35086" class="LineNr">35086 </span> c3/return -<span id="L35087" class="LineNr">35087 </span> -<span id="L35088" class="LineNr">35088 </span><span class="subxFunction">emit-subx-x32</span>: <span class="subxComment"># out: (addr buffered-file), l: arg-location, stmt: (addr stmt)</span> -<span id="L35089" class="LineNr">35089 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35090" class="LineNr">35090 </span> 55/push-ebp -<span id="L35091" class="LineNr">35091 </span> 89/<- %ebp 4/r32/esp -<span id="L35092" class="LineNr">35092 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L35093" class="LineNr">35093 </span> 50/push-eax -<span id="L35094" class="LineNr">35094 </span> 51/push-ecx -<span id="L35095" class="LineNr">35095 </span> <span class="subxComment"># if (l == 0) return</span> -<span id="L35096" class="LineNr">35096 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 -<span id="L35097" class="LineNr">35097 </span> 0f 84/jump-if-= $emit-subx-x32:end/disp32 -<span id="L35098" class="LineNr">35098 </span> <span class="subxComment"># var v/eax: (addr stmt-var)</span> -<span id="L35099" class="LineNr">35099 </span> (<a href='mu.subx.html#L35003'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L35100" class="LineNr">35100 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L35101" class="LineNr">35101 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L35102" class="LineNr">35102 </span><span class="CommentedCode">#? (write-buffered Stderr "looking up ")</span> -<span id="L35103" class="LineNr">35103 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L35104" class="LineNr">35104 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L35105" class="LineNr">35105 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L35106" class="LineNr">35106 </span> (<a href='131table.subx.html#L1800'>maybe-get</a> <span class="SpecialChar"><a href='mu.subx.html#L19375'>Mu-registers</a></span> %eax 0xc) <span class="subxComment"># => eax: (addr register-index)</span> -<span id="L35107" class="LineNr">35107 </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="L35108" class="LineNr">35108 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L35109" class="LineNr">35109 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/x32"</span>) -<span id="L35110" class="LineNr">35110 </span><span class="Constant">$emit-subx-x32:end</span>: -<span id="L35111" class="LineNr">35111 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L35112" class="LineNr">35112 </span> 59/pop-to-ecx -<span id="L35113" class="LineNr">35113 </span> 58/pop-to-eax -<span id="L35114" class="LineNr">35114 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35115" class="LineNr">35115 </span> 89/<- %esp 5/r32/ebp -<span id="L35116" class="LineNr">35116 </span> 5d/pop-to-ebp -<span id="L35117" class="LineNr">35117 </span> c3/return -<span id="L35118" class="LineNr">35118 </span> -<span id="L35119" class="LineNr">35119 </span><span class="subxFunction">emit-subx-imm32</span>: <span class="subxComment"># out: (addr buffered-file), l: arg-location, stmt: (addr stmt)</span> -<span id="L35120" class="LineNr">35120 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35121" class="LineNr">35121 </span> 55/push-ebp -<span id="L35122" class="LineNr">35122 </span> 89/<- %ebp 4/r32/esp -<span id="L35123" class="LineNr">35123 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L35124" class="LineNr">35124 </span> 50/push-eax -<span id="L35125" class="LineNr">35125 </span> 51/push-ecx -<span id="L35126" class="LineNr">35126 </span> <span class="subxComment"># if (l == 0) return</span> -<span id="L35127" class="LineNr">35127 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 -<span id="L35128" class="LineNr">35128 </span> 0f 84/jump-if-= $emit-subx-imm32:end/disp32 -<span id="L35129" class="LineNr">35129 </span> <span class="subxComment"># var v/eax: (handle var)</span> -<span id="L35130" class="LineNr">35130 </span> (<a href='mu.subx.html#L35003'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L35131" class="LineNr">35131 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L35132" class="LineNr">35132 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L35133" class="LineNr">35133 </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="L35134" class="LineNr">35134 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L35135" class="LineNr">35135 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32"</span>) -<span id="L35136" class="LineNr">35136 </span><span class="Constant">$emit-subx-imm32:end</span>: -<span id="L35137" class="LineNr">35137 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L35138" class="LineNr">35138 </span> 59/pop-to-ecx -<span id="L35139" class="LineNr">35139 </span> 58/pop-to-eax -<span id="L35140" class="LineNr">35140 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35141" class="LineNr">35141 </span> 89/<- %esp 5/r32/ebp -<span id="L35142" class="LineNr">35142 </span> 5d/pop-to-ebp -<span id="L35143" class="LineNr">35143 </span> c3/return -<span id="L35144" class="LineNr">35144 </span> -<span id="L35145" class="LineNr">35145 </span><span class="subxFunction">emit-subx-imm8</span>: <span class="subxComment"># out: (addr buffered-file), l: arg-location, stmt: (addr stmt)</span> -<span id="L35146" class="LineNr">35146 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35147" class="LineNr">35147 </span> 55/push-ebp -<span id="L35148" class="LineNr">35148 </span> 89/<- %ebp 4/r32/esp -<span id="L35149" class="LineNr">35149 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L35150" class="LineNr">35150 </span> 50/push-eax -<span id="L35151" class="LineNr">35151 </span> 51/push-ecx -<span id="L35152" class="LineNr">35152 </span> <span class="subxComment"># if (l == 0) return</span> -<span id="L35153" class="LineNr">35153 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 -<span id="L35154" class="LineNr">35154 </span> 0f 84/jump-if-= $emit-subx-imm32:end/disp32 -<span id="L35155" class="LineNr">35155 </span> <span class="subxComment"># var v/eax: (handle var)</span> -<span id="L35156" class="LineNr">35156 </span> (<a href='mu.subx.html#L35003'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L35157" class="LineNr">35157 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L35158" class="LineNr">35158 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L35159" class="LineNr">35159 </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="L35160" class="LineNr">35160 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L35161" class="LineNr">35161 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm8"</span>) -<span id="L35162" class="LineNr">35162 </span><span class="Constant">$emit-subx-imm8:end</span>: -<span id="L35163" class="LineNr">35163 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L35164" class="LineNr">35164 </span> 59/pop-to-ecx -<span id="L35165" class="LineNr">35165 </span> 58/pop-to-eax -<span id="L35166" class="LineNr">35166 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35167" class="LineNr">35167 </span> 89/<- %esp 5/r32/ebp -<span id="L35168" class="LineNr">35168 </span> 5d/pop-to-ebp -<span id="L35169" class="LineNr">35169 </span> c3/return -<span id="L35170" class="LineNr">35170 </span> -<span id="L35171" class="LineNr">35171 </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="L35172" class="LineNr">35172 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35173" class="LineNr">35173 </span> 55/push-ebp -<span id="L35174" class="LineNr">35174 </span> 89/<- %ebp 4/r32/esp -<span id="L35175" class="LineNr">35175 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L35176" class="LineNr">35176 </span> 50/push-eax -<span id="L35177" class="LineNr">35177 </span> 51/push-ecx -<span id="L35178" class="LineNr">35178 </span> <span class="subxComment"># if (location == 0) return</span> -<span id="L35179" class="LineNr">35179 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 -<span id="L35180" class="LineNr">35180 </span> 0f 84/jump-if-= $emit-subx-disp32:end/disp32 -<span id="L35181" class="LineNr">35181 </span> <span class="subxComment"># var v/eax: (addr stmt-var)</span> -<span id="L35182" class="LineNr">35182 </span> (<a href='mu.subx.html#L35003'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> -<span id="L35183" class="LineNr">35183 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L35184" class="LineNr">35184 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L35185" class="LineNr">35185 </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="L35186" class="LineNr">35186 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L35187" class="LineNr">35187 </span> <span class="subxComment"># hack: if instruction operation starts with "break", emit ":break"</span> -<span id="L35188" class="LineNr">35188 </span> <span class="subxComment"># var name/ecx: (addr array byte) = lookup(stmt->operation)</span> -<span id="L35189" class="LineNr">35189 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L35190" class="LineNr">35190 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L35191" class="LineNr">35191 </span> 89/<- %ecx 0/r32/eax -<span id="L35192" class="LineNr">35192 </span> { -<span id="L35193" class="LineNr">35193 </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="L35194" class="LineNr">35194 </span> 3d/compare-eax-and 0/imm32/false -<span id="L35195" class="LineNr">35195 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35196" class="LineNr">35196 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":break"</span>) -<span id="L35197" class="LineNr">35197 </span> } -<span id="L35198" class="LineNr">35198 </span> <span class="subxComment"># hack: if instruction operation starts with "loop", emit ":loop"</span> -<span id="L35199" class="LineNr">35199 </span> { -<span id="L35200" class="LineNr">35200 </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="L35201" class="LineNr">35201 </span> 3d/compare-eax-and 0/imm32/false -<span id="L35202" class="LineNr">35202 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35203" class="LineNr">35203 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":loop"</span>) -<span id="L35204" class="LineNr">35204 </span> } -<span id="L35205" class="LineNr">35205 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/disp32"</span>) -<span id="L35206" class="LineNr">35206 </span><span class="Constant">$emit-subx-disp32:end</span>: -<span id="L35207" class="LineNr">35207 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L35208" class="LineNr">35208 </span> 59/pop-to-ecx -<span id="L35209" class="LineNr">35209 </span> 58/pop-to-eax -<span id="L35210" class="LineNr">35210 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35211" class="LineNr">35211 </span> 89/<- %esp 5/r32/ebp -<span id="L35212" class="LineNr">35212 </span> 5d/pop-to-ebp -<span id="L35213" class="LineNr">35213 </span> c3/return -<span id="L35214" class="LineNr">35214 </span> -<span id="L35215" class="LineNr">35215 </span><span class="subxFunction">emit-call</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt)</span> -<span id="L35216" class="LineNr">35216 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35217" class="LineNr">35217 </span> 55/push-ebp -<span id="L35218" class="LineNr">35218 </span> 89/<- %ebp 4/r32/esp -<span id="L35219" class="LineNr">35219 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L35220" class="LineNr">35220 </span> 50/push-eax -<span id="L35221" class="LineNr">35221 </span> 51/push-ecx -<span id="L35222" class="LineNr">35222 </span> <span class="subxComment">#</span> -<span id="L35223" class="LineNr">35223 </span> (<a href='mu.subx.html#L38449'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span>) -<span id="L35224" class="LineNr">35224 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"("</span>) -<span id="L35225" class="LineNr">35225 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L35226" class="LineNr">35226 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L35227" class="LineNr">35227 </span> <span class="subxH1Comment"># - emit function name</span> -<span id="L35228" class="LineNr">35228 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L35229" class="LineNr">35229 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L35230" class="LineNr">35230 </span> <span class="subxH1Comment"># - emit arguments</span> -<span id="L35231" class="LineNr">35231 </span> <span class="subxComment"># var curr/eax: (addr stmt-var) = lookup(stmt->inouts)</span> -<span id="L35232" class="LineNr">35232 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L35233" class="LineNr">35233 </span> { -<span id="L35234" class="LineNr">35234 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L35235" class="LineNr">35235 </span> 3d/compare-eax-and 0/imm32 -<span id="L35236" class="LineNr">35236 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35237" class="LineNr">35237 </span> <span class="subxComment">#</span> -<span id="L35238" class="LineNr">35238 </span> (<a href='mu.subx.html#L35254'>emit-subx-call-operand</a> *(ebp+8) %eax) -<span id="L35239" class="LineNr">35239 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L35240" class="LineNr">35240 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L35241" class="LineNr">35241 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L35242" class="LineNr">35242 </span> } -<span id="L35243" class="LineNr">35243 </span> <span class="subxComment">#</span> -<span id="L35244" class="LineNr">35244 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L35245" class="LineNr">35245 </span><span class="Constant">$emit-call:end</span>: -<span id="L35246" class="LineNr">35246 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L35247" class="LineNr">35247 </span> 59/pop-to-ecx -<span id="L35248" class="LineNr">35248 </span> 58/pop-to-eax -<span id="L35249" class="LineNr">35249 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35250" class="LineNr">35250 </span> 89/<- %esp 5/r32/ebp -<span id="L35251" class="LineNr">35251 </span> 5d/pop-to-ebp -<span id="L35252" class="LineNr">35252 </span> c3/return -<span id="L35253" class="LineNr">35253 </span> -<span id="L35254" class="LineNr">35254 </span><span class="subxFunction">emit-subx-call-operand</span>: <span class="subxComment"># out: (addr buffered-file), s: (addr stmt-var)</span> -<span id="L35255" class="LineNr">35255 </span> <span class="subxComment"># shares code with emit-subx-var-as-rm32</span> -<span id="L35256" class="LineNr">35256 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35257" class="LineNr">35257 </span> 55/push-ebp -<span id="L35258" class="LineNr">35258 </span> 89/<- %ebp 4/r32/esp -<span id="L35259" class="LineNr">35259 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L35260" class="LineNr">35260 </span> 50/push-eax -<span id="L35261" class="LineNr">35261 </span> 51/push-ecx -<span id="L35262" class="LineNr">35262 </span> 56/push-esi -<span id="L35263" class="LineNr">35263 </span> <span class="subxComment"># ecx = s</span> -<span id="L35264" class="LineNr">35264 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L35265" class="LineNr">35265 </span> <span class="subxComment"># var operand/esi: (addr var) = lookup(s->value)</span> -<span id="L35266" class="LineNr">35266 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L35267" class="LineNr">35267 </span> 89/<- %esi 0/r32/eax -<span id="L35268" class="LineNr">35268 </span> <span class="subxComment"># if (operand->register && !s->is-deref?) emit "%__"</span> -<span id="L35269" class="LineNr">35269 </span> { -<span id="L35270" class="LineNr">35270 </span><span class="Constant">$emit-subx-call-operand:check-for-register-direct</span>: -<span id="L35271" class="LineNr">35271 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L35272" class="LineNr">35272 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35273" class="LineNr">35273 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L35274" class="LineNr">35274 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35275" class="LineNr">35275 </span><span class="Constant">$emit-subx-call-operand:register-direct</span>: -<span id="L35276" class="LineNr">35276 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" %"</span>) -<span id="L35277" class="LineNr">35277 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L35278" class="LineNr">35278 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L35279" class="LineNr">35279 </span> e9/jump $emit-subx-call-operand:end/disp32 -<span id="L35280" class="LineNr">35280 </span> } -<span id="L35281" class="LineNr">35281 </span> <span class="subxComment"># else if (operand->register && s->is-deref?) emit "*__"</span> -<span id="L35282" class="LineNr">35282 </span> { -<span id="L35283" class="LineNr">35283 </span><span class="Constant">$emit-subx-call-operand:check-for-register-indirect</span>: -<span id="L35284" class="LineNr">35284 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L35285" class="LineNr">35285 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35286" class="LineNr">35286 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L35287" class="LineNr">35287 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35288" class="LineNr">35288 </span><span class="Constant">$emit-subx-call-operand:register-indirect</span>: -<span id="L35289" class="LineNr">35289 </span> (<a href='mu.subx.html#L35331'>emit-subx-call-operand-register-indirect</a> *(ebp+8) %esi) -<span id="L35290" class="LineNr">35290 </span> e9/jump $emit-subx-call-operand:end/disp32 -<span id="L35291" class="LineNr">35291 </span> } -<span id="L35292" class="LineNr">35292 </span> <span class="subxComment"># else if (operand->stack-offset) emit "*(ebp+__)"</span> -<span id="L35293" class="LineNr">35293 </span> { -<span id="L35294" class="LineNr">35294 </span> 81 7/subop/compare *(esi+0x14) 0/imm32 <span class="subxComment"># Var-offset</span> -<span id="L35295" class="LineNr">35295 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35296" class="LineNr">35296 </span><span class="Constant">$emit-subx-call-operand:stack</span>: -<span id="L35297" class="LineNr">35297 </span> (<a href='mu.subx.html#L35376'>emit-subx-call-operand-stack</a> *(ebp+8) %esi) -<span id="L35298" class="LineNr">35298 </span> e9/jump $emit-subx-call-operand:end/disp32 -<span id="L35299" class="LineNr">35299 </span> } -<span id="L35300" class="LineNr">35300 </span> <span class="subxComment"># else if (operand->type == literal) emit "__"</span> -<span id="L35301" class="LineNr">35301 </span> { -<span id="L35302" class="LineNr">35302 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L35303" class="LineNr">35303 </span> 81 7/subop/compare *(eax+4) 0/imm32 <span class="subxComment"># Type-tree-value</span> -<span id="L35304" class="LineNr">35304 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35305" class="LineNr">35305 </span><span class="Constant">$emit-subx-call-operand:literal</span>: -<span id="L35306" class="LineNr">35306 </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="L35307" class="LineNr">35307 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L35308" class="LineNr">35308 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L35309" class="LineNr">35309 </span> e9/jump $emit-subx-call-operand:end/disp32 -<span id="L35310" class="LineNr">35310 </span> } -<span id="L35311" class="LineNr">35311 </span> <span class="subxComment"># else if (operand->type == literal-string) emit "__"</span> -<span id="L35312" class="LineNr">35312 </span> { -<span id="L35313" class="LineNr">35313 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L35314" class="LineNr">35314 </span> 81 7/subop/compare *(eax+4) 0x10/imm32 <span class="subxComment"># Type-tree-value</span> -<span id="L35315" class="LineNr">35315 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35316" class="LineNr">35316 </span><span class="Constant">$emit-subx-call-operand:literal-string</span>: -<span id="L35317" class="LineNr">35317 </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="L35318" class="LineNr">35318 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L35319" class="LineNr">35319 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L35320" class="LineNr">35320 </span> } -<span id="L35321" class="LineNr">35321 </span><span class="Constant">$emit-subx-call-operand:end</span>: -<span id="L35322" class="LineNr">35322 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L35323" class="LineNr">35323 </span> 5e/pop-to-esi -<span id="L35324" class="LineNr">35324 </span> 59/pop-to-ecx -<span id="L35325" class="LineNr">35325 </span> 58/pop-to-eax -<span id="L35326" class="LineNr">35326 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35327" class="LineNr">35327 </span> 89/<- %esp 5/r32/ebp -<span id="L35328" class="LineNr">35328 </span> 5d/pop-to-ebp -<span id="L35329" class="LineNr">35329 </span> c3/return -<span id="L35330" class="LineNr">35330 </span> -<span id="L35331" class="LineNr">35331 </span><span class="subxFunction">emit-subx-call-operand-register-indirect</span>: <span class="subxComment"># out: (addr buffered-file), v: (addr var)</span> -<span id="L35332" class="LineNr">35332 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35333" class="LineNr">35333 </span> 55/push-ebp -<span id="L35334" class="LineNr">35334 </span> 89/<- %ebp 4/r32/esp -<span id="L35335" class="LineNr">35335 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L35336" class="LineNr">35336 </span> 50/push-eax +<span id="L34929" class="LineNr">34929 </span><span class="subxComment"># Not really legal, but closest we can currently represent a dereference of an (addr byte)</span> +<span id="L34930" class="LineNr">34930 </span><span class="SpecialChar">Byte-var-in-mem</span>: <span class="subxComment"># (payload var)</span> +<span id="L34931" class="LineNr">34931 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34932" class="LineNr">34932 </span> 0/imm32/name +<span id="L34933" class="LineNr">34933 </span> 0/imm32/name +<span id="L34934" class="LineNr">34934 </span> 0x11/imm32/alloc-id:fake +<span id="L34935" class="LineNr">34935 </span> <span class="SpecialChar"><a href='mu.subx.html#L35258'>Type-byte</a></span>/imm32 +<span id="L34936" class="LineNr">34936 </span> 1/imm32/some-block-depth +<span id="L34937" class="LineNr">34937 </span> 1/imm32/some-stack-offset +<span id="L34938" class="LineNr">34938 </span> 0/imm32/no-register +<span id="L34939" class="LineNr">34939 </span> 0/imm32/no-register +<span id="L34940" class="LineNr">34940 </span> +<span id="L34941" class="LineNr">34941 </span><span class="SpecialChar">Two-args-int-stack-int-reg</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34942" class="LineNr">34942 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34943" class="LineNr">34943 </span> 0x11/imm32/alloc-id:fake +<span id="L34944" class="LineNr">34944 </span> <span class="SpecialChar"><a href='mu.subx.html#L34910'>Int-var-in-mem</a></span>/imm32 +<span id="L34945" class="LineNr">34945 </span> 0x11/imm32/alloc-id:fake +<span id="L34946" class="LineNr">34946 </span> <span class="SpecialChar"><a href='mu.subx.html#L35012'>Single-int-var-in-some-register</a></span>/imm32/next +<span id="L34947" class="LineNr">34947 </span> +<span id="L34948" class="LineNr">34948 </span><span class="SpecialChar">Two-int-args-in-regs</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34949" class="LineNr">34949 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34950" class="LineNr">34950 </span> 0x11/imm32/alloc-id:fake +<span id="L34951" class="LineNr">34951 </span> <span class="SpecialChar"><a href='mu.subx.html#L35033'>Int-var-in-some-register</a></span>/imm32 +<span id="L34952" class="LineNr">34952 </span> 0x11/imm32/alloc-id:fake +<span id="L34953" class="LineNr">34953 </span> <span class="SpecialChar"><a href='mu.subx.html#L35012'>Single-int-var-in-some-register</a></span>/imm32/next +<span id="L34954" class="LineNr">34954 </span> +<span id="L34955" class="LineNr">34955 </span><span class="subxComment"># Not really legal, but closest we can currently represent a dereference of an (addr byte)</span> +<span id="L34956" class="LineNr">34956 </span><span class="SpecialChar">Two-args-byte-stack-byte-reg</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34957" class="LineNr">34957 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34958" class="LineNr">34958 </span> 0x11/imm32/alloc-id:fake +<span id="L34959" class="LineNr">34959 </span> <span class="SpecialChar"><a href='mu.subx.html#L34930'>Byte-var-in-mem</a></span>/imm32 +<span id="L34960" class="LineNr">34960 </span> 0x11/imm32/alloc-id:fake +<span id="L34961" class="LineNr">34961 </span> <span class="SpecialChar"><a href='mu.subx.html#L35026'>Single-byte-var-in-some-register</a></span>/imm32/next +<span id="L34962" class="LineNr">34962 </span> +<span id="L34963" class="LineNr">34963 </span><span class="SpecialChar">Two-args-int-reg-int-stack</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34964" class="LineNr">34964 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34965" class="LineNr">34965 </span> 0x11/imm32/alloc-id:fake +<span id="L34966" class="LineNr">34966 </span> <span class="SpecialChar"><a href='mu.subx.html#L35033'>Int-var-in-some-register</a></span>/imm32 +<span id="L34967" class="LineNr">34967 </span> 0x11/imm32/alloc-id:fake +<span id="L34968" class="LineNr">34968 </span> <span class="SpecialChar"><a href='mu.subx.html#L34903'>Single-int-var-in-mem</a></span>/imm32/next +<span id="L34969" class="LineNr">34969 </span> +<span id="L34970" class="LineNr">34970 </span><span class="SpecialChar">Two-args-int-eax-int-literal</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34971" class="LineNr">34971 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34972" class="LineNr">34972 </span> 0x11/imm32/alloc-id:fake +<span id="L34973" class="LineNr">34973 </span> <span class="SpecialChar"><a href='mu.subx.html#L35079'>Int-var-in-eax</a></span>/imm32 +<span id="L34974" class="LineNr">34974 </span> 0x11/imm32/alloc-id:fake +<span id="L34975" class="LineNr">34975 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/next +<span id="L34976" class="LineNr">34976 </span> +<span id="L34977" class="LineNr">34977 </span><span class="SpecialChar">Int-var-and-literal</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34978" class="LineNr">34978 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34979" class="LineNr">34979 </span> 0x11/imm32/alloc-id:fake +<span id="L34980" class="LineNr">34980 </span> <span class="SpecialChar"><a href='mu.subx.html#L34910'>Int-var-in-mem</a></span>/imm32 +<span id="L34981" class="LineNr">34981 </span> 0x11/imm32/alloc-id:fake +<span id="L34982" class="LineNr">34982 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/next +<span id="L34983" class="LineNr">34983 </span> +<span id="L34984" class="LineNr">34984 </span><span class="SpecialChar">Int-var-in-register-and-literal</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34985" class="LineNr">34985 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34986" class="LineNr">34986 </span> 0x11/imm32/alloc-id:fake +<span id="L34987" class="LineNr">34987 </span> <span class="SpecialChar"><a href='mu.subx.html#L35033'>Int-var-in-some-register</a></span>/imm32 +<span id="L34988" class="LineNr">34988 </span> 0x11/imm32/alloc-id:fake +<span id="L34989" class="LineNr">34989 </span> <span class="SpecialChar"><a href='mu.subx.html#L35180'>Single-lit-var</a></span>/imm32/next +<span id="L34990" class="LineNr">34990 </span> +<span id="L34991" class="LineNr">34991 </span><span class="SpecialChar">Two-float-args-in-regs</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34992" class="LineNr">34992 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34993" class="LineNr">34993 </span> 0x11/imm32/alloc-id:fake +<span id="L34994" class="LineNr">34994 </span> <span class="SpecialChar"><a href='mu.subx.html#L35223'>Float-var-in-some-register</a></span>/imm32 +<span id="L34995" class="LineNr">34995 </span> 0x11/imm32/alloc-id:fake +<span id="L34996" class="LineNr">34996 </span> <span class="SpecialChar"><a href='mu.subx.html#L35216'>Single-float-var-in-some-register</a></span>/imm32/next +<span id="L34997" class="LineNr">34997 </span> +<span id="L34998" class="LineNr">34998 </span><span class="SpecialChar">Two-args-float-reg-float-stack</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34999" class="LineNr">34999 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35000" class="LineNr">35000 </span> 0x11/imm32/alloc-id:fake +<span id="L35001" class="LineNr">35001 </span> <span class="SpecialChar"><a href='mu.subx.html#L35223'>Float-var-in-some-register</a></span>/imm32 +<span id="L35002" class="LineNr">35002 </span> 0x11/imm32/alloc-id:fake +<span id="L35003" class="LineNr">35003 </span> <span class="SpecialChar"><a href='mu.subx.html#L35198'>Single-float-var-in-mem</a></span>/imm32/next +<span id="L35004" class="LineNr">35004 </span> +<span id="L35005" class="LineNr">35005 </span><span class="SpecialChar">Two-args-float-stack-float-reg</span>: <span class="subxComment"># (payload list var)</span> +<span id="L35006" class="LineNr">35006 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35007" class="LineNr">35007 </span> 0x11/imm32/alloc-id:fake +<span id="L35008" class="LineNr">35008 </span> <span class="SpecialChar"><a href='mu.subx.html#L35205'>Float-var-in-mem</a></span>/imm32 +<span id="L35009" class="LineNr">35009 </span> 0x11/imm32/alloc-id:fake +<span id="L35010" class="LineNr">35010 </span> <span class="SpecialChar"><a href='mu.subx.html#L35216'>Single-float-var-in-some-register</a></span>/imm32/next +<span id="L35011" class="LineNr">35011 </span> +<span id="L35012" class="LineNr">35012 </span><span class="SpecialChar">Single-int-var-in-some-register</span>: <span class="subxComment"># (payload list var)</span> +<span id="L35013" class="LineNr">35013 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35014" class="LineNr">35014 </span> 0x11/imm32/alloc-id:fake +<span id="L35015" class="LineNr">35015 </span> <span class="SpecialChar"><a href='mu.subx.html#L35033'>Int-var-in-some-register</a></span>/imm32 +<span id="L35016" class="LineNr">35016 </span> 0/imm32/next +<span id="L35017" class="LineNr">35017 </span> 0/imm32/next +<span id="L35018" class="LineNr">35018 </span> +<span id="L35019" class="LineNr">35019 </span><span class="SpecialChar">Single-addr-var-in-some-register</span>: <span class="subxComment"># (payload list var)</span> +<span id="L35020" class="LineNr">35020 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35021" class="LineNr">35021 </span> 0x11/imm32/alloc-id:fake +<span id="L35022" class="LineNr">35022 </span> <span class="SpecialChar"><a href='mu.subx.html#L35050'>Addr-var-in-some-register</a></span>/imm32 +<span id="L35023" class="LineNr">35023 </span> 0/imm32/next +<span id="L35024" class="LineNr">35024 </span> 0/imm32/next +<span id="L35025" class="LineNr">35025 </span> +<span id="L35026" class="LineNr">35026 </span><span class="SpecialChar">Single-byte-var-in-some-register</span>: <span class="subxComment"># (payload list var)</span> +<span id="L35027" class="LineNr">35027 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35028" class="LineNr">35028 </span> 0x11/imm32/alloc-id:fake +<span id="L35029" class="LineNr">35029 </span> <span class="SpecialChar"><a href='mu.subx.html#L35061'>Byte-var-in-some-register</a></span>/imm32 +<span id="L35030" class="LineNr">35030 </span> 0/imm32/next +<span id="L35031" class="LineNr">35031 </span> 0/imm32/next +<span id="L35032" class="LineNr">35032 </span> +<span id="L35033" class="LineNr">35033 </span><span class="SpecialChar">Int-var-in-some-register</span>: <span class="subxComment"># (payload var)</span> +<span id="L35034" class="LineNr">35034 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35035" class="LineNr">35035 </span> 0/imm32/name +<span id="L35036" class="LineNr">35036 </span> 0/imm32/name +<span id="L35037" class="LineNr">35037 </span> 0x11/imm32/alloc-id:fake +<span id="L35038" class="LineNr">35038 </span> <span class="SpecialChar"><a href='mu.subx.html#L35234'>Type-int</a></span>/imm32 +<span id="L35039" class="LineNr">35039 </span> 1/imm32/some-block-depth +<span id="L35040" class="LineNr">35040 </span> 0/imm32/no-stack-offset +<span id="L35041" class="LineNr">35041 </span> 0x11/imm32/alloc-id:fake +<span id="L35042" class="LineNr">35042 </span> <span class="SpecialChar"><a href='mu.subx.html#L35044'>Any-register</a></span>/imm32 +<span id="L35043" class="LineNr">35043 </span> +<span id="L35044" class="LineNr">35044 </span><span class="SpecialChar">Any-register</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L35045" class="LineNr">35045 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35046" class="LineNr">35046 </span> 1/imm32/size +<span id="L35047" class="LineNr">35047 </span> <span class="subxComment"># data</span> +<span id="L35048" class="LineNr">35048 </span> 2a/asterisk +<span id="L35049" class="LineNr">35049 </span> +<span id="L35050" class="LineNr">35050 </span><span class="SpecialChar">Addr-var-in-some-register</span>: <span class="subxComment"># (payload var)</span> +<span id="L35051" class="LineNr">35051 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35052" class="LineNr">35052 </span> 0/imm32/name +<span id="L35053" class="LineNr">35053 </span> 0/imm32/name +<span id="L35054" class="LineNr">35054 </span> 0x11/imm32/alloc-id:fake +<span id="L35055" class="LineNr">35055 </span> <span class="SpecialChar"><a href='mu.subx.html#L35250'>Type-addr</a></span>/imm32 +<span id="L35056" class="LineNr">35056 </span> 1/imm32/some-block-depth +<span id="L35057" class="LineNr">35057 </span> 0/imm32/no-stack-offset +<span id="L35058" class="LineNr">35058 </span> 0x11/imm32/alloc-id:fake +<span id="L35059" class="LineNr">35059 </span> <span class="SpecialChar"><a href='mu.subx.html#L35044'>Any-register</a></span>/imm32 +<span id="L35060" class="LineNr">35060 </span> +<span id="L35061" class="LineNr">35061 </span><span class="SpecialChar">Byte-var-in-some-register</span>: <span class="subxComment"># (payload var)</span> +<span id="L35062" class="LineNr">35062 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35063" class="LineNr">35063 </span> 0/imm32/name +<span id="L35064" class="LineNr">35064 </span> 0/imm32/name +<span id="L35065" class="LineNr">35065 </span> 0x11/imm32/alloc-id:fake +<span id="L35066" class="LineNr">35066 </span> <span class="SpecialChar"><a href='mu.subx.html#L35258'>Type-byte</a></span>/imm32 +<span id="L35067" class="LineNr">35067 </span> 1/imm32/some-block-depth +<span id="L35068" class="LineNr">35068 </span> 0/imm32/no-stack-offset +<span id="L35069" class="LineNr">35069 </span> 0x11/imm32/alloc-id:fake +<span id="L35070" class="LineNr">35070 </span> <span class="SpecialChar"><a href='mu.subx.html#L35044'>Any-register</a></span>/imm32 +<span id="L35071" class="LineNr">35071 </span> +<span id="L35072" class="LineNr">35072 </span><span class="SpecialChar">Single-int-var-in-eax</span>: <span class="subxComment"># (payload list var)</span> +<span id="L35073" class="LineNr">35073 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35074" class="LineNr">35074 </span> 0x11/imm32/alloc-id:fake +<span id="L35075" class="LineNr">35075 </span> <span class="SpecialChar"><a href='mu.subx.html#L35079'>Int-var-in-eax</a></span>/imm32 +<span id="L35076" class="LineNr">35076 </span> 0/imm32/next +<span id="L35077" class="LineNr">35077 </span> 0/imm32/next +<span id="L35078" class="LineNr">35078 </span> +<span id="L35079" class="LineNr">35079 </span><span class="SpecialChar">Int-var-in-eax</span>: +<span id="L35080" class="LineNr">35080 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35081" class="LineNr">35081 </span> 0/imm32/name +<span id="L35082" class="LineNr">35082 </span> 0/imm32/name +<span id="L35083" class="LineNr">35083 </span> 0x11/imm32/alloc-id:fake +<span id="L35084" class="LineNr">35084 </span> <span class="SpecialChar"><a href='mu.subx.html#L35234'>Type-int</a></span>/imm32 +<span id="L35085" class="LineNr">35085 </span> 1/imm32/some-block-depth +<span id="L35086" class="LineNr">35086 </span> 0/imm32/no-stack-offset +<span id="L35087" class="LineNr">35087 </span> 0x11/imm32/alloc-id:fake +<span id="L35088" class="LineNr">35088 </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="L35089" class="LineNr">35089 </span> +<span id="L35090" class="LineNr">35090 </span><span class="SpecialChar">Single-int-var-in-ecx</span>: <span class="subxComment"># (payload list var)</span> +<span id="L35091" class="LineNr">35091 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35092" class="LineNr">35092 </span> 0x11/imm32/alloc-id:fake +<span id="L35093" class="LineNr">35093 </span> <span class="SpecialChar"><a href='mu.subx.html#L35097'>Int-var-in-ecx</a></span>/imm32 +<span id="L35094" class="LineNr">35094 </span> 0/imm32/next +<span id="L35095" class="LineNr">35095 </span> 0/imm32/next +<span id="L35096" class="LineNr">35096 </span> +<span id="L35097" class="LineNr">35097 </span><span class="SpecialChar">Int-var-in-ecx</span>: +<span id="L35098" class="LineNr">35098 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35099" class="LineNr">35099 </span> 0/imm32/name +<span id="L35100" class="LineNr">35100 </span> 0/imm32/name +<span id="L35101" class="LineNr">35101 </span> 0x11/imm32/alloc-id:fake +<span id="L35102" class="LineNr">35102 </span> <span class="SpecialChar"><a href='mu.subx.html#L35234'>Type-int</a></span>/imm32 +<span id="L35103" class="LineNr">35103 </span> 1/imm32/some-block-depth +<span id="L35104" class="LineNr">35104 </span> 0/imm32/no-stack-offset +<span id="L35105" class="LineNr">35105 </span> 0x11/imm32/alloc-id:fake +<span id="L35106" class="LineNr">35106 </span> $Register-ecx/imm32/register +<span id="L35107" class="LineNr">35107 </span> +<span id="L35108" class="LineNr">35108 </span><span class="SpecialChar">Single-int-var-in-edx</span>: <span class="subxComment"># (payload list var)</span> +<span id="L35109" class="LineNr">35109 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35110" class="LineNr">35110 </span> 0x11/imm32/alloc-id:fake +<span id="L35111" class="LineNr">35111 </span> <span class="SpecialChar"><a href='mu.subx.html#L35115'>Int-var-in-edx</a></span>/imm32 +<span id="L35112" class="LineNr">35112 </span> 0/imm32/next +<span id="L35113" class="LineNr">35113 </span> 0/imm32/next +<span id="L35114" class="LineNr">35114 </span> +<span id="L35115" class="LineNr">35115 </span><span class="SpecialChar">Int-var-in-edx</span>: <span class="subxComment"># (payload list var)</span> +<span id="L35116" class="LineNr">35116 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35117" class="LineNr">35117 </span> 0/imm32/name +<span id="L35118" class="LineNr">35118 </span> 0/imm32/name +<span id="L35119" class="LineNr">35119 </span> 0x11/imm32/alloc-id:fake +<span id="L35120" class="LineNr">35120 </span> <span class="SpecialChar"><a href='mu.subx.html#L35234'>Type-int</a></span>/imm32 +<span id="L35121" class="LineNr">35121 </span> 1/imm32/some-block-depth +<span id="L35122" class="LineNr">35122 </span> 0/imm32/no-stack-offset +<span id="L35123" class="LineNr">35123 </span> 0x11/imm32/alloc-id:fake +<span id="L35124" class="LineNr">35124 </span> $Register-edx/imm32/register +<span id="L35125" class="LineNr">35125 </span> +<span id="L35126" class="LineNr">35126 </span><span class="SpecialChar">Single-int-var-in-ebx</span>: <span class="subxComment"># (payload list var)</span> +<span id="L35127" class="LineNr">35127 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35128" class="LineNr">35128 </span> 0x11/imm32/alloc-id:fake +<span id="L35129" class="LineNr">35129 </span> <span class="SpecialChar"><a href='mu.subx.html#L35133'>Int-var-in-ebx</a></span>/imm32 +<span id="L35130" class="LineNr">35130 </span> 0/imm32/next +<span id="L35131" class="LineNr">35131 </span> 0/imm32/next +<span id="L35132" class="LineNr">35132 </span> +<span id="L35133" class="LineNr">35133 </span><span class="SpecialChar">Int-var-in-ebx</span>: <span class="subxComment"># (payload list var)</span> +<span id="L35134" class="LineNr">35134 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35135" class="LineNr">35135 </span> 0/imm32/name +<span id="L35136" class="LineNr">35136 </span> 0/imm32/name +<span id="L35137" class="LineNr">35137 </span> 0x11/imm32/alloc-id:fake +<span id="L35138" class="LineNr">35138 </span> <span class="SpecialChar"><a href='mu.subx.html#L35234'>Type-int</a></span>/imm32 +<span id="L35139" class="LineNr">35139 </span> 1/imm32/some-block-depth +<span id="L35140" class="LineNr">35140 </span> 0/imm32/no-stack-offset +<span id="L35141" class="LineNr">35141 </span> 0x11/imm32/alloc-id:fake +<span id="L35142" class="LineNr">35142 </span> $Register-ebx/imm32/register +<span id="L35143" class="LineNr">35143 </span> +<span id="L35144" class="LineNr">35144 </span><span class="SpecialChar">Single-int-var-in-esi</span>: <span class="subxComment"># (payload list var)</span> +<span id="L35145" class="LineNr">35145 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35146" class="LineNr">35146 </span> 0x11/imm32/alloc-id:fake +<span id="L35147" class="LineNr">35147 </span> <span class="SpecialChar"><a href='mu.subx.html#L35151'>Int-var-in-esi</a></span>/imm32 +<span id="L35148" class="LineNr">35148 </span> 0/imm32/next +<span id="L35149" class="LineNr">35149 </span> 0/imm32/next +<span id="L35150" class="LineNr">35150 </span> +<span id="L35151" class="LineNr">35151 </span><span class="SpecialChar">Int-var-in-esi</span>: <span class="subxComment"># (payload list var)</span> +<span id="L35152" class="LineNr">35152 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35153" class="LineNr">35153 </span> 0/imm32/name +<span id="L35154" class="LineNr">35154 </span> 0/imm32/name +<span id="L35155" class="LineNr">35155 </span> 0x11/imm32/alloc-id:fake +<span id="L35156" class="LineNr">35156 </span> <span class="SpecialChar"><a href='mu.subx.html#L35234'>Type-int</a></span>/imm32 +<span id="L35157" class="LineNr">35157 </span> 1/imm32/some-block-depth +<span id="L35158" class="LineNr">35158 </span> 0/imm32/no-stack-offset +<span id="L35159" class="LineNr">35159 </span> 0x11/imm32/alloc-id:fake +<span id="L35160" class="LineNr">35160 </span> $Register-esi/imm32/register +<span id="L35161" class="LineNr">35161 </span> +<span id="L35162" class="LineNr">35162 </span><span class="SpecialChar">Single-int-var-in-edi</span>: <span class="subxComment"># (payload list var)</span> +<span id="L35163" class="LineNr">35163 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35164" class="LineNr">35164 </span> 0x11/imm32/alloc-id:fake +<span id="L35165" class="LineNr">35165 </span> <span class="SpecialChar"><a href='mu.subx.html#L35169'>Int-var-in-edi</a></span>/imm32 +<span id="L35166" class="LineNr">35166 </span> 0/imm32/next +<span id="L35167" class="LineNr">35167 </span> 0/imm32/next +<span id="L35168" class="LineNr">35168 </span> +<span id="L35169" class="LineNr">35169 </span><span class="SpecialChar">Int-var-in-edi</span>: <span class="subxComment"># (payload list var)</span> +<span id="L35170" class="LineNr">35170 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35171" class="LineNr">35171 </span> 0/imm32/name +<span id="L35172" class="LineNr">35172 </span> 0/imm32/name +<span id="L35173" class="LineNr">35173 </span> 0x11/imm32/alloc-id:fake +<span id="L35174" class="LineNr">35174 </span> <span class="SpecialChar"><a href='mu.subx.html#L35234'>Type-int</a></span>/imm32 +<span id="L35175" class="LineNr">35175 </span> 1/imm32/some-block-depth +<span id="L35176" class="LineNr">35176 </span> 0/imm32/no-stack-offset +<span id="L35177" class="LineNr">35177 </span> 0x11/imm32/alloc-id:fake +<span id="L35178" class="LineNr">35178 </span> $Register-edi/imm32/register +<span id="L35179" class="LineNr">35179 </span> +<span id="L35180" class="LineNr">35180 </span><span class="SpecialChar">Single-lit-var</span>: <span class="subxComment"># (payload list var)</span> +<span id="L35181" class="LineNr">35181 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35182" class="LineNr">35182 </span> 0x11/imm32/alloc-id:fake +<span id="L35183" class="LineNr">35183 </span> <span class="SpecialChar"><a href='mu.subx.html#L35187'>Lit-var</a></span>/imm32 +<span id="L35184" class="LineNr">35184 </span> 0/imm32/next +<span id="L35185" class="LineNr">35185 </span> 0/imm32/next +<span id="L35186" class="LineNr">35186 </span> +<span id="L35187" class="LineNr">35187 </span><span class="SpecialChar">Lit-var</span>: <span class="subxComment"># (payload var)</span> +<span id="L35188" class="LineNr">35188 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35189" class="LineNr">35189 </span> 0/imm32/name +<span id="L35190" class="LineNr">35190 </span> 0/imm32/name +<span id="L35191" class="LineNr">35191 </span> 0x11/imm32/alloc-id:fake +<span id="L35192" class="LineNr">35192 </span> <span class="SpecialChar"><a href='mu.subx.html#L35242'>Type-literal</a></span>/imm32 +<span id="L35193" class="LineNr">35193 </span> 1/imm32/some-block-depth +<span id="L35194" class="LineNr">35194 </span> 0/imm32/no-stack-offset +<span id="L35195" class="LineNr">35195 </span> 0/imm32/no-register +<span id="L35196" class="LineNr">35196 </span> 0/imm32/no-register +<span id="L35197" class="LineNr">35197 </span> +<span id="L35198" class="LineNr">35198 </span><span class="SpecialChar">Single-float-var-in-mem</span>: <span class="subxComment"># (payload list var)</span> +<span id="L35199" class="LineNr">35199 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35200" class="LineNr">35200 </span> 0x11/imm32/alloc-id:fake +<span id="L35201" class="LineNr">35201 </span> <span class="SpecialChar"><a href='mu.subx.html#L35205'>Float-var-in-mem</a></span>/imm32 +<span id="L35202" class="LineNr">35202 </span> 0/imm32/next +<span id="L35203" class="LineNr">35203 </span> 0/imm32/next +<span id="L35204" class="LineNr">35204 </span> +<span id="L35205" class="LineNr">35205 </span><span class="SpecialChar">Float-var-in-mem</span>: <span class="subxComment"># (payload var)</span> +<span id="L35206" class="LineNr">35206 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35207" class="LineNr">35207 </span> 0/imm32/name +<span id="L35208" class="LineNr">35208 </span> 0/imm32/name +<span id="L35209" class="LineNr">35209 </span> 0x11/imm32/alloc-id:fake +<span id="L35210" class="LineNr">35210 </span> <span class="SpecialChar"><a href='mu.subx.html#L35266'>Type-float</a></span>/imm32 +<span id="L35211" class="LineNr">35211 </span> 1/imm32/some-block-depth +<span id="L35212" class="LineNr">35212 </span> 1/imm32/some-stack-offset +<span id="L35213" class="LineNr">35213 </span> 0/imm32/no-register +<span id="L35214" class="LineNr">35214 </span> 0/imm32/no-register +<span id="L35215" class="LineNr">35215 </span> +<span id="L35216" class="LineNr">35216 </span><span class="SpecialChar">Single-float-var-in-some-register</span>: <span class="subxComment"># (payload list var)</span> +<span id="L35217" class="LineNr">35217 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35218" class="LineNr">35218 </span> 0x11/imm32/alloc-id:fake +<span id="L35219" class="LineNr">35219 </span> <span class="SpecialChar"><a href='mu.subx.html#L35223'>Float-var-in-some-register</a></span>/imm32 +<span id="L35220" class="LineNr">35220 </span> 0/imm32/next +<span id="L35221" class="LineNr">35221 </span> 0/imm32/next +<span id="L35222" class="LineNr">35222 </span> +<span id="L35223" class="LineNr">35223 </span><span class="SpecialChar">Float-var-in-some-register</span>: <span class="subxComment"># (payload var)</span> +<span id="L35224" class="LineNr">35224 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35225" class="LineNr">35225 </span> 0/imm32/name +<span id="L35226" class="LineNr">35226 </span> 0/imm32/name +<span id="L35227" class="LineNr">35227 </span> 0x11/imm32/alloc-id:fake +<span id="L35228" class="LineNr">35228 </span> <span class="SpecialChar"><a href='mu.subx.html#L35266'>Type-float</a></span>/imm32 +<span id="L35229" class="LineNr">35229 </span> 1/imm32/some-block-depth +<span id="L35230" class="LineNr">35230 </span> 0/imm32/no-stack-offset +<span id="L35231" class="LineNr">35231 </span> 0x11/imm32/alloc-id:fake +<span id="L35232" class="LineNr">35232 </span> <span class="SpecialChar"><a href='mu.subx.html#L35044'>Any-register</a></span>/imm32 +<span id="L35233" class="LineNr">35233 </span> +<span id="L35234" class="LineNr">35234 </span><span class="SpecialChar">Type-int</span>: <span class="subxComment"># (payload type-tree)</span> +<span id="L35235" class="LineNr">35235 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35236" class="LineNr">35236 </span> 1/imm32/is-atom +<span id="L35237" class="LineNr">35237 </span> 1/imm32/value:int +<span id="L35238" class="LineNr">35238 </span> 0/imm32/left:unused +<span id="L35239" class="LineNr">35239 </span> 0/imm32/right:null +<span id="L35240" class="LineNr">35240 </span> 0/imm32/right:null +<span id="L35241" class="LineNr">35241 </span> +<span id="L35242" class="LineNr">35242 </span><span class="SpecialChar">Type-literal</span>: <span class="subxComment"># (payload type-tree)</span> +<span id="L35243" class="LineNr">35243 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35244" class="LineNr">35244 </span> 1/imm32/is-atom +<span id="L35245" class="LineNr">35245 </span> 0/imm32/value:literal +<span id="L35246" class="LineNr">35246 </span> 0/imm32/left:unused +<span id="L35247" class="LineNr">35247 </span> 0/imm32/right:null +<span id="L35248" class="LineNr">35248 </span> 0/imm32/right:null +<span id="L35249" class="LineNr">35249 </span> +<span id="L35250" class="LineNr">35250 </span><span class="SpecialChar">Type-addr</span>: <span class="subxComment"># (payload type-tree)</span> +<span id="L35251" class="LineNr">35251 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35252" class="LineNr">35252 </span> 1/imm32/is-atom +<span id="L35253" class="LineNr">35253 </span> 2/imm32/value:addr +<span id="L35254" class="LineNr">35254 </span> 0/imm32/left:unused +<span id="L35255" class="LineNr">35255 </span> 0/imm32/right:null +<span id="L35256" class="LineNr">35256 </span> 0/imm32/right:null +<span id="L35257" class="LineNr">35257 </span> +<span id="L35258" class="LineNr">35258 </span><span class="SpecialChar">Type-byte</span>: <span class="subxComment"># (payload type-tree)</span> +<span id="L35259" class="LineNr">35259 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35260" class="LineNr">35260 </span> 1/imm32/is-atom +<span id="L35261" class="LineNr">35261 </span> 8/imm32/value:byte +<span id="L35262" class="LineNr">35262 </span> 0/imm32/left:unused +<span id="L35263" class="LineNr">35263 </span> 0/imm32/right:null +<span id="L35264" class="LineNr">35264 </span> 0/imm32/right:null +<span id="L35265" class="LineNr">35265 </span> +<span id="L35266" class="LineNr">35266 </span><span class="SpecialChar">Type-float</span>: <span class="subxComment"># (payload type-tree)</span> +<span id="L35267" class="LineNr">35267 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35268" class="LineNr">35268 </span> 1/imm32/is-atom +<span id="L35269" class="LineNr">35269 </span> 0xf/imm32/value:float +<span id="L35270" class="LineNr">35270 </span> 0/imm32/left:unused +<span id="L35271" class="LineNr">35271 </span> 0/imm32/right:null +<span id="L35272" class="LineNr">35272 </span> 0/imm32/right:null +<span id="L35273" class="LineNr">35273 </span> +<span id="L35274" class="LineNr">35274 </span>== code +<span id="L35275" class="LineNr">35275 </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="L35276" class="LineNr">35276 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35277" class="LineNr">35277 </span> 55/push-ebp +<span id="L35278" class="LineNr">35278 </span> 89/<- %ebp 4/r32/esp +<span id="L35279" class="LineNr">35279 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L35280" class="LineNr">35280 </span> 50/push-eax +<span id="L35281" class="LineNr">35281 </span> 51/push-ecx +<span id="L35282" class="LineNr">35282 </span> <span class="subxComment"># ecx = primitive</span> +<span id="L35283" class="LineNr">35283 </span> 8b/-> *(ebp+0x10) 1/r32/ecx +<span id="L35284" class="LineNr">35284 </span> <span class="subxComment"># emit primitive name</span> +<span id="L35285" class="LineNr">35285 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L35286" class="LineNr">35286 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Primitive-subx-name Primitive-subx-name => eax</span> +<span id="L35287" class="LineNr">35287 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L35288" class="LineNr">35288 </span> <span class="subxComment"># emit rm32 if necessary</span> +<span id="L35289" class="LineNr">35289 </span> (<a href='mu.subx.html#L35312'>emit-subx-rm32</a> *(ebp+8) *(ecx+0x20) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># Primitive-subx-rm32</span> +<span id="L35290" class="LineNr">35290 </span> <span class="subxComment"># emit xm32 if necessary</span> +<span id="L35291" class="LineNr">35291 </span> (<a href='mu.subx.html#L35312'>emit-subx-rm32</a> *(ebp+8) *(ecx+0x34) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># Primitive-subx-xm32</span> +<span id="L35292" class="LineNr">35292 </span> <span class="subxComment"># emit r32 if necessary</span> +<span id="L35293" class="LineNr">35293 </span> (<a href='mu.subx.html#L35386'>emit-subx-r32</a> *(ebp+8) *(ecx+0x24) *(ebp+0xc)) <span class="subxComment"># Primitive-subx-r32</span> +<span id="L35294" class="LineNr">35294 </span> <span class="subxComment"># emit x32 if necessary</span> +<span id="L35295" class="LineNr">35295 </span> (<a href='mu.subx.html#L35417'>emit-subx-x32</a> *(ebp+8) *(ecx+0x38) *(ebp+0xc)) <span class="subxComment"># Primitive-subx-x32</span> +<span id="L35296" class="LineNr">35296 </span> <span class="subxComment"># emit imm32 if necessary</span> +<span id="L35297" class="LineNr">35297 </span> (<a href='mu.subx.html#L35448'>emit-subx-imm32</a> *(ebp+8) *(ecx+0x28) *(ebp+0xc)) <span class="subxComment"># Primitive-subx-imm32</span> +<span id="L35298" class="LineNr">35298 </span> <span class="subxComment"># emit imm8 if necessary</span> +<span id="L35299" class="LineNr">35299 </span> (<a href='mu.subx.html#L35474'>emit-subx-imm8</a> *(ebp+8) *(ecx+0x2c) *(ebp+0xc)) <span class="subxComment"># Primitive-subx-imm8</span> +<span id="L35300" class="LineNr">35300 </span> <span class="subxComment"># emit disp32 if necessary</span> +<span id="L35301" class="LineNr">35301 </span> (<a href='mu.subx.html#L35500'>emit-subx-disp32</a> *(ebp+8) *(ecx+0x30) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># Primitive-subx-disp32</span> +<span id="L35302" class="LineNr">35302 </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="L35303" class="LineNr">35303 </span><span class="Constant">$emit-subx-primitive:end</span>: +<span id="L35304" class="LineNr">35304 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L35305" class="LineNr">35305 </span> 59/pop-to-ecx +<span id="L35306" class="LineNr">35306 </span> 58/pop-to-eax +<span id="L35307" class="LineNr">35307 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35308" class="LineNr">35308 </span> 89/<- %esp 5/r32/ebp +<span id="L35309" class="LineNr">35309 </span> 5d/pop-to-ebp +<span id="L35310" class="LineNr">35310 </span> c3/return +<span id="L35311" class="LineNr">35311 </span> +<span id="L35312" class="LineNr">35312 </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="L35313" class="LineNr">35313 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35314" class="LineNr">35314 </span> 55/push-ebp +<span id="L35315" class="LineNr">35315 </span> 89/<- %ebp 4/r32/esp +<span id="L35316" class="LineNr">35316 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L35317" class="LineNr">35317 </span> 50/push-eax +<span id="L35318" class="LineNr">35318 </span> <span class="subxComment"># if (l == 0) return</span> +<span id="L35319" class="LineNr">35319 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 +<span id="L35320" class="LineNr">35320 </span> 74/jump-if-= $emit-subx-rm32:end/disp8 +<span id="L35321" class="LineNr">35321 </span> <span class="subxComment"># var v/eax: (addr stmt-var)</span> +<span id="L35322" class="LineNr">35322 </span> (<a href='mu.subx.html#L35332'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> +<span id="L35323" class="LineNr">35323 </span> (<a href='mu.subx.html#L35745'>emit-subx-var-as-rm32</a> *(ebp+8) %eax) +<span id="L35324" class="LineNr">35324 </span><span class="Constant">$emit-subx-rm32:end</span>: +<span id="L35325" class="LineNr">35325 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L35326" class="LineNr">35326 </span> 58/pop-to-eax +<span id="L35327" class="LineNr">35327 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35328" class="LineNr">35328 </span> 89/<- %esp 5/r32/ebp +<span id="L35329" class="LineNr">35329 </span> 5d/pop-to-ebp +<span id="L35330" class="LineNr">35330 </span> c3/return +<span id="L35331" class="LineNr">35331 </span> +<span id="L35332" class="LineNr">35332 </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="L35333" class="LineNr">35333 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35334" class="LineNr">35334 </span> 55/push-ebp +<span id="L35335" class="LineNr">35335 </span> 89/<- %ebp 4/r32/esp +<span id="L35336" class="LineNr">35336 </span> <span class="subxS1Comment"># . save registers</span> <span id="L35337" class="LineNr">35337 </span> 51/push-ecx -<span id="L35338" class="LineNr">35338 </span> 56/push-esi -<span id="L35339" class="LineNr">35339 </span> <span class="subxComment"># esi = v</span> -<span id="L35340" class="LineNr">35340 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L35341" class="LineNr">35341 </span> <span class="subxComment"># var size/ecx: int = size-of-deref(v)</span> -<span id="L35342" class="LineNr">35342 </span> (<a href='mu.subx.html#L26603'>size-of-deref</a> %esi) <span class="subxComment"># => eax</span> -<span id="L35343" class="LineNr">35343 </span> 89/<- %ecx 0/r32/eax -<span id="L35344" class="LineNr">35344 </span> <span class="subxComment"># var reg-name/esi: (addr array byte) = lookup(v->register)</span> -<span id="L35345" class="LineNr">35345 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L35346" class="LineNr">35346 </span> 89/<- %esi 0/r32/eax -<span id="L35347" class="LineNr">35347 </span> <span class="subxComment"># TODO: assert size is a multiple of 4</span> -<span id="L35348" class="LineNr">35348 </span> <span class="subxComment"># var i/eax: int = 0</span> -<span id="L35349" class="LineNr">35349 </span> b8/copy-to-eax 0/imm32 -<span id="L35350" class="LineNr">35350 </span> { -<span id="L35351" class="LineNr">35351 </span><span class="Constant">$emit-subx-call-operand-register-indirect:loop</span>: -<span id="L35352" class="LineNr">35352 </span> <span class="subxComment"># if (i >= size) break</span> -<span id="L35353" class="LineNr">35353 </span> 39/compare %eax 1/r32/ecx -<span id="L35354" class="LineNr">35354 </span> 7d/jump-if->= <span class="Constant">break</span>/disp8 -<span id="L35355" class="LineNr">35355 </span> <span class="subxComment"># emit " *(" v->register "+" i ")"</span> -<span id="L35356" class="LineNr">35356 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *("</span>) -<span id="L35357" class="LineNr">35357 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %esi) -<span id="L35358" class="LineNr">35358 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"+"</span>) -<span id="L35359" class="LineNr">35359 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L35360" class="LineNr">35360 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) -<span id="L35361" class="LineNr">35361 </span> <span class="subxComment"># i += 4</span> -<span id="L35362" class="LineNr">35362 </span> 05/add-to-eax 4/imm32 -<span id="L35363" class="LineNr">35363 </span> <span class="subxComment">#</span> -<span id="L35364" class="LineNr">35364 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L35365" class="LineNr">35365 </span> } -<span id="L35366" class="LineNr">35366 </span><span class="Constant">$emit-subx-call-operand-register-indirect:end</span>: -<span id="L35367" class="LineNr">35367 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L35368" class="LineNr">35368 </span> 5e/pop-to-esi -<span id="L35369" class="LineNr">35369 </span> 59/pop-to-ecx -<span id="L35370" class="LineNr">35370 </span> 58/pop-to-eax -<span id="L35371" class="LineNr">35371 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35372" class="LineNr">35372 </span> 89/<- %esp 5/r32/ebp -<span id="L35373" class="LineNr">35373 </span> 5d/pop-to-ebp -<span id="L35374" class="LineNr">35374 </span> c3/return -<span id="L35375" class="LineNr">35375 </span> -<span id="L35376" class="LineNr">35376 </span><span class="subxFunction">emit-subx-call-operand-stack</span>: <span class="subxComment"># out: (addr buffered-file), v: (addr var)</span> -<span id="L35377" class="LineNr">35377 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35378" class="LineNr">35378 </span> 55/push-ebp -<span id="L35379" class="LineNr">35379 </span> 89/<- %ebp 4/r32/esp -<span id="L35380" class="LineNr">35380 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L35381" class="LineNr">35381 </span> 50/push-eax -<span id="L35382" class="LineNr">35382 </span> 51/push-ecx -<span id="L35383" class="LineNr">35383 </span> 56/push-esi -<span id="L35384" class="LineNr">35384 </span> <span class="subxComment"># esi = v</span> -<span id="L35385" class="LineNr">35385 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L35386" class="LineNr">35386 </span> <span class="subxComment"># var curr/ecx: int = v->offset</span> -<span id="L35387" class="LineNr">35387 </span> 8b/-> *(esi+0x14) 1/r32/ecx <span class="subxComment"># Var-offset</span> -<span id="L35388" class="LineNr">35388 </span> <span class="subxComment"># var max/eax: int = v->offset + size-of(v)</span> -<span id="L35389" class="LineNr">35389 </span> (<a href='mu.subx.html#L26553'>size-of</a> %esi) <span class="subxComment"># => eax</span> -<span id="L35390" class="LineNr">35390 </span> <span class="subxComment"># TODO: assert size is a multiple of 4</span> -<span id="L35391" class="LineNr">35391 </span> 01/add-to %eax 1/r32/ecx -<span id="L35392" class="LineNr">35392 </span> { -<span id="L35393" class="LineNr">35393 </span><span class="Constant">$emit-subx-call-operand-stack:loop</span>: -<span id="L35394" class="LineNr">35394 </span> <span class="subxComment"># if (curr >= max) break</span> -<span id="L35395" class="LineNr">35395 </span> 39/compare %ecx 0/r32/eax -<span id="L35396" class="LineNr">35396 </span> 7d/jump-if->= <span class="Constant">break</span>/disp8 -<span id="L35397" class="LineNr">35397 </span> <span class="subxComment"># emit " *(ebp+" curr ")"</span> -<span id="L35398" class="LineNr">35398 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *(ebp+"</span>) -<span id="L35399" class="LineNr">35399 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %ecx) -<span id="L35400" class="LineNr">35400 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) -<span id="L35401" class="LineNr">35401 </span> <span class="subxComment"># i += 4</span> -<span id="L35402" class="LineNr">35402 </span> 81 0/subop/add %ecx 4/imm32 -<span id="L35403" class="LineNr">35403 </span> <span class="subxComment">#</span> -<span id="L35404" class="LineNr">35404 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L35405" class="LineNr">35405 </span> } -<span id="L35406" class="LineNr">35406 </span><span class="Constant">$emit-subx-call-operand-stack:end</span>: -<span id="L35407" class="LineNr">35407 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L35408" class="LineNr">35408 </span> 5e/pop-to-esi -<span id="L35409" class="LineNr">35409 </span> 59/pop-to-ecx -<span id="L35410" class="LineNr">35410 </span> 58/pop-to-eax -<span id="L35411" class="LineNr">35411 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35412" class="LineNr">35412 </span> 89/<- %esp 5/r32/ebp -<span id="L35413" class="LineNr">35413 </span> 5d/pop-to-ebp -<span id="L35414" class="LineNr">35414 </span> c3/return -<span id="L35415" class="LineNr">35415 </span> -<span id="L35416" class="LineNr">35416 </span><span class="subxFunction">emit-subx-var-as-rm32</span>: <span class="subxComment"># out: (addr buffered-file), s: (addr stmt-var)</span> -<span id="L35417" class="LineNr">35417 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35418" class="LineNr">35418 </span> 55/push-ebp -<span id="L35419" class="LineNr">35419 </span> 89/<- %ebp 4/r32/esp -<span id="L35420" class="LineNr">35420 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L35421" class="LineNr">35421 </span> 50/push-eax -<span id="L35422" class="LineNr">35422 </span> 51/push-ecx -<span id="L35423" class="LineNr">35423 </span> 56/push-esi -<span id="L35424" class="LineNr">35424 </span> <span class="subxComment"># ecx = s</span> -<span id="L35425" class="LineNr">35425 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L35426" class="LineNr">35426 </span> <span class="subxComment"># var operand/esi: (addr var) = lookup(s->value)</span> -<span id="L35427" class="LineNr">35427 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L35428" class="LineNr">35428 </span> 89/<- %esi 0/r32/eax -<span id="L35429" class="LineNr">35429 </span> <span class="subxComment"># if (operand->register && s->is-deref?) emit "*__"</span> -<span id="L35430" class="LineNr">35430 </span> { -<span id="L35431" class="LineNr">35431 </span><span class="Constant">$emit-subx-var-as-rm32:check-for-register-indirect</span>: -<span id="L35432" class="LineNr">35432 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L35433" class="LineNr">35433 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35434" class="LineNr">35434 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L35435" class="LineNr">35435 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35436" class="LineNr">35436 </span><span class="Constant">$emit-subx-var-as-rm32:register-indirect</span>: -<span id="L35437" class="LineNr">35437 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *"</span>) -<span id="L35438" class="LineNr">35438 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L35439" class="LineNr">35439 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L35440" class="LineNr">35440 </span> e9/jump $emit-subx-var-as-rm32:end/disp32 -<span id="L35441" class="LineNr">35441 </span> } -<span id="L35442" class="LineNr">35442 </span> <span class="subxComment"># if (operand->register && !s->is-deref?) emit "%__"</span> -<span id="L35443" class="LineNr">35443 </span> { -<span id="L35444" class="LineNr">35444 </span><span class="Constant">$emit-subx-var-as-rm32:check-for-register-direct</span>: -<span id="L35445" class="LineNr">35445 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L35446" class="LineNr">35446 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35447" class="LineNr">35447 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L35448" class="LineNr">35448 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35449" class="LineNr">35449 </span><span class="Constant">$emit-subx-var-as-rm32:register-direct</span>: -<span id="L35450" class="LineNr">35450 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" %"</span>) -<span id="L35451" class="LineNr">35451 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L35452" class="LineNr">35452 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L35453" class="LineNr">35453 </span> e9/jump $emit-subx-var-as-rm32:end/disp32 -<span id="L35454" class="LineNr">35454 </span> } -<span id="L35455" class="LineNr">35455 </span> <span class="subxComment"># else if (operand->stack-offset) emit "*(ebp+__)"</span> -<span id="L35456" class="LineNr">35456 </span> { -<span id="L35457" class="LineNr">35457 </span> 81 7/subop/compare *(esi+0x14) 0/imm32 <span class="subxComment"># Var-offset</span> -<span id="L35458" class="LineNr">35458 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35459" class="LineNr">35459 </span><span class="Constant">$emit-subx-var-as-rm32:stack</span>: -<span id="L35460" class="LineNr">35460 </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="L35461" class="LineNr">35461 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"*(ebp+"</span>) -<span id="L35462" class="LineNr">35462 </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="L35463" class="LineNr">35463 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) -<span id="L35464" class="LineNr">35464 </span> } -<span id="L35465" class="LineNr">35465 </span><span class="Constant">$emit-subx-var-as-rm32:end</span>: +<span id="L35338" class="LineNr">35338 </span> <span class="subxComment"># eax = l</span> +<span id="L35339" class="LineNr">35339 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L35340" class="LineNr">35340 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L35341" class="LineNr">35341 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L35342" class="LineNr">35342 </span> <span class="subxComment"># if (l == 1) return stmt->inouts</span> +<span id="L35343" class="LineNr">35343 </span> { +<span id="L35344" class="LineNr">35344 </span> 3d/compare-eax-and 1/imm32 +<span id="L35345" class="LineNr">35345 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L35346" class="LineNr">35346 </span><span class="Constant">$get-stmt-operand-from-arg-location:1</span>: +<span id="L35347" class="LineNr">35347 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L35348" class="LineNr">35348 </span> eb/jump $get-stmt-operand-from-arg-location:end/disp8 +<span id="L35349" class="LineNr">35349 </span> } +<span id="L35350" class="LineNr">35350 </span> <span class="subxComment"># if (l == 2) return stmt->inouts->next</span> +<span id="L35351" class="LineNr">35351 </span> { +<span id="L35352" class="LineNr">35352 </span> 3d/compare-eax-and 2/imm32 +<span id="L35353" class="LineNr">35353 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L35354" class="LineNr">35354 </span><span class="Constant">$get-stmt-operand-from-arg-location:2</span>: +<span id="L35355" class="LineNr">35355 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L35356" class="LineNr">35356 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L35357" class="LineNr">35357 </span> eb/jump $get-stmt-operand-from-arg-location:end/disp8 +<span id="L35358" class="LineNr">35358 </span> } +<span id="L35359" class="LineNr">35359 </span> <span class="subxComment"># if (l == 3) return stmt->outputs</span> +<span id="L35360" class="LineNr">35360 </span> { +<span id="L35361" class="LineNr">35361 </span> 3d/compare-eax-and 3/imm32 +<span id="L35362" class="LineNr">35362 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L35363" class="LineNr">35363 </span><span class="Constant">$get-stmt-operand-from-arg-location:3</span>: +<span id="L35364" class="LineNr">35364 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L35365" class="LineNr">35365 </span> eb/jump $get-stmt-operand-from-arg-location:end/disp8 +<span id="L35366" class="LineNr">35366 </span> } +<span id="L35367" class="LineNr">35367 </span> <span class="subxComment"># abort</span> +<span id="L35368" class="LineNr">35368 </span> e9/jump $get-stmt-operand-from-arg-location:abort/disp32 +<span id="L35369" class="LineNr">35369 </span><span class="Constant">$get-stmt-operand-from-arg-location:end</span>: +<span id="L35370" class="LineNr">35370 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L35371" class="LineNr">35371 </span> 59/pop-to-ecx +<span id="L35372" class="LineNr">35372 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35373" class="LineNr">35373 </span> 89/<- %esp 5/r32/ebp +<span id="L35374" class="LineNr">35374 </span> 5d/pop-to-ebp +<span id="L35375" class="LineNr">35375 </span> c3/return +<span id="L35376" class="LineNr">35376 </span> +<span id="L35377" class="LineNr">35377 </span><span class="Constant">$get-stmt-operand-from-arg-location:abort</span>: +<span id="L35378" class="LineNr">35378 </span> <span class="subxComment"># error("invalid arg-location " eax)</span> +<span id="L35379" class="LineNr">35379 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"invalid arg-location "</span>) +<span id="L35380" class="LineNr">35380 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+0x10) %eax) +<span id="L35381" class="LineNr">35381 </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="L35382" class="LineNr">35382 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L35383" class="LineNr">35383 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L35384" class="LineNr">35384 </span> <span class="subxComment"># never gets here</span> +<span id="L35385" class="LineNr">35385 </span> +<span id="L35386" class="LineNr">35386 </span><span class="subxFunction">emit-subx-r32</span>: <span class="subxComment"># out: (addr buffered-file), l: arg-location, stmt: (addr stmt)</span> +<span id="L35387" class="LineNr">35387 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35388" class="LineNr">35388 </span> 55/push-ebp +<span id="L35389" class="LineNr">35389 </span> 89/<- %ebp 4/r32/esp +<span id="L35390" class="LineNr">35390 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L35391" class="LineNr">35391 </span> 50/push-eax +<span id="L35392" class="LineNr">35392 </span> 51/push-ecx +<span id="L35393" class="LineNr">35393 </span> <span class="subxComment"># if (l == 0) return</span> +<span id="L35394" class="LineNr">35394 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 +<span id="L35395" class="LineNr">35395 </span> 0f 84/jump-if-= $emit-subx-r32:end/disp32 +<span id="L35396" class="LineNr">35396 </span> <span class="subxComment"># var v/eax: (addr stmt-var)</span> +<span id="L35397" class="LineNr">35397 </span> (<a href='mu.subx.html#L35332'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L35398" class="LineNr">35398 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L35399" class="LineNr">35399 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L35400" class="LineNr">35400 </span><span class="CommentedCode">#? (write-buffered Stderr "looking up ")</span> +<span id="L35401" class="LineNr">35401 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L35402" class="LineNr">35402 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L35403" class="LineNr">35403 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L35404" class="LineNr">35404 </span> (<a href='131table.subx.html#L1800'>maybe-get</a> <span class="SpecialChar"><a href='mu.subx.html#L19397'>Mu-registers</a></span> %eax 0xc) <span class="subxComment"># => eax: (addr register-index)</span> +<span id="L35405" class="LineNr">35405 </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="L35406" class="LineNr">35406 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L35407" class="LineNr">35407 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32"</span>) +<span id="L35408" class="LineNr">35408 </span><span class="Constant">$emit-subx-r32:end</span>: +<span id="L35409" class="LineNr">35409 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L35410" class="LineNr">35410 </span> 59/pop-to-ecx +<span id="L35411" class="LineNr">35411 </span> 58/pop-to-eax +<span id="L35412" class="LineNr">35412 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35413" class="LineNr">35413 </span> 89/<- %esp 5/r32/ebp +<span id="L35414" class="LineNr">35414 </span> 5d/pop-to-ebp +<span id="L35415" class="LineNr">35415 </span> c3/return +<span id="L35416" class="LineNr">35416 </span> +<span id="L35417" class="LineNr">35417 </span><span class="subxFunction">emit-subx-x32</span>: <span class="subxComment"># out: (addr buffered-file), l: arg-location, stmt: (addr stmt)</span> +<span id="L35418" class="LineNr">35418 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35419" class="LineNr">35419 </span> 55/push-ebp +<span id="L35420" class="LineNr">35420 </span> 89/<- %ebp 4/r32/esp +<span id="L35421" class="LineNr">35421 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L35422" class="LineNr">35422 </span> 50/push-eax +<span id="L35423" class="LineNr">35423 </span> 51/push-ecx +<span id="L35424" class="LineNr">35424 </span> <span class="subxComment"># if (l == 0) return</span> +<span id="L35425" class="LineNr">35425 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 +<span id="L35426" class="LineNr">35426 </span> 0f 84/jump-if-= $emit-subx-x32:end/disp32 +<span id="L35427" class="LineNr">35427 </span> <span class="subxComment"># var v/eax: (addr stmt-var)</span> +<span id="L35428" class="LineNr">35428 </span> (<a href='mu.subx.html#L35332'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L35429" class="LineNr">35429 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L35430" class="LineNr">35430 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L35431" class="LineNr">35431 </span><span class="CommentedCode">#? (write-buffered Stderr "looking up ")</span> +<span id="L35432" class="LineNr">35432 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L35433" class="LineNr">35433 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L35434" class="LineNr">35434 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L35435" class="LineNr">35435 </span> (<a href='131table.subx.html#L1800'>maybe-get</a> <span class="SpecialChar"><a href='mu.subx.html#L19397'>Mu-registers</a></span> %eax 0xc) <span class="subxComment"># => eax: (addr register-index)</span> +<span id="L35436" class="LineNr">35436 </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="L35437" class="LineNr">35437 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L35438" class="LineNr">35438 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/x32"</span>) +<span id="L35439" class="LineNr">35439 </span><span class="Constant">$emit-subx-x32:end</span>: +<span id="L35440" class="LineNr">35440 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L35441" class="LineNr">35441 </span> 59/pop-to-ecx +<span id="L35442" class="LineNr">35442 </span> 58/pop-to-eax +<span id="L35443" class="LineNr">35443 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35444" class="LineNr">35444 </span> 89/<- %esp 5/r32/ebp +<span id="L35445" class="LineNr">35445 </span> 5d/pop-to-ebp +<span id="L35446" class="LineNr">35446 </span> c3/return +<span id="L35447" class="LineNr">35447 </span> +<span id="L35448" class="LineNr">35448 </span><span class="subxFunction">emit-subx-imm32</span>: <span class="subxComment"># out: (addr buffered-file), l: arg-location, stmt: (addr stmt)</span> +<span id="L35449" class="LineNr">35449 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35450" class="LineNr">35450 </span> 55/push-ebp +<span id="L35451" class="LineNr">35451 </span> 89/<- %ebp 4/r32/esp +<span id="L35452" class="LineNr">35452 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L35453" class="LineNr">35453 </span> 50/push-eax +<span id="L35454" class="LineNr">35454 </span> 51/push-ecx +<span id="L35455" class="LineNr">35455 </span> <span class="subxComment"># if (l == 0) return</span> +<span id="L35456" class="LineNr">35456 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 +<span id="L35457" class="LineNr">35457 </span> 0f 84/jump-if-= $emit-subx-imm32:end/disp32 +<span id="L35458" class="LineNr">35458 </span> <span class="subxComment"># var v/eax: (handle var)</span> +<span id="L35459" class="LineNr">35459 </span> (<a href='mu.subx.html#L35332'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L35460" class="LineNr">35460 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L35461" class="LineNr">35461 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L35462" class="LineNr">35462 </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="L35463" class="LineNr">35463 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L35464" class="LineNr">35464 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32"</span>) +<span id="L35465" class="LineNr">35465 </span><span class="Constant">$emit-subx-imm32:end</span>: <span id="L35466" class="LineNr">35466 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L35467" class="LineNr">35467 </span> 5e/pop-to-esi -<span id="L35468" class="LineNr">35468 </span> 59/pop-to-ecx -<span id="L35469" class="LineNr">35469 </span> 58/pop-to-eax -<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="subxFunction">find-matching-primitive</span>: <span class="subxComment"># primitives: (addr primitive), stmt: (addr stmt) -> result/eax: (addr primitive)</span> -<span id="L35476" class="LineNr">35476 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35477" class="LineNr">35477 </span> 55/push-ebp -<span id="L35478" class="LineNr">35478 </span> 89/<- %ebp 4/r32/esp -<span id="L35479" class="LineNr">35479 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L35467" class="LineNr">35467 </span> 59/pop-to-ecx +<span id="L35468" class="LineNr">35468 </span> 58/pop-to-eax +<span id="L35469" class="LineNr">35469 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35470" class="LineNr">35470 </span> 89/<- %esp 5/r32/ebp +<span id="L35471" class="LineNr">35471 </span> 5d/pop-to-ebp +<span id="L35472" class="LineNr">35472 </span> c3/return +<span id="L35473" class="LineNr">35473 </span> +<span id="L35474" class="LineNr">35474 </span><span class="subxFunction">emit-subx-imm8</span>: <span class="subxComment"># out: (addr buffered-file), l: arg-location, stmt: (addr stmt)</span> +<span id="L35475" class="LineNr">35475 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35476" class="LineNr">35476 </span> 55/push-ebp +<span id="L35477" class="LineNr">35477 </span> 89/<- %ebp 4/r32/esp +<span id="L35478" class="LineNr">35478 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L35479" class="LineNr">35479 </span> 50/push-eax <span id="L35480" class="LineNr">35480 </span> 51/push-ecx -<span id="L35481" class="LineNr">35481 </span> <span class="subxComment"># var curr/ecx: (addr primitive) = primitives</span> -<span id="L35482" class="LineNr">35482 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L35483" class="LineNr">35483 </span> { -<span id="L35484" class="LineNr">35484 </span><span class="Constant">$find-matching-primitive:loop</span>: -<span id="L35485" class="LineNr">35485 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L35486" class="LineNr">35486 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L35487" class="LineNr">35487 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35488" class="LineNr">35488 </span> <span class="subxComment"># if match(curr, stmt) return curr</span> -<span id="L35489" class="LineNr">35489 </span> { -<span id="L35490" class="LineNr">35490 </span> (<a href='mu.subx.html#L35513'>mu-stmt-matches-primitive?</a> *(ebp+0xc) %ecx) <span class="subxComment"># => eax</span> -<span id="L35491" class="LineNr">35491 </span> 3d/compare-eax-and 0/imm32/false -<span id="L35492" class="LineNr">35492 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35493" class="LineNr">35493 </span> 89/<- %eax 1/r32/ecx -<span id="L35494" class="LineNr">35494 </span> eb/jump $find-matching-primitive:end/disp8 -<span id="L35495" class="LineNr">35495 </span> } -<span id="L35496" class="LineNr">35496 </span><span class="Constant">$find-matching-primitive:next-primitive</span>: -<span id="L35497" class="LineNr">35497 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L35498" class="LineNr">35498 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x3c) *(ecx+0x40)) <span class="subxComment"># Primitive-next Primitive-next => eax</span> -<span id="L35499" class="LineNr">35499 </span> 89/<- %ecx 0/r32/eax -<span id="L35500" class="LineNr">35500 </span> <span class="subxComment">#</span> -<span id="L35501" class="LineNr">35501 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L35502" class="LineNr">35502 </span> } -<span id="L35503" class="LineNr">35503 </span> <span class="subxComment"># return null</span> -<span id="L35504" class="LineNr">35504 </span> b8/copy-to-eax 0/imm32 -<span id="L35505" class="LineNr">35505 </span><span class="Constant">$find-matching-primitive:end</span>: -<span id="L35506" class="LineNr">35506 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L35507" class="LineNr">35507 </span> 59/pop-to-ecx -<span id="L35508" class="LineNr">35508 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35509" class="LineNr">35509 </span> 89/<- %esp 5/r32/ebp -<span id="L35510" class="LineNr">35510 </span> 5d/pop-to-ebp -<span id="L35511" class="LineNr">35511 </span> c3/return -<span id="L35512" class="LineNr">35512 </span> -<span id="L35513" class="LineNr">35513 </span><span class="subxFunction">mu-stmt-matches-primitive?</span>: <span class="subxComment"># stmt: (addr stmt), primitive: (addr primitive) -> result/eax: boolean</span> -<span id="L35514" class="LineNr">35514 </span> <span class="subxComment"># A mu stmt matches a primitive if the name matches, all the inout vars</span> -<span id="L35515" class="LineNr">35515 </span> <span class="subxComment"># match, and all the output vars match.</span> -<span id="L35516" class="LineNr">35516 </span> <span class="subxComment"># Vars match if types match and registers match.</span> -<span id="L35517" class="LineNr">35517 </span> <span class="subxComment"># In addition, a stmt output matches a primitive's output if types match</span> -<span id="L35518" class="LineNr">35518 </span> <span class="subxComment"># and the primitive has a wildcard register.</span> -<span id="L35519" class="LineNr">35519 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35520" class="LineNr">35520 </span> 55/push-ebp -<span id="L35521" class="LineNr">35521 </span> 89/<- %ebp 4/r32/esp -<span id="L35522" class="LineNr">35522 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L35523" class="LineNr">35523 </span> 51/push-ecx -<span id="L35524" class="LineNr">35524 </span> 52/push-edx -<span id="L35525" class="LineNr">35525 </span> 53/push-ebx -<span id="L35526" class="LineNr">35526 </span> 56/push-esi -<span id="L35527" class="LineNr">35527 </span> 57/push-edi -<span id="L35528" class="LineNr">35528 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L35529" class="LineNr">35529 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L35530" class="LineNr">35530 </span> <span class="subxComment"># edx = primitive</span> -<span id="L35531" class="LineNr">35531 </span> 8b/-> *(ebp+0xc) 2/r32/edx -<span id="L35532" class="LineNr">35532 </span> { -<span id="L35533" class="LineNr">35533 </span><span class="Constant">$mu-stmt-matches-primitive?:check-name</span>: -<span id="L35534" class="LineNr">35534 </span> <span class="subxComment"># if (primitive->name != stmt->operation) return false</span> -<span id="L35535" class="LineNr">35535 </span> <span class="subxS1Comment"># . var esi: (addr array byte) = lookup(stmt->operation)</span> -<span id="L35536" class="LineNr">35536 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L35537" class="LineNr">35537 </span> 89/<- %esi 0/r32/eax -<span id="L35538" class="LineNr">35538 </span> <span class="subxS1Comment"># . var edi: (addr array byte) = lookup(primitive->name)</span> -<span id="L35539" class="LineNr">35539 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Primitive-name Primitive-name => eax</span> -<span id="L35540" class="LineNr">35540 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L35541" class="LineNr">35541 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L35542" class="LineNr">35542 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L35543" class="LineNr">35543 </span> 89/<- %edi 0/r32/eax -<span id="L35544" class="LineNr">35544 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi %edi) <span class="subxComment"># => eax</span> -<span id="L35545" class="LineNr">35545 </span> 3d/compare-eax-and 0/imm32/false -<span id="L35546" class="LineNr">35546 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35547" class="LineNr">35547 </span> b8/copy-to-eax 0/imm32 -<span id="L35548" class="LineNr">35548 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 -<span id="L35549" class="LineNr">35549 </span> } -<span id="L35550" class="LineNr">35550 </span> <span class="subxComment"># var curr/esi: (addr stmt-var) = lookup(stmt->inouts)</span> -<span id="L35551" class="LineNr">35551 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L35552" class="LineNr">35552 </span> 89/<- %esi 0/r32/eax -<span id="L35553" class="LineNr">35553 </span> <span class="subxComment"># var curr2/edi: (addr list var) = lookup(primitive->inouts)</span> -<span id="L35554" class="LineNr">35554 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Primitive-inouts Primitive-inouts => eax</span> -<span id="L35555" class="LineNr">35555 </span> 89/<- %edi 0/r32/eax -<span id="L35556" class="LineNr">35556 </span> { -<span id="L35557" class="LineNr">35557 </span><span class="Constant">$mu-stmt-matches-primitive?:inouts-loop</span>: -<span id="L35558" class="LineNr">35558 </span> <span class="subxComment"># if (curr == 0 && curr2 == 0) move on to check outputs</span> -<span id="L35559" class="LineNr">35559 </span> { -<span id="L35560" class="LineNr">35560 </span><span class="Constant">$mu-stmt-matches-primitive?:check-both-inouts-null</span>: -<span id="L35561" class="LineNr">35561 </span> 81 7/subop/compare %esi 0/imm32 -<span id="L35562" class="LineNr">35562 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35563" class="LineNr">35563 </span><span class="Constant">$mu-stmt-matches-primitive?:stmt-inout-null</span>: -<span id="L35564" class="LineNr">35564 </span> 81 7/subop/compare %edi 0/imm32 -<span id="L35565" class="LineNr">35565 </span> 0f 84/jump-if-= $mu-stmt-matches-primitive?:check-outputs/disp32 -<span id="L35566" class="LineNr">35566 </span><span class="Constant">$mu-stmt-matches-primitive?:stmt-inout-null-and-prim-inout-not-null</span>: -<span id="L35567" class="LineNr">35567 </span> <span class="subxComment"># return false</span> -<span id="L35568" class="LineNr">35568 </span> b8/copy-to-eax 0/imm32/false -<span id="L35569" class="LineNr">35569 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 -<span id="L35570" class="LineNr">35570 </span> } -<span id="L35571" class="LineNr">35571 </span> <span class="subxComment"># if (curr2 == 0) return false</span> -<span id="L35572" class="LineNr">35572 </span> { -<span id="L35573" class="LineNr">35573 </span><span class="Constant">$mu-stmt-matches-primitive?:check-prim-inout-null</span>: -<span id="L35574" class="LineNr">35574 </span> 81 7/subop/compare %edi 0/imm32 -<span id="L35575" class="LineNr">35575 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35576" class="LineNr">35576 </span><span class="Constant">$mu-stmt-matches-primitive?:prim-inout-null</span>: -<span id="L35577" class="LineNr">35577 </span> b8/copy-to-eax 0/imm32/false -<span id="L35578" class="LineNr">35578 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 -<span id="L35579" class="LineNr">35579 </span> } -<span id="L35580" class="LineNr">35580 </span> <span class="subxComment"># if (curr != curr2) return false</span> -<span id="L35581" class="LineNr">35581 </span> { -<span id="L35582" class="LineNr">35582 </span><span class="Constant">$mu-stmt-matches-primitive?:check-inouts-match</span>: -<span id="L35583" class="LineNr">35583 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L35584" class="LineNr">35584 </span> (<a href='mu.subx.html#L35673'>operand-matches-primitive?</a> %esi %eax) <span class="subxComment"># => eax</span> -<span id="L35585" class="LineNr">35585 </span> 3d/compare-eax-and 0/imm32/false -<span id="L35586" class="LineNr">35586 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35587" class="LineNr">35587 </span><span class="Constant">$mu-stmt-matches-primitive?:inouts-match</span>: -<span id="L35588" class="LineNr">35588 </span> b8/copy-to-eax 0/imm32/false -<span id="L35589" class="LineNr">35589 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 -<span id="L35590" class="LineNr">35590 </span> } -<span id="L35591" class="LineNr">35591 </span><span class="Constant">$mu-stmt-matches-primitive?:next-inout</span>: -<span id="L35592" class="LineNr">35592 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L35593" class="LineNr">35593 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L35594" class="LineNr">35594 </span> 89/<- %esi 0/r32/eax -<span id="L35595" class="LineNr">35595 </span> <span class="subxComment"># curr2 = lookup(curr2->next)</span> -<span id="L35596" class="LineNr">35596 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L35597" class="LineNr">35597 </span> 89/<- %edi 0/r32/eax -<span id="L35598" class="LineNr">35598 </span> <span class="subxComment">#</span> -<span id="L35599" class="LineNr">35599 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L35600" class="LineNr">35600 </span> } -<span id="L35601" class="LineNr">35601 </span><span class="Constant">$mu-stmt-matches-primitive?:check-outputs</span>: -<span id="L35602" class="LineNr">35602 </span> <span class="subxComment"># var curr/esi: (addr stmt-var) = lookup(stmt->outputs)</span> -<span id="L35603" class="LineNr">35603 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L35604" class="LineNr">35604 </span> 89/<- %esi 0/r32/eax -<span id="L35605" class="LineNr">35605 </span> <span class="subxComment"># var curr2/edi: (addr list var) = lookup(primitive->outputs)</span> -<span id="L35606" class="LineNr">35606 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0x10) *(edx+0x14)) <span class="subxComment"># Primitive-outputs Primitive-outputs => eax</span> -<span id="L35607" class="LineNr">35607 </span> 89/<- %edi 0/r32/eax -<span id="L35608" class="LineNr">35608 </span> { -<span id="L35609" class="LineNr">35609 </span><span class="Constant">$mu-stmt-matches-primitive?:outputs-loop</span>: -<span id="L35610" class="LineNr">35610 </span> <span class="subxComment"># if (curr == 0) return (curr2 == 0)</span> -<span id="L35611" class="LineNr">35611 </span> { -<span id="L35612" class="LineNr">35612 </span><span class="Constant">$mu-stmt-matches-primitive?:check-both-outputs-null</span>: -<span id="L35613" class="LineNr">35613 </span> 81 7/subop/compare %esi 0/imm32 -<span id="L35614" class="LineNr">35614 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35615" class="LineNr">35615 </span> { -<span id="L35616" class="LineNr">35616 </span><span class="Constant">$mu-stmt-matches-primitive?:stmt-output-null</span>: -<span id="L35617" class="LineNr">35617 </span> 81 7/subop/compare %edi 0/imm32 -<span id="L35618" class="LineNr">35618 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35619" class="LineNr">35619 </span><span class="Constant">$mu-stmt-matches-primitive?:both-outputs-null</span>: -<span id="L35620" class="LineNr">35620 </span> <span class="subxComment"># return true</span> -<span id="L35621" class="LineNr">35621 </span> b8/copy-to-eax 1/imm32 -<span id="L35622" class="LineNr">35622 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 -<span id="L35623" class="LineNr">35623 </span> } -<span id="L35624" class="LineNr">35624 </span><span class="Constant">$mu-stmt-matches-primitive?:stmt-output-null-and-prim-output-not-null</span>: -<span id="L35625" class="LineNr">35625 </span> <span class="subxComment"># return false</span> -<span id="L35626" class="LineNr">35626 </span> b8/copy-to-eax 0/imm32 -<span id="L35627" class="LineNr">35627 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 -<span id="L35628" class="LineNr">35628 </span> } -<span id="L35629" class="LineNr">35629 </span> <span class="subxComment"># if (curr2 == 0) return false</span> -<span id="L35630" class="LineNr">35630 </span> { -<span id="L35631" class="LineNr">35631 </span><span class="Constant">$mu-stmt-matches-primitive?:check-prim-output-null</span>: -<span id="L35632" class="LineNr">35632 </span> 81 7/subop/compare %edi 0/imm32 -<span id="L35633" class="LineNr">35633 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35634" class="LineNr">35634 </span><span class="Constant">$mu-stmt-matches-primitive?:prim-output-is-null</span>: -<span id="L35635" class="LineNr">35635 </span> b8/copy-to-eax 0/imm32 -<span id="L35636" class="LineNr">35636 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 -<span id="L35637" class="LineNr">35637 </span> } -<span id="L35638" class="LineNr">35638 </span> <span class="subxComment"># if (curr != curr2) return false</span> -<span id="L35639" class="LineNr">35639 </span> { -<span id="L35640" class="LineNr">35640 </span><span class="Constant">$mu-stmt-matches-primitive?:check-outputs-match</span>: -<span id="L35641" class="LineNr">35641 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L35642" class="LineNr">35642 </span> (<a href='mu.subx.html#L35673'>operand-matches-primitive?</a> %esi %eax) <span class="subxComment"># => eax</span> -<span id="L35643" class="LineNr">35643 </span> 3d/compare-eax-and 0/imm32/false -<span id="L35644" class="LineNr">35644 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35645" class="LineNr">35645 </span><span class="Constant">$mu-stmt-matches-primitive?:outputs-match</span>: -<span id="L35646" class="LineNr">35646 </span> b8/copy-to-eax 0/imm32 -<span id="L35647" class="LineNr">35647 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 -<span id="L35648" class="LineNr">35648 </span> } -<span id="L35649" class="LineNr">35649 </span><span class="Constant">$mu-stmt-matches-primitive?:next-output</span>: -<span id="L35650" class="LineNr">35650 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L35651" class="LineNr">35651 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L35652" class="LineNr">35652 </span> 89/<- %esi 0/r32/eax -<span id="L35653" class="LineNr">35653 </span> <span class="subxComment"># curr2 = lookup(curr2->next)</span> -<span id="L35654" class="LineNr">35654 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L35655" class="LineNr">35655 </span> 89/<- %edi 0/r32/eax -<span id="L35656" class="LineNr">35656 </span> <span class="subxComment">#</span> -<span id="L35657" class="LineNr">35657 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L35658" class="LineNr">35658 </span> } -<span id="L35659" class="LineNr">35659 </span><span class="Constant">$mu-stmt-matches-primitive?:return-true</span>: -<span id="L35660" class="LineNr">35660 </span> b8/copy-to-eax 1/imm32 -<span id="L35661" class="LineNr">35661 </span><span class="Constant">$mu-stmt-matches-primitive?:end</span>: -<span id="L35662" class="LineNr">35662 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L35663" class="LineNr">35663 </span> 5f/pop-to-edi -<span id="L35664" class="LineNr">35664 </span> 5e/pop-to-esi -<span id="L35665" class="LineNr">35665 </span> 5b/pop-to-ebx -<span id="L35666" class="LineNr">35666 </span> 5a/pop-to-edx -<span id="L35667" class="LineNr">35667 </span> 59/pop-to-ecx -<span id="L35668" class="LineNr">35668 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35669" class="LineNr">35669 </span> 89/<- %esp 5/r32/ebp -<span id="L35670" class="LineNr">35670 </span> 5d/pop-to-ebp -<span id="L35671" class="LineNr">35671 </span> c3/return -<span id="L35672" class="LineNr">35672 </span> -<span id="L35673" class="LineNr">35673 </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="L35674" class="LineNr">35674 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35675" class="LineNr">35675 </span> 55/push-ebp -<span id="L35676" class="LineNr">35676 </span> 89/<- %ebp 4/r32/esp -<span id="L35677" class="LineNr">35677 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L35678" class="LineNr">35678 </span> 51/push-ecx -<span id="L35679" class="LineNr">35679 </span> 52/push-edx -<span id="L35680" class="LineNr">35680 </span> 53/push-ebx -<span id="L35681" class="LineNr">35681 </span> 56/push-esi -<span id="L35682" class="LineNr">35682 </span> 57/push-edi -<span id="L35683" class="LineNr">35683 </span> <span class="subxComment"># ecx = s</span> -<span id="L35684" class="LineNr">35684 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L35685" class="LineNr">35685 </span> <span class="subxComment"># var var/esi: (addr var) = lookup(s->value)</span> -<span id="L35686" class="LineNr">35686 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L35687" class="LineNr">35687 </span> 89/<- %esi 0/r32/eax -<span id="L35688" class="LineNr">35688 </span> <span class="subxComment"># edi = prim-var</span> -<span id="L35689" class="LineNr">35689 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L35690" class="LineNr">35690 </span><span class="Constant">$operand-matches-primitive?:check-type</span>: -<span id="L35691" class="LineNr">35691 </span> <span class="subxComment"># if !category-match?(var->type, prim-var->type) return false</span> -<span id="L35692" class="LineNr">35692 </span> <span class="subxS1Comment"># . var vtype/ebx: (addr type-tree) = lookup(var->type)</span> -<span id="L35693" class="LineNr">35693 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L35694" class="LineNr">35694 </span> 89/<- %ebx 0/r32/eax -<span id="L35695" class="LineNr">35695 </span> <span class="subxS1Comment"># . if s is deref, vtype = vtype->right</span> -<span id="L35696" class="LineNr">35696 </span> { -<span id="L35697" class="LineNr">35697 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L35698" class="LineNr">35698 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35699" class="LineNr">35699 </span><span class="Constant">$operand-matches-primitive?:is-deref</span>: -<span id="L35700" class="LineNr">35700 </span> <span class="subxS1Comment"># . var t/eax: (addr type)</span> -<span id="L35701" class="LineNr">35701 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L35702" class="LineNr">35702 </span> <span class="subxS1Comment"># . if !t->is-atom? t = t->left</span> -<span id="L35703" class="LineNr">35703 </span> 81 7/subop/compare *eax 0/imm32/false -<span id="L35704" class="LineNr">35704 </span> { -<span id="L35705" class="LineNr">35705 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35706" class="LineNr">35706 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L35707" class="LineNr">35707 </span> } -<span id="L35708" class="LineNr">35708 </span> <span class="subxS1Comment"># .</span> -<span id="L35709" class="LineNr">35709 </span> 89/<- %ebx 0/r32/eax -<span id="L35710" class="LineNr">35710 </span> } -<span id="L35711" class="LineNr">35711 </span> <span class="subxS1Comment"># . var ptype/eax: (addr type-tree) = lookup(prim-var->type)</span> -<span id="L35712" class="LineNr">35712 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L35713" class="LineNr">35713 </span> (<a href='mu.subx.html#L35850'>subx-type-category-match?</a> %ebx %eax) <span class="subxComment"># => eax</span> -<span id="L35714" class="LineNr">35714 </span> 3d/compare-eax-and 0/imm32/false -<span id="L35715" class="LineNr">35715 </span> 0f 84/jump-if-= $operand-matches-primitive?:return-false/disp32 -<span id="L35716" class="LineNr">35716 </span> { -<span id="L35717" class="LineNr">35717 </span><span class="Constant">$operand-matches-primitive?:check-register</span>: -<span id="L35718" class="LineNr">35718 </span> <span class="subxComment"># if prim-var is in memory and var is in register but dereference, match</span> -<span id="L35719" class="LineNr">35719 </span> { -<span id="L35720" class="LineNr">35720 </span> 81 7/subop/compare *(edi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L35721" class="LineNr">35721 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L35722" class="LineNr">35722 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L35723" class="LineNr">35723 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35724" class="LineNr">35724 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L35725" class="LineNr">35725 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35726" class="LineNr">35726 </span><span class="Constant">$operand-matches-primitive?:var-deref-match</span>: -<span id="L35727" class="LineNr">35727 </span> e9/jump $operand-matches-primitive?:return-true/disp32 -<span id="L35728" class="LineNr">35728 </span> } -<span id="L35729" class="LineNr">35729 </span> <span class="subxComment"># if prim-var is in register and var is in register but dereference, no match</span> -<span id="L35730" class="LineNr">35730 </span> { -<span id="L35731" class="LineNr">35731 </span> 81 7/subop/compare *(edi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L35732" class="LineNr">35732 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L35733" class="LineNr">35733 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L35734" class="LineNr">35734 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L35735" class="LineNr">35735 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L35736" class="LineNr">35736 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35737" class="LineNr">35737 </span><span class="Constant">$operand-matches-primitive?:var-deref-no-match</span>: -<span id="L35738" class="LineNr">35738 </span> e9/jump $operand-matches-primitive?:return-false/disp32 -<span id="L35739" class="LineNr">35739 </span> } -<span id="L35740" class="LineNr">35740 </span> <span class="subxComment"># return false if var->register doesn't match prim-var->register</span> -<span id="L35741" class="LineNr">35741 </span> { -<span id="L35742" class="LineNr">35742 </span> <span class="subxComment"># if register addresses are equal, it's a match</span> -<span id="L35743" class="LineNr">35743 </span> <span class="subxComment"># var vreg/ebx: (addr array byte) = lookup(var->register)</span> -<span id="L35744" class="LineNr">35744 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L35745" class="LineNr">35745 </span> 89/<- %ebx 0/r32/eax -<span id="L35746" class="LineNr">35746 </span> <span class="subxComment"># var preg/ecx: (addr array byte) = lookup(prim-var->register)</span> -<span id="L35747" class="LineNr">35747 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+0x18) *(edi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L35748" class="LineNr">35748 </span> 89/<- %ecx 0/r32/eax -<span id="L35749" class="LineNr">35749 </span> <span class="subxComment"># if (vreg == preg) break</span> -<span id="L35750" class="LineNr">35750 </span> 39/compare %ecx 3/r32/ebx -<span id="L35751" class="LineNr">35751 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35752" class="LineNr">35752 </span><span class="Constant">$operand-matches-primitive?:var-register-no-match</span>: -<span id="L35753" class="LineNr">35753 </span> <span class="subxComment"># if either address is 0, return false</span> -<span id="L35754" class="LineNr">35754 </span> 81 7/subop/compare %ebx 0/imm32 -<span id="L35755" class="LineNr">35755 </span> 74/jump-if-= $operand-matches-primitive?:return-false/disp8 -<span id="L35756" class="LineNr">35756 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L35757" class="LineNr">35757 </span> 74/jump-if-= $operand-matches-primitive?:return-false/disp8 -<span id="L35758" class="LineNr">35758 </span> <span class="subxComment"># if prim-var->register is wildcard, it's a match</span> -<span id="L35759" class="LineNr">35759 </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="L35760" class="LineNr">35760 </span> 3d/compare-eax-and 0/imm32/false -<span id="L35761" class="LineNr">35761 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35762" class="LineNr">35762 </span><span class="Constant">$operand-matches-primitive?:wildcard-no-match</span>: -<span id="L35763" class="LineNr">35763 </span> <span class="subxComment"># if string contents aren't equal, return false</span> -<span id="L35764" class="LineNr">35764 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx %ebx) <span class="subxComment"># => eax</span> -<span id="L35765" class="LineNr">35765 </span> 3d/compare-eax-and 0/imm32/false -<span id="L35766" class="LineNr">35766 </span> 74/jump-if-= $operand-matches-primitive?:return-false/disp8 -<span id="L35767" class="LineNr">35767 </span> } -<span id="L35768" class="LineNr">35768 </span> } -<span id="L35769" class="LineNr">35769 </span><span class="Constant">$operand-matches-primitive?:return-true</span>: -<span id="L35770" class="LineNr">35770 </span> b8/copy-to-eax 1/imm32/true -<span id="L35771" class="LineNr">35771 </span> eb/jump $operand-matches-primitive?:end/disp8 -<span id="L35772" class="LineNr">35772 </span><span class="Constant">$operand-matches-primitive?:return-false</span>: -<span id="L35773" class="LineNr">35773 </span> b8/copy-to-eax 0/imm32/false -<span id="L35774" class="LineNr">35774 </span><span class="Constant">$operand-matches-primitive?:end</span>: -<span id="L35775" class="LineNr">35775 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L35776" class="LineNr">35776 </span> 5f/pop-to-edi -<span id="L35777" class="LineNr">35777 </span> 5e/pop-to-esi -<span id="L35778" class="LineNr">35778 </span> 5b/pop-to-ebx -<span id="L35779" class="LineNr">35779 </span> 5a/pop-to-edx -<span id="L35780" class="LineNr">35780 </span> 59/pop-to-ecx -<span id="L35781" class="LineNr">35781 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35782" class="LineNr">35782 </span> 89/<- %esp 5/r32/ebp -<span id="L35783" class="LineNr">35783 </span> 5d/pop-to-ebp -<span id="L35784" class="LineNr">35784 </span> c3/return -<span id="L35785" class="LineNr">35785 </span> -<span id="L35786" class="LineNr">35786 </span><span class="subxFunction">find-matching-function</span>: <span class="subxComment"># functions: (addr function), stmt: (addr stmt) -> result/eax: (addr function)</span> -<span id="L35787" class="LineNr">35787 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35788" class="LineNr">35788 </span> 55/push-ebp -<span id="L35789" class="LineNr">35789 </span> 89/<- %ebp 4/r32/esp -<span id="L35790" class="LineNr">35790 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L35791" class="LineNr">35791 </span> 51/push-ecx -<span id="L35792" class="LineNr">35792 </span> <span class="subxComment"># var curr/ecx: (handle function) = functions</span> -<span id="L35793" class="LineNr">35793 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L35794" class="LineNr">35794 </span> { -<span id="L35795" class="LineNr">35795 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L35796" class="LineNr">35796 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L35797" class="LineNr">35797 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35798" class="LineNr">35798 </span><span class="CommentedCode">#? (write-buffered Stderr "iter\n")</span> -<span id="L35799" class="LineNr">35799 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L35800" class="LineNr">35800 </span> <span class="subxComment"># if match(stmt, curr) return curr</span> -<span id="L35801" class="LineNr">35801 </span> { -<span id="L35802" class="LineNr">35802 </span> (<a href='mu.subx.html#L35825'>mu-stmt-matches-function?</a> *(ebp+0xc) %ecx) <span class="subxComment"># => eax</span> -<span id="L35803" class="LineNr">35803 </span> 3d/compare-eax-and 0/imm32/false -<span id="L35804" class="LineNr">35804 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35805" class="LineNr">35805 </span> 89/<- %eax 1/r32/ecx -<span id="L35806" class="LineNr">35806 </span> eb/jump $find-matching-function:end/disp8 -<span id="L35807" class="LineNr">35807 </span> } -<span id="L35808" class="LineNr">35808 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L35809" class="LineNr">35809 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x20) *(ecx+0x24)) <span class="subxComment"># Function-next Function-next => eax</span> -<span id="L35810" class="LineNr">35810 </span> 89/<- %ecx 0/r32/eax -<span id="L35811" class="LineNr">35811 </span> <span class="subxComment">#</span> -<span id="L35812" class="LineNr">35812 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L35813" class="LineNr">35813 </span> } -<span id="L35814" class="LineNr">35814 </span> <span class="subxComment"># return null</span> -<span id="L35815" class="LineNr">35815 </span> b8/copy-to-eax 0/imm32 -<span id="L35816" class="LineNr">35816 </span><span class="Constant">$find-matching-function:end</span>: -<span id="L35817" class="LineNr">35817 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L35818" class="LineNr">35818 </span> 59/pop-to-ecx -<span id="L35819" class="LineNr">35819 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35820" class="LineNr">35820 </span> 89/<- %esp 5/r32/ebp -<span id="L35821" class="LineNr">35821 </span> 5d/pop-to-ebp -<span id="L35822" class="LineNr">35822 </span> c3/return -<span id="L35823" class="LineNr">35823 </span> -<span id="L35824" class="LineNr">35824 </span><span class="subxComment"># Just compare names; user-defined functions don't support overloading yet.</span> -<span id="L35825" class="LineNr">35825 </span><span class="subxFunction">mu-stmt-matches-function?</span>: <span class="subxComment"># stmt: (addr stmt1), function: (addr function) -> result/eax: boolean</span> -<span id="L35826" class="LineNr">35826 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35827" class="LineNr">35827 </span> 55/push-ebp -<span id="L35828" class="LineNr">35828 </span> 89/<- %ebp 4/r32/esp -<span id="L35829" class="LineNr">35829 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L35830" class="LineNr">35830 </span> 51/push-ecx -<span id="L35831" class="LineNr">35831 </span> <span class="subxComment"># return function->name == stmt->operation</span> -<span id="L35832" class="LineNr">35832 </span> <span class="subxComment"># ecx = lookup(stmt->operation)</span> -<span id="L35833" class="LineNr">35833 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L35834" class="LineNr">35834 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L35835" class="LineNr">35835 </span> 89/<- %ecx 0/r32/eax -<span id="L35836" class="LineNr">35836 </span> <span class="subxComment"># eax = lookup(function->name)</span> -<span id="L35837" class="LineNr">35837 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L35838" class="LineNr">35838 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L35839" class="LineNr">35839 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax %ecx) <span class="subxComment"># => eax</span> -<span id="L35840" class="LineNr">35840 </span><span class="Constant">$mu-stmt-matches-function?:end</span>: -<span id="L35841" class="LineNr">35841 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L35842" class="LineNr">35842 </span> 59/pop-to-ecx -<span id="L35843" class="LineNr">35843 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35844" class="LineNr">35844 </span> 89/<- %esp 5/r32/ebp -<span id="L35845" class="LineNr">35845 </span> 5d/pop-to-ebp -<span id="L35846" class="LineNr">35846 </span> c3/return -<span id="L35847" class="LineNr">35847 </span> -<span id="L35848" class="LineNr">35848 </span><span class="subxComment"># Type-checking happens elsewhere. This method is for selecting between</span> -<span id="L35849" class="LineNr">35849 </span><span class="subxComment"># primitives.</span> -<span id="L35850" class="LineNr">35850 </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="L35851" class="LineNr">35851 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35852" class="LineNr">35852 </span> 55/push-ebp -<span id="L35853" class="LineNr">35853 </span> 89/<- %ebp 4/r32/esp -<span id="L35854" class="LineNr">35854 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L35855" class="LineNr">35855 </span> 51/push-ecx -<span id="L35856" class="LineNr">35856 </span> <span class="subxComment"># var cata/ecx: int = type-category(a)</span> -<span id="L35857" class="LineNr">35857 </span> (<a href='mu.subx.html#L35873'>type-category</a> *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L35858" class="LineNr">35858 </span> 89/<- %ecx 0/r32/eax -<span id="L35859" class="LineNr">35859 </span> <span class="subxComment"># var catb/eax: int = type-category(b)</span> -<span id="L35860" class="LineNr">35860 </span> (<a href='mu.subx.html#L35873'>type-category</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L35861" class="LineNr">35861 </span> <span class="subxComment"># return cata == catb</span> -<span id="L35862" class="LineNr">35862 </span> 39/compare %eax 1/r32/ecx -<span id="L35863" class="LineNr">35863 </span> 0f 94/set-byte-if-= %al -<span id="L35864" class="LineNr">35864 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L35865" class="LineNr">35865 </span><span class="Constant">$subx-type-category-match?:end</span>: -<span id="L35866" class="LineNr">35866 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L35867" class="LineNr">35867 </span> 59/pop-to-ecx -<span id="L35868" class="LineNr">35868 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35869" class="LineNr">35869 </span> 89/<- %esp 5/r32/ebp -<span id="L35870" class="LineNr">35870 </span> 5d/pop-to-ebp -<span id="L35871" class="LineNr">35871 </span> c3/return -<span id="L35872" class="LineNr">35872 </span> -<span id="L35873" class="LineNr">35873 </span><span class="subxFunction">type-category</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: int</span> -<span id="L35874" class="LineNr">35874 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35875" class="LineNr">35875 </span> 55/push-ebp -<span id="L35876" class="LineNr">35876 </span> 89/<- %ebp 4/r32/esp -<span id="L35877" class="LineNr">35877 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L35878" class="LineNr">35878 </span> 51/push-ecx -<span id="L35879" class="LineNr">35879 </span> <span class="subxComment"># var lit?/ecx: boolean = literal-type?(a)</span> -<span id="L35880" class="LineNr">35880 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> *(ebp+8) 0) <span class="subxComment"># literal => eax</span> -<span id="L35881" class="LineNr">35881 </span> 89/<- %ecx 0/r32/eax -<span id="L35882" class="LineNr">35882 </span> <span class="subxComment"># var float?/eax: int = float?(a)</span> -<span id="L35883" class="LineNr">35883 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> *(ebp+8) 0xf) <span class="subxComment"># => eax</span> -<span id="L35884" class="LineNr">35884 </span> <span class="subxComment"># set bits for lit? and float?</span> -<span id="L35885" class="LineNr">35885 </span> c1/shift 4/subop/left %ecx 1/imm8 -<span id="L35886" class="LineNr">35886 </span> 09/or %eax 1/r32/ecx -<span id="L35887" class="LineNr">35887 </span><span class="Constant">$type-category:end</span>: -<span id="L35888" class="LineNr">35888 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L35889" class="LineNr">35889 </span> 59/pop-to-ecx -<span id="L35890" class="LineNr">35890 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35891" class="LineNr">35891 </span> 89/<- %esp 5/r32/ebp -<span id="L35892" class="LineNr">35892 </span> 5d/pop-to-ebp -<span id="L35893" class="LineNr">35893 </span> c3/return -<span id="L35894" class="LineNr">35894 </span> -<span id="L35895" class="LineNr">35895 </span><span class="subxFunction">simple-mu-type?</span>: <span class="subxComment"># a: (addr type-tree), n: type-id -> result/eax: boolean</span> -<span id="L35896" class="LineNr">35896 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35897" class="LineNr">35897 </span> 55/push-ebp -<span id="L35898" class="LineNr">35898 </span> 89/<- %ebp 4/r32/esp -<span id="L35899" class="LineNr">35899 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L35900" class="LineNr">35900 </span> 51/push-ecx -<span id="L35901" class="LineNr">35901 </span> <span class="subxComment"># ecx = n</span> -<span id="L35902" class="LineNr">35902 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L35903" class="LineNr">35903 </span> <span class="subxComment"># return (a->value == n)</span> -<span id="L35904" class="LineNr">35904 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L35905" class="LineNr">35905 </span> 39/compare *(eax+4) 1/r32/ecx <span class="subxComment"># Type-tree-value</span> -<span id="L35906" class="LineNr">35906 </span> 0f 94/set-byte-if-= %al -<span id="L35907" class="LineNr">35907 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L35908" class="LineNr">35908 </span><span class="Constant">$simple-mu-type?:end</span>: -<span id="L35909" class="LineNr">35909 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L35910" class="LineNr">35910 </span> 59/pop-to-ecx -<span id="L35911" class="LineNr">35911 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35912" class="LineNr">35912 </span> 89/<- %esp 5/r32/ebp -<span id="L35913" class="LineNr">35913 </span> 5d/pop-to-ebp -<span id="L35914" class="LineNr">35914 </span> c3/return -<span id="L35915" class="LineNr">35915 </span> -<span id="L35916" class="LineNr">35916 </span><span class="subxFunction">mu-addr-type?</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: boolean</span> -<span id="L35917" class="LineNr">35917 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35918" class="LineNr">35918 </span> 55/push-ebp -<span id="L35919" class="LineNr">35919 </span> 89/<- %ebp 4/r32/esp -<span id="L35920" class="LineNr">35920 </span> <span class="subxComment"># eax = a</span> -<span id="L35921" class="LineNr">35921 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L35922" class="LineNr">35922 </span> <span class="subxComment"># if (!a->is-atom?) a = a->left</span> -<span id="L35923" class="LineNr">35923 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L35924" class="LineNr">35924 </span> { -<span id="L35925" class="LineNr">35925 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35926" class="LineNr">35926 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L35927" class="LineNr">35927 </span> } -<span id="L35928" class="LineNr">35928 </span> <span class="subxComment"># return (a->value == addr)</span> -<span id="L35929" class="LineNr">35929 </span> 81 7/subop/compare *(eax+4) 2/imm32/addr <span class="subxComment"># Type-tree-value</span> -<span id="L35930" class="LineNr">35930 </span> 0f 94/set-byte-if-= %al -<span id="L35931" class="LineNr">35931 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L35932" class="LineNr">35932 </span><span class="Constant">$mu-addr-type?:end</span>: -<span id="L35933" class="LineNr">35933 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35934" class="LineNr">35934 </span> 89/<- %esp 5/r32/ebp -<span id="L35935" class="LineNr">35935 </span> 5d/pop-to-ebp -<span id="L35936" class="LineNr">35936 </span> c3/return -<span id="L35937" class="LineNr">35937 </span> -<span id="L35938" class="LineNr">35938 </span><span class="subxFunction">mu-array-type?</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: boolean</span> -<span id="L35939" class="LineNr">35939 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35940" class="LineNr">35940 </span> 55/push-ebp -<span id="L35941" class="LineNr">35941 </span> 89/<- %ebp 4/r32/esp -<span id="L35942" class="LineNr">35942 </span> <span class="subxComment"># eax = a</span> -<span id="L35943" class="LineNr">35943 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L35944" class="LineNr">35944 </span> <span class="subxComment"># if (!a->is-atom?) a = a->left</span> -<span id="L35945" class="LineNr">35945 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L35946" class="LineNr">35946 </span> { -<span id="L35947" class="LineNr">35947 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35948" class="LineNr">35948 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L35949" class="LineNr">35949 </span> } -<span id="L35950" class="LineNr">35950 </span> <span class="subxComment"># return (a->value == array)</span> -<span id="L35951" class="LineNr">35951 </span> 81 7/subop/compare *(eax+4) 3/imm32/array <span class="subxComment"># Type-tree-value</span> -<span id="L35952" class="LineNr">35952 </span> 0f 94/set-byte-if-= %al -<span id="L35953" class="LineNr">35953 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L35954" class="LineNr">35954 </span><span class="Constant">$mu-array-type?:end</span>: -<span id="L35955" class="LineNr">35955 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35956" class="LineNr">35956 </span> 89/<- %esp 5/r32/ebp -<span id="L35957" class="LineNr">35957 </span> 5d/pop-to-ebp -<span id="L35958" class="LineNr">35958 </span> c3/return -<span id="L35959" class="LineNr">35959 </span> -<span id="L35960" class="LineNr">35960 </span><span class="subxFunction">mu-string-type?</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: boolean</span> -<span id="L35961" class="LineNr">35961 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35962" class="LineNr">35962 </span> 55/push-ebp -<span id="L35963" class="LineNr">35963 </span> 89/<- %ebp 4/r32/esp -<span id="L35964" class="LineNr">35964 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L35965" class="LineNr">35965 </span> 56/push-esi -<span id="L35966" class="LineNr">35966 </span> <span class="subxComment"># esi = a</span> -<span id="L35967" class="LineNr">35967 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L35968" class="LineNr">35968 </span> <span class="subxComment"># if (a->is-atom?) return false</span> -<span id="L35969" class="LineNr">35969 </span> 81 7/subop/compare *esi 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L35970" class="LineNr">35970 </span> 0f 85/jump-if-!= $mu-string-type?:return-false/disp32 -<span id="L35971" class="LineNr">35971 </span> <span class="subxComment"># if a is not an addr, return false</span> -<span id="L35972" class="LineNr">35972 </span> (<a href='mu.subx.html#L35916'>mu-addr-type?</a> %esi) <span class="subxComment"># => eax</span> -<span id="L35973" class="LineNr">35973 </span> 3d/compare-eax-with 0/imm32/false -<span id="L35974" class="LineNr">35974 </span> 0f 84/jump-if-= $mu-string-type?:end/disp32 <span class="subxComment"># eax changes var</span> -<span id="L35975" class="LineNr">35975 </span> <span class="subxComment"># if a is not an array, return false</span> -<span id="L35976" class="LineNr">35976 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L35977" class="LineNr">35977 </span> (<a href='mu.subx.html#L35938'>mu-array-type?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L35978" class="LineNr">35978 </span> 3d/compare-eax-with 0/imm32/false -<span id="L35979" class="LineNr">35979 </span> 74/jump-if-= $mu-string-type?:end/disp8 <span class="subxComment"># eax changes var</span> -<span id="L35980" class="LineNr">35980 </span> <span class="subxComment"># var p/eax: (addr type-tree) = payload of a</span> -<span id="L35981" class="LineNr">35981 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L35982" class="LineNr">35982 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L35983" class="LineNr">35983 </span> <span class="subxComment"># if p is an atom, return false</span> -<span id="L35984" class="LineNr">35984 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L35985" class="LineNr">35985 </span> 75/jump-if-!= $mu-string-type?:return-false/disp8 -<span id="L35986" class="LineNr">35986 </span> <span class="subxComment"># return (p == byte)</span> -<span id="L35987" class="LineNr">35987 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L35988" class="LineNr">35988 </span> (<a href='mu.subx.html#L35895'>simple-mu-type?</a> %eax 8) <span class="subxComment"># byte => eax</span> -<span id="L35989" class="LineNr">35989 </span> eb/jump $mu-string-type?:end/disp8 -<span id="L35990" class="LineNr">35990 </span><span class="Constant">$mu-string-type?:return-false</span>: -<span id="L35991" class="LineNr">35991 </span> b8/copy-to-eax 0/imm32/false -<span id="L35992" class="LineNr">35992 </span><span class="Constant">$mu-string-type?:end</span>: -<span id="L35993" class="LineNr">35993 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L35994" class="LineNr">35994 </span> 5e/pop-to-esi -<span id="L35995" class="LineNr">35995 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35996" class="LineNr">35996 </span> 89/<- %esp 5/r32/ebp -<span id="L35997" class="LineNr">35997 </span> 5d/pop-to-ebp -<span id="L35998" class="LineNr">35998 </span> c3/return -<span id="L35999" class="LineNr">35999 </span> -<span id="L36000" class="LineNr">36000 </span><span class="subxFunction">mu-stream-type?</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: boolean</span> -<span id="L36001" class="LineNr">36001 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L36002" class="LineNr">36002 </span> 55/push-ebp -<span id="L36003" class="LineNr">36003 </span> 89/<- %ebp 4/r32/esp -<span id="L36004" class="LineNr">36004 </span> <span class="subxComment"># eax = a</span> -<span id="L36005" class="LineNr">36005 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L36006" class="LineNr">36006 </span> <span class="subxComment"># if (!a->is-atom?) a = a->left</span> -<span id="L36007" class="LineNr">36007 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L36008" class="LineNr">36008 </span> { -<span id="L36009" class="LineNr">36009 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L36010" class="LineNr">36010 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L36011" class="LineNr">36011 </span> } -<span id="L36012" class="LineNr">36012 </span> <span class="subxComment"># return (a->value == stream)</span> -<span id="L36013" class="LineNr">36013 </span> 81 7/subop/compare *(eax+4) 0xb/imm32/stream <span class="subxComment"># Type-tree-value</span> -<span id="L36014" class="LineNr">36014 </span> 0f 94/set-byte-if-= %al -<span id="L36015" class="LineNr">36015 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L36016" class="LineNr">36016 </span><span class="Constant">$mu-stream-type?:end</span>: -<span id="L36017" class="LineNr">36017 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L36018" class="LineNr">36018 </span> 89/<- %esp 5/r32/ebp -<span id="L36019" class="LineNr">36019 </span> 5d/pop-to-ebp -<span id="L36020" class="LineNr">36020 </span> c3/return -<span id="L36021" class="LineNr">36021 </span> -<span id="L36022" class="LineNr">36022 </span><span class="subxTest">test-emit-subx-stmt-primitive</span>: -<span id="L36023" class="LineNr">36023 </span> <span class="subxComment"># Primitive operation on a variable on the stack.</span> -<span id="L36024" class="LineNr">36024 </span> <span class="subxComment"># increment foo</span> -<span id="L36025" class="LineNr">36025 </span> <span class="subxComment"># =></span> -<span id="L36026" class="LineNr">36026 </span> <span class="subxComment"># ff 0/subop/increment *(ebp-8)</span> -<span id="L36027" class="LineNr">36027 </span> <span class="subxComment">#</span> -<span id="L36028" class="LineNr">36028 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> -<span id="L36029" class="LineNr">36029 </span> <span class="subxComment"># name: 'foo'</span> -<span id="L36030" class="LineNr">36030 </span> <span class="subxComment"># type: int</span> -<span id="L36031" class="LineNr">36031 </span> <span class="subxComment"># stack-offset: -8</span> -<span id="L36032" class="LineNr">36032 </span> <span class="subxComment">#</span> -<span id="L36033" class="LineNr">36033 </span> <span class="subxComment"># There's a primitive with this info:</span> -<span id="L36034" class="LineNr">36034 </span> <span class="subxComment"># name: 'increment'</span> -<span id="L36035" class="LineNr">36035 </span> <span class="subxComment"># inouts: int/mem</span> -<span id="L36036" class="LineNr">36036 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> -<span id="L36037" class="LineNr">36037 </span> <span class="subxComment">#</span> -<span id="L36038" class="LineNr">36038 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L36039" class="LineNr">36039 </span> 55/push-ebp -<span id="L36040" class="LineNr">36040 </span> 89/<- %ebp 4/r32/esp -<span id="L36041" class="LineNr">36041 </span> <span class="subxComment"># setup</span> -<span id="L36042" class="LineNr">36042 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L36043" class="LineNr">36043 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L36044" class="LineNr">36044 </span> <span class="subxComment"># simulate allocated payloads starting with an initial fake alloc-id (0x11)</span> -<span id="L36045" class="LineNr">36045 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-type</span>: -<span id="L36046" class="LineNr">36046 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L36047" class="LineNr">36047 </span> 68/push 0/imm32/right:null -<span id="L36048" class="LineNr">36048 </span> 68/push 0/imm32/right:null -<span id="L36049" class="LineNr">36049 </span> 68/push 0/imm32/left:unused -<span id="L36050" class="LineNr">36050 </span> 68/push 1/imm32/value:int -<span id="L36051" class="LineNr">36051 </span> 68/push 1/imm32/is-atom?:true -<span id="L36052" class="LineNr">36052 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36053" class="LineNr">36053 </span> 89/<- %ecx 4/r32/esp -<span id="L36054" class="LineNr">36054 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-var</span>: -<span id="L36055" class="LineNr">36055 </span> <span class="subxComment"># var var-foo/ecx: (payload var) = var(type)</span> -<span id="L36056" class="LineNr">36056 </span> 68/push 0/imm32/no-register -<span id="L36057" class="LineNr">36057 </span> 68/push 0/imm32/no-register -<span id="L36058" class="LineNr">36058 </span> 68/push -8/imm32/stack-offset -<span id="L36059" class="LineNr">36059 </span> 68/push 1/imm32/block-depth -<span id="L36060" class="LineNr">36060 </span> 51/push-ecx/type -<span id="L36061" class="LineNr">36061 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36062" class="LineNr">36062 </span> 68/push 0/imm32/name -<span id="L36063" class="LineNr">36063 </span> 68/push 0/imm32/name -<span id="L36064" class="LineNr">36064 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36065" class="LineNr">36065 </span> 89/<- %ecx 4/r32/esp -<span id="L36066" class="LineNr">36066 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-var-name</span>: -<span id="L36067" class="LineNr">36067 </span> <span class="subxComment"># var-foo->name = "foo"</span> -<span id="L36068" class="LineNr">36068 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L36069" class="LineNr">36069 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"foo"</span> %eax) -<span id="L36070" class="LineNr">36070 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-stmt-var</span>: -<span id="L36071" class="LineNr">36071 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var) = stmt-var(var-foo)</span> -<span id="L36072" class="LineNr">36072 </span> 68/push 0/imm32/is-deref:false -<span id="L36073" class="LineNr">36073 </span> 68/push 0/imm32/next -<span id="L36074" class="LineNr">36074 </span> 68/push 0/imm32/next -<span id="L36075" class="LineNr">36075 </span> 51/push-ecx/var-foo -<span id="L36076" class="LineNr">36076 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36077" class="LineNr">36077 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36078" class="LineNr">36078 </span> 89/<- %ebx 4/r32/esp -<span id="L36079" class="LineNr">36079 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-stmt</span>: -<span id="L36080" class="LineNr">36080 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L36081" class="LineNr">36081 </span> 68/push 0/imm32/no-outputs -<span id="L36082" class="LineNr">36082 </span> 68/push 0/imm32/no-outputs -<span id="L36083" class="LineNr">36083 </span> 53/push-ebx/inouts -<span id="L36084" class="LineNr">36084 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36085" class="LineNr">36085 </span> 68/push 0/imm32/operation -<span id="L36086" class="LineNr">36086 </span> 68/push 0/imm32/operation -<span id="L36087" class="LineNr">36087 </span> 68/push 1/imm32/tag -<span id="L36088" class="LineNr">36088 </span> 89/<- %esi 4/r32/esp -<span id="L36089" class="LineNr">36089 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-stmt-operation</span>: -<span id="L36090" class="LineNr">36090 </span> <span class="subxComment"># stmt->operation = "increment"</span> -<span id="L36091" class="LineNr">36091 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L36092" class="LineNr">36092 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %eax) -<span id="L36093" class="LineNr">36093 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-primitive</span>: -<span id="L36094" class="LineNr">36094 </span> <span class="subxComment"># var primitives/ebx: (addr primitive)</span> -<span id="L36095" class="LineNr">36095 </span> 68/push 0/imm32/next -<span id="L36096" class="LineNr">36096 </span> 68/push 0/imm32/next -<span id="L36097" class="LineNr">36097 </span> 68/push 0/imm32/no-x32 -<span id="L36098" class="LineNr">36098 </span> 68/push 0/imm32/no-xm32 -<span id="L36099" class="LineNr">36099 </span> 68/push 0/imm32/no-disp32 -<span id="L36100" class="LineNr">36100 </span> 68/push 0/imm32/no-imm8 -<span id="L36101" class="LineNr">36101 </span> 68/push 0/imm32/no-imm32 -<span id="L36102" class="LineNr">36102 </span> 68/push 0/imm32/no-r32 -<span id="L36103" class="LineNr">36103 </span> 68/push 1/imm32/rm32-is-first-inout -<span id="L36104" class="LineNr">36104 </span> 68/push 0/imm32/subx-name -<span id="L36105" class="LineNr">36105 </span> 68/push 0/imm32/subx-name -<span id="L36106" class="LineNr">36106 </span> 68/push 0/imm32/no-outputs -<span id="L36107" class="LineNr">36107 </span> 68/push 0/imm32/no-outputs -<span id="L36108" class="LineNr">36108 </span> 53/push-ebx/inouts <span class="subxComment"># hack: reuse stmt-var from call stmt as (list var) in function declaration</span> -<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/name -<span id="L36111" class="LineNr">36111 </span> 68/push 0/imm32/name -<span id="L36112" class="LineNr">36112 </span> 89/<- %ebx 4/r32/esp -<span id="L36113" class="LineNr">36113 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-primitive-name</span>: -<span id="L36114" class="LineNr">36114 </span> <span class="subxComment"># primitives->name = "increment"</span> -<span id="L36115" class="LineNr">36115 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %ebx) <span class="subxComment"># Primitive-name</span> -<span id="L36116" class="LineNr">36116 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-primitive-subx-name</span>: -<span id="L36117" class="LineNr">36117 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> -<span id="L36118" class="LineNr">36118 </span> 8d/copy-address *(ebx+0x18) 0/r32/eax <span class="subxComment"># Primitive-subx-name</span> -<span id="L36119" class="LineNr">36119 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ff 0/subop/increment"</span> %eax) -<span id="L36120" class="LineNr">36120 </span> <span class="subxComment"># convert</span> -<span id="L36121" class="LineNr">36121 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span> 0/imm32 -<span id="L36122" class="LineNr">36122 </span> (<a href='mu.subx.html#L28630'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi %ebx 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L36123" class="LineNr">36123 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L36124" class="Folded">36124 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L36130" class="LineNr">36130 </span> <span class="subxComment"># check output</span> -<span id="L36131" class="LineNr">36131 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"ff 0/subop/increment *(ebp+0xfffffff8)"</span> <span class="Constant">"F - test-emit-subx-stmt-primitive"</span>) -<span id="L36132" class="LineNr">36132 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L36133" class="LineNr">36133 </span> 89/<- %esp 5/r32/ebp -<span id="L36134" class="LineNr">36134 </span> 5d/pop-to-ebp -<span id="L36135" class="LineNr">36135 </span> c3/return -<span id="L36136" class="LineNr">36136 </span> -<span id="L36137" class="LineNr">36137 </span><span class="subxTest">test-emit-subx-stmt-primitive-register</span>: -<span id="L36138" class="LineNr">36138 </span> <span class="subxComment"># Primitive operation on a variable in a register.</span> -<span id="L36139" class="LineNr">36139 </span> <span class="subxComment"># foo <- increment</span> -<span id="L36140" class="LineNr">36140 </span> <span class="subxComment"># =></span> -<span id="L36141" class="LineNr">36141 </span> <span class="subxComment"># ff 0/subop/increment %eax # sub-optimal, but should suffice</span> -<span id="L36142" class="LineNr">36142 </span> <span class="subxComment">#</span> -<span id="L36143" class="LineNr">36143 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> -<span id="L36144" class="LineNr">36144 </span> <span class="subxComment"># name: 'foo'</span> -<span id="L36145" class="LineNr">36145 </span> <span class="subxComment"># type: int</span> -<span id="L36146" class="LineNr">36146 </span> <span class="subxComment"># register: 'eax'</span> -<span id="L36147" class="LineNr">36147 </span> <span class="subxComment">#</span> -<span id="L36148" class="LineNr">36148 </span> <span class="subxComment"># There's a primitive with this info:</span> -<span id="L36149" class="LineNr">36149 </span> <span class="subxComment"># name: 'increment'</span> -<span id="L36150" class="LineNr">36150 </span> <span class="subxComment"># out: int/reg</span> -<span id="L36151" class="LineNr">36151 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> -<span id="L36152" class="LineNr">36152 </span> <span class="subxComment">#</span> -<span id="L36153" class="LineNr">36153 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L36154" class="LineNr">36154 </span> 55/push-ebp -<span id="L36155" class="LineNr">36155 </span> 89/<- %ebp 4/r32/esp -<span id="L36156" class="LineNr">36156 </span> <span class="subxComment"># setup</span> -<span id="L36157" class="LineNr">36157 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L36158" class="LineNr">36158 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L36159" class="LineNr">36159 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-type</span>: -<span id="L36160" class="LineNr">36160 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L36161" class="LineNr">36161 </span> 68/push 0/imm32/right:null -<span id="L36162" class="LineNr">36162 </span> 68/push 0/imm32/right:null -<span id="L36163" class="LineNr">36163 </span> 68/push 0/imm32/left:unused -<span id="L36164" class="LineNr">36164 </span> 68/push 1/imm32/value:int -<span id="L36165" class="LineNr">36165 </span> 68/push 1/imm32/is-atom?:true -<span id="L36166" class="LineNr">36166 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36167" class="LineNr">36167 </span> 89/<- %ecx 4/r32/esp -<span id="L36168" class="LineNr">36168 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-var</span>: -<span id="L36169" class="LineNr">36169 </span> <span class="subxComment"># var var-foo/ecx: (payload var)</span> -<span id="L36170" class="LineNr">36170 </span> 68/push 0/imm32/register -<span id="L36171" class="LineNr">36171 </span> 68/push 0/imm32/register -<span id="L36172" class="LineNr">36172 </span> 68/push 0/imm32/no-stack-offset -<span id="L36173" class="LineNr">36173 </span> 68/push 1/imm32/block-depth -<span id="L36174" class="LineNr">36174 </span> 51/push-ecx -<span id="L36175" class="LineNr">36175 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36176" class="LineNr">36176 </span> 68/push 0/imm32/name -<span id="L36177" class="LineNr">36177 </span> 68/push 0/imm32/name -<span id="L36178" class="LineNr">36178 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36179" class="LineNr">36179 </span> 89/<- %ecx 4/r32/esp -<span id="L36180" class="LineNr">36180 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-var-name</span>: -<span id="L36181" class="LineNr">36181 </span> <span class="subxComment"># var-foo->name = "foo"</span> -<span id="L36182" class="LineNr">36182 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L36183" class="LineNr">36183 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"foo"</span> %eax) -<span id="L36184" class="LineNr">36184 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-var-register</span>: -<span id="L36185" class="LineNr">36185 </span> <span class="subxComment"># var-foo->register = "eax"</span> -<span id="L36186" class="LineNr">36186 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L36187" class="LineNr">36187 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) -<span id="L36188" class="LineNr">36188 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-stmt-var</span>: -<span id="L36189" class="LineNr">36189 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var)</span> -<span id="L36190" class="LineNr">36190 </span> 68/push 0/imm32/is-deref:false -<span id="L36191" class="LineNr">36191 </span> 68/push 0/imm32/next -<span id="L36192" class="LineNr">36192 </span> 68/push 0/imm32/next -<span id="L36193" class="LineNr">36193 </span> 51/push-ecx/var-foo -<span id="L36194" class="LineNr">36194 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36195" class="LineNr">36195 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36196" class="LineNr">36196 </span> 89/<- %ebx 4/r32/esp -<span id="L36197" class="LineNr">36197 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-stmt</span>: -<span id="L36198" class="LineNr">36198 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L36199" class="LineNr">36199 </span> 53/push-ebx/outputs -<span id="L36200" class="LineNr">36200 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36201" class="LineNr">36201 </span> 68/push 0/imm32/no-inouts -<span id="L36202" class="LineNr">36202 </span> 68/push 0/imm32/no-inouts -<span id="L36203" class="LineNr">36203 </span> 68/push 0/imm32/operation -<span id="L36204" class="LineNr">36204 </span> 68/push 0/imm32/operation -<span id="L36205" class="LineNr">36205 </span> 68/push 1/imm32 -<span id="L36206" class="LineNr">36206 </span> 89/<- %esi 4/r32/esp -<span id="L36207" class="LineNr">36207 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-stmt-operation</span>: -<span id="L36208" class="LineNr">36208 </span> <span class="subxComment"># stmt->operation = "increment"</span> -<span id="L36209" class="LineNr">36209 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L36210" class="LineNr">36210 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %eax) -<span id="L36211" class="LineNr">36211 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-formal-var</span>: -<span id="L36212" class="LineNr">36212 </span> <span class="subxComment"># var formal-var/ebx: (payload var)</span> -<span id="L36213" class="LineNr">36213 </span> 68/push 0/imm32/register -<span id="L36214" class="LineNr">36214 </span> 68/push 0/imm32/register -<span id="L36215" class="LineNr">36215 </span> 68/push 0/imm32/no-stack-offset -<span id="L36216" class="LineNr">36216 </span> 68/push 1/imm32/block-depth -<span id="L36217" class="LineNr">36217 </span> ff 6/subop/push *(ecx+0x10) <span class="subxComment"># Var-type + payload alloc id + handle alloc id</span> -<span id="L36218" class="LineNr">36218 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36219" class="LineNr">36219 </span> 68/push 0/imm32/name -<span id="L36220" class="LineNr">36220 </span> 68/push 0/imm32/name -<span id="L36221" class="LineNr">36221 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36222" class="LineNr">36222 </span> 89/<- %ebx 4/r32/esp -<span id="L36223" class="LineNr">36223 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-formal-var-name</span>: -<span id="L36224" class="LineNr">36224 </span> <span class="subxComment"># formal-var->name = "dummy"</span> -<span id="L36225" class="LineNr">36225 </span> 8d/copy-address *(ebx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L36226" class="LineNr">36226 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"dummy"</span> %eax) -<span id="L36227" class="LineNr">36227 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-formal-register</span>: -<span id="L36228" class="LineNr">36228 </span> <span class="subxComment"># formal-var->register = "*"</span> -<span id="L36229" class="LineNr">36229 </span> 8d/copy-address *(ebx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L36230" class="LineNr">36230 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"*"</span> %eax) <span class="subxComment"># Any-register</span> -<span id="L36231" class="LineNr">36231 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-var-list</span>: -<span id="L36232" class="LineNr">36232 </span> <span class="subxComment"># var formal-outputs/ebx: (payload list var)</span> -<span id="L36233" class="LineNr">36233 </span> 68/push 0/imm32/next -<span id="L36234" class="LineNr">36234 </span> 68/push 0/imm32/next -<span id="L36235" class="LineNr">36235 </span> 53/push-ebx/formal-var -<span id="L36236" class="LineNr">36236 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36237" class="LineNr">36237 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36238" class="LineNr">36238 </span> 89/<- %ebx 4/r32/esp -<span id="L36239" class="LineNr">36239 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-primitive</span>: -<span id="L36240" class="LineNr">36240 </span> <span class="subxComment"># var primitives/ebx: (addr primitive)</span> -<span id="L36241" class="LineNr">36241 </span> 68/push 0/imm32/next -<span id="L36242" class="LineNr">36242 </span> 68/push 0/imm32/next -<span id="L36243" class="LineNr">36243 </span> 68/push 0/imm32/no-x32 -<span id="L36244" class="LineNr">36244 </span> 68/push 0/imm32/no-xm32 -<span id="L36245" class="LineNr">36245 </span> 68/push 0/imm32/no-disp32 -<span id="L36246" class="LineNr">36246 </span> 68/push 0/imm32/no-imm8 -<span id="L36247" class="LineNr">36247 </span> 68/push 0/imm32/no-imm32 -<span id="L36248" class="LineNr">36248 </span> 68/push 0/imm32/no-r32 -<span id="L36249" class="LineNr">36249 </span> 68/push 3/imm32/rm32-is-first-output -<span id="L36250" class="LineNr">36250 </span> 68/push 0/imm32/subx-name -<span id="L36251" class="LineNr">36251 </span> 68/push 0/imm32/subx-name -<span id="L36252" class="LineNr">36252 </span> 53/push-ebx/outputs -<span id="L36253" class="LineNr">36253 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36254" class="LineNr">36254 </span> 68/push 0/imm32/no-inouts -<span id="L36255" class="LineNr">36255 </span> 68/push 0/imm32/no-inouts -<span id="L36256" class="LineNr">36256 </span> 68/push 0/imm32/name -<span id="L36257" class="LineNr">36257 </span> 68/push 0/imm32/name -<span id="L36258" class="LineNr">36258 </span> 89/<- %ebx 4/r32/esp -<span id="L36259" class="LineNr">36259 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-primitive-name</span>: -<span id="L36260" class="LineNr">36260 </span> <span class="subxComment"># primitives->name = "increment"</span> -<span id="L36261" class="LineNr">36261 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %ebx) <span class="subxComment"># Primitive-name</span> -<span id="L36262" class="LineNr">36262 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-primitive-subx-name</span>: -<span id="L36263" class="LineNr">36263 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> -<span id="L36264" class="LineNr">36264 </span> 8d/copy-address *(ebx+0x18) 0/r32/eax <span class="subxComment"># Primitive-subx-name</span> -<span id="L36265" class="LineNr">36265 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ff 0/subop/increment"</span> %eax) -<span id="L36266" class="LineNr">36266 </span> <span class="subxComment"># convert</span> -<span id="L36267" class="LineNr">36267 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span> 0/imm32 -<span id="L36268" class="LineNr">36268 </span> (<a href='mu.subx.html#L28630'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi %ebx 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L36269" class="LineNr">36269 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L36270" class="Folded">36270 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L36276" class="LineNr">36276 </span> <span class="subxComment"># check output</span> -<span id="L36277" class="LineNr">36277 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"ff 0/subop/increment %eax"</span> <span class="Constant">"F - test-emit-subx-stmt-primitive-register"</span>) -<span id="L36278" class="LineNr">36278 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L36279" class="LineNr">36279 </span> 89/<- %esp 5/r32/ebp -<span id="L36280" class="LineNr">36280 </span> 5d/pop-to-ebp -<span id="L36281" class="LineNr">36281 </span> c3/return -<span id="L36282" class="LineNr">36282 </span> -<span id="L36283" class="LineNr">36283 </span><span class="subxTest">test-emit-subx-stmt-select-primitive</span>: -<span id="L36284" class="LineNr">36284 </span> <span class="subxComment"># Select the right primitive between overloads.</span> -<span id="L36285" class="LineNr">36285 </span> <span class="subxComment"># foo <- increment</span> -<span id="L36286" class="LineNr">36286 </span> <span class="subxComment"># =></span> -<span id="L36287" class="LineNr">36287 </span> <span class="subxComment"># ff 0/subop/increment %eax # sub-optimal, but should suffice</span> -<span id="L36288" class="LineNr">36288 </span> <span class="subxComment">#</span> -<span id="L36289" class="LineNr">36289 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> -<span id="L36290" class="LineNr">36290 </span> <span class="subxComment"># name: 'foo'</span> -<span id="L36291" class="LineNr">36291 </span> <span class="subxComment"># type: int</span> -<span id="L36292" class="LineNr">36292 </span> <span class="subxComment"># register: 'eax'</span> -<span id="L36293" class="LineNr">36293 </span> <span class="subxComment">#</span> -<span id="L36294" class="LineNr">36294 </span> <span class="subxComment"># There's two primitives, as follows:</span> -<span id="L36295" class="LineNr">36295 </span> <span class="subxComment"># - name: 'increment'</span> -<span id="L36296" class="LineNr">36296 </span> <span class="subxComment"># out: int/reg</span> -<span id="L36297" class="LineNr">36297 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> -<span id="L36298" class="LineNr">36298 </span> <span class="subxComment"># - name: 'increment'</span> -<span id="L36299" class="LineNr">36299 </span> <span class="subxComment"># inout: int/mem</span> -<span id="L36300" class="LineNr">36300 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> -<span id="L36301" class="LineNr">36301 </span> <span class="subxComment">#</span> -<span id="L36302" class="LineNr">36302 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L36303" class="LineNr">36303 </span> 55/push-ebp -<span id="L36304" class="LineNr">36304 </span> 89/<- %ebp 4/r32/esp -<span id="L36305" class="LineNr">36305 </span> <span class="subxComment"># setup</span> -<span id="L36306" class="LineNr">36306 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L36307" class="LineNr">36307 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L36308" class="LineNr">36308 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-type</span>: -<span id="L36309" class="LineNr">36309 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L36310" class="LineNr">36310 </span> 68/push 0/imm32/right:null -<span id="L36311" class="LineNr">36311 </span> 68/push 0/imm32/right:null -<span id="L36312" class="LineNr">36312 </span> 68/push 0/imm32/left:unused -<span id="L36313" class="LineNr">36313 </span> 68/push 1/imm32/value:int -<span id="L36314" class="LineNr">36314 </span> 68/push 1/imm32/is-atom?:true -<span id="L36315" class="LineNr">36315 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36316" class="LineNr">36316 </span> 89/<- %ecx 4/r32/esp -<span id="L36317" class="LineNr">36317 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-var</span>: -<span id="L36318" class="LineNr">36318 </span> <span class="subxComment"># var var-foo/ecx: (payload var)</span> -<span id="L36319" class="LineNr">36319 </span> 68/push 0/imm32/register -<span id="L36320" class="LineNr">36320 </span> 68/push 0/imm32/register -<span id="L36321" class="LineNr">36321 </span> 68/push 0/imm32/no-stack-offset -<span id="L36322" class="LineNr">36322 </span> 68/push 1/imm32/block-depth -<span id="L36323" class="LineNr">36323 </span> 51/push-ecx -<span id="L36324" class="LineNr">36324 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36325" class="LineNr">36325 </span> 68/push 0/imm32/name -<span id="L36326" class="LineNr">36326 </span> 68/push 0/imm32/name -<span id="L36327" class="LineNr">36327 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36328" class="LineNr">36328 </span> 89/<- %ecx 4/r32/esp -<span id="L36329" class="LineNr">36329 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-var-name</span>: -<span id="L36330" class="LineNr">36330 </span> <span class="subxComment"># var-foo->name = "foo"</span> -<span id="L36331" class="LineNr">36331 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L36332" class="LineNr">36332 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"foo"</span> %eax) -<span id="L36333" class="LineNr">36333 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-var-register</span>: -<span id="L36334" class="LineNr">36334 </span> <span class="subxComment"># var-foo->register = "eax"</span> -<span id="L36335" class="LineNr">36335 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L36336" class="LineNr">36336 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) -<span id="L36337" class="LineNr">36337 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-stmt-var</span>: -<span id="L36338" class="LineNr">36338 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var)</span> -<span id="L36339" class="LineNr">36339 </span> 68/push 0/imm32/is-deref:false -<span id="L36340" class="LineNr">36340 </span> 68/push 0/imm32/next -<span id="L36341" class="LineNr">36341 </span> 68/push 0/imm32/next -<span id="L36342" class="LineNr">36342 </span> 51/push-ecx/var-foo -<span id="L36343" class="LineNr">36343 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36344" class="LineNr">36344 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36345" class="LineNr">36345 </span> 89/<- %ebx 4/r32/esp -<span id="L36346" class="LineNr">36346 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-stmt</span>: -<span id="L36347" class="LineNr">36347 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L36348" class="LineNr">36348 </span> 53/push-ebx/outputs -<span id="L36349" class="LineNr">36349 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36350" class="LineNr">36350 </span> 68/push 0/imm32/no-inouts -<span id="L36351" class="LineNr">36351 </span> 68/push 0/imm32/no-inouts -<span id="L36352" class="LineNr">36352 </span> 68/push 0/imm32/operation -<span id="L36353" class="LineNr">36353 </span> 68/push 0/imm32/operation -<span id="L36354" class="LineNr">36354 </span> 68/push 1/imm32 -<span id="L36355" class="LineNr">36355 </span> 89/<- %esi 4/r32/esp -<span id="L36356" class="LineNr">36356 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-stmt-operation</span>: -<span id="L36357" class="LineNr">36357 </span> <span class="subxComment"># stmt->operation = "increment"</span> -<span id="L36358" class="LineNr">36358 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L36359" class="LineNr">36359 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %eax) -<span id="L36360" class="LineNr">36360 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-formal-var</span>: -<span id="L36361" class="LineNr">36361 </span> <span class="subxComment"># var formal-var/ebx: (payload var)</span> -<span id="L36362" class="LineNr">36362 </span> 68/push 0/imm32/register -<span id="L36363" class="LineNr">36363 </span> 68/push 0/imm32/register -<span id="L36364" class="LineNr">36364 </span> 68/push 0/imm32/no-stack-offset -<span id="L36365" class="LineNr">36365 </span> 68/push 1/imm32/block-depth -<span id="L36366" class="LineNr">36366 </span> ff 6/subop/push *(ecx+0x10) <span class="subxComment"># Var-type + payload alloc id + handle alloc id</span> -<span id="L36367" class="LineNr">36367 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36368" class="LineNr">36368 </span> 68/push 0/imm32/name -<span id="L36369" class="LineNr">36369 </span> 68/push 0/imm32/name -<span id="L36370" class="LineNr">36370 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36371" class="LineNr">36371 </span> 89/<- %ebx 4/r32/esp -<span id="L36372" class="LineNr">36372 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-formal-var-name</span>: -<span id="L36373" class="LineNr">36373 </span> <span class="subxComment"># formal-var->name = "dummy"</span> -<span id="L36374" class="LineNr">36374 </span> 8d/copy-address *(ebx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L36375" class="LineNr">36375 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"dummy"</span> %eax) -<span id="L36376" class="LineNr">36376 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-formal-register</span>: -<span id="L36377" class="LineNr">36377 </span> <span class="subxComment"># formal-var->register = "*"</span> -<span id="L36378" class="LineNr">36378 </span> 8d/copy-address *(ebx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L36379" class="LineNr">36379 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"*"</span> %eax) <span class="subxComment"># Any-register</span> -<span id="L36380" class="LineNr">36380 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-var-list</span>: -<span id="L36381" class="LineNr">36381 </span> <span class="subxComment"># var formal-outputs/ebx: (payload list var)</span> -<span id="L36382" class="LineNr">36382 </span> 68/push 0/imm32/next -<span id="L36383" class="LineNr">36383 </span> 68/push 0/imm32/next -<span id="L36384" class="LineNr">36384 </span> 53/push-ebx/formal-var -<span id="L36385" class="LineNr">36385 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36386" class="LineNr">36386 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36387" class="LineNr">36387 </span> 89/<- %ebx 4/r32/esp -<span id="L36388" class="LineNr">36388 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive2</span>: -<span id="L36389" class="LineNr">36389 </span> <span class="subxComment"># var primitive2/edi: (payload primitive)</span> -<span id="L36390" class="LineNr">36390 </span> 68/push 0/imm32/next -<span id="L36391" class="LineNr">36391 </span> 68/push 0/imm32/next -<span id="L36392" class="LineNr">36392 </span> 68/push 0/imm32/no-x32 -<span id="L36393" class="LineNr">36393 </span> 68/push 0/imm32/no-xm32 -<span id="L36394" class="LineNr">36394 </span> 68/push 0/imm32/no-disp32 -<span id="L36395" class="LineNr">36395 </span> 68/push 0/imm32/no-imm8 -<span id="L36396" class="LineNr">36396 </span> 68/push 0/imm32/no-imm32 -<span id="L36397" class="LineNr">36397 </span> 68/push 0/imm32/no-r32 -<span id="L36398" class="LineNr">36398 </span> 68/push 3/imm32/rm32-is-first-output -<span id="L36399" class="LineNr">36399 </span> 68/push 0/imm32/subx-name -<span id="L36400" class="LineNr">36400 </span> 68/push 0/imm32/subx-name -<span id="L36401" class="LineNr">36401 </span> 53/push-ebx/outputs -<span id="L36402" class="LineNr">36402 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36403" class="LineNr">36403 </span> 68/push 0/imm32/no-inouts -<span id="L36404" class="LineNr">36404 </span> 68/push 0/imm32/no-inouts -<span id="L36405" class="LineNr">36405 </span> 68/push 0/imm32/name -<span id="L36406" class="LineNr">36406 </span> 68/push 0/imm32/name -<span id="L36407" class="LineNr">36407 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36408" class="LineNr">36408 </span> 89/<- %edi 4/r32/esp -<span id="L36409" class="LineNr">36409 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive2-name</span>: -<span id="L36410" class="LineNr">36410 </span> <span class="subxComment"># primitives->name = "increment"</span> -<span id="L36411" class="LineNr">36411 </span> 8d/copy-address *(edi+4) 0/r32/eax <span class="subxComment"># Primitive-name + 4</span> -<span id="L36412" class="LineNr">36412 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %eax) -<span id="L36413" class="LineNr">36413 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive2-subx-name</span>: -<span id="L36414" class="LineNr">36414 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> -<span id="L36415" class="LineNr">36415 </span> 8d/copy-address *(edi+0x1c) 0/r32/eax <span class="subxComment"># Primitive-subx-name + 4</span> -<span id="L36416" class="LineNr">36416 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ff 0/subop/increment"</span> %eax) -<span id="L36417" class="LineNr">36417 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive</span>: -<span id="L36418" class="LineNr">36418 </span> <span class="subxComment"># var primitives/ebx: (addr primitive)</span> -<span id="L36419" class="LineNr">36419 </span> 57/push-edi -<span id="L36420" class="LineNr">36420 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36421" class="LineNr">36421 </span> 68/push 0/imm32/no-x32 -<span id="L36422" class="LineNr">36422 </span> 68/push 0/imm32/no-xm32 -<span id="L36423" class="LineNr">36423 </span> 68/push 0/imm32/no-disp32 -<span id="L36424" class="LineNr">36424 </span> 68/push 0/imm32/no-imm8 -<span id="L36425" class="LineNr">36425 </span> 68/push 0/imm32/no-imm32 -<span id="L36426" class="LineNr">36426 </span> 68/push 0/imm32/no-r32 -<span id="L36427" class="LineNr">36427 </span> 68/push 1/imm32/rm32-is-first-inout -<span id="L36428" class="LineNr">36428 </span> 68/push 0/imm32/subx-name -<span id="L36429" class="LineNr">36429 </span> 68/push 0/imm32/subx-name -<span id="L36430" class="LineNr">36430 </span> 68/push 0/imm32/no-outputs -<span id="L36431" class="LineNr">36431 </span> 68/push 0/imm32/no-outputs -<span id="L36432" class="LineNr">36432 </span> 53/push-ebx/inouts <span class="subxComment"># hack: reuse stmt-var from call stmt as (list var) in function declaration</span> -<span id="L36433" class="LineNr">36433 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36434" class="LineNr">36434 </span> 68/push 0/imm32/name -<span id="L36435" class="LineNr">36435 </span> 68/push 0/imm32/name -<span id="L36436" class="LineNr">36436 </span> 89/<- %ebx 4/r32/esp -<span id="L36437" class="LineNr">36437 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive-name</span>: -<span id="L36438" class="LineNr">36438 </span> <span class="subxComment"># primitives->name = "increment"</span> -<span id="L36439" class="LineNr">36439 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %ebx) <span class="subxComment"># Primitive-name</span> -<span id="L36440" class="LineNr">36440 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive-subx-name</span>: -<span id="L36441" class="LineNr">36441 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> -<span id="L36442" class="LineNr">36442 </span> 8d/copy-address *(ebx+0x18) 0/r32/eax <span class="subxComment"># Primitive-subx-name</span> -<span id="L36443" class="LineNr">36443 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ff 0/subop/increment"</span> %eax) -<span id="L36444" class="LineNr">36444 </span> <span class="subxComment"># convert</span> -<span id="L36445" class="LineNr">36445 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span> 0/imm32 -<span id="L36446" class="LineNr">36446 </span> (<a href='mu.subx.html#L28630'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi %ebx 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L36447" class="LineNr">36447 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L36448" class="Folded">36448 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L36454" class="LineNr">36454 </span> <span class="subxComment"># check output</span> -<span id="L36455" class="LineNr">36455 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"ff 0/subop/increment %eax"</span> <span class="Constant">"F - test-emit-subx-stmt-select-primitive"</span>) -<span id="L36456" class="LineNr">36456 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L36457" class="LineNr">36457 </span> 89/<- %esp 5/r32/ebp -<span id="L36458" class="LineNr">36458 </span> 5d/pop-to-ebp -<span id="L36459" class="LineNr">36459 </span> c3/return -<span id="L36460" class="LineNr">36460 </span> -<span id="L36461" class="LineNr">36461 </span><span class="subxTest">test-emit-subx-stmt-select-primitive-2</span>: -<span id="L36462" class="LineNr">36462 </span> <span class="subxComment"># Select the right primitive between overloads.</span> -<span id="L36463" class="LineNr">36463 </span> <span class="subxComment"># increment foo</span> -<span id="L36464" class="LineNr">36464 </span> <span class="subxComment"># =></span> -<span id="L36465" class="LineNr">36465 </span> <span class="subxComment"># ff 0/subop/increment %eax # sub-optimal, but should suffice</span> -<span id="L36466" class="LineNr">36466 </span> <span class="subxComment">#</span> -<span id="L36467" class="LineNr">36467 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> -<span id="L36468" class="LineNr">36468 </span> <span class="subxComment"># name: 'foo'</span> -<span id="L36469" class="LineNr">36469 </span> <span class="subxComment"># type: int</span> -<span id="L36470" class="LineNr">36470 </span> <span class="subxComment"># register: 'eax'</span> +<span id="L35481" class="LineNr">35481 </span> <span class="subxComment"># if (l == 0) return</span> +<span id="L35482" class="LineNr">35482 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 +<span id="L35483" class="LineNr">35483 </span> 0f 84/jump-if-= $emit-subx-imm32:end/disp32 +<span id="L35484" class="LineNr">35484 </span> <span class="subxComment"># var v/eax: (handle var)</span> +<span id="L35485" class="LineNr">35485 </span> (<a href='mu.subx.html#L35332'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L35486" class="LineNr">35486 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L35487" class="LineNr">35487 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L35488" class="LineNr">35488 </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="L35489" class="LineNr">35489 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L35490" class="LineNr">35490 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm8"</span>) +<span id="L35491" class="LineNr">35491 </span><span class="Constant">$emit-subx-imm8:end</span>: +<span id="L35492" class="LineNr">35492 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L35493" class="LineNr">35493 </span> 59/pop-to-ecx +<span id="L35494" class="LineNr">35494 </span> 58/pop-to-eax +<span id="L35495" class="LineNr">35495 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35496" class="LineNr">35496 </span> 89/<- %esp 5/r32/ebp +<span id="L35497" class="LineNr">35497 </span> 5d/pop-to-ebp +<span id="L35498" class="LineNr">35498 </span> c3/return +<span id="L35499" class="LineNr">35499 </span> +<span id="L35500" class="LineNr">35500 </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="L35501" class="LineNr">35501 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35502" class="LineNr">35502 </span> 55/push-ebp +<span id="L35503" class="LineNr">35503 </span> 89/<- %ebp 4/r32/esp +<span id="L35504" class="LineNr">35504 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L35505" class="LineNr">35505 </span> 50/push-eax +<span id="L35506" class="LineNr">35506 </span> 51/push-ecx +<span id="L35507" class="LineNr">35507 </span> <span class="subxComment"># if (location == 0) return</span> +<span id="L35508" class="LineNr">35508 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 +<span id="L35509" class="LineNr">35509 </span> 0f 84/jump-if-= $emit-subx-disp32:end/disp32 +<span id="L35510" class="LineNr">35510 </span> <span class="subxComment"># var v/eax: (addr stmt-var)</span> +<span id="L35511" class="LineNr">35511 </span> (<a href='mu.subx.html#L35332'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> +<span id="L35512" class="LineNr">35512 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L35513" class="LineNr">35513 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L35514" class="LineNr">35514 </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="L35515" class="LineNr">35515 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L35516" class="LineNr">35516 </span> <span class="subxComment"># hack: if instruction operation starts with "break", emit ":break"</span> +<span id="L35517" class="LineNr">35517 </span> <span class="subxComment"># var name/ecx: (addr array byte) = lookup(stmt->operation)</span> +<span id="L35518" class="LineNr">35518 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L35519" class="LineNr">35519 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L35520" class="LineNr">35520 </span> 89/<- %ecx 0/r32/eax +<span id="L35521" class="LineNr">35521 </span> { +<span id="L35522" class="LineNr">35522 </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="L35523" class="LineNr">35523 </span> 3d/compare-eax-and 0/imm32/false +<span id="L35524" class="LineNr">35524 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L35525" class="LineNr">35525 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":break"</span>) +<span id="L35526" class="LineNr">35526 </span> } +<span id="L35527" class="LineNr">35527 </span> <span class="subxComment"># hack: if instruction operation starts with "loop", emit ":loop"</span> +<span id="L35528" class="LineNr">35528 </span> { +<span id="L35529" class="LineNr">35529 </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="L35530" class="LineNr">35530 </span> 3d/compare-eax-and 0/imm32/false +<span id="L35531" class="LineNr">35531 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L35532" class="LineNr">35532 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":loop"</span>) +<span id="L35533" class="LineNr">35533 </span> } +<span id="L35534" class="LineNr">35534 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/disp32"</span>) +<span id="L35535" class="LineNr">35535 </span><span class="Constant">$emit-subx-disp32:end</span>: +<span id="L35536" class="LineNr">35536 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L35537" class="LineNr">35537 </span> 59/pop-to-ecx +<span id="L35538" class="LineNr">35538 </span> 58/pop-to-eax +<span id="L35539" class="LineNr">35539 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35540" class="LineNr">35540 </span> 89/<- %esp 5/r32/ebp +<span id="L35541" class="LineNr">35541 </span> 5d/pop-to-ebp +<span id="L35542" class="LineNr">35542 </span> c3/return +<span id="L35543" class="LineNr">35543 </span> +<span id="L35544" class="LineNr">35544 </span><span class="subxFunction">emit-call</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt)</span> +<span id="L35545" class="LineNr">35545 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35546" class="LineNr">35546 </span> 55/push-ebp +<span id="L35547" class="LineNr">35547 </span> 89/<- %ebp 4/r32/esp +<span id="L35548" class="LineNr">35548 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L35549" class="LineNr">35549 </span> 50/push-eax +<span id="L35550" class="LineNr">35550 </span> 51/push-ecx +<span id="L35551" class="LineNr">35551 </span> <span class="subxComment">#</span> +<span id="L35552" class="LineNr">35552 </span> (<a href='mu.subx.html#L38778'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span>) +<span id="L35553" class="LineNr">35553 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"("</span>) +<span id="L35554" class="LineNr">35554 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L35555" class="LineNr">35555 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L35556" class="LineNr">35556 </span> <span class="subxH1Comment"># - emit function name</span> +<span id="L35557" class="LineNr">35557 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L35558" class="LineNr">35558 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L35559" class="LineNr">35559 </span> <span class="subxH1Comment"># - emit arguments</span> +<span id="L35560" class="LineNr">35560 </span> <span class="subxComment"># var curr/eax: (addr stmt-var) = lookup(stmt->inouts)</span> +<span id="L35561" class="LineNr">35561 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L35562" class="LineNr">35562 </span> { +<span id="L35563" class="LineNr">35563 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L35564" class="LineNr">35564 </span> 3d/compare-eax-and 0/imm32 +<span id="L35565" class="LineNr">35565 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L35566" class="LineNr">35566 </span> <span class="subxComment">#</span> +<span id="L35567" class="LineNr">35567 </span> (<a href='mu.subx.html#L35583'>emit-subx-call-operand</a> *(ebp+8) %eax) +<span id="L35568" class="LineNr">35568 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L35569" class="LineNr">35569 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L35570" class="LineNr">35570 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L35571" class="LineNr">35571 </span> } +<span id="L35572" class="LineNr">35572 </span> <span class="subxComment">#</span> +<span id="L35573" class="LineNr">35573 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L35574" class="LineNr">35574 </span><span class="Constant">$emit-call:end</span>: +<span id="L35575" class="LineNr">35575 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L35576" class="LineNr">35576 </span> 59/pop-to-ecx +<span id="L35577" class="LineNr">35577 </span> 58/pop-to-eax +<span id="L35578" class="LineNr">35578 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35579" class="LineNr">35579 </span> 89/<- %esp 5/r32/ebp +<span id="L35580" class="LineNr">35580 </span> 5d/pop-to-ebp +<span id="L35581" class="LineNr">35581 </span> c3/return +<span id="L35582" class="LineNr">35582 </span> +<span id="L35583" class="LineNr">35583 </span><span class="subxFunction">emit-subx-call-operand</span>: <span class="subxComment"># out: (addr buffered-file), s: (addr stmt-var)</span> +<span id="L35584" class="LineNr">35584 </span> <span class="subxComment"># shares code with emit-subx-var-as-rm32</span> +<span id="L35585" class="LineNr">35585 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35586" class="LineNr">35586 </span> 55/push-ebp +<span id="L35587" class="LineNr">35587 </span> 89/<- %ebp 4/r32/esp +<span id="L35588" class="LineNr">35588 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L35589" class="LineNr">35589 </span> 50/push-eax +<span id="L35590" class="LineNr">35590 </span> 51/push-ecx +<span id="L35591" class="LineNr">35591 </span> 56/push-esi +<span id="L35592" class="LineNr">35592 </span> <span class="subxComment"># ecx = s</span> +<span id="L35593" class="LineNr">35593 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L35594" class="LineNr">35594 </span> <span class="subxComment"># var operand/esi: (addr var) = lookup(s->value)</span> +<span id="L35595" class="LineNr">35595 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L35596" class="LineNr">35596 </span> 89/<- %esi 0/r32/eax +<span id="L35597" class="LineNr">35597 </span> <span class="subxComment"># if (operand->register && !s->is-deref?) emit "%__"</span> +<span id="L35598" class="LineNr">35598 </span> { +<span id="L35599" class="LineNr">35599 </span><span class="Constant">$emit-subx-call-operand:check-for-register-direct</span>: +<span id="L35600" class="LineNr">35600 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L35601" class="LineNr">35601 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L35602" class="LineNr">35602 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L35603" class="LineNr">35603 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L35604" class="LineNr">35604 </span><span class="Constant">$emit-subx-call-operand:register-direct</span>: +<span id="L35605" class="LineNr">35605 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" %"</span>) +<span id="L35606" class="LineNr">35606 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L35607" class="LineNr">35607 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L35608" class="LineNr">35608 </span> e9/jump $emit-subx-call-operand:end/disp32 +<span id="L35609" class="LineNr">35609 </span> } +<span id="L35610" class="LineNr">35610 </span> <span class="subxComment"># else if (operand->register && s->is-deref?) emit "*__"</span> +<span id="L35611" class="LineNr">35611 </span> { +<span id="L35612" class="LineNr">35612 </span><span class="Constant">$emit-subx-call-operand:check-for-register-indirect</span>: +<span id="L35613" class="LineNr">35613 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L35614" class="LineNr">35614 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L35615" class="LineNr">35615 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L35616" class="LineNr">35616 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L35617" class="LineNr">35617 </span><span class="Constant">$emit-subx-call-operand:register-indirect</span>: +<span id="L35618" class="LineNr">35618 </span> (<a href='mu.subx.html#L35660'>emit-subx-call-operand-register-indirect</a> *(ebp+8) %esi) +<span id="L35619" class="LineNr">35619 </span> e9/jump $emit-subx-call-operand:end/disp32 +<span id="L35620" class="LineNr">35620 </span> } +<span id="L35621" class="LineNr">35621 </span> <span class="subxComment"># else if (operand->stack-offset) emit "*(ebp+__)"</span> +<span id="L35622" class="LineNr">35622 </span> { +<span id="L35623" class="LineNr">35623 </span> 81 7/subop/compare *(esi+0x14) 0/imm32 <span class="subxComment"># Var-offset</span> +<span id="L35624" class="LineNr">35624 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L35625" class="LineNr">35625 </span><span class="Constant">$emit-subx-call-operand:stack</span>: +<span id="L35626" class="LineNr">35626 </span> (<a href='mu.subx.html#L35705'>emit-subx-call-operand-stack</a> *(ebp+8) %esi) +<span id="L35627" class="LineNr">35627 </span> e9/jump $emit-subx-call-operand:end/disp32 +<span id="L35628" class="LineNr">35628 </span> } +<span id="L35629" class="LineNr">35629 </span> <span class="subxComment"># else if (operand->type == literal) emit "__"</span> +<span id="L35630" class="LineNr">35630 </span> { +<span id="L35631" class="LineNr">35631 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L35632" class="LineNr">35632 </span> 81 7/subop/compare *(eax+4) 0/imm32 <span class="subxComment"># Type-tree-value</span> +<span id="L35633" class="LineNr">35633 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L35634" class="LineNr">35634 </span><span class="Constant">$emit-subx-call-operand:literal</span>: +<span id="L35635" class="LineNr">35635 </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="L35636" class="LineNr">35636 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L35637" class="LineNr">35637 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L35638" class="LineNr">35638 </span> e9/jump $emit-subx-call-operand:end/disp32 +<span id="L35639" class="LineNr">35639 </span> } +<span id="L35640" class="LineNr">35640 </span> <span class="subxComment"># else if (operand->type == literal-string) emit "__"</span> +<span id="L35641" class="LineNr">35641 </span> { +<span id="L35642" class="LineNr">35642 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L35643" class="LineNr">35643 </span> 81 7/subop/compare *(eax+4) 0x10/imm32 <span class="subxComment"># Type-tree-value</span> +<span id="L35644" class="LineNr">35644 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L35645" class="LineNr">35645 </span><span class="Constant">$emit-subx-call-operand:literal-string</span>: +<span id="L35646" class="LineNr">35646 </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="L35647" class="LineNr">35647 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L35648" class="LineNr">35648 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L35649" class="LineNr">35649 </span> } +<span id="L35650" class="LineNr">35650 </span><span class="Constant">$emit-subx-call-operand:end</span>: +<span id="L35651" class="LineNr">35651 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L35652" class="LineNr">35652 </span> 5e/pop-to-esi +<span id="L35653" class="LineNr">35653 </span> 59/pop-to-ecx +<span id="L35654" class="LineNr">35654 </span> 58/pop-to-eax +<span id="L35655" class="LineNr">35655 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35656" class="LineNr">35656 </span> 89/<- %esp 5/r32/ebp +<span id="L35657" class="LineNr">35657 </span> 5d/pop-to-ebp +<span id="L35658" class="LineNr">35658 </span> c3/return +<span id="L35659" class="LineNr">35659 </span> +<span id="L35660" class="LineNr">35660 </span><span class="subxFunction">emit-subx-call-operand-register-indirect</span>: <span class="subxComment"># out: (addr buffered-file), v: (addr var)</span> +<span id="L35661" class="LineNr">35661 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35662" class="LineNr">35662 </span> 55/push-ebp +<span id="L35663" class="LineNr">35663 </span> 89/<- %ebp 4/r32/esp +<span id="L35664" class="LineNr">35664 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L35665" class="LineNr">35665 </span> 50/push-eax +<span id="L35666" class="LineNr">35666 </span> 51/push-ecx +<span id="L35667" class="LineNr">35667 </span> 56/push-esi +<span id="L35668" class="LineNr">35668 </span> <span class="subxComment"># esi = v</span> +<span id="L35669" class="LineNr">35669 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L35670" class="LineNr">35670 </span> <span class="subxComment"># var size/ecx: int = size-of-deref(v)</span> +<span id="L35671" class="LineNr">35671 </span> (<a href='mu.subx.html#L26625'>size-of-deref</a> %esi) <span class="subxComment"># => eax</span> +<span id="L35672" class="LineNr">35672 </span> 89/<- %ecx 0/r32/eax +<span id="L35673" class="LineNr">35673 </span> <span class="subxComment"># var reg-name/esi: (addr array byte) = lookup(v->register)</span> +<span id="L35674" class="LineNr">35674 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L35675" class="LineNr">35675 </span> 89/<- %esi 0/r32/eax +<span id="L35676" class="LineNr">35676 </span> <span class="subxComment"># TODO: assert size is a multiple of 4</span> +<span id="L35677" class="LineNr">35677 </span> <span class="subxComment"># var i/eax: int = 0</span> +<span id="L35678" class="LineNr">35678 </span> b8/copy-to-eax 0/imm32 +<span id="L35679" class="LineNr">35679 </span> { +<span id="L35680" class="LineNr">35680 </span><span class="Constant">$emit-subx-call-operand-register-indirect:loop</span>: +<span id="L35681" class="LineNr">35681 </span> <span class="subxComment"># if (i >= size) break</span> +<span id="L35682" class="LineNr">35682 </span> 39/compare %eax 1/r32/ecx +<span id="L35683" class="LineNr">35683 </span> 7d/jump-if->= <span class="Constant">break</span>/disp8 +<span id="L35684" class="LineNr">35684 </span> <span class="subxComment"># emit " *(" v->register "+" i ")"</span> +<span id="L35685" class="LineNr">35685 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *("</span>) +<span id="L35686" class="LineNr">35686 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %esi) +<span id="L35687" class="LineNr">35687 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"+"</span>) +<span id="L35688" class="LineNr">35688 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L35689" class="LineNr">35689 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) +<span id="L35690" class="LineNr">35690 </span> <span class="subxComment"># i += 4</span> +<span id="L35691" class="LineNr">35691 </span> 05/add-to-eax 4/imm32 +<span id="L35692" class="LineNr">35692 </span> <span class="subxComment">#</span> +<span id="L35693" class="LineNr">35693 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L35694" class="LineNr">35694 </span> } +<span id="L35695" class="LineNr">35695 </span><span class="Constant">$emit-subx-call-operand-register-indirect:end</span>: +<span id="L35696" class="LineNr">35696 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L35697" class="LineNr">35697 </span> 5e/pop-to-esi +<span id="L35698" class="LineNr">35698 </span> 59/pop-to-ecx +<span id="L35699" class="LineNr">35699 </span> 58/pop-to-eax +<span id="L35700" class="LineNr">35700 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35701" class="LineNr">35701 </span> 89/<- %esp 5/r32/ebp +<span id="L35702" class="LineNr">35702 </span> 5d/pop-to-ebp +<span id="L35703" class="LineNr">35703 </span> c3/return +<span id="L35704" class="LineNr">35704 </span> +<span id="L35705" class="LineNr">35705 </span><span class="subxFunction">emit-subx-call-operand-stack</span>: <span class="subxComment"># out: (addr buffered-file), v: (addr var)</span> +<span id="L35706" class="LineNr">35706 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35707" class="LineNr">35707 </span> 55/push-ebp +<span id="L35708" class="LineNr">35708 </span> 89/<- %ebp 4/r32/esp +<span id="L35709" class="LineNr">35709 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L35710" class="LineNr">35710 </span> 50/push-eax +<span id="L35711" class="LineNr">35711 </span> 51/push-ecx +<span id="L35712" class="LineNr">35712 </span> 56/push-esi +<span id="L35713" class="LineNr">35713 </span> <span class="subxComment"># esi = v</span> +<span id="L35714" class="LineNr">35714 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L35715" class="LineNr">35715 </span> <span class="subxComment"># var curr/ecx: int = v->offset</span> +<span id="L35716" class="LineNr">35716 </span> 8b/-> *(esi+0x14) 1/r32/ecx <span class="subxComment"># Var-offset</span> +<span id="L35717" class="LineNr">35717 </span> <span class="subxComment"># var max/eax: int = v->offset + size-of(v)</span> +<span id="L35718" class="LineNr">35718 </span> (<a href='mu.subx.html#L26575'>size-of</a> %esi) <span class="subxComment"># => eax</span> +<span id="L35719" class="LineNr">35719 </span> <span class="subxComment"># TODO: assert size is a multiple of 4</span> +<span id="L35720" class="LineNr">35720 </span> 01/add-to %eax 1/r32/ecx +<span id="L35721" class="LineNr">35721 </span> { +<span id="L35722" class="LineNr">35722 </span><span class="Constant">$emit-subx-call-operand-stack:loop</span>: +<span id="L35723" class="LineNr">35723 </span> <span class="subxComment"># if (curr >= max) break</span> +<span id="L35724" class="LineNr">35724 </span> 39/compare %ecx 0/r32/eax +<span id="L35725" class="LineNr">35725 </span> 7d/jump-if->= <span class="Constant">break</span>/disp8 +<span id="L35726" class="LineNr">35726 </span> <span class="subxComment"># emit " *(ebp+" curr ")"</span> +<span id="L35727" class="LineNr">35727 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *(ebp+"</span>) +<span id="L35728" class="LineNr">35728 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %ecx) +<span id="L35729" class="LineNr">35729 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) +<span id="L35730" class="LineNr">35730 </span> <span class="subxComment"># i += 4</span> +<span id="L35731" class="LineNr">35731 </span> 81 0/subop/add %ecx 4/imm32 +<span id="L35732" class="LineNr">35732 </span> <span class="subxComment">#</span> +<span id="L35733" class="LineNr">35733 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L35734" class="LineNr">35734 </span> } +<span id="L35735" class="LineNr">35735 </span><span class="Constant">$emit-subx-call-operand-stack:end</span>: +<span id="L35736" class="LineNr">35736 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L35737" class="LineNr">35737 </span> 5e/pop-to-esi +<span id="L35738" class="LineNr">35738 </span> 59/pop-to-ecx +<span id="L35739" class="LineNr">35739 </span> 58/pop-to-eax +<span id="L35740" class="LineNr">35740 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35741" class="LineNr">35741 </span> 89/<- %esp 5/r32/ebp +<span id="L35742" class="LineNr">35742 </span> 5d/pop-to-ebp +<span id="L35743" class="LineNr">35743 </span> c3/return +<span id="L35744" class="LineNr">35744 </span> +<span id="L35745" class="LineNr">35745 </span><span class="subxFunction">emit-subx-var-as-rm32</span>: <span class="subxComment"># out: (addr buffered-file), s: (addr stmt-var)</span> +<span id="L35746" class="LineNr">35746 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35747" class="LineNr">35747 </span> 55/push-ebp +<span id="L35748" class="LineNr">35748 </span> 89/<- %ebp 4/r32/esp +<span id="L35749" class="LineNr">35749 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L35750" class="LineNr">35750 </span> 50/push-eax +<span id="L35751" class="LineNr">35751 </span> 51/push-ecx +<span id="L35752" class="LineNr">35752 </span> 56/push-esi +<span id="L35753" class="LineNr">35753 </span> <span class="subxComment"># ecx = s</span> +<span id="L35754" class="LineNr">35754 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L35755" class="LineNr">35755 </span> <span class="subxComment"># var operand/esi: (addr var) = lookup(s->value)</span> +<span id="L35756" class="LineNr">35756 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L35757" class="LineNr">35757 </span> 89/<- %esi 0/r32/eax +<span id="L35758" class="LineNr">35758 </span> <span class="subxComment"># if (operand->register && s->is-deref?) emit "*__"</span> +<span id="L35759" class="LineNr">35759 </span> { +<span id="L35760" class="LineNr">35760 </span><span class="Constant">$emit-subx-var-as-rm32:check-for-register-indirect</span>: +<span id="L35761" class="LineNr">35761 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L35762" class="LineNr">35762 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L35763" class="LineNr">35763 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L35764" class="LineNr">35764 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L35765" class="LineNr">35765 </span><span class="Constant">$emit-subx-var-as-rm32:register-indirect</span>: +<span id="L35766" class="LineNr">35766 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *"</span>) +<span id="L35767" class="LineNr">35767 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L35768" class="LineNr">35768 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L35769" class="LineNr">35769 </span> e9/jump $emit-subx-var-as-rm32:end/disp32 +<span id="L35770" class="LineNr">35770 </span> } +<span id="L35771" class="LineNr">35771 </span> <span class="subxComment"># if (operand->register && !s->is-deref?) emit "%__"</span> +<span id="L35772" class="LineNr">35772 </span> { +<span id="L35773" class="LineNr">35773 </span><span class="Constant">$emit-subx-var-as-rm32:check-for-register-direct</span>: +<span id="L35774" class="LineNr">35774 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L35775" class="LineNr">35775 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L35776" class="LineNr">35776 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L35777" class="LineNr">35777 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L35778" class="LineNr">35778 </span><span class="Constant">$emit-subx-var-as-rm32:register-direct</span>: +<span id="L35779" class="LineNr">35779 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" %"</span>) +<span id="L35780" class="LineNr">35780 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L35781" class="LineNr">35781 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L35782" class="LineNr">35782 </span> e9/jump $emit-subx-var-as-rm32:end/disp32 +<span id="L35783" class="LineNr">35783 </span> } +<span id="L35784" class="LineNr">35784 </span> <span class="subxComment"># else if (operand->stack-offset) emit "*(ebp+__)"</span> +<span id="L35785" class="LineNr">35785 </span> { +<span id="L35786" class="LineNr">35786 </span> 81 7/subop/compare *(esi+0x14) 0/imm32 <span class="subxComment"># Var-offset</span> +<span id="L35787" class="LineNr">35787 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L35788" class="LineNr">35788 </span><span class="Constant">$emit-subx-var-as-rm32:stack</span>: +<span id="L35789" class="LineNr">35789 </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="L35790" class="LineNr">35790 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"*(ebp+"</span>) +<span id="L35791" class="LineNr">35791 </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="L35792" class="LineNr">35792 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) +<span id="L35793" class="LineNr">35793 </span> } +<span id="L35794" class="LineNr">35794 </span><span class="Constant">$emit-subx-var-as-rm32:end</span>: +<span id="L35795" class="LineNr">35795 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L35796" class="LineNr">35796 </span> 5e/pop-to-esi +<span id="L35797" class="LineNr">35797 </span> 59/pop-to-ecx +<span id="L35798" class="LineNr">35798 </span> 58/pop-to-eax +<span id="L35799" class="LineNr">35799 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35800" class="LineNr">35800 </span> 89/<- %esp 5/r32/ebp +<span id="L35801" class="LineNr">35801 </span> 5d/pop-to-ebp +<span id="L35802" class="LineNr">35802 </span> c3/return +<span id="L35803" class="LineNr">35803 </span> +<span id="L35804" class="LineNr">35804 </span><span class="subxFunction">find-matching-primitive</span>: <span class="subxComment"># primitives: (addr primitive), stmt: (addr stmt) -> result/eax: (addr primitive)</span> +<span id="L35805" class="LineNr">35805 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35806" class="LineNr">35806 </span> 55/push-ebp +<span id="L35807" class="LineNr">35807 </span> 89/<- %ebp 4/r32/esp +<span id="L35808" class="LineNr">35808 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L35809" class="LineNr">35809 </span> 51/push-ecx +<span id="L35810" class="LineNr">35810 </span> <span class="subxComment"># var curr/ecx: (addr primitive) = primitives</span> +<span id="L35811" class="LineNr">35811 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L35812" class="LineNr">35812 </span> { +<span id="L35813" class="LineNr">35813 </span><span class="Constant">$find-matching-primitive:loop</span>: +<span id="L35814" class="LineNr">35814 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L35815" class="LineNr">35815 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L35816" class="LineNr">35816 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L35817" class="LineNr">35817 </span> <span class="subxComment"># if match(curr, stmt) return curr</span> +<span id="L35818" class="LineNr">35818 </span> { +<span id="L35819" class="LineNr">35819 </span> (<a href='mu.subx.html#L35842'>mu-stmt-matches-primitive?</a> *(ebp+0xc) %ecx) <span class="subxComment"># => eax</span> +<span id="L35820" class="LineNr">35820 </span> 3d/compare-eax-and 0/imm32/false +<span id="L35821" class="LineNr">35821 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L35822" class="LineNr">35822 </span> 89/<- %eax 1/r32/ecx +<span id="L35823" class="LineNr">35823 </span> eb/jump $find-matching-primitive:end/disp8 +<span id="L35824" class="LineNr">35824 </span> } +<span id="L35825" class="LineNr">35825 </span><span class="Constant">$find-matching-primitive:next-primitive</span>: +<span id="L35826" class="LineNr">35826 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L35827" class="LineNr">35827 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x3c) *(ecx+0x40)) <span class="subxComment"># Primitive-next Primitive-next => eax</span> +<span id="L35828" class="LineNr">35828 </span> 89/<- %ecx 0/r32/eax +<span id="L35829" class="LineNr">35829 </span> <span class="subxComment">#</span> +<span id="L35830" class="LineNr">35830 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L35831" class="LineNr">35831 </span> } +<span id="L35832" class="LineNr">35832 </span> <span class="subxComment"># return null</span> +<span id="L35833" class="LineNr">35833 </span> b8/copy-to-eax 0/imm32 +<span id="L35834" class="LineNr">35834 </span><span class="Constant">$find-matching-primitive:end</span>: +<span id="L35835" class="LineNr">35835 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L35836" class="LineNr">35836 </span> 59/pop-to-ecx +<span id="L35837" class="LineNr">35837 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35838" class="LineNr">35838 </span> 89/<- %esp 5/r32/ebp +<span id="L35839" class="LineNr">35839 </span> 5d/pop-to-ebp +<span id="L35840" class="LineNr">35840 </span> c3/return +<span id="L35841" class="LineNr">35841 </span> +<span id="L35842" class="LineNr">35842 </span><span class="subxFunction">mu-stmt-matches-primitive?</span>: <span class="subxComment"># stmt: (addr stmt), primitive: (addr primitive) -> result/eax: boolean</span> +<span id="L35843" class="LineNr">35843 </span> <span class="subxComment"># A mu stmt matches a primitive if the name matches, all the inout vars</span> +<span id="L35844" class="LineNr">35844 </span> <span class="subxComment"># match, and all the output vars match.</span> +<span id="L35845" class="LineNr">35845 </span> <span class="subxComment"># Vars match if types match and registers match.</span> +<span id="L35846" class="LineNr">35846 </span> <span class="subxComment"># In addition, a stmt output matches a primitive's output if types match</span> +<span id="L35847" class="LineNr">35847 </span> <span class="subxComment"># and the primitive has a wildcard register.</span> +<span id="L35848" class="LineNr">35848 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35849" class="LineNr">35849 </span> 55/push-ebp +<span id="L35850" class="LineNr">35850 </span> 89/<- %ebp 4/r32/esp +<span id="L35851" class="LineNr">35851 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L35852" class="LineNr">35852 </span> 51/push-ecx +<span id="L35853" class="LineNr">35853 </span> 52/push-edx +<span id="L35854" class="LineNr">35854 </span> 53/push-ebx +<span id="L35855" class="LineNr">35855 </span> 56/push-esi +<span id="L35856" class="LineNr">35856 </span> 57/push-edi +<span id="L35857" class="LineNr">35857 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L35858" class="LineNr">35858 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L35859" class="LineNr">35859 </span> <span class="subxComment"># edx = primitive</span> +<span id="L35860" class="LineNr">35860 </span> 8b/-> *(ebp+0xc) 2/r32/edx +<span id="L35861" class="LineNr">35861 </span> { +<span id="L35862" class="LineNr">35862 </span><span class="Constant">$mu-stmt-matches-primitive?:check-name</span>: +<span id="L35863" class="LineNr">35863 </span> <span class="subxComment"># if (primitive->name != stmt->operation) return false</span> +<span id="L35864" class="LineNr">35864 </span> <span class="subxS1Comment"># . var esi: (addr array byte) = lookup(stmt->operation)</span> +<span id="L35865" class="LineNr">35865 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L35866" class="LineNr">35866 </span> 89/<- %esi 0/r32/eax +<span id="L35867" class="LineNr">35867 </span> <span class="subxS1Comment"># . var edi: (addr array byte) = lookup(primitive->name)</span> +<span id="L35868" class="LineNr">35868 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Primitive-name Primitive-name => eax</span> +<span id="L35869" class="LineNr">35869 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L35870" class="LineNr">35870 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L35871" class="LineNr">35871 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L35872" class="LineNr">35872 </span> 89/<- %edi 0/r32/eax +<span id="L35873" class="LineNr">35873 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi %edi) <span class="subxComment"># => eax</span> +<span id="L35874" class="LineNr">35874 </span> 3d/compare-eax-and 0/imm32/false +<span id="L35875" class="LineNr">35875 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L35876" class="LineNr">35876 </span> b8/copy-to-eax 0/imm32 +<span id="L35877" class="LineNr">35877 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 +<span id="L35878" class="LineNr">35878 </span> } +<span id="L35879" class="LineNr">35879 </span> <span class="subxComment"># var curr/esi: (addr stmt-var) = lookup(stmt->inouts)</span> +<span id="L35880" class="LineNr">35880 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L35881" class="LineNr">35881 </span> 89/<- %esi 0/r32/eax +<span id="L35882" class="LineNr">35882 </span> <span class="subxComment"># var curr2/edi: (addr list var) = lookup(primitive->inouts)</span> +<span id="L35883" class="LineNr">35883 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Primitive-inouts Primitive-inouts => eax</span> +<span id="L35884" class="LineNr">35884 </span> 89/<- %edi 0/r32/eax +<span id="L35885" class="LineNr">35885 </span> { +<span id="L35886" class="LineNr">35886 </span><span class="Constant">$mu-stmt-matches-primitive?:inouts-loop</span>: +<span id="L35887" class="LineNr">35887 </span> <span class="subxComment"># if (curr == 0 && curr2 == 0) move on to check outputs</span> +<span id="L35888" class="LineNr">35888 </span> { +<span id="L35889" class="LineNr">35889 </span><span class="Constant">$mu-stmt-matches-primitive?:check-both-inouts-null</span>: +<span id="L35890" class="LineNr">35890 </span> 81 7/subop/compare %esi 0/imm32 +<span id="L35891" class="LineNr">35891 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L35892" class="LineNr">35892 </span><span class="Constant">$mu-stmt-matches-primitive?:stmt-inout-null</span>: +<span id="L35893" class="LineNr">35893 </span> 81 7/subop/compare %edi 0/imm32 +<span id="L35894" class="LineNr">35894 </span> 0f 84/jump-if-= $mu-stmt-matches-primitive?:check-outputs/disp32 +<span id="L35895" class="LineNr">35895 </span><span class="Constant">$mu-stmt-matches-primitive?:stmt-inout-null-and-prim-inout-not-null</span>: +<span id="L35896" class="LineNr">35896 </span> <span class="subxComment"># return false</span> +<span id="L35897" class="LineNr">35897 </span> b8/copy-to-eax 0/imm32/false +<span id="L35898" class="LineNr">35898 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 +<span id="L35899" class="LineNr">35899 </span> } +<span id="L35900" class="LineNr">35900 </span> <span class="subxComment"># if (curr2 == 0) return false</span> +<span id="L35901" class="LineNr">35901 </span> { +<span id="L35902" class="LineNr">35902 </span><span class="Constant">$mu-stmt-matches-primitive?:check-prim-inout-null</span>: +<span id="L35903" class="LineNr">35903 </span> 81 7/subop/compare %edi 0/imm32 +<span id="L35904" class="LineNr">35904 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L35905" class="LineNr">35905 </span><span class="Constant">$mu-stmt-matches-primitive?:prim-inout-null</span>: +<span id="L35906" class="LineNr">35906 </span> b8/copy-to-eax 0/imm32/false +<span id="L35907" class="LineNr">35907 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 +<span id="L35908" class="LineNr">35908 </span> } +<span id="L35909" class="LineNr">35909 </span> <span class="subxComment"># if (curr != curr2) return false</span> +<span id="L35910" class="LineNr">35910 </span> { +<span id="L35911" class="LineNr">35911 </span><span class="Constant">$mu-stmt-matches-primitive?:check-inouts-match</span>: +<span id="L35912" class="LineNr">35912 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L35913" class="LineNr">35913 </span> (<a href='mu.subx.html#L36002'>operand-matches-primitive?</a> %esi %eax) <span class="subxComment"># => eax</span> +<span id="L35914" class="LineNr">35914 </span> 3d/compare-eax-and 0/imm32/false +<span id="L35915" class="LineNr">35915 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L35916" class="LineNr">35916 </span><span class="Constant">$mu-stmt-matches-primitive?:inouts-match</span>: +<span id="L35917" class="LineNr">35917 </span> b8/copy-to-eax 0/imm32/false +<span id="L35918" class="LineNr">35918 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 +<span id="L35919" class="LineNr">35919 </span> } +<span id="L35920" class="LineNr">35920 </span><span class="Constant">$mu-stmt-matches-primitive?:next-inout</span>: +<span id="L35921" class="LineNr">35921 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L35922" class="LineNr">35922 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L35923" class="LineNr">35923 </span> 89/<- %esi 0/r32/eax +<span id="L35924" class="LineNr">35924 </span> <span class="subxComment"># curr2 = lookup(curr2->next)</span> +<span id="L35925" class="LineNr">35925 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L35926" class="LineNr">35926 </span> 89/<- %edi 0/r32/eax +<span id="L35927" class="LineNr">35927 </span> <span class="subxComment">#</span> +<span id="L35928" class="LineNr">35928 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L35929" class="LineNr">35929 </span> } +<span id="L35930" class="LineNr">35930 </span><span class="Constant">$mu-stmt-matches-primitive?:check-outputs</span>: +<span id="L35931" class="LineNr">35931 </span> <span class="subxComment"># var curr/esi: (addr stmt-var) = lookup(stmt->outputs)</span> +<span id="L35932" class="LineNr">35932 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L35933" class="LineNr">35933 </span> 89/<- %esi 0/r32/eax +<span id="L35934" class="LineNr">35934 </span> <span class="subxComment"># var curr2/edi: (addr list var) = lookup(primitive->outputs)</span> +<span id="L35935" class="LineNr">35935 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0x10) *(edx+0x14)) <span class="subxComment"># Primitive-outputs Primitive-outputs => eax</span> +<span id="L35936" class="LineNr">35936 </span> 89/<- %edi 0/r32/eax +<span id="L35937" class="LineNr">35937 </span> { +<span id="L35938" class="LineNr">35938 </span><span class="Constant">$mu-stmt-matches-primitive?:outputs-loop</span>: +<span id="L35939" class="LineNr">35939 </span> <span class="subxComment"># if (curr == 0) return (curr2 == 0)</span> +<span id="L35940" class="LineNr">35940 </span> { +<span id="L35941" class="LineNr">35941 </span><span class="Constant">$mu-stmt-matches-primitive?:check-both-outputs-null</span>: +<span id="L35942" class="LineNr">35942 </span> 81 7/subop/compare %esi 0/imm32 +<span id="L35943" class="LineNr">35943 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L35944" class="LineNr">35944 </span> { +<span id="L35945" class="LineNr">35945 </span><span class="Constant">$mu-stmt-matches-primitive?:stmt-output-null</span>: +<span id="L35946" class="LineNr">35946 </span> 81 7/subop/compare %edi 0/imm32 +<span id="L35947" class="LineNr">35947 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L35948" class="LineNr">35948 </span><span class="Constant">$mu-stmt-matches-primitive?:both-outputs-null</span>: +<span id="L35949" class="LineNr">35949 </span> <span class="subxComment"># return true</span> +<span id="L35950" class="LineNr">35950 </span> b8/copy-to-eax 1/imm32 +<span id="L35951" class="LineNr">35951 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 +<span id="L35952" class="LineNr">35952 </span> } +<span id="L35953" class="LineNr">35953 </span><span class="Constant">$mu-stmt-matches-primitive?:stmt-output-null-and-prim-output-not-null</span>: +<span id="L35954" class="LineNr">35954 </span> <span class="subxComment"># return false</span> +<span id="L35955" class="LineNr">35955 </span> b8/copy-to-eax 0/imm32 +<span id="L35956" class="LineNr">35956 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 +<span id="L35957" class="LineNr">35957 </span> } +<span id="L35958" class="LineNr">35958 </span> <span class="subxComment"># if (curr2 == 0) return false</span> +<span id="L35959" class="LineNr">35959 </span> { +<span id="L35960" class="LineNr">35960 </span><span class="Constant">$mu-stmt-matches-primitive?:check-prim-output-null</span>: +<span id="L35961" class="LineNr">35961 </span> 81 7/subop/compare %edi 0/imm32 +<span id="L35962" class="LineNr">35962 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L35963" class="LineNr">35963 </span><span class="Constant">$mu-stmt-matches-primitive?:prim-output-is-null</span>: +<span id="L35964" class="LineNr">35964 </span> b8/copy-to-eax 0/imm32 +<span id="L35965" class="LineNr">35965 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 +<span id="L35966" class="LineNr">35966 </span> } +<span id="L35967" class="LineNr">35967 </span> <span class="subxComment"># if (curr != curr2) return false</span> +<span id="L35968" class="LineNr">35968 </span> { +<span id="L35969" class="LineNr">35969 </span><span class="Constant">$mu-stmt-matches-primitive?:check-outputs-match</span>: +<span id="L35970" class="LineNr">35970 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L35971" class="LineNr">35971 </span> (<a href='mu.subx.html#L36002'>operand-matches-primitive?</a> %esi %eax) <span class="subxComment"># => eax</span> +<span id="L35972" class="LineNr">35972 </span> 3d/compare-eax-and 0/imm32/false +<span id="L35973" class="LineNr">35973 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L35974" class="LineNr">35974 </span><span class="Constant">$mu-stmt-matches-primitive?:outputs-match</span>: +<span id="L35975" class="LineNr">35975 </span> b8/copy-to-eax 0/imm32 +<span id="L35976" class="LineNr">35976 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 +<span id="L35977" class="LineNr">35977 </span> } +<span id="L35978" class="LineNr">35978 </span><span class="Constant">$mu-stmt-matches-primitive?:next-output</span>: +<span id="L35979" class="LineNr">35979 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L35980" class="LineNr">35980 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L35981" class="LineNr">35981 </span> 89/<- %esi 0/r32/eax +<span id="L35982" class="LineNr">35982 </span> <span class="subxComment"># curr2 = lookup(curr2->next)</span> +<span id="L35983" class="LineNr">35983 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L35984" class="LineNr">35984 </span> 89/<- %edi 0/r32/eax +<span id="L35985" class="LineNr">35985 </span> <span class="subxComment">#</span> +<span id="L35986" class="LineNr">35986 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L35987" class="LineNr">35987 </span> } +<span id="L35988" class="LineNr">35988 </span><span class="Constant">$mu-stmt-matches-primitive?:return-true</span>: +<span id="L35989" class="LineNr">35989 </span> b8/copy-to-eax 1/imm32 +<span id="L35990" class="LineNr">35990 </span><span class="Constant">$mu-stmt-matches-primitive?:end</span>: +<span id="L35991" class="LineNr">35991 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L35992" class="LineNr">35992 </span> 5f/pop-to-edi +<span id="L35993" class="LineNr">35993 </span> 5e/pop-to-esi +<span id="L35994" class="LineNr">35994 </span> 5b/pop-to-ebx +<span id="L35995" class="LineNr">35995 </span> 5a/pop-to-edx +<span id="L35996" class="LineNr">35996 </span> 59/pop-to-ecx +<span id="L35997" class="LineNr">35997 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35998" class="LineNr">35998 </span> 89/<- %esp 5/r32/ebp +<span id="L35999" class="LineNr">35999 </span> 5d/pop-to-ebp +<span id="L36000" class="LineNr">36000 </span> c3/return +<span id="L36001" class="LineNr">36001 </span> +<span id="L36002" class="LineNr">36002 </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="L36003" class="LineNr">36003 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36004" class="LineNr">36004 </span> 55/push-ebp +<span id="L36005" class="LineNr">36005 </span> 89/<- %ebp 4/r32/esp +<span id="L36006" class="LineNr">36006 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L36007" class="LineNr">36007 </span> 51/push-ecx +<span id="L36008" class="LineNr">36008 </span> 52/push-edx +<span id="L36009" class="LineNr">36009 </span> 53/push-ebx +<span id="L36010" class="LineNr">36010 </span> 56/push-esi +<span id="L36011" class="LineNr">36011 </span> 57/push-edi +<span id="L36012" class="LineNr">36012 </span> <span class="subxComment"># ecx = s</span> +<span id="L36013" class="LineNr">36013 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L36014" class="LineNr">36014 </span> <span class="subxComment"># var var/esi: (addr var) = lookup(s->value)</span> +<span id="L36015" class="LineNr">36015 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L36016" class="LineNr">36016 </span> 89/<- %esi 0/r32/eax +<span id="L36017" class="LineNr">36017 </span> <span class="subxComment"># edi = prim-var</span> +<span id="L36018" class="LineNr">36018 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L36019" class="LineNr">36019 </span><span class="Constant">$operand-matches-primitive?:check-type</span>: +<span id="L36020" class="LineNr">36020 </span> <span class="subxComment"># if !category-match?(var->type, prim-var->type) return false</span> +<span id="L36021" class="LineNr">36021 </span> <span class="subxS1Comment"># . var vtype/ebx: (addr type-tree) = lookup(var->type)</span> +<span id="L36022" class="LineNr">36022 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L36023" class="LineNr">36023 </span> 89/<- %ebx 0/r32/eax +<span id="L36024" class="LineNr">36024 </span> <span class="subxS1Comment"># . if s is deref, vtype = vtype->right</span> +<span id="L36025" class="LineNr">36025 </span> { +<span id="L36026" class="LineNr">36026 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L36027" class="LineNr">36027 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L36028" class="LineNr">36028 </span><span class="Constant">$operand-matches-primitive?:is-deref</span>: +<span id="L36029" class="LineNr">36029 </span> <span class="subxS1Comment"># . var t/eax: (addr type)</span> +<span id="L36030" class="LineNr">36030 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L36031" class="LineNr">36031 </span> <span class="subxS1Comment"># . if !t->is-atom? t = t->left</span> +<span id="L36032" class="LineNr">36032 </span> 81 7/subop/compare *eax 0/imm32/false +<span id="L36033" class="LineNr">36033 </span> { +<span id="L36034" class="LineNr">36034 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L36035" class="LineNr">36035 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L36036" class="LineNr">36036 </span> } +<span id="L36037" class="LineNr">36037 </span> <span class="subxS1Comment"># .</span> +<span id="L36038" class="LineNr">36038 </span> 89/<- %ebx 0/r32/eax +<span id="L36039" class="LineNr">36039 </span> } +<span id="L36040" class="LineNr">36040 </span> <span class="subxS1Comment"># . var ptype/eax: (addr type-tree) = lookup(prim-var->type)</span> +<span id="L36041" class="LineNr">36041 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L36042" class="LineNr">36042 </span> (<a href='mu.subx.html#L36179'>subx-type-category-match?</a> %ebx %eax) <span class="subxComment"># => eax</span> +<span id="L36043" class="LineNr">36043 </span> 3d/compare-eax-and 0/imm32/false +<span id="L36044" class="LineNr">36044 </span> 0f 84/jump-if-= $operand-matches-primitive?:return-false/disp32 +<span id="L36045" class="LineNr">36045 </span> { +<span id="L36046" class="LineNr">36046 </span><span class="Constant">$operand-matches-primitive?:check-register</span>: +<span id="L36047" class="LineNr">36047 </span> <span class="subxComment"># if prim-var is in memory and var is in register but dereference, match</span> +<span id="L36048" class="LineNr">36048 </span> { +<span id="L36049" class="LineNr">36049 </span> 81 7/subop/compare *(edi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L36050" class="LineNr">36050 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L36051" class="LineNr">36051 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L36052" class="LineNr">36052 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L36053" class="LineNr">36053 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L36054" class="LineNr">36054 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L36055" class="LineNr">36055 </span><span class="Constant">$operand-matches-primitive?:var-deref-match</span>: +<span id="L36056" class="LineNr">36056 </span> e9/jump $operand-matches-primitive?:return-true/disp32 +<span id="L36057" class="LineNr">36057 </span> } +<span id="L36058" class="LineNr">36058 </span> <span class="subxComment"># if prim-var is in register and var is in register but dereference, no match</span> +<span id="L36059" class="LineNr">36059 </span> { +<span id="L36060" class="LineNr">36060 </span> 81 7/subop/compare *(edi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L36061" class="LineNr">36061 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L36062" class="LineNr">36062 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L36063" class="LineNr">36063 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L36064" class="LineNr">36064 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L36065" class="LineNr">36065 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L36066" class="LineNr">36066 </span><span class="Constant">$operand-matches-primitive?:var-deref-no-match</span>: +<span id="L36067" class="LineNr">36067 </span> e9/jump $operand-matches-primitive?:return-false/disp32 +<span id="L36068" class="LineNr">36068 </span> } +<span id="L36069" class="LineNr">36069 </span> <span class="subxComment"># return false if var->register doesn't match prim-var->register</span> +<span id="L36070" class="LineNr">36070 </span> { +<span id="L36071" class="LineNr">36071 </span> <span class="subxComment"># if register addresses are equal, it's a match</span> +<span id="L36072" class="LineNr">36072 </span> <span class="subxComment"># var vreg/ebx: (addr array byte) = lookup(var->register)</span> +<span id="L36073" class="LineNr">36073 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L36074" class="LineNr">36074 </span> 89/<- %ebx 0/r32/eax +<span id="L36075" class="LineNr">36075 </span> <span class="subxComment"># var preg/ecx: (addr array byte) = lookup(prim-var->register)</span> +<span id="L36076" class="LineNr">36076 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+0x18) *(edi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L36077" class="LineNr">36077 </span> 89/<- %ecx 0/r32/eax +<span id="L36078" class="LineNr">36078 </span> <span class="subxComment"># if (vreg == preg) break</span> +<span id="L36079" class="LineNr">36079 </span> 39/compare %ecx 3/r32/ebx +<span id="L36080" class="LineNr">36080 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L36081" class="LineNr">36081 </span><span class="Constant">$operand-matches-primitive?:var-register-no-match</span>: +<span id="L36082" class="LineNr">36082 </span> <span class="subxComment"># if either address is 0, return false</span> +<span id="L36083" class="LineNr">36083 </span> 81 7/subop/compare %ebx 0/imm32 +<span id="L36084" class="LineNr">36084 </span> 74/jump-if-= $operand-matches-primitive?:return-false/disp8 +<span id="L36085" class="LineNr">36085 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L36086" class="LineNr">36086 </span> 74/jump-if-= $operand-matches-primitive?:return-false/disp8 +<span id="L36087" class="LineNr">36087 </span> <span class="subxComment"># if prim-var->register is wildcard, it's a match</span> +<span id="L36088" class="LineNr">36088 </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="L36089" class="LineNr">36089 </span> 3d/compare-eax-and 0/imm32/false +<span id="L36090" class="LineNr">36090 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L36091" class="LineNr">36091 </span><span class="Constant">$operand-matches-primitive?:wildcard-no-match</span>: +<span id="L36092" class="LineNr">36092 </span> <span class="subxComment"># if string contents aren't equal, return false</span> +<span id="L36093" class="LineNr">36093 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx %ebx) <span class="subxComment"># => eax</span> +<span id="L36094" class="LineNr">36094 </span> 3d/compare-eax-and 0/imm32/false +<span id="L36095" class="LineNr">36095 </span> 74/jump-if-= $operand-matches-primitive?:return-false/disp8 +<span id="L36096" class="LineNr">36096 </span> } +<span id="L36097" class="LineNr">36097 </span> } +<span id="L36098" class="LineNr">36098 </span><span class="Constant">$operand-matches-primitive?:return-true</span>: +<span id="L36099" class="LineNr">36099 </span> b8/copy-to-eax 1/imm32/true +<span id="L36100" class="LineNr">36100 </span> eb/jump $operand-matches-primitive?:end/disp8 +<span id="L36101" class="LineNr">36101 </span><span class="Constant">$operand-matches-primitive?:return-false</span>: +<span id="L36102" class="LineNr">36102 </span> b8/copy-to-eax 0/imm32/false +<span id="L36103" class="LineNr">36103 </span><span class="Constant">$operand-matches-primitive?:end</span>: +<span id="L36104" class="LineNr">36104 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L36105" class="LineNr">36105 </span> 5f/pop-to-edi +<span id="L36106" class="LineNr">36106 </span> 5e/pop-to-esi +<span id="L36107" class="LineNr">36107 </span> 5b/pop-to-ebx +<span id="L36108" class="LineNr">36108 </span> 5a/pop-to-edx +<span id="L36109" class="LineNr">36109 </span> 59/pop-to-ecx +<span id="L36110" class="LineNr">36110 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36111" class="LineNr">36111 </span> 89/<- %esp 5/r32/ebp +<span id="L36112" class="LineNr">36112 </span> 5d/pop-to-ebp +<span id="L36113" class="LineNr">36113 </span> c3/return +<span id="L36114" class="LineNr">36114 </span> +<span id="L36115" class="LineNr">36115 </span><span class="subxFunction">find-matching-function</span>: <span class="subxComment"># functions: (addr function), stmt: (addr stmt) -> result/eax: (addr function)</span> +<span id="L36116" class="LineNr">36116 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36117" class="LineNr">36117 </span> 55/push-ebp +<span id="L36118" class="LineNr">36118 </span> 89/<- %ebp 4/r32/esp +<span id="L36119" class="LineNr">36119 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L36120" class="LineNr">36120 </span> 51/push-ecx +<span id="L36121" class="LineNr">36121 </span> <span class="subxComment"># var curr/ecx: (handle function) = functions</span> +<span id="L36122" class="LineNr">36122 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L36123" class="LineNr">36123 </span> { +<span id="L36124" class="LineNr">36124 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L36125" class="LineNr">36125 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L36126" class="LineNr">36126 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L36127" class="LineNr">36127 </span><span class="CommentedCode">#? (write-buffered Stderr "iter\n")</span> +<span id="L36128" class="LineNr">36128 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L36129" class="LineNr">36129 </span> <span class="subxComment"># if match(stmt, curr) return curr</span> +<span id="L36130" class="LineNr">36130 </span> { +<span id="L36131" class="LineNr">36131 </span> (<a href='mu.subx.html#L36154'>mu-stmt-matches-function?</a> *(ebp+0xc) %ecx) <span class="subxComment"># => eax</span> +<span id="L36132" class="LineNr">36132 </span> 3d/compare-eax-and 0/imm32/false +<span id="L36133" class="LineNr">36133 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L36134" class="LineNr">36134 </span> 89/<- %eax 1/r32/ecx +<span id="L36135" class="LineNr">36135 </span> eb/jump $find-matching-function:end/disp8 +<span id="L36136" class="LineNr">36136 </span> } +<span id="L36137" class="LineNr">36137 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L36138" class="LineNr">36138 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x20) *(ecx+0x24)) <span class="subxComment"># Function-next Function-next => eax</span> +<span id="L36139" class="LineNr">36139 </span> 89/<- %ecx 0/r32/eax +<span id="L36140" class="LineNr">36140 </span> <span class="subxComment">#</span> +<span id="L36141" class="LineNr">36141 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L36142" class="LineNr">36142 </span> } +<span id="L36143" class="LineNr">36143 </span> <span class="subxComment"># return null</span> +<span id="L36144" class="LineNr">36144 </span> b8/copy-to-eax 0/imm32 +<span id="L36145" class="LineNr">36145 </span><span class="Constant">$find-matching-function:end</span>: +<span id="L36146" class="LineNr">36146 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L36147" class="LineNr">36147 </span> 59/pop-to-ecx +<span id="L36148" class="LineNr">36148 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36149" class="LineNr">36149 </span> 89/<- %esp 5/r32/ebp +<span id="L36150" class="LineNr">36150 </span> 5d/pop-to-ebp +<span id="L36151" class="LineNr">36151 </span> c3/return +<span id="L36152" class="LineNr">36152 </span> +<span id="L36153" class="LineNr">36153 </span><span class="subxComment"># Just compare names; user-defined functions don't support overloading yet.</span> +<span id="L36154" class="LineNr">36154 </span><span class="subxFunction">mu-stmt-matches-function?</span>: <span class="subxComment"># stmt: (addr stmt1), function: (addr function) -> result/eax: boolean</span> +<span id="L36155" class="LineNr">36155 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36156" class="LineNr">36156 </span> 55/push-ebp +<span id="L36157" class="LineNr">36157 </span> 89/<- %ebp 4/r32/esp +<span id="L36158" class="LineNr">36158 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L36159" class="LineNr">36159 </span> 51/push-ecx +<span id="L36160" class="LineNr">36160 </span> <span class="subxComment"># return function->name == stmt->operation</span> +<span id="L36161" class="LineNr">36161 </span> <span class="subxComment"># ecx = lookup(stmt->operation)</span> +<span id="L36162" class="LineNr">36162 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L36163" class="LineNr">36163 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L36164" class="LineNr">36164 </span> 89/<- %ecx 0/r32/eax +<span id="L36165" class="LineNr">36165 </span> <span class="subxComment"># eax = lookup(function->name)</span> +<span id="L36166" class="LineNr">36166 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L36167" class="LineNr">36167 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L36168" class="LineNr">36168 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax %ecx) <span class="subxComment"># => eax</span> +<span id="L36169" class="LineNr">36169 </span><span class="Constant">$mu-stmt-matches-function?:end</span>: +<span id="L36170" class="LineNr">36170 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L36171" class="LineNr">36171 </span> 59/pop-to-ecx +<span id="L36172" class="LineNr">36172 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36173" class="LineNr">36173 </span> 89/<- %esp 5/r32/ebp +<span id="L36174" class="LineNr">36174 </span> 5d/pop-to-ebp +<span id="L36175" class="LineNr">36175 </span> c3/return +<span id="L36176" class="LineNr">36176 </span> +<span id="L36177" class="LineNr">36177 </span><span class="subxComment"># Type-checking happens elsewhere. This method is for selecting between</span> +<span id="L36178" class="LineNr">36178 </span><span class="subxComment"># primitives.</span> +<span id="L36179" class="LineNr">36179 </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="L36180" class="LineNr">36180 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36181" class="LineNr">36181 </span> 55/push-ebp +<span id="L36182" class="LineNr">36182 </span> 89/<- %ebp 4/r32/esp +<span id="L36183" class="LineNr">36183 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L36184" class="LineNr">36184 </span> 51/push-ecx +<span id="L36185" class="LineNr">36185 </span> <span class="subxComment"># var cata/ecx: int = type-category(a)</span> +<span id="L36186" class="LineNr">36186 </span> (<a href='mu.subx.html#L36202'>type-category</a> *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L36187" class="LineNr">36187 </span> 89/<- %ecx 0/r32/eax +<span id="L36188" class="LineNr">36188 </span> <span class="subxComment"># var catb/eax: int = type-category(b)</span> +<span id="L36189" class="LineNr">36189 </span> (<a href='mu.subx.html#L36202'>type-category</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L36190" class="LineNr">36190 </span> <span class="subxComment"># return cata == catb</span> +<span id="L36191" class="LineNr">36191 </span> 39/compare %eax 1/r32/ecx +<span id="L36192" class="LineNr">36192 </span> 0f 94/set-byte-if-= %al +<span id="L36193" class="LineNr">36193 </span> 25/and-eax-with 0xff/imm32 +<span id="L36194" class="LineNr">36194 </span><span class="Constant">$subx-type-category-match?:end</span>: +<span id="L36195" class="LineNr">36195 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L36196" class="LineNr">36196 </span> 59/pop-to-ecx +<span id="L36197" class="LineNr">36197 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36198" class="LineNr">36198 </span> 89/<- %esp 5/r32/ebp +<span id="L36199" class="LineNr">36199 </span> 5d/pop-to-ebp +<span id="L36200" class="LineNr">36200 </span> c3/return +<span id="L36201" class="LineNr">36201 </span> +<span id="L36202" class="LineNr">36202 </span><span class="subxFunction">type-category</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: int</span> +<span id="L36203" class="LineNr">36203 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36204" class="LineNr">36204 </span> 55/push-ebp +<span id="L36205" class="LineNr">36205 </span> 89/<- %ebp 4/r32/esp +<span id="L36206" class="LineNr">36206 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L36207" class="LineNr">36207 </span> 51/push-ecx +<span id="L36208" class="LineNr">36208 </span> <span class="subxComment"># var lit?/ecx: boolean = literal-type?(a)</span> +<span id="L36209" class="LineNr">36209 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> *(ebp+8) 0) <span class="subxComment"># literal => eax</span> +<span id="L36210" class="LineNr">36210 </span> 89/<- %ecx 0/r32/eax +<span id="L36211" class="LineNr">36211 </span> <span class="subxComment"># var float?/eax: int = float?(a)</span> +<span id="L36212" class="LineNr">36212 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> *(ebp+8) 0xf) <span class="subxComment"># => eax</span> +<span id="L36213" class="LineNr">36213 </span> <span class="subxComment"># set bits for lit? and float?</span> +<span id="L36214" class="LineNr">36214 </span> c1/shift 4/subop/left %ecx 1/imm8 +<span id="L36215" class="LineNr">36215 </span> 09/or %eax 1/r32/ecx +<span id="L36216" class="LineNr">36216 </span><span class="Constant">$type-category:end</span>: +<span id="L36217" class="LineNr">36217 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L36218" class="LineNr">36218 </span> 59/pop-to-ecx +<span id="L36219" class="LineNr">36219 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36220" class="LineNr">36220 </span> 89/<- %esp 5/r32/ebp +<span id="L36221" class="LineNr">36221 </span> 5d/pop-to-ebp +<span id="L36222" class="LineNr">36222 </span> c3/return +<span id="L36223" class="LineNr">36223 </span> +<span id="L36224" class="LineNr">36224 </span><span class="subxFunction">simple-mu-type?</span>: <span class="subxComment"># a: (addr type-tree), n: type-id -> result/eax: boolean</span> +<span id="L36225" class="LineNr">36225 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36226" class="LineNr">36226 </span> 55/push-ebp +<span id="L36227" class="LineNr">36227 </span> 89/<- %ebp 4/r32/esp +<span id="L36228" class="LineNr">36228 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L36229" class="LineNr">36229 </span> 51/push-ecx +<span id="L36230" class="LineNr">36230 </span> <span class="subxComment"># ecx = n</span> +<span id="L36231" class="LineNr">36231 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L36232" class="LineNr">36232 </span> <span class="subxComment"># return (a->value == n)</span> +<span id="L36233" class="LineNr">36233 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L36234" class="LineNr">36234 </span> 39/compare *(eax+4) 1/r32/ecx <span class="subxComment"># Type-tree-value</span> +<span id="L36235" class="LineNr">36235 </span> 0f 94/set-byte-if-= %al +<span id="L36236" class="LineNr">36236 </span> 25/and-eax-with 0xff/imm32 +<span id="L36237" class="LineNr">36237 </span><span class="Constant">$simple-mu-type?:end</span>: +<span id="L36238" class="LineNr">36238 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L36239" class="LineNr">36239 </span> 59/pop-to-ecx +<span id="L36240" class="LineNr">36240 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36241" class="LineNr">36241 </span> 89/<- %esp 5/r32/ebp +<span id="L36242" class="LineNr">36242 </span> 5d/pop-to-ebp +<span id="L36243" class="LineNr">36243 </span> c3/return +<span id="L36244" class="LineNr">36244 </span> +<span id="L36245" class="LineNr">36245 </span><span class="subxFunction">mu-addr-type?</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: boolean</span> +<span id="L36246" class="LineNr">36246 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36247" class="LineNr">36247 </span> 55/push-ebp +<span id="L36248" class="LineNr">36248 </span> 89/<- %ebp 4/r32/esp +<span id="L36249" class="LineNr">36249 </span> <span class="subxComment"># eax = a</span> +<span id="L36250" class="LineNr">36250 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L36251" class="LineNr">36251 </span> <span class="subxComment"># if (!a->is-atom?) a = a->left</span> +<span id="L36252" class="LineNr">36252 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L36253" class="LineNr">36253 </span> { +<span id="L36254" class="LineNr">36254 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L36255" class="LineNr">36255 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L36256" class="LineNr">36256 </span> } +<span id="L36257" class="LineNr">36257 </span> <span class="subxComment"># return (a->value == addr)</span> +<span id="L36258" class="LineNr">36258 </span> 81 7/subop/compare *(eax+4) 2/imm32/addr <span class="subxComment"># Type-tree-value</span> +<span id="L36259" class="LineNr">36259 </span> 0f 94/set-byte-if-= %al +<span id="L36260" class="LineNr">36260 </span> 25/and-eax-with 0xff/imm32 +<span id="L36261" class="LineNr">36261 </span><span class="Constant">$mu-addr-type?:end</span>: +<span id="L36262" class="LineNr">36262 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36263" class="LineNr">36263 </span> 89/<- %esp 5/r32/ebp +<span id="L36264" class="LineNr">36264 </span> 5d/pop-to-ebp +<span id="L36265" class="LineNr">36265 </span> c3/return +<span id="L36266" class="LineNr">36266 </span> +<span id="L36267" class="LineNr">36267 </span><span class="subxFunction">mu-array-type?</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: boolean</span> +<span id="L36268" class="LineNr">36268 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36269" class="LineNr">36269 </span> 55/push-ebp +<span id="L36270" class="LineNr">36270 </span> 89/<- %ebp 4/r32/esp +<span id="L36271" class="LineNr">36271 </span> <span class="subxComment"># eax = a</span> +<span id="L36272" class="LineNr">36272 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L36273" class="LineNr">36273 </span> <span class="subxComment"># if (!a->is-atom?) a = a->left</span> +<span id="L36274" class="LineNr">36274 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L36275" class="LineNr">36275 </span> { +<span id="L36276" class="LineNr">36276 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L36277" class="LineNr">36277 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L36278" class="LineNr">36278 </span> } +<span id="L36279" class="LineNr">36279 </span> <span class="subxComment"># return (a->value == array)</span> +<span id="L36280" class="LineNr">36280 </span> 81 7/subop/compare *(eax+4) 3/imm32/array <span class="subxComment"># Type-tree-value</span> +<span id="L36281" class="LineNr">36281 </span> 0f 94/set-byte-if-= %al +<span id="L36282" class="LineNr">36282 </span> 25/and-eax-with 0xff/imm32 +<span id="L36283" class="LineNr">36283 </span><span class="Constant">$mu-array-type?:end</span>: +<span id="L36284" class="LineNr">36284 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36285" class="LineNr">36285 </span> 89/<- %esp 5/r32/ebp +<span id="L36286" class="LineNr">36286 </span> 5d/pop-to-ebp +<span id="L36287" class="LineNr">36287 </span> c3/return +<span id="L36288" class="LineNr">36288 </span> +<span id="L36289" class="LineNr">36289 </span><span class="subxFunction">mu-string-type?</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: boolean</span> +<span id="L36290" class="LineNr">36290 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36291" class="LineNr">36291 </span> 55/push-ebp +<span id="L36292" class="LineNr">36292 </span> 89/<- %ebp 4/r32/esp +<span id="L36293" class="LineNr">36293 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L36294" class="LineNr">36294 </span> 56/push-esi +<span id="L36295" class="LineNr">36295 </span> <span class="subxComment"># esi = a</span> +<span id="L36296" class="LineNr">36296 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L36297" class="LineNr">36297 </span> <span class="subxComment"># if (a->is-atom?) return false</span> +<span id="L36298" class="LineNr">36298 </span> 81 7/subop/compare *esi 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L36299" class="LineNr">36299 </span> 0f 85/jump-if-!= $mu-string-type?:return-false/disp32 +<span id="L36300" class="LineNr">36300 </span> <span class="subxComment"># if a is not an addr, return false</span> +<span id="L36301" class="LineNr">36301 </span> (<a href='mu.subx.html#L36245'>mu-addr-type?</a> %esi) <span class="subxComment"># => eax</span> +<span id="L36302" class="LineNr">36302 </span> 3d/compare-eax-with 0/imm32/false +<span id="L36303" class="LineNr">36303 </span> 0f 84/jump-if-= $mu-string-type?:end/disp32 <span class="subxComment"># eax changes var</span> +<span id="L36304" class="LineNr">36304 </span> <span class="subxComment"># if a is not an array, return false</span> +<span id="L36305" class="LineNr">36305 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L36306" class="LineNr">36306 </span> (<a href='mu.subx.html#L36267'>mu-array-type?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L36307" class="LineNr">36307 </span> 3d/compare-eax-with 0/imm32/false +<span id="L36308" class="LineNr">36308 </span> 74/jump-if-= $mu-string-type?:end/disp8 <span class="subxComment"># eax changes var</span> +<span id="L36309" class="LineNr">36309 </span> <span class="subxComment"># var p/eax: (addr type-tree) = payload of a</span> +<span id="L36310" class="LineNr">36310 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L36311" class="LineNr">36311 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L36312" class="LineNr">36312 </span> <span class="subxComment"># if p is an atom, return false</span> +<span id="L36313" class="LineNr">36313 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L36314" class="LineNr">36314 </span> 75/jump-if-!= $mu-string-type?:return-false/disp8 +<span id="L36315" class="LineNr">36315 </span> <span class="subxComment"># return (p == byte)</span> +<span id="L36316" class="LineNr">36316 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L36317" class="LineNr">36317 </span> (<a href='mu.subx.html#L36224'>simple-mu-type?</a> %eax 8) <span class="subxComment"># byte => eax</span> +<span id="L36318" class="LineNr">36318 </span> eb/jump $mu-string-type?:end/disp8 +<span id="L36319" class="LineNr">36319 </span><span class="Constant">$mu-string-type?:return-false</span>: +<span id="L36320" class="LineNr">36320 </span> b8/copy-to-eax 0/imm32/false +<span id="L36321" class="LineNr">36321 </span><span class="Constant">$mu-string-type?:end</span>: +<span id="L36322" class="LineNr">36322 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L36323" class="LineNr">36323 </span> 5e/pop-to-esi +<span id="L36324" class="LineNr">36324 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36325" class="LineNr">36325 </span> 89/<- %esp 5/r32/ebp +<span id="L36326" class="LineNr">36326 </span> 5d/pop-to-ebp +<span id="L36327" class="LineNr">36327 </span> c3/return +<span id="L36328" class="LineNr">36328 </span> +<span id="L36329" class="LineNr">36329 </span><span class="subxFunction">mu-stream-type?</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: boolean</span> +<span id="L36330" class="LineNr">36330 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36331" class="LineNr">36331 </span> 55/push-ebp +<span id="L36332" class="LineNr">36332 </span> 89/<- %ebp 4/r32/esp +<span id="L36333" class="LineNr">36333 </span> <span class="subxComment"># eax = a</span> +<span id="L36334" class="LineNr">36334 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L36335" class="LineNr">36335 </span> <span class="subxComment"># if (!a->is-atom?) a = a->left</span> +<span id="L36336" class="LineNr">36336 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L36337" class="LineNr">36337 </span> { +<span id="L36338" class="LineNr">36338 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L36339" class="LineNr">36339 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L36340" class="LineNr">36340 </span> } +<span id="L36341" class="LineNr">36341 </span> <span class="subxComment"># return (a->value == stream)</span> +<span id="L36342" class="LineNr">36342 </span> 81 7/subop/compare *(eax+4) 0xb/imm32/stream <span class="subxComment"># Type-tree-value</span> +<span id="L36343" class="LineNr">36343 </span> 0f 94/set-byte-if-= %al +<span id="L36344" class="LineNr">36344 </span> 25/and-eax-with 0xff/imm32 +<span id="L36345" class="LineNr">36345 </span><span class="Constant">$mu-stream-type?:end</span>: +<span id="L36346" class="LineNr">36346 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36347" class="LineNr">36347 </span> 89/<- %esp 5/r32/ebp +<span id="L36348" class="LineNr">36348 </span> 5d/pop-to-ebp +<span id="L36349" class="LineNr">36349 </span> c3/return +<span id="L36350" class="LineNr">36350 </span> +<span id="L36351" class="LineNr">36351 </span><span class="subxTest">test-emit-subx-stmt-primitive</span>: +<span id="L36352" class="LineNr">36352 </span> <span class="subxComment"># Primitive operation on a variable on the stack.</span> +<span id="L36353" class="LineNr">36353 </span> <span class="subxComment"># increment foo</span> +<span id="L36354" class="LineNr">36354 </span> <span class="subxComment"># =></span> +<span id="L36355" class="LineNr">36355 </span> <span class="subxComment"># ff 0/subop/increment *(ebp-8)</span> +<span id="L36356" class="LineNr">36356 </span> <span class="subxComment">#</span> +<span id="L36357" class="LineNr">36357 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> +<span id="L36358" class="LineNr">36358 </span> <span class="subxComment"># name: 'foo'</span> +<span id="L36359" class="LineNr">36359 </span> <span class="subxComment"># type: int</span> +<span id="L36360" class="LineNr">36360 </span> <span class="subxComment"># stack-offset: -8</span> +<span id="L36361" class="LineNr">36361 </span> <span class="subxComment">#</span> +<span id="L36362" class="LineNr">36362 </span> <span class="subxComment"># There's a primitive with this info:</span> +<span id="L36363" class="LineNr">36363 </span> <span class="subxComment"># name: 'increment'</span> +<span id="L36364" class="LineNr">36364 </span> <span class="subxComment"># inouts: int/mem</span> +<span id="L36365" class="LineNr">36365 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> +<span id="L36366" class="LineNr">36366 </span> <span class="subxComment">#</span> +<span id="L36367" class="LineNr">36367 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36368" class="LineNr">36368 </span> 55/push-ebp +<span id="L36369" class="LineNr">36369 </span> 89/<- %ebp 4/r32/esp +<span id="L36370" class="LineNr">36370 </span> <span class="subxComment"># setup</span> +<span id="L36371" class="LineNr">36371 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L36372" class="LineNr">36372 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L36373" class="LineNr">36373 </span> <span class="subxComment"># simulate allocated payloads starting with an initial fake alloc-id (0x11)</span> +<span id="L36374" class="LineNr">36374 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-type</span>: +<span id="L36375" class="LineNr">36375 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L36376" class="LineNr">36376 </span> 68/push 0/imm32/right:null +<span id="L36377" class="LineNr">36377 </span> 68/push 0/imm32/right:null +<span id="L36378" class="LineNr">36378 </span> 68/push 0/imm32/left:unused +<span id="L36379" class="LineNr">36379 </span> 68/push 1/imm32/value:int +<span id="L36380" class="LineNr">36380 </span> 68/push 1/imm32/is-atom?:true +<span id="L36381" class="LineNr">36381 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36382" class="LineNr">36382 </span> 89/<- %ecx 4/r32/esp +<span id="L36383" class="LineNr">36383 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-var</span>: +<span id="L36384" class="LineNr">36384 </span> <span class="subxComment"># var var-foo/ecx: (payload var) = var(type)</span> +<span id="L36385" class="LineNr">36385 </span> 68/push 0/imm32/no-register +<span id="L36386" class="LineNr">36386 </span> 68/push 0/imm32/no-register +<span id="L36387" class="LineNr">36387 </span> 68/push -8/imm32/stack-offset +<span id="L36388" class="LineNr">36388 </span> 68/push 1/imm32/block-depth +<span id="L36389" class="LineNr">36389 </span> 51/push-ecx/type +<span id="L36390" class="LineNr">36390 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36391" class="LineNr">36391 </span> 68/push 0/imm32/name +<span id="L36392" class="LineNr">36392 </span> 68/push 0/imm32/name +<span id="L36393" class="LineNr">36393 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36394" class="LineNr">36394 </span> 89/<- %ecx 4/r32/esp +<span id="L36395" class="LineNr">36395 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-var-name</span>: +<span id="L36396" class="LineNr">36396 </span> <span class="subxComment"># var-foo->name = "foo"</span> +<span id="L36397" class="LineNr">36397 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L36398" class="LineNr">36398 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"foo"</span> %eax) +<span id="L36399" class="LineNr">36399 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-stmt-var</span>: +<span id="L36400" class="LineNr">36400 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var) = stmt-var(var-foo)</span> +<span id="L36401" class="LineNr">36401 </span> 68/push 0/imm32/is-deref:false +<span id="L36402" class="LineNr">36402 </span> 68/push 0/imm32/next +<span id="L36403" class="LineNr">36403 </span> 68/push 0/imm32/next +<span id="L36404" class="LineNr">36404 </span> 51/push-ecx/var-foo +<span id="L36405" class="LineNr">36405 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36406" class="LineNr">36406 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36407" class="LineNr">36407 </span> 89/<- %ebx 4/r32/esp +<span id="L36408" class="LineNr">36408 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-stmt</span>: +<span id="L36409" class="LineNr">36409 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L36410" class="LineNr">36410 </span> 68/push 0/imm32/no-outputs +<span id="L36411" class="LineNr">36411 </span> 68/push 0/imm32/no-outputs +<span id="L36412" class="LineNr">36412 </span> 53/push-ebx/inouts +<span id="L36413" class="LineNr">36413 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36414" class="LineNr">36414 </span> 68/push 0/imm32/operation +<span id="L36415" class="LineNr">36415 </span> 68/push 0/imm32/operation +<span id="L36416" class="LineNr">36416 </span> 68/push 1/imm32/tag +<span id="L36417" class="LineNr">36417 </span> 89/<- %esi 4/r32/esp +<span id="L36418" class="LineNr">36418 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-stmt-operation</span>: +<span id="L36419" class="LineNr">36419 </span> <span class="subxComment"># stmt->operation = "increment"</span> +<span id="L36420" class="LineNr">36420 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L36421" class="LineNr">36421 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %eax) +<span id="L36422" class="LineNr">36422 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-primitive</span>: +<span id="L36423" class="LineNr">36423 </span> <span class="subxComment"># var primitives/ebx: (addr primitive)</span> +<span id="L36424" class="LineNr">36424 </span> 68/push 0/imm32/next +<span id="L36425" class="LineNr">36425 </span> 68/push 0/imm32/next +<span id="L36426" class="LineNr">36426 </span> 68/push 0/imm32/no-x32 +<span id="L36427" class="LineNr">36427 </span> 68/push 0/imm32/no-xm32 +<span id="L36428" class="LineNr">36428 </span> 68/push 0/imm32/no-disp32 +<span id="L36429" class="LineNr">36429 </span> 68/push 0/imm32/no-imm8 +<span id="L36430" class="LineNr">36430 </span> 68/push 0/imm32/no-imm32 +<span id="L36431" class="LineNr">36431 </span> 68/push 0/imm32/no-r32 +<span id="L36432" class="LineNr">36432 </span> 68/push 1/imm32/rm32-is-first-inout +<span id="L36433" class="LineNr">36433 </span> 68/push 0/imm32/subx-name +<span id="L36434" class="LineNr">36434 </span> 68/push 0/imm32/subx-name +<span id="L36435" class="LineNr">36435 </span> 68/push 0/imm32/no-outputs +<span id="L36436" class="LineNr">36436 </span> 68/push 0/imm32/no-outputs +<span id="L36437" class="LineNr">36437 </span> 53/push-ebx/inouts <span class="subxComment"># hack: reuse stmt-var from call stmt as (list var) in function declaration</span> +<span id="L36438" class="LineNr">36438 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36439" class="LineNr">36439 </span> 68/push 0/imm32/name +<span id="L36440" class="LineNr">36440 </span> 68/push 0/imm32/name +<span id="L36441" class="LineNr">36441 </span> 89/<- %ebx 4/r32/esp +<span id="L36442" class="LineNr">36442 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-primitive-name</span>: +<span id="L36443" class="LineNr">36443 </span> <span class="subxComment"># primitives->name = "increment"</span> +<span id="L36444" class="LineNr">36444 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %ebx) <span class="subxComment"># Primitive-name</span> +<span id="L36445" class="LineNr">36445 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-primitive-subx-name</span>: +<span id="L36446" class="LineNr">36446 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> +<span id="L36447" class="LineNr">36447 </span> 8d/copy-address *(ebx+0x18) 0/r32/eax <span class="subxComment"># Primitive-subx-name</span> +<span id="L36448" class="LineNr">36448 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ff 0/subop/increment"</span> %eax) +<span id="L36449" class="LineNr">36449 </span> <span class="subxComment"># convert</span> +<span id="L36450" class="LineNr">36450 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span> 0/imm32 +<span id="L36451" class="LineNr">36451 </span> (<a href='mu.subx.html#L28660'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi %ebx 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L36452" class="LineNr">36452 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L36453" class="Folded">36453 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L36459" class="LineNr">36459 </span> <span class="subxComment"># check output</span> +<span id="L36460" class="LineNr">36460 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"ff 0/subop/increment *(ebp+0xfffffff8)"</span> <span class="Constant">"F - test-emit-subx-stmt-primitive"</span>) +<span id="L36461" class="LineNr">36461 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36462" class="LineNr">36462 </span> 89/<- %esp 5/r32/ebp +<span id="L36463" class="LineNr">36463 </span> 5d/pop-to-ebp +<span id="L36464" class="LineNr">36464 </span> c3/return +<span id="L36465" class="LineNr">36465 </span> +<span id="L36466" class="LineNr">36466 </span><span class="subxTest">test-emit-subx-stmt-primitive-register</span>: +<span id="L36467" class="LineNr">36467 </span> <span class="subxComment"># Primitive operation on a variable in a register.</span> +<span id="L36468" class="LineNr">36468 </span> <span class="subxComment"># foo <- increment</span> +<span id="L36469" class="LineNr">36469 </span> <span class="subxComment"># =></span> +<span id="L36470" class="LineNr">36470 </span> <span class="subxComment"># ff 0/subop/increment %eax # sub-optimal, but should suffice</span> <span id="L36471" class="LineNr">36471 </span> <span class="subxComment">#</span> -<span id="L36472" class="LineNr">36472 </span> <span class="subxComment"># There's two primitives, as follows:</span> -<span id="L36473" class="LineNr">36473 </span> <span class="subxComment"># - name: 'increment'</span> -<span id="L36474" class="LineNr">36474 </span> <span class="subxComment"># out: int/reg</span> -<span id="L36475" class="LineNr">36475 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> -<span id="L36476" class="LineNr">36476 </span> <span class="subxComment"># - name: 'increment'</span> -<span id="L36477" class="LineNr">36477 </span> <span class="subxComment"># inout: int/mem</span> -<span id="L36478" class="LineNr">36478 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> -<span id="L36479" class="LineNr">36479 </span> <span class="subxComment">#</span> -<span id="L36480" class="LineNr">36480 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L36481" class="LineNr">36481 </span> 55/push-ebp -<span id="L36482" class="LineNr">36482 </span> 89/<- %ebp 4/r32/esp -<span id="L36483" class="LineNr">36483 </span> <span class="subxComment"># setup</span> -<span id="L36484" class="LineNr">36484 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L36485" class="LineNr">36485 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L36486" class="LineNr">36486 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-type</span>: -<span id="L36487" class="LineNr">36487 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L36488" class="LineNr">36488 </span> 68/push 0/imm32/right:null -<span id="L36489" class="LineNr">36489 </span> 68/push 0/imm32/right:null -<span id="L36490" class="LineNr">36490 </span> 68/push 0/imm32/left:unused -<span id="L36491" class="LineNr">36491 </span> 68/push 1/imm32/value:int -<span id="L36492" class="LineNr">36492 </span> 68/push 1/imm32/is-atom?:true -<span id="L36493" class="LineNr">36493 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36494" class="LineNr">36494 </span> 89/<- %ecx 4/r32/esp -<span id="L36495" class="LineNr">36495 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-var</span>: -<span id="L36496" class="LineNr">36496 </span> <span class="subxComment"># var var-foo/ecx: (payload var)</span> -<span id="L36497" class="LineNr">36497 </span> 68/push 0/imm32/register -<span id="L36498" class="LineNr">36498 </span> 68/push 0/imm32/register -<span id="L36499" class="LineNr">36499 </span> 68/push 0/imm32/no-stack-offset -<span id="L36500" class="LineNr">36500 </span> 68/push 1/imm32/block-depth -<span id="L36501" class="LineNr">36501 </span> 51/push-ecx -<span id="L36502" class="LineNr">36502 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36503" class="LineNr">36503 </span> 68/push 0/imm32/name -<span id="L36504" class="LineNr">36504 </span> 68/push 0/imm32/name -<span id="L36505" class="LineNr">36505 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36506" class="LineNr">36506 </span> 89/<- %ecx 4/r32/esp -<span id="L36507" class="LineNr">36507 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-var-name</span>: -<span id="L36508" class="LineNr">36508 </span> <span class="subxComment"># var-foo->name = "foo"</span> -<span id="L36509" class="LineNr">36509 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L36510" class="LineNr">36510 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"foo"</span> %eax) -<span id="L36511" class="LineNr">36511 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-var-register</span>: -<span id="L36512" class="LineNr">36512 </span> <span class="subxComment"># var-foo->register = "eax"</span> -<span id="L36513" class="LineNr">36513 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L36514" class="LineNr">36514 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) -<span id="L36515" class="LineNr">36515 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-stmt-var</span>: -<span id="L36516" class="LineNr">36516 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var)</span> -<span id="L36517" class="LineNr">36517 </span> 68/push 0/imm32/is-deref:false -<span id="L36518" class="LineNr">36518 </span> 68/push 0/imm32/next -<span id="L36519" class="LineNr">36519 </span> 68/push 0/imm32/next -<span id="L36520" class="LineNr">36520 </span> 51/push-ecx/var-foo -<span id="L36521" class="LineNr">36521 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36522" class="LineNr">36522 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36523" class="LineNr">36523 </span> 89/<- %ebx 4/r32/esp -<span id="L36524" class="LineNr">36524 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-stmt</span>: -<span id="L36525" class="LineNr">36525 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L36526" class="LineNr">36526 </span> 68/push 0/imm32/no-outputs -<span id="L36527" class="LineNr">36527 </span> 68/push 0/imm32/no-outputs -<span id="L36528" class="LineNr">36528 </span> 53/push-ebx/inouts +<span id="L36472" class="LineNr">36472 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> +<span id="L36473" class="LineNr">36473 </span> <span class="subxComment"># name: 'foo'</span> +<span id="L36474" class="LineNr">36474 </span> <span class="subxComment"># type: int</span> +<span id="L36475" class="LineNr">36475 </span> <span class="subxComment"># register: 'eax'</span> +<span id="L36476" class="LineNr">36476 </span> <span class="subxComment">#</span> +<span id="L36477" class="LineNr">36477 </span> <span class="subxComment"># There's a primitive with this info:</span> +<span id="L36478" class="LineNr">36478 </span> <span class="subxComment"># name: 'increment'</span> +<span id="L36479" class="LineNr">36479 </span> <span class="subxComment"># out: int/reg</span> +<span id="L36480" class="LineNr">36480 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> +<span id="L36481" class="LineNr">36481 </span> <span class="subxComment">#</span> +<span id="L36482" class="LineNr">36482 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36483" class="LineNr">36483 </span> 55/push-ebp +<span id="L36484" class="LineNr">36484 </span> 89/<- %ebp 4/r32/esp +<span id="L36485" class="LineNr">36485 </span> <span class="subxComment"># setup</span> +<span id="L36486" class="LineNr">36486 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L36487" class="LineNr">36487 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L36488" class="LineNr">36488 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-type</span>: +<span id="L36489" class="LineNr">36489 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L36490" class="LineNr">36490 </span> 68/push 0/imm32/right:null +<span id="L36491" class="LineNr">36491 </span> 68/push 0/imm32/right:null +<span id="L36492" class="LineNr">36492 </span> 68/push 0/imm32/left:unused +<span id="L36493" class="LineNr">36493 </span> 68/push 1/imm32/value:int +<span id="L36494" class="LineNr">36494 </span> 68/push 1/imm32/is-atom?:true +<span id="L36495" class="LineNr">36495 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36496" class="LineNr">36496 </span> 89/<- %ecx 4/r32/esp +<span id="L36497" class="LineNr">36497 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-var</span>: +<span id="L36498" class="LineNr">36498 </span> <span class="subxComment"># var var-foo/ecx: (payload var)</span> +<span id="L36499" class="LineNr">36499 </span> 68/push 0/imm32/register +<span id="L36500" class="LineNr">36500 </span> 68/push 0/imm32/register +<span id="L36501" class="LineNr">36501 </span> 68/push 0/imm32/no-stack-offset +<span id="L36502" class="LineNr">36502 </span> 68/push 1/imm32/block-depth +<span id="L36503" class="LineNr">36503 </span> 51/push-ecx +<span id="L36504" class="LineNr">36504 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36505" class="LineNr">36505 </span> 68/push 0/imm32/name +<span id="L36506" class="LineNr">36506 </span> 68/push 0/imm32/name +<span id="L36507" class="LineNr">36507 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36508" class="LineNr">36508 </span> 89/<- %ecx 4/r32/esp +<span id="L36509" class="LineNr">36509 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-var-name</span>: +<span id="L36510" class="LineNr">36510 </span> <span class="subxComment"># var-foo->name = "foo"</span> +<span id="L36511" class="LineNr">36511 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L36512" class="LineNr">36512 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"foo"</span> %eax) +<span id="L36513" class="LineNr">36513 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-var-register</span>: +<span id="L36514" class="LineNr">36514 </span> <span class="subxComment"># var-foo->register = "eax"</span> +<span id="L36515" class="LineNr">36515 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L36516" class="LineNr">36516 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) +<span id="L36517" class="LineNr">36517 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-stmt-var</span>: +<span id="L36518" class="LineNr">36518 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var)</span> +<span id="L36519" class="LineNr">36519 </span> 68/push 0/imm32/is-deref:false +<span id="L36520" class="LineNr">36520 </span> 68/push 0/imm32/next +<span id="L36521" class="LineNr">36521 </span> 68/push 0/imm32/next +<span id="L36522" class="LineNr">36522 </span> 51/push-ecx/var-foo +<span id="L36523" class="LineNr">36523 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36524" class="LineNr">36524 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36525" class="LineNr">36525 </span> 89/<- %ebx 4/r32/esp +<span id="L36526" class="LineNr">36526 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-stmt</span>: +<span id="L36527" class="LineNr">36527 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L36528" class="LineNr">36528 </span> 53/push-ebx/outputs <span id="L36529" class="LineNr">36529 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36530" class="LineNr">36530 </span> 68/push 0/imm32/operation -<span id="L36531" class="LineNr">36531 </span> 68/push 0/imm32/operation -<span id="L36532" class="LineNr">36532 </span> 68/push 1/imm32 -<span id="L36533" class="LineNr">36533 </span> 89/<- %esi 4/r32/esp -<span id="L36534" class="LineNr">36534 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-stmt-operation</span>: -<span id="L36535" class="LineNr">36535 </span> <span class="subxComment"># stmt->operation = "increment"</span> -<span id="L36536" class="LineNr">36536 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L36537" class="LineNr">36537 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %eax) -<span id="L36538" class="LineNr">36538 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-formal-var</span>: -<span id="L36539" class="LineNr">36539 </span> <span class="subxComment"># var formal-var/ebx: (payload var)</span> -<span id="L36540" class="LineNr">36540 </span> 68/push 0/imm32/register -<span id="L36541" class="LineNr">36541 </span> 68/push 0/imm32/register -<span id="L36542" class="LineNr">36542 </span> 68/push 0/imm32/no-stack-offset -<span id="L36543" class="LineNr">36543 </span> 68/push 1/imm32/block-depth -<span id="L36544" class="LineNr">36544 </span> ff 6/subop/push *(ecx+0x10) <span class="subxComment"># Var-type + payload alloc id + handle alloc id</span> -<span id="L36545" class="LineNr">36545 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36546" class="LineNr">36546 </span> 68/push 0/imm32/name -<span id="L36547" class="LineNr">36547 </span> 68/push 0/imm32/name -<span id="L36548" class="LineNr">36548 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36549" class="LineNr">36549 </span> 89/<- %ebx 4/r32/esp -<span id="L36550" class="LineNr">36550 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-formal-var-name</span>: -<span id="L36551" class="LineNr">36551 </span> <span class="subxComment"># formal-var->name = "dummy"</span> -<span id="L36552" class="LineNr">36552 </span> 8d/copy-address *(ebx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L36553" class="LineNr">36553 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"dummy"</span> %eax) -<span id="L36554" class="LineNr">36554 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-formal-register</span>: -<span id="L36555" class="LineNr">36555 </span> <span class="subxComment"># formal-var->register = "*"</span> -<span id="L36556" class="LineNr">36556 </span> 8d/copy-address *(ebx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L36557" class="LineNr">36557 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"*"</span> %eax) <span class="subxComment"># Any-register</span> -<span id="L36558" class="LineNr">36558 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-var-list</span>: -<span id="L36559" class="LineNr">36559 </span> <span class="subxComment"># var formal-outputs/ebx: (payload list stmt-var)</span> -<span id="L36560" class="LineNr">36560 </span> 68/push 0/imm32/next -<span id="L36561" class="LineNr">36561 </span> 68/push 0/imm32/next -<span id="L36562" class="LineNr">36562 </span> 53/push-ebx/formal-var -<span id="L36563" class="LineNr">36563 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36564" class="LineNr">36564 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36565" class="LineNr">36565 </span> 89/<- %ebx 4/r32/esp -<span id="L36566" class="LineNr">36566 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive2</span>: -<span id="L36567" class="LineNr">36567 </span> <span class="subxComment"># var primitive2/edi: (payload primitive)</span> -<span id="L36568" class="LineNr">36568 </span> 68/push 0/imm32/next -<span id="L36569" class="LineNr">36569 </span> 68/push 0/imm32/next -<span id="L36570" class="LineNr">36570 </span> 68/push 0/imm32/no-x32 -<span id="L36571" class="LineNr">36571 </span> 68/push 0/imm32/no-xm32 -<span id="L36572" class="LineNr">36572 </span> 68/push 0/imm32/no-disp32 -<span id="L36573" class="LineNr">36573 </span> 68/push 0/imm32/no-imm8 -<span id="L36574" class="LineNr">36574 </span> 68/push 0/imm32/no-imm32 -<span id="L36575" class="LineNr">36575 </span> 68/push 0/imm32/no-r32 -<span id="L36576" class="LineNr">36576 </span> 68/push 3/imm32/rm32-is-first-output -<span id="L36577" class="LineNr">36577 </span> 68/push 0/imm32/subx-name -<span id="L36578" class="LineNr">36578 </span> 68/push 0/imm32/subx-name -<span id="L36579" class="LineNr">36579 </span> 53/push-ebx/outputs -<span id="L36580" class="LineNr">36580 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36581" class="LineNr">36581 </span> 68/push 0/imm32/no-inouts -<span id="L36582" class="LineNr">36582 </span> 68/push 0/imm32/no-inouts -<span id="L36583" class="LineNr">36583 </span> 68/push 0/imm32/name -<span id="L36584" class="LineNr">36584 </span> 68/push 0/imm32/name -<span id="L36585" class="LineNr">36585 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36586" class="LineNr">36586 </span> 89/<- %edi 4/r32/esp -<span id="L36587" class="LineNr">36587 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive2-name</span>: -<span id="L36588" class="LineNr">36588 </span> <span class="subxComment"># primitives->name = "increment"</span> -<span id="L36589" class="LineNr">36589 </span> 8d/copy-address *(edi+4) 0/r32/eax <span class="subxComment"># Primitive-name + 4</span> -<span id="L36590" class="LineNr">36590 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %eax) -<span id="L36591" class="LineNr">36591 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive2-subx-name</span>: +<span id="L36530" class="LineNr">36530 </span> 68/push 0/imm32/no-inouts +<span id="L36531" class="LineNr">36531 </span> 68/push 0/imm32/no-inouts +<span id="L36532" class="LineNr">36532 </span> 68/push 0/imm32/operation +<span id="L36533" class="LineNr">36533 </span> 68/push 0/imm32/operation +<span id="L36534" class="LineNr">36534 </span> 68/push 1/imm32 +<span id="L36535" class="LineNr">36535 </span> 89/<- %esi 4/r32/esp +<span id="L36536" class="LineNr">36536 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-stmt-operation</span>: +<span id="L36537" class="LineNr">36537 </span> <span class="subxComment"># stmt->operation = "increment"</span> +<span id="L36538" class="LineNr">36538 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L36539" class="LineNr">36539 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %eax) +<span id="L36540" class="LineNr">36540 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-formal-var</span>: +<span id="L36541" class="LineNr">36541 </span> <span class="subxComment"># var formal-var/ebx: (payload var)</span> +<span id="L36542" class="LineNr">36542 </span> 68/push 0/imm32/register +<span id="L36543" class="LineNr">36543 </span> 68/push 0/imm32/register +<span id="L36544" class="LineNr">36544 </span> 68/push 0/imm32/no-stack-offset +<span id="L36545" class="LineNr">36545 </span> 68/push 1/imm32/block-depth +<span id="L36546" class="LineNr">36546 </span> ff 6/subop/push *(ecx+0x10) <span class="subxComment"># Var-type + payload alloc id + handle alloc id</span> +<span id="L36547" class="LineNr">36547 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36548" class="LineNr">36548 </span> 68/push 0/imm32/name +<span id="L36549" class="LineNr">36549 </span> 68/push 0/imm32/name +<span id="L36550" class="LineNr">36550 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36551" class="LineNr">36551 </span> 89/<- %ebx 4/r32/esp +<span id="L36552" class="LineNr">36552 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-formal-var-name</span>: +<span id="L36553" class="LineNr">36553 </span> <span class="subxComment"># formal-var->name = "dummy"</span> +<span id="L36554" class="LineNr">36554 </span> 8d/copy-address *(ebx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L36555" class="LineNr">36555 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"dummy"</span> %eax) +<span id="L36556" class="LineNr">36556 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-formal-register</span>: +<span id="L36557" class="LineNr">36557 </span> <span class="subxComment"># formal-var->register = "*"</span> +<span id="L36558" class="LineNr">36558 </span> 8d/copy-address *(ebx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L36559" class="LineNr">36559 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"*"</span> %eax) <span class="subxComment"># Any-register</span> +<span id="L36560" class="LineNr">36560 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-var-list</span>: +<span id="L36561" class="LineNr">36561 </span> <span class="subxComment"># var formal-outputs/ebx: (payload list var)</span> +<span id="L36562" class="LineNr">36562 </span> 68/push 0/imm32/next +<span id="L36563" class="LineNr">36563 </span> 68/push 0/imm32/next +<span id="L36564" class="LineNr">36564 </span> 53/push-ebx/formal-var +<span id="L36565" class="LineNr">36565 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36566" class="LineNr">36566 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36567" class="LineNr">36567 </span> 89/<- %ebx 4/r32/esp +<span id="L36568" class="LineNr">36568 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-primitive</span>: +<span id="L36569" class="LineNr">36569 </span> <span class="subxComment"># var primitives/ebx: (addr primitive)</span> +<span id="L36570" class="LineNr">36570 </span> 68/push 0/imm32/next +<span id="L36571" class="LineNr">36571 </span> 68/push 0/imm32/next +<span id="L36572" class="LineNr">36572 </span> 68/push 0/imm32/no-x32 +<span id="L36573" class="LineNr">36573 </span> 68/push 0/imm32/no-xm32 +<span id="L36574" class="LineNr">36574 </span> 68/push 0/imm32/no-disp32 +<span id="L36575" class="LineNr">36575 </span> 68/push 0/imm32/no-imm8 +<span id="L36576" class="LineNr">36576 </span> 68/push 0/imm32/no-imm32 +<span id="L36577" class="LineNr">36577 </span> 68/push 0/imm32/no-r32 +<span id="L36578" class="LineNr">36578 </span> 68/push 3/imm32/rm32-is-first-output +<span id="L36579" class="LineNr">36579 </span> 68/push 0/imm32/subx-name +<span id="L36580" class="LineNr">36580 </span> 68/push 0/imm32/subx-name +<span id="L36581" class="LineNr">36581 </span> 53/push-ebx/outputs +<span id="L36582" class="LineNr">36582 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36583" class="LineNr">36583 </span> 68/push 0/imm32/no-inouts +<span id="L36584" class="LineNr">36584 </span> 68/push 0/imm32/no-inouts +<span id="L36585" class="LineNr">36585 </span> 68/push 0/imm32/name +<span id="L36586" class="LineNr">36586 </span> 68/push 0/imm32/name +<span id="L36587" class="LineNr">36587 </span> 89/<- %ebx 4/r32/esp +<span id="L36588" class="LineNr">36588 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-primitive-name</span>: +<span id="L36589" class="LineNr">36589 </span> <span class="subxComment"># primitives->name = "increment"</span> +<span id="L36590" class="LineNr">36590 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %ebx) <span class="subxComment"># Primitive-name</span> +<span id="L36591" class="LineNr">36591 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-primitive-subx-name</span>: <span id="L36592" class="LineNr">36592 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> -<span id="L36593" class="LineNr">36593 </span> 8d/copy-address *(edi+0x1c) 0/r32/eax <span class="subxComment"># Primitive-subx-name + 4</span> +<span id="L36593" class="LineNr">36593 </span> 8d/copy-address *(ebx+0x18) 0/r32/eax <span class="subxComment"># Primitive-subx-name</span> <span id="L36594" class="LineNr">36594 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ff 0/subop/increment"</span> %eax) -<span id="L36595" class="LineNr">36595 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive</span>: -<span id="L36596" class="LineNr">36596 </span> <span class="subxComment"># var primitives/ebx: (addr primitive)</span> -<span id="L36597" class="LineNr">36597 </span> 57/push-edi -<span id="L36598" class="LineNr">36598 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36599" class="LineNr">36599 </span> 68/push 0/imm32/no-x32 -<span id="L36600" class="LineNr">36600 </span> 68/push 0/imm32/no-xm32 -<span id="L36601" class="LineNr">36601 </span> 68/push 0/imm32/no-disp32 -<span id="L36602" class="LineNr">36602 </span> 68/push 0/imm32/no-imm8 -<span id="L36603" class="LineNr">36603 </span> 68/push 0/imm32/no-imm32 -<span id="L36604" class="LineNr">36604 </span> 68/push 0/imm32/no-r32 -<span id="L36605" class="LineNr">36605 </span> 68/push 1/imm32/rm32-is-first-inout -<span id="L36606" class="LineNr">36606 </span> 68/push 0/imm32/subx-name -<span id="L36607" class="LineNr">36607 </span> 68/push 0/imm32/subx-name -<span id="L36608" class="LineNr">36608 </span> 68/push 0/imm32/no-outputs -<span id="L36609" class="LineNr">36609 </span> 68/push 0/imm32/no-outputs -<span id="L36610" class="LineNr">36610 </span> 53/push-ebx/inouts <span class="subxComment"># hack: reuse stmt-var from call stmt as (list var) in function declaration</span> -<span id="L36611" class="LineNr">36611 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36612" class="LineNr">36612 </span> 68/push 0/imm32/name -<span id="L36613" class="LineNr">36613 </span> 68/push 0/imm32/name -<span id="L36614" class="LineNr">36614 </span> 89/<- %ebx 4/r32/esp -<span id="L36615" class="LineNr">36615 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive-name</span>: -<span id="L36616" class="LineNr">36616 </span> <span class="subxComment"># primitives->name = "increment"</span> -<span id="L36617" class="LineNr">36617 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %ebx) <span class="subxComment"># Primitive-name</span> -<span id="L36618" class="LineNr">36618 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive-subx-name</span>: -<span id="L36619" class="LineNr">36619 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> -<span id="L36620" class="LineNr">36620 </span> 8d/copy-address *(ebx+0x18) 0/r32/eax <span class="subxComment"># Primitive-subx-name</span> -<span id="L36621" class="LineNr">36621 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ff 0/subop/increment"</span> %eax) -<span id="L36622" class="LineNr">36622 </span> <span class="subxComment"># convert</span> -<span id="L36623" class="LineNr">36623 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span> 0/imm32 -<span id="L36624" class="LineNr">36624 </span> (<a href='mu.subx.html#L28630'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi %ebx 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L36625" class="LineNr">36625 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L36626" class="Folded">36626 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L36632" class="LineNr">36632 </span> <span class="subxComment"># check output</span> -<span id="L36633" class="LineNr">36633 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"ff 0/subop/increment %eax"</span> <span class="Constant">"F - test-emit-subx-stmt-select-primitive-2"</span>) -<span id="L36634" class="LineNr">36634 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L36635" class="LineNr">36635 </span> 89/<- %esp 5/r32/ebp -<span id="L36636" class="LineNr">36636 </span> 5d/pop-to-ebp -<span id="L36637" class="LineNr">36637 </span> c3/return -<span id="L36638" class="LineNr">36638 </span> -<span id="L36639" class="LineNr">36639 </span><span class="subxTest">test-increment-register</span>: -<span id="L36640" class="LineNr">36640 </span> <span class="subxComment"># Select the right register between overloads.</span> -<span id="L36641" class="LineNr">36641 </span> <span class="subxComment"># foo <- increment</span> -<span id="L36642" class="LineNr">36642 </span> <span class="subxComment"># =></span> -<span id="L36643" class="LineNr">36643 </span> <span class="subxComment"># 50/increment-eax</span> -<span id="L36644" class="LineNr">36644 </span> <span class="subxComment">#</span> -<span id="L36645" class="LineNr">36645 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> -<span id="L36646" class="LineNr">36646 </span> <span class="subxComment"># name: 'foo'</span> -<span id="L36647" class="LineNr">36647 </span> <span class="subxComment"># type: int</span> -<span id="L36648" class="LineNr">36648 </span> <span class="subxComment"># register: 'eax'</span> -<span id="L36649" class="LineNr">36649 </span> <span class="subxComment">#</span> -<span id="L36650" class="LineNr">36650 </span> <span class="subxComment"># Primitives are the global definitions.</span> -<span id="L36651" class="LineNr">36651 </span> <span class="subxComment">#</span> -<span id="L36652" class="LineNr">36652 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L36653" class="LineNr">36653 </span> 55/push-ebp -<span id="L36654" class="LineNr">36654 </span> 89/<- %ebp 4/r32/esp -<span id="L36655" class="LineNr">36655 </span> <span class="subxComment"># setup</span> -<span id="L36656" class="LineNr">36656 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L36657" class="LineNr">36657 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L36658" class="LineNr">36658 </span><span class="Constant">$test-increment-register:initialize-type</span>: -<span id="L36659" class="LineNr">36659 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L36660" class="LineNr">36660 </span> 68/push 0/imm32/right:null -<span id="L36661" class="LineNr">36661 </span> 68/push 0/imm32/right:null -<span id="L36662" class="LineNr">36662 </span> 68/push 0/imm32/left:unused -<span id="L36663" class="LineNr">36663 </span> 68/push 1/imm32/value:int -<span id="L36664" class="LineNr">36664 </span> 68/push 1/imm32/is-atom?:true -<span id="L36665" class="LineNr">36665 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36666" class="LineNr">36666 </span> 89/<- %ecx 4/r32/esp -<span id="L36667" class="LineNr">36667 </span><span class="Constant">$test-increment-register:initialize-var</span>: -<span id="L36668" class="LineNr">36668 </span> <span class="subxComment"># var var-foo/ecx: (payload var)</span> -<span id="L36669" class="LineNr">36669 </span> 68/push 0/imm32/register -<span id="L36670" class="LineNr">36670 </span> 68/push 0/imm32/register -<span id="L36671" class="LineNr">36671 </span> 68/push 0/imm32/no-stack-offset -<span id="L36672" class="LineNr">36672 </span> 68/push 1/imm32/block-depth -<span id="L36673" class="LineNr">36673 </span> 51/push-ecx -<span id="L36674" class="LineNr">36674 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36675" class="LineNr">36675 </span> 68/push 0/imm32/name -<span id="L36676" class="LineNr">36676 </span> 68/push 0/imm32/name -<span id="L36677" class="LineNr">36677 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36678" class="LineNr">36678 </span> 89/<- %ecx 4/r32/esp -<span id="L36679" class="LineNr">36679 </span><span class="Constant">$test-increment-register:initialize-var-name</span>: -<span id="L36680" class="LineNr">36680 </span> <span class="subxComment"># var-foo->name = "foo"</span> -<span id="L36681" class="LineNr">36681 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L36682" class="LineNr">36682 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"foo"</span> %eax) -<span id="L36683" class="LineNr">36683 </span><span class="Constant">$test-increment-register:initialize-var-register</span>: -<span id="L36684" class="LineNr">36684 </span> <span class="subxComment"># var-foo->register = "eax"</span> -<span id="L36685" class="LineNr">36685 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L36686" class="LineNr">36686 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) -<span id="L36687" class="LineNr">36687 </span><span class="Constant">$test-increment-register:initialize-stmt-var</span>: -<span id="L36688" class="LineNr">36688 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var)</span> -<span id="L36689" class="LineNr">36689 </span> 68/push 0/imm32/is-deref:false -<span id="L36690" class="LineNr">36690 </span> 68/push 0/imm32/next -<span id="L36691" class="LineNr">36691 </span> 68/push 0/imm32/next -<span id="L36692" class="LineNr">36692 </span> 51/push-ecx/var-foo -<span id="L36693" class="LineNr">36693 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36694" class="LineNr">36694 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36695" class="LineNr">36695 </span> 89/<- %ebx 4/r32/esp -<span id="L36696" class="LineNr">36696 </span><span class="Constant">$test-increment-register:initialize-stmt</span>: -<span id="L36697" class="LineNr">36697 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L36698" class="LineNr">36698 </span> 53/push-ebx/outputs -<span id="L36699" class="LineNr">36699 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36700" class="LineNr">36700 </span> 68/push 0/imm32/no-inouts -<span id="L36701" class="LineNr">36701 </span> 68/push 0/imm32/no-inouts -<span id="L36702" class="LineNr">36702 </span> 68/push 0/imm32/operation -<span id="L36703" class="LineNr">36703 </span> 68/push 0/imm32/operation -<span id="L36704" class="LineNr">36704 </span> 68/push 1/imm32 -<span id="L36705" class="LineNr">36705 </span> 89/<- %esi 4/r32/esp -<span id="L36706" class="LineNr">36706 </span><span class="Constant">$test-increment-register:initialize-stmt-operation</span>: -<span id="L36707" class="LineNr">36707 </span> <span class="subxComment"># stmt->operation = "increment"</span> -<span id="L36708" class="LineNr">36708 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L36709" class="LineNr">36709 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %eax) -<span id="L36710" class="LineNr">36710 </span> <span class="subxComment"># convert</span> -<span id="L36711" class="LineNr">36711 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span> 0/imm32 -<span id="L36712" class="LineNr">36712 </span> (<a href='mu.subx.html#L28630'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L30394'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L36713" class="LineNr">36713 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L36714" class="Folded">36714 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L36720" class="LineNr">36720 </span> <span class="subxComment"># check output</span> -<span id="L36721" class="LineNr">36721 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"40/increment-eax"</span> <span class="Constant">"F - test-increment-register"</span>) -<span id="L36722" class="LineNr">36722 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L36723" class="LineNr">36723 </span> 89/<- %esp 5/r32/ebp -<span id="L36724" class="LineNr">36724 </span> 5d/pop-to-ebp -<span id="L36725" class="LineNr">36725 </span> c3/return -<span id="L36726" class="LineNr">36726 </span> -<span id="L36727" class="LineNr">36727 </span><span class="subxTest">test-add-reg-to-reg</span>: -<span id="L36728" class="LineNr">36728 </span> <span class="subxComment"># var1/reg <- add var2/reg</span> -<span id="L36729" class="LineNr">36729 </span> <span class="subxComment"># =></span> -<span id="L36730" class="LineNr">36730 </span> <span class="subxComment"># 01/add-to %var1 var2</span> -<span id="L36731" class="LineNr">36731 </span> <span class="subxComment">#</span> -<span id="L36732" class="LineNr">36732 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L36733" class="LineNr">36733 </span> 55/push-ebp -<span id="L36734" class="LineNr">36734 </span> 89/<- %ebp 4/r32/esp -<span id="L36735" class="LineNr">36735 </span> <span class="subxComment"># setup</span> -<span id="L36736" class="LineNr">36736 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L36737" class="LineNr">36737 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L36738" class="LineNr">36738 </span><span class="Constant">$test-add-reg-to-reg:initialize-type</span>: -<span id="L36739" class="LineNr">36739 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L36740" class="LineNr">36740 </span> 68/push 0/imm32/right:null -<span id="L36741" class="LineNr">36741 </span> 68/push 0/imm32/right:null -<span id="L36742" class="LineNr">36742 </span> 68/push 0/imm32/left:unused -<span id="L36743" class="LineNr">36743 </span> 68/push 1/imm32/value:int -<span id="L36744" class="LineNr">36744 </span> 68/push 1/imm32/is-atom?:true -<span id="L36745" class="LineNr">36745 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36746" class="LineNr">36746 </span> 89/<- %ecx 4/r32/esp -<span id="L36747" class="LineNr">36747 </span><span class="Constant">$test-add-reg-to-reg:initialize-var1</span>: -<span id="L36748" class="LineNr">36748 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L36749" class="LineNr">36749 </span> 68/push 0/imm32/register -<span id="L36750" class="LineNr">36750 </span> 68/push 0/imm32/register -<span id="L36751" class="LineNr">36751 </span> 68/push 0/imm32/no-stack-offset -<span id="L36752" class="LineNr">36752 </span> 68/push 1/imm32/block-depth -<span id="L36753" class="LineNr">36753 </span> 51/push-ecx -<span id="L36754" class="LineNr">36754 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36755" class="LineNr">36755 </span> 68/push 0/imm32/name -<span id="L36756" class="LineNr">36756 </span> 68/push 0/imm32/name -<span id="L36757" class="LineNr">36757 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36758" class="LineNr">36758 </span> 89/<- %ecx 4/r32/esp -<span id="L36759" class="LineNr">36759 </span><span class="Constant">$test-add-reg-to-reg:initialize-var1-name</span>: -<span id="L36760" class="LineNr">36760 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L36761" class="LineNr">36761 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L36762" class="LineNr">36762 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) -<span id="L36763" class="LineNr">36763 </span><span class="Constant">$test-add-reg-to-reg:initialize-var1-register</span>: -<span id="L36764" class="LineNr">36764 </span> <span class="subxComment"># var1->register = "eax"</span> -<span id="L36765" class="LineNr">36765 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L36766" class="LineNr">36766 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) -<span id="L36767" class="LineNr">36767 </span><span class="Constant">$test-add-reg-to-reg:initialize-var2</span>: -<span id="L36768" class="LineNr">36768 </span> <span class="subxComment"># var var2/edx: (payload var)</span> -<span id="L36769" class="LineNr">36769 </span> 68/push 0/imm32/register -<span id="L36770" class="LineNr">36770 </span> 68/push 0/imm32/register -<span id="L36771" class="LineNr">36771 </span> 68/push 0/imm32/no-stack-offset -<span id="L36772" class="LineNr">36772 </span> 68/push 1/imm32/block-depth -<span id="L36773" class="LineNr">36773 </span> ff 6/subop/push *(ecx+0x10) -<span id="L36774" class="LineNr">36774 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36775" class="LineNr">36775 </span> 68/push 0/imm32/name -<span id="L36776" class="LineNr">36776 </span> 68/push 0/imm32/name -<span id="L36777" class="LineNr">36777 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36778" class="LineNr">36778 </span> 89/<- %edx 4/r32/esp -<span id="L36779" class="LineNr">36779 </span><span class="Constant">$test-add-reg-to-reg:initialize-var2-name</span>: -<span id="L36780" class="LineNr">36780 </span> <span class="subxComment"># var2->name = "var2"</span> -<span id="L36781" class="LineNr">36781 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L36782" class="LineNr">36782 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var2"</span> %eax) -<span id="L36783" class="LineNr">36783 </span><span class="Constant">$test-add-reg-to-reg:initialize-var2-register</span>: -<span id="L36784" class="LineNr">36784 </span> <span class="subxComment"># var2->register = "ecx"</span> -<span id="L36785" class="LineNr">36785 </span> 8d/copy-address *(edx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L36786" class="LineNr">36786 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ecx"</span> %eax) -<span id="L36787" class="LineNr">36787 </span><span class="Constant">$test-add-reg-to-reg:initialize-inouts</span>: -<span id="L36788" class="LineNr">36788 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> -<span id="L36789" class="LineNr">36789 </span> 68/push 0/imm32/is-deref:false -<span id="L36790" class="LineNr">36790 </span> 68/push 0/imm32/next -<span id="L36791" class="LineNr">36791 </span> 68/push 0/imm32/next -<span id="L36792" class="LineNr">36792 </span> 52/push-edx/var2 -<span id="L36793" class="LineNr">36793 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36794" class="LineNr">36794 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36795" class="LineNr">36795 </span> 89/<- %esi 4/r32/esp -<span id="L36796" class="LineNr">36796 </span><span class="Constant">$test-add-reg-to-reg:initialize-outputs</span>: -<span id="L36797" class="LineNr">36797 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [var1]</span> -<span id="L36798" class="LineNr">36798 </span> 68/push 0/imm32/is-deref:false -<span id="L36799" class="LineNr">36799 </span> 68/push 0/imm32/next -<span id="L36800" class="LineNr">36800 </span> 68/push 0/imm32/next -<span id="L36801" class="LineNr">36801 </span> 51/push-ecx/var1 -<span id="L36802" class="LineNr">36802 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36803" class="LineNr">36803 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36804" class="LineNr">36804 </span> 89/<- %edi 4/r32/esp -<span id="L36805" class="LineNr">36805 </span><span class="Constant">$test-add-reg-to-reg:initialize-stmt</span>: -<span id="L36806" class="LineNr">36806 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L36807" class="LineNr">36807 </span> 68/push 0/imm32/next -<span id="L36808" class="LineNr">36808 </span> 68/push 0/imm32/next -<span id="L36809" class="LineNr">36809 </span> 57/push-edi/outputs -<span id="L36810" class="LineNr">36810 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36811" class="LineNr">36811 </span> 56/push-esi/inouts -<span id="L36812" class="LineNr">36812 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36813" class="LineNr">36813 </span> 68/push 0/imm32/operation -<span id="L36814" class="LineNr">36814 </span> 68/push 0/imm32/operation -<span id="L36815" class="LineNr">36815 </span> 68/push 1/imm32/tag:stmt1 -<span id="L36816" class="LineNr">36816 </span> 89/<- %esi 4/r32/esp -<span id="L36817" class="LineNr">36817 </span><span class="Constant">$test-add-reg-to-reg:initialize-stmt-operation</span>: -<span id="L36818" class="LineNr">36818 </span> <span class="subxComment"># stmt->operation = "add"</span> -<span id="L36819" class="LineNr">36819 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L36820" class="LineNr">36820 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"add"</span> %eax) -<span id="L36821" class="LineNr">36821 </span> <span class="subxComment"># convert</span> -<span id="L36822" class="LineNr">36822 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span> 0/imm32 -<span id="L36823" class="LineNr">36823 </span> (<a href='mu.subx.html#L28630'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L30394'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L36824" class="LineNr">36824 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L36825" class="Folded">36825 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L36831" class="LineNr">36831 </span> <span class="subxComment"># check output</span> -<span id="L36832" class="LineNr">36832 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"01/add-to %eax 0x00000001/r32"</span> <span class="Constant">"F - test-add-reg-to-reg"</span>) -<span id="L36833" class="LineNr">36833 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L36834" class="LineNr">36834 </span> 89/<- %esp 5/r32/ebp -<span id="L36835" class="LineNr">36835 </span> 5d/pop-to-ebp -<span id="L36836" class="LineNr">36836 </span> c3/return -<span id="L36837" class="LineNr">36837 </span> -<span id="L36838" class="LineNr">36838 </span><span class="subxTest">test-add-reg-to-mem</span>: -<span id="L36839" class="LineNr">36839 </span> <span class="subxComment"># add-to var1 var2/reg</span> -<span id="L36840" class="LineNr">36840 </span> <span class="subxComment"># =></span> -<span id="L36841" class="LineNr">36841 </span> <span class="subxComment"># 01/add-to *(ebp+__) var2</span> -<span id="L36842" class="LineNr">36842 </span> <span class="subxComment">#</span> -<span id="L36843" class="LineNr">36843 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L36844" class="LineNr">36844 </span> 55/push-ebp -<span id="L36845" class="LineNr">36845 </span> 89/<- %ebp 4/r32/esp -<span id="L36846" class="LineNr">36846 </span> <span class="subxComment"># setup</span> -<span id="L36847" class="LineNr">36847 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L36848" class="LineNr">36848 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L36849" class="LineNr">36849 </span><span class="Constant">$test-add-reg-to-mem:initialize-type</span>: -<span id="L36850" class="LineNr">36850 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L36851" class="LineNr">36851 </span> 68/push 0/imm32/right:null -<span id="L36852" class="LineNr">36852 </span> 68/push 0/imm32/right:null -<span id="L36853" class="LineNr">36853 </span> 68/push 0/imm32/left:unused -<span id="L36854" class="LineNr">36854 </span> 68/push 1/imm32/value:int -<span id="L36855" class="LineNr">36855 </span> 68/push 1/imm32/is-atom?:true -<span id="L36856" class="LineNr">36856 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36857" class="LineNr">36857 </span> 89/<- %ecx 4/r32/esp -<span id="L36858" class="LineNr">36858 </span><span class="Constant">$test-add-reg-to-mem:initialize-var1</span>: -<span id="L36859" class="LineNr">36859 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L36860" class="LineNr">36860 </span> 68/push 0/imm32/register -<span id="L36861" class="LineNr">36861 </span> 68/push 0/imm32/register -<span id="L36862" class="LineNr">36862 </span> 68/push 8/imm32/stack-offset -<span id="L36863" class="LineNr">36863 </span> 68/push 1/imm32/block-depth -<span id="L36864" class="LineNr">36864 </span> 51/push-ecx -<span id="L36865" class="LineNr">36865 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36866" class="LineNr">36866 </span> 68/push 0/imm32/name -<span id="L36867" class="LineNr">36867 </span> 68/push 0/imm32/name -<span id="L36868" class="LineNr">36868 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36869" class="LineNr">36869 </span> 89/<- %ecx 4/r32/esp -<span id="L36870" class="LineNr">36870 </span><span class="Constant">$test-add-reg-to-mem:initialize-var1-name</span>: -<span id="L36871" class="LineNr">36871 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L36872" class="LineNr">36872 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L36873" class="LineNr">36873 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) -<span id="L36874" class="LineNr">36874 </span><span class="Constant">$test-add-reg-to-mem:initialize-var2</span>: -<span id="L36875" class="LineNr">36875 </span> <span class="subxComment"># var var2/edx: (payload var)</span> -<span id="L36876" class="LineNr">36876 </span> 68/push 0/imm32/register -<span id="L36877" class="LineNr">36877 </span> 68/push 0/imm32/register -<span id="L36878" class="LineNr">36878 </span> 68/push 0/imm32/no-stack-offset -<span id="L36879" class="LineNr">36879 </span> 68/push 1/imm32/block-depth -<span id="L36880" class="LineNr">36880 </span> ff 6/subop/push *(ecx+0x10) -<span id="L36881" class="LineNr">36881 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36882" class="LineNr">36882 </span> 68/push 0/imm32/name -<span id="L36883" class="LineNr">36883 </span> 68/push 0/imm32/name -<span id="L36884" class="LineNr">36884 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36885" class="LineNr">36885 </span> 89/<- %edx 4/r32/esp -<span id="L36886" class="LineNr">36886 </span><span class="Constant">$test-add-reg-to-mem:initialize-var2-name</span>: -<span id="L36887" class="LineNr">36887 </span> <span class="subxComment"># var2->name = "var2"</span> -<span id="L36888" class="LineNr">36888 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L36889" class="LineNr">36889 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var2"</span> %eax) -<span id="L36890" class="LineNr">36890 </span><span class="Constant">$test-add-reg-to-mem:initialize-var2-register</span>: -<span id="L36891" class="LineNr">36891 </span> <span class="subxComment"># var2->register = "ecx"</span> -<span id="L36892" class="LineNr">36892 </span> 8d/copy-address *(edx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L36893" class="LineNr">36893 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ecx"</span> %eax) -<span id="L36894" class="LineNr">36894 </span><span class="Constant">$test-add-reg-to-mem:initialize-inouts</span>: -<span id="L36895" class="LineNr">36895 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> -<span id="L36896" class="LineNr">36896 </span> 68/push 0/imm32/is-deref:false +<span id="L36595" class="LineNr">36595 </span> <span class="subxComment"># convert</span> +<span id="L36596" class="LineNr">36596 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span> 0/imm32 +<span id="L36597" class="LineNr">36597 </span> (<a href='mu.subx.html#L28660'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi %ebx 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L36598" class="LineNr">36598 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L36599" class="Folded">36599 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L36605" class="LineNr">36605 </span> <span class="subxComment"># check output</span> +<span id="L36606" class="LineNr">36606 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"ff 0/subop/increment %eax"</span> <span class="Constant">"F - test-emit-subx-stmt-primitive-register"</span>) +<span id="L36607" class="LineNr">36607 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36608" class="LineNr">36608 </span> 89/<- %esp 5/r32/ebp +<span id="L36609" class="LineNr">36609 </span> 5d/pop-to-ebp +<span id="L36610" class="LineNr">36610 </span> c3/return +<span id="L36611" class="LineNr">36611 </span> +<span id="L36612" class="LineNr">36612 </span><span class="subxTest">test-emit-subx-stmt-select-primitive</span>: +<span id="L36613" class="LineNr">36613 </span> <span class="subxComment"># Select the right primitive between overloads.</span> +<span id="L36614" class="LineNr">36614 </span> <span class="subxComment"># foo <- increment</span> +<span id="L36615" class="LineNr">36615 </span> <span class="subxComment"># =></span> +<span id="L36616" class="LineNr">36616 </span> <span class="subxComment"># ff 0/subop/increment %eax # sub-optimal, but should suffice</span> +<span id="L36617" class="LineNr">36617 </span> <span class="subxComment">#</span> +<span id="L36618" class="LineNr">36618 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> +<span id="L36619" class="LineNr">36619 </span> <span class="subxComment"># name: 'foo'</span> +<span id="L36620" class="LineNr">36620 </span> <span class="subxComment"># type: int</span> +<span id="L36621" class="LineNr">36621 </span> <span class="subxComment"># register: 'eax'</span> +<span id="L36622" class="LineNr">36622 </span> <span class="subxComment">#</span> +<span id="L36623" class="LineNr">36623 </span> <span class="subxComment"># There's two primitives, as follows:</span> +<span id="L36624" class="LineNr">36624 </span> <span class="subxComment"># - name: 'increment'</span> +<span id="L36625" class="LineNr">36625 </span> <span class="subxComment"># out: int/reg</span> +<span id="L36626" class="LineNr">36626 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> +<span id="L36627" class="LineNr">36627 </span> <span class="subxComment"># - name: 'increment'</span> +<span id="L36628" class="LineNr">36628 </span> <span class="subxComment"># inout: int/mem</span> +<span id="L36629" class="LineNr">36629 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> +<span id="L36630" class="LineNr">36630 </span> <span class="subxComment">#</span> +<span id="L36631" class="LineNr">36631 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36632" class="LineNr">36632 </span> 55/push-ebp +<span id="L36633" class="LineNr">36633 </span> 89/<- %ebp 4/r32/esp +<span id="L36634" class="LineNr">36634 </span> <span class="subxComment"># setup</span> +<span id="L36635" class="LineNr">36635 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L36636" class="LineNr">36636 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L36637" class="LineNr">36637 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-type</span>: +<span id="L36638" class="LineNr">36638 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L36639" class="LineNr">36639 </span> 68/push 0/imm32/right:null +<span id="L36640" class="LineNr">36640 </span> 68/push 0/imm32/right:null +<span id="L36641" class="LineNr">36641 </span> 68/push 0/imm32/left:unused +<span id="L36642" class="LineNr">36642 </span> 68/push 1/imm32/value:int +<span id="L36643" class="LineNr">36643 </span> 68/push 1/imm32/is-atom?:true +<span id="L36644" class="LineNr">36644 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36645" class="LineNr">36645 </span> 89/<- %ecx 4/r32/esp +<span id="L36646" class="LineNr">36646 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-var</span>: +<span id="L36647" class="LineNr">36647 </span> <span class="subxComment"># var var-foo/ecx: (payload var)</span> +<span id="L36648" class="LineNr">36648 </span> 68/push 0/imm32/register +<span id="L36649" class="LineNr">36649 </span> 68/push 0/imm32/register +<span id="L36650" class="LineNr">36650 </span> 68/push 0/imm32/no-stack-offset +<span id="L36651" class="LineNr">36651 </span> 68/push 1/imm32/block-depth +<span id="L36652" class="LineNr">36652 </span> 51/push-ecx +<span id="L36653" class="LineNr">36653 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36654" class="LineNr">36654 </span> 68/push 0/imm32/name +<span id="L36655" class="LineNr">36655 </span> 68/push 0/imm32/name +<span id="L36656" class="LineNr">36656 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36657" class="LineNr">36657 </span> 89/<- %ecx 4/r32/esp +<span id="L36658" class="LineNr">36658 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-var-name</span>: +<span id="L36659" class="LineNr">36659 </span> <span class="subxComment"># var-foo->name = "foo"</span> +<span id="L36660" class="LineNr">36660 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L36661" class="LineNr">36661 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"foo"</span> %eax) +<span id="L36662" class="LineNr">36662 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-var-register</span>: +<span id="L36663" class="LineNr">36663 </span> <span class="subxComment"># var-foo->register = "eax"</span> +<span id="L36664" class="LineNr">36664 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L36665" class="LineNr">36665 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) +<span id="L36666" class="LineNr">36666 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-stmt-var</span>: +<span id="L36667" class="LineNr">36667 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var)</span> +<span id="L36668" class="LineNr">36668 </span> 68/push 0/imm32/is-deref:false +<span id="L36669" class="LineNr">36669 </span> 68/push 0/imm32/next +<span id="L36670" class="LineNr">36670 </span> 68/push 0/imm32/next +<span id="L36671" class="LineNr">36671 </span> 51/push-ecx/var-foo +<span id="L36672" class="LineNr">36672 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36673" class="LineNr">36673 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36674" class="LineNr">36674 </span> 89/<- %ebx 4/r32/esp +<span id="L36675" class="LineNr">36675 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-stmt</span>: +<span id="L36676" class="LineNr">36676 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L36677" class="LineNr">36677 </span> 53/push-ebx/outputs +<span id="L36678" class="LineNr">36678 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36679" class="LineNr">36679 </span> 68/push 0/imm32/no-inouts +<span id="L36680" class="LineNr">36680 </span> 68/push 0/imm32/no-inouts +<span id="L36681" class="LineNr">36681 </span> 68/push 0/imm32/operation +<span id="L36682" class="LineNr">36682 </span> 68/push 0/imm32/operation +<span id="L36683" class="LineNr">36683 </span> 68/push 1/imm32 +<span id="L36684" class="LineNr">36684 </span> 89/<- %esi 4/r32/esp +<span id="L36685" class="LineNr">36685 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-stmt-operation</span>: +<span id="L36686" class="LineNr">36686 </span> <span class="subxComment"># stmt->operation = "increment"</span> +<span id="L36687" class="LineNr">36687 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L36688" class="LineNr">36688 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %eax) +<span id="L36689" class="LineNr">36689 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-formal-var</span>: +<span id="L36690" class="LineNr">36690 </span> <span class="subxComment"># var formal-var/ebx: (payload var)</span> +<span id="L36691" class="LineNr">36691 </span> 68/push 0/imm32/register +<span id="L36692" class="LineNr">36692 </span> 68/push 0/imm32/register +<span id="L36693" class="LineNr">36693 </span> 68/push 0/imm32/no-stack-offset +<span id="L36694" class="LineNr">36694 </span> 68/push 1/imm32/block-depth +<span id="L36695" class="LineNr">36695 </span> ff 6/subop/push *(ecx+0x10) <span class="subxComment"># Var-type + payload alloc id + handle alloc id</span> +<span id="L36696" class="LineNr">36696 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36697" class="LineNr">36697 </span> 68/push 0/imm32/name +<span id="L36698" class="LineNr">36698 </span> 68/push 0/imm32/name +<span id="L36699" class="LineNr">36699 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36700" class="LineNr">36700 </span> 89/<- %ebx 4/r32/esp +<span id="L36701" class="LineNr">36701 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-formal-var-name</span>: +<span id="L36702" class="LineNr">36702 </span> <span class="subxComment"># formal-var->name = "dummy"</span> +<span id="L36703" class="LineNr">36703 </span> 8d/copy-address *(ebx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L36704" class="LineNr">36704 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"dummy"</span> %eax) +<span id="L36705" class="LineNr">36705 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-formal-register</span>: +<span id="L36706" class="LineNr">36706 </span> <span class="subxComment"># formal-var->register = "*"</span> +<span id="L36707" class="LineNr">36707 </span> 8d/copy-address *(ebx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L36708" class="LineNr">36708 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"*"</span> %eax) <span class="subxComment"># Any-register</span> +<span id="L36709" class="LineNr">36709 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-var-list</span>: +<span id="L36710" class="LineNr">36710 </span> <span class="subxComment"># var formal-outputs/ebx: (payload list var)</span> +<span id="L36711" class="LineNr">36711 </span> 68/push 0/imm32/next +<span id="L36712" class="LineNr">36712 </span> 68/push 0/imm32/next +<span id="L36713" class="LineNr">36713 </span> 53/push-ebx/formal-var +<span id="L36714" class="LineNr">36714 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36715" class="LineNr">36715 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36716" class="LineNr">36716 </span> 89/<- %ebx 4/r32/esp +<span id="L36717" class="LineNr">36717 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive2</span>: +<span id="L36718" class="LineNr">36718 </span> <span class="subxComment"># var primitive2/edi: (payload primitive)</span> +<span id="L36719" class="LineNr">36719 </span> 68/push 0/imm32/next +<span id="L36720" class="LineNr">36720 </span> 68/push 0/imm32/next +<span id="L36721" class="LineNr">36721 </span> 68/push 0/imm32/no-x32 +<span id="L36722" class="LineNr">36722 </span> 68/push 0/imm32/no-xm32 +<span id="L36723" class="LineNr">36723 </span> 68/push 0/imm32/no-disp32 +<span id="L36724" class="LineNr">36724 </span> 68/push 0/imm32/no-imm8 +<span id="L36725" class="LineNr">36725 </span> 68/push 0/imm32/no-imm32 +<span id="L36726" class="LineNr">36726 </span> 68/push 0/imm32/no-r32 +<span id="L36727" class="LineNr">36727 </span> 68/push 3/imm32/rm32-is-first-output +<span id="L36728" class="LineNr">36728 </span> 68/push 0/imm32/subx-name +<span id="L36729" class="LineNr">36729 </span> 68/push 0/imm32/subx-name +<span id="L36730" class="LineNr">36730 </span> 53/push-ebx/outputs +<span id="L36731" class="LineNr">36731 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36732" class="LineNr">36732 </span> 68/push 0/imm32/no-inouts +<span id="L36733" class="LineNr">36733 </span> 68/push 0/imm32/no-inouts +<span id="L36734" class="LineNr">36734 </span> 68/push 0/imm32/name +<span id="L36735" class="LineNr">36735 </span> 68/push 0/imm32/name +<span id="L36736" class="LineNr">36736 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36737" class="LineNr">36737 </span> 89/<- %edi 4/r32/esp +<span id="L36738" class="LineNr">36738 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive2-name</span>: +<span id="L36739" class="LineNr">36739 </span> <span class="subxComment"># primitives->name = "increment"</span> +<span id="L36740" class="LineNr">36740 </span> 8d/copy-address *(edi+4) 0/r32/eax <span class="subxComment"># Primitive-name + 4</span> +<span id="L36741" class="LineNr">36741 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %eax) +<span id="L36742" class="LineNr">36742 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive2-subx-name</span>: +<span id="L36743" class="LineNr">36743 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> +<span id="L36744" class="LineNr">36744 </span> 8d/copy-address *(edi+0x1c) 0/r32/eax <span class="subxComment"># Primitive-subx-name + 4</span> +<span id="L36745" class="LineNr">36745 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ff 0/subop/increment"</span> %eax) +<span id="L36746" class="LineNr">36746 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive</span>: +<span id="L36747" class="LineNr">36747 </span> <span class="subxComment"># var primitives/ebx: (addr primitive)</span> +<span id="L36748" class="LineNr">36748 </span> 57/push-edi +<span id="L36749" class="LineNr">36749 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36750" class="LineNr">36750 </span> 68/push 0/imm32/no-x32 +<span id="L36751" class="LineNr">36751 </span> 68/push 0/imm32/no-xm32 +<span id="L36752" class="LineNr">36752 </span> 68/push 0/imm32/no-disp32 +<span id="L36753" class="LineNr">36753 </span> 68/push 0/imm32/no-imm8 +<span id="L36754" class="LineNr">36754 </span> 68/push 0/imm32/no-imm32 +<span id="L36755" class="LineNr">36755 </span> 68/push 0/imm32/no-r32 +<span id="L36756" class="LineNr">36756 </span> 68/push 1/imm32/rm32-is-first-inout +<span id="L36757" class="LineNr">36757 </span> 68/push 0/imm32/subx-name +<span id="L36758" class="LineNr">36758 </span> 68/push 0/imm32/subx-name +<span id="L36759" class="LineNr">36759 </span> 68/push 0/imm32/no-outputs +<span id="L36760" class="LineNr">36760 </span> 68/push 0/imm32/no-outputs +<span id="L36761" class="LineNr">36761 </span> 53/push-ebx/inouts <span class="subxComment"># hack: reuse stmt-var from call stmt as (list var) in function declaration</span> +<span id="L36762" class="LineNr">36762 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36763" class="LineNr">36763 </span> 68/push 0/imm32/name +<span id="L36764" class="LineNr">36764 </span> 68/push 0/imm32/name +<span id="L36765" class="LineNr">36765 </span> 89/<- %ebx 4/r32/esp +<span id="L36766" class="LineNr">36766 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive-name</span>: +<span id="L36767" class="LineNr">36767 </span> <span class="subxComment"># primitives->name = "increment"</span> +<span id="L36768" class="LineNr">36768 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %ebx) <span class="subxComment"># Primitive-name</span> +<span id="L36769" class="LineNr">36769 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive-subx-name</span>: +<span id="L36770" class="LineNr">36770 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> +<span id="L36771" class="LineNr">36771 </span> 8d/copy-address *(ebx+0x18) 0/r32/eax <span class="subxComment"># Primitive-subx-name</span> +<span id="L36772" class="LineNr">36772 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ff 0/subop/increment"</span> %eax) +<span id="L36773" class="LineNr">36773 </span> <span class="subxComment"># convert</span> +<span id="L36774" class="LineNr">36774 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span> 0/imm32 +<span id="L36775" class="LineNr">36775 </span> (<a href='mu.subx.html#L28660'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi %ebx 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L36776" class="LineNr">36776 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L36777" class="Folded">36777 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L36783" class="LineNr">36783 </span> <span class="subxComment"># check output</span> +<span id="L36784" class="LineNr">36784 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"ff 0/subop/increment %eax"</span> <span class="Constant">"F - test-emit-subx-stmt-select-primitive"</span>) +<span id="L36785" class="LineNr">36785 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36786" class="LineNr">36786 </span> 89/<- %esp 5/r32/ebp +<span id="L36787" class="LineNr">36787 </span> 5d/pop-to-ebp +<span id="L36788" class="LineNr">36788 </span> c3/return +<span id="L36789" class="LineNr">36789 </span> +<span id="L36790" class="LineNr">36790 </span><span class="subxTest">test-emit-subx-stmt-select-primitive-2</span>: +<span id="L36791" class="LineNr">36791 </span> <span class="subxComment"># Select the right primitive between overloads.</span> +<span id="L36792" class="LineNr">36792 </span> <span class="subxComment"># increment foo</span> +<span id="L36793" class="LineNr">36793 </span> <span class="subxComment"># =></span> +<span id="L36794" class="LineNr">36794 </span> <span class="subxComment"># ff 0/subop/increment %eax # sub-optimal, but should suffice</span> +<span id="L36795" class="LineNr">36795 </span> <span class="subxComment">#</span> +<span id="L36796" class="LineNr">36796 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> +<span id="L36797" class="LineNr">36797 </span> <span class="subxComment"># name: 'foo'</span> +<span id="L36798" class="LineNr">36798 </span> <span class="subxComment"># type: int</span> +<span id="L36799" class="LineNr">36799 </span> <span class="subxComment"># register: 'eax'</span> +<span id="L36800" class="LineNr">36800 </span> <span class="subxComment">#</span> +<span id="L36801" class="LineNr">36801 </span> <span class="subxComment"># There's two primitives, as follows:</span> +<span id="L36802" class="LineNr">36802 </span> <span class="subxComment"># - name: 'increment'</span> +<span id="L36803" class="LineNr">36803 </span> <span class="subxComment"># out: int/reg</span> +<span id="L36804" class="LineNr">36804 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> +<span id="L36805" class="LineNr">36805 </span> <span class="subxComment"># - name: 'increment'</span> +<span id="L36806" class="LineNr">36806 </span> <span class="subxComment"># inout: int/mem</span> +<span id="L36807" class="LineNr">36807 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> +<span id="L36808" class="LineNr">36808 </span> <span class="subxComment">#</span> +<span id="L36809" class="LineNr">36809 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36810" class="LineNr">36810 </span> 55/push-ebp +<span id="L36811" class="LineNr">36811 </span> 89/<- %ebp 4/r32/esp +<span id="L36812" class="LineNr">36812 </span> <span class="subxComment"># setup</span> +<span id="L36813" class="LineNr">36813 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L36814" class="LineNr">36814 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L36815" class="LineNr">36815 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-type</span>: +<span id="L36816" class="LineNr">36816 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L36817" class="LineNr">36817 </span> 68/push 0/imm32/right:null +<span id="L36818" class="LineNr">36818 </span> 68/push 0/imm32/right:null +<span id="L36819" class="LineNr">36819 </span> 68/push 0/imm32/left:unused +<span id="L36820" class="LineNr">36820 </span> 68/push 1/imm32/value:int +<span id="L36821" class="LineNr">36821 </span> 68/push 1/imm32/is-atom?:true +<span id="L36822" class="LineNr">36822 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36823" class="LineNr">36823 </span> 89/<- %ecx 4/r32/esp +<span id="L36824" class="LineNr">36824 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-var</span>: +<span id="L36825" class="LineNr">36825 </span> <span class="subxComment"># var var-foo/ecx: (payload var)</span> +<span id="L36826" class="LineNr">36826 </span> 68/push 0/imm32/register +<span id="L36827" class="LineNr">36827 </span> 68/push 0/imm32/register +<span id="L36828" class="LineNr">36828 </span> 68/push 0/imm32/no-stack-offset +<span id="L36829" class="LineNr">36829 </span> 68/push 1/imm32/block-depth +<span id="L36830" class="LineNr">36830 </span> 51/push-ecx +<span id="L36831" class="LineNr">36831 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36832" class="LineNr">36832 </span> 68/push 0/imm32/name +<span id="L36833" class="LineNr">36833 </span> 68/push 0/imm32/name +<span id="L36834" class="LineNr">36834 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36835" class="LineNr">36835 </span> 89/<- %ecx 4/r32/esp +<span id="L36836" class="LineNr">36836 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-var-name</span>: +<span id="L36837" class="LineNr">36837 </span> <span class="subxComment"># var-foo->name = "foo"</span> +<span id="L36838" class="LineNr">36838 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L36839" class="LineNr">36839 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"foo"</span> %eax) +<span id="L36840" class="LineNr">36840 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-var-register</span>: +<span id="L36841" class="LineNr">36841 </span> <span class="subxComment"># var-foo->register = "eax"</span> +<span id="L36842" class="LineNr">36842 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L36843" class="LineNr">36843 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) +<span id="L36844" class="LineNr">36844 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-stmt-var</span>: +<span id="L36845" class="LineNr">36845 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var)</span> +<span id="L36846" class="LineNr">36846 </span> 68/push 0/imm32/is-deref:false +<span id="L36847" class="LineNr">36847 </span> 68/push 0/imm32/next +<span id="L36848" class="LineNr">36848 </span> 68/push 0/imm32/next +<span id="L36849" class="LineNr">36849 </span> 51/push-ecx/var-foo +<span id="L36850" class="LineNr">36850 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36851" class="LineNr">36851 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36852" class="LineNr">36852 </span> 89/<- %ebx 4/r32/esp +<span id="L36853" class="LineNr">36853 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-stmt</span>: +<span id="L36854" class="LineNr">36854 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L36855" class="LineNr">36855 </span> 68/push 0/imm32/no-outputs +<span id="L36856" class="LineNr">36856 </span> 68/push 0/imm32/no-outputs +<span id="L36857" class="LineNr">36857 </span> 53/push-ebx/inouts +<span id="L36858" class="LineNr">36858 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36859" class="LineNr">36859 </span> 68/push 0/imm32/operation +<span id="L36860" class="LineNr">36860 </span> 68/push 0/imm32/operation +<span id="L36861" class="LineNr">36861 </span> 68/push 1/imm32 +<span id="L36862" class="LineNr">36862 </span> 89/<- %esi 4/r32/esp +<span id="L36863" class="LineNr">36863 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-stmt-operation</span>: +<span id="L36864" class="LineNr">36864 </span> <span class="subxComment"># stmt->operation = "increment"</span> +<span id="L36865" class="LineNr">36865 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L36866" class="LineNr">36866 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %eax) +<span id="L36867" class="LineNr">36867 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-formal-var</span>: +<span id="L36868" class="LineNr">36868 </span> <span class="subxComment"># var formal-var/ebx: (payload var)</span> +<span id="L36869" class="LineNr">36869 </span> 68/push 0/imm32/register +<span id="L36870" class="LineNr">36870 </span> 68/push 0/imm32/register +<span id="L36871" class="LineNr">36871 </span> 68/push 0/imm32/no-stack-offset +<span id="L36872" class="LineNr">36872 </span> 68/push 1/imm32/block-depth +<span id="L36873" class="LineNr">36873 </span> ff 6/subop/push *(ecx+0x10) <span class="subxComment"># Var-type + payload alloc id + handle alloc id</span> +<span id="L36874" class="LineNr">36874 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36875" class="LineNr">36875 </span> 68/push 0/imm32/name +<span id="L36876" class="LineNr">36876 </span> 68/push 0/imm32/name +<span id="L36877" class="LineNr">36877 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36878" class="LineNr">36878 </span> 89/<- %ebx 4/r32/esp +<span id="L36879" class="LineNr">36879 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-formal-var-name</span>: +<span id="L36880" class="LineNr">36880 </span> <span class="subxComment"># formal-var->name = "dummy"</span> +<span id="L36881" class="LineNr">36881 </span> 8d/copy-address *(ebx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L36882" class="LineNr">36882 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"dummy"</span> %eax) +<span id="L36883" class="LineNr">36883 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-formal-register</span>: +<span id="L36884" class="LineNr">36884 </span> <span class="subxComment"># formal-var->register = "*"</span> +<span id="L36885" class="LineNr">36885 </span> 8d/copy-address *(ebx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L36886" class="LineNr">36886 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"*"</span> %eax) <span class="subxComment"># Any-register</span> +<span id="L36887" class="LineNr">36887 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-var-list</span>: +<span id="L36888" class="LineNr">36888 </span> <span class="subxComment"># var formal-outputs/ebx: (payload list stmt-var)</span> +<span id="L36889" class="LineNr">36889 </span> 68/push 0/imm32/next +<span id="L36890" class="LineNr">36890 </span> 68/push 0/imm32/next +<span id="L36891" class="LineNr">36891 </span> 53/push-ebx/formal-var +<span id="L36892" class="LineNr">36892 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36893" class="LineNr">36893 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36894" class="LineNr">36894 </span> 89/<- %ebx 4/r32/esp +<span id="L36895" class="LineNr">36895 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive2</span>: +<span id="L36896" class="LineNr">36896 </span> <span class="subxComment"># var primitive2/edi: (payload primitive)</span> <span id="L36897" class="LineNr">36897 </span> 68/push 0/imm32/next <span id="L36898" class="LineNr">36898 </span> 68/push 0/imm32/next -<span id="L36899" class="LineNr">36899 </span> 52/push-edx/var2 -<span id="L36900" class="LineNr">36900 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36901" class="LineNr">36901 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36902" class="LineNr">36902 </span> 89/<- %esi 4/r32/esp -<span id="L36903" class="LineNr">36903 </span> <span class="subxComment"># inouts = [var1, var2]</span> -<span id="L36904" class="LineNr">36904 </span> 68/push 0/imm32/is-deref:false -<span id="L36905" class="LineNr">36905 </span> 56/push-esi/next -<span id="L36906" class="LineNr">36906 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36907" class="LineNr">36907 </span> 51/push-ecx/var1 -<span id="L36908" class="LineNr">36908 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36909" class="LineNr">36909 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36910" class="LineNr">36910 </span> 89/<- %esi 4/r32/esp -<span id="L36911" class="LineNr">36911 </span><span class="Constant">$test-add-reg-to-mem:initialize-stmt</span>: -<span id="L36912" class="LineNr">36912 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L36913" class="LineNr">36913 </span> 68/push 0/imm32/next -<span id="L36914" class="LineNr">36914 </span> 68/push 0/imm32/next -<span id="L36915" class="LineNr">36915 </span> 68/push 0/imm32/outputs -<span id="L36916" class="LineNr">36916 </span> 68/push 0/imm32/outputs -<span id="L36917" class="LineNr">36917 </span> 56/push-esi/inouts -<span id="L36918" class="LineNr">36918 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36919" class="LineNr">36919 </span> 68/push 0/imm32/operation -<span id="L36920" class="LineNr">36920 </span> 68/push 0/imm32/operation -<span id="L36921" class="LineNr">36921 </span> 68/push 1/imm32/tag:stmt1 -<span id="L36922" class="LineNr">36922 </span> 89/<- %esi 4/r32/esp -<span id="L36923" class="LineNr">36923 </span><span class="Constant">$test-add-reg-to-mem:initialize-stmt-operation</span>: -<span id="L36924" class="LineNr">36924 </span> <span class="subxComment"># stmt->operation = "add-to"</span> -<span id="L36925" class="LineNr">36925 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L36926" class="LineNr">36926 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"add-to"</span> %eax) -<span id="L36927" class="LineNr">36927 </span> <span class="subxComment"># convert</span> -<span id="L36928" class="LineNr">36928 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span> 0/imm32 -<span id="L36929" class="LineNr">36929 </span> (<a href='mu.subx.html#L28630'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L30394'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L36930" class="LineNr">36930 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L36931" class="Folded">36931 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L36937" class="LineNr">36937 </span> <span class="subxComment"># check output</span> -<span id="L36938" class="LineNr">36938 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"01/add-to *(ebp+0x00000008) 0x00000001/r32"</span> <span class="Constant">"F - test-add-reg-to-mem"</span>) -<span id="L36939" class="LineNr">36939 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L36940" class="LineNr">36940 </span> 89/<- %esp 5/r32/ebp -<span id="L36941" class="LineNr">36941 </span> 5d/pop-to-ebp -<span id="L36942" class="LineNr">36942 </span> c3/return -<span id="L36943" class="LineNr">36943 </span> -<span id="L36944" class="LineNr">36944 </span><span class="subxTest">test-add-mem-to-reg</span>: -<span id="L36945" class="LineNr">36945 </span> <span class="subxComment"># var1/reg <- add var2</span> -<span id="L36946" class="LineNr">36946 </span> <span class="subxComment"># =></span> -<span id="L36947" class="LineNr">36947 </span> <span class="subxComment"># 03/add *(ebp+__) var1</span> -<span id="L36948" class="LineNr">36948 </span> <span class="subxComment">#</span> -<span id="L36949" class="LineNr">36949 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L36950" class="LineNr">36950 </span> 55/push-ebp -<span id="L36951" class="LineNr">36951 </span> 89/<- %ebp 4/r32/esp -<span id="L36952" class="LineNr">36952 </span> <span class="subxComment"># setup</span> -<span id="L36953" class="LineNr">36953 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L36954" class="LineNr">36954 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L36955" class="LineNr">36955 </span><span class="Constant">$test-add-mem-to-reg:initialize-type</span>: -<span id="L36956" class="LineNr">36956 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L36957" class="LineNr">36957 </span> 68/push 0/imm32/right:null -<span id="L36958" class="LineNr">36958 </span> 68/push 0/imm32/right:null -<span id="L36959" class="LineNr">36959 </span> 68/push 0/imm32/left:unused -<span id="L36960" class="LineNr">36960 </span> 68/push 1/imm32/value:int -<span id="L36961" class="LineNr">36961 </span> 68/push 1/imm32/is-atom?:true -<span id="L36962" class="LineNr">36962 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36963" class="LineNr">36963 </span> 89/<- %ecx 4/r32/esp -<span id="L36964" class="LineNr">36964 </span><span class="Constant">$test-add-mem-to-reg:initialize-var</span>: -<span id="L36965" class="LineNr">36965 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L36966" class="LineNr">36966 </span> 68/push 0/imm32/register -<span id="L36967" class="LineNr">36967 </span> 68/push 0/imm32/register -<span id="L36968" class="LineNr">36968 </span> 68/push 0/imm32/no-stack-offset -<span id="L36969" class="LineNr">36969 </span> 68/push 1/imm32/block-depth -<span id="L36970" class="LineNr">36970 </span> 51/push-ecx -<span id="L36971" class="LineNr">36971 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36972" class="LineNr">36972 </span> 68/push 0/imm32/name -<span id="L36973" class="LineNr">36973 </span> 68/push 0/imm32/name -<span id="L36974" class="LineNr">36974 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36975" class="LineNr">36975 </span> 89/<- %ecx 4/r32/esp -<span id="L36976" class="LineNr">36976 </span><span class="Constant">$test-add-mem-to-reg:initialize-var-name</span>: -<span id="L36977" class="LineNr">36977 </span> <span class="subxComment"># var1->name = "foo"</span> -<span id="L36978" class="LineNr">36978 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L36979" class="LineNr">36979 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) -<span id="L36980" class="LineNr">36980 </span><span class="Constant">$test-add-mem-to-reg:initialize-var-register</span>: -<span id="L36981" class="LineNr">36981 </span> <span class="subxComment"># var1->register = "eax"</span> -<span id="L36982" class="LineNr">36982 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L36983" class="LineNr">36983 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) -<span id="L36984" class="LineNr">36984 </span><span class="Constant">$test-add-mem-to-reg:initialize-var2</span>: -<span id="L36985" class="LineNr">36985 </span> <span class="subxComment"># var var2/edx: (payload var)</span> -<span id="L36986" class="LineNr">36986 </span> 68/push 0/imm32/register -<span id="L36987" class="LineNr">36987 </span> 68/push 0/imm32/register -<span id="L36988" class="LineNr">36988 </span> 68/push 8/imm32/stack-offset -<span id="L36989" class="LineNr">36989 </span> 68/push 1/imm32/block-depth -<span id="L36990" class="LineNr">36990 </span> ff 6/subop/push *(ecx+0x10) -<span id="L36991" class="LineNr">36991 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36992" class="LineNr">36992 </span> 68/push 0/imm32/name -<span id="L36993" class="LineNr">36993 </span> 68/push 0/imm32/name +<span id="L36899" class="LineNr">36899 </span> 68/push 0/imm32/no-x32 +<span id="L36900" class="LineNr">36900 </span> 68/push 0/imm32/no-xm32 +<span id="L36901" class="LineNr">36901 </span> 68/push 0/imm32/no-disp32 +<span id="L36902" class="LineNr">36902 </span> 68/push 0/imm32/no-imm8 +<span id="L36903" class="LineNr">36903 </span> 68/push 0/imm32/no-imm32 +<span id="L36904" class="LineNr">36904 </span> 68/push 0/imm32/no-r32 +<span id="L36905" class="LineNr">36905 </span> 68/push 3/imm32/rm32-is-first-output +<span id="L36906" class="LineNr">36906 </span> 68/push 0/imm32/subx-name +<span id="L36907" class="LineNr">36907 </span> 68/push 0/imm32/subx-name +<span id="L36908" class="LineNr">36908 </span> 53/push-ebx/outputs +<span id="L36909" class="LineNr">36909 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36910" class="LineNr">36910 </span> 68/push 0/imm32/no-inouts +<span id="L36911" class="LineNr">36911 </span> 68/push 0/imm32/no-inouts +<span id="L36912" class="LineNr">36912 </span> 68/push 0/imm32/name +<span id="L36913" class="LineNr">36913 </span> 68/push 0/imm32/name +<span id="L36914" class="LineNr">36914 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36915" class="LineNr">36915 </span> 89/<- %edi 4/r32/esp +<span id="L36916" class="LineNr">36916 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive2-name</span>: +<span id="L36917" class="LineNr">36917 </span> <span class="subxComment"># primitives->name = "increment"</span> +<span id="L36918" class="LineNr">36918 </span> 8d/copy-address *(edi+4) 0/r32/eax <span class="subxComment"># Primitive-name + 4</span> +<span id="L36919" class="LineNr">36919 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %eax) +<span id="L36920" class="LineNr">36920 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive2-subx-name</span>: +<span id="L36921" class="LineNr">36921 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> +<span id="L36922" class="LineNr">36922 </span> 8d/copy-address *(edi+0x1c) 0/r32/eax <span class="subxComment"># Primitive-subx-name + 4</span> +<span id="L36923" class="LineNr">36923 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ff 0/subop/increment"</span> %eax) +<span id="L36924" class="LineNr">36924 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive</span>: +<span id="L36925" class="LineNr">36925 </span> <span class="subxComment"># var primitives/ebx: (addr primitive)</span> +<span id="L36926" class="LineNr">36926 </span> 57/push-edi +<span id="L36927" class="LineNr">36927 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36928" class="LineNr">36928 </span> 68/push 0/imm32/no-x32 +<span id="L36929" class="LineNr">36929 </span> 68/push 0/imm32/no-xm32 +<span id="L36930" class="LineNr">36930 </span> 68/push 0/imm32/no-disp32 +<span id="L36931" class="LineNr">36931 </span> 68/push 0/imm32/no-imm8 +<span id="L36932" class="LineNr">36932 </span> 68/push 0/imm32/no-imm32 +<span id="L36933" class="LineNr">36933 </span> 68/push 0/imm32/no-r32 +<span id="L36934" class="LineNr">36934 </span> 68/push 1/imm32/rm32-is-first-inout +<span id="L36935" class="LineNr">36935 </span> 68/push 0/imm32/subx-name +<span id="L36936" class="LineNr">36936 </span> 68/push 0/imm32/subx-name +<span id="L36937" class="LineNr">36937 </span> 68/push 0/imm32/no-outputs +<span id="L36938" class="LineNr">36938 </span> 68/push 0/imm32/no-outputs +<span id="L36939" class="LineNr">36939 </span> 53/push-ebx/inouts <span class="subxComment"># hack: reuse stmt-var from call stmt as (list var) in function declaration</span> +<span id="L36940" class="LineNr">36940 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36941" class="LineNr">36941 </span> 68/push 0/imm32/name +<span id="L36942" class="LineNr">36942 </span> 68/push 0/imm32/name +<span id="L36943" class="LineNr">36943 </span> 89/<- %ebx 4/r32/esp +<span id="L36944" class="LineNr">36944 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive-name</span>: +<span id="L36945" class="LineNr">36945 </span> <span class="subxComment"># primitives->name = "increment"</span> +<span id="L36946" class="LineNr">36946 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %ebx) <span class="subxComment"># Primitive-name</span> +<span id="L36947" class="LineNr">36947 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive-subx-name</span>: +<span id="L36948" class="LineNr">36948 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> +<span id="L36949" class="LineNr">36949 </span> 8d/copy-address *(ebx+0x18) 0/r32/eax <span class="subxComment"># Primitive-subx-name</span> +<span id="L36950" class="LineNr">36950 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ff 0/subop/increment"</span> %eax) +<span id="L36951" class="LineNr">36951 </span> <span class="subxComment"># convert</span> +<span id="L36952" class="LineNr">36952 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span> 0/imm32 +<span id="L36953" class="LineNr">36953 </span> (<a href='mu.subx.html#L28660'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi %ebx 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L36954" class="LineNr">36954 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L36955" class="Folded">36955 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L36961" class="LineNr">36961 </span> <span class="subxComment"># check output</span> +<span id="L36962" class="LineNr">36962 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"ff 0/subop/increment %eax"</span> <span class="Constant">"F - test-emit-subx-stmt-select-primitive-2"</span>) +<span id="L36963" class="LineNr">36963 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36964" class="LineNr">36964 </span> 89/<- %esp 5/r32/ebp +<span id="L36965" class="LineNr">36965 </span> 5d/pop-to-ebp +<span id="L36966" class="LineNr">36966 </span> c3/return +<span id="L36967" class="LineNr">36967 </span> +<span id="L36968" class="LineNr">36968 </span><span class="subxTest">test-increment-register</span>: +<span id="L36969" class="LineNr">36969 </span> <span class="subxComment"># Select the right register between overloads.</span> +<span id="L36970" class="LineNr">36970 </span> <span class="subxComment"># foo <- increment</span> +<span id="L36971" class="LineNr">36971 </span> <span class="subxComment"># =></span> +<span id="L36972" class="LineNr">36972 </span> <span class="subxComment"># 50/increment-eax</span> +<span id="L36973" class="LineNr">36973 </span> <span class="subxComment">#</span> +<span id="L36974" class="LineNr">36974 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> +<span id="L36975" class="LineNr">36975 </span> <span class="subxComment"># name: 'foo'</span> +<span id="L36976" class="LineNr">36976 </span> <span class="subxComment"># type: int</span> +<span id="L36977" class="LineNr">36977 </span> <span class="subxComment"># register: 'eax'</span> +<span id="L36978" class="LineNr">36978 </span> <span class="subxComment">#</span> +<span id="L36979" class="LineNr">36979 </span> <span class="subxComment"># Primitives are the global definitions.</span> +<span id="L36980" class="LineNr">36980 </span> <span class="subxComment">#</span> +<span id="L36981" class="LineNr">36981 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36982" class="LineNr">36982 </span> 55/push-ebp +<span id="L36983" class="LineNr">36983 </span> 89/<- %ebp 4/r32/esp +<span id="L36984" class="LineNr">36984 </span> <span class="subxComment"># setup</span> +<span id="L36985" class="LineNr">36985 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L36986" class="LineNr">36986 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L36987" class="LineNr">36987 </span><span class="Constant">$test-increment-register:initialize-type</span>: +<span id="L36988" class="LineNr">36988 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L36989" class="LineNr">36989 </span> 68/push 0/imm32/right:null +<span id="L36990" class="LineNr">36990 </span> 68/push 0/imm32/right:null +<span id="L36991" class="LineNr">36991 </span> 68/push 0/imm32/left:unused +<span id="L36992" class="LineNr">36992 </span> 68/push 1/imm32/value:int +<span id="L36993" class="LineNr">36993 </span> 68/push 1/imm32/is-atom?:true <span id="L36994" class="LineNr">36994 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36995" class="LineNr">36995 </span> 89/<- %edx 4/r32/esp -<span id="L36996" class="LineNr">36996 </span><span class="Constant">$test-add-mem-to-reg:initialize-var2-name</span>: -<span id="L36997" class="LineNr">36997 </span> <span class="subxComment"># var2->name = "var2"</span> -<span id="L36998" class="LineNr">36998 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L36999" class="LineNr">36999 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var2"</span> %eax) -<span id="L37000" class="LineNr">37000 </span><span class="Constant">$test-add-mem-to-reg:initialize-inouts</span>: -<span id="L37001" class="LineNr">37001 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> -<span id="L37002" class="LineNr">37002 </span> 68/push 0/imm32/is-deref:false -<span id="L37003" class="LineNr">37003 </span> 68/push 0/imm32/next -<span id="L37004" class="LineNr">37004 </span> 68/push 0/imm32/next -<span id="L37005" class="LineNr">37005 </span> 52/push-edx/var2 -<span id="L37006" class="LineNr">37006 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37007" class="LineNr">37007 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37008" class="LineNr">37008 </span> 89/<- %esi 4/r32/esp -<span id="L37009" class="LineNr">37009 </span><span class="Constant">$test-add-mem-to-reg:initialize-outputs</span>: -<span id="L37010" class="LineNr">37010 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [var1]</span> -<span id="L37011" class="LineNr">37011 </span> 68/push 0/imm32/is-deref:false -<span id="L37012" class="LineNr">37012 </span> 68/push 0/imm32/next -<span id="L37013" class="LineNr">37013 </span> 68/push 0/imm32/next -<span id="L37014" class="LineNr">37014 </span> 51/push-ecx/var1 -<span id="L37015" class="LineNr">37015 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37016" class="LineNr">37016 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37017" class="LineNr">37017 </span> 89/<- %edi 4/r32/esp -<span id="L37018" class="LineNr">37018 </span><span class="Constant">$test-add-mem-to-reg:initialize-stmt</span>: -<span id="L37019" class="LineNr">37019 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L36995" class="LineNr">36995 </span> 89/<- %ecx 4/r32/esp +<span id="L36996" class="LineNr">36996 </span><span class="Constant">$test-increment-register:initialize-var</span>: +<span id="L36997" class="LineNr">36997 </span> <span class="subxComment"># var var-foo/ecx: (payload var)</span> +<span id="L36998" class="LineNr">36998 </span> 68/push 0/imm32/register +<span id="L36999" class="LineNr">36999 </span> 68/push 0/imm32/register +<span id="L37000" class="LineNr">37000 </span> 68/push 0/imm32/no-stack-offset +<span id="L37001" class="LineNr">37001 </span> 68/push 1/imm32/block-depth +<span id="L37002" class="LineNr">37002 </span> 51/push-ecx +<span id="L37003" class="LineNr">37003 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37004" class="LineNr">37004 </span> 68/push 0/imm32/name +<span id="L37005" class="LineNr">37005 </span> 68/push 0/imm32/name +<span id="L37006" class="LineNr">37006 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37007" class="LineNr">37007 </span> 89/<- %ecx 4/r32/esp +<span id="L37008" class="LineNr">37008 </span><span class="Constant">$test-increment-register:initialize-var-name</span>: +<span id="L37009" class="LineNr">37009 </span> <span class="subxComment"># var-foo->name = "foo"</span> +<span id="L37010" class="LineNr">37010 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37011" class="LineNr">37011 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"foo"</span> %eax) +<span id="L37012" class="LineNr">37012 </span><span class="Constant">$test-increment-register:initialize-var-register</span>: +<span id="L37013" class="LineNr">37013 </span> <span class="subxComment"># var-foo->register = "eax"</span> +<span id="L37014" class="LineNr">37014 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L37015" class="LineNr">37015 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) +<span id="L37016" class="LineNr">37016 </span><span class="Constant">$test-increment-register:initialize-stmt-var</span>: +<span id="L37017" class="LineNr">37017 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var)</span> +<span id="L37018" class="LineNr">37018 </span> 68/push 0/imm32/is-deref:false +<span id="L37019" class="LineNr">37019 </span> 68/push 0/imm32/next <span id="L37020" class="LineNr">37020 </span> 68/push 0/imm32/next -<span id="L37021" class="LineNr">37021 </span> 68/push 0/imm32/next -<span id="L37022" class="LineNr">37022 </span> 57/push-edi/outputs -<span id="L37023" class="LineNr">37023 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37024" class="LineNr">37024 </span> 56/push-esi/inouts -<span id="L37025" class="LineNr">37025 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37026" class="LineNr">37026 </span> 68/push 0/imm32/operation -<span id="L37027" class="LineNr">37027 </span> 68/push 0/imm32/operation -<span id="L37028" class="LineNr">37028 </span> 68/push 1/imm32/tag:stmt1 -<span id="L37029" class="LineNr">37029 </span> 89/<- %esi 4/r32/esp -<span id="L37030" class="LineNr">37030 </span><span class="Constant">$test-add-mem-to-reg:initialize-stmt-operation</span>: -<span id="L37031" class="LineNr">37031 </span> <span class="subxComment"># stmt->operation = "add"</span> -<span id="L37032" class="LineNr">37032 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L37033" class="LineNr">37033 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"add"</span> %eax) -<span id="L37034" class="LineNr">37034 </span> <span class="subxComment"># convert</span> -<span id="L37035" class="LineNr">37035 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span> 0/imm32 -<span id="L37036" class="LineNr">37036 </span> (<a href='mu.subx.html#L28630'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L30394'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L37037" class="LineNr">37037 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L37038" class="Folded">37038 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L37044" class="LineNr">37044 </span> <span class="subxComment"># check output</span> -<span id="L37045" class="LineNr">37045 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"03/add *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - test-add-mem-to-reg"</span>) -<span id="L37046" class="LineNr">37046 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L37047" class="LineNr">37047 </span> 89/<- %esp 5/r32/ebp -<span id="L37048" class="LineNr">37048 </span> 5d/pop-to-ebp -<span id="L37049" class="LineNr">37049 </span> c3/return -<span id="L37050" class="LineNr">37050 </span> -<span id="L37051" class="LineNr">37051 </span><span class="subxTest">test-add-literal-to-eax</span>: -<span id="L37052" class="LineNr">37052 </span> <span class="subxComment"># var1/eax <- add 0x34</span> -<span id="L37053" class="LineNr">37053 </span> <span class="subxComment"># =></span> -<span id="L37054" class="LineNr">37054 </span> <span class="subxComment"># 05/add-to-eax 0x34/imm32</span> -<span id="L37055" class="LineNr">37055 </span> <span class="subxComment">#</span> -<span id="L37056" class="LineNr">37056 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L37057" class="LineNr">37057 </span> 55/push-ebp -<span id="L37058" class="LineNr">37058 </span> 89/<- %ebp 4/r32/esp -<span id="L37059" class="LineNr">37059 </span> <span class="subxComment"># setup</span> -<span id="L37060" class="LineNr">37060 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L37061" class="LineNr">37061 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L37062" class="LineNr">37062 </span><span class="Constant">$test-add-literal-to-eax:initialize-var-type</span>: -<span id="L37063" class="LineNr">37063 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L37064" class="LineNr">37064 </span> 68/push 0/imm32/right:null -<span id="L37065" class="LineNr">37065 </span> 68/push 0/imm32/right:null -<span id="L37066" class="LineNr">37066 </span> 68/push 0/imm32/left:unused -<span id="L37067" class="LineNr">37067 </span> 68/push 1/imm32/value:int -<span id="L37068" class="LineNr">37068 </span> 68/push 1/imm32/is-atom?:true -<span id="L37069" class="LineNr">37069 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37070" class="LineNr">37070 </span> 89/<- %ecx 4/r32/esp -<span id="L37071" class="LineNr">37071 </span><span class="Constant">$test-add-literal-to-eax:initialize-var</span>: -<span id="L37072" class="LineNr">37072 </span> <span class="subxComment"># var v/ecx: (payload var)</span> -<span id="L37073" class="LineNr">37073 </span> 68/push 0/imm32/register -<span id="L37074" class="LineNr">37074 </span> 68/push 0/imm32/register -<span id="L37075" class="LineNr">37075 </span> 68/push 0/imm32/no-stack-offset -<span id="L37076" class="LineNr">37076 </span> 68/push 1/imm32/block-depth -<span id="L37077" class="LineNr">37077 </span> 51/push-ecx -<span id="L37078" class="LineNr">37078 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37079" class="LineNr">37079 </span> 68/push 0/imm32/name -<span id="L37080" class="LineNr">37080 </span> 68/push 0/imm32/name -<span id="L37081" class="LineNr">37081 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37082" class="LineNr">37082 </span> 89/<- %ecx 4/r32/esp -<span id="L37083" class="LineNr">37083 </span><span class="Constant">$test-add-literal-to-eax:initialize-var-name</span>: -<span id="L37084" class="LineNr">37084 </span> <span class="subxComment"># v->name = "v"</span> -<span id="L37085" class="LineNr">37085 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37086" class="LineNr">37086 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"v"</span> %eax) -<span id="L37087" class="LineNr">37087 </span><span class="Constant">$test-add-literal-to-eax:initialize-var-register</span>: -<span id="L37088" class="LineNr">37088 </span> <span class="subxComment"># v->register = "eax"</span> -<span id="L37089" class="LineNr">37089 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L37090" class="LineNr">37090 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) -<span id="L37091" class="LineNr">37091 </span><span class="Constant">$test-add-literal-to-eax:initialize-literal-type</span>: -<span id="L37092" class="LineNr">37092 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> -<span id="L37093" class="LineNr">37093 </span> 68/push 0/imm32/right:null -<span id="L37094" class="LineNr">37094 </span> 68/push 0/imm32/right:null -<span id="L37095" class="LineNr">37095 </span> 68/push 0/imm32/left:unused -<span id="L37096" class="LineNr">37096 </span> 68/push 0/imm32/value:literal -<span id="L37097" class="LineNr">37097 </span> 68/push 1/imm32/is-atom?:true -<span id="L37098" class="LineNr">37098 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37099" class="LineNr">37099 </span> 89/<- %edx 4/r32/esp -<span id="L37100" class="LineNr">37100 </span><span class="Constant">$test-add-literal-to-eax:initialize-literal</span>: -<span id="L37101" class="LineNr">37101 </span> <span class="subxComment"># var l/edx: (payload var)</span> -<span id="L37102" class="LineNr">37102 </span> 68/push 0/imm32/register -<span id="L37103" class="LineNr">37103 </span> 68/push 0/imm32/register -<span id="L37104" class="LineNr">37104 </span> 68/push 0/imm32/no-stack-offset -<span id="L37105" class="LineNr">37105 </span> 68/push 1/imm32/block-depth -<span id="L37106" class="LineNr">37106 </span> 52/push-edx -<span id="L37107" class="LineNr">37107 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37108" class="LineNr">37108 </span> 68/push 0/imm32/name -<span id="L37109" class="LineNr">37109 </span> 68/push 0/imm32/name -<span id="L37110" class="LineNr">37110 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37111" class="LineNr">37111 </span> 89/<- %edx 4/r32/esp -<span id="L37112" class="LineNr">37112 </span><span class="Constant">$test-add-literal-to-eax:initialize-literal-value</span>: -<span id="L37113" class="LineNr">37113 </span> <span class="subxComment"># l->name = "0x34"</span> -<span id="L37114" class="LineNr">37114 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37115" class="LineNr">37115 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"0x34"</span> %eax) -<span id="L37116" class="LineNr">37116 </span><span class="Constant">$test-add-literal-to-eax:initialize-inouts</span>: -<span id="L37117" class="LineNr">37117 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> +<span id="L37021" class="LineNr">37021 </span> 51/push-ecx/var-foo +<span id="L37022" class="LineNr">37022 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37023" class="LineNr">37023 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37024" class="LineNr">37024 </span> 89/<- %ebx 4/r32/esp +<span id="L37025" class="LineNr">37025 </span><span class="Constant">$test-increment-register:initialize-stmt</span>: +<span id="L37026" class="LineNr">37026 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L37027" class="LineNr">37027 </span> 53/push-ebx/outputs +<span id="L37028" class="LineNr">37028 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37029" class="LineNr">37029 </span> 68/push 0/imm32/no-inouts +<span id="L37030" class="LineNr">37030 </span> 68/push 0/imm32/no-inouts +<span id="L37031" class="LineNr">37031 </span> 68/push 0/imm32/operation +<span id="L37032" class="LineNr">37032 </span> 68/push 0/imm32/operation +<span id="L37033" class="LineNr">37033 </span> 68/push 1/imm32 +<span id="L37034" class="LineNr">37034 </span> 89/<- %esi 4/r32/esp +<span id="L37035" class="LineNr">37035 </span><span class="Constant">$test-increment-register:initialize-stmt-operation</span>: +<span id="L37036" class="LineNr">37036 </span> <span class="subxComment"># stmt->operation = "increment"</span> +<span id="L37037" class="LineNr">37037 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L37038" class="LineNr">37038 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %eax) +<span id="L37039" class="LineNr">37039 </span> <span class="subxComment"># convert</span> +<span id="L37040" class="LineNr">37040 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span> 0/imm32 +<span id="L37041" class="LineNr">37041 </span> (<a href='mu.subx.html#L28660'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L30450'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L37042" class="LineNr">37042 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L37043" class="Folded">37043 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L37049" class="LineNr">37049 </span> <span class="subxComment"># check output</span> +<span id="L37050" class="LineNr">37050 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"40/increment-eax"</span> <span class="Constant">"F - test-increment-register"</span>) +<span id="L37051" class="LineNr">37051 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L37052" class="LineNr">37052 </span> 89/<- %esp 5/r32/ebp +<span id="L37053" class="LineNr">37053 </span> 5d/pop-to-ebp +<span id="L37054" class="LineNr">37054 </span> c3/return +<span id="L37055" class="LineNr">37055 </span> +<span id="L37056" class="LineNr">37056 </span><span class="subxTest">test-add-reg-to-reg</span>: +<span id="L37057" class="LineNr">37057 </span> <span class="subxComment"># var1/reg <- add var2/reg</span> +<span id="L37058" class="LineNr">37058 </span> <span class="subxComment"># =></span> +<span id="L37059" class="LineNr">37059 </span> <span class="subxComment"># 01/add-to %var1 var2</span> +<span id="L37060" class="LineNr">37060 </span> <span class="subxComment">#</span> +<span id="L37061" class="LineNr">37061 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L37062" class="LineNr">37062 </span> 55/push-ebp +<span id="L37063" class="LineNr">37063 </span> 89/<- %ebp 4/r32/esp +<span id="L37064" class="LineNr">37064 </span> <span class="subxComment"># setup</span> +<span id="L37065" class="LineNr">37065 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L37066" class="LineNr">37066 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L37067" class="LineNr">37067 </span><span class="Constant">$test-add-reg-to-reg:initialize-type</span>: +<span id="L37068" class="LineNr">37068 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L37069" class="LineNr">37069 </span> 68/push 0/imm32/right:null +<span id="L37070" class="LineNr">37070 </span> 68/push 0/imm32/right:null +<span id="L37071" class="LineNr">37071 </span> 68/push 0/imm32/left:unused +<span id="L37072" class="LineNr">37072 </span> 68/push 1/imm32/value:int +<span id="L37073" class="LineNr">37073 </span> 68/push 1/imm32/is-atom?:true +<span id="L37074" class="LineNr">37074 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37075" class="LineNr">37075 </span> 89/<- %ecx 4/r32/esp +<span id="L37076" class="LineNr">37076 </span><span class="Constant">$test-add-reg-to-reg:initialize-var1</span>: +<span id="L37077" class="LineNr">37077 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L37078" class="LineNr">37078 </span> 68/push 0/imm32/register +<span id="L37079" class="LineNr">37079 </span> 68/push 0/imm32/register +<span id="L37080" class="LineNr">37080 </span> 68/push 0/imm32/no-stack-offset +<span id="L37081" class="LineNr">37081 </span> 68/push 1/imm32/block-depth +<span id="L37082" class="LineNr">37082 </span> 51/push-ecx +<span id="L37083" class="LineNr">37083 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37084" class="LineNr">37084 </span> 68/push 0/imm32/name +<span id="L37085" class="LineNr">37085 </span> 68/push 0/imm32/name +<span id="L37086" class="LineNr">37086 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37087" class="LineNr">37087 </span> 89/<- %ecx 4/r32/esp +<span id="L37088" class="LineNr">37088 </span><span class="Constant">$test-add-reg-to-reg:initialize-var1-name</span>: +<span id="L37089" class="LineNr">37089 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L37090" class="LineNr">37090 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37091" class="LineNr">37091 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) +<span id="L37092" class="LineNr">37092 </span><span class="Constant">$test-add-reg-to-reg:initialize-var1-register</span>: +<span id="L37093" class="LineNr">37093 </span> <span class="subxComment"># var1->register = "eax"</span> +<span id="L37094" class="LineNr">37094 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L37095" class="LineNr">37095 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) +<span id="L37096" class="LineNr">37096 </span><span class="Constant">$test-add-reg-to-reg:initialize-var2</span>: +<span id="L37097" class="LineNr">37097 </span> <span class="subxComment"># var var2/edx: (payload var)</span> +<span id="L37098" class="LineNr">37098 </span> 68/push 0/imm32/register +<span id="L37099" class="LineNr">37099 </span> 68/push 0/imm32/register +<span id="L37100" class="LineNr">37100 </span> 68/push 0/imm32/no-stack-offset +<span id="L37101" class="LineNr">37101 </span> 68/push 1/imm32/block-depth +<span id="L37102" class="LineNr">37102 </span> ff 6/subop/push *(ecx+0x10) +<span id="L37103" class="LineNr">37103 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37104" class="LineNr">37104 </span> 68/push 0/imm32/name +<span id="L37105" class="LineNr">37105 </span> 68/push 0/imm32/name +<span id="L37106" class="LineNr">37106 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37107" class="LineNr">37107 </span> 89/<- %edx 4/r32/esp +<span id="L37108" class="LineNr">37108 </span><span class="Constant">$test-add-reg-to-reg:initialize-var2-name</span>: +<span id="L37109" class="LineNr">37109 </span> <span class="subxComment"># var2->name = "var2"</span> +<span id="L37110" class="LineNr">37110 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37111" class="LineNr">37111 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var2"</span> %eax) +<span id="L37112" class="LineNr">37112 </span><span class="Constant">$test-add-reg-to-reg:initialize-var2-register</span>: +<span id="L37113" class="LineNr">37113 </span> <span class="subxComment"># var2->register = "ecx"</span> +<span id="L37114" class="LineNr">37114 </span> 8d/copy-address *(edx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L37115" class="LineNr">37115 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ecx"</span> %eax) +<span id="L37116" class="LineNr">37116 </span><span class="Constant">$test-add-reg-to-reg:initialize-inouts</span>: +<span id="L37117" class="LineNr">37117 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> <span id="L37118" class="LineNr">37118 </span> 68/push 0/imm32/is-deref:false <span id="L37119" class="LineNr">37119 </span> 68/push 0/imm32/next <span id="L37120" class="LineNr">37120 </span> 68/push 0/imm32/next -<span id="L37121" class="LineNr">37121 </span> 52/push-edx/l +<span id="L37121" class="LineNr">37121 </span> 52/push-edx/var2 <span id="L37122" class="LineNr">37122 </span> 68/push 0x11/imm32/alloc-id:fake <span id="L37123" class="LineNr">37123 </span> 68/push 0x11/imm32/alloc-id:fake:payload <span id="L37124" class="LineNr">37124 </span> 89/<- %esi 4/r32/esp -<span id="L37125" class="LineNr">37125 </span><span class="Constant">$test-add-literal-to-eax:initialize-outputs</span>: -<span id="L37126" class="LineNr">37126 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [v]</span> +<span id="L37125" class="LineNr">37125 </span><span class="Constant">$test-add-reg-to-reg:initialize-outputs</span>: +<span id="L37126" class="LineNr">37126 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [var1]</span> <span id="L37127" class="LineNr">37127 </span> 68/push 0/imm32/is-deref:false <span id="L37128" class="LineNr">37128 </span> 68/push 0/imm32/next <span id="L37129" class="LineNr">37129 </span> 68/push 0/imm32/next -<span id="L37130" class="LineNr">37130 </span> 51/push-ecx/v +<span id="L37130" class="LineNr">37130 </span> 51/push-ecx/var1 <span id="L37131" class="LineNr">37131 </span> 68/push 0x11/imm32/alloc-id:fake <span id="L37132" class="LineNr">37132 </span> 68/push 0x11/imm32/alloc-id:fake:payload <span id="L37133" class="LineNr">37133 </span> 89/<- %edi 4/r32/esp -<span id="L37134" class="LineNr">37134 </span><span class="Constant">$test-add-literal-to-eax:initialize-stmt</span>: +<span id="L37134" class="LineNr">37134 </span><span class="Constant">$test-add-reg-to-reg:initialize-stmt</span>: <span id="L37135" class="LineNr">37135 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> <span id="L37136" class="LineNr">37136 </span> 68/push 0/imm32/next <span id="L37137" class="LineNr">37137 </span> 68/push 0/imm32/next @@ -35478,26 +35493,26 @@ if ('onhashchange' in window) { <span id="L37143" class="LineNr">37143 </span> 68/push 0/imm32/operation <span id="L37144" class="LineNr">37144 </span> 68/push 1/imm32/tag:stmt1 <span id="L37145" class="LineNr">37145 </span> 89/<- %esi 4/r32/esp -<span id="L37146" class="LineNr">37146 </span><span class="Constant">$test-add-literal-to-eax:initialize-stmt-operation</span>: +<span id="L37146" class="LineNr">37146 </span><span class="Constant">$test-add-reg-to-reg:initialize-stmt-operation</span>: <span id="L37147" class="LineNr">37147 </span> <span class="subxComment"># stmt->operation = "add"</span> <span id="L37148" class="LineNr">37148 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> <span id="L37149" class="LineNr">37149 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"add"</span> %eax) <span id="L37150" class="LineNr">37150 </span> <span class="subxComment"># convert</span> -<span id="L37151" class="LineNr">37151 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span> 0/imm32 -<span id="L37152" class="LineNr">37152 </span> (<a href='mu.subx.html#L28630'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L30394'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L37151" class="LineNr">37151 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span> 0/imm32 +<span id="L37152" class="LineNr">37152 </span> (<a href='mu.subx.html#L28660'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L30450'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) <span id="L37153" class="LineNr">37153 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L37154" class="Folded">37154 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L37160" class="LineNr">37160 </span> <span class="subxComment"># check output</span> -<span id="L37161" class="LineNr">37161 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"05/add-to-eax 0x34/imm32"</span> <span class="Constant">"F - test-add-literal-to-eax"</span>) +<span id="L37161" class="LineNr">37161 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"01/add-to %eax 0x00000001/r32"</span> <span class="Constant">"F - test-add-reg-to-reg"</span>) <span id="L37162" class="LineNr">37162 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L37163" class="LineNr">37163 </span> 89/<- %esp 5/r32/ebp <span id="L37164" class="LineNr">37164 </span> 5d/pop-to-ebp <span id="L37165" class="LineNr">37165 </span> c3/return <span id="L37166" class="LineNr">37166 </span> -<span id="L37167" class="LineNr">37167 </span><span class="subxTest">test-add-literal-to-reg</span>: -<span id="L37168" class="LineNr">37168 </span> <span class="subxComment"># var1/ecx <- add 0x34</span> +<span id="L37167" class="LineNr">37167 </span><span class="subxTest">test-add-reg-to-mem</span>: +<span id="L37168" class="LineNr">37168 </span> <span class="subxComment"># add-to var1 var2/reg</span> <span id="L37169" class="LineNr">37169 </span> <span class="subxComment"># =></span> -<span id="L37170" class="LineNr">37170 </span> <span class="subxComment"># 81 0/subop/add %ecx 0x34/imm32</span> +<span id="L37170" class="LineNr">37170 </span> <span class="subxComment"># 01/add-to *(ebp+__) var2</span> <span id="L37171" class="LineNr">37171 </span> <span class="subxComment">#</span> <span id="L37172" class="LineNr">37172 </span> <span class="subxS1Comment"># . prologue</span> <span id="L37173" class="LineNr">37173 </span> 55/push-ebp @@ -35505,7 +35520,7 @@ if ('onhashchange' in window) { <span id="L37175" class="LineNr">37175 </span> <span class="subxComment"># setup</span> <span id="L37176" class="LineNr">37176 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) <span id="L37177" class="LineNr">37177 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L37178" class="LineNr">37178 </span><span class="Constant">$test-add-literal-to-reg:initialize-var-type</span>: +<span id="L37178" class="LineNr">37178 </span><span class="Constant">$test-add-reg-to-mem:initialize-type</span>: <span id="L37179" class="LineNr">37179 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> <span id="L37180" class="LineNr">37180 </span> 68/push 0/imm32/right:null <span id="L37181" class="LineNr">37181 </span> 68/push 0/imm32/right:null @@ -35514,11 +35529,11 @@ if ('onhashchange' in window) { <span id="L37184" class="LineNr">37184 </span> 68/push 1/imm32/is-atom?:true <span id="L37185" class="LineNr">37185 </span> 68/push 0x11/imm32/alloc-id:fake:payload <span id="L37186" class="LineNr">37186 </span> 89/<- %ecx 4/r32/esp -<span id="L37187" class="LineNr">37187 </span><span class="Constant">$test-add-literal-to-reg:initialize-var</span>: -<span id="L37188" class="LineNr">37188 </span> <span class="subxComment"># var v/ecx: (payload var)</span> +<span id="L37187" class="LineNr">37187 </span><span class="Constant">$test-add-reg-to-mem:initialize-var1</span>: +<span id="L37188" class="LineNr">37188 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> <span id="L37189" class="LineNr">37189 </span> 68/push 0/imm32/register <span id="L37190" class="LineNr">37190 </span> 68/push 0/imm32/register -<span id="L37191" class="LineNr">37191 </span> 68/push 0/imm32/no-stack-offset +<span id="L37191" class="LineNr">37191 </span> 68/push 8/imm32/stack-offset <span id="L37192" class="LineNr">37192 </span> 68/push 1/imm32/block-depth <span id="L37193" class="LineNr">37193 </span> 51/push-ecx <span id="L37194" class="LineNr">37194 </span> 68/push 0x11/imm32/alloc-id:fake @@ -35526,1248 +35541,1562 @@ if ('onhashchange' in window) { <span id="L37196" class="LineNr">37196 </span> 68/push 0/imm32/name <span id="L37197" class="LineNr">37197 </span> 68/push 0x11/imm32/alloc-id:fake:payload <span id="L37198" class="LineNr">37198 </span> 89/<- %ecx 4/r32/esp -<span id="L37199" class="LineNr">37199 </span><span class="Constant">$test-add-literal-to-reg:initialize-var-name</span>: -<span id="L37200" class="LineNr">37200 </span> <span class="subxComment"># v->name = "v"</span> +<span id="L37199" class="LineNr">37199 </span><span class="Constant">$test-add-reg-to-mem:initialize-var1-name</span>: +<span id="L37200" class="LineNr">37200 </span> <span class="subxComment"># var1->name = "var1"</span> <span id="L37201" class="LineNr">37201 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37202" class="LineNr">37202 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"v"</span> %eax) -<span id="L37203" class="LineNr">37203 </span><span class="Constant">$test-add-literal-to-reg:initialize-var-register</span>: -<span id="L37204" class="LineNr">37204 </span> <span class="subxComment"># v->register = "ecx"</span> -<span id="L37205" class="LineNr">37205 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L37206" class="LineNr">37206 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ecx"</span> %eax) -<span id="L37207" class="LineNr">37207 </span><span class="Constant">$test-add-literal-to-reg:initialize-literal-type</span>: -<span id="L37208" class="LineNr">37208 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> -<span id="L37209" class="LineNr">37209 </span> 68/push 0/imm32/right:null -<span id="L37210" class="LineNr">37210 </span> 68/push 0/imm32/right:null -<span id="L37211" class="LineNr">37211 </span> 68/push 0/imm32/left:unused -<span id="L37212" class="LineNr">37212 </span> 68/push 0/imm32/value:literal -<span id="L37213" class="LineNr">37213 </span> 68/push 1/imm32/is-atom?:true -<span id="L37214" class="LineNr">37214 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37215" class="LineNr">37215 </span> 89/<- %edx 4/r32/esp -<span id="L37216" class="LineNr">37216 </span><span class="Constant">$test-add-literal-to-reg:initialize-literal</span>: -<span id="L37217" class="LineNr">37217 </span> <span class="subxComment"># var l/edx: (payload var)</span> -<span id="L37218" class="LineNr">37218 </span> 68/push 0/imm32/register -<span id="L37219" class="LineNr">37219 </span> 68/push 0/imm32/register -<span id="L37220" class="LineNr">37220 </span> 68/push 0/imm32/no-stack-offset -<span id="L37221" class="LineNr">37221 </span> 68/push 1/imm32/block-depth -<span id="L37222" class="LineNr">37222 </span> 52/push-edx -<span id="L37223" class="LineNr">37223 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37224" class="LineNr">37224 </span> 68/push 0/imm32/name -<span id="L37225" class="LineNr">37225 </span> 68/push 0/imm32/name -<span id="L37226" class="LineNr">37226 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37227" class="LineNr">37227 </span> 89/<- %edx 4/r32/esp -<span id="L37228" class="LineNr">37228 </span><span class="Constant">$test-add-literal-to-reg:initialize-literal-value</span>: -<span id="L37229" class="LineNr">37229 </span> <span class="subxComment"># l->name = "0x34"</span> -<span id="L37230" class="LineNr">37230 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37231" class="LineNr">37231 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"0x34"</span> %eax) -<span id="L37232" class="LineNr">37232 </span><span class="Constant">$test-add-literal-to-reg:initialize-inouts</span>: -<span id="L37233" class="LineNr">37233 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> -<span id="L37234" class="LineNr">37234 </span> 68/push 0/imm32/is-deref:false -<span id="L37235" class="LineNr">37235 </span> 68/push 0/imm32/next -<span id="L37236" class="LineNr">37236 </span> 68/push 0/imm32/next -<span id="L37237" class="LineNr">37237 </span> 52/push-edx/l -<span id="L37238" class="LineNr">37238 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37239" class="LineNr">37239 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37240" class="LineNr">37240 </span> 89/<- %esi 4/r32/esp -<span id="L37241" class="LineNr">37241 </span><span class="Constant">$test-add-literal-to-reg:initialize-outputs</span>: -<span id="L37242" class="LineNr">37242 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [v]</span> -<span id="L37243" class="LineNr">37243 </span> 68/push 0/imm32/is-deref:false -<span id="L37244" class="LineNr">37244 </span> 68/push 0/imm32/next -<span id="L37245" class="LineNr">37245 </span> 68/push 0/imm32/next -<span id="L37246" class="LineNr">37246 </span> 51/push-ecx/v +<span id="L37202" class="LineNr">37202 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) +<span id="L37203" class="LineNr">37203 </span><span class="Constant">$test-add-reg-to-mem:initialize-var2</span>: +<span id="L37204" class="LineNr">37204 </span> <span class="subxComment"># var var2/edx: (payload var)</span> +<span id="L37205" class="LineNr">37205 </span> 68/push 0/imm32/register +<span id="L37206" class="LineNr">37206 </span> 68/push 0/imm32/register +<span id="L37207" class="LineNr">37207 </span> 68/push 0/imm32/no-stack-offset +<span id="L37208" class="LineNr">37208 </span> 68/push 1/imm32/block-depth +<span id="L37209" class="LineNr">37209 </span> ff 6/subop/push *(ecx+0x10) +<span id="L37210" class="LineNr">37210 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37211" class="LineNr">37211 </span> 68/push 0/imm32/name +<span id="L37212" class="LineNr">37212 </span> 68/push 0/imm32/name +<span id="L37213" class="LineNr">37213 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37214" class="LineNr">37214 </span> 89/<- %edx 4/r32/esp +<span id="L37215" class="LineNr">37215 </span><span class="Constant">$test-add-reg-to-mem:initialize-var2-name</span>: +<span id="L37216" class="LineNr">37216 </span> <span class="subxComment"># var2->name = "var2"</span> +<span id="L37217" class="LineNr">37217 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37218" class="LineNr">37218 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var2"</span> %eax) +<span id="L37219" class="LineNr">37219 </span><span class="Constant">$test-add-reg-to-mem:initialize-var2-register</span>: +<span id="L37220" class="LineNr">37220 </span> <span class="subxComment"># var2->register = "ecx"</span> +<span id="L37221" class="LineNr">37221 </span> 8d/copy-address *(edx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L37222" class="LineNr">37222 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ecx"</span> %eax) +<span id="L37223" class="LineNr">37223 </span><span class="Constant">$test-add-reg-to-mem:initialize-inouts</span>: +<span id="L37224" class="LineNr">37224 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> +<span id="L37225" class="LineNr">37225 </span> 68/push 0/imm32/is-deref:false +<span id="L37226" class="LineNr">37226 </span> 68/push 0/imm32/next +<span id="L37227" class="LineNr">37227 </span> 68/push 0/imm32/next +<span id="L37228" class="LineNr">37228 </span> 52/push-edx/var2 +<span id="L37229" class="LineNr">37229 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37230" class="LineNr">37230 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37231" class="LineNr">37231 </span> 89/<- %esi 4/r32/esp +<span id="L37232" class="LineNr">37232 </span> <span class="subxComment"># inouts = [var1, var2]</span> +<span id="L37233" class="LineNr">37233 </span> 68/push 0/imm32/is-deref:false +<span id="L37234" class="LineNr">37234 </span> 56/push-esi/next +<span id="L37235" class="LineNr">37235 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37236" class="LineNr">37236 </span> 51/push-ecx/var1 +<span id="L37237" class="LineNr">37237 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37238" class="LineNr">37238 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37239" class="LineNr">37239 </span> 89/<- %esi 4/r32/esp +<span id="L37240" class="LineNr">37240 </span><span class="Constant">$test-add-reg-to-mem:initialize-stmt</span>: +<span id="L37241" class="LineNr">37241 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L37242" class="LineNr">37242 </span> 68/push 0/imm32/next +<span id="L37243" class="LineNr">37243 </span> 68/push 0/imm32/next +<span id="L37244" class="LineNr">37244 </span> 68/push 0/imm32/outputs +<span id="L37245" class="LineNr">37245 </span> 68/push 0/imm32/outputs +<span id="L37246" class="LineNr">37246 </span> 56/push-esi/inouts <span id="L37247" class="LineNr">37247 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37248" class="LineNr">37248 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37249" class="LineNr">37249 </span> 89/<- %edi 4/r32/esp -<span id="L37250" class="LineNr">37250 </span><span class="Constant">$test-add-literal-to-reg:initialize-stmt</span>: -<span id="L37251" class="LineNr">37251 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L37252" class="LineNr">37252 </span> 68/push 0/imm32/next -<span id="L37253" class="LineNr">37253 </span> 68/push 0/imm32/next -<span id="L37254" class="LineNr">37254 </span> 57/push-edi/outputs -<span id="L37255" class="LineNr">37255 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37256" class="LineNr">37256 </span> 56/push-esi/inouts -<span id="L37257" class="LineNr">37257 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37258" class="LineNr">37258 </span> 68/push 0/imm32/operation -<span id="L37259" class="LineNr">37259 </span> 68/push 0/imm32/operation -<span id="L37260" class="LineNr">37260 </span> 68/push 1/imm32/tag:stmt1 -<span id="L37261" class="LineNr">37261 </span> 89/<- %esi 4/r32/esp -<span id="L37262" class="LineNr">37262 </span><span class="Constant">$test-add-literal-to-reg:initialize-stmt-operation</span>: -<span id="L37263" class="LineNr">37263 </span> <span class="subxComment"># stmt->operation = "add"</span> -<span id="L37264" class="LineNr">37264 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L37265" class="LineNr">37265 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"add"</span> %eax) -<span id="L37266" class="LineNr">37266 </span> <span class="subxComment"># convert</span> -<span id="L37267" class="LineNr">37267 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span> 0/imm32 -<span id="L37268" class="LineNr">37268 </span> (<a href='mu.subx.html#L28630'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L30394'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L37269" class="LineNr">37269 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L37270" class="Folded">37270 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L37276" class="LineNr">37276 </span> <span class="subxComment"># check output</span> -<span id="L37277" class="LineNr">37277 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"81 0/subop/add %ecx 0x34/imm32"</span> <span class="Constant">"F - test-add-literal-to-reg"</span>) -<span id="L37278" class="LineNr">37278 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L37279" class="LineNr">37279 </span> 89/<- %esp 5/r32/ebp -<span id="L37280" class="LineNr">37280 </span> 5d/pop-to-ebp -<span id="L37281" class="LineNr">37281 </span> c3/return -<span id="L37282" class="LineNr">37282 </span> -<span id="L37283" class="LineNr">37283 </span><span class="subxTest">test-add-literal-to-mem</span>: -<span id="L37284" class="LineNr">37284 </span> <span class="subxComment"># add-to var1, 0x34</span> -<span id="L37285" class="LineNr">37285 </span> <span class="subxComment"># =></span> -<span id="L37286" class="LineNr">37286 </span> <span class="subxComment"># 81 0/subop/add %eax 0x34/imm32</span> -<span id="L37287" class="LineNr">37287 </span> <span class="subxComment">#</span> -<span id="L37288" class="LineNr">37288 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L37289" class="LineNr">37289 </span> 55/push-ebp -<span id="L37290" class="LineNr">37290 </span> 89/<- %ebp 4/r32/esp -<span id="L37291" class="LineNr">37291 </span> <span class="subxComment"># setup</span> -<span id="L37292" class="LineNr">37292 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L37293" class="LineNr">37293 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L37294" class="LineNr">37294 </span><span class="Constant">$test-add-literal-to-mem:initialize-type</span>: -<span id="L37295" class="LineNr">37295 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L37296" class="LineNr">37296 </span> 68/push 0/imm32/right:null -<span id="L37297" class="LineNr">37297 </span> 68/push 0/imm32/right:null -<span id="L37298" class="LineNr">37298 </span> 68/push 0/imm32/left:unused -<span id="L37299" class="LineNr">37299 </span> 68/push 1/imm32/value:int -<span id="L37300" class="LineNr">37300 </span> 68/push 1/imm32/is-atom?:true -<span id="L37301" class="LineNr">37301 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37302" class="LineNr">37302 </span> 89/<- %ecx 4/r32/esp -<span id="L37303" class="LineNr">37303 </span><span class="Constant">$test-add-literal-to-mem:initialize-var1</span>: -<span id="L37304" class="LineNr">37304 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L37305" class="LineNr">37305 </span> 68/push 0/imm32/register -<span id="L37306" class="LineNr">37306 </span> 68/push 0/imm32/register -<span id="L37307" class="LineNr">37307 </span> 68/push 8/imm32/stack-offset -<span id="L37308" class="LineNr">37308 </span> 68/push 1/imm32/block-depth -<span id="L37309" class="LineNr">37309 </span> 51/push-ecx -<span id="L37310" class="LineNr">37310 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37311" class="LineNr">37311 </span> 68/push 0/imm32/name -<span id="L37312" class="LineNr">37312 </span> 68/push 0/imm32/name -<span id="L37313" class="LineNr">37313 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37314" class="LineNr">37314 </span> 89/<- %ecx 4/r32/esp -<span id="L37315" class="LineNr">37315 </span><span class="Constant">$test-add-literal-to-mem:initialize-var1-name</span>: -<span id="L37316" class="LineNr">37316 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L37317" class="LineNr">37317 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37318" class="LineNr">37318 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) -<span id="L37319" class="LineNr">37319 </span><span class="Constant">$test-add-literal-to-mem:initialize-literal-type</span>: -<span id="L37320" class="LineNr">37320 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> -<span id="L37321" class="LineNr">37321 </span> 68/push 0/imm32/right:null -<span id="L37322" class="LineNr">37322 </span> 68/push 0/imm32/right:null -<span id="L37323" class="LineNr">37323 </span> 68/push 0/imm32/left:unused -<span id="L37324" class="LineNr">37324 </span> 68/push 0/imm32/value:literal -<span id="L37325" class="LineNr">37325 </span> 68/push 1/imm32/is-atom?:true -<span id="L37326" class="LineNr">37326 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37327" class="LineNr">37327 </span> 89/<- %edx 4/r32/esp -<span id="L37328" class="LineNr">37328 </span><span class="Constant">$test-add-literal-to-mem:initialize-literal</span>: -<span id="L37329" class="LineNr">37329 </span> <span class="subxComment"># var l/edx: (payload var)</span> -<span id="L37330" class="LineNr">37330 </span> 68/push 0/imm32/register -<span id="L37331" class="LineNr">37331 </span> 68/push 0/imm32/register -<span id="L37332" class="LineNr">37332 </span> 68/push 0/imm32/no-stack-offset -<span id="L37333" class="LineNr">37333 </span> 68/push 1/imm32/block-depth -<span id="L37334" class="LineNr">37334 </span> 52/push-edx +<span id="L37248" class="LineNr">37248 </span> 68/push 0/imm32/operation +<span id="L37249" class="LineNr">37249 </span> 68/push 0/imm32/operation +<span id="L37250" class="LineNr">37250 </span> 68/push 1/imm32/tag:stmt1 +<span id="L37251" class="LineNr">37251 </span> 89/<- %esi 4/r32/esp +<span id="L37252" class="LineNr">37252 </span><span class="Constant">$test-add-reg-to-mem:initialize-stmt-operation</span>: +<span id="L37253" class="LineNr">37253 </span> <span class="subxComment"># stmt->operation = "add-to"</span> +<span id="L37254" class="LineNr">37254 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L37255" class="LineNr">37255 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"add-to"</span> %eax) +<span id="L37256" class="LineNr">37256 </span> <span class="subxComment"># convert</span> +<span id="L37257" class="LineNr">37257 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span> 0/imm32 +<span id="L37258" class="LineNr">37258 </span> (<a href='mu.subx.html#L28660'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L30450'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L37259" class="LineNr">37259 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L37260" class="Folded">37260 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L37266" class="LineNr">37266 </span> <span class="subxComment"># check output</span> +<span id="L37267" class="LineNr">37267 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"01/add-to *(ebp+0x00000008) 0x00000001/r32"</span> <span class="Constant">"F - test-add-reg-to-mem"</span>) +<span id="L37268" class="LineNr">37268 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L37269" class="LineNr">37269 </span> 89/<- %esp 5/r32/ebp +<span id="L37270" class="LineNr">37270 </span> 5d/pop-to-ebp +<span id="L37271" class="LineNr">37271 </span> c3/return +<span id="L37272" class="LineNr">37272 </span> +<span id="L37273" class="LineNr">37273 </span><span class="subxTest">test-add-mem-to-reg</span>: +<span id="L37274" class="LineNr">37274 </span> <span class="subxComment"># var1/reg <- add var2</span> +<span id="L37275" class="LineNr">37275 </span> <span class="subxComment"># =></span> +<span id="L37276" class="LineNr">37276 </span> <span class="subxComment"># 03/add *(ebp+__) var1</span> +<span id="L37277" class="LineNr">37277 </span> <span class="subxComment">#</span> +<span id="L37278" class="LineNr">37278 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L37279" class="LineNr">37279 </span> 55/push-ebp +<span id="L37280" class="LineNr">37280 </span> 89/<- %ebp 4/r32/esp +<span id="L37281" class="LineNr">37281 </span> <span class="subxComment"># setup</span> +<span id="L37282" class="LineNr">37282 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L37283" class="LineNr">37283 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L37284" class="LineNr">37284 </span><span class="Constant">$test-add-mem-to-reg:initialize-type</span>: +<span id="L37285" class="LineNr">37285 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L37286" class="LineNr">37286 </span> 68/push 0/imm32/right:null +<span id="L37287" class="LineNr">37287 </span> 68/push 0/imm32/right:null +<span id="L37288" class="LineNr">37288 </span> 68/push 0/imm32/left:unused +<span id="L37289" class="LineNr">37289 </span> 68/push 1/imm32/value:int +<span id="L37290" class="LineNr">37290 </span> 68/push 1/imm32/is-atom?:true +<span id="L37291" class="LineNr">37291 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37292" class="LineNr">37292 </span> 89/<- %ecx 4/r32/esp +<span id="L37293" class="LineNr">37293 </span><span class="Constant">$test-add-mem-to-reg:initialize-var</span>: +<span id="L37294" class="LineNr">37294 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L37295" class="LineNr">37295 </span> 68/push 0/imm32/register +<span id="L37296" class="LineNr">37296 </span> 68/push 0/imm32/register +<span id="L37297" class="LineNr">37297 </span> 68/push 0/imm32/no-stack-offset +<span id="L37298" class="LineNr">37298 </span> 68/push 1/imm32/block-depth +<span id="L37299" class="LineNr">37299 </span> 51/push-ecx +<span id="L37300" class="LineNr">37300 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37301" class="LineNr">37301 </span> 68/push 0/imm32/name +<span id="L37302" class="LineNr">37302 </span> 68/push 0/imm32/name +<span id="L37303" class="LineNr">37303 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37304" class="LineNr">37304 </span> 89/<- %ecx 4/r32/esp +<span id="L37305" class="LineNr">37305 </span><span class="Constant">$test-add-mem-to-reg:initialize-var-name</span>: +<span id="L37306" class="LineNr">37306 </span> <span class="subxComment"># var1->name = "foo"</span> +<span id="L37307" class="LineNr">37307 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37308" class="LineNr">37308 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) +<span id="L37309" class="LineNr">37309 </span><span class="Constant">$test-add-mem-to-reg:initialize-var-register</span>: +<span id="L37310" class="LineNr">37310 </span> <span class="subxComment"># var1->register = "eax"</span> +<span id="L37311" class="LineNr">37311 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L37312" class="LineNr">37312 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) +<span id="L37313" class="LineNr">37313 </span><span class="Constant">$test-add-mem-to-reg:initialize-var2</span>: +<span id="L37314" class="LineNr">37314 </span> <span class="subxComment"># var var2/edx: (payload var)</span> +<span id="L37315" class="LineNr">37315 </span> 68/push 0/imm32/register +<span id="L37316" class="LineNr">37316 </span> 68/push 0/imm32/register +<span id="L37317" class="LineNr">37317 </span> 68/push 8/imm32/stack-offset +<span id="L37318" class="LineNr">37318 </span> 68/push 1/imm32/block-depth +<span id="L37319" class="LineNr">37319 </span> ff 6/subop/push *(ecx+0x10) +<span id="L37320" class="LineNr">37320 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37321" class="LineNr">37321 </span> 68/push 0/imm32/name +<span id="L37322" class="LineNr">37322 </span> 68/push 0/imm32/name +<span id="L37323" class="LineNr">37323 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37324" class="LineNr">37324 </span> 89/<- %edx 4/r32/esp +<span id="L37325" class="LineNr">37325 </span><span class="Constant">$test-add-mem-to-reg:initialize-var2-name</span>: +<span id="L37326" class="LineNr">37326 </span> <span class="subxComment"># var2->name = "var2"</span> +<span id="L37327" class="LineNr">37327 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37328" class="LineNr">37328 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var2"</span> %eax) +<span id="L37329" class="LineNr">37329 </span><span class="Constant">$test-add-mem-to-reg:initialize-inouts</span>: +<span id="L37330" class="LineNr">37330 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> +<span id="L37331" class="LineNr">37331 </span> 68/push 0/imm32/is-deref:false +<span id="L37332" class="LineNr">37332 </span> 68/push 0/imm32/next +<span id="L37333" class="LineNr">37333 </span> 68/push 0/imm32/next +<span id="L37334" class="LineNr">37334 </span> 52/push-edx/var2 <span id="L37335" class="LineNr">37335 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37336" class="LineNr">37336 </span> 68/push 0/imm32/name -<span id="L37337" class="LineNr">37337 </span> 68/push 0/imm32/name -<span id="L37338" class="LineNr">37338 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37339" class="LineNr">37339 </span> 89/<- %edx 4/r32/esp -<span id="L37340" class="LineNr">37340 </span><span class="Constant">$test-add-literal-to-mem:initialize-literal-value</span>: -<span id="L37341" class="LineNr">37341 </span> <span class="subxComment"># l->name = "0x34"</span> -<span id="L37342" class="LineNr">37342 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37343" class="LineNr">37343 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"0x34"</span> %eax) -<span id="L37344" class="LineNr">37344 </span><span class="Constant">$test-add-literal-to-mem:initialize-inouts</span>: -<span id="L37345" class="LineNr">37345 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> -<span id="L37346" class="LineNr">37346 </span> 68/push 0/imm32/is-deref:false -<span id="L37347" class="LineNr">37347 </span> 68/push 0/imm32/next -<span id="L37348" class="LineNr">37348 </span> 68/push 0/imm32/next -<span id="L37349" class="LineNr">37349 </span> 52/push-edx/l -<span id="L37350" class="LineNr">37350 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37351" class="LineNr">37351 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37352" class="LineNr">37352 </span> 89/<- %esi 4/r32/esp -<span id="L37353" class="LineNr">37353 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> -<span id="L37354" class="LineNr">37354 </span> 68/push 0/imm32/is-deref:false -<span id="L37355" class="LineNr">37355 </span> 56/push-esi/next -<span id="L37356" class="LineNr">37356 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37357" class="LineNr">37357 </span> 51/push-ecx/var1 -<span id="L37358" class="LineNr">37358 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37359" class="LineNr">37359 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37360" class="LineNr">37360 </span> 89/<- %esi 4/r32/esp -<span id="L37361" class="LineNr">37361 </span><span class="Constant">$test-add-literal-to-mem:initialize-stmt</span>: -<span id="L37362" class="LineNr">37362 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L37363" class="LineNr">37363 </span> 68/push 0/imm32/next -<span id="L37364" class="LineNr">37364 </span> 68/push 0/imm32/next -<span id="L37365" class="LineNr">37365 </span> 68/push 0/imm32/outputs -<span id="L37366" class="LineNr">37366 </span> 68/push 0/imm32/outputs -<span id="L37367" class="LineNr">37367 </span> 56/push-esi/inouts -<span id="L37368" class="LineNr">37368 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37369" class="LineNr">37369 </span> 68/push 0/imm32/operation -<span id="L37370" class="LineNr">37370 </span> 68/push 0/imm32/operation -<span id="L37371" class="LineNr">37371 </span> 68/push 1/imm32/tag:stmt1 -<span id="L37372" class="LineNr">37372 </span> 89/<- %esi 4/r32/esp -<span id="L37373" class="LineNr">37373 </span><span class="Constant">$test-add-literal-to-mem:initialize-stmt-operation</span>: -<span id="L37374" class="LineNr">37374 </span> <span class="subxComment"># stmt->operation = "add-to"</span> -<span id="L37375" class="LineNr">37375 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L37376" class="LineNr">37376 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"add-to"</span> %eax) -<span id="L37377" class="LineNr">37377 </span> <span class="subxComment"># convert</span> -<span id="L37378" class="LineNr">37378 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span> 0/imm32 -<span id="L37379" class="LineNr">37379 </span> (<a href='mu.subx.html#L28630'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L30394'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L37380" class="LineNr">37380 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L37381" class="Folded">37381 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L37387" class="LineNr">37387 </span> <span class="subxComment"># check output</span> -<span id="L37388" class="LineNr">37388 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"81 0/subop/add *(ebp+0x00000008) 0x34/imm32"</span> <span class="Constant">"F - test-add-literal-to-mem"</span>) -<span id="L37389" class="LineNr">37389 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L37390" class="LineNr">37390 </span> 89/<- %esp 5/r32/ebp -<span id="L37391" class="LineNr">37391 </span> 5d/pop-to-ebp -<span id="L37392" class="LineNr">37392 </span> c3/return -<span id="L37393" class="LineNr">37393 </span> -<span id="L37394" class="LineNr">37394 </span><span class="subxTest">test-shift-reg-by-literal</span>: -<span id="L37395" class="LineNr">37395 </span> <span class="subxComment"># var1/ecx <- shift-left 2</span> -<span id="L37396" class="LineNr">37396 </span> <span class="subxComment"># =></span> -<span id="L37397" class="LineNr">37397 </span> <span class="subxComment"># c1/shift 4/subop/left %ecx 2/imm8</span> -<span id="L37398" class="LineNr">37398 </span> <span class="subxComment">#</span> -<span id="L37399" class="LineNr">37399 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L37400" class="LineNr">37400 </span> 55/push-ebp -<span id="L37401" class="LineNr">37401 </span> 89/<- %ebp 4/r32/esp -<span id="L37402" class="LineNr">37402 </span> <span class="subxComment"># setup</span> -<span id="L37403" class="LineNr">37403 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L37404" class="LineNr">37404 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L37405" class="LineNr">37405 </span><span class="Constant">$test-shift-reg-by-literal:initialize-var-type</span>: -<span id="L37406" class="LineNr">37406 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L37407" class="LineNr">37407 </span> 68/push 0/imm32/right:null -<span id="L37408" class="LineNr">37408 </span> 68/push 0/imm32/right:null -<span id="L37409" class="LineNr">37409 </span> 68/push 0/imm32/left:unused -<span id="L37410" class="LineNr">37410 </span> 68/push 1/imm32/value:int -<span id="L37411" class="LineNr">37411 </span> 68/push 1/imm32/is-atom?:true -<span id="L37412" class="LineNr">37412 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37413" class="LineNr">37413 </span> 89/<- %ecx 4/r32/esp -<span id="L37414" class="LineNr">37414 </span><span class="Constant">$test-shift-reg-by-literal:initialize-var</span>: -<span id="L37415" class="LineNr">37415 </span> <span class="subxComment"># var v/ecx: (payload var)</span> -<span id="L37416" class="LineNr">37416 </span> 68/push 0/imm32/register -<span id="L37417" class="LineNr">37417 </span> 68/push 0/imm32/register -<span id="L37418" class="LineNr">37418 </span> 68/push 0/imm32/no-stack-offset -<span id="L37419" class="LineNr">37419 </span> 68/push 1/imm32/block-depth -<span id="L37420" class="LineNr">37420 </span> 51/push-ecx -<span id="L37421" class="LineNr">37421 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37422" class="LineNr">37422 </span> 68/push 0/imm32/name -<span id="L37423" class="LineNr">37423 </span> 68/push 0/imm32/name -<span id="L37424" class="LineNr">37424 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37425" class="LineNr">37425 </span> 89/<- %ecx 4/r32/esp -<span id="L37426" class="LineNr">37426 </span><span class="Constant">$test-shift-reg-by-literal:initialize-var-name</span>: -<span id="L37427" class="LineNr">37427 </span> <span class="subxComment"># v->name = "v"</span> -<span id="L37428" class="LineNr">37428 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37429" class="LineNr">37429 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"v"</span> %eax) -<span id="L37430" class="LineNr">37430 </span><span class="Constant">$test-shift-reg-by-literal:initialize-var-register</span>: -<span id="L37431" class="LineNr">37431 </span> <span class="subxComment"># v->register = "ecx"</span> -<span id="L37432" class="LineNr">37432 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L37433" class="LineNr">37433 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ecx"</span> %eax) -<span id="L37434" class="LineNr">37434 </span><span class="Constant">$test-shift-reg-by-literal:initialize-literal-type</span>: -<span id="L37435" class="LineNr">37435 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> -<span id="L37436" class="LineNr">37436 </span> 68/push 0/imm32/right:null -<span id="L37437" class="LineNr">37437 </span> 68/push 0/imm32/right:null -<span id="L37438" class="LineNr">37438 </span> 68/push 0/imm32/left:unused -<span id="L37439" class="LineNr">37439 </span> 68/push 0/imm32/value:literal -<span id="L37440" class="LineNr">37440 </span> 68/push 1/imm32/is-atom?:true -<span id="L37441" class="LineNr">37441 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37442" class="LineNr">37442 </span> 89/<- %edx 4/r32/esp -<span id="L37443" class="LineNr">37443 </span><span class="Constant">$test-shift-reg-by-literal:initialize-literal</span>: -<span id="L37444" class="LineNr">37444 </span> <span class="subxComment"># var l/edx: (payload var)</span> -<span id="L37445" class="LineNr">37445 </span> 68/push 0/imm32/register -<span id="L37446" class="LineNr">37446 </span> 68/push 0/imm32/register -<span id="L37447" class="LineNr">37447 </span> 68/push 0/imm32/no-stack-offset -<span id="L37448" class="LineNr">37448 </span> 68/push 1/imm32/block-depth -<span id="L37449" class="LineNr">37449 </span> 52/push-edx -<span id="L37450" class="LineNr">37450 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37451" class="LineNr">37451 </span> 68/push 0/imm32/name -<span id="L37452" class="LineNr">37452 </span> 68/push 0/imm32/name -<span id="L37453" class="LineNr">37453 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37454" class="LineNr">37454 </span> 89/<- %edx 4/r32/esp -<span id="L37455" class="LineNr">37455 </span><span class="Constant">$test-shift-reg-by-literal:initialize-literal-value</span>: -<span id="L37456" class="LineNr">37456 </span> <span class="subxComment"># l->name = "2"</span> -<span id="L37457" class="LineNr">37457 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37458" class="LineNr">37458 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"2"</span> %eax) -<span id="L37459" class="LineNr">37459 </span><span class="Constant">$test-shift-reg-by-literal:initialize-inouts</span>: -<span id="L37460" class="LineNr">37460 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> -<span id="L37461" class="LineNr">37461 </span> 68/push 0/imm32/is-deref:false -<span id="L37462" class="LineNr">37462 </span> 68/push 0/imm32/next -<span id="L37463" class="LineNr">37463 </span> 68/push 0/imm32/next -<span id="L37464" class="LineNr">37464 </span> 52/push-edx/l -<span id="L37465" class="LineNr">37465 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37466" class="LineNr">37466 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37467" class="LineNr">37467 </span> 89/<- %esi 4/r32/esp -<span id="L37468" class="LineNr">37468 </span><span class="Constant">$test-shift-reg-by-literal:initialize-outputs</span>: -<span id="L37469" class="LineNr">37469 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [v]</span> -<span id="L37470" class="LineNr">37470 </span> 68/push 0/imm32/is-deref:false -<span id="L37471" class="LineNr">37471 </span> 68/push 0/imm32/next -<span id="L37472" class="LineNr">37472 </span> 68/push 0/imm32/next -<span id="L37473" class="LineNr">37473 </span> 51/push-ecx/v -<span id="L37474" class="LineNr">37474 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37475" class="LineNr">37475 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37476" class="LineNr">37476 </span> 89/<- %edi 4/r32/esp -<span id="L37477" class="LineNr">37477 </span><span class="Constant">$test-shift-reg-by-literal:initialize-stmt</span>: -<span id="L37478" class="LineNr">37478 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L37479" class="LineNr">37479 </span> 68/push 0/imm32/next -<span id="L37480" class="LineNr">37480 </span> 68/push 0/imm32/next -<span id="L37481" class="LineNr">37481 </span> 57/push-edi/outputs -<span id="L37482" class="LineNr">37482 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37483" class="LineNr">37483 </span> 56/push-esi/inouts -<span id="L37484" class="LineNr">37484 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37485" class="LineNr">37485 </span> 68/push 0/imm32/operation -<span id="L37486" class="LineNr">37486 </span> 68/push 0/imm32/operation -<span id="L37487" class="LineNr">37487 </span> 68/push 1/imm32/tag:stmt1 -<span id="L37488" class="LineNr">37488 </span> 89/<- %esi 4/r32/esp -<span id="L37489" class="LineNr">37489 </span><span class="Constant">$test-shift-reg-by-literal:initialize-stmt-operation</span>: -<span id="L37490" class="LineNr">37490 </span> <span class="subxComment"># stmt->operation = "shift-left"</span> -<span id="L37491" class="LineNr">37491 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L37492" class="LineNr">37492 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"shift-left"</span> %eax) -<span id="L37493" class="LineNr">37493 </span> <span class="subxComment"># convert</span> -<span id="L37494" class="LineNr">37494 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span> 0/imm32 -<span id="L37495" class="LineNr">37495 </span> (<a href='mu.subx.html#L28630'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L30394'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L37496" class="LineNr">37496 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L37497" class="Folded">37497 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L37503" class="LineNr">37503 </span> <span class="subxComment"># check output</span> -<span id="L37504" class="LineNr">37504 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"c1/shift 4/subop/left %ecx 2/imm8"</span> <span class="Constant">"F - test-shift-reg-by-literal"</span>) -<span id="L37505" class="LineNr">37505 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L37506" class="LineNr">37506 </span> 89/<- %esp 5/r32/ebp -<span id="L37507" class="LineNr">37507 </span> 5d/pop-to-ebp -<span id="L37508" class="LineNr">37508 </span> c3/return -<span id="L37509" class="LineNr">37509 </span> -<span id="L37510" class="LineNr">37510 </span><span class="subxTest">test-shift-mem-by-literal</span>: -<span id="L37511" class="LineNr">37511 </span> <span class="subxComment"># shift-left var 3</span> -<span id="L37512" class="LineNr">37512 </span> <span class="subxComment"># =></span> -<span id="L37513" class="LineNr">37513 </span> <span class="subxComment"># c1/shift 4/subop/left *(ebp+8) 3/imm8</span> -<span id="L37514" class="LineNr">37514 </span> <span class="subxComment">#</span> -<span id="L37515" class="LineNr">37515 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L37516" class="LineNr">37516 </span> 55/push-ebp -<span id="L37517" class="LineNr">37517 </span> 89/<- %ebp 4/r32/esp -<span id="L37518" class="LineNr">37518 </span> <span class="subxComment"># setup</span> -<span id="L37519" class="LineNr">37519 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L37520" class="LineNr">37520 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L37521" class="LineNr">37521 </span><span class="Constant">$test-shift-mem-by-literal:initialize-type</span>: -<span id="L37522" class="LineNr">37522 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L37523" class="LineNr">37523 </span> 68/push 0/imm32/right:null -<span id="L37524" class="LineNr">37524 </span> 68/push 0/imm32/right:null -<span id="L37525" class="LineNr">37525 </span> 68/push 0/imm32/left:unused -<span id="L37526" class="LineNr">37526 </span> 68/push 1/imm32/value:int -<span id="L37527" class="LineNr">37527 </span> 68/push 1/imm32/is-atom?:true -<span id="L37528" class="LineNr">37528 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37529" class="LineNr">37529 </span> 89/<- %ecx 4/r32/esp -<span id="L37530" class="LineNr">37530 </span><span class="Constant">$test-shift-mem-by-literal:initialize-var1</span>: -<span id="L37531" class="LineNr">37531 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L37532" class="LineNr">37532 </span> 68/push 0/imm32/register -<span id="L37533" class="LineNr">37533 </span> 68/push 0/imm32/register -<span id="L37534" class="LineNr">37534 </span> 68/push 8/imm32/stack-offset -<span id="L37535" class="LineNr">37535 </span> 68/push 1/imm32/block-depth -<span id="L37536" class="LineNr">37536 </span> 51/push-ecx -<span id="L37537" class="LineNr">37537 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37538" class="LineNr">37538 </span> 68/push 0/imm32/name -<span id="L37539" class="LineNr">37539 </span> 68/push 0/imm32/name -<span id="L37540" class="LineNr">37540 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37541" class="LineNr">37541 </span> 89/<- %ecx 4/r32/esp -<span id="L37542" class="LineNr">37542 </span><span class="Constant">$test-shift-mem-by-literal:initialize-var1-name</span>: -<span id="L37543" class="LineNr">37543 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L37544" class="LineNr">37544 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37545" class="LineNr">37545 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) -<span id="L37546" class="LineNr">37546 </span><span class="Constant">$test-shift-mem-by-literal:initialize-literal-type</span>: -<span id="L37547" class="LineNr">37547 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> -<span id="L37548" class="LineNr">37548 </span> 68/push 0/imm32/right:null -<span id="L37549" class="LineNr">37549 </span> 68/push 0/imm32/right:null -<span id="L37550" class="LineNr">37550 </span> 68/push 0/imm32/left:unused -<span id="L37551" class="LineNr">37551 </span> 68/push 0/imm32/value:literal -<span id="L37552" class="LineNr">37552 </span> 68/push 1/imm32/is-atom?:true -<span id="L37553" class="LineNr">37553 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37554" class="LineNr">37554 </span> 89/<- %edx 4/r32/esp -<span id="L37555" class="LineNr">37555 </span><span class="Constant">$test-shift-mem-by-literal:initialize-literal</span>: -<span id="L37556" class="LineNr">37556 </span> <span class="subxComment"># var l/edx: (payload var)</span> -<span id="L37557" class="LineNr">37557 </span> 68/push 0/imm32/register -<span id="L37558" class="LineNr">37558 </span> 68/push 0/imm32/register -<span id="L37559" class="LineNr">37559 </span> 68/push 0/imm32/no-stack-offset -<span id="L37560" class="LineNr">37560 </span> 68/push 1/imm32/block-depth -<span id="L37561" class="LineNr">37561 </span> 52/push-edx -<span id="L37562" class="LineNr">37562 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37563" class="LineNr">37563 </span> 68/push 0/imm32/name -<span id="L37564" class="LineNr">37564 </span> 68/push 0/imm32/name -<span id="L37565" class="LineNr">37565 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37566" class="LineNr">37566 </span> 89/<- %edx 4/r32/esp -<span id="L37567" class="LineNr">37567 </span><span class="Constant">$test-shift-mem-by-literal:initialize-literal-value</span>: -<span id="L37568" class="LineNr">37568 </span> <span class="subxComment"># l->name = "3"</span> -<span id="L37569" class="LineNr">37569 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37570" class="LineNr">37570 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"3"</span> %eax) -<span id="L37571" class="LineNr">37571 </span><span class="Constant">$test-shift-mem-by-literal:initialize-inouts</span>: -<span id="L37572" class="LineNr">37572 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> -<span id="L37573" class="LineNr">37573 </span> 68/push 0/imm32/is-deref:false +<span id="L37336" class="LineNr">37336 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37337" class="LineNr">37337 </span> 89/<- %esi 4/r32/esp +<span id="L37338" class="LineNr">37338 </span><span class="Constant">$test-add-mem-to-reg:initialize-outputs</span>: +<span id="L37339" class="LineNr">37339 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [var1]</span> +<span id="L37340" class="LineNr">37340 </span> 68/push 0/imm32/is-deref:false +<span id="L37341" class="LineNr">37341 </span> 68/push 0/imm32/next +<span id="L37342" class="LineNr">37342 </span> 68/push 0/imm32/next +<span id="L37343" class="LineNr">37343 </span> 51/push-ecx/var1 +<span id="L37344" class="LineNr">37344 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37345" class="LineNr">37345 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37346" class="LineNr">37346 </span> 89/<- %edi 4/r32/esp +<span id="L37347" class="LineNr">37347 </span><span class="Constant">$test-add-mem-to-reg:initialize-stmt</span>: +<span id="L37348" class="LineNr">37348 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L37349" class="LineNr">37349 </span> 68/push 0/imm32/next +<span id="L37350" class="LineNr">37350 </span> 68/push 0/imm32/next +<span id="L37351" class="LineNr">37351 </span> 57/push-edi/outputs +<span id="L37352" class="LineNr">37352 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37353" class="LineNr">37353 </span> 56/push-esi/inouts +<span id="L37354" class="LineNr">37354 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37355" class="LineNr">37355 </span> 68/push 0/imm32/operation +<span id="L37356" class="LineNr">37356 </span> 68/push 0/imm32/operation +<span id="L37357" class="LineNr">37357 </span> 68/push 1/imm32/tag:stmt1 +<span id="L37358" class="LineNr">37358 </span> 89/<- %esi 4/r32/esp +<span id="L37359" class="LineNr">37359 </span><span class="Constant">$test-add-mem-to-reg:initialize-stmt-operation</span>: +<span id="L37360" class="LineNr">37360 </span> <span class="subxComment"># stmt->operation = "add"</span> +<span id="L37361" class="LineNr">37361 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L37362" class="LineNr">37362 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"add"</span> %eax) +<span id="L37363" class="LineNr">37363 </span> <span class="subxComment"># convert</span> +<span id="L37364" class="LineNr">37364 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span> 0/imm32 +<span id="L37365" class="LineNr">37365 </span> (<a href='mu.subx.html#L28660'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L30450'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L37366" class="LineNr">37366 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L37367" class="Folded">37367 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L37373" class="LineNr">37373 </span> <span class="subxComment"># check output</span> +<span id="L37374" class="LineNr">37374 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"03/add *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - test-add-mem-to-reg"</span>) +<span id="L37375" class="LineNr">37375 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L37376" class="LineNr">37376 </span> 89/<- %esp 5/r32/ebp +<span id="L37377" class="LineNr">37377 </span> 5d/pop-to-ebp +<span id="L37378" class="LineNr">37378 </span> c3/return +<span id="L37379" class="LineNr">37379 </span> +<span id="L37380" class="LineNr">37380 </span><span class="subxTest">test-add-literal-to-eax</span>: +<span id="L37381" class="LineNr">37381 </span> <span class="subxComment"># var1/eax <- add 0x34</span> +<span id="L37382" class="LineNr">37382 </span> <span class="subxComment"># =></span> +<span id="L37383" class="LineNr">37383 </span> <span class="subxComment"># 05/add-to-eax 0x34/imm32</span> +<span id="L37384" class="LineNr">37384 </span> <span class="subxComment">#</span> +<span id="L37385" class="LineNr">37385 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L37386" class="LineNr">37386 </span> 55/push-ebp +<span id="L37387" class="LineNr">37387 </span> 89/<- %ebp 4/r32/esp +<span id="L37388" class="LineNr">37388 </span> <span class="subxComment"># setup</span> +<span id="L37389" class="LineNr">37389 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L37390" class="LineNr">37390 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L37391" class="LineNr">37391 </span><span class="Constant">$test-add-literal-to-eax:initialize-var-type</span>: +<span id="L37392" class="LineNr">37392 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L37393" class="LineNr">37393 </span> 68/push 0/imm32/right:null +<span id="L37394" class="LineNr">37394 </span> 68/push 0/imm32/right:null +<span id="L37395" class="LineNr">37395 </span> 68/push 0/imm32/left:unused +<span id="L37396" class="LineNr">37396 </span> 68/push 1/imm32/value:int +<span id="L37397" class="LineNr">37397 </span> 68/push 1/imm32/is-atom?:true +<span id="L37398" class="LineNr">37398 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37399" class="LineNr">37399 </span> 89/<- %ecx 4/r32/esp +<span id="L37400" class="LineNr">37400 </span><span class="Constant">$test-add-literal-to-eax:initialize-var</span>: +<span id="L37401" class="LineNr">37401 </span> <span class="subxComment"># var v/ecx: (payload var)</span> +<span id="L37402" class="LineNr">37402 </span> 68/push 0/imm32/register +<span id="L37403" class="LineNr">37403 </span> 68/push 0/imm32/register +<span id="L37404" class="LineNr">37404 </span> 68/push 0/imm32/no-stack-offset +<span id="L37405" class="LineNr">37405 </span> 68/push 1/imm32/block-depth +<span id="L37406" class="LineNr">37406 </span> 51/push-ecx +<span id="L37407" class="LineNr">37407 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37408" class="LineNr">37408 </span> 68/push 0/imm32/name +<span id="L37409" class="LineNr">37409 </span> 68/push 0/imm32/name +<span id="L37410" class="LineNr">37410 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37411" class="LineNr">37411 </span> 89/<- %ecx 4/r32/esp +<span id="L37412" class="LineNr">37412 </span><span class="Constant">$test-add-literal-to-eax:initialize-var-name</span>: +<span id="L37413" class="LineNr">37413 </span> <span class="subxComment"># v->name = "v"</span> +<span id="L37414" class="LineNr">37414 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37415" class="LineNr">37415 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"v"</span> %eax) +<span id="L37416" class="LineNr">37416 </span><span class="Constant">$test-add-literal-to-eax:initialize-var-register</span>: +<span id="L37417" class="LineNr">37417 </span> <span class="subxComment"># v->register = "eax"</span> +<span id="L37418" class="LineNr">37418 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L37419" class="LineNr">37419 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) +<span id="L37420" class="LineNr">37420 </span><span class="Constant">$test-add-literal-to-eax:initialize-literal-type</span>: +<span id="L37421" class="LineNr">37421 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> +<span id="L37422" class="LineNr">37422 </span> 68/push 0/imm32/right:null +<span id="L37423" class="LineNr">37423 </span> 68/push 0/imm32/right:null +<span id="L37424" class="LineNr">37424 </span> 68/push 0/imm32/left:unused +<span id="L37425" class="LineNr">37425 </span> 68/push 0/imm32/value:literal +<span id="L37426" class="LineNr">37426 </span> 68/push 1/imm32/is-atom?:true +<span id="L37427" class="LineNr">37427 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37428" class="LineNr">37428 </span> 89/<- %edx 4/r32/esp +<span id="L37429" class="LineNr">37429 </span><span class="Constant">$test-add-literal-to-eax:initialize-literal</span>: +<span id="L37430" class="LineNr">37430 </span> <span class="subxComment"># var l/edx: (payload var)</span> +<span id="L37431" class="LineNr">37431 </span> 68/push 0/imm32/register +<span id="L37432" class="LineNr">37432 </span> 68/push 0/imm32/register +<span id="L37433" class="LineNr">37433 </span> 68/push 0/imm32/no-stack-offset +<span id="L37434" class="LineNr">37434 </span> 68/push 1/imm32/block-depth +<span id="L37435" class="LineNr">37435 </span> 52/push-edx +<span id="L37436" class="LineNr">37436 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37437" class="LineNr">37437 </span> 68/push 0/imm32/name +<span id="L37438" class="LineNr">37438 </span> 68/push 0/imm32/name +<span id="L37439" class="LineNr">37439 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37440" class="LineNr">37440 </span> 89/<- %edx 4/r32/esp +<span id="L37441" class="LineNr">37441 </span><span class="Constant">$test-add-literal-to-eax:initialize-literal-value</span>: +<span id="L37442" class="LineNr">37442 </span> <span class="subxComment"># l->name = "0x34"</span> +<span id="L37443" class="LineNr">37443 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37444" class="LineNr">37444 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"0x34"</span> %eax) +<span id="L37445" class="LineNr">37445 </span><span class="Constant">$test-add-literal-to-eax:initialize-inouts</span>: +<span id="L37446" class="LineNr">37446 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> +<span id="L37447" class="LineNr">37447 </span> 68/push 0/imm32/is-deref:false +<span id="L37448" class="LineNr">37448 </span> 68/push 0/imm32/next +<span id="L37449" class="LineNr">37449 </span> 68/push 0/imm32/next +<span id="L37450" class="LineNr">37450 </span> 52/push-edx/l +<span id="L37451" class="LineNr">37451 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37452" class="LineNr">37452 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37453" class="LineNr">37453 </span> 89/<- %esi 4/r32/esp +<span id="L37454" class="LineNr">37454 </span><span class="Constant">$test-add-literal-to-eax:initialize-outputs</span>: +<span id="L37455" class="LineNr">37455 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [v]</span> +<span id="L37456" class="LineNr">37456 </span> 68/push 0/imm32/is-deref:false +<span id="L37457" class="LineNr">37457 </span> 68/push 0/imm32/next +<span id="L37458" class="LineNr">37458 </span> 68/push 0/imm32/next +<span id="L37459" class="LineNr">37459 </span> 51/push-ecx/v +<span id="L37460" class="LineNr">37460 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37461" class="LineNr">37461 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37462" class="LineNr">37462 </span> 89/<- %edi 4/r32/esp +<span id="L37463" class="LineNr">37463 </span><span class="Constant">$test-add-literal-to-eax:initialize-stmt</span>: +<span id="L37464" class="LineNr">37464 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L37465" class="LineNr">37465 </span> 68/push 0/imm32/next +<span id="L37466" class="LineNr">37466 </span> 68/push 0/imm32/next +<span id="L37467" class="LineNr">37467 </span> 57/push-edi/outputs +<span id="L37468" class="LineNr">37468 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37469" class="LineNr">37469 </span> 56/push-esi/inouts +<span id="L37470" class="LineNr">37470 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37471" class="LineNr">37471 </span> 68/push 0/imm32/operation +<span id="L37472" class="LineNr">37472 </span> 68/push 0/imm32/operation +<span id="L37473" class="LineNr">37473 </span> 68/push 1/imm32/tag:stmt1 +<span id="L37474" class="LineNr">37474 </span> 89/<- %esi 4/r32/esp +<span id="L37475" class="LineNr">37475 </span><span class="Constant">$test-add-literal-to-eax:initialize-stmt-operation</span>: +<span id="L37476" class="LineNr">37476 </span> <span class="subxComment"># stmt->operation = "add"</span> +<span id="L37477" class="LineNr">37477 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L37478" class="LineNr">37478 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"add"</span> %eax) +<span id="L37479" class="LineNr">37479 </span> <span class="subxComment"># convert</span> +<span id="L37480" class="LineNr">37480 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span> 0/imm32 +<span id="L37481" class="LineNr">37481 </span> (<a href='mu.subx.html#L28660'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L30450'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L37482" class="LineNr">37482 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L37483" class="Folded">37483 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L37489" class="LineNr">37489 </span> <span class="subxComment"># check output</span> +<span id="L37490" class="LineNr">37490 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"05/add-to-eax 0x34/imm32"</span> <span class="Constant">"F - test-add-literal-to-eax"</span>) +<span id="L37491" class="LineNr">37491 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L37492" class="LineNr">37492 </span> 89/<- %esp 5/r32/ebp +<span id="L37493" class="LineNr">37493 </span> 5d/pop-to-ebp +<span id="L37494" class="LineNr">37494 </span> c3/return +<span id="L37495" class="LineNr">37495 </span> +<span id="L37496" class="LineNr">37496 </span><span class="subxTest">test-add-literal-to-reg</span>: +<span id="L37497" class="LineNr">37497 </span> <span class="subxComment"># var1/ecx <- add 0x34</span> +<span id="L37498" class="LineNr">37498 </span> <span class="subxComment"># =></span> +<span id="L37499" class="LineNr">37499 </span> <span class="subxComment"># 81 0/subop/add %ecx 0x34/imm32</span> +<span id="L37500" class="LineNr">37500 </span> <span class="subxComment">#</span> +<span id="L37501" class="LineNr">37501 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L37502" class="LineNr">37502 </span> 55/push-ebp +<span id="L37503" class="LineNr">37503 </span> 89/<- %ebp 4/r32/esp +<span id="L37504" class="LineNr">37504 </span> <span class="subxComment"># setup</span> +<span id="L37505" class="LineNr">37505 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L37506" class="LineNr">37506 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L37507" class="LineNr">37507 </span><span class="Constant">$test-add-literal-to-reg:initialize-var-type</span>: +<span id="L37508" class="LineNr">37508 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L37509" class="LineNr">37509 </span> 68/push 0/imm32/right:null +<span id="L37510" class="LineNr">37510 </span> 68/push 0/imm32/right:null +<span id="L37511" class="LineNr">37511 </span> 68/push 0/imm32/left:unused +<span id="L37512" class="LineNr">37512 </span> 68/push 1/imm32/value:int +<span id="L37513" class="LineNr">37513 </span> 68/push 1/imm32/is-atom?:true +<span id="L37514" class="LineNr">37514 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37515" class="LineNr">37515 </span> 89/<- %ecx 4/r32/esp +<span id="L37516" class="LineNr">37516 </span><span class="Constant">$test-add-literal-to-reg:initialize-var</span>: +<span id="L37517" class="LineNr">37517 </span> <span class="subxComment"># var v/ecx: (payload var)</span> +<span id="L37518" class="LineNr">37518 </span> 68/push 0/imm32/register +<span id="L37519" class="LineNr">37519 </span> 68/push 0/imm32/register +<span id="L37520" class="LineNr">37520 </span> 68/push 0/imm32/no-stack-offset +<span id="L37521" class="LineNr">37521 </span> 68/push 1/imm32/block-depth +<span id="L37522" class="LineNr">37522 </span> 51/push-ecx +<span id="L37523" class="LineNr">37523 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37524" class="LineNr">37524 </span> 68/push 0/imm32/name +<span id="L37525" class="LineNr">37525 </span> 68/push 0/imm32/name +<span id="L37526" class="LineNr">37526 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37527" class="LineNr">37527 </span> 89/<- %ecx 4/r32/esp +<span id="L37528" class="LineNr">37528 </span><span class="Constant">$test-add-literal-to-reg:initialize-var-name</span>: +<span id="L37529" class="LineNr">37529 </span> <span class="subxComment"># v->name = "v"</span> +<span id="L37530" class="LineNr">37530 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37531" class="LineNr">37531 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"v"</span> %eax) +<span id="L37532" class="LineNr">37532 </span><span class="Constant">$test-add-literal-to-reg:initialize-var-register</span>: +<span id="L37533" class="LineNr">37533 </span> <span class="subxComment"># v->register = "ecx"</span> +<span id="L37534" class="LineNr">37534 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L37535" class="LineNr">37535 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ecx"</span> %eax) +<span id="L37536" class="LineNr">37536 </span><span class="Constant">$test-add-literal-to-reg:initialize-literal-type</span>: +<span id="L37537" class="LineNr">37537 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> +<span id="L37538" class="LineNr">37538 </span> 68/push 0/imm32/right:null +<span id="L37539" class="LineNr">37539 </span> 68/push 0/imm32/right:null +<span id="L37540" class="LineNr">37540 </span> 68/push 0/imm32/left:unused +<span id="L37541" class="LineNr">37541 </span> 68/push 0/imm32/value:literal +<span id="L37542" class="LineNr">37542 </span> 68/push 1/imm32/is-atom?:true +<span id="L37543" class="LineNr">37543 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37544" class="LineNr">37544 </span> 89/<- %edx 4/r32/esp +<span id="L37545" class="LineNr">37545 </span><span class="Constant">$test-add-literal-to-reg:initialize-literal</span>: +<span id="L37546" class="LineNr">37546 </span> <span class="subxComment"># var l/edx: (payload var)</span> +<span id="L37547" class="LineNr">37547 </span> 68/push 0/imm32/register +<span id="L37548" class="LineNr">37548 </span> 68/push 0/imm32/register +<span id="L37549" class="LineNr">37549 </span> 68/push 0/imm32/no-stack-offset +<span id="L37550" class="LineNr">37550 </span> 68/push 1/imm32/block-depth +<span id="L37551" class="LineNr">37551 </span> 52/push-edx +<span id="L37552" class="LineNr">37552 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37553" class="LineNr">37553 </span> 68/push 0/imm32/name +<span id="L37554" class="LineNr">37554 </span> 68/push 0/imm32/name +<span id="L37555" class="LineNr">37555 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37556" class="LineNr">37556 </span> 89/<- %edx 4/r32/esp +<span id="L37557" class="LineNr">37557 </span><span class="Constant">$test-add-literal-to-reg:initialize-literal-value</span>: +<span id="L37558" class="LineNr">37558 </span> <span class="subxComment"># l->name = "0x34"</span> +<span id="L37559" class="LineNr">37559 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37560" class="LineNr">37560 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"0x34"</span> %eax) +<span id="L37561" class="LineNr">37561 </span><span class="Constant">$test-add-literal-to-reg:initialize-inouts</span>: +<span id="L37562" class="LineNr">37562 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> +<span id="L37563" class="LineNr">37563 </span> 68/push 0/imm32/is-deref:false +<span id="L37564" class="LineNr">37564 </span> 68/push 0/imm32/next +<span id="L37565" class="LineNr">37565 </span> 68/push 0/imm32/next +<span id="L37566" class="LineNr">37566 </span> 52/push-edx/l +<span id="L37567" class="LineNr">37567 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37568" class="LineNr">37568 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37569" class="LineNr">37569 </span> 89/<- %esi 4/r32/esp +<span id="L37570" class="LineNr">37570 </span><span class="Constant">$test-add-literal-to-reg:initialize-outputs</span>: +<span id="L37571" class="LineNr">37571 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [v]</span> +<span id="L37572" class="LineNr">37572 </span> 68/push 0/imm32/is-deref:false +<span id="L37573" class="LineNr">37573 </span> 68/push 0/imm32/next <span id="L37574" class="LineNr">37574 </span> 68/push 0/imm32/next -<span id="L37575" class="LineNr">37575 </span> 68/push 0/imm32/next -<span id="L37576" class="LineNr">37576 </span> 52/push-edx/l -<span id="L37577" class="LineNr">37577 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37578" class="LineNr">37578 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37579" class="LineNr">37579 </span> 89/<- %esi 4/r32/esp -<span id="L37580" class="LineNr">37580 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> -<span id="L37581" class="LineNr">37581 </span> 68/push 0/imm32/is-deref:false -<span id="L37582" class="LineNr">37582 </span> 56/push-esi/next -<span id="L37583" class="LineNr">37583 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37584" class="LineNr">37584 </span> 51/push-ecx/var1 -<span id="L37585" class="LineNr">37585 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37586" class="LineNr">37586 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37587" class="LineNr">37587 </span> 89/<- %esi 4/r32/esp -<span id="L37588" class="LineNr">37588 </span><span class="Constant">$test-shift-mem-by-literal:initialize-stmt</span>: -<span id="L37589" class="LineNr">37589 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L37590" class="LineNr">37590 </span> 68/push 0/imm32/next -<span id="L37591" class="LineNr">37591 </span> 68/push 0/imm32/next -<span id="L37592" class="LineNr">37592 </span> 68/push 0/imm32/outputs -<span id="L37593" class="LineNr">37593 </span> 68/push 0/imm32/outputs -<span id="L37594" class="LineNr">37594 </span> 56/push-esi/inouts -<span id="L37595" class="LineNr">37595 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37596" class="LineNr">37596 </span> 68/push 0/imm32/operation -<span id="L37597" class="LineNr">37597 </span> 68/push 0/imm32/operation -<span id="L37598" class="LineNr">37598 </span> 68/push 1/imm32/tag:stmt1 -<span id="L37599" class="LineNr">37599 </span> 89/<- %esi 4/r32/esp -<span id="L37600" class="LineNr">37600 </span><span class="Constant">$test-shift-mem-by-literal:initialize-stmt-operation</span>: -<span id="L37601" class="LineNr">37601 </span> <span class="subxComment"># stmt->operation = "shift-left"</span> -<span id="L37602" class="LineNr">37602 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L37603" class="LineNr">37603 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"shift-left"</span> %eax) -<span id="L37604" class="LineNr">37604 </span> <span class="subxComment"># convert</span> -<span id="L37605" class="LineNr">37605 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span> 0/imm32 -<span id="L37606" class="LineNr">37606 </span> (<a href='mu.subx.html#L28630'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L30394'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L37607" class="LineNr">37607 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L37608" class="Folded">37608 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L37614" class="LineNr">37614 </span> <span class="subxComment"># check output</span> -<span id="L37615" class="LineNr">37615 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"c1/shift 4/subop/left *(ebp+0x00000008) 3/imm8"</span> <span class="Constant">"F - test-shift-mem-by-literal"</span>) -<span id="L37616" class="LineNr">37616 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L37617" class="LineNr">37617 </span> 89/<- %esp 5/r32/ebp -<span id="L37618" class="LineNr">37618 </span> 5d/pop-to-ebp -<span id="L37619" class="LineNr">37619 </span> c3/return -<span id="L37620" class="LineNr">37620 </span> -<span id="L37621" class="LineNr">37621 </span><span class="subxTest">test-compare-reg-with-reg</span>: -<span id="L37622" class="LineNr">37622 </span> <span class="subxComment"># compare var1/ecx, var2/eax</span> -<span id="L37623" class="LineNr">37623 </span> <span class="subxComment"># =></span> -<span id="L37624" class="LineNr">37624 </span> <span class="subxComment"># 39/compare %ecx 0/r32/eax</span> -<span id="L37625" class="LineNr">37625 </span> <span class="subxComment">#</span> -<span id="L37626" class="LineNr">37626 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L37627" class="LineNr">37627 </span> 55/push-ebp -<span id="L37628" class="LineNr">37628 </span> 89/<- %ebp 4/r32/esp -<span id="L37629" class="LineNr">37629 </span> <span class="subxComment"># setup</span> -<span id="L37630" class="LineNr">37630 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L37631" class="LineNr">37631 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L37632" class="LineNr">37632 </span><span class="Constant">$test-compare-reg-with-reg:initialize-type</span>: -<span id="L37633" class="LineNr">37633 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L37634" class="LineNr">37634 </span> 68/push 0/imm32/right:null -<span id="L37635" class="LineNr">37635 </span> 68/push 0/imm32/right:null -<span id="L37636" class="LineNr">37636 </span> 68/push 0/imm32/left:unused -<span id="L37637" class="LineNr">37637 </span> 68/push 1/imm32/value:int -<span id="L37638" class="LineNr">37638 </span> 68/push 1/imm32/is-atom?:true -<span id="L37639" class="LineNr">37639 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37640" class="LineNr">37640 </span> 89/<- %ecx 4/r32/esp -<span id="L37641" class="LineNr">37641 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var1</span>: -<span id="L37642" class="LineNr">37642 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L37643" class="LineNr">37643 </span> 68/push 0/imm32/register -<span id="L37644" class="LineNr">37644 </span> 68/push 0/imm32/register -<span id="L37645" class="LineNr">37645 </span> 68/push 0/imm32/no-stack-offset -<span id="L37646" class="LineNr">37646 </span> 68/push 1/imm32/block-depth -<span id="L37647" class="LineNr">37647 </span> 51/push-ecx -<span id="L37648" class="LineNr">37648 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37649" class="LineNr">37649 </span> 68/push 0/imm32/name -<span id="L37650" class="LineNr">37650 </span> 68/push 0/imm32/name -<span id="L37651" class="LineNr">37651 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37652" class="LineNr">37652 </span> 89/<- %ecx 4/r32/esp -<span id="L37653" class="LineNr">37653 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var1-name</span>: -<span id="L37654" class="LineNr">37654 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L37655" class="LineNr">37655 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37656" class="LineNr">37656 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) -<span id="L37657" class="LineNr">37657 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var1-register</span>: -<span id="L37658" class="LineNr">37658 </span> <span class="subxComment"># var1->register = "ecx"</span> -<span id="L37659" class="LineNr">37659 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L37660" class="LineNr">37660 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ecx"</span> %eax) -<span id="L37661" class="LineNr">37661 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var2</span>: -<span id="L37662" class="LineNr">37662 </span> <span class="subxComment"># var var2/edx: (payload var)</span> -<span id="L37663" class="LineNr">37663 </span> 68/push 0/imm32/register -<span id="L37664" class="LineNr">37664 </span> 68/push 0/imm32/register -<span id="L37665" class="LineNr">37665 </span> 68/push 0/imm32/no-stack-offset -<span id="L37666" class="LineNr">37666 </span> 68/push 1/imm32/block-depth -<span id="L37667" class="LineNr">37667 </span> ff 6/subop/push *(ecx+0x10) -<span id="L37668" class="LineNr">37668 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37669" class="LineNr">37669 </span> 68/push 0/imm32/name -<span id="L37670" class="LineNr">37670 </span> 68/push 0/imm32/name -<span id="L37671" class="LineNr">37671 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37672" class="LineNr">37672 </span> 89/<- %edx 4/r32/esp -<span id="L37673" class="LineNr">37673 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var2-name</span>: -<span id="L37674" class="LineNr">37674 </span> <span class="subxComment"># var2->name = "var2"</span> -<span id="L37675" class="LineNr">37675 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37676" class="LineNr">37676 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var2"</span> %eax) -<span id="L37677" class="LineNr">37677 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var2-register</span>: -<span id="L37678" class="LineNr">37678 </span> <span class="subxComment"># var2->register = "eax"</span> -<span id="L37679" class="LineNr">37679 </span> 8d/copy-address *(edx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L37680" class="LineNr">37680 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) -<span id="L37681" class="LineNr">37681 </span><span class="Constant">$test-compare-reg-with-reg:initialize-inouts</span>: -<span id="L37682" class="LineNr">37682 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> +<span id="L37575" class="LineNr">37575 </span> 51/push-ecx/v +<span id="L37576" class="LineNr">37576 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37577" class="LineNr">37577 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37578" class="LineNr">37578 </span> 89/<- %edi 4/r32/esp +<span id="L37579" class="LineNr">37579 </span><span class="Constant">$test-add-literal-to-reg:initialize-stmt</span>: +<span id="L37580" class="LineNr">37580 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L37581" class="LineNr">37581 </span> 68/push 0/imm32/next +<span id="L37582" class="LineNr">37582 </span> 68/push 0/imm32/next +<span id="L37583" class="LineNr">37583 </span> 57/push-edi/outputs +<span id="L37584" class="LineNr">37584 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37585" class="LineNr">37585 </span> 56/push-esi/inouts +<span id="L37586" class="LineNr">37586 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37587" class="LineNr">37587 </span> 68/push 0/imm32/operation +<span id="L37588" class="LineNr">37588 </span> 68/push 0/imm32/operation +<span id="L37589" class="LineNr">37589 </span> 68/push 1/imm32/tag:stmt1 +<span id="L37590" class="LineNr">37590 </span> 89/<- %esi 4/r32/esp +<span id="L37591" class="LineNr">37591 </span><span class="Constant">$test-add-literal-to-reg:initialize-stmt-operation</span>: +<span id="L37592" class="LineNr">37592 </span> <span class="subxComment"># stmt->operation = "add"</span> +<span id="L37593" class="LineNr">37593 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L37594" class="LineNr">37594 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"add"</span> %eax) +<span id="L37595" class="LineNr">37595 </span> <span class="subxComment"># convert</span> +<span id="L37596" class="LineNr">37596 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span> 0/imm32 +<span id="L37597" class="LineNr">37597 </span> (<a href='mu.subx.html#L28660'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L30450'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L37598" class="LineNr">37598 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L37599" class="Folded">37599 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L37605" class="LineNr">37605 </span> <span class="subxComment"># check output</span> +<span id="L37606" class="LineNr">37606 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"81 0/subop/add %ecx 0x34/imm32"</span> <span class="Constant">"F - test-add-literal-to-reg"</span>) +<span id="L37607" class="LineNr">37607 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L37608" class="LineNr">37608 </span> 89/<- %esp 5/r32/ebp +<span id="L37609" class="LineNr">37609 </span> 5d/pop-to-ebp +<span id="L37610" class="LineNr">37610 </span> c3/return +<span id="L37611" class="LineNr">37611 </span> +<span id="L37612" class="LineNr">37612 </span><span class="subxTest">test-add-literal-to-mem</span>: +<span id="L37613" class="LineNr">37613 </span> <span class="subxComment"># add-to var1, 0x34</span> +<span id="L37614" class="LineNr">37614 </span> <span class="subxComment"># =></span> +<span id="L37615" class="LineNr">37615 </span> <span class="subxComment"># 81 0/subop/add %eax 0x34/imm32</span> +<span id="L37616" class="LineNr">37616 </span> <span class="subxComment">#</span> +<span id="L37617" class="LineNr">37617 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L37618" class="LineNr">37618 </span> 55/push-ebp +<span id="L37619" class="LineNr">37619 </span> 89/<- %ebp 4/r32/esp +<span id="L37620" class="LineNr">37620 </span> <span class="subxComment"># setup</span> +<span id="L37621" class="LineNr">37621 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L37622" class="LineNr">37622 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L37623" class="LineNr">37623 </span><span class="Constant">$test-add-literal-to-mem:initialize-type</span>: +<span id="L37624" class="LineNr">37624 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L37625" class="LineNr">37625 </span> 68/push 0/imm32/right:null +<span id="L37626" class="LineNr">37626 </span> 68/push 0/imm32/right:null +<span id="L37627" class="LineNr">37627 </span> 68/push 0/imm32/left:unused +<span id="L37628" class="LineNr">37628 </span> 68/push 1/imm32/value:int +<span id="L37629" class="LineNr">37629 </span> 68/push 1/imm32/is-atom?:true +<span id="L37630" class="LineNr">37630 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37631" class="LineNr">37631 </span> 89/<- %ecx 4/r32/esp +<span id="L37632" class="LineNr">37632 </span><span class="Constant">$test-add-literal-to-mem:initialize-var1</span>: +<span id="L37633" class="LineNr">37633 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L37634" class="LineNr">37634 </span> 68/push 0/imm32/register +<span id="L37635" class="LineNr">37635 </span> 68/push 0/imm32/register +<span id="L37636" class="LineNr">37636 </span> 68/push 8/imm32/stack-offset +<span id="L37637" class="LineNr">37637 </span> 68/push 1/imm32/block-depth +<span id="L37638" class="LineNr">37638 </span> 51/push-ecx +<span id="L37639" class="LineNr">37639 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37640" class="LineNr">37640 </span> 68/push 0/imm32/name +<span id="L37641" class="LineNr">37641 </span> 68/push 0/imm32/name +<span id="L37642" class="LineNr">37642 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37643" class="LineNr">37643 </span> 89/<- %ecx 4/r32/esp +<span id="L37644" class="LineNr">37644 </span><span class="Constant">$test-add-literal-to-mem:initialize-var1-name</span>: +<span id="L37645" class="LineNr">37645 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L37646" class="LineNr">37646 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37647" class="LineNr">37647 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) +<span id="L37648" class="LineNr">37648 </span><span class="Constant">$test-add-literal-to-mem:initialize-literal-type</span>: +<span id="L37649" class="LineNr">37649 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> +<span id="L37650" class="LineNr">37650 </span> 68/push 0/imm32/right:null +<span id="L37651" class="LineNr">37651 </span> 68/push 0/imm32/right:null +<span id="L37652" class="LineNr">37652 </span> 68/push 0/imm32/left:unused +<span id="L37653" class="LineNr">37653 </span> 68/push 0/imm32/value:literal +<span id="L37654" class="LineNr">37654 </span> 68/push 1/imm32/is-atom?:true +<span id="L37655" class="LineNr">37655 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37656" class="LineNr">37656 </span> 89/<- %edx 4/r32/esp +<span id="L37657" class="LineNr">37657 </span><span class="Constant">$test-add-literal-to-mem:initialize-literal</span>: +<span id="L37658" class="LineNr">37658 </span> <span class="subxComment"># var l/edx: (payload var)</span> +<span id="L37659" class="LineNr">37659 </span> 68/push 0/imm32/register +<span id="L37660" class="LineNr">37660 </span> 68/push 0/imm32/register +<span id="L37661" class="LineNr">37661 </span> 68/push 0/imm32/no-stack-offset +<span id="L37662" class="LineNr">37662 </span> 68/push 1/imm32/block-depth +<span id="L37663" class="LineNr">37663 </span> 52/push-edx +<span id="L37664" class="LineNr">37664 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37665" class="LineNr">37665 </span> 68/push 0/imm32/name +<span id="L37666" class="LineNr">37666 </span> 68/push 0/imm32/name +<span id="L37667" class="LineNr">37667 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37668" class="LineNr">37668 </span> 89/<- %edx 4/r32/esp +<span id="L37669" class="LineNr">37669 </span><span class="Constant">$test-add-literal-to-mem:initialize-literal-value</span>: +<span id="L37670" class="LineNr">37670 </span> <span class="subxComment"># l->name = "0x34"</span> +<span id="L37671" class="LineNr">37671 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37672" class="LineNr">37672 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"0x34"</span> %eax) +<span id="L37673" class="LineNr">37673 </span><span class="Constant">$test-add-literal-to-mem:initialize-inouts</span>: +<span id="L37674" class="LineNr">37674 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> +<span id="L37675" class="LineNr">37675 </span> 68/push 0/imm32/is-deref:false +<span id="L37676" class="LineNr">37676 </span> 68/push 0/imm32/next +<span id="L37677" class="LineNr">37677 </span> 68/push 0/imm32/next +<span id="L37678" class="LineNr">37678 </span> 52/push-edx/l +<span id="L37679" class="LineNr">37679 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37680" class="LineNr">37680 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37681" class="LineNr">37681 </span> 89/<- %esi 4/r32/esp +<span id="L37682" class="LineNr">37682 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> <span id="L37683" class="LineNr">37683 </span> 68/push 0/imm32/is-deref:false -<span id="L37684" class="LineNr">37684 </span> 68/push 0/imm32/next -<span id="L37685" class="LineNr">37685 </span> 68/push 0/imm32/next -<span id="L37686" class="LineNr">37686 </span> 52/push-edx/var2 +<span id="L37684" class="LineNr">37684 </span> 56/push-esi/next +<span id="L37685" class="LineNr">37685 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37686" class="LineNr">37686 </span> 51/push-ecx/var1 <span id="L37687" class="LineNr">37687 </span> 68/push 0x11/imm32/alloc-id:fake <span id="L37688" class="LineNr">37688 </span> 68/push 0x11/imm32/alloc-id:fake:payload <span id="L37689" class="LineNr">37689 </span> 89/<- %esi 4/r32/esp -<span id="L37690" class="LineNr">37690 </span> <span class="subxComment"># inouts = [var1, var2]</span> -<span id="L37691" class="LineNr">37691 </span> 68/push 0/imm32/is-deref:false -<span id="L37692" class="LineNr">37692 </span> 56/push-esi/next -<span id="L37693" class="LineNr">37693 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37694" class="LineNr">37694 </span> 51/push-ecx/var1 -<span id="L37695" class="LineNr">37695 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37696" class="LineNr">37696 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37697" class="LineNr">37697 </span> 89/<- %esi 4/r32/esp -<span id="L37698" class="LineNr">37698 </span><span class="Constant">$test-compare-reg-with-reg:initialize-stmt</span>: -<span id="L37699" class="LineNr">37699 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L37700" class="LineNr">37700 </span> 68/push 0/imm32/next -<span id="L37701" class="LineNr">37701 </span> 68/push 0/imm32/next -<span id="L37702" class="LineNr">37702 </span> 68/push 0/imm32/outputs -<span id="L37703" class="LineNr">37703 </span> 68/push 0/imm32/outputs -<span id="L37704" class="LineNr">37704 </span> 56/push-esi/inouts -<span id="L37705" class="LineNr">37705 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37706" class="LineNr">37706 </span> 68/push 0/imm32/operation -<span id="L37707" class="LineNr">37707 </span> 68/push 0/imm32/operation -<span id="L37708" class="LineNr">37708 </span> 68/push 1/imm32/tag:stmt1 -<span id="L37709" class="LineNr">37709 </span> 89/<- %esi 4/r32/esp -<span id="L37710" class="LineNr">37710 </span><span class="Constant">$test-compare-reg-with-reg:initialize-stmt-operation</span>: -<span id="L37711" class="LineNr">37711 </span> <span class="subxComment"># stmt->operation = "compare"</span> -<span id="L37712" class="LineNr">37712 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L37713" class="LineNr">37713 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"compare"</span> %eax) -<span id="L37714" class="LineNr">37714 </span> <span class="subxComment"># convert</span> -<span id="L37715" class="LineNr">37715 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span> 0/imm32 -<span id="L37716" class="LineNr">37716 </span> (<a href='mu.subx.html#L28630'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L30394'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L37717" class="LineNr">37717 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L37718" class="Folded">37718 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L37724" class="LineNr">37724 </span> <span class="subxComment"># check output</span> -<span id="L37725" class="LineNr">37725 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"39/compare-> %ecx 0x00000000/r32"</span> <span class="Constant">"F - test-compare-reg-with-reg"</span>) -<span id="L37726" class="LineNr">37726 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L37727" class="LineNr">37727 </span> 89/<- %esp 5/r32/ebp -<span id="L37728" class="LineNr">37728 </span> 5d/pop-to-ebp -<span id="L37729" class="LineNr">37729 </span> c3/return -<span id="L37730" class="LineNr">37730 </span> -<span id="L37731" class="LineNr">37731 </span><span class="subxTest">test-compare-mem-with-reg</span>: -<span id="L37732" class="LineNr">37732 </span> <span class="subxComment"># compare var1, var2/eax</span> -<span id="L37733" class="LineNr">37733 </span> <span class="subxComment"># =></span> -<span id="L37734" class="LineNr">37734 </span> <span class="subxComment"># 39/compare *(ebp+___) 0/r32/eax</span> -<span id="L37735" class="LineNr">37735 </span> <span class="subxComment">#</span> -<span id="L37736" class="LineNr">37736 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L37737" class="LineNr">37737 </span> 55/push-ebp -<span id="L37738" class="LineNr">37738 </span> 89/<- %ebp 4/r32/esp -<span id="L37739" class="LineNr">37739 </span> <span class="subxComment"># setup</span> -<span id="L37740" class="LineNr">37740 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L37741" class="LineNr">37741 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L37742" class="LineNr">37742 </span><span class="Constant">$test-compare-mem-with-reg:initialize-type</span>: -<span id="L37743" class="LineNr">37743 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L37744" class="LineNr">37744 </span> 68/push 0/imm32/right:null -<span id="L37745" class="LineNr">37745 </span> 68/push 0/imm32/right:null -<span id="L37746" class="LineNr">37746 </span> 68/push 0/imm32/left:unused -<span id="L37747" class="LineNr">37747 </span> 68/push 1/imm32/value:int -<span id="L37748" class="LineNr">37748 </span> 68/push 1/imm32/is-atom?:true -<span id="L37749" class="LineNr">37749 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37750" class="LineNr">37750 </span> 89/<- %ecx 4/r32/esp -<span id="L37751" class="LineNr">37751 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var1</span>: -<span id="L37752" class="LineNr">37752 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L37753" class="LineNr">37753 </span> 68/push 0/imm32/register -<span id="L37754" class="LineNr">37754 </span> 68/push 0/imm32/register -<span id="L37755" class="LineNr">37755 </span> 68/push 8/imm32/stack-offset -<span id="L37756" class="LineNr">37756 </span> 68/push 1/imm32/block-depth -<span id="L37757" class="LineNr">37757 </span> 51/push-ecx -<span id="L37758" class="LineNr">37758 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37759" class="LineNr">37759 </span> 68/push 0/imm32/name -<span id="L37760" class="LineNr">37760 </span> 68/push 0/imm32/name -<span id="L37761" class="LineNr">37761 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37762" class="LineNr">37762 </span> 89/<- %ecx 4/r32/esp -<span id="L37763" class="LineNr">37763 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var1-name</span>: -<span id="L37764" class="LineNr">37764 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L37765" class="LineNr">37765 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37766" class="LineNr">37766 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) -<span id="L37767" class="LineNr">37767 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var2</span>: -<span id="L37768" class="LineNr">37768 </span> <span class="subxComment"># var var2/edx: (payload var)</span> -<span id="L37769" class="LineNr">37769 </span> 68/push 0/imm32/register -<span id="L37770" class="LineNr">37770 </span> 68/push 0/imm32/register -<span id="L37771" class="LineNr">37771 </span> 68/push 0/imm32/no-stack-offset -<span id="L37772" class="LineNr">37772 </span> 68/push 1/imm32/block-depth -<span id="L37773" class="LineNr">37773 </span> ff 6/subop/push *(ecx+0x10) -<span id="L37774" class="LineNr">37774 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37775" class="LineNr">37775 </span> 68/push 0/imm32/name -<span id="L37776" class="LineNr">37776 </span> 68/push 0/imm32/name -<span id="L37777" class="LineNr">37777 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37778" class="LineNr">37778 </span> 89/<- %edx 4/r32/esp -<span id="L37779" class="LineNr">37779 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var2-name</span>: -<span id="L37780" class="LineNr">37780 </span> <span class="subxComment"># var2->name = "var2"</span> -<span id="L37781" class="LineNr">37781 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37782" class="LineNr">37782 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var2"</span> %eax) -<span id="L37783" class="LineNr">37783 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var2-register</span>: -<span id="L37784" class="LineNr">37784 </span> <span class="subxComment"># var2->register = "eax"</span> -<span id="L37785" class="LineNr">37785 </span> 8d/copy-address *(edx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L37786" class="LineNr">37786 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) -<span id="L37787" class="LineNr">37787 </span><span class="Constant">$test-compare-mem-with-reg:initialize-inouts</span>: -<span id="L37788" class="LineNr">37788 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> -<span id="L37789" class="LineNr">37789 </span> 68/push 0/imm32/is-deref:false -<span id="L37790" class="LineNr">37790 </span> 68/push 0/imm32/next +<span id="L37690" class="LineNr">37690 </span><span class="Constant">$test-add-literal-to-mem:initialize-stmt</span>: +<span id="L37691" class="LineNr">37691 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L37692" class="LineNr">37692 </span> 68/push 0/imm32/next +<span id="L37693" class="LineNr">37693 </span> 68/push 0/imm32/next +<span id="L37694" class="LineNr">37694 </span> 68/push 0/imm32/outputs +<span id="L37695" class="LineNr">37695 </span> 68/push 0/imm32/outputs +<span id="L37696" class="LineNr">37696 </span> 56/push-esi/inouts +<span id="L37697" class="LineNr">37697 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37698" class="LineNr">37698 </span> 68/push 0/imm32/operation +<span id="L37699" class="LineNr">37699 </span> 68/push 0/imm32/operation +<span id="L37700" class="LineNr">37700 </span> 68/push 1/imm32/tag:stmt1 +<span id="L37701" class="LineNr">37701 </span> 89/<- %esi 4/r32/esp +<span id="L37702" class="LineNr">37702 </span><span class="Constant">$test-add-literal-to-mem:initialize-stmt-operation</span>: +<span id="L37703" class="LineNr">37703 </span> <span class="subxComment"># stmt->operation = "add-to"</span> +<span id="L37704" class="LineNr">37704 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L37705" class="LineNr">37705 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"add-to"</span> %eax) +<span id="L37706" class="LineNr">37706 </span> <span class="subxComment"># convert</span> +<span id="L37707" class="LineNr">37707 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span> 0/imm32 +<span id="L37708" class="LineNr">37708 </span> (<a href='mu.subx.html#L28660'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L30450'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L37709" class="LineNr">37709 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L37710" class="Folded">37710 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L37716" class="LineNr">37716 </span> <span class="subxComment"># check output</span> +<span id="L37717" class="LineNr">37717 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"81 0/subop/add *(ebp+0x00000008) 0x34/imm32"</span> <span class="Constant">"F - test-add-literal-to-mem"</span>) +<span id="L37718" class="LineNr">37718 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L37719" class="LineNr">37719 </span> 89/<- %esp 5/r32/ebp +<span id="L37720" class="LineNr">37720 </span> 5d/pop-to-ebp +<span id="L37721" class="LineNr">37721 </span> c3/return +<span id="L37722" class="LineNr">37722 </span> +<span id="L37723" class="LineNr">37723 </span><span class="subxTest">test-shift-reg-by-literal</span>: +<span id="L37724" class="LineNr">37724 </span> <span class="subxComment"># var1/ecx <- shift-left 2</span> +<span id="L37725" class="LineNr">37725 </span> <span class="subxComment"># =></span> +<span id="L37726" class="LineNr">37726 </span> <span class="subxComment"># c1/shift 4/subop/left %ecx 2/imm8</span> +<span id="L37727" class="LineNr">37727 </span> <span class="subxComment">#</span> +<span id="L37728" class="LineNr">37728 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L37729" class="LineNr">37729 </span> 55/push-ebp +<span id="L37730" class="LineNr">37730 </span> 89/<- %ebp 4/r32/esp +<span id="L37731" class="LineNr">37731 </span> <span class="subxComment"># setup</span> +<span id="L37732" class="LineNr">37732 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L37733" class="LineNr">37733 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L37734" class="LineNr">37734 </span><span class="Constant">$test-shift-reg-by-literal:initialize-var-type</span>: +<span id="L37735" class="LineNr">37735 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L37736" class="LineNr">37736 </span> 68/push 0/imm32/right:null +<span id="L37737" class="LineNr">37737 </span> 68/push 0/imm32/right:null +<span id="L37738" class="LineNr">37738 </span> 68/push 0/imm32/left:unused +<span id="L37739" class="LineNr">37739 </span> 68/push 1/imm32/value:int +<span id="L37740" class="LineNr">37740 </span> 68/push 1/imm32/is-atom?:true +<span id="L37741" class="LineNr">37741 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37742" class="LineNr">37742 </span> 89/<- %ecx 4/r32/esp +<span id="L37743" class="LineNr">37743 </span><span class="Constant">$test-shift-reg-by-literal:initialize-var</span>: +<span id="L37744" class="LineNr">37744 </span> <span class="subxComment"># var v/ecx: (payload var)</span> +<span id="L37745" class="LineNr">37745 </span> 68/push 0/imm32/register +<span id="L37746" class="LineNr">37746 </span> 68/push 0/imm32/register +<span id="L37747" class="LineNr">37747 </span> 68/push 0/imm32/no-stack-offset +<span id="L37748" class="LineNr">37748 </span> 68/push 1/imm32/block-depth +<span id="L37749" class="LineNr">37749 </span> 51/push-ecx +<span id="L37750" class="LineNr">37750 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37751" class="LineNr">37751 </span> 68/push 0/imm32/name +<span id="L37752" class="LineNr">37752 </span> 68/push 0/imm32/name +<span id="L37753" class="LineNr">37753 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37754" class="LineNr">37754 </span> 89/<- %ecx 4/r32/esp +<span id="L37755" class="LineNr">37755 </span><span class="Constant">$test-shift-reg-by-literal:initialize-var-name</span>: +<span id="L37756" class="LineNr">37756 </span> <span class="subxComment"># v->name = "v"</span> +<span id="L37757" class="LineNr">37757 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37758" class="LineNr">37758 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"v"</span> %eax) +<span id="L37759" class="LineNr">37759 </span><span class="Constant">$test-shift-reg-by-literal:initialize-var-register</span>: +<span id="L37760" class="LineNr">37760 </span> <span class="subxComment"># v->register = "ecx"</span> +<span id="L37761" class="LineNr">37761 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L37762" class="LineNr">37762 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ecx"</span> %eax) +<span id="L37763" class="LineNr">37763 </span><span class="Constant">$test-shift-reg-by-literal:initialize-literal-type</span>: +<span id="L37764" class="LineNr">37764 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> +<span id="L37765" class="LineNr">37765 </span> 68/push 0/imm32/right:null +<span id="L37766" class="LineNr">37766 </span> 68/push 0/imm32/right:null +<span id="L37767" class="LineNr">37767 </span> 68/push 0/imm32/left:unused +<span id="L37768" class="LineNr">37768 </span> 68/push 0/imm32/value:literal +<span id="L37769" class="LineNr">37769 </span> 68/push 1/imm32/is-atom?:true +<span id="L37770" class="LineNr">37770 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37771" class="LineNr">37771 </span> 89/<- %edx 4/r32/esp +<span id="L37772" class="LineNr">37772 </span><span class="Constant">$test-shift-reg-by-literal:initialize-literal</span>: +<span id="L37773" class="LineNr">37773 </span> <span class="subxComment"># var l/edx: (payload var)</span> +<span id="L37774" class="LineNr">37774 </span> 68/push 0/imm32/register +<span id="L37775" class="LineNr">37775 </span> 68/push 0/imm32/register +<span id="L37776" class="LineNr">37776 </span> 68/push 0/imm32/no-stack-offset +<span id="L37777" class="LineNr">37777 </span> 68/push 1/imm32/block-depth +<span id="L37778" class="LineNr">37778 </span> 52/push-edx +<span id="L37779" class="LineNr">37779 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37780" class="LineNr">37780 </span> 68/push 0/imm32/name +<span id="L37781" class="LineNr">37781 </span> 68/push 0/imm32/name +<span id="L37782" class="LineNr">37782 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37783" class="LineNr">37783 </span> 89/<- %edx 4/r32/esp +<span id="L37784" class="LineNr">37784 </span><span class="Constant">$test-shift-reg-by-literal:initialize-literal-value</span>: +<span id="L37785" class="LineNr">37785 </span> <span class="subxComment"># l->name = "2"</span> +<span id="L37786" class="LineNr">37786 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37787" class="LineNr">37787 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"2"</span> %eax) +<span id="L37788" class="LineNr">37788 </span><span class="Constant">$test-shift-reg-by-literal:initialize-inouts</span>: +<span id="L37789" class="LineNr">37789 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> +<span id="L37790" class="LineNr">37790 </span> 68/push 0/imm32/is-deref:false <span id="L37791" class="LineNr">37791 </span> 68/push 0/imm32/next -<span id="L37792" class="LineNr">37792 </span> 52/push-edx/var2 -<span id="L37793" class="LineNr">37793 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37794" class="LineNr">37794 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37795" class="LineNr">37795 </span> 89/<- %esi 4/r32/esp -<span id="L37796" class="LineNr">37796 </span> <span class="subxComment"># inouts = [var1, var2]</span> -<span id="L37797" class="LineNr">37797 </span> 68/push 0/imm32/is-deref:false -<span id="L37798" class="LineNr">37798 </span> 56/push-esi/next -<span id="L37799" class="LineNr">37799 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37800" class="LineNr">37800 </span> 51/push-ecx/var1 -<span id="L37801" class="LineNr">37801 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37802" class="LineNr">37802 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37803" class="LineNr">37803 </span> 89/<- %esi 4/r32/esp -<span id="L37804" class="LineNr">37804 </span><span class="Constant">$test-compare-mem-with-reg:initialize-stmt</span>: -<span id="L37805" class="LineNr">37805 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L37806" class="LineNr">37806 </span> 68/push 0/imm32/next -<span id="L37807" class="LineNr">37807 </span> 68/push 0/imm32/next -<span id="L37808" class="LineNr">37808 </span> 68/push 0/imm32/outputs -<span id="L37809" class="LineNr">37809 </span> 68/push 0/imm32/outputs -<span id="L37810" class="LineNr">37810 </span> 56/push-esi/inouts +<span id="L37792" class="LineNr">37792 </span> 68/push 0/imm32/next +<span id="L37793" class="LineNr">37793 </span> 52/push-edx/l +<span id="L37794" class="LineNr">37794 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37795" class="LineNr">37795 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37796" class="LineNr">37796 </span> 89/<- %esi 4/r32/esp +<span id="L37797" class="LineNr">37797 </span><span class="Constant">$test-shift-reg-by-literal:initialize-outputs</span>: +<span id="L37798" class="LineNr">37798 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [v]</span> +<span id="L37799" class="LineNr">37799 </span> 68/push 0/imm32/is-deref:false +<span id="L37800" class="LineNr">37800 </span> 68/push 0/imm32/next +<span id="L37801" class="LineNr">37801 </span> 68/push 0/imm32/next +<span id="L37802" class="LineNr">37802 </span> 51/push-ecx/v +<span id="L37803" class="LineNr">37803 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37804" class="LineNr">37804 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37805" class="LineNr">37805 </span> 89/<- %edi 4/r32/esp +<span id="L37806" class="LineNr">37806 </span><span class="Constant">$test-shift-reg-by-literal:initialize-stmt</span>: +<span id="L37807" class="LineNr">37807 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L37808" class="LineNr">37808 </span> 68/push 0/imm32/next +<span id="L37809" class="LineNr">37809 </span> 68/push 0/imm32/next +<span id="L37810" class="LineNr">37810 </span> 57/push-edi/outputs <span id="L37811" class="LineNr">37811 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37812" class="LineNr">37812 </span> 68/push 0/imm32/operation -<span id="L37813" class="LineNr">37813 </span> 68/push 0/imm32/operation -<span id="L37814" class="LineNr">37814 </span> 68/push 1/imm32/tag:stmt1 -<span id="L37815" class="LineNr">37815 </span> 89/<- %esi 4/r32/esp -<span id="L37816" class="LineNr">37816 </span><span class="Constant">$test-compare-mem-with-reg:initialize-stmt-operation</span>: -<span id="L37817" class="LineNr">37817 </span> <span class="subxComment"># stmt->operation = "compare"</span> -<span id="L37818" class="LineNr">37818 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L37819" class="LineNr">37819 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"compare"</span> %eax) -<span id="L37820" class="LineNr">37820 </span> <span class="subxComment"># convert</span> -<span id="L37821" class="LineNr">37821 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span> 0/imm32 -<span id="L37822" class="LineNr">37822 </span> (<a href='mu.subx.html#L28630'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L30394'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L37823" class="LineNr">37823 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L37824" class="Folded">37824 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L37830" class="LineNr">37830 </span> <span class="subxComment"># check output</span> -<span id="L37831" class="LineNr">37831 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"39/compare-> *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - test-compare-mem-with-reg"</span>) -<span id="L37832" class="LineNr">37832 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L37833" class="LineNr">37833 </span> 89/<- %esp 5/r32/ebp -<span id="L37834" class="LineNr">37834 </span> 5d/pop-to-ebp -<span id="L37835" class="LineNr">37835 </span> c3/return -<span id="L37836" class="LineNr">37836 </span> -<span id="L37837" class="LineNr">37837 </span><span class="subxTest">test-compare-reg-with-mem</span>: -<span id="L37838" class="LineNr">37838 </span> <span class="subxComment"># compare var1/eax, var2</span> -<span id="L37839" class="LineNr">37839 </span> <span class="subxComment"># =></span> -<span id="L37840" class="LineNr">37840 </span> <span class="subxComment"># 3b/compare<- *(ebp+___) 0/r32/eax</span> -<span id="L37841" class="LineNr">37841 </span> <span class="subxComment">#</span> -<span id="L37842" class="LineNr">37842 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L37843" class="LineNr">37843 </span> 55/push-ebp -<span id="L37844" class="LineNr">37844 </span> 89/<- %ebp 4/r32/esp -<span id="L37845" class="LineNr">37845 </span> <span class="subxComment"># setup</span> -<span id="L37846" class="LineNr">37846 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L37847" class="LineNr">37847 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L37848" class="LineNr">37848 </span><span class="Constant">$test-compare-reg-with-mem:initialize-type</span>: -<span id="L37849" class="LineNr">37849 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L37850" class="LineNr">37850 </span> 68/push 0/imm32/right:null -<span id="L37851" class="LineNr">37851 </span> 68/push 0/imm32/right:null -<span id="L37852" class="LineNr">37852 </span> 68/push 0/imm32/left:unused -<span id="L37853" class="LineNr">37853 </span> 68/push 1/imm32/value:int -<span id="L37854" class="LineNr">37854 </span> 68/push 1/imm32/is-atom?:true -<span id="L37855" class="LineNr">37855 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37856" class="LineNr">37856 </span> 89/<- %ecx 4/r32/esp -<span id="L37857" class="LineNr">37857 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var1</span>: -<span id="L37858" class="LineNr">37858 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L37859" class="LineNr">37859 </span> 68/push 0/imm32/register -<span id="L37860" class="LineNr">37860 </span> 68/push 0/imm32/register -<span id="L37861" class="LineNr">37861 </span> 68/push 0/imm32/no-stack-offset -<span id="L37862" class="LineNr">37862 </span> 68/push 1/imm32/block-depth -<span id="L37863" class="LineNr">37863 </span> 51/push-ecx -<span id="L37864" class="LineNr">37864 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37865" class="LineNr">37865 </span> 68/push 0/imm32/name -<span id="L37866" class="LineNr">37866 </span> 68/push 0/imm32/name -<span id="L37867" class="LineNr">37867 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37868" class="LineNr">37868 </span> 89/<- %ecx 4/r32/esp -<span id="L37869" class="LineNr">37869 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var1-name</span>: -<span id="L37870" class="LineNr">37870 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L37871" class="LineNr">37871 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37872" class="LineNr">37872 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) -<span id="L37873" class="LineNr">37873 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var1-register</span>: -<span id="L37874" class="LineNr">37874 </span> <span class="subxComment"># var1->register = "eax"</span> -<span id="L37875" class="LineNr">37875 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L37876" class="LineNr">37876 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) -<span id="L37877" class="LineNr">37877 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var2</span>: -<span id="L37878" class="LineNr">37878 </span> <span class="subxComment"># var var2/edx: (payload var)</span> -<span id="L37879" class="LineNr">37879 </span> 68/push 0/imm32/register -<span id="L37880" class="LineNr">37880 </span> 68/push 0/imm32/register -<span id="L37881" class="LineNr">37881 </span> 68/push 8/imm32/stack-offset -<span id="L37882" class="LineNr">37882 </span> 68/push 1/imm32/block-depth -<span id="L37883" class="LineNr">37883 </span> ff 6/subop/push *(ecx+0x10) -<span id="L37884" class="LineNr">37884 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37885" class="LineNr">37885 </span> 68/push 0/imm32/name -<span id="L37886" class="LineNr">37886 </span> 68/push 0/imm32/name -<span id="L37887" class="LineNr">37887 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37888" class="LineNr">37888 </span> 89/<- %edx 4/r32/esp -<span id="L37889" class="LineNr">37889 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var2-name</span>: -<span id="L37890" class="LineNr">37890 </span> <span class="subxComment"># var2->name = "var2"</span> -<span id="L37891" class="LineNr">37891 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37892" class="LineNr">37892 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var2"</span> %eax) -<span id="L37893" class="LineNr">37893 </span><span class="Constant">$test-compare-reg-with-mem:initialize-inouts</span>: -<span id="L37894" class="LineNr">37894 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> -<span id="L37895" class="LineNr">37895 </span> 68/push 0/imm32/is-deref:false -<span id="L37896" class="LineNr">37896 </span> 68/push 0/imm32/next -<span id="L37897" class="LineNr">37897 </span> 68/push 0/imm32/next -<span id="L37898" class="LineNr">37898 </span> 52/push-edx/var2 -<span id="L37899" class="LineNr">37899 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37900" class="LineNr">37900 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37901" class="LineNr">37901 </span> 89/<- %esi 4/r32/esp -<span id="L37902" class="LineNr">37902 </span> <span class="subxComment"># inouts = [var1, var2]</span> -<span id="L37903" class="LineNr">37903 </span> 68/push 0/imm32/is-deref:false -<span id="L37904" class="LineNr">37904 </span> 56/push-esi/next -<span id="L37905" class="LineNr">37905 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37906" class="LineNr">37906 </span> 51/push-ecx/var1 -<span id="L37907" class="LineNr">37907 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37908" class="LineNr">37908 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37909" class="LineNr">37909 </span> 89/<- %esi 4/r32/esp -<span id="L37910" class="LineNr">37910 </span><span class="Constant">$test-compare-reg-with-mem:initialize-stmt</span>: -<span id="L37911" class="LineNr">37911 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L37912" class="LineNr">37912 </span> 68/push 0/imm32/next -<span id="L37913" class="LineNr">37913 </span> 68/push 0/imm32/next -<span id="L37914" class="LineNr">37914 </span> 68/push 0/imm32/outputs -<span id="L37915" class="LineNr">37915 </span> 68/push 0/imm32/outputs -<span id="L37916" class="LineNr">37916 </span> 56/push-esi/inouts -<span id="L37917" class="LineNr">37917 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37918" class="LineNr">37918 </span> 68/push 0/imm32/operation -<span id="L37919" class="LineNr">37919 </span> 68/push 0/imm32/operation -<span id="L37920" class="LineNr">37920 </span> 68/push 1/imm32/tag:stmt1 -<span id="L37921" class="LineNr">37921 </span> 89/<- %esi 4/r32/esp -<span id="L37922" class="LineNr">37922 </span><span class="Constant">$test-compare-reg-with-mem:initialize-stmt-operation</span>: -<span id="L37923" class="LineNr">37923 </span> <span class="subxComment"># stmt->operation = "compare"</span> -<span id="L37924" class="LineNr">37924 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L37925" class="LineNr">37925 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"compare"</span> %eax) -<span id="L37926" class="LineNr">37926 </span> <span class="subxComment"># convert</span> -<span id="L37927" class="LineNr">37927 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span> 0/imm32 -<span id="L37928" class="LineNr">37928 </span> (<a href='mu.subx.html#L28630'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L30394'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L37929" class="LineNr">37929 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L37930" class="Folded">37930 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L37936" class="LineNr">37936 </span> <span class="subxComment"># check output</span> -<span id="L37937" class="LineNr">37937 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"3b/compare<- *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - test-compare-reg-with-mem"</span>) -<span id="L37938" class="LineNr">37938 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L37939" class="LineNr">37939 </span> 89/<- %esp 5/r32/ebp -<span id="L37940" class="LineNr">37940 </span> 5d/pop-to-ebp -<span id="L37941" class="LineNr">37941 </span> c3/return -<span id="L37942" class="LineNr">37942 </span> -<span id="L37943" class="LineNr">37943 </span><span class="subxTest">test-compare-mem-with-literal</span>: -<span id="L37944" class="LineNr">37944 </span> <span class="subxComment"># compare var1, 0x34</span> -<span id="L37945" class="LineNr">37945 </span> <span class="subxComment"># =></span> -<span id="L37946" class="LineNr">37946 </span> <span class="subxComment"># 81 7/subop/compare *(ebp+___) 0x34/imm32</span> -<span id="L37947" class="LineNr">37947 </span> <span class="subxComment">#</span> -<span id="L37948" class="LineNr">37948 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L37949" class="LineNr">37949 </span> 55/push-ebp -<span id="L37950" class="LineNr">37950 </span> 89/<- %ebp 4/r32/esp -<span id="L37951" class="LineNr">37951 </span> <span class="subxComment"># setup</span> -<span id="L37952" class="LineNr">37952 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L37953" class="LineNr">37953 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L37954" class="LineNr">37954 </span><span class="Constant">$test-compare-mem-with-literal:initialize-type</span>: -<span id="L37955" class="LineNr">37955 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L37956" class="LineNr">37956 </span> 68/push 0/imm32/right:null -<span id="L37957" class="LineNr">37957 </span> 68/push 0/imm32/right:null -<span id="L37958" class="LineNr">37958 </span> 68/push 0/imm32/left:unused -<span id="L37959" class="LineNr">37959 </span> 68/push 1/imm32/value:int -<span id="L37960" class="LineNr">37960 </span> 68/push 1/imm32/is-atom?:true -<span id="L37961" class="LineNr">37961 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37962" class="LineNr">37962 </span> 89/<- %ecx 4/r32/esp -<span id="L37963" class="LineNr">37963 </span><span class="Constant">$test-compare-mem-with-literal:initialize-var1</span>: -<span id="L37964" class="LineNr">37964 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L37965" class="LineNr">37965 </span> 68/push 0/imm32/register -<span id="L37966" class="LineNr">37966 </span> 68/push 0/imm32/register -<span id="L37967" class="LineNr">37967 </span> 68/push 8/imm32/stack-offset -<span id="L37968" class="LineNr">37968 </span> 68/push 1/imm32/block-depth -<span id="L37969" class="LineNr">37969 </span> 51/push-ecx -<span id="L37970" class="LineNr">37970 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37971" class="LineNr">37971 </span> 68/push 0/imm32/name -<span id="L37972" class="LineNr">37972 </span> 68/push 0/imm32/name -<span id="L37973" class="LineNr">37973 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37974" class="LineNr">37974 </span> 89/<- %ecx 4/r32/esp -<span id="L37975" class="LineNr">37975 </span><span class="Constant">$test-compare-mem-with-literal:initialize-var1-name</span>: -<span id="L37976" class="LineNr">37976 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L37977" class="LineNr">37977 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37978" class="LineNr">37978 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) -<span id="L37979" class="LineNr">37979 </span><span class="Constant">$test-compare-mem-with-literal:initialize-literal-type</span>: -<span id="L37980" class="LineNr">37980 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> -<span id="L37981" class="LineNr">37981 </span> 68/push 0/imm32/right:null -<span id="L37982" class="LineNr">37982 </span> 68/push 0/imm32/right:null -<span id="L37983" class="LineNr">37983 </span> 68/push 0/imm32/left:unused -<span id="L37984" class="LineNr">37984 </span> 68/push 0/imm32/value:literal -<span id="L37985" class="LineNr">37985 </span> 68/push 1/imm32/is-atom?:true -<span id="L37986" class="LineNr">37986 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37987" class="LineNr">37987 </span> 89/<- %edx 4/r32/esp -<span id="L37988" class="LineNr">37988 </span><span class="Constant">$test-compare-mem-with-literal:initialize-literal</span>: -<span id="L37989" class="LineNr">37989 </span> <span class="subxComment"># var l/edx: (payload var)</span> -<span id="L37990" class="LineNr">37990 </span> 68/push 0/imm32/register -<span id="L37991" class="LineNr">37991 </span> 68/push 0/imm32/register -<span id="L37992" class="LineNr">37992 </span> 68/push 0/imm32/no-stack-offset -<span id="L37993" class="LineNr">37993 </span> 68/push 1/imm32/block-depth -<span id="L37994" class="LineNr">37994 </span> 52/push-edx -<span id="L37995" class="LineNr">37995 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37996" class="LineNr">37996 </span> 68/push 0/imm32/name -<span id="L37997" class="LineNr">37997 </span> 68/push 0/imm32/name -<span id="L37998" class="LineNr">37998 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37999" class="LineNr">37999 </span> 89/<- %edx 4/r32/esp -<span id="L38000" class="LineNr">38000 </span><span class="Constant">$test-compare-mem-with-literal:initialize-literal-value</span>: -<span id="L38001" class="LineNr">38001 </span> <span class="subxComment"># l->name = "0x34"</span> -<span id="L38002" class="LineNr">38002 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L38003" class="LineNr">38003 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"0x34"</span> %eax) -<span id="L38004" class="LineNr">38004 </span><span class="Constant">$test-compare-mem-with-literal:initialize-inouts</span>: -<span id="L38005" class="LineNr">38005 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> -<span id="L38006" class="LineNr">38006 </span> 68/push 0/imm32/is-deref:false -<span id="L38007" class="LineNr">38007 </span> 68/push 0/imm32/next -<span id="L38008" class="LineNr">38008 </span> 68/push 0/imm32/next -<span id="L38009" class="LineNr">38009 </span> 52/push-edx/l -<span id="L38010" class="LineNr">38010 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38011" class="LineNr">38011 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38012" class="LineNr">38012 </span> 89/<- %esi 4/r32/esp -<span id="L38013" class="LineNr">38013 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> -<span id="L38014" class="LineNr">38014 </span> 68/push 0/imm32/is-deref:false -<span id="L38015" class="LineNr">38015 </span> 56/push-esi/next +<span id="L37812" class="LineNr">37812 </span> 56/push-esi/inouts +<span id="L37813" class="LineNr">37813 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37814" class="LineNr">37814 </span> 68/push 0/imm32/operation +<span id="L37815" class="LineNr">37815 </span> 68/push 0/imm32/operation +<span id="L37816" class="LineNr">37816 </span> 68/push 1/imm32/tag:stmt1 +<span id="L37817" class="LineNr">37817 </span> 89/<- %esi 4/r32/esp +<span id="L37818" class="LineNr">37818 </span><span class="Constant">$test-shift-reg-by-literal:initialize-stmt-operation</span>: +<span id="L37819" class="LineNr">37819 </span> <span class="subxComment"># stmt->operation = "shift-left"</span> +<span id="L37820" class="LineNr">37820 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L37821" class="LineNr">37821 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"shift-left"</span> %eax) +<span id="L37822" class="LineNr">37822 </span> <span class="subxComment"># convert</span> +<span id="L37823" class="LineNr">37823 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span> 0/imm32 +<span id="L37824" class="LineNr">37824 </span> (<a href='mu.subx.html#L28660'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L30450'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L37825" class="LineNr">37825 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L37826" class="Folded">37826 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L37832" class="LineNr">37832 </span> <span class="subxComment"># check output</span> +<span id="L37833" class="LineNr">37833 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"c1/shift 4/subop/left %ecx 2/imm8"</span> <span class="Constant">"F - test-shift-reg-by-literal"</span>) +<span id="L37834" class="LineNr">37834 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L37835" class="LineNr">37835 </span> 89/<- %esp 5/r32/ebp +<span id="L37836" class="LineNr">37836 </span> 5d/pop-to-ebp +<span id="L37837" class="LineNr">37837 </span> c3/return +<span id="L37838" class="LineNr">37838 </span> +<span id="L37839" class="LineNr">37839 </span><span class="subxTest">test-shift-mem-by-literal</span>: +<span id="L37840" class="LineNr">37840 </span> <span class="subxComment"># shift-left var 3</span> +<span id="L37841" class="LineNr">37841 </span> <span class="subxComment"># =></span> +<span id="L37842" class="LineNr">37842 </span> <span class="subxComment"># c1/shift 4/subop/left *(ebp+8) 3/imm8</span> +<span id="L37843" class="LineNr">37843 </span> <span class="subxComment">#</span> +<span id="L37844" class="LineNr">37844 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L37845" class="LineNr">37845 </span> 55/push-ebp +<span id="L37846" class="LineNr">37846 </span> 89/<- %ebp 4/r32/esp +<span id="L37847" class="LineNr">37847 </span> <span class="subxComment"># setup</span> +<span id="L37848" class="LineNr">37848 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L37849" class="LineNr">37849 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L37850" class="LineNr">37850 </span><span class="Constant">$test-shift-mem-by-literal:initialize-type</span>: +<span id="L37851" class="LineNr">37851 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L37852" class="LineNr">37852 </span> 68/push 0/imm32/right:null +<span id="L37853" class="LineNr">37853 </span> 68/push 0/imm32/right:null +<span id="L37854" class="LineNr">37854 </span> 68/push 0/imm32/left:unused +<span id="L37855" class="LineNr">37855 </span> 68/push 1/imm32/value:int +<span id="L37856" class="LineNr">37856 </span> 68/push 1/imm32/is-atom?:true +<span id="L37857" class="LineNr">37857 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37858" class="LineNr">37858 </span> 89/<- %ecx 4/r32/esp +<span id="L37859" class="LineNr">37859 </span><span class="Constant">$test-shift-mem-by-literal:initialize-var1</span>: +<span id="L37860" class="LineNr">37860 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L37861" class="LineNr">37861 </span> 68/push 0/imm32/register +<span id="L37862" class="LineNr">37862 </span> 68/push 0/imm32/register +<span id="L37863" class="LineNr">37863 </span> 68/push 8/imm32/stack-offset +<span id="L37864" class="LineNr">37864 </span> 68/push 1/imm32/block-depth +<span id="L37865" class="LineNr">37865 </span> 51/push-ecx +<span id="L37866" class="LineNr">37866 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37867" class="LineNr">37867 </span> 68/push 0/imm32/name +<span id="L37868" class="LineNr">37868 </span> 68/push 0/imm32/name +<span id="L37869" class="LineNr">37869 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37870" class="LineNr">37870 </span> 89/<- %ecx 4/r32/esp +<span id="L37871" class="LineNr">37871 </span><span class="Constant">$test-shift-mem-by-literal:initialize-var1-name</span>: +<span id="L37872" class="LineNr">37872 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L37873" class="LineNr">37873 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37874" class="LineNr">37874 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) +<span id="L37875" class="LineNr">37875 </span><span class="Constant">$test-shift-mem-by-literal:initialize-literal-type</span>: +<span id="L37876" class="LineNr">37876 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> +<span id="L37877" class="LineNr">37877 </span> 68/push 0/imm32/right:null +<span id="L37878" class="LineNr">37878 </span> 68/push 0/imm32/right:null +<span id="L37879" class="LineNr">37879 </span> 68/push 0/imm32/left:unused +<span id="L37880" class="LineNr">37880 </span> 68/push 0/imm32/value:literal +<span id="L37881" class="LineNr">37881 </span> 68/push 1/imm32/is-atom?:true +<span id="L37882" class="LineNr">37882 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37883" class="LineNr">37883 </span> 89/<- %edx 4/r32/esp +<span id="L37884" class="LineNr">37884 </span><span class="Constant">$test-shift-mem-by-literal:initialize-literal</span>: +<span id="L37885" class="LineNr">37885 </span> <span class="subxComment"># var l/edx: (payload var)</span> +<span id="L37886" class="LineNr">37886 </span> 68/push 0/imm32/register +<span id="L37887" class="LineNr">37887 </span> 68/push 0/imm32/register +<span id="L37888" class="LineNr">37888 </span> 68/push 0/imm32/no-stack-offset +<span id="L37889" class="LineNr">37889 </span> 68/push 1/imm32/block-depth +<span id="L37890" class="LineNr">37890 </span> 52/push-edx +<span id="L37891" class="LineNr">37891 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37892" class="LineNr">37892 </span> 68/push 0/imm32/name +<span id="L37893" class="LineNr">37893 </span> 68/push 0/imm32/name +<span id="L37894" class="LineNr">37894 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37895" class="LineNr">37895 </span> 89/<- %edx 4/r32/esp +<span id="L37896" class="LineNr">37896 </span><span class="Constant">$test-shift-mem-by-literal:initialize-literal-value</span>: +<span id="L37897" class="LineNr">37897 </span> <span class="subxComment"># l->name = "3"</span> +<span id="L37898" class="LineNr">37898 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37899" class="LineNr">37899 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"3"</span> %eax) +<span id="L37900" class="LineNr">37900 </span><span class="Constant">$test-shift-mem-by-literal:initialize-inouts</span>: +<span id="L37901" class="LineNr">37901 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> +<span id="L37902" class="LineNr">37902 </span> 68/push 0/imm32/is-deref:false +<span id="L37903" class="LineNr">37903 </span> 68/push 0/imm32/next +<span id="L37904" class="LineNr">37904 </span> 68/push 0/imm32/next +<span id="L37905" class="LineNr">37905 </span> 52/push-edx/l +<span id="L37906" class="LineNr">37906 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37907" class="LineNr">37907 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37908" class="LineNr">37908 </span> 89/<- %esi 4/r32/esp +<span id="L37909" class="LineNr">37909 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> +<span id="L37910" class="LineNr">37910 </span> 68/push 0/imm32/is-deref:false +<span id="L37911" class="LineNr">37911 </span> 56/push-esi/next +<span id="L37912" class="LineNr">37912 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37913" class="LineNr">37913 </span> 51/push-ecx/var1 +<span id="L37914" class="LineNr">37914 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37915" class="LineNr">37915 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37916" class="LineNr">37916 </span> 89/<- %esi 4/r32/esp +<span id="L37917" class="LineNr">37917 </span><span class="Constant">$test-shift-mem-by-literal:initialize-stmt</span>: +<span id="L37918" class="LineNr">37918 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L37919" class="LineNr">37919 </span> 68/push 0/imm32/next +<span id="L37920" class="LineNr">37920 </span> 68/push 0/imm32/next +<span id="L37921" class="LineNr">37921 </span> 68/push 0/imm32/outputs +<span id="L37922" class="LineNr">37922 </span> 68/push 0/imm32/outputs +<span id="L37923" class="LineNr">37923 </span> 56/push-esi/inouts +<span id="L37924" class="LineNr">37924 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37925" class="LineNr">37925 </span> 68/push 0/imm32/operation +<span id="L37926" class="LineNr">37926 </span> 68/push 0/imm32/operation +<span id="L37927" class="LineNr">37927 </span> 68/push 1/imm32/tag:stmt1 +<span id="L37928" class="LineNr">37928 </span> 89/<- %esi 4/r32/esp +<span id="L37929" class="LineNr">37929 </span><span class="Constant">$test-shift-mem-by-literal:initialize-stmt-operation</span>: +<span id="L37930" class="LineNr">37930 </span> <span class="subxComment"># stmt->operation = "shift-left"</span> +<span id="L37931" class="LineNr">37931 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L37932" class="LineNr">37932 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"shift-left"</span> %eax) +<span id="L37933" class="LineNr">37933 </span> <span class="subxComment"># convert</span> +<span id="L37934" class="LineNr">37934 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span> 0/imm32 +<span id="L37935" class="LineNr">37935 </span> (<a href='mu.subx.html#L28660'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L30450'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L37936" class="LineNr">37936 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L37937" class="Folded">37937 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L37943" class="LineNr">37943 </span> <span class="subxComment"># check output</span> +<span id="L37944" class="LineNr">37944 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"c1/shift 4/subop/left *(ebp+0x00000008) 3/imm8"</span> <span class="Constant">"F - test-shift-mem-by-literal"</span>) +<span id="L37945" class="LineNr">37945 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L37946" class="LineNr">37946 </span> 89/<- %esp 5/r32/ebp +<span id="L37947" class="LineNr">37947 </span> 5d/pop-to-ebp +<span id="L37948" class="LineNr">37948 </span> c3/return +<span id="L37949" class="LineNr">37949 </span> +<span id="L37950" class="LineNr">37950 </span><span class="subxTest">test-compare-reg-with-reg</span>: +<span id="L37951" class="LineNr">37951 </span> <span class="subxComment"># compare var1/ecx, var2/eax</span> +<span id="L37952" class="LineNr">37952 </span> <span class="subxComment"># =></span> +<span id="L37953" class="LineNr">37953 </span> <span class="subxComment"># 39/compare %ecx 0/r32/eax</span> +<span id="L37954" class="LineNr">37954 </span> <span class="subxComment">#</span> +<span id="L37955" class="LineNr">37955 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L37956" class="LineNr">37956 </span> 55/push-ebp +<span id="L37957" class="LineNr">37957 </span> 89/<- %ebp 4/r32/esp +<span id="L37958" class="LineNr">37958 </span> <span class="subxComment"># setup</span> +<span id="L37959" class="LineNr">37959 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L37960" class="LineNr">37960 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L37961" class="LineNr">37961 </span><span class="Constant">$test-compare-reg-with-reg:initialize-type</span>: +<span id="L37962" class="LineNr">37962 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L37963" class="LineNr">37963 </span> 68/push 0/imm32/right:null +<span id="L37964" class="LineNr">37964 </span> 68/push 0/imm32/right:null +<span id="L37965" class="LineNr">37965 </span> 68/push 0/imm32/left:unused +<span id="L37966" class="LineNr">37966 </span> 68/push 1/imm32/value:int +<span id="L37967" class="LineNr">37967 </span> 68/push 1/imm32/is-atom?:true +<span id="L37968" class="LineNr">37968 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37969" class="LineNr">37969 </span> 89/<- %ecx 4/r32/esp +<span id="L37970" class="LineNr">37970 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var1</span>: +<span id="L37971" class="LineNr">37971 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L37972" class="LineNr">37972 </span> 68/push 0/imm32/register +<span id="L37973" class="LineNr">37973 </span> 68/push 0/imm32/register +<span id="L37974" class="LineNr">37974 </span> 68/push 0/imm32/no-stack-offset +<span id="L37975" class="LineNr">37975 </span> 68/push 1/imm32/block-depth +<span id="L37976" class="LineNr">37976 </span> 51/push-ecx +<span id="L37977" class="LineNr">37977 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37978" class="LineNr">37978 </span> 68/push 0/imm32/name +<span id="L37979" class="LineNr">37979 </span> 68/push 0/imm32/name +<span id="L37980" class="LineNr">37980 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37981" class="LineNr">37981 </span> 89/<- %ecx 4/r32/esp +<span id="L37982" class="LineNr">37982 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var1-name</span>: +<span id="L37983" class="LineNr">37983 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L37984" class="LineNr">37984 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37985" class="LineNr">37985 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) +<span id="L37986" class="LineNr">37986 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var1-register</span>: +<span id="L37987" class="LineNr">37987 </span> <span class="subxComment"># var1->register = "ecx"</span> +<span id="L37988" class="LineNr">37988 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L37989" class="LineNr">37989 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ecx"</span> %eax) +<span id="L37990" class="LineNr">37990 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var2</span>: +<span id="L37991" class="LineNr">37991 </span> <span class="subxComment"># var var2/edx: (payload var)</span> +<span id="L37992" class="LineNr">37992 </span> 68/push 0/imm32/register +<span id="L37993" class="LineNr">37993 </span> 68/push 0/imm32/register +<span id="L37994" class="LineNr">37994 </span> 68/push 0/imm32/no-stack-offset +<span id="L37995" class="LineNr">37995 </span> 68/push 1/imm32/block-depth +<span id="L37996" class="LineNr">37996 </span> ff 6/subop/push *(ecx+0x10) +<span id="L37997" class="LineNr">37997 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37998" class="LineNr">37998 </span> 68/push 0/imm32/name +<span id="L37999" class="LineNr">37999 </span> 68/push 0/imm32/name +<span id="L38000" class="LineNr">38000 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38001" class="LineNr">38001 </span> 89/<- %edx 4/r32/esp +<span id="L38002" class="LineNr">38002 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var2-name</span>: +<span id="L38003" class="LineNr">38003 </span> <span class="subxComment"># var2->name = "var2"</span> +<span id="L38004" class="LineNr">38004 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L38005" class="LineNr">38005 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var2"</span> %eax) +<span id="L38006" class="LineNr">38006 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var2-register</span>: +<span id="L38007" class="LineNr">38007 </span> <span class="subxComment"># var2->register = "eax"</span> +<span id="L38008" class="LineNr">38008 </span> 8d/copy-address *(edx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L38009" class="LineNr">38009 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) +<span id="L38010" class="LineNr">38010 </span><span class="Constant">$test-compare-reg-with-reg:initialize-inouts</span>: +<span id="L38011" class="LineNr">38011 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> +<span id="L38012" class="LineNr">38012 </span> 68/push 0/imm32/is-deref:false +<span id="L38013" class="LineNr">38013 </span> 68/push 0/imm32/next +<span id="L38014" class="LineNr">38014 </span> 68/push 0/imm32/next +<span id="L38015" class="LineNr">38015 </span> 52/push-edx/var2 <span id="L38016" class="LineNr">38016 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38017" class="LineNr">38017 </span> 51/push-ecx/var1 -<span id="L38018" class="LineNr">38018 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38019" class="LineNr">38019 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38020" class="LineNr">38020 </span> 89/<- %esi 4/r32/esp -<span id="L38021" class="LineNr">38021 </span><span class="Constant">$test-compare-mem-with-literal:initialize-stmt</span>: -<span id="L38022" class="LineNr">38022 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L38023" class="LineNr">38023 </span> 68/push 0/imm32/next -<span id="L38024" class="LineNr">38024 </span> 68/push 0/imm32/next -<span id="L38025" class="LineNr">38025 </span> 68/push 0/imm32/outputs -<span id="L38026" class="LineNr">38026 </span> 68/push 0/imm32/outputs -<span id="L38027" class="LineNr">38027 </span> 56/push-esi/inouts -<span id="L38028" class="LineNr">38028 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38029" class="LineNr">38029 </span> 68/push 0/imm32/operation -<span id="L38030" class="LineNr">38030 </span> 68/push 0/imm32/operation -<span id="L38031" class="LineNr">38031 </span> 68/push 1/imm32/tag:stmt1 -<span id="L38032" class="LineNr">38032 </span> 89/<- %esi 4/r32/esp -<span id="L38033" class="LineNr">38033 </span><span class="Constant">$test-compare-mem-with-literal:initialize-stmt-operation</span>: -<span id="L38034" class="LineNr">38034 </span> <span class="subxComment"># stmt->operation = "compare"</span> -<span id="L38035" class="LineNr">38035 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L38036" class="LineNr">38036 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"compare"</span> %eax) -<span id="L38037" class="LineNr">38037 </span> <span class="subxComment"># convert</span> -<span id="L38038" class="LineNr">38038 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span> 0/imm32 -<span id="L38039" class="LineNr">38039 </span> (<a href='mu.subx.html#L28630'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L30394'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L38040" class="LineNr">38040 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L38041" class="Folded">38041 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L38047" class="LineNr">38047 </span> <span class="subxComment"># check output</span> -<span id="L38048" class="LineNr">38048 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"81 7/subop/compare *(ebp+0x00000008) 0x34/imm32"</span> <span class="Constant">"F - test-compare-mem-with-literal"</span>) -<span id="L38049" class="LineNr">38049 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L38050" class="LineNr">38050 </span> 89/<- %esp 5/r32/ebp -<span id="L38051" class="LineNr">38051 </span> 5d/pop-to-ebp -<span id="L38052" class="LineNr">38052 </span> c3/return -<span id="L38053" class="LineNr">38053 </span> -<span id="L38054" class="LineNr">38054 </span><span class="subxTest">test-compare-eax-with-literal</span>: -<span id="L38055" class="LineNr">38055 </span> <span class="subxComment"># compare var1/eax 0x34</span> -<span id="L38056" class="LineNr">38056 </span> <span class="subxComment"># =></span> -<span id="L38057" class="LineNr">38057 </span> <span class="subxComment"># 3d/compare-eax-with 0x34/imm32</span> -<span id="L38058" class="LineNr">38058 </span> <span class="subxComment">#</span> -<span id="L38059" class="LineNr">38059 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L38060" class="LineNr">38060 </span> 55/push-ebp -<span id="L38061" class="LineNr">38061 </span> 89/<- %ebp 4/r32/esp -<span id="L38062" class="LineNr">38062 </span> <span class="subxComment"># setup</span> -<span id="L38063" class="LineNr">38063 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L38064" class="LineNr">38064 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L38065" class="LineNr">38065 </span><span class="Constant">$test-compare-eax-with-literal:initialize-type</span>: -<span id="L38066" class="LineNr">38066 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L38067" class="LineNr">38067 </span> 68/push 0/imm32/right:null -<span id="L38068" class="LineNr">38068 </span> 68/push 0/imm32/right:null -<span id="L38069" class="LineNr">38069 </span> 68/push 0/imm32/left:unused -<span id="L38070" class="LineNr">38070 </span> 68/push 1/imm32/value:int -<span id="L38071" class="LineNr">38071 </span> 68/push 1/imm32/is-atom?:true -<span id="L38072" class="LineNr">38072 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38073" class="LineNr">38073 </span> 89/<- %ecx 4/r32/esp -<span id="L38074" class="LineNr">38074 </span><span class="Constant">$test-compare-eax-with-literal:initialize-var1</span>: -<span id="L38075" class="LineNr">38075 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L38076" class="LineNr">38076 </span> 68/push 0/imm32/register -<span id="L38077" class="LineNr">38077 </span> 68/push 0/imm32/register -<span id="L38078" class="LineNr">38078 </span> 68/push 0/imm32/no-stack-offset -<span id="L38079" class="LineNr">38079 </span> 68/push 1/imm32/block-depth -<span id="L38080" class="LineNr">38080 </span> 51/push-ecx -<span id="L38081" class="LineNr">38081 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38082" class="LineNr">38082 </span> 68/push 0/imm32/name -<span id="L38083" class="LineNr">38083 </span> 68/push 0/imm32/name -<span id="L38084" class="LineNr">38084 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38085" class="LineNr">38085 </span> 89/<- %ecx 4/r32/esp -<span id="L38086" class="LineNr">38086 </span><span class="Constant">$test-compare-eax-with-literal:initialize-var1-name</span>: -<span id="L38087" class="LineNr">38087 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L38088" class="LineNr">38088 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L38089" class="LineNr">38089 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) -<span id="L38090" class="LineNr">38090 </span><span class="Constant">$test-compare-eax-with-literal:initialize-var1-register</span>: -<span id="L38091" class="LineNr">38091 </span> <span class="subxComment"># v->register = "eax"</span> -<span id="L38092" class="LineNr">38092 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L38093" class="LineNr">38093 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) -<span id="L38094" class="LineNr">38094 </span><span class="Constant">$test-compare-eax-with-literal:initialize-literal-type</span>: -<span id="L38095" class="LineNr">38095 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> -<span id="L38096" class="LineNr">38096 </span> 68/push 0/imm32/right:null -<span id="L38097" class="LineNr">38097 </span> 68/push 0/imm32/right:null -<span id="L38098" class="LineNr">38098 </span> 68/push 0/imm32/left:unused -<span id="L38099" class="LineNr">38099 </span> 68/push 0/imm32/value:literal -<span id="L38100" class="LineNr">38100 </span> 68/push 1/imm32/is-atom?:true -<span id="L38101" class="LineNr">38101 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38102" class="LineNr">38102 </span> 89/<- %edx 4/r32/esp -<span id="L38103" class="LineNr">38103 </span><span class="Constant">$test-compare-eax-with-literal:initialize-literal</span>: -<span id="L38104" class="LineNr">38104 </span> <span class="subxComment"># var l/edx: (payload var)</span> -<span id="L38105" class="LineNr">38105 </span> 68/push 0/imm32/register -<span id="L38106" class="LineNr">38106 </span> 68/push 0/imm32/register -<span id="L38107" class="LineNr">38107 </span> 68/push 0/imm32/no-stack-offset -<span id="L38108" class="LineNr">38108 </span> 68/push 1/imm32/block-depth -<span id="L38109" class="LineNr">38109 </span> 52/push-edx -<span id="L38110" class="LineNr">38110 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38111" class="LineNr">38111 </span> 68/push 0/imm32/name -<span id="L38112" class="LineNr">38112 </span> 68/push 0/imm32/name -<span id="L38113" class="LineNr">38113 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38114" class="LineNr">38114 </span> 89/<- %edx 4/r32/esp -<span id="L38115" class="LineNr">38115 </span><span class="Constant">$test-compare-eax-with-literal:initialize-literal-value</span>: -<span id="L38116" class="LineNr">38116 </span> <span class="subxComment"># l->name = "0x34"</span> -<span id="L38117" class="LineNr">38117 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L38118" class="LineNr">38118 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"0x34"</span> %eax) -<span id="L38119" class="LineNr">38119 </span><span class="Constant">$test-compare-eax-with-literal:initialize-inouts</span>: -<span id="L38120" class="LineNr">38120 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> -<span id="L38121" class="LineNr">38121 </span> 68/push 0/imm32/is-deref:false -<span id="L38122" class="LineNr">38122 </span> 68/push 0/imm32/next -<span id="L38123" class="LineNr">38123 </span> 68/push 0/imm32/next -<span id="L38124" class="LineNr">38124 </span> 52/push-edx/l -<span id="L38125" class="LineNr">38125 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38126" class="LineNr">38126 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38127" class="LineNr">38127 </span> 89/<- %esi 4/r32/esp -<span id="L38128" class="LineNr">38128 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> -<span id="L38129" class="LineNr">38129 </span> 68/push 0/imm32/is-deref:false -<span id="L38130" class="LineNr">38130 </span> 56/push-esi/next -<span id="L38131" class="LineNr">38131 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38132" class="LineNr">38132 </span> 51/push-ecx/var1 -<span id="L38133" class="LineNr">38133 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38134" class="LineNr">38134 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38135" class="LineNr">38135 </span> 89/<- %esi 4/r32/esp -<span id="L38136" class="LineNr">38136 </span><span class="Constant">$test-compare-eax-with-literal:initialize-stmt</span>: -<span id="L38137" class="LineNr">38137 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L38138" class="LineNr">38138 </span> 68/push 0/imm32/next -<span id="L38139" class="LineNr">38139 </span> 68/push 0/imm32/next -<span id="L38140" class="LineNr">38140 </span> 68/push 0/imm32/outputs -<span id="L38141" class="LineNr">38141 </span> 68/push 0/imm32/outputs -<span id="L38142" class="LineNr">38142 </span> 56/push-esi/inouts -<span id="L38143" class="LineNr">38143 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38144" class="LineNr">38144 </span> 68/push 0/imm32/operation -<span id="L38145" class="LineNr">38145 </span> 68/push 0/imm32/operation -<span id="L38146" class="LineNr">38146 </span> 68/push 1/imm32/tag:stmt1 -<span id="L38147" class="LineNr">38147 </span> 89/<- %esi 4/r32/esp -<span id="L38148" class="LineNr">38148 </span><span class="Constant">$test-compare-eax-with-literal:initialize-stmt-operation</span>: -<span id="L38149" class="LineNr">38149 </span> <span class="subxComment"># stmt->operation = "compare"</span> -<span id="L38150" class="LineNr">38150 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L38151" class="LineNr">38151 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"compare"</span> %eax) -<span id="L38152" class="LineNr">38152 </span> <span class="subxComment"># convert</span> -<span id="L38153" class="LineNr">38153 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span> 0/imm32 -<span id="L38154" class="LineNr">38154 </span> (<a href='mu.subx.html#L28630'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L30394'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L38155" class="LineNr">38155 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L38156" class="Folded">38156 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L38162" class="LineNr">38162 </span> <span class="subxComment"># check output</span> -<span id="L38163" class="LineNr">38163 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"3d/compare-eax-with 0x34/imm32"</span> <span class="Constant">"F - test-compare-eax-with-literal"</span>) -<span id="L38164" class="LineNr">38164 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L38165" class="LineNr">38165 </span> 89/<- %esp 5/r32/ebp -<span id="L38166" class="LineNr">38166 </span> 5d/pop-to-ebp -<span id="L38167" class="LineNr">38167 </span> c3/return -<span id="L38168" class="LineNr">38168 </span> -<span id="L38169" class="LineNr">38169 </span><span class="subxTest">test-compare-reg-with-literal</span>: -<span id="L38170" class="LineNr">38170 </span> <span class="subxComment"># compare var1/ecx 0x34</span> -<span id="L38171" class="LineNr">38171 </span> <span class="subxComment"># =></span> -<span id="L38172" class="LineNr">38172 </span> <span class="subxComment"># 81 7/subop/compare %ecx 0x34/imm32</span> -<span id="L38173" class="LineNr">38173 </span> <span class="subxComment">#</span> -<span id="L38174" class="LineNr">38174 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L38175" class="LineNr">38175 </span> 55/push-ebp -<span id="L38176" class="LineNr">38176 </span> 89/<- %ebp 4/r32/esp -<span id="L38177" class="LineNr">38177 </span> <span class="subxComment"># setup</span> -<span id="L38178" class="LineNr">38178 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L38179" class="LineNr">38179 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L38180" class="LineNr">38180 </span><span class="Constant">$test-compare-reg-with-literal:initialize-type</span>: -<span id="L38181" class="LineNr">38181 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L38182" class="LineNr">38182 </span> 68/push 0/imm32/right:null -<span id="L38183" class="LineNr">38183 </span> 68/push 0/imm32/right:null -<span id="L38184" class="LineNr">38184 </span> 68/push 0/imm32/left:unused -<span id="L38185" class="LineNr">38185 </span> 68/push 1/imm32/value:int -<span id="L38186" class="LineNr">38186 </span> 68/push 1/imm32/is-atom?:true -<span id="L38187" class="LineNr">38187 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38188" class="LineNr">38188 </span> 89/<- %ecx 4/r32/esp -<span id="L38189" class="LineNr">38189 </span><span class="Constant">$test-compare-reg-with-literal:initialize-var1</span>: -<span id="L38190" class="LineNr">38190 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L38191" class="LineNr">38191 </span> 68/push 0/imm32/register -<span id="L38192" class="LineNr">38192 </span> 68/push 0/imm32/register -<span id="L38193" class="LineNr">38193 </span> 68/push 0/imm32/no-stack-offset -<span id="L38194" class="LineNr">38194 </span> 68/push 1/imm32/block-depth -<span id="L38195" class="LineNr">38195 </span> 51/push-ecx -<span id="L38196" class="LineNr">38196 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38197" class="LineNr">38197 </span> 68/push 0/imm32/name -<span id="L38198" class="LineNr">38198 </span> 68/push 0/imm32/name -<span id="L38199" class="LineNr">38199 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38200" class="LineNr">38200 </span> 89/<- %ecx 4/r32/esp -<span id="L38201" class="LineNr">38201 </span><span class="Constant">$test-compare-reg-with-literal:initialize-var1-name</span>: -<span id="L38202" class="LineNr">38202 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L38203" class="LineNr">38203 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L38204" class="LineNr">38204 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) -<span id="L38205" class="LineNr">38205 </span><span class="Constant">$test-compare-reg-with-literal:initialize-var1-register</span>: -<span id="L38206" class="LineNr">38206 </span> <span class="subxComment"># v->register = "ecx"</span> -<span id="L38207" class="LineNr">38207 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L38208" class="LineNr">38208 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ecx"</span> %eax) -<span id="L38209" class="LineNr">38209 </span><span class="Constant">$test-compare-reg-with-literal:initialize-literal-type</span>: -<span id="L38210" class="LineNr">38210 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> -<span id="L38211" class="LineNr">38211 </span> 68/push 0/imm32/right:null -<span id="L38212" class="LineNr">38212 </span> 68/push 0/imm32/right:null -<span id="L38213" class="LineNr">38213 </span> 68/push 0/imm32/left:unused -<span id="L38214" class="LineNr">38214 </span> 68/push 0/imm32/value:literal -<span id="L38215" class="LineNr">38215 </span> 68/push 1/imm32/is-atom?:true +<span id="L38017" class="LineNr">38017 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38018" class="LineNr">38018 </span> 89/<- %esi 4/r32/esp +<span id="L38019" class="LineNr">38019 </span> <span class="subxComment"># inouts = [var1, var2]</span> +<span id="L38020" class="LineNr">38020 </span> 68/push 0/imm32/is-deref:false +<span id="L38021" class="LineNr">38021 </span> 56/push-esi/next +<span id="L38022" class="LineNr">38022 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38023" class="LineNr">38023 </span> 51/push-ecx/var1 +<span id="L38024" class="LineNr">38024 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38025" class="LineNr">38025 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38026" class="LineNr">38026 </span> 89/<- %esi 4/r32/esp +<span id="L38027" class="LineNr">38027 </span><span class="Constant">$test-compare-reg-with-reg:initialize-stmt</span>: +<span id="L38028" class="LineNr">38028 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L38029" class="LineNr">38029 </span> 68/push 0/imm32/next +<span id="L38030" class="LineNr">38030 </span> 68/push 0/imm32/next +<span id="L38031" class="LineNr">38031 </span> 68/push 0/imm32/outputs +<span id="L38032" class="LineNr">38032 </span> 68/push 0/imm32/outputs +<span id="L38033" class="LineNr">38033 </span> 56/push-esi/inouts +<span id="L38034" class="LineNr">38034 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38035" class="LineNr">38035 </span> 68/push 0/imm32/operation +<span id="L38036" class="LineNr">38036 </span> 68/push 0/imm32/operation +<span id="L38037" class="LineNr">38037 </span> 68/push 1/imm32/tag:stmt1 +<span id="L38038" class="LineNr">38038 </span> 89/<- %esi 4/r32/esp +<span id="L38039" class="LineNr">38039 </span><span class="Constant">$test-compare-reg-with-reg:initialize-stmt-operation</span>: +<span id="L38040" class="LineNr">38040 </span> <span class="subxComment"># stmt->operation = "compare"</span> +<span id="L38041" class="LineNr">38041 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L38042" class="LineNr">38042 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"compare"</span> %eax) +<span id="L38043" class="LineNr">38043 </span> <span class="subxComment"># convert</span> +<span id="L38044" class="LineNr">38044 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span> 0/imm32 +<span id="L38045" class="LineNr">38045 </span> (<a href='mu.subx.html#L28660'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L30450'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L38046" class="LineNr">38046 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L38047" class="Folded">38047 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L38053" class="LineNr">38053 </span> <span class="subxComment"># check output</span> +<span id="L38054" class="LineNr">38054 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"39/compare-> %ecx 0x00000000/r32"</span> <span class="Constant">"F - test-compare-reg-with-reg"</span>) +<span id="L38055" class="LineNr">38055 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L38056" class="LineNr">38056 </span> 89/<- %esp 5/r32/ebp +<span id="L38057" class="LineNr">38057 </span> 5d/pop-to-ebp +<span id="L38058" class="LineNr">38058 </span> c3/return +<span id="L38059" class="LineNr">38059 </span> +<span id="L38060" class="LineNr">38060 </span><span class="subxTest">test-compare-mem-with-reg</span>: +<span id="L38061" class="LineNr">38061 </span> <span class="subxComment"># compare var1, var2/eax</span> +<span id="L38062" class="LineNr">38062 </span> <span class="subxComment"># =></span> +<span id="L38063" class="LineNr">38063 </span> <span class="subxComment"># 39/compare *(ebp+___) 0/r32/eax</span> +<span id="L38064" class="LineNr">38064 </span> <span class="subxComment">#</span> +<span id="L38065" class="LineNr">38065 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L38066" class="LineNr">38066 </span> 55/push-ebp +<span id="L38067" class="LineNr">38067 </span> 89/<- %ebp 4/r32/esp +<span id="L38068" class="LineNr">38068 </span> <span class="subxComment"># setup</span> +<span id="L38069" class="LineNr">38069 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L38070" class="LineNr">38070 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L38071" class="LineNr">38071 </span><span class="Constant">$test-compare-mem-with-reg:initialize-type</span>: +<span id="L38072" class="LineNr">38072 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L38073" class="LineNr">38073 </span> 68/push 0/imm32/right:null +<span id="L38074" class="LineNr">38074 </span> 68/push 0/imm32/right:null +<span id="L38075" class="LineNr">38075 </span> 68/push 0/imm32/left:unused +<span id="L38076" class="LineNr">38076 </span> 68/push 1/imm32/value:int +<span id="L38077" class="LineNr">38077 </span> 68/push 1/imm32/is-atom?:true +<span id="L38078" class="LineNr">38078 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38079" class="LineNr">38079 </span> 89/<- %ecx 4/r32/esp +<span id="L38080" class="LineNr">38080 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var1</span>: +<span id="L38081" class="LineNr">38081 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L38082" class="LineNr">38082 </span> 68/push 0/imm32/register +<span id="L38083" class="LineNr">38083 </span> 68/push 0/imm32/register +<span id="L38084" class="LineNr">38084 </span> 68/push 8/imm32/stack-offset +<span id="L38085" class="LineNr">38085 </span> 68/push 1/imm32/block-depth +<span id="L38086" class="LineNr">38086 </span> 51/push-ecx +<span id="L38087" class="LineNr">38087 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38088" class="LineNr">38088 </span> 68/push 0/imm32/name +<span id="L38089" class="LineNr">38089 </span> 68/push 0/imm32/name +<span id="L38090" class="LineNr">38090 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38091" class="LineNr">38091 </span> 89/<- %ecx 4/r32/esp +<span id="L38092" class="LineNr">38092 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var1-name</span>: +<span id="L38093" class="LineNr">38093 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L38094" class="LineNr">38094 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L38095" class="LineNr">38095 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) +<span id="L38096" class="LineNr">38096 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var2</span>: +<span id="L38097" class="LineNr">38097 </span> <span class="subxComment"># var var2/edx: (payload var)</span> +<span id="L38098" class="LineNr">38098 </span> 68/push 0/imm32/register +<span id="L38099" class="LineNr">38099 </span> 68/push 0/imm32/register +<span id="L38100" class="LineNr">38100 </span> 68/push 0/imm32/no-stack-offset +<span id="L38101" class="LineNr">38101 </span> 68/push 1/imm32/block-depth +<span id="L38102" class="LineNr">38102 </span> ff 6/subop/push *(ecx+0x10) +<span id="L38103" class="LineNr">38103 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38104" class="LineNr">38104 </span> 68/push 0/imm32/name +<span id="L38105" class="LineNr">38105 </span> 68/push 0/imm32/name +<span id="L38106" class="LineNr">38106 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38107" class="LineNr">38107 </span> 89/<- %edx 4/r32/esp +<span id="L38108" class="LineNr">38108 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var2-name</span>: +<span id="L38109" class="LineNr">38109 </span> <span class="subxComment"># var2->name = "var2"</span> +<span id="L38110" class="LineNr">38110 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L38111" class="LineNr">38111 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var2"</span> %eax) +<span id="L38112" class="LineNr">38112 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var2-register</span>: +<span id="L38113" class="LineNr">38113 </span> <span class="subxComment"># var2->register = "eax"</span> +<span id="L38114" class="LineNr">38114 </span> 8d/copy-address *(edx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L38115" class="LineNr">38115 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) +<span id="L38116" class="LineNr">38116 </span><span class="Constant">$test-compare-mem-with-reg:initialize-inouts</span>: +<span id="L38117" class="LineNr">38117 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> +<span id="L38118" class="LineNr">38118 </span> 68/push 0/imm32/is-deref:false +<span id="L38119" class="LineNr">38119 </span> 68/push 0/imm32/next +<span id="L38120" class="LineNr">38120 </span> 68/push 0/imm32/next +<span id="L38121" class="LineNr">38121 </span> 52/push-edx/var2 +<span id="L38122" class="LineNr">38122 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38123" class="LineNr">38123 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38124" class="LineNr">38124 </span> 89/<- %esi 4/r32/esp +<span id="L38125" class="LineNr">38125 </span> <span class="subxComment"># inouts = [var1, var2]</span> +<span id="L38126" class="LineNr">38126 </span> 68/push 0/imm32/is-deref:false +<span id="L38127" class="LineNr">38127 </span> 56/push-esi/next +<span id="L38128" class="LineNr">38128 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38129" class="LineNr">38129 </span> 51/push-ecx/var1 +<span id="L38130" class="LineNr">38130 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38131" class="LineNr">38131 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38132" class="LineNr">38132 </span> 89/<- %esi 4/r32/esp +<span id="L38133" class="LineNr">38133 </span><span class="Constant">$test-compare-mem-with-reg:initialize-stmt</span>: +<span id="L38134" class="LineNr">38134 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L38135" class="LineNr">38135 </span> 68/push 0/imm32/next +<span id="L38136" class="LineNr">38136 </span> 68/push 0/imm32/next +<span id="L38137" class="LineNr">38137 </span> 68/push 0/imm32/outputs +<span id="L38138" class="LineNr">38138 </span> 68/push 0/imm32/outputs +<span id="L38139" class="LineNr">38139 </span> 56/push-esi/inouts +<span id="L38140" class="LineNr">38140 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38141" class="LineNr">38141 </span> 68/push 0/imm32/operation +<span id="L38142" class="LineNr">38142 </span> 68/push 0/imm32/operation +<span id="L38143" class="LineNr">38143 </span> 68/push 1/imm32/tag:stmt1 +<span id="L38144" class="LineNr">38144 </span> 89/<- %esi 4/r32/esp +<span id="L38145" class="LineNr">38145 </span><span class="Constant">$test-compare-mem-with-reg:initialize-stmt-operation</span>: +<span id="L38146" class="LineNr">38146 </span> <span class="subxComment"># stmt->operation = "compare"</span> +<span id="L38147" class="LineNr">38147 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L38148" class="LineNr">38148 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"compare"</span> %eax) +<span id="L38149" class="LineNr">38149 </span> <span class="subxComment"># convert</span> +<span id="L38150" class="LineNr">38150 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span> 0/imm32 +<span id="L38151" class="LineNr">38151 </span> (<a href='mu.subx.html#L28660'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L30450'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L38152" class="LineNr">38152 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L38153" class="Folded">38153 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L38159" class="LineNr">38159 </span> <span class="subxComment"># check output</span> +<span id="L38160" class="LineNr">38160 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"39/compare-> *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - test-compare-mem-with-reg"</span>) +<span id="L38161" class="LineNr">38161 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L38162" class="LineNr">38162 </span> 89/<- %esp 5/r32/ebp +<span id="L38163" class="LineNr">38163 </span> 5d/pop-to-ebp +<span id="L38164" class="LineNr">38164 </span> c3/return +<span id="L38165" class="LineNr">38165 </span> +<span id="L38166" class="LineNr">38166 </span><span class="subxTest">test-compare-reg-with-mem</span>: +<span id="L38167" class="LineNr">38167 </span> <span class="subxComment"># compare var1/eax, var2</span> +<span id="L38168" class="LineNr">38168 </span> <span class="subxComment"># =></span> +<span id="L38169" class="LineNr">38169 </span> <span class="subxComment"># 3b/compare<- *(ebp+___) 0/r32/eax</span> +<span id="L38170" class="LineNr">38170 </span> <span class="subxComment">#</span> +<span id="L38171" class="LineNr">38171 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L38172" class="LineNr">38172 </span> 55/push-ebp +<span id="L38173" class="LineNr">38173 </span> 89/<- %ebp 4/r32/esp +<span id="L38174" class="LineNr">38174 </span> <span class="subxComment"># setup</span> +<span id="L38175" class="LineNr">38175 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L38176" class="LineNr">38176 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L38177" class="LineNr">38177 </span><span class="Constant">$test-compare-reg-with-mem:initialize-type</span>: +<span id="L38178" class="LineNr">38178 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L38179" class="LineNr">38179 </span> 68/push 0/imm32/right:null +<span id="L38180" class="LineNr">38180 </span> 68/push 0/imm32/right:null +<span id="L38181" class="LineNr">38181 </span> 68/push 0/imm32/left:unused +<span id="L38182" class="LineNr">38182 </span> 68/push 1/imm32/value:int +<span id="L38183" class="LineNr">38183 </span> 68/push 1/imm32/is-atom?:true +<span id="L38184" class="LineNr">38184 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38185" class="LineNr">38185 </span> 89/<- %ecx 4/r32/esp +<span id="L38186" class="LineNr">38186 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var1</span>: +<span id="L38187" class="LineNr">38187 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L38188" class="LineNr">38188 </span> 68/push 0/imm32/register +<span id="L38189" class="LineNr">38189 </span> 68/push 0/imm32/register +<span id="L38190" class="LineNr">38190 </span> 68/push 0/imm32/no-stack-offset +<span id="L38191" class="LineNr">38191 </span> 68/push 1/imm32/block-depth +<span id="L38192" class="LineNr">38192 </span> 51/push-ecx +<span id="L38193" class="LineNr">38193 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38194" class="LineNr">38194 </span> 68/push 0/imm32/name +<span id="L38195" class="LineNr">38195 </span> 68/push 0/imm32/name +<span id="L38196" class="LineNr">38196 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38197" class="LineNr">38197 </span> 89/<- %ecx 4/r32/esp +<span id="L38198" class="LineNr">38198 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var1-name</span>: +<span id="L38199" class="LineNr">38199 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L38200" class="LineNr">38200 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L38201" class="LineNr">38201 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) +<span id="L38202" class="LineNr">38202 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var1-register</span>: +<span id="L38203" class="LineNr">38203 </span> <span class="subxComment"># var1->register = "eax"</span> +<span id="L38204" class="LineNr">38204 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L38205" class="LineNr">38205 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) +<span id="L38206" class="LineNr">38206 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var2</span>: +<span id="L38207" class="LineNr">38207 </span> <span class="subxComment"># var var2/edx: (payload var)</span> +<span id="L38208" class="LineNr">38208 </span> 68/push 0/imm32/register +<span id="L38209" class="LineNr">38209 </span> 68/push 0/imm32/register +<span id="L38210" class="LineNr">38210 </span> 68/push 8/imm32/stack-offset +<span id="L38211" class="LineNr">38211 </span> 68/push 1/imm32/block-depth +<span id="L38212" class="LineNr">38212 </span> ff 6/subop/push *(ecx+0x10) +<span id="L38213" class="LineNr">38213 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38214" class="LineNr">38214 </span> 68/push 0/imm32/name +<span id="L38215" class="LineNr">38215 </span> 68/push 0/imm32/name <span id="L38216" class="LineNr">38216 </span> 68/push 0x11/imm32/alloc-id:fake:payload <span id="L38217" class="LineNr">38217 </span> 89/<- %edx 4/r32/esp -<span id="L38218" class="LineNr">38218 </span><span class="Constant">$test-compare-reg-with-literal:initialize-literal</span>: -<span id="L38219" class="LineNr">38219 </span> <span class="subxComment"># var l/edx: (payload var)</span> -<span id="L38220" class="LineNr">38220 </span> 68/push 0/imm32/register -<span id="L38221" class="LineNr">38221 </span> 68/push 0/imm32/register -<span id="L38222" class="LineNr">38222 </span> 68/push 0/imm32/no-stack-offset -<span id="L38223" class="LineNr">38223 </span> 68/push 1/imm32/block-depth -<span id="L38224" class="LineNr">38224 </span> 52/push-edx -<span id="L38225" class="LineNr">38225 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38226" class="LineNr">38226 </span> 68/push 0/imm32/name -<span id="L38227" class="LineNr">38227 </span> 68/push 0/imm32/name -<span id="L38228" class="LineNr">38228 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38229" class="LineNr">38229 </span> 89/<- %edx 4/r32/esp -<span id="L38230" class="LineNr">38230 </span><span class="Constant">$test-compare-reg-with-literal:initialize-literal-value</span>: -<span id="L38231" class="LineNr">38231 </span> <span class="subxComment"># l->name = "0x34"</span> -<span id="L38232" class="LineNr">38232 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L38233" class="LineNr">38233 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"0x34"</span> %eax) -<span id="L38234" class="LineNr">38234 </span><span class="Constant">$test-compare-reg-with-literal:initialize-inouts</span>: -<span id="L38235" class="LineNr">38235 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> -<span id="L38236" class="LineNr">38236 </span> 68/push 0/imm32/is-deref:false -<span id="L38237" class="LineNr">38237 </span> 68/push 0/imm32/next -<span id="L38238" class="LineNr">38238 </span> 68/push 0/imm32/next -<span id="L38239" class="LineNr">38239 </span> 52/push-edx/l -<span id="L38240" class="LineNr">38240 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38241" class="LineNr">38241 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38242" class="LineNr">38242 </span> 89/<- %esi 4/r32/esp -<span id="L38243" class="LineNr">38243 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> -<span id="L38244" class="LineNr">38244 </span> 68/push 0/imm32/is-deref:false -<span id="L38245" class="LineNr">38245 </span> 56/push-esi/next +<span id="L38218" class="LineNr">38218 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var2-name</span>: +<span id="L38219" class="LineNr">38219 </span> <span class="subxComment"># var2->name = "var2"</span> +<span id="L38220" class="LineNr">38220 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L38221" class="LineNr">38221 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var2"</span> %eax) +<span id="L38222" class="LineNr">38222 </span><span class="Constant">$test-compare-reg-with-mem:initialize-inouts</span>: +<span id="L38223" class="LineNr">38223 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> +<span id="L38224" class="LineNr">38224 </span> 68/push 0/imm32/is-deref:false +<span id="L38225" class="LineNr">38225 </span> 68/push 0/imm32/next +<span id="L38226" class="LineNr">38226 </span> 68/push 0/imm32/next +<span id="L38227" class="LineNr">38227 </span> 52/push-edx/var2 +<span id="L38228" class="LineNr">38228 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38229" class="LineNr">38229 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38230" class="LineNr">38230 </span> 89/<- %esi 4/r32/esp +<span id="L38231" class="LineNr">38231 </span> <span class="subxComment"># inouts = [var1, var2]</span> +<span id="L38232" class="LineNr">38232 </span> 68/push 0/imm32/is-deref:false +<span id="L38233" class="LineNr">38233 </span> 56/push-esi/next +<span id="L38234" class="LineNr">38234 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38235" class="LineNr">38235 </span> 51/push-ecx/var1 +<span id="L38236" class="LineNr">38236 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38237" class="LineNr">38237 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38238" class="LineNr">38238 </span> 89/<- %esi 4/r32/esp +<span id="L38239" class="LineNr">38239 </span><span class="Constant">$test-compare-reg-with-mem:initialize-stmt</span>: +<span id="L38240" class="LineNr">38240 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L38241" class="LineNr">38241 </span> 68/push 0/imm32/next +<span id="L38242" class="LineNr">38242 </span> 68/push 0/imm32/next +<span id="L38243" class="LineNr">38243 </span> 68/push 0/imm32/outputs +<span id="L38244" class="LineNr">38244 </span> 68/push 0/imm32/outputs +<span id="L38245" class="LineNr">38245 </span> 56/push-esi/inouts <span id="L38246" class="LineNr">38246 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38247" class="LineNr">38247 </span> 51/push-ecx/var1 -<span id="L38248" class="LineNr">38248 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38249" class="LineNr">38249 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38247" class="LineNr">38247 </span> 68/push 0/imm32/operation +<span id="L38248" class="LineNr">38248 </span> 68/push 0/imm32/operation +<span id="L38249" class="LineNr">38249 </span> 68/push 1/imm32/tag:stmt1 <span id="L38250" class="LineNr">38250 </span> 89/<- %esi 4/r32/esp -<span id="L38251" class="LineNr">38251 </span><span class="Constant">$test-compare-reg-with-literal:initialize-stmt</span>: -<span id="L38252" class="LineNr">38252 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L38253" class="LineNr">38253 </span> 68/push 0/imm32/next -<span id="L38254" class="LineNr">38254 </span> 68/push 0/imm32/next -<span id="L38255" class="LineNr">38255 </span> 68/push 0/imm32/outputs -<span id="L38256" class="LineNr">38256 </span> 68/push 0/imm32/outputs -<span id="L38257" class="LineNr">38257 </span> 56/push-esi/inouts -<span id="L38258" class="LineNr">38258 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38259" class="LineNr">38259 </span> 68/push 0/imm32/operation -<span id="L38260" class="LineNr">38260 </span> 68/push 0/imm32/operation -<span id="L38261" class="LineNr">38261 </span> 68/push 1/imm32/tag:stmt1 -<span id="L38262" class="LineNr">38262 </span> 89/<- %esi 4/r32/esp -<span id="L38263" class="LineNr">38263 </span><span class="Constant">$test-compare-reg-with-literal:initialize-stmt-operation</span>: -<span id="L38264" class="LineNr">38264 </span> <span class="subxComment"># stmt->operation = "compare"</span> -<span id="L38265" class="LineNr">38265 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L38266" class="LineNr">38266 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"compare"</span> %eax) -<span id="L38267" class="LineNr">38267 </span> <span class="subxComment"># convert</span> -<span id="L38268" class="LineNr">38268 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span> 0/imm32 -<span id="L38269" class="LineNr">38269 </span> (<a href='mu.subx.html#L28630'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L30394'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L38270" class="LineNr">38270 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L38271" class="Folded">38271 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L38277" class="LineNr">38277 </span> <span class="subxComment"># check output</span> -<span id="L38278" class="LineNr">38278 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"81 7/subop/compare %ecx 0x34/imm32"</span> <span class="Constant">"F - test-compare-reg-with-literal"</span>) -<span id="L38279" class="LineNr">38279 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L38280" class="LineNr">38280 </span> 89/<- %esp 5/r32/ebp -<span id="L38281" class="LineNr">38281 </span> 5d/pop-to-ebp -<span id="L38282" class="LineNr">38282 </span> c3/return -<span id="L38283" class="LineNr">38283 </span> -<span id="L38284" class="LineNr">38284 </span><span class="subxTest">test-emit-subx-stmt-function-call</span>: -<span id="L38285" class="LineNr">38285 </span> <span class="subxComment"># Call a function on a variable on the stack.</span> -<span id="L38286" class="LineNr">38286 </span> <span class="subxComment"># f foo</span> -<span id="L38287" class="LineNr">38287 </span> <span class="subxComment"># =></span> -<span id="L38288" class="LineNr">38288 </span> <span class="subxComment"># (f *(ebp-8))</span> -<span id="L38289" class="LineNr">38289 </span> <span class="subxComment"># (Changing the function name supports overloading in general, but here it</span> -<span id="L38290" class="LineNr">38290 </span> <span class="subxComment"># just serves to help disambiguate things.)</span> -<span id="L38291" class="LineNr">38291 </span> <span class="subxComment">#</span> -<span id="L38292" class="LineNr">38292 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> -<span id="L38293" class="LineNr">38293 </span> <span class="subxComment"># name: 'foo'</span> -<span id="L38294" class="LineNr">38294 </span> <span class="subxComment"># type: int</span> -<span id="L38295" class="LineNr">38295 </span> <span class="subxComment"># stack-offset: -8</span> -<span id="L38296" class="LineNr">38296 </span> <span class="subxComment">#</span> -<span id="L38297" class="LineNr">38297 </span> <span class="subxComment"># There's nothing in primitives.</span> -<span id="L38298" class="LineNr">38298 </span> <span class="subxComment">#</span> -<span id="L38299" class="LineNr">38299 </span> <span class="subxComment"># We don't perform any checking here on the type of 'f'.</span> -<span id="L38300" class="LineNr">38300 </span> <span class="subxComment">#</span> -<span id="L38301" class="LineNr">38301 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L38302" class="LineNr">38302 </span> 55/push-ebp -<span id="L38303" class="LineNr">38303 </span> 89/<- %ebp 4/r32/esp -<span id="L38304" class="LineNr">38304 </span> <span class="subxComment"># setup</span> -<span id="L38305" class="LineNr">38305 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L38306" class="LineNr">38306 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L38307" class="LineNr">38307 </span><span class="Constant">$test-emit-subx-function-call:initialize-type</span>: -<span id="L38308" class="LineNr">38308 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L38309" class="LineNr">38309 </span> 68/push 0/imm32/right:null +<span id="L38251" class="LineNr">38251 </span><span class="Constant">$test-compare-reg-with-mem:initialize-stmt-operation</span>: +<span id="L38252" class="LineNr">38252 </span> <span class="subxComment"># stmt->operation = "compare"</span> +<span id="L38253" class="LineNr">38253 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L38254" class="LineNr">38254 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"compare"</span> %eax) +<span id="L38255" class="LineNr">38255 </span> <span class="subxComment"># convert</span> +<span id="L38256" class="LineNr">38256 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span> 0/imm32 +<span id="L38257" class="LineNr">38257 </span> (<a href='mu.subx.html#L28660'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L30450'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L38258" class="LineNr">38258 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L38259" class="Folded">38259 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L38265" class="LineNr">38265 </span> <span class="subxComment"># check output</span> +<span id="L38266" class="LineNr">38266 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"3b/compare<- *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - test-compare-reg-with-mem"</span>) +<span id="L38267" class="LineNr">38267 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L38268" class="LineNr">38268 </span> 89/<- %esp 5/r32/ebp +<span id="L38269" class="LineNr">38269 </span> 5d/pop-to-ebp +<span id="L38270" class="LineNr">38270 </span> c3/return +<span id="L38271" class="LineNr">38271 </span> +<span id="L38272" class="LineNr">38272 </span><span class="subxTest">test-compare-mem-with-literal</span>: +<span id="L38273" class="LineNr">38273 </span> <span class="subxComment"># compare var1, 0x34</span> +<span id="L38274" class="LineNr">38274 </span> <span class="subxComment"># =></span> +<span id="L38275" class="LineNr">38275 </span> <span class="subxComment"># 81 7/subop/compare *(ebp+___) 0x34/imm32</span> +<span id="L38276" class="LineNr">38276 </span> <span class="subxComment">#</span> +<span id="L38277" class="LineNr">38277 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L38278" class="LineNr">38278 </span> 55/push-ebp +<span id="L38279" class="LineNr">38279 </span> 89/<- %ebp 4/r32/esp +<span id="L38280" class="LineNr">38280 </span> <span class="subxComment"># setup</span> +<span id="L38281" class="LineNr">38281 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L38282" class="LineNr">38282 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L38283" class="LineNr">38283 </span><span class="Constant">$test-compare-mem-with-literal:initialize-type</span>: +<span id="L38284" class="LineNr">38284 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L38285" class="LineNr">38285 </span> 68/push 0/imm32/right:null +<span id="L38286" class="LineNr">38286 </span> 68/push 0/imm32/right:null +<span id="L38287" class="LineNr">38287 </span> 68/push 0/imm32/left:unused +<span id="L38288" class="LineNr">38288 </span> 68/push 1/imm32/value:int +<span id="L38289" class="LineNr">38289 </span> 68/push 1/imm32/is-atom?:true +<span id="L38290" class="LineNr">38290 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38291" class="LineNr">38291 </span> 89/<- %ecx 4/r32/esp +<span id="L38292" class="LineNr">38292 </span><span class="Constant">$test-compare-mem-with-literal:initialize-var1</span>: +<span id="L38293" class="LineNr">38293 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L38294" class="LineNr">38294 </span> 68/push 0/imm32/register +<span id="L38295" class="LineNr">38295 </span> 68/push 0/imm32/register +<span id="L38296" class="LineNr">38296 </span> 68/push 8/imm32/stack-offset +<span id="L38297" class="LineNr">38297 </span> 68/push 1/imm32/block-depth +<span id="L38298" class="LineNr">38298 </span> 51/push-ecx +<span id="L38299" class="LineNr">38299 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38300" class="LineNr">38300 </span> 68/push 0/imm32/name +<span id="L38301" class="LineNr">38301 </span> 68/push 0/imm32/name +<span id="L38302" class="LineNr">38302 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38303" class="LineNr">38303 </span> 89/<- %ecx 4/r32/esp +<span id="L38304" class="LineNr">38304 </span><span class="Constant">$test-compare-mem-with-literal:initialize-var1-name</span>: +<span id="L38305" class="LineNr">38305 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L38306" class="LineNr">38306 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L38307" class="LineNr">38307 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) +<span id="L38308" class="LineNr">38308 </span><span class="Constant">$test-compare-mem-with-literal:initialize-literal-type</span>: +<span id="L38309" class="LineNr">38309 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> <span id="L38310" class="LineNr">38310 </span> 68/push 0/imm32/right:null -<span id="L38311" class="LineNr">38311 </span> 68/push 0/imm32/left:unused -<span id="L38312" class="LineNr">38312 </span> 68/push 1/imm32/value:int -<span id="L38313" class="LineNr">38313 </span> 68/push 1/imm32/is-atom?:true -<span id="L38314" class="LineNr">38314 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38315" class="LineNr">38315 </span> 89/<- %ecx 4/r32/esp -<span id="L38316" class="LineNr">38316 </span><span class="Constant">$test-emit-subx-function-call:initialize-var</span>: -<span id="L38317" class="LineNr">38317 </span> <span class="subxComment"># var var-foo/ecx: (payload var) = var(type)</span> -<span id="L38318" class="LineNr">38318 </span> 68/push 0/imm32/no-register -<span id="L38319" class="LineNr">38319 </span> 68/push 0/imm32/no-register -<span id="L38320" class="LineNr">38320 </span> 68/push -8/imm32/stack-offset -<span id="L38321" class="LineNr">38321 </span> 68/push 1/imm32/block-depth -<span id="L38322" class="LineNr">38322 </span> 51/push-ecx/type -<span id="L38323" class="LineNr">38323 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38324" class="LineNr">38324 </span> 68/push 0/imm32/name +<span id="L38311" class="LineNr">38311 </span> 68/push 0/imm32/right:null +<span id="L38312" class="LineNr">38312 </span> 68/push 0/imm32/left:unused +<span id="L38313" class="LineNr">38313 </span> 68/push 0/imm32/value:literal +<span id="L38314" class="LineNr">38314 </span> 68/push 1/imm32/is-atom?:true +<span id="L38315" class="LineNr">38315 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38316" class="LineNr">38316 </span> 89/<- %edx 4/r32/esp +<span id="L38317" class="LineNr">38317 </span><span class="Constant">$test-compare-mem-with-literal:initialize-literal</span>: +<span id="L38318" class="LineNr">38318 </span> <span class="subxComment"># var l/edx: (payload var)</span> +<span id="L38319" class="LineNr">38319 </span> 68/push 0/imm32/register +<span id="L38320" class="LineNr">38320 </span> 68/push 0/imm32/register +<span id="L38321" class="LineNr">38321 </span> 68/push 0/imm32/no-stack-offset +<span id="L38322" class="LineNr">38322 </span> 68/push 1/imm32/block-depth +<span id="L38323" class="LineNr">38323 </span> 52/push-edx +<span id="L38324" class="LineNr">38324 </span> 68/push 0x11/imm32/alloc-id:fake <span id="L38325" class="LineNr">38325 </span> 68/push 0/imm32/name -<span id="L38326" class="LineNr">38326 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38327" class="LineNr">38327 </span> 89/<- %ecx 4/r32/esp -<span id="L38328" class="LineNr">38328 </span><span class="Constant">$test-emit-subx-function-call:initialize-var-name</span>: -<span id="L38329" class="LineNr">38329 </span> <span class="subxComment"># var-foo->name = "foo"</span> -<span id="L38330" class="LineNr">38330 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L38331" class="LineNr">38331 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"foo"</span> %eax) -<span id="L38332" class="LineNr">38332 </span><span class="Constant">$test-emit-subx-function-call:initialize-stmt-var</span>: -<span id="L38333" class="LineNr">38333 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var) = stmt-var(var-foo)</span> -<span id="L38334" class="LineNr">38334 </span> 68/push 0/imm32/is-deref:false -<span id="L38335" class="LineNr">38335 </span> 68/push 0/imm32/next +<span id="L38326" class="LineNr">38326 </span> 68/push 0/imm32/name +<span id="L38327" class="LineNr">38327 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38328" class="LineNr">38328 </span> 89/<- %edx 4/r32/esp +<span id="L38329" class="LineNr">38329 </span><span class="Constant">$test-compare-mem-with-literal:initialize-literal-value</span>: +<span id="L38330" class="LineNr">38330 </span> <span class="subxComment"># l->name = "0x34"</span> +<span id="L38331" class="LineNr">38331 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L38332" class="LineNr">38332 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"0x34"</span> %eax) +<span id="L38333" class="LineNr">38333 </span><span class="Constant">$test-compare-mem-with-literal:initialize-inouts</span>: +<span id="L38334" class="LineNr">38334 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> +<span id="L38335" class="LineNr">38335 </span> 68/push 0/imm32/is-deref:false <span id="L38336" class="LineNr">38336 </span> 68/push 0/imm32/next -<span id="L38337" class="LineNr">38337 </span> 51/push-ecx/var-foo -<span id="L38338" class="LineNr">38338 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38339" class="LineNr">38339 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38340" class="LineNr">38340 </span> 89/<- %ebx 4/r32/esp -<span id="L38341" class="LineNr">38341 </span><span class="Constant">$test-emit-subx-function-call:initialize-stmt</span>: -<span id="L38342" class="LineNr">38342 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L38343" class="LineNr">38343 </span> 68/push 0/imm32/no-outputs -<span id="L38344" class="LineNr">38344 </span> 68/push 0/imm32/no-outputs -<span id="L38345" class="LineNr">38345 </span> 53/push-ebx/inouts -<span id="L38346" class="LineNr">38346 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38347" class="LineNr">38347 </span> 68/push 0/imm32/operation -<span id="L38348" class="LineNr">38348 </span> 68/push 0/imm32/operation -<span id="L38349" class="LineNr">38349 </span> 68/push 1/imm32/tag -<span id="L38350" class="LineNr">38350 </span> 89/<- %esi 4/r32/esp -<span id="L38351" class="LineNr">38351 </span><span class="Constant">$test-emit-subx-function-call:initialize-stmt-operation</span>: -<span id="L38352" class="LineNr">38352 </span> <span class="subxComment"># stmt->operation = "f"</span> -<span id="L38353" class="LineNr">38353 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L38354" class="LineNr">38354 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"f"</span> %eax) -<span id="L38355" class="LineNr">38355 </span> <span class="subxComment"># convert</span> -<span id="L38356" class="LineNr">38356 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span> 0/imm32 -<span id="L38357" class="LineNr">38357 </span> (<a href='mu.subx.html#L28630'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi 0 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L38358" class="LineNr">38358 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L38359" class="Folded">38359 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L38365" class="LineNr">38365 </span> <span class="subxComment"># check output</span> -<span id="L38366" class="LineNr">38366 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"(f *(ebp+0xfffffff8))"</span> <span class="Constant">"F - test-emit-subx-stmt-function-call"</span>) -<span id="L38367" class="LineNr">38367 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L38368" class="LineNr">38368 </span> 89/<- %esp 5/r32/ebp -<span id="L38369" class="LineNr">38369 </span> 5d/pop-to-ebp -<span id="L38370" class="LineNr">38370 </span> c3/return -<span id="L38371" class="LineNr">38371 </span> -<span id="L38372" class="LineNr">38372 </span><span class="subxTest">test-emit-subx-stmt-function-call-with-literal-arg</span>: -<span id="L38373" class="LineNr">38373 </span> <span class="subxComment"># Call a function on a literal.</span> -<span id="L38374" class="LineNr">38374 </span> <span class="subxComment"># f 0x34</span> -<span id="L38375" class="LineNr">38375 </span> <span class="subxComment"># =></span> -<span id="L38376" class="LineNr">38376 </span> <span class="subxComment"># (f2 0x34)</span> -<span id="L38377" class="LineNr">38377 </span> <span class="subxComment">#</span> -<span id="L38378" class="LineNr">38378 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L38379" class="LineNr">38379 </span> 55/push-ebp -<span id="L38380" class="LineNr">38380 </span> 89/<- %ebp 4/r32/esp -<span id="L38381" class="LineNr">38381 </span> <span class="subxComment"># setup</span> -<span id="L38382" class="LineNr">38382 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L38383" class="LineNr">38383 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L38384" class="LineNr">38384 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-type</span>: -<span id="L38385" class="LineNr">38385 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L38386" class="LineNr">38386 </span> 68/push 0/imm32/right:null -<span id="L38387" class="LineNr">38387 </span> 68/push 0/imm32/right:null -<span id="L38388" class="LineNr">38388 </span> 68/push 0/imm32/left:unused -<span id="L38389" class="LineNr">38389 </span> 68/push 0/imm32/value:literal -<span id="L38390" class="LineNr">38390 </span> 68/push 1/imm32/is-atom?:true -<span id="L38391" class="LineNr">38391 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38392" class="LineNr">38392 </span> 89/<- %ecx 4/r32/esp -<span id="L38393" class="LineNr">38393 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-var</span>: -<span id="L38394" class="LineNr">38394 </span> <span class="subxComment"># var var-foo/ecx: (payload var) = var(lit)</span> -<span id="L38395" class="LineNr">38395 </span> 68/push 0/imm32/no-register -<span id="L38396" class="LineNr">38396 </span> 68/push 0/imm32/no-register -<span id="L38397" class="LineNr">38397 </span> 68/push 0/imm32/no-stack-offset -<span id="L38398" class="LineNr">38398 </span> 68/push 1/imm32/block-depth -<span id="L38399" class="LineNr">38399 </span> 51/push-ecx/type -<span id="L38400" class="LineNr">38400 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38401" class="LineNr">38401 </span> 68/push 0/imm32/name -<span id="L38402" class="LineNr">38402 </span> 68/push 0/imm32/name -<span id="L38403" class="LineNr">38403 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38404" class="LineNr">38404 </span> 89/<- %ecx 4/r32/esp -<span id="L38405" class="LineNr">38405 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-var-name</span>: -<span id="L38406" class="LineNr">38406 </span> <span class="subxComment"># var-foo->name = "0x34"</span> -<span id="L38407" class="LineNr">38407 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L38408" class="LineNr">38408 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"0x34"</span> %eax) -<span id="L38409" class="LineNr">38409 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-stmt-var</span>: -<span id="L38410" class="LineNr">38410 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var) = stmt-var(var-foo)</span> -<span id="L38411" class="LineNr">38411 </span> 68/push 0/imm32/is-deref:false -<span id="L38412" class="LineNr">38412 </span> 68/push 0/imm32/next -<span id="L38413" class="LineNr">38413 </span> 68/push 0/imm32/next -<span id="L38414" class="LineNr">38414 </span> 51/push-ecx/var-foo -<span id="L38415" class="LineNr">38415 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38416" class="LineNr">38416 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38417" class="LineNr">38417 </span> 89/<- %ebx 4/r32/esp -<span id="L38418" class="LineNr">38418 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-stmt</span>: -<span id="L38419" class="LineNr">38419 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L38420" class="LineNr">38420 </span> 68/push 0/imm32/no-outputs -<span id="L38421" class="LineNr">38421 </span> 68/push 0/imm32/no-outputs -<span id="L38422" class="LineNr">38422 </span> 53/push-ebx/inouts -<span id="L38423" class="LineNr">38423 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38424" class="LineNr">38424 </span> 68/push 0/imm32/operation -<span id="L38425" class="LineNr">38425 </span> 68/push 0/imm32/operation -<span id="L38426" class="LineNr">38426 </span> 68/push 1/imm32/tag -<span id="L38427" class="LineNr">38427 </span> 89/<- %esi 4/r32/esp -<span id="L38428" class="LineNr">38428 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-stmt-operation</span>: -<span id="L38429" class="LineNr">38429 </span> <span class="subxComment"># stmt->operation = "f"</span> -<span id="L38430" class="LineNr">38430 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L38431" class="LineNr">38431 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"f"</span> %eax) -<span id="L38432" class="LineNr">38432 </span> <span class="subxComment"># convert</span> -<span id="L38433" class="LineNr">38433 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15694'>Curr-block-depth</a></span> 0/imm32 -<span id="L38434" class="LineNr">38434 </span> (<a href='mu.subx.html#L28630'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi 0 %ebx 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L38435" class="LineNr">38435 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L38436" class="Folded">38436 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L38442" class="LineNr">38442 </span> <span class="subxComment"># check output</span> -<span id="L38443" class="LineNr">38443 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"(f 0x34)"</span> <span class="Constant">"F - test-emit-subx-stmt-function-call-with-literal-arg"</span>) -<span id="L38444" class="LineNr">38444 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L38445" class="LineNr">38445 </span> 89/<- %esp 5/r32/ebp -<span id="L38446" class="LineNr">38446 </span> 5d/pop-to-ebp -<span id="L38447" class="LineNr">38447 </span> c3/return -<span id="L38448" class="LineNr">38448 </span> -<span id="L38449" class="LineNr">38449 </span><span class="subxFunction">emit-indent</span>: <span class="subxComment"># out: (addr buffered-file), n: int</span> -<span id="L38450" class="LineNr">38450 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L38451" class="LineNr">38451 </span> 55/push-ebp -<span id="L38452" class="LineNr">38452 </span> 89/<- %ebp 4/r32/esp -<span id="L38453" class="LineNr">38453 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L38454" class="LineNr">38454 </span> 50/push-eax -<span id="L38455" class="LineNr">38455 </span> <span class="subxComment"># var i/eax: int = n</span> -<span id="L38456" class="LineNr">38456 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L38457" class="LineNr">38457 </span> { -<span id="L38458" class="LineNr">38458 </span> <span class="subxComment"># if (i <= 0) break</span> -<span id="L38459" class="LineNr">38459 </span> 3d/compare-eax-with 0/imm32 -<span id="L38460" class="LineNr">38460 </span> 7e/jump-if-<= <span class="Constant">break</span>/disp8 -<span id="L38461" class="LineNr">38461 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) -<span id="L38462" class="LineNr">38462 </span> 48/decrement-eax -<span id="L38463" class="LineNr">38463 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L38464" class="LineNr">38464 </span> } -<span id="L38465" class="LineNr">38465 </span><span class="Constant">$emit-indent:end</span>: -<span id="L38466" class="LineNr">38466 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L38467" class="LineNr">38467 </span> 58/pop-to-eax -<span id="L38468" class="LineNr">38468 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L38469" class="LineNr">38469 </span> 89/<- %esp 5/r32/ebp -<span id="L38470" class="LineNr">38470 </span> 5d/pop-to-ebp -<span id="L38471" class="LineNr">38471 </span> c3/return -<span id="L38472" class="LineNr">38472 </span> -<span id="L38473" class="LineNr">38473 </span><span class="subxFunction">emit-subx-prologue</span>: <span class="subxComment"># out: (addr buffered-file)</span> -<span id="L38474" class="LineNr">38474 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L38475" class="LineNr">38475 </span> 55/push-ebp -<span id="L38476" class="LineNr">38476 </span> 89/<- %ebp 4/r32/esp -<span id="L38477" class="LineNr">38477 </span> <span class="subxComment">#</span> -<span id="L38478" class="LineNr">38478 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" # . prologue\n"</span>) -<span id="L38479" class="LineNr">38479 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 55/push-ebp\n"</span>) -<span id="L38480" class="LineNr">38480 </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="L38481" class="LineNr">38481 </span><span class="Constant">$emit-subx-prologue:end</span>: -<span id="L38482" class="LineNr">38482 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L38483" class="LineNr">38483 </span> 89/<- %esp 5/r32/ebp -<span id="L38484" class="LineNr">38484 </span> 5d/pop-to-ebp -<span id="L38485" class="LineNr">38485 </span> c3/return -<span id="L38486" class="LineNr">38486 </span> -<span id="L38487" class="LineNr">38487 </span><span class="subxFunction">emit-subx-epilogue</span>: <span class="subxComment"># out: (addr buffered-file)</span> -<span id="L38488" class="LineNr">38488 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L38489" class="LineNr">38489 </span> 55/push-ebp -<span id="L38490" class="LineNr">38490 </span> 89/<- %ebp 4/r32/esp -<span id="L38491" class="LineNr">38491 </span> <span class="subxComment">#</span> -<span id="L38492" class="LineNr">38492 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" # . epilogue\n"</span>) -<span id="L38493" class="LineNr">38493 </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="L38494" class="LineNr">38494 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 5d/pop-to-ebp\n"</span>) -<span id="L38495" class="LineNr">38495 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" c3/return\n"</span>) -<span id="L38496" class="LineNr">38496 </span><span class="Constant">$emit-subx-epilogue:end</span>: -<span id="L38497" class="LineNr">38497 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L38498" class="LineNr">38498 </span> 89/<- %esp 5/r32/ebp -<span id="L38499" class="LineNr">38499 </span> 5d/pop-to-ebp -<span id="L38500" class="LineNr">38500 </span> c3/return +<span id="L38337" class="LineNr">38337 </span> 68/push 0/imm32/next +<span id="L38338" class="LineNr">38338 </span> 52/push-edx/l +<span id="L38339" class="LineNr">38339 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38340" class="LineNr">38340 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38341" class="LineNr">38341 </span> 89/<- %esi 4/r32/esp +<span id="L38342" class="LineNr">38342 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> +<span id="L38343" class="LineNr">38343 </span> 68/push 0/imm32/is-deref:false +<span id="L38344" class="LineNr">38344 </span> 56/push-esi/next +<span id="L38345" class="LineNr">38345 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38346" class="LineNr">38346 </span> 51/push-ecx/var1 +<span id="L38347" class="LineNr">38347 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38348" class="LineNr">38348 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38349" class="LineNr">38349 </span> 89/<- %esi 4/r32/esp +<span id="L38350" class="LineNr">38350 </span><span class="Constant">$test-compare-mem-with-literal:initialize-stmt</span>: +<span id="L38351" class="LineNr">38351 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L38352" class="LineNr">38352 </span> 68/push 0/imm32/next +<span id="L38353" class="LineNr">38353 </span> 68/push 0/imm32/next +<span id="L38354" class="LineNr">38354 </span> 68/push 0/imm32/outputs +<span id="L38355" class="LineNr">38355 </span> 68/push 0/imm32/outputs +<span id="L38356" class="LineNr">38356 </span> 56/push-esi/inouts +<span id="L38357" class="LineNr">38357 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38358" class="LineNr">38358 </span> 68/push 0/imm32/operation +<span id="L38359" class="LineNr">38359 </span> 68/push 0/imm32/operation +<span id="L38360" class="LineNr">38360 </span> 68/push 1/imm32/tag:stmt1 +<span id="L38361" class="LineNr">38361 </span> 89/<- %esi 4/r32/esp +<span id="L38362" class="LineNr">38362 </span><span class="Constant">$test-compare-mem-with-literal:initialize-stmt-operation</span>: +<span id="L38363" class="LineNr">38363 </span> <span class="subxComment"># stmt->operation = "compare"</span> +<span id="L38364" class="LineNr">38364 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L38365" class="LineNr">38365 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"compare"</span> %eax) +<span id="L38366" class="LineNr">38366 </span> <span class="subxComment"># convert</span> +<span id="L38367" class="LineNr">38367 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span> 0/imm32 +<span id="L38368" class="LineNr">38368 </span> (<a href='mu.subx.html#L28660'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L30450'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L38369" class="LineNr">38369 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L38370" class="Folded">38370 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L38376" class="LineNr">38376 </span> <span class="subxComment"># check output</span> +<span id="L38377" class="LineNr">38377 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"81 7/subop/compare *(ebp+0x00000008) 0x34/imm32"</span> <span class="Constant">"F - test-compare-mem-with-literal"</span>) +<span id="L38378" class="LineNr">38378 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L38379" class="LineNr">38379 </span> 89/<- %esp 5/r32/ebp +<span id="L38380" class="LineNr">38380 </span> 5d/pop-to-ebp +<span id="L38381" class="LineNr">38381 </span> c3/return +<span id="L38382" class="LineNr">38382 </span> +<span id="L38383" class="LineNr">38383 </span><span class="subxTest">test-compare-eax-with-literal</span>: +<span id="L38384" class="LineNr">38384 </span> <span class="subxComment"># compare var1/eax 0x34</span> +<span id="L38385" class="LineNr">38385 </span> <span class="subxComment"># =></span> +<span id="L38386" class="LineNr">38386 </span> <span class="subxComment"># 3d/compare-eax-with 0x34/imm32</span> +<span id="L38387" class="LineNr">38387 </span> <span class="subxComment">#</span> +<span id="L38388" class="LineNr">38388 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L38389" class="LineNr">38389 </span> 55/push-ebp +<span id="L38390" class="LineNr">38390 </span> 89/<- %ebp 4/r32/esp +<span id="L38391" class="LineNr">38391 </span> <span class="subxComment"># setup</span> +<span id="L38392" class="LineNr">38392 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L38393" class="LineNr">38393 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L38394" class="LineNr">38394 </span><span class="Constant">$test-compare-eax-with-literal:initialize-type</span>: +<span id="L38395" class="LineNr">38395 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L38396" class="LineNr">38396 </span> 68/push 0/imm32/right:null +<span id="L38397" class="LineNr">38397 </span> 68/push 0/imm32/right:null +<span id="L38398" class="LineNr">38398 </span> 68/push 0/imm32/left:unused +<span id="L38399" class="LineNr">38399 </span> 68/push 1/imm32/value:int +<span id="L38400" class="LineNr">38400 </span> 68/push 1/imm32/is-atom?:true +<span id="L38401" class="LineNr">38401 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38402" class="LineNr">38402 </span> 89/<- %ecx 4/r32/esp +<span id="L38403" class="LineNr">38403 </span><span class="Constant">$test-compare-eax-with-literal:initialize-var1</span>: +<span id="L38404" class="LineNr">38404 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L38405" class="LineNr">38405 </span> 68/push 0/imm32/register +<span id="L38406" class="LineNr">38406 </span> 68/push 0/imm32/register +<span id="L38407" class="LineNr">38407 </span> 68/push 0/imm32/no-stack-offset +<span id="L38408" class="LineNr">38408 </span> 68/push 1/imm32/block-depth +<span id="L38409" class="LineNr">38409 </span> 51/push-ecx +<span id="L38410" class="LineNr">38410 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38411" class="LineNr">38411 </span> 68/push 0/imm32/name +<span id="L38412" class="LineNr">38412 </span> 68/push 0/imm32/name +<span id="L38413" class="LineNr">38413 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38414" class="LineNr">38414 </span> 89/<- %ecx 4/r32/esp +<span id="L38415" class="LineNr">38415 </span><span class="Constant">$test-compare-eax-with-literal:initialize-var1-name</span>: +<span id="L38416" class="LineNr">38416 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L38417" class="LineNr">38417 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L38418" class="LineNr">38418 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) +<span id="L38419" class="LineNr">38419 </span><span class="Constant">$test-compare-eax-with-literal:initialize-var1-register</span>: +<span id="L38420" class="LineNr">38420 </span> <span class="subxComment"># v->register = "eax"</span> +<span id="L38421" class="LineNr">38421 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L38422" class="LineNr">38422 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) +<span id="L38423" class="LineNr">38423 </span><span class="Constant">$test-compare-eax-with-literal:initialize-literal-type</span>: +<span id="L38424" class="LineNr">38424 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> +<span id="L38425" class="LineNr">38425 </span> 68/push 0/imm32/right:null +<span id="L38426" class="LineNr">38426 </span> 68/push 0/imm32/right:null +<span id="L38427" class="LineNr">38427 </span> 68/push 0/imm32/left:unused +<span id="L38428" class="LineNr">38428 </span> 68/push 0/imm32/value:literal +<span id="L38429" class="LineNr">38429 </span> 68/push 1/imm32/is-atom?:true +<span id="L38430" class="LineNr">38430 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38431" class="LineNr">38431 </span> 89/<- %edx 4/r32/esp +<span id="L38432" class="LineNr">38432 </span><span class="Constant">$test-compare-eax-with-literal:initialize-literal</span>: +<span id="L38433" class="LineNr">38433 </span> <span class="subxComment"># var l/edx: (payload var)</span> +<span id="L38434" class="LineNr">38434 </span> 68/push 0/imm32/register +<span id="L38435" class="LineNr">38435 </span> 68/push 0/imm32/register +<span id="L38436" class="LineNr">38436 </span> 68/push 0/imm32/no-stack-offset +<span id="L38437" class="LineNr">38437 </span> 68/push 1/imm32/block-depth +<span id="L38438" class="LineNr">38438 </span> 52/push-edx +<span id="L38439" class="LineNr">38439 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38440" class="LineNr">38440 </span> 68/push 0/imm32/name +<span id="L38441" class="LineNr">38441 </span> 68/push 0/imm32/name +<span id="L38442" class="LineNr">38442 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38443" class="LineNr">38443 </span> 89/<- %edx 4/r32/esp +<span id="L38444" class="LineNr">38444 </span><span class="Constant">$test-compare-eax-with-literal:initialize-literal-value</span>: +<span id="L38445" class="LineNr">38445 </span> <span class="subxComment"># l->name = "0x34"</span> +<span id="L38446" class="LineNr">38446 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L38447" class="LineNr">38447 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"0x34"</span> %eax) +<span id="L38448" class="LineNr">38448 </span><span class="Constant">$test-compare-eax-with-literal:initialize-inouts</span>: +<span id="L38449" class="LineNr">38449 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> +<span id="L38450" class="LineNr">38450 </span> 68/push 0/imm32/is-deref:false +<span id="L38451" class="LineNr">38451 </span> 68/push 0/imm32/next +<span id="L38452" class="LineNr">38452 </span> 68/push 0/imm32/next +<span id="L38453" class="LineNr">38453 </span> 52/push-edx/l +<span id="L38454" class="LineNr">38454 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38455" class="LineNr">38455 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38456" class="LineNr">38456 </span> 89/<- %esi 4/r32/esp +<span id="L38457" class="LineNr">38457 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> +<span id="L38458" class="LineNr">38458 </span> 68/push 0/imm32/is-deref:false +<span id="L38459" class="LineNr">38459 </span> 56/push-esi/next +<span id="L38460" class="LineNr">38460 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38461" class="LineNr">38461 </span> 51/push-ecx/var1 +<span id="L38462" class="LineNr">38462 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38463" class="LineNr">38463 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38464" class="LineNr">38464 </span> 89/<- %esi 4/r32/esp +<span id="L38465" class="LineNr">38465 </span><span class="Constant">$test-compare-eax-with-literal:initialize-stmt</span>: +<span id="L38466" class="LineNr">38466 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L38467" class="LineNr">38467 </span> 68/push 0/imm32/next +<span id="L38468" class="LineNr">38468 </span> 68/push 0/imm32/next +<span id="L38469" class="LineNr">38469 </span> 68/push 0/imm32/outputs +<span id="L38470" class="LineNr">38470 </span> 68/push 0/imm32/outputs +<span id="L38471" class="LineNr">38471 </span> 56/push-esi/inouts +<span id="L38472" class="LineNr">38472 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38473" class="LineNr">38473 </span> 68/push 0/imm32/operation +<span id="L38474" class="LineNr">38474 </span> 68/push 0/imm32/operation +<span id="L38475" class="LineNr">38475 </span> 68/push 1/imm32/tag:stmt1 +<span id="L38476" class="LineNr">38476 </span> 89/<- %esi 4/r32/esp +<span id="L38477" class="LineNr">38477 </span><span class="Constant">$test-compare-eax-with-literal:initialize-stmt-operation</span>: +<span id="L38478" class="LineNr">38478 </span> <span class="subxComment"># stmt->operation = "compare"</span> +<span id="L38479" class="LineNr">38479 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L38480" class="LineNr">38480 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"compare"</span> %eax) +<span id="L38481" class="LineNr">38481 </span> <span class="subxComment"># convert</span> +<span id="L38482" class="LineNr">38482 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span> 0/imm32 +<span id="L38483" class="LineNr">38483 </span> (<a href='mu.subx.html#L28660'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L30450'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L38484" class="LineNr">38484 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L38485" class="Folded">38485 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L38491" class="LineNr">38491 </span> <span class="subxComment"># check output</span> +<span id="L38492" class="LineNr">38492 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"3d/compare-eax-with 0x34/imm32"</span> <span class="Constant">"F - test-compare-eax-with-literal"</span>) +<span id="L38493" class="LineNr">38493 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L38494" class="LineNr">38494 </span> 89/<- %esp 5/r32/ebp +<span id="L38495" class="LineNr">38495 </span> 5d/pop-to-ebp +<span id="L38496" class="LineNr">38496 </span> c3/return +<span id="L38497" class="LineNr">38497 </span> +<span id="L38498" class="LineNr">38498 </span><span class="subxTest">test-compare-reg-with-literal</span>: +<span id="L38499" class="LineNr">38499 </span> <span class="subxComment"># compare var1/ecx 0x34</span> +<span id="L38500" class="LineNr">38500 </span> <span class="subxComment"># =></span> +<span id="L38501" class="LineNr">38501 </span> <span class="subxComment"># 81 7/subop/compare %ecx 0x34/imm32</span> +<span id="L38502" class="LineNr">38502 </span> <span class="subxComment">#</span> +<span id="L38503" class="LineNr">38503 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L38504" class="LineNr">38504 </span> 55/push-ebp +<span id="L38505" class="LineNr">38505 </span> 89/<- %ebp 4/r32/esp +<span id="L38506" class="LineNr">38506 </span> <span class="subxComment"># setup</span> +<span id="L38507" class="LineNr">38507 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L38508" class="LineNr">38508 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L38509" class="LineNr">38509 </span><span class="Constant">$test-compare-reg-with-literal:initialize-type</span>: +<span id="L38510" class="LineNr">38510 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L38511" class="LineNr">38511 </span> 68/push 0/imm32/right:null +<span id="L38512" class="LineNr">38512 </span> 68/push 0/imm32/right:null +<span id="L38513" class="LineNr">38513 </span> 68/push 0/imm32/left:unused +<span id="L38514" class="LineNr">38514 </span> 68/push 1/imm32/value:int +<span id="L38515" class="LineNr">38515 </span> 68/push 1/imm32/is-atom?:true +<span id="L38516" class="LineNr">38516 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38517" class="LineNr">38517 </span> 89/<- %ecx 4/r32/esp +<span id="L38518" class="LineNr">38518 </span><span class="Constant">$test-compare-reg-with-literal:initialize-var1</span>: +<span id="L38519" class="LineNr">38519 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L38520" class="LineNr">38520 </span> 68/push 0/imm32/register +<span id="L38521" class="LineNr">38521 </span> 68/push 0/imm32/register +<span id="L38522" class="LineNr">38522 </span> 68/push 0/imm32/no-stack-offset +<span id="L38523" class="LineNr">38523 </span> 68/push 1/imm32/block-depth +<span id="L38524" class="LineNr">38524 </span> 51/push-ecx +<span id="L38525" class="LineNr">38525 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38526" class="LineNr">38526 </span> 68/push 0/imm32/name +<span id="L38527" class="LineNr">38527 </span> 68/push 0/imm32/name +<span id="L38528" class="LineNr">38528 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38529" class="LineNr">38529 </span> 89/<- %ecx 4/r32/esp +<span id="L38530" class="LineNr">38530 </span><span class="Constant">$test-compare-reg-with-literal:initialize-var1-name</span>: +<span id="L38531" class="LineNr">38531 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L38532" class="LineNr">38532 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L38533" class="LineNr">38533 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) +<span id="L38534" class="LineNr">38534 </span><span class="Constant">$test-compare-reg-with-literal:initialize-var1-register</span>: +<span id="L38535" class="LineNr">38535 </span> <span class="subxComment"># v->register = "ecx"</span> +<span id="L38536" class="LineNr">38536 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L38537" class="LineNr">38537 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ecx"</span> %eax) +<span id="L38538" class="LineNr">38538 </span><span class="Constant">$test-compare-reg-with-literal:initialize-literal-type</span>: +<span id="L38539" class="LineNr">38539 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> +<span id="L38540" class="LineNr">38540 </span> 68/push 0/imm32/right:null +<span id="L38541" class="LineNr">38541 </span> 68/push 0/imm32/right:null +<span id="L38542" class="LineNr">38542 </span> 68/push 0/imm32/left:unused +<span id="L38543" class="LineNr">38543 </span> 68/push 0/imm32/value:literal +<span id="L38544" class="LineNr">38544 </span> 68/push 1/imm32/is-atom?:true +<span id="L38545" class="LineNr">38545 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38546" class="LineNr">38546 </span> 89/<- %edx 4/r32/esp +<span id="L38547" class="LineNr">38547 </span><span class="Constant">$test-compare-reg-with-literal:initialize-literal</span>: +<span id="L38548" class="LineNr">38548 </span> <span class="subxComment"># var l/edx: (payload var)</span> +<span id="L38549" class="LineNr">38549 </span> 68/push 0/imm32/register +<span id="L38550" class="LineNr">38550 </span> 68/push 0/imm32/register +<span id="L38551" class="LineNr">38551 </span> 68/push 0/imm32/no-stack-offset +<span id="L38552" class="LineNr">38552 </span> 68/push 1/imm32/block-depth +<span id="L38553" class="LineNr">38553 </span> 52/push-edx +<span id="L38554" class="LineNr">38554 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38555" class="LineNr">38555 </span> 68/push 0/imm32/name +<span id="L38556" class="LineNr">38556 </span> 68/push 0/imm32/name +<span id="L38557" class="LineNr">38557 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38558" class="LineNr">38558 </span> 89/<- %edx 4/r32/esp +<span id="L38559" class="LineNr">38559 </span><span class="Constant">$test-compare-reg-with-literal:initialize-literal-value</span>: +<span id="L38560" class="LineNr">38560 </span> <span class="subxComment"># l->name = "0x34"</span> +<span id="L38561" class="LineNr">38561 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L38562" class="LineNr">38562 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"0x34"</span> %eax) +<span id="L38563" class="LineNr">38563 </span><span class="Constant">$test-compare-reg-with-literal:initialize-inouts</span>: +<span id="L38564" class="LineNr">38564 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> +<span id="L38565" class="LineNr">38565 </span> 68/push 0/imm32/is-deref:false +<span id="L38566" class="LineNr">38566 </span> 68/push 0/imm32/next +<span id="L38567" class="LineNr">38567 </span> 68/push 0/imm32/next +<span id="L38568" class="LineNr">38568 </span> 52/push-edx/l +<span id="L38569" class="LineNr">38569 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38570" class="LineNr">38570 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38571" class="LineNr">38571 </span> 89/<- %esi 4/r32/esp +<span id="L38572" class="LineNr">38572 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> +<span id="L38573" class="LineNr">38573 </span> 68/push 0/imm32/is-deref:false +<span id="L38574" class="LineNr">38574 </span> 56/push-esi/next +<span id="L38575" class="LineNr">38575 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38576" class="LineNr">38576 </span> 51/push-ecx/var1 +<span id="L38577" class="LineNr">38577 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38578" class="LineNr">38578 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38579" class="LineNr">38579 </span> 89/<- %esi 4/r32/esp +<span id="L38580" class="LineNr">38580 </span><span class="Constant">$test-compare-reg-with-literal:initialize-stmt</span>: +<span id="L38581" class="LineNr">38581 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L38582" class="LineNr">38582 </span> 68/push 0/imm32/next +<span id="L38583" class="LineNr">38583 </span> 68/push 0/imm32/next +<span id="L38584" class="LineNr">38584 </span> 68/push 0/imm32/outputs +<span id="L38585" class="LineNr">38585 </span> 68/push 0/imm32/outputs +<span id="L38586" class="LineNr">38586 </span> 56/push-esi/inouts +<span id="L38587" class="LineNr">38587 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38588" class="LineNr">38588 </span> 68/push 0/imm32/operation +<span id="L38589" class="LineNr">38589 </span> 68/push 0/imm32/operation +<span id="L38590" class="LineNr">38590 </span> 68/push 1/imm32/tag:stmt1 +<span id="L38591" class="LineNr">38591 </span> 89/<- %esi 4/r32/esp +<span id="L38592" class="LineNr">38592 </span><span class="Constant">$test-compare-reg-with-literal:initialize-stmt-operation</span>: +<span id="L38593" class="LineNr">38593 </span> <span class="subxComment"># stmt->operation = "compare"</span> +<span id="L38594" class="LineNr">38594 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L38595" class="LineNr">38595 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"compare"</span> %eax) +<span id="L38596" class="LineNr">38596 </span> <span class="subxComment"># convert</span> +<span id="L38597" class="LineNr">38597 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span> 0/imm32 +<span id="L38598" class="LineNr">38598 </span> (<a href='mu.subx.html#L28660'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L30450'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L38599" class="LineNr">38599 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L38600" class="Folded">38600 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L38606" class="LineNr">38606 </span> <span class="subxComment"># check output</span> +<span id="L38607" class="LineNr">38607 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"81 7/subop/compare %ecx 0x34/imm32"</span> <span class="Constant">"F - test-compare-reg-with-literal"</span>) +<span id="L38608" class="LineNr">38608 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L38609" class="LineNr">38609 </span> 89/<- %esp 5/r32/ebp +<span id="L38610" class="LineNr">38610 </span> 5d/pop-to-ebp +<span id="L38611" class="LineNr">38611 </span> c3/return +<span id="L38612" class="LineNr">38612 </span> +<span id="L38613" class="LineNr">38613 </span><span class="subxTest">test-emit-subx-stmt-function-call</span>: +<span id="L38614" class="LineNr">38614 </span> <span class="subxComment"># Call a function on a variable on the stack.</span> +<span id="L38615" class="LineNr">38615 </span> <span class="subxComment"># f foo</span> +<span id="L38616" class="LineNr">38616 </span> <span class="subxComment"># =></span> +<span id="L38617" class="LineNr">38617 </span> <span class="subxComment"># (f *(ebp-8))</span> +<span id="L38618" class="LineNr">38618 </span> <span class="subxComment"># (Changing the function name supports overloading in general, but here it</span> +<span id="L38619" class="LineNr">38619 </span> <span class="subxComment"># just serves to help disambiguate things.)</span> +<span id="L38620" class="LineNr">38620 </span> <span class="subxComment">#</span> +<span id="L38621" class="LineNr">38621 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> +<span id="L38622" class="LineNr">38622 </span> <span class="subxComment"># name: 'foo'</span> +<span id="L38623" class="LineNr">38623 </span> <span class="subxComment"># type: int</span> +<span id="L38624" class="LineNr">38624 </span> <span class="subxComment"># stack-offset: -8</span> +<span id="L38625" class="LineNr">38625 </span> <span class="subxComment">#</span> +<span id="L38626" class="LineNr">38626 </span> <span class="subxComment"># There's nothing in primitives.</span> +<span id="L38627" class="LineNr">38627 </span> <span class="subxComment">#</span> +<span id="L38628" class="LineNr">38628 </span> <span class="subxComment"># We don't perform any checking here on the type of 'f'.</span> +<span id="L38629" class="LineNr">38629 </span> <span class="subxComment">#</span> +<span id="L38630" class="LineNr">38630 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L38631" class="LineNr">38631 </span> 55/push-ebp +<span id="L38632" class="LineNr">38632 </span> 89/<- %ebp 4/r32/esp +<span id="L38633" class="LineNr">38633 </span> <span class="subxComment"># setup</span> +<span id="L38634" class="LineNr">38634 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L38635" class="LineNr">38635 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L38636" class="LineNr">38636 </span><span class="Constant">$test-emit-subx-function-call:initialize-type</span>: +<span id="L38637" class="LineNr">38637 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L38638" class="LineNr">38638 </span> 68/push 0/imm32/right:null +<span id="L38639" class="LineNr">38639 </span> 68/push 0/imm32/right:null +<span id="L38640" class="LineNr">38640 </span> 68/push 0/imm32/left:unused +<span id="L38641" class="LineNr">38641 </span> 68/push 1/imm32/value:int +<span id="L38642" class="LineNr">38642 </span> 68/push 1/imm32/is-atom?:true +<span id="L38643" class="LineNr">38643 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38644" class="LineNr">38644 </span> 89/<- %ecx 4/r32/esp +<span id="L38645" class="LineNr">38645 </span><span class="Constant">$test-emit-subx-function-call:initialize-var</span>: +<span id="L38646" class="LineNr">38646 </span> <span class="subxComment"># var var-foo/ecx: (payload var) = var(type)</span> +<span id="L38647" class="LineNr">38647 </span> 68/push 0/imm32/no-register +<span id="L38648" class="LineNr">38648 </span> 68/push 0/imm32/no-register +<span id="L38649" class="LineNr">38649 </span> 68/push -8/imm32/stack-offset +<span id="L38650" class="LineNr">38650 </span> 68/push 1/imm32/block-depth +<span id="L38651" class="LineNr">38651 </span> 51/push-ecx/type +<span id="L38652" class="LineNr">38652 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38653" class="LineNr">38653 </span> 68/push 0/imm32/name +<span id="L38654" class="LineNr">38654 </span> 68/push 0/imm32/name +<span id="L38655" class="LineNr">38655 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38656" class="LineNr">38656 </span> 89/<- %ecx 4/r32/esp +<span id="L38657" class="LineNr">38657 </span><span class="Constant">$test-emit-subx-function-call:initialize-var-name</span>: +<span id="L38658" class="LineNr">38658 </span> <span class="subxComment"># var-foo->name = "foo"</span> +<span id="L38659" class="LineNr">38659 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L38660" class="LineNr">38660 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"foo"</span> %eax) +<span id="L38661" class="LineNr">38661 </span><span class="Constant">$test-emit-subx-function-call:initialize-stmt-var</span>: +<span id="L38662" class="LineNr">38662 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var) = stmt-var(var-foo)</span> +<span id="L38663" class="LineNr">38663 </span> 68/push 0/imm32/is-deref:false +<span id="L38664" class="LineNr">38664 </span> 68/push 0/imm32/next +<span id="L38665" class="LineNr">38665 </span> 68/push 0/imm32/next +<span id="L38666" class="LineNr">38666 </span> 51/push-ecx/var-foo +<span id="L38667" class="LineNr">38667 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38668" class="LineNr">38668 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38669" class="LineNr">38669 </span> 89/<- %ebx 4/r32/esp +<span id="L38670" class="LineNr">38670 </span><span class="Constant">$test-emit-subx-function-call:initialize-stmt</span>: +<span id="L38671" class="LineNr">38671 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L38672" class="LineNr">38672 </span> 68/push 0/imm32/no-outputs +<span id="L38673" class="LineNr">38673 </span> 68/push 0/imm32/no-outputs +<span id="L38674" class="LineNr">38674 </span> 53/push-ebx/inouts +<span id="L38675" class="LineNr">38675 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38676" class="LineNr">38676 </span> 68/push 0/imm32/operation +<span id="L38677" class="LineNr">38677 </span> 68/push 0/imm32/operation +<span id="L38678" class="LineNr">38678 </span> 68/push 1/imm32/tag +<span id="L38679" class="LineNr">38679 </span> 89/<- %esi 4/r32/esp +<span id="L38680" class="LineNr">38680 </span><span class="Constant">$test-emit-subx-function-call:initialize-stmt-operation</span>: +<span id="L38681" class="LineNr">38681 </span> <span class="subxComment"># stmt->operation = "f"</span> +<span id="L38682" class="LineNr">38682 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L38683" class="LineNr">38683 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"f"</span> %eax) +<span id="L38684" class="LineNr">38684 </span> <span class="subxComment"># convert</span> +<span id="L38685" class="LineNr">38685 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span> 0/imm32 +<span id="L38686" class="LineNr">38686 </span> (<a href='mu.subx.html#L28660'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi 0 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L38687" class="LineNr">38687 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L38688" class="Folded">38688 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L38694" class="LineNr">38694 </span> <span class="subxComment"># check output</span> +<span id="L38695" class="LineNr">38695 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"(f *(ebp+0xfffffff8))"</span> <span class="Constant">"F - test-emit-subx-stmt-function-call"</span>) +<span id="L38696" class="LineNr">38696 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L38697" class="LineNr">38697 </span> 89/<- %esp 5/r32/ebp +<span id="L38698" class="LineNr">38698 </span> 5d/pop-to-ebp +<span id="L38699" class="LineNr">38699 </span> c3/return +<span id="L38700" class="LineNr">38700 </span> +<span id="L38701" class="LineNr">38701 </span><span class="subxTest">test-emit-subx-stmt-function-call-with-literal-arg</span>: +<span id="L38702" class="LineNr">38702 </span> <span class="subxComment"># Call a function on a literal.</span> +<span id="L38703" class="LineNr">38703 </span> <span class="subxComment"># f 0x34</span> +<span id="L38704" class="LineNr">38704 </span> <span class="subxComment"># =></span> +<span id="L38705" class="LineNr">38705 </span> <span class="subxComment"># (f2 0x34)</span> +<span id="L38706" class="LineNr">38706 </span> <span class="subxComment">#</span> +<span id="L38707" class="LineNr">38707 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L38708" class="LineNr">38708 </span> 55/push-ebp +<span id="L38709" class="LineNr">38709 </span> 89/<- %ebp 4/r32/esp +<span id="L38710" class="LineNr">38710 </span> <span class="subxComment"># setup</span> +<span id="L38711" class="LineNr">38711 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L38712" class="LineNr">38712 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L38713" class="LineNr">38713 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-type</span>: +<span id="L38714" class="LineNr">38714 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L38715" class="LineNr">38715 </span> 68/push 0/imm32/right:null +<span id="L38716" class="LineNr">38716 </span> 68/push 0/imm32/right:null +<span id="L38717" class="LineNr">38717 </span> 68/push 0/imm32/left:unused +<span id="L38718" class="LineNr">38718 </span> 68/push 0/imm32/value:literal +<span id="L38719" class="LineNr">38719 </span> 68/push 1/imm32/is-atom?:true +<span id="L38720" class="LineNr">38720 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38721" class="LineNr">38721 </span> 89/<- %ecx 4/r32/esp +<span id="L38722" class="LineNr">38722 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-var</span>: +<span id="L38723" class="LineNr">38723 </span> <span class="subxComment"># var var-foo/ecx: (payload var) = var(lit)</span> +<span id="L38724" class="LineNr">38724 </span> 68/push 0/imm32/no-register +<span id="L38725" class="LineNr">38725 </span> 68/push 0/imm32/no-register +<span id="L38726" class="LineNr">38726 </span> 68/push 0/imm32/no-stack-offset +<span id="L38727" class="LineNr">38727 </span> 68/push 1/imm32/block-depth +<span id="L38728" class="LineNr">38728 </span> 51/push-ecx/type +<span id="L38729" class="LineNr">38729 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38730" class="LineNr">38730 </span> 68/push 0/imm32/name +<span id="L38731" class="LineNr">38731 </span> 68/push 0/imm32/name +<span id="L38732" class="LineNr">38732 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38733" class="LineNr">38733 </span> 89/<- %ecx 4/r32/esp +<span id="L38734" class="LineNr">38734 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-var-name</span>: +<span id="L38735" class="LineNr">38735 </span> <span class="subxComment"># var-foo->name = "0x34"</span> +<span id="L38736" class="LineNr">38736 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L38737" class="LineNr">38737 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"0x34"</span> %eax) +<span id="L38738" class="LineNr">38738 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-stmt-var</span>: +<span id="L38739" class="LineNr">38739 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var) = stmt-var(var-foo)</span> +<span id="L38740" class="LineNr">38740 </span> 68/push 0/imm32/is-deref:false +<span id="L38741" class="LineNr">38741 </span> 68/push 0/imm32/next +<span id="L38742" class="LineNr">38742 </span> 68/push 0/imm32/next +<span id="L38743" class="LineNr">38743 </span> 51/push-ecx/var-foo +<span id="L38744" class="LineNr">38744 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38745" class="LineNr">38745 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38746" class="LineNr">38746 </span> 89/<- %ebx 4/r32/esp +<span id="L38747" class="LineNr">38747 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-stmt</span>: +<span id="L38748" class="LineNr">38748 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L38749" class="LineNr">38749 </span> 68/push 0/imm32/no-outputs +<span id="L38750" class="LineNr">38750 </span> 68/push 0/imm32/no-outputs +<span id="L38751" class="LineNr">38751 </span> 53/push-ebx/inouts +<span id="L38752" class="LineNr">38752 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38753" class="LineNr">38753 </span> 68/push 0/imm32/operation +<span id="L38754" class="LineNr">38754 </span> 68/push 0/imm32/operation +<span id="L38755" class="LineNr">38755 </span> 68/push 1/imm32/tag +<span id="L38756" class="LineNr">38756 </span> 89/<- %esi 4/r32/esp +<span id="L38757" class="LineNr">38757 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-stmt-operation</span>: +<span id="L38758" class="LineNr">38758 </span> <span class="subxComment"># stmt->operation = "f"</span> +<span id="L38759" class="LineNr">38759 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L38760" class="LineNr">38760 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"f"</span> %eax) +<span id="L38761" class="LineNr">38761 </span> <span class="subxComment"># convert</span> +<span id="L38762" class="LineNr">38762 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15716'>Curr-block-depth</a></span> 0/imm32 +<span id="L38763" class="LineNr">38763 </span> (<a href='mu.subx.html#L28660'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi 0 %ebx 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L38764" class="LineNr">38764 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L38765" class="Folded">38765 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L38771" class="LineNr">38771 </span> <span class="subxComment"># check output</span> +<span id="L38772" class="LineNr">38772 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"(f 0x34)"</span> <span class="Constant">"F - test-emit-subx-stmt-function-call-with-literal-arg"</span>) +<span id="L38773" class="LineNr">38773 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L38774" class="LineNr">38774 </span> 89/<- %esp 5/r32/ebp +<span id="L38775" class="LineNr">38775 </span> 5d/pop-to-ebp +<span id="L38776" class="LineNr">38776 </span> c3/return +<span id="L38777" class="LineNr">38777 </span> +<span id="L38778" class="LineNr">38778 </span><span class="subxFunction">emit-indent</span>: <span class="subxComment"># out: (addr buffered-file), n: int</span> +<span id="L38779" class="LineNr">38779 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L38780" class="LineNr">38780 </span> 55/push-ebp +<span id="L38781" class="LineNr">38781 </span> 89/<- %ebp 4/r32/esp +<span id="L38782" class="LineNr">38782 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L38783" class="LineNr">38783 </span> 50/push-eax +<span id="L38784" class="LineNr">38784 </span> <span class="subxComment"># var i/eax: int = n</span> +<span id="L38785" class="LineNr">38785 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L38786" class="LineNr">38786 </span> { +<span id="L38787" class="LineNr">38787 </span> <span class="subxComment"># if (i <= 0) break</span> +<span id="L38788" class="LineNr">38788 </span> 3d/compare-eax-with 0/imm32 +<span id="L38789" class="LineNr">38789 </span> 7e/jump-if-<= <span class="Constant">break</span>/disp8 +<span id="L38790" class="LineNr">38790 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) +<span id="L38791" class="LineNr">38791 </span> 48/decrement-eax +<span id="L38792" class="LineNr">38792 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L38793" class="LineNr">38793 </span> } +<span id="L38794" class="LineNr">38794 </span><span class="Constant">$emit-indent:end</span>: +<span id="L38795" class="LineNr">38795 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L38796" class="LineNr">38796 </span> 58/pop-to-eax +<span id="L38797" class="LineNr">38797 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L38798" class="LineNr">38798 </span> 89/<- %esp 5/r32/ebp +<span id="L38799" class="LineNr">38799 </span> 5d/pop-to-ebp +<span id="L38800" class="LineNr">38800 </span> c3/return +<span id="L38801" class="LineNr">38801 </span> +<span id="L38802" class="LineNr">38802 </span><span class="subxFunction">emit-subx-prologue</span>: <span class="subxComment"># out: (addr buffered-file)</span> +<span id="L38803" class="LineNr">38803 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L38804" class="LineNr">38804 </span> 55/push-ebp +<span id="L38805" class="LineNr">38805 </span> 89/<- %ebp 4/r32/esp +<span id="L38806" class="LineNr">38806 </span> <span class="subxComment">#</span> +<span id="L38807" class="LineNr">38807 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" # . prologue\n"</span>) +<span id="L38808" class="LineNr">38808 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 55/push-ebp\n"</span>) +<span id="L38809" class="LineNr">38809 </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="L38810" class="LineNr">38810 </span><span class="Constant">$emit-subx-prologue:end</span>: +<span id="L38811" class="LineNr">38811 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L38812" class="LineNr">38812 </span> 89/<- %esp 5/r32/ebp +<span id="L38813" class="LineNr">38813 </span> 5d/pop-to-ebp +<span id="L38814" class="LineNr">38814 </span> c3/return +<span id="L38815" class="LineNr">38815 </span> +<span id="L38816" class="LineNr">38816 </span><span class="subxFunction">emit-subx-epilogue</span>: <span class="subxComment"># out: (addr buffered-file)</span> +<span id="L38817" class="LineNr">38817 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L38818" class="LineNr">38818 </span> 55/push-ebp +<span id="L38819" class="LineNr">38819 </span> 89/<- %ebp 4/r32/esp +<span id="L38820" class="LineNr">38820 </span> <span class="subxComment">#</span> +<span id="L38821" class="LineNr">38821 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" # . epilogue\n"</span>) +<span id="L38822" class="LineNr">38822 </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="L38823" class="LineNr">38823 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 5d/pop-to-ebp\n"</span>) +<span id="L38824" class="LineNr">38824 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" c3/return\n"</span>) +<span id="L38825" class="LineNr">38825 </span><span class="Constant">$emit-subx-epilogue:end</span>: +<span id="L38826" class="LineNr">38826 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L38827" class="LineNr">38827 </span> 89/<- %esp 5/r32/ebp +<span id="L38828" class="LineNr">38828 </span> 5d/pop-to-ebp +<span id="L38829" class="LineNr">38829 </span> c3/return </pre> </body> </html> diff --git a/html/linux/print-file.mu.html b/html/linux/print-file.mu.html index e0af2261..34cb9c14 100644 --- a/html/linux/print-file.mu.html +++ b/html/linux/print-file.mu.html @@ -80,7 +80,7 @@ if ('onhashchange' in window) { <span id="L22" class="LineNr">22 </span> <span class="PreProc">var</span> in: (handle buffered-file) <span id="L23" class="LineNr">23 </span> <span class="Delimiter">{</span> <span id="L24" class="LineNr">24 </span> <span class="PreProc">var</span> addr-in/<span class="Constant">eax</span>: (addr handle buffered-file) <span class="Special"><-</span> address in -<span id="L25" class="LineNr">25 </span> <a href='306files.subx.html#L12'>open</a> *filename, <span class="Constant">0</span>/read-only, addr-in +<span id="L25" class="LineNr">25 </span> <a href='306files.subx.html#L9'>open</a> *filename, <span class="Constant">0</span>/read-only, addr-in <span id="L26" class="LineNr">26 </span> <span class="Delimiter">}</span> <span id="L27" class="LineNr">27 </span> <span class="PreProc">var</span> _in-addr/<span class="Constant">eax</span>: (addr buffered-file) <span class="Special"><-</span> <a href='120allocate.subx.html#L258'>lookup</a> in <span id="L28" class="LineNr">28 </span> <span class="PreProc">var</span> in-addr/<span class="Constant">ecx</span>: (addr buffered-file) <span class="Special"><-</span> copy _in-addr diff --git a/html/linux/sigils.subx.html b/html/linux/sigils.subx.html index 75b8733c..25ea9012 100644 --- a/html/linux/sigils.subx.html +++ b/html/linux/sigils.subx.html @@ -1645,7 +1645,7 @@ if ('onhashchange' in window) { <span id="L1895" class="LineNr">1895 </span> 68/push 0xe/imm32 <span id="L1896" class="LineNr">1896 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> <span id="L1897" class="LineNr">1897 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> -<span id="L1898" class="LineNr">1898 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L1898" class="LineNr">1898 </span> 2d/subtract-from-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1899" class="LineNr">1899 </span> 50/push-eax <span id="L1900" class="LineNr">1900 </span> <span class="subxS2Comment"># . . call</span> <span id="L1901" class="LineNr">1901 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 @@ -1658,7 +1658,7 @@ if ('onhashchange' in window) { <span id="L1908" class="LineNr">1908 </span> 68/push 0x10/imm32 <span id="L1909" class="LineNr">1909 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> <span id="L1910" class="LineNr">1910 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to eax</span> -<span id="L1911" class="LineNr">1911 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L1911" class="LineNr">1911 </span> 2d/subtract-from-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1912" class="LineNr">1912 </span> 50/push-eax <span id="L1913" class="LineNr">1913 </span> <span class="subxS2Comment"># . . call</span> <span id="L1914" class="LineNr">1914 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 @@ -1718,7 +1718,7 @@ if ('onhashchange' in window) { <span id="L1968" class="LineNr">1968 </span> 68/push 0xe/imm32 <span id="L1969" class="LineNr">1969 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> <span id="L1970" class="LineNr">1970 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> -<span id="L1971" class="LineNr">1971 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L1971" class="LineNr">1971 </span> 2d/subtract-from-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1972" class="LineNr">1972 </span> 50/push-eax <span id="L1973" class="LineNr">1973 </span> <span class="subxS2Comment"># . . call</span> <span id="L1974" class="LineNr">1974 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 @@ -1731,7 +1731,7 @@ if ('onhashchange' in window) { <span id="L1981" class="LineNr">1981 </span> 68/push 0x11/imm32 <span id="L1982" class="LineNr">1982 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> <span id="L1983" class="LineNr">1983 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to eax</span> -<span id="L1984" class="LineNr">1984 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L1984" class="LineNr">1984 </span> 2d/subtract-from-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1985" class="LineNr">1985 </span> 50/push-eax <span id="L1986" class="LineNr">1986 </span> <span class="subxS2Comment"># . . call</span> <span id="L1987" class="LineNr">1987 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 @@ -1823,7 +1823,7 @@ if ('onhashchange' in window) { <span id="L2073" class="LineNr">2073 </span> 68/push 0xd/imm32 <span id="L2074" class="LineNr">2074 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> <span id="L2075" class="LineNr">2075 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> -<span id="L2076" class="LineNr">2076 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L2076" class="LineNr">2076 </span> 2d/subtract-from-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L2077" class="LineNr">2077 </span> 50/push-eax <span id="L2078" class="LineNr">2078 </span> <span class="subxS2Comment"># . . call</span> <span id="L2079" class="LineNr">2079 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 @@ -1836,7 +1836,7 @@ if ('onhashchange' in window) { <span id="L2086" class="LineNr">2086 </span> 68/push 0x18/imm32 <span id="L2087" class="LineNr">2087 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> <span id="L2088" class="LineNr">2088 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to eax</span> -<span id="L2089" class="LineNr">2089 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L2089" class="LineNr">2089 </span> 2d/subtract-from-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L2090" class="LineNr">2090 </span> 50/push-eax <span id="L2091" class="LineNr">2091 </span> <span class="subxS2Comment"># . . call</span> <span id="L2092" class="LineNr">2092 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 @@ -1886,7 +1886,7 @@ if ('onhashchange' in window) { <span id="L2136" class="LineNr">2136 </span> 68/push 0xd/imm32 <span id="L2137" class="LineNr">2137 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> <span id="L2138" class="LineNr">2138 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> -<span id="L2139" class="LineNr">2139 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L2139" class="LineNr">2139 </span> 2d/subtract-from-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L2140" class="LineNr">2140 </span> 50/push-eax <span id="L2141" class="LineNr">2141 </span> <span class="subxS2Comment"># . . call</span> <span id="L2142" class="LineNr">2142 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 @@ -1899,7 +1899,7 @@ if ('onhashchange' in window) { <span id="L2149" class="LineNr">2149 </span> 68/push 0x15/imm32 <span id="L2150" class="LineNr">2150 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> <span id="L2151" class="LineNr">2151 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to eax</span> -<span id="L2152" class="LineNr">2152 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L2152" class="LineNr">2152 </span> 2d/subtract-from-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L2153" class="LineNr">2153 </span> 50/push-eax <span id="L2154" class="LineNr">2154 </span> <span class="subxS2Comment"># . . call</span> <span id="L2155" class="LineNr">2155 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 @@ -1949,7 +1949,7 @@ if ('onhashchange' in window) { <span id="L2199" class="LineNr">2199 </span> 68/push 0xd/imm32 <span id="L2200" class="LineNr">2200 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> <span id="L2201" class="LineNr">2201 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> -<span id="L2202" class="LineNr">2202 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L2202" class="LineNr">2202 </span> 2d/subtract-from-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L2203" class="LineNr">2203 </span> 50/push-eax <span id="L2204" class="LineNr">2204 </span> <span class="subxS2Comment"># . . call</span> <span id="L2205" class="LineNr">2205 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 @@ -1962,7 +1962,7 @@ if ('onhashchange' in window) { <span id="L2212" class="LineNr">2212 </span> 68/push 0x19/imm32 <span id="L2213" class="LineNr">2213 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> <span id="L2214" class="LineNr">2214 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to eax</span> -<span id="L2215" class="LineNr">2215 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L2215" class="LineNr">2215 </span> 2d/subtract-from-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L2216" class="LineNr">2216 </span> 50/push-eax <span id="L2217" class="LineNr">2217 </span> <span class="subxS2Comment"># . . call</span> <span id="L2218" class="LineNr">2218 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 @@ -2041,7 +2041,7 @@ if ('onhashchange' in window) { <span id="L2291" class="LineNr">2291 </span> <span class="subxComment"># if (*local-slice->start == '(') goto compound expression</span> <span id="L2292" class="LineNr">2292 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> <span id="L2293" class="LineNr">2293 </span> 8a/copy-byte 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *eax to AL</span> -<span id="L2294" class="LineNr">2294 </span> 81 4/subop/and 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xff/imm32 <span class="subxComment"># bitwise and of eax</span> +<span id="L2294" class="LineNr">2294 </span> 25/and-eax-with 0xff/imm32 <span id="L2295" class="LineNr">2295 </span> 3d/compare-eax-and 0x28/imm32/open-paren <span id="L2296" class="LineNr">2296 </span> 74/jump-if-= $parse-effective-address:compound-expression/disp8 <span id="L2297" class="LineNr">2297 </span><span class="Constant">$parse-effective-address:simple-register</span>: @@ -2107,7 +2107,7 @@ if ('onhashchange' in window) { <span id="L2357" class="LineNr">2357 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *esi</span> <span id="L2358" class="LineNr">2358 </span> <span class="subxComment"># if (*local-slice->start == ')') goto end</span> <span id="L2359" class="LineNr">2359 </span> 8a/copy-byte 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *eax to AL</span> -<span id="L2360" class="LineNr">2360 </span> 81 4/subop/and 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xff/imm32 <span class="subxComment"># bitwise and of eax</span> +<span id="L2360" class="LineNr">2360 </span> 25/and-eax-with 0xff/imm32 <span id="L2361" class="LineNr">2361 </span> 3d/compare-eax-and 0x29/imm32/close-paren <span id="L2362" class="LineNr">2362 </span> 0f 84/jump-if-= $parse-effective-address:end/disp32 <span id="L2363" class="LineNr">2363 </span> <span class="subxComment"># if (*local-slice->start == '-') goto displacement</span> @@ -2184,7 +2184,7 @@ if ('onhashchange' in window) { <span id="L2434" class="LineNr">2434 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *esi</span> <span id="L2435" class="LineNr">2435 </span> <span class="subxComment"># if (*local-slice->start == ')') goto end</span> <span id="L2436" class="LineNr">2436 </span> 8a/copy-byte 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *eax to AL</span> -<span id="L2437" class="LineNr">2437 </span> 81 4/subop/and 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xff/imm32 <span class="subxComment"># bitwise and of eax</span> +<span id="L2437" class="LineNr">2437 </span> 25/and-eax-with 0xff/imm32 <span id="L2438" class="LineNr">2438 </span> 3d/compare-eax-and 0x29/imm32/close-paren <span id="L2439" class="LineNr">2439 </span> 0f 84/jump-if-= $parse-effective-address:end/disp32 <span id="L2440" class="LineNr">2440 </span><span class="Constant">$parse-effective-address:check-for-scale</span>: @@ -2196,7 +2196,7 @@ if ('onhashchange' in window) { <span id="L2446" class="LineNr">2446 </span> <span class="subxComment"># if (*local-slice->start != '<') goto error2</span> <span id="L2447" class="LineNr">2447 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> <span id="L2448" class="LineNr">2448 </span> 8a/copy-byte 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *eax to AL</span> -<span id="L2449" class="LineNr">2449 </span> 81 4/subop/and 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xff/imm32 <span class="subxComment"># bitwise and of eax</span> +<span id="L2449" class="LineNr">2449 </span> 25/and-eax-with 0xff/imm32 <span id="L2450" class="LineNr">2450 </span> 3d/compare-eax-and 0x3c/imm32/less-than <span id="L2451" class="LineNr">2451 </span> 0f 85/jump-if-!= $parse-effective-address:error2/disp32 <span id="L2452" class="LineNr">2452 </span> <span class="subxComment"># ++local-slice->start to skip '<'</span> @@ -2236,7 +2236,7 @@ if ('onhashchange' in window) { <span id="L2486" class="LineNr">2486 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *esi</span> <span id="L2487" class="LineNr">2487 </span> <span class="subxComment"># if (*local-slice->start == ')') goto end</span> <span id="L2488" class="LineNr">2488 </span> 8a/copy-byte 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *eax to AL</span> -<span id="L2489" class="LineNr">2489 </span> 81 4/subop/and 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xff/imm32 <span class="subxComment"># bitwise and of eax</span> +<span id="L2489" class="LineNr">2489 </span> 25/and-eax-with 0xff/imm32 <span id="L2490" class="LineNr">2490 </span> 3d/compare-eax-and 0x29/imm32/close-paren <span id="L2491" class="LineNr">2491 </span> 74/jump-if-= $parse-effective-address:end/disp8 <span id="L2492" class="LineNr">2492 </span><span class="Constant">$parse-effective-address:check-for-displacement</span>: @@ -2270,7 +2270,7 @@ if ('onhashchange' in window) { <span id="L2520" class="LineNr">2520 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *esi</span> <span id="L2521" class="LineNr">2521 </span> <span class="subxComment"># if (*local-slice->start != ')') goto error4</span> <span id="L2522" class="LineNr">2522 </span> 8a/copy-byte 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *eax to AL</span> -<span id="L2523" class="LineNr">2523 </span> 81 4/subop/and 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xff/imm32 <span class="subxComment"># bitwise and of eax</span> +<span id="L2523" class="LineNr">2523 </span> 25/and-eax-with 0xff/imm32 <span id="L2524" class="LineNr">2524 </span> 3d/compare-eax-and 0x29/imm32/close-paren <span id="L2525" class="LineNr">2525 </span> 0f 85/jump-if-!= $parse-effective-address:error4/disp32 <span id="L2526" class="LineNr">2526 </span><span class="Constant">$parse-effective-address:end</span>: @@ -3470,7 +3470,7 @@ if ('onhashchange' in window) { <span id="L3895" class="LineNr">3895 </span> <span class="subxComment"># if (*local-slice->start == '(') return false</span> <span id="L3896" class="LineNr">3896 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> <span id="L3897" class="LineNr">3897 </span> 8a/copy-byte 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *eax to AL</span> -<span id="L3898" class="LineNr">3898 </span> 81 4/subop/and 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xff/imm32 <span class="subxComment"># bitwise and of eax</span> +<span id="L3898" class="LineNr">3898 </span> 25/and-eax-with 0xff/imm32 <span id="L3899" class="LineNr">3899 </span> 3d/compare-eax-and 0x28/imm32/open-paren <span id="L3900" class="LineNr">3900 </span> 74/jump-if-= $disp32-mode?:false/disp8 <span id="L3901" class="LineNr">3901 </span><span class="Constant">$disp32-mode?:check-for-register</span>: diff --git a/html/linux/stack_array.subx.html b/html/linux/stack_array.subx.html new file mode 100644 index 00000000..cbadf326 --- /dev/null +++ b/html/linux/stack_array.subx.html @@ -0,0 +1,699 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - linux/stack_array.subx</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-dark"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #a8a8a8; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #a8a8a8; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } +.LineNr { } +.Normal { color: #000000; background-color: #a8a8a8; padding-bottom: 1px; } +.SpecialChar { color: #d70000; } +.Constant { color: #008787; } +.CommentedCode { color: #8a8a8a; } +.subxFunction { color: #af5f00; text-decoration: underline; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/linux/stack_array.subx'>https://github.com/akkartik/mu/blob/main/linux/stack_array.subx</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span>== code +<span id="L2" class="LineNr"> 2 </span> +<span id="L3" class="LineNr"> 3 </span><span class="subxComment"># Problem: create a function which pushes n zeros on the stack.</span> +<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># This is not a regular function, so it won't be idiomatic.</span> +<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># Registers must be properly restored.</span> +<span id="L6" class="LineNr"> 6 </span><span class="subxComment"># Registers can be spilled, but that modifies the stack and needs to be</span> +<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># cleaned up.</span> +<span id="L8" class="LineNr"> 8 </span> +<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># This file is kinda like a research notebook, to interactively arrive at the</span> +<span id="L10" class="LineNr"> 10 </span><span class="subxComment"># solution. Nobody should have to do this without a computer. To run it:</span> +<span id="L11" class="LineNr"> 11 </span><span class="subxComment"># $ ./translate_subx_debug 000init.linux stack_array.subx && bootstrap/bootstrap --debug --trace --dump run a.elf</span> +<span id="L12" class="LineNr"> 12 </span><span class="subxComment"># There are multiple versions. You'll need to uncomment exactly one.</span> +<span id="L13" class="LineNr"> 13 </span> +<span id="L14" class="LineNr"> 14 </span><span class="subxComment"># The final version has its own Entry, but the others share this one.</span> +<span id="L15" class="LineNr"> 15 </span><span class="CommentedCode">#? Entry:</span> +<span id="L16" class="LineNr"> 16 </span><span class="CommentedCode">#? # . prologue</span> +<span id="L17" class="LineNr"> 17 </span><span class="CommentedCode">#? 89/<- %ebp 4/r32/esp</span> +<span id="L18" class="LineNr"> 18 </span><span class="CommentedCode">#? #</span> +<span id="L19" class="LineNr"> 19 </span><span class="CommentedCode">#? 68/push 0xfcfdfeff/imm32</span> +<span id="L20" class="LineNr"> 20 </span><span class="CommentedCode">#? b8/copy-to-eax 0x34353637/imm32</span> +<span id="L21" class="LineNr"> 21 </span><span class="CommentedCode">#? $dump-stack:</span> +<span id="L22" class="LineNr"> 22 </span><span class="CommentedCode">#? (push-n-zero-bytes 0x20)</span> +<span id="L23" class="LineNr"> 23 </span><span class="CommentedCode">#? $dump-stack2:</span> +<span id="L24" class="LineNr"> 24 </span><span class="CommentedCode">#? 68/push 0x20202020/imm32</span> +<span id="L25" class="LineNr"> 25 </span><span class="CommentedCode">#? $dump-stack3:</span> +<span id="L26" class="LineNr"> 26 </span><span class="CommentedCode">#? b8/copy-to-eax 1/imm32/exit</span> +<span id="L27" class="LineNr"> 27 </span><span class="CommentedCode">#? cd/syscall 0x80/imm8</span> +<span id="L28" class="LineNr"> 28 </span> +<span id="L29" class="LineNr"> 29 </span><span class="subxComment">## 0</span> +<span id="L30" class="LineNr"> 30 </span> +<span id="L31" class="LineNr"> 31 </span><span class="CommentedCode">#? push-n-zero-bytes: # n: int</span> +<span id="L32" class="LineNr"> 32 </span><span class="CommentedCode">#? # . prologue</span> +<span id="L33" class="LineNr"> 33 </span><span class="CommentedCode">#? 55/push-ebp</span> +<span id="L34" class="LineNr"> 34 </span><span class="CommentedCode">#? 89/<- %ebp 4/r32/esp</span> +<span id="L35" class="LineNr"> 35 </span><span class="CommentedCode">#? $push-n-zero-bytes:end:</span> +<span id="L36" class="LineNr"> 36 </span><span class="CommentedCode">#? # . epilogue</span> +<span id="L37" class="LineNr"> 37 </span><span class="CommentedCode">#? 89/<- %esp 5/r32/ebp</span> +<span id="L38" class="LineNr"> 38 </span><span class="CommentedCode">#? 5d/pop-to-ebp</span> +<span id="L39" class="LineNr"> 39 </span><span class="CommentedCode">#? c3/return</span> +<span id="L40" class="LineNr"> 40 </span> +<span id="L41" class="LineNr"> 41 </span><span class="subxComment"># stack at dump-stack:</span> +<span id="L42" class="LineNr"> 42 </span><span class="subxComment"># 0 a: bdffffd0: 00000000 00000000 00000000 00000000</span> +<span id="L43" class="LineNr"> 43 </span><span class="subxComment"># 0 a: bdffffe0: 00000000 00000000 00000000 00000000</span> +<span id="L44" class="LineNr"> 44 </span><span class="subxComment"># 0 a: bdfffff0: 00000000 fcfdfeff 00000001 bf000000</span> +<span id="L45" class="LineNr"> 45 </span><span class="subxComment">#</span> +<span id="L46" class="LineNr"> 46 </span><span class="subxComment"># =></span> +<span id="L47" class="LineNr"> 47 </span><span class="subxComment">#</span> +<span id="L48" class="LineNr"> 48 </span><span class="subxComment"># stack at dump-stack3:</span> +<span id="L49" class="LineNr"> 49 </span><span class="subxComment"># 0 a: stack:</span> +<span id="L50" class="LineNr"> 50 </span><span class="subxComment"># 0 a: bdffffd0: 00000000 00000000 00000000 00000000</span> +<span id="L51" class="LineNr"> 51 </span><span class="subxComment"># 0 a: bdffffe0: 00000000 00000000 bdfffff8/ebp 090000cc/ra</span> +<span id="L52" class="LineNr"> 52 </span><span class="subxComment"># 0 a: bdfffff0: 00000004/arg fcfdfeff 00000001 bf000000</span> +<span id="L53" class="LineNr"> 53 </span> +<span id="L54" class="LineNr"> 54 </span><span class="subxComment">## 1</span> +<span id="L55" class="LineNr"> 55 </span> +<span id="L56" class="LineNr"> 56 </span><span class="CommentedCode">#? push-n-zero-bytes: # n: int</span> +<span id="L57" class="LineNr"> 57 </span><span class="CommentedCode">#? # . prologue</span> +<span id="L58" class="LineNr"> 58 </span><span class="CommentedCode">#? 55/push-ebp</span> +<span id="L59" class="LineNr"> 59 </span><span class="CommentedCode">#? 89/<- %ebp 4/r32/esp</span> +<span id="L60" class="LineNr"> 60 </span><span class="CommentedCode">#? # . save registers</span> +<span id="L61" class="LineNr"> 61 </span><span class="CommentedCode">#? 50/push-eax</span> +<span id="L62" class="LineNr"> 62 </span><span class="CommentedCode">#? $push-n-zero-bytes:end:</span> +<span id="L63" class="LineNr"> 63 </span><span class="CommentedCode">#? # . restore registers</span> +<span id="L64" class="LineNr"> 64 </span><span class="CommentedCode">#? 58/pop-to-eax</span> +<span id="L65" class="LineNr"> 65 </span><span class="CommentedCode">#? # . epilogue</span> +<span id="L66" class="LineNr"> 66 </span><span class="CommentedCode">#? 5d/pop-to-ebp</span> +<span id="L67" class="LineNr"> 67 </span><span class="CommentedCode">#? c3/return</span> +<span id="L68" class="LineNr"> 68 </span> +<span id="L69" class="LineNr"> 69 </span><span class="subxComment"># stack at dump-stack3:</span> +<span id="L70" class="LineNr"> 70 </span><span class="subxComment"># 0 a: bdffffd0: 00000000 00000000 00000000 00000000</span> +<span id="L71" class="LineNr"> 71 </span><span class="subxComment"># 0 a: bdffffe0: 00000000 34353637 bdfffff8 090000d1</span> +<span id="L72" class="LineNr"> 72 </span><span class="subxComment"># 0 a: bdfffff0: 00000004 fcfdfeff 00000001 bf000000</span> +<span id="L73" class="LineNr"> 73 </span> +<span id="L74" class="LineNr"> 74 </span><span class="subxComment">## 2</span> +<span id="L75" class="LineNr"> 75 </span> +<span id="L76" class="LineNr"> 76 </span><span class="CommentedCode">#? push-n-zero-bytes: # n: int</span> +<span id="L77" class="LineNr"> 77 </span><span class="CommentedCode">#? # . prologue</span> +<span id="L78" class="LineNr"> 78 </span><span class="CommentedCode">#? 55/push-ebp</span> +<span id="L79" class="LineNr"> 79 </span><span class="CommentedCode">#? 89/<- %ebp 4/r32/esp</span> +<span id="L80" class="LineNr"> 80 </span><span class="CommentedCode">#? # . save registers</span> +<span id="L81" class="LineNr"> 81 </span><span class="CommentedCode">#? 50/push-eax</span> +<span id="L82" class="LineNr"> 82 </span><span class="CommentedCode">#? #</span> +<span id="L83" class="LineNr"> 83 </span><span class="CommentedCode">#? 8b/-> *(esp+8) 0/r32/eax</span> +<span id="L84" class="LineNr"> 84 </span><span class="CommentedCode">#? 2b/subtract *(ebp+8) 4/r32/esp</span> +<span id="L85" class="LineNr"> 85 </span><span class="CommentedCode">#? 89/<- *(esp+8) 0/r32/eax</span> +<span id="L86" class="LineNr"> 86 </span><span class="CommentedCode">#? $push-n-zero-bytes:end:</span> +<span id="L87" class="LineNr"> 87 </span><span class="CommentedCode">#? # . restore registers</span> +<span id="L88" class="LineNr"> 88 </span><span class="CommentedCode">#? 58/pop-to-eax</span> +<span id="L89" class="LineNr"> 89 </span><span class="CommentedCode">#? # . epilogue</span> +<span id="L90" class="LineNr"> 90 </span><span class="CommentedCode">#? 5d/pop-to-ebp</span> +<span id="L91" class="LineNr"> 91 </span><span class="CommentedCode">#? c3/return</span> +<span id="L92" class="LineNr"> 92 </span> +<span id="L93" class="LineNr"> 93 </span><span class="subxComment"># stack at dump-stack3:</span> +<span id="L94" class="LineNr"> 94 </span><span class="subxComment"># 0 a: bdffff90: 00000000 00000000 00000000 00000000</span> +<span id="L95" class="LineNr"> 95 </span><span class="subxComment"># 0 a: bdffffa0: 00000000 00000000 00000000 00000000</span> +<span id="L96" class="LineNr"> 96 </span><span class="subxComment"># 0 a: bdffffb0: 00000000 00000000 00000000 00000000</span> +<span id="L97" class="LineNr"> 97 </span><span class="subxComment"># 0 a: bdffffc0: 00000000 00000000 00000000 090000d1</span> +<span id="L98" class="LineNr"> 98 </span><span class="subxComment"># 0 a: bdffffd0: 00000000 00000000 00000000 00000000</span> +<span id="L99" class="LineNr"> 99 </span><span class="subxComment"># 0 a: bdffffe0: 00000000 34353637 bdfffff8 090000d1</span> +<span id="L100" class="LineNr">100 </span><span class="subxComment"># 0 a: bdfffff0: 00000020 fcfdfeff 00000001 bf000000</span> +<span id="L101" class="LineNr">101 </span> +<span id="L102" class="LineNr">102 </span><span class="subxComment">## 3</span> +<span id="L103" class="LineNr">103 </span> +<span id="L104" class="LineNr">104 </span><span class="CommentedCode">#? push-n-zero-bytes: # n: int</span> +<span id="L105" class="LineNr">105 </span><span class="CommentedCode">#? # . prologue</span> +<span id="L106" class="LineNr">106 </span><span class="CommentedCode">#? 55/push-ebp</span> +<span id="L107" class="LineNr">107 </span><span class="CommentedCode">#? 89/<- %ebp 4/r32/esp</span> +<span id="L108" class="LineNr">108 </span><span class="CommentedCode">#? # . save registers</span> +<span id="L109" class="LineNr">109 </span><span class="CommentedCode">#? # -- esp = ebp</span> +<span id="L110" class="LineNr">110 </span><span class="CommentedCode">#? 50/push-eax</span> +<span id="L111" class="LineNr">111 </span><span class="CommentedCode">#? # -- esp+8 = ebp+4</span> +<span id="L112" class="LineNr">112 </span><span class="CommentedCode">#? 8b/-> *(esp+8) 0/r32/eax</span> +<span id="L113" class="LineNr">113 </span><span class="CommentedCode">#? 2b/subtract *(ebp+8) 4/r32/esp</span> +<span id="L114" class="LineNr">114 </span><span class="CommentedCode">#? 89/<- *(esp+8) 0/r32/eax</span> +<span id="L115" class="LineNr">115 </span><span class="CommentedCode">#? c7 0/subop/copy *(ebp+4) 0/imm32</span> +<span id="L116" class="LineNr">116 </span><span class="CommentedCode">#? $push-n-zero-bytes:end:</span> +<span id="L117" class="LineNr">117 </span><span class="CommentedCode">#? # . restore registers</span> +<span id="L118" class="LineNr">118 </span><span class="CommentedCode">#? 58/pop-to-eax</span> +<span id="L119" class="LineNr">119 </span><span class="CommentedCode">#? # . epilogue</span> +<span id="L120" class="LineNr">120 </span><span class="CommentedCode">#? 5d/pop-to-ebp</span> +<span id="L121" class="LineNr">121 </span><span class="CommentedCode">#? c3/return</span> +<span id="L122" class="LineNr">122 </span> +<span id="L123" class="LineNr">123 </span><span class="subxComment"># stack at dump-stack3:</span> +<span id="L124" class="LineNr">124 </span><span class="subxComment"># 0 a: bdffff90: 00000000 00000000 00000000 00000000</span> +<span id="L125" class="LineNr">125 </span><span class="subxComment"># 0 a: bdffffa0: 00000000 00000000 00000000 00000000</span> +<span id="L126" class="LineNr">126 </span><span class="subxComment"># 0 a: bdffffb0: 00000000 00000000 00000000 00000000</span> +<span id="L127" class="LineNr">127 </span><span class="subxComment"># 0 a: bdffffc0: 00000000 00000000 00000000 090000d1</span> +<span id="L128" class="LineNr">128 </span><span class="subxComment"># 0 a: bdffffd0: 20202020 00000000 00000000 00000000</span> +<span id="L129" class="LineNr">129 </span><span class="subxComment"># 0 a: bdffffe0: 00000000 34353637 bdfffff8 00000000</span> +<span id="L130" class="LineNr">130 </span><span class="subxComment"># 0 a: bdfffff0: 00000020 fcfdfeff 00000001 bf000000</span> +<span id="L131" class="LineNr">131 </span> +<span id="L132" class="LineNr">132 </span><span class="subxComment">## 4</span> +<span id="L133" class="LineNr">133 </span> +<span id="L134" class="LineNr">134 </span><span class="CommentedCode">#? push-n-zero-bytes: # n: int</span> +<span id="L135" class="LineNr">135 </span><span class="CommentedCode">#? # . prologue</span> +<span id="L136" class="LineNr">136 </span><span class="CommentedCode">#? 55/push-ebp</span> +<span id="L137" class="LineNr">137 </span><span class="CommentedCode">#? 89/<- %ebp 4/r32/esp</span> +<span id="L138" class="LineNr">138 </span><span class="CommentedCode">#? # . save registers</span> +<span id="L139" class="LineNr">139 </span><span class="CommentedCode">#? # -- esp = ebp</span> +<span id="L140" class="LineNr">140 </span><span class="CommentedCode">#? 50/push-eax</span> +<span id="L141" class="LineNr">141 </span><span class="CommentedCode">#? # copy return address over</span> +<span id="L142" class="LineNr">142 </span><span class="CommentedCode">#? # -- esp+8 = ebp+4</span> +<span id="L143" class="LineNr">143 </span><span class="CommentedCode">#? 8b/-> *(esp+8) 0/r32/eax</span> +<span id="L144" class="LineNr">144 </span><span class="CommentedCode">#? 2b/subtract *(ebp+8) 4/r32/esp</span> +<span id="L145" class="LineNr">145 </span><span class="CommentedCode">#? 89/<- *(esp+8) 0/r32/eax</span> +<span id="L146" class="LineNr">146 </span><span class="CommentedCode">#? 58/pop-to-eax</span> +<span id="L147" class="LineNr">147 </span><span class="CommentedCode">#? c7 0/subop/copy *(ebp+8) 0/imm32</span> +<span id="L148" class="LineNr">148 </span><span class="CommentedCode">#? c7 0/subop/copy *(ebp+4) 0/imm32</span> +<span id="L149" class="LineNr">149 </span><span class="CommentedCode">#? c7 0/subop/copy *(ebp+0) 0/imm32</span> +<span id="L150" class="LineNr">150 </span><span class="CommentedCode">#? c7 0/subop/copy *(ebp-4) 0/imm32</span> +<span id="L151" class="LineNr">151 </span><span class="CommentedCode">#? # . epilogue</span> +<span id="L152" class="LineNr">152 </span><span class="CommentedCode">#? 5d/pop-to-ebp</span> +<span id="L153" class="LineNr">153 </span><span class="CommentedCode">#? c3/return</span> +<span id="L154" class="LineNr">154 </span> +<span id="L155" class="LineNr">155 </span><span class="subxComment"># stack at dump-stack3:</span> +<span id="L156" class="LineNr">156 </span><span class="subxComment"># 0 a: bdffff90: 00000000 00000000 00000000 00000000</span> +<span id="L157" class="LineNr">157 </span><span class="subxComment"># 0 a: bdffffa0: 00000000 00000000 00000000 00000000</span> +<span id="L158" class="LineNr">158 </span><span class="subxComment"># 0 a: bdffffb0: 00000000 00000000 00000000 00000000</span> +<span id="L159" class="LineNr">159 </span><span class="subxComment"># 0 a: bdffffc0: 00000000 00000000 00000000 090000d1</span> +<span id="L160" class="LineNr">160 </span><span class="subxComment"># 0 a: bdffffd0: 20202020 00000000 00000000 00000000</span> +<span id="L161" class="LineNr">161 </span><span class="subxComment"># 0 a: bdffffe0: 00000000 00000000 00000000 00000000</span> +<span id="L162" class="LineNr">162 </span><span class="subxComment"># 0 a: bdfffff0: 00000000 fcfdfeff 00000001 bf000000</span> +<span id="L163" class="LineNr">163 </span> +<span id="L164" class="LineNr">164 </span><span class="subxComment"># Stack looks good now (the 20202020 marks where the array length 0x20 will</span> +<span id="L165" class="LineNr">165 </span><span class="subxComment"># go, and the next 0x20 bytes show the space for the array has been zeroed</span> +<span id="L166" class="LineNr">166 </span><span class="subxComment"># out).</span> +<span id="L167" class="LineNr">167 </span><span class="subxComment"># Final issue: ebp has been clobbered on return.</span> +<span id="L168" class="LineNr">168 </span> +<span id="L169" class="LineNr">169 </span><span class="subxComment">## 5</span> +<span id="L170" class="LineNr">170 </span> +<span id="L171" class="LineNr">171 </span><span class="subxComment"># I'd like to translate ebp to esp so we can stop pushing ebp. But we need to</span> +<span id="L172" class="LineNr">172 </span><span class="subxComment"># hold 'n' somewhere, which would require a register, which we then need to</span> +<span id="L173" class="LineNr">173 </span><span class="subxComment"># push.</span> +<span id="L174" class="LineNr">174 </span> +<span id="L175" class="LineNr">175 </span><span class="CommentedCode">#? push-n-zero-bytes: # n: int</span> +<span id="L176" class="LineNr">176 </span><span class="CommentedCode">#? 55/push-ebp</span> +<span id="L177" class="LineNr">177 </span><span class="CommentedCode">#? 89/<- %ebp 4/r32/esp</span> +<span id="L178" class="LineNr">178 </span><span class="CommentedCode">#? # -- esp = ebp</span> +<span id="L179" class="LineNr">179 </span><span class="CommentedCode">#? 50/push-eax</span> +<span id="L180" class="LineNr">180 </span><span class="CommentedCode">#? $push-n-zero-bytes:bulk-cleaning:</span> +<span id="L181" class="LineNr">181 </span><span class="CommentedCode">#? $push-n-zero-bytes:copy-ra:</span> +<span id="L182" class="LineNr">182 </span><span class="CommentedCode">#? # -- esp+8 = ebp+4</span> +<span id="L183" class="LineNr">183 </span><span class="CommentedCode">#? 8b/-> *(esp+8) 0/r32/eax</span> +<span id="L184" class="LineNr">184 </span><span class="CommentedCode">#? 2b/subtract *(esp+0xc) 4/r32/esp</span> +<span id="L185" class="LineNr">185 </span><span class="CommentedCode">#? # -- esp+8+n = ebp+4</span> +<span id="L186" class="LineNr">186 </span><span class="CommentedCode">#? 89/<- *(esp+8) 0/r32/eax</span> +<span id="L187" class="LineNr">187 </span><span class="CommentedCode">#? 58/pop-to-eax</span> +<span id="L188" class="LineNr">188 </span><span class="CommentedCode">#? # -- esp+n = ebp</span> +<span id="L189" class="LineNr">189 </span><span class="CommentedCode">#? $push-n-zero-bytes:spot-cleaning:</span> +<span id="L190" class="LineNr">190 </span><span class="CommentedCode">#? c7 0/subop/copy *(ebp+8) 0/imm32</span> +<span id="L191" class="LineNr">191 </span><span class="CommentedCode">#? c7 0/subop/copy *(ebp+4) 0/imm32</span> +<span id="L192" class="LineNr">192 </span><span class="CommentedCode">#? c7 0/subop/copy *(ebp+0) 0/imm32</span> +<span id="L193" class="LineNr">193 </span><span class="CommentedCode">#? c7 0/subop/copy *(ebp-4) 0/imm32</span> +<span id="L194" class="LineNr">194 </span><span class="CommentedCode">#? 5d/pop-to-ebp</span> +<span id="L195" class="LineNr">195 </span><span class="CommentedCode">#? c3/return</span> +<span id="L196" class="LineNr">196 </span> +<span id="L197" class="LineNr">197 </span><span class="subxComment"># stack at dump-stack3:</span> +<span id="L198" class="LineNr">198 </span><span class="subxComment"># 0 a: bdffff90: 00000000 00000000 00000000 00000000</span> +<span id="L199" class="LineNr">199 </span><span class="subxComment"># 0 a: bdffffa0: 00000000 00000000 00000000 00000000</span> +<span id="L200" class="LineNr">200 </span><span class="subxComment"># 0 a: bdffffb0: 00000000 00000000 00000000 00000000</span> +<span id="L201" class="LineNr">201 </span><span class="subxComment"># 0 a: bdffffc0: 00000000 00000000 00000000 090000d1</span> +<span id="L202" class="LineNr">202 </span><span class="subxComment"># 0 a: bdffffd0: 20202020 00000000 00000000 00000000</span> +<span id="L203" class="LineNr">203 </span><span class="subxComment"># 0 a: bdffffe0: 00000000 00000000 00000000 00000000</span> +<span id="L204" class="LineNr">204 </span><span class="subxComment"># 0 a: bdfffff0: 00000000 fcfdfeff 00000001 bf000000</span> +<span id="L205" class="LineNr">205 </span> +<span id="L206" class="LineNr">206 </span><span class="subxComment"># Bah. May be simpler to just create a new segment of global space for this</span> +<span id="L207" class="LineNr">207 </span><span class="subxComment"># function.</span> +<span id="L208" class="LineNr">208 </span> +<span id="L209" class="LineNr">209 </span><span class="subxComment">## 6</span> +<span id="L210" class="LineNr">210 </span> +<span id="L211" class="LineNr">211 </span><span class="CommentedCode">#? push-n-zero-bytes: # n: int</span> +<span id="L212" class="LineNr">212 </span><span class="CommentedCode">#? 89/<- *Push-n-zero-bytes-ebp 5/r32/ebp # spill ebp without affecting stack</span> +<span id="L213" class="LineNr">213 </span><span class="CommentedCode">#? 89/<- %ebp 4/r32/esp</span> +<span id="L214" class="LineNr">214 </span><span class="CommentedCode">#? # -- esp = ebp</span> +<span id="L215" class="LineNr">215 </span><span class="CommentedCode">#? 50/push-eax</span> +<span id="L216" class="LineNr">216 </span><span class="CommentedCode">#? $push-n-zero-bytes:bulk-cleaning:</span> +<span id="L217" class="LineNr">217 </span><span class="CommentedCode">#? $push-n-zero-bytes:copy-ra:</span> +<span id="L218" class="LineNr">218 </span><span class="CommentedCode">#? # -- esp+8 = ebp+4</span> +<span id="L219" class="LineNr">219 </span><span class="CommentedCode">#? # -- esp+4 = ebp</span> +<span id="L220" class="LineNr">220 </span><span class="CommentedCode">#? 8b/-> *(esp+4) 0/r32/eax</span> +<span id="L221" class="LineNr">221 </span><span class="CommentedCode">#? 2b/subtract *(ebp+4) 4/r32/esp</span> +<span id="L222" class="LineNr">222 </span><span class="CommentedCode">#? # -- esp+4+n = ebp</span> +<span id="L223" class="LineNr">223 </span><span class="CommentedCode">#? 89/<- *(esp+4) 0/r32/eax</span> +<span id="L224" class="LineNr">224 </span><span class="CommentedCode">#? 58/pop-to-eax</span> +<span id="L225" class="LineNr">225 </span><span class="CommentedCode">#? # -- esp+n = ebp</span> +<span id="L226" class="LineNr">226 </span><span class="CommentedCode">#? $push-n-zero-bytes:spot-cleaning:</span> +<span id="L227" class="LineNr">227 </span><span class="CommentedCode">#? c7 0/subop/copy *(ebp+4) 0/imm32</span> +<span id="L228" class="LineNr">228 </span><span class="CommentedCode">#? c7 0/subop/copy *(ebp+0) 0/imm32</span> +<span id="L229" class="LineNr">229 </span><span class="CommentedCode">#? c7 0/subop/copy *(ebp-4) 0/imm32</span> +<span id="L230" class="LineNr">230 </span><span class="CommentedCode">#? c7 0/subop/copy *(ebp-8) 0/imm32</span> +<span id="L231" class="LineNr">231 </span><span class="CommentedCode">#? 8b/-> *Push-n-zero-bytes-ebp 5/r32/ebp # restore spill</span> +<span id="L232" class="LineNr">232 </span><span class="CommentedCode">#? c3/return</span> +<span id="L233" class="LineNr">233 </span><span class="CommentedCode">#? </span> +<span id="L234" class="LineNr">234 </span><span class="CommentedCode">#? == data</span> +<span id="L235" class="LineNr">235 </span><span class="CommentedCode">#? Push-n-zero-bytes-ebp: # (addr int)</span> +<span id="L236" class="LineNr">236 </span><span class="CommentedCode">#? 0/imm32</span> +<span id="L237" class="LineNr">237 </span><span class="CommentedCode">#? == code</span> +<span id="L238" class="LineNr">238 </span> +<span id="L239" class="LineNr">239 </span><span class="subxComment"># stack at dump-stack3:</span> +<span id="L240" class="LineNr">240 </span><span class="subxComment"># 0 a: bdffff90: 00000000 00000000 00000000 00000000</span> +<span id="L241" class="LineNr">241 </span><span class="subxComment"># 0 a: bdffffa0: 00000000 00000000 00000000 00000000</span> +<span id="L242" class="LineNr">242 </span><span class="subxComment"># 0 a: bdffffb0: 00000000 00000000 00000000 00000000</span> +<span id="L243" class="LineNr">243 </span><span class="subxComment"># 0 a: bdffffc0: 00000000 00000000 00000000 090000d1</span> +<span id="L244" class="LineNr">244 </span><span class="subxComment"># 0 a: bdffffd0: 20202020 00000000 00000000 00000000</span> +<span id="L245" class="LineNr">245 </span><span class="subxComment"># 0 a: bdffffe0: 00000000 00000000 00000000 00000000</span> +<span id="L246" class="LineNr">246 </span><span class="subxComment"># 0 a: bdfffff0: 00000000 fcfdfeff 00000001 bf000000</span> +<span id="L247" class="LineNr">247 </span> +<span id="L248" class="LineNr">248 </span><span class="subxComment"># Ok, we're there. Now start using zero-out rather than spot-cleaning.</span> +<span id="L249" class="LineNr">249 </span> +<span id="L250" class="LineNr">250 </span><span class="subxComment">## 7: we need to zero out the return address, but we can't do it inside the function.</span> +<span id="L251" class="LineNr">251 </span><span class="subxComment">## So we'll change the signature slightly.</span> +<span id="L252" class="LineNr">252 </span><span class="subxComment">## Before: clear N bytes and then push N as the array length.</span> +<span id="L253" class="LineNr">253 </span><span class="subxComment">## After: clear N bytes, set *esp to N.</span> +<span id="L254" class="LineNr">254 </span><span class="subxComment">## The helper adds and clears N bytes *before* esp. esp can't be cleared since</span> +<span id="L255" class="LineNr">255 </span><span class="subxComment">## it contains the return address.</span> +<span id="L256" class="LineNr">256 </span> +<span id="L257" class="LineNr">257 </span><span class="CommentedCode">#? Entry:</span> +<span id="L258" class="LineNr">258 </span><span class="CommentedCode">#? # . prologue</span> +<span id="L259" class="LineNr">259 </span><span class="CommentedCode">#? 89/<- %ebp 4/r32/esp</span> +<span id="L260" class="LineNr">260 </span><span class="CommentedCode">#? #</span> +<span id="L261" class="LineNr">261 </span><span class="CommentedCode">#? 68/push 0xfcfdfeff/imm32</span> +<span id="L262" class="LineNr">262 </span><span class="CommentedCode">#? b8/copy-to-eax 0x34353637/imm32</span> +<span id="L263" class="LineNr">263 </span><span class="CommentedCode">#? $dump-stack0:</span> +<span id="L264" class="LineNr">264 </span><span class="CommentedCode">#? (push-n-zero-bytes 0x20)</span> +<span id="L265" class="LineNr">265 </span><span class="CommentedCode">#? $dump-stack9:</span> +<span id="L266" class="LineNr">266 </span><span class="CommentedCode">#? c7 0/subop/copy *esp 0x20/imm32</span> +<span id="L267" class="LineNr">267 </span><span class="CommentedCode">#? $dump-stacka:</span> +<span id="L268" class="LineNr">268 </span><span class="CommentedCode">#? b8/copy-to-eax 1/imm32/exit</span> +<span id="L269" class="LineNr">269 </span><span class="CommentedCode">#? cd/syscall 0x80/imm8</span> +<span id="L270" class="LineNr">270 </span><span class="CommentedCode">#? </span> +<span id="L271" class="LineNr">271 </span><span class="CommentedCode">#? push-n-zero-bytes: # n: int</span> +<span id="L272" class="LineNr">272 </span><span class="CommentedCode">#? $push-n-zero-bytes:prologue:</span> +<span id="L273" class="LineNr">273 </span><span class="CommentedCode">#? 89/<- *Push-n-zero-bytes-ebp 5/r32/ebp # spill ebp without affecting stack</span> +<span id="L274" class="LineNr">274 </span><span class="CommentedCode">#? 89/<- %ebp 4/r32/esp</span> +<span id="L275" class="LineNr">275 </span><span class="CommentedCode">#? $push-n-zero-bytes:copy-ra:</span> +<span id="L276" class="LineNr">276 </span><span class="CommentedCode">#? $dump-stack1:</span> +<span id="L277" class="LineNr">277 </span><span class="CommentedCode">#? # -- esp = ebp</span> +<span id="L278" class="LineNr">278 </span><span class="CommentedCode">#? 50/push-eax</span> +<span id="L279" class="LineNr">279 </span><span class="CommentedCode">#? $dump-stack2:</span> +<span id="L280" class="LineNr">280 </span><span class="CommentedCode">#? # -- esp+8 = ebp+4</span> +<span id="L281" class="LineNr">281 </span><span class="CommentedCode">#? # -- esp+4 = ebp</span> +<span id="L282" class="LineNr">282 </span><span class="CommentedCode">#? 8b/-> *(esp+4) 0/r32/eax</span> +<span id="L283" class="LineNr">283 </span><span class="CommentedCode">#? $dump-stack3:</span> +<span id="L284" class="LineNr">284 </span><span class="CommentedCode">#? 2b/subtract *(ebp+4) 4/r32/esp</span> +<span id="L285" class="LineNr">285 </span><span class="CommentedCode">#? $dump-stack4:</span> +<span id="L286" class="LineNr">286 </span><span class="CommentedCode">#? # -- esp+4+n = ebp</span> +<span id="L287" class="LineNr">287 </span><span class="CommentedCode">#? 89/<- *(esp+4) 0/r32/eax</span> +<span id="L288" class="LineNr">288 </span><span class="CommentedCode">#? $dump-stack5:</span> +<span id="L289" class="LineNr">289 </span><span class="CommentedCode">#? 58/pop-to-eax</span> +<span id="L290" class="LineNr">290 </span><span class="CommentedCode">#? # -- esp+n = ebp</span> +<span id="L291" class="LineNr">291 </span><span class="CommentedCode">#? $push-n-zero-bytes:bulk-cleaning:</span> +<span id="L292" class="LineNr">292 </span><span class="CommentedCode">#? $dump-stack6:</span> +<span id="L293" class="LineNr">293 </span><span class="CommentedCode">#? 89/<- *Push-n-zero-bytes-esp 4/r32/esp</span> +<span id="L294" class="LineNr">294 </span><span class="CommentedCode">#? 81 0/subop/add *Push-n-zero-bytes-esp 4/imm32</span> +<span id="L295" class="LineNr">295 </span><span class="CommentedCode">#? $dump-stack7:</span> +<span id="L296" class="LineNr">296 </span><span class="CommentedCode">#? (zero-out *Push-n-zero-bytes-esp *(ebp+4)) # n</span> +<span id="L297" class="LineNr">297 </span><span class="CommentedCode">#? $push-n-zero-bytes:epilogue:</span> +<span id="L298" class="LineNr">298 </span><span class="CommentedCode">#? $dump-stack8:</span> +<span id="L299" class="LineNr">299 </span><span class="CommentedCode">#? 8b/-> *Push-n-zero-bytes-ebp 5/r32/ebp # restore spill</span> +<span id="L300" class="LineNr">300 </span><span class="CommentedCode">#? c3/return</span> +<span id="L301" class="LineNr">301 </span><span class="CommentedCode">#? </span> +<span id="L302" class="LineNr">302 </span><span class="CommentedCode">#? zero-out: # start: (addr byte), len: int</span> +<span id="L303" class="LineNr">303 </span><span class="CommentedCode">#? # pseudocode:</span> +<span id="L304" class="LineNr">304 </span><span class="CommentedCode">#? # curr/esi = start</span> +<span id="L305" class="LineNr">305 </span><span class="CommentedCode">#? # i/ecx = 0</span> +<span id="L306" class="LineNr">306 </span><span class="CommentedCode">#? # while true</span> +<span id="L307" class="LineNr">307 </span><span class="CommentedCode">#? # if (i >= len) break</span> +<span id="L308" class="LineNr">308 </span><span class="CommentedCode">#? # *curr = 0</span> +<span id="L309" class="LineNr">309 </span><span class="CommentedCode">#? # ++curr</span> +<span id="L310" class="LineNr">310 </span><span class="CommentedCode">#? # ++i</span> +<span id="L311" class="LineNr">311 </span><span class="CommentedCode">#? #</span> +<span id="L312" class="LineNr">312 </span><span class="CommentedCode">#? # . prologue</span> +<span id="L313" class="LineNr">313 </span><span class="CommentedCode">#? 55/push-ebp</span> +<span id="L314" class="LineNr">314 </span><span class="CommentedCode">#? 89/copy 3/mod/direct 5/rm32/ebp . . . 4/r32/esp . . # copy esp to ebp</span> +<span id="L315" class="LineNr">315 </span><span class="CommentedCode">#? # . save registers</span> +<span id="L316" class="LineNr">316 </span><span class="CommentedCode">#? 50/push-eax</span> +<span id="L317" class="LineNr">317 </span><span class="CommentedCode">#? 51/push-ecx</span> +<span id="L318" class="LineNr">318 </span><span class="CommentedCode">#? 52/push-edx</span> +<span id="L319" class="LineNr">319 </span><span class="CommentedCode">#? 56/push-esi</span> +<span id="L320" class="LineNr">320 </span><span class="CommentedCode">#? # curr/esi = start</span> +<span id="L321" class="LineNr">321 </span><span class="CommentedCode">#? 8b/copy 1/mod/*+disp8 5/rm32/ebp . . . 6/r32/esi 8/disp8 . # copy *(ebp+8) to esi</span> +<span id="L322" class="LineNr">322 </span><span class="CommentedCode">#? # var i/ecx: int = 0</span> +<span id="L323" class="LineNr">323 </span><span class="CommentedCode">#? 31/xor 3/mod/direct 1/rm32/ecx . . . 1/r32/ecx . . # clear ecx</span> +<span id="L324" class="LineNr">324 </span><span class="CommentedCode">#? # edx = len</span> +<span id="L325" class="LineNr">325 </span><span class="CommentedCode">#? 8b/copy 1/mod/*+disp8 5/rm32/ebp . . . 2/r32/edx 0xc/disp8 . # copy *(ebp+12) to edx</span> +<span id="L326" class="LineNr">326 </span><span class="CommentedCode">#? $zero-out:loop:</span> +<span id="L327" class="LineNr">327 </span><span class="CommentedCode">#? # if (i >= len) break</span> +<span id="L328" class="LineNr">328 </span><span class="CommentedCode">#? 39/compare 3/mod/direct 1/rm32/ecx . . . 2/r32/edx . . # compare ecx with edx</span> +<span id="L329" class="LineNr">329 </span><span class="CommentedCode">#? 7d/jump-if->= $zero-out:end/disp8</span> +<span id="L330" class="LineNr">330 </span><span class="CommentedCode">#? # *curr = 0</span> +<span id="L331" class="LineNr">331 </span><span class="CommentedCode">#? c6 0/subop/copy 0/mod/direct 6/rm32/esi . . . . . 0/imm8 # copy byte to *esi</span> +<span id="L332" class="LineNr">332 </span><span class="CommentedCode">#? # ++curr</span> +<span id="L333" class="LineNr">333 </span><span class="CommentedCode">#? 46/increment-esi</span> +<span id="L334" class="LineNr">334 </span><span class="CommentedCode">#? # ++i</span> +<span id="L335" class="LineNr">335 </span><span class="CommentedCode">#? 41/increment-ecx</span> +<span id="L336" class="LineNr">336 </span><span class="CommentedCode">#? eb/jump $zero-out:loop/disp8</span> +<span id="L337" class="LineNr">337 </span><span class="CommentedCode">#? $zero-out:end:</span> +<span id="L338" class="LineNr">338 </span><span class="CommentedCode">#? # . restore registers</span> +<span id="L339" class="LineNr">339 </span><span class="CommentedCode">#? 5e/pop-to-esi</span> +<span id="L340" class="LineNr">340 </span><span class="CommentedCode">#? 5a/pop-to-edx</span> +<span id="L341" class="LineNr">341 </span><span class="CommentedCode">#? 59/pop-to-ecx</span> +<span id="L342" class="LineNr">342 </span><span class="CommentedCode">#? 58/pop-to-eax</span> +<span id="L343" class="LineNr">343 </span><span class="CommentedCode">#? # . epilogue</span> +<span id="L344" class="LineNr">344 </span><span class="CommentedCode">#? 89/copy 3/mod/direct 4/rm32/esp . . . 5/r32/ebp . . # copy ebp to esp</span> +<span id="L345" class="LineNr">345 </span><span class="CommentedCode">#? 5d/pop-to-ebp</span> +<span id="L346" class="LineNr">346 </span><span class="CommentedCode">#? c3/return</span> +<span id="L347" class="LineNr">347 </span><span class="CommentedCode">#? </span> +<span id="L348" class="LineNr">348 </span><span class="CommentedCode">#? == data</span> +<span id="L349" class="LineNr">349 </span><span class="CommentedCode">#? Push-n-zero-bytes-ebp: # (addr int)</span> +<span id="L350" class="LineNr">350 </span><span class="CommentedCode">#? 0/imm32</span> +<span id="L351" class="LineNr">351 </span><span class="CommentedCode">#? Push-n-zero-bytes-esp: # (addr int)</span> +<span id="L352" class="LineNr">352 </span><span class="CommentedCode">#? 0/imm32</span> +<span id="L353" class="LineNr">353 </span><span class="CommentedCode">#? == code</span> +<span id="L354" class="LineNr">354 </span> +<span id="L355" class="LineNr">355 </span><span class="subxComment"># stack at dump-stack0:</span> +<span id="L356" class="LineNr">356 </span><span class="subxComment"># 0 a: bdffffb0: 00000000 00000000 00000000 00000000 </span> +<span id="L357" class="LineNr">357 </span><span class="subxComment"># 0 a: bdffffc0: 00000000 00000000 00000000 00000000 </span> +<span id="L358" class="LineNr">358 </span><span class="subxComment"># 0 a: bdffffd0: 00000000 00000000 00000000 00000000 </span> +<span id="L359" class="LineNr">359 </span><span class="subxComment"># 0 a: bdffffe0: 00000000 00000000 00000000 00000000 </span> +<span id="L360" class="LineNr">360 </span><span class="subxComment"># 0 a: bdfffff0: 00000000 [fcfdfeff] 00000001 bf000000 </span> +<span id="L361" class="LineNr">361 </span> +<span id="L362" class="LineNr">362 </span><span class="subxComment"># desired state after push-n-zero-bytes:</span> +<span id="L363" class="LineNr">363 </span><span class="subxComment"># 0 a: bdffff90: 00000000 00000000 00000000 00000000 </span> +<span id="L364" class="LineNr">364 </span><span class="subxComment"># 0 a: bdffffa0: 00000000 00000000 00000000 00000000 </span> +<span id="L365" class="LineNr">365 </span><span class="subxComment"># 0 a: bdffffb0: 00000000 00000000 00000000 bdffffec </span> +<span id="L366" class="LineNr">366 </span><span class="subxComment"># 0 a: bdffffc0: 0900012a bdffffd0 00000020 090000d1 </span> +<span id="L367" class="LineNr">367 </span><span class="subxComment"># 0 a: bdffffd0: [rrrrrrrr] 00000000 00000000 00000000 </span> +<span id="L368" class="LineNr">368 </span><span class="subxComment"># 0 a: bdffffe0: 00000000 00000000 00000000 00000000 </span> +<span id="L369" class="LineNr">369 </span><span class="subxComment"># 0 a: bdfffff0: 00000000 fcfdfeff 00000001 bf000000 </span> +<span id="L370" class="LineNr">370 </span> +<span id="L371" class="LineNr">371 </span><span class="subxComment"># Stack pointer contains ra is caller's responsibility to over-write with array length.</span> +<span id="L372" class="LineNr">372 </span> +<span id="L373" class="LineNr">373 </span><span class="subxComment"># actual state:</span> +<span id="L374" class="LineNr">374 </span><span class="subxComment"># 0 a: bdffff90: 00000000 00000000 00000000 00000000</span> +<span id="L375" class="LineNr">375 </span><span class="subxComment"># 0 a: bdffffa0: 00000000 00000000 00000000 00000000</span> +<span id="L376" class="LineNr">376 </span><span class="subxComment"># 0 a: bdffffb0: 00000000 00000000 00000000 bdffffec</span> +<span id="L377" class="LineNr">377 </span><span class="subxComment"># 0 a: bdffffc0: 0900012a bdffffd0 00000020 090000d1</span> +<span id="L378" class="LineNr">378 </span><span class="subxComment"># 0 a: bdffffd0: 00000000 [00000000] 00000000 00000000</span> +<span id="L379" class="LineNr">379 </span><span class="subxComment"># 0 a: bdffffe0: 00000000 00000000 00000000 00000000</span> +<span id="L380" class="LineNr">380 </span><span class="subxComment"># 0 a: bdfffff0: 00000020 fcfdfeff 00000001 bf000000</span> +<span id="L381" class="LineNr">381 </span> +<span id="L382" class="LineNr">382 </span><span class="subxComment"># Couple of issues. But where does the return address disappear to?</span> +<span id="L383" class="LineNr">383 </span> +<span id="L384" class="LineNr">384 </span><span class="subxComment">## 8:</span> +<span id="L385" class="LineNr">385 </span> +<span id="L386" class="LineNr">386 </span><span class="CommentedCode">#? Entry:</span> +<span id="L387" class="LineNr">387 </span><span class="CommentedCode">#? # . prologue</span> +<span id="L388" class="LineNr">388 </span><span class="CommentedCode">#? 89/<- %ebp 4/r32/esp</span> +<span id="L389" class="LineNr">389 </span><span class="CommentedCode">#? #</span> +<span id="L390" class="LineNr">390 </span><span class="CommentedCode">#? 68/push 0xfcfdfeff/imm32</span> +<span id="L391" class="LineNr">391 </span><span class="CommentedCode">#? b8/copy-to-eax 0x34353637/imm32</span> +<span id="L392" class="LineNr">392 </span><span class="CommentedCode">#? $dump-stack0:</span> +<span id="L393" class="LineNr">393 </span><span class="CommentedCode">#? (push-n-zero-bytes 0x20)</span> +<span id="L394" class="LineNr">394 </span><span class="CommentedCode">#? $dump-stack9:</span> +<span id="L395" class="LineNr">395 </span><span class="CommentedCode">#? 68/push 0x20/imm32</span> +<span id="L396" class="LineNr">396 </span><span class="CommentedCode">#? #? c7 0/subop/copy *esp 0x20/imm32</span> +<span id="L397" class="LineNr">397 </span><span class="CommentedCode">#? $dump-stacka:</span> +<span id="L398" class="LineNr">398 </span><span class="CommentedCode">#? b8/copy-to-eax 1/imm32/exit</span> +<span id="L399" class="LineNr">399 </span><span class="CommentedCode">#? cd/syscall 0x80/imm8</span> +<span id="L400" class="LineNr">400 </span><span class="CommentedCode">#? </span> +<span id="L401" class="LineNr">401 </span><span class="CommentedCode">#? push-n-zero-bytes: # n: int</span> +<span id="L402" class="LineNr">402 </span><span class="CommentedCode">#? $push-n-zero-bytes:prologue:</span> +<span id="L403" class="LineNr">403 </span><span class="CommentedCode">#? 89/<- *Push-n-zero-bytes-ebp 5/r32/ebp # spill ebp without affecting stack</span> +<span id="L404" class="LineNr">404 </span><span class="CommentedCode">#? 89/<- %ebp 4/r32/esp</span> +<span id="L405" class="LineNr">405 </span><span class="CommentedCode">#? $push-n-zero-bytes:copy-ra:</span> +<span id="L406" class="LineNr">406 </span><span class="CommentedCode">#? $dump-stack1:</span> +<span id="L407" class="LineNr">407 </span><span class="CommentedCode">#? # -- esp = ebp</span> +<span id="L408" class="LineNr">408 </span><span class="CommentedCode">#? 50/push-eax</span> +<span id="L409" class="LineNr">409 </span><span class="CommentedCode">#? $dump-stack2:</span> +<span id="L410" class="LineNr">410 </span><span class="CommentedCode">#? # -- esp+8 = ebp+4</span> +<span id="L411" class="LineNr">411 </span><span class="CommentedCode">#? # -- esp+4 = ebp</span> +<span id="L412" class="LineNr">412 </span><span class="CommentedCode">#? 8b/-> *(esp+4) 0/r32/eax</span> +<span id="L413" class="LineNr">413 </span><span class="CommentedCode">#? $dump-stack3:</span> +<span id="L414" class="LineNr">414 </span><span class="CommentedCode">#? 2b/subtract *(ebp+4) 4/r32/esp</span> +<span id="L415" class="LineNr">415 </span><span class="CommentedCode">#? $dump-stack4:</span> +<span id="L416" class="LineNr">416 </span><span class="CommentedCode">#? # -- esp+4+n = ebp</span> +<span id="L417" class="LineNr">417 </span><span class="CommentedCode">#? 89/<- *(esp+4) 0/r32/eax</span> +<span id="L418" class="LineNr">418 </span><span class="CommentedCode">#? $dump-stack5:</span> +<span id="L419" class="LineNr">419 </span><span class="CommentedCode">#? 58/pop-to-eax</span> +<span id="L420" class="LineNr">420 </span><span class="CommentedCode">#? # -- esp+n = ebp</span> +<span id="L421" class="LineNr">421 </span><span class="CommentedCode">#? $push-n-zero-bytes:bulk-cleaning:</span> +<span id="L422" class="LineNr">422 </span><span class="CommentedCode">#? $dump-stack6:</span> +<span id="L423" class="LineNr">423 </span><span class="CommentedCode">#? 89/<- *Push-n-zero-bytes-esp 4/r32/esp</span> +<span id="L424" class="LineNr">424 </span><span class="CommentedCode">#? 81 0/subop/add *Push-n-zero-bytes-esp 4/imm32</span> +<span id="L425" class="LineNr">425 </span><span class="CommentedCode">#? $dump-stack7:</span> +<span id="L426" class="LineNr">426 </span><span class="CommentedCode">#? (zero-out *Push-n-zero-bytes-esp *(ebp+4)) # n</span> +<span id="L427" class="LineNr">427 </span><span class="CommentedCode">#? $push-n-zero-bytes:epilogue:</span> +<span id="L428" class="LineNr">428 </span><span class="CommentedCode">#? $dump-stack8:</span> +<span id="L429" class="LineNr">429 </span><span class="CommentedCode">#? 8b/-> *Push-n-zero-bytes-ebp 5/r32/ebp # restore spill</span> +<span id="L430" class="LineNr">430 </span><span class="CommentedCode">#? c3/return</span> +<span id="L431" class="LineNr">431 </span><span class="CommentedCode">#? </span> +<span id="L432" class="LineNr">432 </span><span class="CommentedCode">#? zero-out: # start: (addr byte), len: int</span> +<span id="L433" class="LineNr">433 </span><span class="CommentedCode">#? # pseudocode:</span> +<span id="L434" class="LineNr">434 </span><span class="CommentedCode">#? # curr/esi = start</span> +<span id="L435" class="LineNr">435 </span><span class="CommentedCode">#? # i/ecx = 0</span> +<span id="L436" class="LineNr">436 </span><span class="CommentedCode">#? # while true</span> +<span id="L437" class="LineNr">437 </span><span class="CommentedCode">#? # if (i >= len) break</span> +<span id="L438" class="LineNr">438 </span><span class="CommentedCode">#? # *curr = 0</span> +<span id="L439" class="LineNr">439 </span><span class="CommentedCode">#? # ++curr</span> +<span id="L440" class="LineNr">440 </span><span class="CommentedCode">#? # ++i</span> +<span id="L441" class="LineNr">441 </span><span class="CommentedCode">#? #</span> +<span id="L442" class="LineNr">442 </span><span class="CommentedCode">#? # . prologue</span> +<span id="L443" class="LineNr">443 </span><span class="CommentedCode">#? 55/push-ebp</span> +<span id="L444" class="LineNr">444 </span><span class="CommentedCode">#? 89/copy 3/mod/direct 5/rm32/ebp . . . 4/r32/esp . . # copy esp to ebp</span> +<span id="L445" class="LineNr">445 </span><span class="CommentedCode">#? # . save registers</span> +<span id="L446" class="LineNr">446 </span><span class="CommentedCode">#? 50/push-eax</span> +<span id="L447" class="LineNr">447 </span><span class="CommentedCode">#? 51/push-ecx</span> +<span id="L448" class="LineNr">448 </span><span class="CommentedCode">#? 52/push-edx</span> +<span id="L449" class="LineNr">449 </span><span class="CommentedCode">#? 56/push-esi</span> +<span id="L450" class="LineNr">450 </span><span class="CommentedCode">#? # curr/esi = start</span> +<span id="L451" class="LineNr">451 </span><span class="CommentedCode">#? 8b/copy 1/mod/*+disp8 5/rm32/ebp . . . 6/r32/esi 8/disp8 . # copy *(ebp+8) to esi</span> +<span id="L452" class="LineNr">452 </span><span class="CommentedCode">#? # var i/ecx: int = 0</span> +<span id="L453" class="LineNr">453 </span><span class="CommentedCode">#? 31/xor 3/mod/direct 1/rm32/ecx . . . 1/r32/ecx . . # clear ecx</span> +<span id="L454" class="LineNr">454 </span><span class="CommentedCode">#? # edx = len</span> +<span id="L455" class="LineNr">455 </span><span class="CommentedCode">#? 8b/copy 1/mod/*+disp8 5/rm32/ebp . . . 2/r32/edx 0xc/disp8 . # copy *(ebp+12) to edx</span> +<span id="L456" class="LineNr">456 </span><span class="CommentedCode">#? $zero-out:loop:</span> +<span id="L457" class="LineNr">457 </span><span class="CommentedCode">#? # if (i >= len) break</span> +<span id="L458" class="LineNr">458 </span><span class="CommentedCode">#? 39/compare 3/mod/direct 1/rm32/ecx . . . 2/r32/edx . . # compare ecx with edx</span> +<span id="L459" class="LineNr">459 </span><span class="CommentedCode">#? 7d/jump-if->= $zero-out:end/disp8</span> +<span id="L460" class="LineNr">460 </span><span class="CommentedCode">#? # *curr = 0</span> +<span id="L461" class="LineNr">461 </span><span class="CommentedCode">#? c6 0/subop/copy 0/mod/direct 6/rm32/esi . . . . . 0/imm8 # copy byte to *esi</span> +<span id="L462" class="LineNr">462 </span><span class="CommentedCode">#? # ++curr</span> +<span id="L463" class="LineNr">463 </span><span class="CommentedCode">#? 46/increment-esi</span> +<span id="L464" class="LineNr">464 </span><span class="CommentedCode">#? # ++i</span> +<span id="L465" class="LineNr">465 </span><span class="CommentedCode">#? 41/increment-ecx</span> +<span id="L466" class="LineNr">466 </span><span class="CommentedCode">#? eb/jump $zero-out:loop/disp8</span> +<span id="L467" class="LineNr">467 </span><span class="CommentedCode">#? $zero-out:end:</span> +<span id="L468" class="LineNr">468 </span><span class="CommentedCode">#? # . restore registers</span> +<span id="L469" class="LineNr">469 </span><span class="CommentedCode">#? 5e/pop-to-esi</span> +<span id="L470" class="LineNr">470 </span><span class="CommentedCode">#? 5a/pop-to-edx</span> +<span id="L471" class="LineNr">471 </span><span class="CommentedCode">#? 59/pop-to-ecx</span> +<span id="L472" class="LineNr">472 </span><span class="CommentedCode">#? 58/pop-to-eax</span> +<span id="L473" class="LineNr">473 </span><span class="CommentedCode">#? # . epilogue</span> +<span id="L474" class="LineNr">474 </span><span class="CommentedCode">#? 89/copy 3/mod/direct 4/rm32/esp . . . 5/r32/ebp . . # copy ebp to esp</span> +<span id="L475" class="LineNr">475 </span><span class="CommentedCode">#? 5d/pop-to-ebp</span> +<span id="L476" class="LineNr">476 </span><span class="CommentedCode">#? c3/return</span> +<span id="L477" class="LineNr">477 </span><span class="CommentedCode">#? </span> +<span id="L478" class="LineNr">478 </span><span class="CommentedCode">#? == data</span> +<span id="L479" class="LineNr">479 </span><span class="CommentedCode">#? Push-n-zero-bytes-ebp: # (addr int)</span> +<span id="L480" class="LineNr">480 </span><span class="CommentedCode">#? 0/imm32</span> +<span id="L481" class="LineNr">481 </span><span class="CommentedCode">#? Push-n-zero-bytes-esp: # (addr int)</span> +<span id="L482" class="LineNr">482 </span><span class="CommentedCode">#? 0/imm32</span> +<span id="L483" class="LineNr">483 </span><span class="CommentedCode">#? == code</span> +<span id="L484" class="LineNr">484 </span> +<span id="L485" class="LineNr">485 </span><span class="subxComment"># stack at dump-stack0:</span> +<span id="L486" class="LineNr">486 </span><span class="subxComment"># 0 a: bdffffb0: 00000000 00000000 00000000 00000000 </span> +<span id="L487" class="LineNr">487 </span><span class="subxComment"># 0 a: bdffffc0: 00000000 00000000 00000000 00000000 </span> +<span id="L488" class="LineNr">488 </span><span class="subxComment"># 0 a: bdffffd0: 00000000 00000000 00000000 00000000 </span> +<span id="L489" class="LineNr">489 </span><span class="subxComment"># 0 a: bdffffe0: 00000000 00000000 00000000 00000000 </span> +<span id="L490" class="LineNr">490 </span><span class="subxComment"># 0 a: bdfffff0: 00000000 [fcfdfeff] 00000001 bf000000 </span> +<span id="L491" class="LineNr">491 </span> +<span id="L492" class="LineNr">492 </span><span class="subxComment"># desired state after push-n-zero-bytes:</span> +<span id="L493" class="LineNr">493 </span><span class="subxComment"># 0 a: bdffff90: 00000000 00000000 00000000 00000000 </span> +<span id="L494" class="LineNr">494 </span><span class="subxComment"># 0 a: bdffffa0: 00000000 00000000 00000000 00000000 </span> +<span id="L495" class="LineNr">495 </span><span class="subxComment"># 0 a: bdffffb0: 00000000 00000000 00000000 bdffffec </span> +<span id="L496" class="LineNr">496 </span><span class="subxComment"># 0 a: bdffffc0: 0900012a bdffffd0 00000020 090000d1 </span> +<span id="L497" class="LineNr">497 </span><span class="subxComment"># 0 a: bdffffd0: [rrrrrrrr] 00000000 00000000 00000000 </span> +<span id="L498" class="LineNr">498 </span><span class="subxComment"># 0 a: bdffffe0: 00000000 00000000 00000000 00000000 </span> +<span id="L499" class="LineNr">499 </span><span class="subxComment"># 0 a: bdfffff0: 00000000 fcfdfeff 00000001 bf000000 </span> +<span id="L500" class="LineNr">500 </span> +<span id="L501" class="LineNr">501 </span><span class="subxComment"># actual state:</span> +<span id="L502" class="LineNr">502 </span><span class="subxComment"># 0 a: bdffff90: 00000000 00000000 00000000 00000000</span> +<span id="L503" class="LineNr">503 </span><span class="subxComment"># 0 a: bdffffa0: 00000000 00000000 00000000 00000000</span> +<span id="L504" class="LineNr">504 </span><span class="subxComment"># 0 a: bdffffb0: 00000000 00000000 00000000 bdffffec</span> +<span id="L505" class="LineNr">505 </span><span class="subxComment"># 0 a: bdffffc0: 09000124 bdffffd0 00000020 090000d1</span> +<span id="L506" class="LineNr">506 </span><span class="subxComment"># 0 a: bdffffd0: [00000000] 00000000 00000000 00000000</span> +<span id="L507" class="LineNr">507 </span><span class="subxComment"># 0 a: bdffffe0: 00000000 00000000 00000000 00000000</span> +<span id="L508" class="LineNr">508 </span><span class="subxComment"># 0 a: bdfffff0: 00000020 fcfdfeff 00000001 bf000000</span> +<span id="L509" class="LineNr">509 </span> +<span id="L510" class="LineNr">510 </span><span class="subxComment"># Ok, just one diff, at bdfffff0</span> +<span id="L511" class="LineNr">511 </span> +<span id="L512" class="LineNr">512 </span><span class="subxComment">## 9:</span> +<span id="L513" class="LineNr">513 </span> +<span id="L514" class="LineNr">514 </span><span class="SpecialChar">Entry</span>: +<span id="L515" class="LineNr">515 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L516" class="LineNr">516 </span> 89/<- %ebp 4/r32/esp +<span id="L517" class="LineNr">517 </span> <span class="subxComment">#</span> +<span id="L518" class="LineNr">518 </span> 68/push 0xfcfdfeff/imm32 +<span id="L519" class="LineNr">519 </span> b8/copy-to-eax 0x34353637/imm32 +<span id="L520" class="LineNr">520 </span><span class="Constant">$dump-stack0</span>: +<span id="L521" class="LineNr">521 </span> (push-n-zero-bytes 0x20) +<span id="L522" class="LineNr">522 </span><span class="Constant">$dump-stack9</span>: +<span id="L523" class="LineNr">523 </span> 68/push 0x20/imm32 +<span id="L524" class="LineNr">524 </span><span class="Constant">$dump-stacka</span>: +<span id="L525" class="LineNr">525 </span> b8/copy-to-eax 1/imm32/exit +<span id="L526" class="LineNr">526 </span> cd/syscall 0x80/imm8 +<span id="L527" class="LineNr">527 </span> +<span id="L528" class="LineNr">528 </span><span class="subxFunction">push-n-zero-bytes</span>: <span class="subxComment"># n: int</span> +<span id="L529" class="LineNr">529 </span><span class="Constant">$push-n-zero-bytes:prologue</span>: +<span id="L530" class="LineNr">530 </span> 89/<- *<span class="SpecialChar">Push-n-zero-bytes-ebp</span> 5/r32/ebp <span class="subxComment"># spill ebp without affecting stack</span> +<span id="L531" class="LineNr">531 </span> 89/<- %ebp 4/r32/esp +<span id="L532" class="LineNr">532 </span><span class="Constant">$push-n-zero-bytes:copy-ra</span>: +<span id="L533" class="LineNr">533 </span><span class="Constant">$dump-stack1</span>: +<span id="L534" class="LineNr">534 </span> <span class="subxComment"># -- esp = ebp</span> +<span id="L535" class="LineNr">535 </span> 50/push-eax +<span id="L536" class="LineNr">536 </span><span class="Constant">$dump-stack2</span>: +<span id="L537" class="LineNr">537 </span> <span class="subxComment"># -- esp+8 = ebp+4</span> +<span id="L538" class="LineNr">538 </span> <span class="subxComment"># -- esp+4 = ebp</span> +<span id="L539" class="LineNr">539 </span> 8b/-> *(esp+4) 0/r32/eax +<span id="L540" class="LineNr">540 </span><span class="Constant">$dump-stack3</span>: +<span id="L541" class="LineNr">541 </span> 2b/subtract *(ebp+4) 4/r32/esp +<span id="L542" class="LineNr">542 </span><span class="Constant">$dump-stack4</span>: +<span id="L543" class="LineNr">543 </span> <span class="subxComment"># -- esp+4+n = ebp</span> +<span id="L544" class="LineNr">544 </span> 89/<- *(esp+4) 0/r32/eax +<span id="L545" class="LineNr">545 </span><span class="Constant">$dump-stack5</span>: +<span id="L546" class="LineNr">546 </span> 58/pop-to-eax +<span id="L547" class="LineNr">547 </span> <span class="subxComment"># -- esp+n = ebp</span> +<span id="L548" class="LineNr">548 </span><span class="Constant">$push-n-zero-bytes:bulk-cleaning</span>: +<span id="L549" class="LineNr">549 </span><span class="Constant">$dump-stack6</span>: +<span id="L550" class="LineNr">550 </span> 89/<- *<span class="SpecialChar">Push-n-zero-bytes-esp</span> 4/r32/esp +<span id="L551" class="LineNr">551 </span> 81 0/subop/add *<span class="SpecialChar">Push-n-zero-bytes-esp</span> 4/imm32 +<span id="L552" class="LineNr">552 </span><span class="Constant">$dump-stack7</span>: +<span id="L553" class="LineNr">553 </span> 81 0/subop/add *(ebp+4) 4/imm32 +<span id="L554" class="LineNr">554 </span> (zero-out *<span class="SpecialChar">Push-n-zero-bytes-esp</span> *(ebp+4)) <span class="subxComment"># n</span> +<span id="L555" class="LineNr">555 </span><span class="Constant">$push-n-zero-bytes:epilogue</span>: +<span id="L556" class="LineNr">556 </span><span class="Constant">$dump-stack8</span>: +<span id="L557" class="LineNr">557 </span> 8b/-> *<span class="SpecialChar">Push-n-zero-bytes-ebp</span> 5/r32/ebp <span class="subxComment"># restore spill</span> +<span id="L558" class="LineNr">558 </span> c3/return +<span id="L559" class="LineNr">559 </span> +<span id="L560" class="LineNr">560 </span><span class="subxFunction">zero-out</span>: <span class="subxComment"># start: (addr byte), len: int</span> +<span id="L561" class="LineNr">561 </span> <span class="subxComment"># pseudocode:</span> +<span id="L562" class="LineNr">562 </span> <span class="subxComment"># curr/esi = start</span> +<span id="L563" class="LineNr">563 </span> <span class="subxComment"># i/ecx = 0</span> +<span id="L564" class="LineNr">564 </span> <span class="subxComment"># while true</span> +<span id="L565" class="LineNr">565 </span> <span class="subxComment"># if (i >= len) break</span> +<span id="L566" class="LineNr">566 </span> <span class="subxComment"># *curr = 0</span> +<span id="L567" class="LineNr">567 </span> <span class="subxComment"># ++curr</span> +<span id="L568" class="LineNr">568 </span> <span class="subxComment"># ++i</span> +<span id="L569" class="LineNr">569 </span> <span class="subxComment">#</span> +<span id="L570" class="LineNr">570 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L571" class="LineNr">571 </span> 55/push-ebp +<span id="L572" class="LineNr">572 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L573" class="LineNr">573 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L574" class="LineNr">574 </span> 50/push-eax +<span id="L575" class="LineNr">575 </span> 51/push-ecx +<span id="L576" class="LineNr">576 </span> 52/push-edx +<span id="L577" class="LineNr">577 </span> 56/push-esi +<span id="L578" class="LineNr">578 </span> <span class="subxComment"># curr/esi = start</span> +<span id="L579" class="LineNr">579 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> +<span id="L580" class="LineNr">580 </span> <span class="subxComment"># var i/ecx: int = 0</span> +<span id="L581" class="LineNr">581 </span> 31/xor 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ecx</span> +<span id="L582" class="LineNr">582 </span> <span class="subxComment"># edx = len</span> +<span id="L583" class="LineNr">583 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edx</span> +<span id="L584" class="LineNr">584 </span><span class="Constant">$zero-out:loop</span>: +<span id="L585" class="LineNr">585 </span> <span class="subxComment"># if (i >= len) break</span> +<span id="L586" class="LineNr">586 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with edx</span> +<span id="L587" class="LineNr">587 </span> 7d/jump-if->= $zero-out:end/disp8 +<span id="L588" class="LineNr">588 </span> <span class="subxComment"># *curr = 0</span> +<span id="L589" class="LineNr">589 </span> c6 0/subop/copy 0/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm8 <span class="subxComment"># copy byte to *esi</span> +<span id="L590" class="LineNr">590 </span> <span class="subxComment"># ++curr</span> +<span id="L591" class="LineNr">591 </span> 46/increment-esi +<span id="L592" class="LineNr">592 </span> <span class="subxComment"># ++i</span> +<span id="L593" class="LineNr">593 </span> 41/increment-ecx +<span id="L594" class="LineNr">594 </span> eb/jump $zero-out:<span class="Constant">loop</span>/disp8 +<span id="L595" class="LineNr">595 </span><span class="Constant">$zero-out:end</span>: +<span id="L596" class="LineNr">596 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L597" class="LineNr">597 </span> 5e/pop-to-esi +<span id="L598" class="LineNr">598 </span> 5a/pop-to-edx +<span id="L599" class="LineNr">599 </span> 59/pop-to-ecx +<span id="L600" class="LineNr">600 </span> 58/pop-to-eax +<span id="L601" class="LineNr">601 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L602" class="LineNr">602 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L603" class="LineNr">603 </span> 5d/pop-to-ebp +<span id="L604" class="LineNr">604 </span> c3/return +<span id="L605" class="LineNr">605 </span> +<span id="L606" class="LineNr">606 </span>== data +<span id="L607" class="LineNr">607 </span><span class="SpecialChar">Push-n-zero-bytes-ebp</span>: <span class="subxComment"># (addr int)</span> +<span id="L608" class="LineNr">608 </span> 0/imm32 +<span id="L609" class="LineNr">609 </span><span class="SpecialChar">Push-n-zero-bytes-esp</span>: <span class="subxComment"># (addr int)</span> +<span id="L610" class="LineNr">610 </span> 0/imm32 +<span id="L611" class="LineNr">611 </span>== code +<span id="L612" class="LineNr">612 </span> +<span id="L613" class="LineNr">613 </span><span class="subxComment"># stack at dump-stack0:</span> +<span id="L614" class="LineNr">614 </span><span class="subxComment"># 0 a: bdffffb0: 00000000 00000000 00000000 00000000 </span> +<span id="L615" class="LineNr">615 </span><span class="subxComment"># 0 a: bdffffc0: 00000000 00000000 00000000 00000000 </span> +<span id="L616" class="LineNr">616 </span><span class="subxComment"># 0 a: bdffffd0: 00000000 00000000 00000000 00000000 </span> +<span id="L617" class="LineNr">617 </span><span class="subxComment"># 0 a: bdffffe0: 00000000 00000000 00000000 00000000 </span> +<span id="L618" class="LineNr">618 </span><span class="subxComment"># 0 a: bdfffff0: 00000000 [fcfdfeff] 00000001 bf000000 </span> +<span id="L619" class="LineNr">619 </span> +<span id="L620" class="LineNr">620 </span><span class="subxComment"># desired state after push-n-zero-bytes:</span> +<span id="L621" class="LineNr">621 </span><span class="subxComment"># 0 a: bdffff90: 00000000 00000000 00000000 00000000 </span> +<span id="L622" class="LineNr">622 </span><span class="subxComment"># 0 a: bdffffa0: 00000000 00000000 00000000 00000000 </span> +<span id="L623" class="LineNr">623 </span><span class="subxComment"># 0 a: bdffffb0: 00000000 00000000 00000000 bdffffec </span> +<span id="L624" class="LineNr">624 </span><span class="subxComment"># 0 a: bdffffc0: 0900012a bdffffd0 00000020 090000d1 </span> +<span id="L625" class="LineNr">625 </span><span class="subxComment"># 0 a: bdffffd0: [xxxxxxxx] 00000000 00000000 00000000 </span> +<span id="L626" class="LineNr">626 </span><span class="subxComment"># 0 a: bdffffe0: 00000000 00000000 00000000 00000000 </span> +<span id="L627" class="LineNr">627 </span><span class="subxComment"># 0 a: bdfffff0: 00000000 fcfdfeff 00000001 bf000000 </span> +<span id="L628" class="LineNr">628 </span> +<span id="L629" class="LineNr">629 </span><span class="subxComment"># actual state:</span> +<span id="L630" class="LineNr">630 </span><span class="subxComment"># 0 a: bdffff90: 00000000 00000000 00000000 00000000</span> +<span id="L631" class="LineNr">631 </span><span class="subxComment"># 0 a: bdffffa0: 00000000 00000000 00000000 00000000</span> +<span id="L632" class="LineNr">632 </span><span class="subxComment"># 0 a: bdffffb0: 00000000 00000000 00000000 bdffffec</span> +<span id="L633" class="LineNr">633 </span><span class="subxComment"># 0 a: bdffffc0: 0900012f bdffffd0 00000024 090000d1</span> +<span id="L634" class="LineNr">634 </span><span class="subxComment"># 0 a: bdffffd0: [00000000] 00000000 00000000 00000000</span> +<span id="L635" class="LineNr">635 </span><span class="subxComment"># 0 a: bdffffe0: 00000000 00000000 00000000 00000000</span> +<span id="L636" class="LineNr">636 </span><span class="subxComment"># 0 a: bdfffff0: 00000000 fcfdfeff 00000001 bf000000</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/linux/survey_baremetal.subx.html b/html/linux/survey_baremetal.subx.html index 90aa4eeb..c35811d7 100644 --- a/html/linux/survey_baremetal.subx.html +++ b/html/linux/survey_baremetal.subx.html @@ -63,2864 +63,976 @@ if ('onhashchange' in window) { <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Assign addresses (co-ordinates) to instructions (landmarks) in a program</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment"># (landscape).</span> -<span id="L3" class="LineNr"> 3 </span><span class="subxComment"># Use the addresses assigned to replace labels.</span> -<span id="L4" class="LineNr"> 4 </span><span class="subxComment">#</span> -<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># To build:</span> -<span id="L6" class="LineNr"> 6 </span><span class="subxComment"># $ bootstrap/bootstrap translate [01]*.subx subx-params.subx survey_baremetal.subx -o survey_baremetal</span> -<span id="L7" class="LineNr"> 7 </span><span class="subxComment">#</span> -<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># The expected input is a stream of bytes and some interspersed labels.</span> -<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># Comments and '==' segment headers are allowed, but names are ignored. The</span> -<span id="L10" class="LineNr"> 10 </span><span class="subxComment"># emitted code will all lie in a single contiguous address range starting at</span> -<span id="L11" class="LineNr"> 11 </span><span class="subxComment"># address 0x7c00. Addresses in segment headers are optional. If provided, this</span> -<span id="L12" class="LineNr"> 12 </span><span class="subxComment"># program will insert padding in the output until the desired address is</span> -<span id="L13" class="LineNr"> 13 </span><span class="subxComment"># reached.</span> -<span id="L14" class="LineNr"> 14 </span><span class="subxComment">#</span> -<span id="L15" class="LineNr"> 15 </span><span class="subxComment"># $ cat x</span> -<span id="L16" class="LineNr"> 16 </span><span class="subxComment"># == code</span> -<span id="L17" class="LineNr"> 17 </span><span class="subxComment"># l1:</span> -<span id="L18" class="LineNr"> 18 </span><span class="subxComment"># aa bb l1/imm8</span> -<span id="L19" class="LineNr"> 19 </span><span class="subxComment"># cc dd l2/disp32</span> -<span id="L20" class="LineNr"> 20 </span><span class="subxComment"># l2:</span> -<span id="L21" class="LineNr"> 21 </span><span class="subxComment"># ee foo/imm32</span> -<span id="L22" class="LineNr"> 22 </span><span class="subxComment"># == data 0x7c10</span> -<span id="L23" class="LineNr"> 23 </span><span class="subxComment"># foo:</span> -<span id="L24" class="LineNr"> 24 </span><span class="subxComment"># 34</span> -<span id="L25" class="LineNr"> 25 </span><span class="subxComment">#</span> -<span id="L26" class="LineNr"> 26 </span><span class="subxComment"># The output is the stream of bytes without segment headers or label definitions,</span> -<span id="L27" class="LineNr"> 27 </span><span class="subxComment"># and with label references replaced with numeric values/displacements.</span> -<span id="L28" class="LineNr"> 28 </span><span class="subxComment">#</span> -<span id="L29" class="LineNr"> 29 </span><span class="subxComment"># $ cat x |bootstrap/bootstrap run survey_baremetal</span> -<span id="L30" class="LineNr"> 30 </span><span class="subxComment"># # 0x7c00</span> -<span id="L31" class="LineNr"> 31 </span><span class="subxComment"># aa bb nn # some computed address</span> -<span id="L32" class="LineNr"> 32 </span><span class="subxComment"># cc dd nn nn nn nn # some computed displacement</span> -<span id="L33" class="LineNr"> 33 </span><span class="subxComment"># ee nn nn nn nn # address right after this instruction</span> -<span id="L34" class="LineNr"> 34 </span><span class="subxComment"># # 0x7c0e</span> -<span id="L35" class="LineNr"> 35 </span><span class="subxComment"># 00 00 # padding</span> -<span id="L36" class="LineNr"> 36 </span><span class="subxComment"># # 0x7c10</span> -<span id="L37" class="LineNr"> 37 </span><span class="subxComment"># 34 # data segment interleaved with code</span> -<span id="L38" class="LineNr"> 38 </span> -<span id="L39" class="LineNr"> 39 </span>== code -<span id="L40" class="LineNr"> 40 </span><span class="subxComment"># instruction effective address register displacement immediate</span> -<span id="L41" class="LineNr"> 41 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> -<span id="L42" class="LineNr"> 42 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> -<span id="L43" class="LineNr"> 43 </span> -<span id="L44" class="LineNr"> 44 </span><span class="SpecialChar">Entry</span>: <span class="subxComment"># run tests if necessary, convert stdin if not</span> -<span id="L45" class="LineNr"> 45 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L46" class="LineNr"> 46 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L47" class="LineNr"> 47 </span> -<span id="L48" class="LineNr"> 48 </span> <span class="subxComment"># Heap = new-segment(Heap-size)</span> -<span id="L49" class="LineNr"> 49 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L50" class="LineNr"> 50 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L51" class="LineNr"> 51 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L34'>Heap-size</a></span>/disp32 <span class="subxComment"># push *Heap-size</span> +<span id="L3" class="LineNr"> 3 </span><span class="subxComment">#</span> +<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># To build:</span> +<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ bootstrap/bootstrap translate [01]*.subx subx-params.subx survey_baremetal.subx -o survey_baremetal</span> +<span id="L6" class="LineNr"> 6 </span><span class="subxComment">#</span> +<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># The expected input is a stream of bytes and some interspersed labels.</span> +<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># Comments and '==' segment headers are allowed, but names are ignored. The</span> +<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># emitted code will all lie in a single contiguous address range starting at</span> +<span id="L10" class="LineNr"> 10 </span><span class="subxComment"># address 0x7c00. Addresses in segment headers are optional. If provided, this</span> +<span id="L11" class="LineNr"> 11 </span><span class="subxComment"># program will insert padding in the output until the desired address is</span> +<span id="L12" class="LineNr"> 12 </span><span class="subxComment"># reached.</span> +<span id="L13" class="LineNr"> 13 </span><span class="subxComment">#</span> +<span id="L14" class="LineNr"> 14 </span><span class="subxComment"># $ cat x</span> +<span id="L15" class="LineNr"> 15 </span><span class="subxComment"># == code</span> +<span id="L16" class="LineNr"> 16 </span><span class="subxComment"># l1:</span> +<span id="L17" class="LineNr"> 17 </span><span class="subxComment"># aa bb l1/imm8</span> +<span id="L18" class="LineNr"> 18 </span><span class="subxComment"># cc dd l2/disp32</span> +<span id="L19" class="LineNr"> 19 </span><span class="subxComment"># l2:</span> +<span id="L20" class="LineNr"> 20 </span><span class="subxComment"># ee foo/imm32</span> +<span id="L21" class="LineNr"> 21 </span><span class="subxComment"># == data 0x7c10</span> +<span id="L22" class="LineNr"> 22 </span><span class="subxComment"># foo:</span> +<span id="L23" class="LineNr"> 23 </span><span class="subxComment"># 34</span> +<span id="L24" class="LineNr"> 24 </span><span class="subxComment">#</span> +<span id="L25" class="LineNr"> 25 </span><span class="subxComment"># The output is a list of labels and their computed addresses.</span> +<span id="L26" class="LineNr"> 26 </span><span class="subxComment">#</span> +<span id="L27" class="LineNr"> 27 </span><span class="subxComment"># $ cat x |bootstrap/bootstrap run survey_baremetal</span> +<span id="L28" class="LineNr"> 28 </span><span class="subxComment"># 0x7c00 l1</span> +<span id="L29" class="LineNr"> 29 </span><span class="subxComment"># 0x7c09 l2</span> +<span id="L30" class="LineNr"> 30 </span><span class="subxComment"># 0x7c10 foo</span> +<span id="L31" class="LineNr"> 31 </span> +<span id="L32" class="LineNr"> 32 </span>== code +<span id="L33" class="LineNr"> 33 </span><span class="subxComment"># instruction effective address register displacement immediate</span> +<span id="L34" class="LineNr"> 34 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> +<span id="L35" class="LineNr"> 35 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> +<span id="L36" class="LineNr"> 36 </span> +<span id="L37" class="LineNr"> 37 </span><span class="SpecialChar">Entry</span>: <span class="subxComment"># run tests if necessary, convert stdin if not</span> +<span id="L38" class="LineNr"> 38 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L39" class="LineNr"> 39 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L40" class="LineNr"> 40 </span> +<span id="L41" class="LineNr"> 41 </span> <span class="subxComment"># Heap = new-segment(Heap-size)</span> +<span id="L42" class="LineNr"> 42 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L43" class="LineNr"> 43 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L44" class="LineNr"> 44 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L34'>Heap-size</a></span>/disp32 <span class="subxComment"># push *Heap-size</span> +<span id="L45" class="LineNr"> 45 </span> <span class="subxS2Comment"># . . call</span> +<span id="L46" class="LineNr"> 46 </span> e8/call <a href='104new-segment.subx.html#L40'>new-segment</a>/disp32 +<span id="L47" class="LineNr"> 47 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L48" class="LineNr"> 48 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L49" class="LineNr"> 49 </span> <span class="subxComment"># initialize-trace-stream(Trace-size)</span> +<span id="L50" class="LineNr"> 50 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L51" class="LineNr"> 51 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar">Trace-size</span>/disp32 <span class="subxComment"># push *Heap-size</span> <span id="L52" class="LineNr"> 52 </span> <span class="subxS2Comment"># . . call</span> -<span id="L53" class="LineNr"> 53 </span> e8/call <a href='104new-segment.subx.html#L40'>new-segment</a>/disp32 +<span id="L53" class="LineNr"> 53 </span> e8/call <a href='107trace.subx.html#L43'>initialize-trace-stream</a>/disp32 <span id="L54" class="LineNr"> 54 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L55" class="LineNr"> 55 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L56" class="LineNr"> 56 </span> <span class="subxComment"># initialize-trace-stream(Trace-size)</span> -<span id="L57" class="LineNr"> 57 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L58" class="LineNr"> 58 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar">Trace-size</span>/disp32 <span class="subxComment"># push *Heap-size</span> -<span id="L59" class="LineNr"> 59 </span> <span class="subxS2Comment"># . . call</span> -<span id="L60" class="LineNr"> 60 </span> e8/call <a href='107trace.subx.html#L43'>initialize-trace-stream</a>/disp32 -<span id="L61" class="LineNr"> 61 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L62" class="LineNr"> 62 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L63" class="LineNr"> 63 </span> -<span id="L64" class="LineNr"> 64 </span> <span class="subxH1Comment"># - if argc > 1 and argv[1] == "test", then return run_tests()</span> -<span id="L65" class="LineNr"> 65 </span> <span class="subxComment"># if (argc <= 1) goto interactive</span> -<span id="L66" class="LineNr"> 66 </span> 81 7/subop/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/disp8 1/imm32 <span class="subxComment"># compare *ebp</span> -<span id="L67" class="LineNr"> 67 </span> 7e/jump-if-<= $subx-survey-main:interactive/disp8 -<span id="L68" class="LineNr"> 68 </span> <span class="subxComment"># if (!kernel-string-equal?(argv[1], "test")) goto interactive</span> -<span id="L69" class="LineNr"> 69 </span> <span class="subxS1Comment"># . eax = kernel-string-equal?(argv[1], "test")</span> -<span id="L70" class="LineNr"> 70 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L71" class="LineNr"> 71 </span> 68/push <span class="Constant">"test"</span>/imm32 -<span id="L72" class="LineNr"> 72 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L73" class="LineNr"> 73 </span> <span class="subxS2Comment"># . . call</span> -<span id="L74" class="LineNr"> 74 </span> e8/call <a href='103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a>/disp32 -<span id="L75" class="LineNr"> 75 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L76" class="LineNr"> 76 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L77" class="LineNr"> 77 </span> <span class="subxS1Comment"># . if (eax == false) goto interactive</span> -<span id="L78" class="LineNr"> 78 </span> 3d/compare-eax-and 0/imm32/false -<span id="L79" class="LineNr"> 79 </span> 74/jump-if-= $subx-survey-main:interactive/disp8 -<span id="L80" class="LineNr"> 80 </span> <span class="subxComment"># run-tests()</span> -<span id="L81" class="LineNr"> 81 </span><span class="CommentedCode">#? e8/call test-emit-output-with-padding/disp32</span> -<span id="L82" class="LineNr"> 82 </span> e8/call run-tests/disp32 -<span id="L83" class="LineNr"> 83 </span> <span class="subxComment"># syscall(exit, *Num-test-failures)</span> -<span id="L84" class="LineNr"> 84 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="SpecialChar"><a href='102test.subx.html#L89'>Num-test-failures</a></span>/disp32 <span class="subxComment"># copy *Num-test-failures to ebx</span> -<span id="L85" class="LineNr"> 85 </span> eb/jump $subx-survey-main:end/disp8 -<span id="L86" class="LineNr"> 86 </span><span class="Constant">$subx-survey-main:interactive</span>: -<span id="L87" class="LineNr"> 87 </span> <span class="subxH1Comment"># - otherwise convert stdin</span> -<span id="L88" class="LineNr"> 88 </span> <span class="subxComment"># subx-survey(Stdin, Stdout)</span> -<span id="L89" class="LineNr"> 89 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L90" class="LineNr"> 90 </span> 68/push <span class="SpecialChar"><a href='115write-byte.subx.html#L10'>Stdout</a></span>/imm32 -<span id="L91" class="LineNr"> 91 </span> 68/push <span class="SpecialChar"><a href='112read-byte.subx.html#L14'>Stdin</a></span>/imm32 -<span id="L92" class="LineNr"> 92 </span> <span class="subxS2Comment"># . . call</span> -<span id="L93" class="LineNr"> 93 </span> e8/call <a href='survey_baremetal.subx.html#L109'>subx-survey</a>/disp32 -<span id="L94" class="LineNr"> 94 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L95" class="LineNr"> 95 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L96" class="LineNr"> 96 </span><span class="CommentedCode">#? # . write-stream(2/stderr, Trace-stream)</span> -<span id="L97" class="LineNr"> 97 </span><span class="CommentedCode">#? # . . push args</span> -<span id="L98" class="LineNr"> 98 </span><span class="CommentedCode">#? ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 . . . Trace-stream/disp32 # push *Trace-stream</span> -<span id="L99" class="LineNr"> 99 </span><span class="CommentedCode">#? 68/push 2/imm32/stderr</span> -<span id="L100" class="LineNr"> 100 </span><span class="CommentedCode">#? # . . call</span> -<span id="L101" class="LineNr"> 101 </span><span class="CommentedCode">#? e8/call write-stream/disp32</span> -<span id="L102" class="LineNr"> 102 </span><span class="CommentedCode">#? # . . discard args</span> -<span id="L103" class="LineNr"> 103 </span><span class="CommentedCode">#? 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 8/imm32 # add to esp</span> -<span id="L104" class="LineNr"> 104 </span> <span class="subxComment"># syscall(exit, 0)</span> -<span id="L105" class="LineNr"> 105 </span> bb/copy-to-ebx 0/imm32 -<span id="L106" class="LineNr"> 106 </span><span class="Constant">$subx-survey-main:end</span>: -<span id="L107" class="LineNr"> 107 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 -<span id="L108" class="LineNr"> 108 </span> -<span id="L109" class="LineNr"> 109 </span><span class="subxFunction">subx-survey</span>: <span class="subxComment"># infile: (addr buffered-file), out: (addr buffered-file)</span> -<span id="L110" class="LineNr"> 110 </span> <span class="subxComment"># pseudocode</span> -<span id="L111" class="LineNr"> 111 </span> <span class="subxComment"># var in: (stream byte Input-size)</span> -<span id="L112" class="LineNr"> 112 </span> <span class="subxComment"># slurp(infile, in)</span> -<span id="L113" class="LineNr"> 113 </span> <span class="subxComment"># var labels: (stream {label-name, address} Max-labels)</span> -<span id="L114" class="LineNr"> 114 </span> <span class="subxComment"># compute-offsets(in, labels)</span> -<span id="L115" class="LineNr"> 115 </span> <span class="subxComment"># rewind-stream(in)</span> -<span id="L116" class="LineNr"> 116 </span> <span class="subxComment"># emit-output(in, out, labels)</span> -<span id="L117" class="LineNr"> 117 </span> <span class="subxComment">#</span> -<span id="L118" class="LineNr"> 118 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L119" class="LineNr"> 119 </span> 55/push-ebp -<span id="L120" class="LineNr"> 120 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L121" class="LineNr"> 121 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L122" class="LineNr"> 122 </span> 51/push-ecx -<span id="L123" class="LineNr"> 123 </span> 52/push-edx -<span id="L124" class="LineNr"> 124 </span> 56/push-esi -<span id="L125" class="LineNr"> 125 </span> <span class="subxComment"># var labels/edx: (stream {label-name, address} Max-labels)</span> -<span id="L126" class="LineNr"> 126 </span> <span class="subxComment"># (we get more rows than Max-labels advertises because row size is smaller than in survey_elf)</span> -<span id="L127" class="LineNr"> 127 </span> <span class="subxS1Comment"># . data</span> -<span id="L128" class="LineNr"> 128 </span> 2b/subtract 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="SpecialChar">Max-labels</span>/disp32 <span class="subxComment"># subtract *Max-labels from esp</span> -<span id="L129" class="LineNr"> 129 </span> <span class="subxS1Comment"># . size</span> -<span id="L130" class="LineNr"> 130 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar">Max-labels</span>/disp32 <span class="subxComment"># push *Max-labels</span> -<span id="L131" class="LineNr"> 131 </span> <span class="subxS1Comment"># . read</span> -<span id="L132" class="LineNr"> 132 </span> 68/push 0/imm32/read -<span id="L133" class="LineNr"> 133 </span> <span class="subxS1Comment"># . write</span> -<span id="L134" class="LineNr"> 134 </span> 68/push 0/imm32/write -<span id="L135" class="LineNr"> 135 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> -<span id="L136" class="LineNr"> 136 </span> <span class="subxComment"># var in/esi: (stream byte Input-size)</span> -<span id="L137" class="LineNr"> 137 </span> <span class="subxS1Comment"># . data</span> -<span id="L138" class="LineNr"> 138 </span> 2b/subtract 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="SpecialChar">Input-size</span>/disp32 <span class="subxComment"># subtract *Input-size from esp</span> -<span id="L139" class="LineNr"> 139 </span> <span class="subxS1Comment"># . size</span> -<span id="L140" class="LineNr"> 140 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar">Input-size</span>/disp32 <span class="subxComment"># push *Input-size</span> -<span id="L141" class="LineNr"> 141 </span> <span class="subxS1Comment"># . read</span> -<span id="L142" class="LineNr"> 142 </span> 68/push 0/imm32/read -<span id="L143" class="LineNr"> 143 </span> <span class="subxS1Comment"># . write</span> -<span id="L144" class="LineNr"> 144 </span> 68/push 0/imm32/write -<span id="L145" class="LineNr"> 145 </span> 89/copy 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to esi</span> -<span id="L146" class="LineNr"> 146 </span> <span class="subxComment"># slurp(infile, in)</span> -<span id="L147" class="LineNr"> 147 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L55" class="LineNr"> 55 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L56" class="LineNr"> 56 </span> +<span id="L57" class="LineNr"> 57 </span> <span class="subxH1Comment"># - if argc > 1 and argv[1] == "test", then return run_tests()</span> +<span id="L58" class="LineNr"> 58 </span> <span class="subxComment"># if (argc <= 1) goto interactive</span> +<span id="L59" class="LineNr"> 59 </span> 81 7/subop/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/disp8 1/imm32 <span class="subxComment"># compare *ebp</span> +<span id="L60" class="LineNr"> 60 </span> 7e/jump-if-<= $subx-survey-main:interactive/disp8 +<span id="L61" class="LineNr"> 61 </span> <span class="subxComment"># if (!kernel-string-equal?(argv[1], "test")) goto interactive</span> +<span id="L62" class="LineNr"> 62 </span> <span class="subxS1Comment"># . eax = kernel-string-equal?(argv[1], "test")</span> +<span id="L63" class="LineNr"> 63 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L64" class="LineNr"> 64 </span> 68/push <span class="Constant">"test"</span>/imm32 +<span id="L65" class="LineNr"> 65 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L66" class="LineNr"> 66 </span> <span class="subxS2Comment"># . . call</span> +<span id="L67" class="LineNr"> 67 </span> e8/call <a href='103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a>/disp32 +<span id="L68" class="LineNr"> 68 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L69" class="LineNr"> 69 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L70" class="LineNr"> 70 </span> <span class="subxS1Comment"># . if (eax == false) goto interactive</span> +<span id="L71" class="LineNr"> 71 </span> 3d/compare-eax-and 0/imm32/false +<span id="L72" class="LineNr"> 72 </span> 74/jump-if-= $subx-survey-main:interactive/disp8 +<span id="L73" class="LineNr"> 73 </span> <span class="subxComment"># run-tests()</span> +<span id="L74" class="LineNr"> 74 </span> e8/call run-tests/disp32 +<span id="L75" class="LineNr"> 75 </span> <span class="subxComment"># syscall(exit, *Num-test-failures)</span> +<span id="L76" class="LineNr"> 76 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="SpecialChar"><a href='102test.subx.html#L89'>Num-test-failures</a></span>/disp32 <span class="subxComment"># copy *Num-test-failures to ebx</span> +<span id="L77" class="LineNr"> 77 </span> eb/jump $subx-survey-main:end/disp8 +<span id="L78" class="LineNr"> 78 </span><span class="Constant">$subx-survey-main:interactive</span>: +<span id="L79" class="LineNr"> 79 </span> <span class="subxH1Comment"># - otherwise convert stdin</span> +<span id="L80" class="LineNr"> 80 </span> <span class="subxComment"># subx-survey(Stdin, Stdout)</span> +<span id="L81" class="LineNr"> 81 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L82" class="LineNr"> 82 </span> 68/push <span class="SpecialChar"><a href='115write-byte.subx.html#L10'>Stdout</a></span>/imm32 +<span id="L83" class="LineNr"> 83 </span> 68/push <span class="SpecialChar"><a href='112read-byte.subx.html#L14'>Stdin</a></span>/imm32 +<span id="L84" class="LineNr"> 84 </span> <span class="subxS2Comment"># . . call</span> +<span id="L85" class="LineNr"> 85 </span> e8/call <a href='survey_baremetal.subx.html#L101'>subx-survey</a>/disp32 +<span id="L86" class="LineNr"> 86 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L87" class="LineNr"> 87 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L88" class="LineNr"> 88 </span><span class="CommentedCode">#? # . write-stream(2/stderr, Trace-stream)</span> +<span id="L89" class="LineNr"> 89 </span><span class="CommentedCode">#? # . . push args</span> +<span id="L90" class="LineNr"> 90 </span><span class="CommentedCode">#? ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 . . . Trace-stream/disp32 # push *Trace-stream</span> +<span id="L91" class="LineNr"> 91 </span><span class="CommentedCode">#? 68/push 2/imm32/stderr</span> +<span id="L92" class="LineNr"> 92 </span><span class="CommentedCode">#? # . . call</span> +<span id="L93" class="LineNr"> 93 </span><span class="CommentedCode">#? e8/call write-stream/disp32</span> +<span id="L94" class="LineNr"> 94 </span><span class="CommentedCode">#? # . . discard args</span> +<span id="L95" class="LineNr"> 95 </span><span class="CommentedCode">#? 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 8/imm32 # add to esp</span> +<span id="L96" class="LineNr"> 96 </span> <span class="subxComment"># syscall(exit, 0)</span> +<span id="L97" class="LineNr"> 97 </span> bb/copy-to-ebx 0/imm32 +<span id="L98" class="LineNr"> 98 </span><span class="Constant">$subx-survey-main:end</span>: +<span id="L99" class="LineNr"> 99 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L100" class="LineNr"> 100 </span> +<span id="L101" class="LineNr"> 101 </span><span class="subxFunction">subx-survey</span>: <span class="subxComment"># infile: (addr buffered-file), out: (addr buffered-file)</span> +<span id="L102" class="LineNr"> 102 </span> <span class="subxComment"># pseudocode</span> +<span id="L103" class="LineNr"> 103 </span> <span class="subxComment"># var in: (stream byte Input-size)</span> +<span id="L104" class="LineNr"> 104 </span> <span class="subxComment"># slurp(infile, in)</span> +<span id="L105" class="LineNr"> 105 </span> <span class="subxComment"># var labels: (stream {label-name, address} Max-labels)</span> +<span id="L106" class="LineNr"> 106 </span> <span class="subxComment"># compute-addresses(in, labels)</span> +<span id="L107" class="LineNr"> 107 </span> <span class="subxComment"># emit-labels(out, labels)</span> +<span id="L108" class="LineNr"> 108 </span> <span class="subxComment">#</span> +<span id="L109" class="LineNr"> 109 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L110" class="LineNr"> 110 </span> 55/push-ebp +<span id="L111" class="LineNr"> 111 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L112" class="LineNr"> 112 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L113" class="LineNr"> 113 </span> 51/push-ecx +<span id="L114" class="LineNr"> 114 </span> 52/push-edx +<span id="L115" class="LineNr"> 115 </span> 56/push-esi +<span id="L116" class="LineNr"> 116 </span> <span class="subxComment"># var labels/edx: (stream {label-name, address} Max-labels)</span> +<span id="L117" class="LineNr"> 117 </span> <span class="subxComment"># (we get more rows than Max-labels advertises because row size is smaller than in survey_elf)</span> +<span id="L118" class="LineNr"> 118 </span> <span class="subxS1Comment"># . data</span> +<span id="L119" class="LineNr"> 119 </span> 2b/subtract 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="SpecialChar">Max-labels</span>/disp32 <span class="subxComment"># subtract *Max-labels from esp</span> +<span id="L120" class="LineNr"> 120 </span> <span class="subxS1Comment"># . size</span> +<span id="L121" class="LineNr"> 121 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar">Max-labels</span>/disp32 <span class="subxComment"># push *Max-labels</span> +<span id="L122" class="LineNr"> 122 </span> <span class="subxS1Comment"># . read</span> +<span id="L123" class="LineNr"> 123 </span> 68/push 0/imm32/read +<span id="L124" class="LineNr"> 124 </span> <span class="subxS1Comment"># . write</span> +<span id="L125" class="LineNr"> 125 </span> 68/push 0/imm32/write +<span id="L126" class="LineNr"> 126 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L127" class="LineNr"> 127 </span> <span class="subxComment"># var in/esi: (stream byte Input-size)</span> +<span id="L128" class="LineNr"> 128 </span> <span class="subxS1Comment"># . data</span> +<span id="L129" class="LineNr"> 129 </span> 2b/subtract 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="SpecialChar">Input-size</span>/disp32 <span class="subxComment"># subtract *Input-size from esp</span> +<span id="L130" class="LineNr"> 130 </span> <span class="subxS1Comment"># . size</span> +<span id="L131" class="LineNr"> 131 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar">Input-size</span>/disp32 <span class="subxComment"># push *Input-size</span> +<span id="L132" class="LineNr"> 132 </span> <span class="subxS1Comment"># . read</span> +<span id="L133" class="LineNr"> 133 </span> 68/push 0/imm32/read +<span id="L134" class="LineNr"> 134 </span> <span class="subxS1Comment"># . write</span> +<span id="L135" class="LineNr"> 135 </span> 68/push 0/imm32/write +<span id="L136" class="LineNr"> 136 </span> 89/copy 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to esi</span> +<span id="L137" class="LineNr"> 137 </span> <span class="subxComment"># slurp(infile, in)</span> +<span id="L138" class="LineNr"> 138 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L139" class="LineNr"> 139 </span> 56/push-esi +<span id="L140" class="LineNr"> 140 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L141" class="LineNr"> 141 </span> <span class="subxS2Comment"># . . call</span> +<span id="L142" class="LineNr"> 142 </span> e8/call <a href='132slurp.subx.html#L8'>slurp</a>/disp32 +<span id="L143" class="LineNr"> 143 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L144" class="LineNr"> 144 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L145" class="LineNr"> 145 </span> <span class="subxComment"># compute-addresses(in, labels)</span> +<span id="L146" class="LineNr"> 146 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L147" class="LineNr"> 147 </span> 52/push-edx <span id="L148" class="LineNr"> 148 </span> 56/push-esi -<span id="L149" class="LineNr"> 149 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L150" class="LineNr"> 150 </span> <span class="subxS2Comment"># . . call</span> -<span id="L151" class="LineNr"> 151 </span> e8/call <a href='132slurp.subx.html#L8'>slurp</a>/disp32 -<span id="L152" class="LineNr"> 152 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L153" class="LineNr"> 153 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L154" class="LineNr"> 154 </span> <span class="subxComment"># compute-offsets(in, labels)</span> -<span id="L155" class="LineNr"> 155 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L156" class="LineNr"> 156 </span> 52/push-edx -<span id="L157" class="LineNr"> 157 </span> 56/push-esi -<span id="L158" class="LineNr"> 158 </span> <span class="subxS2Comment"># . . call</span> -<span id="L159" class="LineNr"> 159 </span> e8/call <a href='survey_baremetal.subx.html#L462'>compute-offsets</a>/disp32 -<span id="L160" class="LineNr"> 160 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L161" class="LineNr"> 161 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L162" class="LineNr"> 162 </span> <span class="subxComment"># rewind-stream(in)</span> -<span id="L163" class="LineNr"> 163 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L164" class="LineNr"> 164 </span> 56/push-esi -<span id="L165" class="LineNr"> 165 </span> <span class="subxS2Comment"># . . call</span> -<span id="L166" class="LineNr"> 166 </span> e8/call <a href='106stream.subx.html#L56'>rewind-stream</a>/disp32 -<span id="L167" class="LineNr"> 167 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L168" class="LineNr"> 168 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L169" class="LineNr"> 169 </span> <span class="subxComment"># emit-output(in, out, labels)</span> -<span id="L170" class="LineNr"> 170 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L171" class="LineNr"> 171 </span> 52/push-edx -<span id="L172" class="LineNr"> 172 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L173" class="LineNr"> 173 </span> 56/push-esi -<span id="L174" class="LineNr"> 174 </span> <span class="subxS2Comment"># . . call</span> -<span id="L175" class="LineNr"> 175 </span> e8/call <a href='survey_baremetal.subx.html#L947'>emit-output</a>/disp32 -<span id="L176" class="LineNr"> 176 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L177" class="LineNr"> 177 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L178" class="LineNr"> 178 </span> <span class="subxComment"># flush(out)</span> -<span id="L179" class="LineNr"> 179 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L180" class="LineNr"> 180 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L181" class="LineNr"> 181 </span> <span class="subxS2Comment"># . . call</span> -<span id="L182" class="LineNr"> 182 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L183" class="LineNr"> 183 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L184" class="LineNr"> 184 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L185" class="LineNr"> 185 </span><span class="Constant">$subx-survey:end</span>: -<span id="L186" class="LineNr"> 186 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L187" class="LineNr"> 187 </span> 03/add 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="SpecialChar">Max-labels</span>/disp32 <span class="subxComment"># add *Max-labels to esp</span> -<span id="L188" class="LineNr"> 188 </span> 03/add 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="SpecialChar">Input-size</span>/disp32 <span class="subxComment"># add *Input-size to esp</span> -<span id="L189" class="LineNr"> 189 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L190" class="LineNr"> 190 </span> 5e/pop-to-esi -<span id="L191" class="LineNr"> 191 </span> 5a/pop-to-edx -<span id="L192" class="LineNr"> 192 </span> 59/pop-to-ecx -<span id="L193" class="LineNr"> 193 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L194" class="LineNr"> 194 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L195" class="LineNr"> 195 </span> 5d/pop-to-ebp -<span id="L196" class="LineNr"> 196 </span> c3/return -<span id="L197" class="LineNr"> 197 </span> -<span id="L198" class="LineNr"> 198 </span><span class="subxTest">test-subx-survey-computes-addresses</span>: -<span id="L199" class="LineNr"> 199 </span> <span class="subxComment"># input:</span> -<span id="L200" class="LineNr"> 200 </span> <span class="subxComment"># == code</span> -<span id="L201" class="LineNr"> 201 </span> <span class="subxComment"># ab x/imm32</span> -<span id="L202" class="LineNr"> 202 </span> <span class="subxComment"># == data</span> -<span id="L203" class="LineNr"> 203 </span> <span class="subxComment"># x:</span> -<span id="L204" class="LineNr"> 204 </span> <span class="subxComment"># 01</span> -<span id="L205" class="LineNr"> 205 </span> <span class="subxComment">#</span> -<span id="L206" class="LineNr"> 206 </span> <span class="subxComment"># trace contains (in any order):</span> -<span id="L207" class="LineNr"> 207 </span> <span class="subxComment"># label x is at address 0x7c05</span> -<span id="L208" class="LineNr"> 208 </span> <span class="subxComment">#</span> -<span id="L209" class="LineNr"> 209 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L210" class="LineNr"> 210 </span> 55/push-ebp -<span id="L211" class="LineNr"> 211 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L212" class="LineNr"> 212 </span> <span class="subxComment"># setup</span> -<span id="L213" class="LineNr"> 213 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L214" class="LineNr"> 214 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L215" class="LineNr"> 215 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L216" class="LineNr"> 216 </span> <span class="subxS2Comment"># . . call</span> -<span id="L217" class="LineNr"> 217 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L218" class="LineNr"> 218 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L219" class="LineNr"> 219 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L220" class="LineNr"> 220 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> -<span id="L221" class="LineNr"> 221 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L222" class="LineNr"> 222 </span> 68/push $_test-input-buffered-file->buffer/imm32 -<span id="L223" class="LineNr"> 223 </span> <span class="subxS2Comment"># . . call</span> -<span id="L224" class="LineNr"> 224 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L225" class="LineNr"> 225 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L226" class="LineNr"> 226 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L227" class="LineNr"> 227 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L228" class="LineNr"> 228 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L229" class="LineNr"> 229 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L149" class="LineNr"> 149 </span> <span class="subxS2Comment"># . . call</span> +<span id="L150" class="LineNr"> 150 </span> e8/call <a href='survey_baremetal.subx.html#L446'>compute-addresses</a>/disp32 +<span id="L151" class="LineNr"> 151 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L152" class="LineNr"> 152 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L153" class="LineNr"> 153 </span> <span class="subxComment"># emit-labels(out, labels)</span> +<span id="L154" class="LineNr"> 154 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L155" class="LineNr"> 155 </span> 52/push-edx +<span id="L156" class="LineNr"> 156 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L157" class="LineNr"> 157 </span> <span class="subxS2Comment"># . . call</span> +<span id="L158" class="LineNr"> 158 </span> e8/call <a href='survey_baremetal.subx.html#L922'>emit-labels</a>/disp32 +<span id="L159" class="LineNr"> 159 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L160" class="LineNr"> 160 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L161" class="LineNr"> 161 </span> <span class="subxComment"># flush(out)</span> +<span id="L162" class="LineNr"> 162 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L163" class="LineNr"> 163 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L164" class="LineNr"> 164 </span> <span class="subxS2Comment"># . . call</span> +<span id="L165" class="LineNr"> 165 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L166" class="LineNr"> 166 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L167" class="LineNr"> 167 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L168" class="LineNr"> 168 </span><span class="Constant">$subx-survey:end</span>: +<span id="L169" class="LineNr"> 169 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L170" class="LineNr"> 170 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/imm32 <span class="subxComment"># add to esp</span> +<span id="L171" class="LineNr"> 171 </span> 03/add 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="SpecialChar">Max-labels</span>/disp32 <span class="subxComment"># add *Max-labels to esp</span> +<span id="L172" class="LineNr"> 172 </span> 03/add 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="SpecialChar">Input-size</span>/disp32 <span class="subxComment"># add *Input-size to esp</span> +<span id="L173" class="LineNr"> 173 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L174" class="LineNr"> 174 </span> 5e/pop-to-esi +<span id="L175" class="LineNr"> 175 </span> 5a/pop-to-edx +<span id="L176" class="LineNr"> 176 </span> 59/pop-to-ecx +<span id="L177" class="LineNr"> 177 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L178" class="LineNr"> 178 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L179" class="LineNr"> 179 </span> 5d/pop-to-ebp +<span id="L180" class="LineNr"> 180 </span> c3/return +<span id="L181" class="LineNr"> 181 </span> +<span id="L182" class="LineNr"> 182 </span><span class="subxTest">test-subx-survey-computes-addresses</span>: +<span id="L183" class="LineNr"> 183 </span> <span class="subxComment"># input:</span> +<span id="L184" class="LineNr"> 184 </span> <span class="subxComment"># == code</span> +<span id="L185" class="LineNr"> 185 </span> <span class="subxComment"># ab x/imm32</span> +<span id="L186" class="LineNr"> 186 </span> <span class="subxComment"># == data</span> +<span id="L187" class="LineNr"> 187 </span> <span class="subxComment"># x:</span> +<span id="L188" class="LineNr"> 188 </span> <span class="subxComment"># 01</span> +<span id="L189" class="LineNr"> 189 </span> <span class="subxComment">#</span> +<span id="L190" class="LineNr"> 190 </span> <span class="subxComment"># trace contains (in any order):</span> +<span id="L191" class="LineNr"> 191 </span> <span class="subxComment"># label x is at address 0x7c05</span> +<span id="L192" class="LineNr"> 192 </span> <span class="subxComment">#</span> +<span id="L193" class="LineNr"> 193 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L194" class="LineNr"> 194 </span> 55/push-ebp +<span id="L195" class="LineNr"> 195 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L196" class="LineNr"> 196 </span> <span class="subxComment"># setup</span> +<span id="L197" class="LineNr"> 197 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L198" class="LineNr"> 198 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L199" class="LineNr"> 199 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L200" class="LineNr"> 200 </span> <span class="subxS2Comment"># . . call</span> +<span id="L201" class="LineNr"> 201 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L202" class="LineNr"> 202 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L203" class="LineNr"> 203 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L204" class="LineNr"> 204 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> +<span id="L205" class="LineNr"> 205 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L206" class="LineNr"> 206 </span> 68/push $_test-input-buffered-file->buffer/imm32 +<span id="L207" class="LineNr"> 207 </span> <span class="subxS2Comment"># . . call</span> +<span id="L208" class="LineNr"> 208 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L209" class="LineNr"> 209 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L210" class="LineNr"> 210 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L211" class="LineNr"> 211 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L212" class="LineNr"> 212 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L213" class="LineNr"> 213 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L214" class="LineNr"> 214 </span> <span class="subxS2Comment"># . . call</span> +<span id="L215" class="LineNr"> 215 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L216" class="LineNr"> 216 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L217" class="LineNr"> 217 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L218" class="LineNr"> 218 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L219" class="LineNr"> 219 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L220" class="LineNr"> 220 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L221" class="LineNr"> 221 </span> <span class="subxS2Comment"># . . call</span> +<span id="L222" class="LineNr"> 222 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L223" class="LineNr"> 223 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L224" class="LineNr"> 224 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L225" class="LineNr"> 225 </span> <span class="subxComment"># initialize input</span> +<span id="L226" class="LineNr"> 226 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== code\n")</span> +<span id="L227" class="LineNr"> 227 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L228" class="LineNr"> 228 </span> 68/push <span class="Constant">"== code\n"</span>/imm32 +<span id="L229" class="LineNr"> 229 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L230" class="LineNr"> 230 </span> <span class="subxS2Comment"># . . call</span> -<span id="L231" class="LineNr"> 231 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L231" class="LineNr"> 231 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L232" class="LineNr"> 232 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L233" class="LineNr"> 233 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L234" class="LineNr"> 234 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L233" class="LineNr"> 233 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L234" class="LineNr"> 234 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab x/imm32\n")</span> <span id="L235" class="LineNr"> 235 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L236" class="LineNr"> 236 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L237" class="LineNr"> 237 </span> <span class="subxS2Comment"># . . call</span> -<span id="L238" class="LineNr"> 238 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L239" class="LineNr"> 239 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L240" class="LineNr"> 240 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L241" class="LineNr"> 241 </span> <span class="subxComment"># initialize input</span> -<span id="L242" class="LineNr"> 242 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== code\n")</span> +<span id="L236" class="LineNr"> 236 </span> 68/push <span class="Constant">"ab x/imm32\n"</span>/imm32 +<span id="L237" class="LineNr"> 237 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L238" class="LineNr"> 238 </span> <span class="subxS2Comment"># . . call</span> +<span id="L239" class="LineNr"> 239 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L240" class="LineNr"> 240 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L241" class="LineNr"> 241 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L242" class="LineNr"> 242 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== data\n")</span> <span id="L243" class="LineNr"> 243 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L244" class="LineNr"> 244 </span> 68/push <span class="Constant">"== code\n"</span>/imm32 +<span id="L244" class="LineNr"> 244 </span> 68/push <span class="Constant">"== data\n"</span>/imm32 <span id="L245" class="LineNr"> 245 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L246" class="LineNr"> 246 </span> <span class="subxS2Comment"># . . call</span> <span id="L247" class="LineNr"> 247 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L248" class="LineNr"> 248 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L249" class="LineNr"> 249 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L250" class="LineNr"> 250 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab x/imm32\n")</span> +<span id="L250" class="LineNr"> 250 </span> <span class="subxS1Comment"># . write(_test-input-stream, "x:\n")</span> <span id="L251" class="LineNr"> 251 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L252" class="LineNr"> 252 </span> 68/push <span class="Constant">"ab x/imm32\n"</span>/imm32 +<span id="L252" class="LineNr"> 252 </span> 68/push <span class="Constant">"x:\n"</span>/imm32 <span id="L253" class="LineNr"> 253 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L254" class="LineNr"> 254 </span> <span class="subxS2Comment"># . . call</span> <span id="L255" class="LineNr"> 255 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L256" class="LineNr"> 256 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L257" class="LineNr"> 257 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L258" class="LineNr"> 258 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== data\n")</span> +<span id="L258" class="LineNr"> 258 </span> <span class="subxS1Comment"># . write(_test-input-stream, "01\n")</span> <span id="L259" class="LineNr"> 259 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L260" class="LineNr"> 260 </span> 68/push <span class="Constant">"== data\n"</span>/imm32 +<span id="L260" class="LineNr"> 260 </span> 68/push <span class="Constant">"01\n"</span>/imm32 <span id="L261" class="LineNr"> 261 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L262" class="LineNr"> 262 </span> <span class="subxS2Comment"># . . call</span> <span id="L263" class="LineNr"> 263 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L264" class="LineNr"> 264 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L265" class="LineNr"> 265 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L266" class="LineNr"> 266 </span> <span class="subxS1Comment"># . write(_test-input-stream, "x:\n")</span> +<span id="L266" class="LineNr"> 266 </span> <span class="subxComment"># subx-survey(_test-input-buffered-file, _test-output-buffered-file)</span> <span id="L267" class="LineNr"> 267 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L268" class="LineNr"> 268 </span> 68/push <span class="Constant">"x:\n"</span>/imm32 -<span id="L269" class="LineNr"> 269 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L268" class="LineNr"> 268 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L269" class="LineNr"> 269 </span> 68/push <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 <span id="L270" class="LineNr"> 270 </span> <span class="subxS2Comment"># . . call</span> -<span id="L271" class="LineNr"> 271 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L271" class="LineNr"> 271 </span> e8/call <a href='survey_baremetal.subx.html#L101'>subx-survey</a>/disp32 <span id="L272" class="LineNr"> 272 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L273" class="LineNr"> 273 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L274" class="LineNr"> 274 </span> <span class="subxS1Comment"># . write(_test-input-stream, "01\n")</span> -<span id="L275" class="LineNr"> 275 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L276" class="LineNr"> 276 </span> 68/push <span class="Constant">"01\n"</span>/imm32 -<span id="L277" class="LineNr"> 277 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L278" class="LineNr"> 278 </span> <span class="subxS2Comment"># . . call</span> -<span id="L279" class="LineNr"> 279 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L280" class="LineNr"> 280 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L281" class="LineNr"> 281 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L282" class="LineNr"> 282 </span> <span class="subxComment"># subx-survey(_test-input-buffered-file, _test-output-buffered-file)</span> -<span id="L283" class="LineNr"> 283 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L284" class="LineNr"> 284 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 -<span id="L285" class="LineNr"> 285 </span> 68/push <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 -<span id="L286" class="LineNr"> 286 </span> <span class="subxS2Comment"># . . call</span> -<span id="L287" class="LineNr"> 287 </span> e8/call <a href='survey_baremetal.subx.html#L109'>subx-survey</a>/disp32 -<span id="L288" class="LineNr"> 288 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L289" class="LineNr"> 289 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L290" class="LineNr"> 290 </span> <span class="subxComment"># check trace</span> -<span id="L291" class="Folded"> 291 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L317" class="LineNr"> 317 </span> <span class="subxS1Comment"># . check-trace-contains("label 'x' is at address 0x00007c05.", msg)</span> -<span id="L318" class="LineNr"> 318 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L319" class="LineNr"> 319 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L198'>test-subx-survey-computes-addresses</a>/0"</span>/imm32 -<span id="L320" class="LineNr"> 320 </span> 68/push <span class="Constant">"label 'x' is at address 0x00007c05."</span>/imm32 -<span id="L321" class="LineNr"> 321 </span> <span class="subxS2Comment"># . . call</span> -<span id="L322" class="LineNr"> 322 </span> e8/call <a href='107trace.subx.html#L248'>check-trace-contains</a>/disp32 -<span id="L323" class="LineNr"> 323 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L324" class="LineNr"> 324 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L325" class="LineNr"> 325 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L326" class="LineNr"> 326 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L327" class="LineNr"> 327 </span> 5d/pop-to-ebp -<span id="L328" class="LineNr"> 328 </span> c3/return -<span id="L329" class="LineNr"> 329 </span> -<span id="L330" class="LineNr"> 330 </span><span class="subxTest">test-subx-survey-computes-addresses-with-padding</span>: -<span id="L331" class="LineNr"> 331 </span> <span class="subxComment"># input:</span> -<span id="L332" class="LineNr"> 332 </span> <span class="subxComment"># == code</span> -<span id="L333" class="LineNr"> 333 </span> <span class="subxComment"># ab x/imm32</span> -<span id="L334" class="LineNr"> 334 </span> <span class="subxComment"># == data 0x7c10</span> -<span id="L335" class="LineNr"> 335 </span> <span class="subxComment"># x:</span> -<span id="L336" class="LineNr"> 336 </span> <span class="subxComment"># 01</span> -<span id="L337" class="LineNr"> 337 </span> <span class="subxComment">#</span> -<span id="L338" class="LineNr"> 338 </span> <span class="subxComment"># trace contains (in any order):</span> -<span id="L339" class="LineNr"> 339 </span> <span class="subxComment"># label x is at address 0x7c10</span> -<span id="L340" class="LineNr"> 340 </span> <span class="subxComment">#</span> -<span id="L341" class="LineNr"> 341 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L342" class="LineNr"> 342 </span> 55/push-ebp -<span id="L343" class="LineNr"> 343 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L344" class="LineNr"> 344 </span> <span class="subxComment"># setup</span> -<span id="L345" class="LineNr"> 345 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L346" class="LineNr"> 346 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L347" class="LineNr"> 347 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L348" class="LineNr"> 348 </span> <span class="subxS2Comment"># . . call</span> -<span id="L349" class="LineNr"> 349 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L350" class="LineNr"> 350 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L351" class="LineNr"> 351 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L352" class="LineNr"> 352 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> -<span id="L353" class="LineNr"> 353 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L354" class="LineNr"> 354 </span> 68/push $_test-input-buffered-file->buffer/imm32 -<span id="L355" class="LineNr"> 355 </span> <span class="subxS2Comment"># . . call</span> -<span id="L356" class="LineNr"> 356 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L357" class="LineNr"> 357 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L358" class="LineNr"> 358 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L359" class="LineNr"> 359 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L360" class="LineNr"> 360 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L361" class="LineNr"> 361 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L274" class="LineNr"> 274 </span> <span class="subxComment"># check trace</span> +<span id="L275" class="Folded"> 275 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L301" class="LineNr"> 301 </span> <span class="subxS1Comment"># . check-trace-contains("label 'x' is at address 0x00007c05.", msg)</span> +<span id="L302" class="LineNr"> 302 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L303" class="LineNr"> 303 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L182'>test-subx-survey-computes-addresses</a>/0"</span>/imm32 +<span id="L304" class="LineNr"> 304 </span> 68/push <span class="Constant">"label 'x' is at address 0x00007c05."</span>/imm32 +<span id="L305" class="LineNr"> 305 </span> <span class="subxS2Comment"># . . call</span> +<span id="L306" class="LineNr"> 306 </span> e8/call <a href='107trace.subx.html#L248'>check-trace-contains</a>/disp32 +<span id="L307" class="LineNr"> 307 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L308" class="LineNr"> 308 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L309" class="LineNr"> 309 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L310" class="LineNr"> 310 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L311" class="LineNr"> 311 </span> 5d/pop-to-ebp +<span id="L312" class="LineNr"> 312 </span> c3/return +<span id="L313" class="LineNr"> 313 </span> +<span id="L314" class="LineNr"> 314 </span><span class="subxTest">test-subx-survey-computes-addresses-with-padding</span>: +<span id="L315" class="LineNr"> 315 </span> <span class="subxComment"># input:</span> +<span id="L316" class="LineNr"> 316 </span> <span class="subxComment"># == code</span> +<span id="L317" class="LineNr"> 317 </span> <span class="subxComment"># ab x/imm32</span> +<span id="L318" class="LineNr"> 318 </span> <span class="subxComment"># == data 0x7c10</span> +<span id="L319" class="LineNr"> 319 </span> <span class="subxComment"># x:</span> +<span id="L320" class="LineNr"> 320 </span> <span class="subxComment"># 01</span> +<span id="L321" class="LineNr"> 321 </span> <span class="subxComment">#</span> +<span id="L322" class="LineNr"> 322 </span> <span class="subxComment"># trace contains (in any order):</span> +<span id="L323" class="LineNr"> 323 </span> <span class="subxComment"># label x is at address 0x7c10</span> +<span id="L324" class="LineNr"> 324 </span> <span class="subxComment">#</span> +<span id="L325" class="LineNr"> 325 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L326" class="LineNr"> 326 </span> 55/push-ebp +<span id="L327" class="LineNr"> 327 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L328" class="LineNr"> 328 </span> <span class="subxComment"># setup</span> +<span id="L329" class="LineNr"> 329 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L330" class="LineNr"> 330 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L331" class="LineNr"> 331 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L332" class="LineNr"> 332 </span> <span class="subxS2Comment"># . . call</span> +<span id="L333" class="LineNr"> 333 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L334" class="LineNr"> 334 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L335" class="LineNr"> 335 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L336" class="LineNr"> 336 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> +<span id="L337" class="LineNr"> 337 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L338" class="LineNr"> 338 </span> 68/push $_test-input-buffered-file->buffer/imm32 +<span id="L339" class="LineNr"> 339 </span> <span class="subxS2Comment"># . . call</span> +<span id="L340" class="LineNr"> 340 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L341" class="LineNr"> 341 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L342" class="LineNr"> 342 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L343" class="LineNr"> 343 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L344" class="LineNr"> 344 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L345" class="LineNr"> 345 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L346" class="LineNr"> 346 </span> <span class="subxS2Comment"># . . call</span> +<span id="L347" class="LineNr"> 347 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L348" class="LineNr"> 348 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L349" class="LineNr"> 349 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L350" class="LineNr"> 350 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L351" class="LineNr"> 351 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L352" class="LineNr"> 352 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L353" class="LineNr"> 353 </span> <span class="subxS2Comment"># . . call</span> +<span id="L354" class="LineNr"> 354 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L355" class="LineNr"> 355 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L356" class="LineNr"> 356 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L357" class="LineNr"> 357 </span> <span class="subxComment"># initialize input</span> +<span id="L358" class="LineNr"> 358 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== code\n")</span> +<span id="L359" class="LineNr"> 359 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L360" class="LineNr"> 360 </span> 68/push <span class="Constant">"== code\n"</span>/imm32 +<span id="L361" class="LineNr"> 361 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L362" class="LineNr"> 362 </span> <span class="subxS2Comment"># . . call</span> -<span id="L363" class="LineNr"> 363 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L363" class="LineNr"> 363 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L364" class="LineNr"> 364 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L365" class="LineNr"> 365 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L366" class="LineNr"> 366 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L365" class="LineNr"> 365 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L366" class="LineNr"> 366 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab x/imm32\n")</span> <span id="L367" class="LineNr"> 367 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L368" class="LineNr"> 368 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L369" class="LineNr"> 369 </span> <span class="subxS2Comment"># . . call</span> -<span id="L370" class="LineNr"> 370 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L371" class="LineNr"> 371 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L372" class="LineNr"> 372 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L373" class="LineNr"> 373 </span> <span class="subxComment"># initialize input</span> -<span id="L374" class="LineNr"> 374 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== code\n")</span> +<span id="L368" class="LineNr"> 368 </span> 68/push <span class="Constant">"ab x/imm32\n"</span>/imm32 +<span id="L369" class="LineNr"> 369 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L370" class="LineNr"> 370 </span> <span class="subxS2Comment"># . . call</span> +<span id="L371" class="LineNr"> 371 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L372" class="LineNr"> 372 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L373" class="LineNr"> 373 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L374" class="LineNr"> 374 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== data\n")</span> <span id="L375" class="LineNr"> 375 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L376" class="LineNr"> 376 </span> 68/push <span class="Constant">"== code\n"</span>/imm32 +<span id="L376" class="LineNr"> 376 </span> 68/push <span class="Constant">"== data 0x7c10\n"</span>/imm32 <span id="L377" class="LineNr"> 377 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L378" class="LineNr"> 378 </span> <span class="subxS2Comment"># . . call</span> <span id="L379" class="LineNr"> 379 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L380" class="LineNr"> 380 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L381" class="LineNr"> 381 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L382" class="LineNr"> 382 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab x/imm32\n")</span> +<span id="L382" class="LineNr"> 382 </span> <span class="subxS1Comment"># . write(_test-input-stream, "x:\n")</span> <span id="L383" class="LineNr"> 383 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L384" class="LineNr"> 384 </span> 68/push <span class="Constant">"ab x/imm32\n"</span>/imm32 +<span id="L384" class="LineNr"> 384 </span> 68/push <span class="Constant">"x:\n"</span>/imm32 <span id="L385" class="LineNr"> 385 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L386" class="LineNr"> 386 </span> <span class="subxS2Comment"># . . call</span> <span id="L387" class="LineNr"> 387 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L388" class="LineNr"> 388 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L389" class="LineNr"> 389 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L390" class="LineNr"> 390 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== data\n")</span> +<span id="L390" class="LineNr"> 390 </span> <span class="subxS1Comment"># . write(_test-input-stream, "01\n")</span> <span id="L391" class="LineNr"> 391 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L392" class="LineNr"> 392 </span> 68/push <span class="Constant">"== data 0x7c10\n"</span>/imm32 +<span id="L392" class="LineNr"> 392 </span> 68/push <span class="Constant">"01\n"</span>/imm32 <span id="L393" class="LineNr"> 393 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L394" class="LineNr"> 394 </span> <span class="subxS2Comment"># . . call</span> <span id="L395" class="LineNr"> 395 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L396" class="LineNr"> 396 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L397" class="LineNr"> 397 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L398" class="LineNr"> 398 </span> <span class="subxS1Comment"># . write(_test-input-stream, "x:\n")</span> +<span id="L398" class="LineNr"> 398 </span> <span class="subxComment"># subx-survey(_test-input-buffered-file, _test-output-buffered-file)</span> <span id="L399" class="LineNr"> 399 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L400" class="LineNr"> 400 </span> 68/push <span class="Constant">"x:\n"</span>/imm32 -<span id="L401" class="LineNr"> 401 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L400" class="LineNr"> 400 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L401" class="LineNr"> 401 </span> 68/push <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 <span id="L402" class="LineNr"> 402 </span> <span class="subxS2Comment"># . . call</span> -<span id="L403" class="LineNr"> 403 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L403" class="LineNr"> 403 </span> e8/call <a href='survey_baremetal.subx.html#L101'>subx-survey</a>/disp32 <span id="L404" class="LineNr"> 404 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L405" class="LineNr"> 405 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L406" class="LineNr"> 406 </span> <span class="subxS1Comment"># . write(_test-input-stream, "01\n")</span> -<span id="L407" class="LineNr"> 407 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L408" class="LineNr"> 408 </span> 68/push <span class="Constant">"01\n"</span>/imm32 -<span id="L409" class="LineNr"> 409 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L410" class="LineNr"> 410 </span> <span class="subxS2Comment"># . . call</span> -<span id="L411" class="LineNr"> 411 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L412" class="LineNr"> 412 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L413" class="LineNr"> 413 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L414" class="LineNr"> 414 </span> <span class="subxComment"># subx-survey(_test-input-buffered-file, _test-output-buffered-file)</span> -<span id="L415" class="LineNr"> 415 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L416" class="LineNr"> 416 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 -<span id="L417" class="LineNr"> 417 </span> 68/push <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 -<span id="L418" class="LineNr"> 418 </span> <span class="subxS2Comment"># . . call</span> -<span id="L419" class="LineNr"> 419 </span> e8/call <a href='survey_baremetal.subx.html#L109'>subx-survey</a>/disp32 -<span id="L420" class="LineNr"> 420 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L421" class="LineNr"> 421 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L422" class="LineNr"> 422 </span> <span class="subxComment"># check trace</span> -<span id="L423" class="Folded"> 423 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L449" class="LineNr"> 449 </span> <span class="subxS1Comment"># . check-trace-contains("label 'x' is at address 0x00007c10.", msg)</span> -<span id="L450" class="LineNr"> 450 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L451" class="LineNr"> 451 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L330'>test-subx-survey-computes-addresses-with-padding</a>/0"</span>/imm32 -<span id="L452" class="LineNr"> 452 </span> 68/push <span class="Constant">"label 'x' is at address 0x00007c10."</span>/imm32 -<span id="L453" class="LineNr"> 453 </span> <span class="subxS2Comment"># . . call</span> -<span id="L454" class="LineNr"> 454 </span> e8/call <a href='107trace.subx.html#L248'>check-trace-contains</a>/disp32 -<span id="L455" class="LineNr"> 455 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L456" class="LineNr"> 456 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L457" class="LineNr"> 457 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L458" class="LineNr"> 458 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L459" class="LineNr"> 459 </span> 5d/pop-to-ebp -<span id="L460" class="LineNr"> 460 </span> c3/return -<span id="L461" class="LineNr"> 461 </span> -<span id="L462" class="LineNr"> 462 </span><span class="subxFunction">compute-offsets</span>: <span class="subxComment"># in: (addr stream byte), labels: (addr stream {(handle array byte), address})</span> -<span id="L463" class="LineNr"> 463 </span> <span class="subxComment"># pseudocode:</span> -<span id="L464" class="LineNr"> 464 </span> <span class="subxComment"># var current-address = 0x7c00</span> -<span id="L465" class="LineNr"> 465 </span> <span class="subxComment"># var line: (stream byte 512)</span> -<span id="L466" class="LineNr"> 466 </span> <span class="subxComment"># while true # line loop</span> -<span id="L467" class="LineNr"> 467 </span> <span class="subxComment"># clear-stream(line)</span> -<span id="L468" class="LineNr"> 468 </span> <span class="subxComment"># read-line(in, line)</span> -<span id="L469" class="LineNr"> 469 </span> <span class="subxComment"># if (line->write == 0) break # end of file</span> -<span id="L470" class="LineNr"> 470 </span> <span class="subxComment"># while true # word loop</span> -<span id="L471" class="LineNr"> 471 </span> <span class="subxComment"># word-slice = next-word(line)</span> -<span id="L472" class="LineNr"> 472 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> -<span id="L473" class="LineNr"> 473 </span> <span class="subxComment"># break</span> -<span id="L474" class="LineNr"> 474 </span> <span class="subxComment"># else if slice-starts-with?(word-slice, "#") # comment</span> -<span id="L475" class="LineNr"> 475 </span> <span class="subxComment"># break # end of line</span> -<span id="L476" class="LineNr"> 476 </span> <span class="subxComment"># else if slice-equal?(word-slice, "==") # segment header</span> -<span id="L477" class="LineNr"> 477 </span> <span class="subxComment"># word-slice = next-word(line)</span> -<span id="L478" class="LineNr"> 478 </span> <span class="subxComment"># if slice-empty?(word-slice)</span> -<span id="L479" class="LineNr"> 479 </span> <span class="subxComment"># abort</span> -<span id="L480" class="LineNr"> 480 </span> <span class="subxComment"># word-slice = next-word(line) # segment address</span> -<span id="L481" class="LineNr"> 481 </span> <span class="subxComment"># if slice-empty?(word-slice)</span> -<span id="L482" class="LineNr"> 482 </span> <span class="subxComment"># goto line-loop # segment address is optional</span> -<span id="L483" class="LineNr"> 483 </span> <span class="subxComment"># new-address = parse-hex-int-from-slice(word-slice)</span> -<span id="L484" class="LineNr"> 484 </span> <span class="subxComment"># if new-address < current-address</span> -<span id="L485" class="LineNr"> 485 </span> <span class="subxComment"># abort</span> -<span id="L486" class="LineNr"> 486 </span> <span class="subxComment"># current-address = new-address</span> -<span id="L487" class="LineNr"> 487 </span> <span class="subxComment"># else if label?(word-slice)</span> -<span id="L488" class="LineNr"> 488 </span> <span class="subxComment"># strip trailing ':' from word-slice</span> -<span id="L489" class="LineNr"> 489 </span> <span class="subxComment"># trace("label '" word-slice "' is at address " current-address ".")</span> -<span id="L490" class="LineNr"> 490 </span> <span class="subxComment"># # labels occupy no space, so no need to increment offsets</span> -<span id="L491" class="LineNr"> 491 </span> <span class="subxComment"># else</span> -<span id="L492" class="LineNr"> 492 </span> <span class="subxComment"># width = compute-width-of-slice(word-slice)</span> -<span id="L493" class="LineNr"> 493 </span> <span class="subxComment"># current-address += width</span> -<span id="L494" class="LineNr"> 494 </span> <span class="subxComment">#</span> -<span id="L495" class="LineNr"> 495 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L496" class="LineNr"> 496 </span> 55/push-ebp -<span id="L497" class="LineNr"> 497 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L498" class="LineNr"> 498 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L499" class="LineNr"> 499 </span> 50/push-eax -<span id="L500" class="LineNr"> 500 </span> 51/push-ecx -<span id="L501" class="LineNr"> 501 </span> 52/push-edx -<span id="L502" class="LineNr"> 502 </span> 53/push-ebx -<span id="L503" class="LineNr"> 503 </span> 56/push-esi -<span id="L504" class="LineNr"> 504 </span> 57/push-edi -<span id="L505" class="LineNr"> 505 </span> <span class="subxComment"># var current-address/esi: int = 0x7c00</span> -<span id="L506" class="LineNr"> 506 </span> be/copy-to-esi 0x7c00/imm32 -<span id="L507" class="LineNr"> 507 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> -<span id="L508" class="LineNr"> 508 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x200/imm32 <span class="subxComment"># subtract from esp</span> -<span id="L509" class="LineNr"> 509 </span> 68/push 0x200/imm32/size -<span id="L510" class="LineNr"> 510 </span> 68/push 0/imm32/read -<span id="L511" class="LineNr"> 511 </span> 68/push 0/imm32/write -<span id="L512" class="LineNr"> 512 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L513" class="LineNr"> 513 </span> <span class="subxComment"># var word-slice/edx: (addr slice)</span> -<span id="L514" class="LineNr"> 514 </span> 68/push 0/imm32 -<span id="L515" class="LineNr"> 515 </span> 68/push 0/imm32 -<span id="L516" class="LineNr"> 516 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> -<span id="L517" class="LineNr"> 517 </span><span class="Constant">$compute-offsets:line-loop</span>: -<span id="L518" class="LineNr"> 518 </span> <span class="subxComment"># clear-stream(line)</span> -<span id="L519" class="LineNr"> 519 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L520" class="LineNr"> 520 </span> 51/push-ecx -<span id="L521" class="LineNr"> 521 </span> <span class="subxS2Comment"># . . call</span> -<span id="L522" class="LineNr"> 522 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L523" class="LineNr"> 523 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L524" class="LineNr"> 524 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L525" class="LineNr"> 525 </span> <span class="subxComment"># read-line(in, line)</span> -<span id="L526" class="LineNr"> 526 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L527" class="LineNr"> 527 </span> 51/push-ecx -<span id="L528" class="LineNr"> 528 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L529" class="LineNr"> 529 </span> <span class="subxS2Comment"># . . call</span> -<span id="L530" class="LineNr"> 530 </span> e8/call <a href='122read-line.subx.html#L218'>read-line</a>/disp32 -<span id="L531" class="LineNr"> 531 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L532" class="LineNr"> 532 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L533" class="LineNr"> 533 </span> <span class="subxComment"># if (line->write == 0) break</span> -<span id="L534" class="LineNr"> 534 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> -<span id="L535" class="LineNr"> 535 </span> 3d/compare-eax-and 0/imm32 -<span id="L536" class="LineNr"> 536 </span> 0f 84/jump-if-= $compute-offsets:end/disp32 -<span id="L537" class="Folded"> 537 </span><span class="Folded">+-- 33 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L570" class="LineNr"> 570 </span><span class="Constant">$compute-offsets:word-loop</span>: -<span id="L571" class="LineNr"> 571 </span> <span class="subxComment"># next-word(line, word-slice)</span> -<span id="L572" class="LineNr"> 572 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L573" class="LineNr"> 573 </span> 52/push-edx -<span id="L574" class="LineNr"> 574 </span> 51/push-ecx -<span id="L575" class="LineNr"> 575 </span> <span class="subxS2Comment"># . . call</span> -<span id="L576" class="LineNr"> 576 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 -<span id="L577" class="LineNr"> 577 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L578" class="LineNr"> 578 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L579" class="LineNr"> 579 </span><span class="Constant">$compute-offsets:case-empty</span>: -<span id="L580" class="LineNr"> 580 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> -<span id="L581" class="LineNr"> 581 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> -<span id="L582" class="LineNr"> 582 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L583" class="LineNr"> 583 </span> 52/push-edx -<span id="L584" class="LineNr"> 584 </span> <span class="subxS2Comment"># . . call</span> -<span id="L585" class="LineNr"> 585 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 -<span id="L586" class="LineNr"> 586 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L587" class="LineNr"> 587 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L588" class="LineNr"> 588 </span> <span class="subxS1Comment"># . if (eax != false) break</span> -<span id="L589" class="LineNr"> 589 </span> 3d/compare-eax-and 0/imm32/false -<span id="L590" class="LineNr"> 590 </span> 0f 85/jump-if-!= $compute-offsets:line-loop/disp32 -<span id="L591" class="LineNr"> 591 </span><span class="Constant">$compute-offsets:case-comment</span>: -<span id="L592" class="LineNr"> 592 </span> <span class="subxComment"># if slice-starts-with?(word-slice, "#") break</span> -<span id="L593" class="LineNr"> 593 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L594" class="LineNr"> 594 </span> 68/push <span class="Constant">"#"</span>/imm32 -<span id="L595" class="LineNr"> 595 </span> 52/push-edx -<span id="L596" class="LineNr"> 596 </span> <span class="subxS2Comment"># . . call</span> -<span id="L597" class="LineNr"> 597 </span> e8/call <a href='123slice.subx.html#L487'>slice-starts-with?</a>/disp32 -<span id="L598" class="LineNr"> 598 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L599" class="LineNr"> 599 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L600" class="LineNr"> 600 </span> <span class="subxS1Comment"># . if (eax != false) break</span> -<span id="L601" class="LineNr"> 601 </span> 3d/compare-eax-and 0/imm32/false -<span id="L602" class="LineNr"> 602 </span> 0f 85/jump-if-!= $compute-offsets:line-loop/disp32 -<span id="L603" class="LineNr"> 603 </span><span class="Constant">$compute-offsets:case-segment-header</span>: -<span id="L604" class="LineNr"> 604 </span> <span class="subxComment"># if !slice-equal?(word-slice, "==") goto next case</span> -<span id="L605" class="LineNr"> 605 </span> <span class="subxS1Comment"># . eax = slice-equal?(word-slice, "==")</span> -<span id="L606" class="LineNr"> 606 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L607" class="LineNr"> 607 </span> 68/push <span class="Constant">"=="</span>/imm32 -<span id="L608" class="LineNr"> 608 </span> 52/push-edx -<span id="L609" class="LineNr"> 609 </span> <span class="subxS2Comment"># . . call</span> -<span id="L610" class="LineNr"> 610 </span> e8/call <a href='123slice.subx.html#L120'>slice-equal?</a>/disp32 -<span id="L611" class="LineNr"> 611 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L612" class="LineNr"> 612 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L613" class="LineNr"> 613 </span> <span class="subxS1Comment"># . if (eax != false) break</span> -<span id="L614" class="LineNr"> 614 </span> 3d/compare-eax-and 0/imm32/false -<span id="L615" class="LineNr"> 615 </span> 0f 84/jump-if-= $compute-offsets:case-label/disp32 -<span id="L616" class="LineNr"> 616 </span> <span class="subxComment"># next-word(line, word-slice)</span> -<span id="L617" class="LineNr"> 617 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L618" class="LineNr"> 618 </span> 52/push-edx -<span id="L619" class="LineNr"> 619 </span> 51/push-ecx -<span id="L620" class="LineNr"> 620 </span> <span class="subxS2Comment"># . . call</span> -<span id="L621" class="LineNr"> 621 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 -<span id="L622" class="LineNr"> 622 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L623" class="LineNr"> 623 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L624" class="LineNr"> 624 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> -<span id="L625" class="LineNr"> 625 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> -<span id="L626" class="LineNr"> 626 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L627" class="LineNr"> 627 </span> 52/push-edx -<span id="L628" class="LineNr"> 628 </span> <span class="subxS2Comment"># . . call</span> -<span id="L629" class="LineNr"> 629 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 -<span id="L630" class="LineNr"> 630 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L631" class="LineNr"> 631 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L632" class="LineNr"> 632 </span> <span class="subxS1Comment"># . if (eax != false) abort</span> -<span id="L633" class="LineNr"> 633 </span> 3d/compare-eax-and 0/imm32/false -<span id="L634" class="LineNr"> 634 </span> 0f 85/jump-if-!= $compute-offsets:abort/disp32 -<span id="L635" class="LineNr"> 635 </span> <span class="subxComment"># next-word(line, word-slice)</span> -<span id="L636" class="LineNr"> 636 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L637" class="LineNr"> 637 </span> 52/push-edx -<span id="L638" class="LineNr"> 638 </span> 51/push-ecx -<span id="L639" class="LineNr"> 639 </span> <span class="subxS2Comment"># . . call</span> -<span id="L640" class="LineNr"> 640 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 -<span id="L641" class="LineNr"> 641 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L642" class="LineNr"> 642 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L643" class="LineNr"> 643 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> -<span id="L644" class="LineNr"> 644 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> -<span id="L645" class="LineNr"> 645 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L646" class="LineNr"> 646 </span> 52/push-edx -<span id="L647" class="LineNr"> 647 </span> <span class="subxS2Comment"># . . call</span> -<span id="L648" class="LineNr"> 648 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 -<span id="L649" class="LineNr"> 649 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L650" class="LineNr"> 650 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L651" class="LineNr"> 651 </span> <span class="subxS1Comment"># . if (eax != false) break</span> -<span id="L652" class="LineNr"> 652 </span> 3d/compare-eax-and 0/imm32/false -<span id="L653" class="LineNr"> 653 </span> 0f 85/jump-if-!= $compute-offsets:line-loop/disp32 -<span id="L654" class="LineNr"> 654 </span> <span class="subxComment"># var new-address/eax: int = parse-hex-int-from-slice(word-slice)</span> +<span id="L406" class="LineNr"> 406 </span> <span class="subxComment"># check trace</span> +<span id="L407" class="Folded"> 407 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L433" class="LineNr"> 433 </span> <span class="subxS1Comment"># . check-trace-contains("label 'x' is at address 0x00007c10.", msg)</span> +<span id="L434" class="LineNr"> 434 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L435" class="LineNr"> 435 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L314'>test-subx-survey-computes-addresses-with-padding</a>/0"</span>/imm32 +<span id="L436" class="LineNr"> 436 </span> 68/push <span class="Constant">"label 'x' is at address 0x00007c10."</span>/imm32 +<span id="L437" class="LineNr"> 437 </span> <span class="subxS2Comment"># . . call</span> +<span id="L438" class="LineNr"> 438 </span> e8/call <a href='107trace.subx.html#L248'>check-trace-contains</a>/disp32 +<span id="L439" class="LineNr"> 439 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L440" class="LineNr"> 440 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L441" class="LineNr"> 441 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L442" class="LineNr"> 442 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L443" class="LineNr"> 443 </span> 5d/pop-to-ebp +<span id="L444" class="LineNr"> 444 </span> c3/return +<span id="L445" class="LineNr"> 445 </span> +<span id="L446" class="LineNr"> 446 </span><span class="subxFunction">compute-addresses</span>: <span class="subxComment"># in: (addr stream byte), labels: (addr stream {(handle array byte), address})</span> +<span id="L447" class="LineNr"> 447 </span> <span class="subxComment"># pseudocode:</span> +<span id="L448" class="LineNr"> 448 </span> <span class="subxComment"># var current-address = 0x7c00</span> +<span id="L449" class="LineNr"> 449 </span> <span class="subxComment"># var line: (stream byte 512)</span> +<span id="L450" class="LineNr"> 450 </span> <span class="subxComment"># while true # line loop</span> +<span id="L451" class="LineNr"> 451 </span> <span class="subxComment"># clear-stream(line)</span> +<span id="L452" class="LineNr"> 452 </span> <span class="subxComment"># read-line(in, line)</span> +<span id="L453" class="LineNr"> 453 </span> <span class="subxComment"># if (line->write == 0) break # end of file</span> +<span id="L454" class="LineNr"> 454 </span> <span class="subxComment"># while true # word loop</span> +<span id="L455" class="LineNr"> 455 </span> <span class="subxComment"># word-slice = next-word(line)</span> +<span id="L456" class="LineNr"> 456 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> +<span id="L457" class="LineNr"> 457 </span> <span class="subxComment"># break</span> +<span id="L458" class="LineNr"> 458 </span> <span class="subxComment"># else if slice-starts-with?(word-slice, "#") # comment</span> +<span id="L459" class="LineNr"> 459 </span> <span class="subxComment"># break # end of line</span> +<span id="L460" class="LineNr"> 460 </span> <span class="subxComment"># else if slice-equal?(word-slice, "==") # segment header</span> +<span id="L461" class="LineNr"> 461 </span> <span class="subxComment"># word-slice = next-word(line)</span> +<span id="L462" class="LineNr"> 462 </span> <span class="subxComment"># if slice-empty?(word-slice)</span> +<span id="L463" class="LineNr"> 463 </span> <span class="subxComment"># abort</span> +<span id="L464" class="LineNr"> 464 </span> <span class="subxComment"># word-slice = next-word(line) # segment address</span> +<span id="L465" class="LineNr"> 465 </span> <span class="subxComment"># if slice-empty?(word-slice)</span> +<span id="L466" class="LineNr"> 466 </span> <span class="subxComment"># goto line-loop # segment address is optional</span> +<span id="L467" class="LineNr"> 467 </span> <span class="subxComment"># new-address = parse-hex-int-from-slice(word-slice)</span> +<span id="L468" class="LineNr"> 468 </span> <span class="subxComment"># if new-address < current-address</span> +<span id="L469" class="LineNr"> 469 </span> <span class="subxComment"># abort</span> +<span id="L470" class="LineNr"> 470 </span> <span class="subxComment"># current-address = new-address</span> +<span id="L471" class="LineNr"> 471 </span> <span class="subxComment"># else if label?(word-slice)</span> +<span id="L472" class="LineNr"> 472 </span> <span class="subxComment"># strip trailing ':' from word-slice</span> +<span id="L473" class="LineNr"> 473 </span> <span class="subxComment"># trace("label '" word-slice "' is at address " current-address ".")</span> +<span id="L474" class="LineNr"> 474 </span> <span class="subxComment"># # labels occupy no space, so no need to increment offsets</span> +<span id="L475" class="LineNr"> 475 </span> <span class="subxComment"># else</span> +<span id="L476" class="LineNr"> 476 </span> <span class="subxComment"># width = compute-width-of-slice(word-slice)</span> +<span id="L477" class="LineNr"> 477 </span> <span class="subxComment"># current-address += width</span> +<span id="L478" class="LineNr"> 478 </span> <span class="subxComment">#</span> +<span id="L479" class="LineNr"> 479 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L480" class="LineNr"> 480 </span> 55/push-ebp +<span id="L481" class="LineNr"> 481 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L482" class="LineNr"> 482 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L483" class="LineNr"> 483 </span> 50/push-eax +<span id="L484" class="LineNr"> 484 </span> 51/push-ecx +<span id="L485" class="LineNr"> 485 </span> 52/push-edx +<span id="L486" class="LineNr"> 486 </span> 53/push-ebx +<span id="L487" class="LineNr"> 487 </span> 56/push-esi +<span id="L488" class="LineNr"> 488 </span> 57/push-edi +<span id="L489" class="LineNr"> 489 </span> <span class="subxComment"># var current-address/esi: int = 0x7c00</span> +<span id="L490" class="LineNr"> 490 </span> be/copy-to-esi 0x7c00/imm32 +<span id="L491" class="LineNr"> 491 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> +<span id="L492" class="LineNr"> 492 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x200/imm32 <span class="subxComment"># subtract from esp</span> +<span id="L493" class="LineNr"> 493 </span> 68/push 0x200/imm32/size +<span id="L494" class="LineNr"> 494 </span> 68/push 0/imm32/read +<span id="L495" class="LineNr"> 495 </span> 68/push 0/imm32/write +<span id="L496" class="LineNr"> 496 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L497" class="LineNr"> 497 </span> <span class="subxComment"># var word-slice/edx: (addr slice)</span> +<span id="L498" class="LineNr"> 498 </span> 68/push 0/imm32 +<span id="L499" class="LineNr"> 499 </span> 68/push 0/imm32 +<span id="L500" class="LineNr"> 500 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L501" class="LineNr"> 501 </span><span class="Constant">$compute-addresses:line-loop</span>: +<span id="L502" class="LineNr"> 502 </span> <span class="subxComment"># clear-stream(line)</span> +<span id="L503" class="LineNr"> 503 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L504" class="LineNr"> 504 </span> 51/push-ecx +<span id="L505" class="LineNr"> 505 </span> <span class="subxS2Comment"># . . call</span> +<span id="L506" class="LineNr"> 506 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L507" class="LineNr"> 507 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L508" class="LineNr"> 508 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L509" class="LineNr"> 509 </span> <span class="subxComment"># read-line(in, line)</span> +<span id="L510" class="LineNr"> 510 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L511" class="LineNr"> 511 </span> 51/push-ecx +<span id="L512" class="LineNr"> 512 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L513" class="LineNr"> 513 </span> <span class="subxS2Comment"># . . call</span> +<span id="L514" class="LineNr"> 514 </span> e8/call <a href='122read-line.subx.html#L218'>read-line</a>/disp32 +<span id="L515" class="LineNr"> 515 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L516" class="LineNr"> 516 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L517" class="LineNr"> 517 </span> <span class="subxComment"># if (line->write == 0) break</span> +<span id="L518" class="LineNr"> 518 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> +<span id="L519" class="LineNr"> 519 </span> 3d/compare-eax-and 0/imm32 +<span id="L520" class="LineNr"> 520 </span> 0f 84/jump-if-= $compute-addresses:end/disp32 +<span id="L521" class="Folded"> 521 </span><span class="Folded">+-- 33 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L554" class="LineNr"> 554 </span><span class="Constant">$compute-addresses:word-loop</span>: +<span id="L555" class="LineNr"> 555 </span> <span class="subxComment"># next-word(line, word-slice)</span> +<span id="L556" class="LineNr"> 556 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L557" class="LineNr"> 557 </span> 52/push-edx +<span id="L558" class="LineNr"> 558 </span> 51/push-ecx +<span id="L559" class="LineNr"> 559 </span> <span class="subxS2Comment"># . . call</span> +<span id="L560" class="LineNr"> 560 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L561" class="LineNr"> 561 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L562" class="LineNr"> 562 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L563" class="LineNr"> 563 </span><span class="Constant">$compute-addresses:case-empty</span>: +<span id="L564" class="LineNr"> 564 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> +<span id="L565" class="LineNr"> 565 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> +<span id="L566" class="LineNr"> 566 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L567" class="LineNr"> 567 </span> 52/push-edx +<span id="L568" class="LineNr"> 568 </span> <span class="subxS2Comment"># . . call</span> +<span id="L569" class="LineNr"> 569 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L570" class="LineNr"> 570 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L571" class="LineNr"> 571 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L572" class="LineNr"> 572 </span> <span class="subxS1Comment"># . if (eax != false) break</span> +<span id="L573" class="LineNr"> 573 </span> 3d/compare-eax-and 0/imm32/false +<span id="L574" class="LineNr"> 574 </span> 0f 85/jump-if-!= $compute-addresses:line-loop/disp32 +<span id="L575" class="LineNr"> 575 </span><span class="Constant">$compute-addresses:case-comment</span>: +<span id="L576" class="LineNr"> 576 </span> <span class="subxComment"># if slice-starts-with?(word-slice, "#") break</span> +<span id="L577" class="LineNr"> 577 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L578" class="LineNr"> 578 </span> 68/push <span class="Constant">"#"</span>/imm32 +<span id="L579" class="LineNr"> 579 </span> 52/push-edx +<span id="L580" class="LineNr"> 580 </span> <span class="subxS2Comment"># . . call</span> +<span id="L581" class="LineNr"> 581 </span> e8/call <a href='123slice.subx.html#L487'>slice-starts-with?</a>/disp32 +<span id="L582" class="LineNr"> 582 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L583" class="LineNr"> 583 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L584" class="LineNr"> 584 </span> <span class="subxS1Comment"># . if (eax != false) break</span> +<span id="L585" class="LineNr"> 585 </span> 3d/compare-eax-and 0/imm32/false +<span id="L586" class="LineNr"> 586 </span> 0f 85/jump-if-!= $compute-addresses:line-loop/disp32 +<span id="L587" class="LineNr"> 587 </span><span class="Constant">$compute-addresses:case-segment-header</span>: +<span id="L588" class="LineNr"> 588 </span> <span class="subxComment"># if !slice-equal?(word-slice, "==") goto next case</span> +<span id="L589" class="LineNr"> 589 </span> <span class="subxS1Comment"># . eax = slice-equal?(word-slice, "==")</span> +<span id="L590" class="LineNr"> 590 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L591" class="LineNr"> 591 </span> 68/push <span class="Constant">"=="</span>/imm32 +<span id="L592" class="LineNr"> 592 </span> 52/push-edx +<span id="L593" class="LineNr"> 593 </span> <span class="subxS2Comment"># . . call</span> +<span id="L594" class="LineNr"> 594 </span> e8/call <a href='123slice.subx.html#L120'>slice-equal?</a>/disp32 +<span id="L595" class="LineNr"> 595 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L596" class="LineNr"> 596 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L597" class="LineNr"> 597 </span> <span class="subxS1Comment"># . if (eax != false) break</span> +<span id="L598" class="LineNr"> 598 </span> 3d/compare-eax-and 0/imm32/false +<span id="L599" class="LineNr"> 599 </span> 0f 84/jump-if-= $compute-addresses:case-label/disp32 +<span id="L600" class="LineNr"> 600 </span> <span class="subxComment"># next-word(line, word-slice)</span> +<span id="L601" class="LineNr"> 601 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L602" class="LineNr"> 602 </span> 52/push-edx +<span id="L603" class="LineNr"> 603 </span> 51/push-ecx +<span id="L604" class="LineNr"> 604 </span> <span class="subxS2Comment"># . . call</span> +<span id="L605" class="LineNr"> 605 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L606" class="LineNr"> 606 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L607" class="LineNr"> 607 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L608" class="LineNr"> 608 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> +<span id="L609" class="LineNr"> 609 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> +<span id="L610" class="LineNr"> 610 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L611" class="LineNr"> 611 </span> 52/push-edx +<span id="L612" class="LineNr"> 612 </span> <span class="subxS2Comment"># . . call</span> +<span id="L613" class="LineNr"> 613 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L614" class="LineNr"> 614 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L615" class="LineNr"> 615 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L616" class="LineNr"> 616 </span> <span class="subxS1Comment"># . if (eax != false) abort</span> +<span id="L617" class="LineNr"> 617 </span> 3d/compare-eax-and 0/imm32/false +<span id="L618" class="LineNr"> 618 </span> 0f 85/jump-if-!= $compute-addresses:abort/disp32 +<span id="L619" class="LineNr"> 619 </span> <span class="subxComment"># next-word(line, word-slice)</span> +<span id="L620" class="LineNr"> 620 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L621" class="LineNr"> 621 </span> 52/push-edx +<span id="L622" class="LineNr"> 622 </span> 51/push-ecx +<span id="L623" class="LineNr"> 623 </span> <span class="subxS2Comment"># . . call</span> +<span id="L624" class="LineNr"> 624 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L625" class="LineNr"> 625 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L626" class="LineNr"> 626 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L627" class="LineNr"> 627 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> +<span id="L628" class="LineNr"> 628 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> +<span id="L629" class="LineNr"> 629 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L630" class="LineNr"> 630 </span> 52/push-edx +<span id="L631" class="LineNr"> 631 </span> <span class="subxS2Comment"># . . call</span> +<span id="L632" class="LineNr"> 632 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L633" class="LineNr"> 633 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L634" class="LineNr"> 634 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L635" class="LineNr"> 635 </span> <span class="subxS1Comment"># . if (eax != false) break</span> +<span id="L636" class="LineNr"> 636 </span> 3d/compare-eax-and 0/imm32/false +<span id="L637" class="LineNr"> 637 </span> 0f 85/jump-if-!= $compute-addresses:line-loop/disp32 +<span id="L638" class="LineNr"> 638 </span> <span class="subxComment"># var new-address/eax: int = parse-hex-int-from-slice(word-slice)</span> +<span id="L639" class="LineNr"> 639 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L640" class="LineNr"> 640 </span> 52/push-edx +<span id="L641" class="LineNr"> 641 </span> <span class="subxS2Comment"># . . call</span> +<span id="L642" class="LineNr"> 642 </span> e8/call <a href='118parse-hex-int.subx.html#L387'>parse-hex-int-from-slice</a>/disp32 +<span id="L643" class="LineNr"> 643 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L644" class="LineNr"> 644 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L645" class="LineNr"> 645 </span> <span class="subxComment"># if (new-address < current-address) abort</span> +<span id="L646" class="LineNr"> 646 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with esi</span> +<span id="L647" class="LineNr"> 647 </span> 0f 82/jump-if-addr< $compute-addresses:error-bad-segment-address/disp32 +<span id="L648" class="LineNr"> 648 </span> <span class="subxComment"># current-address = new-address</span> +<span id="L649" class="LineNr"> 649 </span> 89/copy 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to esi</span> +<span id="L650" class="LineNr"> 650 </span> <span class="subxComment"># break</span> +<span id="L651" class="LineNr"> 651 </span> e9/jump $compute-addresses:line-loop/disp32 +<span id="L652" class="LineNr"> 652 </span><span class="Constant">$compute-addresses:case-label</span>: +<span id="L653" class="LineNr"> 653 </span> <span class="subxComment"># if (!label?(word-slice)) goto next case</span> +<span id="L654" class="LineNr"> 654 </span> <span class="subxS1Comment"># . eax = label?(word-slice)</span> <span id="L655" class="LineNr"> 655 </span> <span class="subxS2Comment"># . . push args</span> <span id="L656" class="LineNr"> 656 </span> 52/push-edx <span id="L657" class="LineNr"> 657 </span> <span class="subxS2Comment"># . . call</span> -<span id="L658" class="LineNr"> 658 </span> e8/call <a href='118parse-hex-int.subx.html#L387'>parse-hex-int-from-slice</a>/disp32 +<span id="L658" class="LineNr"> 658 </span> e8/call <a href='128subx-words.subx.html#L535'>label?</a>/disp32 <span id="L659" class="LineNr"> 659 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L660" class="LineNr"> 660 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L661" class="LineNr"> 661 </span> <span class="subxComment"># if (new-address < current-address) abort</span> -<span id="L662" class="LineNr"> 662 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with esi</span> -<span id="L663" class="LineNr"> 663 </span> 0f 82/jump-if-addr< $compute-offsets:error-bad-segment-address/disp32 -<span id="L664" class="LineNr"> 664 </span> <span class="subxComment"># current-address = new-address</span> -<span id="L665" class="LineNr"> 665 </span> 89/copy 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to esi</span> -<span id="L666" class="LineNr"> 666 </span> <span class="subxComment"># break</span> -<span id="L667" class="LineNr"> 667 </span> e9/jump $compute-offsets:line-loop/disp32 -<span id="L668" class="LineNr"> 668 </span><span class="Constant">$compute-offsets:case-label</span>: -<span id="L669" class="LineNr"> 669 </span> <span class="subxComment"># if (!label?(word-slice)) goto next case</span> -<span id="L670" class="LineNr"> 670 </span> <span class="subxS1Comment"># . eax = label?(word-slice)</span> -<span id="L671" class="LineNr"> 671 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L672" class="LineNr"> 672 </span> 52/push-edx -<span id="L673" class="LineNr"> 673 </span> <span class="subxS2Comment"># . . call</span> -<span id="L674" class="LineNr"> 674 </span> e8/call <a href='128subx-words.subx.html#L535'>label?</a>/disp32 -<span id="L675" class="LineNr"> 675 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L676" class="LineNr"> 676 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L677" class="LineNr"> 677 </span> <span class="subxS1Comment"># . if (eax == false) goto next case</span> -<span id="L678" class="LineNr"> 678 </span> 3d/compare-eax-and 0/imm32/false -<span id="L679" class="LineNr"> 679 </span> 0f 84/jump-if-= $compute-offsets:case-default/disp32 -<span id="L680" class="LineNr"> 680 </span> <span class="subxComment"># strip trailing ':' from word-slice</span> -<span id="L681" class="LineNr"> 681 </span> ff 1/subop/decrement 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># decrement *(edx+4)</span> -<span id="L682" class="LineNr"> 682 </span> <span class="subxComment"># var tmp/eax: (addr int) = get-or-insert-slice(labels, word-slice, row-size=12)</span> -<span id="L683" class="LineNr"> 683 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L684" class="LineNr"> 684 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L685" class="LineNr"> 685 </span> 68/push 0xc/imm32/row-size -<span id="L686" class="LineNr"> 686 </span> 52/push-edx -<span id="L687" class="LineNr"> 687 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L688" class="LineNr"> 688 </span> <span class="subxS2Comment"># . . call</span> -<span id="L689" class="LineNr"> 689 </span> e8/call <a href='131table.subx.html#L1022'>get-or-insert-slice</a>/disp32 -<span id="L690" class="LineNr"> 690 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L691" class="LineNr"> 691 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L692" class="LineNr"> 692 </span> <span class="subxComment"># *tmp = current-address</span> -<span id="L693" class="LineNr"> 693 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esi to *eax</span> -<span id="L694" class="LineNr"> 694 </span> <span class="subxComment"># trace-slsns("label '" word-slice "' is at address " current-address ".")</span> -<span id="L695" class="LineNr"> 695 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L696" class="LineNr"> 696 </span> 68/push <span class="Constant">"."</span>/imm32 -<span id="L697" class="LineNr"> 697 </span> 56/push-esi -<span id="L698" class="LineNr"> 698 </span> 68/push <span class="Constant">"' is at address "</span>/imm32 -<span id="L699" class="LineNr"> 699 </span> 52/push-edx -<span id="L700" class="LineNr"> 700 </span> 68/push <span class="Constant">"label '"</span>/imm32 -<span id="L701" class="LineNr"> 701 </span> <span class="subxS2Comment"># . . call</span> -<span id="L702" class="LineNr"> 702 </span> e8/call <a href='survey_baremetal.subx.html#L2729'>trace-slsns</a>/disp32 -<span id="L703" class="LineNr"> 703 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L704" class="LineNr"> 704 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> -<span id="L705" class="LineNr"> 705 </span> <span class="subxComment"># continue</span> -<span id="L706" class="LineNr"> 706 </span> e9/jump $compute-offsets:word-loop/disp32 -<span id="L707" class="LineNr"> 707 </span><span class="Constant">$compute-offsets:case-default</span>: -<span id="L708" class="LineNr"> 708 </span> <span class="subxComment"># width/eax = compute-width-of-slice(word-slice)</span> -<span id="L709" class="LineNr"> 709 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L710" class="LineNr"> 710 </span> 52/push-edx -<span id="L711" class="LineNr"> 711 </span> <span class="subxS2Comment"># . . call</span> -<span id="L712" class="LineNr"> 712 </span> e8/call <a href='133subx-widths.subx.html#L45'>compute-width-of-slice</a>/disp32 -<span id="L713" class="LineNr"> 713 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L714" class="LineNr"> 714 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L715" class="LineNr"> 715 </span> <span class="subxComment"># current-address += width</span> -<span id="L716" class="LineNr"> 716 </span> 01/add 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to *esi</span> -<span id="L717" class="Folded"> 717 </span><span class="Folded">+-- 41 lines: #? # dump segment-offset ----------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L758" class="LineNr"> 758 </span> e9/jump $compute-offsets:word-loop/disp32 -<span id="L759" class="LineNr"> 759 </span><span class="Constant">$compute-offsets:end</span>: -<span id="L760" class="LineNr"> 760 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L761" class="LineNr"> 761 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x214/imm32 <span class="subxComment"># add to esp</span> -<span id="L762" class="LineNr"> 762 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L763" class="LineNr"> 763 </span> 5f/pop-to-edi -<span id="L764" class="LineNr"> 764 </span> 5e/pop-to-esi -<span id="L765" class="LineNr"> 765 </span> 5b/pop-to-ebx -<span id="L766" class="LineNr"> 766 </span> 5a/pop-to-edx -<span id="L767" class="LineNr"> 767 </span> 59/pop-to-ecx -<span id="L768" class="LineNr"> 768 </span> 58/pop-to-eax -<span id="L769" class="LineNr"> 769 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L770" class="LineNr"> 770 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L771" class="LineNr"> 771 </span> 5d/pop-to-ebp -<span id="L772" class="LineNr"> 772 </span> c3/return -<span id="L773" class="LineNr"> 773 </span> -<span id="L774" class="LineNr"> 774 </span><span class="Constant">$compute-offsets:abort</span>: -<span id="L775" class="LineNr"> 775 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> -<span id="L776" class="LineNr"> 776 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L777" class="LineNr"> 777 </span> 68/push <span class="Constant">"'==' must be followed by segment name and optionally an address\n"</span>/imm32 -<span id="L778" class="LineNr"> 778 </span> 68/push 2/imm32/stderr -<span id="L779" class="LineNr"> 779 </span> <span class="subxS2Comment"># . . call</span> -<span id="L780" class="LineNr"> 780 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 -<span id="L781" class="LineNr"> 781 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L782" class="LineNr"> 782 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L783" class="LineNr"> 783 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L784" class="LineNr"> 784 </span> bb/copy-to-ebx 1/imm32 -<span id="L785" class="LineNr"> 785 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 -<span id="L786" class="LineNr"> 786 </span> <span class="subxComment"># never gets here</span> -<span id="L787" class="LineNr"> 787 </span> -<span id="L788" class="LineNr"> 788 </span><span class="Constant">$compute-offsets:error-bad-segment-address</span>: -<span id="L789" class="LineNr"> 789 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> -<span id="L790" class="LineNr"> 790 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L791" class="LineNr"> 791 </span> 68/push <span class="Constant">"'==' specifies an address that implies negative padding\n"</span>/imm32 -<span id="L792" class="LineNr"> 792 </span> 68/push 2/imm32/stderr -<span id="L793" class="LineNr"> 793 </span> <span class="subxS2Comment"># . . call</span> -<span id="L794" class="LineNr"> 794 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 -<span id="L795" class="LineNr"> 795 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L796" class="LineNr"> 796 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L797" class="LineNr"> 797 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L798" class="LineNr"> 798 </span> bb/copy-to-ebx 1/imm32 -<span id="L799" class="LineNr"> 799 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 -<span id="L800" class="LineNr"> 800 </span> <span class="subxComment"># never gets here</span> -<span id="L801" class="LineNr"> 801 </span> -<span id="L802" class="LineNr"> 802 </span><span class="subxTest">test-compute-offsets</span>: -<span id="L803" class="LineNr"> 803 </span> <span class="subxComment"># input:</span> -<span id="L804" class="LineNr"> 804 </span> <span class="subxComment"># == code</span> -<span id="L805" class="LineNr"> 805 </span> <span class="subxComment"># ab x/imm32 # skip comment</span> -<span id="L806" class="LineNr"> 806 </span> <span class="subxComment"># == data</span> -<span id="L807" class="LineNr"> 807 </span> <span class="subxComment"># 00</span> -<span id="L808" class="LineNr"> 808 </span> <span class="subxComment"># x:</span> -<span id="L809" class="LineNr"> 809 </span> <span class="subxComment"># 34</span> -<span id="L810" class="LineNr"> 810 </span> <span class="subxComment">#</span> -<span id="L811" class="LineNr"> 811 </span> <span class="subxComment"># trace contains (in any order):</span> -<span id="L812" class="LineNr"> 812 </span> <span class="subxComment"># label 'x' is at address 0x7c06.</span> -<span id="L813" class="LineNr"> 813 </span> <span class="subxComment">#</span> -<span id="L814" class="LineNr"> 814 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L815" class="LineNr"> 815 </span> 55/push-ebp -<span id="L816" class="LineNr"> 816 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L817" class="LineNr"> 817 </span> <span class="subxComment"># setup</span> -<span id="L818" class="LineNr"> 818 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L819" class="LineNr"> 819 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L820" class="LineNr"> 820 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L821" class="LineNr"> 821 </span> <span class="subxS2Comment"># . . call</span> -<span id="L822" class="LineNr"> 822 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L823" class="LineNr"> 823 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L824" class="LineNr"> 824 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L825" class="LineNr"> 825 </span> <span class="subxComment"># var labels/edx: (stream byte 2*12)</span> -<span id="L826" class="LineNr"> 826 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/imm32 <span class="subxComment"># subtract from esp</span> -<span id="L827" class="LineNr"> 827 </span> 68/push 0x18/imm32/size -<span id="L828" class="LineNr"> 828 </span> 68/push 0/imm32/read -<span id="L829" class="LineNr"> 829 </span> 68/push 0/imm32/write -<span id="L830" class="LineNr"> 830 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> -<span id="L831" class="LineNr"> 831 </span> <span class="subxComment"># initialize input</span> -<span id="L832" class="LineNr"> 832 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== code\n")</span> +<span id="L661" class="LineNr"> 661 </span> <span class="subxS1Comment"># . if (eax == false) goto next case</span> +<span id="L662" class="LineNr"> 662 </span> 3d/compare-eax-and 0/imm32/false +<span id="L663" class="LineNr"> 663 </span> 0f 84/jump-if-= $compute-addresses:case-default/disp32 +<span id="L664" class="LineNr"> 664 </span> <span class="subxComment"># strip trailing ':' from word-slice</span> +<span id="L665" class="LineNr"> 665 </span> ff 1/subop/decrement 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># decrement *(edx+4)</span> +<span id="L666" class="LineNr"> 666 </span> <span class="subxComment"># var tmp/eax: (addr int) = get-or-insert-slice(labels, word-slice, row-size=12)</span> +<span id="L667" class="LineNr"> 667 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L668" class="LineNr"> 668 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L669" class="LineNr"> 669 </span> 68/push 0xc/imm32/row-size +<span id="L670" class="LineNr"> 670 </span> 52/push-edx +<span id="L671" class="LineNr"> 671 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L672" class="LineNr"> 672 </span> <span class="subxS2Comment"># . . call</span> +<span id="L673" class="LineNr"> 673 </span> e8/call <a href='131table.subx.html#L1022'>get-or-insert-slice</a>/disp32 +<span id="L674" class="LineNr"> 674 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L675" class="LineNr"> 675 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L676" class="LineNr"> 676 </span> <span class="subxComment"># *tmp = current-address</span> +<span id="L677" class="LineNr"> 677 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esi to *eax</span> +<span id="L678" class="LineNr"> 678 </span> <span class="subxComment"># trace-slsns("label '" word-slice "' is at address " current-address ".")</span> +<span id="L679" class="LineNr"> 679 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L680" class="LineNr"> 680 </span> 68/push <span class="Constant">"."</span>/imm32 +<span id="L681" class="LineNr"> 681 </span> 56/push-esi +<span id="L682" class="LineNr"> 682 </span> 68/push <span class="Constant">"' is at address "</span>/imm32 +<span id="L683" class="LineNr"> 683 </span> 52/push-edx +<span id="L684" class="LineNr"> 684 </span> 68/push <span class="Constant">"label '"</span>/imm32 +<span id="L685" class="LineNr"> 685 </span> <span class="subxS2Comment"># . . call</span> +<span id="L686" class="LineNr"> 686 </span> e8/call <a href='survey_baremetal.subx.html#L1028'>trace-slsns</a>/disp32 +<span id="L687" class="LineNr"> 687 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L688" class="LineNr"> 688 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> +<span id="L689" class="LineNr"> 689 </span> <span class="subxComment"># continue</span> +<span id="L690" class="LineNr"> 690 </span> e9/jump $compute-addresses:word-loop/disp32 +<span id="L691" class="LineNr"> 691 </span><span class="Constant">$compute-addresses:case-default</span>: +<span id="L692" class="LineNr"> 692 </span> <span class="subxComment"># width/eax = compute-width-of-slice(word-slice)</span> +<span id="L693" class="LineNr"> 693 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L694" class="LineNr"> 694 </span> 52/push-edx +<span id="L695" class="LineNr"> 695 </span> <span class="subxS2Comment"># . . call</span> +<span id="L696" class="LineNr"> 696 </span> e8/call <a href='133subx-widths.subx.html#L45'>compute-width-of-slice</a>/disp32 +<span id="L697" class="LineNr"> 697 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L698" class="LineNr"> 698 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L699" class="LineNr"> 699 </span> <span class="subxComment"># current-address += width</span> +<span id="L700" class="LineNr"> 700 </span> 01/add 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to *esi</span> +<span id="L701" class="Folded"> 701 </span><span class="Folded">+-- 41 lines: #? # dump segment-offset ----------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L742" class="LineNr"> 742 </span> e9/jump $compute-addresses:word-loop/disp32 +<span id="L743" class="LineNr"> 743 </span><span class="Constant">$compute-addresses:end</span>: +<span id="L744" class="LineNr"> 744 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L745" class="LineNr"> 745 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x214/imm32 <span class="subxComment"># add to esp</span> +<span id="L746" class="LineNr"> 746 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L747" class="LineNr"> 747 </span> 5f/pop-to-edi +<span id="L748" class="LineNr"> 748 </span> 5e/pop-to-esi +<span id="L749" class="LineNr"> 749 </span> 5b/pop-to-ebx +<span id="L750" class="LineNr"> 750 </span> 5a/pop-to-edx +<span id="L751" class="LineNr"> 751 </span> 59/pop-to-ecx +<span id="L752" class="LineNr"> 752 </span> 58/pop-to-eax +<span id="L753" class="LineNr"> 753 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L754" class="LineNr"> 754 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L755" class="LineNr"> 755 </span> 5d/pop-to-ebp +<span id="L756" class="LineNr"> 756 </span> c3/return +<span id="L757" class="LineNr"> 757 </span> +<span id="L758" class="LineNr"> 758 </span><span class="Constant">$compute-addresses:abort</span>: +<span id="L759" class="LineNr"> 759 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> +<span id="L760" class="LineNr"> 760 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L761" class="LineNr"> 761 </span> 68/push <span class="Constant">"'==' must be followed by segment name and optionally an address\n"</span>/imm32 +<span id="L762" class="LineNr"> 762 </span> 68/push 2/imm32/stderr +<span id="L763" class="LineNr"> 763 </span> <span class="subxS2Comment"># . . call</span> +<span id="L764" class="LineNr"> 764 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 +<span id="L765" class="LineNr"> 765 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L766" class="LineNr"> 766 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L767" class="LineNr"> 767 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L768" class="LineNr"> 768 </span> bb/copy-to-ebx 1/imm32 +<span id="L769" class="LineNr"> 769 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L770" class="LineNr"> 770 </span> <span class="subxComment"># never gets here</span> +<span id="L771" class="LineNr"> 771 </span> +<span id="L772" class="LineNr"> 772 </span><span class="Constant">$compute-addresses:error-bad-segment-address</span>: +<span id="L773" class="LineNr"> 773 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> +<span id="L774" class="LineNr"> 774 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L775" class="LineNr"> 775 </span> 68/push <span class="Constant">"'==' specifies an address that implies negative padding\n"</span>/imm32 +<span id="L776" class="LineNr"> 776 </span> 68/push 2/imm32/stderr +<span id="L777" class="LineNr"> 777 </span> <span class="subxS2Comment"># . . call</span> +<span id="L778" class="LineNr"> 778 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 +<span id="L779" class="LineNr"> 779 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L780" class="LineNr"> 780 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L781" class="LineNr"> 781 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L782" class="LineNr"> 782 </span> bb/copy-to-ebx 1/imm32 +<span id="L783" class="LineNr"> 783 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L784" class="LineNr"> 784 </span> <span class="subxComment"># never gets here</span> +<span id="L785" class="LineNr"> 785 </span> +<span id="L786" class="LineNr"> 786 </span><span class="subxTest">test-compute-addresses</span>: +<span id="L787" class="LineNr"> 787 </span> <span class="subxComment"># input:</span> +<span id="L788" class="LineNr"> 788 </span> <span class="subxComment"># == code</span> +<span id="L789" class="LineNr"> 789 </span> <span class="subxComment"># ab x/imm32 # skip comment</span> +<span id="L790" class="LineNr"> 790 </span> <span class="subxComment"># == data</span> +<span id="L791" class="LineNr"> 791 </span> <span class="subxComment"># 00</span> +<span id="L792" class="LineNr"> 792 </span> <span class="subxComment"># x:</span> +<span id="L793" class="LineNr"> 793 </span> <span class="subxComment"># 34</span> +<span id="L794" class="LineNr"> 794 </span> <span class="subxComment">#</span> +<span id="L795" class="LineNr"> 795 </span> <span class="subxComment"># trace contains (in any order):</span> +<span id="L796" class="LineNr"> 796 </span> <span class="subxComment"># label 'x' is at address 0x7c06.</span> +<span id="L797" class="LineNr"> 797 </span> <span class="subxComment">#</span> +<span id="L798" class="LineNr"> 798 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L799" class="LineNr"> 799 </span> 55/push-ebp +<span id="L800" class="LineNr"> 800 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L801" class="LineNr"> 801 </span> <span class="subxComment"># setup</span> +<span id="L802" class="LineNr"> 802 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L803" class="LineNr"> 803 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L804" class="LineNr"> 804 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L805" class="LineNr"> 805 </span> <span class="subxS2Comment"># . . call</span> +<span id="L806" class="LineNr"> 806 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L807" class="LineNr"> 807 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L808" class="LineNr"> 808 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L809" class="LineNr"> 809 </span> <span class="subxComment"># var labels/edx: (stream byte 2*12)</span> +<span id="L810" class="LineNr"> 810 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/imm32 <span class="subxComment"># subtract from esp</span> +<span id="L811" class="LineNr"> 811 </span> 68/push 0x18/imm32/size +<span id="L812" class="LineNr"> 812 </span> 68/push 0/imm32/read +<span id="L813" class="LineNr"> 813 </span> 68/push 0/imm32/write +<span id="L814" class="LineNr"> 814 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L815" class="LineNr"> 815 </span> <span class="subxComment"># initialize input</span> +<span id="L816" class="LineNr"> 816 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== code\n")</span> +<span id="L817" class="LineNr"> 817 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L818" class="LineNr"> 818 </span> 68/push <span class="Constant">"== code\n"</span>/imm32 +<span id="L819" class="LineNr"> 819 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L820" class="LineNr"> 820 </span> <span class="subxS2Comment"># . . call</span> +<span id="L821" class="LineNr"> 821 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L822" class="LineNr"> 822 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L823" class="LineNr"> 823 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L824" class="LineNr"> 824 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab x/imm32 # skip comment\n")</span> +<span id="L825" class="LineNr"> 825 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L826" class="LineNr"> 826 </span> 68/push <span class="Constant">"ab x/imm32 # skip comment\n"</span>/imm32 +<span id="L827" class="LineNr"> 827 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L828" class="LineNr"> 828 </span> <span class="subxS2Comment"># . . call</span> +<span id="L829" class="LineNr"> 829 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L830" class="LineNr"> 830 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L831" class="LineNr"> 831 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L832" class="LineNr"> 832 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== data\n")</span> <span id="L833" class="LineNr"> 833 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L834" class="LineNr"> 834 </span> 68/push <span class="Constant">"== code\n"</span>/imm32 +<span id="L834" class="LineNr"> 834 </span> 68/push <span class="Constant">"== data\n"</span>/imm32 <span id="L835" class="LineNr"> 835 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L836" class="LineNr"> 836 </span> <span class="subxS2Comment"># . . call</span> <span id="L837" class="LineNr"> 837 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L838" class="LineNr"> 838 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L839" class="LineNr"> 839 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L840" class="LineNr"> 840 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab x/imm32 # skip comment\n")</span> +<span id="L840" class="LineNr"> 840 </span> <span class="subxS1Comment"># . write(_test-input-stream, "00\n")</span> <span id="L841" class="LineNr"> 841 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L842" class="LineNr"> 842 </span> 68/push <span class="Constant">"ab x/imm32 # skip comment\n"</span>/imm32 +<span id="L842" class="LineNr"> 842 </span> 68/push <span class="Constant">"00\n"</span>/imm32 <span id="L843" class="LineNr"> 843 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L844" class="LineNr"> 844 </span> <span class="subxS2Comment"># . . call</span> <span id="L845" class="LineNr"> 845 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L846" class="LineNr"> 846 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L847" class="LineNr"> 847 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L848" class="LineNr"> 848 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== data\n")</span> +<span id="L848" class="LineNr"> 848 </span> <span class="subxS1Comment"># . write(_test-input-stream, "x:\n")</span> <span id="L849" class="LineNr"> 849 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L850" class="LineNr"> 850 </span> 68/push <span class="Constant">"== data\n"</span>/imm32 +<span id="L850" class="LineNr"> 850 </span> 68/push <span class="Constant">"x:\n"</span>/imm32 <span id="L851" class="LineNr"> 851 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L852" class="LineNr"> 852 </span> <span class="subxS2Comment"># . . call</span> <span id="L853" class="LineNr"> 853 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L854" class="LineNr"> 854 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L855" class="LineNr"> 855 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L856" class="LineNr"> 856 </span> <span class="subxS1Comment"># . write(_test-input-stream, "00\n")</span> +<span id="L856" class="LineNr"> 856 </span> <span class="subxS1Comment"># . write(_test-input-stream, "34\n")</span> <span id="L857" class="LineNr"> 857 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L858" class="LineNr"> 858 </span> 68/push <span class="Constant">"00\n"</span>/imm32 +<span id="L858" class="LineNr"> 858 </span> 68/push <span class="Constant">"34\n"</span>/imm32 <span id="L859" class="LineNr"> 859 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L860" class="LineNr"> 860 </span> <span class="subxS2Comment"># . . call</span> <span id="L861" class="LineNr"> 861 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L862" class="LineNr"> 862 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L863" class="LineNr"> 863 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L864" class="LineNr"> 864 </span> <span class="subxS1Comment"># . write(_test-input-stream, "x:\n")</span> +<span id="L864" class="LineNr"> 864 </span> <span class="subxComment"># compute-addresses(_test-input-stream, labels)</span> <span id="L865" class="LineNr"> 865 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L866" class="LineNr"> 866 </span> 68/push <span class="Constant">"x:\n"</span>/imm32 +<span id="L866" class="LineNr"> 866 </span> 52/push-edx <span id="L867" class="LineNr"> 867 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L868" class="LineNr"> 868 </span> <span class="subxS2Comment"># . . call</span> -<span id="L869" class="LineNr"> 869 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L869" class="LineNr"> 869 </span> e8/call <a href='survey_baremetal.subx.html#L446'>compute-addresses</a>/disp32 <span id="L870" class="LineNr"> 870 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L871" class="LineNr"> 871 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L872" class="LineNr"> 872 </span> <span class="subxS1Comment"># . write(_test-input-stream, "34\n")</span> -<span id="L873" class="LineNr"> 873 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L874" class="LineNr"> 874 </span> 68/push <span class="Constant">"34\n"</span>/imm32 -<span id="L875" class="LineNr"> 875 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L876" class="LineNr"> 876 </span> <span class="subxS2Comment"># . . call</span> -<span id="L877" class="LineNr"> 877 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L878" class="LineNr"> 878 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L879" class="LineNr"> 879 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L880" class="LineNr"> 880 </span> <span class="subxComment"># compute-offsets(_test-input-stream, labels)</span> -<span id="L881" class="LineNr"> 881 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L882" class="LineNr"> 882 </span> 52/push-edx -<span id="L883" class="LineNr"> 883 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L884" class="LineNr"> 884 </span> <span class="subxS2Comment"># . . call</span> -<span id="L885" class="LineNr"> 885 </span> e8/call <a href='survey_baremetal.subx.html#L462'>compute-offsets</a>/disp32 -<span id="L886" class="LineNr"> 886 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L887" class="LineNr"> 887 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L888" class="Folded"> 888 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L914" class="LineNr"> 914 </span> <span class="subxS1Comment"># . check-trace-contains("label 'x' is at address 0x00007c06.", msg)</span> -<span id="L915" class="LineNr"> 915 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L916" class="LineNr"> 916 </span> 68/push <span class="Constant">"F - test-compute-offsets"</span>/imm32 -<span id="L917" class="LineNr"> 917 </span> 68/push <span class="Constant">"label 'x' is at address 0x00007c06."</span>/imm32 -<span id="L918" class="LineNr"> 918 </span> <span class="subxS2Comment"># . . call</span> -<span id="L919" class="LineNr"> 919 </span> e8/call <a href='107trace.subx.html#L248'>check-trace-contains</a>/disp32 -<span id="L920" class="LineNr"> 920 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L921" class="LineNr"> 921 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L922" class="LineNr"> 922 </span> <span class="subxS1Comment"># . check-ints-equal(labels->write, 0xc, msg)</span> -<span id="L923" class="LineNr"> 923 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L924" class="LineNr"> 924 </span> 68/push <span class="Constant">"F - test-compute-offsets-maintains-labels-write-index"</span>/imm32 -<span id="L925" class="LineNr"> 925 </span> 68/push 0xc/imm32/1-entry -<span id="L926" class="LineNr"> 926 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> -<span id="L927" class="LineNr"> 927 </span> <span class="subxS2Comment"># . . call</span> -<span id="L928" class="LineNr"> 928 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L929" class="LineNr"> 929 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L930" class="LineNr"> 930 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L931" class="LineNr"> 931 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L932" class="LineNr"> 932 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x24/imm32 <span class="subxComment"># add to esp</span> -<span id="L933" class="LineNr"> 933 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L934" class="LineNr"> 934 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L935" class="LineNr"> 935 </span> 5d/pop-to-ebp -<span id="L936" class="LineNr"> 936 </span> c3/return -<span id="L937" class="LineNr"> 937 </span> -<span id="L938" class="LineNr"> 938 </span><span class="subxComment"># global scratch space for emit-output</span> -<span id="L939" class="LineNr"> 939 </span>== data -<span id="L940" class="LineNr"> 940 </span> -<span id="L941" class="LineNr"> 941 </span><span class="subxFunction">emit-output:datum</span>: <span class="subxComment"># slice</span> -<span id="L942" class="LineNr"> 942 </span> 0/imm32/start -<span id="L943" class="LineNr"> 943 </span> 0/imm32/end -<span id="L944" class="LineNr"> 944 </span> -<span id="L945" class="LineNr"> 945 </span>== code -<span id="L946" class="LineNr"> 946 </span> -<span id="L947" class="LineNr"> 947 </span><span class="subxFunction">emit-output</span>: <span class="subxComment"># in: (addr stream byte), out: (addr buffered-file), labels: (addr stream {(handle array byte), address})</span> -<span id="L948" class="LineNr"> 948 </span> <span class="subxComment"># pseudocode:</span> -<span id="L949" class="LineNr"> 949 </span> <span class="subxComment"># var address-of-next-instruction = 0x7c00</span> -<span id="L950" class="LineNr"> 950 </span> <span class="subxComment"># var line: (stream byte 512)</span> -<span id="L951" class="LineNr"> 951 </span> <span class="subxComment"># line-loop:</span> -<span id="L952" class="LineNr"> 952 </span> <span class="subxComment"># while true</span> -<span id="L953" class="LineNr"> 953 </span> <span class="subxComment"># clear-stream(line)</span> -<span id="L954" class="LineNr"> 954 </span> <span class="subxComment"># read-line(in, line)</span> -<span id="L955" class="LineNr"> 955 </span> <span class="subxComment"># if (line->write == 0) break # end of file</span> -<span id="L956" class="LineNr"> 956 </span> <span class="subxComment"># address-of-next-instruction += num-bytes(line)</span> -<span id="L957" class="LineNr"> 957 </span> <span class="subxComment"># var far-jump-or-call? = far-jump-or-call?(line)</span> -<span id="L958" class="LineNr"> 958 </span> <span class="subxComment"># rewind-stream(line)</span> -<span id="L959" class="LineNr"> 959 </span> <span class="subxComment"># while true</span> -<span id="L960" class="LineNr"> 960 </span> <span class="subxComment"># var word-slice = next-word(line)</span> -<span id="L961" class="LineNr"> 961 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> -<span id="L962" class="LineNr"> 962 </span> <span class="subxComment"># break</span> -<span id="L963" class="LineNr"> 963 </span> <span class="subxComment"># if slice-starts-with?(word-slice, "#") # comment</span> -<span id="L964" class="LineNr"> 964 </span> <span class="subxComment"># break</span> -<span id="L965" class="LineNr"> 965 </span> <span class="subxComment"># if label?(word-slice) # no need for label declarations anymore</span> -<span id="L966" class="LineNr"> 966 </span> <span class="subxComment"># goto line-loop # don't insert empty lines</span> -<span id="L967" class="LineNr"> 967 </span> <span class="subxComment"># if slice-equal?(word-slice, "==") # no need for segment header lines</span> -<span id="L968" class="LineNr"> 968 </span> <span class="subxComment"># word-slice = next-word(line) # skip segment name</span> -<span id="L969" class="LineNr"> 969 </span> <span class="subxComment"># word-slice = next-word(line)</span> -<span id="L970" class="LineNr"> 970 </span> <span class="subxComment"># if !slice-empty?(word-slice)</span> -<span id="L971" class="LineNr"> 971 </span> <span class="subxComment"># new-address = parse-hex-int-from-slice(word-slice)</span> -<span id="L972" class="LineNr"> 972 </span> <span class="subxComment"># write-buffered(out, "# " address-of-next-instruction "\n")</span> -<span id="L973" class="LineNr"> 973 </span> <span class="subxComment"># while address-of-next-instruction < new-address</span> -<span id="L974" class="LineNr"> 974 </span> <span class="subxComment"># write-buffered("00")</span> -<span id="L975" class="LineNr"> 975 </span> <span class="subxComment"># ++address-of-next-instruction</span> -<span id="L976" class="LineNr"> 976 </span> <span class="subxComment"># write-buffered(out, "# " address-of-next-instruction "\n")</span> -<span id="L977" class="LineNr"> 977 </span> <span class="subxComment"># goto line-loop # don't insert empty lines</span> -<span id="L978" class="LineNr"> 978 </span> <span class="subxComment"># if length(word-slice) == 2</span> -<span id="L979" class="LineNr"> 979 </span> <span class="subxComment"># write-slice-buffered(out, word-slice)</span> -<span id="L980" class="LineNr"> 980 </span> <span class="subxComment"># write-buffered(out, " ")</span> -<span id="L981" class="LineNr"> 981 </span> <span class="subxComment"># continue</span> -<span id="L982" class="LineNr"> 982 </span> <span class="subxComment"># var datum: (addr slice) = next-token-from-slice(word-slice->start, word-slice->end, "/")</span> -<span id="L983" class="LineNr"> 983 </span> <span class="subxComment"># var address: (addr int) = get-slice(labels, datum)</span> -<span id="L984" class="LineNr"> 984 </span> <span class="subxComment"># if has-metadata?(word-slice, "imm8")</span> -<span id="L985" class="LineNr"> 985 </span> <span class="subxComment"># emit(out, *address, 1)</span> -<span id="L986" class="LineNr"> 986 </span> <span class="subxComment"># else if has-metadata?(word-slice, "imm16")</span> -<span id="L987" class="LineNr"> 987 </span> <span class="subxComment"># emit(out, *address, 2)</span> -<span id="L988" class="LineNr"> 988 </span> <span class="subxComment"># else if has-metadata?(word-slice, "imm32")</span> -<span id="L989" class="LineNr"> 989 </span> <span class="subxComment"># emit(out, *address, 4)</span> -<span id="L990" class="LineNr"> 990 </span> <span class="subxComment"># else if has-metadata?(word-slice, "disp8")</span> -<span id="L991" class="LineNr"> 991 </span> <span class="subxComment"># value = *address - address-of-next-instruction</span> -<span id="L992" class="LineNr"> 992 </span> <span class="subxComment"># emit(out, value, 1)</span> -<span id="L993" class="LineNr"> 993 </span> <span class="subxComment"># else if has-metadata?(word-slice, "disp32")</span> -<span id="L994" class="LineNr"> 994 </span> <span class="subxComment"># if far-jump-or-call?</span> -<span id="L995" class="LineNr"> 995 </span> <span class="subxComment"># value = *address - address-of-next-instruction</span> -<span id="L996" class="LineNr"> 996 </span> <span class="subxComment"># else</span> -<span id="L997" class="LineNr"> 997 </span> <span class="subxComment"># value = *address</span> -<span id="L998" class="LineNr"> 998 </span> <span class="subxComment"># emit(out, value, 4)</span> -<span id="L999" class="LineNr"> 999 </span> <span class="subxComment"># else</span> -<span id="L1000" class="LineNr">1000 </span> <span class="subxComment"># abort</span> -<span id="L1001" class="LineNr">1001 </span> <span class="subxComment"># write-buffered(out, "\n")</span> -<span id="L1002" class="LineNr">1002 </span> <span class="subxComment">#</span> -<span id="L1003" class="LineNr">1003 </span> <span class="subxComment"># registers:</span> -<span id="L1004" class="LineNr">1004 </span> <span class="subxComment"># line: ecx</span> -<span id="L1005" class="LineNr">1005 </span> <span class="subxComment"># word-slice: edx</span> -<span id="L1006" class="LineNr">1006 </span> <span class="subxComment"># address-of-next-instruction: ebx</span> -<span id="L1007" class="LineNr">1007 </span> <span class="subxComment"># far-jump-or-call?: edi</span> -<span id="L1008" class="LineNr">1008 </span> <span class="subxComment"># address: esi (inner loop only)</span> -<span id="L1009" class="LineNr">1009 </span> <span class="subxComment"># temporaries: eax, esi (outer loop)</span> -<span id="L1010" class="LineNr">1010 </span> <span class="subxComment">#</span> -<span id="L1011" class="LineNr">1011 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1012" class="LineNr">1012 </span> 55/push-ebp -<span id="L1013" class="LineNr">1013 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1014" class="LineNr">1014 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L1015" class="LineNr">1015 </span> 50/push-eax -<span id="L1016" class="LineNr">1016 </span> 51/push-ecx -<span id="L1017" class="LineNr">1017 </span> 52/push-edx -<span id="L1018" class="LineNr">1018 </span> 53/push-ebx -<span id="L1019" class="LineNr">1019 </span> 56/push-esi -<span id="L1020" class="LineNr">1020 </span> 57/push-edi -<span id="L1021" class="LineNr">1021 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> -<span id="L1022" class="LineNr">1022 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x200/imm32 <span class="subxComment"># subtract from esp</span> -<span id="L1023" class="LineNr">1023 </span> 68/push 0x200/imm32/size -<span id="L1024" class="LineNr">1024 </span> 68/push 0/imm32/read -<span id="L1025" class="LineNr">1025 </span> 68/push 0/imm32/write -<span id="L1026" class="LineNr">1026 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L1027" class="LineNr">1027 </span> <span class="subxComment"># var word-slice/edx: slice</span> -<span id="L1028" class="LineNr">1028 </span> 68/push 0/imm32/end -<span id="L1029" class="LineNr">1029 </span> 68/push 0/imm32/start -<span id="L1030" class="LineNr">1030 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> -<span id="L1031" class="LineNr">1031 </span> <span class="subxComment"># var address-of-next-instruction/ebx = 0x7c00</span> -<span id="L1032" class="LineNr">1032 </span> bb/copy-to-ebx 0x7c00/imm32 -<span id="L1033" class="LineNr">1033 </span><span class="Constant">$emit-output:line-loop</span>: -<span id="L1034" class="LineNr">1034 </span> <span class="subxComment"># clear-stream(line)</span> -<span id="L1035" class="LineNr">1035 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1036" class="LineNr">1036 </span> 51/push-ecx -<span id="L1037" class="LineNr">1037 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1038" class="LineNr">1038 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1039" class="LineNr">1039 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1040" class="LineNr">1040 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1041" class="LineNr">1041 </span> <span class="subxComment"># read-line(in, line)</span> -<span id="L1042" class="LineNr">1042 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1043" class="LineNr">1043 </span> 51/push-ecx -<span id="L1044" class="LineNr">1044 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L1045" class="LineNr">1045 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1046" class="LineNr">1046 </span> e8/call <a href='122read-line.subx.html#L218'>read-line</a>/disp32 -<span id="L1047" class="LineNr">1047 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1048" class="LineNr">1048 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1049" class="Folded">1049 </span><span class="Folded">+-- 33 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1082" class="LineNr">1082 </span><span class="Constant">$emit-output:check-for-end-of-input</span>: -<span id="L1083" class="LineNr">1083 </span> <span class="subxComment"># if (line->write == 0) break</span> -<span id="L1084" class="LineNr">1084 </span> 81 7/subop/compare 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># compare *ecx</span> -<span id="L1085" class="LineNr">1085 </span> 0f 84/jump-if-= $emit-output:end/disp32 -<span id="L1086" class="LineNr">1086 </span> <span class="subxComment"># address-of-next-instruction += num-bytes(line)</span> -<span id="L1087" class="LineNr">1087 </span> <span class="subxS1Comment"># . eax = num-bytes(line)</span> -<span id="L1088" class="LineNr">1088 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1089" class="LineNr">1089 </span> 51/push-ecx -<span id="L1090" class="LineNr">1090 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1091" class="LineNr">1091 </span> e8/call <a href='survey_baremetal.subx.html#L2845'>num-bytes</a>/disp32 -<span id="L1092" class="LineNr">1092 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1093" class="LineNr">1093 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1094" class="LineNr">1094 </span> <span class="subxS1Comment"># . ebx += eax</span> -<span id="L1095" class="LineNr">1095 </span> 01/add 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to ebx</span> -<span id="L1096" class="LineNr">1096 </span> <span class="subxComment"># var far-jump-or-call?/edi: boolean = far-jump-or-call?(line)</span> -<span id="L1097" class="LineNr">1097 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1098" class="LineNr">1098 </span> 51/push-ecx -<span id="L1099" class="LineNr">1099 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1100" class="LineNr">1100 </span> e8/call <a href='survey_baremetal.subx.html#L2518'>far-jump-or-call?</a>/disp32 -<span id="L1101" class="LineNr">1101 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1102" class="LineNr">1102 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1103" class="LineNr">1103 </span> <span class="subxComment"># rewind-stream(line)</span> -<span id="L1104" class="LineNr">1104 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1105" class="LineNr">1105 </span> 51/push-ecx -<span id="L1106" class="LineNr">1106 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1107" class="LineNr">1107 </span> e8/call <a href='106stream.subx.html#L56'>rewind-stream</a>/disp32 -<span id="L1108" class="LineNr">1108 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1109" class="LineNr">1109 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1110" class="LineNr">1110 </span><span class="Constant">$emit-output:word-loop</span>: -<span id="L1111" class="LineNr">1111 </span> <span class="subxComment"># next-word(line, word-slice)</span> -<span id="L1112" class="LineNr">1112 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1113" class="LineNr">1113 </span> 52/push-edx -<span id="L1114" class="LineNr">1114 </span> 51/push-ecx -<span id="L1115" class="LineNr">1115 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1116" class="LineNr">1116 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 -<span id="L1117" class="LineNr">1117 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1118" class="LineNr">1118 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1119" class="Folded">1119 </span><span class="Folded">+-- 33 lines: #? # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1152" class="LineNr">1152 </span><span class="Constant">$emit-output:check-for-end-of-line</span>: -<span id="L1153" class="LineNr">1153 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> -<span id="L1154" class="LineNr">1154 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> -<span id="L1155" class="LineNr">1155 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1156" class="LineNr">1156 </span> 52/push-edx -<span id="L1157" class="LineNr">1157 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1158" class="LineNr">1158 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 -<span id="L1159" class="LineNr">1159 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1160" class="LineNr">1160 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1161" class="LineNr">1161 </span> <span class="subxS1Comment"># . if (eax != 0) break</span> -<span id="L1162" class="LineNr">1162 </span> 3d/compare-eax-and 0/imm32/false -<span id="L1163" class="LineNr">1163 </span> 0f 85/jump-if-!= $emit-output:next-line/disp32 -<span id="L1164" class="LineNr">1164 </span><span class="Constant">$emit-output:check-for-comment</span>: -<span id="L1165" class="LineNr">1165 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) break</span> -<span id="L1166" class="LineNr">1166 </span> <span class="subxS1Comment"># . start/esi = word-slice->start</span> -<span id="L1167" class="LineNr">1167 </span> 8b/copy 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edx to esi</span> -<span id="L1168" class="LineNr">1168 </span> <span class="subxS1Comment"># . c/eax = *start</span> -<span id="L1169" class="LineNr">1169 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> -<span id="L1170" class="LineNr">1170 </span> 8a/copy-byte 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *esi to AL</span> -<span id="L1171" class="LineNr">1171 </span> <span class="subxS1Comment"># . if (eax == '#') break</span> -<span id="L1172" class="LineNr">1172 </span> 3d/compare-eax-and 0x23/imm32/hash -<span id="L1173" class="LineNr">1173 </span> 0f 84/jump-if-= $emit-output:next-line/disp32 -<span id="L1174" class="LineNr">1174 </span><span class="Constant">$emit-output:check-for-label</span>: -<span id="L1175" class="LineNr">1175 </span> <span class="subxComment"># if label?(word-slice) break</span> -<span id="L1176" class="LineNr">1176 </span> <span class="subxS1Comment"># . eax = label?(word-slice)</span> -<span id="L1177" class="LineNr">1177 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1178" class="LineNr">1178 </span> 52/push-edx -<span id="L1179" class="LineNr">1179 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1180" class="LineNr">1180 </span> e8/call <a href='128subx-words.subx.html#L535'>label?</a>/disp32 -<span id="L1181" class="LineNr">1181 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1182" class="LineNr">1182 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1183" class="LineNr">1183 </span> <span class="subxS1Comment"># . if (eax != false) break</span> -<span id="L1184" class="LineNr">1184 </span> 3d/compare-eax-and 0/imm32/false -<span id="L1185" class="LineNr">1185 </span> 0f 85/jump-if-!= $emit-output:line-loop/disp32 -<span id="L1186" class="LineNr">1186 </span><span class="Constant">$emit-output:check-for-segment-header</span>: -<span id="L1187" class="LineNr">1187 </span> <span class="subxComment"># if !slice-equal?(word-slice, "==") goto next check</span> -<span id="L1188" class="LineNr">1188 </span> <span class="subxS1Comment"># . eax = slice-equal?(word-slice, "==")</span> -<span id="L1189" class="LineNr">1189 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1190" class="LineNr">1190 </span> 68/push <span class="Constant">"=="</span>/imm32 -<span id="L1191" class="LineNr">1191 </span> 52/push-edx -<span id="L1192" class="LineNr">1192 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1193" class="LineNr">1193 </span> e8/call <a href='123slice.subx.html#L120'>slice-equal?</a>/disp32 -<span id="L1194" class="LineNr">1194 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1195" class="LineNr">1195 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1196" class="LineNr">1196 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> -<span id="L1197" class="LineNr">1197 </span> 3d/compare-eax-and 0/imm32/false -<span id="L1198" class="LineNr">1198 </span> 0f 84/jump-if-= $emit-output:2-character/disp32 -<span id="L1199" class="LineNr">1199 </span> <span class="subxComment"># skip segment name</span> -<span id="L1200" class="LineNr">1200 </span> <span class="subxS1Comment"># . next-word(line, word-slice)</span> -<span id="L1201" class="LineNr">1201 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1202" class="LineNr">1202 </span> 52/push-edx -<span id="L1203" class="LineNr">1203 </span> 51/push-ecx -<span id="L1204" class="LineNr">1204 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1205" class="LineNr">1205 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 -<span id="L1206" class="LineNr">1206 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1207" class="LineNr">1207 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1208" class="LineNr">1208 </span> <span class="subxComment"># compute segment address if it exists</span> -<span id="L1209" class="LineNr">1209 </span> <span class="subxS1Comment"># . next-word(line, word-slice)</span> -<span id="L1210" class="LineNr">1210 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1211" class="LineNr">1211 </span> 52/push-edx -<span id="L1212" class="LineNr">1212 </span> 51/push-ecx -<span id="L1213" class="LineNr">1213 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1214" class="LineNr">1214 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 -<span id="L1215" class="LineNr">1215 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1216" class="LineNr">1216 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1217" class="LineNr">1217 </span> <span class="subxS1Comment"># . if slice-empty?(word-slice) goto padding-done</span> -<span id="L1218" class="LineNr">1218 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1219" class="LineNr">1219 </span> 52/push-edx -<span id="L1220" class="LineNr">1220 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1221" class="LineNr">1221 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 -<span id="L1222" class="LineNr">1222 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1223" class="LineNr">1223 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1224" class="LineNr">1224 </span> <span class="subxS2Comment"># . .</span> -<span id="L1225" class="LineNr">1225 </span> 3d/compare-eax-and 0/imm32/false -<span id="L1226" class="LineNr">1226 </span> 0f 85/jump-if-!= $emit-output:padding-done/disp32 -<span id="L1227" class="LineNr">1227 </span> <span class="subxS1Comment"># . var new-address/eax: int = parse-hex-int-from-slice(word-slice)</span> -<span id="L1228" class="LineNr">1228 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1229" class="LineNr">1229 </span> 52/push-edx -<span id="L1230" class="LineNr">1230 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1231" class="LineNr">1231 </span> e8/call <a href='118parse-hex-int.subx.html#L387'>parse-hex-int-from-slice</a>/disp32 -<span id="L1232" class="LineNr">1232 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1233" class="LineNr">1233 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1234" class="LineNr">1234 </span> <span class="subxComment"># write-buffered(out, "# " address-of-next-instruction "\n")</span> -<span id="L1235" class="LineNr">1235 </span> <span class="subxS1Comment"># . write-buffered(out, "# ")</span> -<span id="L1236" class="LineNr">1236 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1237" class="LineNr">1237 </span> 68/push <span class="Constant">"# "</span>/imm32 -<span id="L1238" class="LineNr">1238 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L1239" class="LineNr">1239 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1240" class="LineNr">1240 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L1241" class="LineNr">1241 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1242" class="LineNr">1242 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1243" class="LineNr">1243 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, address-of-next-instruction)</span> -<span id="L1244" class="LineNr">1244 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1245" class="LineNr">1245 </span> 53/push-ebx -<span id="L1246" class="LineNr">1246 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L1247" class="LineNr">1247 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1248" class="LineNr">1248 </span> e8/call <a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 -<span id="L1249" class="LineNr">1249 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1250" class="LineNr">1250 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1251" class="LineNr">1251 </span> <span class="subxS1Comment"># . write-buffered(out, "\n")</span> -<span id="L1252" class="LineNr">1252 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1253" class="LineNr">1253 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 -<span id="L1254" class="LineNr">1254 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L1255" class="LineNr">1255 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1256" class="LineNr">1256 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L1257" class="LineNr">1257 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1258" class="LineNr">1258 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1259" class="LineNr">1259 </span><span class="Constant">$emit-output:padding-loop</span>: -<span id="L1260" class="LineNr">1260 </span> <span class="subxComment"># if (address-of-next-instruction >= new-address) goto padding-loop-done</span> -<span id="L1261" class="LineNr">1261 </span> 39/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ebx with eax</span> -<span id="L1262" class="LineNr">1262 </span> 73/jump-if-addr>= $emit-output:padding-loop-done/disp8 -<span id="L1263" class="LineNr">1263 </span> <span class="subxComment"># if (address-of-next-instruction % 8 == 0) write-buffered("\n")</span> -<span id="L1264" class="LineNr">1264 </span> 53/push-ebx -<span id="L1265" class="LineNr">1265 </span> 81 4/subop/and 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/imm32 <span class="subxComment"># bitwise and of ebx</span> -<span id="L1266" class="LineNr">1266 </span> 81 7/subop/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># compare ebx</span> -<span id="L1267" class="LineNr">1267 </span> 5b/pop-to-ebx -<span id="L1268" class="LineNr">1268 </span> 75/jump-if-!= $emit-output:padding-core/disp8 -<span id="L1269" class="LineNr">1269 </span> <span class="subxS1Comment"># . write-buffered(out, "\n")</span> -<span id="L1270" class="LineNr">1270 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1271" class="LineNr">1271 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 -<span id="L1272" class="LineNr">1272 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L1273" class="LineNr">1273 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1274" class="LineNr">1274 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L1275" class="LineNr">1275 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1276" class="LineNr">1276 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1277" class="LineNr">1277 </span><span class="Constant">$emit-output:padding-core</span>: -<span id="L1278" class="LineNr">1278 </span> <span class="subxComment"># write-buffered("00")</span> -<span id="L1279" class="LineNr">1279 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1280" class="LineNr">1280 </span> 68/push <span class="Constant">"00 "</span>/imm32 -<span id="L1281" class="LineNr">1281 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L1282" class="LineNr">1282 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1283" class="LineNr">1283 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L1284" class="LineNr">1284 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1285" class="LineNr">1285 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1286" class="LineNr">1286 </span> <span class="subxComment"># ++address-of-next-instruction</span> -<span id="L1287" class="LineNr">1287 </span> 43/increment-ebx -<span id="L1288" class="LineNr">1288 </span> <span class="subxComment"># loop</span> -<span id="L1289" class="LineNr">1289 </span> eb/jump $emit-output:padding-loop/disp8 -<span id="L1290" class="LineNr">1290 </span><span class="Constant">$emit-output:padding-loop-done</span>: -<span id="L1291" class="LineNr">1291 </span> <span class="subxS1Comment"># . write-buffered(out, "\n")</span> -<span id="L1292" class="LineNr">1292 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1293" class="LineNr">1293 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 -<span id="L1294" class="LineNr">1294 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L1295" class="LineNr">1295 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1296" class="LineNr">1296 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L1297" class="LineNr">1297 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1298" class="LineNr">1298 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1299" class="LineNr">1299 </span><span class="Constant">$emit-output:padding-done</span>: -<span id="L1300" class="LineNr">1300 </span> <span class="subxComment"># write-buffered(out, "# " address-of-next-instruction "\n")</span> -<span id="L1301" class="LineNr">1301 </span> <span class="subxS1Comment"># . write-buffered(out, "# ")</span> -<span id="L1302" class="LineNr">1302 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1303" class="LineNr">1303 </span> 68/push <span class="Constant">"# "</span>/imm32 -<span id="L1304" class="LineNr">1304 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L1305" class="LineNr">1305 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1306" class="LineNr">1306 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L1307" class="LineNr">1307 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1308" class="LineNr">1308 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1309" class="LineNr">1309 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, address-of-next-instruction)</span> -<span id="L1310" class="LineNr">1310 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1311" class="LineNr">1311 </span> 53/push-ebx -<span id="L1312" class="LineNr">1312 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L1313" class="LineNr">1313 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1314" class="LineNr">1314 </span> e8/call <a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 -<span id="L1315" class="LineNr">1315 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1316" class="LineNr">1316 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1317" class="LineNr">1317 </span> <span class="subxS1Comment"># . write-buffered(out, "\n")</span> -<span id="L1318" class="LineNr">1318 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1319" class="LineNr">1319 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 -<span id="L1320" class="LineNr">1320 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L1321" class="LineNr">1321 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1322" class="LineNr">1322 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L1323" class="LineNr">1323 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1324" class="LineNr">1324 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1325" class="LineNr">1325 </span> <span class="subxComment">#</span> -<span id="L1326" class="LineNr">1326 </span> e9/jump $emit-output:line-loop/disp32 -<span id="L1327" class="LineNr">1327 </span><span class="Constant">$emit-output:2-character</span>: -<span id="L1328" class="LineNr">1328 </span> <span class="subxComment"># if (size(word-slice) != 2) goto next check</span> -<span id="L1329" class="LineNr">1329 </span> <span class="subxS1Comment"># . eax = size(word-slice)</span> -<span id="L1330" class="LineNr">1330 </span> 8b/copy 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(edx+4) to eax</span> -<span id="L1331" class="LineNr">1331 </span> 2b/subtract 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract *edx from eax</span> -<span id="L1332" class="LineNr">1332 </span> <span class="subxS1Comment"># . if (eax != 2) goto next check</span> -<span id="L1333" class="LineNr">1333 </span> 3d/compare-eax-and 2/imm32 -<span id="L1334" class="LineNr">1334 </span> 75/jump-if-!= $emit-output:check-metadata/disp8 -<span id="L1335" class="LineNr">1335 </span> <span class="subxComment"># write-slice-buffered(out, word-slice)</span> -<span id="L1336" class="LineNr">1336 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1337" class="LineNr">1337 </span> 52/push-edx -<span id="L1338" class="LineNr">1338 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L1339" class="LineNr">1339 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1340" class="LineNr">1340 </span> e8/call <a href='123slice.subx.html#L908'>write-slice-buffered</a>/disp32 -<span id="L1341" class="LineNr">1341 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1342" class="LineNr">1342 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1343" class="LineNr">1343 </span> <span class="subxComment"># write-buffered(out, " ")</span> -<span id="L1344" class="LineNr">1344 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1345" class="LineNr">1345 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L93'>Space</a></span>/imm32 -<span id="L1346" class="LineNr">1346 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L1347" class="LineNr">1347 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1348" class="LineNr">1348 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L1349" class="LineNr">1349 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1350" class="LineNr">1350 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1351" class="LineNr">1351 </span> <span class="subxComment"># continue</span> -<span id="L1352" class="LineNr">1352 </span> e9/jump $emit-output:word-loop/disp32 -<span id="L1353" class="LineNr">1353 </span><span class="Constant">$emit-output:check-metadata</span>: -<span id="L1354" class="LineNr">1354 </span> <span class="subxH1Comment"># - if we get here, 'word-slice' must be a label to be looked up</span> -<span id="L1355" class="LineNr">1355 </span> <span class="subxComment"># datum = next-token-from-slice(word-slice->start, word-slice->end, "/")</span> -<span id="L1356" class="LineNr">1356 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1357" class="LineNr">1357 </span> 68/push <a href='survey_baremetal.subx.html#L947'>emit-output</a>:datum/imm32 -<span id="L1358" class="LineNr">1358 </span> 68/push 0x2f/imm32/slash -<span id="L1359" class="LineNr">1359 </span> ff 6/subop/push 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edx+4)</span> -<span id="L1360" class="LineNr">1360 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> -<span id="L1361" class="LineNr">1361 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1362" class="LineNr">1362 </span> e8/call <a href='124next-token.subx.html#L163'>next-token-from-slice</a>/disp32 -<span id="L1363" class="LineNr">1363 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1364" class="LineNr">1364 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L1365" class="Folded">1365 </span><span class="Folded">+-- 33 lines: #? # dump datum -------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1398" class="LineNr">1398 </span> <span class="subxComment"># address/esi: (addr int) = get-slice(labels, datum, row-size=12, "label table")</span> -<span id="L1399" class="LineNr">1399 </span> <span class="subxS1Comment"># . eax = get-slice(labels, datum, row-size=24, "label table")</span> -<span id="L1400" class="LineNr">1400 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1401" class="LineNr">1401 </span> 68/push <span class="Constant">"label table"</span>/imm32 -<span id="L1402" class="LineNr">1402 </span> 68/push 0xc/imm32/row-size -<span id="L1403" class="LineNr">1403 </span> 68/push <a href='survey_baremetal.subx.html#L947'>emit-output</a>:datum/imm32 -<span id="L1404" class="LineNr">1404 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> -<span id="L1405" class="LineNr">1405 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1406" class="LineNr">1406 </span> e8/call <a href='131table.subx.html#L210'>get-slice</a>/disp32 -<span id="L1407" class="LineNr">1407 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1408" class="LineNr">1408 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L1409" class="LineNr">1409 </span> <span class="subxS1Comment"># . esi = eax</span> -<span id="L1410" class="LineNr">1410 </span> 89/copy 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to esi</span> -<span id="L1411" class="LineNr">1411 </span><span class="Constant">$emit-output:check-imm8</span>: -<span id="L1412" class="LineNr">1412 </span> <span class="subxComment"># if (!has-metadata?(word-slice, "imm8")) goto next check</span> -<span id="L1413" class="LineNr">1413 </span> <span class="subxS1Comment"># . eax = has-metadata?(edx, "imm8")</span> -<span id="L1414" class="LineNr">1414 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1415" class="LineNr">1415 </span> 68/push <span class="Constant">"imm8"</span>/imm32 -<span id="L1416" class="LineNr">1416 </span> 52/push-edx -<span id="L1417" class="LineNr">1417 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1418" class="LineNr">1418 </span> e8/call <a href='128subx-words.subx.html#L8'>has-metadata?</a>/disp32 -<span id="L1419" class="LineNr">1419 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1420" class="LineNr">1420 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1421" class="LineNr">1421 </span> <span class="subxS1Comment"># . if (eax != false) abort</span> -<span id="L1422" class="LineNr">1422 </span> 3d/compare-eax-and 0/imm32/false -<span id="L1423" class="LineNr">1423 </span> 74/jump-if-= $emit-output:check-imm16/disp8 -<span id="L1424" class="LineNr">1424 </span><span class="Constant">$emit-output:emit-imm8</span>: -<span id="L1425" class="LineNr">1425 </span> <span class="subxComment"># emit-hex(out, *address, 1)</span> -<span id="L1426" class="LineNr">1426 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1427" class="LineNr">1427 </span> 68/push 1/imm32 -<span id="L1428" class="LineNr">1428 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> -<span id="L1429" class="LineNr">1429 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L1430" class="LineNr">1430 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1431" class="LineNr">1431 </span> e8/call <a href='129emit-hex.subx.html#L7'>emit-hex</a>/disp32 -<span id="L1432" class="LineNr">1432 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1433" class="LineNr">1433 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1434" class="LineNr">1434 </span> <span class="subxComment"># continue</span> -<span id="L1435" class="LineNr">1435 </span> e9/jump $emit-output:word-loop/disp32 -<span id="L1436" class="LineNr">1436 </span><span class="Constant">$emit-output:check-imm16</span>: -<span id="L1437" class="LineNr">1437 </span> <span class="subxComment"># if (!has-metadata?(word-slice, "imm16")) goto next check</span> -<span id="L1438" class="LineNr">1438 </span> <span class="subxS1Comment"># . eax = has-metadata?(edx, "imm16")</span> -<span id="L1439" class="LineNr">1439 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1440" class="LineNr">1440 </span> 68/push <span class="Constant">"imm16"</span>/imm32 -<span id="L1441" class="LineNr">1441 </span> 52/push-edx -<span id="L1442" class="LineNr">1442 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1443" class="LineNr">1443 </span> e8/call <a href='128subx-words.subx.html#L8'>has-metadata?</a>/disp32 -<span id="L1444" class="LineNr">1444 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1445" class="LineNr">1445 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1446" class="LineNr">1446 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> -<span id="L1447" class="LineNr">1447 </span> 3d/compare-eax-and 0/imm32/false -<span id="L1448" class="LineNr">1448 </span> 74/jump-if-= $emit-output:check-imm32/disp8 -<span id="L1449" class="Folded">1449 </span><span class="Folded">+-- 33 lines: #? # dump *address ----------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1482" class="LineNr">1482 </span><span class="Constant">$emit-output:emit-imm16</span>: -<span id="L1483" class="LineNr">1483 </span> <span class="subxComment"># emit-hex(out, *address, 2)</span> -<span id="L1484" class="LineNr">1484 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1485" class="LineNr">1485 </span> 68/push 2/imm32 -<span id="L1486" class="LineNr">1486 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> -<span id="L1487" class="LineNr">1487 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L1488" class="LineNr">1488 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1489" class="LineNr">1489 </span> e8/call <a href='129emit-hex.subx.html#L7'>emit-hex</a>/disp32 -<span id="L1490" class="LineNr">1490 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1491" class="LineNr">1491 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1492" class="LineNr">1492 </span> <span class="subxComment"># TODO: ensure that the higher 2 bytes are zero</span> -<span id="L1493" class="LineNr">1493 </span> <span class="subxComment"># continue</span> -<span id="L1494" class="LineNr">1494 </span> e9/jump $emit-output:word-loop/disp32 -<span id="L1495" class="LineNr">1495 </span><span class="Constant">$emit-output:check-imm32</span>: -<span id="L1496" class="LineNr">1496 </span> <span class="subxComment"># if (!has-metadata?(word-slice, "imm32")) goto next check</span> -<span id="L1497" class="LineNr">1497 </span> <span class="subxS1Comment"># . eax = has-metadata?(edx, "imm32")</span> -<span id="L1498" class="LineNr">1498 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1499" class="LineNr">1499 </span> 68/push <span class="Constant">"imm32"</span>/imm32 -<span id="L1500" class="LineNr">1500 </span> 52/push-edx -<span id="L1501" class="LineNr">1501 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1502" class="LineNr">1502 </span> e8/call <a href='128subx-words.subx.html#L8'>has-metadata?</a>/disp32 -<span id="L1503" class="LineNr">1503 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1504" class="LineNr">1504 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1505" class="LineNr">1505 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> -<span id="L1506" class="LineNr">1506 </span> 3d/compare-eax-and 0/imm32/false -<span id="L1507" class="LineNr">1507 </span> 74/jump-if-= $emit-output:check-disp8/disp8 -<span id="L1508" class="Folded">1508 </span><span class="Folded">+-- 33 lines: #? # dump *address ----------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1541" class="LineNr">1541 </span><span class="Constant">$emit-output:emit-imm32</span>: -<span id="L1542" class="LineNr">1542 </span> <span class="subxComment"># emit-hex(out, *address, 4)</span> -<span id="L1543" class="LineNr">1543 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1544" class="LineNr">1544 </span> 68/push 4/imm32 -<span id="L1545" class="LineNr">1545 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> -<span id="L1546" class="LineNr">1546 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L1547" class="LineNr">1547 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1548" class="LineNr">1548 </span> e8/call <a href='129emit-hex.subx.html#L7'>emit-hex</a>/disp32 -<span id="L1549" class="LineNr">1549 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1550" class="LineNr">1550 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1551" class="LineNr">1551 </span> <span class="subxComment"># continue</span> -<span id="L1552" class="LineNr">1552 </span> e9/jump $emit-output:word-loop/disp32 -<span id="L1553" class="LineNr">1553 </span><span class="Constant">$emit-output:check-disp8</span>: -<span id="L1554" class="LineNr">1554 </span> <span class="subxComment"># if (!has-metadata?(word-slice, "disp8")) goto next check</span> -<span id="L1555" class="LineNr">1555 </span> <span class="subxS1Comment"># . eax = has-metadata?(edx, "disp8")</span> -<span id="L1556" class="LineNr">1556 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1557" class="LineNr">1557 </span> 68/push <span class="Constant">"disp8"</span>/imm32 -<span id="L1558" class="LineNr">1558 </span> 52/push-edx -<span id="L1559" class="LineNr">1559 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1560" class="LineNr">1560 </span> e8/call <a href='128subx-words.subx.html#L8'>has-metadata?</a>/disp32 -<span id="L1561" class="LineNr">1561 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1562" class="LineNr">1562 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1563" class="LineNr">1563 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> -<span id="L1564" class="LineNr">1564 </span> 3d/compare-eax-and 0/imm32/false -<span id="L1565" class="LineNr">1565 </span> 74/jump-if-= $emit-output:check-disp16/disp8 -<span id="L1566" class="LineNr">1566 </span><span class="Constant">$emit-output:emit-disp8</span>: -<span id="L1567" class="LineNr">1567 </span> <span class="subxComment"># emit-hex(out, *address - address-of-next-instruction, 1)</span> -<span id="L1568" class="LineNr">1568 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1569" class="LineNr">1569 </span> 68/push 1/imm32 -<span id="L1570" class="LineNr">1570 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> -<span id="L1571" class="LineNr">1571 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ebx from eax</span> -<span id="L1572" class="LineNr">1572 </span> 50/push-eax -<span id="L1573" class="LineNr">1573 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L1574" class="LineNr">1574 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1575" class="LineNr">1575 </span> e8/call <a href='129emit-hex.subx.html#L7'>emit-hex</a>/disp32 -<span id="L1576" class="LineNr">1576 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1577" class="LineNr">1577 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1578" class="LineNr">1578 </span> <span class="subxComment"># continue</span> -<span id="L1579" class="LineNr">1579 </span> e9/jump $emit-output:word-loop/disp32 -<span id="L1580" class="LineNr">1580 </span><span class="Constant">$emit-output:check-disp16</span>: -<span id="L1581" class="LineNr">1581 </span> <span class="subxComment"># if (!has-metadata?(word-slice, "disp16")) goto next check</span> -<span id="L1582" class="LineNr">1582 </span> <span class="subxS1Comment"># . eax = has-metadata?(edx, "disp16")</span> -<span id="L1583" class="LineNr">1583 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1584" class="LineNr">1584 </span> 68/push <span class="Constant">"disp16"</span>/imm32 -<span id="L1585" class="LineNr">1585 </span> 52/push-edx -<span id="L1586" class="LineNr">1586 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1587" class="LineNr">1587 </span> e8/call <a href='128subx-words.subx.html#L8'>has-metadata?</a>/disp32 -<span id="L1588" class="LineNr">1588 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1589" class="LineNr">1589 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1590" class="LineNr">1590 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> -<span id="L1591" class="LineNr">1591 </span> 3d/compare-eax-and 0/imm32/false -<span id="L1592" class="LineNr">1592 </span> 74/jump-if-= $emit-output:check-disp32/disp8 -<span id="L1593" class="LineNr">1593 </span><span class="Constant">$emit-output:emit-disp16</span>: -<span id="L1594" class="LineNr">1594 </span> <span class="subxComment"># emit-hex(out, *address - address-of-next-instruction, 2)</span> -<span id="L1595" class="LineNr">1595 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1596" class="LineNr">1596 </span> 68/push 2/imm32 -<span id="L1597" class="LineNr">1597 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> -<span id="L1598" class="LineNr">1598 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ebx from eax</span> -<span id="L1599" class="LineNr">1599 </span> 50/push-eax -<span id="L1600" class="LineNr">1600 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L1601" class="LineNr">1601 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1602" class="LineNr">1602 </span> e8/call <a href='129emit-hex.subx.html#L7'>emit-hex</a>/disp32 -<span id="L1603" class="LineNr">1603 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1604" class="LineNr">1604 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1605" class="LineNr">1605 </span> <span class="subxComment"># continue</span> -<span id="L1606" class="LineNr">1606 </span> e9/jump $emit-output:word-loop/disp32 -<span id="L1607" class="LineNr">1607 </span><span class="Constant">$emit-output:check-disp32</span>: -<span id="L1608" class="LineNr">1608 </span> <span class="subxComment"># if (!has-metadata?(word-slice, "disp32")) abort</span> -<span id="L1609" class="LineNr">1609 </span> <span class="subxS1Comment"># . eax = has-metadata?(edx, "disp32")</span> -<span id="L1610" class="LineNr">1610 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1611" class="LineNr">1611 </span> 68/push <span class="Constant">"disp32"</span>/imm32 -<span id="L1612" class="LineNr">1612 </span> 52/push-edx -<span id="L1613" class="LineNr">1613 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1614" class="LineNr">1614 </span> e8/call <a href='128subx-words.subx.html#L8'>has-metadata?</a>/disp32 -<span id="L1615" class="LineNr">1615 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1616" class="LineNr">1616 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1617" class="LineNr">1617 </span> <span class="subxS1Comment"># . if (eax == false) abort</span> -<span id="L1618" class="LineNr">1618 </span> 3d/compare-eax-and 0/imm32/false -<span id="L1619" class="LineNr">1619 </span> 0f 84/jump-if-= $emit-output:abort/disp32 -<span id="L1620" class="LineNr">1620 </span><span class="Constant">$emit-output:emit-disp32</span>: -<span id="L1621" class="LineNr">1621 </span> <span class="subxComment"># var value/eax = *address</span> -<span id="L1622" class="LineNr">1622 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> -<span id="L1623" class="LineNr">1623 </span> <span class="subxComment"># if (far-jump-or-call?) value -= address-of-next-instruction</span> -<span id="L1624" class="LineNr">1624 </span> 81 7/subop/compare 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32/false <span class="subxComment"># compare edi</span> -<span id="L1625" class="LineNr">1625 </span> 74/jump-if-= $emit-output:really-emit-disp32/disp8 -<span id="L1626" class="LineNr">1626 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ebx from eax</span> -<span id="L1627" class="LineNr">1627 </span><span class="Constant">$emit-output:really-emit-disp32</span>: -<span id="L1628" class="LineNr">1628 </span> <span class="subxComment"># emit-hex(out, value, 4)</span> -<span id="L1629" class="LineNr">1629 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1630" class="LineNr">1630 </span> 68/push 4/imm32 -<span id="L1631" class="LineNr">1631 </span> 50/push-eax -<span id="L1632" class="LineNr">1632 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L1633" class="LineNr">1633 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1634" class="LineNr">1634 </span> e8/call <a href='129emit-hex.subx.html#L7'>emit-hex</a>/disp32 -<span id="L1635" class="LineNr">1635 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1636" class="LineNr">1636 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1637" class="LineNr">1637 </span> <span class="subxComment"># continue</span> -<span id="L1638" class="LineNr">1638 </span> e9/jump $emit-output:word-loop/disp32 -<span id="L1639" class="LineNr">1639 </span><span class="Constant">$emit-output:next-line</span>: -<span id="L1640" class="LineNr">1640 </span> <span class="subxComment"># write-buffered(out, "\n")</span> -<span id="L1641" class="LineNr">1641 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1642" class="LineNr">1642 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 -<span id="L1643" class="LineNr">1643 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L1644" class="LineNr">1644 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1645" class="LineNr">1645 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L1646" class="LineNr">1646 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1647" class="LineNr">1647 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1648" class="LineNr">1648 </span> <span class="subxComment"># loop</span> -<span id="L1649" class="LineNr">1649 </span> e9/jump $emit-output:line-loop/disp32 -<span id="L1650" class="LineNr">1650 </span><span class="Constant">$emit-output:end</span>: -<span id="L1651" class="LineNr">1651 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L1652" class="LineNr">1652 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x214/imm32 <span class="subxComment"># add to esp</span> -<span id="L1653" class="LineNr">1653 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L1654" class="LineNr">1654 </span> 5f/pop-to-edi -<span id="L1655" class="LineNr">1655 </span> 5e/pop-to-esi -<span id="L1656" class="LineNr">1656 </span> 5b/pop-to-ebx -<span id="L1657" class="LineNr">1657 </span> 5a/pop-to-edx -<span id="L1658" class="LineNr">1658 </span> 59/pop-to-ecx -<span id="L1659" class="LineNr">1659 </span> 58/pop-to-eax -<span id="L1660" class="LineNr">1660 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1661" class="LineNr">1661 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1662" class="LineNr">1662 </span> 5d/pop-to-ebp -<span id="L1663" class="LineNr">1663 </span> c3/return -<span id="L1664" class="LineNr">1664 </span> -<span id="L1665" class="LineNr">1665 </span><span class="Constant">$emit-output:abort</span>: -<span id="L1666" class="LineNr">1666 </span> <span class="subxComment"># print(stderr, "missing metadata in " word-slice)</span> -<span id="L1667" class="LineNr">1667 </span> <span class="subxS1Comment"># . _write(2/stderr, "missing metadata in word ")</span> -<span id="L1668" class="LineNr">1668 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1669" class="LineNr">1669 </span> 68/push <span class="Constant">"emit-output: missing metadata in "</span>/imm32 -<span id="L1670" class="LineNr">1670 </span> 68/push 2/imm32/stderr -<span id="L1671" class="LineNr">1671 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1672" class="LineNr">1672 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 -<span id="L1673" class="LineNr">1673 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1674" class="LineNr">1674 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1675" class="LineNr">1675 </span> <span class="subxS1Comment"># . write-slice-buffered(Stderr, word-slice)</span> -<span id="L1676" class="LineNr">1676 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1677" class="LineNr">1677 </span> 52/push-edx -<span id="L1678" class="LineNr">1678 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L1679" class="LineNr">1679 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1680" class="LineNr">1680 </span> e8/call <a href='123slice.subx.html#L908'>write-slice-buffered</a>/disp32 -<span id="L1681" class="LineNr">1681 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1682" class="LineNr">1682 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1683" class="LineNr">1683 </span> <span class="subxS1Comment"># . flush(Stderr)</span> -<span id="L1684" class="LineNr">1684 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1685" class="LineNr">1685 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L1686" class="LineNr">1686 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1687" class="LineNr">1687 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L1688" class="LineNr">1688 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1689" class="LineNr">1689 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1690" class="LineNr">1690 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L1691" class="LineNr">1691 </span> bb/copy-to-ebx 1/imm32 -<span id="L1692" class="LineNr">1692 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 -<span id="L1693" class="LineNr">1693 </span> <span class="subxComment"># never gets here</span> -<span id="L1694" class="LineNr">1694 </span> -<span id="L1695" class="LineNr">1695 </span><span class="subxTest">test-emit-output-non-far-control-flow</span>: -<span id="L1696" class="LineNr">1696 </span> <span class="subxComment"># labels turn into absolute addresses if opcodes are not far jumps or calls</span> -<span id="L1697" class="LineNr">1697 </span> <span class="subxComment">#</span> -<span id="L1698" class="LineNr">1698 </span> <span class="subxComment"># input:</span> -<span id="L1699" class="LineNr">1699 </span> <span class="subxComment"># in:</span> -<span id="L1700" class="LineNr">1700 </span> <span class="subxComment"># == code</span> -<span id="L1701" class="LineNr">1701 </span> <span class="subxComment"># ab cd ef gh</span> -<span id="L1702" class="LineNr">1702 </span> <span class="subxComment"># ij x/disp32</span> -<span id="L1703" class="LineNr">1703 </span> <span class="subxComment"># == data</span> -<span id="L1704" class="LineNr">1704 </span> <span class="subxComment"># 00</span> -<span id="L1705" class="LineNr">1705 </span> <span class="subxComment"># 34</span> -<span id="L1706" class="LineNr">1706 </span> <span class="subxComment"># labels:</span> -<span id="L1707" class="LineNr">1707 </span> <span class="subxComment"># - 'x': 0x11223344</span> -<span id="L1708" class="LineNr">1708 </span> <span class="subxComment">#</span> -<span id="L1709" class="LineNr">1709 </span> <span class="subxComment"># output:</span> -<span id="L1710" class="LineNr">1710 </span> <span class="subxComment"># ab cd ef gh</span> -<span id="L1711" class="LineNr">1711 </span> <span class="subxComment"># ij 44 33 22 11</span> -<span id="L1712" class="LineNr">1712 </span> <span class="subxComment"># 00</span> -<span id="L1713" class="LineNr">1713 </span> <span class="subxComment"># 34</span> -<span id="L1714" class="LineNr">1714 </span> <span class="subxComment">#</span> -<span id="L1715" class="LineNr">1715 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1716" class="LineNr">1716 </span> 55/push-ebp -<span id="L1717" class="LineNr">1717 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1718" class="LineNr">1718 </span> <span class="subxComment"># setup</span> -<span id="L1719" class="LineNr">1719 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L1720" class="LineNr">1720 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1721" class="LineNr">1721 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1722" class="LineNr">1722 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1723" class="LineNr">1723 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1724" class="LineNr">1724 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1725" class="LineNr">1725 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1726" class="LineNr">1726 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L1727" class="LineNr">1727 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1728" class="LineNr">1728 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L1729" class="LineNr">1729 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1730" class="LineNr">1730 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1731" class="LineNr">1731 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1732" class="LineNr">1732 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1733" class="LineNr">1733 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L1734" class="LineNr">1734 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1735" class="LineNr">1735 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L1736" class="LineNr">1736 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1737" class="LineNr">1737 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1738" class="LineNr">1738 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1739" class="LineNr">1739 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1740" class="LineNr">1740 </span> <span class="subxS1Comment"># . var labels/edx: (stream byte 8*24)</span> -<span id="L1741" class="LineNr">1741 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc0/imm32 <span class="subxComment"># subtract from esp</span> -<span id="L1742" class="LineNr">1742 </span> 68/push 0xc0/imm32/size -<span id="L1743" class="LineNr">1743 </span> 68/push 0/imm32/read -<span id="L1744" class="LineNr">1744 </span> 68/push 0/imm32/write -<span id="L1745" class="LineNr">1745 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> -<span id="L1746" class="LineNr">1746 </span> <span class="subxS1Comment"># . var h/ebx: (handle array byte)</span> -<span id="L1747" class="LineNr">1747 </span> 68/push 0/imm32 -<span id="L1748" class="LineNr">1748 </span> 68/push 0/imm32 -<span id="L1749" class="LineNr">1749 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> -<span id="L1750" class="LineNr">1750 </span> <span class="subxComment"># initialize input</span> -<span id="L1751" class="LineNr">1751 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== code\n")</span> -<span id="L1752" class="LineNr">1752 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1753" class="LineNr">1753 </span> 68/push <span class="Constant">"== code\n"</span>/imm32 -<span id="L1754" class="LineNr">1754 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1755" class="LineNr">1755 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1756" class="LineNr">1756 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L1757" class="LineNr">1757 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1758" class="LineNr">1758 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1759" class="LineNr">1759 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab cd ef gh\n")</span> -<span id="L1760" class="LineNr">1760 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1761" class="LineNr">1761 </span> 68/push <span class="Constant">"ab cd ef gh\n"</span>/imm32 -<span id="L1762" class="LineNr">1762 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1763" class="LineNr">1763 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1764" class="LineNr">1764 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L1765" class="LineNr">1765 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1766" class="LineNr">1766 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1767" class="LineNr">1767 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ij x/disp32\n")</span> -<span id="L1768" class="LineNr">1768 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1769" class="LineNr">1769 </span> 68/push <span class="Constant">"ij x/disp32\n"</span>/imm32 -<span id="L1770" class="LineNr">1770 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1771" class="LineNr">1771 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1772" class="LineNr">1772 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L1773" class="LineNr">1773 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1774" class="LineNr">1774 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1775" class="LineNr">1775 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== data\n")</span> -<span id="L1776" class="LineNr">1776 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1777" class="LineNr">1777 </span> 68/push <span class="Constant">"== data\n"</span>/imm32 -<span id="L1778" class="LineNr">1778 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1779" class="LineNr">1779 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1780" class="LineNr">1780 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L1781" class="LineNr">1781 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1782" class="LineNr">1782 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1783" class="LineNr">1783 </span> <span class="subxS1Comment"># . write(_test-input-stream, "00\n")</span> -<span id="L1784" class="LineNr">1784 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1785" class="LineNr">1785 </span> 68/push <span class="Constant">"00\n"</span>/imm32 -<span id="L1786" class="LineNr">1786 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1787" class="LineNr">1787 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1788" class="LineNr">1788 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L1789" class="LineNr">1789 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1790" class="LineNr">1790 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1791" class="LineNr">1791 </span> <span class="subxS1Comment"># . write(_test-input-stream, "34\n")</span> -<span id="L1792" class="LineNr">1792 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1793" class="LineNr">1793 </span> 68/push <span class="Constant">"34\n"</span>/imm32 -<span id="L1794" class="LineNr">1794 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1795" class="LineNr">1795 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1796" class="LineNr">1796 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L1797" class="LineNr">1797 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1798" class="LineNr">1798 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1799" class="LineNr">1799 </span> <span class="subxS1Comment"># . stream-add2(labels, "x", 0x11223344)</span> -<span id="L1800" class="LineNr">1800 </span> 68/push 0x11223344/imm32/label-address -<span id="L1801" class="LineNr">1801 </span> <span class="subxS2Comment"># . . push handle for "x"</span> -<span id="L1802" class="LineNr">1802 </span> 53/push-ebx -<span id="L1803" class="LineNr">1803 </span> 68/push <span class="Constant">"x"</span>/imm32 -<span id="L1804" class="LineNr">1804 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L1805" class="LineNr">1805 </span> e8/call <a href='120allocate.subx.html#L720'>copy-array</a>/disp32 -<span id="L1806" class="LineNr">1806 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1807" class="LineNr">1807 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> -<span id="L1808" class="LineNr">1808 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> -<span id="L1809" class="LineNr">1809 </span> <span class="subxS2Comment"># . . push labels</span> -<span id="L1810" class="LineNr">1810 </span> 52/push-edx -<span id="L1811" class="LineNr">1811 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1812" class="LineNr">1812 </span> e8/call <a href='survey_baremetal.subx.html#L2652'>stream-add2</a>/disp32 -<span id="L1813" class="LineNr">1813 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1814" class="LineNr">1814 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L1815" class="LineNr">1815 </span> <span class="subxComment"># component under test</span> -<span id="L1816" class="LineNr">1816 </span> <span class="subxS1Comment"># . emit-output(_test-input-stream, _test-output-buffered-file, labels)</span> -<span id="L1817" class="LineNr">1817 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1818" class="LineNr">1818 </span> 52/push-edx -<span id="L1819" class="LineNr">1819 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 -<span id="L1820" class="LineNr">1820 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1821" class="LineNr">1821 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1822" class="LineNr">1822 </span> e8/call <a href='survey_baremetal.subx.html#L947'>emit-output</a>/disp32 -<span id="L1823" class="LineNr">1823 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1824" class="LineNr">1824 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1825" class="LineNr">1825 </span> <span class="subxComment"># checks</span> -<span id="L1826" class="LineNr">1826 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L1827" class="LineNr">1827 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1828" class="LineNr">1828 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 -<span id="L1829" class="LineNr">1829 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1830" class="LineNr">1830 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L1831" class="LineNr">1831 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1832" class="LineNr">1832 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1833" class="Folded">1833 </span><span class="Folded">+-- 33 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1866" class="LineNr">1866 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "# 0x00007c00", msg)</span> -<span id="L1867" class="LineNr">1867 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1868" class="LineNr">1868 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L1695'>test-emit-output-non-far-control-flow</a>/0"</span>/imm32 -<span id="L1869" class="LineNr">1869 </span> 68/push <span class="Constant">"# 0x00007c00"</span>/imm32 -<span id="L1870" class="LineNr">1870 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L1871" class="LineNr">1871 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1872" class="LineNr">1872 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 -<span id="L1873" class="LineNr">1873 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1874" class="LineNr">1874 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1875" class="LineNr">1875 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ab cd ef gh ", msg)</span> -<span id="L1876" class="LineNr">1876 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1877" class="LineNr">1877 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L1695'>test-emit-output-non-far-control-flow</a>/1"</span>/imm32 -<span id="L1878" class="LineNr">1878 </span> 68/push <span class="Constant">"ab cd ef gh "</span>/imm32 -<span id="L1879" class="LineNr">1879 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L1880" class="LineNr">1880 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1881" class="LineNr">1881 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 -<span id="L1882" class="LineNr">1882 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1883" class="LineNr">1883 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1884" class="LineNr">1884 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ij 44 33 22 11 ", msg)</span> -<span id="L1885" class="LineNr">1885 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1886" class="LineNr">1886 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L1695'>test-emit-output-non-far-control-flow</a>/2"</span>/imm32 -<span id="L1887" class="LineNr">1887 </span> 68/push <span class="Constant">"ij 44 33 22 11 "</span>/imm32 -<span id="L1888" class="LineNr">1888 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L1889" class="LineNr">1889 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1890" class="LineNr">1890 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 -<span id="L1891" class="LineNr">1891 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1892" class="LineNr">1892 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1893" class="LineNr">1893 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "# 0x00007c09", msg)</span> -<span id="L1894" class="LineNr">1894 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1895" class="LineNr">1895 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L1695'>test-emit-output-non-far-control-flow</a>/3"</span>/imm32 -<span id="L1896" class="LineNr">1896 </span> 68/push <span class="Constant">"# 0x00007c09"</span>/imm32 -<span id="L1897" class="LineNr">1897 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L1898" class="LineNr">1898 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1899" class="LineNr">1899 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 -<span id="L1900" class="LineNr">1900 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1901" class="LineNr">1901 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1902" class="LineNr">1902 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "00 ", msg)</span> -<span id="L1903" class="LineNr">1903 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1904" class="LineNr">1904 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L1695'>test-emit-output-non-far-control-flow</a>/3"</span>/imm32 -<span id="L1905" class="LineNr">1905 </span> 68/push <span class="Constant">"00 "</span>/imm32 -<span id="L1906" class="LineNr">1906 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L1907" class="LineNr">1907 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1908" class="LineNr">1908 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 -<span id="L1909" class="LineNr">1909 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1910" class="LineNr">1910 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1911" class="LineNr">1911 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "34 ", msg)</span> -<span id="L1912" class="LineNr">1912 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1913" class="LineNr">1913 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L1695'>test-emit-output-non-far-control-flow</a>/4"</span>/imm32 -<span id="L1914" class="LineNr">1914 </span> 68/push <span class="Constant">"34 "</span>/imm32 -<span id="L1915" class="LineNr">1915 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L1916" class="LineNr">1916 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1917" class="LineNr">1917 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 -<span id="L1918" class="LineNr">1918 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1919" class="LineNr">1919 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1920" class="LineNr">1920 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1921" class="LineNr">1921 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1922" class="LineNr">1922 </span> 5d/pop-to-ebp -<span id="L1923" class="LineNr">1923 </span> c3/return -<span id="L1924" class="LineNr">1924 </span> -<span id="L1925" class="LineNr">1925 </span><span class="subxTest">test-emit-output-with-padding</span>: -<span id="L1926" class="LineNr">1926 </span> <span class="subxComment"># labels turn into absolute addresses if opcodes are not far jumps or calls</span> -<span id="L1927" class="LineNr">1927 </span> <span class="subxComment">#</span> -<span id="L1928" class="LineNr">1928 </span> <span class="subxComment"># input:</span> -<span id="L1929" class="LineNr">1929 </span> <span class="subxComment"># in:</span> -<span id="L1930" class="LineNr">1930 </span> <span class="subxComment"># == code</span> -<span id="L1931" class="LineNr">1931 </span> <span class="subxComment"># ab cd ef gh</span> -<span id="L1932" class="LineNr">1932 </span> <span class="subxComment"># == data 0x7c10</span> -<span id="L1933" class="LineNr">1933 </span> <span class="subxComment"># 34</span> -<span id="L1934" class="LineNr">1934 </span> <span class="subxComment">#</span> -<span id="L1935" class="LineNr">1935 </span> <span class="subxComment"># output:</span> -<span id="L1936" class="LineNr">1936 </span> <span class="subxComment"># ab cd ef gh</span> -<span id="L1937" class="LineNr">1937 </span> <span class="subxComment"># # 0x7c04</span> -<span id="L1938" class="LineNr">1938 </span> <span class="subxComment"># 00 00 00 00</span> -<span id="L1939" class="LineNr">1939 </span> <span class="subxComment"># 00 00 00 00 00 00 00 00</span> -<span id="L1940" class="LineNr">1940 </span> <span class="subxComment"># # 0x7c10</span> -<span id="L1941" class="LineNr">1941 </span> <span class="subxComment"># 34</span> -<span id="L1942" class="LineNr">1942 </span> <span class="subxComment">#</span> -<span id="L1943" class="LineNr">1943 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1944" class="LineNr">1944 </span> 55/push-ebp -<span id="L1945" class="LineNr">1945 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1946" class="LineNr">1946 </span> <span class="subxComment"># setup</span> -<span id="L1947" class="LineNr">1947 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L1948" class="LineNr">1948 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1949" class="LineNr">1949 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1950" class="LineNr">1950 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1951" class="LineNr">1951 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1952" class="LineNr">1952 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1953" class="LineNr">1953 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1954" class="LineNr">1954 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L1955" class="LineNr">1955 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1956" class="LineNr">1956 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L1957" class="LineNr">1957 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1958" class="LineNr">1958 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1959" class="LineNr">1959 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1960" class="LineNr">1960 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1961" class="LineNr">1961 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L1962" class="LineNr">1962 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1963" class="LineNr">1963 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L1964" class="LineNr">1964 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1965" class="LineNr">1965 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1966" class="LineNr">1966 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1967" class="LineNr">1967 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1968" class="LineNr">1968 </span> <span class="subxS1Comment"># . var labels/edx: (stream byte 8*24)</span> -<span id="L1969" class="LineNr">1969 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc0/imm32 <span class="subxComment"># subtract from esp</span> -<span id="L1970" class="LineNr">1970 </span> 68/push 0xc0/imm32/size -<span id="L1971" class="LineNr">1971 </span> 68/push 0/imm32/read -<span id="L1972" class="LineNr">1972 </span> 68/push 0/imm32/write -<span id="L1973" class="LineNr">1973 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> -<span id="L1974" class="LineNr">1974 </span> <span class="subxS1Comment"># . var h/ebx: (handle array byte)</span> -<span id="L1975" class="LineNr">1975 </span> 68/push 0/imm32 -<span id="L1976" class="LineNr">1976 </span> 68/push 0/imm32 -<span id="L1977" class="LineNr">1977 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> -<span id="L1978" class="LineNr">1978 </span> <span class="subxComment"># initialize input</span> -<span id="L1979" class="LineNr">1979 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== code\n")</span> -<span id="L1980" class="LineNr">1980 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1981" class="LineNr">1981 </span> 68/push <span class="Constant">"== code\n"</span>/imm32 -<span id="L1982" class="LineNr">1982 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1983" class="LineNr">1983 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1984" class="LineNr">1984 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L1985" class="LineNr">1985 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1986" class="LineNr">1986 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1987" class="LineNr">1987 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab cd ef gh\n")</span> -<span id="L1988" class="LineNr">1988 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1989" class="LineNr">1989 </span> 68/push <span class="Constant">"ab cd ef gh\n"</span>/imm32 -<span id="L1990" class="LineNr">1990 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1991" class="LineNr">1991 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1992" class="LineNr">1992 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L1993" class="LineNr">1993 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1994" class="LineNr">1994 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1995" class="LineNr">1995 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== data 0x7c10\n")</span> -<span id="L1996" class="LineNr">1996 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1997" class="LineNr">1997 </span> 68/push <span class="Constant">"== data 0x7c10\n"</span>/imm32 -<span id="L1998" class="LineNr">1998 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1999" class="LineNr">1999 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2000" class="LineNr">2000 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L2001" class="LineNr">2001 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2002" class="LineNr">2002 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2003" class="LineNr">2003 </span> <span class="subxS1Comment"># . write(_test-input-stream, "34\n")</span> -<span id="L2004" class="LineNr">2004 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2005" class="LineNr">2005 </span> 68/push <span class="Constant">"34\n"</span>/imm32 -<span id="L2006" class="LineNr">2006 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2007" class="LineNr">2007 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2008" class="LineNr">2008 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L2009" class="LineNr">2009 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2010" class="LineNr">2010 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2011" class="LineNr">2011 </span> <span class="subxComment"># component under test</span> -<span id="L2012" class="LineNr">2012 </span> <span class="subxS1Comment"># . emit-output(_test-input-stream, _test-output-buffered-file, labels)</span> -<span id="L2013" class="LineNr">2013 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2014" class="LineNr">2014 </span> 52/push-edx -<span id="L2015" class="LineNr">2015 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 -<span id="L2016" class="LineNr">2016 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2017" class="LineNr">2017 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2018" class="LineNr">2018 </span> e8/call <a href='survey_baremetal.subx.html#L947'>emit-output</a>/disp32 -<span id="L2019" class="LineNr">2019 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2020" class="LineNr">2020 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2021" class="LineNr">2021 </span> <span class="subxComment"># checks</span> -<span id="L2022" class="LineNr">2022 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L2023" class="LineNr">2023 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2024" class="LineNr">2024 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 -<span id="L2025" class="LineNr">2025 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2026" class="LineNr">2026 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L2027" class="LineNr">2027 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2028" class="LineNr">2028 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2029" class="Folded">2029 </span><span class="Folded">+-- 33 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2062" class="LineNr">2062 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "# 0x00007c00", msg)</span> -<span id="L2063" class="LineNr">2063 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2064" class="LineNr">2064 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L1925'>test-emit-output-with-padding</a>/0"</span>/imm32 -<span id="L2065" class="LineNr">2065 </span> 68/push <span class="Constant">"# 0x00007c00"</span>/imm32 -<span id="L2066" class="LineNr">2066 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L2067" class="LineNr">2067 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2068" class="LineNr">2068 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 -<span id="L2069" class="LineNr">2069 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2070" class="LineNr">2070 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2071" class="LineNr">2071 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ab cd ef gh ", msg)</span> -<span id="L2072" class="LineNr">2072 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2073" class="LineNr">2073 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L1925'>test-emit-output-with-padding</a>/1"</span>/imm32 -<span id="L2074" class="LineNr">2074 </span> 68/push <span class="Constant">"ab cd ef gh "</span>/imm32 -<span id="L2075" class="LineNr">2075 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L2076" class="LineNr">2076 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2077" class="LineNr">2077 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 -<span id="L2078" class="LineNr">2078 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2079" class="LineNr">2079 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2080" class="LineNr">2080 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "# 0x00007c04", msg)</span> -<span id="L2081" class="LineNr">2081 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2082" class="LineNr">2082 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L1925'>test-emit-output-with-padding</a>/0"</span>/imm32 -<span id="L2083" class="LineNr">2083 </span> 68/push <span class="Constant">"# 0x00007c04"</span>/imm32 -<span id="L2084" class="LineNr">2084 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L2085" class="LineNr">2085 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2086" class="LineNr">2086 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 -<span id="L2087" class="LineNr">2087 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2088" class="LineNr">2088 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2089" class="LineNr">2089 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "00 00 00 00 ", msg)</span> -<span id="L2090" class="LineNr">2090 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2091" class="LineNr">2091 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L1925'>test-emit-output-with-padding</a>/2"</span>/imm32 -<span id="L2092" class="LineNr">2092 </span> 68/push <span class="Constant">"00 00 00 00 "</span>/imm32 -<span id="L2093" class="LineNr">2093 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L2094" class="LineNr">2094 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2095" class="LineNr">2095 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 -<span id="L2096" class="LineNr">2096 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2097" class="LineNr">2097 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2098" class="LineNr">2098 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "00 00 00 00 ", msg)</span> -<span id="L2099" class="LineNr">2099 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2100" class="LineNr">2100 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L1925'>test-emit-output-with-padding</a>/3"</span>/imm32 -<span id="L2101" class="LineNr">2101 </span> 68/push <span class="Constant">"00 00 00 00 00 00 00 00 "</span>/imm32 -<span id="L2102" class="LineNr">2102 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L2103" class="LineNr">2103 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2104" class="LineNr">2104 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 -<span id="L2105" class="LineNr">2105 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2106" class="LineNr">2106 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2107" class="LineNr">2107 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "# 0x00007c10", msg)</span> -<span id="L2108" class="LineNr">2108 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2109" class="LineNr">2109 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L1925'>test-emit-output-with-padding</a>/0"</span>/imm32 -<span id="L2110" class="LineNr">2110 </span> 68/push <span class="Constant">"# 0x00007c10"</span>/imm32 -<span id="L2111" class="LineNr">2111 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L2112" class="LineNr">2112 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2113" class="LineNr">2113 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 -<span id="L2114" class="LineNr">2114 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2115" class="LineNr">2115 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2116" class="LineNr">2116 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "34 ", msg)</span> -<span id="L2117" class="LineNr">2117 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2118" class="LineNr">2118 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L1925'>test-emit-output-with-padding</a>/4"</span>/imm32 -<span id="L2119" class="LineNr">2119 </span> 68/push <span class="Constant">"34 "</span>/imm32 -<span id="L2120" class="LineNr">2120 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L2121" class="LineNr">2121 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2122" class="LineNr">2122 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 -<span id="L2123" class="LineNr">2123 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2124" class="LineNr">2124 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2125" class="LineNr">2125 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2126" class="LineNr">2126 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L2127" class="LineNr">2127 </span> 5d/pop-to-ebp -<span id="L2128" class="LineNr">2128 </span> c3/return -<span id="L2129" class="LineNr">2129 </span> -<span id="L2130" class="LineNr">2130 </span><span class="subxTest">test-emit-output-code-label</span>: -<span id="L2131" class="LineNr">2131 </span> <span class="subxComment"># labels turn into PC-relative addresses if opcodes are far jumps or calls</span> -<span id="L2132" class="LineNr">2132 </span> <span class="subxComment">#</span> -<span id="L2133" class="LineNr">2133 </span> <span class="subxComment"># input:</span> -<span id="L2134" class="LineNr">2134 </span> <span class="subxComment"># in:</span> -<span id="L2135" class="LineNr">2135 </span> <span class="subxComment"># == code</span> -<span id="L2136" class="LineNr">2136 </span> <span class="subxComment"># ab cd</span> -<span id="L2137" class="LineNr">2137 </span> <span class="subxComment"># ef gh</span> -<span id="L2138" class="LineNr">2138 </span> <span class="subxComment"># e8 l1/disp32</span> -<span id="L2139" class="LineNr">2139 </span> <span class="subxComment"># labels:</span> -<span id="L2140" class="LineNr">2140 </span> <span class="subxComment"># - 'l1': 0x7c10</span> -<span id="L2141" class="LineNr">2141 </span> <span class="subxComment">#</span> -<span id="L2142" class="LineNr">2142 </span> <span class="subxComment"># output:</span> -<span id="L2143" class="LineNr">2143 </span> <span class="subxComment"># ab cd</span> -<span id="L2144" class="LineNr">2144 </span> <span class="subxComment"># ef gh</span> -<span id="L2145" class="LineNr">2145 </span> <span class="subxComment"># e8 07 00 00 00 # 0x7c10 - 0x7c09 = 7</span> -<span id="L2146" class="LineNr">2146 </span> <span class="subxComment">#</span> -<span id="L2147" class="LineNr">2147 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2148" class="LineNr">2148 </span> 55/push-ebp -<span id="L2149" class="LineNr">2149 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L2150" class="LineNr">2150 </span> <span class="subxComment"># setup</span> -<span id="L2151" class="LineNr">2151 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L2152" class="LineNr">2152 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2153" class="LineNr">2153 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2154" class="LineNr">2154 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2155" class="LineNr">2155 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L2156" class="LineNr">2156 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2157" class="LineNr">2157 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2158" class="LineNr">2158 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L2159" class="LineNr">2159 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2160" class="LineNr">2160 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L2161" class="LineNr">2161 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2162" class="LineNr">2162 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L2163" class="LineNr">2163 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2164" class="LineNr">2164 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2165" class="LineNr">2165 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L2166" class="LineNr">2166 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2167" class="LineNr">2167 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L2168" class="LineNr">2168 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2169" class="LineNr">2169 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L2170" class="LineNr">2170 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2171" class="LineNr">2171 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2172" class="LineNr">2172 </span> <span class="subxS1Comment"># . var labels/edx: (stream byte 8*24)</span> -<span id="L2173" class="LineNr">2173 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc0/imm32 <span class="subxComment"># subtract from esp</span> -<span id="L2174" class="LineNr">2174 </span> 68/push 0xc0/imm32/size -<span id="L2175" class="LineNr">2175 </span> 68/push 0/imm32/read -<span id="L2176" class="LineNr">2176 </span> 68/push 0/imm32/write -<span id="L2177" class="LineNr">2177 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> -<span id="L2178" class="LineNr">2178 </span> <span class="subxS1Comment"># . var h/ebx: (handle array byte)</span> -<span id="L2179" class="LineNr">2179 </span> 68/push 0/imm32 -<span id="L2180" class="LineNr">2180 </span> 68/push 0/imm32 -<span id="L2181" class="LineNr">2181 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> -<span id="L2182" class="LineNr">2182 </span> <span class="subxComment"># initialize input</span> -<span id="L2183" class="LineNr">2183 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== code\n")</span> -<span id="L2184" class="LineNr">2184 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2185" class="LineNr">2185 </span> 68/push <span class="Constant">"== code\n"</span>/imm32 -<span id="L2186" class="LineNr">2186 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2187" class="LineNr">2187 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2188" class="LineNr">2188 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L2189" class="LineNr">2189 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2190" class="LineNr">2190 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2191" class="LineNr">2191 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab cd\n")</span> -<span id="L2192" class="LineNr">2192 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2193" class="LineNr">2193 </span> 68/push <span class="Constant">"ab cd\n"</span>/imm32 -<span id="L2194" class="LineNr">2194 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2195" class="LineNr">2195 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2196" class="LineNr">2196 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L2197" class="LineNr">2197 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2198" class="LineNr">2198 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2199" class="LineNr">2199 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ef gh\n")</span> -<span id="L2200" class="LineNr">2200 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2201" class="LineNr">2201 </span> 68/push <span class="Constant">"ef gh\n"</span>/imm32 -<span id="L2202" class="LineNr">2202 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2203" class="LineNr">2203 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2204" class="LineNr">2204 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L2205" class="LineNr">2205 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2206" class="LineNr">2206 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2207" class="LineNr">2207 </span> <span class="subxS1Comment"># . write(_test-input-stream, "e8 l1/disp32\n")</span> -<span id="L2208" class="LineNr">2208 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2209" class="LineNr">2209 </span> 68/push <span class="Constant">"e8 l1/disp32\n"</span>/imm32 -<span id="L2210" class="LineNr">2210 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2211" class="LineNr">2211 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2212" class="LineNr">2212 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L2213" class="LineNr">2213 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2214" class="LineNr">2214 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2215" class="LineNr">2215 </span> <span class="subxS1Comment"># . stream-add2(labels, "l1", 0x7c10)</span> -<span id="L2216" class="LineNr">2216 </span> 68/push 0x7c10/imm32/label-address -<span id="L2217" class="LineNr">2217 </span> <span class="subxS2Comment"># . . push handle for "l1"</span> -<span id="L2218" class="LineNr">2218 </span> 53/push-ebx -<span id="L2219" class="LineNr">2219 </span> 68/push <span class="Constant">"l1"</span>/imm32 -<span id="L2220" class="LineNr">2220 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L2221" class="LineNr">2221 </span> e8/call <a href='120allocate.subx.html#L720'>copy-array</a>/disp32 -<span id="L2222" class="LineNr">2222 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2223" class="LineNr">2223 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> -<span id="L2224" class="LineNr">2224 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> -<span id="L2225" class="LineNr">2225 </span> <span class="subxS2Comment"># . . push labels</span> -<span id="L2226" class="LineNr">2226 </span> 52/push-edx -<span id="L2227" class="LineNr">2227 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2228" class="LineNr">2228 </span> e8/call <a href='survey_baremetal.subx.html#L2652'>stream-add2</a>/disp32 -<span id="L2229" class="LineNr">2229 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2230" class="LineNr">2230 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L2231" class="LineNr">2231 </span> <span class="subxComment"># component under test</span> -<span id="L2232" class="LineNr">2232 </span> <span class="subxS1Comment"># . emit-output(_test-input-stream, _test-output-buffered-file, labels)</span> -<span id="L2233" class="LineNr">2233 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2234" class="LineNr">2234 </span> 52/push-edx -<span id="L2235" class="LineNr">2235 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 -<span id="L2236" class="LineNr">2236 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2237" class="LineNr">2237 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2238" class="LineNr">2238 </span> e8/call <a href='survey_baremetal.subx.html#L947'>emit-output</a>/disp32 -<span id="L2239" class="LineNr">2239 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2240" class="LineNr">2240 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2241" class="LineNr">2241 </span> <span class="subxComment"># checks</span> -<span id="L2242" class="LineNr">2242 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L2243" class="LineNr">2243 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2244" class="LineNr">2244 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 -<span id="L2245" class="LineNr">2245 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2246" class="LineNr">2246 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L2247" class="LineNr">2247 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2248" class="LineNr">2248 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2249" class="Folded">2249 </span><span class="Folded">+-- 33 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2282" class="LineNr">2282 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "# 0x00007c00", msg)</span> -<span id="L2283" class="LineNr">2283 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2284" class="LineNr">2284 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L2130'>test-emit-output-code-label</a>/0"</span>/imm32 -<span id="L2285" class="LineNr">2285 </span> 68/push <span class="Constant">"# 0x00007c00"</span>/imm32 -<span id="L2286" class="LineNr">2286 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L2287" class="LineNr">2287 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2288" class="LineNr">2288 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 -<span id="L2289" class="LineNr">2289 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2290" class="LineNr">2290 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2291" class="LineNr">2291 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ab cd ", msg)</span> -<span id="L2292" class="LineNr">2292 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2293" class="LineNr">2293 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L2130'>test-emit-output-code-label</a>/1"</span>/imm32 -<span id="L2294" class="LineNr">2294 </span> 68/push <span class="Constant">"ab cd "</span>/imm32 -<span id="L2295" class="LineNr">2295 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L2296" class="LineNr">2296 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2297" class="LineNr">2297 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 -<span id="L2298" class="LineNr">2298 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2299" class="LineNr">2299 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2300" class="LineNr">2300 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ef gh ", msg)</span> -<span id="L2301" class="LineNr">2301 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2302" class="LineNr">2302 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L2130'>test-emit-output-code-label</a>/2"</span>/imm32 -<span id="L2303" class="LineNr">2303 </span> 68/push <span class="Constant">"ef gh "</span>/imm32 -<span id="L2304" class="LineNr">2304 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L2305" class="LineNr">2305 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2306" class="LineNr">2306 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 -<span id="L2307" class="LineNr">2307 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2308" class="LineNr">2308 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2309" class="LineNr">2309 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "e8 07 00 00 00 ", msg)</span> -<span id="L2310" class="LineNr">2310 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2311" class="LineNr">2311 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L2130'>test-emit-output-code-label</a>/3"</span>/imm32 -<span id="L2312" class="LineNr">2312 </span> 68/push <span class="Constant">"e8 07 00 00 00 "</span>/imm32 -<span id="L2313" class="LineNr">2313 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L2314" class="LineNr">2314 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2315" class="LineNr">2315 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 -<span id="L2316" class="LineNr">2316 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2317" class="LineNr">2317 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2318" class="LineNr">2318 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2319" class="LineNr">2319 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L2320" class="LineNr">2320 </span> 5d/pop-to-ebp -<span id="L2321" class="LineNr">2321 </span> c3/return -<span id="L2322" class="LineNr">2322 </span> -<span id="L2323" class="LineNr">2323 </span><span class="subxTest">test-emit-output-code-label-absolute</span>: -<span id="L2324" class="LineNr">2324 </span> <span class="subxComment"># labels can also convert to absolute addresses</span> -<span id="L2325" class="LineNr">2325 </span> <span class="subxComment">#</span> -<span id="L2326" class="LineNr">2326 </span> <span class="subxComment"># input:</span> -<span id="L2327" class="LineNr">2327 </span> <span class="subxComment"># in:</span> -<span id="L2328" class="LineNr">2328 </span> <span class="subxComment"># == code</span> -<span id="L2329" class="LineNr">2329 </span> <span class="subxComment"># ab cd</span> -<span id="L2330" class="LineNr">2330 </span> <span class="subxComment"># ef gh</span> -<span id="L2331" class="LineNr">2331 </span> <span class="subxComment"># ij l1/imm32</span> -<span id="L2332" class="LineNr">2332 </span> <span class="subxComment"># labels:</span> -<span id="L2333" class="LineNr">2333 </span> <span class="subxComment"># - 'l1': 0x1056</span> -<span id="L2334" class="LineNr">2334 </span> <span class="subxComment">#</span> -<span id="L2335" class="LineNr">2335 </span> <span class="subxComment"># output:</span> -<span id="L2336" class="LineNr">2336 </span> <span class="subxComment"># ab cd</span> -<span id="L2337" class="LineNr">2337 </span> <span class="subxComment"># ef gh</span> -<span id="L2338" class="LineNr">2338 </span> <span class="subxComment"># ij 56 10 00 00</span> -<span id="L2339" class="LineNr">2339 </span> <span class="subxComment">#</span> -<span id="L2340" class="LineNr">2340 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2341" class="LineNr">2341 </span> 55/push-ebp -<span id="L2342" class="LineNr">2342 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L2343" class="LineNr">2343 </span> <span class="subxComment"># setup</span> -<span id="L2344" class="LineNr">2344 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L2345" class="LineNr">2345 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2346" class="LineNr">2346 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2347" class="LineNr">2347 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2348" class="LineNr">2348 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L2349" class="LineNr">2349 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2350" class="LineNr">2350 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2351" class="LineNr">2351 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L2352" class="LineNr">2352 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2353" class="LineNr">2353 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L2354" class="LineNr">2354 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2355" class="LineNr">2355 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L2356" class="LineNr">2356 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2357" class="LineNr">2357 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2358" class="LineNr">2358 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L2359" class="LineNr">2359 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2360" class="LineNr">2360 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L2361" class="LineNr">2361 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2362" class="LineNr">2362 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L2363" class="LineNr">2363 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2364" class="LineNr">2364 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2365" class="LineNr">2365 </span> <span class="subxS1Comment"># . var labels/edx: (stream byte 8*24)</span> -<span id="L2366" class="LineNr">2366 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc0/imm32 <span class="subxComment"># subtract from esp</span> -<span id="L2367" class="LineNr">2367 </span> 68/push 0xc0/imm32/size -<span id="L2368" class="LineNr">2368 </span> 68/push 0/imm32/read -<span id="L2369" class="LineNr">2369 </span> 68/push 0/imm32/write -<span id="L2370" class="LineNr">2370 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> -<span id="L2371" class="LineNr">2371 </span> <span class="subxS1Comment"># . var h/ebx: (handle array byte)</span> -<span id="L2372" class="LineNr">2372 </span> 68/push 0/imm32 -<span id="L2373" class="LineNr">2373 </span> 68/push 0/imm32 -<span id="L2374" class="LineNr">2374 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> -<span id="L2375" class="LineNr">2375 </span> <span class="subxComment"># initialize input</span> -<span id="L2376" class="LineNr">2376 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== code 0x1000\n")</span> -<span id="L2377" class="LineNr">2377 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2378" class="LineNr">2378 </span> 68/push <span class="Constant">"== code\n"</span>/imm32 -<span id="L2379" class="LineNr">2379 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2380" class="LineNr">2380 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2381" class="LineNr">2381 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L2382" class="LineNr">2382 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2383" class="LineNr">2383 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2384" class="LineNr">2384 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab cd\n")</span> -<span id="L2385" class="LineNr">2385 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2386" class="LineNr">2386 </span> 68/push <span class="Constant">"ab cd\n"</span>/imm32 -<span id="L2387" class="LineNr">2387 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2388" class="LineNr">2388 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2389" class="LineNr">2389 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L2390" class="LineNr">2390 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2391" class="LineNr">2391 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2392" class="LineNr">2392 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ef gh\n")</span> -<span id="L2393" class="LineNr">2393 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2394" class="LineNr">2394 </span> 68/push <span class="Constant">"ef gh\n"</span>/imm32 -<span id="L2395" class="LineNr">2395 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2396" class="LineNr">2396 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2397" class="LineNr">2397 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L2398" class="LineNr">2398 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2399" class="LineNr">2399 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2400" class="LineNr">2400 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ij l1/imm32\n")</span> -<span id="L2401" class="LineNr">2401 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2402" class="LineNr">2402 </span> 68/push <span class="Constant">"ij l1/imm32\n"</span>/imm32 -<span id="L2403" class="LineNr">2403 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2404" class="LineNr">2404 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2405" class="LineNr">2405 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L2406" class="LineNr">2406 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2407" class="LineNr">2407 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2408" class="LineNr">2408 </span> <span class="subxS1Comment"># . stream-add2(labels, "l1", 0x1056)</span> -<span id="L2409" class="LineNr">2409 </span> 68/push 0x1056/imm32/label-address -<span id="L2410" class="LineNr">2410 </span> <span class="subxS2Comment"># . . push handle for "l1"</span> -<span id="L2411" class="LineNr">2411 </span> 53/push-ebx -<span id="L2412" class="LineNr">2412 </span> 68/push <span class="Constant">"l1"</span>/imm32 -<span id="L2413" class="LineNr">2413 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L2414" class="LineNr">2414 </span> e8/call <a href='120allocate.subx.html#L720'>copy-array</a>/disp32 -<span id="L2415" class="LineNr">2415 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2416" class="LineNr">2416 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> -<span id="L2417" class="LineNr">2417 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> -<span id="L2418" class="LineNr">2418 </span> <span class="subxS2Comment"># . . push labels</span> -<span id="L2419" class="LineNr">2419 </span> 52/push-edx -<span id="L2420" class="LineNr">2420 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2421" class="LineNr">2421 </span> e8/call <a href='survey_baremetal.subx.html#L2652'>stream-add2</a>/disp32 -<span id="L2422" class="LineNr">2422 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2423" class="LineNr">2423 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L2424" class="LineNr">2424 </span> <span class="subxComment"># component under test</span> -<span id="L2425" class="LineNr">2425 </span> <span class="subxS1Comment"># . emit-output(_test-input-stream, _test-output-buffered-file, labels)</span> -<span id="L2426" class="LineNr">2426 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2427" class="LineNr">2427 </span> 52/push-edx -<span id="L2428" class="LineNr">2428 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 -<span id="L2429" class="LineNr">2429 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2430" class="LineNr">2430 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2431" class="LineNr">2431 </span> e8/call <a href='survey_baremetal.subx.html#L947'>emit-output</a>/disp32 -<span id="L2432" class="LineNr">2432 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2433" class="LineNr">2433 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2434" class="LineNr">2434 </span> <span class="subxComment"># checks</span> -<span id="L2435" class="LineNr">2435 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L2436" class="LineNr">2436 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2437" class="LineNr">2437 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 -<span id="L2438" class="LineNr">2438 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2439" class="LineNr">2439 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L2440" class="LineNr">2440 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2441" class="LineNr">2441 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2442" class="Folded">2442 </span><span class="Folded">+-- 33 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2475" class="LineNr">2475 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "# 0x00007c00", msg)</span> -<span id="L2476" class="LineNr">2476 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2477" class="LineNr">2477 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L2323'>test-emit-output-code-label-absolute</a>/0"</span>/imm32 -<span id="L2478" class="LineNr">2478 </span> 68/push <span class="Constant">"# 0x00007c00"</span>/imm32 -<span id="L2479" class="LineNr">2479 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L2480" class="LineNr">2480 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2481" class="LineNr">2481 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 -<span id="L2482" class="LineNr">2482 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2483" class="LineNr">2483 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2484" class="LineNr">2484 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ab cd ", msg)</span> -<span id="L2485" class="LineNr">2485 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2486" class="LineNr">2486 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L2323'>test-emit-output-code-label-absolute</a>/1"</span>/imm32 -<span id="L2487" class="LineNr">2487 </span> 68/push <span class="Constant">"ab cd "</span>/imm32 -<span id="L2488" class="LineNr">2488 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L2489" class="LineNr">2489 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2490" class="LineNr">2490 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 -<span id="L2491" class="LineNr">2491 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2492" class="LineNr">2492 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2493" class="LineNr">2493 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ef gh ", msg)</span> -<span id="L2494" class="LineNr">2494 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2495" class="LineNr">2495 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L2323'>test-emit-output-code-label-absolute</a>/2"</span>/imm32 -<span id="L2496" class="LineNr">2496 </span> 68/push <span class="Constant">"ef gh "</span>/imm32 -<span id="L2497" class="LineNr">2497 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L2498" class="LineNr">2498 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2499" class="LineNr">2499 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 -<span id="L2500" class="LineNr">2500 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2501" class="LineNr">2501 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2502" class="LineNr">2502 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ij f9 ff ff ff ", msg)</span> -<span id="L2503" class="LineNr">2503 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2504" class="LineNr">2504 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L2323'>test-emit-output-code-label-absolute</a>/3"</span>/imm32 -<span id="L2505" class="LineNr">2505 </span> 68/push <span class="Constant">"ij 56 10 00 00 "</span>/imm32 -<span id="L2506" class="LineNr">2506 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L2507" class="LineNr">2507 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2508" class="LineNr">2508 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 -<span id="L2509" class="LineNr">2509 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2510" class="LineNr">2510 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2511" class="LineNr">2511 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2512" class="LineNr">2512 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L2513" class="LineNr">2513 </span> 5d/pop-to-ebp -<span id="L2514" class="LineNr">2514 </span> c3/return -<span id="L2515" class="LineNr">2515 </span> -<span id="L2516" class="LineNr">2516 </span><span class="subxComment"># reads line to make some checks</span> -<span id="L2517" class="LineNr">2517 </span><span class="subxComment"># don't assume the read state of line after calling this function</span> -<span id="L2518" class="LineNr">2518 </span><span class="subxFunction">far-jump-or-call?</span>: <span class="subxComment"># line: (addr stream byte) -> result/edi: boolean</span> -<span id="L2519" class="LineNr">2519 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2520" class="LineNr">2520 </span> 55/push-ebp -<span id="L2521" class="LineNr">2521 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L2522" class="LineNr">2522 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L2523" class="LineNr">2523 </span> 50/push-eax -<span id="L2524" class="LineNr">2524 </span> 51/push-ecx -<span id="L2525" class="LineNr">2525 </span> 52/push-edx -<span id="L2526" class="LineNr">2526 </span> 53/push-ebx -<span id="L2527" class="LineNr">2527 </span> <span class="subxComment"># ecx = line</span> -<span id="L2528" class="LineNr">2528 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> -<span id="L2529" class="LineNr">2529 </span> <span class="subxComment"># var word-slice/edx: slice</span> -<span id="L2530" class="LineNr">2530 </span> 68/push 0/imm32/end -<span id="L2531" class="LineNr">2531 </span> 68/push 0/imm32/start -<span id="L2532" class="LineNr">2532 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> -<span id="L2533" class="LineNr">2533 </span> <span class="subxComment"># var datum-slice/ebx: slice</span> -<span id="L2534" class="LineNr">2534 </span> 68/push 0/imm32/end -<span id="L2535" class="LineNr">2535 </span> 68/push 0/imm32/start -<span id="L2536" class="LineNr">2536 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> -<span id="L2537" class="LineNr">2537 </span> <span class="subxComment"># result = false</span> -<span id="L2538" class="LineNr">2538 </span> bf/copy-to-edi 0/imm32/false -<span id="L2539" class="LineNr">2539 </span><span class="Constant">$far-jump-or-call?:check-first-word</span>: -<span id="L2540" class="LineNr">2540 </span> <span class="subxComment"># next-word(line, word-slice)</span> -<span id="L2541" class="LineNr">2541 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2542" class="LineNr">2542 </span> 52/push-edx -<span id="L2543" class="LineNr">2543 </span> 51/push-ecx -<span id="L2544" class="LineNr">2544 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2545" class="LineNr">2545 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 -<span id="L2546" class="LineNr">2546 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2547" class="LineNr">2547 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2548" class="LineNr">2548 </span> <span class="subxComment"># if (slice-empty?(word-slice)) return false</span> -<span id="L2549" class="LineNr">2549 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> -<span id="L2550" class="LineNr">2550 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2551" class="LineNr">2551 </span> 52/push-edx -<span id="L2552" class="LineNr">2552 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2553" class="LineNr">2553 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 -<span id="L2554" class="LineNr">2554 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2555" class="LineNr">2555 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2556" class="LineNr">2556 </span> <span class="subxS1Comment"># . if (eax != 0) return</span> -<span id="L2557" class="LineNr">2557 </span> 3d/compare-eax-and 0/imm32/false -<span id="L2558" class="LineNr">2558 </span> 0f 85/jump-if-!= $far-jump-or-call?:end/disp32 -<span id="L2559" class="LineNr">2559 </span> <span class="subxComment"># datum = next-token-from-slice(word-slice->start, word-slice->end, "/")</span> -<span id="L2560" class="LineNr">2560 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2561" class="LineNr">2561 </span> 53/push-ebx -<span id="L2562" class="LineNr">2562 </span> 68/push 0x2f/imm32/slash -<span id="L2563" class="LineNr">2563 </span> ff 6/subop/push 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edx+4)</span> -<span id="L2564" class="LineNr">2564 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> -<span id="L2565" class="LineNr">2565 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2566" class="LineNr">2566 </span> e8/call <a href='124next-token.subx.html#L163'>next-token-from-slice</a>/disp32 -<span id="L2567" class="LineNr">2567 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2568" class="LineNr">2568 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L2569" class="LineNr">2569 </span> <span class="subxComment"># if (datum-slice == "e8") return true</span> -<span id="L2570" class="LineNr">2570 </span> <span class="subxS1Comment"># . eax = slice-equal?(datum-slice, "e8")</span> -<span id="L2571" class="LineNr">2571 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2572" class="LineNr">2572 </span> 68/push <span class="Constant">"e8"</span>/imm32 -<span id="L2573" class="LineNr">2573 </span> 53/push-ebx -<span id="L2574" class="LineNr">2574 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2575" class="LineNr">2575 </span> e8/call <a href='123slice.subx.html#L120'>slice-equal?</a>/disp32 -<span id="L2576" class="LineNr">2576 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2577" class="LineNr">2577 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2578" class="LineNr">2578 </span> <span class="subxS1Comment"># . if (eax != false) return true</span> -<span id="L2579" class="LineNr">2579 </span> 3d/compare-eax-and 0/imm32/false -<span id="L2580" class="LineNr">2580 </span> 75/jump-if-!= $far-jump-or-call?:return-true/disp8 -<span id="L2581" class="LineNr">2581 </span> <span class="subxComment"># if (datum-slice == "e9") return true</span> -<span id="L2582" class="LineNr">2582 </span> <span class="subxS1Comment"># . eax = slice-equal?(datum-slice, "e9")</span> -<span id="L2583" class="LineNr">2583 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2584" class="LineNr">2584 </span> 68/push <span class="Constant">"e9"</span>/imm32 -<span id="L2585" class="LineNr">2585 </span> 53/push-ebx -<span id="L2586" class="LineNr">2586 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2587" class="LineNr">2587 </span> e8/call <a href='123slice.subx.html#L120'>slice-equal?</a>/disp32 -<span id="L2588" class="LineNr">2588 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2589" class="LineNr">2589 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2590" class="LineNr">2590 </span> <span class="subxS1Comment"># . if (eax != false) return true</span> -<span id="L2591" class="LineNr">2591 </span> 3d/compare-eax-and 0/imm32/false -<span id="L2592" class="LineNr">2592 </span> 75/jump-if-!= $far-jump-or-call?:return-true/disp8 -<span id="L2593" class="LineNr">2593 </span> <span class="subxComment"># if (datum-slice != "0f") return false</span> -<span id="L2594" class="LineNr">2594 </span> <span class="subxS1Comment"># . eax = slice-equal?(datum-slice, "0f")</span> -<span id="L2595" class="LineNr">2595 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2596" class="LineNr">2596 </span> 68/push <span class="Constant">"0f"</span>/imm32 -<span id="L2597" class="LineNr">2597 </span> 53/push-ebx -<span id="L2598" class="LineNr">2598 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2599" class="LineNr">2599 </span> e8/call <a href='123slice.subx.html#L120'>slice-equal?</a>/disp32 -<span id="L2600" class="LineNr">2600 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2601" class="LineNr">2601 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2602" class="LineNr">2602 </span> <span class="subxS1Comment"># . if (eax == false) return</span> -<span id="L2603" class="LineNr">2603 </span> 3d/compare-eax-and 0/imm32/false -<span id="L2604" class="LineNr">2604 </span> 74/jump-if-= $far-jump-or-call?:end/disp8 -<span id="L2605" class="LineNr">2605 </span><span class="Constant">$far-jump-or-call?:check-second-word</span>: -<span id="L2606" class="LineNr">2606 </span> <span class="subxComment"># next-word(line, word-slice)</span> -<span id="L2607" class="LineNr">2607 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2608" class="LineNr">2608 </span> 52/push-edx -<span id="L2609" class="LineNr">2609 </span> 51/push-ecx -<span id="L2610" class="LineNr">2610 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2611" class="LineNr">2611 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 -<span id="L2612" class="LineNr">2612 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2613" class="LineNr">2613 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2614" class="LineNr">2614 </span> <span class="subxComment"># if (slice-empty?(word-slice)) return false</span> -<span id="L2615" class="LineNr">2615 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> -<span id="L2616" class="LineNr">2616 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2617" class="LineNr">2617 </span> 52/push-edx -<span id="L2618" class="LineNr">2618 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2619" class="LineNr">2619 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 -<span id="L2620" class="LineNr">2620 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2621" class="LineNr">2621 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2622" class="LineNr">2622 </span> <span class="subxS1Comment"># . if (eax != 0) return</span> -<span id="L2623" class="LineNr">2623 </span> 3d/compare-eax-and 0/imm32/false -<span id="L2624" class="LineNr">2624 </span> 75/jump-if-!= $far-jump-or-call?:end/disp8 -<span id="L2625" class="LineNr">2625 </span> <span class="subxComment"># if datum of word-slice does not start with "8", return false</span> -<span id="L2626" class="LineNr">2626 </span> <span class="subxS1Comment"># . start/eax = word-slice->start</span> -<span id="L2627" class="LineNr">2627 </span> 8b/copy 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edx to eax</span> -<span id="L2628" class="LineNr">2628 </span> <span class="subxS1Comment"># . c/eax = *start</span> -<span id="L2629" class="LineNr">2629 </span> 8a/copy-byte 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *eax to AL</span> -<span id="L2630" class="LineNr">2630 </span> 81 4/subop/and 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xff/imm32 <span class="subxComment"># bitwise and of eax</span> -<span id="L2631" class="LineNr">2631 </span> <span class="subxS1Comment"># . if (eax != '8') return</span> -<span id="L2632" class="LineNr">2632 </span> 3d/compare-eax-and 0x38/imm32/8 -<span id="L2633" class="LineNr">2633 </span> 75/jump-if-!= $far-jump-or-call?:end/disp8 -<span id="L2634" class="LineNr">2634 </span> <span class="subxComment"># otherwise return true</span> -<span id="L2635" class="LineNr">2635 </span><span class="Constant">$far-jump-or-call?:return-true</span>: -<span id="L2636" class="LineNr">2636 </span> bf/copy-to-edi 1/imm32/true -<span id="L2637" class="LineNr">2637 </span><span class="Constant">$far-jump-or-call?:end</span>: -<span id="L2638" class="LineNr">2638 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L2639" class="LineNr">2639 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L2640" class="LineNr">2640 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L2641" class="LineNr">2641 </span> 5b/pop-to-ebx -<span id="L2642" class="LineNr">2642 </span> 5a/pop-to-edx -<span id="L2643" class="LineNr">2643 </span> 59/pop-to-ecx -<span id="L2644" class="LineNr">2644 </span> 58/pop-to-eax -<span id="L2645" class="LineNr">2645 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2646" class="LineNr">2646 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L2647" class="LineNr">2647 </span> 5d/pop-to-ebp -<span id="L2648" class="LineNr">2648 </span> c3/return -<span id="L2649" class="LineNr">2649 </span> -<span id="L2650" class="LineNr">2650 </span><span class="subxH1Comment"># - some helpers for tests</span> -<span id="L2651" class="LineNr">2651 </span> -<span id="L2652" class="LineNr">2652 </span><span class="subxFunction">stream-add2</span>: <span class="subxComment"># in: (addr stream byte), key: handle, val: int</span> -<span id="L2653" class="LineNr">2653 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2654" class="LineNr">2654 </span> 55/push-ebp -<span id="L2655" class="LineNr">2655 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L2656" class="LineNr">2656 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L2657" class="LineNr">2657 </span> 50/push-eax -<span id="L2658" class="LineNr">2658 </span> 51/push-ecx -<span id="L2659" class="LineNr">2659 </span> 52/push-edx -<span id="L2660" class="LineNr">2660 </span> 56/push-esi -<span id="L2661" class="LineNr">2661 </span> <span class="subxComment"># esi = in</span> -<span id="L2662" class="LineNr">2662 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> -<span id="L2663" class="LineNr">2663 </span> <span class="subxComment"># curr/eax = &in->data[in->write]</span> -<span id="L2664" class="LineNr">2664 </span> <span class="subxS1Comment"># . eax = in->write</span> -<span id="L2665" class="LineNr">2665 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> -<span id="L2666" class="LineNr">2666 </span> <span class="subxS1Comment"># . eax = esi+eax+12</span> -<span id="L2667" class="LineNr">2667 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 0/index/eax <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+eax+12 to eax</span> -<span id="L2668" class="LineNr">2668 </span> <span class="subxComment"># max/edx = &in->data[in->size]</span> -<span id="L2669" class="LineNr">2669 </span> <span class="subxS1Comment"># . edx = in->size</span> -<span id="L2670" class="LineNr">2670 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+8) to edx</span> -<span id="L2671" class="LineNr">2671 </span> <span class="subxS1Comment"># . edx = esi+edx+12</span> -<span id="L2672" class="LineNr">2672 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 2/index/edx <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+edx+12 to edx</span> -<span id="L2673" class="LineNr">2673 </span> <span class="subxComment"># if (curr >= max) abort</span> -<span id="L2674" class="LineNr">2674 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with edx</span> -<span id="L2675" class="LineNr">2675 </span> 73/jump-if-addr>= $stream-add2:abort/disp8 -<span id="L2676" class="LineNr">2676 </span> <span class="subxComment"># *curr = key->alloc-id</span> -<span id="L2677" class="LineNr">2677 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to ecx</span> -<span id="L2678" class="LineNr">2678 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> -<span id="L2679" class="LineNr">2679 </span> <span class="subxComment"># curr += 4</span> -<span id="L2680" class="LineNr">2680 </span> 05/add-to-eax 4/imm32 -<span id="L2681" class="LineNr">2681 </span> <span class="subxComment"># if (curr >= max) abort</span> -<span id="L2682" class="LineNr">2682 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with edx</span> -<span id="L2683" class="LineNr">2683 </span> 73/jump-if-addr>= $stream-add2:abort/disp8 -<span id="L2684" class="LineNr">2684 </span> <span class="subxComment"># *curr = key->payload</span> -<span id="L2685" class="LineNr">2685 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to ecx</span> -<span id="L2686" class="LineNr">2686 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> -<span id="L2687" class="LineNr">2687 </span> <span class="subxComment"># curr += 4</span> -<span id="L2688" class="LineNr">2688 </span> 05/add-to-eax 4/imm32 -<span id="L2689" class="LineNr">2689 </span> <span class="subxComment"># if (curr >= max) abort</span> -<span id="L2690" class="LineNr">2690 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with edx</span> -<span id="L2691" class="LineNr">2691 </span> 73/jump-if-addr>= $stream-add2:abort/disp8 -<span id="L2692" class="LineNr">2692 </span> <span class="subxComment"># *curr = val</span> -<span id="L2693" class="LineNr">2693 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+20) to ecx</span> -<span id="L2694" class="LineNr">2694 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> -<span id="L2695" class="LineNr">2695 </span> <span class="subxComment"># in->write += 0xc</span> -<span id="L2696" class="LineNr">2696 </span> 81 0/subop/add 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to *esi</span> -<span id="L2697" class="LineNr">2697 </span><span class="Constant">$stream-add2:end</span>: -<span id="L2698" class="LineNr">2698 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L2699" class="LineNr">2699 </span> 5e/pop-to-esi -<span id="L2700" class="LineNr">2700 </span> 5a/pop-to-edx -<span id="L2701" class="LineNr">2701 </span> 59/pop-to-ecx -<span id="L2702" class="LineNr">2702 </span> 58/pop-to-eax -<span id="L2703" class="LineNr">2703 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2704" class="LineNr">2704 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L2705" class="LineNr">2705 </span> 5d/pop-to-ebp -<span id="L2706" class="LineNr">2706 </span> c3/return -<span id="L2707" class="LineNr">2707 </span> -<span id="L2708" class="LineNr">2708 </span><span class="Constant">$stream-add2:abort</span>: -<span id="L2709" class="LineNr">2709 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> -<span id="L2710" class="LineNr">2710 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2711" class="LineNr">2711 </span> 68/push <span class="Constant">"overflow in stream-add2\n"</span>/imm32 -<span id="L2712" class="LineNr">2712 </span> 68/push 2/imm32/stderr -<span id="L2713" class="LineNr">2713 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2714" class="LineNr">2714 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 -<span id="L2715" class="LineNr">2715 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2716" class="LineNr">2716 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2717" class="LineNr">2717 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L2718" class="LineNr">2718 </span> bb/copy-to-ebx 1/imm32 -<span id="L2719" class="LineNr">2719 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 -<span id="L2720" class="LineNr">2720 </span> <span class="subxComment"># never gets here</span> -<span id="L2721" class="LineNr">2721 </span> -<span id="L2722" class="LineNr">2722 </span><span class="subxComment"># some variants of 'trace' that take multiple arguments in different combinations of types:</span> -<span id="L2723" class="LineNr">2723 </span><span class="subxComment"># n: int</span> -<span id="L2724" class="LineNr">2724 </span><span class="subxComment"># c: character [4-bytes, will eventually be UTF-8]</span> -<span id="L2725" class="LineNr">2725 </span><span class="subxComment"># s: (addr array byte)</span> -<span id="L2726" class="LineNr">2726 </span><span class="subxComment"># l: (addr slice)</span> -<span id="L2727" class="LineNr">2727 </span><span class="subxComment"># one gotcha: 's5' must not be empty</span> -<span id="L2728" class="LineNr">2728 </span> -<span id="L2729" class="LineNr">2729 </span><span class="subxFunction">trace-slsns</span>: <span class="subxComment"># s1: (addr array byte), l2: (addr slice), s3: (addr array byte), n4: int, s5: (addr array byte)</span> -<span id="L2730" class="LineNr">2730 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2731" class="LineNr">2731 </span> 55/push-ebp -<span id="L2732" class="LineNr">2732 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L2733" class="LineNr">2733 </span> <span class="subxComment"># write(*Trace-stream, s1)</span> -<span id="L2734" class="LineNr">2734 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2735" class="LineNr">2735 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L2736" class="LineNr">2736 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> -<span id="L2737" class="LineNr">2737 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2738" class="LineNr">2738 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L2739" class="LineNr">2739 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2740" class="LineNr">2740 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2741" class="LineNr">2741 </span> <span class="subxComment"># write-slice(*Trace-stream, l2)</span> -<span id="L2742" class="LineNr">2742 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2743" class="LineNr">2743 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L2744" class="LineNr">2744 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> -<span id="L2745" class="LineNr">2745 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2746" class="LineNr">2746 </span> e8/call <a href='123slice.subx.html#L793'>write-slice</a>/disp32 -<span id="L2747" class="LineNr">2747 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2748" class="LineNr">2748 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2749" class="LineNr">2749 </span> <span class="subxComment"># write(*Trace-stream, s3)</span> -<span id="L2750" class="LineNr">2750 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2751" class="LineNr">2751 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> -<span id="L2752" class="LineNr">2752 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> -<span id="L2753" class="LineNr">2753 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2754" class="LineNr">2754 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L2755" class="LineNr">2755 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2756" class="LineNr">2756 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2757" class="LineNr">2757 </span> <span class="subxComment"># write-int32-hex(*Trace-stream, n4)</span> -<span id="L2758" class="LineNr">2758 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2759" class="LineNr">2759 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+20)</span> -<span id="L2760" class="LineNr">2760 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> -<span id="L2761" class="LineNr">2761 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2762" class="LineNr">2762 </span> e8/call <a href='117write-int-hex.subx.html#L178'>write-int32-hex</a>/disp32 -<span id="L2763" class="LineNr">2763 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2764" class="LineNr">2764 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2765" class="LineNr">2765 </span> <span class="subxComment"># trace(s5) # implicitly adds a newline and finalizes the trace line</span> -<span id="L2766" class="LineNr">2766 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2767" class="LineNr">2767 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+24)</span> -<span id="L2768" class="LineNr">2768 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2769" class="LineNr">2769 </span> e8/call <a href='107trace.subx.html#L81'>trace</a>/disp32 -<span id="L2770" class="LineNr">2770 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2771" class="LineNr">2771 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2772" class="LineNr">2772 </span><span class="Constant">$trace-slsns:end</span>: -<span id="L2773" class="LineNr">2773 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2774" class="LineNr">2774 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L2775" class="LineNr">2775 </span> 5d/pop-to-ebp -<span id="L2776" class="LineNr">2776 </span> c3/return -<span id="L2777" class="LineNr">2777 </span> -<span id="L2778" class="LineNr">2778 </span><span class="subxTest">test-trace-slsns</span>: -<span id="L2779" class="LineNr">2779 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2780" class="LineNr">2780 </span> 55/push-ebp -<span id="L2781" class="LineNr">2781 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L2782" class="LineNr">2782 </span> <span class="subxComment"># setup</span> -<span id="L2783" class="LineNr">2783 </span> <span class="subxS1Comment"># . *Trace-stream->write = 0</span> -<span id="L2784" class="LineNr">2784 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># copy *Trace-stream to eax</span> -<span id="L2785" class="LineNr">2785 </span> c7 0/subop/copy 0/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># clear *eax</span> -<span id="L2786" class="LineNr">2786 </span> <span class="subxComment"># (eax..ecx) = "b"</span> -<span id="L2787" class="LineNr">2787 </span> b8/copy-to-eax <span class="Constant">"b"</span>/imm32 -<span id="L2788" class="LineNr">2788 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L2789" class="LineNr">2789 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L2790" class="LineNr">2790 </span> 05/add-to-eax 4/imm32 -<span id="L2791" class="LineNr">2791 </span> <span class="subxComment"># var b/ebx: slice = {eax, ecx}</span> -<span id="L2792" class="LineNr">2792 </span> 51/push-ecx -<span id="L2793" class="LineNr">2793 </span> 50/push-eax -<span id="L2794" class="LineNr">2794 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> -<span id="L2795" class="LineNr">2795 </span> <span class="subxComment"># trace-slsls("A" b "c " 3 " e")</span> -<span id="L2796" class="LineNr">2796 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2797" class="LineNr">2797 </span> 68/push <span class="Constant">" e"</span>/imm32 -<span id="L2798" class="LineNr">2798 </span> 68/push 3/imm32 -<span id="L2799" class="LineNr">2799 </span> 68/push <span class="Constant">"c "</span>/imm32 -<span id="L2800" class="LineNr">2800 </span> 53/push-ebx -<span id="L2801" class="LineNr">2801 </span> 68/push <span class="Constant">"A"</span>/imm32 -<span id="L2802" class="LineNr">2802 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2803" class="LineNr">2803 </span> e8/call <a href='survey_baremetal.subx.html#L2729'>trace-slsns</a>/disp32 -<span id="L2804" class="LineNr">2804 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2805" class="LineNr">2805 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> -<span id="L2806" class="Folded">2806 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2832" class="LineNr">2832 </span> <span class="subxComment"># check-trace-contains("Abc 0x00000003 e")</span> -<span id="L2833" class="LineNr">2833 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2834" class="LineNr">2834 </span> 68/push <span class="Constant">"F - test-trace-slsls"</span>/imm32 -<span id="L2835" class="LineNr">2835 </span> 68/push <span class="Constant">"Abc 0x00000003 e"</span>/imm32 -<span id="L2836" class="LineNr">2836 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2837" class="LineNr">2837 </span> e8/call <a href='107trace.subx.html#L248'>check-trace-contains</a>/disp32 -<span id="L2838" class="LineNr">2838 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2839" class="LineNr">2839 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2840" class="LineNr">2840 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2841" class="LineNr">2841 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L2842" class="LineNr">2842 </span> 5d/pop-to-ebp -<span id="L2843" class="LineNr">2843 </span> c3/return -<span id="L2844" class="LineNr">2844 </span> -<span id="L2845" class="LineNr">2845 </span><span class="subxFunction">num-bytes</span>: <span class="subxComment"># line: (addr stream byte) -> eax: int</span> -<span id="L2846" class="LineNr">2846 </span> <span class="subxComment"># pseudocode:</span> -<span id="L2847" class="LineNr">2847 </span> <span class="subxComment"># result = 0</span> -<span id="L2848" class="LineNr">2848 </span> <span class="subxComment"># while true</span> -<span id="L2849" class="LineNr">2849 </span> <span class="subxComment"># var word-slice = next-word(line)</span> -<span id="L2850" class="LineNr">2850 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> -<span id="L2851" class="LineNr">2851 </span> <span class="subxComment"># break</span> -<span id="L2852" class="LineNr">2852 </span> <span class="subxComment"># if slice-starts-with?(word-slice, "#") # comment</span> -<span id="L2853" class="LineNr">2853 </span> <span class="subxComment"># break</span> -<span id="L2854" class="LineNr">2854 </span> <span class="subxComment"># if label?(word-slice) # no need for label declarations anymore</span> -<span id="L2855" class="LineNr">2855 </span> <span class="subxComment"># break</span> -<span id="L2856" class="LineNr">2856 </span> <span class="subxComment"># if slice-equal?(word-slice, "==")</span> -<span id="L2857" class="LineNr">2857 </span> <span class="subxComment"># break # no need for segment header lines</span> -<span id="L2858" class="LineNr">2858 </span> <span class="subxComment"># result += compute-width(word-slice)</span> -<span id="L2859" class="LineNr">2859 </span> <span class="subxComment"># return result</span> -<span id="L2860" class="LineNr">2860 </span> <span class="subxComment">#</span> -<span id="L2861" class="LineNr">2861 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2862" class="LineNr">2862 </span> 55/push-ebp -<span id="L2863" class="LineNr">2863 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L2864" class="LineNr">2864 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L2865" class="LineNr">2865 </span> 51/push-ecx -<span id="L2866" class="LineNr">2866 </span> 52/push-edx -<span id="L2867" class="LineNr">2867 </span> 53/push-ebx -<span id="L2868" class="LineNr">2868 </span> <span class="subxComment"># var result/eax = 0</span> -<span id="L2869" class="LineNr">2869 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> -<span id="L2870" class="LineNr">2870 </span> <span class="subxComment"># var word-slice/ecx: slice</span> -<span id="L2871" class="LineNr">2871 </span> 68/push 0/imm32/end -<span id="L2872" class="LineNr">2872 </span> 68/push 0/imm32/start -<span id="L2873" class="LineNr">2873 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L2874" class="Folded">2874 </span><span class="Folded">+-- 26 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2900" class="LineNr">2900 </span> <span class="subxS1Comment"># . rewind-stream(line)</span> -<span id="L2901" class="LineNr">2901 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2902" class="LineNr">2902 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L2903" class="LineNr">2903 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2904" class="LineNr">2904 </span> e8/call <a href='106stream.subx.html#L56'>rewind-stream</a>/disp32 -<span id="L2905" class="LineNr">2905 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2906" class="LineNr">2906 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2907" class="LineNr">2907 </span><span class="Constant">$num-bytes:loop</span>: -<span id="L2908" class="LineNr">2908 </span> <span class="subxComment"># next-word(line, word-slice)</span> -<span id="L2909" class="LineNr">2909 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2910" class="LineNr">2910 </span> 51/push-ecx -<span id="L2911" class="LineNr">2911 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L2912" class="LineNr">2912 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2913" class="LineNr">2913 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 -<span id="L2914" class="LineNr">2914 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2915" class="LineNr">2915 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2916" class="Folded">2916 </span><span class="Folded">+-- 40 lines: #? # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2956" class="LineNr">2956 </span><span class="Constant">$num-bytes:check0</span>: -<span id="L2957" class="LineNr">2957 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> -<span id="L2958" class="LineNr">2958 </span> <span class="subxS1Comment"># . save result</span> -<span id="L2959" class="LineNr">2959 </span> 50/push-eax -<span id="L2960" class="LineNr">2960 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> -<span id="L2961" class="LineNr">2961 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2962" class="LineNr">2962 </span> 51/push-ecx -<span id="L2963" class="LineNr">2963 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2964" class="LineNr">2964 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 -<span id="L2965" class="LineNr">2965 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2966" class="LineNr">2966 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2967" class="LineNr">2967 </span> <span class="subxS1Comment"># . if (eax != false) break</span> -<span id="L2968" class="LineNr">2968 </span> 3d/compare-eax-and 0/imm32/false -<span id="L2969" class="LineNr">2969 </span> <span class="subxS1Comment"># . restore result now that ZF is set</span> -<span id="L2970" class="LineNr">2970 </span> 58/pop-to-eax -<span id="L2971" class="LineNr">2971 </span> 75/jump-if-!= $num-bytes:end/disp8 -<span id="L2972" class="LineNr">2972 </span><span class="Constant">$num-bytes:check-for-comment</span>: -<span id="L2973" class="LineNr">2973 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) break</span> -<span id="L2974" class="LineNr">2974 </span> <span class="subxS1Comment"># . start/edx = word-slice->start</span> -<span id="L2975" class="LineNr">2975 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to edx</span> -<span id="L2976" class="LineNr">2976 </span> <span class="subxS1Comment"># . c/ebx = *start</span> -<span id="L2977" class="LineNr">2977 </span> 31/xor 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ebx</span> -<span id="L2978" class="LineNr">2978 </span> 8a/copy-byte 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/BL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *edx to BL</span> -<span id="L2979" class="LineNr">2979 </span> <span class="subxS1Comment"># . if (ebx == '#') break</span> -<span id="L2980" class="LineNr">2980 </span> 81 7/subop/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x23/imm32/hash <span class="subxComment"># compare ebx</span> -<span id="L2981" class="LineNr">2981 </span> 74/jump-if-= $num-bytes:end/disp8 -<span id="L2982" class="LineNr">2982 </span><span class="Constant">$num-bytes:check-for-label</span>: -<span id="L2983" class="LineNr">2983 </span> <span class="subxComment"># if (slice-ends-with?(word-slice, ":")) break</span> -<span id="L2984" class="LineNr">2984 </span> <span class="subxS1Comment"># . end/edx = word-slice->end</span> -<span id="L2985" class="LineNr">2985 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to edx</span> -<span id="L2986" class="LineNr">2986 </span> <span class="subxS1Comment"># . c/ebx = *(end-1)</span> -<span id="L2987" class="LineNr">2987 </span> 31/xor 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ebx</span> -<span id="L2988" class="LineNr">2988 </span> 8a/copy-byte 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/BL -1/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to BL</span> -<span id="L2989" class="LineNr">2989 </span> <span class="subxS1Comment"># . if (ebx == ':') break</span> -<span id="L2990" class="LineNr">2990 </span> 81 7/subop/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x3a/imm32/colon <span class="subxComment"># compare ebx</span> -<span id="L2991" class="LineNr">2991 </span> 74/jump-if-= $num-bytes:end/disp8 -<span id="L2992" class="LineNr">2992 </span><span class="Constant">$num-bytes:check-for-segment-header</span>: -<span id="L2993" class="LineNr">2993 </span> <span class="subxComment"># if (slice-equal?(word-slice, "==")) break</span> -<span id="L2994" class="LineNr">2994 </span> <span class="subxS1Comment"># . push result</span> -<span id="L2995" class="LineNr">2995 </span> 50/push-eax -<span id="L2996" class="LineNr">2996 </span> <span class="subxS1Comment"># . eax = slice-equal?(word-slice, "==")</span> -<span id="L2997" class="LineNr">2997 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2998" class="LineNr">2998 </span> 68/push <span class="Constant">"=="</span>/imm32 -<span id="L2999" class="LineNr">2999 </span> 51/push-ecx -<span id="L3000" class="LineNr">3000 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3001" class="LineNr">3001 </span> e8/call <a href='123slice.subx.html#L120'>slice-equal?</a>/disp32 -<span id="L3002" class="LineNr">3002 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3003" class="LineNr">3003 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3004" class="LineNr">3004 </span> <span class="subxS1Comment"># . if (eax != false) break</span> -<span id="L3005" class="LineNr">3005 </span> 3d/compare-eax-and 0/imm32/false -<span id="L3006" class="LineNr">3006 </span> <span class="subxS1Comment"># . restore result now that ZF is set</span> -<span id="L3007" class="LineNr">3007 </span> 58/pop-to-eax -<span id="L3008" class="LineNr">3008 </span> 75/jump-if-!= $num-bytes:end/disp8 -<span id="L3009" class="LineNr">3009 </span><span class="Constant">$num-bytes:loop-body</span>: -<span id="L3010" class="LineNr">3010 </span> <span class="subxComment"># result += compute-width-of-slice(word-slice)</span> -<span id="L3011" class="LineNr">3011 </span> <span class="subxS1Comment"># . copy result to edx</span> -<span id="L3012" class="LineNr">3012 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to edx</span> -<span id="L3013" class="LineNr">3013 </span> <span class="subxS1Comment"># . eax = compute-width-of-slice(word-slice)</span> -<span id="L3014" class="LineNr">3014 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3015" class="LineNr">3015 </span> 51/push-ecx -<span id="L3016" class="LineNr">3016 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3017" class="LineNr">3017 </span> e8/call <a href='133subx-widths.subx.html#L45'>compute-width-of-slice</a>/disp32 -<span id="L3018" class="LineNr">3018 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3019" class="LineNr">3019 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3020" class="LineNr">3020 </span> <span class="subxS1Comment"># . eax += result</span> -<span id="L3021" class="LineNr">3021 </span> 01/add 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add edx to eax</span> -<span id="L3022" class="LineNr">3022 </span> e9/jump $num-bytes:<span class="Constant">loop</span>/disp32 -<span id="L3023" class="LineNr">3023 </span><span class="Constant">$num-bytes:end</span>: -<span id="L3024" class="LineNr">3024 </span> <span class="subxS1Comment"># . rewind-stream(line)</span> -<span id="L3025" class="LineNr">3025 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3026" class="LineNr">3026 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3027" class="LineNr">3027 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3028" class="LineNr">3028 </span> e8/call <a href='106stream.subx.html#L56'>rewind-stream</a>/disp32 -<span id="L3029" class="LineNr">3029 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3030" class="LineNr">3030 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3031" class="LineNr">3031 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L3032" class="LineNr">3032 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3033" class="LineNr">3033 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L3034" class="LineNr">3034 </span> 5b/pop-to-ebx -<span id="L3035" class="LineNr">3035 </span> 5a/pop-to-edx -<span id="L3036" class="LineNr">3036 </span> 59/pop-to-ecx -<span id="L3037" class="LineNr">3037 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3038" class="LineNr">3038 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3039" class="LineNr">3039 </span> 5d/pop-to-ebp -<span id="L3040" class="LineNr">3040 </span> c3/return -<span id="L3041" class="LineNr">3041 </span> -<span id="L3042" class="LineNr">3042 </span><span class="subxTest">test-num-bytes-handles-empty-string</span>: -<span id="L3043" class="LineNr">3043 </span> <span class="subxComment"># if a line starts with '#', return 0</span> -<span id="L3044" class="LineNr">3044 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3045" class="LineNr">3045 </span> 55/push-ebp -<span id="L3046" class="LineNr">3046 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3047" class="LineNr">3047 </span> <span class="subxComment"># setup</span> -<span id="L3048" class="LineNr">3048 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L3049" class="LineNr">3049 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3050" class="LineNr">3050 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3051" class="LineNr">3051 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3052" class="LineNr">3052 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3053" class="LineNr">3053 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3054" class="LineNr">3054 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3055" class="LineNr">3055 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L3056" class="LineNr">3056 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3057" class="LineNr">3057 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L3058" class="LineNr">3058 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3059" class="LineNr">3059 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3060" class="LineNr">3060 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3061" class="LineNr">3061 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3062" class="LineNr">3062 </span> <span class="subxComment"># no contents in input</span> -<span id="L3063" class="LineNr">3063 </span> <span class="subxComment"># eax = num-bytes(_test-input-stream)</span> -<span id="L3064" class="LineNr">3064 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3065" class="LineNr">3065 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3066" class="LineNr">3066 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3067" class="LineNr">3067 </span> e8/call <a href='survey_baremetal.subx.html#L2845'>num-bytes</a>/disp32 -<span id="L3068" class="LineNr">3068 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3069" class="LineNr">3069 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3070" class="LineNr">3070 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> -<span id="L3071" class="LineNr">3071 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3072" class="LineNr">3072 </span> 68/push <span class="Constant">"F - test-num-bytes-handles-empty-string"</span>/imm32 -<span id="L3073" class="LineNr">3073 </span> 68/push 0/imm32/true -<span id="L3074" class="LineNr">3074 </span> 50/push-eax -<span id="L3075" class="LineNr">3075 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3076" class="LineNr">3076 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L3077" class="LineNr">3077 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3078" class="LineNr">3078 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3079" class="LineNr">3079 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3080" class="LineNr">3080 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3081" class="LineNr">3081 </span> 5d/pop-to-ebp -<span id="L3082" class="LineNr">3082 </span> c3/return -<span id="L3083" class="LineNr">3083 </span> -<span id="L3084" class="LineNr">3084 </span><span class="subxTest">test-num-bytes-ignores-comments</span>: -<span id="L3085" class="LineNr">3085 </span> <span class="subxComment"># if a line starts with '#', return 0</span> -<span id="L3086" class="LineNr">3086 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3087" class="LineNr">3087 </span> 55/push-ebp -<span id="L3088" class="LineNr">3088 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3089" class="LineNr">3089 </span> <span class="subxComment"># setup</span> -<span id="L3090" class="LineNr">3090 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L3091" class="LineNr">3091 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3092" class="LineNr">3092 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3093" class="LineNr">3093 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3094" class="LineNr">3094 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3095" class="LineNr">3095 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3096" class="LineNr">3096 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3097" class="LineNr">3097 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L3098" class="LineNr">3098 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3099" class="LineNr">3099 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L3100" class="LineNr">3100 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3101" class="LineNr">3101 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3102" class="LineNr">3102 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3103" class="LineNr">3103 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3104" class="LineNr">3104 </span> <span class="subxComment"># initialize input</span> -<span id="L3105" class="LineNr">3105 </span> <span class="subxS1Comment"># . write(_test-input-stream, "# abcd")</span> -<span id="L3106" class="LineNr">3106 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3107" class="LineNr">3107 </span> 68/push <span class="Constant">"# abcd"</span>/imm32 -<span id="L3108" class="LineNr">3108 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3109" class="LineNr">3109 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3110" class="LineNr">3110 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L3111" class="LineNr">3111 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3112" class="LineNr">3112 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3113" class="LineNr">3113 </span> <span class="subxComment"># eax = num-bytes(_test-input-stream)</span> -<span id="L3114" class="LineNr">3114 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3115" class="LineNr">3115 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3116" class="LineNr">3116 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3117" class="LineNr">3117 </span> e8/call <a href='survey_baremetal.subx.html#L2845'>num-bytes</a>/disp32 -<span id="L3118" class="LineNr">3118 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3119" class="LineNr">3119 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3120" class="LineNr">3120 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> -<span id="L3121" class="LineNr">3121 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3122" class="LineNr">3122 </span> 68/push <span class="Constant">"F - test-num-bytes-ignores-comments"</span>/imm32 -<span id="L3123" class="LineNr">3123 </span> 68/push 0/imm32/true -<span id="L3124" class="LineNr">3124 </span> 50/push-eax -<span id="L3125" class="LineNr">3125 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3126" class="LineNr">3126 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L3127" class="LineNr">3127 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3128" class="LineNr">3128 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3129" class="LineNr">3129 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3130" class="LineNr">3130 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3131" class="LineNr">3131 </span> 5d/pop-to-ebp -<span id="L3132" class="LineNr">3132 </span> c3/return -<span id="L3133" class="LineNr">3133 </span> -<span id="L3134" class="LineNr">3134 </span><span class="subxTest">test-num-bytes-ignores-labels</span>: -<span id="L3135" class="LineNr">3135 </span> <span class="subxComment"># if the first word ends with ':', return 0</span> -<span id="L3136" class="LineNr">3136 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3137" class="LineNr">3137 </span> 55/push-ebp -<span id="L3138" class="LineNr">3138 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3139" class="LineNr">3139 </span> <span class="subxComment"># setup</span> -<span id="L3140" class="LineNr">3140 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L3141" class="LineNr">3141 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3142" class="LineNr">3142 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3143" class="LineNr">3143 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3144" class="LineNr">3144 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3145" class="LineNr">3145 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3146" class="LineNr">3146 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3147" class="LineNr">3147 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L3148" class="LineNr">3148 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3149" class="LineNr">3149 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L3150" class="LineNr">3150 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3151" class="LineNr">3151 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3152" class="LineNr">3152 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3153" class="LineNr">3153 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3154" class="LineNr">3154 </span> <span class="subxComment"># initialize input</span> -<span id="L3155" class="LineNr">3155 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab: # cd")</span> -<span id="L3156" class="LineNr">3156 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3157" class="LineNr">3157 </span> 68/push <span class="Constant">"ab: # cd"</span>/imm32 -<span id="L3158" class="LineNr">3158 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3159" class="LineNr">3159 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3160" class="LineNr">3160 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L3161" class="LineNr">3161 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3162" class="LineNr">3162 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3163" class="LineNr">3163 </span> <span class="subxComment"># eax = num-bytes(_test-input-stream)</span> -<span id="L3164" class="LineNr">3164 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3165" class="LineNr">3165 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3166" class="LineNr">3166 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3167" class="LineNr">3167 </span> e8/call <a href='survey_baremetal.subx.html#L2845'>num-bytes</a>/disp32 -<span id="L3168" class="LineNr">3168 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3169" class="LineNr">3169 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3170" class="LineNr">3170 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> -<span id="L3171" class="LineNr">3171 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3172" class="LineNr">3172 </span> 68/push <span class="Constant">"F - test-num-bytes-ignores-labels"</span>/imm32 -<span id="L3173" class="LineNr">3173 </span> 68/push 0/imm32/true -<span id="L3174" class="LineNr">3174 </span> 50/push-eax -<span id="L3175" class="LineNr">3175 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3176" class="LineNr">3176 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L3177" class="LineNr">3177 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3178" class="LineNr">3178 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3179" class="LineNr">3179 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3180" class="LineNr">3180 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3181" class="LineNr">3181 </span> 5d/pop-to-ebp -<span id="L3182" class="LineNr">3182 </span> c3/return -<span id="L3183" class="LineNr">3183 </span> -<span id="L3184" class="LineNr">3184 </span><span class="subxTest">test-num-bytes-ignores-segment-headers</span>: -<span id="L3185" class="LineNr">3185 </span> <span class="subxComment"># if the first word is '==', return 0</span> -<span id="L3186" class="LineNr">3186 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3187" class="LineNr">3187 </span> 55/push-ebp -<span id="L3188" class="LineNr">3188 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3189" class="LineNr">3189 </span> <span class="subxComment"># setup</span> -<span id="L3190" class="LineNr">3190 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L3191" class="LineNr">3191 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3192" class="LineNr">3192 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3193" class="LineNr">3193 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3194" class="LineNr">3194 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3195" class="LineNr">3195 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3196" class="LineNr">3196 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3197" class="LineNr">3197 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L3198" class="LineNr">3198 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3199" class="LineNr">3199 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L3200" class="LineNr">3200 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3201" class="LineNr">3201 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3202" class="LineNr">3202 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3203" class="LineNr">3203 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3204" class="LineNr">3204 </span> <span class="subxComment"># initialize input</span> -<span id="L3205" class="LineNr">3205 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== ab cd")</span> -<span id="L3206" class="LineNr">3206 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3207" class="LineNr">3207 </span> 68/push <span class="Constant">"== ab cd"</span>/imm32 -<span id="L3208" class="LineNr">3208 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3209" class="LineNr">3209 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3210" class="LineNr">3210 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L3211" class="LineNr">3211 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3212" class="LineNr">3212 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3213" class="LineNr">3213 </span> <span class="subxComment"># eax = num-bytes(_test-input-stream)</span> -<span id="L3214" class="LineNr">3214 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3215" class="LineNr">3215 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3216" class="LineNr">3216 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3217" class="LineNr">3217 </span> e8/call <a href='survey_baremetal.subx.html#L2845'>num-bytes</a>/disp32 -<span id="L3218" class="LineNr">3218 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3219" class="LineNr">3219 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3220" class="LineNr">3220 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> -<span id="L3221" class="LineNr">3221 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3222" class="LineNr">3222 </span> 68/push <span class="Constant">"F - test-num-bytes-ignores-segment-headers"</span>/imm32 -<span id="L3223" class="LineNr">3223 </span> 68/push 0/imm32/true -<span id="L3224" class="LineNr">3224 </span> 50/push-eax -<span id="L3225" class="LineNr">3225 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3226" class="LineNr">3226 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L3227" class="LineNr">3227 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3228" class="LineNr">3228 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3229" class="LineNr">3229 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3230" class="LineNr">3230 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3231" class="LineNr">3231 </span> 5d/pop-to-ebp -<span id="L3232" class="LineNr">3232 </span> c3/return -<span id="L3233" class="LineNr">3233 </span> -<span id="L3234" class="LineNr">3234 </span><span class="subxTest">test-num-bytes-counts-words-by-default</span>: -<span id="L3235" class="LineNr">3235 </span> <span class="subxComment"># without metadata, count words</span> -<span id="L3236" class="LineNr">3236 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3237" class="LineNr">3237 </span> 55/push-ebp -<span id="L3238" class="LineNr">3238 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3239" class="LineNr">3239 </span> <span class="subxComment"># setup</span> -<span id="L3240" class="LineNr">3240 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L3241" class="LineNr">3241 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3242" class="LineNr">3242 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3243" class="LineNr">3243 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3244" class="LineNr">3244 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3245" class="LineNr">3245 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3246" class="LineNr">3246 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3247" class="LineNr">3247 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L3248" class="LineNr">3248 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3249" class="LineNr">3249 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L3250" class="LineNr">3250 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3251" class="LineNr">3251 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3252" class="LineNr">3252 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3253" class="LineNr">3253 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3254" class="LineNr">3254 </span> <span class="subxComment"># initialize input</span> -<span id="L3255" class="LineNr">3255 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab cd ef")</span> -<span id="L3256" class="LineNr">3256 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3257" class="LineNr">3257 </span> 68/push <span class="Constant">"ab cd ef"</span>/imm32 -<span id="L3258" class="LineNr">3258 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3259" class="LineNr">3259 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3260" class="LineNr">3260 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L3261" class="LineNr">3261 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3262" class="LineNr">3262 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3263" class="LineNr">3263 </span> <span class="subxComment"># eax = num-bytes(_test-input-stream)</span> -<span id="L3264" class="LineNr">3264 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3265" class="LineNr">3265 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3266" class="LineNr">3266 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3267" class="LineNr">3267 </span> e8/call <a href='survey_baremetal.subx.html#L2845'>num-bytes</a>/disp32 -<span id="L3268" class="LineNr">3268 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3269" class="LineNr">3269 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3270" class="LineNr">3270 </span> <span class="subxComment"># check-ints-equal(eax, 3, msg)</span> -<span id="L3271" class="LineNr">3271 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3272" class="LineNr">3272 </span> 68/push <span class="Constant">"F - test-num-bytes-counts-words-by-default"</span>/imm32 -<span id="L3273" class="LineNr">3273 </span> 68/push 3/imm32/true -<span id="L3274" class="LineNr">3274 </span> 50/push-eax -<span id="L3275" class="LineNr">3275 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3276" class="LineNr">3276 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L3277" class="LineNr">3277 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3278" class="LineNr">3278 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3279" class="LineNr">3279 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3280" class="LineNr">3280 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3281" class="LineNr">3281 </span> 5d/pop-to-ebp -<span id="L3282" class="LineNr">3282 </span> c3/return -<span id="L3283" class="LineNr">3283 </span> -<span id="L3284" class="LineNr">3284 </span><span class="subxTest">test-num-bytes-ignores-trailing-comment</span>: -<span id="L3285" class="LineNr">3285 </span> <span class="subxComment"># trailing comments appropriately ignored</span> -<span id="L3286" class="LineNr">3286 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3287" class="LineNr">3287 </span> 55/push-ebp -<span id="L3288" class="LineNr">3288 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3289" class="LineNr">3289 </span> <span class="subxComment"># setup</span> -<span id="L3290" class="LineNr">3290 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L3291" class="LineNr">3291 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3292" class="LineNr">3292 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3293" class="LineNr">3293 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3294" class="LineNr">3294 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3295" class="LineNr">3295 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3296" class="LineNr">3296 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3297" class="LineNr">3297 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L3298" class="LineNr">3298 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3299" class="LineNr">3299 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L3300" class="LineNr">3300 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3301" class="LineNr">3301 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3302" class="LineNr">3302 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3303" class="LineNr">3303 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3304" class="LineNr">3304 </span> <span class="subxComment"># initialize input</span> -<span id="L3305" class="LineNr">3305 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab cd # ef")</span> -<span id="L3306" class="LineNr">3306 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3307" class="LineNr">3307 </span> 68/push <span class="Constant">"ab cd # ef"</span>/imm32 -<span id="L3308" class="LineNr">3308 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3309" class="LineNr">3309 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3310" class="LineNr">3310 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L3311" class="LineNr">3311 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3312" class="LineNr">3312 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3313" class="LineNr">3313 </span> <span class="subxComment"># eax = num-bytes(_test-input-stream)</span> -<span id="L3314" class="LineNr">3314 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3315" class="LineNr">3315 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3316" class="LineNr">3316 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3317" class="LineNr">3317 </span> e8/call <a href='survey_baremetal.subx.html#L2845'>num-bytes</a>/disp32 -<span id="L3318" class="LineNr">3318 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3319" class="LineNr">3319 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3320" class="LineNr">3320 </span> <span class="subxComment"># check-ints-equal(eax, 2, msg)</span> -<span id="L3321" class="LineNr">3321 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3322" class="LineNr">3322 </span> 68/push <span class="Constant">"F - test-num-bytes-ignores-trailing-comment"</span>/imm32 -<span id="L3323" class="LineNr">3323 </span> 68/push 2/imm32/true -<span id="L3324" class="LineNr">3324 </span> 50/push-eax -<span id="L3325" class="LineNr">3325 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3326" class="LineNr">3326 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L3327" class="LineNr">3327 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3328" class="LineNr">3328 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3329" class="LineNr">3329 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3330" class="LineNr">3330 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3331" class="LineNr">3331 </span> 5d/pop-to-ebp -<span id="L3332" class="LineNr">3332 </span> c3/return -<span id="L3333" class="LineNr">3333 </span> -<span id="L3334" class="LineNr">3334 </span><span class="subxTest">test-num-bytes-handles-imm32</span>: -<span id="L3335" class="LineNr">3335 </span> <span class="subxComment"># if a word has the /imm32 metadata, count it as 4 bytes</span> -<span id="L3336" class="LineNr">3336 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3337" class="LineNr">3337 </span> 55/push-ebp -<span id="L3338" class="LineNr">3338 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3339" class="LineNr">3339 </span> <span class="subxComment"># setup</span> -<span id="L3340" class="LineNr">3340 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L3341" class="LineNr">3341 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3342" class="LineNr">3342 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3343" class="LineNr">3343 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3344" class="LineNr">3344 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3345" class="LineNr">3345 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3346" class="LineNr">3346 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3347" class="LineNr">3347 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L3348" class="LineNr">3348 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3349" class="LineNr">3349 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L3350" class="LineNr">3350 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3351" class="LineNr">3351 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3352" class="LineNr">3352 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3353" class="LineNr">3353 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3354" class="LineNr">3354 </span> <span class="subxComment"># initialize input</span> -<span id="L3355" class="LineNr">3355 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab cd/imm32 ef")</span> -<span id="L3356" class="LineNr">3356 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3357" class="LineNr">3357 </span> 68/push <span class="Constant">"ab cd/imm32 ef"</span>/imm32 -<span id="L3358" class="LineNr">3358 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3359" class="LineNr">3359 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3360" class="LineNr">3360 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L3361" class="LineNr">3361 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3362" class="LineNr">3362 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3363" class="LineNr">3363 </span> <span class="subxComment"># eax = num-bytes(_test-input-stream)</span> -<span id="L3364" class="LineNr">3364 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3365" class="LineNr">3365 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3366" class="LineNr">3366 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3367" class="LineNr">3367 </span> e8/call <a href='survey_baremetal.subx.html#L2845'>num-bytes</a>/disp32 -<span id="L3368" class="LineNr">3368 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3369" class="LineNr">3369 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3370" class="LineNr">3370 </span> <span class="subxComment"># check-ints-equal(eax, 6, msg)</span> -<span id="L3371" class="LineNr">3371 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3372" class="LineNr">3372 </span> 68/push <span class="Constant">"F - test-num-bytes-handles-imm32"</span>/imm32 -<span id="L3373" class="LineNr">3373 </span> 68/push 6/imm32/true -<span id="L3374" class="LineNr">3374 </span> 50/push-eax -<span id="L3375" class="LineNr">3375 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3376" class="LineNr">3376 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L3377" class="LineNr">3377 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3378" class="LineNr">3378 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3379" class="LineNr">3379 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3380" class="LineNr">3380 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3381" class="LineNr">3381 </span> 5d/pop-to-ebp -<span id="L3382" class="LineNr">3382 </span> c3/return -<span id="L3383" class="LineNr">3383 </span> -<span id="L3384" class="LineNr">3384 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +<span id="L871" class="LineNr"> 871 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L872" class="Folded"> 872 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L898" class="LineNr"> 898 </span> <span class="subxS1Comment"># . check-trace-contains("label 'x' is at address 0x00007c06.", msg)</span> +<span id="L899" class="LineNr"> 899 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L900" class="LineNr"> 900 </span> 68/push <span class="Constant">"F - test-compute-addresses"</span>/imm32 +<span id="L901" class="LineNr"> 901 </span> 68/push <span class="Constant">"label 'x' is at address 0x00007c06."</span>/imm32 +<span id="L902" class="LineNr"> 902 </span> <span class="subxS2Comment"># . . call</span> +<span id="L903" class="LineNr"> 903 </span> e8/call <a href='107trace.subx.html#L248'>check-trace-contains</a>/disp32 +<span id="L904" class="LineNr"> 904 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L905" class="LineNr"> 905 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L906" class="LineNr"> 906 </span> <span class="subxS1Comment"># . check-ints-equal(labels->write, 0xc, msg)</span> +<span id="L907" class="LineNr"> 907 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L908" class="LineNr"> 908 </span> 68/push <span class="Constant">"F - test-compute-addresses-maintains-labels-write-index"</span>/imm32 +<span id="L909" class="LineNr"> 909 </span> 68/push 0xc/imm32/1-entry +<span id="L910" class="LineNr"> 910 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> +<span id="L911" class="LineNr"> 911 </span> <span class="subxS2Comment"># . . call</span> +<span id="L912" class="LineNr"> 912 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L913" class="LineNr"> 913 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L914" class="LineNr"> 914 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L915" class="LineNr"> 915 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L916" class="LineNr"> 916 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x24/imm32 <span class="subxComment"># add to esp</span> +<span id="L917" class="LineNr"> 917 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L918" class="LineNr"> 918 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L919" class="LineNr"> 919 </span> 5d/pop-to-ebp +<span id="L920" class="LineNr"> 920 </span> c3/return +<span id="L921" class="LineNr"> 921 </span> +<span id="L922" class="LineNr"> 922 </span><span class="subxFunction">emit-labels</span>: <span class="subxComment"># out: (addr buffered-file), labels: (addr stream {(handle array byte), address})</span> +<span id="L923" class="LineNr"> 923 </span> <span class="subxComment"># pseudocode:</span> +<span id="L924" class="LineNr"> 924 </span> <span class="subxComment"># curr = table->data</span> +<span id="L925" class="LineNr"> 925 </span> <span class="subxComment"># max = &table->data[table->write]</span> +<span id="L926" class="LineNr"> 926 </span> <span class="subxComment"># while curr < max</span> +<span id="L927" class="LineNr"> 927 </span> <span class="subxComment"># var label: (addr array byte) = lookup(*curr)</span> +<span id="L928" class="LineNr"> 928 </span> <span class="subxComment"># curr += 8</span> +<span id="L929" class="LineNr"> 929 </span> <span class="subxComment"># write-buffered(out, label)</span> +<span id="L930" class="LineNr"> 930 </span> <span class="subxComment"># write-buffered(out, ' ')</span> +<span id="L931" class="LineNr"> 931 </span> <span class="subxComment"># write-buffered(out, *curr)</span> +<span id="L932" class="LineNr"> 932 </span> <span class="subxComment"># curr += 4</span> +<span id="L933" class="LineNr"> 933 </span> <span class="subxComment"># write(out, '\n')</span> +<span id="L934" class="LineNr"> 934 </span> <span class="subxComment"># return 0</span> +<span id="L935" class="LineNr"> 935 </span> <span class="subxComment">#</span> +<span id="L936" class="LineNr"> 936 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L937" class="LineNr"> 937 </span> 55/push-ebp +<span id="L938" class="LineNr"> 938 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L939" class="LineNr"> 939 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L940" class="LineNr"> 940 </span> 50/push-eax +<span id="L941" class="LineNr"> 941 </span> 51/push-ecx +<span id="L942" class="LineNr"> 942 </span> 52/push-edx +<span id="L943" class="LineNr"> 943 </span> 56/push-esi +<span id="L944" class="LineNr"> 944 </span> <span class="subxComment"># esi = table</span> +<span id="L945" class="LineNr"> 945 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to esi</span> +<span id="L946" class="LineNr"> 946 </span> <span class="subxComment"># var curr/ecx: (addr handle array byte) = table->data</span> +<span id="L947" class="LineNr"> 947 </span> 8d/copy-address 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+12 to ecx</span> +<span id="L948" class="LineNr"> 948 </span> <span class="subxComment"># var max/edx: (addr byte) = &table->data[table->write]</span> +<span id="L949" class="LineNr"> 949 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to edx</span> +<span id="L950" class="LineNr"> 950 </span> 8d/copy-address 0/mod/indirect 4/rm32/sib 1/base/ecx 2/index/edx <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx+edx to edx</span> +<span id="L951" class="LineNr"> 951 </span><span class="Constant">$emit-labels:loop</span>: +<span id="L952" class="LineNr"> 952 </span> <span class="subxComment"># if (curr >= max) return null</span> +<span id="L953" class="LineNr"> 953 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with edx</span> +<span id="L954" class="LineNr"> 954 </span> 0f 83/jump-if-addr>= $emit-labels:end/disp32 +<span id="L955" class="LineNr"> 955 </span> <span class="subxComment"># var label/eax: (addr array byte) = lookup(*curr)</span> +<span id="L956" class="LineNr"> 956 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L957" class="LineNr"> 957 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> +<span id="L958" class="LineNr"> 958 </span> ff 6/subop/push 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ecx</span> +<span id="L959" class="LineNr"> 959 </span> <span class="subxS2Comment"># . . call</span> +<span id="L960" class="LineNr"> 960 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 +<span id="L961" class="LineNr"> 961 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L962" class="LineNr"> 962 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L963" class="LineNr"> 963 </span> <span class="subxComment"># curr += 8</span> +<span id="L964" class="LineNr"> 964 </span> 81 0/subop/add 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to ecx</span> +<span id="L965" class="LineNr"> 965 </span> <span class="subxComment"># write-buffered(out, label)</span> +<span id="L966" class="LineNr"> 966 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L967" class="LineNr"> 967 </span> 50/push-eax +<span id="L968" class="LineNr"> 968 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L969" class="LineNr"> 969 </span> <span class="subxS2Comment"># . . call</span> +<span id="L970" class="LineNr"> 970 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L971" class="LineNr"> 971 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L972" class="LineNr"> 972 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L973" class="LineNr"> 973 </span> <span class="subxComment"># write-buffered(out, ' ')</span> +<span id="L974" class="LineNr"> 974 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L975" class="LineNr"> 975 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L93'>Space</a></span>/imm32 +<span id="L976" class="LineNr"> 976 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L977" class="LineNr"> 977 </span> <span class="subxS2Comment"># . . call</span> +<span id="L978" class="LineNr"> 978 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L979" class="LineNr"> 979 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L980" class="LineNr"> 980 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L981" class="LineNr"> 981 </span> <span class="subxS1Comment"># . flush(Stderr)</span> +<span id="L982" class="LineNr"> 982 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L983" class="LineNr"> 983 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L984" class="LineNr"> 984 </span> <span class="subxS2Comment"># . . call</span> +<span id="L985" class="LineNr"> 985 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L986" class="LineNr"> 986 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L987" class="LineNr"> 987 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L988" class="LineNr"> 988 </span> <span class="subxComment"># write-int32-hex-buffered(out, *curr)</span> +<span id="L989" class="LineNr"> 989 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L990" class="LineNr"> 990 </span> ff 6/subop/push 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ecx</span> +<span id="L991" class="LineNr"> 991 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L992" class="LineNr"> 992 </span> <span class="subxS2Comment"># . . call</span> +<span id="L993" class="LineNr"> 993 </span> e8/call <a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 +<span id="L994" class="LineNr"> 994 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L995" class="LineNr"> 995 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L996" class="LineNr"> 996 </span> <span class="subxComment"># curr += 4</span> +<span id="L997" class="LineNr"> 997 </span> 81 0/subop/add 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to ecx</span> +<span id="L998" class="LineNr"> 998 </span> <span class="subxComment"># write-buffered(out, '\n')</span> +<span id="L999" class="LineNr"> 999 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1000" class="LineNr">1000 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L1001" class="LineNr">1001 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L1002" class="LineNr">1002 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1003" class="LineNr">1003 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1004" class="LineNr">1004 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1005" class="LineNr">1005 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1006" class="LineNr">1006 </span> <span class="subxComment"># loop</span> +<span id="L1007" class="LineNr">1007 </span> e9/jump $emit-labels:<span class="Constant">loop</span>/disp32 +<span id="L1008" class="LineNr">1008 </span><span class="Constant">$emit-labels:end</span>: +<span id="L1009" class="LineNr">1009 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L1010" class="LineNr">1010 </span> 5e/pop-to-esi +<span id="L1011" class="LineNr">1011 </span> 5a/pop-to-edx +<span id="L1012" class="LineNr">1012 </span> 59/pop-to-ecx +<span id="L1013" class="LineNr">1013 </span> 58/pop-to-eax +<span id="L1014" class="LineNr">1014 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1015" class="LineNr">1015 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1016" class="LineNr">1016 </span> 5d/pop-to-ebp +<span id="L1017" class="LineNr">1017 </span> c3/return +<span id="L1018" class="LineNr">1018 </span> +<span id="L1019" class="LineNr">1019 </span><span class="subxH1Comment"># - some helpers for tests</span> +<span id="L1020" class="LineNr">1020 </span> +<span id="L1021" class="LineNr">1021 </span><span class="subxComment"># some variants of 'trace' that take multiple arguments in different combinations of types:</span> +<span id="L1022" class="LineNr">1022 </span><span class="subxComment"># n: int</span> +<span id="L1023" class="LineNr">1023 </span><span class="subxComment"># c: character [4-bytes, will eventually be UTF-8]</span> +<span id="L1024" class="LineNr">1024 </span><span class="subxComment"># s: (addr array byte)</span> +<span id="L1025" class="LineNr">1025 </span><span class="subxComment"># l: (addr slice)</span> +<span id="L1026" class="LineNr">1026 </span><span class="subxComment"># one gotcha: 's5' must not be empty</span> +<span id="L1027" class="LineNr">1027 </span> +<span id="L1028" class="LineNr">1028 </span><span class="subxFunction">trace-slsns</span>: <span class="subxComment"># s1: (addr array byte), l2: (addr slice), s3: (addr array byte), n4: int, s5: (addr array byte)</span> +<span id="L1029" class="LineNr">1029 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1030" class="LineNr">1030 </span> 55/push-ebp +<span id="L1031" class="LineNr">1031 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1032" class="LineNr">1032 </span> <span class="subxComment"># write(*Trace-stream, s1)</span> +<span id="L1033" class="LineNr">1033 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1034" class="LineNr">1034 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L1035" class="LineNr">1035 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> +<span id="L1036" class="LineNr">1036 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1037" class="LineNr">1037 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1038" class="LineNr">1038 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1039" class="LineNr">1039 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1040" class="LineNr">1040 </span> <span class="subxComment"># write-slice(*Trace-stream, l2)</span> +<span id="L1041" class="LineNr">1041 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1042" class="LineNr">1042 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1043" class="LineNr">1043 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> +<span id="L1044" class="LineNr">1044 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1045" class="LineNr">1045 </span> e8/call <a href='123slice.subx.html#L793'>write-slice</a>/disp32 +<span id="L1046" class="LineNr">1046 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1047" class="LineNr">1047 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1048" class="LineNr">1048 </span> <span class="subxComment"># write(*Trace-stream, s3)</span> +<span id="L1049" class="LineNr">1049 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1050" class="LineNr">1050 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> +<span id="L1051" class="LineNr">1051 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> +<span id="L1052" class="LineNr">1052 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1053" class="LineNr">1053 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1054" class="LineNr">1054 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1055" class="LineNr">1055 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1056" class="LineNr">1056 </span> <span class="subxComment"># write-int32-hex(*Trace-stream, n4)</span> +<span id="L1057" class="LineNr">1057 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1058" class="LineNr">1058 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+20)</span> +<span id="L1059" class="LineNr">1059 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> +<span id="L1060" class="LineNr">1060 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1061" class="LineNr">1061 </span> e8/call <a href='117write-int-hex.subx.html#L178'>write-int32-hex</a>/disp32 +<span id="L1062" class="LineNr">1062 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1063" class="LineNr">1063 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1064" class="LineNr">1064 </span> <span class="subxComment"># trace(s5) # implicitly adds a newline and finalizes the trace line</span> +<span id="L1065" class="LineNr">1065 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1066" class="LineNr">1066 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+24)</span> +<span id="L1067" class="LineNr">1067 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1068" class="LineNr">1068 </span> e8/call <a href='107trace.subx.html#L81'>trace</a>/disp32 +<span id="L1069" class="LineNr">1069 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1070" class="LineNr">1070 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1071" class="LineNr">1071 </span><span class="Constant">$trace-slsns:end</span>: +<span id="L1072" class="LineNr">1072 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1073" class="LineNr">1073 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1074" class="LineNr">1074 </span> 5d/pop-to-ebp +<span id="L1075" class="LineNr">1075 </span> c3/return +<span id="L1076" class="LineNr">1076 </span> +<span id="L1077" class="LineNr">1077 </span><span class="subxTest">test-trace-slsns</span>: +<span id="L1078" class="LineNr">1078 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1079" class="LineNr">1079 </span> 55/push-ebp +<span id="L1080" class="LineNr">1080 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1081" class="LineNr">1081 </span> <span class="subxComment"># setup</span> +<span id="L1082" class="LineNr">1082 </span> <span class="subxS1Comment"># . *Trace-stream->write = 0</span> +<span id="L1083" class="LineNr">1083 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># copy *Trace-stream to eax</span> +<span id="L1084" class="LineNr">1084 </span> c7 0/subop/copy 0/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># clear *eax</span> +<span id="L1085" class="LineNr">1085 </span> <span class="subxComment"># (eax..ecx) = "b"</span> +<span id="L1086" class="LineNr">1086 </span> b8/copy-to-eax <span class="Constant">"b"</span>/imm32 +<span id="L1087" class="LineNr">1087 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L1088" class="LineNr">1088 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L1089" class="LineNr">1089 </span> 05/add-to-eax 4/imm32 +<span id="L1090" class="LineNr">1090 </span> <span class="subxComment"># var b/ebx: slice = {eax, ecx}</span> +<span id="L1091" class="LineNr">1091 </span> 51/push-ecx +<span id="L1092" class="LineNr">1092 </span> 50/push-eax +<span id="L1093" class="LineNr">1093 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> +<span id="L1094" class="LineNr">1094 </span> <span class="subxComment"># trace-slsls("A" b "c " 3 " e")</span> +<span id="L1095" class="LineNr">1095 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1096" class="LineNr">1096 </span> 68/push <span class="Constant">" e"</span>/imm32 +<span id="L1097" class="LineNr">1097 </span> 68/push 3/imm32 +<span id="L1098" class="LineNr">1098 </span> 68/push <span class="Constant">"c "</span>/imm32 +<span id="L1099" class="LineNr">1099 </span> 53/push-ebx +<span id="L1100" class="LineNr">1100 </span> 68/push <span class="Constant">"A"</span>/imm32 +<span id="L1101" class="LineNr">1101 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1102" class="LineNr">1102 </span> e8/call <a href='survey_baremetal.subx.html#L1028'>trace-slsns</a>/disp32 +<span id="L1103" class="LineNr">1103 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1104" class="LineNr">1104 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> +<span id="L1105" class="Folded">1105 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1131" class="LineNr">1131 </span> <span class="subxComment"># check-trace-contains("Abc 0x00000003 e")</span> +<span id="L1132" class="LineNr">1132 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1133" class="LineNr">1133 </span> 68/push <span class="Constant">"F - test-trace-slsls"</span>/imm32 +<span id="L1134" class="LineNr">1134 </span> 68/push <span class="Constant">"Abc 0x00000003 e"</span>/imm32 +<span id="L1135" class="LineNr">1135 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1136" class="LineNr">1136 </span> e8/call <a href='107trace.subx.html#L248'>check-trace-contains</a>/disp32 +<span id="L1137" class="LineNr">1137 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1138" class="LineNr">1138 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1139" class="LineNr">1139 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1140" class="LineNr">1140 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1141" class="LineNr">1141 </span> 5d/pop-to-ebp +<span id="L1142" class="LineNr">1142 </span> c3/return +<span id="L1143" class="LineNr">1143 </span> +<span id="L1144" class="LineNr">1144 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> </body> </html> diff --git a/html/linux/survey_elf.subx.html b/html/linux/survey_elf.subx.html index f586c32e..d8add4b5 100644 --- a/html/linux/survey_elf.subx.html +++ b/html/linux/survey_elf.subx.html @@ -2695,7 +2695,7 @@ if ('onhashchange' in window) { <span id="L3119" class="LineNr">3119 </span> 8b/copy 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edx to eax</span> <span id="L3120" class="LineNr">3120 </span> <span class="subxS1Comment"># . c/eax = *start</span> <span id="L3121" class="LineNr">3121 </span> 8a/copy-byte 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *eax to AL</span> -<span id="L3122" class="LineNr">3122 </span> 81 4/subop/and 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xff/imm32 <span class="subxComment"># bitwise and of eax</span> +<span id="L3122" class="LineNr">3122 </span> 25/and-eax-with 0xff/imm32 <span id="L3123" class="LineNr">3123 </span> <span class="subxS1Comment"># . if (eax != '8') return</span> <span id="L3124" class="LineNr">3124 </span> 3d/compare-eax-and 0x38/imm32/8 <span id="L3125" class="LineNr">3125 </span> 75/jump-if-!= $far-jump-or-call?:end/disp8 @@ -2763,7 +2763,7 @@ if ('onhashchange' in window) { <span id="L3257" class="LineNr">3257 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L3258" class="LineNr">3258 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L3259" class="LineNr">3259 </span> <span class="subxComment"># curr-segment += 20 # size of a row</span> -<span id="L3260" class="LineNr">3260 </span> 81 0/subop/add 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to eax</span> +<span id="L3260" class="LineNr">3260 </span> 05/add-to-eax 0x14/imm32 <span id="L3261" class="LineNr">3261 </span> e9/jump $emit-headers:<span class="Constant">loop</span>/disp32 <span id="L3262" class="LineNr">3262 </span><span class="Constant">$emit-headers:end</span>: <span id="L3263" class="LineNr">3263 </span> <span class="subxS1Comment"># . restore registers</span> diff --git a/html/linux/tile/rpn.mu.html b/html/linux/tile/rpn.mu.html index 82650d2c..5ed618a4 100644 --- a/html/linux/tile/rpn.mu.html +++ b/html/linux/tile/rpn.mu.html @@ -209,7 +209,7 @@ if ('onhashchange' in window) { <span id="L149" class="LineNr">149 </span> <span class="PreProc">var</span> src-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, text-data <span id="L150" class="LineNr">150 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *src-ah <span id="L151" class="LineNr">151 </span> <span class="PreProc">var</span> result-ah/<span class="Constant">ecx</span>: (addr handle buffered-file) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, file-data -<span id="L152" class="LineNr">152 </span> <a href='../306files.subx.html#L12'>open</a> src, <span class="Constant">0</span>, result-ah <span class="muComment"># write? = false</span> +<span id="L152" class="LineNr">152 </span> <a href='../306files.subx.html#L9'>open</a> src, <span class="Constant">0</span>, result-ah <span class="muComment"># write? = false</span> <span id="L153" class="LineNr">153 </span> <span class="muComment"># save result into target-val</span> <span id="L154" class="LineNr">154 </span> <span class="PreProc">var</span> type-addr/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, <span class="PreProc">type</span> <span id="L155" class="LineNr">155 </span> copy-to *type-addr, <span class="Constant">3</span>/file diff --git a/html/mandelbrot-fixed.mu.html b/html/mandelbrot-fixed.mu.html index 3b786876..3f7a6acb 100644 --- a/html/mandelbrot-fixed.mu.html +++ b/html/mandelbrot-fixed.mu.html @@ -70,223 +70,255 @@ if ('onhashchange' in window) { <span id="L11" class="LineNr"> 11 </span><span class="muComment"># $ qemu-system-i386 code.img</span> <span id="L12" class="LineNr"> 12 </span> <span id="L13" class="LineNr"> 13 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='mandelbrot-fixed.mu.html#L13'>main</a></span> <a href='500fake-screen.mu.html#L14'>screen</a>: (addr <a href='500fake-screen.mu.html#L14'>screen</a>), keyboard: (addr keyboard), data-disk: (addr disk) <span class="Delimiter">{</span> -<span id="L14" class="LineNr"> 14 </span> <a href='mandelbrot-fixed.mu.html#L111'>mandelbrot</a> <a href='500fake-screen.mu.html#L14'>screen</a> -<span id="L15" class="LineNr"> 15 </span><span class="Delimiter">}</span> -<span id="L16" class="LineNr"> 16 </span> -<span id="L17" class="LineNr"> 17 </span><span class="muComment"># Since they still look like int types, we'll append a '-f' suffix to variable</span> -<span id="L18" class="LineNr"> 18 </span><span class="muComment"># names to designate fixed-point numbers.</span> -<span id="L19" class="LineNr"> 19 </span> -<span id="L20" class="LineNr"> 20 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='mandelbrot-fixed.mu.html#L20'>int-to-fixed</a></span> in: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L21" class="LineNr"> 21 </span> <span class="PreProc">var</span> result-f/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy in -<span id="L22" class="LineNr"> 22 </span> result-f <span class="Special"><-</span> shift-left <span class="Constant">8</span>/fixed-precision -<span id="L23" class="LineNr"> 23 </span> <span class="Delimiter">{</span> -<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">break-if-not-overflow</span> -<span id="L25" class="LineNr"> 25 </span> <a href='501draw-text.mu.html#L481'>abort</a> <span class="Constant">"int-to-fixed: overflow"</span> -<span id="L26" class="LineNr"> 26 </span> <span class="Delimiter">}</span> -<span id="L27" class="LineNr"> 27 </span> <span class="PreProc">return</span> result-f -<span id="L28" class="LineNr"> 28 </span><span class="Delimiter">}</span> -<span id="L29" class="LineNr"> 29 </span> -<span id="L30" class="LineNr"> 30 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='mandelbrot-fixed.mu.html#L30'>fixed-to-int</a></span> in-f: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy in-f -<span id="L32" class="LineNr"> 32 </span> result <span class="Special"><-</span> shift-right-signed <span class="Constant">8</span>/fixed-precision -<span id="L33" class="LineNr"> 33 </span> <span class="PreProc">return</span> result -<span id="L34" class="LineNr"> 34 </span><span class="Delimiter">}</span> +<span id="L14" class="LineNr"> 14 </span> <span class="muComment"># Initially the viewport is centered at 0, 0 in the scene.</span> +<span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> scene-cx-f: int +<span id="L16" class="LineNr"> 16 </span> <span class="PreProc">var</span> scene-cy-f: int +<span id="L17" class="LineNr"> 17 </span> <span class="muComment"># Initially the viewport shows a section of the scene 4 units wide.</span> +<span id="L18" class="LineNr"> 18 </span> <span class="PreProc">var</span> scene-width-f: int +<span id="L19" class="LineNr"> 19 </span> copy-to scene-width-f, <span class="Constant">0x400</span>/<span class="Constant">4</span> +<span id="L20" class="LineNr"> 20 </span> <span class="Delimiter">{</span> +<span id="L21" class="LineNr"> 21 </span> <a href='mandelbrot-fixed.mu.html#L127'>mandelbrot</a> <a href='500fake-screen.mu.html#L14'>screen</a> scene-cx-f, scene-cy-f, scene-width-f +<span id="L22" class="LineNr"> 22 </span> <span class="muComment"># move at an angle slowly towards the edge</span> +<span id="L23" class="LineNr"> 23 </span> <span class="PreProc">var</span> adj-f/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L100'>multiply-fixed</a> scene-width-f, <span class="Constant">0x12</span>/<span class="Constant">0</span>.<span class="Constant">07</span> +<span id="L24" class="LineNr"> 24 </span> subtract-from scene-cx-f, adj-f +<span id="L25" class="LineNr"> 25 </span> add-to scene-cy-f, adj-f +<span id="L26" class="LineNr"> 26 </span> <span class="muComment"># slowly shrink the scene width to zoom in</span> +<span id="L27" class="LineNr"> 27 </span> <span class="PreProc">var</span> tmp-f/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L100'>multiply-fixed</a> scene-width-f, <span class="Constant">0x80</span>/<span class="Constant">0</span>.<span class="Constant">5</span> +<span id="L28" class="LineNr"> 28 </span> copy-to scene-width-f, tmp-f +<span id="L29" class="LineNr"> 29 </span> <span class="PreProc">loop</span> +<span id="L30" class="LineNr"> 30 </span> <span class="Delimiter">}</span> +<span id="L31" class="LineNr"> 31 </span><span class="Delimiter">}</span> +<span id="L32" class="LineNr"> 32 </span> +<span id="L33" class="LineNr"> 33 </span><span class="muComment"># Since they still look like int types, we'll append a '-f' suffix to variable</span> +<span id="L34" class="LineNr"> 34 </span><span class="muComment"># names to designate fixed-point numbers.</span> <span id="L35" class="LineNr"> 35 </span> -<span id="L36" class="LineNr"> 36 </span><span class="muComment"># The process of throwing bits away always adjusts a number towards -infinity.</span> -<span id="L37" class="LineNr"> 37 </span><span class="PreProc">fn</span> <span class="muTest"><a href='mandelbrot-fixed.mu.html#L37'>test-fixed-conversion</a></span> <span class="Delimiter">{</span> -<span id="L38" class="LineNr"> 38 </span> <span class="muComment"># 0</span> -<span id="L39" class="LineNr"> 39 </span> <span class="PreProc">var</span> f/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L20'>int-to-fixed</a> <span class="Constant">0</span> -<span id="L40" class="LineNr"> 40 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L30'>fixed-to-int</a> f -<span id="L41" class="LineNr"> 41 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> result, <span class="Constant">0</span>, <span class="Constant">"F - <a href='mandelbrot-fixed.mu.html#L37'>test-fixed-conversion</a> - 0"</span> -<span id="L42" class="LineNr"> 42 </span> <span class="muComment"># 1</span> -<span id="L43" class="LineNr"> 43 </span> <span class="PreProc">var</span> f/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L20'>int-to-fixed</a> <span class="Constant">1</span> -<span id="L44" class="LineNr"> 44 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L30'>fixed-to-int</a> f -<span id="L45" class="LineNr"> 45 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> result, <span class="Constant">1</span>, <span class="Constant">"F - <a href='mandelbrot-fixed.mu.html#L37'>test-fixed-conversion</a> - 1"</span> -<span id="L46" class="LineNr"> 46 </span> <span class="muComment"># -1</span> -<span id="L47" class="LineNr"> 47 </span> <span class="PreProc">var</span> f/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L20'>int-to-fixed</a> <span class="Constant">-1</span> -<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L30'>fixed-to-int</a> f -<span id="L49" class="LineNr"> 49 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> result, <span class="Constant">-1</span>, <span class="Constant">"F - <a href='mandelbrot-fixed.mu.html#L37'>test-fixed-conversion</a> - -1"</span> -<span id="L50" class="LineNr"> 50 </span> <span class="muComment"># 0.5 = 1/2</span> -<span id="L51" class="LineNr"> 51 </span> <span class="PreProc">var</span> f/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L20'>int-to-fixed</a> <span class="Constant">1</span> -<span id="L52" class="LineNr"> 52 </span> f <span class="Special"><-</span> shift-right-signed <span class="Constant">1</span> -<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L30'>fixed-to-int</a> f -<span id="L54" class="LineNr"> 54 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> result, <span class="Constant">0</span>, <span class="Constant">"F - <a href='mandelbrot-fixed.mu.html#L37'>test-fixed-conversion</a> - 0.5"</span> -<span id="L55" class="LineNr"> 55 </span> <span class="muComment"># -0.5 = -1/2</span> -<span id="L56" class="LineNr"> 56 </span> <span class="PreProc">var</span> f/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L20'>int-to-fixed</a> <span class="Constant">-1</span> -<span id="L57" class="LineNr"> 57 </span> f <span class="Special"><-</span> shift-right-signed <span class="Constant">1</span> -<span id="L58" class="LineNr"> 58 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L30'>fixed-to-int</a> f -<span id="L59" class="LineNr"> 59 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> result, <span class="Constant">-1</span>, <span class="Constant">"F - <a href='mandelbrot-fixed.mu.html#L37'>test-fixed-conversion</a> - -0.5"</span> -<span id="L60" class="LineNr"> 60 </span> <span class="muComment"># 1.5 = 3/2</span> -<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> f/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L20'>int-to-fixed</a> <span class="Constant">3</span> -<span id="L62" class="LineNr"> 62 </span> f <span class="Special"><-</span> shift-right-signed <span class="Constant">1</span> -<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L30'>fixed-to-int</a> f -<span id="L64" class="LineNr"> 64 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> result, <span class="Constant">1</span>, <span class="Constant">"F - <a href='mandelbrot-fixed.mu.html#L37'>test-fixed-conversion</a> - 1.5"</span> -<span id="L65" class="LineNr"> 65 </span> <span class="muComment"># -1.5 = -3/2</span> -<span id="L66" class="LineNr"> 66 </span> <span class="PreProc">var</span> f/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L20'>int-to-fixed</a> <span class="Constant">-3</span> -<span id="L67" class="LineNr"> 67 </span> f <span class="Special"><-</span> shift-right-signed <span class="Constant">1</span> -<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L30'>fixed-to-int</a> f -<span id="L69" class="LineNr"> 69 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> result, <span class="Constant">-2</span>, <span class="Constant">"F - <a href='mandelbrot-fixed.mu.html#L37'>test-fixed-conversion</a> - -1.5"</span> -<span id="L70" class="LineNr"> 70 </span> <span class="muComment"># 1.25 = 5/4</span> -<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> f/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L20'>int-to-fixed</a> <span class="Constant">5</span> -<span id="L72" class="LineNr"> 72 </span> f <span class="Special"><-</span> shift-right-signed <span class="Constant">2</span> -<span id="L73" class="LineNr"> 73 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L30'>fixed-to-int</a> f -<span id="L74" class="LineNr"> 74 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> result, <span class="Constant">1</span>, <span class="Constant">"F - <a href='mandelbrot-fixed.mu.html#L37'>test-fixed-conversion</a> - 1.25"</span> -<span id="L75" class="LineNr"> 75 </span> <span class="muComment"># -1.25 = -5/4</span> -<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> f/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L20'>int-to-fixed</a> <span class="Constant">-5</span> -<span id="L77" class="LineNr"> 77 </span> f <span class="Special"><-</span> shift-right-signed <span class="Constant">2</span> -<span id="L78" class="LineNr"> 78 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L30'>fixed-to-int</a> f -<span id="L79" class="LineNr"> 79 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> result, <span class="Constant">-2</span>, <span class="Constant">"F - <a href='mandelbrot-fixed.mu.html#L37'>test-fixed-conversion</a> - -1.25"</span> -<span id="L80" class="LineNr"> 80 </span><span class="Delimiter">}</span> -<span id="L81" class="LineNr"> 81 </span> -<span id="L82" class="LineNr"> 82 </span><span class="muComment"># special routines for multiplying and dividing fixed-point numbers</span> -<span id="L83" class="LineNr"> 83 </span> -<span id="L84" class="LineNr"> 84 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='mandelbrot-fixed.mu.html#L84'>multiply-fixed</a></span> a-f: int, b-f: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L85" class="LineNr"> 85 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy a-f -<span id="L86" class="LineNr"> 86 </span> result <span class="Special"><-</span> multiply b-f -<span id="L87" class="LineNr"> 87 </span> <span class="Delimiter">{</span> -<span id="L88" class="LineNr"> 88 </span> <span class="PreProc">break-if-not-overflow</span> -<span id="L89" class="LineNr"> 89 </span> <a href='501draw-text.mu.html#L481'>abort</a> <span class="Constant">"multiply-fixed: overflow"</span> -<span id="L90" class="LineNr"> 90 </span> <span class="Delimiter">}</span> -<span id="L91" class="LineNr"> 91 </span> result <span class="Special"><-</span> shift-right-signed <span class="Constant">8</span>/fixed-precision -<span id="L92" class="LineNr"> 92 </span> <span class="PreProc">return</span> result -<span id="L93" class="LineNr"> 93 </span><span class="Delimiter">}</span> -<span id="L94" class="LineNr"> 94 </span> -<span id="L95" class="LineNr"> 95 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='mandelbrot-fixed.mu.html#L95'>divide-fixed</a></span> a-f: int, b-f: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">var</span> result-f/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy a-f -<span id="L97" class="LineNr"> 97 </span> result-f <span class="Special"><-</span> shift-left <span class="Constant">8</span>/fixed-precision -<span id="L98" class="LineNr"> 98 </span> <span class="Delimiter">{</span> -<span id="L99" class="LineNr"> 99 </span> <span class="PreProc">break-if-not-overflow</span> -<span id="L100" class="LineNr">100 </span> <a href='501draw-text.mu.html#L481'>abort</a> <span class="Constant">"divide-fixed: overflow"</span> -<span id="L101" class="LineNr">101 </span> <span class="Delimiter">}</span> -<span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> dummy-remainder/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L103" class="LineNr">103 </span> result-f, dummy-remainder <span class="Special"><-</span> <a href='314divide.subx.html#L3'>integer-divide</a> result-f, b-f -<span id="L104" class="LineNr">104 </span> <span class="PreProc">return</span> result-f -<span id="L105" class="LineNr">105 </span><span class="Delimiter">}</span> -<span id="L106" class="LineNr">106 </span> -<span id="L107" class="LineNr">107 </span><span class="muComment"># multiplying or dividing by an integer can use existing instructions.</span> -<span id="L108" class="LineNr">108 </span> -<span id="L109" class="LineNr">109 </span><span class="muComment"># adding and subtracting two fixed-point numbers can use existing instructions.</span> +<span id="L36" class="LineNr"> 36 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='mandelbrot-fixed.mu.html#L36'>int-to-fixed</a></span> in: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L37" class="LineNr"> 37 </span> <span class="PreProc">var</span> result-f/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy in +<span id="L38" class="LineNr"> 38 </span> result-f <span class="Special"><-</span> shift-left <span class="Constant">8</span>/fixed-precision +<span id="L39" class="LineNr"> 39 </span> <span class="Delimiter">{</span> +<span id="L40" class="LineNr"> 40 </span> <span class="PreProc">break-if-not-overflow</span> +<span id="L41" class="LineNr"> 41 </span> <a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"int-to-fixed: overflow"</span> +<span id="L42" class="LineNr"> 42 </span> <span class="Delimiter">}</span> +<span id="L43" class="LineNr"> 43 </span> <span class="PreProc">return</span> result-f +<span id="L44" class="LineNr"> 44 </span><span class="Delimiter">}</span> +<span id="L45" class="LineNr"> 45 </span> +<span id="L46" class="LineNr"> 46 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='mandelbrot-fixed.mu.html#L46'>fixed-to-int</a></span> in-f: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L47" class="LineNr"> 47 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy in-f +<span id="L48" class="LineNr"> 48 </span> result <span class="Special"><-</span> shift-right-signed <span class="Constant">8</span>/fixed-precision +<span id="L49" class="LineNr"> 49 </span> <span class="PreProc">return</span> result +<span id="L50" class="LineNr"> 50 </span><span class="Delimiter">}</span> +<span id="L51" class="LineNr"> 51 </span> +<span id="L52" class="LineNr"> 52 </span><span class="muComment"># The process of throwing bits away always adjusts a number towards -infinity.</span> +<span id="L53" class="LineNr"> 53 </span><span class="PreProc">fn</span> <span class="muTest"><a href='mandelbrot-fixed.mu.html#L53'>test-fixed-conversion</a></span> <span class="Delimiter">{</span> +<span id="L54" class="LineNr"> 54 </span> <span class="muComment"># 0</span> +<span id="L55" class="LineNr"> 55 </span> <span class="PreProc">var</span> f/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L36'>int-to-fixed</a> <span class="Constant">0</span> +<span id="L56" class="LineNr"> 56 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L46'>fixed-to-int</a> f +<span id="L57" class="LineNr"> 57 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> result, <span class="Constant">0</span>, <span class="Constant">"F - <a href='mandelbrot-fixed.mu.html#L53'>test-fixed-conversion</a> - 0"</span> +<span id="L58" class="LineNr"> 58 </span> <span class="muComment"># 1</span> +<span id="L59" class="LineNr"> 59 </span> <span class="PreProc">var</span> f/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L36'>int-to-fixed</a> <span class="Constant">1</span> +<span id="L60" class="LineNr"> 60 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L46'>fixed-to-int</a> f +<span id="L61" class="LineNr"> 61 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> result, <span class="Constant">1</span>, <span class="Constant">"F - <a href='mandelbrot-fixed.mu.html#L53'>test-fixed-conversion</a> - 1"</span> +<span id="L62" class="LineNr"> 62 </span> <span class="muComment"># -1</span> +<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">var</span> f/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L36'>int-to-fixed</a> <span class="Constant">-1</span> +<span id="L64" class="LineNr"> 64 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L46'>fixed-to-int</a> f +<span id="L65" class="LineNr"> 65 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> result, <span class="Constant">-1</span>, <span class="Constant">"F - <a href='mandelbrot-fixed.mu.html#L53'>test-fixed-conversion</a> - -1"</span> +<span id="L66" class="LineNr"> 66 </span> <span class="muComment"># 0.5 = 1/2</span> +<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> f/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L36'>int-to-fixed</a> <span class="Constant">1</span> +<span id="L68" class="LineNr"> 68 </span> f <span class="Special"><-</span> shift-right-signed <span class="Constant">1</span> +<span id="L69" class="LineNr"> 69 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L46'>fixed-to-int</a> f +<span id="L70" class="LineNr"> 70 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> result, <span class="Constant">0</span>, <span class="Constant">"F - <a href='mandelbrot-fixed.mu.html#L53'>test-fixed-conversion</a> - 0.5"</span> +<span id="L71" class="LineNr"> 71 </span> <span class="muComment"># -0.5 = -1/2</span> +<span id="L72" class="LineNr"> 72 </span> <span class="PreProc">var</span> f/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L36'>int-to-fixed</a> <span class="Constant">-1</span> +<span id="L73" class="LineNr"> 73 </span> f <span class="Special"><-</span> shift-right-signed <span class="Constant">1</span> +<span id="L74" class="LineNr"> 74 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L46'>fixed-to-int</a> f +<span id="L75" class="LineNr"> 75 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> result, <span class="Constant">-1</span>, <span class="Constant">"F - <a href='mandelbrot-fixed.mu.html#L53'>test-fixed-conversion</a> - -0.5"</span> +<span id="L76" class="LineNr"> 76 </span> <span class="muComment"># 1.5 = 3/2</span> +<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> f/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L36'>int-to-fixed</a> <span class="Constant">3</span> +<span id="L78" class="LineNr"> 78 </span> f <span class="Special"><-</span> shift-right-signed <span class="Constant">1</span> +<span id="L79" class="LineNr"> 79 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L46'>fixed-to-int</a> f +<span id="L80" class="LineNr"> 80 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> result, <span class="Constant">1</span>, <span class="Constant">"F - <a href='mandelbrot-fixed.mu.html#L53'>test-fixed-conversion</a> - 1.5"</span> +<span id="L81" class="LineNr"> 81 </span> <span class="muComment"># -1.5 = -3/2</span> +<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> f/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L36'>int-to-fixed</a> <span class="Constant">-3</span> +<span id="L83" class="LineNr"> 83 </span> f <span class="Special"><-</span> shift-right-signed <span class="Constant">1</span> +<span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L46'>fixed-to-int</a> f +<span id="L85" class="LineNr"> 85 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> result, <span class="Constant">-2</span>, <span class="Constant">"F - <a href='mandelbrot-fixed.mu.html#L53'>test-fixed-conversion</a> - -1.5"</span> +<span id="L86" class="LineNr"> 86 </span> <span class="muComment"># 1.25 = 5/4</span> +<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> f/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L36'>int-to-fixed</a> <span class="Constant">5</span> +<span id="L88" class="LineNr"> 88 </span> f <span class="Special"><-</span> shift-right-signed <span class="Constant">2</span> +<span id="L89" class="LineNr"> 89 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L46'>fixed-to-int</a> f +<span id="L90" class="LineNr"> 90 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> result, <span class="Constant">1</span>, <span class="Constant">"F - <a href='mandelbrot-fixed.mu.html#L53'>test-fixed-conversion</a> - 1.25"</span> +<span id="L91" class="LineNr"> 91 </span> <span class="muComment"># -1.25 = -5/4</span> +<span id="L92" class="LineNr"> 92 </span> <span class="PreProc">var</span> f/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L36'>int-to-fixed</a> <span class="Constant">-5</span> +<span id="L93" class="LineNr"> 93 </span> f <span class="Special"><-</span> shift-right-signed <span class="Constant">2</span> +<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L46'>fixed-to-int</a> f +<span id="L95" class="LineNr"> 95 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> result, <span class="Constant">-2</span>, <span class="Constant">"F - <a href='mandelbrot-fixed.mu.html#L53'>test-fixed-conversion</a> - -1.25"</span> +<span id="L96" class="LineNr"> 96 </span><span class="Delimiter">}</span> +<span id="L97" class="LineNr"> 97 </span> +<span id="L98" class="LineNr"> 98 </span><span class="muComment"># special routines for multiplying and dividing fixed-point numbers</span> +<span id="L99" class="LineNr"> 99 </span> +<span id="L100" class="LineNr">100 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='mandelbrot-fixed.mu.html#L100'>multiply-fixed</a></span> a-f: int, b-f: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L101" class="LineNr">101 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy a-f +<span id="L102" class="LineNr">102 </span> result <span class="Special"><-</span> multiply b-f +<span id="L103" class="LineNr">103 </span> <span class="Delimiter">{</span> +<span id="L104" class="LineNr">104 </span> <span class="PreProc">break-if-not-overflow</span> +<span id="L105" class="LineNr">105 </span> <a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"multiply-fixed: overflow"</span> +<span id="L106" class="LineNr">106 </span> <span class="Delimiter">}</span> +<span id="L107" class="LineNr">107 </span> result <span class="Special"><-</span> shift-right-signed <span class="Constant">8</span>/fixed-precision +<span id="L108" class="LineNr">108 </span> <span class="PreProc">return</span> result +<span id="L109" class="LineNr">109 </span><span class="Delimiter">}</span> <span id="L110" class="LineNr">110 </span> -<span id="L111" class="LineNr">111 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='mandelbrot-fixed.mu.html#L111'>mandelbrot</a></span> <a href='500fake-screen.mu.html#L14'>screen</a>: (addr <a href='500fake-screen.mu.html#L14'>screen</a>) <span class="Delimiter">{</span> -<span id="L112" class="LineNr">112 </span> <span class="PreProc">var</span> a/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L113" class="LineNr">113 </span> <span class="PreProc">var</span> b/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L114" class="LineNr">114 </span> a, b <span class="Special"><-</span> <a href='500fake-screen.mu.html#L70'>screen-size</a> <a href='500fake-screen.mu.html#L14'>screen</a> -<span id="L115" class="LineNr">115 </span> <span class="PreProc">var</span> width/<span class="Constant">esi</span>: int <span class="Special"><-</span> copy a -<span id="L116" class="LineNr">116 </span> width <span class="Special"><-</span> shift-left <span class="Constant">3</span>/log2-font-width -<span id="L117" class="LineNr">117 </span> <span class="PreProc">var</span> height/<span class="Constant">edi</span>: int <span class="Special"><-</span> copy b -<span id="L118" class="LineNr">118 </span> height <span class="Special"><-</span> shift-left <span class="Constant">4</span>/log2-font-height -<span id="L119" class="LineNr">119 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L120" class="LineNr">120 </span> <span class="Delimiter">{</span> -<span id="L121" class="LineNr">121 </span> compare y, height -<span id="L122" class="LineNr">122 </span> <span class="PreProc">break-if->=</span> -<span id="L123" class="LineNr">123 </span> <span class="PreProc">var</span> imaginary-f/<span class="Constant">ebx</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L218'>viewport-to-imaginary-f</a> y, width, height -<span id="L124" class="LineNr">124 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L125" class="LineNr">125 </span> <span class="Delimiter">{</span> -<span id="L126" class="LineNr">126 </span> compare x, width -<span id="L127" class="LineNr">127 </span> <span class="PreProc">break-if->=</span> -<span id="L128" class="LineNr">128 </span> <span class="PreProc">var</span> real-f/<span class="Constant">edx</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L205'>viewport-to-real-f</a> x, width -<span id="L129" class="LineNr">129 </span> <span class="PreProc">var</span> iterations/<span class="Constant">esi</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L148'>mandelbrot-iterations-for-point</a> real-f, imaginary-f, <span class="Constant">0x400</span>/max -<span id="L130" class="LineNr">130 </span> compare iterations, <span class="Constant">0x400</span>/max -<span id="L131" class="LineNr">131 </span> <span class="Delimiter">{</span> -<span id="L132" class="LineNr">132 </span> <span class="PreProc">break-if->=</span> -<span id="L133" class="LineNr">133 </span> <a href='500fake-screen.mu.html#L462'>pixel</a> <a href='500fake-screen.mu.html#L14'>screen</a>, x, y, <span class="Constant">0xf</span>/white -<span id="L134" class="LineNr">134 </span> <span class="Delimiter">}</span> -<span id="L135" class="LineNr">135 </span> compare iterations, <span class="Constant">0x400</span>/max -<span id="L136" class="LineNr">136 </span> <span class="Delimiter">{</span> -<span id="L137" class="LineNr">137 </span> <span class="PreProc">break-if-<</span> -<span id="L138" class="LineNr">138 </span> <a href='500fake-screen.mu.html#L462'>pixel</a> <a href='500fake-screen.mu.html#L14'>screen</a>, x, y, <span class="Constant">0</span>/black -<span id="L139" class="LineNr">139 </span> <span class="Delimiter">}</span> -<span id="L140" class="LineNr">140 </span> x <span class="Special"><-</span> increment -<span id="L141" class="LineNr">141 </span> <span class="PreProc">loop</span> -<span id="L142" class="LineNr">142 </span> <span class="Delimiter">}</span> -<span id="L143" class="LineNr">143 </span> y <span class="Special"><-</span> increment -<span id="L144" class="LineNr">144 </span> <span class="PreProc">loop</span> -<span id="L145" class="LineNr">145 </span> <span class="Delimiter">}</span> -<span id="L146" class="LineNr">146 </span><span class="Delimiter">}</span> -<span id="L147" class="LineNr">147 </span> -<span id="L148" class="LineNr">148 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='mandelbrot-fixed.mu.html#L148'>mandelbrot-iterations-for-point</a></span> real-f: int, imaginary-f: int, max: int<span class="PreProc"> -> </span>_/<span class="Constant">esi</span>: int <span class="Delimiter">{</span> -<span id="L149" class="LineNr">149 </span> <span class="PreProc">var</span> x-f/<span class="Constant">esi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L150" class="LineNr">150 </span> <span class="PreProc">var</span> y-f/<span class="Constant">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L151" class="LineNr">151 </span> <span class="PreProc">var</span> iterations/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L152" class="LineNr">152 </span> <span class="Delimiter">{</span> -<span id="L153" class="LineNr">153 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L168'>mandelbrot-done?</a> x-f, y-f -<span id="L154" class="LineNr">154 </span> compare done?, <span class="Constant">0</span>/false -<span id="L155" class="LineNr">155 </span> <span class="PreProc">break-if-!=</span> -<span id="L156" class="LineNr">156 </span> compare iterations, max -<span id="L157" class="LineNr">157 </span> <span class="PreProc">break-if->=</span> -<span id="L158" class="LineNr">158 </span> <span class="PreProc">var</span> x2-f/<span class="Constant">edx</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L182'>mandelbrot-x</a> x-f, y-f, real-f -<span id="L159" class="LineNr">159 </span> <span class="PreProc">var</span> y2-f/<span class="Constant">ebx</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L192'>mandelbrot-y</a> x-f, y-f, imaginary-f -<span id="L160" class="LineNr">160 </span> x-f <span class="Special"><-</span> copy x2-f -<span id="L161" class="LineNr">161 </span> y-f <span class="Special"><-</span> copy y2-f -<span id="L162" class="LineNr">162 </span> iterations <span class="Special"><-</span> increment -<span id="L163" class="LineNr">163 </span> <span class="PreProc">loop</span> -<span id="L164" class="LineNr">164 </span> <span class="Delimiter">}</span> -<span id="L165" class="LineNr">165 </span> <span class="PreProc">return</span> iterations -<span id="L166" class="LineNr">166 </span><span class="Delimiter">}</span> -<span id="L167" class="LineNr">167 </span> -<span id="L168" class="LineNr">168 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='mandelbrot-fixed.mu.html#L168'>mandelbrot-done?</a></span> x-f: int, y-f: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L169" class="LineNr">169 </span> <span class="muComment"># x*x + y*y > 4</span> -<span id="L170" class="LineNr">170 </span> <span class="PreProc">var</span> tmp-f/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L84'>multiply-fixed</a> x-f, x-f -<span id="L171" class="LineNr">171 </span> <span class="PreProc">var</span> result-f/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy tmp-f -<span id="L172" class="LineNr">172 </span> tmp-f <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L84'>multiply-fixed</a> y-f, y-f -<span id="L173" class="LineNr">173 </span> result-f <span class="Special"><-</span> add tmp-f -<span id="L174" class="LineNr">174 </span> compare result-f, <span class="Constant">0x400</span>/<span class="Constant">4</span> -<span id="L175" class="LineNr">175 </span> <span class="Delimiter">{</span> -<span id="L176" class="LineNr">176 </span> <span class="PreProc">break-if-></span> -<span id="L177" class="LineNr">177 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L111" class="LineNr">111 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='mandelbrot-fixed.mu.html#L111'>divide-fixed</a></span> a-f: int, b-f: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L112" class="LineNr">112 </span> <span class="PreProc">var</span> result-f/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy a-f +<span id="L113" class="LineNr">113 </span> result-f <span class="Special"><-</span> shift-left <span class="Constant">8</span>/fixed-precision +<span id="L114" class="LineNr">114 </span> <span class="Delimiter">{</span> +<span id="L115" class="LineNr">115 </span> <span class="PreProc">break-if-not-overflow</span> +<span id="L116" class="LineNr">116 </span> <a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"divide-fixed: overflow"</span> +<span id="L117" class="LineNr">117 </span> <span class="Delimiter">}</span> +<span id="L118" class="LineNr">118 </span> <span class="PreProc">var</span> dummy-remainder/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L119" class="LineNr">119 </span> result-f, dummy-remainder <span class="Special"><-</span> <a href='314divide.subx.html#L3'>integer-divide</a> result-f, b-f +<span id="L120" class="LineNr">120 </span> <span class="PreProc">return</span> result-f +<span id="L121" class="LineNr">121 </span><span class="Delimiter">}</span> +<span id="L122" class="LineNr">122 </span> +<span id="L123" class="LineNr">123 </span><span class="muComment"># multiplying or dividing by an integer can use existing instructions.</span> +<span id="L124" class="LineNr">124 </span> +<span id="L125" class="LineNr">125 </span><span class="muComment"># adding and subtracting two fixed-point numbers can use existing instructions.</span> +<span id="L126" class="LineNr">126 </span> +<span id="L127" class="LineNr">127 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='mandelbrot-fixed.mu.html#L127'>mandelbrot</a></span> <a href='500fake-screen.mu.html#L14'>screen</a>: (addr <a href='500fake-screen.mu.html#L14'>screen</a>), scene-cx-f: int, scene-cy-f: int, scene-width-f: int <span class="Delimiter">{</span> +<span id="L128" class="LineNr">128 </span> <span class="PreProc">var</span> a/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L129" class="LineNr">129 </span> <span class="PreProc">var</span> b/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L130" class="LineNr">130 </span> a, b <span class="Special"><-</span> <a href='500fake-screen.mu.html#L70'>screen-size</a> <a href='500fake-screen.mu.html#L14'>screen</a> +<span id="L131" class="LineNr">131 </span> <span class="PreProc">var</span> width/<span class="Constant">esi</span>: int <span class="Special"><-</span> copy a +<span id="L132" class="LineNr">132 </span> width <span class="Special"><-</span> shift-left <span class="Constant">3</span>/log2-font-width +<span id="L133" class="LineNr">133 </span> <span class="PreProc">var</span> height/<span class="Constant">edi</span>: int <span class="Special"><-</span> copy b +<span id="L134" class="LineNr">134 </span> height <span class="Special"><-</span> shift-left <span class="Constant">4</span>/log2-font-height +<span id="L135" class="LineNr">135 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L136" class="LineNr">136 </span> <span class="Delimiter">{</span> +<span id="L137" class="LineNr">137 </span> compare y, height +<span id="L138" class="LineNr">138 </span> <span class="PreProc">break-if->=</span> +<span id="L139" class="LineNr">139 </span> <span class="PreProc">var</span> imaginary-f/<span class="Constant">ebx</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L237'>viewport-to-imaginary-f</a> y, width, height, scene-cy-f, scene-width-f +<span id="L140" class="LineNr">140 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L141" class="LineNr">141 </span> <span class="Delimiter">{</span> +<span id="L142" class="LineNr">142 </span> compare x, width +<span id="L143" class="LineNr">143 </span> <span class="PreProc">break-if->=</span> +<span id="L144" class="LineNr">144 </span> <span class="PreProc">var</span> real-f/<span class="Constant">edx</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L219'>viewport-to-real-f</a> x, width, scene-cx-f, scene-width-f +<span id="L145" class="LineNr">145 </span> <span class="PreProc">var</span> iterations/<span class="Constant">esi</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L162'>mandelbrot-iterations-for-point</a> real-f, imaginary-f, <span class="Constant">0x400</span>/max +<span id="L146" class="LineNr">146 </span> iterations <span class="Special"><-</span> shift-right <span class="Constant">3</span> +<span id="L147" class="LineNr">147 </span> <span class="PreProc">var</span> color/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L148" class="LineNr">148 </span> <span class="Delimiter">{</span> +<span id="L149" class="LineNr">149 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L150" class="LineNr">150 </span> dummy, color <span class="Special"><-</span> <a href='314divide.subx.html#L3'>integer-divide</a> iterations, <span class="Constant">0x18</span>/<span class="Constant">24</span>/size-of-cycle-0 +<span id="L151" class="LineNr">151 </span> color <span class="Special"><-</span> add <span class="Constant">0x20</span>/cycle-0 +<span id="L152" class="LineNr">152 </span> <span class="Delimiter">}</span> +<span id="L153" class="LineNr">153 </span> <a href='500fake-screen.mu.html#L462'>pixel</a> <a href='500fake-screen.mu.html#L14'>screen</a>, x, y, color +<span id="L154" class="LineNr">154 </span> x <span class="Special"><-</span> increment +<span id="L155" class="LineNr">155 </span> <span class="PreProc">loop</span> +<span id="L156" class="LineNr">156 </span> <span class="Delimiter">}</span> +<span id="L157" class="LineNr">157 </span> y <span class="Special"><-</span> increment +<span id="L158" class="LineNr">158 </span> <span class="PreProc">loop</span> +<span id="L159" class="LineNr">159 </span> <span class="Delimiter">}</span> +<span id="L160" class="LineNr">160 </span><span class="Delimiter">}</span> +<span id="L161" class="LineNr">161 </span> +<span id="L162" class="LineNr">162 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='mandelbrot-fixed.mu.html#L162'>mandelbrot-iterations-for-point</a></span> real-f: int, imaginary-f: int, max: int<span class="PreProc"> -> </span>_/<span class="Constant">esi</span>: int <span class="Delimiter">{</span> +<span id="L163" class="LineNr">163 </span> <span class="PreProc">var</span> x-f/<span class="Constant">esi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L164" class="LineNr">164 </span> <span class="PreProc">var</span> y-f/<span class="Constant">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L165" class="LineNr">165 </span> <span class="PreProc">var</span> iterations/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L166" class="LineNr">166 </span> <span class="Delimiter">{</span> +<span id="L167" class="LineNr">167 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L182'>mandelbrot-done?</a> x-f, y-f +<span id="L168" class="LineNr">168 </span> compare done?, <span class="Constant">0</span>/false +<span id="L169" class="LineNr">169 </span> <span class="PreProc">break-if-!=</span> +<span id="L170" class="LineNr">170 </span> compare iterations, max +<span id="L171" class="LineNr">171 </span> <span class="PreProc">break-if->=</span> +<span id="L172" class="LineNr">172 </span> <span class="PreProc">var</span> x2-f/<span class="Constant">edx</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L196'>mandelbrot-x</a> x-f, y-f, real-f +<span id="L173" class="LineNr">173 </span> <span class="PreProc">var</span> y2-f/<span class="Constant">ebx</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L206'>mandelbrot-y</a> x-f, y-f, imaginary-f +<span id="L174" class="LineNr">174 </span> x-f <span class="Special"><-</span> copy x2-f +<span id="L175" class="LineNr">175 </span> y-f <span class="Special"><-</span> copy y2-f +<span id="L176" class="LineNr">176 </span> iterations <span class="Special"><-</span> increment +<span id="L177" class="LineNr">177 </span> <span class="PreProc">loop</span> <span id="L178" class="LineNr">178 </span> <span class="Delimiter">}</span> -<span id="L179" class="LineNr">179 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L179" class="LineNr">179 </span> <span class="PreProc">return</span> iterations <span id="L180" class="LineNr">180 </span><span class="Delimiter">}</span> <span id="L181" class="LineNr">181 </span> -<span id="L182" class="LineNr">182 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='mandelbrot-fixed.mu.html#L182'>mandelbrot-x</a></span> x-f: int, y-f: int, real-f: int<span class="PreProc"> -> </span>_/<span class="Constant">edx</span>: int <span class="Delimiter">{</span> -<span id="L183" class="LineNr">183 </span> <span class="muComment"># x*x - y*y + real</span> -<span id="L184" class="LineNr">184 </span> <span class="PreProc">var</span> tmp-f/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L84'>multiply-fixed</a> x-f, x-f +<span id="L182" class="LineNr">182 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='mandelbrot-fixed.mu.html#L182'>mandelbrot-done?</a></span> x-f: int, y-f: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L183" class="LineNr">183 </span> <span class="muComment"># x*x + y*y > 4</span> +<span id="L184" class="LineNr">184 </span> <span class="PreProc">var</span> tmp-f/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L100'>multiply-fixed</a> x-f, x-f <span id="L185" class="LineNr">185 </span> <span class="PreProc">var</span> result-f/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy tmp-f -<span id="L186" class="LineNr">186 </span> tmp-f <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L84'>multiply-fixed</a> y-f, y-f -<span id="L187" class="LineNr">187 </span> result-f <span class="Special"><-</span> subtract tmp-f -<span id="L188" class="LineNr">188 </span> result-f <span class="Special"><-</span> add real-f -<span id="L189" class="LineNr">189 </span> <span class="PreProc">return</span> result-f -<span id="L190" class="LineNr">190 </span><span class="Delimiter">}</span> -<span id="L191" class="LineNr">191 </span> -<span id="L192" class="LineNr">192 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='mandelbrot-fixed.mu.html#L192'>mandelbrot-y</a></span> x-f: int, y-f: int, imaginary-f: int<span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> -<span id="L193" class="LineNr">193 </span> <span class="muComment"># 2*x*y + imaginary</span> -<span id="L194" class="LineNr">194 </span> <span class="PreProc">var</span> result-f/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy x-f -<span id="L195" class="LineNr">195 </span> result-f <span class="Special"><-</span> shift-left <span class="Constant">1</span>/log2 -<span id="L196" class="LineNr">196 </span> result-f <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L84'>multiply-fixed</a> result-f, y-f -<span id="L197" class="LineNr">197 </span> result-f <span class="Special"><-</span> add imaginary-f -<span id="L198" class="LineNr">198 </span> <span class="PreProc">return</span> result-f -<span id="L199" class="LineNr">199 </span><span class="Delimiter">}</span> -<span id="L200" class="LineNr">200 </span> -<span id="L201" class="LineNr">201 </span><span class="muComment"># Scale (x, y) pixel coordinates to a complex plane where the viewport width</span> -<span id="L202" class="LineNr">202 </span><span class="muComment"># ranges from -2 to +2. Viewport height just follows the viewport's aspect</span> -<span id="L203" class="LineNr">203 </span><span class="muComment"># ratio.</span> -<span id="L204" class="LineNr">204 </span> -<span id="L205" class="LineNr">205 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='mandelbrot-fixed.mu.html#L205'>viewport-to-real-f</a></span> x: int, width: int<span class="PreProc"> -> </span>_/<span class="Constant">edx</span>: int <span class="Delimiter">{</span> -<span id="L206" class="LineNr">206 </span> <span class="muComment"># (x - width/2)*4/width</span> -<span id="L207" class="LineNr">207 </span> <span class="PreProc">var</span> result-f/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L20'>int-to-fixed</a> x -<span id="L208" class="LineNr">208 </span> <span class="PreProc">var</span> width-f/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy width -<span id="L209" class="LineNr">209 </span> width-f <span class="Special"><-</span> shift-left <span class="Constant">8</span>/fixed-precision -<span id="L210" class="LineNr">210 </span> <span class="PreProc">var</span> half-width-f/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy width-f -<span id="L211" class="LineNr">211 </span> half-width-f <span class="Special"><-</span> shift-right-signed <span class="Constant">1</span>/log2 -<span id="L212" class="LineNr">212 </span> result-f <span class="Special"><-</span> subtract half-width-f -<span id="L213" class="LineNr">213 </span> result-f <span class="Special"><-</span> shift-left <span class="Constant">2</span>/log4 -<span id="L214" class="LineNr">214 </span> result-f <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L95'>divide-fixed</a> result-f, width-f -<span id="L215" class="LineNr">215 </span> <span class="PreProc">return</span> result-f -<span id="L216" class="LineNr">216 </span><span class="Delimiter">}</span> -<span id="L217" class="LineNr">217 </span> -<span id="L218" class="LineNr">218 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='mandelbrot-fixed.mu.html#L218'>viewport-to-imaginary-f</a></span> y: int, width: int, height: int<span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> -<span id="L219" class="LineNr">219 </span> <span class="muComment"># (y - height/2)*4/width</span> -<span id="L220" class="LineNr">220 </span> <span class="PreProc">var</span> result-f/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L20'>int-to-fixed</a> y -<span id="L221" class="LineNr">221 </span> <span class="PreProc">var</span> half-height-f/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy height -<span id="L222" class="LineNr">222 </span> half-height-f <span class="Special"><-</span> shift-left <span class="Constant">8</span>/fixed-precision -<span id="L223" class="LineNr">223 </span> half-height-f <span class="Special"><-</span> shift-right-signed <span class="Constant">1</span>/log2 -<span id="L224" class="LineNr">224 </span> result-f <span class="Special"><-</span> subtract half-height-f -<span id="L225" class="LineNr">225 </span> result-f <span class="Special"><-</span> shift-left <span class="Constant">2</span>/log4 -<span id="L226" class="LineNr">226 </span> <span class="PreProc">var</span> width-f/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy width -<span id="L227" class="LineNr">227 </span> width-f <span class="Special"><-</span> shift-left <span class="Constant">8</span>/fixed-precision -<span id="L228" class="LineNr">228 </span> result-f <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L95'>divide-fixed</a> result-f, width-f -<span id="L229" class="LineNr">229 </span> <span class="PreProc">return</span> result-f -<span id="L230" class="LineNr">230 </span><span class="Delimiter">}</span> +<span id="L186" class="LineNr">186 </span> tmp-f <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L100'>multiply-fixed</a> y-f, y-f +<span id="L187" class="LineNr">187 </span> result-f <span class="Special"><-</span> add tmp-f +<span id="L188" class="LineNr">188 </span> compare result-f, <span class="Constant">0x400</span>/<span class="Constant">4</span> +<span id="L189" class="LineNr">189 </span> <span class="Delimiter">{</span> +<span id="L190" class="LineNr">190 </span> <span class="PreProc">break-if-></span> +<span id="L191" class="LineNr">191 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L192" class="LineNr">192 </span> <span class="Delimiter">}</span> +<span id="L193" class="LineNr">193 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L194" class="LineNr">194 </span><span class="Delimiter">}</span> +<span id="L195" class="LineNr">195 </span> +<span id="L196" class="LineNr">196 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='mandelbrot-fixed.mu.html#L196'>mandelbrot-x</a></span> x-f: int, y-f: int, real-f: int<span class="PreProc"> -> </span>_/<span class="Constant">edx</span>: int <span class="Delimiter">{</span> +<span id="L197" class="LineNr">197 </span> <span class="muComment"># x*x - y*y + real</span> +<span id="L198" class="LineNr">198 </span> <span class="PreProc">var</span> tmp-f/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L100'>multiply-fixed</a> x-f, x-f +<span id="L199" class="LineNr">199 </span> <span class="PreProc">var</span> result-f/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy tmp-f +<span id="L200" class="LineNr">200 </span> tmp-f <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L100'>multiply-fixed</a> y-f, y-f +<span id="L201" class="LineNr">201 </span> result-f <span class="Special"><-</span> subtract tmp-f +<span id="L202" class="LineNr">202 </span> result-f <span class="Special"><-</span> add real-f +<span id="L203" class="LineNr">203 </span> <span class="PreProc">return</span> result-f +<span id="L204" class="LineNr">204 </span><span class="Delimiter">}</span> +<span id="L205" class="LineNr">205 </span> +<span id="L206" class="LineNr">206 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='mandelbrot-fixed.mu.html#L206'>mandelbrot-y</a></span> x-f: int, y-f: int, imaginary-f: int<span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> +<span id="L207" class="LineNr">207 </span> <span class="muComment"># 2*x*y + imaginary</span> +<span id="L208" class="LineNr">208 </span> <span class="PreProc">var</span> result-f/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy x-f +<span id="L209" class="LineNr">209 </span> result-f <span class="Special"><-</span> shift-left <span class="Constant">1</span>/log2 +<span id="L210" class="LineNr">210 </span> result-f <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L100'>multiply-fixed</a> result-f, y-f +<span id="L211" class="LineNr">211 </span> result-f <span class="Special"><-</span> add imaginary-f +<span id="L212" class="LineNr">212 </span> <span class="PreProc">return</span> result-f +<span id="L213" class="LineNr">213 </span><span class="Delimiter">}</span> +<span id="L214" class="LineNr">214 </span> +<span id="L215" class="LineNr">215 </span><span class="muComment"># Scale (x, y) pixel coordinates to a complex plane where the viewport width</span> +<span id="L216" class="LineNr">216 </span><span class="muComment"># ranges from -2 to +2. Viewport height just follows the viewport's aspect</span> +<span id="L217" class="LineNr">217 </span><span class="muComment"># ratio.</span> +<span id="L218" class="LineNr">218 </span> +<span id="L219" class="LineNr">219 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='mandelbrot-fixed.mu.html#L219'>viewport-to-real-f</a></span> x: int, width: int, scene-cx-f: int, scene-width-f: int<span class="PreProc"> -> </span>_/<span class="Constant">edx</span>: int <span class="Delimiter">{</span> +<span id="L220" class="LineNr">220 </span> <span class="muComment"># 0 in the viewport goes to scene-cx - scene-width/2 </span> +<span id="L221" class="LineNr">221 </span> <span class="muComment"># width in the viewport goes to scene-cx + scene-width/2</span> +<span id="L222" class="LineNr">222 </span> <span class="muComment"># Therefore:</span> +<span id="L223" class="LineNr">223 </span> <span class="muComment"># x in the viewport goes to (scene-cx - scene-width/2) + x*scene-width/width</span> +<span id="L224" class="LineNr">224 </span> <span class="muComment"># At most two numbers being multiplied before a divide, so no risk of overflow.</span> +<span id="L225" class="LineNr">225 </span> <span class="PreProc">var</span> result-f/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L36'>int-to-fixed</a> x +<span id="L226" class="LineNr">226 </span> result-f <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L100'>multiply-fixed</a> result-f, scene-width-f +<span id="L227" class="LineNr">227 </span> <span class="PreProc">var</span> width-f/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy width +<span id="L228" class="LineNr">228 </span> width-f <span class="Special"><-</span> shift-left <span class="Constant">8</span>/fixed-precision +<span id="L229" class="LineNr">229 </span> result-f <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L111'>divide-fixed</a> result-f, width-f +<span id="L230" class="LineNr">230 </span> result-f <span class="Special"><-</span> add scene-cx-f +<span id="L231" class="LineNr">231 </span> <span class="PreProc">var</span> half-scene-width-f/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy scene-width-f +<span id="L232" class="LineNr">232 </span> half-scene-width-f <span class="Special"><-</span> shift-right <span class="Constant">1</span> +<span id="L233" class="LineNr">233 </span> result-f <span class="Special"><-</span> subtract half-scene-width-f +<span id="L234" class="LineNr">234 </span> <span class="PreProc">return</span> result-f +<span id="L235" class="LineNr">235 </span><span class="Delimiter">}</span> +<span id="L236" class="LineNr">236 </span> +<span id="L237" class="LineNr">237 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='mandelbrot-fixed.mu.html#L237'>viewport-to-imaginary-f</a></span> y: int, width: int, height: int, scene-cy-f: int, scene-width-f: int<span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> +<span id="L238" class="LineNr">238 </span> <span class="muComment"># 0 in the viewport goes to scene-cy - scene-width/2*height/width</span> +<span id="L239" class="LineNr">239 </span> <span class="muComment"># height in the viewport goes to scene-cy + scene-width/2*height/width</span> +<span id="L240" class="LineNr">240 </span> <span class="muComment"># Therefore:</span> +<span id="L241" class="LineNr">241 </span> <span class="muComment"># y in the viewport goes to (scene-cy - scene-width/2*height/width) + y*scene-width/width</span> +<span id="L242" class="LineNr">242 </span> <span class="muComment"># scene-cy - scene-width/width * (height/2 + y)</span> +<span id="L243" class="LineNr">243 </span> <span class="muComment"># At most two numbers being multiplied before a divide, so no risk of overflow.</span> +<span id="L244" class="LineNr">244 </span> <span class="PreProc">var</span> result-f/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L36'>int-to-fixed</a> y +<span id="L245" class="LineNr">245 </span> result-f <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L100'>multiply-fixed</a> result-f, scene-width-f +<span id="L246" class="LineNr">246 </span> <span class="PreProc">var</span> width-f/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy width +<span id="L247" class="LineNr">247 </span> width-f <span class="Special"><-</span> shift-left <span class="Constant">8</span>/fixed-precision +<span id="L248" class="LineNr">248 </span> result-f <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L111'>divide-fixed</a> result-f, width-f +<span id="L249" class="LineNr">249 </span> result-f <span class="Special"><-</span> add scene-cy-f +<span id="L250" class="LineNr">250 </span> <span class="PreProc">var</span> second-term-f/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L251" class="LineNr">251 </span> <span class="Delimiter">{</span> +<span id="L252" class="LineNr">252 </span> <span class="PreProc">var</span> _second-term-f/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy scene-width-f +<span id="L253" class="LineNr">253 </span> _second-term-f <span class="Special"><-</span> shift-right <span class="Constant">1</span> +<span id="L254" class="LineNr">254 </span> <span class="PreProc">var</span> height-f/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy height +<span id="L255" class="LineNr">255 </span> height-f <span class="Special"><-</span> shift-left <span class="Constant">8</span>/fixed-precision +<span id="L256" class="LineNr">256 </span> _second-term-f <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L100'>multiply-fixed</a> _second-term-f, height-f +<span id="L257" class="LineNr">257 </span> _second-term-f <span class="Special"><-</span> <a href='mandelbrot-fixed.mu.html#L111'>divide-fixed</a> _second-term-f, width-f +<span id="L258" class="LineNr">258 </span> second-term-f <span class="Special"><-</span> copy _second-term-f +<span id="L259" class="LineNr">259 </span> <span class="Delimiter">}</span> +<span id="L260" class="LineNr">260 </span> result-f <span class="Special"><-</span> subtract second-term-f +<span id="L261" class="LineNr">261 </span> <span class="PreProc">return</span> result-f +<span id="L262" class="LineNr">262 </span><span class="Delimiter">}</span> </pre> </body> </html> diff --git a/html/mandelbrot.mu.html b/html/mandelbrot.mu.html index d86c66ae..6cc460b6 100644 --- a/html/mandelbrot.mu.html +++ b/html/mandelbrot.mu.html @@ -69,143 +69,172 @@ if ('onhashchange' in window) { <span id="L11" class="LineNr"> 11 </span><span class="muComment"># $ qemu-system-i386 code.img</span> <span id="L12" class="LineNr"> 12 </span> <span id="L13" class="LineNr"> 13 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='mandelbrot.mu.html#L13'>main</a></span> <a href='500fake-screen.mu.html#L14'>screen</a>: (addr <a href='500fake-screen.mu.html#L14'>screen</a>), keyboard: (addr keyboard), data-disk: (addr disk) <span class="Delimiter">{</span> -<span id="L14" class="LineNr"> 14 </span> <a href='mandelbrot.mu.html#L17'>mandelbrot</a> <a href='500fake-screen.mu.html#L14'>screen</a> -<span id="L15" class="LineNr"> 15 </span><span class="Delimiter">}</span> -<span id="L16" class="LineNr"> 16 </span> -<span id="L17" class="LineNr"> 17 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='mandelbrot.mu.html#L17'>mandelbrot</a></span> <a href='500fake-screen.mu.html#L14'>screen</a>: (addr <a href='500fake-screen.mu.html#L14'>screen</a>) <span class="Delimiter">{</span> -<span id="L18" class="LineNr"> 18 </span> <span class="PreProc">var</span> a/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L19" class="LineNr"> 19 </span> <span class="PreProc">var</span> b/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L20" class="LineNr"> 20 </span> a, b <span class="Special"><-</span> <a href='500fake-screen.mu.html#L70'>screen-size</a> <a href='500fake-screen.mu.html#L14'>screen</a> -<span id="L21" class="LineNr"> 21 </span> <span class="PreProc">var</span> width/<span class="Constant">esi</span>: int <span class="Special"><-</span> copy a -<span id="L22" class="LineNr"> 22 </span> width <span class="Special"><-</span> shift-left <span class="Constant">3</span>/log2-font-width -<span id="L23" class="LineNr"> 23 </span> <span class="PreProc">var</span> height/<span class="Constant">edi</span>: int <span class="Special"><-</span> copy b -<span id="L24" class="LineNr"> 24 </span> height <span class="Special"><-</span> shift-left <span class="Constant">4</span>/log2-font-height -<span id="L25" class="LineNr"> 25 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L26" class="LineNr"> 26 </span> <span class="Delimiter">{</span> -<span id="L27" class="LineNr"> 27 </span> compare y, height -<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">break-if->=</span> -<span id="L29" class="LineNr"> 29 </span> <span class="PreProc">var</span> imaginary/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> <a href='mandelbrot.mu.html#L135'>viewport-to-imaginary</a> y, width, height -<span id="L30" class="LineNr"> 30 </span> <span class="PreProc">var</span> x/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L31" class="LineNr"> 31 </span> <span class="Delimiter">{</span> -<span id="L32" class="LineNr"> 32 </span> compare x, width -<span id="L33" class="LineNr"> 33 </span> <span class="PreProc">break-if->=</span> -<span id="L34" class="LineNr"> 34 </span> <span class="PreProc">var</span> real/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='mandelbrot.mu.html#L119'>viewport-to-real</a> x, width -<span id="L35" class="LineNr"> 35 </span> <span class="PreProc">var</span> iterations/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot.mu.html#L54'>mandelbrot-iterations-for-point</a> real, imaginary, <span class="Constant">0x400</span>/max -<span id="L36" class="LineNr"> 36 </span> compare iterations, <span class="Constant">0x400</span>/max -<span id="L37" class="LineNr"> 37 </span> <span class="Delimiter">{</span> -<span id="L38" class="LineNr"> 38 </span> <span class="PreProc">break-if->=</span> -<span id="L39" class="LineNr"> 39 </span> <a href='500fake-screen.mu.html#L462'>pixel</a> <a href='500fake-screen.mu.html#L14'>screen</a>, x, y, <span class="Constant">0xf</span>/white -<span id="L40" class="LineNr"> 40 </span> <span class="Delimiter">}</span> -<span id="L41" class="LineNr"> 41 </span> compare iterations, <span class="Constant">0x400</span>/max -<span id="L42" class="LineNr"> 42 </span> <span class="Delimiter">{</span> -<span id="L43" class="LineNr"> 43 </span> <span class="PreProc">break-if-<</span> -<span id="L44" class="LineNr"> 44 </span> <a href='500fake-screen.mu.html#L462'>pixel</a> <a href='500fake-screen.mu.html#L14'>screen</a>, x, y, <span class="Constant">0</span>/black -<span id="L45" class="LineNr"> 45 </span> <span class="Delimiter">}</span> -<span id="L46" class="LineNr"> 46 </span> x <span class="Special"><-</span> increment -<span id="L47" class="LineNr"> 47 </span> <span class="PreProc">loop</span> -<span id="L48" class="LineNr"> 48 </span> <span class="Delimiter">}</span> -<span id="L49" class="LineNr"> 49 </span> y <span class="Special"><-</span> increment -<span id="L50" class="LineNr"> 50 </span> <span class="PreProc">loop</span> -<span id="L51" class="LineNr"> 51 </span> <span class="Delimiter">}</span> -<span id="L52" class="LineNr"> 52 </span><span class="Delimiter">}</span> -<span id="L53" class="LineNr"> 53 </span> -<span id="L54" class="LineNr"> 54 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='mandelbrot.mu.html#L54'>mandelbrot-iterations-for-point</a></span> real: float, imaginary: float, max: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L55" class="LineNr"> 55 </span> <span class="PreProc">var</span> zero: float -<span id="L56" class="LineNr"> 56 </span> <span class="PreProc">var</span> x/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy zero -<span id="L57" class="LineNr"> 57 </span> <span class="PreProc">var</span> y/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> copy zero -<span id="L58" class="LineNr"> 58 </span> <span class="PreProc">var</span> iterations/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L59" class="LineNr"> 59 </span> <span class="Delimiter">{</span> -<span id="L60" class="LineNr"> 60 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='mandelbrot.mu.html#L75'>mandelbrot-done?</a> x, y -<span id="L61" class="LineNr"> 61 </span> compare done?, <span class="Constant">0</span>/false -<span id="L62" class="LineNr"> 62 </span> <span class="PreProc">break-if-!=</span> -<span id="L63" class="LineNr"> 63 </span> compare iterations, max -<span id="L64" class="LineNr"> 64 </span> <span class="PreProc">break-if->=</span> -<span id="L65" class="LineNr"> 65 </span> <span class="PreProc">var</span> newx/<span class="Constant">xmm2</span>: float <span class="Special"><-</span> <a href='mandelbrot.mu.html#L93'>mandelbrot-x</a> x, y, real -<span id="L66" class="LineNr"> 66 </span> <span class="PreProc">var</span> newy/<span class="Constant">xmm3</span>: float <span class="Special"><-</span> <a href='mandelbrot.mu.html#L105'>mandelbrot-y</a> x, y, imaginary -<span id="L67" class="LineNr"> 67 </span> x <span class="Special"><-</span> copy newx -<span id="L68" class="LineNr"> 68 </span> y <span class="Special"><-</span> copy newy -<span id="L69" class="LineNr"> 69 </span> iterations <span class="Special"><-</span> increment -<span id="L70" class="LineNr"> 70 </span> <span class="PreProc">loop</span> -<span id="L71" class="LineNr"> 71 </span> <span class="Delimiter">}</span> -<span id="L72" class="LineNr"> 72 </span> <span class="PreProc">return</span> iterations -<span id="L73" class="LineNr"> 73 </span><span class="Delimiter">}</span> -<span id="L74" class="LineNr"> 74 </span> -<span id="L75" class="LineNr"> 75 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='mandelbrot.mu.html#L75'>mandelbrot-done?</a></span> x: float, y: float<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L76" class="LineNr"> 76 </span> <span class="muComment"># x*x + y*y > 4</span> -<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> x2/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy x -<span id="L78" class="LineNr"> 78 </span> x2 <span class="Special"><-</span> multiply x -<span id="L79" class="LineNr"> 79 </span> <span class="PreProc">var</span> y2/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> copy y -<span id="L80" class="LineNr"> 80 </span> y2 <span class="Special"><-</span> multiply y -<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> sum/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy x2 -<span id="L82" class="LineNr"> 82 </span> sum <span class="Special"><-</span> add y2 -<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">var</span> four/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">4</span> -<span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> four-f/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> convert four -<span id="L85" class="LineNr"> 85 </span> compare sum, four-f -<span id="L86" class="LineNr"> 86 </span> <span class="Delimiter">{</span> -<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">break-if-float></span> -<span id="L88" class="LineNr"> 88 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L89" class="LineNr"> 89 </span> <span class="Delimiter">}</span> -<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true -<span id="L91" class="LineNr"> 91 </span><span class="Delimiter">}</span> -<span id="L92" class="LineNr"> 92 </span> -<span id="L93" class="LineNr"> 93 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='mandelbrot.mu.html#L93'>mandelbrot-x</a></span> x: float, y: float, real: float<span class="PreProc"> -> </span>_/<span class="Constant">xmm2</span>: float <span class="Delimiter">{</span> -<span id="L94" class="LineNr"> 94 </span> <span class="muComment"># x*x - y*y + real</span> -<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">var</span> x2/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy x -<span id="L96" class="LineNr"> 96 </span> x2 <span class="Special"><-</span> multiply x -<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> y2/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> copy y -<span id="L98" class="LineNr"> 98 </span> y2 <span class="Special"><-</span> multiply y -<span id="L99" class="LineNr"> 99 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy x2 -<span id="L100" class="LineNr">100 </span> result <span class="Special"><-</span> subtract y2 -<span id="L101" class="LineNr">101 </span> result <span class="Special"><-</span> add real -<span id="L102" class="LineNr">102 </span> <span class="PreProc">return</span> result -<span id="L103" class="LineNr">103 </span><span class="Delimiter">}</span> -<span id="L104" class="LineNr">104 </span> -<span id="L105" class="LineNr">105 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='mandelbrot.mu.html#L105'>mandelbrot-y</a></span> x: float, y: float, imaginary: float<span class="PreProc"> -> </span>_/<span class="Constant">xmm3</span>: float <span class="Delimiter">{</span> -<span id="L106" class="LineNr">106 </span> <span class="muComment"># 2*x*y + imaginary</span> -<span id="L107" class="LineNr">107 </span> <span class="PreProc">var</span> two/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">2</span> -<span id="L108" class="LineNr">108 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert two -<span id="L109" class="LineNr">109 </span> result <span class="Special"><-</span> multiply x -<span id="L110" class="LineNr">110 </span> result <span class="Special"><-</span> multiply y -<span id="L111" class="LineNr">111 </span> result <span class="Special"><-</span> add imaginary -<span id="L112" class="LineNr">112 </span> <span class="PreProc">return</span> result -<span id="L113" class="LineNr">113 </span><span class="Delimiter">}</span> -<span id="L114" class="LineNr">114 </span> -<span id="L115" class="LineNr">115 </span><span class="muComment"># Scale (x, y) pixel coordinates to a complex plane where the viewport width</span> -<span id="L116" class="LineNr">116 </span><span class="muComment"># ranges from -2 to +2. Viewport height just follows the viewport's aspect</span> -<span id="L117" class="LineNr">117 </span><span class="muComment"># ratio.</span> -<span id="L118" class="LineNr">118 </span> -<span id="L119" class="LineNr">119 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='mandelbrot.mu.html#L119'>viewport-to-real</a></span> x: int, width: int<span class="PreProc"> -> </span>_/<span class="Constant">xmm0</span>: float <span class="Delimiter">{</span> -<span id="L120" class="LineNr">120 </span> <span class="muComment"># (x - width/2)*4/width</span> -<span id="L121" class="LineNr">121 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert x -<span id="L122" class="LineNr">122 </span> <span class="PreProc">var</span> width-f/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> convert width -<span id="L123" class="LineNr">123 </span> <span class="PreProc">var</span> two/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">2</span> -<span id="L124" class="LineNr">124 </span> <span class="PreProc">var</span> two-f/<span class="Constant">xmm2</span>: float <span class="Special"><-</span> convert two -<span id="L125" class="LineNr">125 </span> <span class="PreProc">var</span> half-width-f/<span class="Constant">xmm2</span>: float <span class="Special"><-</span> reciprocal two-f -<span id="L126" class="LineNr">126 </span> half-width-f <span class="Special"><-</span> multiply width-f -<span id="L127" class="LineNr">127 </span> result <span class="Special"><-</span> subtract half-width-f -<span id="L128" class="LineNr">128 </span> <span class="PreProc">var</span> four/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">4</span> -<span id="L129" class="LineNr">129 </span> <span class="PreProc">var</span> four-f/<span class="Constant">xmm2</span>: float <span class="Special"><-</span> convert four -<span id="L130" class="LineNr">130 </span> result <span class="Special"><-</span> multiply four-f -<span id="L131" class="LineNr">131 </span> result <span class="Special"><-</span> divide width-f -<span id="L132" class="LineNr">132 </span> <span class="PreProc">return</span> result -<span id="L133" class="LineNr">133 </span><span class="Delimiter">}</span> -<span id="L134" class="LineNr">134 </span> -<span id="L135" class="LineNr">135 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='mandelbrot.mu.html#L135'>viewport-to-imaginary</a></span> y: int, width: int, height: int<span class="PreProc"> -> </span>_/<span class="Constant">xmm1</span>: float <span class="Delimiter">{</span> -<span id="L136" class="LineNr">136 </span> <span class="muComment"># (y - height/2)*4/width</span> -<span id="L137" class="LineNr">137 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert y -<span id="L138" class="LineNr">138 </span> <span class="PreProc">var</span> height-f/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> convert height -<span id="L139" class="LineNr">139 </span> <span class="PreProc">var</span> half-height-f/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> copy height-f -<span id="L140" class="LineNr">140 </span> <span class="PreProc">var</span> two/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">2</span> -<span id="L141" class="LineNr">141 </span> <span class="PreProc">var</span> two-f/<span class="Constant">xmm2</span>: float <span class="Special"><-</span> convert two -<span id="L142" class="LineNr">142 </span> half-height-f <span class="Special"><-</span> divide two-f -<span id="L143" class="LineNr">143 </span> result <span class="Special"><-</span> subtract half-height-f -<span id="L144" class="LineNr">144 </span> <span class="PreProc">var</span> four/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">4</span> -<span id="L145" class="LineNr">145 </span> <span class="PreProc">var</span> four-f/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> convert four -<span id="L146" class="LineNr">146 </span> result <span class="Special"><-</span> multiply four-f -<span id="L147" class="LineNr">147 </span> <span class="PreProc">var</span> width-f/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> convert width -<span id="L148" class="LineNr">148 </span> result <span class="Special"><-</span> divide width-f -<span id="L149" class="LineNr">149 </span> <span class="PreProc">return</span> result -<span id="L150" class="LineNr">150 </span><span class="Delimiter">}</span> +<span id="L14" class="LineNr"> 14 </span> <span class="muComment"># Initially the viewport is centered at 0, 0 in the scene.</span> +<span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> zero: float +<span id="L16" class="LineNr"> 16 </span> <span class="PreProc">var</span> scene-cx/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> copy zero +<span id="L17" class="LineNr"> 17 </span> <span class="PreProc">var</span> scene-cy/<span class="Constant">xmm2</span>: float <span class="Special"><-</span> copy zero +<span id="L18" class="LineNr"> 18 </span> <span class="muComment"># Initially the viewport shows a section of the scene 4 units wide.</span> +<span id="L19" class="LineNr"> 19 </span> <span class="muComment"># scene-width-scale = 0.5</span> +<span id="L20" class="LineNr"> 20 </span> <span class="PreProc">var</span> scene-width-scale: float +<span id="L21" class="LineNr"> 21 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> address scene-width-scale +<span id="L22" class="LineNr"> 22 </span> <a href='408float.mu.html#L3'>fill-in-rational</a> dest, <span class="Constant">1</span>, <span class="Constant">2</span> +<span id="L23" class="LineNr"> 23 </span> <span class="muComment"># scene-width = 4</span> +<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">var</span> four: float +<span id="L25" class="LineNr"> 25 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> address four +<span id="L26" class="LineNr"> 26 </span> <a href='408float.mu.html#L3'>fill-in-rational</a> dest, <span class="Constant">4</span>, <span class="Constant">1</span> +<span id="L27" class="LineNr"> 27 </span> <span class="PreProc">var</span> scene-width/<span class="Constant">xmm3</span>: float <span class="Special"><-</span> copy four +<span id="L28" class="LineNr"> 28 </span> <span class="Delimiter">{</span> +<span id="L29" class="LineNr"> 29 </span> <a href='mandelbrot.mu.html#L41'>mandelbrot</a> <a href='500fake-screen.mu.html#L14'>screen</a> scene-cx, scene-cy, scene-width +<span id="L30" class="LineNr"> 30 </span> <span class="muComment"># move the center some % of the current screen-width</span> +<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> adj/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">2</span>, <span class="Constant">0x1c</span>/<span class="Constant">28</span> +<span id="L32" class="LineNr"> 32 </span> adj <span class="Special"><-</span> multiply scene-width +<span id="L33" class="LineNr"> 33 </span> scene-cx <span class="Special"><-</span> subtract adj +<span id="L34" class="LineNr"> 34 </span> scene-cy <span class="Special"><-</span> add adj +<span id="L35" class="LineNr"> 35 </span> <span class="muComment"># slowly shrink the scene width to zoom in</span> +<span id="L36" class="LineNr"> 36 </span> scene-width <span class="Special"><-</span> multiply scene-width-scale +<span id="L37" class="LineNr"> 37 </span> <span class="PreProc">loop</span> +<span id="L38" class="LineNr"> 38 </span> <span class="Delimiter">}</span> +<span id="L39" class="LineNr"> 39 </span><span class="Delimiter">}</span> +<span id="L40" class="LineNr"> 40 </span> +<span id="L41" class="LineNr"> 41 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='mandelbrot.mu.html#L41'>mandelbrot</a></span> <a href='500fake-screen.mu.html#L14'>screen</a>: (addr <a href='500fake-screen.mu.html#L14'>screen</a>), scene-cx: float, scene-cy: float, scene-width: float <span class="Delimiter">{</span> +<span id="L42" class="LineNr"> 42 </span> <span class="PreProc">var</span> a/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L43" class="LineNr"> 43 </span> <span class="PreProc">var</span> b/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L44" class="LineNr"> 44 </span> a, b <span class="Special"><-</span> <a href='500fake-screen.mu.html#L70'>screen-size</a> <a href='500fake-screen.mu.html#L14'>screen</a> +<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> width/<span class="Constant">esi</span>: int <span class="Special"><-</span> copy a +<span id="L46" class="LineNr"> 46 </span> width <span class="Special"><-</span> shift-left <span class="Constant">3</span>/log2-font-width +<span id="L47" class="LineNr"> 47 </span> <span class="PreProc">var</span> height/<span class="Constant">edi</span>: int <span class="Special"><-</span> copy b +<span id="L48" class="LineNr"> 48 </span> height <span class="Special"><-</span> shift-left <span class="Constant">4</span>/log2-font-height +<span id="L49" class="LineNr"> 49 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L50" class="LineNr"> 50 </span> <span class="Delimiter">{</span> +<span id="L51" class="LineNr"> 51 </span> compare y, height +<span id="L52" class="LineNr"> 52 </span> <span class="PreProc">break-if->=</span> +<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> imaginary/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> <a href='mandelbrot.mu.html#L157'>viewport-to-imaginary</a> y, width, height, scene-cy, scene-width +<span id="L54" class="LineNr"> 54 </span> <span class="PreProc">var</span> x/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L55" class="LineNr"> 55 </span> <span class="Delimiter">{</span> +<span id="L56" class="LineNr"> 56 </span> compare x, width +<span id="L57" class="LineNr"> 57 </span> <span class="PreProc">break-if->=</span> +<span id="L58" class="LineNr"> 58 </span> <span class="PreProc">var</span> real/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='mandelbrot.mu.html#L138'>viewport-to-real</a> x, width, scene-cx, scene-width +<span id="L59" class="LineNr"> 59 </span> <span class="PreProc">var</span> iterations/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='mandelbrot.mu.html#L73'>mandelbrot-iterations-for-point</a> real, imaginary, <span class="Constant">0x400</span>/max +<span id="L60" class="LineNr"> 60 </span> iterations <span class="Special"><-</span> shift-right <span class="Constant">3</span> +<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> color/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L62" class="LineNr"> 62 </span> iterations, color <span class="Special"><-</span> <a href='314divide.subx.html#L3'>integer-divide</a> iterations, <span class="Constant">0x18</span>/<span class="Constant">24</span>/size-of-cycle-0 +<span id="L63" class="LineNr"> 63 </span> color <span class="Special"><-</span> add <span class="Constant">0x20</span>/cycle-0 +<span id="L64" class="LineNr"> 64 </span> <a href='500fake-screen.mu.html#L462'>pixel</a> <a href='500fake-screen.mu.html#L14'>screen</a>, x, y, color +<span id="L65" class="LineNr"> 65 </span> x <span class="Special"><-</span> increment +<span id="L66" class="LineNr"> 66 </span> <span class="PreProc">loop</span> +<span id="L67" class="LineNr"> 67 </span> <span class="Delimiter">}</span> +<span id="L68" class="LineNr"> 68 </span> y <span class="Special"><-</span> increment +<span id="L69" class="LineNr"> 69 </span> <span class="PreProc">loop</span> +<span id="L70" class="LineNr"> 70 </span> <span class="Delimiter">}</span> +<span id="L71" class="LineNr"> 71 </span><span class="Delimiter">}</span> +<span id="L72" class="LineNr"> 72 </span> +<span id="L73" class="LineNr"> 73 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='mandelbrot.mu.html#L73'>mandelbrot-iterations-for-point</a></span> real: float, imaginary: float, max: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L74" class="LineNr"> 74 </span> <span class="PreProc">var</span> zero: float +<span id="L75" class="LineNr"> 75 </span> <span class="PreProc">var</span> x/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy zero +<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> y/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> copy zero +<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> iterations/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L78" class="LineNr"> 78 </span> <span class="Delimiter">{</span> +<span id="L79" class="LineNr"> 79 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='mandelbrot.mu.html#L94'>mandelbrot-done?</a> x, y +<span id="L80" class="LineNr"> 80 </span> compare done?, <span class="Constant">0</span>/false +<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">break-if-!=</span> +<span id="L82" class="LineNr"> 82 </span> compare iterations, max +<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">break-if->=</span> +<span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> newx/<span class="Constant">xmm2</span>: float <span class="Special"><-</span> <a href='mandelbrot.mu.html#L112'>mandelbrot-x</a> x, y, real +<span id="L85" class="LineNr"> 85 </span> <span class="PreProc">var</span> newy/<span class="Constant">xmm3</span>: float <span class="Special"><-</span> <a href='mandelbrot.mu.html#L124'>mandelbrot-y</a> x, y, imaginary +<span id="L86" class="LineNr"> 86 </span> x <span class="Special"><-</span> copy newx +<span id="L87" class="LineNr"> 87 </span> y <span class="Special"><-</span> copy newy +<span id="L88" class="LineNr"> 88 </span> iterations <span class="Special"><-</span> increment +<span id="L89" class="LineNr"> 89 </span> <span class="PreProc">loop</span> +<span id="L90" class="LineNr"> 90 </span> <span class="Delimiter">}</span> +<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">return</span> iterations +<span id="L92" class="LineNr"> 92 </span><span class="Delimiter">}</span> +<span id="L93" class="LineNr"> 93 </span> +<span id="L94" class="LineNr"> 94 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='mandelbrot.mu.html#L94'>mandelbrot-done?</a></span> x: float, y: float<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L95" class="LineNr"> 95 </span> <span class="muComment"># x*x + y*y > 4</span> +<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">var</span> x2/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy x +<span id="L97" class="LineNr"> 97 </span> x2 <span class="Special"><-</span> multiply x +<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">var</span> y2/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> copy y +<span id="L99" class="LineNr"> 99 </span> y2 <span class="Special"><-</span> multiply y +<span id="L100" class="LineNr">100 </span> <span class="PreProc">var</span> sum/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy x2 +<span id="L101" class="LineNr">101 </span> sum <span class="Special"><-</span> add y2 +<span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> four/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">4</span> +<span id="L103" class="LineNr">103 </span> <span class="PreProc">var</span> four-f/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> convert four +<span id="L104" class="LineNr">104 </span> compare sum, four-f +<span id="L105" class="LineNr">105 </span> <span class="Delimiter">{</span> +<span id="L106" class="LineNr">106 </span> <span class="PreProc">break-if-float></span> +<span id="L107" class="LineNr">107 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L108" class="LineNr">108 </span> <span class="Delimiter">}</span> +<span id="L109" class="LineNr">109 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L110" class="LineNr">110 </span><span class="Delimiter">}</span> +<span id="L111" class="LineNr">111 </span> +<span id="L112" class="LineNr">112 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='mandelbrot.mu.html#L112'>mandelbrot-x</a></span> x: float, y: float, real: float<span class="PreProc"> -> </span>_/<span class="Constant">xmm2</span>: float <span class="Delimiter">{</span> +<span id="L113" class="LineNr">113 </span> <span class="muComment"># x*x - y*y + real</span> +<span id="L114" class="LineNr">114 </span> <span class="PreProc">var</span> x2/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy x +<span id="L115" class="LineNr">115 </span> x2 <span class="Special"><-</span> multiply x +<span id="L116" class="LineNr">116 </span> <span class="PreProc">var</span> y2/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> copy y +<span id="L117" class="LineNr">117 </span> y2 <span class="Special"><-</span> multiply y +<span id="L118" class="LineNr">118 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy x2 +<span id="L119" class="LineNr">119 </span> result <span class="Special"><-</span> subtract y2 +<span id="L120" class="LineNr">120 </span> result <span class="Special"><-</span> add real +<span id="L121" class="LineNr">121 </span> <span class="PreProc">return</span> result +<span id="L122" class="LineNr">122 </span><span class="Delimiter">}</span> +<span id="L123" class="LineNr">123 </span> +<span id="L124" class="LineNr">124 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='mandelbrot.mu.html#L124'>mandelbrot-y</a></span> x: float, y: float, imaginary: float<span class="PreProc"> -> </span>_/<span class="Constant">xmm3</span>: float <span class="Delimiter">{</span> +<span id="L125" class="LineNr">125 </span> <span class="muComment"># 2*x*y + imaginary</span> +<span id="L126" class="LineNr">126 </span> <span class="PreProc">var</span> two/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">2</span> +<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert two +<span id="L128" class="LineNr">128 </span> result <span class="Special"><-</span> multiply x +<span id="L129" class="LineNr">129 </span> result <span class="Special"><-</span> multiply y +<span id="L130" class="LineNr">130 </span> result <span class="Special"><-</span> add imaginary +<span id="L131" class="LineNr">131 </span> <span class="PreProc">return</span> result +<span id="L132" class="LineNr">132 </span><span class="Delimiter">}</span> +<span id="L133" class="LineNr">133 </span> +<span id="L134" class="LineNr">134 </span><span class="muComment"># Scale (x, y) pixel coordinates to a complex plane where the viewport width</span> +<span id="L135" class="LineNr">135 </span><span class="muComment"># ranges from -2 to +2. Viewport height just follows the viewport's aspect</span> +<span id="L136" class="LineNr">136 </span><span class="muComment"># ratio.</span> +<span id="L137" class="LineNr">137 </span> +<span id="L138" class="LineNr">138 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='mandelbrot.mu.html#L138'>viewport-to-real</a></span> x: int, width: int, scene-cx: float, scene-width: float<span class="PreProc"> -> </span>_/<span class="Constant">xmm0</span>: float <span class="Delimiter">{</span> +<span id="L139" class="LineNr">139 </span> <span class="muComment"># 0 in the viewport goes to scene-cx - scene-width/2 </span> +<span id="L140" class="LineNr">140 </span> <span class="muComment"># width in the viewport goes to scene-cx + scene-width/2</span> +<span id="L141" class="LineNr">141 </span> <span class="muComment"># Therefore:</span> +<span id="L142" class="LineNr">142 </span> <span class="muComment"># x in the viewport goes to (scene-cx - scene-width/2) + x*scene-width/width</span> +<span id="L143" class="LineNr">143 </span> <span class="muComment"># At most two numbers being multiplied before a divide, so no risk of overflow.</span> +<span id="L144" class="LineNr">144 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert x +<span id="L145" class="LineNr">145 </span> result <span class="Special"><-</span> multiply scene-width +<span id="L146" class="LineNr">146 </span> <span class="PreProc">var</span> width-f/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> convert width +<span id="L147" class="LineNr">147 </span> result <span class="Special"><-</span> divide width-f +<span id="L148" class="LineNr">148 </span> result <span class="Special"><-</span> add scene-cx +<span id="L149" class="LineNr">149 </span> <span class="PreProc">var</span> two/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">2</span> +<span id="L150" class="LineNr">150 </span> <span class="PreProc">var</span> two-f/<span class="Constant">xmm2</span>: float <span class="Special"><-</span> convert two +<span id="L151" class="LineNr">151 </span> <span class="PreProc">var</span> half-scene-width/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> copy scene-width +<span id="L152" class="LineNr">152 </span> half-scene-width <span class="Special"><-</span> divide two-f +<span id="L153" class="LineNr">153 </span> result <span class="Special"><-</span> subtract half-scene-width +<span id="L154" class="LineNr">154 </span> <span class="PreProc">return</span> result +<span id="L155" class="LineNr">155 </span><span class="Delimiter">}</span> +<span id="L156" class="LineNr">156 </span> +<span id="L157" class="LineNr">157 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='mandelbrot.mu.html#L157'>viewport-to-imaginary</a></span> y: int, width: int, height: int, scene-cy: float, scene-width: float<span class="PreProc"> -> </span>_/<span class="Constant">xmm1</span>: float <span class="Delimiter">{</span> +<span id="L158" class="LineNr">158 </span> <span class="muComment"># 0 in the viewport goes to scene-cy - scene-width/2*height/width</span> +<span id="L159" class="LineNr">159 </span> <span class="muComment"># height in the viewport goes to scene-cy + scene-width/2*height/width</span> +<span id="L160" class="LineNr">160 </span> <span class="muComment"># Therefore:</span> +<span id="L161" class="LineNr">161 </span> <span class="muComment"># y in the viewport goes to (scene-cy - scene-width/2*height/width) + y*scene-width/width</span> +<span id="L162" class="LineNr">162 </span> <span class="muComment"># scene-cy - scene-width/width * (height/2 + y)</span> +<span id="L163" class="LineNr">163 </span> <span class="muComment"># At most two numbers being multiplied before a divide, so no risk of overflow.</span> +<span id="L164" class="LineNr">164 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert y +<span id="L165" class="LineNr">165 </span> result <span class="Special"><-</span> multiply scene-width +<span id="L166" class="LineNr">166 </span> <span class="PreProc">var</span> width-f/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> convert width +<span id="L167" class="LineNr">167 </span> result <span class="Special"><-</span> divide width-f +<span id="L168" class="LineNr">168 </span> result <span class="Special"><-</span> add scene-cy +<span id="L169" class="LineNr">169 </span> <span class="PreProc">var</span> two/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">2</span> +<span id="L170" class="LineNr">170 </span> <span class="PreProc">var</span> two-f/<span class="Constant">xmm2</span>: float <span class="Special"><-</span> convert two +<span id="L171" class="LineNr">171 </span> <span class="PreProc">var</span> second-term/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> copy scene-width +<span id="L172" class="LineNr">172 </span> second-term <span class="Special"><-</span> divide two-f +<span id="L173" class="LineNr">173 </span> <span class="PreProc">var</span> height-f/<span class="Constant">xmm2</span>: float <span class="Special"><-</span> convert height +<span id="L174" class="LineNr">174 </span> second-term <span class="Special"><-</span> multiply height-f +<span id="L175" class="LineNr">175 </span> <span class="PreProc">var</span> width-f/<span class="Constant">xmm2</span>: float <span class="Special"><-</span> convert width +<span id="L176" class="LineNr">176 </span> second-term <span class="Special"><-</span> divide width-f +<span id="L177" class="LineNr">177 </span> result <span class="Special"><-</span> subtract second-term +<span id="L178" class="LineNr">178 </span> <span class="PreProc">return</span> result +<span id="L179" class="LineNr">179 </span><span class="Delimiter">}</span> </pre> </body> </html> diff --git a/html/mu-init.subx.html b/html/mu-init.subx.html index 8aa49531..e36e8a54 100644 --- a/html/mu-init.subx.html +++ b/html/mu-init.subx.html @@ -68,30 +68,25 @@ if ('onhashchange' in window) { <span id="L12" class="LineNr">12 </span><span class="SpecialChar">Entry</span>: <span id="L13" class="LineNr">13 </span> <span class="subxComment"># initialize stack</span> <span id="L14" class="LineNr">14 </span> bd/copy-to-ebp 0/imm32 -<span id="L15" class="LineNr">15 </span> <span class="subxComment"># Clear memory location 0 to ensure that uninitialized arrays run afoul of</span> -<span id="L16" class="LineNr">16 </span> <span class="subxComment"># the bounds checker.</span> -<span id="L17" class="LineNr">17 </span> <span class="subxComment"># TODO: This is utterly bonkers, and does not actually protect us against</span> -<span id="L18" class="LineNr">18 </span> <span class="subxComment"># all null pointer reads/writes. Create a real page table sometime.</span> -<span id="L19" class="LineNr">19 </span> b8/copy-to-eax 0/imm32 -<span id="L20" class="LineNr">20 </span> c7 0/subop/copy *eax 0/imm32 -<span id="L21" class="LineNr">21 </span><span class="CommentedCode">#? (main 0 0 Primary-bus-secondary-drive)</span> -<span id="L22" class="LineNr">22 </span> <span class="subxComment"># always first run tests</span> -<span id="L23" class="LineNr">23 </span> (run-tests) -<span id="L24" class="LineNr">24 </span> (<a href='104test.subx.html#L17'>num-test-failures</a>) <span class="subxComment"># => eax</span> -<span id="L25" class="LineNr">25 </span> <span class="subxComment"># call main if tests all passed</span> -<span id="L26" class="LineNr">26 </span> { -<span id="L27" class="LineNr">27 </span> 3d/compare-eax-and 0/imm32 -<span id="L28" class="LineNr">28 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L29" class="LineNr">29 </span> (<a href='500fake-screen.mu.html#L364'>clear-real-screen</a>) -<span id="L30" class="LineNr">30 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='103grapheme.subx.html#L170'>Real-screen-cursor-x</a></span> 0/imm32 -<span id="L31" class="LineNr">31 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='103grapheme.subx.html#L172'>Real-screen-cursor-y</a></span> 0/imm32 -<span id="L32" class="LineNr">32 </span> (main 0 0 <span class="SpecialChar"><a href='boot.subx.html#L899'>Primary-bus-secondary-drive</a></span>) +<span id="L15" class="LineNr">15 </span> <span class="subxComment">#</span> +<span id="L16" class="LineNr">16 </span><span class="CommentedCode">#? (main 0 0 Primary-bus-secondary-drive)</span> +<span id="L17" class="LineNr">17 </span> <span class="subxComment"># always first run tests</span> +<span id="L18" class="LineNr">18 </span> (run-tests) +<span id="L19" class="LineNr">19 </span> (<a href='104test.subx.html#L17'>num-test-failures</a>) <span class="subxComment"># => eax</span> +<span id="L20" class="LineNr">20 </span> <span class="subxComment"># call main if tests all passed</span> +<span id="L21" class="LineNr">21 </span> { +<span id="L22" class="LineNr">22 </span> 3d/compare-eax-and 0/imm32 +<span id="L23" class="LineNr">23 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L24" class="LineNr">24 </span> (<a href='500fake-screen.mu.html#L364'>clear-real-screen</a>) +<span id="L25" class="LineNr">25 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='103grapheme.subx.html#L170'>Real-screen-cursor-x</a></span> 0/imm32 +<span id="L26" class="LineNr">26 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='103grapheme.subx.html#L172'>Real-screen-cursor-y</a></span> 0/imm32 +<span id="L27" class="LineNr">27 </span> (main 0 0 <span class="SpecialChar"><a href='boot.subx.html#L920'>Primary-bus-secondary-drive</a></span>) +<span id="L28" class="LineNr">28 </span> } +<span id="L29" class="LineNr">29 </span> +<span id="L30" class="LineNr">30 </span> <span class="subxComment"># hang indefinitely</span> +<span id="L31" class="LineNr">31 </span> { +<span id="L32" class="LineNr">32 </span> eb/jump <span class="Constant">loop</span>/disp8 <span id="L33" class="LineNr">33 </span> } -<span id="L34" class="LineNr">34 </span> -<span id="L35" class="LineNr">35 </span> <span class="subxComment"># hang indefinitely</span> -<span id="L36" class="LineNr">36 </span> { -<span id="L37" class="LineNr">37 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L38" class="LineNr">38 </span> } </pre> </body> </html> diff --git a/html/mu_instructions.html b/html/mu_instructions.html index 14b2c931..e5e43cd9 100644 --- a/html/mu_instructions.html +++ b/html/mu_instructions.html @@ -100,6 +100,10 @@ var/reg <span class="Special"><-</span> or n => <span cl or-with var, n => <span class="Constant">"81 1/subop/or *(ebp+"</span> var.stack-offset <span class="Constant">") "</span> n <span class="Constant">"/imm32"</span> or-with *var/reg, n => <span class="Constant">"81 1/subop/or *"</span> reg <span class="Constant">" "</span> n <span class="Constant">"/imm32"</span> +var/reg <span class="Special"><-</span> not => <span class="Constant">"f7 2/subop/not %"</span> reg +not var => <span class="Constant">"f7 2/subop/not *(ebp+"</span> var.stack-offset <span class="Constant">")"</span> +not *var/reg => <span class="Constant">"f7 2/subop/not *"</span> reg + var/reg <span class="Special"><-</span> xor var2/reg2 => <span class="Constant">"31/xor-with %"</span> reg <span class="Constant">" "</span> reg2 <span class="Constant">"/r32"</span> var/reg <span class="Special"><-</span> xor var2 => <span class="Constant">"33/xor *(ebp+"</span> var2.stack-offset <span class="Constant">") "</span> reg <span class="Constant">"/r32"</span> var/reg <span class="Special"><-</span> xor *var2/reg2 => <span class="Constant">"33/xor *"</span> reg2 <span class="Constant">" "</span> reg <span class="Constant">"/r32"</span> diff --git a/html/rpn.mu.html b/html/rpn.mu.html index 28ba33c3..d6f10d20 100644 --- a/html/rpn.mu.html +++ b/html/rpn.mu.html @@ -183,7 +183,7 @@ if ('onhashchange' in window) { <span id="L125" class="LineNr">125 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='rpn.mu.html#L57'>int-stack</a>) <span class="Special"><-</span> copy _self <span id="L126" class="LineNr">126 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get self, top <span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array int) <span class="Special"><-</span> get self, data -<span id="L128" class="LineNr">128 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array int) <span class="Special"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L128" class="LineNr">128 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array int) <span class="Special"><-</span> <a href='120allocate.subx.html#L223'>lookup</a> *data-ah <span id="L129" class="LineNr">129 </span> <span class="PreProc">var</span> top/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy *top-addr <span id="L130" class="LineNr">130 </span> <span class="PreProc">var</span> dest-addr/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> index data, top <span id="L131" class="LineNr">131 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy _val @@ -201,7 +201,7 @@ if ('onhashchange' in window) { <span id="L143" class="LineNr">143 </span> <span class="Delimiter">}</span> <span id="L144" class="LineNr">144 </span> subtract-from *top-addr, <span class="Constant">1</span> <span id="L145" class="LineNr">145 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array int) <span class="Special"><-</span> get self, data -<span id="L146" class="LineNr">146 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array int) <span class="Special"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L146" class="LineNr">146 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array int) <span class="Special"><-</span> <a href='120allocate.subx.html#L223'>lookup</a> *data-ah <span id="L147" class="LineNr">147 </span> <span class="PreProc">var</span> top/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy *top-addr <span id="L148" class="LineNr">148 </span> <span class="PreProc">var</span> result-addr/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> index data, top <span id="L149" class="LineNr">149 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *result-addr diff --git a/html/shell/cell.mu.html b/html/shell/cell.mu.html index 1b15ee5f..5386139c 100644 --- a/html/shell/cell.mu.html +++ b/html/shell/cell.mu.html @@ -73,194 +73,195 @@ if ('onhashchange' in window) { <span id="L15" class="LineNr"> 15 </span> <span class="muComment"># type 6: keyboard</span> <span id="L16" class="LineNr"> 16 </span> keyboard-data: (handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span id="L17" class="LineNr"> 17 </span> <span class="muComment"># TODO: array, (associative) table</span> -<span id="L18" class="LineNr"> 18 </span><span class="Delimiter">}</span> -<span id="L19" class="LineNr"> 19 </span> -<span id="L20" class="LineNr"> 20 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L20'>allocate-symbol</a></span> _out: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Delimiter">{</span> -<span id="L21" class="LineNr"> 21 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out -<span id="L22" class="LineNr"> 22 </span> <a href='../120allocate.subx.html#L43'>allocate</a> out -<span id="L23" class="LineNr"> 23 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *out -<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get out-addr, <span class="PreProc">type</span> -<span id="L25" class="LineNr"> 25 </span> copy-to *<span class="PreProc">type</span>, <span class="Constant">2</span>/symbol -<span id="L26" class="LineNr"> 26 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get out-addr, text-data -<span id="L27" class="LineNr"> 27 </span> populate-stream dest-ah, <span class="Constant">0x40</span>/max-symbol-size -<span id="L28" class="LineNr"> 28 </span><span class="Delimiter">}</span> -<span id="L29" class="LineNr"> 29 </span> -<span id="L30" class="LineNr"> 30 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L30'>initialize-symbol</a></span> _out: (addr handle <a href='cell.mu.html#L1'>cell</a>), val: (addr array byte) <span class="Delimiter">{</span> -<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out -<span id="L32" class="LineNr"> 32 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *out -<span id="L33" class="LineNr"> 33 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get out-addr, text-data -<span id="L34" class="LineNr"> 34 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *dest-ah -<span id="L35" class="LineNr"> 35 </span> <a href='../108write.subx.html#L11'>write</a> dest, val -<span id="L36" class="LineNr"> 36 </span><span class="Delimiter">}</span> -<span id="L37" class="LineNr"> 37 </span> -<span id="L38" class="LineNr"> 38 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L38'>new-symbol</a></span> out: (addr handle <a href='cell.mu.html#L1'>cell</a>), val: (addr array byte) <span class="Delimiter">{</span> -<span id="L39" class="LineNr"> 39 </span> <a href='cell.mu.html#L20'>allocate-symbol</a> out -<span id="L40" class="LineNr"> 40 </span> <a href='cell.mu.html#L30'>initialize-symbol</a> out, val -<span id="L41" class="LineNr"> 41 </span><span class="Delimiter">}</span> -<span id="L42" class="LineNr"> 42 </span> -<span id="L43" class="LineNr"> 43 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L43'>symbol-equal?</a></span> _in: (addr <a href='cell.mu.html#L1'>cell</a>), name: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L44" class="LineNr"> 44 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in -<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> in-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get in, <span class="PreProc">type</span> -<span id="L46" class="LineNr"> 46 </span> compare *in-type, <span class="Constant">2</span>/symbol -<span id="L47" class="LineNr"> 47 </span> <span class="Delimiter">{</span> -<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">break-if-=</span> -<span id="L49" class="LineNr"> 49 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L50" class="LineNr"> 50 </span> <span class="Delimiter">}</span> -<span id="L51" class="LineNr"> 51 </span> <span class="PreProc">var</span> in-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get in, text-data -<span id="L52" class="LineNr"> 52 </span> <span class="PreProc">var</span> in-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *in-data-ah -<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> in-data, name -<span id="L54" class="LineNr"> 54 </span> <span class="PreProc">return</span> result -<span id="L55" class="LineNr"> 55 </span><span class="Delimiter">}</span> -<span id="L56" class="LineNr"> 56 </span> -<span id="L57" class="LineNr"> 57 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L57'>allocate-stream</a></span> _out: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Delimiter">{</span> -<span id="L58" class="LineNr"> 58 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out -<span id="L59" class="LineNr"> 59 </span> <a href='../120allocate.subx.html#L43'>allocate</a> out -<span id="L60" class="LineNr"> 60 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *out -<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get out-addr, <span class="PreProc">type</span> -<span id="L62" class="LineNr"> 62 </span> copy-to *<span class="PreProc">type</span>, <span class="Constant">3</span>/stream -<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get out-addr, text-data -<span id="L64" class="LineNr"> 64 </span> populate-stream dest-ah, <span class="Constant">0x40</span>/max-stream-size -<span id="L65" class="LineNr"> 65 </span><span class="Delimiter">}</span> -<span id="L66" class="LineNr"> 66 </span> -<span id="L67" class="LineNr"> 67 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L67'>allocate-number</a></span> _out: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Delimiter">{</span> -<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out -<span id="L69" class="LineNr"> 69 </span> <a href='../120allocate.subx.html#L43'>allocate</a> out -<span id="L70" class="LineNr"> 70 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *out -<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get out-addr, <span class="PreProc">type</span> -<span id="L72" class="LineNr"> 72 </span> copy-to *<span class="PreProc">type</span>, <span class="Constant">1</span>/number -<span id="L73" class="LineNr"> 73 </span><span class="Delimiter">}</span> -<span id="L74" class="LineNr"> 74 </span> -<span id="L75" class="LineNr"> 75 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L75'>initialize-integer</a></span> _out: (addr handle <a href='cell.mu.html#L1'>cell</a>), n: int <span class="Delimiter">{</span> -<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out -<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *out -<span id="L78" class="LineNr"> 78 </span> <span class="PreProc">var</span> dest-addr/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> get out-addr, number-data -<span id="L79" class="LineNr"> 79 </span> <span class="PreProc">var</span> src/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert n -<span id="L80" class="LineNr"> 80 </span> copy-to *dest-addr, src -<span id="L81" class="LineNr"> 81 </span><span class="Delimiter">}</span> -<span id="L82" class="LineNr"> 82 </span> -<span id="L83" class="LineNr"> 83 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L83'>new-integer</a></span> out: (addr handle <a href='cell.mu.html#L1'>cell</a>), n: int <span class="Delimiter">{</span> -<span id="L84" class="LineNr"> 84 </span> <a href='cell.mu.html#L67'>allocate-number</a> out -<span id="L85" class="LineNr"> 85 </span> <a href='cell.mu.html#L75'>initialize-integer</a> out, n -<span id="L86" class="LineNr"> 86 </span><span class="Delimiter">}</span> -<span id="L87" class="LineNr"> 87 </span> -<span id="L88" class="LineNr"> 88 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L88'>initialize-float</a></span> _out: (addr handle <a href='cell.mu.html#L1'>cell</a>), n: float <span class="Delimiter">{</span> -<span id="L89" class="LineNr"> 89 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out -<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *out -<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> get out-addr, number-data -<span id="L92" class="LineNr"> 92 </span> <span class="PreProc">var</span> src/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy n -<span id="L93" class="LineNr"> 93 </span> copy-to *dest-ah, src -<span id="L94" class="LineNr"> 94 </span><span class="Delimiter">}</span> -<span id="L95" class="LineNr"> 95 </span> -<span id="L96" class="LineNr"> 96 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L96'>new-float</a></span> out: (addr handle <a href='cell.mu.html#L1'>cell</a>), n: float <span class="Delimiter">{</span> -<span id="L97" class="LineNr"> 97 </span> <a href='cell.mu.html#L67'>allocate-number</a> out -<span id="L98" class="LineNr"> 98 </span> <a href='cell.mu.html#L88'>initialize-float</a> out, n -<span id="L99" class="LineNr"> 99 </span><span class="Delimiter">}</span> -<span id="L100" class="LineNr">100 </span> -<span id="L101" class="LineNr">101 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L101'>allocate-pair</a></span> out: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Delimiter">{</span> -<span id="L102" class="LineNr">102 </span> <a href='../120allocate.subx.html#L43'>allocate</a> out -<span id="L103" class="LineNr">103 </span> <span class="muComment"># new cells have type pair by default</span> -<span id="L104" class="LineNr">104 </span><span class="Delimiter">}</span> -<span id="L105" class="LineNr">105 </span> -<span id="L106" class="LineNr">106 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L106'>initialize-pair</a></span> _out: (addr handle <a href='cell.mu.html#L1'>cell</a>), left: (handle <a href='cell.mu.html#L1'>cell</a>), right: (handle <a href='cell.mu.html#L1'>cell</a>) <span class="Delimiter">{</span> -<span id="L107" class="LineNr">107 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out -<span id="L108" class="LineNr">108 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *out -<span id="L109" class="LineNr">109 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get out-addr, left -<span id="L110" class="LineNr">110 </span> <a href='../120allocate.subx.html#L455'>copy-handle</a> left, dest-ah -<span id="L111" class="LineNr">111 </span> dest-ah <span class="Special"><-</span> get out-addr, right -<span id="L112" class="LineNr">112 </span> <a href='../120allocate.subx.html#L455'>copy-handle</a> right, dest-ah -<span id="L113" class="LineNr">113 </span><span class="Delimiter">}</span> -<span id="L114" class="LineNr">114 </span> -<span id="L115" class="LineNr">115 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L115'>new-pair</a></span> out: (addr handle <a href='cell.mu.html#L1'>cell</a>), left: (handle <a href='cell.mu.html#L1'>cell</a>), right: (handle <a href='cell.mu.html#L1'>cell</a>) <span class="Delimiter">{</span> -<span id="L116" class="LineNr">116 </span> <a href='cell.mu.html#L101'>allocate-pair</a> out -<span id="L117" class="LineNr">117 </span> <a href='cell.mu.html#L106'>initialize-pair</a> out, left, right -<span id="L118" class="LineNr">118 </span><span class="Delimiter">}</span> -<span id="L119" class="LineNr">119 </span> -<span id="L120" class="LineNr">120 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L120'>nil</a></span> out: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Delimiter">{</span> -<span id="L121" class="LineNr">121 </span> <a href='cell.mu.html#L101'>allocate-pair</a> out -<span id="L122" class="LineNr">122 </span><span class="Delimiter">}</span> -<span id="L123" class="LineNr">123 </span> -<span id="L124" class="LineNr">124 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L124'>allocate-primitive-function</a></span> _out: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Delimiter">{</span> -<span id="L125" class="LineNr">125 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out -<span id="L126" class="LineNr">126 </span> <a href='../120allocate.subx.html#L43'>allocate</a> out -<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *out -<span id="L128" class="LineNr">128 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get out-addr, <span class="PreProc">type</span> -<span id="L129" class="LineNr">129 </span> copy-to *<span class="PreProc">type</span>, <span class="Constant">4</span>/primitive-function -<span id="L130" class="LineNr">130 </span><span class="Delimiter">}</span> -<span id="L131" class="LineNr">131 </span> -<span id="L132" class="LineNr">132 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L132'>initialize-primitive-function</a></span> _out: (addr handle <a href='cell.mu.html#L1'>cell</a>), n: int <span class="Delimiter">{</span> -<span id="L133" class="LineNr">133 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out -<span id="L134" class="LineNr">134 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *out -<span id="L135" class="LineNr">135 </span> <span class="PreProc">var</span> dest-addr/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get out-addr, index-data -<span id="L136" class="LineNr">136 </span> <span class="PreProc">var</span> src/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy n -<span id="L137" class="LineNr">137 </span> copy-to *dest-addr, src -<span id="L138" class="LineNr">138 </span><span class="Delimiter">}</span> -<span id="L139" class="LineNr">139 </span> -<span id="L140" class="LineNr">140 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L140'>new-primitive-function</a></span> out: (addr handle <a href='cell.mu.html#L1'>cell</a>), n: int <span class="Delimiter">{</span> -<span id="L141" class="LineNr">141 </span> <a href='cell.mu.html#L124'>allocate-primitive-function</a> out -<span id="L142" class="LineNr">142 </span> <a href='cell.mu.html#L132'>initialize-primitive-function</a> out, n -<span id="L143" class="LineNr">143 </span><span class="Delimiter">}</span> -<span id="L144" class="LineNr">144 </span> -<span id="L145" class="LineNr">145 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L145'>allocate-screen</a></span> _out: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Delimiter">{</span> -<span id="L146" class="LineNr">146 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out -<span id="L147" class="LineNr">147 </span> <a href='../120allocate.subx.html#L43'>allocate</a> out -<span id="L148" class="LineNr">148 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *out -<span id="L149" class="LineNr">149 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get out-addr, <span class="PreProc">type</span> -<span id="L150" class="LineNr">150 </span> copy-to *<span class="PreProc">type</span>, <span class="Constant">5</span>/screen -<span id="L151" class="LineNr">151 </span><span class="Delimiter">}</span> -<span id="L152" class="LineNr">152 </span> -<span id="L153" class="LineNr">153 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L153'>new-fake-screen</a></span> _out: (addr handle <a href='cell.mu.html#L1'>cell</a>), width: int, height: int, pixel-graphics?: boolean <span class="Delimiter">{</span> -<span id="L154" class="LineNr">154 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out -<span id="L155" class="LineNr">155 </span> <a href='cell.mu.html#L145'>allocate-screen</a> out -<span id="L156" class="LineNr">156 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *out -<span id="L157" class="LineNr">157 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">eax</span>: (addr handle <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> get out-addr, screen-data -<span id="L158" class="LineNr">158 </span> <a href='../120allocate.subx.html#L43'>allocate</a> dest-ah -<span id="L159" class="LineNr">159 </span> <span class="PreProc">var</span> dest-addr/<span class="Constant">eax</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *dest-ah -<span id="L160" class="LineNr">160 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> dest-addr, width, height, pixel-graphics? -<span id="L161" class="LineNr">161 </span><span class="Delimiter">}</span> -<span id="L162" class="LineNr">162 </span> -<span id="L163" class="LineNr">163 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L163'>clear-screen-cell</a></span> _self-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Delimiter">{</span> -<span id="L164" class="LineNr">164 </span> <span class="PreProc">var</span> self-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _self-ah -<span id="L165" class="LineNr">165 </span> <span class="PreProc">var</span> self/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *self-ah -<span id="L166" class="LineNr">166 </span> compare self, <span class="Constant">0</span> -<span id="L167" class="LineNr">167 </span> <span class="Delimiter">{</span> -<span id="L168" class="LineNr">168 </span> <span class="PreProc">break-if-!=</span> -<span id="L169" class="LineNr">169 </span> <span class="PreProc">return</span> -<span id="L170" class="LineNr">170 </span> <span class="Delimiter">}</span> -<span id="L171" class="LineNr">171 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> get self, screen-data -<span id="L172" class="LineNr">172 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">eax</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *screen-ah -<span id="L173" class="LineNr">173 </span> <a href='../500fake-screen.mu.html#L230'>clear-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L174" class="LineNr">174 </span><span class="Delimiter">}</span> -<span id="L175" class="LineNr">175 </span> -<span id="L176" class="LineNr">176 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L176'>allocate-keyboard</a></span> _out: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Delimiter">{</span> -<span id="L177" class="LineNr">177 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out -<span id="L178" class="LineNr">178 </span> <a href='../120allocate.subx.html#L43'>allocate</a> out -<span id="L179" class="LineNr">179 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *out -<span id="L180" class="LineNr">180 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get out-addr, <span class="PreProc">type</span> -<span id="L181" class="LineNr">181 </span> copy-to *<span class="PreProc">type</span>, <span class="Constant">6</span>/keyboard -<span id="L182" class="LineNr">182 </span><span class="Delimiter">}</span> -<span id="L183" class="LineNr">183 </span> -<span id="L184" class="LineNr">184 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L184'>new-fake-keyboard</a></span> _out: (addr handle <a href='cell.mu.html#L1'>cell</a>), capacity: int <span class="Delimiter">{</span> -<span id="L185" class="LineNr">185 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out -<span id="L186" class="LineNr">186 </span> <a href='cell.mu.html#L176'>allocate-keyboard</a> out -<span id="L187" class="LineNr">187 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *out -<span id="L188" class="LineNr">188 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get out-addr, keyboard-data -<span id="L189" class="LineNr">189 </span> <a href='../120allocate.subx.html#L43'>allocate</a> dest-ah -<span id="L190" class="LineNr">190 </span> <span class="PreProc">var</span> dest-addr/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *dest-ah -<span id="L191" class="LineNr">191 </span> <a href='gap-buffer.mu.html#L11'>initialize-gap-buffer</a> dest-addr, capacity -<span id="L192" class="LineNr">192 </span><span class="Delimiter">}</span> -<span id="L193" class="LineNr">193 </span> -<span id="L194" class="LineNr">194 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L194'>rewind-keyboard-cell</a></span> _self-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Delimiter">{</span> -<span id="L195" class="LineNr">195 </span> <span class="PreProc">var</span> self-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _self-ah -<span id="L196" class="LineNr">196 </span> <span class="PreProc">var</span> self/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *self-ah -<span id="L197" class="LineNr">197 </span> compare self, <span class="Constant">0</span> -<span id="L198" class="LineNr">198 </span> <span class="Delimiter">{</span> -<span id="L199" class="LineNr">199 </span> <span class="PreProc">break-if-!=</span> -<span id="L200" class="LineNr">200 </span> <span class="PreProc">return</span> -<span id="L201" class="LineNr">201 </span> <span class="Delimiter">}</span> -<span id="L202" class="LineNr">202 </span> <span class="PreProc">var</span> keyboard-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get self, keyboard-data -<span id="L203" class="LineNr">203 </span> <span class="PreProc">var</span> keyboard/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *keyboard-ah -<span id="L204" class="LineNr">204 </span> <a href='gap-buffer.mu.html#L749'>rewind-gap-buffer</a> keyboard -<span id="L205" class="LineNr">205 </span><span class="Delimiter">}</span> +<span id="L18" class="LineNr"> 18 </span> <span class="muComment"># if you add types here, don't forget to update cell-isomorphic?</span> +<span id="L19" class="LineNr"> 19 </span><span class="Delimiter">}</span> +<span id="L20" class="LineNr"> 20 </span> +<span id="L21" class="LineNr"> 21 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L21'>allocate-symbol</a></span> _out: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Delimiter">{</span> +<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out +<span id="L23" class="LineNr"> 23 </span> <a href='../120allocate.subx.html#L43'>allocate</a> out +<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *out +<span id="L25" class="LineNr"> 25 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get out-addr, <span class="PreProc">type</span> +<span id="L26" class="LineNr"> 26 </span> copy-to *<span class="PreProc">type</span>, <span class="Constant">2</span>/symbol +<span id="L27" class="LineNr"> 27 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get out-addr, text-data +<span id="L28" class="LineNr"> 28 </span> populate-stream dest-ah, <span class="Constant">0x40</span>/max-symbol-size +<span id="L29" class="LineNr"> 29 </span><span class="Delimiter">}</span> +<span id="L30" class="LineNr"> 30 </span> +<span id="L31" class="LineNr"> 31 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L31'>initialize-symbol</a></span> _out: (addr handle <a href='cell.mu.html#L1'>cell</a>), val: (addr array byte) <span class="Delimiter">{</span> +<span id="L32" class="LineNr"> 32 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out +<span id="L33" class="LineNr"> 33 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *out +<span id="L34" class="LineNr"> 34 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get out-addr, text-data +<span id="L35" class="LineNr"> 35 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *dest-ah +<span id="L36" class="LineNr"> 36 </span> <a href='../108write.subx.html#L11'>write</a> dest, val +<span id="L37" class="LineNr"> 37 </span><span class="Delimiter">}</span> +<span id="L38" class="LineNr"> 38 </span> +<span id="L39" class="LineNr"> 39 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L39'>new-symbol</a></span> out: (addr handle <a href='cell.mu.html#L1'>cell</a>), val: (addr array byte) <span class="Delimiter">{</span> +<span id="L40" class="LineNr"> 40 </span> <a href='cell.mu.html#L21'>allocate-symbol</a> out +<span id="L41" class="LineNr"> 41 </span> <a href='cell.mu.html#L31'>initialize-symbol</a> out, val +<span id="L42" class="LineNr"> 42 </span><span class="Delimiter">}</span> +<span id="L43" class="LineNr"> 43 </span> +<span id="L44" class="LineNr"> 44 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L44'>symbol-equal?</a></span> _in: (addr <a href='cell.mu.html#L1'>cell</a>), name: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in +<span id="L46" class="LineNr"> 46 </span> <span class="PreProc">var</span> in-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get in, <span class="PreProc">type</span> +<span id="L47" class="LineNr"> 47 </span> compare *in-type, <span class="Constant">2</span>/symbol +<span id="L48" class="LineNr"> 48 </span> <span class="Delimiter">{</span> +<span id="L49" class="LineNr"> 49 </span> <span class="PreProc">break-if-=</span> +<span id="L50" class="LineNr"> 50 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L51" class="LineNr"> 51 </span> <span class="Delimiter">}</span> +<span id="L52" class="LineNr"> 52 </span> <span class="PreProc">var</span> in-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get in, text-data +<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> in-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *in-data-ah +<span id="L54" class="LineNr"> 54 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> in-data, name +<span id="L55" class="LineNr"> 55 </span> <span class="PreProc">return</span> result +<span id="L56" class="LineNr"> 56 </span><span class="Delimiter">}</span> +<span id="L57" class="LineNr"> 57 </span> +<span id="L58" class="LineNr"> 58 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L58'>allocate-stream</a></span> _out: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Delimiter">{</span> +<span id="L59" class="LineNr"> 59 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out +<span id="L60" class="LineNr"> 60 </span> <a href='../120allocate.subx.html#L43'>allocate</a> out +<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *out +<span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get out-addr, <span class="PreProc">type</span> +<span id="L63" class="LineNr"> 63 </span> copy-to *<span class="PreProc">type</span>, <span class="Constant">3</span>/stream +<span id="L64" class="LineNr"> 64 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get out-addr, text-data +<span id="L65" class="LineNr"> 65 </span> populate-stream dest-ah, <span class="Constant">0x40</span>/max-stream-size +<span id="L66" class="LineNr"> 66 </span><span class="Delimiter">}</span> +<span id="L67" class="LineNr"> 67 </span> +<span id="L68" class="LineNr"> 68 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L68'>allocate-number</a></span> _out: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Delimiter">{</span> +<span id="L69" class="LineNr"> 69 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out +<span id="L70" class="LineNr"> 70 </span> <a href='../120allocate.subx.html#L43'>allocate</a> out +<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *out +<span id="L72" class="LineNr"> 72 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get out-addr, <span class="PreProc">type</span> +<span id="L73" class="LineNr"> 73 </span> copy-to *<span class="PreProc">type</span>, <span class="Constant">1</span>/number +<span id="L74" class="LineNr"> 74 </span><span class="Delimiter">}</span> +<span id="L75" class="LineNr"> 75 </span> +<span id="L76" class="LineNr"> 76 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L76'>initialize-integer</a></span> _out: (addr handle <a href='cell.mu.html#L1'>cell</a>), n: int <span class="Delimiter">{</span> +<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out +<span id="L78" class="LineNr"> 78 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *out +<span id="L79" class="LineNr"> 79 </span> <span class="PreProc">var</span> dest-addr/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> get out-addr, number-data +<span id="L80" class="LineNr"> 80 </span> <span class="PreProc">var</span> src/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert n +<span id="L81" class="LineNr"> 81 </span> copy-to *dest-addr, src +<span id="L82" class="LineNr"> 82 </span><span class="Delimiter">}</span> +<span id="L83" class="LineNr"> 83 </span> +<span id="L84" class="LineNr"> 84 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L84'>new-integer</a></span> out: (addr handle <a href='cell.mu.html#L1'>cell</a>), n: int <span class="Delimiter">{</span> +<span id="L85" class="LineNr"> 85 </span> <a href='cell.mu.html#L68'>allocate-number</a> out +<span id="L86" class="LineNr"> 86 </span> <a href='cell.mu.html#L76'>initialize-integer</a> out, n +<span id="L87" class="LineNr"> 87 </span><span class="Delimiter">}</span> +<span id="L88" class="LineNr"> 88 </span> +<span id="L89" class="LineNr"> 89 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L89'>initialize-float</a></span> _out: (addr handle <a href='cell.mu.html#L1'>cell</a>), n: float <span class="Delimiter">{</span> +<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out +<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *out +<span id="L92" class="LineNr"> 92 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> get out-addr, number-data +<span id="L93" class="LineNr"> 93 </span> <span class="PreProc">var</span> src/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy n +<span id="L94" class="LineNr"> 94 </span> copy-to *dest-ah, src +<span id="L95" class="LineNr"> 95 </span><span class="Delimiter">}</span> +<span id="L96" class="LineNr"> 96 </span> +<span id="L97" class="LineNr"> 97 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L97'>new-float</a></span> out: (addr handle <a href='cell.mu.html#L1'>cell</a>), n: float <span class="Delimiter">{</span> +<span id="L98" class="LineNr"> 98 </span> <a href='cell.mu.html#L68'>allocate-number</a> out +<span id="L99" class="LineNr"> 99 </span> <a href='cell.mu.html#L89'>initialize-float</a> out, n +<span id="L100" class="LineNr">100 </span><span class="Delimiter">}</span> +<span id="L101" class="LineNr">101 </span> +<span id="L102" class="LineNr">102 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L102'>allocate-pair</a></span> out: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Delimiter">{</span> +<span id="L103" class="LineNr">103 </span> <a href='../120allocate.subx.html#L43'>allocate</a> out +<span id="L104" class="LineNr">104 </span> <span class="muComment"># new cells have type pair by default</span> +<span id="L105" class="LineNr">105 </span><span class="Delimiter">}</span> +<span id="L106" class="LineNr">106 </span> +<span id="L107" class="LineNr">107 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L107'>initialize-pair</a></span> _out: (addr handle <a href='cell.mu.html#L1'>cell</a>), left: (handle <a href='cell.mu.html#L1'>cell</a>), right: (handle <a href='cell.mu.html#L1'>cell</a>) <span class="Delimiter">{</span> +<span id="L108" class="LineNr">108 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out +<span id="L109" class="LineNr">109 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *out +<span id="L110" class="LineNr">110 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get out-addr, left +<span id="L111" class="LineNr">111 </span> <a href='../120allocate.subx.html#L479'>copy-handle</a> left, dest-ah +<span id="L112" class="LineNr">112 </span> dest-ah <span class="Special"><-</span> get out-addr, right +<span id="L113" class="LineNr">113 </span> <a href='../120allocate.subx.html#L479'>copy-handle</a> right, dest-ah +<span id="L114" class="LineNr">114 </span><span class="Delimiter">}</span> +<span id="L115" class="LineNr">115 </span> +<span id="L116" class="LineNr">116 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L116'>new-pair</a></span> out: (addr handle <a href='cell.mu.html#L1'>cell</a>), left: (handle <a href='cell.mu.html#L1'>cell</a>), right: (handle <a href='cell.mu.html#L1'>cell</a>) <span class="Delimiter">{</span> +<span id="L117" class="LineNr">117 </span> <a href='cell.mu.html#L102'>allocate-pair</a> out +<span id="L118" class="LineNr">118 </span> <a href='cell.mu.html#L107'>initialize-pair</a> out, left, right +<span id="L119" class="LineNr">119 </span><span class="Delimiter">}</span> +<span id="L120" class="LineNr">120 </span> +<span id="L121" class="LineNr">121 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L121'>nil</a></span> out: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Delimiter">{</span> +<span id="L122" class="LineNr">122 </span> <a href='cell.mu.html#L102'>allocate-pair</a> out +<span id="L123" class="LineNr">123 </span><span class="Delimiter">}</span> +<span id="L124" class="LineNr">124 </span> +<span id="L125" class="LineNr">125 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L125'>allocate-primitive-function</a></span> _out: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Delimiter">{</span> +<span id="L126" class="LineNr">126 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out +<span id="L127" class="LineNr">127 </span> <a href='../120allocate.subx.html#L43'>allocate</a> out +<span id="L128" class="LineNr">128 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *out +<span id="L129" class="LineNr">129 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get out-addr, <span class="PreProc">type</span> +<span id="L130" class="LineNr">130 </span> copy-to *<span class="PreProc">type</span>, <span class="Constant">4</span>/primitive-function +<span id="L131" class="LineNr">131 </span><span class="Delimiter">}</span> +<span id="L132" class="LineNr">132 </span> +<span id="L133" class="LineNr">133 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L133'>initialize-primitive-function</a></span> _out: (addr handle <a href='cell.mu.html#L1'>cell</a>), n: int <span class="Delimiter">{</span> +<span id="L134" class="LineNr">134 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out +<span id="L135" class="LineNr">135 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *out +<span id="L136" class="LineNr">136 </span> <span class="PreProc">var</span> dest-addr/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get out-addr, index-data +<span id="L137" class="LineNr">137 </span> <span class="PreProc">var</span> src/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy n +<span id="L138" class="LineNr">138 </span> copy-to *dest-addr, src +<span id="L139" class="LineNr">139 </span><span class="Delimiter">}</span> +<span id="L140" class="LineNr">140 </span> +<span id="L141" class="LineNr">141 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L141'>new-primitive-function</a></span> out: (addr handle <a href='cell.mu.html#L1'>cell</a>), n: int <span class="Delimiter">{</span> +<span id="L142" class="LineNr">142 </span> <a href='cell.mu.html#L125'>allocate-primitive-function</a> out +<span id="L143" class="LineNr">143 </span> <a href='cell.mu.html#L133'>initialize-primitive-function</a> out, n +<span id="L144" class="LineNr">144 </span><span class="Delimiter">}</span> +<span id="L145" class="LineNr">145 </span> +<span id="L146" class="LineNr">146 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L146'>allocate-screen</a></span> _out: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Delimiter">{</span> +<span id="L147" class="LineNr">147 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out +<span id="L148" class="LineNr">148 </span> <a href='../120allocate.subx.html#L43'>allocate</a> out +<span id="L149" class="LineNr">149 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *out +<span id="L150" class="LineNr">150 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get out-addr, <span class="PreProc">type</span> +<span id="L151" class="LineNr">151 </span> copy-to *<span class="PreProc">type</span>, <span class="Constant">5</span>/screen +<span id="L152" class="LineNr">152 </span><span class="Delimiter">}</span> +<span id="L153" class="LineNr">153 </span> +<span id="L154" class="LineNr">154 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L154'>new-fake-screen</a></span> _out: (addr handle <a href='cell.mu.html#L1'>cell</a>), width: int, height: int, pixel-graphics?: boolean <span class="Delimiter">{</span> +<span id="L155" class="LineNr">155 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out +<span id="L156" class="LineNr">156 </span> <a href='cell.mu.html#L146'>allocate-screen</a> out +<span id="L157" class="LineNr">157 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *out +<span id="L158" class="LineNr">158 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">eax</span>: (addr handle <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> get out-addr, screen-data +<span id="L159" class="LineNr">159 </span> <a href='../120allocate.subx.html#L43'>allocate</a> dest-ah +<span id="L160" class="LineNr">160 </span> <span class="PreProc">var</span> dest-addr/<span class="Constant">eax</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *dest-ah +<span id="L161" class="LineNr">161 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> dest-addr, width, height, pixel-graphics? +<span id="L162" class="LineNr">162 </span><span class="Delimiter">}</span> +<span id="L163" class="LineNr">163 </span> +<span id="L164" class="LineNr">164 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L164'>clear-screen-cell</a></span> _self-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Delimiter">{</span> +<span id="L165" class="LineNr">165 </span> <span class="PreProc">var</span> self-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _self-ah +<span id="L166" class="LineNr">166 </span> <span class="PreProc">var</span> self/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *self-ah +<span id="L167" class="LineNr">167 </span> compare self, <span class="Constant">0</span> +<span id="L168" class="LineNr">168 </span> <span class="Delimiter">{</span> +<span id="L169" class="LineNr">169 </span> <span class="PreProc">break-if-!=</span> +<span id="L170" class="LineNr">170 </span> <span class="PreProc">return</span> +<span id="L171" class="LineNr">171 </span> <span class="Delimiter">}</span> +<span id="L172" class="LineNr">172 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> get self, screen-data +<span id="L173" class="LineNr">173 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">eax</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *screen-ah +<span id="L174" class="LineNr">174 </span> <a href='../500fake-screen.mu.html#L230'>clear-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L175" class="LineNr">175 </span><span class="Delimiter">}</span> +<span id="L176" class="LineNr">176 </span> +<span id="L177" class="LineNr">177 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L177'>allocate-keyboard</a></span> _out: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Delimiter">{</span> +<span id="L178" class="LineNr">178 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out +<span id="L179" class="LineNr">179 </span> <a href='../120allocate.subx.html#L43'>allocate</a> out +<span id="L180" class="LineNr">180 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *out +<span id="L181" class="LineNr">181 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get out-addr, <span class="PreProc">type</span> +<span id="L182" class="LineNr">182 </span> copy-to *<span class="PreProc">type</span>, <span class="Constant">6</span>/keyboard +<span id="L183" class="LineNr">183 </span><span class="Delimiter">}</span> +<span id="L184" class="LineNr">184 </span> +<span id="L185" class="LineNr">185 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L185'>new-fake-keyboard</a></span> _out: (addr handle <a href='cell.mu.html#L1'>cell</a>), capacity: int <span class="Delimiter">{</span> +<span id="L186" class="LineNr">186 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out +<span id="L187" class="LineNr">187 </span> <a href='cell.mu.html#L177'>allocate-keyboard</a> out +<span id="L188" class="LineNr">188 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *out +<span id="L189" class="LineNr">189 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get out-addr, keyboard-data +<span id="L190" class="LineNr">190 </span> <a href='../120allocate.subx.html#L43'>allocate</a> dest-ah +<span id="L191" class="LineNr">191 </span> <span class="PreProc">var</span> dest-addr/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *dest-ah +<span id="L192" class="LineNr">192 </span> <a href='gap-buffer.mu.html#L11'>initialize-gap-buffer</a> dest-addr, capacity +<span id="L193" class="LineNr">193 </span><span class="Delimiter">}</span> +<span id="L194" class="LineNr">194 </span> +<span id="L195" class="LineNr">195 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L195'>rewind-keyboard-cell</a></span> _self-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Delimiter">{</span> +<span id="L196" class="LineNr">196 </span> <span class="PreProc">var</span> self-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _self-ah +<span id="L197" class="LineNr">197 </span> <span class="PreProc">var</span> self/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *self-ah +<span id="L198" class="LineNr">198 </span> compare self, <span class="Constant">0</span> +<span id="L199" class="LineNr">199 </span> <span class="Delimiter">{</span> +<span id="L200" class="LineNr">200 </span> <span class="PreProc">break-if-!=</span> +<span id="L201" class="LineNr">201 </span> <span class="PreProc">return</span> +<span id="L202" class="LineNr">202 </span> <span class="Delimiter">}</span> +<span id="L203" class="LineNr">203 </span> <span class="PreProc">var</span> keyboard-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get self, keyboard-data +<span id="L204" class="LineNr">204 </span> <span class="PreProc">var</span> keyboard/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *keyboard-ah +<span id="L205" class="LineNr">205 </span> <a href='gap-buffer.mu.html#L749'>rewind-gap-buffer</a> keyboard +<span id="L206" class="LineNr">206 </span><span class="Delimiter">}</span> </pre> </body> </html> diff --git a/html/shell/evaluate.mu.html b/html/shell/evaluate.mu.html index f44b87c9..4ea7e6a2 100644 --- a/html/shell/evaluate.mu.html +++ b/html/shell/evaluate.mu.html @@ -60,17 +60,17 @@ if ('onhashchange' in window) { <a href='https://github.com/akkartik/mu/blob/main/shell/evaluate.mu'>https://github.com/akkartik/mu/blob/main/shell/evaluate.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># env is an alist of ((sym . val) (sym . val) ...)</span> -<span id="L2" class="LineNr"> 2 </span><span class="muComment"># we never modify `in` or `env`</span> -<span id="L3" class="LineNr"> 3 </span><span class="muComment"># ignore 'screen-cell' on a first reading; it's a hack for sandboxes</span> +<span id="L2" class="LineNr"> 2 </span><span class="muComment"># we never modify `_in-ah` or `env`</span> +<span id="L3" class="LineNr"> 3 </span><span class="muComment"># ignore args past 'trace' on a first reading; they're for the environment not the language</span> <span id="L4" class="LineNr"> 4 </span><span class="muComment"># 'call-number' is just for showing intermediate progress; this is a _slow_ interpreter</span> -<span id="L5" class="LineNr"> 5 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='evaluate.mu.html#L5'>evaluate</a></span> _in: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), env-h: (handle <a href='cell.mu.html#L1'>cell</a>), globals: (addr <a href='global.mu.html#L7'>global-table</a>), trace: (addr trace), <a href='../500fake-screen.mu.html#L25'>screen-cell</a>: (addr handle <a href='cell.mu.html#L1'>cell</a>), keyboard-cell: (addr handle <a href='cell.mu.html#L1'>cell</a>), call-number: int <span class="Delimiter">{</span> +<span id="L5" class="LineNr"> 5 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='evaluate.mu.html#L5'>evaluate</a></span> _in-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), _out-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), env-h: (handle <a href='cell.mu.html#L1'>cell</a>), globals: (addr <a href='global.mu.html#L7'>global-table</a>), trace: (addr trace), <a href='../500fake-screen.mu.html#L25'>screen-cell</a>: (addr handle <a href='cell.mu.html#L1'>cell</a>), keyboard-cell: (addr handle <a href='cell.mu.html#L1'>cell</a>), call-number: int <span class="Delimiter">{</span> <span id="L6" class="LineNr"> 6 </span> <span class="muComment"># stack overflow? # disable when enabling Really-debug-print</span> <span id="L7" class="LineNr"> 7 </span> <a href='../315stack-debug.subx.html#L5'>check-stack</a> <span id="L8" class="LineNr"> 8 </span> <span class="Delimiter">{</span> <span id="L9" class="LineNr"> 9 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L25'>screen-cell</a>/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy <a href='../500fake-screen.mu.html#L25'>screen-cell</a> <span id="L10" class="LineNr"> 10 </span> compare <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, <span class="Constant">0</span> <span id="L11" class="LineNr"> 11 </span> <span class="PreProc">break-if-=</span> -<span id="L12" class="LineNr"> 12 </span> <span class="PreProc">var</span> screen-cell-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *screen-cell +<span id="L12" class="LineNr"> 12 </span> <span class="PreProc">var</span> screen-cell-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *screen-cell <span id="L13" class="LineNr"> 13 </span> compare screen-cell-addr, <span class="Constant">0</span> <span id="L14" class="LineNr"> 14 </span> <span class="PreProc">break-if-=</span> <span id="L15" class="LineNr"> 15 </span> <span class="muComment"># if screen-cell exists, we're probably not in a test</span> @@ -85,7 +85,7 @@ if ('onhashchange' in window) { <span id="L24" class="LineNr"> 24 </span> <span class="PreProc">break-if-=</span> <span id="L25" class="LineNr"> 25 </span> <span class="PreProc">return</span> <span id="L26" class="LineNr"> 26 </span> <span class="Delimiter">}</span> -<span id="L27" class="LineNr"> 27 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in +<span id="L27" class="LineNr"> 27 </span> <span class="PreProc">var</span> in-ah/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in-ah <span id="L28" class="LineNr"> 28 </span> <span class="muComment"># show intermediate progress on screen if necessary</span> <span id="L29" class="LineNr"> 29 </span> <span class="Delimiter">{</span> <span id="L30" class="LineNr"> 30 </span> compare <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, <span class="Constant">0</span> @@ -95,16 +95,16 @@ if ('onhashchange' in window) { <span id="L34" class="LineNr"> 34 </span> compare tmp, <span class="Constant">0</span> <span id="L35" class="LineNr"> 35 </span> <span class="PreProc">break-if-!=</span> <span id="L36" class="LineNr"> 36 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L25'>screen-cell</a>/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy <a href='../500fake-screen.mu.html#L25'>screen-cell</a> -<span id="L37" class="LineNr"> 37 </span> <span class="PreProc">var</span> screen-cell-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *screen-cell +<span id="L37" class="LineNr"> 37 </span> <span class="PreProc">var</span> screen-cell-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *screen-cell <span id="L38" class="LineNr"> 38 </span> compare screen-cell-addr, <span class="Constant">0</span> <span id="L39" class="LineNr"> 39 </span> <span class="PreProc">break-if-=</span> <span id="L40" class="LineNr"> 40 </span> <span class="PreProc">var</span> screen-obj-ah/<span class="Constant">eax</span>: (addr handle <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> get screen-cell-addr, screen-data -<span id="L41" class="LineNr"> 41 </span> <span class="PreProc">var</span> screen-obj/<span class="Constant">eax</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *screen-obj-ah +<span id="L41" class="LineNr"> 41 </span> <span class="PreProc">var</span> screen-obj/<span class="Constant">eax</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *screen-obj-ah <span id="L42" class="LineNr"> 42 </span> compare screen-obj, <span class="Constant">0</span> <span id="L43" class="LineNr"> 43 </span> <span class="PreProc">break-if-=</span> <span id="L44" class="LineNr"> 44 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='sandbox.mu.html#L241'>render-screen</a> <span class="Constant">0</span>/screen, screen-obj, <span class="Constant">0x70</span>/xmin, <span class="Constant">1</span>/ymin <span id="L45" class="LineNr"> 45 </span> <span class="Delimiter">}</span> -<span id="L46" class="LineNr"> 46 </span><span class="CommentedCode">#? dump-cell in</span> +<span id="L46" class="LineNr"> 46 </span><span class="CommentedCode">#? dump-cell in-ah</span> <span id="L47" class="LineNr"> 47 </span><span class="CommentedCode">#? {</span> <span id="L48" class="LineNr"> 48 </span><span class="CommentedCode">#? var foo/eax: byte <- read-key 0/keyboard</span> <span id="L49" class="LineNr"> 49 </span><span class="CommentedCode">#? compare foo, 0</span> @@ -112,24 +112,24 @@ if ('onhashchange' in window) { <span id="L51" class="LineNr"> 51 </span><span class="CommentedCode">#? }</span> <span id="L52" class="Folded"> 52 </span><span class="Folded">+-- 14 lines: # trace "evaluate " in " in environment " env -----------------------------------------------------------------------------------------------------------------------------</span> <span id="L66" class="LineNr"> 66 </span> <a href='trace.mu.html#L147'>trace-lower</a> trace -<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> in-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *in +<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *in-ah <span id="L68" class="LineNr"> 68 </span> <span class="Delimiter">{</span> -<span id="L69" class="LineNr"> 69 </span> <span class="PreProc">var</span> <a href='print.mu.html#L194'>nil?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> in-addr -<span id="L70" class="LineNr"> 70 </span> compare <a href='print.mu.html#L194'>nil?</a>, <span class="Constant">0</span>/false +<span id="L69" class="LineNr"> 69 </span> <span class="PreProc">var</span> <a href='print.mu.html#L236'>nil?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> in +<span id="L70" class="LineNr"> 70 </span> compare <a href='print.mu.html#L236'>nil?</a>, <span class="Constant">0</span>/false <span id="L71" class="LineNr"> 71 </span> <span class="PreProc">break-if-=</span> <span id="L72" class="LineNr"> 72 </span> <span class="muComment"># nil is a literal</span> <span id="L73" class="LineNr"> 73 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"nil"</span> -<span id="L74" class="LineNr"> 74 </span> copy-object _in, out +<span id="L74" class="LineNr"> 74 </span> copy-object _in-ah, _out-ah <span id="L75" class="LineNr"> 75 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace <span id="L76" class="LineNr"> 76 </span> <span class="PreProc">return</span> <span id="L77" class="LineNr"> 77 </span> <span class="Delimiter">}</span> -<span id="L78" class="LineNr"> 78 </span> <span class="PreProc">var</span> in-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get in-addr, <span class="PreProc">type</span> +<span id="L78" class="LineNr"> 78 </span> <span class="PreProc">var</span> in-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get in, <span class="PreProc">type</span> <span id="L79" class="LineNr"> 79 </span> compare *in-type, <span class="Constant">1</span>/number <span id="L80" class="LineNr"> 80 </span> <span class="Delimiter">{</span> <span id="L81" class="LineNr"> 81 </span> <span class="PreProc">break-if-!=</span> <span id="L82" class="LineNr"> 82 </span> <span class="muComment"># numbers are literals</span> <span id="L83" class="LineNr"> 83 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"number"</span> -<span id="L84" class="LineNr"> 84 </span> copy-object _in, out +<span id="L84" class="LineNr"> 84 </span> copy-object _in-ah, _out-ah <span id="L85" class="LineNr"> 85 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace <span id="L86" class="LineNr"> 86 </span> <span class="PreProc">return</span> <span id="L87" class="LineNr"> 87 </span> <span class="Delimiter">}</span> @@ -138,7 +138,7 @@ if ('onhashchange' in window) { <span id="L90" class="LineNr"> 90 </span> <span class="PreProc">break-if-!=</span> <span id="L91" class="LineNr"> 91 </span> <span class="muComment"># streams are literals</span> <span id="L92" class="LineNr"> 92 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"stream"</span> -<span id="L93" class="LineNr"> 93 </span> copy-object _in, out +<span id="L93" class="LineNr"> 93 </span> copy-object _in-ah, _out-ah <span id="L94" class="LineNr"> 94 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace <span id="L95" class="LineNr"> 95 </span> <span class="PreProc">return</span> <span id="L96" class="LineNr"> 96 </span> <span class="Delimiter">}</span> @@ -146,9 +146,9 @@ if ('onhashchange' in window) { <span id="L98" class="LineNr"> 98 </span> <span class="Delimiter">{</span> <span id="L99" class="LineNr"> 99 </span> <span class="PreProc">break-if-!=</span> <span id="L100" class="LineNr"> 100 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"symbol"</span> -<span id="L101" class="LineNr"> 101 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"a"</span>, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L102" class="LineNr"> 102 </span> <a href='evaluate.mu.html#L632'>lookup-symbol</a> in-addr, out, env-h, globals, trace, <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, keyboard-cell -<span id="L103" class="LineNr"> 103 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"z"</span>, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg +<span id="L101" class="LineNr"> 101 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"a"</span>, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg +<span id="L102" class="LineNr"> 102 </span> <a href='evaluate.mu.html#L691'>lookup-symbol</a> in, _out-ah, env-h, globals, trace, <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, keyboard-cell +<span id="L103" class="LineNr"> 103 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"z"</span>, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg <span id="L104" class="LineNr"> 104 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace <span id="L105" class="LineNr"> 105 </span> <span class="PreProc">return</span> <span id="L106" class="LineNr"> 106 </span> <span class="Delimiter">}</span> @@ -156,7 +156,7 @@ if ('onhashchange' in window) { <span id="L108" class="LineNr"> 108 </span> <span class="Delimiter">{</span> <span id="L109" class="LineNr"> 109 </span> <span class="PreProc">break-if-!=</span> <span id="L110" class="LineNr"> 110 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"screen"</span> -<span id="L111" class="LineNr"> 111 </span> copy-object _in, out +<span id="L111" class="LineNr"> 111 </span> copy-object _in-ah, _out-ah <span id="L112" class="LineNr"> 112 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace <span id="L113" class="LineNr"> 113 </span> <span class="PreProc">return</span> <span id="L114" class="LineNr"> 114 </span> <span class="Delimiter">}</span> @@ -164,1033 +164,1541 @@ if ('onhashchange' in window) { <span id="L116" class="LineNr"> 116 </span> <span class="Delimiter">{</span> <span id="L117" class="LineNr"> 117 </span> <span class="PreProc">break-if-!=</span> <span id="L118" class="LineNr"> 118 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"keyboard"</span> -<span id="L119" class="LineNr"> 119 </span> copy-object _in, out +<span id="L119" class="LineNr"> 119 </span> copy-object _in-ah, _out-ah <span id="L120" class="LineNr"> 120 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace <span id="L121" class="LineNr"> 121 </span> <span class="PreProc">return</span> <span id="L122" class="LineNr"> 122 </span> <span class="Delimiter">}</span> -<span id="L123" class="LineNr"> 123 </span> <span class="muComment"># in-addr is a syntax tree</span> -<span id="L124" class="LineNr"> 124 </span> $evaluate:anonymous-function: <span class="Delimiter">{</span> -<span id="L125" class="LineNr"> 125 </span> <span class="muComment"># trees starting with "fn" are anonymous functions</span> -<span id="L126" class="LineNr"> 126 </span> <span class="PreProc">var</span> expr/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy in-addr -<span id="L127" class="LineNr"> 127 </span> <span class="muComment"># if its first elem is not "fn", break</span> -<span id="L128" class="LineNr"> 128 </span> <span class="PreProc">var</span> in-addr/<span class="Constant">edx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy in-addr -<span id="L129" class="LineNr"> 129 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in-addr, left -<span id="L130" class="LineNr"> 130 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-ah -<span id="L131" class="LineNr"> 131 </span> <span class="PreProc">var</span> <a href='evaluate.mu.html#L1103'>fn?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='evaluate.mu.html#L1103'>fn?</a> first -<span id="L132" class="LineNr"> 132 </span> compare <a href='evaluate.mu.html#L1103'>fn?</a>, <span class="Constant">0</span>/false -<span id="L133" class="LineNr"> 133 </span> <span class="PreProc">break-if-=</span> -<span id="L134" class="LineNr"> 134 </span> <span class="muComment"># turn (fn ...) into (fn env ...)</span> -<span id="L135" class="LineNr"> 135 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"anonymous function"</span> -<span id="L136" class="LineNr"> 136 </span> <span class="PreProc">var</span> rest-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in-addr, right -<span id="L137" class="LineNr"> 137 </span> <span class="PreProc">var</span> tmp: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L138" class="LineNr"> 138 </span> <span class="PreProc">var</span> tmp-ah/<span class="Constant">edi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address tmp -<span id="L139" class="LineNr"> 139 </span> <a href='cell.mu.html#L115'>new-pair</a> tmp-ah, env-h, *rest-ah -<span id="L140" class="LineNr"> 140 </span> <a href='cell.mu.html#L115'>new-pair</a> out, *first-ah, *tmp-ah -<span id="L141" class="LineNr"> 141 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L142" class="LineNr"> 142 </span> <span class="PreProc">return</span> -<span id="L143" class="LineNr"> 143 </span> <span class="Delimiter">}</span> -<span id="L144" class="LineNr"> 144 </span> <span class="muComment"># builtins with "special" evaluation rules</span> -<span id="L145" class="LineNr"> 145 </span> $evaluate:quote: <span class="Delimiter">{</span> -<span id="L146" class="LineNr"> 146 </span> <span class="muComment"># trees starting with single quote create literals</span> -<span id="L147" class="LineNr"> 147 </span> <span class="PreProc">var</span> expr/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy in-addr -<span id="L148" class="LineNr"> 148 </span> <span class="muComment"># if its first elem is not "'", break</span> -<span id="L149" class="LineNr"> 149 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in-addr, left -<span id="L150" class="LineNr"> 150 </span> <span class="PreProc">var</span> rest-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in-addr, right -<span id="L151" class="LineNr"> 151 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-ah -<span id="L152" class="LineNr"> 152 </span> <span class="PreProc">var</span> quote?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='cell.mu.html#L43'>symbol-equal?</a> first, <span class="Constant">"'"</span> -<span id="L153" class="LineNr"> 153 </span> compare quote?, <span class="Constant">0</span>/false -<span id="L154" class="LineNr"> 154 </span> <span class="PreProc">break-if-=</span> -<span id="L155" class="LineNr"> 155 </span> <span class="muComment">#</span> -<span id="L156" class="LineNr"> 156 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"quote"</span> -<span id="L157" class="LineNr"> 157 </span> copy-object rest-ah, out -<span id="L158" class="LineNr"> 158 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L159" class="LineNr"> 159 </span> <span class="PreProc">return</span> -<span id="L160" class="LineNr"> 160 </span> <span class="Delimiter">}</span> -<span id="L161" class="LineNr"> 161 </span> $evaluate:def: <span class="Delimiter">{</span> -<span id="L162" class="LineNr"> 162 </span> <span class="muComment"># trees starting with "def" define globals</span> -<span id="L163" class="LineNr"> 163 </span> <span class="PreProc">var</span> expr/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy in-addr -<span id="L164" class="LineNr"> 164 </span> <span class="muComment"># if its first elem is not "def", break</span> -<span id="L165" class="LineNr"> 165 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in-addr, left -<span id="L166" class="LineNr"> 166 </span> <span class="PreProc">var</span> rest-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in-addr, right -<span id="L167" class="LineNr"> 167 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-ah -<span id="L168" class="LineNr"> 168 </span> <span class="PreProc">var</span> def?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='cell.mu.html#L43'>symbol-equal?</a> first, <span class="Constant">"def"</span> -<span id="L169" class="LineNr"> 169 </span> compare def?, <span class="Constant">0</span>/false -<span id="L170" class="LineNr"> 170 </span> <span class="PreProc">break-if-=</span> -<span id="L171" class="LineNr"> 171 </span> <span class="muComment">#</span> -<span id="L172" class="LineNr"> 172 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"def"</span> -<span id="L173" class="LineNr"> 173 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"evaluating second arg"</span> -<span id="L174" class="LineNr"> 174 </span> <span class="PreProc">var</span> rest/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *rest-ah -<span id="L175" class="LineNr"> 175 </span> <span class="PreProc">var</span> first-arg-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, left -<span id="L176" class="LineNr"> 176 </span> <span class="Delimiter">{</span> -<span id="L177" class="LineNr"> 177 </span> <span class="PreProc">var</span> first-arg/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-arg-ah -<span id="L178" class="LineNr"> 178 </span> <span class="PreProc">var</span> first-arg-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get first-arg, <span class="PreProc">type</span> -<span id="L179" class="LineNr"> 179 </span> compare *first-arg-type, <span class="Constant">2</span>/symbol -<span id="L180" class="LineNr"> 180 </span> <span class="PreProc">break-if-=</span> -<span id="L181" class="LineNr"> 181 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg to def must be a symbol"</span> -<span id="L182" class="LineNr"> 182 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L183" class="LineNr"> 183 </span> <span class="PreProc">return</span> -<span id="L184" class="LineNr"> 184 </span> <span class="Delimiter">}</span> -<span id="L185" class="LineNr"> 185 </span> rest-ah <span class="Special"><-</span> get rest, right -<span id="L186" class="LineNr"> 186 </span> rest <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *rest-ah -<span id="L187" class="LineNr"> 187 </span> <span class="PreProc">var</span> second-arg-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, left -<span id="L188" class="LineNr"> 188 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"P"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L189" class="LineNr"> 189 </span> increment call-number -<span id="L190" class="LineNr"> 190 </span> <a href='evaluate.mu.html#L5'>evaluate</a> second-arg-ah, out, env-h, globals, trace, <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, keyboard-cell, call-number -<span id="L191" class="LineNr"> 191 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"Q"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L192" class="LineNr"> 192 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"saving <a href='global.mu.html#L1'>global</a> binding"</span> -<span id="L193" class="LineNr"> 193 </span> <span class="PreProc">var</span> first-arg/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-arg-ah -<span id="L194" class="LineNr"> 194 </span> <span class="PreProc">var</span> first-arg-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get first-arg, text-data -<span id="L195" class="LineNr"> 195 </span> <span class="PreProc">var</span> first-arg-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-arg-data-ah -<span id="L196" class="LineNr"> 196 </span> <span class="PreProc">var</span> tmp-string: (handle array byte) -<span id="L197" class="LineNr"> 197 </span> <span class="PreProc">var</span> tmp-ah/<span class="Constant">edx</span>: (addr handle array byte) <span class="Special"><-</span> address tmp-string -<span id="L198" class="LineNr"> 198 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> first-arg-data -<span id="L199" class="LineNr"> 199 </span> <a href='../310copy-bytes.subx.html#L60'>stream-to-array</a> first-arg-data, tmp-ah -<span id="L200" class="LineNr"> 200 </span> <span class="PreProc">var</span> first-arg-data-string/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *tmp-ah -<span id="L201" class="LineNr"> 201 </span> <span class="PreProc">var</span> out2/<span class="Constant">edi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy out -<span id="L202" class="LineNr"> 202 </span> <a href='global.mu.html#L285'>assign-or-create-global</a> globals, first-arg-data-string, *out2, trace -<span id="L203" class="LineNr"> 203 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L204" class="LineNr"> 204 </span> <span class="PreProc">return</span> -<span id="L205" class="LineNr"> 205 </span> <span class="Delimiter">}</span> -<span id="L206" class="LineNr"> 206 </span> $evaluate:set: <span class="Delimiter">{</span> -<span id="L207" class="LineNr"> 207 </span> <span class="muComment"># trees starting with "set" mutate bindings</span> -<span id="L208" class="LineNr"> 208 </span> <span class="PreProc">var</span> expr/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy in-addr -<span id="L209" class="LineNr"> 209 </span> <span class="muComment"># if its first elem is not "set", break</span> -<span id="L210" class="LineNr"> 210 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in-addr, left -<span id="L211" class="LineNr"> 211 </span> <span class="PreProc">var</span> rest-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in-addr, right -<span id="L212" class="LineNr"> 212 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-ah -<span id="L213" class="LineNr"> 213 </span> <span class="PreProc">var</span> set?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='cell.mu.html#L43'>symbol-equal?</a> first, <span class="Constant">"set"</span> -<span id="L214" class="LineNr"> 214 </span> compare set?, <span class="Constant">0</span>/false -<span id="L215" class="LineNr"> 215 </span> <span class="PreProc">break-if-=</span> -<span id="L216" class="LineNr"> 216 </span> <span class="muComment">#</span> -<span id="L217" class="LineNr"> 217 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"set"</span> -<span id="L218" class="LineNr"> 218 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"evaluating second arg"</span> -<span id="L219" class="LineNr"> 219 </span> <span class="PreProc">var</span> rest/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *rest-ah -<span id="L220" class="LineNr"> 220 </span> <span class="PreProc">var</span> first-arg-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, left -<span id="L221" class="LineNr"> 221 </span> <span class="Delimiter">{</span> -<span id="L222" class="LineNr"> 222 </span> <span class="PreProc">var</span> first-arg/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-arg-ah -<span id="L223" class="LineNr"> 223 </span> <span class="PreProc">var</span> first-arg-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get first-arg, <span class="PreProc">type</span> -<span id="L224" class="LineNr"> 224 </span> compare *first-arg-type, <span class="Constant">2</span>/symbol -<span id="L225" class="LineNr"> 225 </span> <span class="PreProc">break-if-=</span> -<span id="L226" class="LineNr"> 226 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg to set must be a symbol"</span> -<span id="L227" class="LineNr"> 227 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L228" class="LineNr"> 228 </span> <span class="PreProc">return</span> -<span id="L229" class="LineNr"> 229 </span> <span class="Delimiter">}</span> -<span id="L230" class="LineNr"> 230 </span> rest-ah <span class="Special"><-</span> get rest, right -<span id="L231" class="LineNr"> 231 </span> rest <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *rest-ah -<span id="L232" class="LineNr"> 232 </span> <span class="PreProc">var</span> second-arg-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, left -<span id="L233" class="LineNr"> 233 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"P"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L234" class="LineNr"> 234 </span> increment call-number -<span id="L235" class="LineNr"> 235 </span> <a href='evaluate.mu.html#L5'>evaluate</a> second-arg-ah, out, env-h, globals, trace, <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, keyboard-cell, call-number -<span id="L236" class="LineNr"> 236 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"Q"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L237" class="LineNr"> 237 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"mutating binding"</span> -<span id="L238" class="LineNr"> 238 </span> <span class="PreProc">var</span> first-arg/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-arg-ah -<span id="L239" class="LineNr"> 239 </span> <span class="PreProc">var</span> first-arg-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get first-arg, text-data -<span id="L240" class="LineNr"> 240 </span> <span class="PreProc">var</span> first-arg-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-arg-data-ah -<span id="L241" class="LineNr"> 241 </span> <a href='evaluate.mu.html#L816'>mutate-binding</a> first-arg-data, out, env-h, globals, trace -<span id="L242" class="LineNr"> 242 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L243" class="LineNr"> 243 </span> <span class="PreProc">return</span> -<span id="L244" class="LineNr"> 244 </span> <span class="Delimiter">}</span> -<span id="L245" class="LineNr"> 245 </span> $evaluate:and: <span class="Delimiter">{</span> -<span id="L246" class="LineNr"> 246 </span> <span class="PreProc">var</span> expr/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy in-addr -<span id="L247" class="LineNr"> 247 </span> <span class="muComment"># if its first elem is not "and", break</span> -<span id="L248" class="LineNr"> 248 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in-addr, left -<span id="L249" class="LineNr"> 249 </span> <span class="PreProc">var</span> rest-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in-addr, right -<span id="L250" class="LineNr"> 250 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-ah -<span id="L251" class="LineNr"> 251 </span> <span class="PreProc">var</span> and?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='cell.mu.html#L43'>symbol-equal?</a> first, <span class="Constant">"and"</span> -<span id="L252" class="LineNr"> 252 </span> compare and?, <span class="Constant">0</span>/false -<span id="L253" class="LineNr"> 253 </span> <span class="PreProc">break-if-=</span> -<span id="L254" class="LineNr"> 254 </span> <span class="muComment">#</span> -<span id="L255" class="LineNr"> 255 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"and"</span> -<span id="L256" class="LineNr"> 256 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"evaluating first arg"</span> -<span id="L257" class="LineNr"> 257 </span> <span class="PreProc">var</span> rest/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *rest-ah -<span id="L258" class="LineNr"> 258 </span> <span class="PreProc">var</span> first-arg-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, left -<span id="L259" class="LineNr"> 259 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"R2"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L260" class="LineNr"> 260 </span> increment call-number -<span id="L261" class="LineNr"> 261 </span> <a href='evaluate.mu.html#L5'>evaluate</a> first-arg-ah, out, env-h, globals, trace, <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, keyboard-cell, call-number -<span id="L262" class="LineNr"> 262 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"S2"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L263" class="LineNr"> 263 </span> <span class="muComment"># if first arg is nil, short-circuit</span> -<span id="L264" class="LineNr"> 264 </span> <span class="PreProc">var</span> out-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy out -<span id="L265" class="LineNr"> 265 </span> <span class="PreProc">var</span> out-a/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *out-ah -<span id="L266" class="LineNr"> 266 </span> <span class="PreProc">var</span> <a href='print.mu.html#L194'>nil?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> out-a -<span id="L267" class="LineNr"> 267 </span> compare <a href='print.mu.html#L194'>nil?</a>, <span class="Constant">0</span>/false -<span id="L268" class="LineNr"> 268 </span> <span class="Delimiter">{</span> -<span id="L269" class="LineNr"> 269 </span> <span class="PreProc">break-if-=</span> -<span id="L270" class="LineNr"> 270 </span> <span class="PreProc">return</span> -<span id="L271" class="LineNr"> 271 </span> <span class="Delimiter">}</span> -<span id="L272" class="LineNr"> 272 </span> <span class="PreProc">var</span> rest/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *rest-ah -<span id="L273" class="LineNr"> 273 </span> rest-ah <span class="Special"><-</span> get rest, right -<span id="L274" class="LineNr"> 274 </span> rest <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *rest-ah -<span id="L275" class="LineNr"> 275 </span> <span class="PreProc">var</span> second-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, left -<span id="L276" class="LineNr"> 276 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"T2"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L277" class="LineNr"> 277 </span> increment call-number -<span id="L278" class="LineNr"> 278 </span> <a href='evaluate.mu.html#L5'>evaluate</a> second-ah, out, env-h, globals, trace, <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, keyboard-cell, call-number -<span id="L279" class="LineNr"> 279 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"U2"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L280" class="LineNr"> 280 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L281" class="LineNr"> 281 </span> <span class="PreProc">return</span> -<span id="L282" class="LineNr"> 282 </span> <span class="Delimiter">}</span> -<span id="L283" class="LineNr"> 283 </span> $evaluate:or: <span class="Delimiter">{</span> -<span id="L284" class="LineNr"> 284 </span> <span class="PreProc">var</span> expr/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy in-addr -<span id="L285" class="LineNr"> 285 </span> <span class="muComment"># if its first elem is not "or", break</span> -<span id="L286" class="LineNr"> 286 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in-addr, left -<span id="L287" class="LineNr"> 287 </span> <span class="PreProc">var</span> rest-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in-addr, right -<span id="L288" class="LineNr"> 288 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-ah -<span id="L289" class="LineNr"> 289 </span> <span class="PreProc">var</span> or?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='cell.mu.html#L43'>symbol-equal?</a> first, <span class="Constant">"or"</span> -<span id="L290" class="LineNr"> 290 </span> compare or?, <span class="Constant">0</span>/false -<span id="L291" class="LineNr"> 291 </span> <span class="PreProc">break-if-=</span> -<span id="L292" class="LineNr"> 292 </span> <span class="muComment">#</span> -<span id="L293" class="LineNr"> 293 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"or"</span> -<span id="L294" class="LineNr"> 294 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"evaluating first arg"</span> -<span id="L295" class="LineNr"> 295 </span> <span class="PreProc">var</span> rest/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *rest-ah -<span id="L296" class="LineNr"> 296 </span> <span class="PreProc">var</span> first-arg-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, left -<span id="L297" class="LineNr"> 297 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"R2"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L298" class="LineNr"> 298 </span> increment call-number -<span id="L299" class="LineNr"> 299 </span> <a href='evaluate.mu.html#L5'>evaluate</a> first-arg-ah, out, env-h, globals, trace, <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, keyboard-cell, call-number -<span id="L300" class="LineNr"> 300 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"S2"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L301" class="LineNr"> 301 </span> <span class="muComment"># if first arg is not nil, short-circuit</span> -<span id="L302" class="LineNr"> 302 </span> <span class="PreProc">var</span> out-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy out -<span id="L303" class="LineNr"> 303 </span> <span class="PreProc">var</span> out-a/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *out-ah -<span id="L304" class="LineNr"> 304 </span> <span class="PreProc">var</span> <a href='print.mu.html#L194'>nil?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> out-a -<span id="L305" class="LineNr"> 305 </span> compare <a href='print.mu.html#L194'>nil?</a>, <span class="Constant">0</span>/false -<span id="L306" class="LineNr"> 306 </span> <span class="Delimiter">{</span> -<span id="L307" class="LineNr"> 307 </span> <span class="PreProc">break-if-!=</span> -<span id="L308" class="LineNr"> 308 </span> <span class="PreProc">return</span> -<span id="L309" class="LineNr"> 309 </span> <span class="Delimiter">}</span> -<span id="L310" class="LineNr"> 310 </span> <span class="PreProc">var</span> rest/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *rest-ah -<span id="L311" class="LineNr"> 311 </span> rest-ah <span class="Special"><-</span> get rest, right -<span id="L312" class="LineNr"> 312 </span> rest <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *rest-ah -<span id="L313" class="LineNr"> 313 </span> <span class="PreProc">var</span> second-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, left -<span id="L314" class="LineNr"> 314 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"T2"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L315" class="LineNr"> 315 </span> increment call-number -<span id="L316" class="LineNr"> 316 </span> <a href='evaluate.mu.html#L5'>evaluate</a> second-ah, out, env-h, globals, trace, <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, keyboard-cell, call-number -<span id="L317" class="LineNr"> 317 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"U2"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L318" class="LineNr"> 318 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L319" class="LineNr"> 319 </span> <span class="PreProc">return</span> -<span id="L320" class="LineNr"> 320 </span> <span class="Delimiter">}</span> -<span id="L321" class="LineNr"> 321 </span> $evaluate:if: <span class="Delimiter">{</span> -<span id="L322" class="LineNr"> 322 </span> <span class="muComment"># trees starting with "if" are conditionals</span> -<span id="L323" class="LineNr"> 323 </span> <span class="PreProc">var</span> expr/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy in-addr -<span id="L324" class="LineNr"> 324 </span> <span class="muComment"># if its first elem is not "if", break</span> -<span id="L325" class="LineNr"> 325 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in-addr, left -<span id="L326" class="LineNr"> 326 </span> <span class="PreProc">var</span> rest-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in-addr, right -<span id="L327" class="LineNr"> 327 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-ah -<span id="L328" class="LineNr"> 328 </span> <span class="PreProc">var</span> if?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='cell.mu.html#L43'>symbol-equal?</a> first, <span class="Constant">"if"</span> -<span id="L329" class="LineNr"> 329 </span> compare if?, <span class="Constant">0</span>/false -<span id="L330" class="LineNr"> 330 </span> <span class="PreProc">break-if-=</span> -<span id="L331" class="LineNr"> 331 </span> <span class="muComment">#</span> -<span id="L332" class="LineNr"> 332 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"if"</span> -<span id="L333" class="LineNr"> 333 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"evaluating first arg"</span> -<span id="L334" class="LineNr"> 334 </span> <span class="PreProc">var</span> rest/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *rest-ah -<span id="L335" class="LineNr"> 335 </span> <span class="PreProc">var</span> first-arg-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, left -<span id="L336" class="LineNr"> 336 </span> <span class="PreProc">var</span> guard-h: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L337" class="LineNr"> 337 </span> <span class="PreProc">var</span> guard-ah/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address guard-h -<span id="L338" class="LineNr"> 338 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"R"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L339" class="LineNr"> 339 </span> increment call-number -<span id="L340" class="LineNr"> 340 </span> <a href='evaluate.mu.html#L5'>evaluate</a> first-arg-ah, guard-ah, env-h, globals, trace, <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, keyboard-cell, call-number -<span id="L341" class="LineNr"> 341 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"S"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L342" class="LineNr"> 342 </span> rest-ah <span class="Special"><-</span> get rest, right -<span id="L343" class="LineNr"> 343 </span> rest <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *rest-ah -<span id="L344" class="LineNr"> 344 </span> <span class="PreProc">var</span> branch-ah/<span class="Constant">edi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, left -<span id="L345" class="LineNr"> 345 </span> <span class="PreProc">var</span> guard-a/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *guard-ah -<span id="L346" class="LineNr"> 346 </span> <span class="PreProc">var</span> skip-to-third-arg?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> guard-a -<span id="L347" class="LineNr"> 347 </span> compare skip-to-third-arg?, <span class="Constant">0</span>/false -<span id="L348" class="LineNr"> 348 </span> <span class="Delimiter">{</span> -<span id="L349" class="LineNr"> 349 </span> <span class="PreProc">break-if-=</span> -<span id="L350" class="LineNr"> 350 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"skipping to third arg"</span> -<span id="L351" class="LineNr"> 351 </span> <span class="PreProc">var</span> rest/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *rest-ah -<span id="L352" class="LineNr"> 352 </span> rest-ah <span class="Special"><-</span> get rest, right -<span id="L353" class="LineNr"> 353 </span> rest <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *rest-ah -<span id="L354" class="LineNr"> 354 </span> branch-ah <span class="Special"><-</span> get rest, left -<span id="L355" class="LineNr"> 355 </span> <span class="Delimiter">}</span> -<span id="L356" class="LineNr"> 356 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"T"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L357" class="LineNr"> 357 </span> increment call-number -<span id="L358" class="LineNr"> 358 </span> <a href='evaluate.mu.html#L5'>evaluate</a> branch-ah, out, env-h, globals, trace, <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, keyboard-cell, call-number -<span id="L359" class="LineNr"> 359 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"U"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L360" class="LineNr"> 360 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L361" class="LineNr"> 361 </span> <span class="PreProc">return</span> -<span id="L362" class="LineNr"> 362 </span> <span class="Delimiter">}</span> -<span id="L363" class="LineNr"> 363 </span> $evaluate:while: <span class="Delimiter">{</span> -<span id="L364" class="LineNr"> 364 </span> <span class="muComment"># trees starting with "while" are loops</span> -<span id="L365" class="LineNr"> 365 </span> <span class="PreProc">var</span> expr/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy in-addr -<span id="L366" class="LineNr"> 366 </span> <span class="muComment"># if its first elem is not "while", break</span> -<span id="L367" class="LineNr"> 367 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in-addr, left -<span id="L368" class="LineNr"> 368 </span> <span class="PreProc">var</span> rest-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in-addr, right -<span id="L369" class="LineNr"> 369 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-ah -<span id="L370" class="LineNr"> 370 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> -<span id="L371" class="LineNr"> 371 </span> compare *first-type, <span class="Constant">2</span>/symbol -<span id="L372" class="LineNr"> 372 </span> <span class="PreProc">break-if-!=</span> -<span id="L373" class="LineNr"> 373 </span> <span class="PreProc">var</span> sym-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get first, text-data -<span id="L374" class="LineNr"> 374 </span> <span class="PreProc">var</span> sym-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *sym-data-ah -<span id="L375" class="LineNr"> 375 </span> <span class="PreProc">var</span> while?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> sym-data, <span class="Constant">"while"</span> -<span id="L376" class="LineNr"> 376 </span> compare while?, <span class="Constant">0</span>/false -<span id="L377" class="LineNr"> 377 </span> <span class="PreProc">break-if-=</span> -<span id="L378" class="LineNr"> 378 </span> <span class="muComment">#</span> -<span id="L379" class="LineNr"> 379 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"while"</span> -<span id="L380" class="LineNr"> 380 </span> <span class="PreProc">var</span> rest/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *rest-ah -<span id="L381" class="LineNr"> 381 </span> <span class="PreProc">var</span> first-arg-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, left -<span id="L382" class="LineNr"> 382 </span> rest-ah <span class="Special"><-</span> get rest, right -<span id="L383" class="LineNr"> 383 </span> <span class="PreProc">var</span> guard-h: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L384" class="LineNr"> 384 </span> <span class="PreProc">var</span> guard-ah/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address guard-h -<span id="L385" class="LineNr"> 385 </span> $evaluate:while:loop-execution: <span class="Delimiter">{</span> -<span id="L386" class="LineNr"> 386 </span> <span class="Delimiter">{</span> -<span id="L387" class="LineNr"> 387 </span> compare trace, <span class="Constant">0</span> -<span id="L388" class="LineNr"> 388 </span> <span class="PreProc">break-if-=</span> -<span id="L389" class="LineNr"> 389 </span> <span class="PreProc">var</span> error?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='trace.mu.html#L54'>has-errors?</a> trace -<span id="L390" class="LineNr"> 390 </span> compare error?, <span class="Constant">0</span>/false -<span id="L391" class="LineNr"> 391 </span> <span class="PreProc">break-if-!=</span> $evaluate:while:loop-execution -<span id="L392" class="LineNr"> 392 </span> <span class="Delimiter">}</span> -<span id="L393" class="LineNr"> 393 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"loop termination check"</span> -<span id="L394" class="LineNr"> 394 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"V"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L395" class="LineNr"> 395 </span> increment call-number -<span id="L396" class="LineNr"> 396 </span> <a href='evaluate.mu.html#L5'>evaluate</a> first-arg-ah, guard-ah, env-h, globals, trace, <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, keyboard-cell, call-number -<span id="L397" class="LineNr"> 397 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"W"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L398" class="LineNr"> 398 </span> <span class="PreProc">var</span> guard-a/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *guard-ah -<span id="L399" class="LineNr"> 399 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> guard-a -<span id="L400" class="LineNr"> 400 </span> compare done?, <span class="Constant">0</span>/false -<span id="L401" class="LineNr"> 401 </span> <span class="PreProc">break-if-!=</span> -<span id="L402" class="LineNr"> 402 </span> <a href='evaluate.mu.html#L520'>evaluate-exprs</a> rest-ah, out, env-h, globals, trace, <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, keyboard-cell, call-number -<span id="L403" class="LineNr"> 403 </span> <span class="PreProc">loop</span> -<span id="L404" class="LineNr"> 404 </span> <span class="Delimiter">}</span> -<span id="L405" class="LineNr"> 405 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"loop terminated"</span> -<span id="L406" class="LineNr"> 406 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L407" class="LineNr"> 407 </span> <span class="PreProc">return</span> -<span id="L408" class="LineNr"> 408 </span> <span class="Delimiter">}</span> -<span id="L409" class="LineNr"> 409 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"function call"</span> -<span id="L410" class="LineNr"> 410 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"evaluating list elements"</span> -<span id="L411" class="LineNr"> 411 </span> <a href='trace.mu.html#L147'>trace-lower</a> trace -<span id="L412" class="LineNr"> 412 </span> <span class="PreProc">var</span> evaluated-list-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L413" class="LineNr"> 413 </span> <span class="PreProc">var</span> evaluated-list-ah/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address evaluated-list-storage -<span id="L414" class="LineNr"> 414 </span> <span class="PreProc">var</span> curr-out-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy evaluated-list-ah -<span id="L415" class="LineNr"> 415 </span> <span class="PreProc">var</span> curr/<span class="Constant">ecx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy in-addr -<span id="L416" class="LineNr"> 416 </span> $evaluate-list:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> -<span id="L417" class="LineNr"> 417 </span> <a href='cell.mu.html#L101'>allocate-pair</a> curr-out-ah -<span id="L418" class="LineNr"> 418 </span> <span class="PreProc">var</span> <a href='print.mu.html#L194'>nil?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> curr -<span id="L419" class="LineNr"> 419 </span> compare <a href='print.mu.html#L194'>nil?</a>, <span class="Constant">0</span>/false +<span id="L123" class="LineNr"> 123 </span> <span class="muComment"># 'in' is a syntax tree</span> +<span id="L124" class="LineNr"> 124 </span> $evaluate:literal-function: <span class="Delimiter">{</span> +<span id="L125" class="LineNr"> 125 </span> <span class="muComment"># trees starting with "litfn" are literals</span> +<span id="L126" class="LineNr"> 126 </span> <span class="PreProc">var</span> expr/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy in +<span id="L127" class="LineNr"> 127 </span> <span class="PreProc">var</span> in/<span class="Constant">edx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy in +<span id="L128" class="LineNr"> 128 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in, left +<span id="L129" class="LineNr"> 129 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-ah +<span id="L130" class="LineNr"> 130 </span> <span class="PreProc">var</span> <a href='evaluate.mu.html#L1221'>litfn?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='evaluate.mu.html#L1221'>litfn?</a> first +<span id="L131" class="LineNr"> 131 </span> compare <a href='evaluate.mu.html#L1221'>litfn?</a>, <span class="Constant">0</span>/false +<span id="L132" class="LineNr"> 132 </span> <span class="PreProc">break-if-=</span> +<span id="L133" class="LineNr"> 133 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"literal function"</span> +<span id="L134" class="LineNr"> 134 </span> copy-object _in-ah, _out-ah +<span id="L135" class="LineNr"> 135 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L136" class="LineNr"> 136 </span> <span class="PreProc">return</span> +<span id="L137" class="LineNr"> 137 </span> <span class="Delimiter">}</span> +<span id="L138" class="LineNr"> 138 </span> $evaluate:literal-macro: <span class="Delimiter">{</span> +<span id="L139" class="LineNr"> 139 </span> <span class="muComment"># trees starting with "litmac" are literals</span> +<span id="L140" class="LineNr"> 140 </span> <span class="PreProc">var</span> expr/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy in +<span id="L141" class="LineNr"> 141 </span> <span class="PreProc">var</span> in/<span class="Constant">edx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy in +<span id="L142" class="LineNr"> 142 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in, left +<span id="L143" class="LineNr"> 143 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-ah +<span id="L144" class="LineNr"> 144 </span> <span class="PreProc">var</span> <a href='evaluate.mu.html#L1235'>litmac?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='evaluate.mu.html#L1235'>litmac?</a> first +<span id="L145" class="LineNr"> 145 </span> compare <a href='evaluate.mu.html#L1235'>litmac?</a>, <span class="Constant">0</span>/false +<span id="L146" class="LineNr"> 146 </span> <span class="PreProc">break-if-=</span> +<span id="L147" class="LineNr"> 147 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"literal macro"</span> +<span id="L148" class="LineNr"> 148 </span> copy-object _in-ah, _out-ah +<span id="L149" class="LineNr"> 149 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L150" class="LineNr"> 150 </span> <span class="PreProc">return</span> +<span id="L151" class="LineNr"> 151 </span> <span class="Delimiter">}</span> +<span id="L152" class="LineNr"> 152 </span> $evaluate:anonymous-function: <span class="Delimiter">{</span> +<span id="L153" class="LineNr"> 153 </span> <span class="muComment"># trees starting with "fn" are anonymous functions</span> +<span id="L154" class="LineNr"> 154 </span> <span class="PreProc">var</span> expr/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy in +<span id="L155" class="LineNr"> 155 </span> <span class="PreProc">var</span> in/<span class="Constant">edx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy in +<span id="L156" class="LineNr"> 156 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in, left +<span id="L157" class="LineNr"> 157 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-ah +<span id="L158" class="LineNr"> 158 </span> <span class="PreProc">var</span> <a href='evaluate.mu.html#L1207'>fn?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='evaluate.mu.html#L1207'>fn?</a> first +<span id="L159" class="LineNr"> 159 </span> compare <a href='evaluate.mu.html#L1207'>fn?</a>, <span class="Constant">0</span>/false +<span id="L160" class="LineNr"> 160 </span> <span class="PreProc">break-if-=</span> +<span id="L161" class="LineNr"> 161 </span> <span class="muComment"># turn (fn ...) into (litfn env ...)</span> +<span id="L162" class="LineNr"> 162 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"anonymous function"</span> +<span id="L163" class="LineNr"> 163 </span> <span class="PreProc">var</span> rest-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in, right +<span id="L164" class="LineNr"> 164 </span> <span class="PreProc">var</span> tmp: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L165" class="LineNr"> 165 </span> <span class="PreProc">var</span> tmp-ah/<span class="Constant">edi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address tmp +<span id="L166" class="LineNr"> 166 </span> <a href='cell.mu.html#L116'>new-pair</a> tmp-ah, env-h, *rest-ah +<span id="L167" class="LineNr"> 167 </span> <span class="PreProc">var</span> litfn: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L168" class="LineNr"> 168 </span> <span class="PreProc">var</span> litfn-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address litfn +<span id="L169" class="LineNr"> 169 </span> <a href='cell.mu.html#L39'>new-symbol</a> litfn-ah, <span class="Constant">"litfn"</span> +<span id="L170" class="LineNr"> 170 </span> <a href='cell.mu.html#L116'>new-pair</a> _out-ah, *litfn-ah, *tmp-ah +<span id="L171" class="LineNr"> 171 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L172" class="LineNr"> 172 </span> <span class="PreProc">return</span> +<span id="L173" class="LineNr"> 173 </span> <span class="Delimiter">}</span> +<span id="L174" class="LineNr"> 174 </span> <span class="muComment"># builtins with "special" evaluation rules</span> +<span id="L175" class="LineNr"> 175 </span> $evaluate:quote: <span class="Delimiter">{</span> +<span id="L176" class="LineNr"> 176 </span> <span class="muComment"># trees starting with single quote create literals</span> +<span id="L177" class="LineNr"> 177 </span> <span class="PreProc">var</span> expr/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy in +<span id="L178" class="LineNr"> 178 </span> <span class="muComment"># if its first elem is not "'", break</span> +<span id="L179" class="LineNr"> 179 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in, left +<span id="L180" class="LineNr"> 180 </span> <span class="PreProc">var</span> rest-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in, right +<span id="L181" class="LineNr"> 181 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-ah +<span id="L182" class="LineNr"> 182 </span> <span class="PreProc">var</span> quote?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='cell.mu.html#L44'>symbol-equal?</a> first, <span class="Constant">"'"</span> +<span id="L183" class="LineNr"> 183 </span> compare quote?, <span class="Constant">0</span>/false +<span id="L184" class="LineNr"> 184 </span> <span class="PreProc">break-if-=</span> +<span id="L185" class="LineNr"> 185 </span> <span class="muComment">#</span> +<span id="L186" class="LineNr"> 186 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"quote"</span> +<span id="L187" class="LineNr"> 187 </span> copy-object rest-ah, _out-ah +<span id="L188" class="LineNr"> 188 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L189" class="LineNr"> 189 </span> <span class="PreProc">return</span> +<span id="L190" class="LineNr"> 190 </span> <span class="Delimiter">}</span> +<span id="L191" class="LineNr"> 191 </span> $evaluate:backquote: <span class="Delimiter">{</span> +<span id="L192" class="LineNr"> 192 </span> <span class="muComment"># trees starting with single backquote create literals</span> +<span id="L193" class="LineNr"> 193 </span> <span class="PreProc">var</span> expr/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy in +<span id="L194" class="LineNr"> 194 </span> <span class="muComment"># if its first elem is not "'", break</span> +<span id="L195" class="LineNr"> 195 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in, left +<span id="L196" class="LineNr"> 196 </span> <span class="PreProc">var</span> rest-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in, right +<span id="L197" class="LineNr"> 197 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-ah +<span id="L198" class="LineNr"> 198 </span> <span class="PreProc">var</span> backquote?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='cell.mu.html#L44'>symbol-equal?</a> first, <span class="Constant">"`"</span> +<span id="L199" class="LineNr"> 199 </span> compare backquote?, <span class="Constant">0</span>/false +<span id="L200" class="LineNr"> 200 </span> <span class="PreProc">break-if-=</span> +<span id="L201" class="LineNr"> 201 </span> <span class="muComment">#</span> +<span id="L202" class="LineNr"> 202 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"backquote"</span> +<span id="L203" class="LineNr"> 203 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"`("</span>, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg +<span id="L204" class="LineNr"> 204 </span> <a href='evaluate.mu.html#L1416'>evaluate-backquote</a> rest-ah, _out-ah, env-h, globals, trace, <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, keyboard-cell, call-number +<span id="L205" class="LineNr"> 205 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">")"</span>, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg +<span id="L206" class="LineNr"> 206 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L207" class="LineNr"> 207 </span> <span class="PreProc">return</span> +<span id="L208" class="LineNr"> 208 </span> <span class="Delimiter">}</span> +<span id="L209" class="LineNr"> 209 </span> $evaluate:def: <span class="Delimiter">{</span> +<span id="L210" class="LineNr"> 210 </span> <span class="muComment"># trees starting with "def" define globals</span> +<span id="L211" class="LineNr"> 211 </span> <span class="PreProc">var</span> expr/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy in +<span id="L212" class="LineNr"> 212 </span> <span class="muComment"># if its first elem is not "def", break</span> +<span id="L213" class="LineNr"> 213 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in, left +<span id="L214" class="LineNr"> 214 </span> <span class="PreProc">var</span> rest-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in, right +<span id="L215" class="LineNr"> 215 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-ah +<span id="L216" class="LineNr"> 216 </span> <span class="PreProc">var</span> def?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='cell.mu.html#L44'>symbol-equal?</a> first, <span class="Constant">"def"</span> +<span id="L217" class="LineNr"> 217 </span> compare def?, <span class="Constant">0</span>/false +<span id="L218" class="LineNr"> 218 </span> <span class="PreProc">break-if-=</span> +<span id="L219" class="LineNr"> 219 </span> <span class="muComment">#</span> +<span id="L220" class="LineNr"> 220 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"def"</span> +<span id="L221" class="LineNr"> 221 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"evaluating second arg"</span> +<span id="L222" class="LineNr"> 222 </span> <span class="PreProc">var</span> rest/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *rest-ah +<span id="L223" class="LineNr"> 223 </span> <span class="PreProc">var</span> first-arg-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, left +<span id="L224" class="LineNr"> 224 </span> <span class="Delimiter">{</span> +<span id="L225" class="LineNr"> 225 </span> <span class="PreProc">var</span> first-arg/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-arg-ah +<span id="L226" class="LineNr"> 226 </span> <span class="PreProc">var</span> first-arg-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get first-arg, <span class="PreProc">type</span> +<span id="L227" class="LineNr"> 227 </span> compare *first-arg-type, <span class="Constant">2</span>/symbol +<span id="L228" class="LineNr"> 228 </span> <span class="PreProc">break-if-=</span> +<span id="L229" class="LineNr"> 229 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg to def must be a symbol"</span> +<span id="L230" class="LineNr"> 230 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L231" class="LineNr"> 231 </span> <span class="PreProc">return</span> +<span id="L232" class="LineNr"> 232 </span> <span class="Delimiter">}</span> +<span id="L233" class="LineNr"> 233 </span> rest-ah <span class="Special"><-</span> get rest, right +<span id="L234" class="LineNr"> 234 </span> rest <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *rest-ah +<span id="L235" class="LineNr"> 235 </span> <span class="PreProc">var</span> second-arg-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, left +<span id="L236" class="LineNr"> 236 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"P"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0</span>/bg +<span id="L237" class="LineNr"> 237 </span> increment call-number +<span id="L238" class="LineNr"> 238 </span> <a href='evaluate.mu.html#L5'>evaluate</a> second-arg-ah, _out-ah, env-h, globals, trace, <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, keyboard-cell, call-number +<span id="L239" class="LineNr"> 239 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"Q"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0</span>/bg +<span id="L240" class="LineNr"> 240 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"saving <a href='global.mu.html#L1'>global</a> binding"</span> +<span id="L241" class="LineNr"> 241 </span> <span class="PreProc">var</span> first-arg/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-arg-ah +<span id="L242" class="LineNr"> 242 </span> <span class="PreProc">var</span> first-arg-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get first-arg, text-data +<span id="L243" class="LineNr"> 243 </span> <span class="PreProc">var</span> first-arg-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-arg-data-ah +<span id="L244" class="LineNr"> 244 </span> <span class="PreProc">var</span> tmp-string: (handle array byte) +<span id="L245" class="LineNr"> 245 </span> <span class="PreProc">var</span> tmp-ah/<span class="Constant">edx</span>: (addr handle array byte) <span class="Special"><-</span> address tmp-string +<span id="L246" class="LineNr"> 246 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> first-arg-data +<span id="L247" class="LineNr"> 247 </span> <a href='../310copy-bytes.subx.html#L60'>stream-to-array</a> first-arg-data, tmp-ah +<span id="L248" class="LineNr"> 248 </span> <span class="PreProc">var</span> first-arg-data-string/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *tmp-ah +<span id="L249" class="LineNr"> 249 </span> <span class="PreProc">var</span> out-ah/<span class="Constant">edi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out-ah +<span id="L250" class="LineNr"> 250 </span> <a href='global.mu.html#L326'>assign-or-create-global</a> globals, first-arg-data-string, *out-ah, trace +<span id="L251" class="LineNr"> 251 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L252" class="LineNr"> 252 </span> <span class="PreProc">return</span> +<span id="L253" class="LineNr"> 253 </span> <span class="Delimiter">}</span> +<span id="L254" class="LineNr"> 254 </span> $evaluate:set: <span class="Delimiter">{</span> +<span id="L255" class="LineNr"> 255 </span> <span class="muComment"># trees starting with "set" mutate bindings</span> +<span id="L256" class="LineNr"> 256 </span> <span class="PreProc">var</span> expr/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy in +<span id="L257" class="LineNr"> 257 </span> <span class="muComment"># if its first elem is not "set", break</span> +<span id="L258" class="LineNr"> 258 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in, left +<span id="L259" class="LineNr"> 259 </span> <span class="PreProc">var</span> rest-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in, right +<span id="L260" class="LineNr"> 260 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-ah +<span id="L261" class="LineNr"> 261 </span> <span class="PreProc">var</span> set?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='cell.mu.html#L44'>symbol-equal?</a> first, <span class="Constant">"set"</span> +<span id="L262" class="LineNr"> 262 </span> compare set?, <span class="Constant">0</span>/false +<span id="L263" class="LineNr"> 263 </span> <span class="PreProc">break-if-=</span> +<span id="L264" class="LineNr"> 264 </span> <span class="muComment">#</span> +<span id="L265" class="LineNr"> 265 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"set"</span> +<span id="L266" class="LineNr"> 266 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"evaluating second arg"</span> +<span id="L267" class="LineNr"> 267 </span> <span class="PreProc">var</span> rest/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *rest-ah +<span id="L268" class="LineNr"> 268 </span> <span class="PreProc">var</span> first-arg-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, left +<span id="L269" class="LineNr"> 269 </span> <span class="Delimiter">{</span> +<span id="L270" class="LineNr"> 270 </span> <span class="PreProc">var</span> first-arg/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-arg-ah +<span id="L271" class="LineNr"> 271 </span> <span class="PreProc">var</span> first-arg-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get first-arg, <span class="PreProc">type</span> +<span id="L272" class="LineNr"> 272 </span> compare *first-arg-type, <span class="Constant">2</span>/symbol +<span id="L273" class="LineNr"> 273 </span> <span class="PreProc">break-if-=</span> +<span id="L274" class="LineNr"> 274 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg to set must be a symbol"</span> +<span id="L275" class="LineNr"> 275 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L276" class="LineNr"> 276 </span> <span class="PreProc">return</span> +<span id="L277" class="LineNr"> 277 </span> <span class="Delimiter">}</span> +<span id="L278" class="LineNr"> 278 </span> rest-ah <span class="Special"><-</span> get rest, right +<span id="L279" class="LineNr"> 279 </span> rest <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *rest-ah +<span id="L280" class="LineNr"> 280 </span> <span class="PreProc">var</span> second-arg-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, left +<span id="L281" class="LineNr"> 281 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"P"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0</span>/bg +<span id="L282" class="LineNr"> 282 </span> increment call-number +<span id="L283" class="LineNr"> 283 </span> <a href='evaluate.mu.html#L5'>evaluate</a> second-arg-ah, _out-ah, env-h, globals, trace, <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, keyboard-cell, call-number +<span id="L284" class="LineNr"> 284 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"Q"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0</span>/bg +<span id="L285" class="LineNr"> 285 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"mutating binding"</span> +<span id="L286" class="LineNr"> 286 </span> <span class="PreProc">var</span> first-arg/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-arg-ah +<span id="L287" class="LineNr"> 287 </span> <span class="PreProc">var</span> first-arg-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get first-arg, text-data +<span id="L288" class="LineNr"> 288 </span> <span class="PreProc">var</span> first-arg-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-arg-data-ah +<span id="L289" class="LineNr"> 289 </span> <a href='evaluate.mu.html#L875'>mutate-binding</a> first-arg-data, _out-ah, env-h, globals, trace +<span id="L290" class="LineNr"> 290 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L291" class="LineNr"> 291 </span> <span class="PreProc">return</span> +<span id="L292" class="LineNr"> 292 </span> <span class="Delimiter">}</span> +<span id="L293" class="LineNr"> 293 </span> $evaluate:and: <span class="Delimiter">{</span> +<span id="L294" class="LineNr"> 294 </span> <span class="PreProc">var</span> expr/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy in +<span id="L295" class="LineNr"> 295 </span> <span class="muComment"># if its first elem is not "and", break</span> +<span id="L296" class="LineNr"> 296 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in, left +<span id="L297" class="LineNr"> 297 </span> <span class="PreProc">var</span> rest-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in, right +<span id="L298" class="LineNr"> 298 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-ah +<span id="L299" class="LineNr"> 299 </span> <span class="PreProc">var</span> and?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='cell.mu.html#L44'>symbol-equal?</a> first, <span class="Constant">"and"</span> +<span id="L300" class="LineNr"> 300 </span> compare and?, <span class="Constant">0</span>/false +<span id="L301" class="LineNr"> 301 </span> <span class="PreProc">break-if-=</span> +<span id="L302" class="LineNr"> 302 </span> <span class="muComment">#</span> +<span id="L303" class="LineNr"> 303 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"and"</span> +<span id="L304" class="LineNr"> 304 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"evaluating first arg"</span> +<span id="L305" class="LineNr"> 305 </span> <span class="PreProc">var</span> rest/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *rest-ah +<span id="L306" class="LineNr"> 306 </span> <span class="PreProc">var</span> first-arg-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, left +<span id="L307" class="LineNr"> 307 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"R2"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0</span>/bg +<span id="L308" class="LineNr"> 308 </span> increment call-number +<span id="L309" class="LineNr"> 309 </span> <a href='evaluate.mu.html#L5'>evaluate</a> first-arg-ah, _out-ah, env-h, globals, trace, <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, keyboard-cell, call-number +<span id="L310" class="LineNr"> 310 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"S2"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0</span>/bg +<span id="L311" class="LineNr"> 311 </span> <span class="muComment"># if first arg is nil, short-circuit</span> +<span id="L312" class="LineNr"> 312 </span> <span class="PreProc">var</span> out-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out-ah +<span id="L313" class="LineNr"> 313 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *out-ah +<span id="L314" class="LineNr"> 314 </span> <span class="PreProc">var</span> <a href='print.mu.html#L236'>nil?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> out +<span id="L315" class="LineNr"> 315 </span> compare <a href='print.mu.html#L236'>nil?</a>, <span class="Constant">0</span>/false +<span id="L316" class="LineNr"> 316 </span> <span class="Delimiter">{</span> +<span id="L317" class="LineNr"> 317 </span> <span class="PreProc">break-if-=</span> +<span id="L318" class="LineNr"> 318 </span> <span class="PreProc">return</span> +<span id="L319" class="LineNr"> 319 </span> <span class="Delimiter">}</span> +<span id="L320" class="LineNr"> 320 </span> <span class="PreProc">var</span> rest/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *rest-ah +<span id="L321" class="LineNr"> 321 </span> rest-ah <span class="Special"><-</span> get rest, right +<span id="L322" class="LineNr"> 322 </span> rest <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *rest-ah +<span id="L323" class="LineNr"> 323 </span> <span class="PreProc">var</span> second-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, left +<span id="L324" class="LineNr"> 324 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"T2"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0</span>/bg +<span id="L325" class="LineNr"> 325 </span> increment call-number +<span id="L326" class="LineNr"> 326 </span> <a href='evaluate.mu.html#L5'>evaluate</a> second-ah, _out-ah, env-h, globals, trace, <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, keyboard-cell, call-number +<span id="L327" class="LineNr"> 327 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"U2"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0</span>/bg +<span id="L328" class="LineNr"> 328 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L329" class="LineNr"> 329 </span> <span class="PreProc">return</span> +<span id="L330" class="LineNr"> 330 </span> <span class="Delimiter">}</span> +<span id="L331" class="LineNr"> 331 </span> $evaluate:or: <span class="Delimiter">{</span> +<span id="L332" class="LineNr"> 332 </span> <span class="PreProc">var</span> expr/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy in +<span id="L333" class="LineNr"> 333 </span> <span class="muComment"># if its first elem is not "or", break</span> +<span id="L334" class="LineNr"> 334 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in, left +<span id="L335" class="LineNr"> 335 </span> <span class="PreProc">var</span> rest-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in, right +<span id="L336" class="LineNr"> 336 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-ah +<span id="L337" class="LineNr"> 337 </span> <span class="PreProc">var</span> or?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='cell.mu.html#L44'>symbol-equal?</a> first, <span class="Constant">"or"</span> +<span id="L338" class="LineNr"> 338 </span> compare or?, <span class="Constant">0</span>/false +<span id="L339" class="LineNr"> 339 </span> <span class="PreProc">break-if-=</span> +<span id="L340" class="LineNr"> 340 </span> <span class="muComment">#</span> +<span id="L341" class="LineNr"> 341 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"or"</span> +<span id="L342" class="LineNr"> 342 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"evaluating first arg"</span> +<span id="L343" class="LineNr"> 343 </span> <span class="PreProc">var</span> rest/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *rest-ah +<span id="L344" class="LineNr"> 344 </span> <span class="PreProc">var</span> first-arg-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, left +<span id="L345" class="LineNr"> 345 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"R2"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0</span>/bg +<span id="L346" class="LineNr"> 346 </span> increment call-number +<span id="L347" class="LineNr"> 347 </span> <a href='evaluate.mu.html#L5'>evaluate</a> first-arg-ah, _out-ah, env-h, globals, trace, <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, keyboard-cell, call-number +<span id="L348" class="LineNr"> 348 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"S2"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0</span>/bg +<span id="L349" class="LineNr"> 349 </span> <span class="muComment"># if first arg is not nil, short-circuit</span> +<span id="L350" class="LineNr"> 350 </span> <span class="PreProc">var</span> out-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out-ah +<span id="L351" class="LineNr"> 351 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *out-ah +<span id="L352" class="LineNr"> 352 </span> <span class="PreProc">var</span> <a href='print.mu.html#L236'>nil?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> out +<span id="L353" class="LineNr"> 353 </span> compare <a href='print.mu.html#L236'>nil?</a>, <span class="Constant">0</span>/false +<span id="L354" class="LineNr"> 354 </span> <span class="Delimiter">{</span> +<span id="L355" class="LineNr"> 355 </span> <span class="PreProc">break-if-!=</span> +<span id="L356" class="LineNr"> 356 </span> <span class="PreProc">return</span> +<span id="L357" class="LineNr"> 357 </span> <span class="Delimiter">}</span> +<span id="L358" class="LineNr"> 358 </span> <span class="PreProc">var</span> rest/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *rest-ah +<span id="L359" class="LineNr"> 359 </span> rest-ah <span class="Special"><-</span> get rest, right +<span id="L360" class="LineNr"> 360 </span> rest <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *rest-ah +<span id="L361" class="LineNr"> 361 </span> <span class="PreProc">var</span> second-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, left +<span id="L362" class="LineNr"> 362 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"T2"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0</span>/bg +<span id="L363" class="LineNr"> 363 </span> increment call-number +<span id="L364" class="LineNr"> 364 </span> <a href='evaluate.mu.html#L5'>evaluate</a> second-ah, _out-ah, env-h, globals, trace, <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, keyboard-cell, call-number +<span id="L365" class="LineNr"> 365 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"U2"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0</span>/bg +<span id="L366" class="LineNr"> 366 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L367" class="LineNr"> 367 </span> <span class="PreProc">return</span> +<span id="L368" class="LineNr"> 368 </span> <span class="Delimiter">}</span> +<span id="L369" class="LineNr"> 369 </span> $evaluate:if: <span class="Delimiter">{</span> +<span id="L370" class="LineNr"> 370 </span> <span class="muComment"># trees starting with "if" are conditionals</span> +<span id="L371" class="LineNr"> 371 </span> <span class="PreProc">var</span> expr/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy in +<span id="L372" class="LineNr"> 372 </span> <span class="muComment"># if its first elem is not "if", break</span> +<span id="L373" class="LineNr"> 373 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in, left +<span id="L374" class="LineNr"> 374 </span> <span class="PreProc">var</span> rest-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in, right +<span id="L375" class="LineNr"> 375 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-ah +<span id="L376" class="LineNr"> 376 </span> <span class="PreProc">var</span> if?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='cell.mu.html#L44'>symbol-equal?</a> first, <span class="Constant">"if"</span> +<span id="L377" class="LineNr"> 377 </span> compare if?, <span class="Constant">0</span>/false +<span id="L378" class="LineNr"> 378 </span> <span class="PreProc">break-if-=</span> +<span id="L379" class="LineNr"> 379 </span> <span class="muComment">#</span> +<span id="L380" class="LineNr"> 380 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"if"</span> +<span id="L381" class="LineNr"> 381 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"evaluating first arg"</span> +<span id="L382" class="LineNr"> 382 </span> <span class="PreProc">var</span> rest/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *rest-ah +<span id="L383" class="LineNr"> 383 </span> <span class="PreProc">var</span> first-arg-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, left +<span id="L384" class="LineNr"> 384 </span> <span class="PreProc">var</span> guard-h: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L385" class="LineNr"> 385 </span> <span class="PreProc">var</span> guard-ah/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address guard-h +<span id="L386" class="LineNr"> 386 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"R"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0</span>/bg +<span id="L387" class="LineNr"> 387 </span> increment call-number +<span id="L388" class="LineNr"> 388 </span> <a href='evaluate.mu.html#L5'>evaluate</a> first-arg-ah, guard-ah, env-h, globals, trace, <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, keyboard-cell, call-number +<span id="L389" class="LineNr"> 389 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"S"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0</span>/bg +<span id="L390" class="LineNr"> 390 </span> rest-ah <span class="Special"><-</span> get rest, right +<span id="L391" class="LineNr"> 391 </span> rest <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *rest-ah +<span id="L392" class="LineNr"> 392 </span> <span class="PreProc">var</span> branch-ah/<span class="Constant">edi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, left +<span id="L393" class="LineNr"> 393 </span> <span class="PreProc">var</span> guard-a/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *guard-ah +<span id="L394" class="LineNr"> 394 </span> <span class="PreProc">var</span> skip-to-third-arg?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> guard-a +<span id="L395" class="LineNr"> 395 </span> compare skip-to-third-arg?, <span class="Constant">0</span>/false +<span id="L396" class="LineNr"> 396 </span> <span class="Delimiter">{</span> +<span id="L397" class="LineNr"> 397 </span> <span class="PreProc">break-if-=</span> +<span id="L398" class="LineNr"> 398 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"skipping to third arg"</span> +<span id="L399" class="LineNr"> 399 </span> <span class="PreProc">var</span> rest/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *rest-ah +<span id="L400" class="LineNr"> 400 </span> rest-ah <span class="Special"><-</span> get rest, right +<span id="L401" class="LineNr"> 401 </span> rest <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *rest-ah +<span id="L402" class="LineNr"> 402 </span> branch-ah <span class="Special"><-</span> get rest, left +<span id="L403" class="LineNr"> 403 </span> <span class="Delimiter">}</span> +<span id="L404" class="LineNr"> 404 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"T"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0</span>/bg +<span id="L405" class="LineNr"> 405 </span> increment call-number +<span id="L406" class="LineNr"> 406 </span> <a href='evaluate.mu.html#L5'>evaluate</a> branch-ah, _out-ah, env-h, globals, trace, <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, keyboard-cell, call-number +<span id="L407" class="LineNr"> 407 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"U"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0</span>/bg +<span id="L408" class="LineNr"> 408 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L409" class="LineNr"> 409 </span> <span class="PreProc">return</span> +<span id="L410" class="LineNr"> 410 </span> <span class="Delimiter">}</span> +<span id="L411" class="LineNr"> 411 </span> $evaluate:while: <span class="Delimiter">{</span> +<span id="L412" class="LineNr"> 412 </span> <span class="muComment"># trees starting with "while" are loops</span> +<span id="L413" class="LineNr"> 413 </span> <span class="PreProc">var</span> expr/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy in +<span id="L414" class="LineNr"> 414 </span> <span class="muComment"># if its first elem is not "while", break</span> +<span id="L415" class="LineNr"> 415 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in, left +<span id="L416" class="LineNr"> 416 </span> <span class="PreProc">var</span> rest-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in, right +<span id="L417" class="LineNr"> 417 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-ah +<span id="L418" class="LineNr"> 418 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> +<span id="L419" class="LineNr"> 419 </span> compare *first-type, <span class="Constant">2</span>/symbol <span id="L420" class="LineNr"> 420 </span> <span class="PreProc">break-if-!=</span> -<span id="L421" class="LineNr"> 421 </span> <span class="muComment"># eval left</span> -<span id="L422" class="LineNr"> 422 </span> <span class="PreProc">var</span> curr-out/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *curr-out-ah -<span id="L423" class="LineNr"> 423 </span> <span class="PreProc">var</span> left-out-ah/<span class="Constant">edi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get curr-out, left -<span id="L424" class="LineNr"> 424 </span> <span class="PreProc">var</span> left-ah/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get curr, left -<span id="L425" class="LineNr"> 425 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"A"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L426" class="LineNr"> 426 </span> increment call-number -<span id="L427" class="LineNr"> 427 </span> <a href='evaluate.mu.html#L5'>evaluate</a> left-ah, left-out-ah, env-h, globals, trace, <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, keyboard-cell, call-number -<span id="L428" class="LineNr"> 428 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"B"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L429" class="LineNr"> 429 </span> <span class="muComment">#</span> -<span id="L430" class="LineNr"> 430 </span> curr-out-ah <span class="Special"><-</span> get curr-out, right -<span id="L431" class="LineNr"> 431 </span> <span class="PreProc">var</span> right-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get curr, right -<span id="L432" class="LineNr"> 432 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *right-ah -<span id="L433" class="LineNr"> 433 </span> curr <span class="Special"><-</span> copy right -<span id="L434" class="LineNr"> 434 </span> <span class="PreProc">loop</span> -<span id="L435" class="LineNr"> 435 </span> <span class="Delimiter">}</span> -<span id="L436" class="LineNr"> 436 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L437" class="LineNr"> 437 </span> <span class="PreProc">var</span> evaluated-list/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *evaluated-list-ah -<span id="L438" class="LineNr"> 438 </span> <span class="PreProc">var</span> function-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get evaluated-list, left -<span id="L439" class="LineNr"> 439 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get evaluated-list, right -<span id="L440" class="LineNr"> 440 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"C"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L441" class="LineNr"> 441 </span> <a href='evaluate.mu.html#L458'>apply</a> function-ah, args-ah, out, globals, trace, <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, keyboard-cell, call-number -<span id="L442" class="LineNr"> 442 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"Y"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L443" class="LineNr"> 443 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L444" class="Folded"> 444 </span><span class="Folded">+-- 11 lines: # trace "=> " out ---------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L455" class="LineNr"> 455 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"Z"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L456" class="LineNr"> 456 </span><span class="Delimiter">}</span> -<span id="L457" class="LineNr"> 457 </span> -<span id="L458" class="LineNr"> 458 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='evaluate.mu.html#L458'>apply</a></span> _f-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), globals: (addr <a href='global.mu.html#L7'>global-table</a>), trace: (addr trace), <a href='../500fake-screen.mu.html#L25'>screen-cell</a>: (addr handle <a href='cell.mu.html#L1'>cell</a>), keyboard-cell: (addr handle <a href='cell.mu.html#L1'>cell</a>), call-number: int <span class="Delimiter">{</span> -<span id="L459" class="LineNr"> 459 </span> <span class="PreProc">var</span> f-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _f-ah -<span id="L460" class="LineNr"> 460 </span> <span class="PreProc">var</span> _f/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *f-ah -<span id="L461" class="LineNr"> 461 </span> <span class="PreProc">var</span> f/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _f -<span id="L462" class="LineNr"> 462 </span> <span class="muComment"># call primitive functions</span> -<span id="L463" class="LineNr"> 463 </span> <span class="Delimiter">{</span> -<span id="L464" class="LineNr"> 464 </span> <span class="PreProc">var</span> f-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get f, <span class="PreProc">type</span> -<span id="L465" class="LineNr"> 465 </span> compare *f-type, <span class="Constant">4</span>/primitive-function -<span id="L466" class="LineNr"> 466 </span> <span class="PreProc">break-if-!=</span> -<span id="L467" class="LineNr"> 467 </span> <a href='global.mu.html#L444'>apply-primitive</a> f, args-ah, out, globals, trace -<span id="L468" class="LineNr"> 468 </span> <span class="PreProc">return</span> -<span id="L469" class="LineNr"> 469 </span> <span class="Delimiter">}</span> -<span id="L470" class="LineNr"> 470 </span> <span class="muComment"># if it's not a primitive function it must be an anonymous function</span> -<span id="L471" class="Folded"> 471 </span><span class="Folded">+-- 14 lines: # trace "apply anonymous function " f " in environment " env --------------------------------------------------------------------------------------------------------------</span> -<span id="L485" class="LineNr"> 485 </span> <a href='trace.mu.html#L147'>trace-lower</a> trace -<span id="L486" class="LineNr"> 486 </span> <span class="Delimiter">{</span> -<span id="L487" class="LineNr"> 487 </span> <span class="PreProc">var</span> f-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get f, <span class="PreProc">type</span> -<span id="L488" class="LineNr"> 488 </span> compare *f-type, <span class="Constant">0</span>/pair -<span id="L489" class="LineNr"> 489 </span> <span class="PreProc">break-if-!=</span> -<span id="L490" class="LineNr"> 490 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get f, left -<span id="L491" class="LineNr"> 491 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-ah -<span id="L492" class="LineNr"> 492 </span> <span class="PreProc">var</span> <a href='evaluate.mu.html#L1103'>fn?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='evaluate.mu.html#L1103'>fn?</a> first -<span id="L493" class="LineNr"> 493 </span> compare <a href='evaluate.mu.html#L1103'>fn?</a>, <span class="Constant">0</span>/false -<span id="L494" class="LineNr"> 494 </span> <span class="PreProc">break-if-=</span> -<span id="L495" class="LineNr"> 495 </span> <span class="PreProc">var</span> rest-ah/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get f, right -<span id="L496" class="LineNr"> 496 </span> <span class="PreProc">var</span> rest/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *rest-ah -<span id="L497" class="LineNr"> 497 </span> <span class="PreProc">var</span> callee-env-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, left -<span id="L498" class="LineNr"> 498 </span> rest-ah <span class="Special"><-</span> get rest, right -<span id="L499" class="LineNr"> 499 </span> rest <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *rest-ah -<span id="L500" class="LineNr"> 500 </span> <span class="PreProc">var</span> params-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, left -<span id="L501" class="LineNr"> 501 </span> <span class="PreProc">var</span> body-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, right -<span id="L502" class="LineNr"> 502 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"D"</span>, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L503" class="LineNr"> 503 </span> <a href='evaluate.mu.html#L511'>apply-function</a> params-ah, args-ah, body-ah, out, *callee-env-ah, globals, trace, <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, keyboard-cell, call-number -<span id="L504" class="LineNr"> 504 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"Y"</span>, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L505" class="LineNr"> 505 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L506" class="LineNr"> 506 </span> <span class="PreProc">return</span> -<span id="L507" class="LineNr"> 507 </span> <span class="Delimiter">}</span> -<span id="L508" class="LineNr"> 508 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"unknown function"</span> -<span id="L509" class="LineNr"> 509 </span><span class="Delimiter">}</span> -<span id="L510" class="LineNr"> 510 </span> -<span id="L511" class="LineNr"> 511 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='evaluate.mu.html#L511'>apply-function</a></span> params-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), body-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), env-h: (handle <a href='cell.mu.html#L1'>cell</a>), globals: (addr <a href='global.mu.html#L7'>global-table</a>), trace: (addr trace), <a href='../500fake-screen.mu.html#L25'>screen-cell</a>: (addr handle <a href='cell.mu.html#L1'>cell</a>), keyboard-cell: (addr handle <a href='cell.mu.html#L1'>cell</a>), call-number: int <span class="Delimiter">{</span> -<span id="L512" class="LineNr"> 512 </span> <span class="muComment"># push bindings for params to env</span> -<span id="L513" class="LineNr"> 513 </span> <span class="PreProc">var</span> new-env-h: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L514" class="LineNr"> 514 </span> <span class="PreProc">var</span> new-env-ah/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address new-env-h -<span id="L515" class="LineNr"> 515 </span> <a href='evaluate.mu.html#L557'>push-bindings</a> params-ah, args-ah, env-h, new-env-ah, trace -<span id="L516" class="LineNr"> 516 </span> <span class="muComment">#</span> -<span id="L517" class="LineNr"> 517 </span> <a href='evaluate.mu.html#L520'>evaluate-exprs</a> body-ah, out, new-env-h, globals, trace, <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, keyboard-cell, call-number -<span id="L518" class="LineNr"> 518 </span><span class="Delimiter">}</span> -<span id="L519" class="LineNr"> 519 </span> -<span id="L520" class="LineNr"> 520 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='evaluate.mu.html#L520'>evaluate-exprs</a></span> _exprs-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), env-h: (handle <a href='cell.mu.html#L1'>cell</a>), globals: (addr <a href='global.mu.html#L7'>global-table</a>), trace: (addr trace), <a href='../500fake-screen.mu.html#L25'>screen-cell</a>: (addr handle <a href='cell.mu.html#L1'>cell</a>), keyboard-cell: (addr handle <a href='cell.mu.html#L1'>cell</a>), call-number: int <span class="Delimiter">{</span> -<span id="L521" class="LineNr"> 521 </span> <span class="muComment"># eval all exprs, writing result to `out` each time</span> -<span id="L522" class="LineNr"> 522 </span> <span class="PreProc">var</span> exprs-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _exprs-ah -<span id="L523" class="LineNr"> 523 </span> $evaluate-exprs:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> -<span id="L524" class="LineNr"> 524 </span> <span class="PreProc">var</span> exprs/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *exprs-ah -<span id="L525" class="LineNr"> 525 </span> <span class="muComment"># stop when exprs is nil</span> -<span id="L526" class="LineNr"> 526 </span> <span class="Delimiter">{</span> -<span id="L527" class="LineNr"> 527 </span> <span class="PreProc">var</span> exprs-nil?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> exprs -<span id="L528" class="LineNr"> 528 </span> compare exprs-nil?, <span class="Constant">0</span>/false -<span id="L529" class="LineNr"> 529 </span> <span class="PreProc">break-if-!=</span> $evaluate-exprs:<span class="PreProc">loop</span> -<span id="L530" class="LineNr"> 530 </span> <span class="Delimiter">}</span> -<span id="L531" class="LineNr"> 531 </span> <span class="muComment"># evaluate each expression, writing result to `out`</span> -<span id="L532" class="LineNr"> 532 </span> <span class="Delimiter">{</span> -<span id="L533" class="LineNr"> 533 </span> <span class="PreProc">var</span> curr-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get exprs, left -<span id="L534" class="LineNr"> 534 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"E"</span>, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L535" class="LineNr"> 535 </span> increment call-number -<span id="L536" class="LineNr"> 536 </span> <a href='evaluate.mu.html#L5'>evaluate</a> curr-ah, out, env-h, globals, trace, <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, keyboard-cell, call-number -<span id="L537" class="LineNr"> 537 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"X"</span>, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L538" class="LineNr"> 538 </span> <span class="Delimiter">}</span> -<span id="L539" class="LineNr"> 539 </span> <span class="muComment">#</span> -<span id="L540" class="LineNr"> 540 </span> exprs-ah <span class="Special"><-</span> get exprs, right -<span id="L541" class="LineNr"> 541 </span> <span class="PreProc">loop</span> -<span id="L542" class="LineNr"> 542 </span> <span class="Delimiter">}</span> -<span id="L543" class="LineNr"> 543 </span> <span class="muComment"># `out` contains result of evaluating final expression</span> -<span id="L544" class="LineNr"> 544 </span><span class="Delimiter">}</span> -<span id="L545" class="LineNr"> 545 </span> -<span id="L546" class="LineNr"> 546 </span><span class="muComment"># Bind params to corresponding args and add the bindings to old-env. Return</span> -<span id="L547" class="LineNr"> 547 </span><span class="muComment"># the result in env-ah.</span> -<span id="L548" class="LineNr"> 548 </span><span class="muComment">#</span> -<span id="L549" class="LineNr"> 549 </span><span class="muComment"># We never modify old-env, but we point to it. This way other parts of the</span> -<span id="L550" class="LineNr"> 550 </span><span class="muComment"># interpreter can continue using old-env, and everything works harmoniously</span> -<span id="L551" class="LineNr"> 551 </span><span class="muComment"># even though no cells are copied around.</span> -<span id="L552" class="LineNr"> 552 </span><span class="muComment">#</span> -<span id="L553" class="LineNr"> 553 </span><span class="muComment"># env should always be a DAG (ignoring internals of values). It doesn't have</span> -<span id="L554" class="LineNr"> 554 </span><span class="muComment"># to be a tree (some values may be shared), but there are also no cycles.</span> -<span id="L555" class="LineNr"> 555 </span><span class="muComment">#</span> -<span id="L556" class="LineNr"> 556 </span><span class="muComment"># Learn more: <a href="https://en.wikipedia.org/wiki/Persistent_data_structure">https://en.wikipedia.org/wiki/Persistent_data_structure</a></span> -<span id="L557" class="LineNr"> 557 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='evaluate.mu.html#L557'>push-bindings</a></span> _params-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), old-env-h: (handle <a href='cell.mu.html#L1'>cell</a>), env-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L558" class="LineNr"> 558 </span> <span class="PreProc">var</span> params-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _params-ah -<span id="L559" class="LineNr"> 559 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">ebx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah -<span id="L560" class="LineNr"> 560 </span> <span class="PreProc">var</span> _params/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *params-ah -<span id="L561" class="LineNr"> 561 </span> <span class="PreProc">var</span> params/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _params -<span id="L562" class="LineNr"> 562 </span> <span class="Delimiter">{</span> -<span id="L563" class="LineNr"> 563 </span> <span class="PreProc">var</span> params-nil?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> params -<span id="L564" class="LineNr"> 564 </span> compare params-nil?, <span class="Constant">0</span>/false -<span id="L565" class="LineNr"> 565 </span> <span class="PreProc">break-if-=</span> -<span id="L566" class="LineNr"> 566 </span> <span class="muComment"># nil is a literal</span> -<span id="L567" class="LineNr"> 567 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"done with push-bindings"</span> -<span id="L568" class="LineNr"> 568 </span> <a href='../120allocate.subx.html#L455'>copy-handle</a> old-env-h, env-ah -<span id="L569" class="LineNr"> 569 </span> <span class="PreProc">return</span> -<span id="L570" class="LineNr"> 570 </span> <span class="Delimiter">}</span> -<span id="L571" class="LineNr"> 571 </span> <span class="muComment"># Params can only be symbols or pairs. Args can be anything.</span> -<span id="L572" class="Folded"> 572 </span><span class="Folded">+-- 16 lines: # trace "pushing bindings from " params " to " args -----------------------------------------------------------------------------------------------------------------------</span> -<span id="L588" class="LineNr"> 588 </span> <a href='trace.mu.html#L147'>trace-lower</a> trace -<span id="L589" class="LineNr"> 589 </span> <span class="PreProc">var</span> params-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get params, <span class="PreProc">type</span> -<span id="L590" class="LineNr"> 590 </span> compare *params-type, <span class="Constant">2</span>/symbol -<span id="L591" class="LineNr"> 591 </span> <span class="Delimiter">{</span> -<span id="L592" class="LineNr"> 592 </span> <span class="PreProc">break-if-!=</span> -<span id="L593" class="LineNr"> 593 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"symbol; binding to all remaining args"</span> -<span id="L594" class="LineNr"> 594 </span> <span class="muComment"># create a new binding</span> -<span id="L595" class="LineNr"> 595 </span> <span class="PreProc">var</span> new-binding-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L596" class="LineNr"> 596 </span> <span class="PreProc">var</span> new-binding-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address new-binding-storage -<span id="L597" class="LineNr"> 597 </span> <a href='cell.mu.html#L115'>new-pair</a> new-binding-ah, *params-ah, *args-ah -<span id="L598" class="LineNr"> 598 </span> <span class="muComment"># push it to env</span> -<span id="L599" class="LineNr"> 599 </span> <a href='cell.mu.html#L115'>new-pair</a> env-ah, *new-binding-ah, old-env-h -<span id="L600" class="LineNr"> 600 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L601" class="LineNr"> 601 </span> <span class="PreProc">return</span> -<span id="L602" class="LineNr"> 602 </span> <span class="Delimiter">}</span> -<span id="L603" class="LineNr"> 603 </span> compare *params-type, <span class="Constant">0</span>/pair -<span id="L604" class="LineNr"> 604 </span> <span class="Delimiter">{</span> -<span id="L605" class="LineNr"> 605 </span> <span class="PreProc">break-if-=</span> -<span id="L606" class="LineNr"> 606 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"cannot bind a non-symbol"</span> -<span id="L607" class="LineNr"> 607 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L608" class="LineNr"> 608 </span> <span class="PreProc">return</span> -<span id="L609" class="LineNr"> 609 </span> <span class="Delimiter">}</span> -<span id="L610" class="LineNr"> 610 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *args-ah -<span id="L611" class="LineNr"> 611 </span> <span class="PreProc">var</span> args/<span class="Constant">edi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args -<span id="L612" class="LineNr"> 612 </span> <span class="muComment"># params is now a pair, so args must be also</span> -<span id="L613" class="LineNr"> 613 </span> <span class="PreProc">var</span> args-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get args, <span class="PreProc">type</span> -<span id="L614" class="LineNr"> 614 </span> compare *args-type, <span class="Constant">0</span>/pair -<span id="L615" class="LineNr"> 615 </span> <span class="Delimiter">{</span> -<span id="L616" class="LineNr"> 616 </span> <span class="PreProc">break-if-=</span> -<span id="L617" class="LineNr"> 617 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"args not in a proper list"</span> -<span id="L618" class="LineNr"> 618 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L619" class="LineNr"> 619 </span> <span class="PreProc">return</span> -<span id="L620" class="LineNr"> 620 </span> <span class="Delimiter">}</span> -<span id="L621" class="LineNr"> 621 </span> <span class="PreProc">var</span> intermediate-env-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L622" class="LineNr"> 622 </span> <span class="PreProc">var</span> intermediate-env-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address intermediate-env-storage -<span id="L623" class="LineNr"> 623 </span> <span class="PreProc">var</span> first-param-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get params, left -<span id="L624" class="LineNr"> 624 </span> <span class="PreProc">var</span> first-arg-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left -<span id="L625" class="LineNr"> 625 </span> <a href='evaluate.mu.html#L557'>push-bindings</a> first-param-ah, first-arg-ah, old-env-h, intermediate-env-ah, trace -<span id="L626" class="LineNr"> 626 </span> <span class="PreProc">var</span> remaining-params-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get params, right -<span id="L627" class="LineNr"> 627 </span> <span class="PreProc">var</span> remaining-args-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, right -<span id="L628" class="LineNr"> 628 </span> <a href='evaluate.mu.html#L557'>push-bindings</a> remaining-params-ah, remaining-args-ah, *intermediate-env-ah, env-ah, trace -<span id="L629" class="LineNr"> 629 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L630" class="LineNr"> 630 </span><span class="Delimiter">}</span> -<span id="L631" class="LineNr"> 631 </span> -<span id="L632" class="LineNr"> 632 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='evaluate.mu.html#L632'>lookup-symbol</a></span> sym: (addr <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), env-h: (handle <a href='cell.mu.html#L1'>cell</a>), globals: (addr <a href='global.mu.html#L7'>global-table</a>), trace: (addr trace), <a href='../500fake-screen.mu.html#L25'>screen-cell</a>: (addr handle <a href='cell.mu.html#L1'>cell</a>), keyboard-cell: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Delimiter">{</span> -<span id="L633" class="LineNr"> 633 </span> <span class="muComment"># trace sym</span> -<span id="L634" class="LineNr"> 634 </span> <span class="Delimiter">{</span> -<span id="L635" class="LineNr"> 635 </span> compare trace, <span class="Constant">0</span> -<span id="L636" class="LineNr"> 636 </span> <span class="PreProc">break-if-=</span> -<span id="L637" class="LineNr"> 637 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x800</span>) <span class="muComment"># pessimistically sized just for the large alist loaded from disk in `main`</span> -<span id="L638" class="LineNr"> 638 </span> <span class="PreProc">var</span> stream/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage -<span id="L639" class="LineNr"> 639 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"look up "</span> -<span id="L640" class="LineNr"> 640 </span> <span class="PreProc">var</span> sym2/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy sym -<span id="L641" class="LineNr"> 641 </span> <span class="PreProc">var</span> sym-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get sym2, text-data -<span id="L642" class="LineNr"> 642 </span> <span class="PreProc">var</span> sym-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *sym-data-ah -<span id="L643" class="LineNr"> 643 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> sym-data -<span id="L644" class="LineNr"> 644 </span> <a href='../113write-stream.subx.html#L8'>write-stream</a> stream, sym-data -<span id="L645" class="LineNr"> 645 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">" in "</span> -<span id="L646" class="LineNr"> 646 </span> <span class="PreProc">var</span> env-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address env-h -<span id="L647" class="LineNr"> 647 </span> <a href='print.mu.html#L1'>print-cell</a> env-ah, stream, <span class="Constant">0</span>/no-trace -<span id="L648" class="LineNr"> 648 </span> trace trace, <span class="Constant">"eval"</span>, stream -<span id="L649" class="LineNr"> 649 </span> <span class="Delimiter">}</span> -<span id="L650" class="LineNr"> 650 </span> <a href='trace.mu.html#L147'>trace-lower</a> trace -<span id="L651" class="LineNr"> 651 </span> <span class="PreProc">var</span> _env/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> env-h -<span id="L652" class="LineNr"> 652 </span> <span class="PreProc">var</span> env/<span class="Constant">ebx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _env -<span id="L653" class="LineNr"> 653 </span> <span class="muComment"># if env is not a list, abort</span> -<span id="L654" class="LineNr"> 654 </span> <span class="Delimiter">{</span> -<span id="L655" class="LineNr"> 655 </span> <span class="PreProc">var</span> env-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get env, <span class="PreProc">type</span> -<span id="L656" class="LineNr"> 656 </span> compare *env-type, <span class="Constant">0</span>/pair -<span id="L657" class="LineNr"> 657 </span> <span class="PreProc">break-if-=</span> -<span id="L658" class="LineNr"> 658 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"eval found a non-list environment"</span> +<span id="L421" class="LineNr"> 421 </span> <span class="PreProc">var</span> sym-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get first, text-data +<span id="L422" class="LineNr"> 422 </span> <span class="PreProc">var</span> sym-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *sym-data-ah +<span id="L423" class="LineNr"> 423 </span> <span class="PreProc">var</span> while?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> sym-data, <span class="Constant">"while"</span> +<span id="L424" class="LineNr"> 424 </span> compare while?, <span class="Constant">0</span>/false +<span id="L425" class="LineNr"> 425 </span> <span class="PreProc">break-if-=</span> +<span id="L426" class="LineNr"> 426 </span> <span class="muComment">#</span> +<span id="L427" class="LineNr"> 427 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"while"</span> +<span id="L428" class="LineNr"> 428 </span> <span class="PreProc">var</span> rest/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *rest-ah +<span id="L429" class="LineNr"> 429 </span> <span class="PreProc">var</span> first-arg-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, left +<span id="L430" class="LineNr"> 430 </span> rest-ah <span class="Special"><-</span> get rest, right +<span id="L431" class="LineNr"> 431 </span> <span class="PreProc">var</span> guard-h: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L432" class="LineNr"> 432 </span> <span class="PreProc">var</span> guard-ah/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address guard-h +<span id="L433" class="LineNr"> 433 </span> $evaluate:while:loop-execution: <span class="Delimiter">{</span> +<span id="L434" class="LineNr"> 434 </span> <span class="Delimiter">{</span> +<span id="L435" class="LineNr"> 435 </span> compare trace, <span class="Constant">0</span> +<span id="L436" class="LineNr"> 436 </span> <span class="PreProc">break-if-=</span> +<span id="L437" class="LineNr"> 437 </span> <span class="PreProc">var</span> error?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='trace.mu.html#L54'>has-errors?</a> trace +<span id="L438" class="LineNr"> 438 </span> compare error?, <span class="Constant">0</span>/false +<span id="L439" class="LineNr"> 439 </span> <span class="PreProc">break-if-!=</span> $evaluate:while:loop-execution +<span id="L440" class="LineNr"> 440 </span> <span class="Delimiter">}</span> +<span id="L441" class="LineNr"> 441 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"loop termination check"</span> +<span id="L442" class="LineNr"> 442 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"V"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0</span>/bg +<span id="L443" class="LineNr"> 443 </span> increment call-number +<span id="L444" class="LineNr"> 444 </span> <a href='evaluate.mu.html#L5'>evaluate</a> first-arg-ah, guard-ah, env-h, globals, trace, <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, keyboard-cell, call-number +<span id="L445" class="LineNr"> 445 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"W"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0</span>/bg +<span id="L446" class="LineNr"> 446 </span> <span class="PreProc">var</span> guard-a/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *guard-ah +<span id="L447" class="LineNr"> 447 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> guard-a +<span id="L448" class="LineNr"> 448 </span> compare done?, <span class="Constant">0</span>/false +<span id="L449" class="LineNr"> 449 </span> <span class="PreProc">break-if-!=</span> +<span id="L450" class="LineNr"> 450 </span> <a href='evaluate.mu.html#L579'>evaluate-exprs</a> rest-ah, _out-ah, env-h, globals, trace, <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, keyboard-cell, call-number +<span id="L451" class="LineNr"> 451 </span> <span class="PreProc">loop</span> +<span id="L452" class="LineNr"> 452 </span> <span class="Delimiter">}</span> +<span id="L453" class="LineNr"> 453 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"loop terminated"</span> +<span id="L454" class="LineNr"> 454 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L455" class="LineNr"> 455 </span> <span class="PreProc">return</span> +<span id="L456" class="LineNr"> 456 </span> <span class="Delimiter">}</span> +<span id="L457" class="LineNr"> 457 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"function call"</span> +<span id="L458" class="LineNr"> 458 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"evaluating list elements"</span> +<span id="L459" class="LineNr"> 459 </span> <a href='trace.mu.html#L147'>trace-lower</a> trace +<span id="L460" class="LineNr"> 460 </span> <span class="PreProc">var</span> evaluated-list-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L461" class="LineNr"> 461 </span> <span class="PreProc">var</span> evaluated-list-ah/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address evaluated-list-storage +<span id="L462" class="LineNr"> 462 </span> <span class="PreProc">var</span> curr-out-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy evaluated-list-ah +<span id="L463" class="LineNr"> 463 </span> <span class="PreProc">var</span> curr/<span class="Constant">ecx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy in +<span id="L464" class="LineNr"> 464 </span> $evaluate-list:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> +<span id="L465" class="LineNr"> 465 </span> <a href='cell.mu.html#L102'>allocate-pair</a> curr-out-ah +<span id="L466" class="LineNr"> 466 </span> <span class="PreProc">var</span> <a href='print.mu.html#L236'>nil?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> curr +<span id="L467" class="LineNr"> 467 </span> compare <a href='print.mu.html#L236'>nil?</a>, <span class="Constant">0</span>/false +<span id="L468" class="LineNr"> 468 </span> <span class="PreProc">break-if-!=</span> +<span id="L469" class="LineNr"> 469 </span> <span class="muComment"># eval left</span> +<span id="L470" class="LineNr"> 470 </span> <span class="PreProc">var</span> curr-out/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *curr-out-ah +<span id="L471" class="LineNr"> 471 </span> <span class="PreProc">var</span> left-out-ah/<span class="Constant">edi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get curr-out, left +<span id="L472" class="LineNr"> 472 </span> <span class="PreProc">var</span> left-ah/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get curr, left +<span id="L473" class="LineNr"> 473 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"A"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0</span>/bg +<span id="L474" class="LineNr"> 474 </span> increment call-number +<span id="L475" class="LineNr"> 475 </span> <a href='evaluate.mu.html#L5'>evaluate</a> left-ah, left-out-ah, env-h, globals, trace, <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, keyboard-cell, call-number +<span id="L476" class="LineNr"> 476 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"B"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0</span>/bg +<span id="L477" class="LineNr"> 477 </span> <span class="muComment"># a trip wire in case we're running without a trace (e.g. when loading the initial state from disk)</span> +<span id="L478" class="LineNr"> 478 </span> <span class="Delimiter">{</span> +<span id="L479" class="LineNr"> 479 </span> compare trace, <span class="Constant">0</span> +<span id="L480" class="LineNr"> 480 </span> <span class="PreProc">break-if-!=</span> +<span id="L481" class="LineNr"> 481 </span> <span class="PreProc">var</span> left-out/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *left-out-ah +<span id="L482" class="LineNr"> 482 </span> compare left-out, <span class="Constant">0</span> +<span id="L483" class="LineNr"> 483 </span> <span class="Delimiter">{</span> +<span id="L484" class="LineNr"> 484 </span> <span class="PreProc">break-if-!=</span> +<span id="L485" class="LineNr"> 485 </span> <a href='../317abort.subx.html#L5'>abort</a> <span class="Constant">"there was some <a href='trace.mu.html#L129'>error</a> (likely in syntax): eval-list"</span> +<span id="L486" class="LineNr"> 486 </span> <span class="Delimiter">}</span> +<span id="L487" class="LineNr"> 487 </span> <span class="Delimiter">}</span> +<span id="L488" class="LineNr"> 488 </span> <span class="muComment">#</span> +<span id="L489" class="LineNr"> 489 </span> curr-out-ah <span class="Special"><-</span> get curr-out, right +<span id="L490" class="LineNr"> 490 </span> <span class="PreProc">var</span> right-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get curr, right +<span id="L491" class="LineNr"> 491 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *right-ah +<span id="L492" class="LineNr"> 492 </span> curr <span class="Special"><-</span> copy right +<span id="L493" class="LineNr"> 493 </span> <span class="PreProc">loop</span> +<span id="L494" class="LineNr"> 494 </span> <span class="Delimiter">}</span> +<span id="L495" class="LineNr"> 495 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L496" class="LineNr"> 496 </span> <span class="PreProc">var</span> evaluated-list/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *evaluated-list-ah +<span id="L497" class="LineNr"> 497 </span> <span class="PreProc">var</span> function-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get evaluated-list, left +<span id="L498" class="LineNr"> 498 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get evaluated-list, right +<span id="L499" class="LineNr"> 499 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"C"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0</span>/bg +<span id="L500" class="LineNr"> 500 </span> <a href='evaluate.mu.html#L517'>apply</a> function-ah, args-ah, _out-ah, globals, trace, <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, keyboard-cell, call-number +<span id="L501" class="LineNr"> 501 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"Y"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0</span>/bg +<span id="L502" class="LineNr"> 502 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L503" class="Folded"> 503 </span><span class="Folded">+-- 11 lines: # trace "=> " _out-ah -----------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L514" class="LineNr"> 514 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"Z"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0</span>/bg +<span id="L515" class="LineNr"> 515 </span><span class="Delimiter">}</span> +<span id="L516" class="LineNr"> 516 </span> +<span id="L517" class="LineNr"> 517 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='evaluate.mu.html#L517'>apply</a></span> _f-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), globals: (addr <a href='global.mu.html#L7'>global-table</a>), trace: (addr trace), <a href='../500fake-screen.mu.html#L25'>screen-cell</a>: (addr handle <a href='cell.mu.html#L1'>cell</a>), keyboard-cell: (addr handle <a href='cell.mu.html#L1'>cell</a>), call-number: int <span class="Delimiter">{</span> +<span id="L518" class="LineNr"> 518 </span> <span class="PreProc">var</span> f-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _f-ah +<span id="L519" class="LineNr"> 519 </span> <span class="PreProc">var</span> _f/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *f-ah +<span id="L520" class="LineNr"> 520 </span> <span class="PreProc">var</span> f/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _f +<span id="L521" class="LineNr"> 521 </span> <span class="muComment"># call primitive functions</span> +<span id="L522" class="LineNr"> 522 </span> <span class="Delimiter">{</span> +<span id="L523" class="LineNr"> 523 </span> <span class="PreProc">var</span> f-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get f, <span class="PreProc">type</span> +<span id="L524" class="LineNr"> 524 </span> compare *f-type, <span class="Constant">4</span>/primitive-function +<span id="L525" class="LineNr"> 525 </span> <span class="PreProc">break-if-!=</span> +<span id="L526" class="LineNr"> 526 </span> <a href='global.mu.html#L513'>apply-primitive</a> f, args-ah, out, globals, trace +<span id="L527" class="LineNr"> 527 </span> <span class="PreProc">return</span> +<span id="L528" class="LineNr"> 528 </span> <span class="Delimiter">}</span> +<span id="L529" class="LineNr"> 529 </span> <span class="muComment"># if it's not a primitive function it must be an anonymous function</span> +<span id="L530" class="Folded"> 530 </span><span class="Folded">+-- 14 lines: # trace "apply anonymous function " f " in environment " env --------------------------------------------------------------------------------------------------------------</span> +<span id="L544" class="LineNr"> 544 </span> <a href='trace.mu.html#L147'>trace-lower</a> trace +<span id="L545" class="LineNr"> 545 </span> <span class="Delimiter">{</span> +<span id="L546" class="LineNr"> 546 </span> <span class="PreProc">var</span> f-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get f, <span class="PreProc">type</span> +<span id="L547" class="LineNr"> 547 </span> compare *f-type, <span class="Constant">0</span>/pair +<span id="L548" class="LineNr"> 548 </span> <span class="PreProc">break-if-!=</span> +<span id="L549" class="LineNr"> 549 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get f, left +<span id="L550" class="LineNr"> 550 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-ah +<span id="L551" class="LineNr"> 551 </span> <span class="PreProc">var</span> <a href='evaluate.mu.html#L1221'>litfn?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='evaluate.mu.html#L1221'>litfn?</a> first +<span id="L552" class="LineNr"> 552 </span> compare <a href='evaluate.mu.html#L1221'>litfn?</a>, <span class="Constant">0</span>/false +<span id="L553" class="LineNr"> 553 </span> <span class="PreProc">break-if-=</span> +<span id="L554" class="LineNr"> 554 </span> <span class="PreProc">var</span> rest-ah/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get f, right +<span id="L555" class="LineNr"> 555 </span> <span class="PreProc">var</span> rest/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *rest-ah +<span id="L556" class="LineNr"> 556 </span> <span class="PreProc">var</span> callee-env-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, left +<span id="L557" class="LineNr"> 557 </span> rest-ah <span class="Special"><-</span> get rest, right +<span id="L558" class="LineNr"> 558 </span> rest <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *rest-ah +<span id="L559" class="LineNr"> 559 </span> <span class="PreProc">var</span> params-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, left +<span id="L560" class="LineNr"> 560 </span> <span class="PreProc">var</span> body-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, right +<span id="L561" class="LineNr"> 561 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"D"</span>, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg +<span id="L562" class="LineNr"> 562 </span> <a href='evaluate.mu.html#L570'>apply-function</a> params-ah, args-ah, body-ah, out, *callee-env-ah, globals, trace, <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, keyboard-cell, call-number +<span id="L563" class="LineNr"> 563 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"Y"</span>, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg +<span id="L564" class="LineNr"> 564 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L565" class="LineNr"> 565 </span> <span class="PreProc">return</span> +<span id="L566" class="LineNr"> 566 </span> <span class="Delimiter">}</span> +<span id="L567" class="LineNr"> 567 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"unknown function"</span> +<span id="L568" class="LineNr"> 568 </span><span class="Delimiter">}</span> +<span id="L569" class="LineNr"> 569 </span> +<span id="L570" class="LineNr"> 570 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='evaluate.mu.html#L570'>apply-function</a></span> params-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), body-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), env-h: (handle <a href='cell.mu.html#L1'>cell</a>), globals: (addr <a href='global.mu.html#L7'>global-table</a>), trace: (addr trace), <a href='../500fake-screen.mu.html#L25'>screen-cell</a>: (addr handle <a href='cell.mu.html#L1'>cell</a>), keyboard-cell: (addr handle <a href='cell.mu.html#L1'>cell</a>), call-number: int <span class="Delimiter">{</span> +<span id="L571" class="LineNr"> 571 </span> <span class="muComment"># push bindings for params to env</span> +<span id="L572" class="LineNr"> 572 </span> <span class="PreProc">var</span> new-env-h: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L573" class="LineNr"> 573 </span> <span class="PreProc">var</span> new-env-ah/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address new-env-h +<span id="L574" class="LineNr"> 574 </span> <a href='evaluate.mu.html#L616'>push-bindings</a> params-ah, args-ah, env-h, new-env-ah, trace +<span id="L575" class="LineNr"> 575 </span> <span class="muComment">#</span> +<span id="L576" class="LineNr"> 576 </span> <a href='evaluate.mu.html#L579'>evaluate-exprs</a> body-ah, out, new-env-h, globals, trace, <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, keyboard-cell, call-number +<span id="L577" class="LineNr"> 577 </span><span class="Delimiter">}</span> +<span id="L578" class="LineNr"> 578 </span> +<span id="L579" class="LineNr"> 579 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='evaluate.mu.html#L579'>evaluate-exprs</a></span> _exprs-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), env-h: (handle <a href='cell.mu.html#L1'>cell</a>), globals: (addr <a href='global.mu.html#L7'>global-table</a>), trace: (addr trace), <a href='../500fake-screen.mu.html#L25'>screen-cell</a>: (addr handle <a href='cell.mu.html#L1'>cell</a>), keyboard-cell: (addr handle <a href='cell.mu.html#L1'>cell</a>), call-number: int <span class="Delimiter">{</span> +<span id="L580" class="LineNr"> 580 </span> <span class="muComment"># eval all exprs, writing result to `out` each time</span> +<span id="L581" class="LineNr"> 581 </span> <span class="PreProc">var</span> exprs-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _exprs-ah +<span id="L582" class="LineNr"> 582 </span> $evaluate-exprs:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> +<span id="L583" class="LineNr"> 583 </span> <span class="PreProc">var</span> exprs/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *exprs-ah +<span id="L584" class="LineNr"> 584 </span> <span class="muComment"># stop when exprs is nil</span> +<span id="L585" class="LineNr"> 585 </span> <span class="Delimiter">{</span> +<span id="L586" class="LineNr"> 586 </span> <span class="PreProc">var</span> exprs-nil?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> exprs +<span id="L587" class="LineNr"> 587 </span> compare exprs-nil?, <span class="Constant">0</span>/false +<span id="L588" class="LineNr"> 588 </span> <span class="PreProc">break-if-!=</span> $evaluate-exprs:<span class="PreProc">loop</span> +<span id="L589" class="LineNr"> 589 </span> <span class="Delimiter">}</span> +<span id="L590" class="LineNr"> 590 </span> <span class="muComment"># evaluate each expression, writing result to `out`</span> +<span id="L591" class="LineNr"> 591 </span> <span class="Delimiter">{</span> +<span id="L592" class="LineNr"> 592 </span> <span class="PreProc">var</span> curr-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get exprs, left +<span id="L593" class="LineNr"> 593 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"E"</span>, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg +<span id="L594" class="LineNr"> 594 </span> increment call-number +<span id="L595" class="LineNr"> 595 </span> <a href='evaluate.mu.html#L5'>evaluate</a> curr-ah, out, env-h, globals, trace, <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, keyboard-cell, call-number +<span id="L596" class="LineNr"> 596 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"X"</span>, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg +<span id="L597" class="LineNr"> 597 </span> <span class="Delimiter">}</span> +<span id="L598" class="LineNr"> 598 </span> <span class="muComment">#</span> +<span id="L599" class="LineNr"> 599 </span> exprs-ah <span class="Special"><-</span> get exprs, right +<span id="L600" class="LineNr"> 600 </span> <span class="PreProc">loop</span> +<span id="L601" class="LineNr"> 601 </span> <span class="Delimiter">}</span> +<span id="L602" class="LineNr"> 602 </span> <span class="muComment"># `out` contains result of evaluating final expression</span> +<span id="L603" class="LineNr"> 603 </span><span class="Delimiter">}</span> +<span id="L604" class="LineNr"> 604 </span> +<span id="L605" class="LineNr"> 605 </span><span class="muComment"># Bind params to corresponding args and add the bindings to old-env. Return</span> +<span id="L606" class="LineNr"> 606 </span><span class="muComment"># the result in env-ah.</span> +<span id="L607" class="LineNr"> 607 </span><span class="muComment">#</span> +<span id="L608" class="LineNr"> 608 </span><span class="muComment"># We never modify old-env, but we point to it. This way other parts of the</span> +<span id="L609" class="LineNr"> 609 </span><span class="muComment"># interpreter can continue using old-env, and everything works harmoniously</span> +<span id="L610" class="LineNr"> 610 </span><span class="muComment"># even though no cells are copied around.</span> +<span id="L611" class="LineNr"> 611 </span><span class="muComment">#</span> +<span id="L612" class="LineNr"> 612 </span><span class="muComment"># env should always be a DAG (ignoring internals of values). It doesn't have</span> +<span id="L613" class="LineNr"> 613 </span><span class="muComment"># to be a tree (some values may be shared), but there are also no cycles.</span> +<span id="L614" class="LineNr"> 614 </span><span class="muComment">#</span> +<span id="L615" class="LineNr"> 615 </span><span class="muComment"># Learn more: <a href="https://en.wikipedia.org/wiki/Persistent_data_structure">https://en.wikipedia.org/wiki/Persistent_data_structure</a></span> +<span id="L616" class="LineNr"> 616 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='evaluate.mu.html#L616'>push-bindings</a></span> _params-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), old-env-h: (handle <a href='cell.mu.html#L1'>cell</a>), env-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L617" class="LineNr"> 617 </span> <span class="PreProc">var</span> params-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _params-ah +<span id="L618" class="LineNr"> 618 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">ebx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah +<span id="L619" class="LineNr"> 619 </span> <span class="PreProc">var</span> _params/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *params-ah +<span id="L620" class="LineNr"> 620 </span> <span class="PreProc">var</span> params/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _params +<span id="L621" class="LineNr"> 621 </span> <span class="Delimiter">{</span> +<span id="L622" class="LineNr"> 622 </span> <span class="PreProc">var</span> params-nil?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> params +<span id="L623" class="LineNr"> 623 </span> compare params-nil?, <span class="Constant">0</span>/false +<span id="L624" class="LineNr"> 624 </span> <span class="PreProc">break-if-=</span> +<span id="L625" class="LineNr"> 625 </span> <span class="muComment"># nil is a literal</span> +<span id="L626" class="LineNr"> 626 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"done with push-bindings"</span> +<span id="L627" class="LineNr"> 627 </span> <a href='../120allocate.subx.html#L479'>copy-handle</a> old-env-h, env-ah +<span id="L628" class="LineNr"> 628 </span> <span class="PreProc">return</span> +<span id="L629" class="LineNr"> 629 </span> <span class="Delimiter">}</span> +<span id="L630" class="LineNr"> 630 </span> <span class="muComment"># Params can only be symbols or pairs. Args can be anything.</span> +<span id="L631" class="Folded"> 631 </span><span class="Folded">+-- 16 lines: # trace "pushing bindings from " params " to " args -----------------------------------------------------------------------------------------------------------------------</span> +<span id="L647" class="LineNr"> 647 </span> <a href='trace.mu.html#L147'>trace-lower</a> trace +<span id="L648" class="LineNr"> 648 </span> <span class="PreProc">var</span> params-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get params, <span class="PreProc">type</span> +<span id="L649" class="LineNr"> 649 </span> compare *params-type, <span class="Constant">2</span>/symbol +<span id="L650" class="LineNr"> 650 </span> <span class="Delimiter">{</span> +<span id="L651" class="LineNr"> 651 </span> <span class="PreProc">break-if-!=</span> +<span id="L652" class="LineNr"> 652 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"symbol; binding to all remaining args"</span> +<span id="L653" class="LineNr"> 653 </span> <span class="muComment"># create a new binding</span> +<span id="L654" class="LineNr"> 654 </span> <span class="PreProc">var</span> new-binding-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L655" class="LineNr"> 655 </span> <span class="PreProc">var</span> new-binding-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address new-binding-storage +<span id="L656" class="LineNr"> 656 </span> <a href='cell.mu.html#L116'>new-pair</a> new-binding-ah, *params-ah, *args-ah +<span id="L657" class="LineNr"> 657 </span> <span class="muComment"># push it to env</span> +<span id="L658" class="LineNr"> 658 </span> <a href='cell.mu.html#L116'>new-pair</a> env-ah, *new-binding-ah, old-env-h <span id="L659" class="LineNr"> 659 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace <span id="L660" class="LineNr"> 660 </span> <span class="PreProc">return</span> <span id="L661" class="LineNr"> 661 </span> <span class="Delimiter">}</span> -<span id="L662" class="LineNr"> 662 </span> <span class="muComment"># if env is nil, look up in globals</span> +<span id="L662" class="LineNr"> 662 </span> compare *params-type, <span class="Constant">0</span>/pair <span id="L663" class="LineNr"> 663 </span> <span class="Delimiter">{</span> -<span id="L664" class="LineNr"> 664 </span> <span class="PreProc">var</span> env-nil?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> env -<span id="L665" class="LineNr"> 665 </span> compare env-nil?, <span class="Constant">0</span>/false -<span id="L666" class="LineNr"> 666 </span> <span class="PreProc">break-if-=</span> -<span id="L667" class="LineNr"> 667 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"b"</span>, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L668" class="LineNr"> 668 </span> <a href='global.mu.html#L305'>lookup-symbol-in-globals</a> sym, out, globals, trace, <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, keyboard-cell -<span id="L669" class="LineNr"> 669 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"x"</span>, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L670" class="LineNr"> 670 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L671" class="Folded"> 671 </span><span class="Folded">+-- 15 lines: # trace "=> " out " (global)" ---------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L686" class="LineNr"> 686 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"y"</span>, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L687" class="LineNr"> 687 </span> <span class="PreProc">return</span> -<span id="L688" class="LineNr"> 688 </span> <span class="Delimiter">}</span> -<span id="L689" class="LineNr"> 689 </span> <span class="muComment"># check car</span> -<span id="L690" class="LineNr"> 690 </span> <span class="PreProc">var</span> env-head-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L691" class="LineNr"> 691 </span> <span class="PreProc">var</span> env-head-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address env-head-storage -<span id="L692" class="LineNr"> 692 </span> <a href='evaluate.mu.html#L922'>car</a> env, env-head-ah, <span class="Constant">0</span>/no-trace -<span id="L693" class="LineNr"> 693 </span> <span class="PreProc">var</span> _env-head/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *env-head-ah -<span id="L694" class="LineNr"> 694 </span> <span class="PreProc">var</span> env-head/<span class="Constant">ecx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _env-head -<span id="L695" class="LineNr"> 695 </span> <span class="muComment"># if car is not a list, abort</span> -<span id="L696" class="LineNr"> 696 </span> <span class="Delimiter">{</span> -<span id="L697" class="LineNr"> 697 </span> <span class="PreProc">var</span> env-head-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get env-head, <span class="PreProc">type</span> -<span id="L698" class="LineNr"> 698 </span> compare *env-head-type, <span class="Constant">0</span>/pair -<span id="L699" class="LineNr"> 699 </span> <span class="PreProc">break-if-=</span> -<span id="L700" class="LineNr"> 700 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"environment is not a list of (key . value) pairs"</span> -<span id="L701" class="LineNr"> 701 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L702" class="LineNr"> 702 </span> <span class="PreProc">return</span> -<span id="L703" class="LineNr"> 703 </span> <span class="Delimiter">}</span> -<span id="L704" class="LineNr"> 704 </span> <span class="muComment"># check key</span> -<span id="L705" class="LineNr"> 705 </span> <span class="PreProc">var</span> curr-key-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L706" class="LineNr"> 706 </span> <span class="PreProc">var</span> curr-key-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address curr-key-storage -<span id="L707" class="LineNr"> 707 </span> <a href='evaluate.mu.html#L922'>car</a> env-head, curr-key-ah, trace -<span id="L708" class="LineNr"> 708 </span> <span class="PreProc">var</span> curr-key/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *curr-key-ah -<span id="L709" class="LineNr"> 709 </span> <span class="muComment"># if key is not a symbol, abort</span> -<span id="L710" class="LineNr"> 710 </span> <span class="Delimiter">{</span> -<span id="L711" class="LineNr"> 711 </span> <span class="PreProc">var</span> curr-key-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get curr-key, <span class="PreProc">type</span> -<span id="L712" class="LineNr"> 712 </span> compare *curr-key-type, <span class="Constant">2</span>/symbol -<span id="L713" class="LineNr"> 713 </span> <span class="PreProc">break-if-=</span> -<span id="L714" class="LineNr"> 714 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"environment contains a binding for a non-symbol"</span> -<span id="L715" class="LineNr"> 715 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L716" class="LineNr"> 716 </span> <span class="PreProc">return</span> -<span id="L717" class="LineNr"> 717 </span> <span class="Delimiter">}</span> -<span id="L718" class="LineNr"> 718 </span> <span class="muComment"># if key matches sym, return val</span> -<span id="L719" class="LineNr"> 719 </span> <span class="PreProc">var</span> match?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='evaluate.mu.html#L978'>cell-isomorphic?</a> curr-key, sym, trace -<span id="L720" class="LineNr"> 720 </span> compare match?, <span class="Constant">0</span>/false -<span id="L721" class="LineNr"> 721 </span> <span class="Delimiter">{</span> -<span id="L722" class="LineNr"> 722 </span> <span class="PreProc">break-if-=</span> -<span id="L723" class="LineNr"> 723 </span> <a href='evaluate.mu.html#L950'>cdr</a> env-head, out, <span class="Constant">0</span>/no-trace -<span id="L724" class="Folded"> 724 </span><span class="Folded">+-- 15 lines: # trace "=> " out " (match)" ----------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L739" class="LineNr"> 739 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L740" class="LineNr"> 740 </span> <span class="PreProc">return</span> -<span id="L741" class="LineNr"> 741 </span> <span class="Delimiter">}</span> -<span id="L742" class="LineNr"> 742 </span> <span class="muComment"># otherwise recurse</span> -<span id="L743" class="LineNr"> 743 </span> <span class="PreProc">var</span> env-tail-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L744" class="LineNr"> 744 </span> <span class="PreProc">var</span> env-tail-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address env-tail-storage -<span id="L745" class="LineNr"> 745 </span> <a href='evaluate.mu.html#L950'>cdr</a> env, env-tail-ah, trace -<span id="L746" class="LineNr"> 746 </span> <a href='evaluate.mu.html#L632'>lookup-symbol</a> sym, out, *env-tail-ah, globals, trace, <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, keyboard-cell -<span id="L747" class="LineNr"> 747 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L748" class="Folded"> 748 </span><span class="Folded">+-- 15 lines: # trace "=> " out " (recurse)" --------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L763" class="LineNr"> 763 </span><span class="Delimiter">}</span> -<span id="L764" class="LineNr"> 764 </span> -<span id="L765" class="LineNr"> 765 </span><span class="PreProc">fn</span> <span class="muTest"><a href='evaluate.mu.html#L765'>test-lookup-symbol-in-env</a></span> <span class="Delimiter">{</span> -<span id="L766" class="LineNr"> 766 </span> <span class="muComment"># tmp = (a . 3)</span> -<span id="L767" class="LineNr"> 767 </span> <span class="PreProc">var</span> val-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L768" class="LineNr"> 768 </span> <span class="PreProc">var</span> val-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address val-storage -<span id="L769" class="LineNr"> 769 </span> <a href='cell.mu.html#L83'>new-integer</a> val-ah, <span class="Constant">3</span> -<span id="L770" class="LineNr"> 770 </span> <span class="PreProc">var</span> key-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L771" class="LineNr"> 771 </span> <span class="PreProc">var</span> key-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address key-storage -<span id="L772" class="LineNr"> 772 </span> <a href='cell.mu.html#L38'>new-symbol</a> key-ah, <span class="Constant">"a"</span> -<span id="L773" class="LineNr"> 773 </span> <span class="PreProc">var</span> env-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L774" class="LineNr"> 774 </span> <span class="PreProc">var</span> env-ah/<span class="Constant">ebx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address env-storage -<span id="L775" class="LineNr"> 775 </span> <a href='cell.mu.html#L115'>new-pair</a> env-ah, *key-ah, *val-ah -<span id="L776" class="LineNr"> 776 </span> <span class="muComment"># env = ((a . 3))</span> -<span id="L777" class="LineNr"> 777 </span> <span class="PreProc">var</span> nil-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L778" class="LineNr"> 778 </span> <span class="PreProc">var</span> nil-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address nil-storage -<span id="L779" class="LineNr"> 779 </span> <a href='cell.mu.html#L101'>allocate-pair</a> nil-ah -<span id="L780" class="LineNr"> 780 </span> <a href='cell.mu.html#L115'>new-pair</a> env-ah, *env-ah, *nil-ah -<span id="L781" class="LineNr"> 781 </span> <span class="muComment"># lookup sym(a) in env tmp</span> -<span id="L782" class="LineNr"> 782 </span> <span class="PreProc">var</span> tmp-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L783" class="LineNr"> 783 </span> <span class="PreProc">var</span> tmp-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address tmp-storage -<span id="L784" class="LineNr"> 784 </span> <a href='cell.mu.html#L38'>new-symbol</a> tmp-ah, <span class="Constant">"a"</span> -<span id="L785" class="LineNr"> 785 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *tmp-ah -<span id="L786" class="LineNr"> 786 </span> <a href='evaluate.mu.html#L632'>lookup-symbol</a> in, tmp-ah, *env-ah, <span class="Constant">0</span>/no-globals, <span class="Constant">0</span>/no-trace, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-keyboard -<span id="L787" class="LineNr"> 787 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *tmp-ah -<span id="L788" class="LineNr"> 788 </span> <span class="PreProc">var</span> result-type/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get result, <span class="PreProc">type</span> -<span id="L789" class="LineNr"> 789 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> *result-type, <span class="Constant">1</span>/number, <span class="Constant">"F - <a href='evaluate.mu.html#L765'>test-lookup-symbol-in-env</a>/0"</span> -<span id="L790" class="LineNr"> 790 </span> <span class="PreProc">var</span> result-value-addr/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> get result, number-data -<span id="L791" class="LineNr"> 791 </span> <span class="PreProc">var</span> result-value/<span class="Constant">eax</span>: int <span class="Special"><-</span> convert *result-value-addr -<span id="L792" class="LineNr"> 792 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> result-value, <span class="Constant">3</span>, <span class="Constant">"F - <a href='evaluate.mu.html#L765'>test-lookup-symbol-in-env</a>/1"</span> -<span id="L793" class="LineNr"> 793 </span><span class="Delimiter">}</span> -<span id="L794" class="LineNr"> 794 </span> -<span id="L795" class="LineNr"> 795 </span><span class="PreProc">fn</span> <span class="muTest"><a href='evaluate.mu.html#L795'>test-lookup-symbol-in-globals</a></span> <span class="Delimiter">{</span> -<span id="L796" class="LineNr"> 796 </span> <span class="PreProc">var</span> globals-storage: <a href='global.mu.html#L7'>global-table</a> -<span id="L797" class="LineNr"> 797 </span> <span class="PreProc">var</span> globals/<span class="Constant">edi</span>: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Special"><-</span> address globals-storage -<span id="L798" class="LineNr"> 798 </span> <a href='global.mu.html#L12'>initialize-globals</a> globals -<span id="L799" class="LineNr"> 799 </span> <span class="muComment"># env = nil</span> -<span id="L800" class="LineNr"> 800 </span> <span class="PreProc">var</span> nil-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L801" class="LineNr"> 801 </span> <span class="PreProc">var</span> nil-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address nil-storage -<span id="L802" class="LineNr"> 802 </span> <a href='cell.mu.html#L101'>allocate-pair</a> nil-ah -<span id="L803" class="LineNr"> 803 </span> <span class="muComment"># lookup sym(a), env</span> -<span id="L804" class="LineNr"> 804 </span> <span class="PreProc">var</span> tmp-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L805" class="LineNr"> 805 </span> <span class="PreProc">var</span> tmp-ah/<span class="Constant">ebx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address tmp-storage -<span id="L806" class="LineNr"> 806 </span> <a href='cell.mu.html#L38'>new-symbol</a> tmp-ah, <span class="Constant">"+"</span> -<span id="L807" class="LineNr"> 807 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *tmp-ah -<span id="L808" class="LineNr"> 808 </span> <a href='evaluate.mu.html#L632'>lookup-symbol</a> in, tmp-ah, *nil-ah, globals, <span class="Constant">0</span>/no-trace, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-keyboard -<span id="L809" class="LineNr"> 809 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *tmp-ah -<span id="L810" class="LineNr"> 810 </span> <span class="PreProc">var</span> result-type/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get result, <span class="PreProc">type</span> -<span id="L811" class="LineNr"> 811 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> *result-type, <span class="Constant">4</span>/primitive-function, <span class="Constant">"F - <a href='evaluate.mu.html#L795'>test-lookup-symbol-in-globals</a>/0"</span> -<span id="L812" class="LineNr"> 812 </span> <span class="PreProc">var</span> result-value/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get result, index-data -<span id="L813" class="LineNr"> 813 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> *result-value, <span class="Constant">1</span>/add, <span class="Constant">"F - <a href='evaluate.mu.html#L795'>test-lookup-symbol-in-globals</a>/1"</span> -<span id="L814" class="LineNr"> 814 </span><span class="Delimiter">}</span> -<span id="L815" class="LineNr"> 815 </span> -<span id="L816" class="LineNr"> 816 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='evaluate.mu.html#L816'>mutate-binding</a></span> name: (addr stream byte), val: (addr handle <a href='cell.mu.html#L1'>cell</a>), env-h: (handle <a href='cell.mu.html#L1'>cell</a>), globals: (addr <a href='global.mu.html#L7'>global-table</a>), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L817" class="LineNr"> 817 </span> <span class="muComment"># trace name</span> -<span id="L818" class="LineNr"> 818 </span> <span class="Delimiter">{</span> -<span id="L819" class="LineNr"> 819 </span> compare trace, <span class="Constant">0</span> -<span id="L820" class="LineNr"> 820 </span> <span class="PreProc">break-if-=</span> -<span id="L821" class="LineNr"> 821 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x800</span>) <span class="muComment"># pessimistically sized just for the large alist loaded from disk in `main`</span> -<span id="L822" class="LineNr"> 822 </span> <span class="PreProc">var</span> stream/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage -<span id="L823" class="LineNr"> 823 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"bind "</span> -<span id="L824" class="LineNr"> 824 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> name -<span id="L825" class="LineNr"> 825 </span> <a href='../113write-stream.subx.html#L8'>write-stream</a> stream, name -<span id="L826" class="LineNr"> 826 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">" to "</span> -<span id="L827" class="LineNr"> 827 </span> <a href='print.mu.html#L1'>print-cell</a> val, stream, <span class="Constant">0</span>/no-trace -<span id="L828" class="LineNr"> 828 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">" in "</span> -<span id="L829" class="LineNr"> 829 </span> <span class="PreProc">var</span> env-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address env-h -<span id="L830" class="LineNr"> 830 </span> <a href='print.mu.html#L1'>print-cell</a> env-ah, stream, <span class="Constant">0</span>/no-trace -<span id="L831" class="LineNr"> 831 </span> trace trace, <span class="Constant">"eval"</span>, stream -<span id="L832" class="LineNr"> 832 </span> <span class="Delimiter">}</span> -<span id="L833" class="LineNr"> 833 </span> <a href='trace.mu.html#L147'>trace-lower</a> trace -<span id="L834" class="LineNr"> 834 </span> <span class="PreProc">var</span> _env/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> env-h -<span id="L835" class="LineNr"> 835 </span> <span class="PreProc">var</span> env/<span class="Constant">ebx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _env -<span id="L836" class="LineNr"> 836 </span> <span class="muComment"># if env is not a list, abort</span> -<span id="L837" class="LineNr"> 837 </span> <span class="Delimiter">{</span> -<span id="L838" class="LineNr"> 838 </span> <span class="PreProc">var</span> env-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get env, <span class="PreProc">type</span> -<span id="L839" class="LineNr"> 839 </span> compare *env-type, <span class="Constant">0</span>/pair -<span id="L840" class="LineNr"> 840 </span> <span class="PreProc">break-if-=</span> -<span id="L841" class="LineNr"> 841 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"eval found a non-list environment"</span> -<span id="L842" class="LineNr"> 842 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L843" class="LineNr"> 843 </span> <span class="PreProc">return</span> -<span id="L844" class="LineNr"> 844 </span> <span class="Delimiter">}</span> -<span id="L845" class="LineNr"> 845 </span> <span class="muComment"># if env is nil, look in globals</span> -<span id="L846" class="LineNr"> 846 </span> <span class="Delimiter">{</span> -<span id="L847" class="LineNr"> 847 </span> <span class="PreProc">var</span> env-nil?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> env -<span id="L848" class="LineNr"> 848 </span> compare env-nil?, <span class="Constant">0</span>/false -<span id="L849" class="LineNr"> 849 </span> <span class="PreProc">break-if-=</span> -<span id="L850" class="LineNr"> 850 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"b"</span>, <span class="Constant">3</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L851" class="LineNr"> 851 </span> <a href='global.mu.html#L418'>mutate-binding-in-globals</a> name, val, globals, trace -<span id="L852" class="LineNr"> 852 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"x"</span>, <span class="Constant">3</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L853" class="LineNr"> 853 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L854" class="Folded"> 854 </span><span class="Folded">+-- 15 lines: # trace "=> " val " (global)" ---------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L869" class="LineNr"> 869 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"y"</span>, <span class="Constant">3</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L870" class="LineNr"> 870 </span> <span class="PreProc">return</span> -<span id="L871" class="LineNr"> 871 </span> <span class="Delimiter">}</span> -<span id="L872" class="LineNr"> 872 </span> <span class="muComment"># check car</span> -<span id="L873" class="LineNr"> 873 </span> <span class="PreProc">var</span> env-head-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L874" class="LineNr"> 874 </span> <span class="PreProc">var</span> env-head-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address env-head-storage -<span id="L875" class="LineNr"> 875 </span> <a href='evaluate.mu.html#L922'>car</a> env, env-head-ah, <span class="Constant">0</span>/no-trace -<span id="L876" class="LineNr"> 876 </span> <span class="PreProc">var</span> _env-head/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *env-head-ah -<span id="L877" class="LineNr"> 877 </span> <span class="PreProc">var</span> env-head/<span class="Constant">ecx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _env-head -<span id="L878" class="LineNr"> 878 </span> <span class="muComment"># if car is not a list, abort</span> -<span id="L879" class="LineNr"> 879 </span> <span class="Delimiter">{</span> -<span id="L880" class="LineNr"> 880 </span> <span class="PreProc">var</span> env-head-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get env-head, <span class="PreProc">type</span> -<span id="L881" class="LineNr"> 881 </span> compare *env-head-type, <span class="Constant">0</span>/pair -<span id="L882" class="LineNr"> 882 </span> <span class="PreProc">break-if-=</span> -<span id="L883" class="LineNr"> 883 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"environment is not a list of (key . value) pairs"</span> -<span id="L884" class="LineNr"> 884 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L885" class="LineNr"> 885 </span> <span class="PreProc">return</span> -<span id="L886" class="LineNr"> 886 </span> <span class="Delimiter">}</span> -<span id="L887" class="LineNr"> 887 </span> <span class="muComment"># check key</span> -<span id="L888" class="LineNr"> 888 </span> <span class="PreProc">var</span> curr-key-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L889" class="LineNr"> 889 </span> <span class="PreProc">var</span> curr-key-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address curr-key-storage -<span id="L890" class="LineNr"> 890 </span> <a href='evaluate.mu.html#L922'>car</a> env-head, curr-key-ah, trace -<span id="L891" class="LineNr"> 891 </span> <span class="PreProc">var</span> curr-key/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *curr-key-ah -<span id="L892" class="LineNr"> 892 </span> <span class="muComment"># if key is not a symbol, abort</span> -<span id="L893" class="LineNr"> 893 </span> <span class="Delimiter">{</span> -<span id="L894" class="LineNr"> 894 </span> <span class="PreProc">var</span> curr-key-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get curr-key, <span class="PreProc">type</span> -<span id="L895" class="LineNr"> 895 </span> compare *curr-key-type, <span class="Constant">2</span>/symbol -<span id="L896" class="LineNr"> 896 </span> <span class="PreProc">break-if-=</span> -<span id="L897" class="LineNr"> 897 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"environment contains a binding for a non-symbol"</span> -<span id="L898" class="LineNr"> 898 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L899" class="LineNr"> 899 </span> <span class="PreProc">return</span> -<span id="L900" class="LineNr"> 900 </span> <span class="Delimiter">}</span> -<span id="L901" class="LineNr"> 901 </span> <span class="muComment"># if key matches name, return val</span> -<span id="L902" class="LineNr"> 902 </span> <span class="PreProc">var</span> curr-key-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get curr-key, text-data -<span id="L903" class="LineNr"> 903 </span> <span class="PreProc">var</span> curr-key-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *curr-key-data-ah -<span id="L904" class="LineNr"> 904 </span> <span class="PreProc">var</span> match?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L217'>streams-data-equal?</a> curr-key-data, name -<span id="L905" class="LineNr"> 905 </span> compare match?, <span class="Constant">0</span>/false -<span id="L906" class="LineNr"> 906 </span> <span class="Delimiter">{</span> -<span id="L907" class="LineNr"> 907 </span> <span class="PreProc">break-if-=</span> -<span id="L908" class="LineNr"> 908 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get env-head, right -<span id="L909" class="LineNr"> 909 </span> copy-object val, dest -<span id="L910" class="LineNr"> 910 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"=> done"</span> -<span id="L911" class="LineNr"> 911 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L912" class="LineNr"> 912 </span> <span class="PreProc">return</span> -<span id="L913" class="LineNr"> 913 </span> <span class="Delimiter">}</span> -<span id="L914" class="LineNr"> 914 </span> <span class="muComment"># otherwise recurse</span> -<span id="L915" class="LineNr"> 915 </span> <span class="PreProc">var</span> env-tail-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L916" class="LineNr"> 916 </span> <span class="PreProc">var</span> env-tail-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address env-tail-storage -<span id="L917" class="LineNr"> 917 </span> <a href='evaluate.mu.html#L950'>cdr</a> env, env-tail-ah, trace -<span id="L918" class="LineNr"> 918 </span> <a href='evaluate.mu.html#L816'>mutate-binding</a> name, val, *env-tail-ah, globals, trace -<span id="L919" class="LineNr"> 919 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L920" class="LineNr"> 920 </span><span class="Delimiter">}</span> -<span id="L921" class="LineNr"> 921 </span> -<span id="L922" class="LineNr"> 922 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='evaluate.mu.html#L922'>car</a></span> _in: (addr <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L923" class="LineNr"> 923 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"car"</span> -<span id="L924" class="LineNr"> 924 </span> <a href='trace.mu.html#L147'>trace-lower</a> trace -<span id="L925" class="LineNr"> 925 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in -<span id="L926" class="LineNr"> 926 </span> <span class="muComment"># if in is not a list, abort</span> -<span id="L927" class="LineNr"> 927 </span> <span class="Delimiter">{</span> -<span id="L928" class="LineNr"> 928 </span> <span class="PreProc">var</span> in-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get in, <span class="PreProc">type</span> -<span id="L929" class="LineNr"> 929 </span> compare *in-type, <span class="Constant">0</span>/pair -<span id="L930" class="LineNr"> 930 </span> <span class="PreProc">break-if-=</span> -<span id="L931" class="LineNr"> 931 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"car on a non-list"</span> -<span id="L932" class="LineNr"> 932 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L933" class="LineNr"> 933 </span> <span class="PreProc">return</span> -<span id="L934" class="LineNr"> 934 </span> <span class="Delimiter">}</span> -<span id="L935" class="LineNr"> 935 </span> <span class="muComment"># if in is nil, abort</span> -<span id="L936" class="LineNr"> 936 </span> <span class="Delimiter">{</span> -<span id="L937" class="LineNr"> 937 </span> <span class="PreProc">var</span> in-nil?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> in -<span id="L938" class="LineNr"> 938 </span> compare in-nil?, <span class="Constant">0</span>/false -<span id="L939" class="LineNr"> 939 </span> <span class="PreProc">break-if-=</span> -<span id="L940" class="LineNr"> 940 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"car on nil"</span> -<span id="L941" class="LineNr"> 941 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L942" class="LineNr"> 942 </span> <span class="PreProc">return</span> -<span id="L943" class="LineNr"> 943 </span> <span class="Delimiter">}</span> -<span id="L944" class="LineNr"> 944 </span> <span class="PreProc">var</span> in-left/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in, left -<span id="L945" class="LineNr"> 945 </span> copy-object in-left, out -<span id="L946" class="LineNr"> 946 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L947" class="LineNr"> 947 </span> <span class="PreProc">return</span> -<span id="L948" class="LineNr"> 948 </span><span class="Delimiter">}</span> -<span id="L949" class="LineNr"> 949 </span> -<span id="L950" class="LineNr"> 950 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='evaluate.mu.html#L950'>cdr</a></span> _in: (addr <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L951" class="LineNr"> 951 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"cdr"</span> -<span id="L952" class="LineNr"> 952 </span> <a href='trace.mu.html#L147'>trace-lower</a> trace -<span id="L953" class="LineNr"> 953 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in -<span id="L954" class="LineNr"> 954 </span> <span class="muComment"># if in is not a list, abort</span> -<span id="L955" class="LineNr"> 955 </span> <span class="Delimiter">{</span> -<span id="L956" class="LineNr"> 956 </span> <span class="PreProc">var</span> in-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get in, <span class="PreProc">type</span> -<span id="L957" class="LineNr"> 957 </span> compare *in-type, <span class="Constant">0</span>/pair -<span id="L958" class="LineNr"> 958 </span> <span class="PreProc">break-if-=</span> -<span id="L959" class="LineNr"> 959 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"car on a non-list"</span> -<span id="L960" class="LineNr"> 960 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L961" class="LineNr"> 961 </span> <span class="PreProc">return</span> -<span id="L962" class="LineNr"> 962 </span> <span class="Delimiter">}</span> -<span id="L963" class="LineNr"> 963 </span> <span class="muComment"># if in is nil, abort</span> -<span id="L964" class="LineNr"> 964 </span> <span class="Delimiter">{</span> -<span id="L965" class="LineNr"> 965 </span> <span class="PreProc">var</span> in-nil?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> in -<span id="L966" class="LineNr"> 966 </span> compare in-nil?, <span class="Constant">0</span>/false -<span id="L967" class="LineNr"> 967 </span> <span class="PreProc">break-if-=</span> -<span id="L968" class="LineNr"> 968 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"car on nil"</span> -<span id="L969" class="LineNr"> 969 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L970" class="LineNr"> 970 </span> <span class="PreProc">return</span> -<span id="L971" class="LineNr"> 971 </span> <span class="Delimiter">}</span> -<span id="L972" class="LineNr"> 972 </span> <span class="PreProc">var</span> in-right/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in, right -<span id="L973" class="LineNr"> 973 </span> copy-object in-right, out -<span id="L974" class="LineNr"> 974 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L975" class="LineNr"> 975 </span> <span class="PreProc">return</span> -<span id="L976" class="LineNr"> 976 </span><span class="Delimiter">}</span> -<span id="L977" class="LineNr"> 977 </span> -<span id="L978" class="LineNr"> 978 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='evaluate.mu.html#L978'>cell-isomorphic?</a></span> _a: (addr <a href='cell.mu.html#L1'>cell</a>), _b: (addr <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L979" class="LineNr"> 979 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"cell-isomorphic?"</span> -<span id="L980" class="LineNr"> 980 </span> <a href='trace.mu.html#L147'>trace-lower</a> trace -<span id="L981" class="LineNr"> 981 </span> <span class="PreProc">var</span> a/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _a -<span id="L982" class="LineNr"> 982 </span> <span class="PreProc">var</span> b/<span class="Constant">edi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _b -<span id="L983" class="LineNr"> 983 </span> <span class="muComment"># if types don't match, return false</span> -<span id="L984" class="LineNr"> 984 </span> <span class="PreProc">var</span> a-type-addr/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get a, <span class="PreProc">type</span> -<span id="L985" class="LineNr"> 985 </span> <span class="PreProc">var</span> b-type-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get b, <span class="PreProc">type</span> -<span id="L986" class="LineNr"> 986 </span> <span class="PreProc">var</span> b-type/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *b-type-addr -<span id="L987" class="LineNr"> 987 </span> compare b-type, *a-type-addr -<span id="L988" class="LineNr"> 988 </span> <span class="Delimiter">{</span> +<span id="L664" class="LineNr"> 664 </span> <span class="PreProc">break-if-=</span> +<span id="L665" class="LineNr"> 665 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"cannot bind a non-symbol"</span> +<span id="L666" class="LineNr"> 666 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L667" class="LineNr"> 667 </span> <span class="PreProc">return</span> +<span id="L668" class="LineNr"> 668 </span> <span class="Delimiter">}</span> +<span id="L669" class="LineNr"> 669 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *args-ah +<span id="L670" class="LineNr"> 670 </span> <span class="PreProc">var</span> args/<span class="Constant">edi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args +<span id="L671" class="LineNr"> 671 </span> <span class="muComment"># params is now a pair, so args must be also</span> +<span id="L672" class="LineNr"> 672 </span> <span class="PreProc">var</span> args-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get args, <span class="PreProc">type</span> +<span id="L673" class="LineNr"> 673 </span> compare *args-type, <span class="Constant">0</span>/pair +<span id="L674" class="LineNr"> 674 </span> <span class="Delimiter">{</span> +<span id="L675" class="LineNr"> 675 </span> <span class="PreProc">break-if-=</span> +<span id="L676" class="LineNr"> 676 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"args not in a proper list"</span> +<span id="L677" class="LineNr"> 677 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L678" class="LineNr"> 678 </span> <span class="PreProc">return</span> +<span id="L679" class="LineNr"> 679 </span> <span class="Delimiter">}</span> +<span id="L680" class="LineNr"> 680 </span> <span class="PreProc">var</span> intermediate-env-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L681" class="LineNr"> 681 </span> <span class="PreProc">var</span> intermediate-env-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address intermediate-env-storage +<span id="L682" class="LineNr"> 682 </span> <span class="PreProc">var</span> first-param-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get params, left +<span id="L683" class="LineNr"> 683 </span> <span class="PreProc">var</span> first-arg-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left +<span id="L684" class="LineNr"> 684 </span> <a href='evaluate.mu.html#L616'>push-bindings</a> first-param-ah, first-arg-ah, old-env-h, intermediate-env-ah, trace +<span id="L685" class="LineNr"> 685 </span> <span class="PreProc">var</span> remaining-params-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get params, right +<span id="L686" class="LineNr"> 686 </span> <span class="PreProc">var</span> remaining-args-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, right +<span id="L687" class="LineNr"> 687 </span> <a href='evaluate.mu.html#L616'>push-bindings</a> remaining-params-ah, remaining-args-ah, *intermediate-env-ah, env-ah, trace +<span id="L688" class="LineNr"> 688 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L689" class="LineNr"> 689 </span><span class="Delimiter">}</span> +<span id="L690" class="LineNr"> 690 </span> +<span id="L691" class="LineNr"> 691 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='evaluate.mu.html#L691'>lookup-symbol</a></span> sym: (addr <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), env-h: (handle <a href='cell.mu.html#L1'>cell</a>), globals: (addr <a href='global.mu.html#L7'>global-table</a>), trace: (addr trace), <a href='../500fake-screen.mu.html#L25'>screen-cell</a>: (addr handle <a href='cell.mu.html#L1'>cell</a>), keyboard-cell: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Delimiter">{</span> +<span id="L692" class="LineNr"> 692 </span> <span class="muComment"># trace sym</span> +<span id="L693" class="LineNr"> 693 </span> <span class="Delimiter">{</span> +<span id="L694" class="LineNr"> 694 </span> compare trace, <span class="Constant">0</span> +<span id="L695" class="LineNr"> 695 </span> <span class="PreProc">break-if-=</span> +<span id="L696" class="LineNr"> 696 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x800</span>) <span class="muComment"># pessimistically sized just for the large alist loaded from disk in `main`</span> +<span id="L697" class="LineNr"> 697 </span> <span class="PreProc">var</span> stream/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L698" class="LineNr"> 698 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"look up "</span> +<span id="L699" class="LineNr"> 699 </span> <span class="PreProc">var</span> sym2/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy sym +<span id="L700" class="LineNr"> 700 </span> <span class="PreProc">var</span> sym-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get sym2, text-data +<span id="L701" class="LineNr"> 701 </span> <span class="PreProc">var</span> sym-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *sym-data-ah +<span id="L702" class="LineNr"> 702 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> sym-data +<span id="L703" class="LineNr"> 703 </span> <a href='../113write-stream.subx.html#L8'>write-stream</a> stream, sym-data +<span id="L704" class="LineNr"> 704 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">" in "</span> +<span id="L705" class="LineNr"> 705 </span> <span class="PreProc">var</span> env-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address env-h +<span id="L706" class="LineNr"> 706 </span> <a href='print.mu.html#L1'>print-cell</a> env-ah, stream, <span class="Constant">0</span>/no-trace +<span id="L707" class="LineNr"> 707 </span> trace trace, <span class="Constant">"eval"</span>, stream +<span id="L708" class="LineNr"> 708 </span> <span class="Delimiter">}</span> +<span id="L709" class="LineNr"> 709 </span> <a href='trace.mu.html#L147'>trace-lower</a> trace +<span id="L710" class="LineNr"> 710 </span> <span class="PreProc">var</span> _env/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> env-h +<span id="L711" class="LineNr"> 711 </span> <span class="PreProc">var</span> env/<span class="Constant">ebx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _env +<span id="L712" class="LineNr"> 712 </span> <span class="muComment"># if env is not a list, abort</span> +<span id="L713" class="LineNr"> 713 </span> <span class="Delimiter">{</span> +<span id="L714" class="LineNr"> 714 </span> <span class="PreProc">var</span> env-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get env, <span class="PreProc">type</span> +<span id="L715" class="LineNr"> 715 </span> compare *env-type, <span class="Constant">0</span>/pair +<span id="L716" class="LineNr"> 716 </span> <span class="PreProc">break-if-=</span> +<span id="L717" class="LineNr"> 717 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"eval found a non-list environment"</span> +<span id="L718" class="LineNr"> 718 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L719" class="LineNr"> 719 </span> <span class="PreProc">return</span> +<span id="L720" class="LineNr"> 720 </span> <span class="Delimiter">}</span> +<span id="L721" class="LineNr"> 721 </span> <span class="muComment"># if env is nil, look up in globals</span> +<span id="L722" class="LineNr"> 722 </span> <span class="Delimiter">{</span> +<span id="L723" class="LineNr"> 723 </span> <span class="PreProc">var</span> env-nil?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> env +<span id="L724" class="LineNr"> 724 </span> compare env-nil?, <span class="Constant">0</span>/false +<span id="L725" class="LineNr"> 725 </span> <span class="PreProc">break-if-=</span> +<span id="L726" class="LineNr"> 726 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"b"</span>, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg +<span id="L727" class="LineNr"> 727 </span> <a href='global.mu.html#L352'>lookup-symbol-in-globals</a> sym, out, globals, trace, <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, keyboard-cell +<span id="L728" class="LineNr"> 728 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"x"</span>, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg +<span id="L729" class="LineNr"> 729 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L730" class="Folded"> 730 </span><span class="Folded">+-- 15 lines: # trace "=> " out " (global)" ---------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L745" class="LineNr"> 745 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"y"</span>, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg +<span id="L746" class="LineNr"> 746 </span> <span class="PreProc">return</span> +<span id="L747" class="LineNr"> 747 </span> <span class="Delimiter">}</span> +<span id="L748" class="LineNr"> 748 </span> <span class="muComment"># check car</span> +<span id="L749" class="LineNr"> 749 </span> <span class="PreProc">var</span> env-head-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L750" class="LineNr"> 750 </span> <span class="PreProc">var</span> env-head-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address env-head-storage +<span id="L751" class="LineNr"> 751 </span> <a href='evaluate.mu.html#L981'>car</a> env, env-head-ah, <span class="Constant">0</span>/no-trace +<span id="L752" class="LineNr"> 752 </span> <span class="PreProc">var</span> _env-head/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *env-head-ah +<span id="L753" class="LineNr"> 753 </span> <span class="PreProc">var</span> env-head/<span class="Constant">ecx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _env-head +<span id="L754" class="LineNr"> 754 </span> <span class="muComment"># if car is not a list, abort</span> +<span id="L755" class="LineNr"> 755 </span> <span class="Delimiter">{</span> +<span id="L756" class="LineNr"> 756 </span> <span class="PreProc">var</span> env-head-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get env-head, <span class="PreProc">type</span> +<span id="L757" class="LineNr"> 757 </span> compare *env-head-type, <span class="Constant">0</span>/pair +<span id="L758" class="LineNr"> 758 </span> <span class="PreProc">break-if-=</span> +<span id="L759" class="LineNr"> 759 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"environment is not a list of (key . value) pairs"</span> +<span id="L760" class="LineNr"> 760 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L761" class="LineNr"> 761 </span> <span class="PreProc">return</span> +<span id="L762" class="LineNr"> 762 </span> <span class="Delimiter">}</span> +<span id="L763" class="LineNr"> 763 </span> <span class="muComment"># check key</span> +<span id="L764" class="LineNr"> 764 </span> <span class="PreProc">var</span> curr-key-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L765" class="LineNr"> 765 </span> <span class="PreProc">var</span> curr-key-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address curr-key-storage +<span id="L766" class="LineNr"> 766 </span> <a href='evaluate.mu.html#L981'>car</a> env-head, curr-key-ah, trace +<span id="L767" class="LineNr"> 767 </span> <span class="PreProc">var</span> curr-key/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *curr-key-ah +<span id="L768" class="LineNr"> 768 </span> <span class="muComment"># if key is not a symbol, abort</span> +<span id="L769" class="LineNr"> 769 </span> <span class="Delimiter">{</span> +<span id="L770" class="LineNr"> 770 </span> <span class="PreProc">var</span> curr-key-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get curr-key, <span class="PreProc">type</span> +<span id="L771" class="LineNr"> 771 </span> compare *curr-key-type, <span class="Constant">2</span>/symbol +<span id="L772" class="LineNr"> 772 </span> <span class="PreProc">break-if-=</span> +<span id="L773" class="LineNr"> 773 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"environment contains a binding for a non-symbol"</span> +<span id="L774" class="LineNr"> 774 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L775" class="LineNr"> 775 </span> <span class="PreProc">return</span> +<span id="L776" class="LineNr"> 776 </span> <span class="Delimiter">}</span> +<span id="L777" class="LineNr"> 777 </span> <span class="muComment"># if key matches sym, return val</span> +<span id="L778" class="LineNr"> 778 </span> <span class="PreProc">var</span> match?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='evaluate.mu.html#L1037'>cell-isomorphic?</a> curr-key, sym, trace +<span id="L779" class="LineNr"> 779 </span> compare match?, <span class="Constant">0</span>/false +<span id="L780" class="LineNr"> 780 </span> <span class="Delimiter">{</span> +<span id="L781" class="LineNr"> 781 </span> <span class="PreProc">break-if-=</span> +<span id="L782" class="LineNr"> 782 </span> <a href='evaluate.mu.html#L1009'>cdr</a> env-head, out, <span class="Constant">0</span>/no-trace +<span id="L783" class="Folded"> 783 </span><span class="Folded">+-- 15 lines: # trace "=> " out " (match)" ----------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L798" class="LineNr"> 798 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L799" class="LineNr"> 799 </span> <span class="PreProc">return</span> +<span id="L800" class="LineNr"> 800 </span> <span class="Delimiter">}</span> +<span id="L801" class="LineNr"> 801 </span> <span class="muComment"># otherwise recurse</span> +<span id="L802" class="LineNr"> 802 </span> <span class="PreProc">var</span> env-tail-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L803" class="LineNr"> 803 </span> <span class="PreProc">var</span> env-tail-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address env-tail-storage +<span id="L804" class="LineNr"> 804 </span> <a href='evaluate.mu.html#L1009'>cdr</a> env, env-tail-ah, trace +<span id="L805" class="LineNr"> 805 </span> <a href='evaluate.mu.html#L691'>lookup-symbol</a> sym, out, *env-tail-ah, globals, trace, <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, keyboard-cell +<span id="L806" class="LineNr"> 806 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L807" class="Folded"> 807 </span><span class="Folded">+-- 15 lines: # trace "=> " out " (recurse)" --------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L822" class="LineNr"> 822 </span><span class="Delimiter">}</span> +<span id="L823" class="LineNr"> 823 </span> +<span id="L824" class="LineNr"> 824 </span><span class="PreProc">fn</span> <span class="muTest"><a href='evaluate.mu.html#L824'>test-lookup-symbol-in-env</a></span> <span class="Delimiter">{</span> +<span id="L825" class="LineNr"> 825 </span> <span class="muComment"># tmp = (a . 3)</span> +<span id="L826" class="LineNr"> 826 </span> <span class="PreProc">var</span> val-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L827" class="LineNr"> 827 </span> <span class="PreProc">var</span> val-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address val-storage +<span id="L828" class="LineNr"> 828 </span> <a href='cell.mu.html#L84'>new-integer</a> val-ah, <span class="Constant">3</span> +<span id="L829" class="LineNr"> 829 </span> <span class="PreProc">var</span> key-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L830" class="LineNr"> 830 </span> <span class="PreProc">var</span> key-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address key-storage +<span id="L831" class="LineNr"> 831 </span> <a href='cell.mu.html#L39'>new-symbol</a> key-ah, <span class="Constant">"a"</span> +<span id="L832" class="LineNr"> 832 </span> <span class="PreProc">var</span> env-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L833" class="LineNr"> 833 </span> <span class="PreProc">var</span> env-ah/<span class="Constant">ebx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address env-storage +<span id="L834" class="LineNr"> 834 </span> <a href='cell.mu.html#L116'>new-pair</a> env-ah, *key-ah, *val-ah +<span id="L835" class="LineNr"> 835 </span> <span class="muComment"># env = ((a . 3))</span> +<span id="L836" class="LineNr"> 836 </span> <span class="PreProc">var</span> nil-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L837" class="LineNr"> 837 </span> <span class="PreProc">var</span> nil-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address nil-storage +<span id="L838" class="LineNr"> 838 </span> <a href='cell.mu.html#L102'>allocate-pair</a> nil-ah +<span id="L839" class="LineNr"> 839 </span> <a href='cell.mu.html#L116'>new-pair</a> env-ah, *env-ah, *nil-ah +<span id="L840" class="LineNr"> 840 </span> <span class="muComment"># lookup sym(a) in env tmp</span> +<span id="L841" class="LineNr"> 841 </span> <span class="PreProc">var</span> tmp-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L842" class="LineNr"> 842 </span> <span class="PreProc">var</span> tmp-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address tmp-storage +<span id="L843" class="LineNr"> 843 </span> <a href='cell.mu.html#L39'>new-symbol</a> tmp-ah, <span class="Constant">"a"</span> +<span id="L844" class="LineNr"> 844 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *tmp-ah +<span id="L845" class="LineNr"> 845 </span> <a href='evaluate.mu.html#L691'>lookup-symbol</a> in, tmp-ah, *env-ah, <span class="Constant">0</span>/no-globals, <span class="Constant">0</span>/no-trace, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-keyboard +<span id="L846" class="LineNr"> 846 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *tmp-ah +<span id="L847" class="LineNr"> 847 </span> <span class="PreProc">var</span> result-type/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get result, <span class="PreProc">type</span> +<span id="L848" class="LineNr"> 848 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> *result-type, <span class="Constant">1</span>/number, <span class="Constant">"F - <a href='evaluate.mu.html#L824'>test-lookup-symbol-in-env</a>/0"</span> +<span id="L849" class="LineNr"> 849 </span> <span class="PreProc">var</span> result-value-addr/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> get result, number-data +<span id="L850" class="LineNr"> 850 </span> <span class="PreProc">var</span> result-value/<span class="Constant">eax</span>: int <span class="Special"><-</span> convert *result-value-addr +<span id="L851" class="LineNr"> 851 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> result-value, <span class="Constant">3</span>, <span class="Constant">"F - <a href='evaluate.mu.html#L824'>test-lookup-symbol-in-env</a>/1"</span> +<span id="L852" class="LineNr"> 852 </span><span class="Delimiter">}</span> +<span id="L853" class="LineNr"> 853 </span> +<span id="L854" class="LineNr"> 854 </span><span class="PreProc">fn</span> <span class="muTest"><a href='evaluate.mu.html#L854'>test-lookup-symbol-in-globals</a></span> <span class="Delimiter">{</span> +<span id="L855" class="LineNr"> 855 </span> <span class="PreProc">var</span> globals-storage: <a href='global.mu.html#L7'>global-table</a> +<span id="L856" class="LineNr"> 856 </span> <span class="PreProc">var</span> globals/<span class="Constant">edi</span>: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Special"><-</span> address globals-storage +<span id="L857" class="LineNr"> 857 </span> <a href='global.mu.html#L12'>initialize-globals</a> globals +<span id="L858" class="LineNr"> 858 </span> <span class="muComment"># env = nil</span> +<span id="L859" class="LineNr"> 859 </span> <span class="PreProc">var</span> nil-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L860" class="LineNr"> 860 </span> <span class="PreProc">var</span> nil-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address nil-storage +<span id="L861" class="LineNr"> 861 </span> <a href='cell.mu.html#L102'>allocate-pair</a> nil-ah +<span id="L862" class="LineNr"> 862 </span> <span class="muComment"># lookup sym(a), env</span> +<span id="L863" class="LineNr"> 863 </span> <span class="PreProc">var</span> tmp-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L864" class="LineNr"> 864 </span> <span class="PreProc">var</span> tmp-ah/<span class="Constant">ebx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address tmp-storage +<span id="L865" class="LineNr"> 865 </span> <a href='cell.mu.html#L39'>new-symbol</a> tmp-ah, <span class="Constant">"+"</span> +<span id="L866" class="LineNr"> 866 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *tmp-ah +<span id="L867" class="LineNr"> 867 </span> <a href='evaluate.mu.html#L691'>lookup-symbol</a> in, tmp-ah, *nil-ah, globals, <span class="Constant">0</span>/no-trace, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-keyboard +<span id="L868" class="LineNr"> 868 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *tmp-ah +<span id="L869" class="LineNr"> 869 </span> <span class="PreProc">var</span> result-type/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get result, <span class="PreProc">type</span> +<span id="L870" class="LineNr"> 870 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> *result-type, <span class="Constant">4</span>/primitive-function, <span class="Constant">"F - <a href='evaluate.mu.html#L854'>test-lookup-symbol-in-globals</a>/0"</span> +<span id="L871" class="LineNr"> 871 </span> <span class="PreProc">var</span> result-value/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get result, index-data +<span id="L872" class="LineNr"> 872 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> *result-value, <span class="Constant">1</span>/add, <span class="Constant">"F - <a href='evaluate.mu.html#L854'>test-lookup-symbol-in-globals</a>/1"</span> +<span id="L873" class="LineNr"> 873 </span><span class="Delimiter">}</span> +<span id="L874" class="LineNr"> 874 </span> +<span id="L875" class="LineNr"> 875 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='evaluate.mu.html#L875'>mutate-binding</a></span> name: (addr stream byte), val: (addr handle <a href='cell.mu.html#L1'>cell</a>), env-h: (handle <a href='cell.mu.html#L1'>cell</a>), globals: (addr <a href='global.mu.html#L7'>global-table</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L876" class="LineNr"> 876 </span> <span class="muComment"># trace name</span> +<span id="L877" class="LineNr"> 877 </span> <span class="Delimiter">{</span> +<span id="L878" class="LineNr"> 878 </span> compare trace, <span class="Constant">0</span> +<span id="L879" class="LineNr"> 879 </span> <span class="PreProc">break-if-=</span> +<span id="L880" class="LineNr"> 880 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x800</span>) <span class="muComment"># pessimistically sized just for the large alist loaded from disk in `main`</span> +<span id="L881" class="LineNr"> 881 </span> <span class="PreProc">var</span> stream/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L882" class="LineNr"> 882 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"bind "</span> +<span id="L883" class="LineNr"> 883 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> name +<span id="L884" class="LineNr"> 884 </span> <a href='../113write-stream.subx.html#L8'>write-stream</a> stream, name +<span id="L885" class="LineNr"> 885 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">" to "</span> +<span id="L886" class="LineNr"> 886 </span> <a href='print.mu.html#L1'>print-cell</a> val, stream, <span class="Constant">0</span>/no-trace +<span id="L887" class="LineNr"> 887 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">" in "</span> +<span id="L888" class="LineNr"> 888 </span> <span class="PreProc">var</span> env-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address env-h +<span id="L889" class="LineNr"> 889 </span> <a href='print.mu.html#L1'>print-cell</a> env-ah, stream, <span class="Constant">0</span>/no-trace +<span id="L890" class="LineNr"> 890 </span> trace trace, <span class="Constant">"eval"</span>, stream +<span id="L891" class="LineNr"> 891 </span> <span class="Delimiter">}</span> +<span id="L892" class="LineNr"> 892 </span> <a href='trace.mu.html#L147'>trace-lower</a> trace +<span id="L893" class="LineNr"> 893 </span> <span class="PreProc">var</span> _env/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> env-h +<span id="L894" class="LineNr"> 894 </span> <span class="PreProc">var</span> env/<span class="Constant">ebx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _env +<span id="L895" class="LineNr"> 895 </span> <span class="muComment"># if env is not a list, abort</span> +<span id="L896" class="LineNr"> 896 </span> <span class="Delimiter">{</span> +<span id="L897" class="LineNr"> 897 </span> <span class="PreProc">var</span> env-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get env, <span class="PreProc">type</span> +<span id="L898" class="LineNr"> 898 </span> compare *env-type, <span class="Constant">0</span>/pair +<span id="L899" class="LineNr"> 899 </span> <span class="PreProc">break-if-=</span> +<span id="L900" class="LineNr"> 900 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"eval found a non-list environment"</span> +<span id="L901" class="LineNr"> 901 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L902" class="LineNr"> 902 </span> <span class="PreProc">return</span> +<span id="L903" class="LineNr"> 903 </span> <span class="Delimiter">}</span> +<span id="L904" class="LineNr"> 904 </span> <span class="muComment"># if env is nil, look in globals</span> +<span id="L905" class="LineNr"> 905 </span> <span class="Delimiter">{</span> +<span id="L906" class="LineNr"> 906 </span> <span class="PreProc">var</span> env-nil?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> env +<span id="L907" class="LineNr"> 907 </span> compare env-nil?, <span class="Constant">0</span>/false +<span id="L908" class="LineNr"> 908 </span> <span class="PreProc">break-if-=</span> +<span id="L909" class="LineNr"> 909 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"b"</span>, <span class="Constant">3</span>/fg, <span class="Constant">0</span>/bg +<span id="L910" class="LineNr"> 910 </span> <a href='global.mu.html#L487'>mutate-binding-in-globals</a> name, val, globals, trace +<span id="L911" class="LineNr"> 911 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"x"</span>, <span class="Constant">3</span>/fg, <span class="Constant">0</span>/bg +<span id="L912" class="LineNr"> 912 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L913" class="Folded"> 913 </span><span class="Folded">+-- 15 lines: # trace "=> " val " (global)" ---------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L928" class="LineNr"> 928 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"y"</span>, <span class="Constant">3</span>/fg, <span class="Constant">0</span>/bg +<span id="L929" class="LineNr"> 929 </span> <span class="PreProc">return</span> +<span id="L930" class="LineNr"> 930 </span> <span class="Delimiter">}</span> +<span id="L931" class="LineNr"> 931 </span> <span class="muComment"># check car</span> +<span id="L932" class="LineNr"> 932 </span> <span class="PreProc">var</span> env-head-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L933" class="LineNr"> 933 </span> <span class="PreProc">var</span> env-head-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address env-head-storage +<span id="L934" class="LineNr"> 934 </span> <a href='evaluate.mu.html#L981'>car</a> env, env-head-ah, <span class="Constant">0</span>/no-trace +<span id="L935" class="LineNr"> 935 </span> <span class="PreProc">var</span> _env-head/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *env-head-ah +<span id="L936" class="LineNr"> 936 </span> <span class="PreProc">var</span> env-head/<span class="Constant">ecx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _env-head +<span id="L937" class="LineNr"> 937 </span> <span class="muComment"># if car is not a list, abort</span> +<span id="L938" class="LineNr"> 938 </span> <span class="Delimiter">{</span> +<span id="L939" class="LineNr"> 939 </span> <span class="PreProc">var</span> env-head-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get env-head, <span class="PreProc">type</span> +<span id="L940" class="LineNr"> 940 </span> compare *env-head-type, <span class="Constant">0</span>/pair +<span id="L941" class="LineNr"> 941 </span> <span class="PreProc">break-if-=</span> +<span id="L942" class="LineNr"> 942 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"environment is not a list of (key . value) pairs"</span> +<span id="L943" class="LineNr"> 943 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L944" class="LineNr"> 944 </span> <span class="PreProc">return</span> +<span id="L945" class="LineNr"> 945 </span> <span class="Delimiter">}</span> +<span id="L946" class="LineNr"> 946 </span> <span class="muComment"># check key</span> +<span id="L947" class="LineNr"> 947 </span> <span class="PreProc">var</span> curr-key-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L948" class="LineNr"> 948 </span> <span class="PreProc">var</span> curr-key-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address curr-key-storage +<span id="L949" class="LineNr"> 949 </span> <a href='evaluate.mu.html#L981'>car</a> env-head, curr-key-ah, trace +<span id="L950" class="LineNr"> 950 </span> <span class="PreProc">var</span> curr-key/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *curr-key-ah +<span id="L951" class="LineNr"> 951 </span> <span class="muComment"># if key is not a symbol, abort</span> +<span id="L952" class="LineNr"> 952 </span> <span class="Delimiter">{</span> +<span id="L953" class="LineNr"> 953 </span> <span class="PreProc">var</span> curr-key-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get curr-key, <span class="PreProc">type</span> +<span id="L954" class="LineNr"> 954 </span> compare *curr-key-type, <span class="Constant">2</span>/symbol +<span id="L955" class="LineNr"> 955 </span> <span class="PreProc">break-if-=</span> +<span id="L956" class="LineNr"> 956 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"environment contains a binding for a non-symbol"</span> +<span id="L957" class="LineNr"> 957 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L958" class="LineNr"> 958 </span> <span class="PreProc">return</span> +<span id="L959" class="LineNr"> 959 </span> <span class="Delimiter">}</span> +<span id="L960" class="LineNr"> 960 </span> <span class="muComment"># if key matches name, return val</span> +<span id="L961" class="LineNr"> 961 </span> <span class="PreProc">var</span> curr-key-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get curr-key, text-data +<span id="L962" class="LineNr"> 962 </span> <span class="PreProc">var</span> curr-key-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *curr-key-data-ah +<span id="L963" class="LineNr"> 963 </span> <span class="PreProc">var</span> match?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L211'>streams-data-equal?</a> curr-key-data, name +<span id="L964" class="LineNr"> 964 </span> compare match?, <span class="Constant">0</span>/false +<span id="L965" class="LineNr"> 965 </span> <span class="Delimiter">{</span> +<span id="L966" class="LineNr"> 966 </span> <span class="PreProc">break-if-=</span> +<span id="L967" class="LineNr"> 967 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get env-head, right +<span id="L968" class="LineNr"> 968 </span> copy-object val, dest +<span id="L969" class="LineNr"> 969 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"=> done"</span> +<span id="L970" class="LineNr"> 970 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L971" class="LineNr"> 971 </span> <span class="PreProc">return</span> +<span id="L972" class="LineNr"> 972 </span> <span class="Delimiter">}</span> +<span id="L973" class="LineNr"> 973 </span> <span class="muComment"># otherwise recurse</span> +<span id="L974" class="LineNr"> 974 </span> <span class="PreProc">var</span> env-tail-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L975" class="LineNr"> 975 </span> <span class="PreProc">var</span> env-tail-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address env-tail-storage +<span id="L976" class="LineNr"> 976 </span> <a href='evaluate.mu.html#L1009'>cdr</a> env, env-tail-ah, trace +<span id="L977" class="LineNr"> 977 </span> <a href='evaluate.mu.html#L875'>mutate-binding</a> name, val, *env-tail-ah, globals, trace +<span id="L978" class="LineNr"> 978 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L979" class="LineNr"> 979 </span><span class="Delimiter">}</span> +<span id="L980" class="LineNr"> 980 </span> +<span id="L981" class="LineNr"> 981 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='evaluate.mu.html#L981'>car</a></span> _in: (addr <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L982" class="LineNr"> 982 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"car"</span> +<span id="L983" class="LineNr"> 983 </span> <a href='trace.mu.html#L147'>trace-lower</a> trace +<span id="L984" class="LineNr"> 984 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in +<span id="L985" class="LineNr"> 985 </span> <span class="muComment"># if in is not a list, abort</span> +<span id="L986" class="LineNr"> 986 </span> <span class="Delimiter">{</span> +<span id="L987" class="LineNr"> 987 </span> <span class="PreProc">var</span> in-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get in, <span class="PreProc">type</span> +<span id="L988" class="LineNr"> 988 </span> compare *in-type, <span class="Constant">0</span>/pair <span id="L989" class="LineNr"> 989 </span> <span class="PreProc">break-if-=</span> -<span id="L990" class="LineNr"> 990 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L991" class="LineNr"> 991 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"=> false (type)"</span> -<span id="L992" class="LineNr"> 992 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L990" class="LineNr"> 990 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"car on a non-list"</span> +<span id="L991" class="LineNr"> 991 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L992" class="LineNr"> 992 </span> <span class="PreProc">return</span> <span id="L993" class="LineNr"> 993 </span> <span class="Delimiter">}</span> -<span id="L994" class="LineNr"> 994 </span> <span class="muComment"># if types are number, compare number-data</span> -<span id="L995" class="LineNr"> 995 </span> <span class="muComment"># TODO: exactly comparing floats is a bad idea</span> -<span id="L996" class="LineNr"> 996 </span> compare b-type, <span class="Constant">1</span>/number -<span id="L997" class="LineNr"> 997 </span> <span class="Delimiter">{</span> -<span id="L998" class="LineNr"> 998 </span> <span class="PreProc">break-if-!=</span> -<span id="L999" class="LineNr"> 999 </span> <span class="PreProc">var</span> a-val-addr/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> get a, number-data -<span id="L1000" class="LineNr">1000 </span> <span class="PreProc">var</span> b-val-addr/<span class="Constant">ecx</span>: (addr float) <span class="Special"><-</span> get b, number-data -<span id="L1001" class="LineNr">1001 </span> <span class="PreProc">var</span> a-val/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *a-val-addr -<span id="L1002" class="LineNr">1002 </span> compare a-val, *b-val-addr -<span id="L1003" class="LineNr">1003 </span> <span class="Delimiter">{</span> -<span id="L1004" class="LineNr">1004 </span> <span class="PreProc">break-if-=</span> -<span id="L1005" class="LineNr">1005 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L1006" class="LineNr">1006 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"=> false (numbers)"</span> -<span id="L1007" class="LineNr">1007 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L1008" class="LineNr">1008 </span> <span class="Delimiter">}</span> -<span id="L1009" class="LineNr">1009 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L1010" class="LineNr">1010 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"=> true (numbers)"</span> -<span id="L1011" class="LineNr">1011 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true -<span id="L1012" class="LineNr">1012 </span> <span class="Delimiter">}</span> -<span id="L1013" class="LineNr">1013 </span> compare b-type, <span class="Constant">2</span>/symbol +<span id="L994" class="LineNr"> 994 </span> <span class="muComment"># if in is nil, abort</span> +<span id="L995" class="LineNr"> 995 </span> <span class="Delimiter">{</span> +<span id="L996" class="LineNr"> 996 </span> <span class="PreProc">var</span> in-nil?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> in +<span id="L997" class="LineNr"> 997 </span> compare in-nil?, <span class="Constant">0</span>/false +<span id="L998" class="LineNr"> 998 </span> <span class="PreProc">break-if-=</span> +<span id="L999" class="LineNr"> 999 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"car on nil"</span> +<span id="L1000" class="LineNr">1000 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L1001" class="LineNr">1001 </span> <span class="PreProc">return</span> +<span id="L1002" class="LineNr">1002 </span> <span class="Delimiter">}</span> +<span id="L1003" class="LineNr">1003 </span> <span class="PreProc">var</span> in-left/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in, left +<span id="L1004" class="LineNr">1004 </span> copy-object in-left, out +<span id="L1005" class="LineNr">1005 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L1006" class="LineNr">1006 </span> <span class="PreProc">return</span> +<span id="L1007" class="LineNr">1007 </span><span class="Delimiter">}</span> +<span id="L1008" class="LineNr">1008 </span> +<span id="L1009" class="LineNr">1009 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='evaluate.mu.html#L1009'>cdr</a></span> _in: (addr <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L1010" class="LineNr">1010 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"cdr"</span> +<span id="L1011" class="LineNr">1011 </span> <a href='trace.mu.html#L147'>trace-lower</a> trace +<span id="L1012" class="LineNr">1012 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in +<span id="L1013" class="LineNr">1013 </span> <span class="muComment"># if in is not a list, abort</span> <span id="L1014" class="LineNr">1014 </span> <span class="Delimiter">{</span> -<span id="L1015" class="LineNr">1015 </span> <span class="PreProc">break-if-!=</span> -<span id="L1016" class="LineNr">1016 </span> <span class="PreProc">var</span> b-val-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get b, text-data -<span id="L1017" class="LineNr">1017 </span> <span class="PreProc">var</span> _b-val/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *b-val-ah -<span id="L1018" class="LineNr">1018 </span> <span class="PreProc">var</span> b-val/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> copy _b-val -<span id="L1019" class="LineNr">1019 </span> <span class="PreProc">var</span> a-val-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get a, text-data -<span id="L1020" class="LineNr">1020 </span> <span class="PreProc">var</span> a-val/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *a-val-ah -<span id="L1021" class="LineNr">1021 </span> <span class="PreProc">var</span> tmp-array: (handle array byte) -<span id="L1022" class="LineNr">1022 </span> <span class="PreProc">var</span> tmp-ah/<span class="Constant">edx</span>: (addr handle array byte) <span class="Special"><-</span> address tmp-array -<span id="L1023" class="LineNr">1023 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> a-val -<span id="L1024" class="LineNr">1024 </span> <a href='../310copy-bytes.subx.html#L60'>stream-to-array</a> a-val, tmp-ah -<span id="L1025" class="LineNr">1025 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *tmp-ah -<span id="L1026" class="LineNr">1026 </span> <span class="PreProc">var</span> match?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> b-val, tmp -<span id="L1027" class="LineNr">1027 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L1028" class="LineNr">1028 </span> <span class="Delimiter">{</span> -<span id="L1029" class="LineNr">1029 </span> compare match?, <span class="Constant">0</span>/false -<span id="L1030" class="LineNr">1030 </span> <span class="PreProc">break-if-=</span> -<span id="L1031" class="LineNr">1031 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"=> true (symbols)"</span> -<span id="L1032" class="LineNr">1032 </span> <span class="Delimiter">}</span> -<span id="L1033" class="LineNr">1033 </span> <span class="Delimiter">{</span> -<span id="L1034" class="LineNr">1034 </span> compare match?, <span class="Constant">0</span>/false -<span id="L1035" class="LineNr">1035 </span> <span class="PreProc">break-if-!=</span> -<span id="L1036" class="LineNr">1036 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"=> false (symbols)"</span> -<span id="L1037" class="LineNr">1037 </span> <span class="Delimiter">}</span> -<span id="L1038" class="LineNr">1038 </span> <span class="PreProc">return</span> match? -<span id="L1039" class="LineNr">1039 </span> <span class="Delimiter">}</span> -<span id="L1040" class="LineNr">1040 </span> <span class="muComment"># if a is nil, b should be nil</span> -<span id="L1041" class="LineNr">1041 </span> <span class="Delimiter">{</span> -<span id="L1042" class="LineNr">1042 </span> <span class="muComment"># (assumes nil? returns 0 or 1)</span> -<span id="L1043" class="LineNr">1043 </span> <span class="PreProc">var</span> _b-nil?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> b -<span id="L1044" class="LineNr">1044 </span> <span class="PreProc">var</span> b-nil?/<span class="Constant">ecx</span>: boolean <span class="Special"><-</span> copy _b-nil? -<span id="L1045" class="LineNr">1045 </span> <span class="PreProc">var</span> a-nil?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> a -<span id="L1046" class="LineNr">1046 </span> <span class="muComment"># a == nil and b == nil => return true</span> -<span id="L1047" class="LineNr">1047 </span> <span class="Delimiter">{</span> -<span id="L1048" class="LineNr">1048 </span> compare a-nil?, <span class="Constant">0</span>/false -<span id="L1049" class="LineNr">1049 </span> <span class="PreProc">break-if-=</span> -<span id="L1050" class="LineNr">1050 </span> compare b-nil?, <span class="Constant">0</span>/false -<span id="L1051" class="LineNr">1051 </span> <span class="PreProc">break-if-=</span> -<span id="L1052" class="LineNr">1052 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L1053" class="LineNr">1053 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"=> true (nils)"</span> -<span id="L1054" class="LineNr">1054 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true -<span id="L1055" class="LineNr">1055 </span> <span class="Delimiter">}</span> -<span id="L1056" class="LineNr">1056 </span> <span class="muComment"># a == nil => return false</span> -<span id="L1057" class="LineNr">1057 </span> <span class="Delimiter">{</span> -<span id="L1058" class="LineNr">1058 </span> compare a-nil?, <span class="Constant">0</span>/false -<span id="L1059" class="LineNr">1059 </span> <span class="PreProc">break-if-=</span> -<span id="L1060" class="LineNr">1060 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L1061" class="LineNr">1061 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"=> false (b != <a href='cell.mu.html#L120'>nil</a>)"</span> -<span id="L1062" class="LineNr">1062 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L1063" class="LineNr">1063 </span> <span class="Delimiter">}</span> -<span id="L1064" class="LineNr">1064 </span> <span class="muComment"># b == nil => return false</span> -<span id="L1065" class="LineNr">1065 </span> <span class="Delimiter">{</span> -<span id="L1066" class="LineNr">1066 </span> compare b-nil?, <span class="Constant">0</span>/false -<span id="L1067" class="LineNr">1067 </span> <span class="PreProc">break-if-=</span> -<span id="L1068" class="LineNr">1068 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L1069" class="LineNr">1069 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"=> false (a != <a href='cell.mu.html#L120'>nil</a>)"</span> -<span id="L1070" class="LineNr">1070 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L1071" class="LineNr">1071 </span> <span class="Delimiter">}</span> -<span id="L1072" class="LineNr">1072 </span> <span class="Delimiter">}</span> -<span id="L1073" class="LineNr">1073 </span> <span class="muComment"># a and b are pairs</span> -<span id="L1074" class="LineNr">1074 </span> <span class="PreProc">var</span> a-tmp-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L1075" class="LineNr">1075 </span> <span class="PreProc">var</span> a-tmp-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address a-tmp-storage -<span id="L1076" class="LineNr">1076 </span> <span class="PreProc">var</span> b-tmp-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L1077" class="LineNr">1077 </span> <span class="PreProc">var</span> b-tmp-ah/<span class="Constant">ebx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address b-tmp-storage -<span id="L1078" class="LineNr">1078 </span> <span class="muComment"># if cars aren't equal, return false</span> -<span id="L1079" class="LineNr">1079 </span> <a href='evaluate.mu.html#L922'>car</a> a, a-tmp-ah, trace -<span id="L1080" class="LineNr">1080 </span> <a href='evaluate.mu.html#L922'>car</a> b, b-tmp-ah, trace -<span id="L1081" class="LineNr">1081 </span> <span class="Delimiter">{</span> -<span id="L1082" class="LineNr">1082 </span> <span class="PreProc">var</span> _a-tmp/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *a-tmp-ah -<span id="L1083" class="LineNr">1083 </span> <span class="PreProc">var</span> a-tmp/<span class="Constant">ecx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _a-tmp -<span id="L1084" class="LineNr">1084 </span> <span class="PreProc">var</span> b-tmp/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *b-tmp-ah -<span id="L1085" class="LineNr">1085 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='evaluate.mu.html#L978'>cell-isomorphic?</a> a-tmp, b-tmp, trace -<span id="L1086" class="LineNr">1086 </span> compare result, <span class="Constant">0</span>/false -<span id="L1087" class="LineNr">1087 </span> <span class="PreProc">break-if-!=</span> -<span id="L1088" class="LineNr">1088 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L1089" class="LineNr">1089 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"=> false (<a href='evaluate.mu.html#L922'>car</a> mismatch)"</span> -<span id="L1090" class="LineNr">1090 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L1091" class="LineNr">1091 </span> <span class="Delimiter">}</span> -<span id="L1092" class="LineNr">1092 </span> <span class="muComment"># recurse on cdrs</span> -<span id="L1093" class="LineNr">1093 </span> <a href='evaluate.mu.html#L950'>cdr</a> a, a-tmp-ah, trace -<span id="L1094" class="LineNr">1094 </span> <a href='evaluate.mu.html#L950'>cdr</a> b, b-tmp-ah, trace -<span id="L1095" class="LineNr">1095 </span> <span class="PreProc">var</span> _a-tmp/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *a-tmp-ah -<span id="L1096" class="LineNr">1096 </span> <span class="PreProc">var</span> a-tmp/<span class="Constant">ecx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _a-tmp -<span id="L1097" class="LineNr">1097 </span> <span class="PreProc">var</span> b-tmp/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *b-tmp-ah -<span id="L1098" class="LineNr">1098 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='evaluate.mu.html#L978'>cell-isomorphic?</a> a-tmp, b-tmp, trace -<span id="L1099" class="LineNr">1099 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L1100" class="LineNr">1100 </span> <span class="PreProc">return</span> result -<span id="L1101" class="LineNr">1101 </span><span class="Delimiter">}</span> -<span id="L1102" class="LineNr">1102 </span> -<span id="L1103" class="LineNr">1103 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='evaluate.mu.html#L1103'>fn?</a></span> _x: (addr <a href='cell.mu.html#L1'>cell</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L1104" class="LineNr">1104 </span> <span class="PreProc">var</span> x/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _x -<span id="L1105" class="LineNr">1105 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get x, <span class="PreProc">type</span> -<span id="L1106" class="LineNr">1106 </span> compare *<span class="PreProc">type</span>, <span class="Constant">2</span>/symbol -<span id="L1107" class="LineNr">1107 </span> <span class="Delimiter">{</span> -<span id="L1108" class="LineNr">1108 </span> <span class="PreProc">break-if-=</span> -<span id="L1109" class="LineNr">1109 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L1110" class="LineNr">1110 </span> <span class="Delimiter">}</span> -<span id="L1111" class="LineNr">1111 </span> <span class="PreProc">var</span> contents-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get x, text-data -<span id="L1112" class="LineNr">1112 </span> <span class="PreProc">var</span> contents/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *contents-ah -<span id="L1113" class="LineNr">1113 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> contents, <span class="Constant">"fn"</span> -<span id="L1114" class="LineNr">1114 </span> <span class="PreProc">return</span> result -<span id="L1115" class="LineNr">1115 </span><span class="Delimiter">}</span> -<span id="L1116" class="LineNr">1116 </span> -<span id="L1117" class="LineNr">1117 </span><span class="PreProc">fn</span> <span class="muTest"><a href='evaluate.mu.html#L1117'>test-evaluate-is-well-behaved</a></span> <span class="Delimiter">{</span> -<span id="L1118" class="LineNr">1118 </span> <span class="PreProc">var</span> t-storage: trace -<span id="L1119" class="LineNr">1119 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage -<span id="L1120" class="LineNr">1120 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0</span>/visible <span class="muComment"># we don't use trace UI</span> -<span id="L1121" class="LineNr">1121 </span> <span class="muComment"># env = nil</span> -<span id="L1122" class="LineNr">1122 </span> <span class="PreProc">var</span> env-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L1123" class="LineNr">1123 </span> <span class="PreProc">var</span> env-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address env-storage -<span id="L1124" class="LineNr">1124 </span> <a href='cell.mu.html#L101'>allocate-pair</a> env-ah -<span id="L1125" class="LineNr">1125 </span> <span class="muComment"># eval sym(a), nil env</span> -<span id="L1126" class="LineNr">1126 </span> <span class="PreProc">var</span> tmp-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L1127" class="LineNr">1127 </span> <span class="PreProc">var</span> tmp-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address tmp-storage -<span id="L1128" class="LineNr">1128 </span> <a href='cell.mu.html#L38'>new-symbol</a> tmp-ah, <span class="Constant">"a"</span> -<span id="L1129" class="LineNr">1129 </span> <a href='evaluate.mu.html#L5'>evaluate</a> tmp-ah, tmp-ah, *env-ah, <span class="Constant">0</span>/no-globals, t, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-keyboard, <span class="Constant">0</span>/call-number -<span id="L1130" class="LineNr">1130 </span> <span class="muComment"># doesn't die</span> -<span id="L1131" class="LineNr">1131 </span> <a href='trace.mu.html#L194'>check-trace-contains</a> t, <span class="Constant">"error"</span>, <span class="Constant">"unbound symbol: a"</span>, <span class="Constant">"F - test-evaluate-is-well-behaved"</span> -<span id="L1132" class="LineNr">1132 </span><span class="Delimiter">}</span> -<span id="L1133" class="LineNr">1133 </span> -<span id="L1134" class="LineNr">1134 </span><span class="PreProc">fn</span> <span class="muTest"><a href='evaluate.mu.html#L1134'>test-evaluate-number</a></span> <span class="Delimiter">{</span> -<span id="L1135" class="LineNr">1135 </span> <span class="muComment"># env = nil</span> -<span id="L1136" class="LineNr">1136 </span> <span class="PreProc">var</span> env-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L1137" class="LineNr">1137 </span> <span class="PreProc">var</span> env-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address env-storage -<span id="L1138" class="LineNr">1138 </span> <a href='cell.mu.html#L101'>allocate-pair</a> env-ah -<span id="L1139" class="LineNr">1139 </span> <span class="muComment"># tmp = 3</span> -<span id="L1140" class="LineNr">1140 </span> <span class="PreProc">var</span> tmp-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L1141" class="LineNr">1141 </span> <span class="PreProc">var</span> tmp-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address tmp-storage -<span id="L1142" class="LineNr">1142 </span> <a href='cell.mu.html#L83'>new-integer</a> tmp-ah, <span class="Constant">3</span> -<span id="L1143" class="LineNr">1143 </span> <a href='evaluate.mu.html#L5'>evaluate</a> tmp-ah, tmp-ah, *env-ah, <span class="Constant">0</span>/no-globals, <span class="Constant">0</span>/no-trace, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-keyboard, <span class="Constant">0</span>/call-number -<span id="L1144" class="LineNr">1144 </span> <span class="muComment">#</span> -<span id="L1145" class="LineNr">1145 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *tmp-ah -<span id="L1146" class="LineNr">1146 </span> <span class="PreProc">var</span> result-type/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get result, <span class="PreProc">type</span> -<span id="L1147" class="LineNr">1147 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> *result-type, <span class="Constant">1</span>/number, <span class="Constant">"F - <a href='evaluate.mu.html#L1134'>test-evaluate-number</a>/0"</span> -<span id="L1148" class="LineNr">1148 </span> <span class="PreProc">var</span> result-value-addr/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> get result, number-data -<span id="L1149" class="LineNr">1149 </span> <span class="PreProc">var</span> result-value/<span class="Constant">eax</span>: int <span class="Special"><-</span> convert *result-value-addr -<span id="L1150" class="LineNr">1150 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> result-value, <span class="Constant">3</span>, <span class="Constant">"F - <a href='evaluate.mu.html#L1134'>test-evaluate-number</a>/1"</span> -<span id="L1151" class="LineNr">1151 </span><span class="Delimiter">}</span> -<span id="L1152" class="LineNr">1152 </span> -<span id="L1153" class="LineNr">1153 </span><span class="PreProc">fn</span> <span class="muTest"><a href='evaluate.mu.html#L1153'>test-evaluate-symbol</a></span> <span class="Delimiter">{</span> -<span id="L1154" class="LineNr">1154 </span> <span class="muComment"># tmp = (a . 3)</span> -<span id="L1155" class="LineNr">1155 </span> <span class="PreProc">var</span> val-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L1156" class="LineNr">1156 </span> <span class="PreProc">var</span> val-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address val-storage -<span id="L1157" class="LineNr">1157 </span> <a href='cell.mu.html#L83'>new-integer</a> val-ah, <span class="Constant">3</span> -<span id="L1158" class="LineNr">1158 </span> <span class="PreProc">var</span> key-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L1159" class="LineNr">1159 </span> <span class="PreProc">var</span> key-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address key-storage -<span id="L1160" class="LineNr">1160 </span> <a href='cell.mu.html#L38'>new-symbol</a> key-ah, <span class="Constant">"a"</span> -<span id="L1161" class="LineNr">1161 </span> <span class="PreProc">var</span> env-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L1162" class="LineNr">1162 </span> <span class="PreProc">var</span> env-ah/<span class="Constant">ebx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address env-storage -<span id="L1163" class="LineNr">1163 </span> <a href='cell.mu.html#L115'>new-pair</a> env-ah, *key-ah, *val-ah -<span id="L1164" class="LineNr">1164 </span> <span class="muComment"># env = ((a . 3))</span> -<span id="L1165" class="LineNr">1165 </span> <span class="PreProc">var</span> nil-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L1166" class="LineNr">1166 </span> <span class="PreProc">var</span> nil-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address nil-storage -<span id="L1167" class="LineNr">1167 </span> <a href='cell.mu.html#L101'>allocate-pair</a> nil-ah -<span id="L1168" class="LineNr">1168 </span> <a href='cell.mu.html#L115'>new-pair</a> env-ah, *env-ah, *nil-ah -<span id="L1169" class="LineNr">1169 </span> <span class="muComment"># eval sym(a), env</span> -<span id="L1170" class="LineNr">1170 </span> <span class="PreProc">var</span> tmp-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L1171" class="LineNr">1171 </span> <span class="PreProc">var</span> tmp-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address tmp-storage -<span id="L1172" class="LineNr">1172 </span> <a href='cell.mu.html#L38'>new-symbol</a> tmp-ah, <span class="Constant">"a"</span> -<span id="L1173" class="LineNr">1173 </span> <a href='evaluate.mu.html#L5'>evaluate</a> tmp-ah, tmp-ah, *env-ah, <span class="Constant">0</span>/no-globals, <span class="Constant">0</span>/no-trace, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-keyboard, <span class="Constant">0</span>/call-number -<span id="L1174" class="LineNr">1174 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *tmp-ah -<span id="L1175" class="LineNr">1175 </span> <span class="PreProc">var</span> result-type/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get result, <span class="PreProc">type</span> -<span id="L1176" class="LineNr">1176 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> *result-type, <span class="Constant">1</span>/number, <span class="Constant">"F - <a href='evaluate.mu.html#L1153'>test-evaluate-symbol</a>/0"</span> -<span id="L1177" class="LineNr">1177 </span> <span class="PreProc">var</span> result-value-addr/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> get result, number-data -<span id="L1178" class="LineNr">1178 </span> <span class="PreProc">var</span> result-value/<span class="Constant">eax</span>: int <span class="Special"><-</span> convert *result-value-addr -<span id="L1179" class="LineNr">1179 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> result-value, <span class="Constant">3</span>, <span class="Constant">"F - <a href='evaluate.mu.html#L1153'>test-evaluate-symbol</a>/1"</span> -<span id="L1180" class="LineNr">1180 </span><span class="Delimiter">}</span> -<span id="L1181" class="LineNr">1181 </span> -<span id="L1182" class="LineNr">1182 </span><span class="PreProc">fn</span> <span class="muTest"><a href='evaluate.mu.html#L1182'>test-evaluate-primitive-function</a></span> <span class="Delimiter">{</span> -<span id="L1183" class="LineNr">1183 </span> <span class="PreProc">var</span> globals-storage: <a href='global.mu.html#L7'>global-table</a> -<span id="L1184" class="LineNr">1184 </span> <span class="PreProc">var</span> globals/<span class="Constant">edi</span>: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Special"><-</span> address globals-storage -<span id="L1185" class="LineNr">1185 </span> <a href='global.mu.html#L12'>initialize-globals</a> globals -<span id="L1186" class="LineNr">1186 </span> <span class="PreProc">var</span> nil-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L1187" class="LineNr">1187 </span> <span class="PreProc">var</span> nil-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address nil-storage -<span id="L1188" class="LineNr">1188 </span> <a href='cell.mu.html#L101'>allocate-pair</a> nil-ah -<span id="L1189" class="LineNr">1189 </span> <span class="PreProc">var</span> add-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L1190" class="LineNr">1190 </span> <span class="PreProc">var</span> add-ah/<span class="Constant">ebx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address add-storage -<span id="L1191" class="LineNr">1191 </span> <a href='cell.mu.html#L38'>new-symbol</a> add-ah, <span class="Constant">"+"</span> -<span id="L1192" class="LineNr">1192 </span> <span class="muComment"># eval +, nil env</span> -<span id="L1193" class="LineNr">1193 </span> <span class="PreProc">var</span> tmp-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L1194" class="LineNr">1194 </span> <span class="PreProc">var</span> tmp-ah/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address tmp-storage -<span id="L1195" class="LineNr">1195 </span> <a href='evaluate.mu.html#L5'>evaluate</a> add-ah, tmp-ah, *nil-ah, globals, <span class="Constant">0</span>/no-trace, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-keyboard, <span class="Constant">0</span>/call-number -<span id="L1196" class="LineNr">1196 </span> <span class="muComment">#</span> -<span id="L1197" class="LineNr">1197 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *tmp-ah -<span id="L1198" class="LineNr">1198 </span> <span class="PreProc">var</span> result-type/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get result, <span class="PreProc">type</span> -<span id="L1199" class="LineNr">1199 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> *result-type, <span class="Constant">4</span>/primitive-function, <span class="Constant">"F - <a href='evaluate.mu.html#L1182'>test-evaluate-primitive-function</a>/0"</span> -<span id="L1200" class="LineNr">1200 </span> <span class="PreProc">var</span> result-value/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get result, index-data -<span id="L1201" class="LineNr">1201 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> *result-value, <span class="Constant">1</span>/add, <span class="Constant">"F - <a href='evaluate.mu.html#L1182'>test-evaluate-primitive-function</a>/1"</span> -<span id="L1202" class="LineNr">1202 </span><span class="Delimiter">}</span> -<span id="L1203" class="LineNr">1203 </span> -<span id="L1204" class="LineNr">1204 </span><span class="PreProc">fn</span> <span class="muTest"><a href='evaluate.mu.html#L1204'>test-evaluate-primitive-function-call</a></span> <span class="Delimiter">{</span> -<span id="L1205" class="LineNr">1205 </span> <span class="PreProc">var</span> t-storage: trace -<span id="L1206" class="LineNr">1206 </span> <span class="PreProc">var</span> t/<span class="Constant">edi</span>: (addr trace) <span class="Special"><-</span> address t-storage -<span id="L1207" class="LineNr">1207 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x100</span>, <span class="Constant">0</span>/visible <span class="muComment"># we don't use trace UI</span> -<span id="L1208" class="LineNr">1208 </span> <span class="muComment">#</span> -<span id="L1209" class="LineNr">1209 </span> <span class="PreProc">var</span> nil-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L1210" class="LineNr">1210 </span> <span class="PreProc">var</span> nil-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address nil-storage -<span id="L1211" class="LineNr">1211 </span> <a href='cell.mu.html#L101'>allocate-pair</a> nil-ah -<span id="L1212" class="LineNr">1212 </span> <span class="PreProc">var</span> one-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L1213" class="LineNr">1213 </span> <span class="PreProc">var</span> one-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address one-storage -<span id="L1214" class="LineNr">1214 </span> <a href='cell.mu.html#L83'>new-integer</a> one-ah, <span class="Constant">1</span> -<span id="L1215" class="LineNr">1215 </span> <span class="PreProc">var</span> add-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L1216" class="LineNr">1216 </span> <span class="PreProc">var</span> add-ah/<span class="Constant">ebx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address add-storage -<span id="L1217" class="LineNr">1217 </span> <a href='cell.mu.html#L38'>new-symbol</a> add-ah, <span class="Constant">"+"</span> -<span id="L1218" class="LineNr">1218 </span> <span class="muComment"># input is (+ 1 1)</span> -<span id="L1219" class="LineNr">1219 </span> <span class="PreProc">var</span> tmp-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L1220" class="LineNr">1220 </span> <span class="PreProc">var</span> tmp-ah/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address tmp-storage -<span id="L1221" class="LineNr">1221 </span> <a href='cell.mu.html#L115'>new-pair</a> tmp-ah, *one-ah, *nil-ah -<span id="L1222" class="LineNr">1222 </span> <a href='cell.mu.html#L115'>new-pair</a> tmp-ah, *one-ah, *tmp-ah -<span id="L1223" class="LineNr">1223 </span> <a href='cell.mu.html#L115'>new-pair</a> tmp-ah, *add-ah, *tmp-ah -<span id="L1224" class="LineNr">1224 </span><span class="CommentedCode">#? dump-cell tmp-ah</span> -<span id="L1225" class="LineNr">1225 </span> <span class="muComment">#</span> -<span id="L1226" class="LineNr">1226 </span> <span class="PreProc">var</span> globals-storage: <a href='global.mu.html#L7'>global-table</a> -<span id="L1227" class="LineNr">1227 </span> <span class="PreProc">var</span> globals/<span class="Constant">edx</span>: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Special"><-</span> address globals-storage -<span id="L1228" class="LineNr">1228 </span> <a href='global.mu.html#L12'>initialize-globals</a> globals -<span id="L1229" class="LineNr">1229 </span> <span class="muComment">#</span> -<span id="L1230" class="LineNr">1230 </span> <a href='evaluate.mu.html#L5'>evaluate</a> tmp-ah, tmp-ah, *nil-ah, globals, t, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-keyboard, <span class="Constant">0</span>/call-number -<span id="L1231" class="LineNr">1231 </span><span class="CommentedCode">#? dump-trace t</span> -<span id="L1232" class="LineNr">1232 </span> <span class="muComment">#</span> -<span id="L1233" class="LineNr">1233 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *tmp-ah -<span id="L1234" class="LineNr">1234 </span> <span class="PreProc">var</span> result-type/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get result, <span class="PreProc">type</span> -<span id="L1235" class="LineNr">1235 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> *result-type, <span class="Constant">1</span>/number, <span class="Constant">"F - <a href='evaluate.mu.html#L1204'>test-evaluate-primitive-function-call</a>/0"</span> -<span id="L1236" class="LineNr">1236 </span> <span class="PreProc">var</span> result-value-addr/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> get result, number-data -<span id="L1237" class="LineNr">1237 </span> <span class="PreProc">var</span> result-value/<span class="Constant">eax</span>: int <span class="Special"><-</span> convert *result-value-addr -<span id="L1238" class="LineNr">1238 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> result-value, <span class="Constant">2</span>, <span class="Constant">"F - <a href='evaluate.mu.html#L1204'>test-evaluate-primitive-function-call</a>/1"</span> -<span id="L1239" class="LineNr">1239 </span><span class="Delimiter">}</span> +<span id="L1015" class="LineNr">1015 </span> <span class="PreProc">var</span> in-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get in, <span class="PreProc">type</span> +<span id="L1016" class="LineNr">1016 </span> compare *in-type, <span class="Constant">0</span>/pair +<span id="L1017" class="LineNr">1017 </span> <span class="PreProc">break-if-=</span> +<span id="L1018" class="LineNr">1018 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"car on a non-list"</span> +<span id="L1019" class="LineNr">1019 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L1020" class="LineNr">1020 </span> <span class="PreProc">return</span> +<span id="L1021" class="LineNr">1021 </span> <span class="Delimiter">}</span> +<span id="L1022" class="LineNr">1022 </span> <span class="muComment"># if in is nil, abort</span> +<span id="L1023" class="LineNr">1023 </span> <span class="Delimiter">{</span> +<span id="L1024" class="LineNr">1024 </span> <span class="PreProc">var</span> in-nil?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> in +<span id="L1025" class="LineNr">1025 </span> compare in-nil?, <span class="Constant">0</span>/false +<span id="L1026" class="LineNr">1026 </span> <span class="PreProc">break-if-=</span> +<span id="L1027" class="LineNr">1027 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"car on nil"</span> +<span id="L1028" class="LineNr">1028 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L1029" class="LineNr">1029 </span> <span class="PreProc">return</span> +<span id="L1030" class="LineNr">1030 </span> <span class="Delimiter">}</span> +<span id="L1031" class="LineNr">1031 </span> <span class="PreProc">var</span> in-right/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in, right +<span id="L1032" class="LineNr">1032 </span> copy-object in-right, out +<span id="L1033" class="LineNr">1033 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L1034" class="LineNr">1034 </span> <span class="PreProc">return</span> +<span id="L1035" class="LineNr">1035 </span><span class="Delimiter">}</span> +<span id="L1036" class="LineNr">1036 </span> +<span id="L1037" class="LineNr">1037 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='evaluate.mu.html#L1037'>cell-isomorphic?</a></span> _a: (addr <a href='cell.mu.html#L1'>cell</a>), _b: (addr <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L1038" class="LineNr">1038 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"cell-isomorphic?"</span> +<span id="L1039" class="LineNr">1039 </span> <a href='trace.mu.html#L147'>trace-lower</a> trace +<span id="L1040" class="LineNr">1040 </span> <span class="PreProc">var</span> a/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _a +<span id="L1041" class="LineNr">1041 </span> <span class="PreProc">var</span> b/<span class="Constant">edi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _b +<span id="L1042" class="LineNr">1042 </span> <span class="muComment"># if types don't match, return false</span> +<span id="L1043" class="LineNr">1043 </span> <span class="PreProc">var</span> a-type-addr/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get a, <span class="PreProc">type</span> +<span id="L1044" class="LineNr">1044 </span> <span class="PreProc">var</span> b-type-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get b, <span class="PreProc">type</span> +<span id="L1045" class="LineNr">1045 </span> <span class="PreProc">var</span> b-type/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *b-type-addr +<span id="L1046" class="LineNr">1046 </span> compare b-type, *a-type-addr +<span id="L1047" class="LineNr">1047 </span> <span class="Delimiter">{</span> +<span id="L1048" class="LineNr">1048 </span> <span class="PreProc">break-if-=</span> +<span id="L1049" class="LineNr">1049 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L1050" class="LineNr">1050 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"=> false (type)"</span> +<span id="L1051" class="LineNr">1051 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L1052" class="LineNr">1052 </span> <span class="Delimiter">}</span> +<span id="L1053" class="LineNr">1053 </span> <span class="muComment"># if types are number, compare number-data</span> +<span id="L1054" class="LineNr">1054 </span> <span class="muComment"># TODO: exactly comparing floats is a bad idea</span> +<span id="L1055" class="LineNr">1055 </span> compare b-type, <span class="Constant">1</span>/number +<span id="L1056" class="LineNr">1056 </span> <span class="Delimiter">{</span> +<span id="L1057" class="LineNr">1057 </span> <span class="PreProc">break-if-!=</span> +<span id="L1058" class="LineNr">1058 </span> <span class="PreProc">var</span> a-val-addr/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> get a, number-data +<span id="L1059" class="LineNr">1059 </span> <span class="PreProc">var</span> b-val-addr/<span class="Constant">ecx</span>: (addr float) <span class="Special"><-</span> get b, number-data +<span id="L1060" class="LineNr">1060 </span> <span class="PreProc">var</span> a-val/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *a-val-addr +<span id="L1061" class="LineNr">1061 </span> compare a-val, *b-val-addr +<span id="L1062" class="LineNr">1062 </span> <span class="Delimiter">{</span> +<span id="L1063" class="LineNr">1063 </span> <span class="PreProc">break-if-=</span> +<span id="L1064" class="LineNr">1064 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L1065" class="LineNr">1065 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"=> false (numbers)"</span> +<span id="L1066" class="LineNr">1066 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L1067" class="LineNr">1067 </span> <span class="Delimiter">}</span> +<span id="L1068" class="LineNr">1068 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L1069" class="LineNr">1069 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"=> true (numbers)"</span> +<span id="L1070" class="LineNr">1070 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L1071" class="LineNr">1071 </span> <span class="Delimiter">}</span> +<span id="L1072" class="LineNr">1072 </span> $cell-isomorphic?:text-data: <span class="Delimiter">{</span> +<span id="L1073" class="LineNr">1073 </span> <span class="Delimiter">{</span> +<span id="L1074" class="LineNr">1074 </span> compare b-type, <span class="Constant">2</span>/symbol +<span id="L1075" class="LineNr">1075 </span> <span class="PreProc">break-if-=</span> +<span id="L1076" class="LineNr">1076 </span> compare b-type, <span class="Constant">3</span>/stream +<span id="L1077" class="LineNr">1077 </span> <span class="PreProc">break-if-=</span> +<span id="L1078" class="LineNr">1078 </span> <span class="PreProc">break</span> $cell-isomorphic?:text-data +<span id="L1079" class="LineNr">1079 </span> <span class="Delimiter">}</span> +<span id="L1080" class="LineNr">1080 </span> <span class="PreProc">var</span> b-val-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get b, text-data +<span id="L1081" class="LineNr">1081 </span> <span class="PreProc">var</span> _b-val/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *b-val-ah +<span id="L1082" class="LineNr">1082 </span> <span class="PreProc">var</span> b-val/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> copy _b-val +<span id="L1083" class="LineNr">1083 </span> <span class="PreProc">var</span> a-val-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get a, text-data +<span id="L1084" class="LineNr">1084 </span> <span class="PreProc">var</span> a-val/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *a-val-ah +<span id="L1085" class="LineNr">1085 </span> <span class="PreProc">var</span> tmp-array: (handle array byte) +<span id="L1086" class="LineNr">1086 </span> <span class="PreProc">var</span> tmp-ah/<span class="Constant">edx</span>: (addr handle array byte) <span class="Special"><-</span> address tmp-array +<span id="L1087" class="LineNr">1087 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> a-val +<span id="L1088" class="LineNr">1088 </span> <a href='../310copy-bytes.subx.html#L60'>stream-to-array</a> a-val, tmp-ah +<span id="L1089" class="LineNr">1089 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *tmp-ah +<span id="L1090" class="LineNr">1090 </span> <span class="PreProc">var</span> match?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> b-val, tmp +<span id="L1091" class="LineNr">1091 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L1092" class="LineNr">1092 </span> <span class="Delimiter">{</span> +<span id="L1093" class="LineNr">1093 </span> compare match?, <span class="Constant">0</span>/false +<span id="L1094" class="LineNr">1094 </span> <span class="PreProc">break-if-=</span> +<span id="L1095" class="LineNr">1095 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"=> true (symbols)"</span> +<span id="L1096" class="LineNr">1096 </span> <span class="Delimiter">}</span> +<span id="L1097" class="LineNr">1097 </span> <span class="Delimiter">{</span> +<span id="L1098" class="LineNr">1098 </span> compare match?, <span class="Constant">0</span>/false +<span id="L1099" class="LineNr">1099 </span> <span class="PreProc">break-if-!=</span> +<span id="L1100" class="LineNr">1100 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"=> false (symbols)"</span> +<span id="L1101" class="LineNr">1101 </span> <span class="Delimiter">}</span> +<span id="L1102" class="LineNr">1102 </span> <span class="PreProc">return</span> match? +<span id="L1103" class="LineNr">1103 </span> <span class="Delimiter">}</span> +<span id="L1104" class="LineNr">1104 </span> <span class="muComment"># if objects are primitive functions, compare index-data</span> +<span id="L1105" class="LineNr">1105 </span> compare b-type, <span class="Constant">4</span>/primitive +<span id="L1106" class="LineNr">1106 </span> <span class="Delimiter">{</span> +<span id="L1107" class="LineNr">1107 </span> <span class="PreProc">break-if-!=</span> +<span id="L1108" class="LineNr">1108 </span> <span class="PreProc">var</span> a-val-addr/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get a, index-data +<span id="L1109" class="LineNr">1109 </span> <span class="PreProc">var</span> b-val-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get b, index-data +<span id="L1110" class="LineNr">1110 </span> <span class="PreProc">var</span> a-val/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *a-val-addr +<span id="L1111" class="LineNr">1111 </span> compare a-val, *b-val-addr +<span id="L1112" class="LineNr">1112 </span> <span class="Delimiter">{</span> +<span id="L1113" class="LineNr">1113 </span> <span class="PreProc">break-if-=</span> +<span id="L1114" class="LineNr">1114 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L1115" class="LineNr">1115 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"=> false (primitives)"</span> +<span id="L1116" class="LineNr">1116 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L1117" class="LineNr">1117 </span> <span class="Delimiter">}</span> +<span id="L1118" class="LineNr">1118 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L1119" class="LineNr">1119 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"=> true (primitives)"</span> +<span id="L1120" class="LineNr">1120 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L1121" class="LineNr">1121 </span> <span class="Delimiter">}</span> +<span id="L1122" class="LineNr">1122 </span> <span class="muComment"># if objects are screens, check if they're the same object</span> +<span id="L1123" class="LineNr">1123 </span> compare b-type, <span class="Constant">5</span>/screen +<span id="L1124" class="LineNr">1124 </span> <span class="Delimiter">{</span> +<span id="L1125" class="LineNr">1125 </span> <span class="PreProc">break-if-!=</span> +<span id="L1126" class="LineNr">1126 </span> <span class="PreProc">var</span> a-val-addr/<span class="Constant">eax</span>: (addr handle <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> get a, screen-data +<span id="L1127" class="LineNr">1127 </span> <span class="PreProc">var</span> b-val-addr/<span class="Constant">ecx</span>: (addr handle <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> get b, screen-data +<span id="L1128" class="LineNr">1128 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../120allocate.subx.html#L448'>handle-equal?</a> *a-val-addr, *b-val-addr +<span id="L1129" class="LineNr">1129 </span> compare result, <span class="Constant">0</span>/false +<span id="L1130" class="LineNr">1130 </span> <span class="PreProc">return</span> result +<span id="L1131" class="LineNr">1131 </span> <span class="Delimiter">}</span> +<span id="L1132" class="LineNr">1132 </span> <span class="muComment"># if objects are keyboards, check if they have the same contents</span> +<span id="L1133" class="LineNr">1133 </span> compare b-type, <span class="Constant">6</span>/keyboard +<span id="L1134" class="LineNr">1134 </span> <span class="Delimiter">{</span> +<span id="L1135" class="LineNr">1135 </span> <span class="PreProc">break-if-!=</span> +<span id="L1136" class="LineNr">1136 </span> <span class="PreProc">var</span> a-val-addr/<span class="Constant">ecx</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get a, keyboard-data +<span id="L1137" class="LineNr">1137 </span> <span class="PreProc">var</span> _a/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *a-val-addr +<span id="L1138" class="LineNr">1138 </span> <span class="PreProc">var</span> a/<span class="Constant">ecx</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _a +<span id="L1139" class="LineNr">1139 </span> <span class="PreProc">var</span> b-val-addr/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get b, keyboard-data +<span id="L1140" class="LineNr">1140 </span> <span class="PreProc">var</span> b/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *b-val-addr +<span id="L1141" class="LineNr">1141 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='gap-buffer.mu.html#L398'>gap-buffers-equal?</a> a, b +<span id="L1142" class="LineNr">1142 </span> <span class="PreProc">return</span> result +<span id="L1143" class="LineNr">1143 </span> <span class="Delimiter">}</span> +<span id="L1144" class="LineNr">1144 </span> <span class="muComment"># if a is nil, b should be nil</span> +<span id="L1145" class="LineNr">1145 </span> <span class="Delimiter">{</span> +<span id="L1146" class="LineNr">1146 </span> <span class="muComment"># (assumes nil? returns 0 or 1)</span> +<span id="L1147" class="LineNr">1147 </span> <span class="PreProc">var</span> _b-nil?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> b +<span id="L1148" class="LineNr">1148 </span> <span class="PreProc">var</span> b-nil?/<span class="Constant">ecx</span>: boolean <span class="Special"><-</span> copy _b-nil? +<span id="L1149" class="LineNr">1149 </span> <span class="PreProc">var</span> a-nil?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> a +<span id="L1150" class="LineNr">1150 </span> <span class="muComment"># a == nil and b == nil => return true</span> +<span id="L1151" class="LineNr">1151 </span> <span class="Delimiter">{</span> +<span id="L1152" class="LineNr">1152 </span> compare a-nil?, <span class="Constant">0</span>/false +<span id="L1153" class="LineNr">1153 </span> <span class="PreProc">break-if-=</span> +<span id="L1154" class="LineNr">1154 </span> compare b-nil?, <span class="Constant">0</span>/false +<span id="L1155" class="LineNr">1155 </span> <span class="PreProc">break-if-=</span> +<span id="L1156" class="LineNr">1156 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L1157" class="LineNr">1157 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"=> true (nils)"</span> +<span id="L1158" class="LineNr">1158 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L1159" class="LineNr">1159 </span> <span class="Delimiter">}</span> +<span id="L1160" class="LineNr">1160 </span> <span class="muComment"># a == nil => return false</span> +<span id="L1161" class="LineNr">1161 </span> <span class="Delimiter">{</span> +<span id="L1162" class="LineNr">1162 </span> compare a-nil?, <span class="Constant">0</span>/false +<span id="L1163" class="LineNr">1163 </span> <span class="PreProc">break-if-=</span> +<span id="L1164" class="LineNr">1164 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L1165" class="LineNr">1165 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"=> false (b != <a href='cell.mu.html#L121'>nil</a>)"</span> +<span id="L1166" class="LineNr">1166 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L1167" class="LineNr">1167 </span> <span class="Delimiter">}</span> +<span id="L1168" class="LineNr">1168 </span> <span class="muComment"># b == nil => return false</span> +<span id="L1169" class="LineNr">1169 </span> <span class="Delimiter">{</span> +<span id="L1170" class="LineNr">1170 </span> compare b-nil?, <span class="Constant">0</span>/false +<span id="L1171" class="LineNr">1171 </span> <span class="PreProc">break-if-=</span> +<span id="L1172" class="LineNr">1172 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L1173" class="LineNr">1173 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"=> false (a != <a href='cell.mu.html#L121'>nil</a>)"</span> +<span id="L1174" class="LineNr">1174 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L1175" class="LineNr">1175 </span> <span class="Delimiter">}</span> +<span id="L1176" class="LineNr">1176 </span> <span class="Delimiter">}</span> +<span id="L1177" class="LineNr">1177 </span> <span class="muComment"># a and b are pairs</span> +<span id="L1178" class="LineNr">1178 </span> <span class="PreProc">var</span> a-tmp-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1179" class="LineNr">1179 </span> <span class="PreProc">var</span> a-tmp-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address a-tmp-storage +<span id="L1180" class="LineNr">1180 </span> <span class="PreProc">var</span> b-tmp-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1181" class="LineNr">1181 </span> <span class="PreProc">var</span> b-tmp-ah/<span class="Constant">ebx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address b-tmp-storage +<span id="L1182" class="LineNr">1182 </span> <span class="muComment"># if cars aren't equal, return false</span> +<span id="L1183" class="LineNr">1183 </span> <a href='evaluate.mu.html#L981'>car</a> a, a-tmp-ah, trace +<span id="L1184" class="LineNr">1184 </span> <a href='evaluate.mu.html#L981'>car</a> b, b-tmp-ah, trace +<span id="L1185" class="LineNr">1185 </span> <span class="Delimiter">{</span> +<span id="L1186" class="LineNr">1186 </span> <span class="PreProc">var</span> _a-tmp/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *a-tmp-ah +<span id="L1187" class="LineNr">1187 </span> <span class="PreProc">var</span> a-tmp/<span class="Constant">ecx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _a-tmp +<span id="L1188" class="LineNr">1188 </span> <span class="PreProc">var</span> b-tmp/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *b-tmp-ah +<span id="L1189" class="LineNr">1189 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='evaluate.mu.html#L1037'>cell-isomorphic?</a> a-tmp, b-tmp, trace +<span id="L1190" class="LineNr">1190 </span> compare result, <span class="Constant">0</span>/false +<span id="L1191" class="LineNr">1191 </span> <span class="PreProc">break-if-!=</span> +<span id="L1192" class="LineNr">1192 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L1193" class="LineNr">1193 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"=> false (<a href='evaluate.mu.html#L981'>car</a> mismatch)"</span> +<span id="L1194" class="LineNr">1194 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L1195" class="LineNr">1195 </span> <span class="Delimiter">}</span> +<span id="L1196" class="LineNr">1196 </span> <span class="muComment"># recurse on cdrs</span> +<span id="L1197" class="LineNr">1197 </span> <a href='evaluate.mu.html#L1009'>cdr</a> a, a-tmp-ah, trace +<span id="L1198" class="LineNr">1198 </span> <a href='evaluate.mu.html#L1009'>cdr</a> b, b-tmp-ah, trace +<span id="L1199" class="LineNr">1199 </span> <span class="PreProc">var</span> _a-tmp/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *a-tmp-ah +<span id="L1200" class="LineNr">1200 </span> <span class="PreProc">var</span> a-tmp/<span class="Constant">ecx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _a-tmp +<span id="L1201" class="LineNr">1201 </span> <span class="PreProc">var</span> b-tmp/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *b-tmp-ah +<span id="L1202" class="LineNr">1202 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='evaluate.mu.html#L1037'>cell-isomorphic?</a> a-tmp, b-tmp, trace +<span id="L1203" class="LineNr">1203 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L1204" class="LineNr">1204 </span> <span class="PreProc">return</span> result +<span id="L1205" class="LineNr">1205 </span><span class="Delimiter">}</span> +<span id="L1206" class="LineNr">1206 </span> +<span id="L1207" class="LineNr">1207 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='evaluate.mu.html#L1207'>fn?</a></span> _x: (addr <a href='cell.mu.html#L1'>cell</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L1208" class="LineNr">1208 </span> <span class="PreProc">var</span> x/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _x +<span id="L1209" class="LineNr">1209 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get x, <span class="PreProc">type</span> +<span id="L1210" class="LineNr">1210 </span> compare *<span class="PreProc">type</span>, <span class="Constant">2</span>/symbol +<span id="L1211" class="LineNr">1211 </span> <span class="Delimiter">{</span> +<span id="L1212" class="LineNr">1212 </span> <span class="PreProc">break-if-=</span> +<span id="L1213" class="LineNr">1213 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L1214" class="LineNr">1214 </span> <span class="Delimiter">}</span> +<span id="L1215" class="LineNr">1215 </span> <span class="PreProc">var</span> contents-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get x, text-data +<span id="L1216" class="LineNr">1216 </span> <span class="PreProc">var</span> contents/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *contents-ah +<span id="L1217" class="LineNr">1217 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> contents, <span class="Constant">"fn"</span> +<span id="L1218" class="LineNr">1218 </span> <span class="PreProc">return</span> result +<span id="L1219" class="LineNr">1219 </span><span class="Delimiter">}</span> +<span id="L1220" class="LineNr">1220 </span> +<span id="L1221" class="LineNr">1221 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='evaluate.mu.html#L1221'>litfn?</a></span> _x: (addr <a href='cell.mu.html#L1'>cell</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L1222" class="LineNr">1222 </span> <span class="PreProc">var</span> x/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _x +<span id="L1223" class="LineNr">1223 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get x, <span class="PreProc">type</span> +<span id="L1224" class="LineNr">1224 </span> compare *<span class="PreProc">type</span>, <span class="Constant">2</span>/symbol +<span id="L1225" class="LineNr">1225 </span> <span class="Delimiter">{</span> +<span id="L1226" class="LineNr">1226 </span> <span class="PreProc">break-if-=</span> +<span id="L1227" class="LineNr">1227 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L1228" class="LineNr">1228 </span> <span class="Delimiter">}</span> +<span id="L1229" class="LineNr">1229 </span> <span class="PreProc">var</span> contents-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get x, text-data +<span id="L1230" class="LineNr">1230 </span> <span class="PreProc">var</span> contents/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *contents-ah +<span id="L1231" class="LineNr">1231 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> contents, <span class="Constant">"litfn"</span> +<span id="L1232" class="LineNr">1232 </span> <span class="PreProc">return</span> result +<span id="L1233" class="LineNr">1233 </span><span class="Delimiter">}</span> +<span id="L1234" class="LineNr">1234 </span> +<span id="L1235" class="LineNr">1235 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='evaluate.mu.html#L1235'>litmac?</a></span> _x: (addr <a href='cell.mu.html#L1'>cell</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L1236" class="LineNr">1236 </span> <span class="PreProc">var</span> x/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _x +<span id="L1237" class="LineNr">1237 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get x, <span class="PreProc">type</span> +<span id="L1238" class="LineNr">1238 </span> compare *<span class="PreProc">type</span>, <span class="Constant">2</span>/symbol +<span id="L1239" class="LineNr">1239 </span> <span class="Delimiter">{</span> +<span id="L1240" class="LineNr">1240 </span> <span class="PreProc">break-if-=</span> +<span id="L1241" class="LineNr">1241 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L1242" class="LineNr">1242 </span> <span class="Delimiter">}</span> +<span id="L1243" class="LineNr">1243 </span> <span class="PreProc">var</span> contents-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get x, text-data +<span id="L1244" class="LineNr">1244 </span> <span class="PreProc">var</span> contents/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *contents-ah +<span id="L1245" class="LineNr">1245 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> contents, <span class="Constant">"litmac"</span> +<span id="L1246" class="LineNr">1246 </span> <span class="PreProc">return</span> result +<span id="L1247" class="LineNr">1247 </span><span class="Delimiter">}</span> +<span id="L1248" class="LineNr">1248 </span> +<span id="L1249" class="LineNr">1249 </span><span class="PreProc">fn</span> <span class="muTest"><a href='evaluate.mu.html#L1249'>test-evaluate-is-well-behaved</a></span> <span class="Delimiter">{</span> +<span id="L1250" class="LineNr">1250 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L1251" class="LineNr">1251 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L1252" class="LineNr">1252 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0</span>/visible <span class="muComment"># we don't use trace UI</span> +<span id="L1253" class="LineNr">1253 </span> <span class="muComment"># env = nil</span> +<span id="L1254" class="LineNr">1254 </span> <span class="PreProc">var</span> env-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1255" class="LineNr">1255 </span> <span class="PreProc">var</span> env-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address env-storage +<span id="L1256" class="LineNr">1256 </span> <a href='cell.mu.html#L102'>allocate-pair</a> env-ah +<span id="L1257" class="LineNr">1257 </span> <span class="muComment"># eval sym(a), nil env</span> +<span id="L1258" class="LineNr">1258 </span> <span class="PreProc">var</span> tmp-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1259" class="LineNr">1259 </span> <span class="PreProc">var</span> tmp-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address tmp-storage +<span id="L1260" class="LineNr">1260 </span> <a href='cell.mu.html#L39'>new-symbol</a> tmp-ah, <span class="Constant">"a"</span> +<span id="L1261" class="LineNr">1261 </span> <a href='evaluate.mu.html#L5'>evaluate</a> tmp-ah, tmp-ah, *env-ah, <span class="Constant">0</span>/no-globals, t, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-keyboard, <span class="Constant">0</span>/call-number +<span id="L1262" class="LineNr">1262 </span> <span class="muComment"># doesn't die</span> +<span id="L1263" class="LineNr">1263 </span> <a href='trace.mu.html#L194'>check-trace-contains</a> t, <span class="Constant">"error"</span>, <span class="Constant">"unbound symbol: a"</span>, <span class="Constant">"F - test-evaluate-is-well-behaved"</span> +<span id="L1264" class="LineNr">1264 </span><span class="Delimiter">}</span> +<span id="L1265" class="LineNr">1265 </span> +<span id="L1266" class="LineNr">1266 </span><span class="PreProc">fn</span> <span class="muTest"><a href='evaluate.mu.html#L1266'>test-evaluate-number</a></span> <span class="Delimiter">{</span> +<span id="L1267" class="LineNr">1267 </span> <span class="muComment"># env = nil</span> +<span id="L1268" class="LineNr">1268 </span> <span class="PreProc">var</span> env-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1269" class="LineNr">1269 </span> <span class="PreProc">var</span> env-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address env-storage +<span id="L1270" class="LineNr">1270 </span> <a href='cell.mu.html#L102'>allocate-pair</a> env-ah +<span id="L1271" class="LineNr">1271 </span> <span class="muComment"># tmp = 3</span> +<span id="L1272" class="LineNr">1272 </span> <span class="PreProc">var</span> tmp-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1273" class="LineNr">1273 </span> <span class="PreProc">var</span> tmp-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address tmp-storage +<span id="L1274" class="LineNr">1274 </span> <a href='cell.mu.html#L84'>new-integer</a> tmp-ah, <span class="Constant">3</span> +<span id="L1275" class="LineNr">1275 </span> <a href='evaluate.mu.html#L5'>evaluate</a> tmp-ah, tmp-ah, *env-ah, <span class="Constant">0</span>/no-globals, <span class="Constant">0</span>/no-trace, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-keyboard, <span class="Constant">0</span>/call-number +<span id="L1276" class="LineNr">1276 </span> <span class="muComment">#</span> +<span id="L1277" class="LineNr">1277 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *tmp-ah +<span id="L1278" class="LineNr">1278 </span> <span class="PreProc">var</span> result-type/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get result, <span class="PreProc">type</span> +<span id="L1279" class="LineNr">1279 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> *result-type, <span class="Constant">1</span>/number, <span class="Constant">"F - <a href='evaluate.mu.html#L1266'>test-evaluate-number</a>/0"</span> +<span id="L1280" class="LineNr">1280 </span> <span class="PreProc">var</span> result-value-addr/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> get result, number-data +<span id="L1281" class="LineNr">1281 </span> <span class="PreProc">var</span> result-value/<span class="Constant">eax</span>: int <span class="Special"><-</span> convert *result-value-addr +<span id="L1282" class="LineNr">1282 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> result-value, <span class="Constant">3</span>, <span class="Constant">"F - <a href='evaluate.mu.html#L1266'>test-evaluate-number</a>/1"</span> +<span id="L1283" class="LineNr">1283 </span><span class="Delimiter">}</span> +<span id="L1284" class="LineNr">1284 </span> +<span id="L1285" class="LineNr">1285 </span><span class="PreProc">fn</span> <span class="muTest"><a href='evaluate.mu.html#L1285'>test-evaluate-symbol</a></span> <span class="Delimiter">{</span> +<span id="L1286" class="LineNr">1286 </span> <span class="muComment"># tmp = (a . 3)</span> +<span id="L1287" class="LineNr">1287 </span> <span class="PreProc">var</span> val-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1288" class="LineNr">1288 </span> <span class="PreProc">var</span> val-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address val-storage +<span id="L1289" class="LineNr">1289 </span> <a href='cell.mu.html#L84'>new-integer</a> val-ah, <span class="Constant">3</span> +<span id="L1290" class="LineNr">1290 </span> <span class="PreProc">var</span> key-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1291" class="LineNr">1291 </span> <span class="PreProc">var</span> key-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address key-storage +<span id="L1292" class="LineNr">1292 </span> <a href='cell.mu.html#L39'>new-symbol</a> key-ah, <span class="Constant">"a"</span> +<span id="L1293" class="LineNr">1293 </span> <span class="PreProc">var</span> env-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1294" class="LineNr">1294 </span> <span class="PreProc">var</span> env-ah/<span class="Constant">ebx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address env-storage +<span id="L1295" class="LineNr">1295 </span> <a href='cell.mu.html#L116'>new-pair</a> env-ah, *key-ah, *val-ah +<span id="L1296" class="LineNr">1296 </span> <span class="muComment"># env = ((a . 3))</span> +<span id="L1297" class="LineNr">1297 </span> <span class="PreProc">var</span> nil-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1298" class="LineNr">1298 </span> <span class="PreProc">var</span> nil-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address nil-storage +<span id="L1299" class="LineNr">1299 </span> <a href='cell.mu.html#L102'>allocate-pair</a> nil-ah +<span id="L1300" class="LineNr">1300 </span> <a href='cell.mu.html#L116'>new-pair</a> env-ah, *env-ah, *nil-ah +<span id="L1301" class="LineNr">1301 </span> <span class="muComment"># eval sym(a), env</span> +<span id="L1302" class="LineNr">1302 </span> <span class="PreProc">var</span> tmp-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1303" class="LineNr">1303 </span> <span class="PreProc">var</span> tmp-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address tmp-storage +<span id="L1304" class="LineNr">1304 </span> <a href='cell.mu.html#L39'>new-symbol</a> tmp-ah, <span class="Constant">"a"</span> +<span id="L1305" class="LineNr">1305 </span> <a href='evaluate.mu.html#L5'>evaluate</a> tmp-ah, tmp-ah, *env-ah, <span class="Constant">0</span>/no-globals, <span class="Constant">0</span>/no-trace, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-keyboard, <span class="Constant">0</span>/call-number +<span id="L1306" class="LineNr">1306 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *tmp-ah +<span id="L1307" class="LineNr">1307 </span> <span class="PreProc">var</span> result-type/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get result, <span class="PreProc">type</span> +<span id="L1308" class="LineNr">1308 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> *result-type, <span class="Constant">1</span>/number, <span class="Constant">"F - <a href='evaluate.mu.html#L1285'>test-evaluate-symbol</a>/0"</span> +<span id="L1309" class="LineNr">1309 </span> <span class="PreProc">var</span> result-value-addr/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> get result, number-data +<span id="L1310" class="LineNr">1310 </span> <span class="PreProc">var</span> result-value/<span class="Constant">eax</span>: int <span class="Special"><-</span> convert *result-value-addr +<span id="L1311" class="LineNr">1311 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> result-value, <span class="Constant">3</span>, <span class="Constant">"F - <a href='evaluate.mu.html#L1285'>test-evaluate-symbol</a>/1"</span> +<span id="L1312" class="LineNr">1312 </span><span class="Delimiter">}</span> +<span id="L1313" class="LineNr">1313 </span> +<span id="L1314" class="LineNr">1314 </span><span class="PreProc">fn</span> <span class="muTest"><a href='evaluate.mu.html#L1314'>test-evaluate-quote</a></span> <span class="Delimiter">{</span> +<span id="L1315" class="LineNr">1315 </span> <span class="muComment"># env = nil</span> +<span id="L1316" class="LineNr">1316 </span> <span class="PreProc">var</span> nil-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1317" class="LineNr">1317 </span> <span class="PreProc">var</span> nil-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address nil-storage +<span id="L1318" class="LineNr">1318 </span> <a href='cell.mu.html#L102'>allocate-pair</a> nil-ah +<span id="L1319" class="LineNr">1319 </span> <span class="muComment"># eval `a, env</span> +<span id="L1320" class="LineNr">1320 </span> <span class="PreProc">var</span> tmp-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1321" class="LineNr">1321 </span> <span class="PreProc">var</span> tmp-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address tmp-storage +<span id="L1322" class="LineNr">1322 </span> <a href='cell.mu.html#L39'>new-symbol</a> tmp-ah, <span class="Constant">"'"</span> +<span id="L1323" class="LineNr">1323 </span> <span class="PreProc">var</span> tmp2-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1324" class="LineNr">1324 </span> <span class="PreProc">var</span> tmp2-ah/<span class="Constant">ebx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address tmp2-storage +<span id="L1325" class="LineNr">1325 </span> <a href='cell.mu.html#L39'>new-symbol</a> tmp2-ah, <span class="Constant">"a"</span> +<span id="L1326" class="LineNr">1326 </span> <a href='cell.mu.html#L116'>new-pair</a> tmp-ah, *tmp-ah, *tmp2-ah +<span id="L1327" class="LineNr">1327 </span> <a href='evaluate.mu.html#L5'>evaluate</a> tmp-ah, tmp-ah, *nil-ah, <span class="Constant">0</span>/no-globals, <span class="Constant">0</span>/no-trace, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-keyboard, <span class="Constant">0</span>/call-number +<span id="L1328" class="LineNr">1328 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *tmp-ah +<span id="L1329" class="LineNr">1329 </span> <span class="PreProc">var</span> result-type/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get result, <span class="PreProc">type</span> +<span id="L1330" class="LineNr">1330 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> *result-type, <span class="Constant">2</span>/symbol, <span class="Constant">"F - <a href='evaluate.mu.html#L1314'>test-evaluate-quote</a>/0"</span> +<span id="L1331" class="LineNr">1331 </span> <span class="PreProc">var</span> sym?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='cell.mu.html#L44'>symbol-equal?</a> result, <span class="Constant">"a"</span> +<span id="L1332" class="LineNr">1332 </span> <a href='../502test.mu.html#L19'>check</a> sym?, <span class="Constant">"F - <a href='evaluate.mu.html#L1314'>test-evaluate-quote</a>/1"</span> +<span id="L1333" class="LineNr">1333 </span><span class="Delimiter">}</span> +<span id="L1334" class="LineNr">1334 </span> +<span id="L1335" class="LineNr">1335 </span><span class="PreProc">fn</span> <span class="muTest"><a href='evaluate.mu.html#L1335'>test-evaluate-primitive-function</a></span> <span class="Delimiter">{</span> +<span id="L1336" class="LineNr">1336 </span> <span class="PreProc">var</span> globals-storage: <a href='global.mu.html#L7'>global-table</a> +<span id="L1337" class="LineNr">1337 </span> <span class="PreProc">var</span> globals/<span class="Constant">edi</span>: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Special"><-</span> address globals-storage +<span id="L1338" class="LineNr">1338 </span> <a href='global.mu.html#L12'>initialize-globals</a> globals +<span id="L1339" class="LineNr">1339 </span> <span class="PreProc">var</span> nil-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1340" class="LineNr">1340 </span> <span class="PreProc">var</span> nil-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address nil-storage +<span id="L1341" class="LineNr">1341 </span> <a href='cell.mu.html#L102'>allocate-pair</a> nil-ah +<span id="L1342" class="LineNr">1342 </span> <span class="PreProc">var</span> add-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1343" class="LineNr">1343 </span> <span class="PreProc">var</span> add-ah/<span class="Constant">ebx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address add-storage +<span id="L1344" class="LineNr">1344 </span> <a href='cell.mu.html#L39'>new-symbol</a> add-ah, <span class="Constant">"+"</span> +<span id="L1345" class="LineNr">1345 </span> <span class="muComment"># eval +, nil env</span> +<span id="L1346" class="LineNr">1346 </span> <span class="PreProc">var</span> tmp-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1347" class="LineNr">1347 </span> <span class="PreProc">var</span> tmp-ah/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address tmp-storage +<span id="L1348" class="LineNr">1348 </span> <a href='evaluate.mu.html#L5'>evaluate</a> add-ah, tmp-ah, *nil-ah, globals, <span class="Constant">0</span>/no-trace, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-keyboard, <span class="Constant">0</span>/call-number +<span id="L1349" class="LineNr">1349 </span> <span class="muComment">#</span> +<span id="L1350" class="LineNr">1350 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *tmp-ah +<span id="L1351" class="LineNr">1351 </span> <span class="PreProc">var</span> result-type/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get result, <span class="PreProc">type</span> +<span id="L1352" class="LineNr">1352 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> *result-type, <span class="Constant">4</span>/primitive-function, <span class="Constant">"F - <a href='evaluate.mu.html#L1335'>test-evaluate-primitive-function</a>/0"</span> +<span id="L1353" class="LineNr">1353 </span> <span class="PreProc">var</span> result-value/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get result, index-data +<span id="L1354" class="LineNr">1354 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> *result-value, <span class="Constant">1</span>/add, <span class="Constant">"F - <a href='evaluate.mu.html#L1335'>test-evaluate-primitive-function</a>/1"</span> +<span id="L1355" class="LineNr">1355 </span><span class="Delimiter">}</span> +<span id="L1356" class="LineNr">1356 </span> +<span id="L1357" class="LineNr">1357 </span><span class="PreProc">fn</span> <span class="muTest"><a href='evaluate.mu.html#L1357'>test-evaluate-primitive-function-call</a></span> <span class="Delimiter">{</span> +<span id="L1358" class="LineNr">1358 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L1359" class="LineNr">1359 </span> <span class="PreProc">var</span> t/<span class="Constant">edi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L1360" class="LineNr">1360 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x100</span>, <span class="Constant">0</span>/visible <span class="muComment"># we don't use trace UI</span> +<span id="L1361" class="LineNr">1361 </span> <span class="muComment">#</span> +<span id="L1362" class="LineNr">1362 </span> <span class="PreProc">var</span> nil-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1363" class="LineNr">1363 </span> <span class="PreProc">var</span> nil-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address nil-storage +<span id="L1364" class="LineNr">1364 </span> <a href='cell.mu.html#L102'>allocate-pair</a> nil-ah +<span id="L1365" class="LineNr">1365 </span> <span class="PreProc">var</span> one-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1366" class="LineNr">1366 </span> <span class="PreProc">var</span> one-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address one-storage +<span id="L1367" class="LineNr">1367 </span> <a href='cell.mu.html#L84'>new-integer</a> one-ah, <span class="Constant">1</span> +<span id="L1368" class="LineNr">1368 </span> <span class="PreProc">var</span> add-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1369" class="LineNr">1369 </span> <span class="PreProc">var</span> add-ah/<span class="Constant">ebx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address add-storage +<span id="L1370" class="LineNr">1370 </span> <a href='cell.mu.html#L39'>new-symbol</a> add-ah, <span class="Constant">"+"</span> +<span id="L1371" class="LineNr">1371 </span> <span class="muComment"># input is (+ 1 1)</span> +<span id="L1372" class="LineNr">1372 </span> <span class="PreProc">var</span> tmp-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1373" class="LineNr">1373 </span> <span class="PreProc">var</span> tmp-ah/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address tmp-storage +<span id="L1374" class="LineNr">1374 </span> <a href='cell.mu.html#L116'>new-pair</a> tmp-ah, *one-ah, *nil-ah +<span id="L1375" class="LineNr">1375 </span> <a href='cell.mu.html#L116'>new-pair</a> tmp-ah, *one-ah, *tmp-ah +<span id="L1376" class="LineNr">1376 </span> <a href='cell.mu.html#L116'>new-pair</a> tmp-ah, *add-ah, *tmp-ah +<span id="L1377" class="LineNr">1377 </span><span class="CommentedCode">#? dump-cell tmp-ah</span> +<span id="L1378" class="LineNr">1378 </span> <span class="muComment">#</span> +<span id="L1379" class="LineNr">1379 </span> <span class="PreProc">var</span> globals-storage: <a href='global.mu.html#L7'>global-table</a> +<span id="L1380" class="LineNr">1380 </span> <span class="PreProc">var</span> globals/<span class="Constant">edx</span>: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Special"><-</span> address globals-storage +<span id="L1381" class="LineNr">1381 </span> <a href='global.mu.html#L12'>initialize-globals</a> globals +<span id="L1382" class="LineNr">1382 </span> <span class="muComment">#</span> +<span id="L1383" class="LineNr">1383 </span> <a href='evaluate.mu.html#L5'>evaluate</a> tmp-ah, tmp-ah, *nil-ah, globals, t, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-keyboard, <span class="Constant">0</span>/call-number +<span id="L1384" class="LineNr">1384 </span><span class="CommentedCode">#? dump-trace t</span> +<span id="L1385" class="LineNr">1385 </span> <span class="muComment">#</span> +<span id="L1386" class="LineNr">1386 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *tmp-ah +<span id="L1387" class="LineNr">1387 </span> <span class="PreProc">var</span> result-type/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get result, <span class="PreProc">type</span> +<span id="L1388" class="LineNr">1388 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> *result-type, <span class="Constant">1</span>/number, <span class="Constant">"F - <a href='evaluate.mu.html#L1357'>test-evaluate-primitive-function-call</a>/0"</span> +<span id="L1389" class="LineNr">1389 </span> <span class="PreProc">var</span> result-value-addr/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> get result, number-data +<span id="L1390" class="LineNr">1390 </span> <span class="PreProc">var</span> result-value/<span class="Constant">eax</span>: int <span class="Special"><-</span> convert *result-value-addr +<span id="L1391" class="LineNr">1391 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> result-value, <span class="Constant">2</span>, <span class="Constant">"F - <a href='evaluate.mu.html#L1357'>test-evaluate-primitive-function-call</a>/1"</span> +<span id="L1392" class="LineNr">1392 </span><span class="Delimiter">}</span> +<span id="L1393" class="LineNr">1393 </span> +<span id="L1394" class="LineNr">1394 </span><span class="PreProc">fn</span> <span class="muTest"><a href='evaluate.mu.html#L1394'>test-evaluate-backquote</a></span> <span class="Delimiter">{</span> +<span id="L1395" class="LineNr">1395 </span> <span class="muComment"># env = nil</span> +<span id="L1396" class="LineNr">1396 </span> <span class="PreProc">var</span> nil-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1397" class="LineNr">1397 </span> <span class="PreProc">var</span> nil-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address nil-storage +<span id="L1398" class="LineNr">1398 </span> <a href='cell.mu.html#L102'>allocate-pair</a> nil-ah +<span id="L1399" class="LineNr">1399 </span> <span class="muComment"># eval `a, env</span> +<span id="L1400" class="LineNr">1400 </span> <span class="PreProc">var</span> tmp-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1401" class="LineNr">1401 </span> <span class="PreProc">var</span> tmp-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address tmp-storage +<span id="L1402" class="LineNr">1402 </span> <a href='cell.mu.html#L39'>new-symbol</a> tmp-ah, <span class="Constant">"`"</span> +<span id="L1403" class="LineNr">1403 </span> <span class="PreProc">var</span> tmp2-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1404" class="LineNr">1404 </span> <span class="PreProc">var</span> tmp2-ah/<span class="Constant">ebx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address tmp2-storage +<span id="L1405" class="LineNr">1405 </span> <a href='cell.mu.html#L39'>new-symbol</a> tmp2-ah, <span class="Constant">"a"</span> +<span id="L1406" class="LineNr">1406 </span> <a href='cell.mu.html#L116'>new-pair</a> tmp-ah, *tmp-ah, *tmp2-ah +<span id="L1407" class="LineNr">1407 </span> clear-object tmp2-ah +<span id="L1408" class="LineNr">1408 </span> <a href='evaluate.mu.html#L5'>evaluate</a> tmp-ah, tmp2-ah, *nil-ah, <span class="Constant">0</span>/no-globals, <span class="Constant">0</span>/no-trace, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-keyboard, <span class="Constant">0</span>/call-number +<span id="L1409" class="LineNr">1409 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *tmp2-ah +<span id="L1410" class="LineNr">1410 </span> <span class="PreProc">var</span> result-type/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get result, <span class="PreProc">type</span> +<span id="L1411" class="LineNr">1411 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> *result-type, <span class="Constant">2</span>/symbol, <span class="Constant">"F - <a href='evaluate.mu.html#L1394'>test-evaluate-backquote</a>/0"</span> +<span id="L1412" class="LineNr">1412 </span> <span class="PreProc">var</span> sym?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='cell.mu.html#L44'>symbol-equal?</a> result, <span class="Constant">"a"</span> +<span id="L1413" class="LineNr">1413 </span> <a href='../502test.mu.html#L19'>check</a> sym?, <span class="Constant">"F - <a href='evaluate.mu.html#L1394'>test-evaluate-backquote</a>/1"</span> +<span id="L1414" class="LineNr">1414 </span><span class="Delimiter">}</span> +<span id="L1415" class="LineNr">1415 </span> +<span id="L1416" class="LineNr">1416 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='evaluate.mu.html#L1416'>evaluate-backquote</a></span> _in-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), _out-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), env-h: (handle <a href='cell.mu.html#L1'>cell</a>), globals: (addr <a href='global.mu.html#L7'>global-table</a>), trace: (addr trace), <a href='../500fake-screen.mu.html#L25'>screen-cell</a>: (addr handle <a href='cell.mu.html#L1'>cell</a>), keyboard-cell: (addr handle <a href='cell.mu.html#L1'>cell</a>), call-number: int <span class="Delimiter">{</span> +<span id="L1417" class="LineNr">1417 </span> <span class="muComment"># stack overflow? # disable when enabling Really-debug-print</span> +<span id="L1418" class="LineNr">1418 </span><span class="CommentedCode">#? dump-cell-from-cursor-over-full-screen _in-ah</span> +<span id="L1419" class="LineNr">1419 </span> <a href='../315stack-debug.subx.html#L5'>check-stack</a> +<span id="L1420" class="LineNr">1420 </span> <span class="Delimiter">{</span> +<span id="L1421" class="LineNr">1421 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L25'>screen-cell</a>/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy <a href='../500fake-screen.mu.html#L25'>screen-cell</a> +<span id="L1422" class="LineNr">1422 </span> compare <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, <span class="Constant">0</span> +<span id="L1423" class="LineNr">1423 </span> <span class="PreProc">break-if-=</span> +<span id="L1424" class="LineNr">1424 </span> <span class="PreProc">var</span> screen-cell-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *screen-cell +<span id="L1425" class="LineNr">1425 </span> compare screen-cell-addr, <span class="Constant">0</span> +<span id="L1426" class="LineNr">1426 </span> <span class="PreProc">break-if-=</span> +<span id="L1427" class="LineNr">1427 </span> <span class="muComment"># if screen-cell exists, we're probably not in a test</span> +<span id="L1428" class="LineNr">1428 </span> <a href='../315stack-debug.subx.html#L26'>show-stack-state</a> +<span id="L1429" class="LineNr">1429 </span> <span class="Delimiter">}</span> +<span id="L1430" class="LineNr">1430 </span> <span class="muComment"># errors? skip</span> +<span id="L1431" class="LineNr">1431 </span> <span class="Delimiter">{</span> +<span id="L1432" class="LineNr">1432 </span> compare trace, <span class="Constant">0</span> +<span id="L1433" class="LineNr">1433 </span> <span class="PreProc">break-if-=</span> +<span id="L1434" class="LineNr">1434 </span> <span class="PreProc">var</span> error?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='trace.mu.html#L54'>has-errors?</a> trace +<span id="L1435" class="LineNr">1435 </span> compare error?, <span class="Constant">0</span>/false +<span id="L1436" class="LineNr">1436 </span> <span class="PreProc">break-if-=</span> +<span id="L1437" class="LineNr">1437 </span> <span class="PreProc">return</span> +<span id="L1438" class="LineNr">1438 </span> <span class="Delimiter">}</span> +<span id="L1439" class="LineNr">1439 </span> <span class="PreProc">var</span> in-ah/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in-ah +<span id="L1440" class="LineNr">1440 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *in-ah +<span id="L1441" class="LineNr">1441 </span> <span class="Delimiter">{</span> +<span id="L1442" class="LineNr">1442 </span> <span class="PreProc">var</span> <a href='print.mu.html#L236'>nil?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> in +<span id="L1443" class="LineNr">1443 </span> compare <a href='print.mu.html#L236'>nil?</a>, <span class="Constant">0</span>/false +<span id="L1444" class="LineNr">1444 </span> <span class="PreProc">break-if-=</span> +<span id="L1445" class="LineNr">1445 </span> <span class="muComment"># nil is a literal</span> +<span id="L1446" class="LineNr">1446 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"backquote nil"</span> +<span id="L1447" class="LineNr">1447 </span> copy-object _in-ah, _out-ah +<span id="L1448" class="LineNr">1448 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L1449" class="LineNr">1449 </span> <span class="PreProc">return</span> +<span id="L1450" class="LineNr">1450 </span> <span class="Delimiter">}</span> +<span id="L1451" class="LineNr">1451 </span> <span class="PreProc">var</span> in-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get in, <span class="PreProc">type</span> +<span id="L1452" class="LineNr">1452 </span> compare *in-type, <span class="Constant">0</span>/pair +<span id="L1453" class="LineNr">1453 </span> <span class="Delimiter">{</span> +<span id="L1454" class="LineNr">1454 </span> <span class="PreProc">break-if-=</span> +<span id="L1455" class="LineNr">1455 </span> <span class="muComment"># copy non-pairs directly</span> +<span id="L1456" class="LineNr">1456 </span> <span class="muComment"># TODO: streams might need to be copied</span> +<span id="L1457" class="LineNr">1457 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"backquote atom"</span> +<span id="L1458" class="LineNr">1458 </span> copy-object _in-ah, _out-ah +<span id="L1459" class="LineNr">1459 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L1460" class="LineNr">1460 </span> <span class="PreProc">return</span> +<span id="L1461" class="LineNr">1461 </span> <span class="Delimiter">}</span> +<span id="L1462" class="LineNr">1462 </span> <span class="muComment"># 'in' is a pair</span> +<span id="L1463" class="LineNr">1463 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"()"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0</span>/bg +<span id="L1464" class="LineNr">1464 </span> <span class="PreProc">var</span> in-ah/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in-ah +<span id="L1465" class="LineNr">1465 </span> <span class="PreProc">var</span> _in/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *in-ah +<span id="L1466" class="LineNr">1466 </span> <span class="PreProc">var</span> in/<span class="Constant">ebx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in +<span id="L1467" class="LineNr">1467 </span> <span class="PreProc">var</span> in-left-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in, left +<span id="L1468" class="LineNr">1468 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"10"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0</span>/bg +<span id="L1469" class="LineNr">1469 </span> <span class="muComment"># check for unquote</span> +<span id="L1470" class="LineNr">1470 </span> $macroexpand-iter:unquote: <span class="Delimiter">{</span> +<span id="L1471" class="LineNr">1471 </span> <span class="PreProc">var</span> in-left/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *in-left-ah +<span id="L1472" class="LineNr">1472 </span> <span class="PreProc">var</span> unquote?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='cell.mu.html#L44'>symbol-equal?</a> in-left, <span class="Constant">","</span> +<span id="L1473" class="LineNr">1473 </span> compare unquote?, <span class="Constant">0</span>/false +<span id="L1474" class="LineNr">1474 </span> <span class="PreProc">break-if-=</span> +<span id="L1475" class="LineNr">1475 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"unquote"</span> +<span id="L1476" class="LineNr">1476 </span> <span class="PreProc">var</span> rest-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in, right +<span id="L1477" class="LineNr">1477 </span> increment call-number +<span id="L1478" class="LineNr">1478 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">","</span>, <span class="Constant">3</span>/fg, <span class="Constant">0</span>/bg +<span id="L1479" class="LineNr">1479 </span> <a href='evaluate.mu.html#L5'>evaluate</a> rest-ah, _out-ah, env-h, globals, trace, <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, keyboard-cell, call-number +<span id="L1480" class="LineNr">1480 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">",)"</span>, <span class="Constant">3</span>/fg, <span class="Constant">0</span>/bg +<span id="L1481" class="LineNr">1481 </span> <span class="PreProc">return</span> +<span id="L1482" class="LineNr">1482 </span> <span class="Delimiter">}</span> +<span id="L1483" class="LineNr">1483 </span> <span class="muComment"># check for unquote-splice in in-left</span> +<span id="L1484" class="LineNr">1484 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"11"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0</span>/bg +<span id="L1485" class="LineNr">1485 </span> <span class="PreProc">var</span> out-ah/<span class="Constant">edi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out-ah +<span id="L1486" class="LineNr">1486 </span> $macroexpand-iter:unquote-splice: <span class="Delimiter">{</span> +<span id="L1487" class="LineNr">1487 </span><span class="CommentedCode">#? dump-cell-from-cursor-over-full-screen in-left-ah</span> +<span id="L1488" class="LineNr">1488 </span> <span class="PreProc">var</span> in-left/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *in-left-ah +<span id="L1489" class="LineNr">1489 </span> <span class="Delimiter">{</span> +<span id="L1490" class="LineNr">1490 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"12"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0</span>/bg +<span id="L1491" class="LineNr">1491 </span> <span class="Delimiter">{</span> +<span id="L1492" class="LineNr">1492 </span> <span class="PreProc">var</span> in-left-is-nil?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> in-left +<span id="L1493" class="LineNr">1493 </span> compare in-left-is-nil?, <span class="Constant">0</span>/false +<span id="L1494" class="LineNr">1494 </span> <span class="Delimiter">}</span> +<span id="L1495" class="LineNr">1495 </span> <span class="PreProc">break-if-!=</span> $macroexpand-iter:unquote-splice +<span id="L1496" class="LineNr">1496 </span> <span class="PreProc">var</span> in-left-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get in-left, <span class="PreProc">type</span> +<span id="L1497" class="LineNr">1497 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"13"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0</span>/bg +<span id="L1498" class="LineNr">1498 </span> compare *in-left-type, <span class="Constant">0</span>/pair +<span id="L1499" class="LineNr">1499 </span> <span class="PreProc">break-if-!=</span> $macroexpand-iter:unquote-splice +<span id="L1500" class="LineNr">1500 </span> <span class="PreProc">var</span> in-left-left-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in-left, left +<span id="L1501" class="LineNr">1501 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"14"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0</span>/bg +<span id="L1502" class="LineNr">1502 </span> <span class="PreProc">var</span> in-left-left/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *in-left-left-ah +<span id="L1503" class="LineNr">1503 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"15"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0</span>/bg +<span id="L1504" class="LineNr">1504 </span> <span class="PreProc">var</span> in-left-left-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get in-left-left, <span class="PreProc">type</span> +<span id="L1505" class="LineNr">1505 </span> <span class="PreProc">var</span> left-is-unquote-splice?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='cell.mu.html#L44'>symbol-equal?</a> in-left-left, <span class="Constant">",@"</span> +<span id="L1506" class="LineNr">1506 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"16"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0</span>/bg +<span id="L1507" class="LineNr">1507 </span> compare left-is-unquote-splice?, <span class="Constant">0</span>/false +<span id="L1508" class="LineNr">1508 </span> <span class="Delimiter">}</span> +<span id="L1509" class="LineNr">1509 </span> <span class="PreProc">break-if-=</span> +<span id="L1510" class="LineNr">1510 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"17"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0</span>/bg +<span id="L1511" class="LineNr">1511 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"unquote-splice"</span> +<span id="L1512" class="LineNr">1512 </span> <span class="PreProc">var</span> in-unquote-payload-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in-left, right +<span id="L1513" class="LineNr">1513 </span> increment call-number +<span id="L1514" class="LineNr">1514 </span> <a href='evaluate.mu.html#L5'>evaluate</a> in-unquote-payload-ah, out-ah, env-h, globals, trace, <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, keyboard-cell, call-number +<span id="L1515" class="LineNr">1515 </span> <span class="muComment"># while (*out-ah != null) out-ah = cdr(out-ah)</span> +<span id="L1516" class="LineNr">1516 </span> <span class="Delimiter">{</span> +<span id="L1517" class="LineNr">1517 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *out-ah +<span id="L1518" class="LineNr">1518 </span> <span class="Delimiter">{</span> +<span id="L1519" class="LineNr">1519 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> out +<span id="L1520" class="LineNr">1520 </span> compare done?, <span class="Constant">0</span>/false +<span id="L1521" class="LineNr">1521 </span> <span class="Delimiter">}</span> +<span id="L1522" class="LineNr">1522 </span> <span class="PreProc">break-if-!=</span> +<span id="L1523" class="LineNr">1523 </span> out-ah <span class="Special"><-</span> get out, right +<span id="L1524" class="LineNr">1524 </span> <span class="PreProc">loop</span> +<span id="L1525" class="LineNr">1525 </span> <span class="Delimiter">}</span> +<span id="L1526" class="LineNr">1526 </span> <span class="muComment"># append result of in-right</span> +<span id="L1527" class="LineNr">1527 </span> <span class="PreProc">var</span> in-right-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in, right +<span id="L1528" class="LineNr">1528 </span> <a href='evaluate.mu.html#L1416'>evaluate-backquote</a> in-right-ah, out-ah, env-h, globals, trace, <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, keyboard-cell, call-number +<span id="L1529" class="LineNr">1529 </span> <span class="PreProc">return</span> +<span id="L1530" class="LineNr">1530 </span> <span class="Delimiter">}</span> +<span id="L1531" class="LineNr">1531 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"19"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0</span>/bg +<span id="L1532" class="LineNr">1532 </span> <span class="muComment"># otherwise continue copying</span> +<span id="L1533" class="LineNr">1533 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"backquote: copy"</span> +<span id="L1534" class="LineNr">1534 </span> <span class="PreProc">var</span> out-ah/<span class="Constant">edi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out-ah +<span id="L1535" class="LineNr">1535 </span> <a href='cell.mu.html#L102'>allocate-pair</a> out-ah +<span id="L1536" class="LineNr">1536 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"20"</span>, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg +<span id="L1537" class="LineNr">1537 </span><span class="CommentedCode">#? dump-cell-from-cursor-over-full-screen out-ah</span> +<span id="L1538" class="LineNr">1538 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *out-ah +<span id="L1539" class="LineNr">1539 </span> <span class="PreProc">var</span> out-left-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get out, left +<span id="L1540" class="LineNr">1540 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"`(l"</span>, <span class="Constant">3</span>/fg, <span class="Constant">0</span>/bg +<span id="L1541" class="LineNr">1541 </span> <a href='evaluate.mu.html#L1416'>evaluate-backquote</a> in-left-ah, out-left-ah, env-h, globals, trace, <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, keyboard-cell, call-number +<span id="L1542" class="LineNr">1542 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"`r)"</span>, <span class="Constant">3</span>/fg, <span class="Constant">0</span>/bg +<span id="L1543" class="LineNr">1543 </span> <span class="PreProc">var</span> in-right-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in, right +<span id="L1544" class="LineNr">1544 </span> <span class="PreProc">var</span> out-right-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get out, right +<span id="L1545" class="LineNr">1545 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"`r("</span>, <span class="Constant">3</span>/fg, <span class="Constant">0</span>/bg +<span id="L1546" class="LineNr">1546 </span> <a href='evaluate.mu.html#L1416'>evaluate-backquote</a> in-right-ah, out-right-ah, env-h, globals, trace, <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, keyboard-cell, call-number +<span id="L1547" class="LineNr">1547 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"`r)"</span>, <span class="Constant">3</span>/fg, <span class="Constant">0</span>/bg +<span id="L1548" class="LineNr">1548 </span><span class="Delimiter">}</span> +<span id="L1549" class="LineNr">1549 </span> +<span id="L1550" class="LineNr">1550 </span><span class="PreProc">fn</span> <span class="muTest"><a href='evaluate.mu.html#L1550'>test-evaluate-backquote-list</a></span> <span class="Delimiter">{</span> +<span id="L1551" class="LineNr">1551 </span> <span class="PreProc">var</span> nil-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1552" class="LineNr">1552 </span> <span class="PreProc">var</span> nil-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address nil-storage +<span id="L1553" class="LineNr">1553 </span> <a href='cell.mu.html#L102'>allocate-pair</a> nil-ah +<span id="L1554" class="LineNr">1554 </span> <span class="PreProc">var</span> backquote-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1555" class="LineNr">1555 </span> <span class="PreProc">var</span> backquote-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address backquote-storage +<span id="L1556" class="LineNr">1556 </span> <a href='cell.mu.html#L39'>new-symbol</a> backquote-ah, <span class="Constant">"`"</span> +<span id="L1557" class="LineNr">1557 </span> <span class="muComment"># input is `(a b)</span> +<span id="L1558" class="LineNr">1558 </span> <span class="PreProc">var</span> a-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1559" class="LineNr">1559 </span> <span class="PreProc">var</span> a-ah/<span class="Constant">ebx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address a-storage +<span id="L1560" class="LineNr">1560 </span> <a href='cell.mu.html#L39'>new-symbol</a> a-ah, <span class="Constant">"a"</span> +<span id="L1561" class="LineNr">1561 </span> <span class="PreProc">var</span> b-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1562" class="LineNr">1562 </span> <span class="PreProc">var</span> b-ah/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address b-storage +<span id="L1563" class="LineNr">1563 </span> <a href='cell.mu.html#L39'>new-symbol</a> b-ah, <span class="Constant">"b"</span> +<span id="L1564" class="LineNr">1564 </span> <span class="PreProc">var</span> tmp-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1565" class="LineNr">1565 </span> <span class="PreProc">var</span> tmp-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address tmp-storage +<span id="L1566" class="LineNr">1566 </span> <a href='cell.mu.html#L116'>new-pair</a> tmp-ah, *b-ah, *nil-ah +<span id="L1567" class="LineNr">1567 </span> <a href='cell.mu.html#L116'>new-pair</a> tmp-ah, *a-ah, *tmp-ah +<span id="L1568" class="LineNr">1568 </span> <a href='cell.mu.html#L116'>new-pair</a> tmp-ah, *backquote-ah, *tmp-ah +<span id="L1569" class="LineNr">1569 </span> <span class="muComment">#</span> +<span id="L1570" class="LineNr">1570 </span> <a href='evaluate.mu.html#L5'>evaluate</a> tmp-ah, tmp-ah, *nil-ah, <span class="Constant">0</span>/no-globals, <span class="Constant">0</span>/no-trace, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-keyboard, <span class="Constant">0</span>/call-number +<span id="L1571" class="LineNr">1571 </span> <span class="muComment"># result is (a b)</span> +<span id="L1572" class="LineNr">1572 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *tmp-ah +<span id="L1573" class="LineNr">1573 </span> <span class="Delimiter">{</span> +<span id="L1574" class="LineNr">1574 </span> <span class="PreProc">var</span> result-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get result, <span class="PreProc">type</span> +<span id="L1575" class="LineNr">1575 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> *result-type, <span class="Constant">0</span>/pair, <span class="Constant">"F - <a href='evaluate.mu.html#L1550'>test-evaluate-backquote-list</a>/0"</span> +<span id="L1576" class="LineNr">1576 </span> <span class="Delimiter">}</span> +<span id="L1577" class="LineNr">1577 </span> <span class="Delimiter">{</span> +<span id="L1578" class="LineNr">1578 </span> <span class="PreProc">var</span> a1-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get result, left +<span id="L1579" class="LineNr">1579 </span> <span class="PreProc">var</span> a1/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *a1-ah +<span id="L1580" class="LineNr">1580 </span> <span class="PreProc">var</span> check1/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='cell.mu.html#L44'>symbol-equal?</a> a1, <span class="Constant">"a"</span> +<span id="L1581" class="LineNr">1581 </span> <a href='../502test.mu.html#L19'>check</a> check1, <span class="Constant">"F - <a href='evaluate.mu.html#L1550'>test-evaluate-backquote-list</a>/1"</span> +<span id="L1582" class="LineNr">1582 </span> <span class="Delimiter">}</span> +<span id="L1583" class="LineNr">1583 </span> <span class="PreProc">var</span> rest-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get result, right +<span id="L1584" class="LineNr">1584 </span> <span class="PreProc">var</span> rest/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *rest-ah +<span id="L1585" class="LineNr">1585 </span> <span class="Delimiter">{</span> +<span id="L1586" class="LineNr">1586 </span> <span class="PreProc">var</span> a2-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, left +<span id="L1587" class="LineNr">1587 </span> <span class="PreProc">var</span> a2/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *a2-ah +<span id="L1588" class="LineNr">1588 </span> <span class="PreProc">var</span> check2/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='cell.mu.html#L44'>symbol-equal?</a> a2, <span class="Constant">"b"</span> +<span id="L1589" class="LineNr">1589 </span> <a href='../502test.mu.html#L19'>check</a> check2, <span class="Constant">"F - <a href='evaluate.mu.html#L1550'>test-evaluate-backquote-list</a>/2"</span> +<span id="L1590" class="LineNr">1590 </span> <span class="Delimiter">}</span> +<span id="L1591" class="LineNr">1591 </span> <span class="PreProc">var</span> rest-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, right +<span id="L1592" class="LineNr">1592 </span> <span class="PreProc">var</span> rest/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *rest-ah +<span id="L1593" class="LineNr">1593 </span> <span class="PreProc">var</span> check3/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> rest +<span id="L1594" class="LineNr">1594 </span> <a href='../502test.mu.html#L19'>check</a> check3, <span class="Constant">"F - <a href='evaluate.mu.html#L1550'>test-evaluate-backquote-list</a>/3"</span> +<span id="L1595" class="LineNr">1595 </span><span class="Delimiter">}</span> +<span id="L1596" class="LineNr">1596 </span> +<span id="L1597" class="LineNr">1597 </span><span class="PreProc">fn</span> <span class="muTest"><a href='evaluate.mu.html#L1597'>test-evaluate-backquote-list-with-unquote</a></span> <span class="Delimiter">{</span> +<span id="L1598" class="LineNr">1598 </span> <span class="PreProc">var</span> nil-h: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1599" class="LineNr">1599 </span> <span class="PreProc">var</span> nil-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address nil-h +<span id="L1600" class="LineNr">1600 </span> <a href='cell.mu.html#L102'>allocate-pair</a> nil-ah +<span id="L1601" class="LineNr">1601 </span> <span class="PreProc">var</span> backquote-h: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1602" class="LineNr">1602 </span> <span class="PreProc">var</span> backquote-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address backquote-h +<span id="L1603" class="LineNr">1603 </span> <a href='cell.mu.html#L39'>new-symbol</a> backquote-ah, <span class="Constant">"`"</span> +<span id="L1604" class="LineNr">1604 </span> <span class="PreProc">var</span> unquote-h: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1605" class="LineNr">1605 </span> <span class="PreProc">var</span> unquote-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address unquote-h +<span id="L1606" class="LineNr">1606 </span> <a href='cell.mu.html#L39'>new-symbol</a> unquote-ah, <span class="Constant">","</span> +<span id="L1607" class="LineNr">1607 </span> <span class="PreProc">var</span> a-h: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1608" class="LineNr">1608 </span> <span class="PreProc">var</span> a-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address a-h +<span id="L1609" class="LineNr">1609 </span> <a href='cell.mu.html#L39'>new-symbol</a> a-ah, <span class="Constant">"a"</span> +<span id="L1610" class="LineNr">1610 </span> <span class="PreProc">var</span> b-h: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1611" class="LineNr">1611 </span> <span class="PreProc">var</span> b-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address b-h +<span id="L1612" class="LineNr">1612 </span> <a href='cell.mu.html#L39'>new-symbol</a> b-ah, <span class="Constant">"b"</span> +<span id="L1613" class="LineNr">1613 </span> <span class="muComment"># env = ((b . 3))</span> +<span id="L1614" class="LineNr">1614 </span> <span class="PreProc">var</span> val-h: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1615" class="LineNr">1615 </span> <span class="PreProc">var</span> val-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address val-h +<span id="L1616" class="LineNr">1616 </span> <a href='cell.mu.html#L84'>new-integer</a> val-ah, <span class="Constant">3</span> +<span id="L1617" class="LineNr">1617 </span> <span class="PreProc">var</span> env-h: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1618" class="LineNr">1618 </span> <span class="PreProc">var</span> env-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address env-h +<span id="L1619" class="LineNr">1619 </span> <a href='cell.mu.html#L116'>new-pair</a> env-ah, b-h, val-h +<span id="L1620" class="LineNr">1620 </span> <a href='cell.mu.html#L116'>new-pair</a> env-ah, env-h, nil-h +<span id="L1621" class="LineNr">1621 </span> <span class="muComment"># input is `(a ,b)</span> +<span id="L1622" class="LineNr">1622 </span> <span class="PreProc">var</span> tmp-h: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1623" class="LineNr">1623 </span> <span class="PreProc">var</span> tmp-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address tmp-h +<span id="L1624" class="LineNr">1624 </span> <span class="muComment"># tmp = cons(unquote, b)</span> +<span id="L1625" class="LineNr">1625 </span> <a href='cell.mu.html#L116'>new-pair</a> tmp-ah, unquote-h, b-h +<span id="L1626" class="LineNr">1626 </span> <span class="muComment"># tmp = cons(tmp, nil)</span> +<span id="L1627" class="LineNr">1627 </span> <a href='cell.mu.html#L116'>new-pair</a> tmp-ah, tmp-h, nil-h +<span id="L1628" class="LineNr">1628 </span> <span class="muComment"># tmp = cons(a, tmp)</span> +<span id="L1629" class="LineNr">1629 </span> <a href='cell.mu.html#L116'>new-pair</a> tmp-ah, a-h, tmp-h +<span id="L1630" class="LineNr">1630 </span> <span class="muComment"># tmp = cons(backquote, tmp)</span> +<span id="L1631" class="LineNr">1631 </span> <a href='cell.mu.html#L116'>new-pair</a> tmp-ah, backquote-h, tmp-h +<span id="L1632" class="LineNr">1632 </span> <span class="muComment">#</span> +<span id="L1633" class="LineNr">1633 </span> <a href='evaluate.mu.html#L5'>evaluate</a> tmp-ah, tmp-ah, env-h, <span class="Constant">0</span>/no-globals, <span class="Constant">0</span>/no-trace, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-keyboard, <span class="Constant">0</span>/call-number +<span id="L1634" class="LineNr">1634 </span> <span class="muComment"># result is (a 3)</span> +<span id="L1635" class="LineNr">1635 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *tmp-ah +<span id="L1636" class="LineNr">1636 </span> <span class="Delimiter">{</span> +<span id="L1637" class="LineNr">1637 </span> <span class="PreProc">var</span> result-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get result, <span class="PreProc">type</span> +<span id="L1638" class="LineNr">1638 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> *result-type, <span class="Constant">0</span>/pair, <span class="Constant">"F - <a href='evaluate.mu.html#L1597'>test-evaluate-backquote-list-with-unquote</a>/0"</span> +<span id="L1639" class="LineNr">1639 </span> <span class="Delimiter">}</span> +<span id="L1640" class="LineNr">1640 </span> <span class="Delimiter">{</span> +<span id="L1641" class="LineNr">1641 </span> <span class="PreProc">var</span> a1-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get result, left +<span id="L1642" class="LineNr">1642 </span> <span class="PreProc">var</span> a1/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *a1-ah +<span id="L1643" class="LineNr">1643 </span> <span class="PreProc">var</span> check1/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='cell.mu.html#L44'>symbol-equal?</a> a1, <span class="Constant">"a"</span> +<span id="L1644" class="LineNr">1644 </span> <a href='../502test.mu.html#L19'>check</a> check1, <span class="Constant">"F - <a href='evaluate.mu.html#L1597'>test-evaluate-backquote-list-with-unquote</a>/1"</span> +<span id="L1645" class="LineNr">1645 </span> <span class="Delimiter">}</span> +<span id="L1646" class="LineNr">1646 </span> <span class="PreProc">var</span> rest-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get result, right +<span id="L1647" class="LineNr">1647 </span> <span class="PreProc">var</span> rest/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *rest-ah +<span id="L1648" class="LineNr">1648 </span> <span class="Delimiter">{</span> +<span id="L1649" class="LineNr">1649 </span> <span class="PreProc">var</span> a2-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, left +<span id="L1650" class="LineNr">1650 </span> <span class="PreProc">var</span> a2/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *a2-ah +<span id="L1651" class="LineNr">1651 </span> <span class="PreProc">var</span> a2-value-addr/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> get a2, number-data +<span id="L1652" class="LineNr">1652 </span> <span class="PreProc">var</span> a2-value/<span class="Constant">eax</span>: int <span class="Special"><-</span> convert *a2-value-addr +<span id="L1653" class="LineNr">1653 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> a2-value, <span class="Constant">3</span>, <span class="Constant">"F - <a href='evaluate.mu.html#L1597'>test-evaluate-backquote-list-with-unquote</a>/2"</span> +<span id="L1654" class="LineNr">1654 </span> <span class="Delimiter">}</span> +<span id="L1655" class="LineNr">1655 </span> <span class="PreProc">var</span> rest-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, right +<span id="L1656" class="LineNr">1656 </span> <span class="PreProc">var</span> rest/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *rest-ah +<span id="L1657" class="LineNr">1657 </span> <span class="PreProc">var</span> check3/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> rest +<span id="L1658" class="LineNr">1658 </span> <a href='../502test.mu.html#L19'>check</a> check3, <span class="Constant">"F - <a href='evaluate.mu.html#L1597'>test-evaluate-backquote-list-with-unquote</a>/3"</span> +<span id="L1659" class="LineNr">1659 </span><span class="Delimiter">}</span> +<span id="L1660" class="LineNr">1660 </span> +<span id="L1661" class="LineNr">1661 </span><span class="PreProc">fn</span> <span class="muTest"><a href='evaluate.mu.html#L1661'>test-evaluate-backquote-list-with-unquote-splice</a></span> <span class="Delimiter">{</span> +<span id="L1662" class="LineNr">1662 </span> <span class="PreProc">var</span> nil-h: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1663" class="LineNr">1663 </span> <span class="PreProc">var</span> nil-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address nil-h +<span id="L1664" class="LineNr">1664 </span> <a href='cell.mu.html#L102'>allocate-pair</a> nil-ah +<span id="L1665" class="LineNr">1665 </span> <span class="PreProc">var</span> backquote-h: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1666" class="LineNr">1666 </span> <span class="PreProc">var</span> backquote-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address backquote-h +<span id="L1667" class="LineNr">1667 </span> <a href='cell.mu.html#L39'>new-symbol</a> backquote-ah, <span class="Constant">"`"</span> +<span id="L1668" class="LineNr">1668 </span> <span class="PreProc">var</span> unquote-splice-h: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1669" class="LineNr">1669 </span> <span class="PreProc">var</span> unquote-splice-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address unquote-splice-h +<span id="L1670" class="LineNr">1670 </span> <a href='cell.mu.html#L39'>new-symbol</a> unquote-splice-ah, <span class="Constant">",@"</span> +<span id="L1671" class="LineNr">1671 </span> <span class="PreProc">var</span> a-h: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1672" class="LineNr">1672 </span> <span class="PreProc">var</span> a-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address a-h +<span id="L1673" class="LineNr">1673 </span> <a href='cell.mu.html#L39'>new-symbol</a> a-ah, <span class="Constant">"a"</span> +<span id="L1674" class="LineNr">1674 </span> <span class="PreProc">var</span> b-h: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1675" class="LineNr">1675 </span> <span class="PreProc">var</span> b-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address b-h +<span id="L1676" class="LineNr">1676 </span> <a href='cell.mu.html#L39'>new-symbol</a> b-ah, <span class="Constant">"b"</span> +<span id="L1677" class="LineNr">1677 </span> <span class="muComment"># env = ((b . (a 3)))</span> +<span id="L1678" class="LineNr">1678 </span> <span class="PreProc">var</span> val-h: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1679" class="LineNr">1679 </span> <span class="PreProc">var</span> val-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address val-h +<span id="L1680" class="LineNr">1680 </span> <a href='cell.mu.html#L84'>new-integer</a> val-ah, <span class="Constant">3</span> +<span id="L1681" class="LineNr">1681 </span> <a href='cell.mu.html#L116'>new-pair</a> val-ah, val-h, nil-h +<span id="L1682" class="LineNr">1682 </span> <a href='cell.mu.html#L116'>new-pair</a> val-ah, a-h, val-h +<span id="L1683" class="LineNr">1683 </span> <span class="PreProc">var</span> env-h: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1684" class="LineNr">1684 </span> <span class="PreProc">var</span> env-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address env-h +<span id="L1685" class="LineNr">1685 </span> <a href='cell.mu.html#L116'>new-pair</a> env-ah, b-h, val-h +<span id="L1686" class="LineNr">1686 </span> <a href='cell.mu.html#L116'>new-pair</a> env-ah, env-h, nil-h +<span id="L1687" class="LineNr">1687 </span> <span class="muComment"># input is `(a ,@b b)</span> +<span id="L1688" class="LineNr">1688 </span> <span class="PreProc">var</span> tmp-h: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1689" class="LineNr">1689 </span> <span class="PreProc">var</span> tmp-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address tmp-h +<span id="L1690" class="LineNr">1690 </span> <span class="muComment"># tmp = cons(b, nil)</span> +<span id="L1691" class="LineNr">1691 </span> <a href='cell.mu.html#L116'>new-pair</a> tmp-ah, b-h, nil-h +<span id="L1692" class="LineNr">1692 </span> <span class="muComment"># tmp2 = cons(unquote-splice, b)</span> +<span id="L1693" class="LineNr">1693 </span> <span class="PreProc">var</span> tmp2-h: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L1694" class="LineNr">1694 </span> <span class="PreProc">var</span> tmp2-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address tmp2-h +<span id="L1695" class="LineNr">1695 </span> <a href='cell.mu.html#L116'>new-pair</a> tmp2-ah, unquote-splice-h, b-h +<span id="L1696" class="LineNr">1696 </span> <span class="muComment"># tmp = cons(tmp2, tmp)</span> +<span id="L1697" class="LineNr">1697 </span> <a href='cell.mu.html#L116'>new-pair</a> tmp-ah, tmp2-h, tmp-h +<span id="L1698" class="LineNr">1698 </span> <span class="muComment"># tmp = cons(a, tmp)</span> +<span id="L1699" class="LineNr">1699 </span> <a href='cell.mu.html#L116'>new-pair</a> tmp-ah, a-h, tmp-h +<span id="L1700" class="LineNr">1700 </span> <span class="muComment"># tmp = cons(backquote, tmp)</span> +<span id="L1701" class="LineNr">1701 </span> <a href='cell.mu.html#L116'>new-pair</a> tmp-ah, backquote-h, tmp-h +<span id="L1702" class="LineNr">1702 </span><span class="CommentedCode">#? dump-cell-from-cursor-over-full-screen tmp-ah</span> +<span id="L1703" class="LineNr">1703 </span> <span class="muComment">#</span> +<span id="L1704" class="LineNr">1704 </span> <a href='evaluate.mu.html#L5'>evaluate</a> tmp-ah, tmp-ah, env-h, <span class="Constant">0</span>/no-globals, <span class="Constant">0</span>/no-trace, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-keyboard, <span class="Constant">0</span>/call-number +<span id="L1705" class="LineNr">1705 </span> <span class="muComment"># result is (a a 3 b)</span> +<span id="L1706" class="LineNr">1706 </span><span class="CommentedCode">#? dump-cell-from-cursor-over-full-screen tmp-ah</span> +<span id="L1707" class="LineNr">1707 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *tmp-ah +<span id="L1708" class="LineNr">1708 </span> <span class="Delimiter">{</span> +<span id="L1709" class="LineNr">1709 </span> <span class="PreProc">var</span> result-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get result, <span class="PreProc">type</span> +<span id="L1710" class="LineNr">1710 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> *result-type, <span class="Constant">0</span>/pair, <span class="Constant">"F - <a href='evaluate.mu.html#L1661'>test-evaluate-backquote-list-with-unquote-splice</a>/0"</span> +<span id="L1711" class="LineNr">1711 </span> <span class="Delimiter">}</span> +<span id="L1712" class="LineNr">1712 </span> <span class="Delimiter">{</span> +<span id="L1713" class="LineNr">1713 </span> <span class="PreProc">var</span> a1-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get result, left +<span id="L1714" class="LineNr">1714 </span> <span class="PreProc">var</span> a1/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *a1-ah +<span id="L1715" class="LineNr">1715 </span> <span class="PreProc">var</span> check1/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='cell.mu.html#L44'>symbol-equal?</a> a1, <span class="Constant">"a"</span> +<span id="L1716" class="LineNr">1716 </span> <a href='../502test.mu.html#L19'>check</a> check1, <span class="Constant">"F - <a href='evaluate.mu.html#L1661'>test-evaluate-backquote-list-with-unquote-splice</a>/1"</span> +<span id="L1717" class="LineNr">1717 </span> <span class="Delimiter">}</span> +<span id="L1718" class="LineNr">1718 </span> <span class="PreProc">var</span> rest-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get result, right +<span id="L1719" class="LineNr">1719 </span> <span class="PreProc">var</span> rest/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *rest-ah +<span id="L1720" class="LineNr">1720 </span> <span class="Delimiter">{</span> +<span id="L1721" class="LineNr">1721 </span> <span class="PreProc">var</span> a2-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, left +<span id="L1722" class="LineNr">1722 </span> <span class="PreProc">var</span> a2/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *a2-ah +<span id="L1723" class="LineNr">1723 </span> <span class="PreProc">var</span> check2/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='cell.mu.html#L44'>symbol-equal?</a> a2, <span class="Constant">"a"</span> +<span id="L1724" class="LineNr">1724 </span> <a href='../502test.mu.html#L19'>check</a> check2, <span class="Constant">"F - <a href='evaluate.mu.html#L1661'>test-evaluate-backquote-list-with-unquote-splice</a>/2"</span> +<span id="L1725" class="LineNr">1725 </span> <span class="Delimiter">}</span> +<span id="L1726" class="LineNr">1726 </span> <span class="PreProc">var</span> rest-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, right +<span id="L1727" class="LineNr">1727 </span> <span class="PreProc">var</span> rest/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *rest-ah +<span id="L1728" class="LineNr">1728 </span> <span class="Delimiter">{</span> +<span id="L1729" class="LineNr">1729 </span> <span class="PreProc">var</span> a3-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, left +<span id="L1730" class="LineNr">1730 </span> <span class="PreProc">var</span> a3/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *a3-ah +<span id="L1731" class="LineNr">1731 </span> <span class="PreProc">var</span> a3-value-addr/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> get a3, number-data +<span id="L1732" class="LineNr">1732 </span> <span class="PreProc">var</span> a3-value/<span class="Constant">eax</span>: int <span class="Special"><-</span> convert *a3-value-addr +<span id="L1733" class="LineNr">1733 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> a3-value, <span class="Constant">3</span>, <span class="Constant">"F - <a href='evaluate.mu.html#L1661'>test-evaluate-backquote-list-with-unquote-splice</a>/3"</span> +<span id="L1734" class="LineNr">1734 </span> <span class="Delimiter">}</span> +<span id="L1735" class="LineNr">1735 </span> <span class="PreProc">var</span> rest-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, right +<span id="L1736" class="LineNr">1736 </span> <span class="PreProc">var</span> rest/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *rest-ah +<span id="L1737" class="LineNr">1737 </span> <span class="Delimiter">{</span> +<span id="L1738" class="LineNr">1738 </span> <span class="PreProc">var</span> a4-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, left +<span id="L1739" class="LineNr">1739 </span> <span class="PreProc">var</span> a4/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *a4-ah +<span id="L1740" class="LineNr">1740 </span> <span class="PreProc">var</span> check4/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='cell.mu.html#L44'>symbol-equal?</a> a4, <span class="Constant">"b"</span> +<span id="L1741" class="LineNr">1741 </span> <a href='../502test.mu.html#L19'>check</a> check4, <span class="Constant">"F - <a href='evaluate.mu.html#L1661'>test-evaluate-backquote-list-with-unquote-splice</a>/4"</span> +<span id="L1742" class="LineNr">1742 </span> <span class="Delimiter">}</span> +<span id="L1743" class="LineNr">1743 </span> <span class="PreProc">var</span> rest-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, right +<span id="L1744" class="LineNr">1744 </span> <span class="PreProc">var</span> rest/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *rest-ah +<span id="L1745" class="LineNr">1745 </span> <span class="PreProc">var</span> check5/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> rest +<span id="L1746" class="LineNr">1746 </span> <a href='../502test.mu.html#L19'>check</a> check5, <span class="Constant">"F - <a href='evaluate.mu.html#L1661'>test-evaluate-backquote-list-with-unquote-splice</a>/5"</span> +<span id="L1747" class="LineNr">1747 </span><span class="Delimiter">}</span> </pre> </body> </html> diff --git a/html/shell/gap-buffer.mu.html b/html/shell/gap-buffer.mu.html index 9fae1381..29e58b75 100644 --- a/html/shell/gap-buffer.mu.html +++ b/html/shell/gap-buffer.mu.html @@ -87,15 +87,15 @@ if ('onhashchange' in window) { <span id="L28" class="LineNr"> 28 </span> <span class="PreProc">var</span> gap/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _gap <span id="L29" class="LineNr"> 29 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get gap, left <span id="L30" class="LineNr"> 30 </span> <span class="PreProc">var</span> left-data-ah/<span class="Constant">eax</span>: (addr handle array grapheme) <span class="Special"><-</span> get left, data -<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> left-data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *left-data-ah +<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> left-data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *left-data-ah <span id="L32" class="LineNr"> 32 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> length left-data <span id="L33" class="LineNr"> 33 </span> <span class="PreProc">return</span> result <span id="L34" class="LineNr"> 34 </span><span class="Delimiter">}</span> <span id="L35" class="LineNr"> 35 </span> <span id="L36" class="LineNr"> 36 </span><span class="muComment"># just for tests</span> <span id="L37" class="LineNr"> 37 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L37'>initialize-gap-buffer-with</a></span> self: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>), s: (addr array byte) <span class="Delimiter">{</span> -<span id="L38" class="LineNr"> 38 </span> <a href='gap-buffer.mu.html#L11'>initialize-gap-buffer</a> self, <span class="Constant">0x10</span>/capacity -<span id="L39" class="LineNr"> 39 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x10</span>/capacity) +<span id="L38" class="LineNr"> 38 </span> <a href='gap-buffer.mu.html#L11'>initialize-gap-buffer</a> self, <span class="Constant">0x40</span>/capacity +<span id="L39" class="LineNr"> 39 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x40</span>/capacity) <span id="L40" class="LineNr"> 40 </span> <span class="PreProc">var</span> stream/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage <span id="L41" class="LineNr"> 41 </span> <a href='../108write.subx.html#L11'>write</a> stream, s <span id="L42" class="LineNr"> 42 </span> <span class="Delimiter">{</span> @@ -144,7 +144,7 @@ if ('onhashchange' in window) { <span id="L85" class="LineNr"> 85 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L85'>emit-stack-from-bottom</a></span> _self: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>), out: (addr stream byte) <span class="Delimiter">{</span> <span id="L86" class="LineNr"> 86 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> copy _self <span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="Special"><-</span> get self, data -<span id="L88" class="LineNr"> 88 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L88" class="LineNr"> 88 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *data-ah <span id="L89" class="LineNr"> 89 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array grapheme) <span class="Special"><-</span> copy _data <span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get self, top <span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> @@ -162,7 +162,7 @@ if ('onhashchange' in window) { <span id="L103" class="LineNr"> 103 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L103'>emit-stack-from-top</a></span> _self: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>), out: (addr stream byte) <span class="Delimiter">{</span> <span id="L104" class="LineNr"> 104 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> copy _self <span id="L105" class="LineNr"> 105 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="Special"><-</span> get self, data -<span id="L106" class="LineNr"> 106 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L106" class="LineNr"> 106 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *data-ah <span id="L107" class="LineNr"> 107 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array grapheme) <span class="Special"><-</span> copy _data <span id="L108" class="LineNr"> 108 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get self, top <span id="L109" class="LineNr"> 109 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *top-addr @@ -319,7 +319,7 @@ if ('onhashchange' in window) { <span id="L260" class="LineNr"> 260 </span> <span class="Delimiter">{</span> <span id="L261" class="LineNr"> 261 </span> <span class="PreProc">break-if-<=</span> <span id="L262" class="LineNr"> 262 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array grapheme) <span class="Special"><-</span> get left, data -<span id="L263" class="LineNr"> 263 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L263" class="LineNr"> 263 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *data-ah <span id="L264" class="LineNr"> 264 </span> <span class="PreProc">var</span> result-addr/<span class="Constant">eax</span>: (addr grapheme) <span class="Special"><-</span> index data, <span class="Constant">0</span> <span id="L265" class="LineNr"> 265 </span> <span class="PreProc">return</span> *result-addr <span id="L266" class="LineNr"> 266 </span> <span class="Delimiter">}</span> @@ -330,7 +330,7 @@ if ('onhashchange' in window) { <span id="L271" class="LineNr"> 271 </span> <span class="Delimiter">{</span> <span id="L272" class="LineNr"> 272 </span> <span class="PreProc">break-if-<=</span> <span id="L273" class="LineNr"> 273 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array grapheme) <span class="Special"><-</span> get right, data -<span id="L274" class="LineNr"> 274 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L274" class="LineNr"> 274 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *data-ah <span id="L275" class="LineNr"> 275 </span> <span class="PreProc">var</span> top/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *top-addr <span id="L276" class="LineNr"> 276 </span> top <span class="Special"><-</span> decrement <span id="L277" class="LineNr"> 277 </span> <span class="PreProc">var</span> result-addr/<span class="Constant">eax</span>: (addr grapheme) <span class="Special"><-</span> index data, top @@ -491,7 +491,7 @@ if ('onhashchange' in window) { <span id="L432" class="LineNr"> 432 </span> <span class="Delimiter">{</span> <span id="L433" class="LineNr"> 433 </span> <span class="PreProc">break-if->=</span> <span id="L434" class="LineNr"> 434 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array grapheme) <span class="Special"><-</span> get left, data -<span id="L435" class="LineNr"> 435 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L435" class="LineNr"> 435 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *data-ah <span id="L436" class="LineNr"> 436 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr grapheme) <span class="Special"><-</span> index data, n <span id="L437" class="LineNr"> 437 </span> <span class="PreProc">return</span> *result <span id="L438" class="LineNr"> 438 </span> <span class="Delimiter">}</span> @@ -504,7 +504,7 @@ if ('onhashchange' in window) { <span id="L445" class="LineNr"> 445 </span> <span class="Delimiter">{</span> <span id="L446" class="LineNr"> 446 </span> <span class="PreProc">break-if->=</span> <span id="L447" class="LineNr"> 447 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array grapheme) <span class="Special"><-</span> get right, data -<span id="L448" class="LineNr"> 448 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L448" class="LineNr"> 448 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *data-ah <span id="L449" class="LineNr"> 449 </span> <span class="muComment"># idx = right->len - n - 1</span> <span id="L450" class="LineNr"> 450 </span> <span class="PreProc">var</span> idx/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy n <span id="L451" class="LineNr"> 451 </span> idx <span class="Special"><-</span> subtract *right-len-a @@ -514,7 +514,7 @@ if ('onhashchange' in window) { <span id="L455" class="LineNr"> 455 </span> <span class="PreProc">return</span> *result <span id="L456" class="LineNr"> 456 </span> <span class="Delimiter">}</span> <span id="L457" class="LineNr"> 457 </span> <span class="muComment"># error</span> -<span id="L458" class="LineNr"> 458 </span> <a href='../501draw-text.mu.html#L481'>abort</a> <span class="Constant">"gap-index: out of bounds"</span> +<span id="L458" class="LineNr"> 458 </span> <a href='../317abort.subx.html#L5'>abort</a> <span class="Constant">"gap-index: out of bounds"</span> <span id="L459" class="LineNr"> 459 </span> <span class="PreProc">return</span> <span class="Constant">0</span> <span id="L460" class="LineNr"> 460 </span><span class="Delimiter">}</span> <span id="L461" class="LineNr"> 461 </span> @@ -577,10 +577,10 @@ if ('onhashchange' in window) { <span id="L518" class="LineNr"> 518 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L518'>copy-gap-buffer</a></span> _src-ah: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>), _dest-ah: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Delimiter">{</span> <span id="L519" class="LineNr"> 519 </span> <span class="muComment"># obtain src-a, dest-a</span> <span id="L520" class="LineNr"> 520 </span> <span class="PreProc">var</span> src-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _src-ah -<span id="L521" class="LineNr"> 521 </span> <span class="PreProc">var</span> _src-a/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *src-ah +<span id="L521" class="LineNr"> 521 </span> <span class="PreProc">var</span> _src-a/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *src-ah <span id="L522" class="LineNr"> 522 </span> <span class="PreProc">var</span> src-a/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _src-a <span id="L523" class="LineNr"> 523 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _dest-ah -<span id="L524" class="LineNr"> 524 </span> <span class="PreProc">var</span> _dest-a/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *dest-ah +<span id="L524" class="LineNr"> 524 </span> <span class="PreProc">var</span> _dest-a/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *dest-ah <span id="L525" class="LineNr"> 525 </span> <span class="PreProc">var</span> dest-a/<span class="Constant">edi</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _dest-a <span id="L526" class="LineNr"> 526 </span> <span class="muComment"># copy left grapheme-stack</span> <span id="L527" class="LineNr"> 527 </span> <span class="PreProc">var</span> src/<span class="Constant">ecx</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get src-a, left @@ -758,7 +758,7 @@ if ('onhashchange' in window) { <span id="L699" class="LineNr"> 699 </span> <span class="Delimiter">}</span> <span id="L700" class="LineNr"> 700 </span> top-index <span class="Special"><-</span> decrement <span id="L701" class="LineNr"> 701 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array grapheme) <span class="Special"><-</span> get stack, data -<span id="L702" class="LineNr"> 702 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L702" class="LineNr"> 702 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *data-ah <span id="L703" class="LineNr"> 703 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: (addr grapheme) <span class="Special"><-</span> index data, top-index <span id="L704" class="LineNr"> 704 </span> compare *g, <span class="Constant">0x29</span>/close-paren <span id="L705" class="LineNr"> 705 </span> <span class="Delimiter">{</span> @@ -770,7 +770,7 @@ if ('onhashchange' in window) { <span id="L711" class="LineNr"> 711 </span> <span class="muComment"># cursor is not at end; return (char at cursor == ')')</span> <span id="L712" class="LineNr"> 712 </span> top-index <span class="Special"><-</span> decrement <span id="L713" class="LineNr"> 713 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array grapheme) <span class="Special"><-</span> get stack, data -<span id="L714" class="LineNr"> 714 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L714" class="LineNr"> 714 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *data-ah <span id="L715" class="LineNr"> 715 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: (addr grapheme) <span class="Special"><-</span> index data, top-index <span id="L716" class="LineNr"> 716 </span> compare *g, <span class="Constant">0x29</span>/close-paren <span id="L717" class="LineNr"> 717 </span> <span class="Delimiter">{</span> @@ -847,7 +847,7 @@ if ('onhashchange' in window) { <span id="L788" class="LineNr"> 788 </span> <span class="Delimiter">{</span> <span id="L789" class="LineNr"> 789 </span> <span class="PreProc">break-if->=</span> <span id="L790" class="LineNr"> 790 </span> <span class="PreProc">var</span> left-data-ah/<span class="Constant">eax</span>: (addr handle array grapheme) <span class="Special"><-</span> get left, data -<span id="L791" class="LineNr"> 791 </span> <span class="PreProc">var</span> left-data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *left-data-ah +<span id="L791" class="LineNr"> 791 </span> <span class="PreProc">var</span> left-data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *left-data-ah <span id="L792" class="LineNr"> 792 </span> <span class="PreProc">var</span> left-read-index/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *left-read-index-a <span id="L793" class="LineNr"> 793 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr grapheme) <span class="Special"><-</span> index left-data, left-read-index <span id="L794" class="LineNr"> 794 </span> <span class="PreProc">return</span> *result @@ -862,7 +862,7 @@ if ('onhashchange' in window) { <span id="L803" class="LineNr"> 803 </span> <span class="PreProc">break-if->=</span> <span id="L804" class="LineNr"> 804 </span> <span class="muComment"># read the right from reverse</span> <span id="L805" class="LineNr"> 805 </span> <span class="PreProc">var</span> right-data-ah/<span class="Constant">eax</span>: (addr handle array grapheme) <span class="Special"><-</span> get right, data -<span id="L806" class="LineNr"> 806 </span> <span class="PreProc">var</span> right-data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *right-data-ah +<span id="L806" class="LineNr"> 806 </span> <span class="PreProc">var</span> right-data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *right-data-ah <span id="L807" class="LineNr"> 807 </span> <span class="PreProc">var</span> right-read-index/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy right-size <span id="L808" class="LineNr"> 808 </span> right-read-index <span class="Special"><-</span> subtract *right-read-index-a <span id="L809" class="LineNr"> 809 </span> right-read-index <span class="Special"><-</span> subtract <span class="Constant">1</span> @@ -883,7 +883,7 @@ if ('onhashchange' in window) { <span id="L824" class="LineNr"> 824 </span> <span class="Delimiter">{</span> <span id="L825" class="LineNr"> 825 </span> <span class="PreProc">break-if->=</span> <span id="L826" class="LineNr"> 826 </span> <span class="PreProc">var</span> left-data-ah/<span class="Constant">eax</span>: (addr handle array grapheme) <span class="Special"><-</span> get left, data -<span id="L827" class="LineNr"> 827 </span> <span class="PreProc">var</span> left-data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *left-data-ah +<span id="L827" class="LineNr"> 827 </span> <span class="PreProc">var</span> left-data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *left-data-ah <span id="L828" class="LineNr"> 828 </span> <span class="PreProc">var</span> left-read-index/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *left-read-index-a <span id="L829" class="LineNr"> 829 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr grapheme) <span class="Special"><-</span> index left-data, left-read-index <span id="L830" class="LineNr"> 830 </span> increment *left-read-index-a @@ -899,7 +899,7 @@ if ('onhashchange' in window) { <span id="L840" class="LineNr"> 840 </span> <span class="PreProc">break-if->=</span> <span id="L841" class="LineNr"> 841 </span> <span class="muComment"># read the right from reverse</span> <span id="L842" class="LineNr"> 842 </span> <span class="PreProc">var</span> right-data-ah/<span class="Constant">eax</span>: (addr handle array grapheme) <span class="Special"><-</span> get right, data -<span id="L843" class="LineNr"> 843 </span> <span class="PreProc">var</span> right-data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *right-data-ah +<span id="L843" class="LineNr"> 843 </span> <span class="PreProc">var</span> right-data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *right-data-ah <span id="L844" class="LineNr"> 844 </span> <span class="PreProc">var</span> right-read-index/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy right-size <span id="L845" class="LineNr"> 845 </span> right-read-index <span class="Special"><-</span> subtract *right-read-index-a <span id="L846" class="LineNr"> 846 </span> right-read-index <span class="Special"><-</span> subtract <span class="Constant">1</span> diff --git a/html/shell/global.mu.html b/html/shell/global.mu.html index 6ddc349d..db15c53f 100644 --- a/html/shell/global.mu.html +++ b/html/shell/global.mu.html @@ -70,1955 +70,2073 @@ if ('onhashchange' in window) { <span id="L11" class="LineNr"> 11 </span> <span id="L12" class="LineNr"> 12 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L12'>initialize-globals</a></span> _self: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Delimiter">{</span> <span id="L13" class="LineNr"> 13 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Special"><-</span> copy _self -<span id="L14" class="LineNr"> 14 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> get self, data -<span id="L15" class="LineNr"> 15 </span> populate data-ah, <span class="Constant">0x40</span> -<span id="L16" class="LineNr"> 16 </span> <span class="muComment"># for numbers</span> -<span id="L17" class="LineNr"> 17 </span> <a href='global.mu.html#L270'>append-primitive</a> self, <span class="Constant">"+"</span> -<span id="L18" class="LineNr"> 18 </span> <a href='global.mu.html#L270'>append-primitive</a> self, <span class="Constant">"-"</span> -<span id="L19" class="LineNr"> 19 </span> <a href='global.mu.html#L270'>append-primitive</a> self, <span class="Constant">"*"</span> -<span id="L20" class="LineNr"> 20 </span> <a href='global.mu.html#L270'>append-primitive</a> self, <span class="Constant">"/"</span> -<span id="L21" class="LineNr"> 21 </span> <a href='global.mu.html#L270'>append-primitive</a> self, <span class="Constant">"sqrt"</span> -<span id="L22" class="LineNr"> 22 </span> <a href='global.mu.html#L270'>append-primitive</a> self, <span class="Constant">"abs"</span> -<span id="L23" class="LineNr"> 23 </span> <a href='global.mu.html#L270'>append-primitive</a> self, <span class="Constant">"sgn"</span> -<span id="L24" class="LineNr"> 24 </span> <a href='global.mu.html#L270'>append-primitive</a> self, <span class="Constant">"<"</span> -<span id="L25" class="LineNr"> 25 </span> <a href='global.mu.html#L270'>append-primitive</a> self, <span class="Constant">">"</span> -<span id="L26" class="LineNr"> 26 </span> <a href='global.mu.html#L270'>append-primitive</a> self, <span class="Constant">"<="</span> -<span id="L27" class="LineNr"> 27 </span> <a href='global.mu.html#L270'>append-primitive</a> self, <span class="Constant">">="</span> -<span id="L28" class="LineNr"> 28 </span> <span class="muComment"># generic</span> -<span id="L29" class="LineNr"> 29 </span> <a href='global.mu.html#L270'>append-primitive</a> self, <span class="Constant">"="</span> -<span id="L30" class="LineNr"> 30 </span> <a href='global.mu.html#L270'>append-primitive</a> self, <span class="Constant">"no"</span> -<span id="L31" class="LineNr"> 31 </span> <a href='global.mu.html#L270'>append-primitive</a> self, <span class="Constant">"not"</span> -<span id="L32" class="LineNr"> 32 </span> <span class="muComment"># for pairs</span> -<span id="L33" class="LineNr"> 33 </span> <a href='global.mu.html#L270'>append-primitive</a> self, <span class="Constant">"car"</span> -<span id="L34" class="LineNr"> 34 </span> <a href='global.mu.html#L270'>append-primitive</a> self, <span class="Constant">"cdr"</span> -<span id="L35" class="LineNr"> 35 </span> <a href='global.mu.html#L270'>append-primitive</a> self, <span class="Constant">"cons"</span> -<span id="L36" class="LineNr"> 36 </span> <span class="muComment"># for screens</span> -<span id="L37" class="LineNr"> 37 </span> <a href='global.mu.html#L270'>append-primitive</a> self, <span class="Constant">"print"</span> -<span id="L38" class="LineNr"> 38 </span> <a href='global.mu.html#L270'>append-primitive</a> self, <span class="Constant">"clear"</span> -<span id="L39" class="LineNr"> 39 </span> <a href='global.mu.html#L270'>append-primitive</a> self, <span class="Constant">"lines"</span> -<span id="L40" class="LineNr"> 40 </span> <a href='global.mu.html#L270'>append-primitive</a> self, <span class="Constant">"columns"</span> -<span id="L41" class="LineNr"> 41 </span> <a href='global.mu.html#L270'>append-primitive</a> self, <span class="Constant">"up"</span> -<span id="L42" class="LineNr"> 42 </span> <a href='global.mu.html#L270'>append-primitive</a> self, <span class="Constant">"down"</span> -<span id="L43" class="LineNr"> 43 </span> <a href='global.mu.html#L270'>append-primitive</a> self, <span class="Constant">"left"</span> -<span id="L44" class="LineNr"> 44 </span> <a href='global.mu.html#L270'>append-primitive</a> self, <span class="Constant">"right"</span> -<span id="L45" class="LineNr"> 45 </span> <a href='global.mu.html#L270'>append-primitive</a> self, <span class="Constant">"cr"</span> -<span id="L46" class="LineNr"> 46 </span> <a href='global.mu.html#L270'>append-primitive</a> self, <span class="Constant">"pixel"</span> -<span id="L47" class="LineNr"> 47 </span> <a href='global.mu.html#L270'>append-primitive</a> self, <span class="Constant">"width"</span> -<span id="L48" class="LineNr"> 48 </span> <a href='global.mu.html#L270'>append-primitive</a> self, <span class="Constant">"height"</span> -<span id="L49" class="LineNr"> 49 </span> <span class="muComment"># for keyboards</span> -<span id="L50" class="LineNr"> 50 </span> <a href='global.mu.html#L270'>append-primitive</a> self, <span class="Constant">"key"</span> -<span id="L51" class="LineNr"> 51 </span> <span class="muComment"># for streams</span> -<span id="L52" class="LineNr"> 52 </span> <a href='global.mu.html#L270'>append-primitive</a> self, <span class="Constant">"stream"</span> -<span id="L53" class="LineNr"> 53 </span> <a href='global.mu.html#L270'>append-primitive</a> self, <span class="Constant">"write"</span> -<span id="L54" class="LineNr"> 54 </span> <span class="muComment"># misc</span> -<span id="L55" class="LineNr"> 55 </span> <a href='global.mu.html#L270'>append-primitive</a> self, <span class="Constant">"abort"</span> -<span id="L56" class="LineNr"> 56 </span> <span class="muComment"># keep sync'd with render-primitives</span> -<span id="L57" class="LineNr"> 57 </span><span class="Delimiter">}</span> -<span id="L58" class="LineNr"> 58 </span> -<span id="L59" class="LineNr"> 59 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L59'>load-globals</a></span> in: (addr handle <a href='cell.mu.html#L1'>cell</a>), self: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Delimiter">{</span> -<span id="L60" class="LineNr"> 60 </span> <span class="PreProc">var</span> remaining-ah/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy in -<span id="L61" class="LineNr"> 61 </span> <span class="Delimiter">{</span> -<span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> _remaining/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *remaining-ah -<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">var</span> remaining/<span class="Constant">ecx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _remaining -<span id="L64" class="LineNr"> 64 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> remaining -<span id="L65" class="LineNr"> 65 </span> compare done?, <span class="Constant">0</span>/false -<span id="L66" class="LineNr"> 66 </span> <span class="PreProc">break-if-!=</span> -<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> curr-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get remaining, left -<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *curr-ah -<span id="L69" class="LineNr"> 69 </span> remaining-ah <span class="Special"><-</span> get remaining, right -<span id="L70" class="LineNr"> 70 </span> <span class="PreProc">var</span> value-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get curr, right -<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> value/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *value-ah -<span id="L72" class="LineNr"> 72 </span> <span class="PreProc">var</span> value-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get value, text-data -<span id="L73" class="LineNr"> 73 </span> <span class="PreProc">var</span> _value-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *value-data-ah -<span id="L74" class="LineNr"> 74 </span> <span class="PreProc">var</span> value-data/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> copy _value-data -<span id="L75" class="LineNr"> 75 </span> <span class="PreProc">var</span> value-gap-buffer-storage: (handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) -<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> value-gap-buffer-ah/<span class="Constant">edx</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> address value-gap-buffer-storage -<span id="L77" class="LineNr"> 77 </span> <a href='../120allocate.subx.html#L43'>allocate</a> value-gap-buffer-ah -<span id="L78" class="LineNr"> 78 </span> <span class="PreProc">var</span> value-gap-buffer/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *value-gap-buffer-ah -<span id="L79" class="LineNr"> 79 </span> <a href='gap-buffer.mu.html#L11'>initialize-gap-buffer</a> value-gap-buffer, <span class="Constant">0x1000</span>/4KB -<span id="L80" class="LineNr"> 80 </span> <a href='gap-buffer.mu.html#L52'>load-gap-buffer-from-stream</a> value-gap-buffer, value-data -<span id="L81" class="LineNr"> 81 </span> <a href='sandbox.mu.html#L635'>read-evaluate-and-move-to-globals</a> value-gap-buffer-ah, self -<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">loop</span> -<span id="L83" class="LineNr"> 83 </span> <span class="Delimiter">}</span> -<span id="L84" class="LineNr"> 84 </span><span class="Delimiter">}</span> -<span id="L85" class="LineNr"> 85 </span> -<span id="L86" class="LineNr"> 86 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L86'>write-globals</a></span> out: (addr stream byte), _self: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Delimiter">{</span> -<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Special"><-</span> copy _self -<span id="L88" class="LineNr"> 88 </span> <a href='../108write.subx.html#L11'>write</a> out, <span class="Constant">" (globals . (\n"</span> -<span id="L89" class="LineNr"> 89 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> get self, data -<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah -<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> final-index/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get self, final-index -<span id="L92" class="LineNr"> 92 </span> <span class="PreProc">var</span> curr-index/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span>/skip-0 -<span id="L93" class="LineNr"> 93 </span> <span class="Delimiter">{</span> -<span id="L94" class="LineNr"> 94 </span> compare curr-index, *final-index -<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">break-if-></span> -<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">var</span> curr-offset/<span class="Constant">ebx</span>: (offset <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> compute-offset data, curr-index -<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> curr/<span class="Constant">ebx</span>: (addr <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> index data, curr-offset -<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">var</span> curr-value-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get curr, value -<span id="L99" class="LineNr"> 99 </span> <span class="PreProc">var</span> curr-value/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *curr-value-ah -<span id="L100" class="LineNr"> 100 </span> <span class="PreProc">var</span> curr-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get curr-value, <span class="PreProc">type</span> -<span id="L101" class="LineNr"> 101 </span> <span class="Delimiter">{</span> -<span id="L102" class="LineNr"> 102 </span> compare *curr-type, <span class="Constant">4</span>/primitive-function -<span id="L103" class="LineNr"> 103 </span> <span class="PreProc">break-if-=</span> -<span id="L104" class="LineNr"> 104 </span> compare *curr-type, <span class="Constant">5</span>/screen -<span id="L105" class="LineNr"> 105 </span> <span class="PreProc">break-if-=</span> -<span id="L106" class="LineNr"> 106 </span> compare *curr-type, <span class="Constant">6</span>/keyboard -<span id="L107" class="LineNr"> 107 </span> <span class="PreProc">break-if-=</span> -<span id="L108" class="LineNr"> 108 </span> compare *curr-type, <span class="Constant">3</span>/stream <span class="muComment"># not implemented yet</span> -<span id="L109" class="LineNr"> 109 </span> <span class="PreProc">break-if-=</span> -<span id="L110" class="LineNr"> 110 </span> <a href='../108write.subx.html#L11'>write</a> out, <span class="Constant">" ("</span> -<span id="L111" class="LineNr"> 111 </span> <span class="PreProc">var</span> curr-name-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> get curr, name -<span id="L112" class="LineNr"> 112 </span> <span class="PreProc">var</span> curr-name/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *curr-name-ah -<span id="L113" class="LineNr"> 113 </span> <a href='../108write.subx.html#L11'>write</a> out, curr-name -<span id="L114" class="LineNr"> 114 </span> <a href='../108write.subx.html#L11'>write</a> out, <span class="Constant">" . ["</span> -<span id="L115" class="LineNr"> 115 </span> <span class="PreProc">var</span> curr-input-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get curr, input -<span id="L116" class="LineNr"> 116 </span> <span class="PreProc">var</span> curr-input/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *curr-input-ah -<span id="L117" class="LineNr"> 117 </span> <a href='gap-buffer.mu.html#L76'>append-gap-buffer</a> curr-input, out -<span id="L118" class="LineNr"> 118 </span> <a href='../108write.subx.html#L11'>write</a> out, <span class="Constant">"])\n"</span> -<span id="L119" class="LineNr"> 119 </span> <span class="Delimiter">}</span> -<span id="L120" class="LineNr"> 120 </span> curr-index <span class="Special"><-</span> increment -<span id="L121" class="LineNr"> 121 </span> <span class="PreProc">loop</span> -<span id="L122" class="LineNr"> 122 </span> <span class="Delimiter">}</span> -<span id="L123" class="LineNr"> 123 </span> <a href='../108write.subx.html#L11'>write</a> out, <span class="Constant">" ))\n"</span> -<span id="L124" class="LineNr"> 124 </span><span class="Delimiter">}</span> -<span id="L125" class="LineNr"> 125 </span> -<span id="L126" class="LineNr"> 126 </span><span class="muComment"># globals layout: 1 char padding, 41 code, 1 padding, 41 code, 1 padding = 85 chars</span> -<span id="L127" class="LineNr"> 127 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L127'>render-globals</a></span> <a href='../500fake-screen.mu.html#L14'>screen</a>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>), _self: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Delimiter">{</span> -<span id="L128" class="LineNr"> 128 </span> <a href='../500fake-screen.mu.html#L332'>clear-rect</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x55</span>/xmax, <span class="Constant">0x2f</span>/ymax=screen-height-without-menu, <span class="Constant">0xdc</span>/bg=green-bg -<span id="L129" class="LineNr"> 129 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Special"><-</span> copy _self -<span id="L130" class="LineNr"> 130 </span> <span class="muComment"># render primitives</span> -<span id="L131" class="LineNr"> 131 </span> <a href='global.mu.html#L190'>render-primitives</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/xmin=padding-left, <span class="Constant">0x55</span>/xmax, <span class="Constant">0x2f</span>/ymax -<span id="L132" class="LineNr"> 132 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> get self, data -<span id="L133" class="LineNr"> 133 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah -<span id="L134" class="LineNr"> 134 </span> <span class="PreProc">var</span> curr-index/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> -<span id="L135" class="LineNr"> 135 </span> <span class="Delimiter">{</span> -<span id="L136" class="LineNr"> 136 </span> <span class="PreProc">var</span> curr-offset/<span class="Constant">ebx</span>: (offset <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> compute-offset data, curr-index -<span id="L137" class="LineNr"> 137 </span> <span class="PreProc">var</span> curr/<span class="Constant">ebx</span>: (addr <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> index data, curr-offset -<span id="L138" class="LineNr"> 138 </span> <span class="PreProc">var</span> continue?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='global.mu.html#L252'>primitive-global?</a> curr -<span id="L139" class="LineNr"> 139 </span> compare continue?, <span class="Constant">0</span>/false -<span id="L140" class="LineNr"> 140 </span> <span class="PreProc">break-if-=</span> -<span id="L141" class="LineNr"> 141 </span> curr-index <span class="Special"><-</span> increment -<span id="L142" class="LineNr"> 142 </span> <span class="PreProc">loop</span> -<span id="L143" class="LineNr"> 143 </span> <span class="Delimiter">}</span> -<span id="L144" class="LineNr"> 144 </span> <span class="PreProc">var</span> lowest-index/<span class="Constant">edi</span>: int <span class="Special"><-</span> copy curr-index -<span id="L145" class="LineNr"> 145 </span> <span class="PreProc">var</span> final-index/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get self, final-index -<span id="L146" class="LineNr"> 146 </span> <span class="PreProc">var</span> curr-index/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy *final-index -<span id="L147" class="LineNr"> 147 </span> <span class="PreProc">var</span> y1: int -<span id="L148" class="LineNr"> 148 </span> copy-to y1, <span class="Constant">1</span>/padding-top -<span id="L149" class="LineNr"> 149 </span> <span class="PreProc">var</span> y2: int -<span id="L150" class="LineNr"> 150 </span> copy-to y2, <span class="Constant">1</span>/padding-top -<span id="L151" class="LineNr"> 151 </span> $render-globals:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> -<span id="L152" class="LineNr"> 152 </span> compare curr-index, lowest-index -<span id="L153" class="LineNr"> 153 </span> <span class="PreProc">break-if-<</span> -<span id="L154" class="LineNr"> 154 </span> <span class="Delimiter">{</span> -<span id="L155" class="LineNr"> 155 </span> compare y1, <span class="Constant">0x2f</span>/ymax -<span id="L156" class="LineNr"> 156 </span> <span class="PreProc">break-if-<</span> -<span id="L157" class="LineNr"> 157 </span> compare y2, <span class="Constant">0x2f</span>/ymax -<span id="L158" class="LineNr"> 158 </span> <span class="PreProc">break-if-<</span> -<span id="L159" class="LineNr"> 159 </span> <span class="PreProc">break</span> $render-globals:<span class="PreProc">loop</span> -<span id="L160" class="LineNr"> 160 </span> <span class="Delimiter">}</span> -<span id="L161" class="LineNr"> 161 </span> <span class="Delimiter">{</span> -<span id="L162" class="LineNr"> 162 </span> <span class="PreProc">var</span> curr-offset/<span class="Constant">edx</span>: (offset <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> compute-offset data, curr-index -<span id="L163" class="LineNr"> 163 </span> <span class="PreProc">var</span> curr/<span class="Constant">edx</span>: (addr <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> index data, curr-offset -<span id="L164" class="LineNr"> 164 </span> <span class="PreProc">var</span> curr-input-ah/<span class="Constant">edx</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get curr, input -<span id="L165" class="LineNr"> 165 </span> <span class="PreProc">var</span> _curr-input/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *curr-input-ah -<span id="L166" class="LineNr"> 166 </span> <span class="PreProc">var</span> curr-input/<span class="Constant">ebx</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _curr-input -<span id="L167" class="LineNr"> 167 </span> compare curr-input, <span class="Constant">0</span> -<span id="L168" class="LineNr"> 168 </span> <span class="PreProc">break-if-=</span> -<span id="L169" class="LineNr"> 169 </span> $render-globals:render-global: <span class="Delimiter">{</span> -<span id="L170" class="LineNr"> 170 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L171" class="LineNr"> 171 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy y1 -<span id="L172" class="LineNr"> 172 </span> compare y, y2 -<span id="L173" class="LineNr"> 173 </span> <span class="Delimiter">{</span> -<span id="L174" class="LineNr"> 174 </span> <span class="PreProc">break-if->=</span> -<span id="L175" class="LineNr"> 175 </span> x, y <span class="Special"><-</span> <a href='gap-buffer.mu.html#L123'>render-gap-buffer-wrapping-right-then-down</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, curr-input, <span class="Constant">1</span>/padding-left, y1, <span class="Constant">0x2a</span>/xmax, <span class="Constant">0x2f</span>/ymax, <span class="Constant">0</span>/no-cursor, <span class="Constant">7</span>/fg=definition, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L176" class="LineNr"> 176 </span> y <span class="Special"><-</span> add <span class="Constant">2</span> -<span id="L177" class="LineNr"> 177 </span> copy-to y1, y -<span id="L178" class="LineNr"> 178 </span> <span class="PreProc">break</span> $render-globals:render-global -<span id="L179" class="LineNr"> 179 </span> <span class="Delimiter">}</span> -<span id="L180" class="LineNr"> 180 </span> x, y <span class="Special"><-</span> <a href='gap-buffer.mu.html#L123'>render-gap-buffer-wrapping-right-then-down</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, curr-input, <span class="Constant">0x2b</span>/xmin, y2, <span class="Constant">0x54</span>/xmax, <span class="Constant">0x2f</span>/ymax, <span class="Constant">0</span>/no-cursor, <span class="Constant">7</span>/fg=definition, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L181" class="LineNr"> 181 </span> y <span class="Special"><-</span> add <span class="Constant">2</span> -<span id="L182" class="LineNr"> 182 </span> copy-to y2, y -<span id="L183" class="LineNr"> 183 </span> <span class="Delimiter">}</span> -<span id="L184" class="LineNr"> 184 </span> <span class="Delimiter">}</span> -<span id="L185" class="LineNr"> 185 </span> curr-index <span class="Special"><-</span> decrement -<span id="L186" class="LineNr"> 186 </span> <span class="PreProc">loop</span> -<span id="L187" class="LineNr"> 187 </span> <span class="Delimiter">}</span> -<span id="L188" class="LineNr"> 188 </span><span class="Delimiter">}</span> -<span id="L189" class="LineNr"> 189 </span> -<span id="L190" class="LineNr"> 190 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L190'>render-primitives</a></span> <a href='../500fake-screen.mu.html#L14'>screen</a>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>), xmin: int, xmax: int, ymax: int <span class="Delimiter">{</span> -<span id="L191" class="LineNr"> 191 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy ymax -<span id="L192" class="LineNr"> 192 </span> y <span class="Special"><-</span> subtract <span class="Constant">0xf</span> -<span id="L193" class="LineNr"> 193 </span> <span class="PreProc">var</span> tmpx/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy xmin -<span id="L194" class="LineNr"> 194 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">"cursor graphics"</span>, tmpx, xmax, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg -<span id="L195" class="LineNr"> 195 </span> y <span class="Special"><-</span> increment -<span id="L196" class="LineNr"> 196 </span> <span class="PreProc">var</span> tmpx/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy xmin -<span id="L197" class="LineNr"> 197 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" print"</span>, tmpx, xmax, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg -<span id="L198" class="LineNr"> 198 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">": <a href='../500fake-screen.mu.html#L14'>screen</a> a -> a"</span>, tmpx, xmax, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg -<span id="L199" class="LineNr"> 199 </span> y <span class="Special"><-</span> increment -<span id="L200" class="LineNr"> 200 </span> <span class="PreProc">var</span> tmpx/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy xmin -<span id="L201" class="LineNr"> 201 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" lines columns"</span>, tmpx, xmax, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg -<span id="L202" class="LineNr"> 202 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">": <a href='../500fake-screen.mu.html#L14'>screen</a> -> number"</span>, tmpx, xmax, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg -<span id="L203" class="LineNr"> 203 </span> y <span class="Special"><-</span> increment -<span id="L204" class="LineNr"> 204 </span> <span class="PreProc">var</span> tmpx/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy xmin -<span id="L205" class="LineNr"> 205 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" up down left right"</span>, tmpx, xmax, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg -<span id="L206" class="LineNr"> 206 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">": screen"</span>, tmpx, xmax, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg -<span id="L207" class="LineNr"> 207 </span> y <span class="Special"><-</span> increment -<span id="L208" class="LineNr"> 208 </span> <span class="PreProc">var</span> tmpx/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy xmin -<span id="L209" class="LineNr"> 209 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" cr"</span>, tmpx, xmax, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg -<span id="L210" class="LineNr"> 210 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">": <a href='../500fake-screen.mu.html#L14'>screen</a> "</span>, tmpx, xmax, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg -<span id="L211" class="LineNr"> 211 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">"# move cursor down and to left margin"</span>, tmpx, xmax, y, <span class="Constant">0x38</span>/fg=trace, <span class="Constant">0xdc</span>/bg=green-bg -<span id="L212" class="LineNr"> 212 </span> y <span class="Special"><-</span> increment -<span id="L213" class="LineNr"> 213 </span> <span class="PreProc">var</span> tmpx/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy xmin -<span id="L214" class="LineNr"> 214 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">"pixel graphics"</span>, tmpx, xmax, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg -<span id="L215" class="LineNr"> 215 </span> y <span class="Special"><-</span> increment -<span id="L216" class="LineNr"> 216 </span> <span class="PreProc">var</span> tmpx/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy xmin -<span id="L217" class="LineNr"> 217 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" width height"</span>, tmpx, xmax, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg -<span id="L218" class="LineNr"> 218 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">": <a href='../500fake-screen.mu.html#L14'>screen</a> -> number"</span>, tmpx, xmax, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg -<span id="L219" class="LineNr"> 219 </span> y <span class="Special"><-</span> increment -<span id="L220" class="LineNr"> 220 </span> <span class="PreProc">var</span> tmpx/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy xmin -<span id="L221" class="LineNr"> 221 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" pixel"</span>, tmpx, xmax, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg -<span id="L222" class="LineNr"> 222 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">": <a href='../500fake-screen.mu.html#L14'>screen</a> x y color"</span>, tmpx, xmax, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg -<span id="L223" class="LineNr"> 223 </span> y <span class="Special"><-</span> increment -<span id="L224" class="LineNr"> 224 </span> <span class="PreProc">var</span> tmpx/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy xmin -<span id="L225" class="LineNr"> 225 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">"screen/keyboard"</span>, tmpx, xmax, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg -<span id="L226" class="LineNr"> 226 </span> y <span class="Special"><-</span> increment -<span id="L227" class="LineNr"> 227 </span> <span class="PreProc">var</span> tmpx/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy xmin -<span id="L228" class="LineNr"> 228 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" clear"</span>, tmpx, xmax, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg -<span id="L229" class="LineNr"> 229 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">": screen"</span>, tmpx, xmax, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L14" class="LineNr"> 14 </span> compare self, <span class="Constant">0</span> +<span id="L15" class="LineNr"> 15 </span> <span class="Delimiter">{</span> +<span id="L16" class="LineNr"> 16 </span> <span class="PreProc">break-if-!=</span> +<span id="L17" class="LineNr"> 17 </span> <a href='../317abort.subx.html#L5'>abort</a> <span class="Constant">"initialize globals"</span> +<span id="L18" class="LineNr"> 18 </span> <span class="PreProc">return</span> +<span id="L19" class="LineNr"> 19 </span> <span class="Delimiter">}</span> +<span id="L20" class="LineNr"> 20 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> get self, data +<span id="L21" class="LineNr"> 21 </span> populate data-ah, <span class="Constant">0x40</span> +<span id="L22" class="LineNr"> 22 </span> <span class="muComment"># for numbers</span> +<span id="L23" class="LineNr"> 23 </span> <a href='global.mu.html#L305'>append-primitive</a> self, <span class="Constant">"+"</span> +<span id="L24" class="LineNr"> 24 </span> <a href='global.mu.html#L305'>append-primitive</a> self, <span class="Constant">"-"</span> +<span id="L25" class="LineNr"> 25 </span> <a href='global.mu.html#L305'>append-primitive</a> self, <span class="Constant">"*"</span> +<span id="L26" class="LineNr"> 26 </span> <a href='global.mu.html#L305'>append-primitive</a> self, <span class="Constant">"/"</span> +<span id="L27" class="LineNr"> 27 </span> <a href='global.mu.html#L305'>append-primitive</a> self, <span class="Constant">"sqrt"</span> +<span id="L28" class="LineNr"> 28 </span> <a href='global.mu.html#L305'>append-primitive</a> self, <span class="Constant">"abs"</span> +<span id="L29" class="LineNr"> 29 </span> <a href='global.mu.html#L305'>append-primitive</a> self, <span class="Constant">"sgn"</span> +<span id="L30" class="LineNr"> 30 </span> <a href='global.mu.html#L305'>append-primitive</a> self, <span class="Constant">"<"</span> +<span id="L31" class="LineNr"> 31 </span> <a href='global.mu.html#L305'>append-primitive</a> self, <span class="Constant">">"</span> +<span id="L32" class="LineNr"> 32 </span> <a href='global.mu.html#L305'>append-primitive</a> self, <span class="Constant">"<="</span> +<span id="L33" class="LineNr"> 33 </span> <a href='global.mu.html#L305'>append-primitive</a> self, <span class="Constant">">="</span> +<span id="L34" class="LineNr"> 34 </span> <span class="muComment"># generic</span> +<span id="L35" class="LineNr"> 35 </span> <a href='global.mu.html#L305'>append-primitive</a> self, <span class="Constant">"="</span> +<span id="L36" class="LineNr"> 36 </span> <a href='global.mu.html#L305'>append-primitive</a> self, <span class="Constant">"no"</span> +<span id="L37" class="LineNr"> 37 </span> <a href='global.mu.html#L305'>append-primitive</a> self, <span class="Constant">"not"</span> +<span id="L38" class="LineNr"> 38 </span> <a href='global.mu.html#L305'>append-primitive</a> self, <span class="Constant">"dbg"</span> +<span id="L39" class="LineNr"> 39 </span> <span class="muComment"># for pairs</span> +<span id="L40" class="LineNr"> 40 </span> <a href='global.mu.html#L305'>append-primitive</a> self, <span class="Constant">"car"</span> +<span id="L41" class="LineNr"> 41 </span> <a href='global.mu.html#L305'>append-primitive</a> self, <span class="Constant">"cdr"</span> +<span id="L42" class="LineNr"> 42 </span> <a href='global.mu.html#L305'>append-primitive</a> self, <span class="Constant">"cons"</span> +<span id="L43" class="LineNr"> 43 </span> <span class="muComment"># for screens</span> +<span id="L44" class="LineNr"> 44 </span> <a href='global.mu.html#L305'>append-primitive</a> self, <span class="Constant">"print"</span> +<span id="L45" class="LineNr"> 45 </span> <a href='global.mu.html#L305'>append-primitive</a> self, <span class="Constant">"clear"</span> +<span id="L46" class="LineNr"> 46 </span> <a href='global.mu.html#L305'>append-primitive</a> self, <span class="Constant">"lines"</span> +<span id="L47" class="LineNr"> 47 </span> <a href='global.mu.html#L305'>append-primitive</a> self, <span class="Constant">"columns"</span> +<span id="L48" class="LineNr"> 48 </span> <a href='global.mu.html#L305'>append-primitive</a> self, <span class="Constant">"up"</span> +<span id="L49" class="LineNr"> 49 </span> <a href='global.mu.html#L305'>append-primitive</a> self, <span class="Constant">"down"</span> +<span id="L50" class="LineNr"> 50 </span> <a href='global.mu.html#L305'>append-primitive</a> self, <span class="Constant">"left"</span> +<span id="L51" class="LineNr"> 51 </span> <a href='global.mu.html#L305'>append-primitive</a> self, <span class="Constant">"right"</span> +<span id="L52" class="LineNr"> 52 </span> <a href='global.mu.html#L305'>append-primitive</a> self, <span class="Constant">"cr"</span> +<span id="L53" class="LineNr"> 53 </span> <a href='global.mu.html#L305'>append-primitive</a> self, <span class="Constant">"pixel"</span> +<span id="L54" class="LineNr"> 54 </span> <a href='global.mu.html#L305'>append-primitive</a> self, <span class="Constant">"width"</span> +<span id="L55" class="LineNr"> 55 </span> <a href='global.mu.html#L305'>append-primitive</a> self, <span class="Constant">"height"</span> +<span id="L56" class="LineNr"> 56 </span> <span class="muComment"># for keyboards</span> +<span id="L57" class="LineNr"> 57 </span> <a href='global.mu.html#L305'>append-primitive</a> self, <span class="Constant">"key"</span> +<span id="L58" class="LineNr"> 58 </span> <span class="muComment"># for streams</span> +<span id="L59" class="LineNr"> 59 </span> <a href='global.mu.html#L305'>append-primitive</a> self, <span class="Constant">"stream"</span> +<span id="L60" class="LineNr"> 60 </span> <a href='global.mu.html#L305'>append-primitive</a> self, <span class="Constant">"write"</span> +<span id="L61" class="LineNr"> 61 </span> <span class="muComment"># misc</span> +<span id="L62" class="LineNr"> 62 </span> <a href='global.mu.html#L305'>append-primitive</a> self, <span class="Constant">"abort"</span> +<span id="L63" class="LineNr"> 63 </span> <span class="muComment"># keep sync'd with render-primitives</span> +<span id="L64" class="LineNr"> 64 </span><span class="Delimiter">}</span> +<span id="L65" class="LineNr"> 65 </span> +<span id="L66" class="LineNr"> 66 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L66'>load-globals</a></span> in: (addr handle <a href='cell.mu.html#L1'>cell</a>), self: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Delimiter">{</span> +<span id="L67" class="LineNr"> 67 </span> <a href='../501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"loading globals:"</span>, <span class="Constant">3</span>/fg, <span class="Constant">0</span>/bg +<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> remaining-ah/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy in +<span id="L69" class="LineNr"> 69 </span> <span class="Delimiter">{</span> +<span id="L70" class="LineNr"> 70 </span> <span class="PreProc">var</span> _remaining/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *remaining-ah +<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> remaining/<span class="Constant">ecx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _remaining +<span id="L72" class="LineNr"> 72 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> remaining +<span id="L73" class="LineNr"> 73 </span> compare done?, <span class="Constant">0</span>/false +<span id="L74" class="LineNr"> 74 </span> <span class="PreProc">break-if-!=</span> +<span id="L75" class="LineNr"> 75 </span><span class="CommentedCode">#? draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, "b", 2/fg 0/bg</span> +<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> curr-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get remaining, left +<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *curr-ah +<span id="L78" class="LineNr"> 78 </span> remaining-ah <span class="Special"><-</span> get remaining, right +<span id="L79" class="LineNr"> 79 </span> <span class="Delimiter">{</span> +<span id="L80" class="LineNr"> 80 </span> <a href='../501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">" "</span>, <span class="Constant">2</span>/fg <span class="Constant">0</span>/bg +<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> name-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get curr, left +<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> name/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *name-ah +<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">var</span> name-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get name, text-data +<span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> name-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *name-data-ah +<span id="L85" class="LineNr"> 85 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> name-data +<span id="L86" class="LineNr"> 86 </span> <a href='../501draw-text.mu.html#L214'>draw-stream-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, name-data, <span class="Constant">3</span>/fg, <span class="Constant">0</span>/bg +<span id="L87" class="LineNr"> 87 </span> <span class="Delimiter">}</span> +<span id="L88" class="LineNr"> 88 </span> <span class="PreProc">var</span> value-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get curr, right +<span id="L89" class="LineNr"> 89 </span> <span class="PreProc">var</span> value/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *value-ah +<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> value-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get value, text-data +<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> _value-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *value-data-ah +<span id="L92" class="LineNr"> 92 </span> <span class="PreProc">var</span> value-data/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> copy _value-data +<span id="L93" class="LineNr"> 93 </span> <span class="PreProc">var</span> value-gap-buffer-storage: (handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) +<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">var</span> value-gap-buffer-ah/<span class="Constant">edx</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> address value-gap-buffer-storage +<span id="L95" class="LineNr"> 95 </span> <a href='../120allocate.subx.html#L43'>allocate</a> value-gap-buffer-ah +<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">var</span> value-gap-buffer/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *value-gap-buffer-ah +<span id="L97" class="LineNr"> 97 </span> <a href='gap-buffer.mu.html#L11'>initialize-gap-buffer</a> value-gap-buffer, <span class="Constant">0x1000</span>/4KB +<span id="L98" class="LineNr"> 98 </span><span class="CommentedCode">#? draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, "w", 2/fg 0/bg</span> +<span id="L99" class="LineNr"> 99 </span> <a href='gap-buffer.mu.html#L52'>load-gap-buffer-from-stream</a> value-gap-buffer, value-data +<span id="L100" class="LineNr"> 100 </span><span class="CommentedCode">#? draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, "x", 2/fg 0/bg</span> +<span id="L101" class="LineNr"> 101 </span> <a href='sandbox.mu.html#L638'>read-evaluate-and-move-to-globals</a> value-gap-buffer-ah, self +<span id="L102" class="LineNr"> 102 </span><span class="CommentedCode">#? draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, "y", 2/fg 0/bg</span> +<span id="L103" class="LineNr"> 103 </span> <span class="PreProc">loop</span> +<span id="L104" class="LineNr"> 104 </span> <span class="Delimiter">}</span> +<span id="L105" class="LineNr"> 105 </span> <a href='../501draw-text.mu.html#L65'>move-cursor-to-left-margin-of-next-line</a> <span class="Constant">0</span>/screen +<span id="L106" class="LineNr"> 106 </span><span class="CommentedCode">#? abort "zz"</span> +<span id="L107" class="LineNr"> 107 </span><span class="Delimiter">}</span> +<span id="L108" class="LineNr"> 108 </span> +<span id="L109" class="LineNr"> 109 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L109'>write-globals</a></span> out: (addr stream byte), _self: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Delimiter">{</span> +<span id="L110" class="LineNr"> 110 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Special"><-</span> copy _self +<span id="L111" class="LineNr"> 111 </span> compare self, <span class="Constant">0</span> +<span id="L112" class="LineNr"> 112 </span> <span class="Delimiter">{</span> +<span id="L113" class="LineNr"> 113 </span> <span class="PreProc">break-if-!=</span> +<span id="L114" class="LineNr"> 114 </span> <a href='../317abort.subx.html#L5'>abort</a> <span class="Constant">"write globals"</span> +<span id="L115" class="LineNr"> 115 </span> <span class="PreProc">return</span> +<span id="L116" class="LineNr"> 116 </span> <span class="Delimiter">}</span> +<span id="L117" class="LineNr"> 117 </span> <a href='../108write.subx.html#L11'>write</a> out, <span class="Constant">" (globals . (\n"</span> +<span id="L118" class="LineNr"> 118 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> get self, data +<span id="L119" class="LineNr"> 119 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *data-ah +<span id="L120" class="LineNr"> 120 </span> <span class="PreProc">var</span> final-index/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get self, final-index +<span id="L121" class="LineNr"> 121 </span> <span class="PreProc">var</span> curr-index/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span>/skip-0 +<span id="L122" class="LineNr"> 122 </span> <span class="Delimiter">{</span> +<span id="L123" class="LineNr"> 123 </span> compare curr-index, *final-index +<span id="L124" class="LineNr"> 124 </span> <span class="PreProc">break-if-></span> +<span id="L125" class="LineNr"> 125 </span> <span class="PreProc">var</span> curr-offset/<span class="Constant">ebx</span>: (offset <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> compute-offset data, curr-index +<span id="L126" class="LineNr"> 126 </span> <span class="PreProc">var</span> curr/<span class="Constant">ebx</span>: (addr <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> index data, curr-offset +<span id="L127" class="LineNr"> 127 </span> <span class="PreProc">var</span> curr-value-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get curr, value +<span id="L128" class="LineNr"> 128 </span> <span class="PreProc">var</span> curr-value/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *curr-value-ah +<span id="L129" class="LineNr"> 129 </span> <span class="PreProc">var</span> curr-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get curr-value, <span class="PreProc">type</span> +<span id="L130" class="LineNr"> 130 </span> <span class="Delimiter">{</span> +<span id="L131" class="LineNr"> 131 </span> compare *curr-type, <span class="Constant">4</span>/primitive-function +<span id="L132" class="LineNr"> 132 </span> <span class="PreProc">break-if-=</span> +<span id="L133" class="LineNr"> 133 </span> compare *curr-type, <span class="Constant">5</span>/screen +<span id="L134" class="LineNr"> 134 </span> <span class="PreProc">break-if-=</span> +<span id="L135" class="LineNr"> 135 </span> compare *curr-type, <span class="Constant">6</span>/keyboard +<span id="L136" class="LineNr"> 136 </span> <span class="PreProc">break-if-=</span> +<span id="L137" class="LineNr"> 137 </span> compare *curr-type, <span class="Constant">3</span>/stream <span class="muComment"># not implemented yet</span> +<span id="L138" class="LineNr"> 138 </span> <span class="PreProc">break-if-=</span> +<span id="L139" class="LineNr"> 139 </span> <a href='../108write.subx.html#L11'>write</a> out, <span class="Constant">" ("</span> +<span id="L140" class="LineNr"> 140 </span> <span class="PreProc">var</span> curr-name-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> get curr, name +<span id="L141" class="LineNr"> 141 </span> <span class="PreProc">var</span> curr-name/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *curr-name-ah +<span id="L142" class="LineNr"> 142 </span> <a href='../108write.subx.html#L11'>write</a> out, curr-name +<span id="L143" class="LineNr"> 143 </span> <a href='../108write.subx.html#L11'>write</a> out, <span class="Constant">" . ["</span> +<span id="L144" class="LineNr"> 144 </span> <span class="PreProc">var</span> curr-input-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get curr, input +<span id="L145" class="LineNr"> 145 </span> <span class="PreProc">var</span> curr-input/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *curr-input-ah +<span id="L146" class="LineNr"> 146 </span> <a href='gap-buffer.mu.html#L76'>append-gap-buffer</a> curr-input, out +<span id="L147" class="LineNr"> 147 </span> <a href='../108write.subx.html#L11'>write</a> out, <span class="Constant">"])\n"</span> +<span id="L148" class="LineNr"> 148 </span> <span class="Delimiter">}</span> +<span id="L149" class="LineNr"> 149 </span> curr-index <span class="Special"><-</span> increment +<span id="L150" class="LineNr"> 150 </span> <span class="PreProc">loop</span> +<span id="L151" class="LineNr"> 151 </span> <span class="Delimiter">}</span> +<span id="L152" class="LineNr"> 152 </span> <a href='../108write.subx.html#L11'>write</a> out, <span class="Constant">" ))\n"</span> +<span id="L153" class="LineNr"> 153 </span><span class="Delimiter">}</span> +<span id="L154" class="LineNr"> 154 </span> +<span id="L155" class="LineNr"> 155 </span><span class="muComment"># globals layout: 1 char padding, 41 code, 1 padding, 41 code, 1 padding = 85 chars</span> +<span id="L156" class="LineNr"> 156 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L156'>render-globals</a></span> <a href='../500fake-screen.mu.html#L14'>screen</a>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>), _self: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Delimiter">{</span> +<span id="L157" class="LineNr"> 157 </span> <a href='../500fake-screen.mu.html#L332'>clear-rect</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x55</span>/xmax, <span class="Constant">0x2f</span>/ymax=screen-height-without-menu, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L158" class="LineNr"> 158 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Special"><-</span> copy _self +<span id="L159" class="LineNr"> 159 </span> compare self, <span class="Constant">0</span> +<span id="L160" class="LineNr"> 160 </span> <span class="Delimiter">{</span> +<span id="L161" class="LineNr"> 161 </span> <span class="PreProc">break-if-!=</span> +<span id="L162" class="LineNr"> 162 </span> <a href='../317abort.subx.html#L5'>abort</a> <span class="Constant">"render globals"</span> +<span id="L163" class="LineNr"> 163 </span> <span class="PreProc">return</span> +<span id="L164" class="LineNr"> 164 </span> <span class="Delimiter">}</span> +<span id="L165" class="LineNr"> 165 </span> <span class="muComment"># render primitives</span> +<span id="L166" class="LineNr"> 166 </span> <a href='global.mu.html#L225'>render-primitives</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/xmin=padding-left, <span class="Constant">0x55</span>/xmax, <span class="Constant">0x2f</span>/ymax +<span id="L167" class="LineNr"> 167 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> get self, data +<span id="L168" class="LineNr"> 168 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *data-ah +<span id="L169" class="LineNr"> 169 </span> <span class="PreProc">var</span> curr-index/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> +<span id="L170" class="LineNr"> 170 </span> <span class="Delimiter">{</span> +<span id="L171" class="LineNr"> 171 </span> <span class="PreProc">var</span> curr-offset/<span class="Constant">ebx</span>: (offset <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> compute-offset data, curr-index +<span id="L172" class="LineNr"> 172 </span> <span class="PreProc">var</span> curr/<span class="Constant">ebx</span>: (addr <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> index data, curr-offset +<span id="L173" class="LineNr"> 173 </span> <span class="PreProc">var</span> continue?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='global.mu.html#L287'>primitive-global?</a> curr +<span id="L174" class="LineNr"> 174 </span> compare continue?, <span class="Constant">0</span>/false +<span id="L175" class="LineNr"> 175 </span> <span class="PreProc">break-if-=</span> +<span id="L176" class="LineNr"> 176 </span> curr-index <span class="Special"><-</span> increment +<span id="L177" class="LineNr"> 177 </span> <span class="PreProc">loop</span> +<span id="L178" class="LineNr"> 178 </span> <span class="Delimiter">}</span> +<span id="L179" class="LineNr"> 179 </span> <span class="PreProc">var</span> lowest-index/<span class="Constant">edi</span>: int <span class="Special"><-</span> copy curr-index +<span id="L180" class="LineNr"> 180 </span> <span class="PreProc">var</span> final-index/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get self, final-index +<span id="L181" class="LineNr"> 181 </span> <span class="PreProc">var</span> curr-index/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy *final-index +<span id="L182" class="LineNr"> 182 </span> <span class="PreProc">var</span> y1: int +<span id="L183" class="LineNr"> 183 </span> copy-to y1, <span class="Constant">1</span>/padding-top +<span id="L184" class="LineNr"> 184 </span> <span class="PreProc">var</span> y2: int +<span id="L185" class="LineNr"> 185 </span> copy-to y2, <span class="Constant">1</span>/padding-top +<span id="L186" class="LineNr"> 186 </span> $render-globals:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> +<span id="L187" class="LineNr"> 187 </span> compare curr-index, lowest-index +<span id="L188" class="LineNr"> 188 </span> <span class="PreProc">break-if-<</span> +<span id="L189" class="LineNr"> 189 </span> <span class="Delimiter">{</span> +<span id="L190" class="LineNr"> 190 </span> compare y1, <span class="Constant">0x2f</span>/ymax +<span id="L191" class="LineNr"> 191 </span> <span class="PreProc">break-if-<</span> +<span id="L192" class="LineNr"> 192 </span> compare y2, <span class="Constant">0x2f</span>/ymax +<span id="L193" class="LineNr"> 193 </span> <span class="PreProc">break-if-<</span> +<span id="L194" class="LineNr"> 194 </span> <span class="PreProc">break</span> $render-globals:<span class="PreProc">loop</span> +<span id="L195" class="LineNr"> 195 </span> <span class="Delimiter">}</span> +<span id="L196" class="LineNr"> 196 </span> <span class="Delimiter">{</span> +<span id="L197" class="LineNr"> 197 </span> <span class="PreProc">var</span> curr-offset/<span class="Constant">edx</span>: (offset <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> compute-offset data, curr-index +<span id="L198" class="LineNr"> 198 </span> <span class="PreProc">var</span> curr/<span class="Constant">edx</span>: (addr <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> index data, curr-offset +<span id="L199" class="LineNr"> 199 </span> <span class="PreProc">var</span> curr-input-ah/<span class="Constant">edx</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get curr, input +<span id="L200" class="LineNr"> 200 </span> <span class="PreProc">var</span> _curr-input/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *curr-input-ah +<span id="L201" class="LineNr"> 201 </span> <span class="PreProc">var</span> curr-input/<span class="Constant">ebx</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _curr-input +<span id="L202" class="LineNr"> 202 </span> compare curr-input, <span class="Constant">0</span> +<span id="L203" class="LineNr"> 203 </span> <span class="PreProc">break-if-=</span> +<span id="L204" class="LineNr"> 204 </span> $render-globals:render-global: <span class="Delimiter">{</span> +<span id="L205" class="LineNr"> 205 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L206" class="LineNr"> 206 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy y1 +<span id="L207" class="LineNr"> 207 </span> compare y, y2 +<span id="L208" class="LineNr"> 208 </span> <span class="Delimiter">{</span> +<span id="L209" class="LineNr"> 209 </span> <span class="PreProc">break-if->=</span> +<span id="L210" class="LineNr"> 210 </span> x, y <span class="Special"><-</span> <a href='gap-buffer.mu.html#L123'>render-gap-buffer-wrapping-right-then-down</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, curr-input, <span class="Constant">1</span>/padding-left, y1, <span class="Constant">0x2a</span>/xmax, <span class="Constant">0x2f</span>/ymax, <span class="Constant">0</span>/no-cursor, <span class="Constant">7</span>/fg=definition, <span class="Constant">0xc5</span>/bg=blue-bg +<span id="L211" class="LineNr"> 211 </span> y <span class="Special"><-</span> add <span class="Constant">2</span> +<span id="L212" class="LineNr"> 212 </span> copy-to y1, y +<span id="L213" class="LineNr"> 213 </span> <span class="PreProc">break</span> $render-globals:render-global +<span id="L214" class="LineNr"> 214 </span> <span class="Delimiter">}</span> +<span id="L215" class="LineNr"> 215 </span> x, y <span class="Special"><-</span> <a href='gap-buffer.mu.html#L123'>render-gap-buffer-wrapping-right-then-down</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, curr-input, <span class="Constant">0x2b</span>/xmin, y2, <span class="Constant">0x54</span>/xmax, <span class="Constant">0x2f</span>/ymax, <span class="Constant">0</span>/no-cursor, <span class="Constant">7</span>/fg=definition, <span class="Constant">0xc5</span>/bg=blue-bg +<span id="L216" class="LineNr"> 216 </span> y <span class="Special"><-</span> add <span class="Constant">2</span> +<span id="L217" class="LineNr"> 217 </span> copy-to y2, y +<span id="L218" class="LineNr"> 218 </span> <span class="Delimiter">}</span> +<span id="L219" class="LineNr"> 219 </span> <span class="Delimiter">}</span> +<span id="L220" class="LineNr"> 220 </span> curr-index <span class="Special"><-</span> decrement +<span id="L221" class="LineNr"> 221 </span> <span class="PreProc">loop</span> +<span id="L222" class="LineNr"> 222 </span> <span class="Delimiter">}</span> +<span id="L223" class="LineNr"> 223 </span><span class="Delimiter">}</span> +<span id="L224" class="LineNr"> 224 </span> +<span id="L225" class="LineNr"> 225 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L225'>render-primitives</a></span> <a href='../500fake-screen.mu.html#L14'>screen</a>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>), xmin: int, xmax: int, ymax: int <span class="Delimiter">{</span> +<span id="L226" class="LineNr"> 226 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy ymax +<span id="L227" class="LineNr"> 227 </span> y <span class="Special"><-</span> subtract <span class="Constant">0xf</span> +<span id="L228" class="LineNr"> 228 </span> <span class="PreProc">var</span> tmpx/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy xmin +<span id="L229" class="LineNr"> 229 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">"cursor graphics"</span>, tmpx, xmax, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg <span id="L230" class="LineNr"> 230 </span> y <span class="Special"><-</span> increment <span id="L231" class="LineNr"> 231 </span> <span class="PreProc">var</span> tmpx/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy xmin -<span id="L232" class="LineNr"> 232 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" key"</span>, tmpx, xmax, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg -<span id="L233" class="LineNr"> 233 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">": () -> grapheme?"</span>, tmpx, xmax, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L232" class="LineNr"> 232 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" print"</span>, tmpx, xmax, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L233" class="LineNr"> 233 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">": <a href='../500fake-screen.mu.html#L14'>screen</a> a -> a"</span>, tmpx, xmax, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg <span id="L234" class="LineNr"> 234 </span> y <span class="Special"><-</span> increment <span id="L235" class="LineNr"> 235 </span> <span class="PreProc">var</span> tmpx/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy xmin -<span id="L236" class="LineNr"> 236 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">"streams"</span>, tmpx, xmax, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg -<span id="L237" class="LineNr"> 237 </span> y <span class="Special"><-</span> increment -<span id="L238" class="LineNr"> 238 </span> <span class="PreProc">var</span> tmpx/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy xmin -<span id="L239" class="LineNr"> 239 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" stream"</span>, tmpx, xmax, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg -<span id="L240" class="LineNr"> 240 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">": () -> stream "</span>, tmpx, xmax, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg -<span id="L241" class="LineNr"> 241 </span> y <span class="Special"><-</span> increment -<span id="L242" class="LineNr"> 242 </span> <span class="PreProc">var</span> tmpx/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy xmin -<span id="L243" class="LineNr"> 243 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" write"</span>, tmpx, xmax, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg -<span id="L244" class="LineNr"> 244 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">": stream grapheme -> stream"</span>, tmpx, xmax, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg -<span id="L245" class="LineNr"> 245 </span> y <span class="Special"><-</span> increment -<span id="L246" class="LineNr"> 246 </span> <span class="PreProc">var</span> tmpx/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy xmin -<span id="L247" class="LineNr"> 247 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">"fn def set if while = no(t) <a href='evaluate.mu.html#L922'>car</a> <a href='evaluate.mu.html#L950'>cdr</a> cons "</span>, tmpx, xmax, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg -<span id="L248" class="LineNr"> 248 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">"num: "</span>, tmpx, xmax, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg -<span id="L249" class="LineNr"> 249 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">"+ - * / sqrt abs sgn < > <= >= "</span>, tmpx, xmax, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg -<span id="L250" class="LineNr"> 250 </span><span class="Delimiter">}</span> -<span id="L251" class="LineNr"> 251 </span> -<span id="L252" class="LineNr"> 252 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L252'>primitive-global?</a></span> _x: (addr <a href='global.mu.html#L1'>global</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L253" class="LineNr"> 253 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: (addr <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> copy _x -<span id="L254" class="LineNr"> 254 </span> <span class="PreProc">var</span> value-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get x, value -<span id="L255" class="LineNr"> 255 </span> <span class="PreProc">var</span> value/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *value-ah -<span id="L256" class="LineNr"> 256 </span> compare value, <span class="Constant">0</span>/null -<span id="L257" class="LineNr"> 257 </span> <span class="Delimiter">{</span> -<span id="L258" class="LineNr"> 258 </span> <span class="PreProc">break-if-!=</span> -<span id="L259" class="LineNr"> 259 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L260" class="LineNr"> 260 </span> <span class="Delimiter">}</span> -<span id="L261" class="LineNr"> 261 </span> <span class="PreProc">var</span> value-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get value, <span class="PreProc">type</span> -<span id="L262" class="LineNr"> 262 </span> compare *value-type, <span class="Constant">4</span>/primitive -<span id="L263" class="LineNr"> 263 </span> <span class="Delimiter">{</span> -<span id="L264" class="LineNr"> 264 </span> <span class="PreProc">break-if-=</span> -<span id="L265" class="LineNr"> 265 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L266" class="LineNr"> 266 </span> <span class="Delimiter">}</span> -<span id="L267" class="LineNr"> 267 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true -<span id="L268" class="LineNr"> 268 </span><span class="Delimiter">}</span> -<span id="L269" class="LineNr"> 269 </span> -<span id="L270" class="LineNr"> 270 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L270'>append-primitive</a></span> _self: (addr <a href='global.mu.html#L7'>global-table</a>), name: (addr array byte) <span class="Delimiter">{</span> -<span id="L271" class="LineNr"> 271 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Special"><-</span> copy _self -<span id="L272" class="LineNr"> 272 </span> <span class="PreProc">var</span> final-index-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get self, final-index -<span id="L273" class="LineNr"> 273 </span> increment *final-index-addr -<span id="L274" class="LineNr"> 274 </span> <span class="PreProc">var</span> curr-index/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *final-index-addr -<span id="L275" class="LineNr"> 275 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> get self, data -<span id="L276" class="LineNr"> 276 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah -<span id="L277" class="LineNr"> 277 </span> <span class="PreProc">var</span> curr-offset/<span class="Constant">esi</span>: (offset <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> compute-offset data, curr-index -<span id="L278" class="LineNr"> 278 </span> <span class="PreProc">var</span> curr/<span class="Constant">esi</span>: (addr <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> index data, curr-offset -<span id="L279" class="LineNr"> 279 </span> <span class="PreProc">var</span> curr-name-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> get curr, name -<span id="L280" class="LineNr"> 280 </span> <a href='../312copy.subx.html#L3'>copy-array-object</a> name, curr-name-ah -<span id="L281" class="LineNr"> 281 </span> <span class="PreProc">var</span> curr-value-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get curr, value -<span id="L282" class="LineNr"> 282 </span> <a href='cell.mu.html#L140'>new-primitive-function</a> curr-value-ah, curr-index -<span id="L283" class="LineNr"> 283 </span><span class="Delimiter">}</span> -<span id="L284" class="LineNr"> 284 </span> -<span id="L285" class="LineNr"> 285 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L285'>assign-or-create-global</a></span> _self: (addr <a href='global.mu.html#L7'>global-table</a>), name: (addr array byte), value: (handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L286" class="LineNr"> 286 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Special"><-</span> copy _self -<span id="L287" class="LineNr"> 287 </span> <span class="PreProc">var</span> curr-index/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='global.mu.html#L388'>find-symbol-name-in-globals</a> self, name -<span id="L288" class="LineNr"> 288 </span> <span class="Delimiter">{</span> -<span id="L289" class="LineNr"> 289 </span> compare curr-index, <span class="Constant">-1</span>/not-found -<span id="L290" class="LineNr"> 290 </span> <span class="PreProc">break-if-!=</span> -<span id="L291" class="LineNr"> 291 </span> <span class="PreProc">var</span> final-index-addr/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, final-index -<span id="L292" class="LineNr"> 292 </span> increment *final-index-addr -<span id="L293" class="LineNr"> 293 </span> curr-index <span class="Special"><-</span> copy *final-index-addr -<span id="L294" class="LineNr"> 294 </span> <span class="Delimiter">}</span> -<span id="L295" class="LineNr"> 295 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> get self, data -<span id="L296" class="LineNr"> 296 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah -<span id="L297" class="LineNr"> 297 </span> <span class="PreProc">var</span> curr-offset/<span class="Constant">esi</span>: (offset <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> compute-offset data, curr-index -<span id="L298" class="LineNr"> 298 </span> <span class="PreProc">var</span> curr/<span class="Constant">esi</span>: (addr <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> index data, curr-offset -<span id="L299" class="LineNr"> 299 </span> <span class="PreProc">var</span> curr-name-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> get curr, name -<span id="L300" class="LineNr"> 300 </span> <a href='../312copy.subx.html#L3'>copy-array-object</a> name, curr-name-ah -<span id="L301" class="LineNr"> 301 </span> <span class="PreProc">var</span> curr-value-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get curr, value -<span id="L302" class="LineNr"> 302 </span> <a href='../120allocate.subx.html#L455'>copy-handle</a> value, curr-value-ah +<span id="L236" class="LineNr"> 236 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" lines columns"</span>, tmpx, xmax, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L237" class="LineNr"> 237 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">": <a href='../500fake-screen.mu.html#L14'>screen</a> -> number"</span>, tmpx, xmax, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L238" class="LineNr"> 238 </span> y <span class="Special"><-</span> increment +<span id="L239" class="LineNr"> 239 </span> <span class="PreProc">var</span> tmpx/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy xmin +<span id="L240" class="LineNr"> 240 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" up down left right"</span>, tmpx, xmax, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L241" class="LineNr"> 241 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">": screen"</span>, tmpx, xmax, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L242" class="LineNr"> 242 </span> y <span class="Special"><-</span> increment +<span id="L243" class="LineNr"> 243 </span> <span class="PreProc">var</span> tmpx/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy xmin +<span id="L244" class="LineNr"> 244 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" cr"</span>, tmpx, xmax, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L245" class="LineNr"> 245 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">": <a href='../500fake-screen.mu.html#L14'>screen</a> "</span>, tmpx, xmax, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L246" class="LineNr"> 246 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">"# move cursor down and to left margin"</span>, tmpx, xmax, y, <span class="Constant">0x38</span>/fg=trace, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L247" class="LineNr"> 247 </span> y <span class="Special"><-</span> increment +<span id="L248" class="LineNr"> 248 </span> <span class="PreProc">var</span> tmpx/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy xmin +<span id="L249" class="LineNr"> 249 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">"pixel graphics"</span>, tmpx, xmax, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L250" class="LineNr"> 250 </span> y <span class="Special"><-</span> increment +<span id="L251" class="LineNr"> 251 </span> <span class="PreProc">var</span> tmpx/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy xmin +<span id="L252" class="LineNr"> 252 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" width height"</span>, tmpx, xmax, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L253" class="LineNr"> 253 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">": <a href='../500fake-screen.mu.html#L14'>screen</a> -> number"</span>, tmpx, xmax, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L254" class="LineNr"> 254 </span> y <span class="Special"><-</span> increment +<span id="L255" class="LineNr"> 255 </span> <span class="PreProc">var</span> tmpx/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy xmin +<span id="L256" class="LineNr"> 256 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" pixel"</span>, tmpx, xmax, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L257" class="LineNr"> 257 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">": <a href='../500fake-screen.mu.html#L14'>screen</a> x y color"</span>, tmpx, xmax, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L258" class="LineNr"> 258 </span> y <span class="Special"><-</span> increment +<span id="L259" class="LineNr"> 259 </span> <span class="PreProc">var</span> tmpx/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy xmin +<span id="L260" class="LineNr"> 260 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">"screen/keyboard"</span>, tmpx, xmax, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L261" class="LineNr"> 261 </span> y <span class="Special"><-</span> increment +<span id="L262" class="LineNr"> 262 </span> <span class="PreProc">var</span> tmpx/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy xmin +<span id="L263" class="LineNr"> 263 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" clear"</span>, tmpx, xmax, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L264" class="LineNr"> 264 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">": screen"</span>, tmpx, xmax, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L265" class="LineNr"> 265 </span> y <span class="Special"><-</span> increment +<span id="L266" class="LineNr"> 266 </span> <span class="PreProc">var</span> tmpx/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy xmin +<span id="L267" class="LineNr"> 267 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" key"</span>, tmpx, xmax, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L268" class="LineNr"> 268 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">": () -> grapheme?"</span>, tmpx, xmax, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L269" class="LineNr"> 269 </span> y <span class="Special"><-</span> increment +<span id="L270" class="LineNr"> 270 </span> <span class="PreProc">var</span> tmpx/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy xmin +<span id="L271" class="LineNr"> 271 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">"streams"</span>, tmpx, xmax, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L272" class="LineNr"> 272 </span> y <span class="Special"><-</span> increment +<span id="L273" class="LineNr"> 273 </span> <span class="PreProc">var</span> tmpx/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy xmin +<span id="L274" class="LineNr"> 274 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" stream"</span>, tmpx, xmax, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L275" class="LineNr"> 275 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">": () -> stream "</span>, tmpx, xmax, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L276" class="LineNr"> 276 </span> y <span class="Special"><-</span> increment +<span id="L277" class="LineNr"> 277 </span> <span class="PreProc">var</span> tmpx/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy xmin +<span id="L278" class="LineNr"> 278 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" write"</span>, tmpx, xmax, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L279" class="LineNr"> 279 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">": stream grapheme -> stream"</span>, tmpx, xmax, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L280" class="LineNr"> 280 </span> y <span class="Special"><-</span> increment +<span id="L281" class="LineNr"> 281 </span> <span class="PreProc">var</span> tmpx/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy xmin +<span id="L282" class="LineNr"> 282 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">"fn def set if while = no(t) <a href='evaluate.mu.html#L981'>car</a> <a href='evaluate.mu.html#L1009'>cdr</a> cons "</span>, tmpx, xmax, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L283" class="LineNr"> 283 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">"num: "</span>, tmpx, xmax, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L284" class="LineNr"> 284 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">"+ - * / sqrt <a href='../506math.mu.html#L1'>abs</a> <a href='../506math.mu.html#L10'>sgn</a> < > <= >= "</span>, tmpx, xmax, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L285" class="LineNr"> 285 </span><span class="Delimiter">}</span> +<span id="L286" class="LineNr"> 286 </span> +<span id="L287" class="LineNr"> 287 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L287'>primitive-global?</a></span> _x: (addr <a href='global.mu.html#L1'>global</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L288" class="LineNr"> 288 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: (addr <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> copy _x +<span id="L289" class="LineNr"> 289 </span> <span class="PreProc">var</span> value-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get x, value +<span id="L290" class="LineNr"> 290 </span> <span class="PreProc">var</span> value/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *value-ah +<span id="L291" class="LineNr"> 291 </span> compare value, <span class="Constant">0</span>/null +<span id="L292" class="LineNr"> 292 </span> <span class="Delimiter">{</span> +<span id="L293" class="LineNr"> 293 </span> <span class="PreProc">break-if-!=</span> +<span id="L294" class="LineNr"> 294 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L295" class="LineNr"> 295 </span> <span class="Delimiter">}</span> +<span id="L296" class="LineNr"> 296 </span> <span class="PreProc">var</span> value-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get value, <span class="PreProc">type</span> +<span id="L297" class="LineNr"> 297 </span> compare *value-type, <span class="Constant">4</span>/primitive +<span id="L298" class="LineNr"> 298 </span> <span class="Delimiter">{</span> +<span id="L299" class="LineNr"> 299 </span> <span class="PreProc">break-if-=</span> +<span id="L300" class="LineNr"> 300 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L301" class="LineNr"> 301 </span> <span class="Delimiter">}</span> +<span id="L302" class="LineNr"> 302 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true <span id="L303" class="LineNr"> 303 </span><span class="Delimiter">}</span> <span id="L304" class="LineNr"> 304 </span> -<span id="L305" class="LineNr"> 305 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L305'>lookup-symbol-in-globals</a></span> _sym: (addr <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), _globals: (addr <a href='global.mu.html#L7'>global-table</a>), trace: (addr trace), <a href='../500fake-screen.mu.html#L25'>screen-cell</a>: (addr handle <a href='cell.mu.html#L1'>cell</a>), keyboard-cell: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Delimiter">{</span> -<span id="L306" class="LineNr"> 306 </span> <span class="PreProc">var</span> sym/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _sym -<span id="L307" class="LineNr"> 307 </span> <span class="PreProc">var</span> sym-name-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get sym, text-data -<span id="L308" class="LineNr"> 308 </span> <span class="PreProc">var</span> _sym-name/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *sym-name-ah -<span id="L309" class="LineNr"> 309 </span> <span class="PreProc">var</span> sym-name/<span class="Constant">edx</span>: (addr stream byte) <span class="Special"><-</span> copy _sym-name -<span id="L310" class="LineNr"> 310 </span> <span class="PreProc">var</span> globals/<span class="Constant">esi</span>: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Special"><-</span> copy _globals -<span id="L311" class="LineNr"> 311 </span> <span class="Delimiter">{</span> -<span id="L312" class="LineNr"> 312 </span> compare globals, <span class="Constant">0</span> -<span id="L313" class="LineNr"> 313 </span> <span class="PreProc">break-if-=</span> -<span id="L314" class="LineNr"> 314 </span> <span class="PreProc">var</span> curr-index/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='global.mu.html#L356'>find-symbol-in-globals</a> globals, sym-name -<span id="L315" class="LineNr"> 315 </span> compare curr-index, <span class="Constant">-1</span>/not-found -<span id="L316" class="LineNr"> 316 </span> <span class="PreProc">break-if-=</span> -<span id="L317" class="LineNr"> 317 </span> <span class="PreProc">var</span> global-data-ah/<span class="Constant">eax</span>: (addr handle array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> get globals, data -<span id="L318" class="LineNr"> 318 </span> <span class="PreProc">var</span> global-data/<span class="Constant">eax</span>: (addr array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *global-data-ah -<span id="L319" class="LineNr"> 319 </span> <span class="PreProc">var</span> curr-offset/<span class="Constant">ebx</span>: (offset <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> compute-offset global-data, curr-index -<span id="L320" class="LineNr"> 320 </span> <span class="PreProc">var</span> curr/<span class="Constant">ebx</span>: (addr <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> index global-data, curr-offset -<span id="L321" class="LineNr"> 321 </span> <span class="PreProc">var</span> curr-value/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get curr, value -<span id="L322" class="LineNr"> 322 </span> copy-object curr-value, out -<span id="L323" class="LineNr"> 323 </span> <span class="PreProc">return</span> -<span id="L324" class="LineNr"> 324 </span> <span class="Delimiter">}</span> -<span id="L325" class="LineNr"> 325 </span> <span class="muComment"># if sym is "screen" and screen-cell exists, return it</span> -<span id="L326" class="LineNr"> 326 </span> <span class="Delimiter">{</span> -<span id="L327" class="LineNr"> 327 </span> <span class="PreProc">var</span> sym-is-screen?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> sym-name, <span class="Constant">"screen"</span> -<span id="L328" class="LineNr"> 328 </span> compare sym-is-screen?, <span class="Constant">0</span>/false -<span id="L329" class="LineNr"> 329 </span> <span class="PreProc">break-if-=</span> -<span id="L330" class="LineNr"> 330 </span> compare <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, <span class="Constant">0</span> -<span id="L331" class="LineNr"> 331 </span> <span class="PreProc">break-if-=</span> -<span id="L332" class="LineNr"> 332 </span> copy-object <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, out -<span id="L333" class="LineNr"> 333 </span> <span class="PreProc">return</span> -<span id="L334" class="LineNr"> 334 </span> <span class="Delimiter">}</span> -<span id="L335" class="LineNr"> 335 </span> <span class="muComment"># if sym is "keyboard" and keyboard-cell exists, return it</span> -<span id="L336" class="LineNr"> 336 </span> <span class="Delimiter">{</span> -<span id="L337" class="LineNr"> 337 </span> <span class="PreProc">var</span> sym-is-keyboard?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> sym-name, <span class="Constant">"keyboard"</span> -<span id="L338" class="LineNr"> 338 </span> compare sym-is-keyboard?, <span class="Constant">0</span>/false -<span id="L339" class="LineNr"> 339 </span> <span class="PreProc">break-if-=</span> -<span id="L340" class="LineNr"> 340 </span> compare keyboard-cell, <span class="Constant">0</span> -<span id="L341" class="LineNr"> 341 </span> <span class="PreProc">break-if-=</span> -<span id="L342" class="LineNr"> 342 </span> copy-object keyboard-cell, out -<span id="L343" class="LineNr"> 343 </span> <span class="PreProc">return</span> -<span id="L344" class="LineNr"> 344 </span> <span class="Delimiter">}</span> -<span id="L345" class="LineNr"> 345 </span> <span class="muComment"># otherwise error "unbound symbol: ", sym</span> -<span id="L346" class="LineNr"> 346 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x40</span>) -<span id="L347" class="LineNr"> 347 </span> <span class="PreProc">var</span> stream/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage -<span id="L348" class="LineNr"> 348 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"unbound symbol: "</span> -<span id="L349" class="LineNr"> 349 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> sym-name -<span id="L350" class="LineNr"> 350 </span> <a href='../113write-stream.subx.html#L8'>write-stream</a> stream, sym-name -<span id="L351" class="LineNr"> 351 </span> trace trace, <span class="Constant">"error"</span>, stream -<span id="L352" class="LineNr"> 352 </span><span class="Delimiter">}</span> -<span id="L353" class="LineNr"> 353 </span> -<span id="L354" class="LineNr"> 354 </span><span class="muComment"># return the index in globals containing 'sym'</span> -<span id="L355" class="LineNr"> 355 </span><span class="muComment"># or -1 if not found</span> -<span id="L356" class="LineNr"> 356 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L356'>find-symbol-in-globals</a></span> _globals: (addr <a href='global.mu.html#L7'>global-table</a>), sym-name: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> +<span id="L305" class="LineNr"> 305 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L305'>append-primitive</a></span> _self: (addr <a href='global.mu.html#L7'>global-table</a>), name: (addr array byte) <span class="Delimiter">{</span> +<span id="L306" class="LineNr"> 306 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Special"><-</span> copy _self +<span id="L307" class="LineNr"> 307 </span> compare self, <span class="Constant">0</span> +<span id="L308" class="LineNr"> 308 </span> <span class="Delimiter">{</span> +<span id="L309" class="LineNr"> 309 </span> <span class="PreProc">break-if-!=</span> +<span id="L310" class="LineNr"> 310 </span> <a href='../317abort.subx.html#L5'>abort</a> <span class="Constant">"append primitive"</span> +<span id="L311" class="LineNr"> 311 </span> <span class="PreProc">return</span> +<span id="L312" class="LineNr"> 312 </span> <span class="Delimiter">}</span> +<span id="L313" class="LineNr"> 313 </span> <span class="PreProc">var</span> final-index-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get self, final-index +<span id="L314" class="LineNr"> 314 </span> increment *final-index-addr +<span id="L315" class="LineNr"> 315 </span> <span class="PreProc">var</span> curr-index/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *final-index-addr +<span id="L316" class="LineNr"> 316 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> get self, data +<span id="L317" class="LineNr"> 317 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *data-ah +<span id="L318" class="LineNr"> 318 </span> <span class="PreProc">var</span> curr-offset/<span class="Constant">esi</span>: (offset <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> compute-offset data, curr-index +<span id="L319" class="LineNr"> 319 </span> <span class="PreProc">var</span> curr/<span class="Constant">esi</span>: (addr <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> index data, curr-offset +<span id="L320" class="LineNr"> 320 </span> <span class="PreProc">var</span> curr-name-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> get curr, name +<span id="L321" class="LineNr"> 321 </span> <a href='../312copy.subx.html#L3'>copy-array-object</a> name, curr-name-ah +<span id="L322" class="LineNr"> 322 </span> <span class="PreProc">var</span> curr-value-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get curr, value +<span id="L323" class="LineNr"> 323 </span> <a href='cell.mu.html#L141'>new-primitive-function</a> curr-value-ah, curr-index +<span id="L324" class="LineNr"> 324 </span><span class="Delimiter">}</span> +<span id="L325" class="LineNr"> 325 </span> +<span id="L326" class="LineNr"> 326 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L326'>assign-or-create-global</a></span> _self: (addr <a href='global.mu.html#L7'>global-table</a>), name: (addr array byte), value: (handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L327" class="LineNr"> 327 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Special"><-</span> copy _self +<span id="L328" class="LineNr"> 328 </span> compare self, <span class="Constant">0</span> +<span id="L329" class="LineNr"> 329 </span> <span class="Delimiter">{</span> +<span id="L330" class="LineNr"> 330 </span> <span class="PreProc">break-if-!=</span> +<span id="L331" class="LineNr"> 331 </span> <a href='../317abort.subx.html#L5'>abort</a> <span class="Constant">"assign global"</span> +<span id="L332" class="LineNr"> 332 </span> <span class="PreProc">return</span> +<span id="L333" class="LineNr"> 333 </span> <span class="Delimiter">}</span> +<span id="L334" class="LineNr"> 334 </span> <span class="PreProc">var</span> curr-index/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='global.mu.html#L457'>find-symbol-name-in-globals</a> self, name +<span id="L335" class="LineNr"> 335 </span> <span class="Delimiter">{</span> +<span id="L336" class="LineNr"> 336 </span> compare curr-index, <span class="Constant">-1</span>/not-found +<span id="L337" class="LineNr"> 337 </span> <span class="PreProc">break-if-!=</span> +<span id="L338" class="LineNr"> 338 </span> <span class="PreProc">var</span> final-index-addr/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, final-index +<span id="L339" class="LineNr"> 339 </span> increment *final-index-addr +<span id="L340" class="LineNr"> 340 </span> curr-index <span class="Special"><-</span> copy *final-index-addr +<span id="L341" class="LineNr"> 341 </span> <span class="Delimiter">}</span> +<span id="L342" class="LineNr"> 342 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> get self, data +<span id="L343" class="LineNr"> 343 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *data-ah +<span id="L344" class="LineNr"> 344 </span> <span class="PreProc">var</span> curr-offset/<span class="Constant">esi</span>: (offset <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> compute-offset data, curr-index +<span id="L345" class="LineNr"> 345 </span> <span class="PreProc">var</span> curr/<span class="Constant">esi</span>: (addr <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> index data, curr-offset +<span id="L346" class="LineNr"> 346 </span> <span class="PreProc">var</span> curr-name-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> get curr, name +<span id="L347" class="LineNr"> 347 </span> <a href='../312copy.subx.html#L3'>copy-array-object</a> name, curr-name-ah +<span id="L348" class="LineNr"> 348 </span> <span class="PreProc">var</span> curr-value-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get curr, value +<span id="L349" class="LineNr"> 349 </span> <a href='../120allocate.subx.html#L479'>copy-handle</a> value, curr-value-ah +<span id="L350" class="LineNr"> 350 </span><span class="Delimiter">}</span> +<span id="L351" class="LineNr"> 351 </span> +<span id="L352" class="LineNr"> 352 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L352'>lookup-symbol-in-globals</a></span> _sym: (addr <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), _globals: (addr <a href='global.mu.html#L7'>global-table</a>), trace: (addr trace), <a href='../500fake-screen.mu.html#L25'>screen-cell</a>: (addr handle <a href='cell.mu.html#L1'>cell</a>), keyboard-cell: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Delimiter">{</span> +<span id="L353" class="LineNr"> 353 </span> <span class="PreProc">var</span> sym/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _sym +<span id="L354" class="LineNr"> 354 </span> <span class="PreProc">var</span> sym-name-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get sym, text-data +<span id="L355" class="LineNr"> 355 </span> <span class="PreProc">var</span> _sym-name/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *sym-name-ah +<span id="L356" class="LineNr"> 356 </span> <span class="PreProc">var</span> sym-name/<span class="Constant">edx</span>: (addr stream byte) <span class="Special"><-</span> copy _sym-name <span id="L357" class="LineNr"> 357 </span> <span class="PreProc">var</span> globals/<span class="Constant">esi</span>: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Special"><-</span> copy _globals -<span id="L358" class="LineNr"> 358 </span> compare globals, <span class="Constant">0</span> -<span id="L359" class="LineNr"> 359 </span> <span class="Delimiter">{</span> -<span id="L360" class="LineNr"> 360 </span> <span class="PreProc">break-if-!=</span> -<span id="L361" class="LineNr"> 361 </span> <span class="PreProc">return</span> <span class="Constant">-1</span>/not-found -<span id="L362" class="LineNr"> 362 </span> <span class="Delimiter">}</span> -<span id="L363" class="LineNr"> 363 </span> <span class="PreProc">var</span> global-data-ah/<span class="Constant">eax</span>: (addr handle array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> get globals, data -<span id="L364" class="LineNr"> 364 </span> <span class="PreProc">var</span> global-data/<span class="Constant">eax</span>: (addr array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *global-data-ah -<span id="L365" class="LineNr"> 365 </span> <span class="PreProc">var</span> final-index/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get globals, final-index -<span id="L366" class="LineNr"> 366 </span> <span class="PreProc">var</span> curr-index/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *final-index -<span id="L367" class="LineNr"> 367 </span> <span class="Delimiter">{</span> -<span id="L368" class="LineNr"> 368 </span> compare curr-index, <span class="Constant">0</span> -<span id="L369" class="LineNr"> 369 </span> <span class="PreProc">break-if-<</span> -<span id="L370" class="LineNr"> 370 </span> <span class="PreProc">var</span> curr-offset/<span class="Constant">ebx</span>: (offset <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> compute-offset global-data, curr-index -<span id="L371" class="LineNr"> 371 </span> <span class="PreProc">var</span> curr/<span class="Constant">ebx</span>: (addr <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> index global-data, curr-offset -<span id="L372" class="LineNr"> 372 </span> <span class="PreProc">var</span> curr-name-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> get curr, name -<span id="L373" class="LineNr"> 373 </span> <span class="PreProc">var</span> curr-name/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *curr-name-ah -<span id="L374" class="LineNr"> 374 </span> <span class="PreProc">var</span> found?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> sym-name, curr-name -<span id="L375" class="LineNr"> 375 </span> compare found?, <span class="Constant">0</span>/false -<span id="L376" class="LineNr"> 376 </span> <span class="Delimiter">{</span> -<span id="L377" class="LineNr"> 377 </span> <span class="PreProc">break-if-=</span> -<span id="L378" class="LineNr"> 378 </span> <span class="PreProc">return</span> curr-index -<span id="L379" class="LineNr"> 379 </span> <span class="Delimiter">}</span> -<span id="L380" class="LineNr"> 380 </span> curr-index <span class="Special"><-</span> decrement -<span id="L381" class="LineNr"> 381 </span> <span class="PreProc">loop</span> -<span id="L382" class="LineNr"> 382 </span> <span class="Delimiter">}</span> -<span id="L383" class="LineNr"> 383 </span> <span class="PreProc">return</span> <span class="Constant">-1</span>/not-found -<span id="L384" class="LineNr"> 384 </span><span class="Delimiter">}</span> -<span id="L385" class="LineNr"> 385 </span> -<span id="L386" class="LineNr"> 386 </span><span class="muComment"># return the index in globals containing 'sym'</span> -<span id="L387" class="LineNr"> 387 </span><span class="muComment"># or -1 if not found</span> -<span id="L388" class="LineNr"> 388 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L388'>find-symbol-name-in-globals</a></span> _globals: (addr <a href='global.mu.html#L7'>global-table</a>), sym-name: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> -<span id="L389" class="LineNr"> 389 </span> <span class="PreProc">var</span> globals/<span class="Constant">esi</span>: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Special"><-</span> copy _globals -<span id="L390" class="LineNr"> 390 </span> compare globals, <span class="Constant">0</span> -<span id="L391" class="LineNr"> 391 </span> <span class="Delimiter">{</span> -<span id="L392" class="LineNr"> 392 </span> <span class="PreProc">break-if-!=</span> -<span id="L393" class="LineNr"> 393 </span> <span class="PreProc">return</span> <span class="Constant">-1</span>/not-found -<span id="L394" class="LineNr"> 394 </span> <span class="Delimiter">}</span> -<span id="L395" class="LineNr"> 395 </span> <span class="PreProc">var</span> global-data-ah/<span class="Constant">eax</span>: (addr handle array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> get globals, data -<span id="L396" class="LineNr"> 396 </span> <span class="PreProc">var</span> global-data/<span class="Constant">eax</span>: (addr array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *global-data-ah -<span id="L397" class="LineNr"> 397 </span> <span class="PreProc">var</span> final-index/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get globals, final-index -<span id="L398" class="LineNr"> 398 </span> <span class="PreProc">var</span> curr-index/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *final-index -<span id="L399" class="LineNr"> 399 </span> <span class="Delimiter">{</span> -<span id="L400" class="LineNr"> 400 </span> compare curr-index, <span class="Constant">0</span> -<span id="L401" class="LineNr"> 401 </span> <span class="PreProc">break-if-<</span> -<span id="L402" class="LineNr"> 402 </span> <span class="PreProc">var</span> curr-offset/<span class="Constant">ebx</span>: (offset <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> compute-offset global-data, curr-index -<span id="L403" class="LineNr"> 403 </span> <span class="PreProc">var</span> curr/<span class="Constant">ebx</span>: (addr <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> index global-data, curr-offset -<span id="L404" class="LineNr"> 404 </span> <span class="PreProc">var</span> curr-name-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> get curr, name -<span id="L405" class="LineNr"> 405 </span> <span class="PreProc">var</span> curr-name/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *curr-name-ah -<span id="L406" class="LineNr"> 406 </span> <span class="PreProc">var</span> found?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> sym-name, curr-name -<span id="L407" class="LineNr"> 407 </span> compare found?, <span class="Constant">0</span>/false -<span id="L408" class="LineNr"> 408 </span> <span class="Delimiter">{</span> -<span id="L409" class="LineNr"> 409 </span> <span class="PreProc">break-if-=</span> -<span id="L410" class="LineNr"> 410 </span> <span class="PreProc">return</span> curr-index -<span id="L411" class="LineNr"> 411 </span> <span class="Delimiter">}</span> -<span id="L412" class="LineNr"> 412 </span> curr-index <span class="Special"><-</span> decrement -<span id="L413" class="LineNr"> 413 </span> <span class="PreProc">loop</span> -<span id="L414" class="LineNr"> 414 </span> <span class="Delimiter">}</span> -<span id="L415" class="LineNr"> 415 </span> <span class="PreProc">return</span> <span class="Constant">-1</span>/not-found -<span id="L416" class="LineNr"> 416 </span><span class="Delimiter">}</span> -<span id="L417" class="LineNr"> 417 </span> -<span id="L418" class="LineNr"> 418 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L418'>mutate-binding-in-globals</a></span> name: (addr stream byte), val: (addr handle <a href='cell.mu.html#L1'>cell</a>), _globals: (addr <a href='global.mu.html#L7'>global-table</a>), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L419" class="LineNr"> 419 </span> <span class="PreProc">var</span> globals/<span class="Constant">esi</span>: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Special"><-</span> copy _globals -<span id="L420" class="LineNr"> 420 </span> <span class="Delimiter">{</span> -<span id="L421" class="LineNr"> 421 </span> compare globals, <span class="Constant">0</span> -<span id="L422" class="LineNr"> 422 </span> <span class="PreProc">break-if-=</span> -<span id="L423" class="LineNr"> 423 </span> <span class="PreProc">var</span> curr-index/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='global.mu.html#L356'>find-symbol-in-globals</a> globals, name -<span id="L424" class="LineNr"> 424 </span> compare curr-index, <span class="Constant">-1</span>/not-found -<span id="L425" class="LineNr"> 425 </span> <span class="PreProc">break-if-=</span> -<span id="L426" class="LineNr"> 426 </span> <span class="PreProc">var</span> global-data-ah/<span class="Constant">eax</span>: (addr handle array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> get globals, data -<span id="L427" class="LineNr"> 427 </span> <span class="PreProc">var</span> global-data/<span class="Constant">eax</span>: (addr array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *global-data-ah -<span id="L428" class="LineNr"> 428 </span> <span class="PreProc">var</span> curr-offset/<span class="Constant">ebx</span>: (offset <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> compute-offset global-data, curr-index -<span id="L429" class="LineNr"> 429 </span> <span class="PreProc">var</span> curr/<span class="Constant">ebx</span>: (addr <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> index global-data, curr-offset -<span id="L430" class="LineNr"> 430 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get curr, value -<span id="L431" class="LineNr"> 431 </span> copy-object val, dest -<span id="L432" class="LineNr"> 432 </span> <span class="PreProc">return</span> -<span id="L433" class="LineNr"> 433 </span> <span class="Delimiter">}</span> -<span id="L434" class="LineNr"> 434 </span> <span class="muComment"># otherwise error "unbound symbol: ", sym</span> -<span id="L435" class="LineNr"> 435 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x40</span>) -<span id="L436" class="LineNr"> 436 </span> <span class="PreProc">var</span> stream/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage -<span id="L437" class="LineNr"> 437 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"unbound symbol: "</span> -<span id="L438" class="LineNr"> 438 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> name -<span id="L439" class="LineNr"> 439 </span> <a href='../113write-stream.subx.html#L8'>write-stream</a> stream, name -<span id="L440" class="LineNr"> 440 </span> trace trace, <span class="Constant">"error"</span>, stream -<span id="L441" class="LineNr"> 441 </span><span class="Delimiter">}</span> -<span id="L442" class="LineNr"> 442 </span> -<span id="L443" class="LineNr"> 443 </span><span class="muComment"># a little strange; goes from value to name and selects primitive based on name</span> -<span id="L444" class="LineNr"> 444 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L444'>apply-primitive</a></span> _f: (addr <a href='cell.mu.html#L1'>cell</a>), args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), _globals: (addr <a href='global.mu.html#L7'>global-table</a>), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L445" class="LineNr"> 445 </span> <span class="PreProc">var</span> f/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _f -<span id="L446" class="LineNr"> 446 </span> <span class="PreProc">var</span> f-index-a/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get f, index-data -<span id="L447" class="LineNr"> 447 </span> <span class="PreProc">var</span> f-index/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *f-index-a -<span id="L448" class="LineNr"> 448 </span> <span class="PreProc">var</span> globals/<span class="Constant">eax</span>: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Special"><-</span> copy _globals -<span id="L449" class="LineNr"> 449 </span> <span class="PreProc">var</span> global-data-ah/<span class="Constant">eax</span>: (addr handle array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> get globals, data -<span id="L450" class="LineNr"> 450 </span> <span class="PreProc">var</span> global-data/<span class="Constant">eax</span>: (addr array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *global-data-ah -<span id="L451" class="LineNr"> 451 </span> <span class="PreProc">var</span> f-offset/<span class="Constant">ecx</span>: (offset <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> compute-offset global-data, f-index -<span id="L452" class="LineNr"> 452 </span> <span class="PreProc">var</span> f-value/<span class="Constant">ecx</span>: (addr <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> index global-data, f-offset -<span id="L453" class="LineNr"> 453 </span> <span class="PreProc">var</span> f-name-ah/<span class="Constant">ecx</span>: (addr handle array byte) <span class="Special"><-</span> get f-value, name -<span id="L454" class="LineNr"> 454 </span> <span class="PreProc">var</span> f-name/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *f-name-ah -<span id="L455" class="LineNr"> 455 </span> <span class="Delimiter">{</span> -<span id="L456" class="LineNr"> 456 </span> <span class="PreProc">var</span> add?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"+"</span> -<span id="L457" class="LineNr"> 457 </span> compare add?, <span class="Constant">0</span>/false -<span id="L458" class="LineNr"> 458 </span> <span class="PreProc">break-if-=</span> -<span id="L459" class="LineNr"> 459 </span> <a href='global.mu.html#L689'>apply-add</a> args-ah, out, trace -<span id="L460" class="LineNr"> 460 </span> <span class="PreProc">return</span> -<span id="L461" class="LineNr"> 461 </span> <span class="Delimiter">}</span> -<span id="L462" class="LineNr"> 462 </span> <span class="Delimiter">{</span> -<span id="L463" class="LineNr"> 463 </span> <span class="PreProc">var</span> subtract?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"-"</span> -<span id="L464" class="LineNr"> 464 </span> compare subtract?, <span class="Constant">0</span>/false -<span id="L465" class="LineNr"> 465 </span> <span class="PreProc">break-if-=</span> -<span id="L466" class="LineNr"> 466 </span> <a href='global.mu.html#L735'>apply-subtract</a> args-ah, out, trace -<span id="L467" class="LineNr"> 467 </span> <span class="PreProc">return</span> -<span id="L468" class="LineNr"> 468 </span> <span class="Delimiter">}</span> -<span id="L469" class="LineNr"> 469 </span> <span class="Delimiter">{</span> -<span id="L470" class="LineNr"> 470 </span> <span class="PreProc">var</span> multiply?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"*"</span> -<span id="L471" class="LineNr"> 471 </span> compare multiply?, <span class="Constant">0</span>/false -<span id="L472" class="LineNr"> 472 </span> <span class="PreProc">break-if-=</span> -<span id="L473" class="LineNr"> 473 </span> <a href='global.mu.html#L779'>apply-multiply</a> args-ah, out, trace -<span id="L474" class="LineNr"> 474 </span> <span class="PreProc">return</span> -<span id="L475" class="LineNr"> 475 </span> <span class="Delimiter">}</span> -<span id="L476" class="LineNr"> 476 </span> <span class="Delimiter">{</span> -<span id="L477" class="LineNr"> 477 </span> <span class="PreProc">var</span> divide?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"/"</span> -<span id="L478" class="LineNr"> 478 </span> compare divide?, <span class="Constant">0</span>/false -<span id="L479" class="LineNr"> 479 </span> <span class="PreProc">break-if-=</span> -<span id="L480" class="LineNr"> 480 </span> <a href='global.mu.html#L823'>apply-divide</a> args-ah, out, trace -<span id="L481" class="LineNr"> 481 </span> <span class="PreProc">return</span> -<span id="L482" class="LineNr"> 482 </span> <span class="Delimiter">}</span> -<span id="L483" class="LineNr"> 483 </span> <span class="Delimiter">{</span> -<span id="L484" class="LineNr"> 484 </span> <span class="PreProc">var</span> square-root?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"sqrt"</span> -<span id="L485" class="LineNr"> 485 </span> compare square-root?, <span class="Constant">0</span>/false -<span id="L486" class="LineNr"> 486 </span> <span class="PreProc">break-if-=</span> -<span id="L487" class="LineNr"> 487 </span> <a href='global.mu.html#L867'>apply-square-root</a> args-ah, out, trace -<span id="L488" class="LineNr"> 488 </span> <span class="PreProc">return</span> -<span id="L489" class="LineNr"> 489 </span> <span class="Delimiter">}</span> -<span id="L490" class="LineNr"> 490 </span> <span class="Delimiter">{</span> -<span id="L491" class="LineNr"> 491 </span> <span class="PreProc">var</span> abs?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"abs"</span> -<span id="L492" class="LineNr"> 492 </span> compare abs?, <span class="Constant">0</span>/false -<span id="L493" class="LineNr"> 493 </span> <span class="PreProc">break-if-=</span> -<span id="L494" class="LineNr"> 494 </span> <a href='global.mu.html#L896'>apply-abs</a> args-ah, out, trace -<span id="L495" class="LineNr"> 495 </span> <span class="PreProc">return</span> -<span id="L496" class="LineNr"> 496 </span> <span class="Delimiter">}</span> -<span id="L497" class="LineNr"> 497 </span> <span class="Delimiter">{</span> -<span id="L498" class="LineNr"> 498 </span> <span class="PreProc">var</span> sgn?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"sgn"</span> -<span id="L499" class="LineNr"> 499 </span> compare sgn?, <span class="Constant">0</span>/false -<span id="L500" class="LineNr"> 500 </span> <span class="PreProc">break-if-=</span> -<span id="L501" class="LineNr"> 501 </span> <a href='global.mu.html#L933'>apply-sgn</a> args-ah, out, trace -<span id="L502" class="LineNr"> 502 </span> <span class="PreProc">return</span> -<span id="L503" class="LineNr"> 503 </span> <span class="Delimiter">}</span> -<span id="L504" class="LineNr"> 504 </span> <span class="Delimiter">{</span> -<span id="L505" class="LineNr"> 505 </span> <span class="PreProc">var</span> car?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"car"</span> -<span id="L506" class="LineNr"> 506 </span> compare car?, <span class="Constant">0</span>/false -<span id="L507" class="LineNr"> 507 </span> <span class="PreProc">break-if-=</span> -<span id="L508" class="LineNr"> 508 </span> <a href='global.mu.html#L979'>apply-car</a> args-ah, out, trace -<span id="L509" class="LineNr"> 509 </span> <span class="PreProc">return</span> -<span id="L510" class="LineNr"> 510 </span> <span class="Delimiter">}</span> -<span id="L511" class="LineNr"> 511 </span> <span class="Delimiter">{</span> -<span id="L512" class="LineNr"> 512 </span> <span class="PreProc">var</span> cdr?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"cdr"</span> -<span id="L513" class="LineNr"> 513 </span> compare cdr?, <span class="Constant">0</span>/false -<span id="L514" class="LineNr"> 514 </span> <span class="PreProc">break-if-=</span> -<span id="L515" class="LineNr"> 515 </span> <a href='global.mu.html#L1007'>apply-cdr</a> args-ah, out, trace -<span id="L516" class="LineNr"> 516 </span> <span class="PreProc">return</span> -<span id="L517" class="LineNr"> 517 </span> <span class="Delimiter">}</span> -<span id="L518" class="LineNr"> 518 </span> <span class="Delimiter">{</span> -<span id="L519" class="LineNr"> 519 </span> <span class="PreProc">var</span> cons?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"cons"</span> -<span id="L520" class="LineNr"> 520 </span> compare cons?, <span class="Constant">0</span>/false -<span id="L521" class="LineNr"> 521 </span> <span class="PreProc">break-if-=</span> -<span id="L522" class="LineNr"> 522 </span> <a href='global.mu.html#L1035'>apply-cons</a> args-ah, out, trace -<span id="L523" class="LineNr"> 523 </span> <span class="PreProc">return</span> -<span id="L524" class="LineNr"> 524 </span> <span class="Delimiter">}</span> -<span id="L525" class="LineNr"> 525 </span> <span class="Delimiter">{</span> -<span id="L526" class="LineNr"> 526 </span> <span class="PreProc">var</span> structurally-equal?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"="</span> -<span id="L527" class="LineNr"> 527 </span> compare structurally-equal?, <span class="Constant">0</span>/false -<span id="L528" class="LineNr"> 528 </span> <span class="PreProc">break-if-=</span> -<span id="L529" class="LineNr"> 529 </span> <a href='global.mu.html#L1059'>apply-structurally-equal</a> args-ah, out, trace -<span id="L530" class="LineNr"> 530 </span> <span class="PreProc">return</span> -<span id="L531" class="LineNr"> 531 </span> <span class="Delimiter">}</span> -<span id="L532" class="LineNr"> 532 </span> <span class="Delimiter">{</span> -<span id="L533" class="LineNr"> 533 </span> <span class="PreProc">var</span> not?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"no"</span> -<span id="L534" class="LineNr"> 534 </span> compare not?, <span class="Constant">0</span>/false -<span id="L535" class="LineNr"> 535 </span> <span class="PreProc">break-if-=</span> -<span id="L536" class="LineNr"> 536 </span> <a href='global.mu.html#L1093'>apply-not</a> args-ah, out, trace -<span id="L537" class="LineNr"> 537 </span> <span class="PreProc">return</span> -<span id="L538" class="LineNr"> 538 </span> <span class="Delimiter">}</span> -<span id="L539" class="LineNr"> 539 </span> <span class="Delimiter">{</span> -<span id="L540" class="LineNr"> 540 </span> <span class="PreProc">var</span> not?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"not"</span> -<span id="L541" class="LineNr"> 541 </span> compare not?, <span class="Constant">0</span>/false -<span id="L542" class="LineNr"> 542 </span> <span class="PreProc">break-if-=</span> -<span id="L543" class="LineNr"> 543 </span> <a href='global.mu.html#L1093'>apply-not</a> args-ah, out, trace -<span id="L544" class="LineNr"> 544 </span> <span class="PreProc">return</span> -<span id="L545" class="LineNr"> 545 </span> <span class="Delimiter">}</span> -<span id="L546" class="LineNr"> 546 </span> <span class="Delimiter">{</span> -<span id="L547" class="LineNr"> 547 </span> <span class="PreProc">var</span> lesser?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"<"</span> -<span id="L548" class="LineNr"> 548 </span> compare lesser?, <span class="Constant">0</span>/false -<span id="L549" class="LineNr"> 549 </span> <span class="PreProc">break-if-=</span> -<span id="L550" class="LineNr"> 550 </span> <a href='global.mu.html#L1120'>apply-<</a> args-ah, out, trace -<span id="L551" class="LineNr"> 551 </span> <span class="PreProc">return</span> -<span id="L552" class="LineNr"> 552 </span> <span class="Delimiter">}</span> -<span id="L553" class="LineNr"> 553 </span> <span class="Delimiter">{</span> -<span id="L554" class="LineNr"> 554 </span> <span class="PreProc">var</span> greater?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">">"</span> -<span id="L555" class="LineNr"> 555 </span> compare greater?, <span class="Constant">0</span>/false -<span id="L556" class="LineNr"> 556 </span> <span class="PreProc">break-if-=</span> -<span id="L557" class="LineNr"> 557 </span> <a href='global.mu.html#L1170'>apply-></a> args-ah, out, trace -<span id="L558" class="LineNr"> 558 </span> <span class="PreProc">return</span> -<span id="L559" class="LineNr"> 559 </span> <span class="Delimiter">}</span> -<span id="L560" class="LineNr"> 560 </span> <span class="Delimiter">{</span> -<span id="L561" class="LineNr"> 561 </span> <span class="PreProc">var</span> lesser-or-equal?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"<="</span> -<span id="L562" class="LineNr"> 562 </span> compare lesser-or-equal?, <span class="Constant">0</span>/false -<span id="L563" class="LineNr"> 563 </span> <span class="PreProc">break-if-=</span> -<span id="L564" class="LineNr"> 564 </span> <a href='global.mu.html#L1220'>apply-<=</a> args-ah, out, trace -<span id="L565" class="LineNr"> 565 </span> <span class="PreProc">return</span> -<span id="L566" class="LineNr"> 566 </span> <span class="Delimiter">}</span> -<span id="L567" class="LineNr"> 567 </span> <span class="Delimiter">{</span> -<span id="L568" class="LineNr"> 568 </span> <span class="PreProc">var</span> greater-or-equal?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">">="</span> -<span id="L569" class="LineNr"> 569 </span> compare greater-or-equal?, <span class="Constant">0</span>/false -<span id="L570" class="LineNr"> 570 </span> <span class="PreProc">break-if-=</span> -<span id="L571" class="LineNr"> 571 </span> <a href='global.mu.html#L1270'>apply->=</a> args-ah, out, trace -<span id="L572" class="LineNr"> 572 </span> <span class="PreProc">return</span> -<span id="L573" class="LineNr"> 573 </span> <span class="Delimiter">}</span> -<span id="L574" class="LineNr"> 574 </span> <span class="Delimiter">{</span> -<span id="L575" class="LineNr"> 575 </span> <span class="PreProc">var</span> print?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"print"</span> -<span id="L576" class="LineNr"> 576 </span> compare print?, <span class="Constant">0</span>/false -<span id="L577" class="LineNr"> 577 </span> <span class="PreProc">break-if-=</span> -<span id="L578" class="LineNr"> 578 </span> <a href='global.mu.html#L1320'>apply-print</a> args-ah, out, trace -<span id="L579" class="LineNr"> 579 </span> <span class="PreProc">return</span> -<span id="L580" class="LineNr"> 580 </span> <span class="Delimiter">}</span> -<span id="L581" class="LineNr"> 581 </span> <span class="Delimiter">{</span> -<span id="L582" class="LineNr"> 582 </span> <span class="PreProc">var</span> clear?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"clear"</span> -<span id="L583" class="LineNr"> 583 </span> compare clear?, <span class="Constant">0</span>/false -<span id="L584" class="LineNr"> 584 </span> <span class="PreProc">break-if-=</span> -<span id="L585" class="LineNr"> 585 </span> <a href='global.mu.html#L1359'>apply-clear</a> args-ah, out, trace -<span id="L586" class="LineNr"> 586 </span> <span class="PreProc">return</span> -<span id="L587" class="LineNr"> 587 </span> <span class="Delimiter">}</span> -<span id="L588" class="LineNr"> 588 </span> <span class="Delimiter">{</span> -<span id="L589" class="LineNr"> 589 </span> <span class="PreProc">var</span> lines?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"lines"</span> -<span id="L590" class="LineNr"> 590 </span> compare lines?, <span class="Constant">0</span>/false -<span id="L591" class="LineNr"> 591 </span> <span class="PreProc">break-if-=</span> -<span id="L592" class="LineNr"> 592 </span> <a href='global.mu.html#L1716'>apply-lines</a> args-ah, out, trace -<span id="L593" class="LineNr"> 593 </span> <span class="PreProc">return</span> -<span id="L594" class="LineNr"> 594 </span> <span class="Delimiter">}</span> -<span id="L595" class="LineNr"> 595 </span> <span class="Delimiter">{</span> -<span id="L596" class="LineNr"> 596 </span> <span class="PreProc">var</span> columns?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"columns"</span> -<span id="L597" class="LineNr"> 597 </span> compare columns?, <span class="Constant">0</span>/false -<span id="L598" class="LineNr"> 598 </span> <span class="PreProc">break-if-=</span> -<span id="L599" class="LineNr"> 599 </span> <a href='global.mu.html#L1754'>apply-columns</a> args-ah, out, trace -<span id="L600" class="LineNr"> 600 </span> <span class="PreProc">return</span> -<span id="L601" class="LineNr"> 601 </span> <span class="Delimiter">}</span> -<span id="L602" class="LineNr"> 602 </span> <span class="Delimiter">{</span> -<span id="L603" class="LineNr"> 603 </span> <span class="PreProc">var</span> up?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"up"</span> -<span id="L604" class="LineNr"> 604 </span> compare up?, <span class="Constant">0</span>/false -<span id="L605" class="LineNr"> 605 </span> <span class="PreProc">break-if-=</span> -<span id="L606" class="LineNr"> 606 </span> <a href='global.mu.html#L1389'>apply-up</a> args-ah, out, trace -<span id="L607" class="LineNr"> 607 </span> <span class="PreProc">return</span> -<span id="L608" class="LineNr"> 608 </span> <span class="Delimiter">}</span> -<span id="L609" class="LineNr"> 609 </span> <span class="Delimiter">{</span> -<span id="L610" class="LineNr"> 610 </span> <span class="PreProc">var</span> down?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"down"</span> -<span id="L611" class="LineNr"> 611 </span> compare down?, <span class="Constant">0</span>/false -<span id="L612" class="LineNr"> 612 </span> <span class="PreProc">break-if-=</span> -<span id="L613" class="LineNr"> 613 </span> <a href='global.mu.html#L1419'>apply-down</a> args-ah, out, trace -<span id="L614" class="LineNr"> 614 </span> <span class="PreProc">return</span> -<span id="L615" class="LineNr"> 615 </span> <span class="Delimiter">}</span> -<span id="L616" class="LineNr"> 616 </span> <span class="Delimiter">{</span> -<span id="L617" class="LineNr"> 617 </span> <span class="PreProc">var</span> left?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"left"</span> -<span id="L618" class="LineNr"> 618 </span> compare left?, <span class="Constant">0</span>/false -<span id="L619" class="LineNr"> 619 </span> <span class="PreProc">break-if-=</span> -<span id="L620" class="LineNr"> 620 </span> <a href='global.mu.html#L1449'>apply-left</a> args-ah, out, trace -<span id="L621" class="LineNr"> 621 </span> <span class="PreProc">return</span> -<span id="L622" class="LineNr"> 622 </span> <span class="Delimiter">}</span> -<span id="L623" class="LineNr"> 623 </span> <span class="Delimiter">{</span> -<span id="L624" class="LineNr"> 624 </span> <span class="PreProc">var</span> right?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"right"</span> -<span id="L625" class="LineNr"> 625 </span> compare right?, <span class="Constant">0</span>/false -<span id="L626" class="LineNr"> 626 </span> <span class="PreProc">break-if-=</span> -<span id="L627" class="LineNr"> 627 </span> <a href='global.mu.html#L1479'>apply-right</a> args-ah, out, trace -<span id="L628" class="LineNr"> 628 </span> <span class="PreProc">return</span> -<span id="L629" class="LineNr"> 629 </span> <span class="Delimiter">}</span> -<span id="L630" class="LineNr"> 630 </span> <span class="Delimiter">{</span> -<span id="L631" class="LineNr"> 631 </span> <span class="PreProc">var</span> cr?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"cr"</span> -<span id="L632" class="LineNr"> 632 </span> compare cr?, <span class="Constant">0</span>/false -<span id="L633" class="LineNr"> 633 </span> <span class="PreProc">break-if-=</span> -<span id="L634" class="LineNr"> 634 </span> <a href='global.mu.html#L1509'>apply-cr</a> args-ah, out, trace -<span id="L635" class="LineNr"> 635 </span> <span class="PreProc">return</span> -<span id="L636" class="LineNr"> 636 </span> <span class="Delimiter">}</span> -<span id="L637" class="LineNr"> 637 </span> <span class="Delimiter">{</span> -<span id="L638" class="LineNr"> 638 </span> <span class="PreProc">var</span> pixel?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"pixel"</span> -<span id="L639" class="LineNr"> 639 </span> compare pixel?, <span class="Constant">0</span>/false -<span id="L640" class="LineNr"> 640 </span> <span class="PreProc">break-if-=</span> -<span id="L641" class="LineNr"> 641 </span> <a href='global.mu.html#L1539'>apply-pixel</a> args-ah, out, trace -<span id="L642" class="LineNr"> 642 </span> <span class="PreProc">return</span> -<span id="L643" class="LineNr"> 643 </span> <span class="Delimiter">}</span> -<span id="L644" class="LineNr"> 644 </span> <span class="Delimiter">{</span> -<span id="L645" class="LineNr"> 645 </span> <span class="PreProc">var</span> width?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"width"</span> -<span id="L646" class="LineNr"> 646 </span> compare width?, <span class="Constant">0</span>/false -<span id="L647" class="LineNr"> 647 </span> <span class="PreProc">break-if-=</span> -<span id="L648" class="LineNr"> 648 </span> <a href='global.mu.html#L1788'>apply-width</a> args-ah, out, trace -<span id="L649" class="LineNr"> 649 </span> <span class="PreProc">return</span> -<span id="L650" class="LineNr"> 650 </span> <span class="Delimiter">}</span> -<span id="L651" class="LineNr"> 651 </span> <span class="Delimiter">{</span> -<span id="L652" class="LineNr"> 652 </span> <span class="PreProc">var</span> height?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"height"</span> -<span id="L653" class="LineNr"> 653 </span> compare height?, <span class="Constant">0</span>/false -<span id="L654" class="LineNr"> 654 </span> <span class="PreProc">break-if-=</span> -<span id="L655" class="LineNr"> 655 </span> <a href='global.mu.html#L1823'>apply-height</a> args-ah, out, trace -<span id="L656" class="LineNr"> 656 </span> <span class="PreProc">return</span> -<span id="L657" class="LineNr"> 657 </span> <span class="Delimiter">}</span> -<span id="L658" class="LineNr"> 658 </span> <span class="Delimiter">{</span> -<span id="L659" class="LineNr"> 659 </span> <span class="PreProc">var</span> wait-for-key?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"key"</span> -<span id="L660" class="LineNr"> 660 </span> compare wait-for-key?, <span class="Constant">0</span>/false -<span id="L661" class="LineNr"> 661 </span> <span class="PreProc">break-if-=</span> -<span id="L662" class="LineNr"> 662 </span> <a href='global.mu.html#L1617'>apply-wait-for-key</a> args-ah, out, trace -<span id="L663" class="LineNr"> 663 </span> <span class="PreProc">return</span> -<span id="L664" class="LineNr"> 664 </span> <span class="Delimiter">}</span> -<span id="L665" class="LineNr"> 665 </span> <span class="Delimiter">{</span> -<span id="L666" class="LineNr"> 666 </span> <span class="PreProc">var</span> stream?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"stream"</span> -<span id="L667" class="LineNr"> 667 </span> compare stream?, <span class="Constant">0</span>/false -<span id="L668" class="LineNr"> 668 </span> <span class="PreProc">break-if-=</span> -<span id="L669" class="LineNr"> 669 </span> <a href='global.mu.html#L1663'>apply-stream</a> args-ah, out, trace -<span id="L670" class="LineNr"> 670 </span> <span class="PreProc">return</span> -<span id="L671" class="LineNr"> 671 </span> <span class="Delimiter">}</span> -<span id="L672" class="LineNr"> 672 </span> <span class="Delimiter">{</span> -<span id="L673" class="LineNr"> 673 </span> <span class="PreProc">var</span> write?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"write"</span> -<span id="L674" class="LineNr"> 674 </span> compare write?, <span class="Constant">0</span>/false -<span id="L675" class="LineNr"> 675 </span> <span class="PreProc">break-if-=</span> -<span id="L676" class="LineNr"> 676 </span> <a href='global.mu.html#L1668'>apply-write</a> args-ah, out, trace -<span id="L677" class="LineNr"> 677 </span> <span class="PreProc">return</span> -<span id="L678" class="LineNr"> 678 </span> <span class="Delimiter">}</span> -<span id="L679" class="LineNr"> 679 </span> <span class="Delimiter">{</span> -<span id="L680" class="LineNr"> 680 </span> <span class="PreProc">var</span> abort?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"abort"</span> -<span id="L681" class="LineNr"> 681 </span> compare abort?, <span class="Constant">0</span>/false -<span id="L682" class="LineNr"> 682 </span> <span class="PreProc">break-if-=</span> -<span id="L683" class="LineNr"> 683 </span> <a href='global.mu.html#L1750'>apply-abort</a> args-ah, out, trace -<span id="L684" class="LineNr"> 684 </span> <span class="PreProc">return</span> -<span id="L685" class="LineNr"> 685 </span> <span class="Delimiter">}</span> -<span id="L686" class="LineNr"> 686 </span> <a href='../501draw-text.mu.html#L481'>abort</a> <span class="Constant">"unknown primitive function"</span> -<span id="L687" class="LineNr"> 687 </span><span class="Delimiter">}</span> -<span id="L688" class="LineNr"> 688 </span> -<span id="L689" class="LineNr"> 689 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L689'>apply-add</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L690" class="LineNr"> 690 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply +"</span> -<span id="L691" class="LineNr"> 691 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah -<span id="L692" class="LineNr"> 692 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *args-ah -<span id="L693" class="LineNr"> 693 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args -<span id="L694" class="LineNr"> 694 </span> <span class="muComment"># TODO: check that args is a pair</span> -<span id="L695" class="LineNr"> 695 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> args -<span id="L696" class="LineNr"> 696 </span> compare empty-args?, <span class="Constant">0</span>/false -<span id="L697" class="LineNr"> 697 </span> <span class="Delimiter">{</span> -<span id="L698" class="LineNr"> 698 </span> <span class="PreProc">break-if-=</span> -<span id="L699" class="LineNr"> 699 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"+ needs 2 args but got 0"</span> -<span id="L700" class="LineNr"> 700 </span> <span class="PreProc">return</span> -<span id="L701" class="LineNr"> 701 </span> <span class="Delimiter">}</span> -<span id="L702" class="LineNr"> 702 </span> <span class="muComment"># args->left->value</span> -<span id="L703" class="LineNr"> 703 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left -<span id="L704" class="LineNr"> 704 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-ah -<span id="L705" class="LineNr"> 705 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> -<span id="L706" class="LineNr"> 706 </span> compare *first-type, <span class="Constant">1</span>/number -<span id="L707" class="LineNr"> 707 </span> <span class="Delimiter">{</span> +<span id="L358" class="LineNr"> 358 </span> <span class="Delimiter">{</span> +<span id="L359" class="LineNr"> 359 </span> compare globals, <span class="Constant">0</span> +<span id="L360" class="LineNr"> 360 </span> <span class="PreProc">break-if-=</span> +<span id="L361" class="LineNr"> 361 </span> <span class="PreProc">var</span> curr-index/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='global.mu.html#L425'>find-symbol-in-globals</a> globals, sym-name +<span id="L362" class="LineNr"> 362 </span> compare curr-index, <span class="Constant">-1</span>/not-found +<span id="L363" class="LineNr"> 363 </span> <span class="PreProc">break-if-=</span> +<span id="L364" class="LineNr"> 364 </span> <span class="PreProc">var</span> global-data-ah/<span class="Constant">eax</span>: (addr handle array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> get globals, data +<span id="L365" class="LineNr"> 365 </span> <span class="PreProc">var</span> global-data/<span class="Constant">eax</span>: (addr array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *global-data-ah +<span id="L366" class="LineNr"> 366 </span> <span class="PreProc">var</span> curr-offset/<span class="Constant">ebx</span>: (offset <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> compute-offset global-data, curr-index +<span id="L367" class="LineNr"> 367 </span> <span class="PreProc">var</span> curr/<span class="Constant">ebx</span>: (addr <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> index global-data, curr-offset +<span id="L368" class="LineNr"> 368 </span> <span class="PreProc">var</span> curr-value/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get curr, value +<span id="L369" class="LineNr"> 369 </span> copy-object curr-value, out +<span id="L370" class="LineNr"> 370 </span> <span class="PreProc">return</span> +<span id="L371" class="LineNr"> 371 </span> <span class="Delimiter">}</span> +<span id="L372" class="LineNr"> 372 </span> <span class="muComment"># if sym is "screen" and screen-cell exists, return it</span> +<span id="L373" class="LineNr"> 373 </span> <span class="Delimiter">{</span> +<span id="L374" class="LineNr"> 374 </span> <span class="PreProc">var</span> sym-is-screen?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> sym-name, <span class="Constant">"screen"</span> +<span id="L375" class="LineNr"> 375 </span> compare sym-is-screen?, <span class="Constant">0</span>/false +<span id="L376" class="LineNr"> 376 </span> <span class="PreProc">break-if-=</span> +<span id="L377" class="LineNr"> 377 </span> compare <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, <span class="Constant">0</span> +<span id="L378" class="LineNr"> 378 </span> <span class="PreProc">break-if-=</span> +<span id="L379" class="LineNr"> 379 </span> copy-object <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, out +<span id="L380" class="LineNr"> 380 </span> <span class="PreProc">return</span> +<span id="L381" class="LineNr"> 381 </span> <span class="Delimiter">}</span> +<span id="L382" class="LineNr"> 382 </span> <span class="muComment"># if sym is "keyboard" and keyboard-cell exists, return it</span> +<span id="L383" class="LineNr"> 383 </span> <span class="Delimiter">{</span> +<span id="L384" class="LineNr"> 384 </span> <span class="PreProc">var</span> sym-is-keyboard?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> sym-name, <span class="Constant">"keyboard"</span> +<span id="L385" class="LineNr"> 385 </span> compare sym-is-keyboard?, <span class="Constant">0</span>/false +<span id="L386" class="LineNr"> 386 </span> <span class="PreProc">break-if-=</span> +<span id="L387" class="LineNr"> 387 </span> compare keyboard-cell, <span class="Constant">0</span> +<span id="L388" class="LineNr"> 388 </span> <span class="PreProc">break-if-=</span> +<span id="L389" class="LineNr"> 389 </span> copy-object keyboard-cell, out +<span id="L390" class="LineNr"> 390 </span> <span class="PreProc">return</span> +<span id="L391" class="LineNr"> 391 </span> <span class="Delimiter">}</span> +<span id="L392" class="LineNr"> 392 </span> <span class="muComment"># otherwise error "unbound symbol: ", sym</span> +<span id="L393" class="LineNr"> 393 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x40</span>) +<span id="L394" class="LineNr"> 394 </span> <span class="PreProc">var</span> stream/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L395" class="LineNr"> 395 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"unbound symbol: "</span> +<span id="L396" class="LineNr"> 396 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> sym-name +<span id="L397" class="LineNr"> 397 </span> <a href='../113write-stream.subx.html#L8'>write-stream</a> stream, sym-name +<span id="L398" class="LineNr"> 398 </span> trace trace, <span class="Constant">"error"</span>, stream +<span id="L399" class="LineNr"> 399 </span><span class="Delimiter">}</span> +<span id="L400" class="LineNr"> 400 </span> +<span id="L401" class="LineNr"> 401 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L401'>maybe-lookup-symbol-in-globals</a></span> _sym: (addr <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), _globals: (addr <a href='global.mu.html#L7'>global-table</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L402" class="LineNr"> 402 </span> <span class="PreProc">var</span> sym/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _sym +<span id="L403" class="LineNr"> 403 </span> <span class="PreProc">var</span> sym-name-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get sym, text-data +<span id="L404" class="LineNr"> 404 </span> <span class="PreProc">var</span> _sym-name/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *sym-name-ah +<span id="L405" class="LineNr"> 405 </span> <span class="PreProc">var</span> sym-name/<span class="Constant">edx</span>: (addr stream byte) <span class="Special"><-</span> copy _sym-name +<span id="L406" class="LineNr"> 406 </span> <span class="PreProc">var</span> globals/<span class="Constant">esi</span>: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Special"><-</span> copy _globals +<span id="L407" class="LineNr"> 407 </span> <span class="Delimiter">{</span> +<span id="L408" class="LineNr"> 408 </span> compare globals, <span class="Constant">0</span> +<span id="L409" class="LineNr"> 409 </span> <span class="PreProc">break-if-=</span> +<span id="L410" class="LineNr"> 410 </span> <span class="PreProc">var</span> curr-index/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='global.mu.html#L425'>find-symbol-in-globals</a> globals, sym-name +<span id="L411" class="LineNr"> 411 </span> compare curr-index, <span class="Constant">-1</span>/not-found +<span id="L412" class="LineNr"> 412 </span> <span class="PreProc">break-if-=</span> +<span id="L413" class="LineNr"> 413 </span> <span class="PreProc">var</span> global-data-ah/<span class="Constant">eax</span>: (addr handle array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> get globals, data +<span id="L414" class="LineNr"> 414 </span> <span class="PreProc">var</span> global-data/<span class="Constant">eax</span>: (addr array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *global-data-ah +<span id="L415" class="LineNr"> 415 </span> <span class="PreProc">var</span> curr-offset/<span class="Constant">ebx</span>: (offset <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> compute-offset global-data, curr-index +<span id="L416" class="LineNr"> 416 </span> <span class="PreProc">var</span> curr/<span class="Constant">ebx</span>: (addr <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> index global-data, curr-offset +<span id="L417" class="LineNr"> 417 </span> <span class="PreProc">var</span> curr-value/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get curr, value +<span id="L418" class="LineNr"> 418 </span> copy-object curr-value, out +<span id="L419" class="LineNr"> 419 </span> <span class="PreProc">return</span> +<span id="L420" class="LineNr"> 420 </span> <span class="Delimiter">}</span> +<span id="L421" class="LineNr"> 421 </span><span class="Delimiter">}</span> +<span id="L422" class="LineNr"> 422 </span> +<span id="L423" class="LineNr"> 423 </span><span class="muComment"># return the index in globals containing 'sym'</span> +<span id="L424" class="LineNr"> 424 </span><span class="muComment"># or -1 if not found</span> +<span id="L425" class="LineNr"> 425 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L425'>find-symbol-in-globals</a></span> _globals: (addr <a href='global.mu.html#L7'>global-table</a>), sym-name: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> +<span id="L426" class="LineNr"> 426 </span> <span class="PreProc">var</span> globals/<span class="Constant">esi</span>: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Special"><-</span> copy _globals +<span id="L427" class="LineNr"> 427 </span> compare globals, <span class="Constant">0</span> +<span id="L428" class="LineNr"> 428 </span> <span class="Delimiter">{</span> +<span id="L429" class="LineNr"> 429 </span> <span class="PreProc">break-if-!=</span> +<span id="L430" class="LineNr"> 430 </span> <span class="PreProc">return</span> <span class="Constant">-1</span>/not-found +<span id="L431" class="LineNr"> 431 </span> <span class="Delimiter">}</span> +<span id="L432" class="LineNr"> 432 </span> <span class="PreProc">var</span> global-data-ah/<span class="Constant">eax</span>: (addr handle array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> get globals, data +<span id="L433" class="LineNr"> 433 </span> <span class="PreProc">var</span> global-data/<span class="Constant">eax</span>: (addr array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *global-data-ah +<span id="L434" class="LineNr"> 434 </span> <span class="PreProc">var</span> final-index/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get globals, final-index +<span id="L435" class="LineNr"> 435 </span> <span class="PreProc">var</span> curr-index/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *final-index +<span id="L436" class="LineNr"> 436 </span> <span class="Delimiter">{</span> +<span id="L437" class="LineNr"> 437 </span> compare curr-index, <span class="Constant">0</span> +<span id="L438" class="LineNr"> 438 </span> <span class="PreProc">break-if-<</span> +<span id="L439" class="LineNr"> 439 </span> <span class="PreProc">var</span> curr-offset/<span class="Constant">ebx</span>: (offset <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> compute-offset global-data, curr-index +<span id="L440" class="LineNr"> 440 </span> <span class="PreProc">var</span> curr/<span class="Constant">ebx</span>: (addr <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> index global-data, curr-offset +<span id="L441" class="LineNr"> 441 </span> <span class="PreProc">var</span> curr-name-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> get curr, name +<span id="L442" class="LineNr"> 442 </span> <span class="PreProc">var</span> curr-name/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *curr-name-ah +<span id="L443" class="LineNr"> 443 </span> <span class="PreProc">var</span> found?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> sym-name, curr-name +<span id="L444" class="LineNr"> 444 </span> compare found?, <span class="Constant">0</span>/false +<span id="L445" class="LineNr"> 445 </span> <span class="Delimiter">{</span> +<span id="L446" class="LineNr"> 446 </span> <span class="PreProc">break-if-=</span> +<span id="L447" class="LineNr"> 447 </span> <span class="PreProc">return</span> curr-index +<span id="L448" class="LineNr"> 448 </span> <span class="Delimiter">}</span> +<span id="L449" class="LineNr"> 449 </span> curr-index <span class="Special"><-</span> decrement +<span id="L450" class="LineNr"> 450 </span> <span class="PreProc">loop</span> +<span id="L451" class="LineNr"> 451 </span> <span class="Delimiter">}</span> +<span id="L452" class="LineNr"> 452 </span> <span class="PreProc">return</span> <span class="Constant">-1</span>/not-found +<span id="L453" class="LineNr"> 453 </span><span class="Delimiter">}</span> +<span id="L454" class="LineNr"> 454 </span> +<span id="L455" class="LineNr"> 455 </span><span class="muComment"># return the index in globals containing 'sym'</span> +<span id="L456" class="LineNr"> 456 </span><span class="muComment"># or -1 if not found</span> +<span id="L457" class="LineNr"> 457 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L457'>find-symbol-name-in-globals</a></span> _globals: (addr <a href='global.mu.html#L7'>global-table</a>), sym-name: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> +<span id="L458" class="LineNr"> 458 </span> <span class="PreProc">var</span> globals/<span class="Constant">esi</span>: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Special"><-</span> copy _globals +<span id="L459" class="LineNr"> 459 </span> compare globals, <span class="Constant">0</span> +<span id="L460" class="LineNr"> 460 </span> <span class="Delimiter">{</span> +<span id="L461" class="LineNr"> 461 </span> <span class="PreProc">break-if-!=</span> +<span id="L462" class="LineNr"> 462 </span> <span class="PreProc">return</span> <span class="Constant">-1</span>/not-found +<span id="L463" class="LineNr"> 463 </span> <span class="Delimiter">}</span> +<span id="L464" class="LineNr"> 464 </span> <span class="PreProc">var</span> global-data-ah/<span class="Constant">eax</span>: (addr handle array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> get globals, data +<span id="L465" class="LineNr"> 465 </span> <span class="PreProc">var</span> global-data/<span class="Constant">eax</span>: (addr array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *global-data-ah +<span id="L466" class="LineNr"> 466 </span> <span class="PreProc">var</span> final-index/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get globals, final-index +<span id="L467" class="LineNr"> 467 </span> <span class="PreProc">var</span> curr-index/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *final-index +<span id="L468" class="LineNr"> 468 </span> <span class="Delimiter">{</span> +<span id="L469" class="LineNr"> 469 </span> compare curr-index, <span class="Constant">0</span> +<span id="L470" class="LineNr"> 470 </span> <span class="PreProc">break-if-<</span> +<span id="L471" class="LineNr"> 471 </span> <span class="PreProc">var</span> curr-offset/<span class="Constant">ebx</span>: (offset <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> compute-offset global-data, curr-index +<span id="L472" class="LineNr"> 472 </span> <span class="PreProc">var</span> curr/<span class="Constant">ebx</span>: (addr <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> index global-data, curr-offset +<span id="L473" class="LineNr"> 473 </span> <span class="PreProc">var</span> curr-name-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> get curr, name +<span id="L474" class="LineNr"> 474 </span> <span class="PreProc">var</span> curr-name/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *curr-name-ah +<span id="L475" class="LineNr"> 475 </span> <span class="PreProc">var</span> found?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> sym-name, curr-name +<span id="L476" class="LineNr"> 476 </span> compare found?, <span class="Constant">0</span>/false +<span id="L477" class="LineNr"> 477 </span> <span class="Delimiter">{</span> +<span id="L478" class="LineNr"> 478 </span> <span class="PreProc">break-if-=</span> +<span id="L479" class="LineNr"> 479 </span> <span class="PreProc">return</span> curr-index +<span id="L480" class="LineNr"> 480 </span> <span class="Delimiter">}</span> +<span id="L481" class="LineNr"> 481 </span> curr-index <span class="Special"><-</span> decrement +<span id="L482" class="LineNr"> 482 </span> <span class="PreProc">loop</span> +<span id="L483" class="LineNr"> 483 </span> <span class="Delimiter">}</span> +<span id="L484" class="LineNr"> 484 </span> <span class="PreProc">return</span> <span class="Constant">-1</span>/not-found +<span id="L485" class="LineNr"> 485 </span><span class="Delimiter">}</span> +<span id="L486" class="LineNr"> 486 </span> +<span id="L487" class="LineNr"> 487 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L487'>mutate-binding-in-globals</a></span> name: (addr stream byte), val: (addr handle <a href='cell.mu.html#L1'>cell</a>), _globals: (addr <a href='global.mu.html#L7'>global-table</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L488" class="LineNr"> 488 </span> <span class="PreProc">var</span> globals/<span class="Constant">esi</span>: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Special"><-</span> copy _globals +<span id="L489" class="LineNr"> 489 </span> <span class="Delimiter">{</span> +<span id="L490" class="LineNr"> 490 </span> compare globals, <span class="Constant">0</span> +<span id="L491" class="LineNr"> 491 </span> <span class="PreProc">break-if-=</span> +<span id="L492" class="LineNr"> 492 </span> <span class="PreProc">var</span> curr-index/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='global.mu.html#L425'>find-symbol-in-globals</a> globals, name +<span id="L493" class="LineNr"> 493 </span> compare curr-index, <span class="Constant">-1</span>/not-found +<span id="L494" class="LineNr"> 494 </span> <span class="PreProc">break-if-=</span> +<span id="L495" class="LineNr"> 495 </span> <span class="PreProc">var</span> global-data-ah/<span class="Constant">eax</span>: (addr handle array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> get globals, data +<span id="L496" class="LineNr"> 496 </span> <span class="PreProc">var</span> global-data/<span class="Constant">eax</span>: (addr array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *global-data-ah +<span id="L497" class="LineNr"> 497 </span> <span class="PreProc">var</span> curr-offset/<span class="Constant">ebx</span>: (offset <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> compute-offset global-data, curr-index +<span id="L498" class="LineNr"> 498 </span> <span class="PreProc">var</span> curr/<span class="Constant">ebx</span>: (addr <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> index global-data, curr-offset +<span id="L499" class="LineNr"> 499 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get curr, value +<span id="L500" class="LineNr"> 500 </span> copy-object val, dest +<span id="L501" class="LineNr"> 501 </span> <span class="PreProc">return</span> +<span id="L502" class="LineNr"> 502 </span> <span class="Delimiter">}</span> +<span id="L503" class="LineNr"> 503 </span> <span class="muComment"># otherwise error "unbound symbol: ", sym</span> +<span id="L504" class="LineNr"> 504 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x40</span>) +<span id="L505" class="LineNr"> 505 </span> <span class="PreProc">var</span> stream/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L506" class="LineNr"> 506 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"unbound symbol: "</span> +<span id="L507" class="LineNr"> 507 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> name +<span id="L508" class="LineNr"> 508 </span> <a href='../113write-stream.subx.html#L8'>write-stream</a> stream, name +<span id="L509" class="LineNr"> 509 </span> trace trace, <span class="Constant">"error"</span>, stream +<span id="L510" class="LineNr"> 510 </span><span class="Delimiter">}</span> +<span id="L511" class="LineNr"> 511 </span> +<span id="L512" class="LineNr"> 512 </span><span class="muComment"># a little strange; goes from value to name and selects primitive based on name</span> +<span id="L513" class="LineNr"> 513 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L513'>apply-primitive</a></span> _f: (addr <a href='cell.mu.html#L1'>cell</a>), args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), _globals: (addr <a href='global.mu.html#L7'>global-table</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L514" class="LineNr"> 514 </span> <span class="PreProc">var</span> f/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _f +<span id="L515" class="LineNr"> 515 </span> <span class="PreProc">var</span> f-index-a/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get f, index-data +<span id="L516" class="LineNr"> 516 </span> <span class="PreProc">var</span> f-index/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *f-index-a +<span id="L517" class="LineNr"> 517 </span> <span class="PreProc">var</span> globals/<span class="Constant">eax</span>: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Special"><-</span> copy _globals +<span id="L518" class="LineNr"> 518 </span> compare globals, <span class="Constant">0</span> +<span id="L519" class="LineNr"> 519 </span> <span class="Delimiter">{</span> +<span id="L520" class="LineNr"> 520 </span> <span class="PreProc">break-if-!=</span> +<span id="L521" class="LineNr"> 521 </span> <a href='../317abort.subx.html#L5'>abort</a> <span class="Constant">"apply primitive"</span> +<span id="L522" class="LineNr"> 522 </span> <span class="PreProc">return</span> +<span id="L523" class="LineNr"> 523 </span> <span class="Delimiter">}</span> +<span id="L524" class="LineNr"> 524 </span> <span class="PreProc">var</span> global-data-ah/<span class="Constant">eax</span>: (addr handle array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> get globals, data +<span id="L525" class="LineNr"> 525 </span> <span class="PreProc">var</span> global-data/<span class="Constant">eax</span>: (addr array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *global-data-ah +<span id="L526" class="LineNr"> 526 </span> <span class="PreProc">var</span> f-offset/<span class="Constant">ecx</span>: (offset <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> compute-offset global-data, f-index +<span id="L527" class="LineNr"> 527 </span> <span class="PreProc">var</span> f-value/<span class="Constant">ecx</span>: (addr <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> index global-data, f-offset +<span id="L528" class="LineNr"> 528 </span> <span class="PreProc">var</span> f-name-ah/<span class="Constant">ecx</span>: (addr handle array byte) <span class="Special"><-</span> get f-value, name +<span id="L529" class="LineNr"> 529 </span> <span class="PreProc">var</span> f-name/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *f-name-ah +<span id="L530" class="LineNr"> 530 </span> <span class="Delimiter">{</span> +<span id="L531" class="LineNr"> 531 </span> <span class="PreProc">var</span> add?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"+"</span> +<span id="L532" class="LineNr"> 532 </span> compare add?, <span class="Constant">0</span>/false +<span id="L533" class="LineNr"> 533 </span> <span class="PreProc">break-if-=</span> +<span id="L534" class="LineNr"> 534 </span> <a href='global.mu.html#L771'>apply-add</a> args-ah, out, trace +<span id="L535" class="LineNr"> 535 </span> <span class="PreProc">return</span> +<span id="L536" class="LineNr"> 536 </span> <span class="Delimiter">}</span> +<span id="L537" class="LineNr"> 537 </span> <span class="Delimiter">{</span> +<span id="L538" class="LineNr"> 538 </span> <span class="PreProc">var</span> subtract?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"-"</span> +<span id="L539" class="LineNr"> 539 </span> compare subtract?, <span class="Constant">0</span>/false +<span id="L540" class="LineNr"> 540 </span> <span class="PreProc">break-if-=</span> +<span id="L541" class="LineNr"> 541 </span> <a href='global.mu.html#L817'>apply-subtract</a> args-ah, out, trace +<span id="L542" class="LineNr"> 542 </span> <span class="PreProc">return</span> +<span id="L543" class="LineNr"> 543 </span> <span class="Delimiter">}</span> +<span id="L544" class="LineNr"> 544 </span> <span class="Delimiter">{</span> +<span id="L545" class="LineNr"> 545 </span> <span class="PreProc">var</span> multiply?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"*"</span> +<span id="L546" class="LineNr"> 546 </span> compare multiply?, <span class="Constant">0</span>/false +<span id="L547" class="LineNr"> 547 </span> <span class="PreProc">break-if-=</span> +<span id="L548" class="LineNr"> 548 </span> <a href='global.mu.html#L861'>apply-multiply</a> args-ah, out, trace +<span id="L549" class="LineNr"> 549 </span> <span class="PreProc">return</span> +<span id="L550" class="LineNr"> 550 </span> <span class="Delimiter">}</span> +<span id="L551" class="LineNr"> 551 </span> <span class="Delimiter">{</span> +<span id="L552" class="LineNr"> 552 </span> <span class="PreProc">var</span> divide?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"/"</span> +<span id="L553" class="LineNr"> 553 </span> compare divide?, <span class="Constant">0</span>/false +<span id="L554" class="LineNr"> 554 </span> <span class="PreProc">break-if-=</span> +<span id="L555" class="LineNr"> 555 </span> <a href='global.mu.html#L905'>apply-divide</a> args-ah, out, trace +<span id="L556" class="LineNr"> 556 </span> <span class="PreProc">return</span> +<span id="L557" class="LineNr"> 557 </span> <span class="Delimiter">}</span> +<span id="L558" class="LineNr"> 558 </span> <span class="Delimiter">{</span> +<span id="L559" class="LineNr"> 559 </span> <span class="PreProc">var</span> square-root?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"sqrt"</span> +<span id="L560" class="LineNr"> 560 </span> compare square-root?, <span class="Constant">0</span>/false +<span id="L561" class="LineNr"> 561 </span> <span class="PreProc">break-if-=</span> +<span id="L562" class="LineNr"> 562 </span> <a href='global.mu.html#L949'>apply-square-root</a> args-ah, out, trace +<span id="L563" class="LineNr"> 563 </span> <span class="PreProc">return</span> +<span id="L564" class="LineNr"> 564 </span> <span class="Delimiter">}</span> +<span id="L565" class="LineNr"> 565 </span> <span class="Delimiter">{</span> +<span id="L566" class="LineNr"> 566 </span> <span class="PreProc">var</span> abs?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"abs"</span> +<span id="L567" class="LineNr"> 567 </span> compare abs?, <span class="Constant">0</span>/false +<span id="L568" class="LineNr"> 568 </span> <span class="PreProc">break-if-=</span> +<span id="L569" class="LineNr"> 569 </span> <a href='global.mu.html#L978'>apply-abs</a> args-ah, out, trace +<span id="L570" class="LineNr"> 570 </span> <span class="PreProc">return</span> +<span id="L571" class="LineNr"> 571 </span> <span class="Delimiter">}</span> +<span id="L572" class="LineNr"> 572 </span> <span class="Delimiter">{</span> +<span id="L573" class="LineNr"> 573 </span> <span class="PreProc">var</span> sgn?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"sgn"</span> +<span id="L574" class="LineNr"> 574 </span> compare sgn?, <span class="Constant">0</span>/false +<span id="L575" class="LineNr"> 575 </span> <span class="PreProc">break-if-=</span> +<span id="L576" class="LineNr"> 576 </span> <a href='global.mu.html#L1015'>apply-sgn</a> args-ah, out, trace +<span id="L577" class="LineNr"> 577 </span> <span class="PreProc">return</span> +<span id="L578" class="LineNr"> 578 </span> <span class="Delimiter">}</span> +<span id="L579" class="LineNr"> 579 </span> <span class="Delimiter">{</span> +<span id="L580" class="LineNr"> 580 </span> <span class="PreProc">var</span> car?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"car"</span> +<span id="L581" class="LineNr"> 581 </span> compare car?, <span class="Constant">0</span>/false +<span id="L582" class="LineNr"> 582 </span> <span class="PreProc">break-if-=</span> +<span id="L583" class="LineNr"> 583 </span> <a href='global.mu.html#L1061'>apply-car</a> args-ah, out, trace +<span id="L584" class="LineNr"> 584 </span> <span class="PreProc">return</span> +<span id="L585" class="LineNr"> 585 </span> <span class="Delimiter">}</span> +<span id="L586" class="LineNr"> 586 </span> <span class="Delimiter">{</span> +<span id="L587" class="LineNr"> 587 </span> <span class="PreProc">var</span> cdr?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"cdr"</span> +<span id="L588" class="LineNr"> 588 </span> compare cdr?, <span class="Constant">0</span>/false +<span id="L589" class="LineNr"> 589 </span> <span class="PreProc">break-if-=</span> +<span id="L590" class="LineNr"> 590 </span> <a href='global.mu.html#L1089'>apply-cdr</a> args-ah, out, trace +<span id="L591" class="LineNr"> 591 </span> <span class="PreProc">return</span> +<span id="L592" class="LineNr"> 592 </span> <span class="Delimiter">}</span> +<span id="L593" class="LineNr"> 593 </span> <span class="Delimiter">{</span> +<span id="L594" class="LineNr"> 594 </span> <span class="PreProc">var</span> cons?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"cons"</span> +<span id="L595" class="LineNr"> 595 </span> compare cons?, <span class="Constant">0</span>/false +<span id="L596" class="LineNr"> 596 </span> <span class="PreProc">break-if-=</span> +<span id="L597" class="LineNr"> 597 </span> <a href='global.mu.html#L1117'>apply-cons</a> args-ah, out, trace +<span id="L598" class="LineNr"> 598 </span> <span class="PreProc">return</span> +<span id="L599" class="LineNr"> 599 </span> <span class="Delimiter">}</span> +<span id="L600" class="LineNr"> 600 </span> <span class="Delimiter">{</span> +<span id="L601" class="LineNr"> 601 </span> <span class="PreProc">var</span> structurally-equal?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"="</span> +<span id="L602" class="LineNr"> 602 </span> compare structurally-equal?, <span class="Constant">0</span>/false +<span id="L603" class="LineNr"> 603 </span> <span class="PreProc">break-if-=</span> +<span id="L604" class="LineNr"> 604 </span> <a href='global.mu.html#L1141'>apply-structurally-equal</a> args-ah, out, trace +<span id="L605" class="LineNr"> 605 </span> <span class="PreProc">return</span> +<span id="L606" class="LineNr"> 606 </span> <span class="Delimiter">}</span> +<span id="L607" class="LineNr"> 607 </span> <span class="Delimiter">{</span> +<span id="L608" class="LineNr"> 608 </span> <span class="PreProc">var</span> not?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"no"</span> +<span id="L609" class="LineNr"> 609 </span> compare not?, <span class="Constant">0</span>/false +<span id="L610" class="LineNr"> 610 </span> <span class="PreProc">break-if-=</span> +<span id="L611" class="LineNr"> 611 </span> <a href='global.mu.html#L1175'>apply-not</a> args-ah, out, trace +<span id="L612" class="LineNr"> 612 </span> <span class="PreProc">return</span> +<span id="L613" class="LineNr"> 613 </span> <span class="Delimiter">}</span> +<span id="L614" class="LineNr"> 614 </span> <span class="Delimiter">{</span> +<span id="L615" class="LineNr"> 615 </span> <span class="PreProc">var</span> not?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"not"</span> +<span id="L616" class="LineNr"> 616 </span> compare not?, <span class="Constant">0</span>/false +<span id="L617" class="LineNr"> 617 </span> <span class="PreProc">break-if-=</span> +<span id="L618" class="LineNr"> 618 </span> <a href='global.mu.html#L1175'>apply-not</a> args-ah, out, trace +<span id="L619" class="LineNr"> 619 </span> <span class="PreProc">return</span> +<span id="L620" class="LineNr"> 620 </span> <span class="Delimiter">}</span> +<span id="L621" class="LineNr"> 621 </span> <span class="Delimiter">{</span> +<span id="L622" class="LineNr"> 622 </span> <span class="PreProc">var</span> debug?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"dbg"</span> +<span id="L623" class="LineNr"> 623 </span> compare debug?, <span class="Constant">0</span>/false +<span id="L624" class="LineNr"> 624 </span> <span class="PreProc">break-if-=</span> +<span id="L625" class="LineNr"> 625 </span> <a href='global.mu.html#L1202'>apply-debug</a> args-ah, out, trace +<span id="L626" class="LineNr"> 626 </span> <span class="PreProc">return</span> +<span id="L627" class="LineNr"> 627 </span> <span class="Delimiter">}</span> +<span id="L628" class="LineNr"> 628 </span> <span class="Delimiter">{</span> +<span id="L629" class="LineNr"> 629 </span> <span class="PreProc">var</span> lesser?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"<"</span> +<span id="L630" class="LineNr"> 630 </span> compare lesser?, <span class="Constant">0</span>/false +<span id="L631" class="LineNr"> 631 </span> <span class="PreProc">break-if-=</span> +<span id="L632" class="LineNr"> 632 </span> <a href='global.mu.html#L1226'>apply-<</a> args-ah, out, trace +<span id="L633" class="LineNr"> 633 </span> <span class="PreProc">return</span> +<span id="L634" class="LineNr"> 634 </span> <span class="Delimiter">}</span> +<span id="L635" class="LineNr"> 635 </span> <span class="Delimiter">{</span> +<span id="L636" class="LineNr"> 636 </span> <span class="PreProc">var</span> greater?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">">"</span> +<span id="L637" class="LineNr"> 637 </span> compare greater?, <span class="Constant">0</span>/false +<span id="L638" class="LineNr"> 638 </span> <span class="PreProc">break-if-=</span> +<span id="L639" class="LineNr"> 639 </span> <a href='global.mu.html#L1276'>apply-></a> args-ah, out, trace +<span id="L640" class="LineNr"> 640 </span> <span class="PreProc">return</span> +<span id="L641" class="LineNr"> 641 </span> <span class="Delimiter">}</span> +<span id="L642" class="LineNr"> 642 </span> <span class="Delimiter">{</span> +<span id="L643" class="LineNr"> 643 </span> <span class="PreProc">var</span> lesser-or-equal?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"<="</span> +<span id="L644" class="LineNr"> 644 </span> compare lesser-or-equal?, <span class="Constant">0</span>/false +<span id="L645" class="LineNr"> 645 </span> <span class="PreProc">break-if-=</span> +<span id="L646" class="LineNr"> 646 </span> <a href='global.mu.html#L1326'>apply-<=</a> args-ah, out, trace +<span id="L647" class="LineNr"> 647 </span> <span class="PreProc">return</span> +<span id="L648" class="LineNr"> 648 </span> <span class="Delimiter">}</span> +<span id="L649" class="LineNr"> 649 </span> <span class="Delimiter">{</span> +<span id="L650" class="LineNr"> 650 </span> <span class="PreProc">var</span> greater-or-equal?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">">="</span> +<span id="L651" class="LineNr"> 651 </span> compare greater-or-equal?, <span class="Constant">0</span>/false +<span id="L652" class="LineNr"> 652 </span> <span class="PreProc">break-if-=</span> +<span id="L653" class="LineNr"> 653 </span> <a href='global.mu.html#L1376'>apply->=</a> args-ah, out, trace +<span id="L654" class="LineNr"> 654 </span> <span class="PreProc">return</span> +<span id="L655" class="LineNr"> 655 </span> <span class="Delimiter">}</span> +<span id="L656" class="LineNr"> 656 </span> <span class="Delimiter">{</span> +<span id="L657" class="LineNr"> 657 </span> <span class="PreProc">var</span> print?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"print"</span> +<span id="L658" class="LineNr"> 658 </span> compare print?, <span class="Constant">0</span>/false +<span id="L659" class="LineNr"> 659 </span> <span class="PreProc">break-if-=</span> +<span id="L660" class="LineNr"> 660 </span> <a href='global.mu.html#L1426'>apply-print</a> args-ah, out, trace +<span id="L661" class="LineNr"> 661 </span> <span class="PreProc">return</span> +<span id="L662" class="LineNr"> 662 </span> <span class="Delimiter">}</span> +<span id="L663" class="LineNr"> 663 </span> <span class="Delimiter">{</span> +<span id="L664" class="LineNr"> 664 </span> <span class="PreProc">var</span> clear?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"clear"</span> +<span id="L665" class="LineNr"> 665 </span> compare clear?, <span class="Constant">0</span>/false +<span id="L666" class="LineNr"> 666 </span> <span class="PreProc">break-if-=</span> +<span id="L667" class="LineNr"> 667 </span> <a href='global.mu.html#L1465'>apply-clear</a> args-ah, out, trace +<span id="L668" class="LineNr"> 668 </span> <span class="PreProc">return</span> +<span id="L669" class="LineNr"> 669 </span> <span class="Delimiter">}</span> +<span id="L670" class="LineNr"> 670 </span> <span class="Delimiter">{</span> +<span id="L671" class="LineNr"> 671 </span> <span class="PreProc">var</span> lines?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"lines"</span> +<span id="L672" class="LineNr"> 672 </span> compare lines?, <span class="Constant">0</span>/false +<span id="L673" class="LineNr"> 673 </span> <span class="PreProc">break-if-=</span> +<span id="L674" class="LineNr"> 674 </span> <a href='global.mu.html#L1822'>apply-lines</a> args-ah, out, trace +<span id="L675" class="LineNr"> 675 </span> <span class="PreProc">return</span> +<span id="L676" class="LineNr"> 676 </span> <span class="Delimiter">}</span> +<span id="L677" class="LineNr"> 677 </span> <span class="Delimiter">{</span> +<span id="L678" class="LineNr"> 678 </span> <span class="PreProc">var</span> columns?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"columns"</span> +<span id="L679" class="LineNr"> 679 </span> compare columns?, <span class="Constant">0</span>/false +<span id="L680" class="LineNr"> 680 </span> <span class="PreProc">break-if-=</span> +<span id="L681" class="LineNr"> 681 </span> <a href='global.mu.html#L1860'>apply-columns</a> args-ah, out, trace +<span id="L682" class="LineNr"> 682 </span> <span class="PreProc">return</span> +<span id="L683" class="LineNr"> 683 </span> <span class="Delimiter">}</span> +<span id="L684" class="LineNr"> 684 </span> <span class="Delimiter">{</span> +<span id="L685" class="LineNr"> 685 </span> <span class="PreProc">var</span> up?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"up"</span> +<span id="L686" class="LineNr"> 686 </span> compare up?, <span class="Constant">0</span>/false +<span id="L687" class="LineNr"> 687 </span> <span class="PreProc">break-if-=</span> +<span id="L688" class="LineNr"> 688 </span> <a href='global.mu.html#L1495'>apply-up</a> args-ah, out, trace +<span id="L689" class="LineNr"> 689 </span> <span class="PreProc">return</span> +<span id="L690" class="LineNr"> 690 </span> <span class="Delimiter">}</span> +<span id="L691" class="LineNr"> 691 </span> <span class="Delimiter">{</span> +<span id="L692" class="LineNr"> 692 </span> <span class="PreProc">var</span> down?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"down"</span> +<span id="L693" class="LineNr"> 693 </span> compare down?, <span class="Constant">0</span>/false +<span id="L694" class="LineNr"> 694 </span> <span class="PreProc">break-if-=</span> +<span id="L695" class="LineNr"> 695 </span> <a href='global.mu.html#L1525'>apply-down</a> args-ah, out, trace +<span id="L696" class="LineNr"> 696 </span> <span class="PreProc">return</span> +<span id="L697" class="LineNr"> 697 </span> <span class="Delimiter">}</span> +<span id="L698" class="LineNr"> 698 </span> <span class="Delimiter">{</span> +<span id="L699" class="LineNr"> 699 </span> <span class="PreProc">var</span> left?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"left"</span> +<span id="L700" class="LineNr"> 700 </span> compare left?, <span class="Constant">0</span>/false +<span id="L701" class="LineNr"> 701 </span> <span class="PreProc">break-if-=</span> +<span id="L702" class="LineNr"> 702 </span> <a href='global.mu.html#L1555'>apply-left</a> args-ah, out, trace +<span id="L703" class="LineNr"> 703 </span> <span class="PreProc">return</span> +<span id="L704" class="LineNr"> 704 </span> <span class="Delimiter">}</span> +<span id="L705" class="LineNr"> 705 </span> <span class="Delimiter">{</span> +<span id="L706" class="LineNr"> 706 </span> <span class="PreProc">var</span> right?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"right"</span> +<span id="L707" class="LineNr"> 707 </span> compare right?, <span class="Constant">0</span>/false <span id="L708" class="LineNr"> 708 </span> <span class="PreProc">break-if-=</span> -<span id="L709" class="LineNr"> 709 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for + is not a number"</span> +<span id="L709" class="LineNr"> 709 </span> <a href='global.mu.html#L1585'>apply-right</a> args-ah, out, trace <span id="L710" class="LineNr"> 710 </span> <span class="PreProc">return</span> <span id="L711" class="LineNr"> 711 </span> <span class="Delimiter">}</span> -<span id="L712" class="LineNr"> 712 </span> <span class="PreProc">var</span> first-value/<span class="Constant">ecx</span>: (addr float) <span class="Special"><-</span> get first, number-data -<span id="L713" class="LineNr"> 713 </span> <span class="muComment"># args->right->left->value</span> -<span id="L714" class="LineNr"> 714 </span> <span class="PreProc">var</span> right-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, right -<span id="L715" class="LineNr"> 715 </span><span class="CommentedCode">#? dump-cell right-ah</span> -<span id="L716" class="LineNr"> 716 </span><span class="CommentedCode">#? abort "aaa"</span> -<span id="L717" class="LineNr"> 717 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *right-ah -<span id="L718" class="LineNr"> 718 </span> <span class="muComment"># TODO: check that right is a pair</span> -<span id="L719" class="LineNr"> 719 </span> <span class="PreProc">var</span> second-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get right, left -<span id="L720" class="LineNr"> 720 </span> <span class="PreProc">var</span> second/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *second-ah -<span id="L721" class="LineNr"> 721 </span> <span class="PreProc">var</span> second-type/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get second, <span class="PreProc">type</span> -<span id="L722" class="LineNr"> 722 </span> compare *second-type, <span class="Constant">1</span>/number -<span id="L723" class="LineNr"> 723 </span> <span class="Delimiter">{</span> -<span id="L724" class="LineNr"> 724 </span> <span class="PreProc">break-if-=</span> -<span id="L725" class="LineNr"> 725 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"second arg for + is not a number"</span> -<span id="L726" class="LineNr"> 726 </span> <span class="PreProc">return</span> -<span id="L727" class="LineNr"> 727 </span> <span class="Delimiter">}</span> -<span id="L728" class="LineNr"> 728 </span> <span class="PreProc">var</span> second-value/<span class="Constant">edx</span>: (addr float) <span class="Special"><-</span> get second, number-data -<span id="L729" class="LineNr"> 729 </span> <span class="muComment"># add</span> -<span id="L730" class="LineNr"> 730 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *first-value -<span id="L731" class="LineNr"> 731 </span> result <span class="Special"><-</span> add *second-value -<span id="L732" class="LineNr"> 732 </span> <a href='cell.mu.html#L96'>new-float</a> out, result -<span id="L733" class="LineNr"> 733 </span><span class="Delimiter">}</span> -<span id="L734" class="LineNr"> 734 </span> -<span id="L735" class="LineNr"> 735 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L735'>apply-subtract</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L736" class="LineNr"> 736 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply -"</span> -<span id="L737" class="LineNr"> 737 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah -<span id="L738" class="LineNr"> 738 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *args-ah -<span id="L739" class="LineNr"> 739 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args -<span id="L740" class="LineNr"> 740 </span> <span class="muComment"># TODO: check that args is a pair</span> -<span id="L741" class="LineNr"> 741 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> args -<span id="L742" class="LineNr"> 742 </span> compare empty-args?, <span class="Constant">0</span>/false -<span id="L743" class="LineNr"> 743 </span> <span class="Delimiter">{</span> -<span id="L744" class="LineNr"> 744 </span> <span class="PreProc">break-if-=</span> -<span id="L745" class="LineNr"> 745 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"- needs 2 args but got 0"</span> -<span id="L746" class="LineNr"> 746 </span> <span class="PreProc">return</span> -<span id="L747" class="LineNr"> 747 </span> <span class="Delimiter">}</span> -<span id="L748" class="LineNr"> 748 </span> <span class="muComment"># args->left->value</span> -<span id="L749" class="LineNr"> 749 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left -<span id="L750" class="LineNr"> 750 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-ah -<span id="L751" class="LineNr"> 751 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> -<span id="L752" class="LineNr"> 752 </span> compare *first-type, <span class="Constant">1</span>/number -<span id="L753" class="LineNr"> 753 </span> <span class="Delimiter">{</span> -<span id="L754" class="LineNr"> 754 </span> <span class="PreProc">break-if-=</span> -<span id="L755" class="LineNr"> 755 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for - is not a number"</span> -<span id="L756" class="LineNr"> 756 </span> <span class="PreProc">return</span> -<span id="L757" class="LineNr"> 757 </span> <span class="Delimiter">}</span> -<span id="L758" class="LineNr"> 758 </span> <span class="PreProc">var</span> first-value/<span class="Constant">ecx</span>: (addr float) <span class="Special"><-</span> get first, number-data -<span id="L759" class="LineNr"> 759 </span> <span class="muComment"># args->right->left->value</span> -<span id="L760" class="LineNr"> 760 </span> <span class="PreProc">var</span> right-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, right -<span id="L761" class="LineNr"> 761 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *right-ah -<span id="L762" class="LineNr"> 762 </span> <span class="muComment"># TODO: check that right is a pair</span> -<span id="L763" class="LineNr"> 763 </span> <span class="PreProc">var</span> second-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get right, left -<span id="L764" class="LineNr"> 764 </span> <span class="PreProc">var</span> second/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *second-ah -<span id="L765" class="LineNr"> 765 </span> <span class="PreProc">var</span> second-type/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get second, <span class="PreProc">type</span> -<span id="L766" class="LineNr"> 766 </span> compare *second-type, <span class="Constant">1</span>/number -<span id="L767" class="LineNr"> 767 </span> <span class="Delimiter">{</span> -<span id="L768" class="LineNr"> 768 </span> <span class="PreProc">break-if-=</span> -<span id="L769" class="LineNr"> 769 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"second arg for - is not a number"</span> -<span id="L770" class="LineNr"> 770 </span> <span class="PreProc">return</span> -<span id="L771" class="LineNr"> 771 </span> <span class="Delimiter">}</span> -<span id="L772" class="LineNr"> 772 </span> <span class="PreProc">var</span> second-value/<span class="Constant">edx</span>: (addr float) <span class="Special"><-</span> get second, number-data -<span id="L773" class="LineNr"> 773 </span> <span class="muComment"># subtract</span> -<span id="L774" class="LineNr"> 774 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *first-value -<span id="L775" class="LineNr"> 775 </span> result <span class="Special"><-</span> subtract *second-value -<span id="L776" class="LineNr"> 776 </span> <a href='cell.mu.html#L96'>new-float</a> out, result -<span id="L777" class="LineNr"> 777 </span><span class="Delimiter">}</span> -<span id="L778" class="LineNr"> 778 </span> -<span id="L779" class="LineNr"> 779 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L779'>apply-multiply</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L780" class="LineNr"> 780 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply *"</span> -<span id="L781" class="LineNr"> 781 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah -<span id="L782" class="LineNr"> 782 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *args-ah -<span id="L783" class="LineNr"> 783 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args -<span id="L784" class="LineNr"> 784 </span> <span class="muComment"># TODO: check that args is a pair</span> -<span id="L785" class="LineNr"> 785 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> args -<span id="L786" class="LineNr"> 786 </span> compare empty-args?, <span class="Constant">0</span>/false -<span id="L787" class="LineNr"> 787 </span> <span class="Delimiter">{</span> -<span id="L788" class="LineNr"> 788 </span> <span class="PreProc">break-if-=</span> -<span id="L789" class="LineNr"> 789 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"* needs 2 args but got 0"</span> -<span id="L790" class="LineNr"> 790 </span> <span class="PreProc">return</span> -<span id="L791" class="LineNr"> 791 </span> <span class="Delimiter">}</span> -<span id="L792" class="LineNr"> 792 </span> <span class="muComment"># args->left->value</span> -<span id="L793" class="LineNr"> 793 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left -<span id="L794" class="LineNr"> 794 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-ah -<span id="L795" class="LineNr"> 795 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> -<span id="L796" class="LineNr"> 796 </span> compare *first-type, <span class="Constant">1</span>/number -<span id="L797" class="LineNr"> 797 </span> <span class="Delimiter">{</span> -<span id="L798" class="LineNr"> 798 </span> <span class="PreProc">break-if-=</span> -<span id="L799" class="LineNr"> 799 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for * is not a number"</span> -<span id="L800" class="LineNr"> 800 </span> <span class="PreProc">return</span> -<span id="L801" class="LineNr"> 801 </span> <span class="Delimiter">}</span> -<span id="L802" class="LineNr"> 802 </span> <span class="PreProc">var</span> first-value/<span class="Constant">ecx</span>: (addr float) <span class="Special"><-</span> get first, number-data -<span id="L803" class="LineNr"> 803 </span> <span class="muComment"># args->right->left->value</span> -<span id="L804" class="LineNr"> 804 </span> <span class="PreProc">var</span> right-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, right -<span id="L805" class="LineNr"> 805 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *right-ah -<span id="L806" class="LineNr"> 806 </span> <span class="muComment"># TODO: check that right is a pair</span> -<span id="L807" class="LineNr"> 807 </span> <span class="PreProc">var</span> second-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get right, left -<span id="L808" class="LineNr"> 808 </span> <span class="PreProc">var</span> second/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *second-ah -<span id="L809" class="LineNr"> 809 </span> <span class="PreProc">var</span> second-type/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get second, <span class="PreProc">type</span> -<span id="L810" class="LineNr"> 810 </span> compare *second-type, <span class="Constant">1</span>/number -<span id="L811" class="LineNr"> 811 </span> <span class="Delimiter">{</span> -<span id="L812" class="LineNr"> 812 </span> <span class="PreProc">break-if-=</span> -<span id="L813" class="LineNr"> 813 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"second arg for * is not a number"</span> -<span id="L814" class="LineNr"> 814 </span> <span class="PreProc">return</span> -<span id="L815" class="LineNr"> 815 </span> <span class="Delimiter">}</span> -<span id="L816" class="LineNr"> 816 </span> <span class="PreProc">var</span> second-value/<span class="Constant">edx</span>: (addr float) <span class="Special"><-</span> get second, number-data -<span id="L817" class="LineNr"> 817 </span> <span class="muComment"># multiply</span> -<span id="L818" class="LineNr"> 818 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *first-value -<span id="L819" class="LineNr"> 819 </span> result <span class="Special"><-</span> multiply *second-value -<span id="L820" class="LineNr"> 820 </span> <a href='cell.mu.html#L96'>new-float</a> out, result -<span id="L821" class="LineNr"> 821 </span><span class="Delimiter">}</span> -<span id="L822" class="LineNr"> 822 </span> -<span id="L823" class="LineNr"> 823 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L823'>apply-divide</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L824" class="LineNr"> 824 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply /"</span> -<span id="L825" class="LineNr"> 825 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah -<span id="L826" class="LineNr"> 826 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *args-ah -<span id="L827" class="LineNr"> 827 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args -<span id="L828" class="LineNr"> 828 </span> <span class="muComment"># TODO: check that args is a pair</span> -<span id="L829" class="LineNr"> 829 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> args -<span id="L830" class="LineNr"> 830 </span> compare empty-args?, <span class="Constant">0</span>/false -<span id="L831" class="LineNr"> 831 </span> <span class="Delimiter">{</span> -<span id="L832" class="LineNr"> 832 </span> <span class="PreProc">break-if-=</span> -<span id="L833" class="LineNr"> 833 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"/ needs 2 args but got 0"</span> -<span id="L834" class="LineNr"> 834 </span> <span class="PreProc">return</span> -<span id="L835" class="LineNr"> 835 </span> <span class="Delimiter">}</span> -<span id="L836" class="LineNr"> 836 </span> <span class="muComment"># args->left->value</span> -<span id="L837" class="LineNr"> 837 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left -<span id="L838" class="LineNr"> 838 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-ah -<span id="L839" class="LineNr"> 839 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> -<span id="L840" class="LineNr"> 840 </span> compare *first-type, <span class="Constant">1</span>/number -<span id="L841" class="LineNr"> 841 </span> <span class="Delimiter">{</span> -<span id="L842" class="LineNr"> 842 </span> <span class="PreProc">break-if-=</span> -<span id="L843" class="LineNr"> 843 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for / is not a number"</span> -<span id="L844" class="LineNr"> 844 </span> <span class="PreProc">return</span> -<span id="L845" class="LineNr"> 845 </span> <span class="Delimiter">}</span> -<span id="L846" class="LineNr"> 846 </span> <span class="PreProc">var</span> first-value/<span class="Constant">ecx</span>: (addr float) <span class="Special"><-</span> get first, number-data -<span id="L847" class="LineNr"> 847 </span> <span class="muComment"># args->right->left->value</span> -<span id="L848" class="LineNr"> 848 </span> <span class="PreProc">var</span> right-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, right -<span id="L849" class="LineNr"> 849 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *right-ah -<span id="L850" class="LineNr"> 850 </span> <span class="muComment"># TODO: check that right is a pair</span> -<span id="L851" class="LineNr"> 851 </span> <span class="PreProc">var</span> second-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get right, left -<span id="L852" class="LineNr"> 852 </span> <span class="PreProc">var</span> second/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *second-ah -<span id="L853" class="LineNr"> 853 </span> <span class="PreProc">var</span> second-type/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get second, <span class="PreProc">type</span> -<span id="L854" class="LineNr"> 854 </span> compare *second-type, <span class="Constant">1</span>/number -<span id="L855" class="LineNr"> 855 </span> <span class="Delimiter">{</span> -<span id="L856" class="LineNr"> 856 </span> <span class="PreProc">break-if-=</span> -<span id="L857" class="LineNr"> 857 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"second arg for / is not a number"</span> -<span id="L858" class="LineNr"> 858 </span> <span class="PreProc">return</span> -<span id="L859" class="LineNr"> 859 </span> <span class="Delimiter">}</span> -<span id="L860" class="LineNr"> 860 </span> <span class="PreProc">var</span> second-value/<span class="Constant">edx</span>: (addr float) <span class="Special"><-</span> get second, number-data -<span id="L861" class="LineNr"> 861 </span> <span class="muComment"># divide</span> -<span id="L862" class="LineNr"> 862 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *first-value -<span id="L863" class="LineNr"> 863 </span> result <span class="Special"><-</span> divide *second-value -<span id="L864" class="LineNr"> 864 </span> <a href='cell.mu.html#L96'>new-float</a> out, result -<span id="L865" class="LineNr"> 865 </span><span class="Delimiter">}</span> -<span id="L866" class="LineNr"> 866 </span> -<span id="L867" class="LineNr"> 867 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L867'>apply-square-root</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L868" class="LineNr"> 868 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply sqrt"</span> -<span id="L869" class="LineNr"> 869 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah -<span id="L870" class="LineNr"> 870 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *args-ah -<span id="L871" class="LineNr"> 871 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args -<span id="L872" class="LineNr"> 872 </span> <span class="muComment"># TODO: check that args is a pair</span> -<span id="L873" class="LineNr"> 873 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> args -<span id="L874" class="LineNr"> 874 </span> compare empty-args?, <span class="Constant">0</span>/false -<span id="L875" class="LineNr"> 875 </span> <span class="Delimiter">{</span> -<span id="L876" class="LineNr"> 876 </span> <span class="PreProc">break-if-=</span> -<span id="L877" class="LineNr"> 877 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"sqrt needs 1 args but got 0"</span> -<span id="L878" class="LineNr"> 878 </span> <span class="PreProc">return</span> -<span id="L879" class="LineNr"> 879 </span> <span class="Delimiter">}</span> -<span id="L880" class="LineNr"> 880 </span> <span class="muComment"># args->left->value</span> -<span id="L881" class="LineNr"> 881 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left -<span id="L882" class="LineNr"> 882 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-ah -<span id="L883" class="LineNr"> 883 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> -<span id="L884" class="LineNr"> 884 </span> compare *first-type, <span class="Constant">1</span>/number -<span id="L885" class="LineNr"> 885 </span> <span class="Delimiter">{</span> -<span id="L886" class="LineNr"> 886 </span> <span class="PreProc">break-if-=</span> -<span id="L887" class="LineNr"> 887 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"arg for sqrt is not a number"</span> -<span id="L888" class="LineNr"> 888 </span> <span class="PreProc">return</span> -<span id="L889" class="LineNr"> 889 </span> <span class="Delimiter">}</span> -<span id="L890" class="LineNr"> 890 </span> <span class="PreProc">var</span> first-value/<span class="Constant">ecx</span>: (addr float) <span class="Special"><-</span> get first, number-data -<span id="L891" class="LineNr"> 891 </span> <span class="muComment"># square-root</span> -<span id="L892" class="LineNr"> 892 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> square-root *first-value -<span id="L893" class="LineNr"> 893 </span> <a href='cell.mu.html#L96'>new-float</a> out, result -<span id="L894" class="LineNr"> 894 </span><span class="Delimiter">}</span> -<span id="L895" class="LineNr"> 895 </span> -<span id="L896" class="LineNr"> 896 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L896'>apply-abs</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L897" class="LineNr"> 897 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply abs"</span> -<span id="L898" class="LineNr"> 898 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah -<span id="L899" class="LineNr"> 899 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *args-ah -<span id="L900" class="LineNr"> 900 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args -<span id="L901" class="LineNr"> 901 </span> <span class="muComment"># TODO: check that args is a pair</span> -<span id="L902" class="LineNr"> 902 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> args -<span id="L903" class="LineNr"> 903 </span> compare empty-args?, <span class="Constant">0</span>/false -<span id="L904" class="LineNr"> 904 </span> <span class="Delimiter">{</span> -<span id="L905" class="LineNr"> 905 </span> <span class="PreProc">break-if-=</span> -<span id="L906" class="LineNr"> 906 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"abs needs 1 args but got 0"</span> -<span id="L907" class="LineNr"> 907 </span> <span class="PreProc">return</span> -<span id="L908" class="LineNr"> 908 </span> <span class="Delimiter">}</span> -<span id="L909" class="LineNr"> 909 </span> <span class="muComment"># args->left->value</span> -<span id="L910" class="LineNr"> 910 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left -<span id="L911" class="LineNr"> 911 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-ah -<span id="L912" class="LineNr"> 912 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> -<span id="L913" class="LineNr"> 913 </span> compare *first-type, <span class="Constant">1</span>/number -<span id="L914" class="LineNr"> 914 </span> <span class="Delimiter">{</span> -<span id="L915" class="LineNr"> 915 </span> <span class="PreProc">break-if-=</span> -<span id="L916" class="LineNr"> 916 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"arg for abs is not a number"</span> -<span id="L917" class="LineNr"> 917 </span> <span class="PreProc">return</span> -<span id="L918" class="LineNr"> 918 </span> <span class="Delimiter">}</span> -<span id="L919" class="LineNr"> 919 </span> <span class="PreProc">var</span> first-value/<span class="Constant">ecx</span>: (addr float) <span class="Special"><-</span> get first, number-data -<span id="L920" class="LineNr"> 920 </span> <span class="muComment">#</span> -<span id="L921" class="LineNr"> 921 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *first-value -<span id="L922" class="LineNr"> 922 </span> <span class="PreProc">var</span> zero: float -<span id="L923" class="LineNr"> 923 </span> compare result, zero -<span id="L924" class="LineNr"> 924 </span> <span class="Delimiter">{</span> -<span id="L925" class="LineNr"> 925 </span> <span class="PreProc">break-if-float>=</span> -<span id="L926" class="LineNr"> 926 </span> <span class="PreProc">var</span> neg1/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">-1</span> -<span id="L927" class="LineNr"> 927 </span> <span class="PreProc">var</span> neg1-f/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> convert neg1 -<span id="L928" class="LineNr"> 928 </span> result <span class="Special"><-</span> multiply neg1-f -<span id="L929" class="LineNr"> 929 </span> <span class="Delimiter">}</span> -<span id="L930" class="LineNr"> 930 </span> <a href='cell.mu.html#L96'>new-float</a> out, result -<span id="L931" class="LineNr"> 931 </span><span class="Delimiter">}</span> -<span id="L932" class="LineNr"> 932 </span> -<span id="L933" class="LineNr"> 933 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L933'>apply-sgn</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L934" class="LineNr"> 934 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply sgn"</span> -<span id="L935" class="LineNr"> 935 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah -<span id="L936" class="LineNr"> 936 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *args-ah -<span id="L937" class="LineNr"> 937 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args -<span id="L938" class="LineNr"> 938 </span> <span class="muComment"># TODO: check that args is a pair</span> -<span id="L939" class="LineNr"> 939 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> args -<span id="L940" class="LineNr"> 940 </span> compare empty-args?, <span class="Constant">0</span>/false -<span id="L941" class="LineNr"> 941 </span> <span class="Delimiter">{</span> -<span id="L942" class="LineNr"> 942 </span> <span class="PreProc">break-if-=</span> -<span id="L943" class="LineNr"> 943 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"sgn needs 1 args but got 0"</span> -<span id="L944" class="LineNr"> 944 </span> <span class="PreProc">return</span> -<span id="L945" class="LineNr"> 945 </span> <span class="Delimiter">}</span> -<span id="L946" class="LineNr"> 946 </span> <span class="muComment"># args->left->value</span> -<span id="L947" class="LineNr"> 947 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left -<span id="L948" class="LineNr"> 948 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-ah -<span id="L949" class="LineNr"> 949 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> -<span id="L950" class="LineNr"> 950 </span> compare *first-type, <span class="Constant">1</span>/number -<span id="L951" class="LineNr"> 951 </span> <span class="Delimiter">{</span> -<span id="L952" class="LineNr"> 952 </span> <span class="PreProc">break-if-=</span> -<span id="L953" class="LineNr"> 953 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"arg for sgn is not a number"</span> -<span id="L954" class="LineNr"> 954 </span> <span class="PreProc">return</span> -<span id="L955" class="LineNr"> 955 </span> <span class="Delimiter">}</span> -<span id="L956" class="LineNr"> 956 </span> <span class="PreProc">var</span> first-value/<span class="Constant">ecx</span>: (addr float) <span class="Special"><-</span> get first, number-data -<span id="L957" class="LineNr"> 957 </span> <span class="muComment">#</span> -<span id="L958" class="LineNr"> 958 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *first-value -<span id="L959" class="LineNr"> 959 </span> <span class="PreProc">var</span> zero: float -<span id="L960" class="LineNr"> 960 </span> $apply-sgn:core: <span class="Delimiter">{</span> -<span id="L961" class="LineNr"> 961 </span> compare result, zero -<span id="L962" class="LineNr"> 962 </span> <span class="PreProc">break-if-=</span> -<span id="L963" class="LineNr"> 963 </span> <span class="Delimiter">{</span> -<span id="L964" class="LineNr"> 964 </span> <span class="PreProc">break-if-float></span> -<span id="L965" class="LineNr"> 965 </span> <span class="PreProc">var</span> neg1/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">-1</span> -<span id="L966" class="LineNr"> 966 </span> result <span class="Special"><-</span> convert neg1 -<span id="L967" class="LineNr"> 967 </span> <span class="PreProc">break</span> $apply-sgn:core -<span id="L968" class="LineNr"> 968 </span> <span class="Delimiter">}</span> -<span id="L969" class="LineNr"> 969 </span> <span class="Delimiter">{</span> -<span id="L970" class="LineNr"> 970 </span> <span class="PreProc">break-if-float<</span> -<span id="L971" class="LineNr"> 971 </span> <span class="PreProc">var</span> one/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> -<span id="L972" class="LineNr"> 972 </span> result <span class="Special"><-</span> convert one -<span id="L973" class="LineNr"> 973 </span> <span class="PreProc">break</span> $apply-sgn:core -<span id="L974" class="LineNr"> 974 </span> <span class="Delimiter">}</span> -<span id="L975" class="LineNr"> 975 </span> <span class="Delimiter">}</span> -<span id="L976" class="LineNr"> 976 </span> <a href='cell.mu.html#L96'>new-float</a> out, result -<span id="L977" class="LineNr"> 977 </span><span class="Delimiter">}</span> -<span id="L978" class="LineNr"> 978 </span> -<span id="L979" class="LineNr"> 979 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L979'>apply-car</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L980" class="LineNr"> 980 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply car"</span> -<span id="L981" class="LineNr"> 981 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah -<span id="L982" class="LineNr"> 982 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *args-ah -<span id="L983" class="LineNr"> 983 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args -<span id="L984" class="LineNr"> 984 </span> <span class="muComment"># TODO: check that args is a pair</span> -<span id="L985" class="LineNr"> 985 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> args -<span id="L986" class="LineNr"> 986 </span> compare empty-args?, <span class="Constant">0</span>/false -<span id="L987" class="LineNr"> 987 </span> <span class="Delimiter">{</span> -<span id="L988" class="LineNr"> 988 </span> <span class="PreProc">break-if-=</span> -<span id="L989" class="LineNr"> 989 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"car needs 1 args but got 0"</span> -<span id="L990" class="LineNr"> 990 </span> <span class="PreProc">return</span> -<span id="L991" class="LineNr"> 991 </span> <span class="Delimiter">}</span> -<span id="L992" class="LineNr"> 992 </span> <span class="muComment"># args->left</span> -<span id="L993" class="LineNr"> 993 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left -<span id="L994" class="LineNr"> 994 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-ah -<span id="L995" class="LineNr"> 995 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> -<span id="L996" class="LineNr"> 996 </span> compare *first-type, <span class="Constant">0</span>/pair -<span id="L997" class="LineNr"> 997 </span> <span class="Delimiter">{</span> -<span id="L998" class="LineNr"> 998 </span> <span class="PreProc">break-if-=</span> -<span id="L999" class="LineNr"> 999 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"arg for <a href='evaluate.mu.html#L922'>car</a> is not a pair"</span> -<span id="L1000" class="LineNr">1000 </span> <span class="PreProc">return</span> -<span id="L1001" class="LineNr">1001 </span> <span class="Delimiter">}</span> -<span id="L1002" class="LineNr">1002 </span> <span class="muComment"># car</span> -<span id="L1003" class="LineNr">1003 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get first, left -<span id="L1004" class="LineNr">1004 </span> copy-object result, out -<span id="L1005" class="LineNr">1005 </span><span class="Delimiter">}</span> -<span id="L1006" class="LineNr">1006 </span> -<span id="L1007" class="LineNr">1007 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1007'>apply-cdr</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L1008" class="LineNr">1008 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply cdr"</span> -<span id="L1009" class="LineNr">1009 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah -<span id="L1010" class="LineNr">1010 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *args-ah -<span id="L1011" class="LineNr">1011 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args -<span id="L1012" class="LineNr">1012 </span> <span class="muComment"># TODO: check that args is a pair</span> -<span id="L1013" class="LineNr">1013 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> args -<span id="L1014" class="LineNr">1014 </span> compare empty-args?, <span class="Constant">0</span>/false -<span id="L1015" class="LineNr">1015 </span> <span class="Delimiter">{</span> -<span id="L1016" class="LineNr">1016 </span> <span class="PreProc">break-if-=</span> -<span id="L1017" class="LineNr">1017 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"cdr needs 1 args but got 0"</span> -<span id="L1018" class="LineNr">1018 </span> <span class="PreProc">return</span> -<span id="L1019" class="LineNr">1019 </span> <span class="Delimiter">}</span> -<span id="L1020" class="LineNr">1020 </span> <span class="muComment"># args->left</span> -<span id="L1021" class="LineNr">1021 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left -<span id="L1022" class="LineNr">1022 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-ah -<span id="L1023" class="LineNr">1023 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> -<span id="L1024" class="LineNr">1024 </span> compare *first-type, <span class="Constant">0</span>/pair -<span id="L1025" class="LineNr">1025 </span> <span class="Delimiter">{</span> -<span id="L1026" class="LineNr">1026 </span> <span class="PreProc">break-if-=</span> -<span id="L1027" class="LineNr">1027 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"arg for <a href='evaluate.mu.html#L950'>cdr</a> is not a pair"</span> -<span id="L1028" class="LineNr">1028 </span> <span class="PreProc">return</span> -<span id="L1029" class="LineNr">1029 </span> <span class="Delimiter">}</span> -<span id="L1030" class="LineNr">1030 </span> <span class="muComment"># cdr</span> -<span id="L1031" class="LineNr">1031 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get first, right -<span id="L1032" class="LineNr">1032 </span> copy-object result, out -<span id="L1033" class="LineNr">1033 </span><span class="Delimiter">}</span> -<span id="L1034" class="LineNr">1034 </span> -<span id="L1035" class="LineNr">1035 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1035'>apply-cons</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L1036" class="LineNr">1036 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply cons"</span> -<span id="L1037" class="LineNr">1037 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah -<span id="L1038" class="LineNr">1038 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *args-ah -<span id="L1039" class="LineNr">1039 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args -<span id="L1040" class="LineNr">1040 </span> <span class="muComment"># TODO: check that args is a pair</span> -<span id="L1041" class="LineNr">1041 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> args -<span id="L1042" class="LineNr">1042 </span> compare empty-args?, <span class="Constant">0</span>/false -<span id="L1043" class="LineNr">1043 </span> <span class="Delimiter">{</span> +<span id="L712" class="LineNr"> 712 </span> <span class="Delimiter">{</span> +<span id="L713" class="LineNr"> 713 </span> <span class="PreProc">var</span> cr?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"cr"</span> +<span id="L714" class="LineNr"> 714 </span> compare cr?, <span class="Constant">0</span>/false +<span id="L715" class="LineNr"> 715 </span> <span class="PreProc">break-if-=</span> +<span id="L716" class="LineNr"> 716 </span> <a href='global.mu.html#L1615'>apply-cr</a> args-ah, out, trace +<span id="L717" class="LineNr"> 717 </span> <span class="PreProc">return</span> +<span id="L718" class="LineNr"> 718 </span> <span class="Delimiter">}</span> +<span id="L719" class="LineNr"> 719 </span> <span class="Delimiter">{</span> +<span id="L720" class="LineNr"> 720 </span> <span class="PreProc">var</span> pixel?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"pixel"</span> +<span id="L721" class="LineNr"> 721 </span> compare pixel?, <span class="Constant">0</span>/false +<span id="L722" class="LineNr"> 722 </span> <span class="PreProc">break-if-=</span> +<span id="L723" class="LineNr"> 723 </span> <a href='global.mu.html#L1645'>apply-pixel</a> args-ah, out, trace +<span id="L724" class="LineNr"> 724 </span> <span class="PreProc">return</span> +<span id="L725" class="LineNr"> 725 </span> <span class="Delimiter">}</span> +<span id="L726" class="LineNr"> 726 </span> <span class="Delimiter">{</span> +<span id="L727" class="LineNr"> 727 </span> <span class="PreProc">var</span> width?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"width"</span> +<span id="L728" class="LineNr"> 728 </span> compare width?, <span class="Constant">0</span>/false +<span id="L729" class="LineNr"> 729 </span> <span class="PreProc">break-if-=</span> +<span id="L730" class="LineNr"> 730 </span> <a href='global.mu.html#L1894'>apply-width</a> args-ah, out, trace +<span id="L731" class="LineNr"> 731 </span> <span class="PreProc">return</span> +<span id="L732" class="LineNr"> 732 </span> <span class="Delimiter">}</span> +<span id="L733" class="LineNr"> 733 </span> <span class="Delimiter">{</span> +<span id="L734" class="LineNr"> 734 </span> <span class="PreProc">var</span> height?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"height"</span> +<span id="L735" class="LineNr"> 735 </span> compare height?, <span class="Constant">0</span>/false +<span id="L736" class="LineNr"> 736 </span> <span class="PreProc">break-if-=</span> +<span id="L737" class="LineNr"> 737 </span> <a href='global.mu.html#L1929'>apply-height</a> args-ah, out, trace +<span id="L738" class="LineNr"> 738 </span> <span class="PreProc">return</span> +<span id="L739" class="LineNr"> 739 </span> <span class="Delimiter">}</span> +<span id="L740" class="LineNr"> 740 </span> <span class="Delimiter">{</span> +<span id="L741" class="LineNr"> 741 </span> <span class="PreProc">var</span> wait-for-key?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"key"</span> +<span id="L742" class="LineNr"> 742 </span> compare wait-for-key?, <span class="Constant">0</span>/false +<span id="L743" class="LineNr"> 743 </span> <span class="PreProc">break-if-=</span> +<span id="L744" class="LineNr"> 744 </span> <a href='global.mu.html#L1723'>apply-wait-for-key</a> args-ah, out, trace +<span id="L745" class="LineNr"> 745 </span> <span class="PreProc">return</span> +<span id="L746" class="LineNr"> 746 </span> <span class="Delimiter">}</span> +<span id="L747" class="LineNr"> 747 </span> <span class="Delimiter">{</span> +<span id="L748" class="LineNr"> 748 </span> <span class="PreProc">var</span> stream?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"stream"</span> +<span id="L749" class="LineNr"> 749 </span> compare stream?, <span class="Constant">0</span>/false +<span id="L750" class="LineNr"> 750 </span> <span class="PreProc">break-if-=</span> +<span id="L751" class="LineNr"> 751 </span> <a href='global.mu.html#L1769'>apply-stream</a> args-ah, out, trace +<span id="L752" class="LineNr"> 752 </span> <span class="PreProc">return</span> +<span id="L753" class="LineNr"> 753 </span> <span class="Delimiter">}</span> +<span id="L754" class="LineNr"> 754 </span> <span class="Delimiter">{</span> +<span id="L755" class="LineNr"> 755 </span> <span class="PreProc">var</span> write?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"write"</span> +<span id="L756" class="LineNr"> 756 </span> compare write?, <span class="Constant">0</span>/false +<span id="L757" class="LineNr"> 757 </span> <span class="PreProc">break-if-=</span> +<span id="L758" class="LineNr"> 758 </span> <a href='global.mu.html#L1774'>apply-write</a> args-ah, out, trace +<span id="L759" class="LineNr"> 759 </span> <span class="PreProc">return</span> +<span id="L760" class="LineNr"> 760 </span> <span class="Delimiter">}</span> +<span id="L761" class="LineNr"> 761 </span> <span class="Delimiter">{</span> +<span id="L762" class="LineNr"> 762 </span> <span class="PreProc">var</span> abort?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> f-name, <span class="Constant">"abort"</span> +<span id="L763" class="LineNr"> 763 </span> compare abort?, <span class="Constant">0</span>/false +<span id="L764" class="LineNr"> 764 </span> <span class="PreProc">break-if-=</span> +<span id="L765" class="LineNr"> 765 </span> <a href='global.mu.html#L1856'>apply-abort</a> args-ah, out, trace +<span id="L766" class="LineNr"> 766 </span> <span class="PreProc">return</span> +<span id="L767" class="LineNr"> 767 </span> <span class="Delimiter">}</span> +<span id="L768" class="LineNr"> 768 </span> <a href='../317abort.subx.html#L5'>abort</a> <span class="Constant">"unknown primitive function"</span> +<span id="L769" class="LineNr"> 769 </span><span class="Delimiter">}</span> +<span id="L770" class="LineNr"> 770 </span> +<span id="L771" class="LineNr"> 771 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L771'>apply-add</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L772" class="LineNr"> 772 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply +"</span> +<span id="L773" class="LineNr"> 773 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah +<span id="L774" class="LineNr"> 774 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *args-ah +<span id="L775" class="LineNr"> 775 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args +<span id="L776" class="LineNr"> 776 </span> <span class="muComment"># TODO: check that args is a pair</span> +<span id="L777" class="LineNr"> 777 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> args +<span id="L778" class="LineNr"> 778 </span> compare empty-args?, <span class="Constant">0</span>/false +<span id="L779" class="LineNr"> 779 </span> <span class="Delimiter">{</span> +<span id="L780" class="LineNr"> 780 </span> <span class="PreProc">break-if-=</span> +<span id="L781" class="LineNr"> 781 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"+ needs 2 args but got 0"</span> +<span id="L782" class="LineNr"> 782 </span> <span class="PreProc">return</span> +<span id="L783" class="LineNr"> 783 </span> <span class="Delimiter">}</span> +<span id="L784" class="LineNr"> 784 </span> <span class="muComment"># args->left->value</span> +<span id="L785" class="LineNr"> 785 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left +<span id="L786" class="LineNr"> 786 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-ah +<span id="L787" class="LineNr"> 787 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> +<span id="L788" class="LineNr"> 788 </span> compare *first-type, <span class="Constant">1</span>/number +<span id="L789" class="LineNr"> 789 </span> <span class="Delimiter">{</span> +<span id="L790" class="LineNr"> 790 </span> <span class="PreProc">break-if-=</span> +<span id="L791" class="LineNr"> 791 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for + is not a number"</span> +<span id="L792" class="LineNr"> 792 </span> <span class="PreProc">return</span> +<span id="L793" class="LineNr"> 793 </span> <span class="Delimiter">}</span> +<span id="L794" class="LineNr"> 794 </span> <span class="PreProc">var</span> first-value/<span class="Constant">ecx</span>: (addr float) <span class="Special"><-</span> get first, number-data +<span id="L795" class="LineNr"> 795 </span> <span class="muComment"># args->right->left->value</span> +<span id="L796" class="LineNr"> 796 </span> <span class="PreProc">var</span> right-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, right +<span id="L797" class="LineNr"> 797 </span><span class="CommentedCode">#? dump-cell right-ah</span> +<span id="L798" class="LineNr"> 798 </span><span class="CommentedCode">#? abort "aaa"</span> +<span id="L799" class="LineNr"> 799 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *right-ah +<span id="L800" class="LineNr"> 800 </span> <span class="muComment"># TODO: check that right is a pair</span> +<span id="L801" class="LineNr"> 801 </span> <span class="PreProc">var</span> second-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get right, left +<span id="L802" class="LineNr"> 802 </span> <span class="PreProc">var</span> second/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *second-ah +<span id="L803" class="LineNr"> 803 </span> <span class="PreProc">var</span> second-type/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get second, <span class="PreProc">type</span> +<span id="L804" class="LineNr"> 804 </span> compare *second-type, <span class="Constant">1</span>/number +<span id="L805" class="LineNr"> 805 </span> <span class="Delimiter">{</span> +<span id="L806" class="LineNr"> 806 </span> <span class="PreProc">break-if-=</span> +<span id="L807" class="LineNr"> 807 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"second arg for + is not a number"</span> +<span id="L808" class="LineNr"> 808 </span> <span class="PreProc">return</span> +<span id="L809" class="LineNr"> 809 </span> <span class="Delimiter">}</span> +<span id="L810" class="LineNr"> 810 </span> <span class="PreProc">var</span> second-value/<span class="Constant">edx</span>: (addr float) <span class="Special"><-</span> get second, number-data +<span id="L811" class="LineNr"> 811 </span> <span class="muComment"># add</span> +<span id="L812" class="LineNr"> 812 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *first-value +<span id="L813" class="LineNr"> 813 </span> result <span class="Special"><-</span> add *second-value +<span id="L814" class="LineNr"> 814 </span> <a href='cell.mu.html#L97'>new-float</a> out, result +<span id="L815" class="LineNr"> 815 </span><span class="Delimiter">}</span> +<span id="L816" class="LineNr"> 816 </span> +<span id="L817" class="LineNr"> 817 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L817'>apply-subtract</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L818" class="LineNr"> 818 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply -"</span> +<span id="L819" class="LineNr"> 819 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah +<span id="L820" class="LineNr"> 820 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *args-ah +<span id="L821" class="LineNr"> 821 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args +<span id="L822" class="LineNr"> 822 </span> <span class="muComment"># TODO: check that args is a pair</span> +<span id="L823" class="LineNr"> 823 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> args +<span id="L824" class="LineNr"> 824 </span> compare empty-args?, <span class="Constant">0</span>/false +<span id="L825" class="LineNr"> 825 </span> <span class="Delimiter">{</span> +<span id="L826" class="LineNr"> 826 </span> <span class="PreProc">break-if-=</span> +<span id="L827" class="LineNr"> 827 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"- needs 2 args but got 0"</span> +<span id="L828" class="LineNr"> 828 </span> <span class="PreProc">return</span> +<span id="L829" class="LineNr"> 829 </span> <span class="Delimiter">}</span> +<span id="L830" class="LineNr"> 830 </span> <span class="muComment"># args->left->value</span> +<span id="L831" class="LineNr"> 831 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left +<span id="L832" class="LineNr"> 832 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-ah +<span id="L833" class="LineNr"> 833 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> +<span id="L834" class="LineNr"> 834 </span> compare *first-type, <span class="Constant">1</span>/number +<span id="L835" class="LineNr"> 835 </span> <span class="Delimiter">{</span> +<span id="L836" class="LineNr"> 836 </span> <span class="PreProc">break-if-=</span> +<span id="L837" class="LineNr"> 837 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for - is not a number"</span> +<span id="L838" class="LineNr"> 838 </span> <span class="PreProc">return</span> +<span id="L839" class="LineNr"> 839 </span> <span class="Delimiter">}</span> +<span id="L840" class="LineNr"> 840 </span> <span class="PreProc">var</span> first-value/<span class="Constant">ecx</span>: (addr float) <span class="Special"><-</span> get first, number-data +<span id="L841" class="LineNr"> 841 </span> <span class="muComment"># args->right->left->value</span> +<span id="L842" class="LineNr"> 842 </span> <span class="PreProc">var</span> right-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, right +<span id="L843" class="LineNr"> 843 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *right-ah +<span id="L844" class="LineNr"> 844 </span> <span class="muComment"># TODO: check that right is a pair</span> +<span id="L845" class="LineNr"> 845 </span> <span class="PreProc">var</span> second-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get right, left +<span id="L846" class="LineNr"> 846 </span> <span class="PreProc">var</span> second/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *second-ah +<span id="L847" class="LineNr"> 847 </span> <span class="PreProc">var</span> second-type/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get second, <span class="PreProc">type</span> +<span id="L848" class="LineNr"> 848 </span> compare *second-type, <span class="Constant">1</span>/number +<span id="L849" class="LineNr"> 849 </span> <span class="Delimiter">{</span> +<span id="L850" class="LineNr"> 850 </span> <span class="PreProc">break-if-=</span> +<span id="L851" class="LineNr"> 851 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"second arg for - is not a number"</span> +<span id="L852" class="LineNr"> 852 </span> <span class="PreProc">return</span> +<span id="L853" class="LineNr"> 853 </span> <span class="Delimiter">}</span> +<span id="L854" class="LineNr"> 854 </span> <span class="PreProc">var</span> second-value/<span class="Constant">edx</span>: (addr float) <span class="Special"><-</span> get second, number-data +<span id="L855" class="LineNr"> 855 </span> <span class="muComment"># subtract</span> +<span id="L856" class="LineNr"> 856 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *first-value +<span id="L857" class="LineNr"> 857 </span> result <span class="Special"><-</span> subtract *second-value +<span id="L858" class="LineNr"> 858 </span> <a href='cell.mu.html#L97'>new-float</a> out, result +<span id="L859" class="LineNr"> 859 </span><span class="Delimiter">}</span> +<span id="L860" class="LineNr"> 860 </span> +<span id="L861" class="LineNr"> 861 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L861'>apply-multiply</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L862" class="LineNr"> 862 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply *"</span> +<span id="L863" class="LineNr"> 863 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah +<span id="L864" class="LineNr"> 864 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *args-ah +<span id="L865" class="LineNr"> 865 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args +<span id="L866" class="LineNr"> 866 </span> <span class="muComment"># TODO: check that args is a pair</span> +<span id="L867" class="LineNr"> 867 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> args +<span id="L868" class="LineNr"> 868 </span> compare empty-args?, <span class="Constant">0</span>/false +<span id="L869" class="LineNr"> 869 </span> <span class="Delimiter">{</span> +<span id="L870" class="LineNr"> 870 </span> <span class="PreProc">break-if-=</span> +<span id="L871" class="LineNr"> 871 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"* needs 2 args but got 0"</span> +<span id="L872" class="LineNr"> 872 </span> <span class="PreProc">return</span> +<span id="L873" class="LineNr"> 873 </span> <span class="Delimiter">}</span> +<span id="L874" class="LineNr"> 874 </span> <span class="muComment"># args->left->value</span> +<span id="L875" class="LineNr"> 875 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left +<span id="L876" class="LineNr"> 876 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-ah +<span id="L877" class="LineNr"> 877 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> +<span id="L878" class="LineNr"> 878 </span> compare *first-type, <span class="Constant">1</span>/number +<span id="L879" class="LineNr"> 879 </span> <span class="Delimiter">{</span> +<span id="L880" class="LineNr"> 880 </span> <span class="PreProc">break-if-=</span> +<span id="L881" class="LineNr"> 881 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for * is not a number"</span> +<span id="L882" class="LineNr"> 882 </span> <span class="PreProc">return</span> +<span id="L883" class="LineNr"> 883 </span> <span class="Delimiter">}</span> +<span id="L884" class="LineNr"> 884 </span> <span class="PreProc">var</span> first-value/<span class="Constant">ecx</span>: (addr float) <span class="Special"><-</span> get first, number-data +<span id="L885" class="LineNr"> 885 </span> <span class="muComment"># args->right->left->value</span> +<span id="L886" class="LineNr"> 886 </span> <span class="PreProc">var</span> right-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, right +<span id="L887" class="LineNr"> 887 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *right-ah +<span id="L888" class="LineNr"> 888 </span> <span class="muComment"># TODO: check that right is a pair</span> +<span id="L889" class="LineNr"> 889 </span> <span class="PreProc">var</span> second-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get right, left +<span id="L890" class="LineNr"> 890 </span> <span class="PreProc">var</span> second/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *second-ah +<span id="L891" class="LineNr"> 891 </span> <span class="PreProc">var</span> second-type/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get second, <span class="PreProc">type</span> +<span id="L892" class="LineNr"> 892 </span> compare *second-type, <span class="Constant">1</span>/number +<span id="L893" class="LineNr"> 893 </span> <span class="Delimiter">{</span> +<span id="L894" class="LineNr"> 894 </span> <span class="PreProc">break-if-=</span> +<span id="L895" class="LineNr"> 895 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"second arg for * is not a number"</span> +<span id="L896" class="LineNr"> 896 </span> <span class="PreProc">return</span> +<span id="L897" class="LineNr"> 897 </span> <span class="Delimiter">}</span> +<span id="L898" class="LineNr"> 898 </span> <span class="PreProc">var</span> second-value/<span class="Constant">edx</span>: (addr float) <span class="Special"><-</span> get second, number-data +<span id="L899" class="LineNr"> 899 </span> <span class="muComment"># multiply</span> +<span id="L900" class="LineNr"> 900 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *first-value +<span id="L901" class="LineNr"> 901 </span> result <span class="Special"><-</span> multiply *second-value +<span id="L902" class="LineNr"> 902 </span> <a href='cell.mu.html#L97'>new-float</a> out, result +<span id="L903" class="LineNr"> 903 </span><span class="Delimiter">}</span> +<span id="L904" class="LineNr"> 904 </span> +<span id="L905" class="LineNr"> 905 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L905'>apply-divide</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L906" class="LineNr"> 906 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply /"</span> +<span id="L907" class="LineNr"> 907 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah +<span id="L908" class="LineNr"> 908 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *args-ah +<span id="L909" class="LineNr"> 909 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args +<span id="L910" class="LineNr"> 910 </span> <span class="muComment"># TODO: check that args is a pair</span> +<span id="L911" class="LineNr"> 911 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> args +<span id="L912" class="LineNr"> 912 </span> compare empty-args?, <span class="Constant">0</span>/false +<span id="L913" class="LineNr"> 913 </span> <span class="Delimiter">{</span> +<span id="L914" class="LineNr"> 914 </span> <span class="PreProc">break-if-=</span> +<span id="L915" class="LineNr"> 915 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"/ needs 2 args but got 0"</span> +<span id="L916" class="LineNr"> 916 </span> <span class="PreProc">return</span> +<span id="L917" class="LineNr"> 917 </span> <span class="Delimiter">}</span> +<span id="L918" class="LineNr"> 918 </span> <span class="muComment"># args->left->value</span> +<span id="L919" class="LineNr"> 919 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left +<span id="L920" class="LineNr"> 920 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-ah +<span id="L921" class="LineNr"> 921 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> +<span id="L922" class="LineNr"> 922 </span> compare *first-type, <span class="Constant">1</span>/number +<span id="L923" class="LineNr"> 923 </span> <span class="Delimiter">{</span> +<span id="L924" class="LineNr"> 924 </span> <span class="PreProc">break-if-=</span> +<span id="L925" class="LineNr"> 925 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for / is not a number"</span> +<span id="L926" class="LineNr"> 926 </span> <span class="PreProc">return</span> +<span id="L927" class="LineNr"> 927 </span> <span class="Delimiter">}</span> +<span id="L928" class="LineNr"> 928 </span> <span class="PreProc">var</span> first-value/<span class="Constant">ecx</span>: (addr float) <span class="Special"><-</span> get first, number-data +<span id="L929" class="LineNr"> 929 </span> <span class="muComment"># args->right->left->value</span> +<span id="L930" class="LineNr"> 930 </span> <span class="PreProc">var</span> right-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, right +<span id="L931" class="LineNr"> 931 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *right-ah +<span id="L932" class="LineNr"> 932 </span> <span class="muComment"># TODO: check that right is a pair</span> +<span id="L933" class="LineNr"> 933 </span> <span class="PreProc">var</span> second-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get right, left +<span id="L934" class="LineNr"> 934 </span> <span class="PreProc">var</span> second/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *second-ah +<span id="L935" class="LineNr"> 935 </span> <span class="PreProc">var</span> second-type/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get second, <span class="PreProc">type</span> +<span id="L936" class="LineNr"> 936 </span> compare *second-type, <span class="Constant">1</span>/number +<span id="L937" class="LineNr"> 937 </span> <span class="Delimiter">{</span> +<span id="L938" class="LineNr"> 938 </span> <span class="PreProc">break-if-=</span> +<span id="L939" class="LineNr"> 939 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"second arg for / is not a number"</span> +<span id="L940" class="LineNr"> 940 </span> <span class="PreProc">return</span> +<span id="L941" class="LineNr"> 941 </span> <span class="Delimiter">}</span> +<span id="L942" class="LineNr"> 942 </span> <span class="PreProc">var</span> second-value/<span class="Constant">edx</span>: (addr float) <span class="Special"><-</span> get second, number-data +<span id="L943" class="LineNr"> 943 </span> <span class="muComment"># divide</span> +<span id="L944" class="LineNr"> 944 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *first-value +<span id="L945" class="LineNr"> 945 </span> result <span class="Special"><-</span> divide *second-value +<span id="L946" class="LineNr"> 946 </span> <a href='cell.mu.html#L97'>new-float</a> out, result +<span id="L947" class="LineNr"> 947 </span><span class="Delimiter">}</span> +<span id="L948" class="LineNr"> 948 </span> +<span id="L949" class="LineNr"> 949 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L949'>apply-square-root</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L950" class="LineNr"> 950 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply sqrt"</span> +<span id="L951" class="LineNr"> 951 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah +<span id="L952" class="LineNr"> 952 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *args-ah +<span id="L953" class="LineNr"> 953 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args +<span id="L954" class="LineNr"> 954 </span> <span class="muComment"># TODO: check that args is a pair</span> +<span id="L955" class="LineNr"> 955 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> args +<span id="L956" class="LineNr"> 956 </span> compare empty-args?, <span class="Constant">0</span>/false +<span id="L957" class="LineNr"> 957 </span> <span class="Delimiter">{</span> +<span id="L958" class="LineNr"> 958 </span> <span class="PreProc">break-if-=</span> +<span id="L959" class="LineNr"> 959 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"sqrt needs 1 arg but got 0"</span> +<span id="L960" class="LineNr"> 960 </span> <span class="PreProc">return</span> +<span id="L961" class="LineNr"> 961 </span> <span class="Delimiter">}</span> +<span id="L962" class="LineNr"> 962 </span> <span class="muComment"># args->left->value</span> +<span id="L963" class="LineNr"> 963 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left +<span id="L964" class="LineNr"> 964 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-ah +<span id="L965" class="LineNr"> 965 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> +<span id="L966" class="LineNr"> 966 </span> compare *first-type, <span class="Constant">1</span>/number +<span id="L967" class="LineNr"> 967 </span> <span class="Delimiter">{</span> +<span id="L968" class="LineNr"> 968 </span> <span class="PreProc">break-if-=</span> +<span id="L969" class="LineNr"> 969 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"arg for sqrt is not a number"</span> +<span id="L970" class="LineNr"> 970 </span> <span class="PreProc">return</span> +<span id="L971" class="LineNr"> 971 </span> <span class="Delimiter">}</span> +<span id="L972" class="LineNr"> 972 </span> <span class="PreProc">var</span> first-value/<span class="Constant">ecx</span>: (addr float) <span class="Special"><-</span> get first, number-data +<span id="L973" class="LineNr"> 973 </span> <span class="muComment"># square-root</span> +<span id="L974" class="LineNr"> 974 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> square-root *first-value +<span id="L975" class="LineNr"> 975 </span> <a href='cell.mu.html#L97'>new-float</a> out, result +<span id="L976" class="LineNr"> 976 </span><span class="Delimiter">}</span> +<span id="L977" class="LineNr"> 977 </span> +<span id="L978" class="LineNr"> 978 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L978'>apply-abs</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L979" class="LineNr"> 979 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply abs"</span> +<span id="L980" class="LineNr"> 980 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah +<span id="L981" class="LineNr"> 981 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *args-ah +<span id="L982" class="LineNr"> 982 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args +<span id="L983" class="LineNr"> 983 </span> <span class="muComment"># TODO: check that args is a pair</span> +<span id="L984" class="LineNr"> 984 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> args +<span id="L985" class="LineNr"> 985 </span> compare empty-args?, <span class="Constant">0</span>/false +<span id="L986" class="LineNr"> 986 </span> <span class="Delimiter">{</span> +<span id="L987" class="LineNr"> 987 </span> <span class="PreProc">break-if-=</span> +<span id="L988" class="LineNr"> 988 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"abs needs 1 arg but got 0"</span> +<span id="L989" class="LineNr"> 989 </span> <span class="PreProc">return</span> +<span id="L990" class="LineNr"> 990 </span> <span class="Delimiter">}</span> +<span id="L991" class="LineNr"> 991 </span> <span class="muComment"># args->left->value</span> +<span id="L992" class="LineNr"> 992 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left +<span id="L993" class="LineNr"> 993 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-ah +<span id="L994" class="LineNr"> 994 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> +<span id="L995" class="LineNr"> 995 </span> compare *first-type, <span class="Constant">1</span>/number +<span id="L996" class="LineNr"> 996 </span> <span class="Delimiter">{</span> +<span id="L997" class="LineNr"> 997 </span> <span class="PreProc">break-if-=</span> +<span id="L998" class="LineNr"> 998 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"arg for <a href='../506math.mu.html#L1'>abs</a> is not a number"</span> +<span id="L999" class="LineNr"> 999 </span> <span class="PreProc">return</span> +<span id="L1000" class="LineNr">1000 </span> <span class="Delimiter">}</span> +<span id="L1001" class="LineNr">1001 </span> <span class="PreProc">var</span> first-value/<span class="Constant">ecx</span>: (addr float) <span class="Special"><-</span> get first, number-data +<span id="L1002" class="LineNr">1002 </span> <span class="muComment">#</span> +<span id="L1003" class="LineNr">1003 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *first-value +<span id="L1004" class="LineNr">1004 </span> <span class="PreProc">var</span> zero: float +<span id="L1005" class="LineNr">1005 </span> compare result, zero +<span id="L1006" class="LineNr">1006 </span> <span class="Delimiter">{</span> +<span id="L1007" class="LineNr">1007 </span> <span class="PreProc">break-if-float>=</span> +<span id="L1008" class="LineNr">1008 </span> <span class="PreProc">var</span> neg1/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">-1</span> +<span id="L1009" class="LineNr">1009 </span> <span class="PreProc">var</span> neg1-f/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> convert neg1 +<span id="L1010" class="LineNr">1010 </span> result <span class="Special"><-</span> multiply neg1-f +<span id="L1011" class="LineNr">1011 </span> <span class="Delimiter">}</span> +<span id="L1012" class="LineNr">1012 </span> <a href='cell.mu.html#L97'>new-float</a> out, result +<span id="L1013" class="LineNr">1013 </span><span class="Delimiter">}</span> +<span id="L1014" class="LineNr">1014 </span> +<span id="L1015" class="LineNr">1015 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1015'>apply-sgn</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L1016" class="LineNr">1016 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply sgn"</span> +<span id="L1017" class="LineNr">1017 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah +<span id="L1018" class="LineNr">1018 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *args-ah +<span id="L1019" class="LineNr">1019 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args +<span id="L1020" class="LineNr">1020 </span> <span class="muComment"># TODO: check that args is a pair</span> +<span id="L1021" class="LineNr">1021 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> args +<span id="L1022" class="LineNr">1022 </span> compare empty-args?, <span class="Constant">0</span>/false +<span id="L1023" class="LineNr">1023 </span> <span class="Delimiter">{</span> +<span id="L1024" class="LineNr">1024 </span> <span class="PreProc">break-if-=</span> +<span id="L1025" class="LineNr">1025 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"sgn needs 1 arg but got 0"</span> +<span id="L1026" class="LineNr">1026 </span> <span class="PreProc">return</span> +<span id="L1027" class="LineNr">1027 </span> <span class="Delimiter">}</span> +<span id="L1028" class="LineNr">1028 </span> <span class="muComment"># args->left->value</span> +<span id="L1029" class="LineNr">1029 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left +<span id="L1030" class="LineNr">1030 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-ah +<span id="L1031" class="LineNr">1031 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> +<span id="L1032" class="LineNr">1032 </span> compare *first-type, <span class="Constant">1</span>/number +<span id="L1033" class="LineNr">1033 </span> <span class="Delimiter">{</span> +<span id="L1034" class="LineNr">1034 </span> <span class="PreProc">break-if-=</span> +<span id="L1035" class="LineNr">1035 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"arg for <a href='../506math.mu.html#L10'>sgn</a> is not a number"</span> +<span id="L1036" class="LineNr">1036 </span> <span class="PreProc">return</span> +<span id="L1037" class="LineNr">1037 </span> <span class="Delimiter">}</span> +<span id="L1038" class="LineNr">1038 </span> <span class="PreProc">var</span> first-value/<span class="Constant">ecx</span>: (addr float) <span class="Special"><-</span> get first, number-data +<span id="L1039" class="LineNr">1039 </span> <span class="muComment">#</span> +<span id="L1040" class="LineNr">1040 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *first-value +<span id="L1041" class="LineNr">1041 </span> <span class="PreProc">var</span> zero: float +<span id="L1042" class="LineNr">1042 </span> $apply-sgn:core: <span class="Delimiter">{</span> +<span id="L1043" class="LineNr">1043 </span> compare result, zero <span id="L1044" class="LineNr">1044 </span> <span class="PreProc">break-if-=</span> -<span id="L1045" class="LineNr">1045 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"cons needs 2 args but got 0"</span> -<span id="L1046" class="LineNr">1046 </span> <span class="PreProc">return</span> -<span id="L1047" class="LineNr">1047 </span> <span class="Delimiter">}</span> -<span id="L1048" class="LineNr">1048 </span> <span class="muComment"># args->left</span> -<span id="L1049" class="LineNr">1049 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left -<span id="L1050" class="LineNr">1050 </span> <span class="muComment"># args->right->left</span> -<span id="L1051" class="LineNr">1051 </span> <span class="PreProc">var</span> right-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, right -<span id="L1052" class="LineNr">1052 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *right-ah -<span id="L1053" class="LineNr">1053 </span> <span class="muComment"># TODO: check that right is a pair</span> -<span id="L1054" class="LineNr">1054 </span> <span class="PreProc">var</span> second-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get right, left -<span id="L1055" class="LineNr">1055 </span> <span class="muComment"># cons</span> -<span id="L1056" class="LineNr">1056 </span> <a href='cell.mu.html#L115'>new-pair</a> out, *first-ah, *second-ah -<span id="L1057" class="LineNr">1057 </span><span class="Delimiter">}</span> -<span id="L1058" class="LineNr">1058 </span> -<span id="L1059" class="LineNr">1059 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1059'>apply-structurally-equal</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L1060" class="LineNr">1060 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply '='"</span> -<span id="L1061" class="LineNr">1061 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah -<span id="L1062" class="LineNr">1062 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *args-ah -<span id="L1063" class="LineNr">1063 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args -<span id="L1064" class="LineNr">1064 </span> <span class="muComment"># TODO: check that args is a pair</span> -<span id="L1065" class="LineNr">1065 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> args -<span id="L1066" class="LineNr">1066 </span> compare empty-args?, <span class="Constant">0</span>/false -<span id="L1067" class="LineNr">1067 </span> <span class="Delimiter">{</span> -<span id="L1068" class="LineNr">1068 </span> <span class="PreProc">break-if-=</span> -<span id="L1069" class="LineNr">1069 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"'=' needs 2 args but got 0"</span> -<span id="L1070" class="LineNr">1070 </span> <span class="PreProc">return</span> -<span id="L1071" class="LineNr">1071 </span> <span class="Delimiter">}</span> -<span id="L1072" class="LineNr">1072 </span> <span class="muComment"># args->left</span> -<span id="L1073" class="LineNr">1073 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left -<span id="L1074" class="LineNr">1074 </span> <span class="muComment"># args->right->left</span> -<span id="L1075" class="LineNr">1075 </span> <span class="PreProc">var</span> right-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, right -<span id="L1076" class="LineNr">1076 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *right-ah -<span id="L1077" class="LineNr">1077 </span> <span class="muComment"># TODO: check that right is a pair</span> -<span id="L1078" class="LineNr">1078 </span> <span class="PreProc">var</span> second-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get right, left -<span id="L1079" class="LineNr">1079 </span> <span class="muComment"># compare</span> -<span id="L1080" class="LineNr">1080 </span> <span class="PreProc">var</span> _first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-ah -<span id="L1081" class="LineNr">1081 </span> <span class="PreProc">var</span> first/<span class="Constant">ecx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _first -<span id="L1082" class="LineNr">1082 </span> <span class="PreProc">var</span> second/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *second-ah -<span id="L1083" class="LineNr">1083 </span> <span class="PreProc">var</span> match?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='evaluate.mu.html#L978'>cell-isomorphic?</a> first, second, trace -<span id="L1084" class="LineNr">1084 </span> compare match?, <span class="Constant">0</span>/false -<span id="L1085" class="LineNr">1085 </span> <span class="Delimiter">{</span> -<span id="L1086" class="LineNr">1086 </span> <span class="PreProc">break-if-!=</span> -<span id="L1087" class="LineNr">1087 </span> <a href='cell.mu.html#L120'>nil</a> out -<span id="L1088" class="LineNr">1088 </span> <span class="PreProc">return</span> -<span id="L1089" class="LineNr">1089 </span> <span class="Delimiter">}</span> -<span id="L1090" class="LineNr">1090 </span> <a href='cell.mu.html#L83'>new-integer</a> out, <span class="Constant">1</span>/true -<span id="L1091" class="LineNr">1091 </span><span class="Delimiter">}</span> -<span id="L1092" class="LineNr">1092 </span> -<span id="L1093" class="LineNr">1093 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1093'>apply-not</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L1094" class="LineNr">1094 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply not"</span> -<span id="L1095" class="LineNr">1095 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah -<span id="L1096" class="LineNr">1096 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *args-ah -<span id="L1097" class="LineNr">1097 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args -<span id="L1098" class="LineNr">1098 </span> <span class="muComment"># TODO: check that args is a pair</span> -<span id="L1099" class="LineNr">1099 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> args -<span id="L1100" class="LineNr">1100 </span> compare empty-args?, <span class="Constant">0</span>/false -<span id="L1101" class="LineNr">1101 </span> <span class="Delimiter">{</span> -<span id="L1102" class="LineNr">1102 </span> <span class="PreProc">break-if-=</span> -<span id="L1103" class="LineNr">1103 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"not needs 1 args but got 0"</span> -<span id="L1104" class="LineNr">1104 </span> <span class="PreProc">return</span> -<span id="L1105" class="LineNr">1105 </span> <span class="Delimiter">}</span> -<span id="L1106" class="LineNr">1106 </span> <span class="muComment"># args->left</span> -<span id="L1107" class="LineNr">1107 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left -<span id="L1108" class="LineNr">1108 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-ah -<span id="L1109" class="LineNr">1109 </span> <span class="muComment"># not</span> -<span id="L1110" class="LineNr">1110 </span> <span class="PreProc">var</span> <a href='print.mu.html#L194'>nil?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> first -<span id="L1111" class="LineNr">1111 </span> compare <a href='print.mu.html#L194'>nil?</a>, <span class="Constant">0</span>/false -<span id="L1112" class="LineNr">1112 </span> <span class="Delimiter">{</span> -<span id="L1113" class="LineNr">1113 </span> <span class="PreProc">break-if-!=</span> -<span id="L1114" class="LineNr">1114 </span> <a href='cell.mu.html#L120'>nil</a> out -<span id="L1115" class="LineNr">1115 </span> <span class="PreProc">return</span> -<span id="L1116" class="LineNr">1116 </span> <span class="Delimiter">}</span> -<span id="L1117" class="LineNr">1117 </span> <a href='cell.mu.html#L83'>new-integer</a> out, <span class="Constant">1</span> -<span id="L1118" class="LineNr">1118 </span><span class="Delimiter">}</span> -<span id="L1119" class="LineNr">1119 </span> -<span id="L1120" class="LineNr">1120 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1120'>apply-<</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L1121" class="LineNr">1121 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply '<'"</span> -<span id="L1122" class="LineNr">1122 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah -<span id="L1123" class="LineNr">1123 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *args-ah -<span id="L1124" class="LineNr">1124 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args -<span id="L1125" class="LineNr">1125 </span> <span class="muComment"># TODO: check that args is a pair</span> -<span id="L1126" class="LineNr">1126 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> args -<span id="L1127" class="LineNr">1127 </span> compare empty-args?, <span class="Constant">0</span>/false -<span id="L1128" class="LineNr">1128 </span> <span class="Delimiter">{</span> -<span id="L1129" class="LineNr">1129 </span> <span class="PreProc">break-if-=</span> -<span id="L1130" class="LineNr">1130 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"'<' needs 2 args but got 0"</span> -<span id="L1131" class="LineNr">1131 </span> <span class="PreProc">return</span> -<span id="L1132" class="LineNr">1132 </span> <span class="Delimiter">}</span> -<span id="L1133" class="LineNr">1133 </span> <span class="muComment"># args->left</span> -<span id="L1134" class="LineNr">1134 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left -<span id="L1135" class="LineNr">1135 </span> <span class="muComment"># args->right->left</span> -<span id="L1136" class="LineNr">1136 </span> <span class="PreProc">var</span> right-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, right -<span id="L1137" class="LineNr">1137 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *right-ah -<span id="L1138" class="LineNr">1138 </span> <span class="muComment"># TODO: check that right is a pair</span> -<span id="L1139" class="LineNr">1139 </span> <span class="PreProc">var</span> second-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get right, left -<span id="L1140" class="LineNr">1140 </span> <span class="muComment"># compare</span> -<span id="L1141" class="LineNr">1141 </span> <span class="PreProc">var</span> _first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-ah -<span id="L1142" class="LineNr">1142 </span> <span class="PreProc">var</span> first/<span class="Constant">ecx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _first -<span id="L1143" class="LineNr">1143 </span> <span class="PreProc">var</span> first-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> -<span id="L1144" class="LineNr">1144 </span> compare *first-type, <span class="Constant">1</span>/number -<span id="L1145" class="LineNr">1145 </span> <span class="Delimiter">{</span> -<span id="L1146" class="LineNr">1146 </span> <span class="PreProc">break-if-=</span> -<span id="L1147" class="LineNr">1147 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for '<' is not a number"</span> -<span id="L1148" class="LineNr">1148 </span> <span class="PreProc">return</span> -<span id="L1149" class="LineNr">1149 </span> <span class="Delimiter">}</span> -<span id="L1150" class="LineNr">1150 </span> <span class="PreProc">var</span> first-value/<span class="Constant">ecx</span>: (addr float) <span class="Special"><-</span> get first, number-data -<span id="L1151" class="LineNr">1151 </span> <span class="PreProc">var</span> first-float/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *first-value -<span id="L1152" class="LineNr">1152 </span> <span class="PreProc">var</span> second/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *second-ah -<span id="L1153" class="LineNr">1153 </span> <span class="PreProc">var</span> second-type/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get second, <span class="PreProc">type</span> -<span id="L1154" class="LineNr">1154 </span> compare *second-type, <span class="Constant">1</span>/number -<span id="L1155" class="LineNr">1155 </span> <span class="Delimiter">{</span> -<span id="L1156" class="LineNr">1156 </span> <span class="PreProc">break-if-=</span> -<span id="L1157" class="LineNr">1157 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for '<' is not a number"</span> -<span id="L1158" class="LineNr">1158 </span> <span class="PreProc">return</span> -<span id="L1159" class="LineNr">1159 </span> <span class="Delimiter">}</span> -<span id="L1160" class="LineNr">1160 </span> <span class="PreProc">var</span> second-value/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> get second, number-data -<span id="L1161" class="LineNr">1161 </span> compare first-float, *second-value -<span id="L1162" class="LineNr">1162 </span> <span class="Delimiter">{</span> -<span id="L1163" class="LineNr">1163 </span> <span class="PreProc">break-if-float<</span> -<span id="L1164" class="LineNr">1164 </span> <a href='cell.mu.html#L120'>nil</a> out -<span id="L1165" class="LineNr">1165 </span> <span class="PreProc">return</span> -<span id="L1166" class="LineNr">1166 </span> <span class="Delimiter">}</span> -<span id="L1167" class="LineNr">1167 </span> <a href='cell.mu.html#L83'>new-integer</a> out, <span class="Constant">1</span>/true -<span id="L1168" class="LineNr">1168 </span><span class="Delimiter">}</span> -<span id="L1169" class="LineNr">1169 </span> -<span id="L1170" class="LineNr">1170 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1170'>apply-></a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L1171" class="LineNr">1171 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply '>'"</span> -<span id="L1172" class="LineNr">1172 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah -<span id="L1173" class="LineNr">1173 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *args-ah -<span id="L1174" class="LineNr">1174 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args -<span id="L1175" class="LineNr">1175 </span> <span class="muComment"># TODO: check that args is a pair</span> -<span id="L1176" class="LineNr">1176 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> args -<span id="L1177" class="LineNr">1177 </span> compare empty-args?, <span class="Constant">0</span>/false -<span id="L1178" class="LineNr">1178 </span> <span class="Delimiter">{</span> -<span id="L1179" class="LineNr">1179 </span> <span class="PreProc">break-if-=</span> -<span id="L1180" class="LineNr">1180 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"'>' needs 2 args but got 0"</span> -<span id="L1181" class="LineNr">1181 </span> <span class="PreProc">return</span> -<span id="L1182" class="LineNr">1182 </span> <span class="Delimiter">}</span> -<span id="L1183" class="LineNr">1183 </span> <span class="muComment"># args->left</span> -<span id="L1184" class="LineNr">1184 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left -<span id="L1185" class="LineNr">1185 </span> <span class="muComment"># args->right->left</span> -<span id="L1186" class="LineNr">1186 </span> <span class="PreProc">var</span> right-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, right -<span id="L1187" class="LineNr">1187 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *right-ah -<span id="L1188" class="LineNr">1188 </span> <span class="muComment"># TODO: check that right is a pair</span> -<span id="L1189" class="LineNr">1189 </span> <span class="PreProc">var</span> second-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get right, left -<span id="L1190" class="LineNr">1190 </span> <span class="muComment"># compare</span> -<span id="L1191" class="LineNr">1191 </span> <span class="PreProc">var</span> _first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-ah -<span id="L1192" class="LineNr">1192 </span> <span class="PreProc">var</span> first/<span class="Constant">ecx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _first -<span id="L1193" class="LineNr">1193 </span> <span class="PreProc">var</span> first-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> -<span id="L1194" class="LineNr">1194 </span> compare *first-type, <span class="Constant">1</span>/number -<span id="L1195" class="LineNr">1195 </span> <span class="Delimiter">{</span> -<span id="L1196" class="LineNr">1196 </span> <span class="PreProc">break-if-=</span> -<span id="L1197" class="LineNr">1197 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for '>' is not a number"</span> -<span id="L1198" class="LineNr">1198 </span> <span class="PreProc">return</span> -<span id="L1199" class="LineNr">1199 </span> <span class="Delimiter">}</span> -<span id="L1200" class="LineNr">1200 </span> <span class="PreProc">var</span> first-value/<span class="Constant">ecx</span>: (addr float) <span class="Special"><-</span> get first, number-data -<span id="L1201" class="LineNr">1201 </span> <span class="PreProc">var</span> first-float/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *first-value -<span id="L1202" class="LineNr">1202 </span> <span class="PreProc">var</span> second/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *second-ah -<span id="L1203" class="LineNr">1203 </span> <span class="PreProc">var</span> second-type/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get second, <span class="PreProc">type</span> -<span id="L1204" class="LineNr">1204 </span> compare *second-type, <span class="Constant">1</span>/number -<span id="L1205" class="LineNr">1205 </span> <span class="Delimiter">{</span> -<span id="L1206" class="LineNr">1206 </span> <span class="PreProc">break-if-=</span> -<span id="L1207" class="LineNr">1207 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for '>' is not a number"</span> -<span id="L1208" class="LineNr">1208 </span> <span class="PreProc">return</span> -<span id="L1209" class="LineNr">1209 </span> <span class="Delimiter">}</span> -<span id="L1210" class="LineNr">1210 </span> <span class="PreProc">var</span> second-value/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> get second, number-data -<span id="L1211" class="LineNr">1211 </span> compare first-float, *second-value -<span id="L1212" class="LineNr">1212 </span> <span class="Delimiter">{</span> -<span id="L1213" class="LineNr">1213 </span> <span class="PreProc">break-if-float></span> -<span id="L1214" class="LineNr">1214 </span> <a href='cell.mu.html#L120'>nil</a> out -<span id="L1215" class="LineNr">1215 </span> <span class="PreProc">return</span> -<span id="L1216" class="LineNr">1216 </span> <span class="Delimiter">}</span> -<span id="L1217" class="LineNr">1217 </span> <a href='cell.mu.html#L83'>new-integer</a> out, <span class="Constant">1</span>/true -<span id="L1218" class="LineNr">1218 </span><span class="Delimiter">}</span> -<span id="L1219" class="LineNr">1219 </span> -<span id="L1220" class="LineNr">1220 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1220'>apply-<=</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L1221" class="LineNr">1221 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply '<='"</span> -<span id="L1222" class="LineNr">1222 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah -<span id="L1223" class="LineNr">1223 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *args-ah -<span id="L1224" class="LineNr">1224 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args -<span id="L1225" class="LineNr">1225 </span> <span class="muComment"># TODO: check that args is a pair</span> -<span id="L1226" class="LineNr">1226 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> args -<span id="L1227" class="LineNr">1227 </span> compare empty-args?, <span class="Constant">0</span>/false -<span id="L1228" class="LineNr">1228 </span> <span class="Delimiter">{</span> -<span id="L1229" class="LineNr">1229 </span> <span class="PreProc">break-if-=</span> -<span id="L1230" class="LineNr">1230 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"'<=' needs 2 args but got 0"</span> -<span id="L1231" class="LineNr">1231 </span> <span class="PreProc">return</span> -<span id="L1232" class="LineNr">1232 </span> <span class="Delimiter">}</span> -<span id="L1233" class="LineNr">1233 </span> <span class="muComment"># args->left</span> -<span id="L1234" class="LineNr">1234 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left -<span id="L1235" class="LineNr">1235 </span> <span class="muComment"># args->right->left</span> -<span id="L1236" class="LineNr">1236 </span> <span class="PreProc">var</span> right-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, right -<span id="L1237" class="LineNr">1237 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *right-ah -<span id="L1238" class="LineNr">1238 </span> <span class="muComment"># TODO: check that right is a pair</span> -<span id="L1239" class="LineNr">1239 </span> <span class="PreProc">var</span> second-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get right, left -<span id="L1240" class="LineNr">1240 </span> <span class="muComment"># compare</span> -<span id="L1241" class="LineNr">1241 </span> <span class="PreProc">var</span> _first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-ah -<span id="L1242" class="LineNr">1242 </span> <span class="PreProc">var</span> first/<span class="Constant">ecx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _first -<span id="L1243" class="LineNr">1243 </span> <span class="PreProc">var</span> first-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> -<span id="L1244" class="LineNr">1244 </span> compare *first-type, <span class="Constant">1</span>/number -<span id="L1245" class="LineNr">1245 </span> <span class="Delimiter">{</span> -<span id="L1246" class="LineNr">1246 </span> <span class="PreProc">break-if-=</span> -<span id="L1247" class="LineNr">1247 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for '<=' is not a number"</span> -<span id="L1248" class="LineNr">1248 </span> <span class="PreProc">return</span> -<span id="L1249" class="LineNr">1249 </span> <span class="Delimiter">}</span> -<span id="L1250" class="LineNr">1250 </span> <span class="PreProc">var</span> first-value/<span class="Constant">ecx</span>: (addr float) <span class="Special"><-</span> get first, number-data -<span id="L1251" class="LineNr">1251 </span> <span class="PreProc">var</span> first-float/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *first-value -<span id="L1252" class="LineNr">1252 </span> <span class="PreProc">var</span> second/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *second-ah -<span id="L1253" class="LineNr">1253 </span> <span class="PreProc">var</span> second-type/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get second, <span class="PreProc">type</span> -<span id="L1254" class="LineNr">1254 </span> compare *second-type, <span class="Constant">1</span>/number -<span id="L1255" class="LineNr">1255 </span> <span class="Delimiter">{</span> -<span id="L1256" class="LineNr">1256 </span> <span class="PreProc">break-if-=</span> -<span id="L1257" class="LineNr">1257 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for '<=' is not a number"</span> -<span id="L1258" class="LineNr">1258 </span> <span class="PreProc">return</span> -<span id="L1259" class="LineNr">1259 </span> <span class="Delimiter">}</span> -<span id="L1260" class="LineNr">1260 </span> <span class="PreProc">var</span> second-value/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> get second, number-data -<span id="L1261" class="LineNr">1261 </span> compare first-float, *second-value -<span id="L1262" class="LineNr">1262 </span> <span class="Delimiter">{</span> -<span id="L1263" class="LineNr">1263 </span> <span class="PreProc">break-if-float<=</span> -<span id="L1264" class="LineNr">1264 </span> <a href='cell.mu.html#L120'>nil</a> out -<span id="L1265" class="LineNr">1265 </span> <span class="PreProc">return</span> -<span id="L1266" class="LineNr">1266 </span> <span class="Delimiter">}</span> -<span id="L1267" class="LineNr">1267 </span> <a href='cell.mu.html#L83'>new-integer</a> out, <span class="Constant">1</span>/true -<span id="L1268" class="LineNr">1268 </span><span class="Delimiter">}</span> -<span id="L1269" class="LineNr">1269 </span> -<span id="L1270" class="LineNr">1270 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1270'>apply->=</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L1271" class="LineNr">1271 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply '>='"</span> -<span id="L1272" class="LineNr">1272 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah -<span id="L1273" class="LineNr">1273 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *args-ah -<span id="L1274" class="LineNr">1274 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args -<span id="L1275" class="LineNr">1275 </span> <span class="muComment"># TODO: check that args is a pair</span> -<span id="L1276" class="LineNr">1276 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> args -<span id="L1277" class="LineNr">1277 </span> compare empty-args?, <span class="Constant">0</span>/false -<span id="L1278" class="LineNr">1278 </span> <span class="Delimiter">{</span> -<span id="L1279" class="LineNr">1279 </span> <span class="PreProc">break-if-=</span> -<span id="L1280" class="LineNr">1280 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"'>=' needs 2 args but got 0"</span> -<span id="L1281" class="LineNr">1281 </span> <span class="PreProc">return</span> -<span id="L1282" class="LineNr">1282 </span> <span class="Delimiter">}</span> -<span id="L1283" class="LineNr">1283 </span> <span class="muComment"># args->left</span> -<span id="L1284" class="LineNr">1284 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left -<span id="L1285" class="LineNr">1285 </span> <span class="muComment"># args->right->left</span> -<span id="L1286" class="LineNr">1286 </span> <span class="PreProc">var</span> right-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, right -<span id="L1287" class="LineNr">1287 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *right-ah -<span id="L1288" class="LineNr">1288 </span> <span class="muComment"># TODO: check that right is a pair</span> -<span id="L1289" class="LineNr">1289 </span> <span class="PreProc">var</span> second-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get right, left -<span id="L1290" class="LineNr">1290 </span> <span class="muComment"># compare</span> -<span id="L1291" class="LineNr">1291 </span> <span class="PreProc">var</span> _first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-ah -<span id="L1292" class="LineNr">1292 </span> <span class="PreProc">var</span> first/<span class="Constant">ecx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _first -<span id="L1293" class="LineNr">1293 </span> <span class="PreProc">var</span> first-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> -<span id="L1294" class="LineNr">1294 </span> compare *first-type, <span class="Constant">1</span>/number -<span id="L1295" class="LineNr">1295 </span> <span class="Delimiter">{</span> -<span id="L1296" class="LineNr">1296 </span> <span class="PreProc">break-if-=</span> -<span id="L1297" class="LineNr">1297 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for '>=' is not a number"</span> -<span id="L1298" class="LineNr">1298 </span> <span class="PreProc">return</span> -<span id="L1299" class="LineNr">1299 </span> <span class="Delimiter">}</span> -<span id="L1300" class="LineNr">1300 </span> <span class="PreProc">var</span> first-value/<span class="Constant">ecx</span>: (addr float) <span class="Special"><-</span> get first, number-data -<span id="L1301" class="LineNr">1301 </span> <span class="PreProc">var</span> first-float/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *first-value -<span id="L1302" class="LineNr">1302 </span> <span class="PreProc">var</span> second/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *second-ah -<span id="L1303" class="LineNr">1303 </span> <span class="PreProc">var</span> second-type/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get second, <span class="PreProc">type</span> -<span id="L1304" class="LineNr">1304 </span> compare *second-type, <span class="Constant">1</span>/number -<span id="L1305" class="LineNr">1305 </span> <span class="Delimiter">{</span> -<span id="L1306" class="LineNr">1306 </span> <span class="PreProc">break-if-=</span> -<span id="L1307" class="LineNr">1307 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for '>=' is not a number"</span> -<span id="L1308" class="LineNr">1308 </span> <span class="PreProc">return</span> -<span id="L1309" class="LineNr">1309 </span> <span class="Delimiter">}</span> -<span id="L1310" class="LineNr">1310 </span> <span class="PreProc">var</span> second-value/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> get second, number-data -<span id="L1311" class="LineNr">1311 </span> compare first-float, *second-value -<span id="L1312" class="LineNr">1312 </span> <span class="Delimiter">{</span> -<span id="L1313" class="LineNr">1313 </span> <span class="PreProc">break-if-float>=</span> -<span id="L1314" class="LineNr">1314 </span> <a href='cell.mu.html#L120'>nil</a> out -<span id="L1315" class="LineNr">1315 </span> <span class="PreProc">return</span> -<span id="L1316" class="LineNr">1316 </span> <span class="Delimiter">}</span> -<span id="L1317" class="LineNr">1317 </span> <a href='cell.mu.html#L83'>new-integer</a> out, <span class="Constant">1</span>/true -<span id="L1318" class="LineNr">1318 </span><span class="Delimiter">}</span> -<span id="L1319" class="LineNr">1319 </span> -<span id="L1320" class="LineNr">1320 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1320'>apply-print</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L1321" class="LineNr">1321 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply print"</span> -<span id="L1322" class="LineNr">1322 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah -<span id="L1323" class="LineNr">1323 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *args-ah -<span id="L1324" class="LineNr">1324 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args -<span id="L1325" class="LineNr">1325 </span> <span class="muComment"># TODO: check that args is a pair</span> -<span id="L1326" class="LineNr">1326 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> args -<span id="L1327" class="LineNr">1327 </span> compare empty-args?, <span class="Constant">0</span>/false -<span id="L1328" class="LineNr">1328 </span> <span class="Delimiter">{</span> -<span id="L1329" class="LineNr">1329 </span> <span class="PreProc">break-if-=</span> -<span id="L1330" class="LineNr">1330 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"print needs 2 args but got 0"</span> -<span id="L1331" class="LineNr">1331 </span> <span class="PreProc">return</span> -<span id="L1332" class="LineNr">1332 </span> <span class="Delimiter">}</span> -<span id="L1333" class="LineNr">1333 </span> <span class="muComment"># screen = args->left</span> -<span id="L1334" class="LineNr">1334 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left -<span id="L1335" class="LineNr">1335 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-ah -<span id="L1336" class="LineNr">1336 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> -<span id="L1337" class="LineNr">1337 </span> compare *first-type, <span class="Constant">5</span>/screen -<span id="L1338" class="LineNr">1338 </span> <span class="Delimiter">{</span> -<span id="L1339" class="LineNr">1339 </span> <span class="PreProc">break-if-=</span> -<span id="L1340" class="LineNr">1340 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for 'print' is not a screen"</span> -<span id="L1341" class="LineNr">1341 </span> <span class="PreProc">return</span> -<span id="L1342" class="LineNr">1342 </span> <span class="Delimiter">}</span> -<span id="L1343" class="LineNr">1343 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> get first, screen-data -<span id="L1344" class="LineNr">1344 </span> <span class="PreProc">var</span> _screen/<span class="Constant">eax</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *screen-ah -<span id="L1345" class="LineNr">1345 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">ecx</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> copy _screen -<span id="L1346" class="LineNr">1346 </span> <span class="muComment"># args->right->left</span> -<span id="L1347" class="LineNr">1347 </span> <span class="PreProc">var</span> right-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, right -<span id="L1348" class="LineNr">1348 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *right-ah -<span id="L1349" class="LineNr">1349 </span> <span class="muComment"># TODO: check that right is a pair</span> -<span id="L1350" class="LineNr">1350 </span> <span class="PreProc">var</span> second-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get right, left -<span id="L1351" class="LineNr">1351 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x100</span>) -<span id="L1352" class="LineNr">1352 </span> <span class="PreProc">var</span> stream/<span class="Constant">edi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage -<span id="L1353" class="LineNr">1353 </span> <a href='print.mu.html#L1'>print-cell</a> second-ah, stream, trace -<span id="L1354" class="LineNr">1354 </span> <a href='../501draw-text.mu.html#L214'>draw-stream-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, stream, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg -<span id="L1355" class="LineNr">1355 </span> <span class="muComment"># return what was printed</span> -<span id="L1356" class="LineNr">1356 </span> copy-object second-ah, out -<span id="L1357" class="LineNr">1357 </span><span class="Delimiter">}</span> -<span id="L1358" class="LineNr">1358 </span> -<span id="L1359" class="LineNr">1359 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1359'>apply-clear</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L1360" class="LineNr">1360 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply clear"</span> -<span id="L1361" class="LineNr">1361 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah -<span id="L1362" class="LineNr">1362 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *args-ah -<span id="L1363" class="LineNr">1363 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args -<span id="L1364" class="LineNr">1364 </span> <span class="muComment"># TODO: check that args is a pair</span> -<span id="L1365" class="LineNr">1365 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> args -<span id="L1366" class="LineNr">1366 </span> compare empty-args?, <span class="Constant">0</span>/false -<span id="L1367" class="LineNr">1367 </span> <span class="Delimiter">{</span> -<span id="L1368" class="LineNr">1368 </span> <span class="PreProc">break-if-=</span> -<span id="L1369" class="LineNr">1369 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"'clear' needs 1 arg but got 0"</span> -<span id="L1370" class="LineNr">1370 </span> <span class="PreProc">return</span> -<span id="L1371" class="LineNr">1371 </span> <span class="Delimiter">}</span> -<span id="L1372" class="LineNr">1372 </span> <span class="muComment"># screen = args->left</span> -<span id="L1373" class="LineNr">1373 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left -<span id="L1374" class="LineNr">1374 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-ah -<span id="L1375" class="LineNr">1375 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> -<span id="L1376" class="LineNr">1376 </span> compare *first-type, <span class="Constant">5</span>/screen -<span id="L1377" class="LineNr">1377 </span> <span class="Delimiter">{</span> -<span id="L1378" class="LineNr">1378 </span> <span class="PreProc">break-if-=</span> -<span id="L1379" class="LineNr">1379 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for 'clear' is not a screen"</span> -<span id="L1380" class="LineNr">1380 </span> <span class="PreProc">return</span> -<span id="L1381" class="LineNr">1381 </span> <span class="Delimiter">}</span> -<span id="L1382" class="LineNr">1382 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> get first, screen-data -<span id="L1383" class="LineNr">1383 </span> <span class="PreProc">var</span> _screen/<span class="Constant">eax</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *screen-ah -<span id="L1384" class="LineNr">1384 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">ecx</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> copy _screen -<span id="L1385" class="LineNr">1385 </span> <span class="muComment">#</span> -<span id="L1386" class="LineNr">1386 </span> <a href='../500fake-screen.mu.html#L230'>clear-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L1387" class="LineNr">1387 </span><span class="Delimiter">}</span> -<span id="L1388" class="LineNr">1388 </span> -<span id="L1389" class="LineNr">1389 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1389'>apply-up</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L1390" class="LineNr">1390 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply up"</span> -<span id="L1391" class="LineNr">1391 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah -<span id="L1392" class="LineNr">1392 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *args-ah -<span id="L1393" class="LineNr">1393 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args -<span id="L1394" class="LineNr">1394 </span> <span class="muComment"># TODO: check that args is a pair</span> -<span id="L1395" class="LineNr">1395 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> args -<span id="L1396" class="LineNr">1396 </span> compare empty-args?, <span class="Constant">0</span>/false -<span id="L1397" class="LineNr">1397 </span> <span class="Delimiter">{</span> -<span id="L1398" class="LineNr">1398 </span> <span class="PreProc">break-if-=</span> -<span id="L1399" class="LineNr">1399 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"'up' needs 1 arg but got 0"</span> -<span id="L1400" class="LineNr">1400 </span> <span class="PreProc">return</span> -<span id="L1401" class="LineNr">1401 </span> <span class="Delimiter">}</span> -<span id="L1402" class="LineNr">1402 </span> <span class="muComment"># screen = args->left</span> -<span id="L1403" class="LineNr">1403 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left -<span id="L1404" class="LineNr">1404 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-ah -<span id="L1405" class="LineNr">1405 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> -<span id="L1406" class="LineNr">1406 </span> compare *first-type, <span class="Constant">5</span>/screen -<span id="L1407" class="LineNr">1407 </span> <span class="Delimiter">{</span> -<span id="L1408" class="LineNr">1408 </span> <span class="PreProc">break-if-=</span> -<span id="L1409" class="LineNr">1409 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for 'up' is not a screen"</span> -<span id="L1410" class="LineNr">1410 </span> <span class="PreProc">return</span> -<span id="L1411" class="LineNr">1411 </span> <span class="Delimiter">}</span> -<span id="L1412" class="LineNr">1412 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> get first, screen-data -<span id="L1413" class="LineNr">1413 </span> <span class="PreProc">var</span> _screen/<span class="Constant">eax</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *screen-ah -<span id="L1414" class="LineNr">1414 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">ecx</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> copy _screen -<span id="L1415" class="LineNr">1415 </span> <span class="muComment">#</span> -<span id="L1416" class="LineNr">1416 </span> <a href='../501draw-text.mu.html#L34'>move-cursor-up</a> <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L1417" class="LineNr">1417 </span><span class="Delimiter">}</span> -<span id="L1418" class="LineNr">1418 </span> -<span id="L1419" class="LineNr">1419 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1419'>apply-down</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L1420" class="LineNr">1420 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply 'down'"</span> -<span id="L1421" class="LineNr">1421 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah -<span id="L1422" class="LineNr">1422 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *args-ah -<span id="L1423" class="LineNr">1423 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args -<span id="L1424" class="LineNr">1424 </span> <span class="muComment"># TODO: check that args is a pair</span> -<span id="L1425" class="LineNr">1425 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> args -<span id="L1426" class="LineNr">1426 </span> compare empty-args?, <span class="Constant">0</span>/false -<span id="L1427" class="LineNr">1427 </span> <span class="Delimiter">{</span> -<span id="L1428" class="LineNr">1428 </span> <span class="PreProc">break-if-=</span> -<span id="L1429" class="LineNr">1429 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"'down' needs 1 arg but got 0"</span> -<span id="L1430" class="LineNr">1430 </span> <span class="PreProc">return</span> -<span id="L1431" class="LineNr">1431 </span> <span class="Delimiter">}</span> -<span id="L1432" class="LineNr">1432 </span> <span class="muComment"># screen = args->left</span> -<span id="L1433" class="LineNr">1433 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left -<span id="L1434" class="LineNr">1434 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-ah -<span id="L1435" class="LineNr">1435 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> -<span id="L1436" class="LineNr">1436 </span> compare *first-type, <span class="Constant">5</span>/screen -<span id="L1437" class="LineNr">1437 </span> <span class="Delimiter">{</span> -<span id="L1438" class="LineNr">1438 </span> <span class="PreProc">break-if-=</span> -<span id="L1439" class="LineNr">1439 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for 'down' is not a screen"</span> -<span id="L1440" class="LineNr">1440 </span> <span class="PreProc">return</span> -<span id="L1441" class="LineNr">1441 </span> <span class="Delimiter">}</span> -<span id="L1442" class="LineNr">1442 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> get first, screen-data -<span id="L1443" class="LineNr">1443 </span> <span class="PreProc">var</span> _screen/<span class="Constant">eax</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *screen-ah -<span id="L1444" class="LineNr">1444 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">ecx</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> copy _screen -<span id="L1445" class="LineNr">1445 </span> <span class="muComment">#</span> -<span id="L1446" class="LineNr">1446 </span> <a href='../501draw-text.mu.html#L47'>move-cursor-down</a> <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L1447" class="LineNr">1447 </span><span class="Delimiter">}</span> -<span id="L1448" class="LineNr">1448 </span> -<span id="L1449" class="LineNr">1449 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1449'>apply-left</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L1450" class="LineNr">1450 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply 'left'"</span> -<span id="L1451" class="LineNr">1451 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah -<span id="L1452" class="LineNr">1452 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *args-ah -<span id="L1453" class="LineNr">1453 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args -<span id="L1454" class="LineNr">1454 </span> <span class="muComment"># TODO: check that args is a pair</span> -<span id="L1455" class="LineNr">1455 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> args -<span id="L1456" class="LineNr">1456 </span> compare empty-args?, <span class="Constant">0</span>/false -<span id="L1457" class="LineNr">1457 </span> <span class="Delimiter">{</span> -<span id="L1458" class="LineNr">1458 </span> <span class="PreProc">break-if-=</span> -<span id="L1459" class="LineNr">1459 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"'left' needs 1 arg but got 0"</span> -<span id="L1460" class="LineNr">1460 </span> <span class="PreProc">return</span> -<span id="L1461" class="LineNr">1461 </span> <span class="Delimiter">}</span> -<span id="L1462" class="LineNr">1462 </span> <span class="muComment"># screen = args->left</span> -<span id="L1463" class="LineNr">1463 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left -<span id="L1464" class="LineNr">1464 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-ah -<span id="L1465" class="LineNr">1465 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> -<span id="L1466" class="LineNr">1466 </span> compare *first-type, <span class="Constant">5</span>/screen -<span id="L1467" class="LineNr">1467 </span> <span class="Delimiter">{</span> -<span id="L1468" class="LineNr">1468 </span> <span class="PreProc">break-if-=</span> -<span id="L1469" class="LineNr">1469 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for 'left' is not a screen"</span> -<span id="L1470" class="LineNr">1470 </span> <span class="PreProc">return</span> -<span id="L1471" class="LineNr">1471 </span> <span class="Delimiter">}</span> -<span id="L1472" class="LineNr">1472 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> get first, screen-data -<span id="L1473" class="LineNr">1473 </span> <span class="PreProc">var</span> _screen/<span class="Constant">eax</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *screen-ah -<span id="L1474" class="LineNr">1474 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">ecx</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> copy _screen -<span id="L1475" class="LineNr">1475 </span> <span class="muComment">#</span> -<span id="L1476" class="LineNr">1476 </span> <a href='../501draw-text.mu.html#L3'>move-cursor-left</a> <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L1477" class="LineNr">1477 </span><span class="Delimiter">}</span> -<span id="L1478" class="LineNr">1478 </span> -<span id="L1479" class="LineNr">1479 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1479'>apply-right</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L1480" class="LineNr">1480 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply 'right'"</span> -<span id="L1481" class="LineNr">1481 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah -<span id="L1482" class="LineNr">1482 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *args-ah -<span id="L1483" class="LineNr">1483 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args -<span id="L1484" class="LineNr">1484 </span> <span class="muComment"># TODO: check that args is a pair</span> -<span id="L1485" class="LineNr">1485 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> args -<span id="L1486" class="LineNr">1486 </span> compare empty-args?, <span class="Constant">0</span>/false -<span id="L1487" class="LineNr">1487 </span> <span class="Delimiter">{</span> -<span id="L1488" class="LineNr">1488 </span> <span class="PreProc">break-if-=</span> -<span id="L1489" class="LineNr">1489 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"'right' needs 1 arg but got 0"</span> -<span id="L1490" class="LineNr">1490 </span> <span class="PreProc">return</span> -<span id="L1491" class="LineNr">1491 </span> <span class="Delimiter">}</span> -<span id="L1492" class="LineNr">1492 </span> <span class="muComment"># screen = args->left</span> -<span id="L1493" class="LineNr">1493 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left -<span id="L1494" class="LineNr">1494 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-ah -<span id="L1495" class="LineNr">1495 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> -<span id="L1496" class="LineNr">1496 </span> compare *first-type, <span class="Constant">5</span>/screen -<span id="L1497" class="LineNr">1497 </span> <span class="Delimiter">{</span> -<span id="L1498" class="LineNr">1498 </span> <span class="PreProc">break-if-=</span> -<span id="L1499" class="LineNr">1499 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for 'right' is not a screen"</span> -<span id="L1500" class="LineNr">1500 </span> <span class="PreProc">return</span> -<span id="L1501" class="LineNr">1501 </span> <span class="Delimiter">}</span> -<span id="L1502" class="LineNr">1502 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> get first, screen-data -<span id="L1503" class="LineNr">1503 </span> <span class="PreProc">var</span> _screen/<span class="Constant">eax</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *screen-ah -<span id="L1504" class="LineNr">1504 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">ecx</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> copy _screen -<span id="L1505" class="LineNr">1505 </span> <span class="muComment">#</span> -<span id="L1506" class="LineNr">1506 </span> <a href='../501draw-text.mu.html#L16'>move-cursor-right</a> <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L1507" class="LineNr">1507 </span><span class="Delimiter">}</span> -<span id="L1508" class="LineNr">1508 </span> -<span id="L1509" class="LineNr">1509 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1509'>apply-cr</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L1510" class="LineNr">1510 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply 'cr'"</span> -<span id="L1511" class="LineNr">1511 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah -<span id="L1512" class="LineNr">1512 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *args-ah -<span id="L1513" class="LineNr">1513 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args -<span id="L1514" class="LineNr">1514 </span> <span class="muComment"># TODO: check that args is a pair</span> -<span id="L1515" class="LineNr">1515 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> args -<span id="L1516" class="LineNr">1516 </span> compare empty-args?, <span class="Constant">0</span>/false -<span id="L1517" class="LineNr">1517 </span> <span class="Delimiter">{</span> -<span id="L1518" class="LineNr">1518 </span> <span class="PreProc">break-if-=</span> -<span id="L1519" class="LineNr">1519 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"'cr' needs 1 arg but got 0"</span> -<span id="L1520" class="LineNr">1520 </span> <span class="PreProc">return</span> -<span id="L1521" class="LineNr">1521 </span> <span class="Delimiter">}</span> -<span id="L1522" class="LineNr">1522 </span> <span class="muComment"># screen = args->left</span> -<span id="L1523" class="LineNr">1523 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left -<span id="L1524" class="LineNr">1524 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-ah -<span id="L1525" class="LineNr">1525 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> -<span id="L1526" class="LineNr">1526 </span> compare *first-type, <span class="Constant">5</span>/screen -<span id="L1527" class="LineNr">1527 </span> <span class="Delimiter">{</span> -<span id="L1528" class="LineNr">1528 </span> <span class="PreProc">break-if-=</span> -<span id="L1529" class="LineNr">1529 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for 'cr' is not a screen"</span> -<span id="L1530" class="LineNr">1530 </span> <span class="PreProc">return</span> -<span id="L1531" class="LineNr">1531 </span> <span class="Delimiter">}</span> -<span id="L1532" class="LineNr">1532 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> get first, screen-data -<span id="L1533" class="LineNr">1533 </span> <span class="PreProc">var</span> _screen/<span class="Constant">eax</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *screen-ah -<span id="L1534" class="LineNr">1534 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">ecx</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> copy _screen -<span id="L1535" class="LineNr">1535 </span> <span class="muComment">#</span> -<span id="L1536" class="LineNr">1536 </span> <a href='../501draw-text.mu.html#L65'>move-cursor-to-left-margin-of-next-line</a> <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L1537" class="LineNr">1537 </span><span class="Delimiter">}</span> -<span id="L1538" class="LineNr">1538 </span> -<span id="L1539" class="LineNr">1539 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1539'>apply-pixel</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L1540" class="LineNr">1540 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply pixel"</span> -<span id="L1541" class="LineNr">1541 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah -<span id="L1542" class="LineNr">1542 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *args-ah -<span id="L1543" class="LineNr">1543 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args -<span id="L1544" class="LineNr">1544 </span> <span class="muComment"># TODO: check that args is a pair</span> -<span id="L1545" class="LineNr">1545 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> args -<span id="L1546" class="LineNr">1546 </span> compare empty-args?, <span class="Constant">0</span>/false -<span id="L1547" class="LineNr">1547 </span> <span class="Delimiter">{</span> -<span id="L1548" class="LineNr">1548 </span> <span class="PreProc">break-if-=</span> -<span id="L1549" class="LineNr">1549 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"pixel needs 4 args but got 0"</span> -<span id="L1550" class="LineNr">1550 </span> <span class="PreProc">return</span> -<span id="L1551" class="LineNr">1551 </span> <span class="Delimiter">}</span> -<span id="L1552" class="LineNr">1552 </span> <span class="muComment"># screen = args->left</span> -<span id="L1553" class="LineNr">1553 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left -<span id="L1554" class="LineNr">1554 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-ah -<span id="L1555" class="LineNr">1555 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> -<span id="L1556" class="LineNr">1556 </span> compare *first-type, <span class="Constant">5</span>/screen -<span id="L1557" class="LineNr">1557 </span> <span class="Delimiter">{</span> -<span id="L1558" class="LineNr">1558 </span> <span class="PreProc">break-if-=</span> -<span id="L1559" class="LineNr">1559 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for 'pixel' is not a screen"</span> -<span id="L1560" class="LineNr">1560 </span> <span class="PreProc">return</span> -<span id="L1561" class="LineNr">1561 </span> <span class="Delimiter">}</span> -<span id="L1562" class="LineNr">1562 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> get first, screen-data -<span id="L1563" class="LineNr">1563 </span> <span class="PreProc">var</span> _screen/<span class="Constant">eax</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *screen-ah -<span id="L1564" class="LineNr">1564 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> copy _screen -<span id="L1565" class="LineNr">1565 </span> <span class="muComment"># x = args->right->left->value</span> -<span id="L1566" class="LineNr">1566 </span> <span class="PreProc">var</span> rest-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, right -<span id="L1567" class="LineNr">1567 </span> <span class="PreProc">var</span> _rest/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *rest-ah -<span id="L1568" class="LineNr">1568 </span> <span class="PreProc">var</span> rest/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _rest -<span id="L1569" class="LineNr">1569 </span> <span class="muComment"># TODO: check that rest is a pair</span> -<span id="L1570" class="LineNr">1570 </span> <span class="PreProc">var</span> second-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, left -<span id="L1571" class="LineNr">1571 </span> <span class="PreProc">var</span> second/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *second-ah -<span id="L1572" class="LineNr">1572 </span> <span class="PreProc">var</span> second-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get second, <span class="PreProc">type</span> -<span id="L1573" class="LineNr">1573 </span> compare *second-type, <span class="Constant">1</span>/number -<span id="L1574" class="LineNr">1574 </span> <span class="Delimiter">{</span> -<span id="L1575" class="LineNr">1575 </span> <span class="PreProc">break-if-=</span> -<span id="L1576" class="LineNr">1576 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"second arg for 'pixel' is not an int (x coordinate)"</span> -<span id="L1577" class="LineNr">1577 </span> <span class="PreProc">return</span> -<span id="L1578" class="LineNr">1578 </span> <span class="Delimiter">}</span> -<span id="L1579" class="LineNr">1579 </span> <span class="PreProc">var</span> second-value/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> get second, number-data -<span id="L1580" class="LineNr">1580 </span> <span class="PreProc">var</span> x/<span class="Constant">edx</span>: int <span class="Special"><-</span> convert *second-value -<span id="L1581" class="LineNr">1581 </span> <span class="muComment"># y = rest->right->left->value</span> -<span id="L1582" class="LineNr">1582 </span> <span class="PreProc">var</span> rest-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, right -<span id="L1583" class="LineNr">1583 </span> <span class="PreProc">var</span> _rest/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *rest-ah -<span id="L1584" class="LineNr">1584 </span> rest <span class="Special"><-</span> copy _rest -<span id="L1585" class="LineNr">1585 </span> <span class="muComment"># TODO: check that rest is a pair</span> -<span id="L1586" class="LineNr">1586 </span> <span class="PreProc">var</span> third-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, left -<span id="L1587" class="LineNr">1587 </span> <span class="PreProc">var</span> third/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *third-ah -<span id="L1588" class="LineNr">1588 </span> <span class="PreProc">var</span> third-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get third, <span class="PreProc">type</span> -<span id="L1589" class="LineNr">1589 </span> compare *third-type, <span class="Constant">1</span>/number -<span id="L1590" class="LineNr">1590 </span> <span class="Delimiter">{</span> -<span id="L1591" class="LineNr">1591 </span> <span class="PreProc">break-if-=</span> -<span id="L1592" class="LineNr">1592 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"third arg for 'pixel' is not an int (y coordinate)"</span> -<span id="L1593" class="LineNr">1593 </span> <span class="PreProc">return</span> -<span id="L1594" class="LineNr">1594 </span> <span class="Delimiter">}</span> -<span id="L1595" class="LineNr">1595 </span> <span class="PreProc">var</span> third-value/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> get third, number-data -<span id="L1596" class="LineNr">1596 </span> <span class="PreProc">var</span> y/<span class="Constant">ebx</span>: int <span class="Special"><-</span> convert *third-value -<span id="L1597" class="LineNr">1597 </span> <span class="muComment"># color = rest->right->left->value</span> -<span id="L1598" class="LineNr">1598 </span> <span class="PreProc">var</span> rest-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, right -<span id="L1599" class="LineNr">1599 </span> <span class="PreProc">var</span> _rest/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *rest-ah -<span id="L1600" class="LineNr">1600 </span> rest <span class="Special"><-</span> copy _rest -<span id="L1601" class="LineNr">1601 </span> <span class="muComment"># TODO: check that rest is a pair</span> -<span id="L1602" class="LineNr">1602 </span> <span class="PreProc">var</span> fourth-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, left -<span id="L1603" class="LineNr">1603 </span> <span class="PreProc">var</span> fourth/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *fourth-ah -<span id="L1604" class="LineNr">1604 </span> <span class="PreProc">var</span> fourth-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get fourth, <span class="PreProc">type</span> -<span id="L1605" class="LineNr">1605 </span> compare *fourth-type, <span class="Constant">1</span>/number -<span id="L1606" class="LineNr">1606 </span> <span class="Delimiter">{</span> -<span id="L1607" class="LineNr">1607 </span> <span class="PreProc">break-if-=</span> -<span id="L1608" class="LineNr">1608 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"fourth arg for 'pixel' is not an int (color; 0..0xff)"</span> -<span id="L1609" class="LineNr">1609 </span> <span class="PreProc">return</span> -<span id="L1610" class="LineNr">1610 </span> <span class="Delimiter">}</span> -<span id="L1611" class="LineNr">1611 </span> <span class="PreProc">var</span> fourth-value/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> get fourth, number-data -<span id="L1612" class="LineNr">1612 </span> <span class="PreProc">var</span> color/<span class="Constant">eax</span>: int <span class="Special"><-</span> convert *fourth-value -<span id="L1613" class="LineNr">1613 </span> <a href='../500fake-screen.mu.html#L462'>pixel</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, x, y, color -<span id="L1614" class="LineNr">1614 </span> <span class="muComment"># return nothing</span> -<span id="L1615" class="LineNr">1615 </span><span class="Delimiter">}</span> -<span id="L1616" class="LineNr">1616 </span> -<span id="L1617" class="LineNr">1617 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1617'>apply-wait-for-key</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L1618" class="LineNr">1618 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply key"</span> -<span id="L1619" class="LineNr">1619 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah -<span id="L1620" class="LineNr">1620 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *args-ah -<span id="L1621" class="LineNr">1621 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args -<span id="L1622" class="LineNr">1622 </span> <span class="muComment"># TODO: check that args is a pair</span> -<span id="L1623" class="LineNr">1623 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> args -<span id="L1624" class="LineNr">1624 </span> compare empty-args?, <span class="Constant">0</span>/false -<span id="L1625" class="LineNr">1625 </span> <span class="Delimiter">{</span> -<span id="L1626" class="LineNr">1626 </span> <span class="PreProc">break-if-=</span> -<span id="L1627" class="LineNr">1627 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"key needs 1 arg but got 0"</span> -<span id="L1628" class="LineNr">1628 </span> <span class="PreProc">return</span> -<span id="L1629" class="LineNr">1629 </span> <span class="Delimiter">}</span> -<span id="L1630" class="LineNr">1630 </span> <span class="muComment"># keyboard = args->left</span> -<span id="L1631" class="LineNr">1631 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left -<span id="L1632" class="LineNr">1632 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-ah -<span id="L1633" class="LineNr">1633 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> -<span id="L1634" class="LineNr">1634 </span> compare *first-type, <span class="Constant">6</span>/keyboard -<span id="L1635" class="LineNr">1635 </span> <span class="Delimiter">{</span> -<span id="L1636" class="LineNr">1636 </span> <span class="PreProc">break-if-=</span> -<span id="L1637" class="LineNr">1637 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for 'key' is not a keyboard"</span> -<span id="L1638" class="LineNr">1638 </span> <span class="PreProc">return</span> -<span id="L1639" class="LineNr">1639 </span> <span class="Delimiter">}</span> -<span id="L1640" class="LineNr">1640 </span> <span class="PreProc">var</span> keyboard-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get first, keyboard-data -<span id="L1641" class="LineNr">1641 </span> <span class="PreProc">var</span> _keyboard/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *keyboard-ah -<span id="L1642" class="LineNr">1642 </span> <span class="PreProc">var</span> keyboard/<span class="Constant">ecx</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _keyboard -<span id="L1643" class="LineNr">1643 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='global.mu.html#L1648'>wait-for-key</a> keyboard -<span id="L1644" class="LineNr">1644 </span> <span class="muComment"># return key typed</span> -<span id="L1645" class="LineNr">1645 </span> <a href='cell.mu.html#L83'>new-integer</a> out, result -<span id="L1646" class="LineNr">1646 </span><span class="Delimiter">}</span> -<span id="L1647" class="LineNr">1647 </span> -<span id="L1648" class="LineNr">1648 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1648'>wait-for-key</a></span> keyboard: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L1649" class="LineNr">1649 </span> <span class="muComment"># if keyboard is 0, use real keyboard</span> -<span id="L1650" class="LineNr">1650 </span> <span class="Delimiter">{</span> -<span id="L1651" class="LineNr">1651 </span> compare keyboard, <span class="Constant">0</span>/real-keyboard -<span id="L1652" class="LineNr">1652 </span> <span class="PreProc">break-if-!=</span> -<span id="L1653" class="LineNr">1653 </span> <span class="PreProc">var</span> key/<span class="Constant">eax</span>: byte <span class="Special"><-</span> <a href='../102keyboard.subx.html#L21'>read-key</a> <span class="Constant">0</span>/real-keyboard -<span id="L1654" class="LineNr">1654 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy key -<span id="L1655" class="LineNr">1655 </span> <span class="PreProc">return</span> result -<span id="L1656" class="LineNr">1656 </span> <span class="Delimiter">}</span> -<span id="L1657" class="LineNr">1657 </span> <span class="muComment"># otherwise read from fake keyboard</span> -<span id="L1658" class="LineNr">1658 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L817'>read-from-gap-buffer</a> keyboard -<span id="L1659" class="LineNr">1659 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy g -<span id="L1660" class="LineNr">1660 </span> <span class="PreProc">return</span> result -<span id="L1661" class="LineNr">1661 </span><span class="Delimiter">}</span> -<span id="L1662" class="LineNr">1662 </span> -<span id="L1663" class="LineNr">1663 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1663'>apply-stream</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L1664" class="LineNr">1664 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply stream"</span> -<span id="L1665" class="LineNr">1665 </span> <a href='cell.mu.html#L57'>allocate-stream</a> out -<span id="L1666" class="LineNr">1666 </span><span class="Delimiter">}</span> -<span id="L1667" class="LineNr">1667 </span> -<span id="L1668" class="LineNr">1668 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1668'>apply-write</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L1669" class="LineNr">1669 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply write"</span> -<span id="L1670" class="LineNr">1670 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah -<span id="L1671" class="LineNr">1671 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *args-ah -<span id="L1672" class="LineNr">1672 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args -<span id="L1673" class="LineNr">1673 </span> <span class="muComment"># TODO: check that args is a pair</span> -<span id="L1674" class="LineNr">1674 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> args -<span id="L1675" class="LineNr">1675 </span> compare empty-args?, <span class="Constant">0</span>/false -<span id="L1676" class="LineNr">1676 </span> <span class="Delimiter">{</span> -<span id="L1677" class="LineNr">1677 </span> <span class="PreProc">break-if-=</span> -<span id="L1678" class="LineNr">1678 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"write needs 2 args but got 0"</span> -<span id="L1679" class="LineNr">1679 </span> <span class="PreProc">return</span> -<span id="L1680" class="LineNr">1680 </span> <span class="Delimiter">}</span> -<span id="L1681" class="LineNr">1681 </span> <span class="muComment"># stream = args->left</span> -<span id="L1682" class="LineNr">1682 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left -<span id="L1683" class="LineNr">1683 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-ah -<span id="L1684" class="LineNr">1684 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> -<span id="L1685" class="LineNr">1685 </span> compare *first-type, <span class="Constant">3</span>/stream -<span id="L1686" class="LineNr">1686 </span> <span class="Delimiter">{</span> -<span id="L1687" class="LineNr">1687 </span> <span class="PreProc">break-if-=</span> -<span id="L1688" class="LineNr">1688 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for 'write' is not a stream"</span> -<span id="L1689" class="LineNr">1689 </span> <span class="PreProc">return</span> -<span id="L1690" class="LineNr">1690 </span> <span class="Delimiter">}</span> -<span id="L1691" class="LineNr">1691 </span> <span class="PreProc">var</span> stream-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get first, text-data -<span id="L1692" class="LineNr">1692 </span> <span class="PreProc">var</span> _stream-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *stream-data-ah -<span id="L1693" class="LineNr">1693 </span> <span class="PreProc">var</span> stream-data/<span class="Constant">ebx</span>: (addr stream byte) <span class="Special"><-</span> copy _stream-data -<span id="L1694" class="LineNr">1694 </span> <span class="muComment"># args->right->left</span> -<span id="L1695" class="LineNr">1695 </span> <span class="PreProc">var</span> right-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, right -<span id="L1696" class="LineNr">1696 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *right-ah -<span id="L1697" class="LineNr">1697 </span> <span class="muComment"># TODO: check that right is a pair</span> -<span id="L1698" class="LineNr">1698 </span> <span class="PreProc">var</span> second-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get right, left -<span id="L1699" class="LineNr">1699 </span> <span class="PreProc">var</span> second/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *second-ah -<span id="L1700" class="LineNr">1700 </span> <span class="PreProc">var</span> second-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get second, <span class="PreProc">type</span> -<span id="L1701" class="LineNr">1701 </span> compare *second-type, <span class="Constant">1</span>/number -<span id="L1702" class="LineNr">1702 </span> <span class="Delimiter">{</span> -<span id="L1703" class="LineNr">1703 </span> <span class="PreProc">break-if-=</span> -<span id="L1704" class="LineNr">1704 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"second arg for stream is not a number/grapheme"</span> -<span id="L1705" class="LineNr">1705 </span> <span class="PreProc">return</span> -<span id="L1706" class="LineNr">1706 </span> <span class="Delimiter">}</span> -<span id="L1707" class="LineNr">1707 </span> <span class="PreProc">var</span> second-value/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> get second, number-data -<span id="L1708" class="LineNr">1708 </span> <span class="PreProc">var</span> x-float/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *second-value -<span id="L1709" class="LineNr">1709 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> convert x-float -<span id="L1710" class="LineNr">1710 </span> <span class="PreProc">var</span> x-grapheme/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy x -<span id="L1711" class="LineNr">1711 </span> <a href='../403unicode.mu.html#L176'>write-grapheme</a> stream-data, x-grapheme -<span id="L1712" class="LineNr">1712 </span> <span class="muComment"># return the stream</span> -<span id="L1713" class="LineNr">1713 </span> copy-object first-ah, out -<span id="L1714" class="LineNr">1714 </span><span class="Delimiter">}</span> -<span id="L1715" class="LineNr">1715 </span> -<span id="L1716" class="LineNr">1716 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1716'>apply-lines</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L1717" class="LineNr">1717 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply lines"</span> -<span id="L1718" class="LineNr">1718 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah -<span id="L1719" class="LineNr">1719 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *args-ah -<span id="L1720" class="LineNr">1720 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args -<span id="L1721" class="LineNr">1721 </span> <span class="muComment"># TODO: check that args is a pair</span> -<span id="L1722" class="LineNr">1722 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> args -<span id="L1723" class="LineNr">1723 </span> compare empty-args?, <span class="Constant">0</span>/false -<span id="L1724" class="LineNr">1724 </span> <span class="Delimiter">{</span> -<span id="L1725" class="LineNr">1725 </span> <span class="PreProc">break-if-=</span> -<span id="L1726" class="LineNr">1726 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"lines needs 1 arg but got 0"</span> -<span id="L1727" class="LineNr">1727 </span> <span class="PreProc">return</span> -<span id="L1728" class="LineNr">1728 </span> <span class="Delimiter">}</span> -<span id="L1729" class="LineNr">1729 </span> <span class="muComment"># screen = args->left</span> -<span id="L1730" class="LineNr">1730 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left -<span id="L1731" class="LineNr">1731 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-ah -<span id="L1732" class="LineNr">1732 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> -<span id="L1733" class="LineNr">1733 </span> compare *first-type, <span class="Constant">5</span>/screen -<span id="L1734" class="LineNr">1734 </span> <span class="Delimiter">{</span> -<span id="L1735" class="LineNr">1735 </span> <span class="PreProc">break-if-=</span> -<span id="L1736" class="LineNr">1736 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for 'lines' is not a screen"</span> -<span id="L1737" class="LineNr">1737 </span> <span class="PreProc">return</span> -<span id="L1738" class="LineNr">1738 </span> <span class="Delimiter">}</span> -<span id="L1739" class="LineNr">1739 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> get first, screen-data -<span id="L1740" class="LineNr">1740 </span> <span class="PreProc">var</span> _screen/<span class="Constant">eax</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *screen-ah -<span id="L1741" class="LineNr">1741 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edx</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> copy _screen -<span id="L1742" class="LineNr">1742 </span> <span class="muComment"># compute dimensions</span> -<span id="L1743" class="LineNr">1743 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L1744" class="LineNr">1744 </span> <span class="PreProc">var</span> height/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L1745" class="LineNr">1745 </span> dummy, height <span class="Special"><-</span> <a href='../500fake-screen.mu.html#L70'>screen-size</a> <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L1746" class="LineNr">1746 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert height -<span id="L1747" class="LineNr">1747 </span> <a href='cell.mu.html#L96'>new-float</a> out, result -<span id="L1748" class="LineNr">1748 </span><span class="Delimiter">}</span> -<span id="L1749" class="LineNr">1749 </span> -<span id="L1750" class="LineNr">1750 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1750'>apply-abort</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L1751" class="LineNr">1751 </span> <a href='../501draw-text.mu.html#L481'>abort</a> <span class="Constant">"aa"</span> +<span id="L1045" class="LineNr">1045 </span> <span class="Delimiter">{</span> +<span id="L1046" class="LineNr">1046 </span> <span class="PreProc">break-if-float></span> +<span id="L1047" class="LineNr">1047 </span> <span class="PreProc">var</span> neg1/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">-1</span> +<span id="L1048" class="LineNr">1048 </span> result <span class="Special"><-</span> convert neg1 +<span id="L1049" class="LineNr">1049 </span> <span class="PreProc">break</span> $apply-sgn:core +<span id="L1050" class="LineNr">1050 </span> <span class="Delimiter">}</span> +<span id="L1051" class="LineNr">1051 </span> <span class="Delimiter">{</span> +<span id="L1052" class="LineNr">1052 </span> <span class="PreProc">break-if-float<</span> +<span id="L1053" class="LineNr">1053 </span> <span class="PreProc">var</span> one/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> +<span id="L1054" class="LineNr">1054 </span> result <span class="Special"><-</span> convert one +<span id="L1055" class="LineNr">1055 </span> <span class="PreProc">break</span> $apply-sgn:core +<span id="L1056" class="LineNr">1056 </span> <span class="Delimiter">}</span> +<span id="L1057" class="LineNr">1057 </span> <span class="Delimiter">}</span> +<span id="L1058" class="LineNr">1058 </span> <a href='cell.mu.html#L97'>new-float</a> out, result +<span id="L1059" class="LineNr">1059 </span><span class="Delimiter">}</span> +<span id="L1060" class="LineNr">1060 </span> +<span id="L1061" class="LineNr">1061 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1061'>apply-car</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L1062" class="LineNr">1062 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply car"</span> +<span id="L1063" class="LineNr">1063 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah +<span id="L1064" class="LineNr">1064 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *args-ah +<span id="L1065" class="LineNr">1065 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args +<span id="L1066" class="LineNr">1066 </span> <span class="muComment"># TODO: check that args is a pair</span> +<span id="L1067" class="LineNr">1067 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> args +<span id="L1068" class="LineNr">1068 </span> compare empty-args?, <span class="Constant">0</span>/false +<span id="L1069" class="LineNr">1069 </span> <span class="Delimiter">{</span> +<span id="L1070" class="LineNr">1070 </span> <span class="PreProc">break-if-=</span> +<span id="L1071" class="LineNr">1071 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"car needs 1 arg but got 0"</span> +<span id="L1072" class="LineNr">1072 </span> <span class="PreProc">return</span> +<span id="L1073" class="LineNr">1073 </span> <span class="Delimiter">}</span> +<span id="L1074" class="LineNr">1074 </span> <span class="muComment"># args->left</span> +<span id="L1075" class="LineNr">1075 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left +<span id="L1076" class="LineNr">1076 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-ah +<span id="L1077" class="LineNr">1077 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> +<span id="L1078" class="LineNr">1078 </span> compare *first-type, <span class="Constant">0</span>/pair +<span id="L1079" class="LineNr">1079 </span> <span class="Delimiter">{</span> +<span id="L1080" class="LineNr">1080 </span> <span class="PreProc">break-if-=</span> +<span id="L1081" class="LineNr">1081 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"arg for <a href='evaluate.mu.html#L981'>car</a> is not a pair"</span> +<span id="L1082" class="LineNr">1082 </span> <span class="PreProc">return</span> +<span id="L1083" class="LineNr">1083 </span> <span class="Delimiter">}</span> +<span id="L1084" class="LineNr">1084 </span> <span class="muComment"># car</span> +<span id="L1085" class="LineNr">1085 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get first, left +<span id="L1086" class="LineNr">1086 </span> copy-object result, out +<span id="L1087" class="LineNr">1087 </span><span class="Delimiter">}</span> +<span id="L1088" class="LineNr">1088 </span> +<span id="L1089" class="LineNr">1089 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1089'>apply-cdr</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L1090" class="LineNr">1090 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply cdr"</span> +<span id="L1091" class="LineNr">1091 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah +<span id="L1092" class="LineNr">1092 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *args-ah +<span id="L1093" class="LineNr">1093 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args +<span id="L1094" class="LineNr">1094 </span> <span class="muComment"># TODO: check that args is a pair</span> +<span id="L1095" class="LineNr">1095 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> args +<span id="L1096" class="LineNr">1096 </span> compare empty-args?, <span class="Constant">0</span>/false +<span id="L1097" class="LineNr">1097 </span> <span class="Delimiter">{</span> +<span id="L1098" class="LineNr">1098 </span> <span class="PreProc">break-if-=</span> +<span id="L1099" class="LineNr">1099 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"cdr needs 1 arg but got 0"</span> +<span id="L1100" class="LineNr">1100 </span> <span class="PreProc">return</span> +<span id="L1101" class="LineNr">1101 </span> <span class="Delimiter">}</span> +<span id="L1102" class="LineNr">1102 </span> <span class="muComment"># args->left</span> +<span id="L1103" class="LineNr">1103 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left +<span id="L1104" class="LineNr">1104 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-ah +<span id="L1105" class="LineNr">1105 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> +<span id="L1106" class="LineNr">1106 </span> compare *first-type, <span class="Constant">0</span>/pair +<span id="L1107" class="LineNr">1107 </span> <span class="Delimiter">{</span> +<span id="L1108" class="LineNr">1108 </span> <span class="PreProc">break-if-=</span> +<span id="L1109" class="LineNr">1109 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"arg for <a href='evaluate.mu.html#L1009'>cdr</a> is not a pair"</span> +<span id="L1110" class="LineNr">1110 </span> <span class="PreProc">return</span> +<span id="L1111" class="LineNr">1111 </span> <span class="Delimiter">}</span> +<span id="L1112" class="LineNr">1112 </span> <span class="muComment"># cdr</span> +<span id="L1113" class="LineNr">1113 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get first, right +<span id="L1114" class="LineNr">1114 </span> copy-object result, out +<span id="L1115" class="LineNr">1115 </span><span class="Delimiter">}</span> +<span id="L1116" class="LineNr">1116 </span> +<span id="L1117" class="LineNr">1117 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1117'>apply-cons</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L1118" class="LineNr">1118 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply cons"</span> +<span id="L1119" class="LineNr">1119 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah +<span id="L1120" class="LineNr">1120 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *args-ah +<span id="L1121" class="LineNr">1121 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args +<span id="L1122" class="LineNr">1122 </span> <span class="muComment"># TODO: check that args is a pair</span> +<span id="L1123" class="LineNr">1123 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> args +<span id="L1124" class="LineNr">1124 </span> compare empty-args?, <span class="Constant">0</span>/false +<span id="L1125" class="LineNr">1125 </span> <span class="Delimiter">{</span> +<span id="L1126" class="LineNr">1126 </span> <span class="PreProc">break-if-=</span> +<span id="L1127" class="LineNr">1127 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"cons needs 2 args but got 0"</span> +<span id="L1128" class="LineNr">1128 </span> <span class="PreProc">return</span> +<span id="L1129" class="LineNr">1129 </span> <span class="Delimiter">}</span> +<span id="L1130" class="LineNr">1130 </span> <span class="muComment"># args->left</span> +<span id="L1131" class="LineNr">1131 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left +<span id="L1132" class="LineNr">1132 </span> <span class="muComment"># args->right->left</span> +<span id="L1133" class="LineNr">1133 </span> <span class="PreProc">var</span> right-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, right +<span id="L1134" class="LineNr">1134 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *right-ah +<span id="L1135" class="LineNr">1135 </span> <span class="muComment"># TODO: check that right is a pair</span> +<span id="L1136" class="LineNr">1136 </span> <span class="PreProc">var</span> second-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get right, left +<span id="L1137" class="LineNr">1137 </span> <span class="muComment"># cons</span> +<span id="L1138" class="LineNr">1138 </span> <a href='cell.mu.html#L116'>new-pair</a> out, *first-ah, *second-ah +<span id="L1139" class="LineNr">1139 </span><span class="Delimiter">}</span> +<span id="L1140" class="LineNr">1140 </span> +<span id="L1141" class="LineNr">1141 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1141'>apply-structurally-equal</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L1142" class="LineNr">1142 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply '='"</span> +<span id="L1143" class="LineNr">1143 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah +<span id="L1144" class="LineNr">1144 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *args-ah +<span id="L1145" class="LineNr">1145 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args +<span id="L1146" class="LineNr">1146 </span> <span class="muComment"># TODO: check that args is a pair</span> +<span id="L1147" class="LineNr">1147 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> args +<span id="L1148" class="LineNr">1148 </span> compare empty-args?, <span class="Constant">0</span>/false +<span id="L1149" class="LineNr">1149 </span> <span class="Delimiter">{</span> +<span id="L1150" class="LineNr">1150 </span> <span class="PreProc">break-if-=</span> +<span id="L1151" class="LineNr">1151 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"'=' needs 2 args but got 0"</span> +<span id="L1152" class="LineNr">1152 </span> <span class="PreProc">return</span> +<span id="L1153" class="LineNr">1153 </span> <span class="Delimiter">}</span> +<span id="L1154" class="LineNr">1154 </span> <span class="muComment"># args->left</span> +<span id="L1155" class="LineNr">1155 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left +<span id="L1156" class="LineNr">1156 </span> <span class="muComment"># args->right->left</span> +<span id="L1157" class="LineNr">1157 </span> <span class="PreProc">var</span> right-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, right +<span id="L1158" class="LineNr">1158 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *right-ah +<span id="L1159" class="LineNr">1159 </span> <span class="muComment"># TODO: check that right is a pair</span> +<span id="L1160" class="LineNr">1160 </span> <span class="PreProc">var</span> second-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get right, left +<span id="L1161" class="LineNr">1161 </span> <span class="muComment"># compare</span> +<span id="L1162" class="LineNr">1162 </span> <span class="PreProc">var</span> _first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-ah +<span id="L1163" class="LineNr">1163 </span> <span class="PreProc">var</span> first/<span class="Constant">ecx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _first +<span id="L1164" class="LineNr">1164 </span> <span class="PreProc">var</span> second/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *second-ah +<span id="L1165" class="LineNr">1165 </span> <span class="PreProc">var</span> match?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='evaluate.mu.html#L1037'>cell-isomorphic?</a> first, second, trace +<span id="L1166" class="LineNr">1166 </span> compare match?, <span class="Constant">0</span>/false +<span id="L1167" class="LineNr">1167 </span> <span class="Delimiter">{</span> +<span id="L1168" class="LineNr">1168 </span> <span class="PreProc">break-if-!=</span> +<span id="L1169" class="LineNr">1169 </span> <a href='cell.mu.html#L121'>nil</a> out +<span id="L1170" class="LineNr">1170 </span> <span class="PreProc">return</span> +<span id="L1171" class="LineNr">1171 </span> <span class="Delimiter">}</span> +<span id="L1172" class="LineNr">1172 </span> <a href='cell.mu.html#L84'>new-integer</a> out, <span class="Constant">1</span>/true +<span id="L1173" class="LineNr">1173 </span><span class="Delimiter">}</span> +<span id="L1174" class="LineNr">1174 </span> +<span id="L1175" class="LineNr">1175 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1175'>apply-not</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L1176" class="LineNr">1176 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply not"</span> +<span id="L1177" class="LineNr">1177 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah +<span id="L1178" class="LineNr">1178 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *args-ah +<span id="L1179" class="LineNr">1179 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args +<span id="L1180" class="LineNr">1180 </span> <span class="muComment"># TODO: check that args is a pair</span> +<span id="L1181" class="LineNr">1181 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> args +<span id="L1182" class="LineNr">1182 </span> compare empty-args?, <span class="Constant">0</span>/false +<span id="L1183" class="LineNr">1183 </span> <span class="Delimiter">{</span> +<span id="L1184" class="LineNr">1184 </span> <span class="PreProc">break-if-=</span> +<span id="L1185" class="LineNr">1185 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"not needs 1 arg but got 0"</span> +<span id="L1186" class="LineNr">1186 </span> <span class="PreProc">return</span> +<span id="L1187" class="LineNr">1187 </span> <span class="Delimiter">}</span> +<span id="L1188" class="LineNr">1188 </span> <span class="muComment"># args->left</span> +<span id="L1189" class="LineNr">1189 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left +<span id="L1190" class="LineNr">1190 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-ah +<span id="L1191" class="LineNr">1191 </span> <span class="muComment"># not</span> +<span id="L1192" class="LineNr">1192 </span> <span class="PreProc">var</span> <a href='print.mu.html#L236'>nil?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> first +<span id="L1193" class="LineNr">1193 </span> compare <a href='print.mu.html#L236'>nil?</a>, <span class="Constant">0</span>/false +<span id="L1194" class="LineNr">1194 </span> <span class="Delimiter">{</span> +<span id="L1195" class="LineNr">1195 </span> <span class="PreProc">break-if-!=</span> +<span id="L1196" class="LineNr">1196 </span> <a href='cell.mu.html#L121'>nil</a> out +<span id="L1197" class="LineNr">1197 </span> <span class="PreProc">return</span> +<span id="L1198" class="LineNr">1198 </span> <span class="Delimiter">}</span> +<span id="L1199" class="LineNr">1199 </span> <a href='cell.mu.html#L84'>new-integer</a> out, <span class="Constant">1</span> +<span id="L1200" class="LineNr">1200 </span><span class="Delimiter">}</span> +<span id="L1201" class="LineNr">1201 </span> +<span id="L1202" class="LineNr">1202 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1202'>apply-debug</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L1203" class="LineNr">1203 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply debug"</span> +<span id="L1204" class="LineNr">1204 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah +<span id="L1205" class="LineNr">1205 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *args-ah +<span id="L1206" class="LineNr">1206 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args +<span id="L1207" class="LineNr">1207 </span> <span class="muComment"># TODO: check that args is a pair</span> +<span id="L1208" class="LineNr">1208 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> args +<span id="L1209" class="LineNr">1209 </span> compare empty-args?, <span class="Constant">0</span>/false +<span id="L1210" class="LineNr">1210 </span> <span class="Delimiter">{</span> +<span id="L1211" class="LineNr">1211 </span> <span class="PreProc">break-if-=</span> +<span id="L1212" class="LineNr">1212 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"not needs 1 arg but got 0"</span> +<span id="L1213" class="LineNr">1213 </span> <span class="PreProc">return</span> +<span id="L1214" class="LineNr">1214 </span> <span class="Delimiter">}</span> +<span id="L1215" class="LineNr">1215 </span> <span class="muComment"># dump args->left uglily to screen and wait for a keypress</span> +<span id="L1216" class="LineNr">1216 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left +<span id="L1217" class="LineNr">1217 </span> <a href='print.mu.html#L94'>dump-cell-from-cursor-over-full-screen</a> first-ah +<span id="L1218" class="LineNr">1218 </span> <span class="Delimiter">{</span> +<span id="L1219" class="LineNr">1219 </span> <span class="PreProc">var</span> foo/<span class="Constant">eax</span>: byte <span class="Special"><-</span> <a href='../102keyboard.subx.html#L21'>read-key</a> <span class="Constant">0</span>/keyboard +<span id="L1220" class="LineNr">1220 </span> compare foo, <span class="Constant">0</span> +<span id="L1221" class="LineNr">1221 </span> <span class="PreProc">loop-if-=</span> +<span id="L1222" class="LineNr">1222 </span> <span class="Delimiter">}</span> +<span id="L1223" class="LineNr">1223 </span> <span class="muComment"># return nothing</span> +<span id="L1224" class="LineNr">1224 </span><span class="Delimiter">}</span> +<span id="L1225" class="LineNr">1225 </span> +<span id="L1226" class="LineNr">1226 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1226'>apply-<</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L1227" class="LineNr">1227 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply '<'"</span> +<span id="L1228" class="LineNr">1228 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah +<span id="L1229" class="LineNr">1229 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *args-ah +<span id="L1230" class="LineNr">1230 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args +<span id="L1231" class="LineNr">1231 </span> <span class="muComment"># TODO: check that args is a pair</span> +<span id="L1232" class="LineNr">1232 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> args +<span id="L1233" class="LineNr">1233 </span> compare empty-args?, <span class="Constant">0</span>/false +<span id="L1234" class="LineNr">1234 </span> <span class="Delimiter">{</span> +<span id="L1235" class="LineNr">1235 </span> <span class="PreProc">break-if-=</span> +<span id="L1236" class="LineNr">1236 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"'<' needs 2 args but got 0"</span> +<span id="L1237" class="LineNr">1237 </span> <span class="PreProc">return</span> +<span id="L1238" class="LineNr">1238 </span> <span class="Delimiter">}</span> +<span id="L1239" class="LineNr">1239 </span> <span class="muComment"># args->left</span> +<span id="L1240" class="LineNr">1240 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left +<span id="L1241" class="LineNr">1241 </span> <span class="muComment"># args->right->left</span> +<span id="L1242" class="LineNr">1242 </span> <span class="PreProc">var</span> right-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, right +<span id="L1243" class="LineNr">1243 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *right-ah +<span id="L1244" class="LineNr">1244 </span> <span class="muComment"># TODO: check that right is a pair</span> +<span id="L1245" class="LineNr">1245 </span> <span class="PreProc">var</span> second-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get right, left +<span id="L1246" class="LineNr">1246 </span> <span class="muComment"># compare</span> +<span id="L1247" class="LineNr">1247 </span> <span class="PreProc">var</span> _first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-ah +<span id="L1248" class="LineNr">1248 </span> <span class="PreProc">var</span> first/<span class="Constant">ecx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _first +<span id="L1249" class="LineNr">1249 </span> <span class="PreProc">var</span> first-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> +<span id="L1250" class="LineNr">1250 </span> compare *first-type, <span class="Constant">1</span>/number +<span id="L1251" class="LineNr">1251 </span> <span class="Delimiter">{</span> +<span id="L1252" class="LineNr">1252 </span> <span class="PreProc">break-if-=</span> +<span id="L1253" class="LineNr">1253 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for '<' is not a number"</span> +<span id="L1254" class="LineNr">1254 </span> <span class="PreProc">return</span> +<span id="L1255" class="LineNr">1255 </span> <span class="Delimiter">}</span> +<span id="L1256" class="LineNr">1256 </span> <span class="PreProc">var</span> first-value/<span class="Constant">ecx</span>: (addr float) <span class="Special"><-</span> get first, number-data +<span id="L1257" class="LineNr">1257 </span> <span class="PreProc">var</span> first-float/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *first-value +<span id="L1258" class="LineNr">1258 </span> <span class="PreProc">var</span> second/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *second-ah +<span id="L1259" class="LineNr">1259 </span> <span class="PreProc">var</span> second-type/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get second, <span class="PreProc">type</span> +<span id="L1260" class="LineNr">1260 </span> compare *second-type, <span class="Constant">1</span>/number +<span id="L1261" class="LineNr">1261 </span> <span class="Delimiter">{</span> +<span id="L1262" class="LineNr">1262 </span> <span class="PreProc">break-if-=</span> +<span id="L1263" class="LineNr">1263 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for '<' is not a number"</span> +<span id="L1264" class="LineNr">1264 </span> <span class="PreProc">return</span> +<span id="L1265" class="LineNr">1265 </span> <span class="Delimiter">}</span> +<span id="L1266" class="LineNr">1266 </span> <span class="PreProc">var</span> second-value/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> get second, number-data +<span id="L1267" class="LineNr">1267 </span> compare first-float, *second-value +<span id="L1268" class="LineNr">1268 </span> <span class="Delimiter">{</span> +<span id="L1269" class="LineNr">1269 </span> <span class="PreProc">break-if-float<</span> +<span id="L1270" class="LineNr">1270 </span> <a href='cell.mu.html#L121'>nil</a> out +<span id="L1271" class="LineNr">1271 </span> <span class="PreProc">return</span> +<span id="L1272" class="LineNr">1272 </span> <span class="Delimiter">}</span> +<span id="L1273" class="LineNr">1273 </span> <a href='cell.mu.html#L84'>new-integer</a> out, <span class="Constant">1</span>/true +<span id="L1274" class="LineNr">1274 </span><span class="Delimiter">}</span> +<span id="L1275" class="LineNr">1275 </span> +<span id="L1276" class="LineNr">1276 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1276'>apply-></a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L1277" class="LineNr">1277 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply '>'"</span> +<span id="L1278" class="LineNr">1278 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah +<span id="L1279" class="LineNr">1279 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *args-ah +<span id="L1280" class="LineNr">1280 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args +<span id="L1281" class="LineNr">1281 </span> <span class="muComment"># TODO: check that args is a pair</span> +<span id="L1282" class="LineNr">1282 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> args +<span id="L1283" class="LineNr">1283 </span> compare empty-args?, <span class="Constant">0</span>/false +<span id="L1284" class="LineNr">1284 </span> <span class="Delimiter">{</span> +<span id="L1285" class="LineNr">1285 </span> <span class="PreProc">break-if-=</span> +<span id="L1286" class="LineNr">1286 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"'>' needs 2 args but got 0"</span> +<span id="L1287" class="LineNr">1287 </span> <span class="PreProc">return</span> +<span id="L1288" class="LineNr">1288 </span> <span class="Delimiter">}</span> +<span id="L1289" class="LineNr">1289 </span> <span class="muComment"># args->left</span> +<span id="L1290" class="LineNr">1290 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left +<span id="L1291" class="LineNr">1291 </span> <span class="muComment"># args->right->left</span> +<span id="L1292" class="LineNr">1292 </span> <span class="PreProc">var</span> right-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, right +<span id="L1293" class="LineNr">1293 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *right-ah +<span id="L1294" class="LineNr">1294 </span> <span class="muComment"># TODO: check that right is a pair</span> +<span id="L1295" class="LineNr">1295 </span> <span class="PreProc">var</span> second-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get right, left +<span id="L1296" class="LineNr">1296 </span> <span class="muComment"># compare</span> +<span id="L1297" class="LineNr">1297 </span> <span class="PreProc">var</span> _first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-ah +<span id="L1298" class="LineNr">1298 </span> <span class="PreProc">var</span> first/<span class="Constant">ecx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _first +<span id="L1299" class="LineNr">1299 </span> <span class="PreProc">var</span> first-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> +<span id="L1300" class="LineNr">1300 </span> compare *first-type, <span class="Constant">1</span>/number +<span id="L1301" class="LineNr">1301 </span> <span class="Delimiter">{</span> +<span id="L1302" class="LineNr">1302 </span> <span class="PreProc">break-if-=</span> +<span id="L1303" class="LineNr">1303 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for '>' is not a number"</span> +<span id="L1304" class="LineNr">1304 </span> <span class="PreProc">return</span> +<span id="L1305" class="LineNr">1305 </span> <span class="Delimiter">}</span> +<span id="L1306" class="LineNr">1306 </span> <span class="PreProc">var</span> first-value/<span class="Constant">ecx</span>: (addr float) <span class="Special"><-</span> get first, number-data +<span id="L1307" class="LineNr">1307 </span> <span class="PreProc">var</span> first-float/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *first-value +<span id="L1308" class="LineNr">1308 </span> <span class="PreProc">var</span> second/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *second-ah +<span id="L1309" class="LineNr">1309 </span> <span class="PreProc">var</span> second-type/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get second, <span class="PreProc">type</span> +<span id="L1310" class="LineNr">1310 </span> compare *second-type, <span class="Constant">1</span>/number +<span id="L1311" class="LineNr">1311 </span> <span class="Delimiter">{</span> +<span id="L1312" class="LineNr">1312 </span> <span class="PreProc">break-if-=</span> +<span id="L1313" class="LineNr">1313 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for '>' is not a number"</span> +<span id="L1314" class="LineNr">1314 </span> <span class="PreProc">return</span> +<span id="L1315" class="LineNr">1315 </span> <span class="Delimiter">}</span> +<span id="L1316" class="LineNr">1316 </span> <span class="PreProc">var</span> second-value/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> get second, number-data +<span id="L1317" class="LineNr">1317 </span> compare first-float, *second-value +<span id="L1318" class="LineNr">1318 </span> <span class="Delimiter">{</span> +<span id="L1319" class="LineNr">1319 </span> <span class="PreProc">break-if-float></span> +<span id="L1320" class="LineNr">1320 </span> <a href='cell.mu.html#L121'>nil</a> out +<span id="L1321" class="LineNr">1321 </span> <span class="PreProc">return</span> +<span id="L1322" class="LineNr">1322 </span> <span class="Delimiter">}</span> +<span id="L1323" class="LineNr">1323 </span> <a href='cell.mu.html#L84'>new-integer</a> out, <span class="Constant">1</span>/true +<span id="L1324" class="LineNr">1324 </span><span class="Delimiter">}</span> +<span id="L1325" class="LineNr">1325 </span> +<span id="L1326" class="LineNr">1326 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1326'>apply-<=</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L1327" class="LineNr">1327 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply '<='"</span> +<span id="L1328" class="LineNr">1328 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah +<span id="L1329" class="LineNr">1329 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *args-ah +<span id="L1330" class="LineNr">1330 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args +<span id="L1331" class="LineNr">1331 </span> <span class="muComment"># TODO: check that args is a pair</span> +<span id="L1332" class="LineNr">1332 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> args +<span id="L1333" class="LineNr">1333 </span> compare empty-args?, <span class="Constant">0</span>/false +<span id="L1334" class="LineNr">1334 </span> <span class="Delimiter">{</span> +<span id="L1335" class="LineNr">1335 </span> <span class="PreProc">break-if-=</span> +<span id="L1336" class="LineNr">1336 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"'<=' needs 2 args but got 0"</span> +<span id="L1337" class="LineNr">1337 </span> <span class="PreProc">return</span> +<span id="L1338" class="LineNr">1338 </span> <span class="Delimiter">}</span> +<span id="L1339" class="LineNr">1339 </span> <span class="muComment"># args->left</span> +<span id="L1340" class="LineNr">1340 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left +<span id="L1341" class="LineNr">1341 </span> <span class="muComment"># args->right->left</span> +<span id="L1342" class="LineNr">1342 </span> <span class="PreProc">var</span> right-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, right +<span id="L1343" class="LineNr">1343 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *right-ah +<span id="L1344" class="LineNr">1344 </span> <span class="muComment"># TODO: check that right is a pair</span> +<span id="L1345" class="LineNr">1345 </span> <span class="PreProc">var</span> second-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get right, left +<span id="L1346" class="LineNr">1346 </span> <span class="muComment"># compare</span> +<span id="L1347" class="LineNr">1347 </span> <span class="PreProc">var</span> _first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-ah +<span id="L1348" class="LineNr">1348 </span> <span class="PreProc">var</span> first/<span class="Constant">ecx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _first +<span id="L1349" class="LineNr">1349 </span> <span class="PreProc">var</span> first-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> +<span id="L1350" class="LineNr">1350 </span> compare *first-type, <span class="Constant">1</span>/number +<span id="L1351" class="LineNr">1351 </span> <span class="Delimiter">{</span> +<span id="L1352" class="LineNr">1352 </span> <span class="PreProc">break-if-=</span> +<span id="L1353" class="LineNr">1353 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for '<=' is not a number"</span> +<span id="L1354" class="LineNr">1354 </span> <span class="PreProc">return</span> +<span id="L1355" class="LineNr">1355 </span> <span class="Delimiter">}</span> +<span id="L1356" class="LineNr">1356 </span> <span class="PreProc">var</span> first-value/<span class="Constant">ecx</span>: (addr float) <span class="Special"><-</span> get first, number-data +<span id="L1357" class="LineNr">1357 </span> <span class="PreProc">var</span> first-float/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *first-value +<span id="L1358" class="LineNr">1358 </span> <span class="PreProc">var</span> second/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *second-ah +<span id="L1359" class="LineNr">1359 </span> <span class="PreProc">var</span> second-type/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get second, <span class="PreProc">type</span> +<span id="L1360" class="LineNr">1360 </span> compare *second-type, <span class="Constant">1</span>/number +<span id="L1361" class="LineNr">1361 </span> <span class="Delimiter">{</span> +<span id="L1362" class="LineNr">1362 </span> <span class="PreProc">break-if-=</span> +<span id="L1363" class="LineNr">1363 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for '<=' is not a number"</span> +<span id="L1364" class="LineNr">1364 </span> <span class="PreProc">return</span> +<span id="L1365" class="LineNr">1365 </span> <span class="Delimiter">}</span> +<span id="L1366" class="LineNr">1366 </span> <span class="PreProc">var</span> second-value/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> get second, number-data +<span id="L1367" class="LineNr">1367 </span> compare first-float, *second-value +<span id="L1368" class="LineNr">1368 </span> <span class="Delimiter">{</span> +<span id="L1369" class="LineNr">1369 </span> <span class="PreProc">break-if-float<=</span> +<span id="L1370" class="LineNr">1370 </span> <a href='cell.mu.html#L121'>nil</a> out +<span id="L1371" class="LineNr">1371 </span> <span class="PreProc">return</span> +<span id="L1372" class="LineNr">1372 </span> <span class="Delimiter">}</span> +<span id="L1373" class="LineNr">1373 </span> <a href='cell.mu.html#L84'>new-integer</a> out, <span class="Constant">1</span>/true +<span id="L1374" class="LineNr">1374 </span><span class="Delimiter">}</span> +<span id="L1375" class="LineNr">1375 </span> +<span id="L1376" class="LineNr">1376 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1376'>apply->=</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L1377" class="LineNr">1377 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply '>='"</span> +<span id="L1378" class="LineNr">1378 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah +<span id="L1379" class="LineNr">1379 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *args-ah +<span id="L1380" class="LineNr">1380 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args +<span id="L1381" class="LineNr">1381 </span> <span class="muComment"># TODO: check that args is a pair</span> +<span id="L1382" class="LineNr">1382 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> args +<span id="L1383" class="LineNr">1383 </span> compare empty-args?, <span class="Constant">0</span>/false +<span id="L1384" class="LineNr">1384 </span> <span class="Delimiter">{</span> +<span id="L1385" class="LineNr">1385 </span> <span class="PreProc">break-if-=</span> +<span id="L1386" class="LineNr">1386 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"'>=' needs 2 args but got 0"</span> +<span id="L1387" class="LineNr">1387 </span> <span class="PreProc">return</span> +<span id="L1388" class="LineNr">1388 </span> <span class="Delimiter">}</span> +<span id="L1389" class="LineNr">1389 </span> <span class="muComment"># args->left</span> +<span id="L1390" class="LineNr">1390 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left +<span id="L1391" class="LineNr">1391 </span> <span class="muComment"># args->right->left</span> +<span id="L1392" class="LineNr">1392 </span> <span class="PreProc">var</span> right-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, right +<span id="L1393" class="LineNr">1393 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *right-ah +<span id="L1394" class="LineNr">1394 </span> <span class="muComment"># TODO: check that right is a pair</span> +<span id="L1395" class="LineNr">1395 </span> <span class="PreProc">var</span> second-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get right, left +<span id="L1396" class="LineNr">1396 </span> <span class="muComment"># compare</span> +<span id="L1397" class="LineNr">1397 </span> <span class="PreProc">var</span> _first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-ah +<span id="L1398" class="LineNr">1398 </span> <span class="PreProc">var</span> first/<span class="Constant">ecx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _first +<span id="L1399" class="LineNr">1399 </span> <span class="PreProc">var</span> first-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> +<span id="L1400" class="LineNr">1400 </span> compare *first-type, <span class="Constant">1</span>/number +<span id="L1401" class="LineNr">1401 </span> <span class="Delimiter">{</span> +<span id="L1402" class="LineNr">1402 </span> <span class="PreProc">break-if-=</span> +<span id="L1403" class="LineNr">1403 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for '>=' is not a number"</span> +<span id="L1404" class="LineNr">1404 </span> <span class="PreProc">return</span> +<span id="L1405" class="LineNr">1405 </span> <span class="Delimiter">}</span> +<span id="L1406" class="LineNr">1406 </span> <span class="PreProc">var</span> first-value/<span class="Constant">ecx</span>: (addr float) <span class="Special"><-</span> get first, number-data +<span id="L1407" class="LineNr">1407 </span> <span class="PreProc">var</span> first-float/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *first-value +<span id="L1408" class="LineNr">1408 </span> <span class="PreProc">var</span> second/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *second-ah +<span id="L1409" class="LineNr">1409 </span> <span class="PreProc">var</span> second-type/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get second, <span class="PreProc">type</span> +<span id="L1410" class="LineNr">1410 </span> compare *second-type, <span class="Constant">1</span>/number +<span id="L1411" class="LineNr">1411 </span> <span class="Delimiter">{</span> +<span id="L1412" class="LineNr">1412 </span> <span class="PreProc">break-if-=</span> +<span id="L1413" class="LineNr">1413 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for '>=' is not a number"</span> +<span id="L1414" class="LineNr">1414 </span> <span class="PreProc">return</span> +<span id="L1415" class="LineNr">1415 </span> <span class="Delimiter">}</span> +<span id="L1416" class="LineNr">1416 </span> <span class="PreProc">var</span> second-value/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> get second, number-data +<span id="L1417" class="LineNr">1417 </span> compare first-float, *second-value +<span id="L1418" class="LineNr">1418 </span> <span class="Delimiter">{</span> +<span id="L1419" class="LineNr">1419 </span> <span class="PreProc">break-if-float>=</span> +<span id="L1420" class="LineNr">1420 </span> <a href='cell.mu.html#L121'>nil</a> out +<span id="L1421" class="LineNr">1421 </span> <span class="PreProc">return</span> +<span id="L1422" class="LineNr">1422 </span> <span class="Delimiter">}</span> +<span id="L1423" class="LineNr">1423 </span> <a href='cell.mu.html#L84'>new-integer</a> out, <span class="Constant">1</span>/true +<span id="L1424" class="LineNr">1424 </span><span class="Delimiter">}</span> +<span id="L1425" class="LineNr">1425 </span> +<span id="L1426" class="LineNr">1426 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1426'>apply-print</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L1427" class="LineNr">1427 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply print"</span> +<span id="L1428" class="LineNr">1428 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah +<span id="L1429" class="LineNr">1429 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *args-ah +<span id="L1430" class="LineNr">1430 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args +<span id="L1431" class="LineNr">1431 </span> <span class="muComment"># TODO: check that args is a pair</span> +<span id="L1432" class="LineNr">1432 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> args +<span id="L1433" class="LineNr">1433 </span> compare empty-args?, <span class="Constant">0</span>/false +<span id="L1434" class="LineNr">1434 </span> <span class="Delimiter">{</span> +<span id="L1435" class="LineNr">1435 </span> <span class="PreProc">break-if-=</span> +<span id="L1436" class="LineNr">1436 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"print needs 2 args but got 0"</span> +<span id="L1437" class="LineNr">1437 </span> <span class="PreProc">return</span> +<span id="L1438" class="LineNr">1438 </span> <span class="Delimiter">}</span> +<span id="L1439" class="LineNr">1439 </span> <span class="muComment"># screen = args->left</span> +<span id="L1440" class="LineNr">1440 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left +<span id="L1441" class="LineNr">1441 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-ah +<span id="L1442" class="LineNr">1442 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> +<span id="L1443" class="LineNr">1443 </span> compare *first-type, <span class="Constant">5</span>/screen +<span id="L1444" class="LineNr">1444 </span> <span class="Delimiter">{</span> +<span id="L1445" class="LineNr">1445 </span> <span class="PreProc">break-if-=</span> +<span id="L1446" class="LineNr">1446 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for 'print' is not a screen"</span> +<span id="L1447" class="LineNr">1447 </span> <span class="PreProc">return</span> +<span id="L1448" class="LineNr">1448 </span> <span class="Delimiter">}</span> +<span id="L1449" class="LineNr">1449 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> get first, screen-data +<span id="L1450" class="LineNr">1450 </span> <span class="PreProc">var</span> _screen/<span class="Constant">eax</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *screen-ah +<span id="L1451" class="LineNr">1451 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">ecx</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> copy _screen +<span id="L1452" class="LineNr">1452 </span> <span class="muComment"># args->right->left</span> +<span id="L1453" class="LineNr">1453 </span> <span class="PreProc">var</span> right-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, right +<span id="L1454" class="LineNr">1454 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *right-ah +<span id="L1455" class="LineNr">1455 </span> <span class="muComment"># TODO: check that right is a pair</span> +<span id="L1456" class="LineNr">1456 </span> <span class="PreProc">var</span> second-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get right, left +<span id="L1457" class="LineNr">1457 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x100</span>) +<span id="L1458" class="LineNr">1458 </span> <span class="PreProc">var</span> stream/<span class="Constant">edi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L1459" class="LineNr">1459 </span> <a href='print.mu.html#L1'>print-cell</a> second-ah, stream, trace +<span id="L1460" class="LineNr">1460 </span> <a href='../501draw-text.mu.html#L214'>draw-stream-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, stream, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg +<span id="L1461" class="LineNr">1461 </span> <span class="muComment"># return what was printed</span> +<span id="L1462" class="LineNr">1462 </span> copy-object second-ah, out +<span id="L1463" class="LineNr">1463 </span><span class="Delimiter">}</span> +<span id="L1464" class="LineNr">1464 </span> +<span id="L1465" class="LineNr">1465 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1465'>apply-clear</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L1466" class="LineNr">1466 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply clear"</span> +<span id="L1467" class="LineNr">1467 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah +<span id="L1468" class="LineNr">1468 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *args-ah +<span id="L1469" class="LineNr">1469 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args +<span id="L1470" class="LineNr">1470 </span> <span class="muComment"># TODO: check that args is a pair</span> +<span id="L1471" class="LineNr">1471 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> args +<span id="L1472" class="LineNr">1472 </span> compare empty-args?, <span class="Constant">0</span>/false +<span id="L1473" class="LineNr">1473 </span> <span class="Delimiter">{</span> +<span id="L1474" class="LineNr">1474 </span> <span class="PreProc">break-if-=</span> +<span id="L1475" class="LineNr">1475 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"'clear' needs 1 arg but got 0"</span> +<span id="L1476" class="LineNr">1476 </span> <span class="PreProc">return</span> +<span id="L1477" class="LineNr">1477 </span> <span class="Delimiter">}</span> +<span id="L1478" class="LineNr">1478 </span> <span class="muComment"># screen = args->left</span> +<span id="L1479" class="LineNr">1479 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left +<span id="L1480" class="LineNr">1480 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-ah +<span id="L1481" class="LineNr">1481 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> +<span id="L1482" class="LineNr">1482 </span> compare *first-type, <span class="Constant">5</span>/screen +<span id="L1483" class="LineNr">1483 </span> <span class="Delimiter">{</span> +<span id="L1484" class="LineNr">1484 </span> <span class="PreProc">break-if-=</span> +<span id="L1485" class="LineNr">1485 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for 'clear' is not a screen"</span> +<span id="L1486" class="LineNr">1486 </span> <span class="PreProc">return</span> +<span id="L1487" class="LineNr">1487 </span> <span class="Delimiter">}</span> +<span id="L1488" class="LineNr">1488 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> get first, screen-data +<span id="L1489" class="LineNr">1489 </span> <span class="PreProc">var</span> _screen/<span class="Constant">eax</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *screen-ah +<span id="L1490" class="LineNr">1490 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">ecx</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> copy _screen +<span id="L1491" class="LineNr">1491 </span> <span class="muComment">#</span> +<span id="L1492" class="LineNr">1492 </span> <a href='../500fake-screen.mu.html#L230'>clear-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L1493" class="LineNr">1493 </span><span class="Delimiter">}</span> +<span id="L1494" class="LineNr">1494 </span> +<span id="L1495" class="LineNr">1495 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1495'>apply-up</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L1496" class="LineNr">1496 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply up"</span> +<span id="L1497" class="LineNr">1497 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah +<span id="L1498" class="LineNr">1498 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *args-ah +<span id="L1499" class="LineNr">1499 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args +<span id="L1500" class="LineNr">1500 </span> <span class="muComment"># TODO: check that args is a pair</span> +<span id="L1501" class="LineNr">1501 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> args +<span id="L1502" class="LineNr">1502 </span> compare empty-args?, <span class="Constant">0</span>/false +<span id="L1503" class="LineNr">1503 </span> <span class="Delimiter">{</span> +<span id="L1504" class="LineNr">1504 </span> <span class="PreProc">break-if-=</span> +<span id="L1505" class="LineNr">1505 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"'up' needs 1 arg but got 0"</span> +<span id="L1506" class="LineNr">1506 </span> <span class="PreProc">return</span> +<span id="L1507" class="LineNr">1507 </span> <span class="Delimiter">}</span> +<span id="L1508" class="LineNr">1508 </span> <span class="muComment"># screen = args->left</span> +<span id="L1509" class="LineNr">1509 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left +<span id="L1510" class="LineNr">1510 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-ah +<span id="L1511" class="LineNr">1511 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> +<span id="L1512" class="LineNr">1512 </span> compare *first-type, <span class="Constant">5</span>/screen +<span id="L1513" class="LineNr">1513 </span> <span class="Delimiter">{</span> +<span id="L1514" class="LineNr">1514 </span> <span class="PreProc">break-if-=</span> +<span id="L1515" class="LineNr">1515 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for 'up' is not a screen"</span> +<span id="L1516" class="LineNr">1516 </span> <span class="PreProc">return</span> +<span id="L1517" class="LineNr">1517 </span> <span class="Delimiter">}</span> +<span id="L1518" class="LineNr">1518 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> get first, screen-data +<span id="L1519" class="LineNr">1519 </span> <span class="PreProc">var</span> _screen/<span class="Constant">eax</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *screen-ah +<span id="L1520" class="LineNr">1520 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">ecx</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> copy _screen +<span id="L1521" class="LineNr">1521 </span> <span class="muComment">#</span> +<span id="L1522" class="LineNr">1522 </span> <a href='../501draw-text.mu.html#L34'>move-cursor-up</a> <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L1523" class="LineNr">1523 </span><span class="Delimiter">}</span> +<span id="L1524" class="LineNr">1524 </span> +<span id="L1525" class="LineNr">1525 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1525'>apply-down</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L1526" class="LineNr">1526 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply 'down'"</span> +<span id="L1527" class="LineNr">1527 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah +<span id="L1528" class="LineNr">1528 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *args-ah +<span id="L1529" class="LineNr">1529 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args +<span id="L1530" class="LineNr">1530 </span> <span class="muComment"># TODO: check that args is a pair</span> +<span id="L1531" class="LineNr">1531 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> args +<span id="L1532" class="LineNr">1532 </span> compare empty-args?, <span class="Constant">0</span>/false +<span id="L1533" class="LineNr">1533 </span> <span class="Delimiter">{</span> +<span id="L1534" class="LineNr">1534 </span> <span class="PreProc">break-if-=</span> +<span id="L1535" class="LineNr">1535 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"'down' needs 1 arg but got 0"</span> +<span id="L1536" class="LineNr">1536 </span> <span class="PreProc">return</span> +<span id="L1537" class="LineNr">1537 </span> <span class="Delimiter">}</span> +<span id="L1538" class="LineNr">1538 </span> <span class="muComment"># screen = args->left</span> +<span id="L1539" class="LineNr">1539 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left +<span id="L1540" class="LineNr">1540 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-ah +<span id="L1541" class="LineNr">1541 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> +<span id="L1542" class="LineNr">1542 </span> compare *first-type, <span class="Constant">5</span>/screen +<span id="L1543" class="LineNr">1543 </span> <span class="Delimiter">{</span> +<span id="L1544" class="LineNr">1544 </span> <span class="PreProc">break-if-=</span> +<span id="L1545" class="LineNr">1545 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for 'down' is not a screen"</span> +<span id="L1546" class="LineNr">1546 </span> <span class="PreProc">return</span> +<span id="L1547" class="LineNr">1547 </span> <span class="Delimiter">}</span> +<span id="L1548" class="LineNr">1548 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> get first, screen-data +<span id="L1549" class="LineNr">1549 </span> <span class="PreProc">var</span> _screen/<span class="Constant">eax</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *screen-ah +<span id="L1550" class="LineNr">1550 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">ecx</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> copy _screen +<span id="L1551" class="LineNr">1551 </span> <span class="muComment">#</span> +<span id="L1552" class="LineNr">1552 </span> <a href='../501draw-text.mu.html#L47'>move-cursor-down</a> <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L1553" class="LineNr">1553 </span><span class="Delimiter">}</span> +<span id="L1554" class="LineNr">1554 </span> +<span id="L1555" class="LineNr">1555 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1555'>apply-left</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L1556" class="LineNr">1556 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply 'left'"</span> +<span id="L1557" class="LineNr">1557 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah +<span id="L1558" class="LineNr">1558 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *args-ah +<span id="L1559" class="LineNr">1559 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args +<span id="L1560" class="LineNr">1560 </span> <span class="muComment"># TODO: check that args is a pair</span> +<span id="L1561" class="LineNr">1561 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> args +<span id="L1562" class="LineNr">1562 </span> compare empty-args?, <span class="Constant">0</span>/false +<span id="L1563" class="LineNr">1563 </span> <span class="Delimiter">{</span> +<span id="L1564" class="LineNr">1564 </span> <span class="PreProc">break-if-=</span> +<span id="L1565" class="LineNr">1565 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"'left' needs 1 arg but got 0"</span> +<span id="L1566" class="LineNr">1566 </span> <span class="PreProc">return</span> +<span id="L1567" class="LineNr">1567 </span> <span class="Delimiter">}</span> +<span id="L1568" class="LineNr">1568 </span> <span class="muComment"># screen = args->left</span> +<span id="L1569" class="LineNr">1569 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left +<span id="L1570" class="LineNr">1570 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-ah +<span id="L1571" class="LineNr">1571 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> +<span id="L1572" class="LineNr">1572 </span> compare *first-type, <span class="Constant">5</span>/screen +<span id="L1573" class="LineNr">1573 </span> <span class="Delimiter">{</span> +<span id="L1574" class="LineNr">1574 </span> <span class="PreProc">break-if-=</span> +<span id="L1575" class="LineNr">1575 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for 'left' is not a screen"</span> +<span id="L1576" class="LineNr">1576 </span> <span class="PreProc">return</span> +<span id="L1577" class="LineNr">1577 </span> <span class="Delimiter">}</span> +<span id="L1578" class="LineNr">1578 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> get first, screen-data +<span id="L1579" class="LineNr">1579 </span> <span class="PreProc">var</span> _screen/<span class="Constant">eax</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *screen-ah +<span id="L1580" class="LineNr">1580 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">ecx</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> copy _screen +<span id="L1581" class="LineNr">1581 </span> <span class="muComment">#</span> +<span id="L1582" class="LineNr">1582 </span> <a href='../501draw-text.mu.html#L3'>move-cursor-left</a> <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L1583" class="LineNr">1583 </span><span class="Delimiter">}</span> +<span id="L1584" class="LineNr">1584 </span> +<span id="L1585" class="LineNr">1585 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1585'>apply-right</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L1586" class="LineNr">1586 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply 'right'"</span> +<span id="L1587" class="LineNr">1587 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah +<span id="L1588" class="LineNr">1588 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *args-ah +<span id="L1589" class="LineNr">1589 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args +<span id="L1590" class="LineNr">1590 </span> <span class="muComment"># TODO: check that args is a pair</span> +<span id="L1591" class="LineNr">1591 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> args +<span id="L1592" class="LineNr">1592 </span> compare empty-args?, <span class="Constant">0</span>/false +<span id="L1593" class="LineNr">1593 </span> <span class="Delimiter">{</span> +<span id="L1594" class="LineNr">1594 </span> <span class="PreProc">break-if-=</span> +<span id="L1595" class="LineNr">1595 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"'right' needs 1 arg but got 0"</span> +<span id="L1596" class="LineNr">1596 </span> <span class="PreProc">return</span> +<span id="L1597" class="LineNr">1597 </span> <span class="Delimiter">}</span> +<span id="L1598" class="LineNr">1598 </span> <span class="muComment"># screen = args->left</span> +<span id="L1599" class="LineNr">1599 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left +<span id="L1600" class="LineNr">1600 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-ah +<span id="L1601" class="LineNr">1601 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> +<span id="L1602" class="LineNr">1602 </span> compare *first-type, <span class="Constant">5</span>/screen +<span id="L1603" class="LineNr">1603 </span> <span class="Delimiter">{</span> +<span id="L1604" class="LineNr">1604 </span> <span class="PreProc">break-if-=</span> +<span id="L1605" class="LineNr">1605 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for 'right' is not a screen"</span> +<span id="L1606" class="LineNr">1606 </span> <span class="PreProc">return</span> +<span id="L1607" class="LineNr">1607 </span> <span class="Delimiter">}</span> +<span id="L1608" class="LineNr">1608 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> get first, screen-data +<span id="L1609" class="LineNr">1609 </span> <span class="PreProc">var</span> _screen/<span class="Constant">eax</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *screen-ah +<span id="L1610" class="LineNr">1610 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">ecx</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> copy _screen +<span id="L1611" class="LineNr">1611 </span> <span class="muComment">#</span> +<span id="L1612" class="LineNr">1612 </span> <a href='../501draw-text.mu.html#L16'>move-cursor-right</a> <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L1613" class="LineNr">1613 </span><span class="Delimiter">}</span> +<span id="L1614" class="LineNr">1614 </span> +<span id="L1615" class="LineNr">1615 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1615'>apply-cr</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L1616" class="LineNr">1616 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply 'cr'"</span> +<span id="L1617" class="LineNr">1617 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah +<span id="L1618" class="LineNr">1618 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *args-ah +<span id="L1619" class="LineNr">1619 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args +<span id="L1620" class="LineNr">1620 </span> <span class="muComment"># TODO: check that args is a pair</span> +<span id="L1621" class="LineNr">1621 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> args +<span id="L1622" class="LineNr">1622 </span> compare empty-args?, <span class="Constant">0</span>/false +<span id="L1623" class="LineNr">1623 </span> <span class="Delimiter">{</span> +<span id="L1624" class="LineNr">1624 </span> <span class="PreProc">break-if-=</span> +<span id="L1625" class="LineNr">1625 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"'cr' needs 1 arg but got 0"</span> +<span id="L1626" class="LineNr">1626 </span> <span class="PreProc">return</span> +<span id="L1627" class="LineNr">1627 </span> <span class="Delimiter">}</span> +<span id="L1628" class="LineNr">1628 </span> <span class="muComment"># screen = args->left</span> +<span id="L1629" class="LineNr">1629 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left +<span id="L1630" class="LineNr">1630 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-ah +<span id="L1631" class="LineNr">1631 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> +<span id="L1632" class="LineNr">1632 </span> compare *first-type, <span class="Constant">5</span>/screen +<span id="L1633" class="LineNr">1633 </span> <span class="Delimiter">{</span> +<span id="L1634" class="LineNr">1634 </span> <span class="PreProc">break-if-=</span> +<span id="L1635" class="LineNr">1635 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for 'cr' is not a screen"</span> +<span id="L1636" class="LineNr">1636 </span> <span class="PreProc">return</span> +<span id="L1637" class="LineNr">1637 </span> <span class="Delimiter">}</span> +<span id="L1638" class="LineNr">1638 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> get first, screen-data +<span id="L1639" class="LineNr">1639 </span> <span class="PreProc">var</span> _screen/<span class="Constant">eax</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *screen-ah +<span id="L1640" class="LineNr">1640 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">ecx</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> copy _screen +<span id="L1641" class="LineNr">1641 </span> <span class="muComment">#</span> +<span id="L1642" class="LineNr">1642 </span> <a href='../501draw-text.mu.html#L65'>move-cursor-to-left-margin-of-next-line</a> <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L1643" class="LineNr">1643 </span><span class="Delimiter">}</span> +<span id="L1644" class="LineNr">1644 </span> +<span id="L1645" class="LineNr">1645 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1645'>apply-pixel</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L1646" class="LineNr">1646 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply pixel"</span> +<span id="L1647" class="LineNr">1647 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah +<span id="L1648" class="LineNr">1648 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *args-ah +<span id="L1649" class="LineNr">1649 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args +<span id="L1650" class="LineNr">1650 </span> <span class="muComment"># TODO: check that args is a pair</span> +<span id="L1651" class="LineNr">1651 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> args +<span id="L1652" class="LineNr">1652 </span> compare empty-args?, <span class="Constant">0</span>/false +<span id="L1653" class="LineNr">1653 </span> <span class="Delimiter">{</span> +<span id="L1654" class="LineNr">1654 </span> <span class="PreProc">break-if-=</span> +<span id="L1655" class="LineNr">1655 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"pixel needs 4 args but got 0"</span> +<span id="L1656" class="LineNr">1656 </span> <span class="PreProc">return</span> +<span id="L1657" class="LineNr">1657 </span> <span class="Delimiter">}</span> +<span id="L1658" class="LineNr">1658 </span> <span class="muComment"># screen = args->left</span> +<span id="L1659" class="LineNr">1659 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left +<span id="L1660" class="LineNr">1660 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-ah +<span id="L1661" class="LineNr">1661 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> +<span id="L1662" class="LineNr">1662 </span> compare *first-type, <span class="Constant">5</span>/screen +<span id="L1663" class="LineNr">1663 </span> <span class="Delimiter">{</span> +<span id="L1664" class="LineNr">1664 </span> <span class="PreProc">break-if-=</span> +<span id="L1665" class="LineNr">1665 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for 'pixel' is not a screen"</span> +<span id="L1666" class="LineNr">1666 </span> <span class="PreProc">return</span> +<span id="L1667" class="LineNr">1667 </span> <span class="Delimiter">}</span> +<span id="L1668" class="LineNr">1668 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> get first, screen-data +<span id="L1669" class="LineNr">1669 </span> <span class="PreProc">var</span> _screen/<span class="Constant">eax</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *screen-ah +<span id="L1670" class="LineNr">1670 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> copy _screen +<span id="L1671" class="LineNr">1671 </span> <span class="muComment"># x = args->right->left->value</span> +<span id="L1672" class="LineNr">1672 </span> <span class="PreProc">var</span> rest-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, right +<span id="L1673" class="LineNr">1673 </span> <span class="PreProc">var</span> _rest/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *rest-ah +<span id="L1674" class="LineNr">1674 </span> <span class="PreProc">var</span> rest/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _rest +<span id="L1675" class="LineNr">1675 </span> <span class="muComment"># TODO: check that rest is a pair</span> +<span id="L1676" class="LineNr">1676 </span> <span class="PreProc">var</span> second-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, left +<span id="L1677" class="LineNr">1677 </span> <span class="PreProc">var</span> second/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *second-ah +<span id="L1678" class="LineNr">1678 </span> <span class="PreProc">var</span> second-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get second, <span class="PreProc">type</span> +<span id="L1679" class="LineNr">1679 </span> compare *second-type, <span class="Constant">1</span>/number +<span id="L1680" class="LineNr">1680 </span> <span class="Delimiter">{</span> +<span id="L1681" class="LineNr">1681 </span> <span class="PreProc">break-if-=</span> +<span id="L1682" class="LineNr">1682 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"second arg for 'pixel' is not an int (x coordinate)"</span> +<span id="L1683" class="LineNr">1683 </span> <span class="PreProc">return</span> +<span id="L1684" class="LineNr">1684 </span> <span class="Delimiter">}</span> +<span id="L1685" class="LineNr">1685 </span> <span class="PreProc">var</span> second-value/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> get second, number-data +<span id="L1686" class="LineNr">1686 </span> <span class="PreProc">var</span> x/<span class="Constant">edx</span>: int <span class="Special"><-</span> convert *second-value +<span id="L1687" class="LineNr">1687 </span> <span class="muComment"># y = rest->right->left->value</span> +<span id="L1688" class="LineNr">1688 </span> <span class="PreProc">var</span> rest-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, right +<span id="L1689" class="LineNr">1689 </span> <span class="PreProc">var</span> _rest/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *rest-ah +<span id="L1690" class="LineNr">1690 </span> rest <span class="Special"><-</span> copy _rest +<span id="L1691" class="LineNr">1691 </span> <span class="muComment"># TODO: check that rest is a pair</span> +<span id="L1692" class="LineNr">1692 </span> <span class="PreProc">var</span> third-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, left +<span id="L1693" class="LineNr">1693 </span> <span class="PreProc">var</span> third/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *third-ah +<span id="L1694" class="LineNr">1694 </span> <span class="PreProc">var</span> third-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get third, <span class="PreProc">type</span> +<span id="L1695" class="LineNr">1695 </span> compare *third-type, <span class="Constant">1</span>/number +<span id="L1696" class="LineNr">1696 </span> <span class="Delimiter">{</span> +<span id="L1697" class="LineNr">1697 </span> <span class="PreProc">break-if-=</span> +<span id="L1698" class="LineNr">1698 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"third arg for 'pixel' is not an int (y coordinate)"</span> +<span id="L1699" class="LineNr">1699 </span> <span class="PreProc">return</span> +<span id="L1700" class="LineNr">1700 </span> <span class="Delimiter">}</span> +<span id="L1701" class="LineNr">1701 </span> <span class="PreProc">var</span> third-value/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> get third, number-data +<span id="L1702" class="LineNr">1702 </span> <span class="PreProc">var</span> y/<span class="Constant">ebx</span>: int <span class="Special"><-</span> convert *third-value +<span id="L1703" class="LineNr">1703 </span> <span class="muComment"># color = rest->right->left->value</span> +<span id="L1704" class="LineNr">1704 </span> <span class="PreProc">var</span> rest-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, right +<span id="L1705" class="LineNr">1705 </span> <span class="PreProc">var</span> _rest/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *rest-ah +<span id="L1706" class="LineNr">1706 </span> rest <span class="Special"><-</span> copy _rest +<span id="L1707" class="LineNr">1707 </span> <span class="muComment"># TODO: check that rest is a pair</span> +<span id="L1708" class="LineNr">1708 </span> <span class="PreProc">var</span> fourth-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, left +<span id="L1709" class="LineNr">1709 </span> <span class="PreProc">var</span> fourth/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *fourth-ah +<span id="L1710" class="LineNr">1710 </span> <span class="PreProc">var</span> fourth-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get fourth, <span class="PreProc">type</span> +<span id="L1711" class="LineNr">1711 </span> compare *fourth-type, <span class="Constant">1</span>/number +<span id="L1712" class="LineNr">1712 </span> <span class="Delimiter">{</span> +<span id="L1713" class="LineNr">1713 </span> <span class="PreProc">break-if-=</span> +<span id="L1714" class="LineNr">1714 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"fourth arg for 'pixel' is not an int (color; 0..0xff)"</span> +<span id="L1715" class="LineNr">1715 </span> <span class="PreProc">return</span> +<span id="L1716" class="LineNr">1716 </span> <span class="Delimiter">}</span> +<span id="L1717" class="LineNr">1717 </span> <span class="PreProc">var</span> fourth-value/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> get fourth, number-data +<span id="L1718" class="LineNr">1718 </span> <span class="PreProc">var</span> color/<span class="Constant">eax</span>: int <span class="Special"><-</span> convert *fourth-value +<span id="L1719" class="LineNr">1719 </span> <a href='../500fake-screen.mu.html#L462'>pixel</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, x, y, color +<span id="L1720" class="LineNr">1720 </span> <span class="muComment"># return nothing</span> +<span id="L1721" class="LineNr">1721 </span><span class="Delimiter">}</span> +<span id="L1722" class="LineNr">1722 </span> +<span id="L1723" class="LineNr">1723 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1723'>apply-wait-for-key</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L1724" class="LineNr">1724 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply key"</span> +<span id="L1725" class="LineNr">1725 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah +<span id="L1726" class="LineNr">1726 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *args-ah +<span id="L1727" class="LineNr">1727 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args +<span id="L1728" class="LineNr">1728 </span> <span class="muComment"># TODO: check that args is a pair</span> +<span id="L1729" class="LineNr">1729 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> args +<span id="L1730" class="LineNr">1730 </span> compare empty-args?, <span class="Constant">0</span>/false +<span id="L1731" class="LineNr">1731 </span> <span class="Delimiter">{</span> +<span id="L1732" class="LineNr">1732 </span> <span class="PreProc">break-if-=</span> +<span id="L1733" class="LineNr">1733 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"key needs 1 arg but got 0"</span> +<span id="L1734" class="LineNr">1734 </span> <span class="PreProc">return</span> +<span id="L1735" class="LineNr">1735 </span> <span class="Delimiter">}</span> +<span id="L1736" class="LineNr">1736 </span> <span class="muComment"># keyboard = args->left</span> +<span id="L1737" class="LineNr">1737 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left +<span id="L1738" class="LineNr">1738 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-ah +<span id="L1739" class="LineNr">1739 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> +<span id="L1740" class="LineNr">1740 </span> compare *first-type, <span class="Constant">6</span>/keyboard +<span id="L1741" class="LineNr">1741 </span> <span class="Delimiter">{</span> +<span id="L1742" class="LineNr">1742 </span> <span class="PreProc">break-if-=</span> +<span id="L1743" class="LineNr">1743 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for 'key' is not a keyboard"</span> +<span id="L1744" class="LineNr">1744 </span> <span class="PreProc">return</span> +<span id="L1745" class="LineNr">1745 </span> <span class="Delimiter">}</span> +<span id="L1746" class="LineNr">1746 </span> <span class="PreProc">var</span> keyboard-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get first, keyboard-data +<span id="L1747" class="LineNr">1747 </span> <span class="PreProc">var</span> _keyboard/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *keyboard-ah +<span id="L1748" class="LineNr">1748 </span> <span class="PreProc">var</span> keyboard/<span class="Constant">ecx</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _keyboard +<span id="L1749" class="LineNr">1749 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='global.mu.html#L1754'>wait-for-key</a> keyboard +<span id="L1750" class="LineNr">1750 </span> <span class="muComment"># return key typed</span> +<span id="L1751" class="LineNr">1751 </span> <a href='cell.mu.html#L84'>new-integer</a> out, result <span id="L1752" class="LineNr">1752 </span><span class="Delimiter">}</span> <span id="L1753" class="LineNr">1753 </span> -<span id="L1754" class="LineNr">1754 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1754'>apply-columns</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L1755" class="LineNr">1755 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply columns"</span> -<span id="L1756" class="LineNr">1756 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah -<span id="L1757" class="LineNr">1757 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *args-ah -<span id="L1758" class="LineNr">1758 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args -<span id="L1759" class="LineNr">1759 </span> <span class="muComment"># TODO: check that args is a pair</span> -<span id="L1760" class="LineNr">1760 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> args -<span id="L1761" class="LineNr">1761 </span> compare empty-args?, <span class="Constant">0</span>/false -<span id="L1762" class="LineNr">1762 </span> <span class="Delimiter">{</span> -<span id="L1763" class="LineNr">1763 </span> <span class="PreProc">break-if-=</span> -<span id="L1764" class="LineNr">1764 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"columns needs 1 arg but got 0"</span> -<span id="L1765" class="LineNr">1765 </span> <span class="PreProc">return</span> -<span id="L1766" class="LineNr">1766 </span> <span class="Delimiter">}</span> -<span id="L1767" class="LineNr">1767 </span> <span class="muComment"># screen = args->left</span> -<span id="L1768" class="LineNr">1768 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left -<span id="L1769" class="LineNr">1769 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-ah -<span id="L1770" class="LineNr">1770 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> -<span id="L1771" class="LineNr">1771 </span> compare *first-type, <span class="Constant">5</span>/screen -<span id="L1772" class="LineNr">1772 </span> <span class="Delimiter">{</span> -<span id="L1773" class="LineNr">1773 </span> <span class="PreProc">break-if-=</span> -<span id="L1774" class="LineNr">1774 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for 'columns' is not a screen"</span> -<span id="L1775" class="LineNr">1775 </span> <span class="PreProc">return</span> -<span id="L1776" class="LineNr">1776 </span> <span class="Delimiter">}</span> -<span id="L1777" class="LineNr">1777 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> get first, screen-data -<span id="L1778" class="LineNr">1778 </span> <span class="PreProc">var</span> _screen/<span class="Constant">eax</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *screen-ah -<span id="L1779" class="LineNr">1779 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edx</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> copy _screen -<span id="L1780" class="LineNr">1780 </span> <span class="muComment"># compute dimensions</span> -<span id="L1781" class="LineNr">1781 </span> <span class="PreProc">var</span> width/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L1782" class="LineNr">1782 </span> <span class="PreProc">var</span> dummy/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L1783" class="LineNr">1783 </span> width, dummy <span class="Special"><-</span> <a href='../500fake-screen.mu.html#L70'>screen-size</a> <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L1784" class="LineNr">1784 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert width -<span id="L1785" class="LineNr">1785 </span> <a href='cell.mu.html#L96'>new-float</a> out, result -<span id="L1786" class="LineNr">1786 </span><span class="Delimiter">}</span> -<span id="L1787" class="LineNr">1787 </span> -<span id="L1788" class="LineNr">1788 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1788'>apply-width</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L1789" class="LineNr">1789 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply width"</span> -<span id="L1790" class="LineNr">1790 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah -<span id="L1791" class="LineNr">1791 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *args-ah -<span id="L1792" class="LineNr">1792 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args -<span id="L1793" class="LineNr">1793 </span> <span class="muComment"># TODO: check that args is a pair</span> -<span id="L1794" class="LineNr">1794 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> args -<span id="L1795" class="LineNr">1795 </span> compare empty-args?, <span class="Constant">0</span>/false -<span id="L1796" class="LineNr">1796 </span> <span class="Delimiter">{</span> -<span id="L1797" class="LineNr">1797 </span> <span class="PreProc">break-if-=</span> -<span id="L1798" class="LineNr">1798 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"width needs 1 arg but got 0"</span> -<span id="L1799" class="LineNr">1799 </span> <span class="PreProc">return</span> -<span id="L1800" class="LineNr">1800 </span> <span class="Delimiter">}</span> -<span id="L1801" class="LineNr">1801 </span> <span class="muComment"># screen = args->left</span> -<span id="L1802" class="LineNr">1802 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left -<span id="L1803" class="LineNr">1803 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-ah -<span id="L1804" class="LineNr">1804 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> -<span id="L1805" class="LineNr">1805 </span> compare *first-type, <span class="Constant">5</span>/screen -<span id="L1806" class="LineNr">1806 </span> <span class="Delimiter">{</span> -<span id="L1807" class="LineNr">1807 </span> <span class="PreProc">break-if-=</span> -<span id="L1808" class="LineNr">1808 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for 'width' is not a screen"</span> -<span id="L1809" class="LineNr">1809 </span> <span class="PreProc">return</span> -<span id="L1810" class="LineNr">1810 </span> <span class="Delimiter">}</span> -<span id="L1811" class="LineNr">1811 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> get first, screen-data -<span id="L1812" class="LineNr">1812 </span> <span class="PreProc">var</span> _screen/<span class="Constant">eax</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *screen-ah -<span id="L1813" class="LineNr">1813 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edx</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> copy _screen -<span id="L1814" class="LineNr">1814 </span> <span class="muComment"># compute dimensions</span> -<span id="L1815" class="LineNr">1815 </span> <span class="PreProc">var</span> width/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L1816" class="LineNr">1816 </span> <span class="PreProc">var</span> dummy/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L1817" class="LineNr">1817 </span> width, dummy <span class="Special"><-</span> <a href='../500fake-screen.mu.html#L70'>screen-size</a> <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L1818" class="LineNr">1818 </span> width <span class="Special"><-</span> shift-left <span class="Constant">3</span>/log2-font-width -<span id="L1819" class="LineNr">1819 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert width -<span id="L1820" class="LineNr">1820 </span> <a href='cell.mu.html#L96'>new-float</a> out, result -<span id="L1821" class="LineNr">1821 </span><span class="Delimiter">}</span> -<span id="L1822" class="LineNr">1822 </span> -<span id="L1823" class="LineNr">1823 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1823'>apply-height</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L1824" class="LineNr">1824 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply height"</span> -<span id="L1825" class="LineNr">1825 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah -<span id="L1826" class="LineNr">1826 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *args-ah -<span id="L1827" class="LineNr">1827 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args -<span id="L1828" class="LineNr">1828 </span> <span class="muComment"># TODO: check that args is a pair</span> -<span id="L1829" class="LineNr">1829 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> args -<span id="L1830" class="LineNr">1830 </span> compare empty-args?, <span class="Constant">0</span>/false -<span id="L1831" class="LineNr">1831 </span> <span class="Delimiter">{</span> -<span id="L1832" class="LineNr">1832 </span> <span class="PreProc">break-if-=</span> -<span id="L1833" class="LineNr">1833 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"height needs 1 arg but got 0"</span> -<span id="L1834" class="LineNr">1834 </span> <span class="PreProc">return</span> -<span id="L1835" class="LineNr">1835 </span> <span class="Delimiter">}</span> -<span id="L1836" class="LineNr">1836 </span> <span class="muComment"># screen = args->left</span> -<span id="L1837" class="LineNr">1837 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left -<span id="L1838" class="LineNr">1838 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-ah -<span id="L1839" class="LineNr">1839 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> -<span id="L1840" class="LineNr">1840 </span> compare *first-type, <span class="Constant">5</span>/screen -<span id="L1841" class="LineNr">1841 </span> <span class="Delimiter">{</span> -<span id="L1842" class="LineNr">1842 </span> <span class="PreProc">break-if-=</span> -<span id="L1843" class="LineNr">1843 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for 'height' is not a screen"</span> -<span id="L1844" class="LineNr">1844 </span> <span class="PreProc">return</span> -<span id="L1845" class="LineNr">1845 </span> <span class="Delimiter">}</span> -<span id="L1846" class="LineNr">1846 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> get first, screen-data -<span id="L1847" class="LineNr">1847 </span> <span class="PreProc">var</span> _screen/<span class="Constant">eax</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *screen-ah -<span id="L1848" class="LineNr">1848 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edx</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> copy _screen -<span id="L1849" class="LineNr">1849 </span> <span class="muComment"># compute dimensions</span> -<span id="L1850" class="LineNr">1850 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L1851" class="LineNr">1851 </span> <span class="PreProc">var</span> height/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L1852" class="LineNr">1852 </span> dummy, height <span class="Special"><-</span> <a href='../500fake-screen.mu.html#L70'>screen-size</a> <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L1853" class="LineNr">1853 </span> height <span class="Special"><-</span> shift-left <span class="Constant">4</span>/log2-font-height -<span id="L1854" class="LineNr">1854 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert height -<span id="L1855" class="LineNr">1855 </span> <a href='cell.mu.html#L96'>new-float</a> out, result -<span id="L1856" class="LineNr">1856 </span><span class="Delimiter">}</span> -<span id="L1857" class="LineNr">1857 </span> -<span id="L1858" class="LineNr">1858 </span><span class="muComment"># Accepts an input s-expression, naively checks if it is a definition, and if</span> -<span id="L1859" class="LineNr">1859 </span><span class="muComment"># so saves the gap-buffer to the appropriate global, spinning up a new empty</span> -<span id="L1860" class="LineNr">1860 </span><span class="muComment"># one to replace it with.</span> -<span id="L1861" class="LineNr">1861 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1861'>maybe-stash-gap-buffer-to-global</a></span> _globals: (addr <a href='global.mu.html#L7'>global-table</a>), _definition-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), gap: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Delimiter">{</span> -<span id="L1862" class="LineNr">1862 </span> <span class="muComment"># if 'definition' is not a pair, return</span> -<span id="L1863" class="LineNr">1863 </span> <span class="PreProc">var</span> definition-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _definition-ah -<span id="L1864" class="LineNr">1864 </span> <span class="PreProc">var</span> _definition/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *definition-ah -<span id="L1865" class="LineNr">1865 </span> <span class="PreProc">var</span> definition/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _definition -<span id="L1866" class="LineNr">1866 </span> <span class="PreProc">var</span> definition-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get definition, <span class="PreProc">type</span> -<span id="L1867" class="LineNr">1867 </span> compare *definition-type, <span class="Constant">0</span>/pair +<span id="L1754" class="LineNr">1754 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1754'>wait-for-key</a></span> keyboard: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L1755" class="LineNr">1755 </span> <span class="muComment"># if keyboard is 0, use real keyboard</span> +<span id="L1756" class="LineNr">1756 </span> <span class="Delimiter">{</span> +<span id="L1757" class="LineNr">1757 </span> compare keyboard, <span class="Constant">0</span>/real-keyboard +<span id="L1758" class="LineNr">1758 </span> <span class="PreProc">break-if-!=</span> +<span id="L1759" class="LineNr">1759 </span> <span class="PreProc">var</span> key/<span class="Constant">eax</span>: byte <span class="Special"><-</span> <a href='../102keyboard.subx.html#L21'>read-key</a> <span class="Constant">0</span>/real-keyboard +<span id="L1760" class="LineNr">1760 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy key +<span id="L1761" class="LineNr">1761 </span> <span class="PreProc">return</span> result +<span id="L1762" class="LineNr">1762 </span> <span class="Delimiter">}</span> +<span id="L1763" class="LineNr">1763 </span> <span class="muComment"># otherwise read from fake keyboard</span> +<span id="L1764" class="LineNr">1764 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L817'>read-from-gap-buffer</a> keyboard +<span id="L1765" class="LineNr">1765 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy g +<span id="L1766" class="LineNr">1766 </span> <span class="PreProc">return</span> result +<span id="L1767" class="LineNr">1767 </span><span class="Delimiter">}</span> +<span id="L1768" class="LineNr">1768 </span> +<span id="L1769" class="LineNr">1769 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1769'>apply-stream</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L1770" class="LineNr">1770 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply stream"</span> +<span id="L1771" class="LineNr">1771 </span> <a href='cell.mu.html#L58'>allocate-stream</a> out +<span id="L1772" class="LineNr">1772 </span><span class="Delimiter">}</span> +<span id="L1773" class="LineNr">1773 </span> +<span id="L1774" class="LineNr">1774 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1774'>apply-write</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L1775" class="LineNr">1775 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply write"</span> +<span id="L1776" class="LineNr">1776 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah +<span id="L1777" class="LineNr">1777 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *args-ah +<span id="L1778" class="LineNr">1778 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args +<span id="L1779" class="LineNr">1779 </span> <span class="muComment"># TODO: check that args is a pair</span> +<span id="L1780" class="LineNr">1780 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> args +<span id="L1781" class="LineNr">1781 </span> compare empty-args?, <span class="Constant">0</span>/false +<span id="L1782" class="LineNr">1782 </span> <span class="Delimiter">{</span> +<span id="L1783" class="LineNr">1783 </span> <span class="PreProc">break-if-=</span> +<span id="L1784" class="LineNr">1784 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"write needs 2 args but got 0"</span> +<span id="L1785" class="LineNr">1785 </span> <span class="PreProc">return</span> +<span id="L1786" class="LineNr">1786 </span> <span class="Delimiter">}</span> +<span id="L1787" class="LineNr">1787 </span> <span class="muComment"># stream = args->left</span> +<span id="L1788" class="LineNr">1788 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left +<span id="L1789" class="LineNr">1789 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-ah +<span id="L1790" class="LineNr">1790 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> +<span id="L1791" class="LineNr">1791 </span> compare *first-type, <span class="Constant">3</span>/stream +<span id="L1792" class="LineNr">1792 </span> <span class="Delimiter">{</span> +<span id="L1793" class="LineNr">1793 </span> <span class="PreProc">break-if-=</span> +<span id="L1794" class="LineNr">1794 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for 'write' is not a stream"</span> +<span id="L1795" class="LineNr">1795 </span> <span class="PreProc">return</span> +<span id="L1796" class="LineNr">1796 </span> <span class="Delimiter">}</span> +<span id="L1797" class="LineNr">1797 </span> <span class="PreProc">var</span> stream-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get first, text-data +<span id="L1798" class="LineNr">1798 </span> <span class="PreProc">var</span> _stream-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *stream-data-ah +<span id="L1799" class="LineNr">1799 </span> <span class="PreProc">var</span> stream-data/<span class="Constant">ebx</span>: (addr stream byte) <span class="Special"><-</span> copy _stream-data +<span id="L1800" class="LineNr">1800 </span> <span class="muComment"># args->right->left</span> +<span id="L1801" class="LineNr">1801 </span> <span class="PreProc">var</span> right-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, right +<span id="L1802" class="LineNr">1802 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *right-ah +<span id="L1803" class="LineNr">1803 </span> <span class="muComment"># TODO: check that right is a pair</span> +<span id="L1804" class="LineNr">1804 </span> <span class="PreProc">var</span> second-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get right, left +<span id="L1805" class="LineNr">1805 </span> <span class="PreProc">var</span> second/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *second-ah +<span id="L1806" class="LineNr">1806 </span> <span class="PreProc">var</span> second-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get second, <span class="PreProc">type</span> +<span id="L1807" class="LineNr">1807 </span> compare *second-type, <span class="Constant">1</span>/number +<span id="L1808" class="LineNr">1808 </span> <span class="Delimiter">{</span> +<span id="L1809" class="LineNr">1809 </span> <span class="PreProc">break-if-=</span> +<span id="L1810" class="LineNr">1810 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"second arg for stream is not a number/grapheme"</span> +<span id="L1811" class="LineNr">1811 </span> <span class="PreProc">return</span> +<span id="L1812" class="LineNr">1812 </span> <span class="Delimiter">}</span> +<span id="L1813" class="LineNr">1813 </span> <span class="PreProc">var</span> second-value/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> get second, number-data +<span id="L1814" class="LineNr">1814 </span> <span class="PreProc">var</span> x-float/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *second-value +<span id="L1815" class="LineNr">1815 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> convert x-float +<span id="L1816" class="LineNr">1816 </span> <span class="PreProc">var</span> x-grapheme/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy x +<span id="L1817" class="LineNr">1817 </span> <a href='../403unicode.mu.html#L176'>write-grapheme</a> stream-data, x-grapheme +<span id="L1818" class="LineNr">1818 </span> <span class="muComment"># return the stream</span> +<span id="L1819" class="LineNr">1819 </span> copy-object first-ah, out +<span id="L1820" class="LineNr">1820 </span><span class="Delimiter">}</span> +<span id="L1821" class="LineNr">1821 </span> +<span id="L1822" class="LineNr">1822 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1822'>apply-lines</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L1823" class="LineNr">1823 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply lines"</span> +<span id="L1824" class="LineNr">1824 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah +<span id="L1825" class="LineNr">1825 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *args-ah +<span id="L1826" class="LineNr">1826 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args +<span id="L1827" class="LineNr">1827 </span> <span class="muComment"># TODO: check that args is a pair</span> +<span id="L1828" class="LineNr">1828 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> args +<span id="L1829" class="LineNr">1829 </span> compare empty-args?, <span class="Constant">0</span>/false +<span id="L1830" class="LineNr">1830 </span> <span class="Delimiter">{</span> +<span id="L1831" class="LineNr">1831 </span> <span class="PreProc">break-if-=</span> +<span id="L1832" class="LineNr">1832 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"lines needs 1 arg but got 0"</span> +<span id="L1833" class="LineNr">1833 </span> <span class="PreProc">return</span> +<span id="L1834" class="LineNr">1834 </span> <span class="Delimiter">}</span> +<span id="L1835" class="LineNr">1835 </span> <span class="muComment"># screen = args->left</span> +<span id="L1836" class="LineNr">1836 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left +<span id="L1837" class="LineNr">1837 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-ah +<span id="L1838" class="LineNr">1838 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> +<span id="L1839" class="LineNr">1839 </span> compare *first-type, <span class="Constant">5</span>/screen +<span id="L1840" class="LineNr">1840 </span> <span class="Delimiter">{</span> +<span id="L1841" class="LineNr">1841 </span> <span class="PreProc">break-if-=</span> +<span id="L1842" class="LineNr">1842 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for 'lines' is not a screen"</span> +<span id="L1843" class="LineNr">1843 </span> <span class="PreProc">return</span> +<span id="L1844" class="LineNr">1844 </span> <span class="Delimiter">}</span> +<span id="L1845" class="LineNr">1845 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> get first, screen-data +<span id="L1846" class="LineNr">1846 </span> <span class="PreProc">var</span> _screen/<span class="Constant">eax</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *screen-ah +<span id="L1847" class="LineNr">1847 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edx</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> copy _screen +<span id="L1848" class="LineNr">1848 </span> <span class="muComment"># compute dimensions</span> +<span id="L1849" class="LineNr">1849 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L1850" class="LineNr">1850 </span> <span class="PreProc">var</span> height/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L1851" class="LineNr">1851 </span> dummy, height <span class="Special"><-</span> <a href='../500fake-screen.mu.html#L70'>screen-size</a> <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L1852" class="LineNr">1852 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert height +<span id="L1853" class="LineNr">1853 </span> <a href='cell.mu.html#L97'>new-float</a> out, result +<span id="L1854" class="LineNr">1854 </span><span class="Delimiter">}</span> +<span id="L1855" class="LineNr">1855 </span> +<span id="L1856" class="LineNr">1856 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1856'>apply-abort</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L1857" class="LineNr">1857 </span> <a href='../317abort.subx.html#L5'>abort</a> <span class="Constant">"aa"</span> +<span id="L1858" class="LineNr">1858 </span><span class="Delimiter">}</span> +<span id="L1859" class="LineNr">1859 </span> +<span id="L1860" class="LineNr">1860 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1860'>apply-columns</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L1861" class="LineNr">1861 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply columns"</span> +<span id="L1862" class="LineNr">1862 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah +<span id="L1863" class="LineNr">1863 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *args-ah +<span id="L1864" class="LineNr">1864 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args +<span id="L1865" class="LineNr">1865 </span> <span class="muComment"># TODO: check that args is a pair</span> +<span id="L1866" class="LineNr">1866 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> args +<span id="L1867" class="LineNr">1867 </span> compare empty-args?, <span class="Constant">0</span>/false <span id="L1868" class="LineNr">1868 </span> <span class="Delimiter">{</span> <span id="L1869" class="LineNr">1869 </span> <span class="PreProc">break-if-=</span> -<span id="L1870" class="LineNr">1870 </span> <span class="PreProc">return</span> -<span id="L1871" class="LineNr">1871 </span> <span class="Delimiter">}</span> -<span id="L1872" class="LineNr">1872 </span> <span class="muComment"># if definition->left is neither "def" nor "set", return</span> -<span id="L1873" class="LineNr">1873 </span> <span class="PreProc">var</span> left-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get definition, left -<span id="L1874" class="LineNr">1874 </span> <span class="PreProc">var</span> _left/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *left-ah -<span id="L1875" class="LineNr">1875 </span> <span class="PreProc">var</span> left/<span class="Constant">ecx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _left -<span id="L1876" class="LineNr">1876 </span> <span class="Delimiter">{</span> -<span id="L1877" class="LineNr">1877 </span> <span class="PreProc">var</span> def?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='cell.mu.html#L43'>symbol-equal?</a> left, <span class="Constant">"def"</span> -<span id="L1878" class="LineNr">1878 </span> compare def?, <span class="Constant">0</span>/false -<span id="L1879" class="LineNr">1879 </span> <span class="PreProc">break-if-!=</span> -<span id="L1880" class="LineNr">1880 </span> <span class="PreProc">var</span> set?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='cell.mu.html#L43'>symbol-equal?</a> left, <span class="Constant">"set"</span> -<span id="L1881" class="LineNr">1881 </span> compare set?, <span class="Constant">0</span>/false -<span id="L1882" class="LineNr">1882 </span> <span class="PreProc">break-if-!=</span> -<span id="L1883" class="LineNr">1883 </span> <span class="PreProc">return</span> -<span id="L1884" class="LineNr">1884 </span> <span class="Delimiter">}</span> -<span id="L1885" class="LineNr">1885 </span> <span class="muComment"># locate the global for definition->right->left</span> -<span id="L1886" class="LineNr">1886 </span> <span class="PreProc">var</span> right-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get definition, right -<span id="L1887" class="LineNr">1887 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *right-ah -<span id="L1888" class="LineNr">1888 </span> <span class="PreProc">var</span> defined-symbol-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get right, left -<span id="L1889" class="LineNr">1889 </span> <span class="PreProc">var</span> defined-symbol/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *defined-symbol-ah -<span id="L1890" class="LineNr">1890 </span> <span class="PreProc">var</span> defined-symbol-name-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get defined-symbol, text-data -<span id="L1891" class="LineNr">1891 </span> <span class="PreProc">var</span> defined-symbol-name/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *defined-symbol-name-ah -<span id="L1892" class="LineNr">1892 </span> <span class="PreProc">var</span> index/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='global.mu.html#L356'>find-symbol-in-globals</a> _globals, defined-symbol-name -<span id="L1893" class="LineNr">1893 </span> <span class="Delimiter">{</span> -<span id="L1894" class="LineNr">1894 </span> compare index, <span class="Constant">-1</span>/not-found -<span id="L1895" class="LineNr">1895 </span> <span class="PreProc">break-if-!=</span> -<span id="L1896" class="LineNr">1896 </span> <span class="PreProc">return</span> -<span id="L1897" class="LineNr">1897 </span> <span class="Delimiter">}</span> -<span id="L1898" class="LineNr">1898 </span> <span class="muComment"># stash 'gap' to it</span> -<span id="L1899" class="LineNr">1899 </span> <span class="PreProc">var</span> globals/<span class="Constant">eax</span>: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Special"><-</span> copy _globals -<span id="L1900" class="LineNr">1900 </span> <span class="PreProc">var</span> global-data-ah/<span class="Constant">eax</span>: (addr handle array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> get globals, data -<span id="L1901" class="LineNr">1901 </span> <span class="PreProc">var</span> global-data/<span class="Constant">eax</span>: (addr array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *global-data-ah -<span id="L1902" class="LineNr">1902 </span> <span class="PreProc">var</span> offset/<span class="Constant">ebx</span>: (offset <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> compute-offset global-data, index -<span id="L1903" class="LineNr">1903 </span> <span class="PreProc">var</span> dest-global/<span class="Constant">eax</span>: (addr <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> index global-data, offset -<span id="L1904" class="LineNr">1904 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get dest-global, input -<span id="L1905" class="LineNr">1905 </span> copy-object gap, dest-ah -<span id="L1906" class="LineNr">1906 </span> <span class="muComment"># initialize a new gap-buffer in 'gap'</span> -<span id="L1907" class="LineNr">1907 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *dest-ah -<span id="L1908" class="LineNr">1908 </span> <span class="PreProc">var</span> capacity/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='gap-buffer.mu.html#L27'>gap-buffer-capacity</a> dest -<span id="L1909" class="LineNr">1909 </span> <span class="PreProc">var</span> gap2/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy gap -<span id="L1910" class="LineNr">1910 </span> <a href='../120allocate.subx.html#L43'>allocate</a> gap2 -<span id="L1911" class="LineNr">1911 </span> <span class="PreProc">var</span> gap-addr/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *gap2 -<span id="L1912" class="LineNr">1912 </span> <a href='gap-buffer.mu.html#L11'>initialize-gap-buffer</a> gap-addr, capacity -<span id="L1913" class="LineNr">1913 </span><span class="Delimiter">}</span> -<span id="L1914" class="LineNr">1914 </span> -<span id="L1915" class="LineNr">1915 </span><span class="muComment"># Accepts an input s-expression, naively checks if it is a definition, and if</span> -<span id="L1916" class="LineNr">1916 </span><span class="muComment"># so saves the gap-buffer to the appropriate global.</span> -<span id="L1917" class="LineNr">1917 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1917'>move-gap-buffer-to-global</a></span> _globals: (addr <a href='global.mu.html#L7'>global-table</a>), _definition-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), gap: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Delimiter">{</span> -<span id="L1918" class="LineNr">1918 </span> <span class="muComment"># if 'definition' is not a pair, return</span> -<span id="L1919" class="LineNr">1919 </span> <span class="PreProc">var</span> definition-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _definition-ah -<span id="L1920" class="LineNr">1920 </span> <span class="PreProc">var</span> _definition/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *definition-ah -<span id="L1921" class="LineNr">1921 </span> <span class="PreProc">var</span> definition/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _definition -<span id="L1922" class="LineNr">1922 </span> <span class="PreProc">var</span> definition-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get definition, <span class="PreProc">type</span> -<span id="L1923" class="LineNr">1923 </span> compare *definition-type, <span class="Constant">0</span>/pair -<span id="L1924" class="LineNr">1924 </span> <span class="Delimiter">{</span> -<span id="L1925" class="LineNr">1925 </span> <span class="PreProc">break-if-=</span> -<span id="L1926" class="LineNr">1926 </span> <span class="PreProc">return</span> -<span id="L1927" class="LineNr">1927 </span> <span class="Delimiter">}</span> -<span id="L1928" class="LineNr">1928 </span> <span class="muComment"># if definition->left is neither "def" nor "set", return</span> -<span id="L1929" class="LineNr">1929 </span> <span class="PreProc">var</span> left-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get definition, left -<span id="L1930" class="LineNr">1930 </span> <span class="PreProc">var</span> _left/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *left-ah -<span id="L1931" class="LineNr">1931 </span> <span class="PreProc">var</span> left/<span class="Constant">ecx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _left -<span id="L1932" class="LineNr">1932 </span> <span class="Delimiter">{</span> -<span id="L1933" class="LineNr">1933 </span> <span class="PreProc">var</span> def?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='cell.mu.html#L43'>symbol-equal?</a> left, <span class="Constant">"def"</span> -<span id="L1934" class="LineNr">1934 </span> compare def?, <span class="Constant">0</span>/false -<span id="L1935" class="LineNr">1935 </span> <span class="PreProc">break-if-!=</span> -<span id="L1936" class="LineNr">1936 </span> <span class="PreProc">var</span> set?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='cell.mu.html#L43'>symbol-equal?</a> left, <span class="Constant">"set"</span> -<span id="L1937" class="LineNr">1937 </span> compare set?, <span class="Constant">0</span>/false -<span id="L1938" class="LineNr">1938 </span> <span class="PreProc">break-if-!=</span> -<span id="L1939" class="LineNr">1939 </span> <span class="PreProc">return</span> -<span id="L1940" class="LineNr">1940 </span> <span class="Delimiter">}</span> -<span id="L1941" class="LineNr">1941 </span> <span class="muComment"># locate the global for definition->right->left</span> -<span id="L1942" class="LineNr">1942 </span> <span class="PreProc">var</span> right-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get definition, right -<span id="L1943" class="LineNr">1943 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *right-ah -<span id="L1944" class="LineNr">1944 </span> <span class="PreProc">var</span> defined-symbol-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get right, left -<span id="L1945" class="LineNr">1945 </span> <span class="PreProc">var</span> defined-symbol/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *defined-symbol-ah -<span id="L1946" class="LineNr">1946 </span> <span class="PreProc">var</span> defined-symbol-name-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get defined-symbol, text-data -<span id="L1947" class="LineNr">1947 </span> <span class="PreProc">var</span> defined-symbol-name/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *defined-symbol-name-ah -<span id="L1948" class="LineNr">1948 </span> <span class="PreProc">var</span> index/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='global.mu.html#L356'>find-symbol-in-globals</a> _globals, defined-symbol-name -<span id="L1949" class="LineNr">1949 </span> <span class="Delimiter">{</span> -<span id="L1950" class="LineNr">1950 </span> compare index, <span class="Constant">-1</span>/not-found -<span id="L1951" class="LineNr">1951 </span> <span class="PreProc">break-if-!=</span> -<span id="L1952" class="LineNr">1952 </span> <span class="PreProc">return</span> -<span id="L1953" class="LineNr">1953 </span> <span class="Delimiter">}</span> -<span id="L1954" class="LineNr">1954 </span> <span class="muComment"># move 'gap' to it</span> -<span id="L1955" class="LineNr">1955 </span> <span class="PreProc">var</span> globals/<span class="Constant">eax</span>: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Special"><-</span> copy _globals -<span id="L1956" class="LineNr">1956 </span> <span class="PreProc">var</span> global-data-ah/<span class="Constant">eax</span>: (addr handle array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> get globals, data -<span id="L1957" class="LineNr">1957 </span> <span class="PreProc">var</span> global-data/<span class="Constant">eax</span>: (addr array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *global-data-ah -<span id="L1958" class="LineNr">1958 </span> <span class="PreProc">var</span> offset/<span class="Constant">ebx</span>: (offset <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> compute-offset global-data, index -<span id="L1959" class="LineNr">1959 </span> <span class="PreProc">var</span> dest-global/<span class="Constant">eax</span>: (addr <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> index global-data, offset -<span id="L1960" class="LineNr">1960 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get dest-global, input -<span id="L1961" class="LineNr">1961 </span> copy-object gap, dest-ah +<span id="L1870" class="LineNr">1870 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"columns needs 1 arg but got 0"</span> +<span id="L1871" class="LineNr">1871 </span> <span class="PreProc">return</span> +<span id="L1872" class="LineNr">1872 </span> <span class="Delimiter">}</span> +<span id="L1873" class="LineNr">1873 </span> <span class="muComment"># screen = args->left</span> +<span id="L1874" class="LineNr">1874 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left +<span id="L1875" class="LineNr">1875 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-ah +<span id="L1876" class="LineNr">1876 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> +<span id="L1877" class="LineNr">1877 </span> compare *first-type, <span class="Constant">5</span>/screen +<span id="L1878" class="LineNr">1878 </span> <span class="Delimiter">{</span> +<span id="L1879" class="LineNr">1879 </span> <span class="PreProc">break-if-=</span> +<span id="L1880" class="LineNr">1880 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for 'columns' is not a screen"</span> +<span id="L1881" class="LineNr">1881 </span> <span class="PreProc">return</span> +<span id="L1882" class="LineNr">1882 </span> <span class="Delimiter">}</span> +<span id="L1883" class="LineNr">1883 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> get first, screen-data +<span id="L1884" class="LineNr">1884 </span> <span class="PreProc">var</span> _screen/<span class="Constant">eax</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *screen-ah +<span id="L1885" class="LineNr">1885 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edx</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> copy _screen +<span id="L1886" class="LineNr">1886 </span> <span class="muComment"># compute dimensions</span> +<span id="L1887" class="LineNr">1887 </span> <span class="PreProc">var</span> width/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L1888" class="LineNr">1888 </span> <span class="PreProc">var</span> dummy/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L1889" class="LineNr">1889 </span> width, dummy <span class="Special"><-</span> <a href='../500fake-screen.mu.html#L70'>screen-size</a> <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L1890" class="LineNr">1890 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert width +<span id="L1891" class="LineNr">1891 </span> <a href='cell.mu.html#L97'>new-float</a> out, result +<span id="L1892" class="LineNr">1892 </span><span class="Delimiter">}</span> +<span id="L1893" class="LineNr">1893 </span> +<span id="L1894" class="LineNr">1894 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1894'>apply-width</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L1895" class="LineNr">1895 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply width"</span> +<span id="L1896" class="LineNr">1896 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah +<span id="L1897" class="LineNr">1897 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *args-ah +<span id="L1898" class="LineNr">1898 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args +<span id="L1899" class="LineNr">1899 </span> <span class="muComment"># TODO: check that args is a pair</span> +<span id="L1900" class="LineNr">1900 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> args +<span id="L1901" class="LineNr">1901 </span> compare empty-args?, <span class="Constant">0</span>/false +<span id="L1902" class="LineNr">1902 </span> <span class="Delimiter">{</span> +<span id="L1903" class="LineNr">1903 </span> <span class="PreProc">break-if-=</span> +<span id="L1904" class="LineNr">1904 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"width needs 1 arg but got 0"</span> +<span id="L1905" class="LineNr">1905 </span> <span class="PreProc">return</span> +<span id="L1906" class="LineNr">1906 </span> <span class="Delimiter">}</span> +<span id="L1907" class="LineNr">1907 </span> <span class="muComment"># screen = args->left</span> +<span id="L1908" class="LineNr">1908 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left +<span id="L1909" class="LineNr">1909 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-ah +<span id="L1910" class="LineNr">1910 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> +<span id="L1911" class="LineNr">1911 </span> compare *first-type, <span class="Constant">5</span>/screen +<span id="L1912" class="LineNr">1912 </span> <span class="Delimiter">{</span> +<span id="L1913" class="LineNr">1913 </span> <span class="PreProc">break-if-=</span> +<span id="L1914" class="LineNr">1914 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for 'width' is not a screen"</span> +<span id="L1915" class="LineNr">1915 </span> <span class="PreProc">return</span> +<span id="L1916" class="LineNr">1916 </span> <span class="Delimiter">}</span> +<span id="L1917" class="LineNr">1917 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> get first, screen-data +<span id="L1918" class="LineNr">1918 </span> <span class="PreProc">var</span> _screen/<span class="Constant">eax</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *screen-ah +<span id="L1919" class="LineNr">1919 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edx</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> copy _screen +<span id="L1920" class="LineNr">1920 </span> <span class="muComment"># compute dimensions</span> +<span id="L1921" class="LineNr">1921 </span> <span class="PreProc">var</span> width/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L1922" class="LineNr">1922 </span> <span class="PreProc">var</span> dummy/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L1923" class="LineNr">1923 </span> width, dummy <span class="Special"><-</span> <a href='../500fake-screen.mu.html#L70'>screen-size</a> <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L1924" class="LineNr">1924 </span> width <span class="Special"><-</span> shift-left <span class="Constant">3</span>/log2-font-width +<span id="L1925" class="LineNr">1925 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert width +<span id="L1926" class="LineNr">1926 </span> <a href='cell.mu.html#L97'>new-float</a> out, result +<span id="L1927" class="LineNr">1927 </span><span class="Delimiter">}</span> +<span id="L1928" class="LineNr">1928 </span> +<span id="L1929" class="LineNr">1929 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1929'>apply-height</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L1930" class="LineNr">1930 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply height"</span> +<span id="L1931" class="LineNr">1931 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah +<span id="L1932" class="LineNr">1932 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *args-ah +<span id="L1933" class="LineNr">1933 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args +<span id="L1934" class="LineNr">1934 </span> <span class="muComment"># TODO: check that args is a pair</span> +<span id="L1935" class="LineNr">1935 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> args +<span id="L1936" class="LineNr">1936 </span> compare empty-args?, <span class="Constant">0</span>/false +<span id="L1937" class="LineNr">1937 </span> <span class="Delimiter">{</span> +<span id="L1938" class="LineNr">1938 </span> <span class="PreProc">break-if-=</span> +<span id="L1939" class="LineNr">1939 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"height needs 1 arg but got 0"</span> +<span id="L1940" class="LineNr">1940 </span> <span class="PreProc">return</span> +<span id="L1941" class="LineNr">1941 </span> <span class="Delimiter">}</span> +<span id="L1942" class="LineNr">1942 </span> <span class="muComment"># screen = args->left</span> +<span id="L1943" class="LineNr">1943 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left +<span id="L1944" class="LineNr">1944 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-ah +<span id="L1945" class="LineNr">1945 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> +<span id="L1946" class="LineNr">1946 </span> compare *first-type, <span class="Constant">5</span>/screen +<span id="L1947" class="LineNr">1947 </span> <span class="Delimiter">{</span> +<span id="L1948" class="LineNr">1948 </span> <span class="PreProc">break-if-=</span> +<span id="L1949" class="LineNr">1949 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"first arg for 'height' is not a screen"</span> +<span id="L1950" class="LineNr">1950 </span> <span class="PreProc">return</span> +<span id="L1951" class="LineNr">1951 </span> <span class="Delimiter">}</span> +<span id="L1952" class="LineNr">1952 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> get first, screen-data +<span id="L1953" class="LineNr">1953 </span> <span class="PreProc">var</span> _screen/<span class="Constant">eax</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *screen-ah +<span id="L1954" class="LineNr">1954 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edx</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> copy _screen +<span id="L1955" class="LineNr">1955 </span> <span class="muComment"># compute dimensions</span> +<span id="L1956" class="LineNr">1956 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L1957" class="LineNr">1957 </span> <span class="PreProc">var</span> height/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L1958" class="LineNr">1958 </span> dummy, height <span class="Special"><-</span> <a href='../500fake-screen.mu.html#L70'>screen-size</a> <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L1959" class="LineNr">1959 </span> height <span class="Special"><-</span> shift-left <span class="Constant">4</span>/log2-font-height +<span id="L1960" class="LineNr">1960 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert height +<span id="L1961" class="LineNr">1961 </span> <a href='cell.mu.html#L97'>new-float</a> out, result <span id="L1962" class="LineNr">1962 </span><span class="Delimiter">}</span> +<span id="L1963" class="LineNr">1963 </span> +<span id="L1964" class="LineNr">1964 </span><span class="muComment"># Accepts an input s-expression, naively checks if it is a definition, and if</span> +<span id="L1965" class="LineNr">1965 </span><span class="muComment"># so saves the gap-buffer to the appropriate global, spinning up a new empty</span> +<span id="L1966" class="LineNr">1966 </span><span class="muComment"># one to replace it with.</span> +<span id="L1967" class="LineNr">1967 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L1967'>maybe-stash-gap-buffer-to-global</a></span> _globals: (addr <a href='global.mu.html#L7'>global-table</a>), _definition-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), gap: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Delimiter">{</span> +<span id="L1968" class="LineNr">1968 </span> <span class="muComment"># if 'definition' is not a pair, return</span> +<span id="L1969" class="LineNr">1969 </span> <span class="PreProc">var</span> definition-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _definition-ah +<span id="L1970" class="LineNr">1970 </span> <span class="PreProc">var</span> _definition/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *definition-ah +<span id="L1971" class="LineNr">1971 </span> <span class="PreProc">var</span> definition/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _definition +<span id="L1972" class="LineNr">1972 </span> <span class="PreProc">var</span> definition-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get definition, <span class="PreProc">type</span> +<span id="L1973" class="LineNr">1973 </span> compare *definition-type, <span class="Constant">0</span>/pair +<span id="L1974" class="LineNr">1974 </span> <span class="Delimiter">{</span> +<span id="L1975" class="LineNr">1975 </span> <span class="PreProc">break-if-=</span> +<span id="L1976" class="LineNr">1976 </span> <span class="PreProc">return</span> +<span id="L1977" class="LineNr">1977 </span> <span class="Delimiter">}</span> +<span id="L1978" class="LineNr">1978 </span> <span class="muComment"># if definition->left is neither "def" nor "set", return</span> +<span id="L1979" class="LineNr">1979 </span> <span class="PreProc">var</span> left-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get definition, left +<span id="L1980" class="LineNr">1980 </span> <span class="PreProc">var</span> _left/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *left-ah +<span id="L1981" class="LineNr">1981 </span> <span class="PreProc">var</span> left/<span class="Constant">ecx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _left +<span id="L1982" class="LineNr">1982 </span> <span class="Delimiter">{</span> +<span id="L1983" class="LineNr">1983 </span> <span class="PreProc">var</span> def?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='cell.mu.html#L44'>symbol-equal?</a> left, <span class="Constant">"def"</span> +<span id="L1984" class="LineNr">1984 </span> compare def?, <span class="Constant">0</span>/false +<span id="L1985" class="LineNr">1985 </span> <span class="PreProc">break-if-!=</span> +<span id="L1986" class="LineNr">1986 </span> <span class="PreProc">var</span> set?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='cell.mu.html#L44'>symbol-equal?</a> left, <span class="Constant">"set"</span> +<span id="L1987" class="LineNr">1987 </span> compare set?, <span class="Constant">0</span>/false +<span id="L1988" class="LineNr">1988 </span> <span class="PreProc">break-if-!=</span> +<span id="L1989" class="LineNr">1989 </span> <span class="PreProc">return</span> +<span id="L1990" class="LineNr">1990 </span> <span class="Delimiter">}</span> +<span id="L1991" class="LineNr">1991 </span> <span class="muComment"># locate the global for definition->right->left</span> +<span id="L1992" class="LineNr">1992 </span> <span class="PreProc">var</span> right-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get definition, right +<span id="L1993" class="LineNr">1993 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *right-ah +<span id="L1994" class="LineNr">1994 </span> <span class="PreProc">var</span> defined-symbol-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get right, left +<span id="L1995" class="LineNr">1995 </span> <span class="PreProc">var</span> defined-symbol/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *defined-symbol-ah +<span id="L1996" class="LineNr">1996 </span> <span class="PreProc">var</span> defined-symbol-name-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get defined-symbol, text-data +<span id="L1997" class="LineNr">1997 </span> <span class="PreProc">var</span> defined-symbol-name/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *defined-symbol-name-ah +<span id="L1998" class="LineNr">1998 </span> <span class="PreProc">var</span> index/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='global.mu.html#L425'>find-symbol-in-globals</a> _globals, defined-symbol-name +<span id="L1999" class="LineNr">1999 </span> <span class="Delimiter">{</span> +<span id="L2000" class="LineNr">2000 </span> compare index, <span class="Constant">-1</span>/not-found +<span id="L2001" class="LineNr">2001 </span> <span class="PreProc">break-if-!=</span> +<span id="L2002" class="LineNr">2002 </span> <span class="PreProc">return</span> +<span id="L2003" class="LineNr">2003 </span> <span class="Delimiter">}</span> +<span id="L2004" class="LineNr">2004 </span> <span class="muComment"># stash 'gap' to it</span> +<span id="L2005" class="LineNr">2005 </span> <span class="PreProc">var</span> globals/<span class="Constant">eax</span>: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Special"><-</span> copy _globals +<span id="L2006" class="LineNr">2006 </span> compare globals, <span class="Constant">0</span> +<span id="L2007" class="LineNr">2007 </span> <span class="Delimiter">{</span> +<span id="L2008" class="LineNr">2008 </span> <span class="PreProc">break-if-!=</span> +<span id="L2009" class="LineNr">2009 </span> <a href='../317abort.subx.html#L5'>abort</a> <span class="Constant">"stash to globals"</span> +<span id="L2010" class="LineNr">2010 </span> <span class="PreProc">return</span> +<span id="L2011" class="LineNr">2011 </span> <span class="Delimiter">}</span> +<span id="L2012" class="LineNr">2012 </span> <span class="PreProc">var</span> global-data-ah/<span class="Constant">eax</span>: (addr handle array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> get globals, data +<span id="L2013" class="LineNr">2013 </span> <span class="PreProc">var</span> global-data/<span class="Constant">eax</span>: (addr array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *global-data-ah +<span id="L2014" class="LineNr">2014 </span> <span class="PreProc">var</span> offset/<span class="Constant">ebx</span>: (offset <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> compute-offset global-data, index +<span id="L2015" class="LineNr">2015 </span> <span class="PreProc">var</span> dest-global/<span class="Constant">eax</span>: (addr <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> index global-data, offset +<span id="L2016" class="LineNr">2016 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get dest-global, input +<span id="L2017" class="LineNr">2017 </span> copy-object gap, dest-ah +<span id="L2018" class="LineNr">2018 </span> <span class="muComment"># initialize a new gap-buffer in 'gap'</span> +<span id="L2019" class="LineNr">2019 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *dest-ah +<span id="L2020" class="LineNr">2020 </span> <span class="PreProc">var</span> capacity/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='gap-buffer.mu.html#L27'>gap-buffer-capacity</a> dest +<span id="L2021" class="LineNr">2021 </span> <span class="PreProc">var</span> gap2/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy gap +<span id="L2022" class="LineNr">2022 </span> <a href='../120allocate.subx.html#L43'>allocate</a> gap2 +<span id="L2023" class="LineNr">2023 </span> <span class="PreProc">var</span> gap-addr/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *gap2 +<span id="L2024" class="LineNr">2024 </span> <a href='gap-buffer.mu.html#L11'>initialize-gap-buffer</a> gap-addr, capacity +<span id="L2025" class="LineNr">2025 </span><span class="Delimiter">}</span> +<span id="L2026" class="LineNr">2026 </span> +<span id="L2027" class="LineNr">2027 </span><span class="muComment"># Accepts an input s-expression, naively checks if it is a definition, and if</span> +<span id="L2028" class="LineNr">2028 </span><span class="muComment"># so saves the gap-buffer to the appropriate global.</span> +<span id="L2029" class="LineNr">2029 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L2029'>move-gap-buffer-to-global</a></span> _globals: (addr <a href='global.mu.html#L7'>global-table</a>), _definition-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), gap: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Delimiter">{</span> +<span id="L2030" class="LineNr">2030 </span> <span class="muComment"># if 'definition' is not a pair, return</span> +<span id="L2031" class="LineNr">2031 </span> <span class="PreProc">var</span> definition-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _definition-ah +<span id="L2032" class="LineNr">2032 </span> <span class="PreProc">var</span> _definition/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *definition-ah +<span id="L2033" class="LineNr">2033 </span> <span class="PreProc">var</span> definition/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _definition +<span id="L2034" class="LineNr">2034 </span> <span class="PreProc">var</span> definition-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get definition, <span class="PreProc">type</span> +<span id="L2035" class="LineNr">2035 </span> compare *definition-type, <span class="Constant">0</span>/pair +<span id="L2036" class="LineNr">2036 </span> <span class="Delimiter">{</span> +<span id="L2037" class="LineNr">2037 </span> <span class="PreProc">break-if-=</span> +<span id="L2038" class="LineNr">2038 </span> <span class="PreProc">return</span> +<span id="L2039" class="LineNr">2039 </span> <span class="Delimiter">}</span> +<span id="L2040" class="LineNr">2040 </span> <span class="muComment"># if definition->left is neither "def" nor "set", return</span> +<span id="L2041" class="LineNr">2041 </span> <span class="PreProc">var</span> left-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get definition, left +<span id="L2042" class="LineNr">2042 </span> <span class="PreProc">var</span> _left/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *left-ah +<span id="L2043" class="LineNr">2043 </span> <span class="PreProc">var</span> left/<span class="Constant">ecx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _left +<span id="L2044" class="LineNr">2044 </span> <span class="Delimiter">{</span> +<span id="L2045" class="LineNr">2045 </span> <span class="PreProc">var</span> def?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='cell.mu.html#L44'>symbol-equal?</a> left, <span class="Constant">"def"</span> +<span id="L2046" class="LineNr">2046 </span> compare def?, <span class="Constant">0</span>/false +<span id="L2047" class="LineNr">2047 </span> <span class="PreProc">break-if-!=</span> +<span id="L2048" class="LineNr">2048 </span> <span class="PreProc">var</span> set?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='cell.mu.html#L44'>symbol-equal?</a> left, <span class="Constant">"set"</span> +<span id="L2049" class="LineNr">2049 </span> compare set?, <span class="Constant">0</span>/false +<span id="L2050" class="LineNr">2050 </span> <span class="PreProc">break-if-!=</span> +<span id="L2051" class="LineNr">2051 </span> <span class="PreProc">return</span> +<span id="L2052" class="LineNr">2052 </span> <span class="Delimiter">}</span> +<span id="L2053" class="LineNr">2053 </span> <span class="muComment"># locate the global for definition->right->left</span> +<span id="L2054" class="LineNr">2054 </span> <span class="PreProc">var</span> right-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get definition, right +<span id="L2055" class="LineNr">2055 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *right-ah +<span id="L2056" class="LineNr">2056 </span> <span class="PreProc">var</span> defined-symbol-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get right, left +<span id="L2057" class="LineNr">2057 </span> <span class="PreProc">var</span> defined-symbol/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *defined-symbol-ah +<span id="L2058" class="LineNr">2058 </span> <span class="PreProc">var</span> defined-symbol-name-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get defined-symbol, text-data +<span id="L2059" class="LineNr">2059 </span> <span class="PreProc">var</span> defined-symbol-name/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *defined-symbol-name-ah +<span id="L2060" class="LineNr">2060 </span> <span class="PreProc">var</span> index/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='global.mu.html#L425'>find-symbol-in-globals</a> _globals, defined-symbol-name +<span id="L2061" class="LineNr">2061 </span> <span class="Delimiter">{</span> +<span id="L2062" class="LineNr">2062 </span> compare index, <span class="Constant">-1</span>/not-found +<span id="L2063" class="LineNr">2063 </span> <span class="PreProc">break-if-!=</span> +<span id="L2064" class="LineNr">2064 </span> <span class="PreProc">return</span> +<span id="L2065" class="LineNr">2065 </span> <span class="Delimiter">}</span> +<span id="L2066" class="LineNr">2066 </span> <span class="muComment"># move 'gap' to it</span> +<span id="L2067" class="LineNr">2067 </span> <span class="PreProc">var</span> globals/<span class="Constant">eax</span>: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Special"><-</span> copy _globals +<span id="L2068" class="LineNr">2068 </span> compare globals, <span class="Constant">0</span> +<span id="L2069" class="LineNr">2069 </span> <span class="Delimiter">{</span> +<span id="L2070" class="LineNr">2070 </span> <span class="PreProc">break-if-!=</span> +<span id="L2071" class="LineNr">2071 </span> <a href='../317abort.subx.html#L5'>abort</a> <span class="Constant">"move to globals"</span> +<span id="L2072" class="LineNr">2072 </span> <span class="PreProc">return</span> +<span id="L2073" class="LineNr">2073 </span> <span class="Delimiter">}</span> +<span id="L2074" class="LineNr">2074 </span> <span class="PreProc">var</span> global-data-ah/<span class="Constant">eax</span>: (addr handle array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> get globals, data +<span id="L2075" class="LineNr">2075 </span> <span class="PreProc">var</span> global-data/<span class="Constant">eax</span>: (addr array <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *global-data-ah +<span id="L2076" class="LineNr">2076 </span> <span class="PreProc">var</span> offset/<span class="Constant">ebx</span>: (offset <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> compute-offset global-data, index +<span id="L2077" class="LineNr">2077 </span> <span class="PreProc">var</span> dest-global/<span class="Constant">eax</span>: (addr <a href='global.mu.html#L1'>global</a>) <span class="Special"><-</span> index global-data, offset +<span id="L2078" class="LineNr">2078 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get dest-global, input +<span id="L2079" class="LineNr">2079 </span> copy-object gap, dest-ah +<span id="L2080" class="LineNr">2080 </span><span class="Delimiter">}</span> </pre> </body> </html> diff --git a/html/shell/grapheme-stack.mu.html b/html/shell/grapheme-stack.mu.html index 1ebdfe9a..a4e0719d 100644 --- a/html/shell/grapheme-stack.mu.html +++ b/html/shell/grapheme-stack.mu.html @@ -99,7 +99,7 @@ if ('onhashchange' in window) { <span id="L40" class="LineNr"> 40 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> copy _self <span id="L41" class="LineNr"> 41 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get self, top <span id="L42" class="LineNr"> 42 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array grapheme) <span class="Special"><-</span> get self, data -<span id="L43" class="LineNr"> 43 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L43" class="LineNr"> 43 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *data-ah <span id="L44" class="LineNr"> 44 </span> <span class="PreProc">var</span> top/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy *top-addr <span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> dest-addr/<span class="Constant">edx</span>: (addr grapheme) <span class="Special"><-</span> index data, top <span id="L46" class="LineNr"> 46 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy _val @@ -117,7 +117,7 @@ if ('onhashchange' in window) { <span id="L58" class="LineNr"> 58 </span> <span class="Delimiter">}</span> <span id="L59" class="LineNr"> 59 </span> subtract-from *top-addr, <span class="Constant">1</span> <span id="L60" class="LineNr"> 60 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array grapheme) <span class="Special"><-</span> get self, data -<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *data-ah <span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> top/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy *top-addr <span id="L63" class="LineNr"> 63 </span> <span class="PreProc">var</span> result-addr/<span class="Constant">eax</span>: (addr grapheme) <span class="Special"><-</span> index data, top <span id="L64" class="LineNr"> 64 </span> <span class="PreProc">return</span> *result-addr @@ -126,7 +126,7 @@ if ('onhashchange' in window) { <span id="L67" class="LineNr"> 67 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L67'>copy-grapheme-stack</a></span> _src: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>), dest: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Delimiter">{</span> <span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> src/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> copy _src <span id="L69" class="LineNr"> 69 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="Special"><-</span> get src, data -<span id="L70" class="LineNr"> 70 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L70" class="LineNr"> 70 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *data-ah <span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array grapheme) <span class="Special"><-</span> copy _data <span id="L72" class="LineNr"> 72 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get src, top <span id="L73" class="LineNr"> 73 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> @@ -147,7 +147,7 @@ if ('onhashchange' in window) { <span id="L88" class="LineNr"> 88 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> copy _self <span id="L89" class="LineNr"> 89 </span> <span class="PreProc">var</span> matching-open-paren-index/<span class="Constant">edx</span>: int <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L434'>get-matching-open-paren-index</a> self, <a href='gap-buffer.mu.html#L677'>highlight-matching-open-paren?</a>, open-paren-depth <span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="Special"><-</span> get self, data -<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *data-ah <span id="L92" class="LineNr"> 92 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array grapheme) <span class="Special"><-</span> copy _data <span id="L93" class="LineNr"> 93 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy _x <span id="L94" class="LineNr"> 94 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy _y @@ -198,7 +198,7 @@ if ('onhashchange' in window) { <span id="L139" class="LineNr">139 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> copy _self <span id="L140" class="LineNr">140 </span> <span class="PreProc">var</span> matching-close-paren-index/<span class="Constant">edx</span>: int <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L378'>get-matching-close-paren-index</a> self, render-cursor? <span id="L141" class="LineNr">141 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array grapheme) <span class="Special"><-</span> get self, data -<span id="L142" class="LineNr">142 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L142" class="LineNr">142 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *data-ah <span id="L143" class="LineNr">143 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array grapheme) <span class="Special"><-</span> copy _data <span id="L144" class="LineNr">144 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy _x <span id="L145" class="LineNr">145 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy _y @@ -444,7 +444,7 @@ if ('onhashchange' in window) { <span id="L385" class="LineNr">385 </span> <span class="PreProc">return</span> *top-addr <span id="L386" class="LineNr">386 </span> <span class="Delimiter">}</span> <span id="L387" class="LineNr">387 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array grapheme) <span class="Special"><-</span> get self, data -<span id="L388" class="LineNr">388 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L388" class="LineNr">388 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *data-ah <span id="L389" class="LineNr">389 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *top-addr <span id="L390" class="LineNr">390 </span> <span class="muComment"># if stack is empty, return</span> <span id="L391" class="LineNr">391 </span> compare i, <span class="Constant">0</span> @@ -500,7 +500,7 @@ if ('onhashchange' in window) { <span id="L441" class="LineNr">441 </span> <span class="PreProc">return</span> *top-addr <span id="L442" class="LineNr">442 </span> <span class="Delimiter">}</span> <span id="L443" class="LineNr">443 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array grapheme) <span class="Special"><-</span> get self, data -<span id="L444" class="LineNr">444 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L444" class="LineNr">444 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *data-ah <span id="L445" class="LineNr">445 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *top-addr <span id="L446" class="LineNr">446 </span> <span class="muComment"># if stack is empty, return</span> <span id="L447" class="LineNr">447 </span> compare i, <span class="Constant">0</span> @@ -541,7 +541,7 @@ if ('onhashchange' in window) { <span id="L482" class="LineNr">482 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L482'>prefix-match?</a></span> _self: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>), s: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> <span id="L483" class="LineNr">483 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> copy _self <span id="L484" class="LineNr">484 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="Special"><-</span> get self, data -<span id="L485" class="LineNr">485 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L485" class="LineNr">485 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *data-ah <span id="L486" class="LineNr">486 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array grapheme) <span class="Special"><-</span> copy _data <span id="L487" class="LineNr">487 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get self, top <span id="L488" class="LineNr">488 </span> <span class="PreProc">var</span> i/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> @@ -569,7 +569,7 @@ if ('onhashchange' in window) { <span id="L510" class="LineNr">510 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L510'>suffix-match?</a></span> _self: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>), s: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> <span id="L511" class="LineNr">511 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> copy _self <span id="L512" class="LineNr">512 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="Special"><-</span> get self, data -<span id="L513" class="LineNr">513 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L513" class="LineNr">513 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *data-ah <span id="L514" class="LineNr">514 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array grapheme) <span class="Special"><-</span> copy _data <span id="L515" class="LineNr">515 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, top <span id="L516" class="LineNr">516 </span> <span class="PreProc">var</span> i/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy *top-addr @@ -596,7 +596,7 @@ if ('onhashchange' in window) { <span id="L537" class="LineNr">537 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L537'>grapheme-stack-is-decimal-integer?</a></span> _self: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> <span id="L538" class="LineNr">538 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> copy _self <span id="L539" class="LineNr">539 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array grapheme) <span class="Special"><-</span> get self, data -<span id="L540" class="LineNr">540 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L540" class="LineNr">540 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *data-ah <span id="L541" class="LineNr">541 </span> <span class="PreProc">var</span> data/<span class="Constant">edx</span>: (addr array grapheme) <span class="Special"><-</span> copy _data <span id="L542" class="LineNr">542 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get self, top <span id="L543" class="LineNr">543 </span> <span class="PreProc">var</span> i/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> @@ -605,7 +605,7 @@ if ('onhashchange' in window) { <span id="L546" class="LineNr">546 </span> compare i, *top-addr <span id="L547" class="LineNr">547 </span> <span class="PreProc">break-if->=</span> <span id="L548" class="LineNr">548 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: (addr grapheme) <span class="Special"><-</span> index data, i -<span id="L549" class="LineNr">549 </span> result <span class="Special"><-</span> <a href='../126write-int-decimal.subx.html#L299'>decimal-digit?</a> *g +<span id="L549" class="LineNr">549 </span> result <span class="Special"><-</span> <a href='../126write-int-decimal.subx.html#L296'>decimal-digit?</a> *g <span id="L550" class="LineNr">550 </span> compare result, <span class="Constant">0</span>/false <span id="L551" class="LineNr">551 </span> <span class="PreProc">break-if-=</span> <span id="L552" class="LineNr">552 </span> i <span class="Special"><-</span> increment diff --git a/html/shell/macroexpand.mu.html b/html/shell/macroexpand.mu.html new file mode 100644 index 00000000..4dfb34e4 --- /dev/null +++ b/html/shell/macroexpand.mu.html @@ -0,0 +1,428 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - shell/macroexpand.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-dark"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #a8a8a8; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #a8a8a8; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } +.LineNr { } +.CommentedCode { color: #8a8a8a; } +.Constant { color: #008787; } +.muComment { color: #005faf; } +.Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.muTest { color: #5f8700; } +.Folded { color: #080808; background-color: #949494; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/shell/macroexpand.mu'>https://github.com/akkartik/mu/blob/main/shell/macroexpand.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='macroexpand.mu.html#L1'>macroexpand</a></span> expr-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), globals: (addr <a href='global.mu.html#L7'>global-table</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L2" class="Folded"> 2 </span><span class="Folded">+-- 11 lines: # trace "macroexpand " expr-ah --------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13" class="LineNr"> 13 </span> <span class="muComment"># loop until convergence</span> +<span id="L14" class="LineNr"> 14 </span> <span class="Delimiter">{</span> +<span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> expanded?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='macroexpand.mu.html#L33'>macroexpand-iter</a> expr-ah, globals, trace +<span id="L16" class="LineNr"> 16 </span> compare expanded?, <span class="Constant">0</span>/false +<span id="L17" class="LineNr"> 17 </span> <span class="PreProc">loop-if-!=</span> +<span id="L18" class="LineNr"> 18 </span> <span class="Delimiter">}</span> +<span id="L19" class="Folded"> 19 </span><span class="Folded">+-- 11 lines: # trace "=> " expr-ah -----------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L30" class="LineNr"> 30 </span><span class="Delimiter">}</span> +<span id="L31" class="LineNr"> 31 </span> +<span id="L32" class="LineNr"> 32 </span><span class="muComment"># return true if we found any macros</span> +<span id="L33" class="LineNr"> 33 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='macroexpand.mu.html#L33'>macroexpand-iter</a></span> _expr-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), globals: (addr <a href='global.mu.html#L7'>global-table</a>), trace: (addr trace)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L34" class="LineNr"> 34 </span> <span class="PreProc">var</span> expr-ah/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _expr-ah +<span id="L35" class="Folded"> 35 </span><span class="Folded">+-- 11 lines: # trace "macroexpand-iter " expr ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L46" class="LineNr"> 46 </span> <span class="muComment"># if expr is a non-pair, return</span> +<span id="L47" class="LineNr"> 47 </span> <span class="PreProc">var</span> expr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *expr-ah +<span id="L48" class="LineNr"> 48 </span> <span class="Delimiter">{</span> +<span id="L49" class="LineNr"> 49 </span> <span class="PreProc">var</span> <a href='print.mu.html#L236'>nil?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> expr +<span id="L50" class="LineNr"> 50 </span> compare <a href='print.mu.html#L236'>nil?</a>, <span class="Constant">0</span>/false +<span id="L51" class="LineNr"> 51 </span> <span class="PreProc">break-if-=</span> +<span id="L52" class="LineNr"> 52 </span> <span class="muComment"># nil is a literal</span> +<span id="L53" class="LineNr"> 53 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"mac"</span>, <span class="Constant">"nil"</span> +<span id="L54" class="LineNr"> 54 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L55" class="LineNr"> 55 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L56" class="LineNr"> 56 </span> <span class="Delimiter">}</span> +<span id="L57" class="LineNr"> 57 </span> <span class="Delimiter">{</span> +<span id="L58" class="LineNr"> 58 </span> <span class="PreProc">var</span> expr-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get expr, <span class="PreProc">type</span> +<span id="L59" class="LineNr"> 59 </span> compare *expr-type, <span class="Constant">0</span>/pair +<span id="L60" class="LineNr"> 60 </span> <span class="PreProc">break-if-=</span> +<span id="L61" class="LineNr"> 61 </span> <span class="muComment"># non-pairs are literals</span> +<span id="L62" class="LineNr"> 62 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"mac"</span>, <span class="Constant">"non-pair"</span> +<span id="L63" class="LineNr"> 63 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L64" class="LineNr"> 64 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L65" class="LineNr"> 65 </span> <span class="Delimiter">}</span> +<span id="L66" class="LineNr"> 66 </span> <span class="muComment"># if expr is a literal pair, return</span> +<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">ebx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get expr, left +<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> rest-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get expr, right +<span id="L69" class="LineNr"> 69 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *first-ah +<span id="L70" class="LineNr"> 70 </span> <span class="Delimiter">{</span> +<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> <a href='evaluate.mu.html#L1221'>litfn?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='evaluate.mu.html#L1221'>litfn?</a> first +<span id="L72" class="LineNr"> 72 </span> compare <a href='evaluate.mu.html#L1221'>litfn?</a>, <span class="Constant">0</span>/false +<span id="L73" class="LineNr"> 73 </span> <span class="PreProc">break-if-=</span> +<span id="L74" class="LineNr"> 74 </span> <span class="muComment"># litfn is a literal</span> +<span id="L75" class="LineNr"> 75 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"mac"</span>, <span class="Constant">"literal function"</span> +<span id="L76" class="LineNr"> 76 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L78" class="LineNr"> 78 </span> <span class="Delimiter">}</span> +<span id="L79" class="LineNr"> 79 </span> <span class="Delimiter">{</span> +<span id="L80" class="LineNr"> 80 </span> <span class="PreProc">var</span> <a href='evaluate.mu.html#L1235'>litmac?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='evaluate.mu.html#L1235'>litmac?</a> first +<span id="L81" class="LineNr"> 81 </span> compare <a href='evaluate.mu.html#L1235'>litmac?</a>, <span class="Constant">0</span>/false +<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">break-if-=</span> +<span id="L83" class="LineNr"> 83 </span> <span class="muComment"># litmac is a literal</span> +<span id="L84" class="LineNr"> 84 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"mac"</span>, <span class="Constant">"literal macro"</span> +<span id="L85" class="LineNr"> 85 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L86" class="LineNr"> 86 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L87" class="LineNr"> 87 </span> <span class="Delimiter">}</span> +<span id="L88" class="LineNr"> 88 </span> <span class="PreProc">var</span> result/<span class="Constant">edi</span>: boolean <span class="Special"><-</span> copy <span class="Constant">0</span>/false +<span id="L89" class="LineNr"> 89 </span> <span class="muComment"># for each builtin, expand only what will later be evaluated</span> +<span id="L90" class="LineNr"> 90 </span> $macroexpand-iter:anonymous-function: <span class="Delimiter">{</span> +<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> <a href='evaluate.mu.html#L1207'>fn?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='evaluate.mu.html#L1207'>fn?</a> first +<span id="L92" class="LineNr"> 92 </span> compare <a href='evaluate.mu.html#L1207'>fn?</a>, <span class="Constant">0</span>/false +<span id="L93" class="LineNr"> 93 </span> <span class="PreProc">break-if-=</span> +<span id="L94" class="LineNr"> 94 </span> <span class="muComment"># fn: expand every expression in the body</span> +<span id="L95" class="LineNr"> 95 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"mac"</span>, <span class="Constant">"anonymous function"</span> +<span id="L96" class="LineNr"> 96 </span> <span class="muComment"># skip parameters</span> +<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> rest/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *rest-ah +<span id="L98" class="LineNr"> 98 </span> <span class="Delimiter">{</span> +<span id="L99" class="LineNr"> 99 </span> rest-ah <span class="Special"><-</span> get rest, right +<span id="L100" class="LineNr">100 </span> rest <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *rest-ah +<span id="L101" class="LineNr">101 </span> <span class="Delimiter">{</span> +<span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> rest +<span id="L103" class="LineNr">103 </span> compare done?, <span class="Constant">0</span>/false +<span id="L104" class="LineNr">104 </span> <span class="Delimiter">}</span> +<span id="L105" class="LineNr">105 </span> <span class="PreProc">break-if-!=</span> +<span id="L106" class="LineNr">106 </span> <span class="PreProc">var</span> curr-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, left +<span id="L107" class="LineNr">107 </span> <span class="PreProc">var</span> macro-found?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='macroexpand.mu.html#L33'>macroexpand-iter</a> curr-ah, globals, trace +<span id="L108" class="LineNr">108 </span> result <span class="Special"><-</span> or macro-found? +<span id="L109" class="LineNr">109 </span> <span class="PreProc">loop</span> +<span id="L110" class="LineNr">110 </span> <span class="Delimiter">}</span> +<span id="L111" class="LineNr">111 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L112" class="LineNr">112 </span> <span class="PreProc">return</span> result +<span id="L113" class="LineNr">113 </span> <span class="Delimiter">}</span> +<span id="L114" class="LineNr">114 </span> <span class="muComment"># builtins with "special" evaluation rules</span> +<span id="L115" class="LineNr">115 </span> $macroexpand-iter:quote: <span class="Delimiter">{</span> +<span id="L116" class="LineNr">116 </span> <span class="muComment"># trees starting with single quote create literals</span> +<span id="L117" class="LineNr">117 </span> <span class="PreProc">var</span> quote?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='cell.mu.html#L44'>symbol-equal?</a> first, <span class="Constant">"'"</span> +<span id="L118" class="LineNr">118 </span> compare quote?, <span class="Constant">0</span>/false +<span id="L119" class="LineNr">119 </span> <span class="PreProc">break-if-=</span> +<span id="L120" class="LineNr">120 </span> <span class="muComment">#</span> +<span id="L121" class="LineNr">121 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"mac"</span>, <span class="Constant">"quote"</span> +<span id="L122" class="LineNr">122 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L123" class="LineNr">123 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L124" class="LineNr">124 </span> <span class="Delimiter">}</span> +<span id="L125" class="LineNr">125 </span> $macroexpand-iter:backquote: <span class="Delimiter">{</span> +<span id="L126" class="LineNr">126 </span> <span class="muComment"># nested backquote not supported for now</span> +<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> backquote?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='cell.mu.html#L44'>symbol-equal?</a> first, <span class="Constant">"`"</span> +<span id="L128" class="LineNr">128 </span> compare backquote?, <span class="Constant">0</span>/false +<span id="L129" class="LineNr">129 </span> <span class="PreProc">break-if-=</span> +<span id="L130" class="LineNr">130 </span> <span class="muComment">#</span> +<span id="L131" class="LineNr">131 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"nested backquote not supported yet"</span> +<span id="L132" class="LineNr">132 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L133" class="LineNr">133 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L134" class="LineNr">134 </span> <span class="Delimiter">}</span> +<span id="L135" class="LineNr">135 </span> $macroexpand-iter:def: <span class="Delimiter">{</span> +<span id="L136" class="LineNr">136 </span> <span class="muComment"># trees starting with "def" define globals</span> +<span id="L137" class="LineNr">137 </span> <span class="PreProc">var</span> def?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='cell.mu.html#L44'>symbol-equal?</a> first, <span class="Constant">"def"</span> +<span id="L138" class="LineNr">138 </span> compare def?, <span class="Constant">0</span>/false +<span id="L139" class="LineNr">139 </span> <span class="PreProc">break-if-=</span> +<span id="L140" class="LineNr">140 </span> <span class="muComment">#</span> +<span id="L141" class="LineNr">141 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"mac"</span>, <span class="Constant">"def"</span> +<span id="L142" class="LineNr">142 </span> <span class="PreProc">var</span> rest/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *rest-ah +<span id="L143" class="LineNr">143 </span> rest-ah <span class="Special"><-</span> get rest, right <span class="muComment"># skip name</span> +<span id="L144" class="LineNr">144 </span> rest <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *rest-ah +<span id="L145" class="LineNr">145 </span> <span class="PreProc">var</span> val-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, left +<span id="L146" class="LineNr">146 </span> <span class="PreProc">var</span> macro-found?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='macroexpand.mu.html#L33'>macroexpand-iter</a> val-ah, globals, trace +<span id="L147" class="LineNr">147 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L148" class="LineNr">148 </span> <span class="PreProc">return</span> macro-found? +<span id="L149" class="LineNr">149 </span> <span class="Delimiter">}</span> +<span id="L150" class="LineNr">150 </span> $macroexpand-iter:set: <span class="Delimiter">{</span> +<span id="L151" class="LineNr">151 </span> <span class="muComment"># trees starting with "set" mutate bindings</span> +<span id="L152" class="LineNr">152 </span> <span class="PreProc">var</span> set?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='cell.mu.html#L44'>symbol-equal?</a> first, <span class="Constant">"set"</span> +<span id="L153" class="LineNr">153 </span> compare set?, <span class="Constant">0</span>/false +<span id="L154" class="LineNr">154 </span> <span class="PreProc">break-if-=</span> +<span id="L155" class="LineNr">155 </span> <span class="muComment">#</span> +<span id="L156" class="LineNr">156 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"mac"</span>, <span class="Constant">"set"</span> +<span id="L157" class="LineNr">157 </span> <span class="PreProc">var</span> rest/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *rest-ah +<span id="L158" class="LineNr">158 </span> rest-ah <span class="Special"><-</span> get rest, right <span class="muComment"># skip name</span> +<span id="L159" class="LineNr">159 </span> rest <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *rest-ah +<span id="L160" class="LineNr">160 </span> <span class="PreProc">var</span> val-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, left +<span id="L161" class="LineNr">161 </span> <span class="PreProc">var</span> macro-found?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='macroexpand.mu.html#L33'>macroexpand-iter</a> val-ah, globals, trace +<span id="L162" class="LineNr">162 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L163" class="LineNr">163 </span> <span class="PreProc">return</span> macro-found? +<span id="L164" class="LineNr">164 </span> <span class="Delimiter">}</span> +<span id="L165" class="LineNr">165 </span> <span class="muComment"># 'and' is like a function for macroexpansion purposes</span> +<span id="L166" class="LineNr">166 </span> <span class="muComment"># 'or' is like a function for macroexpansion purposes</span> +<span id="L167" class="LineNr">167 </span> <span class="muComment"># 'if' is like a function for macroexpansion purposes</span> +<span id="L168" class="LineNr">168 </span> <span class="muComment"># 'while' is like a function for macroexpansion purposes</span> +<span id="L169" class="LineNr">169 </span> <span class="muComment"># if car(expr) is a symbol defined as a macro, expand it</span> +<span id="L170" class="LineNr">170 </span> <span class="Delimiter">{</span> +<span id="L171" class="LineNr">171 </span> <span class="PreProc">var</span> definition-h: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L172" class="LineNr">172 </span> <span class="PreProc">var</span> definition-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address definition-h +<span id="L173" class="LineNr">173 </span> <a href='global.mu.html#L401'>maybe-lookup-symbol-in-globals</a> first, definition-ah, globals, trace +<span id="L174" class="LineNr">174 </span> <span class="PreProc">var</span> definition/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *definition-ah +<span id="L175" class="LineNr">175 </span> compare definition, <span class="Constant">0</span> +<span id="L176" class="LineNr">176 </span> <span class="PreProc">break-if-=</span> +<span id="L177" class="LineNr">177 </span> <span class="muComment"># definition found</span> +<span id="L178" class="LineNr">178 </span> <span class="Delimiter">{</span> +<span id="L179" class="LineNr">179 </span> <span class="PreProc">var</span> definition-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get definition, <span class="PreProc">type</span> +<span id="L180" class="LineNr">180 </span> compare *definition-type, <span class="Constant">0</span>/pair +<span id="L181" class="LineNr">181 </span> <span class="Delimiter">}</span> +<span id="L182" class="LineNr">182 </span> <span class="PreProc">break-if-!=</span> +<span id="L183" class="LineNr">183 </span> <span class="muComment"># definition is a pair</span> +<span id="L184" class="LineNr">184 </span> <span class="Delimiter">{</span> +<span id="L185" class="LineNr">185 </span> <span class="PreProc">var</span> definition-car-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get definition, left +<span id="L186" class="LineNr">186 </span> <span class="PreProc">var</span> definition-car/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *definition-car-ah +<span id="L187" class="LineNr">187 </span> <span class="PreProc">var</span> macro?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='evaluate.mu.html#L1235'>litmac?</a> definition-car +<span id="L188" class="LineNr">188 </span> compare macro?, <span class="Constant">0</span>/false +<span id="L189" class="LineNr">189 </span> <span class="Delimiter">}</span> +<span id="L190" class="LineNr">190 </span> <span class="PreProc">break-if-=</span> +<span id="L191" class="LineNr">191 </span> <span class="muComment"># definition is a macro</span> +<span id="L192" class="LineNr">192 </span> <span class="PreProc">var</span> macro-definition-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get definition, right +<span id="L193" class="LineNr">193 </span> <span class="muComment"># TODO: check car(macro-definition) is litfn</span> +<span id="L194" class="LineNr">194 </span><span class="CommentedCode">#? turn-on-debug-print</span> +<span id="L195" class="LineNr">195 </span> <a href='evaluate.mu.html#L517'>apply</a> macro-definition-ah, rest-ah, expr-ah, globals, trace, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-keyboard, <span class="Constant">0</span>/call-number +<span id="L196" class="LineNr">196 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L197" class="LineNr">197 </span> <span class="Delimiter">}</span> +<span id="L198" class="LineNr">198 </span> <span class="muComment"># no macro found; process any macros within args</span> +<span id="L199" class="LineNr">199 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"mac"</span>, <span class="Constant">"recursing into function definition"</span> +<span id="L200" class="LineNr">200 </span> <span class="PreProc">var</span> curr-ah/<span class="Constant">ebx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy first-ah +<span id="L201" class="LineNr">201 </span> $macroexpand-iter:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> +<span id="L202" class="LineNr">202 </span><span class="CommentedCode">#? clear-screen 0/screen</span> +<span id="L203" class="LineNr">203 </span><span class="CommentedCode">#? dump-trace trace</span> +<span id="L204" class="LineNr">204 </span> <span class="PreProc">var</span> macro-found?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='macroexpand.mu.html#L33'>macroexpand-iter</a> curr-ah, globals, trace +<span id="L205" class="LineNr">205 </span> result <span class="Special"><-</span> or macro-found? +<span id="L206" class="LineNr">206 </span> <span class="PreProc">var</span> rest/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *rest-ah +<span id="L207" class="LineNr">207 </span> <span class="Delimiter">{</span> +<span id="L208" class="LineNr">208 </span> <span class="PreProc">var</span> <a href='print.mu.html#L236'>nil?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> rest +<span id="L209" class="LineNr">209 </span> compare <a href='print.mu.html#L236'>nil?</a>, <span class="Constant">0</span>/false +<span id="L210" class="LineNr">210 </span> <span class="Delimiter">}</span> +<span id="L211" class="LineNr">211 </span> <span class="PreProc">break-if-!=</span> +<span id="L212" class="LineNr">212 </span> curr-ah <span class="Special"><-</span> get rest, left +<span id="L213" class="LineNr">213 </span> rest-ah <span class="Special"><-</span> get rest, right +<span id="L214" class="LineNr">214 </span> <span class="PreProc">loop</span> +<span id="L215" class="LineNr">215 </span> <span class="Delimiter">}</span> +<span id="L216" class="LineNr">216 </span> <span class="PreProc">return</span> result +<span id="L217" class="LineNr">217 </span><span class="Delimiter">}</span> +<span id="L218" class="LineNr">218 </span> +<span id="L219" class="LineNr">219 </span><span class="PreProc">fn</span> <span class="muTest"><a href='macroexpand.mu.html#L219'>test-macroexpand</a></span> <span class="Delimiter">{</span> +<span id="L220" class="LineNr">220 </span> <span class="PreProc">var</span> globals-storage: <a href='global.mu.html#L7'>global-table</a> +<span id="L221" class="LineNr">221 </span> <span class="PreProc">var</span> globals/<span class="Constant">edx</span>: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Special"><-</span> address globals-storage +<span id="L222" class="LineNr">222 </span> <a href='global.mu.html#L12'>initialize-globals</a> globals +<span id="L223" class="LineNr">223 </span> <span class="muComment"># new macro: m</span> +<span id="L224" class="LineNr">224 </span> <span class="PreProc">var</span> sandbox-storage: <a href='sandbox.mu.html#L1'>sandbox</a> +<span id="L225" class="LineNr">225 </span> <span class="PreProc">var</span> <a href='sandbox.mu.html#L1'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> address sandbox-storage +<span id="L226" class="LineNr">226 </span> <a href='sandbox.mu.html#L41'>initialize-sandbox-with</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">"(def m (litmac litfn () (a b) `(+ ,a ,b)))"</span> +<span id="L227" class="LineNr">227 </span> <a href='sandbox.mu.html#L460'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0x13</span>/ctrl-s, globals, <span class="Constant">0</span>/no-disk, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-tweak-screen +<span id="L228" class="LineNr">228 </span> <span class="PreProc">var</span> trace-ah/<span class="Constant">eax</span>: (addr handle trace) <span class="Special"><-</span> get <a href='sandbox.mu.html#L1'>sandbox</a>, trace +<span id="L229" class="LineNr">229 </span> <span class="PreProc">var</span> trace/<span class="Constant">eax</span>: (addr trace) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *trace-ah +<span id="L230" class="LineNr">230 </span> <span class="muComment"># invoke macro</span> +<span id="L231" class="LineNr">231 </span> <a href='sandbox.mu.html#L41'>initialize-sandbox-with</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">"(m 3 4)"</span> +<span id="L232" class="LineNr">232 </span> <span class="PreProc">var</span> gap-ah/<span class="Constant">ecx</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get <a href='sandbox.mu.html#L1'>sandbox</a>, data +<span id="L233" class="LineNr">233 </span> <span class="PreProc">var</span> gap/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *gap-ah +<span id="L234" class="LineNr">234 </span> <span class="PreProc">var</span> result-h: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L235" class="LineNr">235 </span> <span class="PreProc">var</span> result-ah/<span class="Constant">ebx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address result-h +<span id="L236" class="LineNr">236 </span> <a href='read.mu.html#L1'>read-cell</a> gap, result-ah, <span class="Constant">0</span>/no-trace +<span id="L237" class="LineNr">237 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='macroexpand.mu.html#L33'>macroexpand-iter</a> result-ah, globals, <span class="Constant">0</span>/no-trace +<span id="L238" class="LineNr">238 </span><span class="CommentedCode">#? dump-cell-from-cursor-over-full-screen result-ah</span> +<span id="L239" class="LineNr">239 </span> <span class="PreProc">var</span> _result/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *result-ah +<span id="L240" class="LineNr">240 </span> <span class="PreProc">var</span> result/<span class="Constant">edi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _result +<span id="L241" class="LineNr">241 </span> <span class="muComment"># expected</span> +<span id="L242" class="LineNr">242 </span> <a href='sandbox.mu.html#L41'>initialize-sandbox-with</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">"(+ 3 4)"</span> +<span id="L243" class="LineNr">243 </span> <span class="PreProc">var</span> expected-gap-ah/<span class="Constant">ecx</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get <a href='sandbox.mu.html#L1'>sandbox</a>, data +<span id="L244" class="LineNr">244 </span> <span class="PreProc">var</span> expected-gap/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *expected-gap-ah +<span id="L245" class="LineNr">245 </span> <span class="PreProc">var</span> expected-h: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L246" class="LineNr">246 </span> <span class="PreProc">var</span> expected-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address expected-h +<span id="L247" class="LineNr">247 </span> <a href='read.mu.html#L1'>read-cell</a> expected-gap, expected-ah, <span class="Constant">0</span>/no-trace +<span id="L248" class="LineNr">248 </span><span class="CommentedCode">#? dump-cell-from-cursor-over-full-screen expected-ah</span> +<span id="L249" class="LineNr">249 </span> <span class="PreProc">var</span> expected/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *expected-ah +<span id="L250" class="LineNr">250 </span> <span class="muComment">#</span> +<span id="L251" class="LineNr">251 </span> <span class="PreProc">var</span> assertion/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='evaluate.mu.html#L1037'>cell-isomorphic?</a> result, expected, <span class="Constant">0</span>/no-trace +<span id="L252" class="LineNr">252 </span> <a href='../502test.mu.html#L19'>check</a> assertion, <span class="Constant">"F - test-macroexpand"</span> +<span id="L253" class="LineNr">253 </span><span class="Delimiter">}</span> +<span id="L254" class="LineNr">254 </span> +<span id="L255" class="LineNr">255 </span><span class="PreProc">fn</span> <span class="muTest"><a href='macroexpand.mu.html#L255'>test-macroexpand-inside-anonymous-fn</a></span> <span class="muFunction">{</span> +<span id="L256" class="LineNr">256 </span> <span class="PreProc">var</span> globals-storage: <a href='global.mu.html#L7'>global-table</a> +<span id="L257" class="LineNr">257 </span> <span class="PreProc">var</span> globals/<span class="Constant">edx</span>: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Special"><-</span> address globals-storage +<span id="L258" class="LineNr">258 </span> <a href='global.mu.html#L12'>initialize-globals</a> globals +<span id="L259" class="LineNr">259 </span> <span class="muComment"># new macro: m</span> +<span id="L260" class="LineNr">260 </span> <span class="PreProc">var</span> sandbox-storage: <a href='sandbox.mu.html#L1'>sandbox</a> +<span id="L261" class="LineNr">261 </span> <span class="PreProc">var</span> <a href='sandbox.mu.html#L1'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> address sandbox-storage +<span id="L262" class="LineNr">262 </span> <a href='sandbox.mu.html#L41'>initialize-sandbox-with</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">"(def m (litmac litfn () (a b) `(+ ,a ,b)))"</span> +<span id="L263" class="LineNr">263 </span> <a href='sandbox.mu.html#L460'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0x13</span>/ctrl-s, globals, <span class="Constant">0</span>/no-disk, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-tweak-screen +<span id="L264" class="LineNr">264 </span> <span class="PreProc">var</span> trace-ah/<span class="Constant">eax</span>: (addr handle trace) <span class="Special"><-</span> get <a href='sandbox.mu.html#L1'>sandbox</a>, trace +<span id="L265" class="LineNr">265 </span> <span class="PreProc">var</span> trace/<span class="Constant">eax</span>: (addr trace) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *trace-ah +<span id="L266" class="LineNr">266 </span> <span class="muComment"># invoke macro</span> +<span id="L267" class="LineNr">267 </span> <a href='sandbox.mu.html#L41'>initialize-sandbox-with</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">"(fn() (m 3 4))"</span> +<span id="L268" class="LineNr">268 </span> <span class="PreProc">var</span> gap-ah/<span class="Constant">ecx</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get <a href='sandbox.mu.html#L1'>sandbox</a>, data +<span id="L269" class="LineNr">269 </span> <span class="PreProc">var</span> gap/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *gap-ah +<span id="L270" class="LineNr">270 </span> <span class="PreProc">var</span> result-h: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L271" class="LineNr">271 </span> <span class="PreProc">var</span> result-ah/<span class="Constant">ebx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address result-h +<span id="L272" class="LineNr">272 </span> <a href='read.mu.html#L1'>read-cell</a> gap, result-ah, <span class="Constant">0</span>/no-trace +<span id="L273" class="LineNr">273 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='macroexpand.mu.html#L33'>macroexpand-iter</a> result-ah, globals, <span class="Constant">0</span>/no-trace +<span id="L274" class="LineNr">274 </span><span class="CommentedCode">#? dump-cell-from-cursor-over-full-screen result-ah</span> +<span id="L275" class="LineNr">275 </span> <span class="PreProc">var</span> _result/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *result-ah +<span id="L276" class="LineNr">276 </span> <span class="PreProc">var</span> result/<span class="Constant">edi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _result +<span id="L277" class="LineNr">277 </span> <span class="muComment"># expected</span> +<span id="L278" class="LineNr">278 </span> <a href='sandbox.mu.html#L41'>initialize-sandbox-with</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">"(fn() (+ 3 4))"</span> +<span id="L279" class="LineNr">279 </span> <span class="PreProc">var</span> expected-gap-ah/<span class="Constant">ecx</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get <a href='sandbox.mu.html#L1'>sandbox</a>, data +<span id="L280" class="LineNr">280 </span> <span class="PreProc">var</span> expected-gap/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *expected-gap-ah +<span id="L281" class="LineNr">281 </span> <span class="PreProc">var</span> expected-h: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L282" class="LineNr">282 </span> <span class="PreProc">var</span> expected-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address expected-h +<span id="L283" class="LineNr">283 </span> <a href='read.mu.html#L1'>read-cell</a> expected-gap, expected-ah, <span class="Constant">0</span>/no-trace +<span id="L284" class="LineNr">284 </span><span class="CommentedCode">#? dump-cell-from-cursor-over-full-screen expected-ah</span> +<span id="L285" class="LineNr">285 </span> <span class="PreProc">var</span> expected/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *expected-ah +<span id="L286" class="LineNr">286 </span> <span class="muComment">#</span> +<span id="L287" class="LineNr">287 </span> <span class="PreProc">var</span> assertion/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='evaluate.mu.html#L1037'>cell-isomorphic?</a> result, expected, <span class="Constant">0</span>/no-trace +<span id="L288" class="LineNr">288 </span> <a href='../502test.mu.html#L19'>check</a> assertion, <span class="Constant">"F - test-macroexpand-inside-anonymous-fn"</span> +<span id="L289" class="LineNr">289 </span><span class="Delimiter">}</span> +<span id="L290" class="LineNr">290 </span> +<span id="L291" class="LineNr">291 </span><span class="PreProc">fn</span> <span class="muTest"><a href='macroexpand.mu.html#L291'>test-macroexpand-inside-fn-call</a></span> <span class="Delimiter">{</span> +<span id="L292" class="LineNr">292 </span> <span class="PreProc">var</span> globals-storage: <a href='global.mu.html#L7'>global-table</a> +<span id="L293" class="LineNr">293 </span> <span class="PreProc">var</span> globals/<span class="Constant">edx</span>: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Special"><-</span> address globals-storage +<span id="L294" class="LineNr">294 </span> <a href='global.mu.html#L12'>initialize-globals</a> globals +<span id="L295" class="LineNr">295 </span> <span class="muComment"># new macro: m</span> +<span id="L296" class="LineNr">296 </span> <span class="PreProc">var</span> sandbox-storage: <a href='sandbox.mu.html#L1'>sandbox</a> +<span id="L297" class="LineNr">297 </span> <span class="PreProc">var</span> <a href='sandbox.mu.html#L1'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> address sandbox-storage +<span id="L298" class="LineNr">298 </span> <a href='sandbox.mu.html#L41'>initialize-sandbox-with</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">"(def m (litmac litfn () (a b) `(+ ,a ,b)))"</span> +<span id="L299" class="LineNr">299 </span> <a href='sandbox.mu.html#L460'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0x13</span>/ctrl-s, globals, <span class="Constant">0</span>/no-disk, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-tweak-screen +<span id="L300" class="LineNr">300 </span> <span class="muComment"># invoke macro</span> +<span id="L301" class="LineNr">301 </span> <a href='sandbox.mu.html#L41'>initialize-sandbox-with</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">"((fn() (m 3 4)))"</span> +<span id="L302" class="LineNr">302 </span> <span class="PreProc">var</span> gap-ah/<span class="Constant">ecx</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get <a href='sandbox.mu.html#L1'>sandbox</a>, data +<span id="L303" class="LineNr">303 </span> <span class="PreProc">var</span> gap/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *gap-ah +<span id="L304" class="LineNr">304 </span> <span class="PreProc">var</span> result-h: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L305" class="LineNr">305 </span> <span class="PreProc">var</span> result-ah/<span class="Constant">ebx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address result-h +<span id="L306" class="LineNr">306 </span> <a href='read.mu.html#L1'>read-cell</a> gap, result-ah, <span class="Constant">0</span>/no-trace +<span id="L307" class="LineNr">307 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='macroexpand.mu.html#L33'>macroexpand-iter</a> result-ah, globals, <span class="Constant">0</span>/no-trace +<span id="L308" class="LineNr">308 </span><span class="CommentedCode">#? dump-cell-from-cursor-over-full-screen result-ah</span> +<span id="L309" class="LineNr">309 </span> <span class="PreProc">var</span> _result/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *result-ah +<span id="L310" class="LineNr">310 </span> <span class="PreProc">var</span> result/<span class="Constant">edi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _result +<span id="L311" class="LineNr">311 </span> <span class="muComment"># expected</span> +<span id="L312" class="LineNr">312 </span> <a href='sandbox.mu.html#L41'>initialize-sandbox-with</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">"((fn() (+ 3 4)))"</span> +<span id="L313" class="LineNr">313 </span> <span class="PreProc">var</span> expected-gap-ah/<span class="Constant">ecx</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get <a href='sandbox.mu.html#L1'>sandbox</a>, data +<span id="L314" class="LineNr">314 </span> <span class="PreProc">var</span> expected-gap/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *expected-gap-ah +<span id="L315" class="LineNr">315 </span> <span class="PreProc">var</span> expected-h: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L316" class="LineNr">316 </span> <span class="PreProc">var</span> expected-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address expected-h +<span id="L317" class="LineNr">317 </span> <a href='read.mu.html#L1'>read-cell</a> expected-gap, expected-ah, <span class="Constant">0</span>/no-trace +<span id="L318" class="LineNr">318 </span><span class="CommentedCode">#? dump-cell-from-cursor-over-full-screen expected-ah</span> +<span id="L319" class="LineNr">319 </span> <span class="PreProc">var</span> expected/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *expected-ah +<span id="L320" class="LineNr">320 </span> <span class="muComment">#</span> +<span id="L321" class="LineNr">321 </span> <span class="PreProc">var</span> assertion/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='evaluate.mu.html#L1037'>cell-isomorphic?</a> result, expected, <span class="Constant">0</span>/no-trace +<span id="L322" class="LineNr">322 </span> <a href='../502test.mu.html#L19'>check</a> assertion, <span class="Constant">"F - test-macroexpand-inside-fn-call"</span> +<span id="L323" class="LineNr">323 </span><span class="Delimiter">}</span> +<span id="L324" class="LineNr">324 </span> +<span id="L325" class="LineNr">325 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='macroexpand.mu.html#L325'>pending-test-macroexpand-inside-backquote-unquote</a></span> <span class="Delimiter">{</span> +<span id="L326" class="LineNr">326 </span> <span class="PreProc">var</span> globals-storage: <a href='global.mu.html#L7'>global-table</a> +<span id="L327" class="LineNr">327 </span> <span class="PreProc">var</span> globals/<span class="Constant">edx</span>: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Special"><-</span> address globals-storage +<span id="L328" class="LineNr">328 </span> <a href='global.mu.html#L12'>initialize-globals</a> globals +<span id="L329" class="LineNr">329 </span> <span class="muComment"># new macro: m</span> +<span id="L330" class="LineNr">330 </span> <span class="PreProc">var</span> sandbox-storage: <a href='sandbox.mu.html#L1'>sandbox</a> +<span id="L331" class="LineNr">331 </span> <span class="PreProc">var</span> <a href='sandbox.mu.html#L1'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> address sandbox-storage +<span id="L332" class="LineNr">332 </span> <a href='sandbox.mu.html#L41'>initialize-sandbox-with</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">"(def m (litmac litfn () (a b) `(+ ,a ,b)))"</span> +<span id="L333" class="LineNr">333 </span> <a href='sandbox.mu.html#L460'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0x13</span>/ctrl-s, globals, <span class="Constant">0</span>/no-disk, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-tweak-screen +<span id="L334" class="LineNr">334 </span> <span class="muComment"># invoke macro</span> +<span id="L335" class="LineNr">335 </span> <a href='sandbox.mu.html#L41'>initialize-sandbox-with</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">"`(print [result is ] ,(m 3 4)))"</span> +<span id="L336" class="LineNr">336 </span> <span class="PreProc">var</span> gap-ah/<span class="Constant">ecx</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get <a href='sandbox.mu.html#L1'>sandbox</a>, data +<span id="L337" class="LineNr">337 </span> <span class="PreProc">var</span> gap/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *gap-ah +<span id="L338" class="LineNr">338 </span> <span class="PreProc">var</span> result-h: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L339" class="LineNr">339 </span> <span class="PreProc">var</span> result-ah/<span class="Constant">ebx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address result-h +<span id="L340" class="LineNr">340 </span> <a href='read.mu.html#L1'>read-cell</a> gap, result-ah, <span class="Constant">0</span>/no-trace +<span id="L341" class="LineNr">341 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='macroexpand.mu.html#L33'>macroexpand-iter</a> result-ah, globals, <span class="Constant">0</span>/no-trace +<span id="L342" class="LineNr">342 </span> <a href='print.mu.html#L94'>dump-cell-from-cursor-over-full-screen</a> result-ah +<span id="L343" class="LineNr">343 </span> <span class="PreProc">var</span> _result/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *result-ah +<span id="L344" class="LineNr">344 </span> <span class="PreProc">var</span> result/<span class="Constant">edi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _result +<span id="L345" class="LineNr">345 </span> <span class="muComment"># expected</span> +<span id="L346" class="LineNr">346 </span> <a href='sandbox.mu.html#L41'>initialize-sandbox-with</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">"`(print [result is ] ,(+ 3 4)))"</span> +<span id="L347" class="LineNr">347 </span> <span class="PreProc">var</span> expected-gap-ah/<span class="Constant">ecx</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get <a href='sandbox.mu.html#L1'>sandbox</a>, data +<span id="L348" class="LineNr">348 </span> <span class="PreProc">var</span> expected-gap/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *expected-gap-ah +<span id="L349" class="LineNr">349 </span> <span class="PreProc">var</span> expected-h: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L350" class="LineNr">350 </span> <span class="PreProc">var</span> expected-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address expected-h +<span id="L351" class="LineNr">351 </span> <a href='read.mu.html#L1'>read-cell</a> expected-gap, expected-ah, <span class="Constant">0</span>/no-trace +<span id="L352" class="LineNr">352 </span> <a href='print.mu.html#L94'>dump-cell-from-cursor-over-full-screen</a> expected-ah +<span id="L353" class="LineNr">353 </span> <span class="PreProc">var</span> expected/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *expected-ah +<span id="L354" class="LineNr">354 </span> <span class="muComment">#</span> +<span id="L355" class="LineNr">355 </span> <span class="PreProc">var</span> assertion/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='evaluate.mu.html#L1037'>cell-isomorphic?</a> result, expected, <span class="Constant">0</span>/no-trace +<span id="L356" class="LineNr">356 </span> <a href='../502test.mu.html#L19'>check</a> assertion, <span class="Constant">"F - test-macroexpand-inside-backquote-unquote"</span> +<span id="L357" class="LineNr">357 </span><span class="Delimiter">}</span> +<span id="L358" class="LineNr">358 </span> +<span id="L359" class="LineNr">359 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='macroexpand.mu.html#L359'>pending-test-macroexpand-inside-nested-backquote-unquote</a></span> <span class="Delimiter">{</span> +<span id="L360" class="LineNr">360 </span> <span class="PreProc">var</span> globals-storage: <a href='global.mu.html#L7'>global-table</a> +<span id="L361" class="LineNr">361 </span> <span class="PreProc">var</span> globals/<span class="Constant">edx</span>: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Special"><-</span> address globals-storage +<span id="L362" class="LineNr">362 </span> <a href='global.mu.html#L12'>initialize-globals</a> globals +<span id="L363" class="LineNr">363 </span> <span class="muComment"># new macro: m</span> +<span id="L364" class="LineNr">364 </span> <span class="PreProc">var</span> sandbox-storage: <a href='sandbox.mu.html#L1'>sandbox</a> +<span id="L365" class="LineNr">365 </span> <span class="PreProc">var</span> <a href='sandbox.mu.html#L1'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> address sandbox-storage +<span id="L366" class="LineNr">366 </span> <a href='sandbox.mu.html#L41'>initialize-sandbox-with</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">"(def m (litmac litfn () (a b) `(+ ,a ,b)))"</span> +<span id="L367" class="LineNr">367 </span> <a href='sandbox.mu.html#L460'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0x13</span>/ctrl-s, globals, <span class="Constant">0</span>/no-disk, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-tweak-screen +<span id="L368" class="LineNr">368 </span> <span class="muComment"># invoke macro</span> +<span id="L369" class="LineNr">369 </span> <a href='sandbox.mu.html#L41'>initialize-sandbox-with</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">"`(a ,(m 3 4) `(b ,(m 3 4) ,,(m 3 4)))"</span> +<span id="L370" class="LineNr">370 </span> <span class="PreProc">var</span> gap-ah/<span class="Constant">ecx</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get <a href='sandbox.mu.html#L1'>sandbox</a>, data +<span id="L371" class="LineNr">371 </span> <span class="PreProc">var</span> gap/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *gap-ah +<span id="L372" class="LineNr">372 </span> <span class="PreProc">var</span> result-h: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L373" class="LineNr">373 </span> <span class="PreProc">var</span> result-ah/<span class="Constant">ebx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address result-h +<span id="L374" class="LineNr">374 </span> <a href='read.mu.html#L1'>read-cell</a> gap, result-ah, <span class="Constant">0</span>/no-trace +<span id="L375" class="LineNr">375 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='macroexpand.mu.html#L33'>macroexpand-iter</a> result-ah, globals, <span class="Constant">0</span>/no-trace +<span id="L376" class="LineNr">376 </span> <a href='print.mu.html#L94'>dump-cell-from-cursor-over-full-screen</a> result-ah +<span id="L377" class="LineNr">377 </span> <span class="PreProc">var</span> _result/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *result-ah +<span id="L378" class="LineNr">378 </span> <span class="PreProc">var</span> result/<span class="Constant">edi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _result +<span id="L379" class="LineNr">379 </span> <span class="muComment"># expected</span> +<span id="L380" class="LineNr">380 </span> <a href='sandbox.mu.html#L41'>initialize-sandbox-with</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">"`(a ,(+ 3 4) `(b ,(m 3 4) ,,(+ 3 4)))"</span> +<span id="L381" class="LineNr">381 </span> <span class="PreProc">var</span> expected-gap-ah/<span class="Constant">ecx</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get <a href='sandbox.mu.html#L1'>sandbox</a>, data +<span id="L382" class="LineNr">382 </span> <span class="PreProc">var</span> expected-gap/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *expected-gap-ah +<span id="L383" class="LineNr">383 </span> <span class="PreProc">var</span> expected-h: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L384" class="LineNr">384 </span> <span class="PreProc">var</span> expected-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address expected-h +<span id="L385" class="LineNr">385 </span> <a href='read.mu.html#L1'>read-cell</a> expected-gap, expected-ah, <span class="Constant">0</span>/no-trace +<span id="L386" class="LineNr">386 </span> <a href='print.mu.html#L94'>dump-cell-from-cursor-over-full-screen</a> expected-ah +<span id="L387" class="LineNr">387 </span> <span class="PreProc">var</span> expected/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *expected-ah +<span id="L388" class="LineNr">388 </span> <span class="muComment">#</span> +<span id="L389" class="LineNr">389 </span> <span class="PreProc">var</span> assertion/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='evaluate.mu.html#L1037'>cell-isomorphic?</a> result, expected, <span class="Constant">0</span>/no-trace +<span id="L390" class="LineNr">390 </span> <a href='../502test.mu.html#L19'>check</a> assertion, <span class="Constant">"F - test-macroexpand-inside-nested-backquote-unquote"</span> +<span id="L391" class="LineNr">391 </span><span class="Delimiter">}</span> +<span id="L392" class="LineNr">392 </span> +<span id="L393" class="LineNr">393 </span><span class="muComment"># TODO: unquote-splice, nested and unnested</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/shell/main.mu.html b/html/shell/main.mu.html index aff6ec88..d606c1b5 100644 --- a/html/shell/main.mu.html +++ b/html/shell/main.mu.html @@ -72,7 +72,7 @@ if ('onhashchange' in window) { <span id="L13" class="LineNr"> 13 </span> <span class="muComment"># globals layout: 1 char padding, 41 code, 1 padding, 41 code, 1 padding = 85</span> <span id="L14" class="LineNr"> 14 </span> <span class="muComment"># sandbox layout: 1 padding, 41 code, 1 padding = 43</span> <span id="L15" class="LineNr"> 15 </span> <span class="muComment"># total = 128 chars</span> -<span id="L16" class="LineNr"> 16 </span> <a href='global.mu.html#L127'>render-globals</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, globals +<span id="L16" class="LineNr"> 16 </span> <a href='global.mu.html#L156'>render-globals</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, globals <span id="L17" class="LineNr"> 17 </span> <a href='sandbox.mu.html#L81'>render-sandbox</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0x55</span>/sandbox-left-margin, <span class="Constant">0</span>/sandbox-top-margin, <span class="Constant">0x80</span>/screen-width, <span class="Constant">0x2f</span>/screen-height-without-menu <span id="L18" class="LineNr"> 18 </span> <span class="Delimiter">{</span> <span id="L19" class="LineNr"> 19 </span> <span class="PreProc">var</span> key/<span class="Constant">eax</span>: byte <span class="Special"><-</span> <a href='../102keyboard.subx.html#L21'>read-key</a> keyboard @@ -83,39 +83,39 @@ if ('onhashchange' in window) { <span id="L24" class="LineNr"> 24 </span> compare key, <span class="Constant">0x12</span>/ctrl-r <span id="L25" class="LineNr"> 25 </span> <span class="PreProc">break-if-!=</span> <span id="L26" class="LineNr"> 26 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L27" class="LineNr"> 27 </span> <span class="PreProc">var</span> <a href='cell.mu.html#L120'>nil</a>: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L28" class="LineNr"> 28 </span> tmp <span class="Special"><-</span> address <a href='cell.mu.html#L120'>nil</a> -<span id="L29" class="LineNr"> 29 </span> <a href='cell.mu.html#L101'>allocate-pair</a> tmp +<span id="L27" class="LineNr"> 27 </span> <span class="PreProc">var</span> <a href='cell.mu.html#L121'>nil</a>: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L28" class="LineNr"> 28 </span> tmp <span class="Special"><-</span> address <a href='cell.mu.html#L121'>nil</a> +<span id="L29" class="LineNr"> 29 </span> <a href='cell.mu.html#L102'>allocate-pair</a> tmp <span id="L30" class="LineNr"> 30 </span> <span class="muComment"># (main 0/real-screen 0/real-keyboard)</span> <span id="L31" class="LineNr"> 31 </span> <span class="muComment"># We're using the fact that 'screen' and 'keyboard' in this function are always 0.</span> <span id="L32" class="LineNr"> 32 </span> <span class="PreProc">var</span> real-keyboard: (handle <a href='cell.mu.html#L1'>cell</a>) <span id="L33" class="LineNr"> 33 </span> tmp <span class="Special"><-</span> address real-keyboard -<span id="L34" class="LineNr"> 34 </span> <a href='cell.mu.html#L176'>allocate-keyboard</a> tmp +<span id="L34" class="LineNr"> 34 </span> <a href='cell.mu.html#L177'>allocate-keyboard</a> tmp <span id="L35" class="LineNr"> 35 </span> <span class="muComment"># args = cons(real-keyboard, nil)</span> <span id="L36" class="LineNr"> 36 </span> <span class="PreProc">var</span> args: (handle <a href='cell.mu.html#L1'>cell</a>) <span id="L37" class="LineNr"> 37 </span> tmp <span class="Special"><-</span> address args -<span id="L38" class="LineNr"> 38 </span> <a href='cell.mu.html#L115'>new-pair</a> tmp, real-keyboard, <a href='cell.mu.html#L120'>nil</a> +<span id="L38" class="LineNr"> 38 </span> <a href='cell.mu.html#L116'>new-pair</a> tmp, real-keyboard, <a href='cell.mu.html#L121'>nil</a> <span id="L39" class="LineNr"> 39 </span> <span class="muComment">#</span> <span id="L40" class="LineNr"> 40 </span> <span class="PreProc">var</span> real-screen: (handle <a href='cell.mu.html#L1'>cell</a>) <span id="L41" class="LineNr"> 41 </span> tmp <span class="Special"><-</span> address real-screen -<span id="L42" class="LineNr"> 42 </span> <a href='cell.mu.html#L145'>allocate-screen</a> tmp +<span id="L42" class="LineNr"> 42 </span> <a href='cell.mu.html#L146'>allocate-screen</a> tmp <span id="L43" class="LineNr"> 43 </span> <span class="muComment"># args = cons(real-screen, args)</span> <span id="L44" class="LineNr"> 44 </span> tmp <span class="Special"><-</span> address args -<span id="L45" class="LineNr"> 45 </span> <a href='cell.mu.html#L115'>new-pair</a> tmp, real-screen, *tmp +<span id="L45" class="LineNr"> 45 </span> <a href='cell.mu.html#L116'>new-pair</a> tmp, real-screen, *tmp <span id="L46" class="LineNr"> 46 </span> <span class="muComment">#</span> <span id="L47" class="LineNr"> 47 </span> <span class="PreProc">var</span> <a href='main.mu.html#L4'>main</a>: (handle <a href='cell.mu.html#L1'>cell</a>) <span id="L48" class="LineNr"> 48 </span> tmp <span class="Special"><-</span> address <a href='main.mu.html#L4'>main</a> -<span id="L49" class="LineNr"> 49 </span> <a href='cell.mu.html#L38'>new-symbol</a> tmp, <span class="Constant">"main"</span> +<span id="L49" class="LineNr"> 49 </span> <a href='cell.mu.html#L39'>new-symbol</a> tmp, <span class="Constant">"main"</span> <span id="L50" class="LineNr"> 50 </span> <span class="muComment"># args = cons(main, args)</span> <span id="L51" class="LineNr"> 51 </span> tmp <span class="Special"><-</span> address args -<span id="L52" class="LineNr"> 52 </span> <a href='cell.mu.html#L115'>new-pair</a> tmp, <a href='main.mu.html#L4'>main</a>, *tmp +<span id="L52" class="LineNr"> 52 </span> <a href='cell.mu.html#L116'>new-pair</a> tmp, <a href='main.mu.html#L4'>main</a>, *tmp <span id="L53" class="LineNr"> 53 </span> <span class="muComment"># clear real screen</span> <span id="L54" class="LineNr"> 54 </span> <a href='../500fake-screen.mu.html#L230'>clear-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a> <span id="L55" class="LineNr"> 55 </span> <a href='../500fake-screen.mu.html#L169'>set-cursor-position</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>, <span class="Constant">0</span> <span id="L56" class="LineNr"> 56 </span> <span class="muComment"># run</span> <span id="L57" class="LineNr"> 57 </span> <span class="PreProc">var</span> out: (handle <a href='cell.mu.html#L1'>cell</a>) <span id="L58" class="LineNr"> 58 </span> <span class="PreProc">var</span> out-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address out -<span id="L59" class="LineNr"> 59 </span> <a href='evaluate.mu.html#L5'>evaluate</a> tmp, out-ah, <a href='cell.mu.html#L120'>nil</a>, globals, <span class="Constant">0</span>/trace, <span class="Constant">0</span>/no-fake-screen, <span class="Constant">0</span>/no-fake-keyboard, <span class="Constant">0</span>/call-number +<span id="L59" class="LineNr"> 59 </span> <a href='evaluate.mu.html#L5'>evaluate</a> tmp, out-ah, <a href='cell.mu.html#L121'>nil</a>, globals, <span class="Constant">0</span>/trace, <span class="Constant">0</span>/no-fake-screen, <span class="Constant">0</span>/no-fake-keyboard, <span class="Constant">0</span>/call-number <span id="L60" class="LineNr"> 60 </span> <span class="Delimiter">{</span> <span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: byte <span class="Special"><-</span> <a href='../102keyboard.subx.html#L21'>read-key</a> keyboard <span id="L62" class="LineNr"> 62 </span> compare tmp, <span class="Constant">0</span> @@ -135,79 +135,88 @@ if ('onhashchange' in window) { <span id="L76" class="LineNr"> 76 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='main.mu.html#L76'>load-state</a></span> data-disk: (addr disk), _sandbox: (addr <a href='sandbox.mu.html#L1'>sandbox</a>), globals: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Delimiter">{</span> <span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> <a href='sandbox.mu.html#L1'>sandbox</a>/<span class="Constant">eax</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> copy _sandbox <span id="L78" class="LineNr"> 78 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get <a href='sandbox.mu.html#L1'>sandbox</a>, data -<span id="L79" class="LineNr"> 79 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L79" class="LineNr"> 79 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *data-ah <span id="L80" class="LineNr"> 80 </span> <span class="PreProc">var</span> data/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _data <span id="L81" class="LineNr"> 81 </span> <span class="muComment"># data-disk -> stream</span> <span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> s-storage: (stream byte <span class="Constant">0x1000</span>) <span class="muComment"># space for 8/sectors</span> <span id="L83" class="LineNr"> 83 </span> <span class="PreProc">var</span> s/<span class="Constant">ebx</span>: (addr stream byte) <span class="Special"><-</span> address s-storage -<span id="L84" class="LineNr"> 84 </span> <a href='../boot.subx.html#L925'>load-sectors</a> data-disk, <span class="Constant">0</span>/lba, <span class="Constant">8</span>/sectors, s -<span id="L85" class="LineNr"> 85 </span><span class="CommentedCode">#? draw-stream-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, s, 7/fg, 0xc5/bg=blue-bg</span> -<span id="L86" class="LineNr"> 86 </span> <span class="muComment"># stream -> gap-buffer</span> -<span id="L87" class="LineNr"> 87 </span> <a href='gap-buffer.mu.html#L52'>load-gap-buffer-from-stream</a> data, s -<span id="L88" class="LineNr"> 88 </span> <a href='../106stream.subx.html#L20'>clear-stream</a> s -<span id="L89" class="LineNr"> 89 </span> <span class="muComment"># read: gap-buffer -> cell</span> -<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> initial-root-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> initial-root/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address initial-root-storage -<span id="L92" class="LineNr"> 92 </span> <a href='read.mu.html#L1'>read-cell</a> data, initial-root, <span class="Constant">0</span>/no-trace -<span id="L93" class="LineNr"> 93 </span> <a href='gap-buffer.mu.html#L19'>clear-gap-buffer</a> data -<span id="L94" class="LineNr"> 94 </span> <span class="muComment">#</span> -<span id="L95" class="LineNr"> 95 </span> <span class="Delimiter">{</span> -<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">var</span> initial-root-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *initial-root -<span id="L97" class="LineNr"> 97 </span> compare initial-root-addr, <span class="Constant">0</span> -<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">break-if-!=</span> -<span id="L99" class="LineNr"> 99 </span> <span class="PreProc">return</span> -<span id="L100" class="LineNr">100 </span> <span class="Delimiter">}</span> -<span id="L101" class="LineNr">101 </span> <span class="muComment"># load globals from assoc(initial-root, 'globals)</span> -<span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> globals-literal-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L103" class="LineNr">103 </span> <span class="PreProc">var</span> globals-literal-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address globals-literal-storage -<span id="L104" class="LineNr">104 </span> <a href='cell.mu.html#L38'>new-symbol</a> globals-literal-ah, <span class="Constant">"globals"</span> -<span id="L105" class="LineNr">105 </span> <span class="PreProc">var</span> globals-literal/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *globals-literal-ah -<span id="L106" class="LineNr">106 </span> <span class="PreProc">var</span> globals-cell-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L107" class="LineNr">107 </span> <span class="PreProc">var</span> globals-cell-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address globals-cell-storage -<span id="L108" class="LineNr">108 </span> <a href='evaluate.mu.html#L632'>lookup-symbol</a> globals-literal, globals-cell-ah, *initial-root, <span class="Constant">0</span>/no-globals, <span class="Constant">0</span>/no-trace, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-keyboard -<span id="L109" class="LineNr">109 </span> <span class="PreProc">var</span> globals-cell/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *globals-cell-ah -<span id="L110" class="LineNr">110 </span> <span class="Delimiter">{</span> -<span id="L111" class="LineNr">111 </span> compare globals-cell, <span class="Constant">0</span> -<span id="L112" class="LineNr">112 </span> <span class="PreProc">break-if-=</span> -<span id="L113" class="LineNr">113 </span> <a href='global.mu.html#L59'>load-globals</a> globals-cell-ah, globals -<span id="L114" class="LineNr">114 </span> <span class="Delimiter">}</span> -<span id="L115" class="LineNr">115 </span> <span class="muComment"># sandbox = assoc(initial-root, 'sandbox)</span> -<span id="L116" class="LineNr">116 </span> <span class="PreProc">var</span> sandbox-literal-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L117" class="LineNr">117 </span> <span class="PreProc">var</span> sandbox-literal-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address sandbox-literal-storage -<span id="L118" class="LineNr">118 </span> <a href='cell.mu.html#L38'>new-symbol</a> sandbox-literal-ah, <span class="Constant">"sandbox"</span> -<span id="L119" class="LineNr">119 </span> <span class="PreProc">var</span> sandbox-literal/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *sandbox-literal-ah -<span id="L120" class="LineNr">120 </span> <span class="PreProc">var</span> sandbox-cell-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L121" class="LineNr">121 </span> <span class="PreProc">var</span> sandbox-cell-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address sandbox-cell-storage -<span id="L122" class="LineNr">122 </span> <a href='evaluate.mu.html#L632'>lookup-symbol</a> sandbox-literal, sandbox-cell-ah, *initial-root, <span class="Constant">0</span>/no-globals, <span class="Constant">0</span>/no-trace, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-keyboard -<span id="L123" class="LineNr">123 </span> <span class="PreProc">var</span> sandbox-cell/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *sandbox-cell-ah -<span id="L124" class="LineNr">124 </span> <span class="Delimiter">{</span> -<span id="L125" class="LineNr">125 </span> compare sandbox-cell, <span class="Constant">0</span> -<span id="L126" class="LineNr">126 </span> <span class="PreProc">break-if-=</span> -<span id="L127" class="LineNr">127 </span> <span class="muComment"># print: cell -> stream</span> -<span id="L128" class="LineNr">128 </span> <a href='print.mu.html#L1'>print-cell</a> sandbox-cell-ah, s, <span class="Constant">0</span>/no-trace -<span id="L129" class="LineNr">129 </span> <span class="muComment"># stream -> gap-buffer</span> -<span id="L130" class="LineNr">130 </span> <a href='gap-buffer.mu.html#L52'>load-gap-buffer-from-stream</a> data, s -<span id="L131" class="LineNr">131 </span> <span class="Delimiter">}</span> -<span id="L132" class="LineNr">132 </span><span class="Delimiter">}</span> -<span id="L133" class="LineNr">133 </span> -<span id="L134" class="LineNr">134 </span><span class="muComment"># Save state as an alist of alists:</span> -<span id="L135" class="LineNr">135 </span><span class="muComment"># ((globals . ((a . (fn ...))</span> -<span id="L136" class="LineNr">136 </span><span class="muComment"># ...))</span> -<span id="L137" class="LineNr">137 </span><span class="muComment"># (sandbox . ...))</span> -<span id="L138" class="LineNr">138 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='main.mu.html#L138'>store-state</a></span> data-disk: (addr disk), <a href='sandbox.mu.html#L1'>sandbox</a>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>), globals: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Delimiter">{</span> -<span id="L139" class="LineNr">139 </span> compare data-disk, <span class="Constant">0</span>/no-disk -<span id="L140" class="LineNr">140 </span> <span class="Delimiter">{</span> -<span id="L141" class="LineNr">141 </span> <span class="PreProc">break-if-!=</span> -<span id="L142" class="LineNr">142 </span> <span class="PreProc">return</span> -<span id="L143" class="LineNr">143 </span> <span class="Delimiter">}</span> -<span id="L144" class="LineNr">144 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x1000</span>) <span class="muComment"># space enough for 8/sectors</span> -<span id="L145" class="LineNr">145 </span> <span class="PreProc">var</span> stream/<span class="Constant">edi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage -<span id="L146" class="LineNr">146 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"(\n"</span> -<span id="L147" class="LineNr">147 </span> <a href='global.mu.html#L86'>write-globals</a> stream, globals -<span id="L148" class="LineNr">148 </span> <a href='sandbox.mu.html#L64'>write-sandbox</a> stream, <a href='sandbox.mu.html#L1'>sandbox</a> -<span id="L149" class="LineNr">149 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">")\n"</span> -<span id="L150" class="LineNr">150 </span> <a href='../boot.subx.html#L987'>store-sectors</a> data-disk, <span class="Constant">0</span>/lba, <span class="Constant">8</span>/sectors, stream -<span id="L151" class="LineNr">151 </span><span class="Delimiter">}</span> +<span id="L84" class="LineNr"> 84 </span> <a href='../501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"loading sectors from data disk"</span>, <span class="Constant">3</span>/fg, <span class="Constant">0</span>/bg +<span id="L85" class="LineNr"> 85 </span> <a href='../501draw-text.mu.html#L65'>move-cursor-to-left-margin-of-next-line</a> <span class="Constant">0</span>/screen +<span id="L86" class="LineNr"> 86 </span> <a href='../boot.subx.html#L946'>load-sectors</a> data-disk, <span class="Constant">0</span>/lba, <span class="Constant">8</span>/sectors, s +<span id="L87" class="LineNr"> 87 </span><span class="CommentedCode">#? draw-stream-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, s, 7/fg, 0xc5/bg=blue-bg</span> +<span id="L88" class="LineNr"> 88 </span> <span class="muComment"># stream -> gap-buffer</span> +<span id="L89" class="LineNr"> 89 </span> <a href='../501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"parsing"</span>, <span class="Constant">3</span>/fg, <span class="Constant">0</span>/bg +<span id="L90" class="LineNr"> 90 </span> <a href='../501draw-text.mu.html#L65'>move-cursor-to-left-margin-of-next-line</a> <span class="Constant">0</span>/screen +<span id="L91" class="LineNr"> 91 </span> <a href='gap-buffer.mu.html#L52'>load-gap-buffer-from-stream</a> data, s +<span id="L92" class="LineNr"> 92 </span> <a href='../501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">" into gap buffer"</span>, <span class="Constant">3</span>/fg, <span class="Constant">0</span>/bg +<span id="L93" class="LineNr"> 93 </span> <a href='../501draw-text.mu.html#L65'>move-cursor-to-left-margin-of-next-line</a> <span class="Constant">0</span>/screen +<span id="L94" class="LineNr"> 94 </span> <a href='../106stream.subx.html#L20'>clear-stream</a> s +<span id="L95" class="LineNr"> 95 </span> <span class="muComment"># read: gap-buffer -> cell</span> +<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">var</span> initial-root-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> initial-root/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address initial-root-storage +<span id="L98" class="LineNr"> 98 </span> <a href='read.mu.html#L1'>read-cell</a> data, initial-root, <span class="Constant">0</span>/no-trace +<span id="L99" class="LineNr"> 99 </span> <a href='../501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">" into s-expressions"</span>, <span class="Constant">3</span>/fg, <span class="Constant">0</span>/bg +<span id="L100" class="LineNr">100 </span> <a href='../501draw-text.mu.html#L65'>move-cursor-to-left-margin-of-next-line</a> <span class="Constant">0</span>/screen +<span id="L101" class="LineNr">101 </span> <a href='gap-buffer.mu.html#L19'>clear-gap-buffer</a> data +<span id="L102" class="LineNr">102 </span> <span class="muComment">#</span> +<span id="L103" class="LineNr">103 </span> <span class="Delimiter">{</span> +<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> initial-root-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *initial-root +<span id="L105" class="LineNr">105 </span> compare initial-root-addr, <span class="Constant">0</span> +<span id="L106" class="LineNr">106 </span> <span class="PreProc">break-if-!=</span> +<span id="L107" class="LineNr">107 </span> <span class="PreProc">return</span> +<span id="L108" class="LineNr">108 </span> <span class="Delimiter">}</span> +<span id="L109" class="LineNr">109 </span> <span class="muComment"># load globals from assoc(initial-root, 'globals)</span> +<span id="L110" class="LineNr">110 </span> <span class="PreProc">var</span> globals-literal-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L111" class="LineNr">111 </span> <span class="PreProc">var</span> globals-literal-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address globals-literal-storage +<span id="L112" class="LineNr">112 </span> <a href='cell.mu.html#L39'>new-symbol</a> globals-literal-ah, <span class="Constant">"globals"</span> +<span id="L113" class="LineNr">113 </span> <span class="PreProc">var</span> globals-literal/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *globals-literal-ah +<span id="L114" class="LineNr">114 </span> <span class="PreProc">var</span> globals-cell-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L115" class="LineNr">115 </span> <span class="PreProc">var</span> globals-cell-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address globals-cell-storage +<span id="L116" class="LineNr">116 </span> <a href='evaluate.mu.html#L691'>lookup-symbol</a> globals-literal, globals-cell-ah, *initial-root, <span class="Constant">0</span>/no-globals, <span class="Constant">0</span>/no-trace, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-keyboard +<span id="L117" class="LineNr">117 </span> <span class="PreProc">var</span> globals-cell/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *globals-cell-ah +<span id="L118" class="LineNr">118 </span> <span class="Delimiter">{</span> +<span id="L119" class="LineNr">119 </span> compare globals-cell, <span class="Constant">0</span> +<span id="L120" class="LineNr">120 </span> <span class="PreProc">break-if-=</span> +<span id="L121" class="LineNr">121 </span> <a href='global.mu.html#L66'>load-globals</a> globals-cell-ah, globals +<span id="L122" class="LineNr">122 </span> <span class="Delimiter">}</span> +<span id="L123" class="LineNr">123 </span> <span class="muComment"># sandbox = assoc(initial-root, 'sandbox)</span> +<span id="L124" class="LineNr">124 </span> <a href='../501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"loading sandbox"</span>, <span class="Constant">3</span>/fg, <span class="Constant">0</span>/bg +<span id="L125" class="LineNr">125 </span> <span class="PreProc">var</span> sandbox-literal-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L126" class="LineNr">126 </span> <span class="PreProc">var</span> sandbox-literal-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address sandbox-literal-storage +<span id="L127" class="LineNr">127 </span> <a href='cell.mu.html#L39'>new-symbol</a> sandbox-literal-ah, <span class="Constant">"sandbox"</span> +<span id="L128" class="LineNr">128 </span> <span class="PreProc">var</span> sandbox-literal/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *sandbox-literal-ah +<span id="L129" class="LineNr">129 </span> <span class="PreProc">var</span> sandbox-cell-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L130" class="LineNr">130 </span> <span class="PreProc">var</span> sandbox-cell-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address sandbox-cell-storage +<span id="L131" class="LineNr">131 </span> <a href='evaluate.mu.html#L691'>lookup-symbol</a> sandbox-literal, sandbox-cell-ah, *initial-root, <span class="Constant">0</span>/no-globals, <span class="Constant">0</span>/no-trace, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-keyboard +<span id="L132" class="LineNr">132 </span> <span class="PreProc">var</span> sandbox-cell/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *sandbox-cell-ah +<span id="L133" class="LineNr">133 </span> <span class="Delimiter">{</span> +<span id="L134" class="LineNr">134 </span> compare sandbox-cell, <span class="Constant">0</span> +<span id="L135" class="LineNr">135 </span> <span class="PreProc">break-if-=</span> +<span id="L136" class="LineNr">136 </span> <span class="muComment"># print: cell -> stream</span> +<span id="L137" class="LineNr">137 </span> <a href='print.mu.html#L1'>print-cell</a> sandbox-cell-ah, s, <span class="Constant">0</span>/no-trace +<span id="L138" class="LineNr">138 </span> <span class="muComment"># stream -> gap-buffer</span> +<span id="L139" class="LineNr">139 </span> <a href='gap-buffer.mu.html#L52'>load-gap-buffer-from-stream</a> data, s +<span id="L140" class="LineNr">140 </span> <span class="Delimiter">}</span> +<span id="L141" class="LineNr">141 </span><span class="Delimiter">}</span> +<span id="L142" class="LineNr">142 </span> +<span id="L143" class="LineNr">143 </span><span class="muComment"># Save state as an alist of alists:</span> +<span id="L144" class="LineNr">144 </span><span class="muComment"># ((globals . ((a . (fn ...))</span> +<span id="L145" class="LineNr">145 </span><span class="muComment"># ...))</span> +<span id="L146" class="LineNr">146 </span><span class="muComment"># (sandbox . ...))</span> +<span id="L147" class="LineNr">147 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='main.mu.html#L147'>store-state</a></span> data-disk: (addr disk), <a href='sandbox.mu.html#L1'>sandbox</a>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>), globals: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Delimiter">{</span> +<span id="L148" class="LineNr">148 </span> compare data-disk, <span class="Constant">0</span>/no-disk +<span id="L149" class="LineNr">149 </span> <span class="Delimiter">{</span> +<span id="L150" class="LineNr">150 </span> <span class="PreProc">break-if-!=</span> +<span id="L151" class="LineNr">151 </span> <span class="PreProc">return</span> +<span id="L152" class="LineNr">152 </span> <span class="Delimiter">}</span> +<span id="L153" class="LineNr">153 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x1000</span>) <span class="muComment"># space enough for 8/sectors</span> +<span id="L154" class="LineNr">154 </span> <span class="PreProc">var</span> stream/<span class="Constant">edi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L155" class="LineNr">155 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"(\n"</span> +<span id="L156" class="LineNr">156 </span> <a href='global.mu.html#L109'>write-globals</a> stream, globals +<span id="L157" class="LineNr">157 </span> <a href='sandbox.mu.html#L64'>write-sandbox</a> stream, <a href='sandbox.mu.html#L1'>sandbox</a> +<span id="L158" class="LineNr">158 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">")\n"</span> +<span id="L159" class="LineNr">159 </span> <a href='../boot.subx.html#L1009'>store-sectors</a> data-disk, <span class="Constant">0</span>/lba, <span class="Constant">8</span>/sectors, stream +<span id="L160" class="LineNr">160 </span><span class="Delimiter">}</span> </pre> </body> </html> diff --git a/html/shell/parse.mu.html b/html/shell/parse.mu.html index 673f9466..8e01546d 100644 --- a/html/shell/parse.mu.html +++ b/html/shell/parse.mu.html @@ -86,7 +86,7 @@ if ('onhashchange' in window) { <span id="L28" class="LineNr"> 28 </span><span class="muComment"># unmatched close-paren encountered?</span> <span id="L29" class="LineNr"> 29 </span><span class="muComment"># dot encountered? (only used internally by recursive calls)</span> <span id="L30" class="LineNr"> 30 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='parse.mu.html#L30'>parse-sexpression</a></span> tokens: (addr stream <a href='cell.mu.html#L1'>cell</a>), _out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean, _/<span class="Constant">ecx</span>: boolean <span class="Delimiter">{</span> -<span id="L31" class="LineNr"> 31 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"read"</span>, <span class="Constant">"parse"</span> +<span id="L31" class="LineNr"> 31 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"parse"</span>, <span class="Constant">"parse"</span> <span id="L32" class="LineNr"> 32 </span> <a href='trace.mu.html#L147'>trace-lower</a> trace <span id="L33" class="LineNr"> 33 </span> <span class="PreProc">var</span> curr-token-storage: <a href='cell.mu.html#L1'>cell</a> <span id="L34" class="LineNr"> 34 </span> <span class="PreProc">var</span> curr-token/<span class="Constant">ecx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address curr-token-storage @@ -97,204 +97,252 @@ if ('onhashchange' in window) { <span id="L39" class="LineNr"> 39 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"end of stream; never found a balancing ')'"</span> <span id="L40" class="LineNr"> 40 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true, <span class="Constant">0</span>/false <span id="L41" class="LineNr"> 41 </span> <span class="Delimiter">}</span> -<span id="L42" class="LineNr"> 42 </span> <a href='../309stream.subx.html#L107'>read-from-stream</a> tokens, curr-token +<span id="L42" class="LineNr"> 42 </span> <a href='../309stream.subx.html#L104'>read-from-stream</a> tokens, curr-token <span id="L43" class="LineNr"> 43 </span> $parse-sexpression:type-check: <span class="Delimiter">{</span> <span id="L44" class="LineNr"> 44 </span> <span class="muComment"># single quote -> parse as list with a special car</span> -<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> <a href='tokenize.mu.html#L705'>quote-token?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L705'>quote-token?</a> curr-token -<span id="L46" class="LineNr"> 46 </span> compare <a href='tokenize.mu.html#L705'>quote-token?</a>, <span class="Constant">0</span>/false +<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> <a href='tokenize.mu.html#L840'>quote-token?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L840'>quote-token?</a> curr-token +<span id="L46" class="LineNr"> 46 </span> compare <a href='tokenize.mu.html#L840'>quote-token?</a>, <span class="Constant">0</span>/false <span id="L47" class="LineNr"> 47 </span> <span class="Delimiter">{</span> <span id="L48" class="LineNr"> 48 </span> <span class="PreProc">break-if-=</span> <span id="L49" class="LineNr"> 49 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out -<span id="L50" class="LineNr"> 50 </span> <a href='cell.mu.html#L101'>allocate-pair</a> out -<span id="L51" class="LineNr"> 51 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *out +<span id="L50" class="LineNr"> 50 </span> <a href='cell.mu.html#L102'>allocate-pair</a> out +<span id="L51" class="LineNr"> 51 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *out <span id="L52" class="LineNr"> 52 </span> <span class="PreProc">var</span> left-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get out-addr, left -<span id="L53" class="LineNr"> 53 </span> <a href='cell.mu.html#L38'>new-symbol</a> left-ah, <span class="Constant">"'"</span> +<span id="L53" class="LineNr"> 53 </span> <a href='cell.mu.html#L39'>new-symbol</a> left-ah, <span class="Constant">"'"</span> <span id="L54" class="LineNr"> 54 </span> <span class="PreProc">var</span> right-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get out-addr, right <span id="L55" class="LineNr"> 55 </span> <span class="PreProc">var</span> close-paren?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> copy <span class="Constant">0</span>/false <span id="L56" class="LineNr"> 56 </span> <span class="PreProc">var</span> dot?/<span class="Constant">ecx</span>: boolean <span class="Special"><-</span> copy <span class="Constant">0</span>/false <span id="L57" class="LineNr"> 57 </span> close-paren?, dot? <span class="Special"><-</span> <a href='parse.mu.html#L30'>parse-sexpression</a> tokens, right-ah, trace <span id="L58" class="LineNr"> 58 </span> <span class="PreProc">return</span> close-paren?, dot? <span id="L59" class="LineNr"> 59 </span> <span class="Delimiter">}</span> -<span id="L60" class="LineNr"> 60 </span> <span class="muComment"># dot -> return</span> -<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> dot?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L751'>dot-token?</a> curr-token -<span id="L62" class="LineNr"> 62 </span> compare dot?, <span class="Constant">0</span>/false +<span id="L60" class="LineNr"> 60 </span> <span class="muComment"># backquote quote -> parse as list with a special car</span> +<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> <a href='tokenize.mu.html#L849'>backquote-token?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L849'>backquote-token?</a> curr-token +<span id="L62" class="LineNr"> 62 </span> compare <a href='tokenize.mu.html#L849'>backquote-token?</a>, <span class="Constant">0</span>/false <span id="L63" class="LineNr"> 63 </span> <span class="Delimiter">{</span> <span id="L64" class="LineNr"> 64 </span> <span class="PreProc">break-if-=</span> -<span id="L65" class="LineNr"> 65 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L66" class="LineNr"> 66 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false, <span class="Constant">1</span>/true -<span id="L67" class="LineNr"> 67 </span> <span class="Delimiter">}</span> -<span id="L68" class="LineNr"> 68 </span> <span class="muComment"># not bracket -> parse atom</span> -<span id="L69" class="LineNr"> 69 </span> <span class="PreProc">var</span> <a href='tokenize.mu.html#L688'>bracket-token?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L688'>bracket-token?</a> curr-token -<span id="L70" class="LineNr"> 70 </span> compare <a href='tokenize.mu.html#L688'>bracket-token?</a>, <span class="Constant">0</span>/false -<span id="L71" class="LineNr"> 71 </span> <span class="Delimiter">{</span> -<span id="L72" class="LineNr"> 72 </span> <span class="PreProc">break-if-!=</span> -<span id="L73" class="LineNr"> 73 </span> <a href='parse.mu.html#L148'>parse-atom</a> curr-token, _out, trace -<span id="L74" class="LineNr"> 74 </span> <span class="PreProc">break</span> $parse-sexpression:type-check +<span id="L65" class="LineNr"> 65 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out +<span id="L66" class="LineNr"> 66 </span> <a href='cell.mu.html#L102'>allocate-pair</a> out +<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *out +<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> left-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get out-addr, left +<span id="L69" class="LineNr"> 69 </span> <a href='cell.mu.html#L39'>new-symbol</a> left-ah, <span class="Constant">"`"</span> +<span id="L70" class="LineNr"> 70 </span> <span class="PreProc">var</span> right-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get out-addr, right +<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> close-paren?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> copy <span class="Constant">0</span>/false +<span id="L72" class="LineNr"> 72 </span> <span class="PreProc">var</span> dot?/<span class="Constant">ecx</span>: boolean <span class="Special"><-</span> copy <span class="Constant">0</span>/false +<span id="L73" class="LineNr"> 73 </span> close-paren?, dot? <span class="Special"><-</span> <a href='parse.mu.html#L30'>parse-sexpression</a> tokens, right-ah, trace +<span id="L74" class="LineNr"> 74 </span> <span class="PreProc">return</span> close-paren?, dot? <span id="L75" class="LineNr"> 75 </span> <span class="Delimiter">}</span> -<span id="L76" class="LineNr"> 76 </span> <span class="muComment"># open paren -> parse list</span> -<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> open-paren?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L719'>open-paren-token?</a> curr-token -<span id="L78" class="LineNr"> 78 </span> compare open-paren?, <span class="Constant">0</span>/false +<span id="L76" class="LineNr"> 76 </span> <span class="muComment"># unquote -> parse as list with a special car</span> +<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> <a href='tokenize.mu.html#L858'>unquote-token?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L858'>unquote-token?</a> curr-token +<span id="L78" class="LineNr"> 78 </span> compare <a href='tokenize.mu.html#L858'>unquote-token?</a>, <span class="Constant">0</span>/false <span id="L79" class="LineNr"> 79 </span> <span class="Delimiter">{</span> <span id="L80" class="LineNr"> 80 </span> <span class="PreProc">break-if-=</span> -<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> curr/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out -<span id="L82" class="LineNr"> 82 </span> <a href='cell.mu.html#L101'>allocate-pair</a> curr -<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">var</span> curr-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *curr -<span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> left/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get curr-addr, left -<span id="L85" class="LineNr"> 85 </span> <span class="Delimiter">{</span> -<span id="L86" class="LineNr"> 86 </span> <span class="PreProc">var</span> close-paren?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> copy <span class="Constant">0</span>/false -<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> dot?/<span class="Constant">ecx</span>: boolean <span class="Special"><-</span> copy <span class="Constant">0</span>/false -<span id="L88" class="LineNr"> 88 </span> close-paren?, dot? <span class="Special"><-</span> <a href='parse.mu.html#L30'>parse-sexpression</a> tokens, left, trace -<span id="L89" class="LineNr"> 89 </span> <span class="Delimiter">{</span> -<span id="L90" class="LineNr"> 90 </span> compare dot?, <span class="Constant">0</span>/false -<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">break-if-=</span> -<span id="L92" class="LineNr"> 92 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"'.' cannot be at the start of a list"</span> -<span id="L93" class="LineNr"> 93 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true, dot? -<span id="L94" class="LineNr"> 94 </span> <span class="Delimiter">}</span> -<span id="L95" class="LineNr"> 95 </span> compare close-paren?, <span class="Constant">0</span>/false -<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">break-if-!=</span> -<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> curr-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *curr -<span id="L98" class="LineNr"> 98 </span> curr <span class="Special"><-</span> get curr-addr, right -<span id="L99" class="LineNr"> 99 </span> <span class="PreProc">var</span> tmp-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L100" class="LineNr">100 </span> <span class="PreProc">var</span> tmp/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address tmp-storage -<span id="L101" class="LineNr">101 </span> $parse-sexpression:list-loop: <span class="Delimiter">{</span> -<span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> close-paren?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> copy <span class="Constant">0</span>/false -<span id="L103" class="LineNr">103 </span> <span class="PreProc">var</span> dot?/<span class="Constant">ecx</span>: boolean <span class="Special"><-</span> copy <span class="Constant">0</span>/false -<span id="L104" class="LineNr">104 </span> close-paren?, dot? <span class="Special"><-</span> <a href='parse.mu.html#L30'>parse-sexpression</a> tokens, tmp, trace -<span id="L105" class="LineNr">105 </span> <span class="muComment"># '.' -> clean up right here and return</span> -<span id="L106" class="LineNr">106 </span> compare dot?, <span class="Constant">0</span>/false -<span id="L107" class="LineNr">107 </span> <span class="Delimiter">{</span> -<span id="L108" class="LineNr">108 </span> <span class="PreProc">break-if-=</span> -<span id="L109" class="LineNr">109 </span> <a href='parse.mu.html#L206'>parse-dot-tail</a> tokens, curr, trace -<span id="L110" class="LineNr">110 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false, <span class="Constant">0</span>/false -<span id="L111" class="LineNr">111 </span> <span class="Delimiter">}</span> -<span id="L112" class="LineNr">112 </span> <a href='cell.mu.html#L101'>allocate-pair</a> curr -<span id="L113" class="LineNr">113 </span> <span class="muComment"># ')' -> return</span> -<span id="L114" class="LineNr">114 </span> compare close-paren?, <span class="Constant">0</span>/false -<span id="L115" class="LineNr">115 </span> <span class="PreProc">break-if-!=</span> -<span id="L116" class="LineNr">116 </span> <span class="PreProc">var</span> curr-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *curr -<span id="L117" class="LineNr">117 </span> <span class="PreProc">var</span> left/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get curr-addr, left -<span id="L118" class="LineNr">118 </span> copy-object tmp, left -<span id="L119" class="LineNr">119 </span> <span class="muComment">#</span> -<span id="L120" class="LineNr">120 </span> curr <span class="Special"><-</span> get curr-addr, right -<span id="L121" class="LineNr">121 </span> <span class="PreProc">loop</span> -<span id="L122" class="LineNr">122 </span> <span class="Delimiter">}</span> -<span id="L123" class="LineNr">123 </span> <span class="Delimiter">}</span> -<span id="L124" class="LineNr">124 </span> <span class="PreProc">break</span> $parse-sexpression:type-check -<span id="L125" class="LineNr">125 </span> <span class="Delimiter">}</span> -<span id="L126" class="LineNr">126 </span> <span class="muComment"># close paren -> return</span> -<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> close-paren?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L735'>close-paren-token?</a> curr-token -<span id="L128" class="LineNr">128 </span> compare close-paren?, <span class="Constant">0</span>/false -<span id="L129" class="LineNr">129 </span> <span class="Delimiter">{</span> -<span id="L130" class="LineNr">130 </span> <span class="PreProc">break-if-=</span> -<span id="L131" class="LineNr">131 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L132" class="LineNr">132 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true, <span class="Constant">0</span>/false -<span id="L133" class="LineNr">133 </span> <span class="Delimiter">}</span> -<span id="L134" class="LineNr">134 </span> <span class="muComment"># otherwise abort</span> -<span id="L135" class="LineNr">135 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x40</span>) -<span id="L136" class="LineNr">136 </span> <span class="PreProc">var</span> stream/<span class="Constant">edx</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage -<span id="L137" class="LineNr">137 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"unexpected token "</span> -<span id="L138" class="LineNr">138 </span> <span class="PreProc">var</span> curr-token-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get curr-token, text-data -<span id="L139" class="LineNr">139 </span> <span class="PreProc">var</span> curr-token-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *curr-token-data-ah -<span id="L140" class="LineNr">140 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> curr-token-data -<span id="L141" class="LineNr">141 </span> <a href='../113write-stream.subx.html#L8'>write-stream</a> stream, curr-token-data -<span id="L142" class="LineNr">142 </span> trace trace, <span class="Constant">"error"</span>, stream -<span id="L143" class="LineNr">143 </span> <span class="Delimiter">}</span> -<span id="L144" class="LineNr">144 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L145" class="LineNr">145 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false, <span class="Constant">0</span>/false -<span id="L146" class="LineNr">146 </span><span class="Delimiter">}</span> -<span id="L147" class="LineNr">147 </span> -<span id="L148" class="LineNr">148 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='parse.mu.html#L148'>parse-atom</a></span> _curr-token: (addr <a href='cell.mu.html#L1'>cell</a>), _out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L149" class="LineNr">149 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"read"</span>, <span class="Constant">"parse atom"</span> -<span id="L150" class="LineNr">150 </span> <span class="PreProc">var</span> curr-token/<span class="Constant">ecx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _curr-token -<span id="L151" class="LineNr">151 </span> <span class="PreProc">var</span> curr-token-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get curr-token, text-data -<span id="L152" class="LineNr">152 </span> <span class="PreProc">var</span> _curr-token-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *curr-token-data-ah -<span id="L153" class="LineNr">153 </span> <span class="PreProc">var</span> curr-token-data/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> copy _curr-token-data -<span id="L154" class="LineNr">154 </span> trace trace, <span class="Constant">"read"</span>, curr-token-data -<span id="L155" class="LineNr">155 </span> <span class="muComment"># number</span> -<span id="L156" class="LineNr">156 </span> <span class="PreProc">var</span> <a href='tokenize.mu.html#L678'>number-token?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L678'>number-token?</a> curr-token -<span id="L157" class="LineNr">157 </span> compare <a href='tokenize.mu.html#L678'>number-token?</a>, <span class="Constant">0</span>/false -<span id="L158" class="LineNr">158 </span> <span class="Delimiter">{</span> -<span id="L159" class="LineNr">159 </span> <span class="PreProc">break-if-=</span> -<span id="L160" class="LineNr">160 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> curr-token-data -<span id="L161" class="LineNr">161 </span> <span class="PreProc">var</span> _val/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='../311decimal-int.subx.html#L48'>parse-decimal-int-from-stream</a> curr-token-data -<span id="L162" class="LineNr">162 </span> <span class="PreProc">var</span> val/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy _val -<span id="L163" class="LineNr">163 </span> <span class="PreProc">var</span> val-float/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert val -<span id="L164" class="LineNr">164 </span> <a href='cell.mu.html#L67'>allocate-number</a> _out -<span id="L165" class="LineNr">165 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out -<span id="L166" class="LineNr">166 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *out -<span id="L167" class="LineNr">167 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr float) <span class="Special"><-</span> get out-addr, number-data -<span id="L168" class="LineNr">168 </span> copy-to *dest, val-float -<span id="L169" class="LineNr">169 </span> <span class="Delimiter">{</span> -<span id="L170" class="LineNr">170 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x40</span>) -<span id="L171" class="LineNr">171 </span> <span class="PreProc">var</span> stream/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage -<span id="L172" class="LineNr">172 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"=> number "</span> -<span id="L173" class="LineNr">173 </span> <a href='print.mu.html#L141'>print-number</a> out-addr, stream, <span class="Constant">0</span>/no-trace -<span id="L174" class="LineNr">174 </span> trace trace, <span class="Constant">"read"</span>, stream -<span id="L175" class="LineNr">175 </span> <span class="Delimiter">}</span> -<span id="L176" class="LineNr">176 </span> <span class="PreProc">return</span> -<span id="L177" class="LineNr">177 </span> <span class="Delimiter">}</span> -<span id="L178" class="LineNr">178 </span> <span class="muComment"># default: copy either to a symbol or a stream</span> -<span id="L179" class="LineNr">179 </span> <span class="muComment"># stream token -> literal</span> -<span id="L180" class="LineNr">180 </span> <span class="PreProc">var</span> <a href='tokenize.mu.html#L776'>stream-token?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L776'>stream-token?</a> curr-token -<span id="L181" class="LineNr">181 </span> compare <a href='tokenize.mu.html#L776'>stream-token?</a>, <span class="Constant">0</span>/false -<span id="L182" class="LineNr">182 </span> <span class="Delimiter">{</span> -<span id="L183" class="LineNr">183 </span> <span class="PreProc">break-if-=</span> -<span id="L184" class="LineNr">184 </span> <a href='cell.mu.html#L57'>allocate-stream</a> _out -<span id="L185" class="LineNr">185 </span> <span class="Delimiter">}</span> -<span id="L186" class="LineNr">186 </span> compare <a href='tokenize.mu.html#L776'>stream-token?</a>, <span class="Constant">0</span>/false -<span id="L187" class="LineNr">187 </span> <span class="Delimiter">{</span> -<span id="L188" class="LineNr">188 </span> <span class="PreProc">break-if-!=</span> -<span id="L189" class="LineNr">189 </span> <a href='cell.mu.html#L20'>allocate-symbol</a> _out -<span id="L190" class="LineNr">190 </span> <span class="Delimiter">}</span> -<span id="L191" class="LineNr">191 </span> <span class="muComment"># copy token data</span> -<span id="L192" class="LineNr">192 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out -<span id="L193" class="LineNr">193 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *out -<span id="L194" class="LineNr">194 </span> <span class="PreProc">var</span> curr-token-data-ah/<span class="Constant">ecx</span>: (addr handle stream byte) <span class="Special"><-</span> get curr-token, text-data -<span id="L195" class="LineNr">195 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">edx</span>: (addr handle stream byte) <span class="Special"><-</span> get out-addr, text-data -<span id="L196" class="LineNr">196 </span> copy-object curr-token-data-ah, dest-ah -<span id="L197" class="LineNr">197 </span> <span class="Delimiter">{</span> -<span id="L198" class="LineNr">198 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x40</span>) -<span id="L199" class="LineNr">199 </span> <span class="PreProc">var</span> stream/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage -<span id="L200" class="LineNr">200 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"=> symbol "</span> -<span id="L201" class="LineNr">201 </span> <a href='print.mu.html#L101'>print-symbol</a> out-addr, stream, <span class="Constant">0</span>/no-trace -<span id="L202" class="LineNr">202 </span> trace trace, <span class="Constant">"read"</span>, stream -<span id="L203" class="LineNr">203 </span> <span class="Delimiter">}</span> -<span id="L204" class="LineNr">204 </span><span class="Delimiter">}</span> -<span id="L205" class="LineNr">205 </span> -<span id="L206" class="LineNr">206 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='parse.mu.html#L206'>parse-dot-tail</a></span> tokens: (addr stream <a href='cell.mu.html#L1'>cell</a>), _out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L207" class="LineNr">207 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out -<span id="L208" class="LineNr">208 </span> <span class="PreProc">var</span> close-paren?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> copy <span class="Constant">0</span>/false -<span id="L209" class="LineNr">209 </span> <span class="PreProc">var</span> dot?/<span class="Constant">ecx</span>: boolean <span class="Special"><-</span> copy <span class="Constant">0</span>/false -<span id="L210" class="LineNr">210 </span> close-paren?, dot? <span class="Special"><-</span> <a href='parse.mu.html#L30'>parse-sexpression</a> tokens, out, trace -<span id="L211" class="LineNr">211 </span> compare close-paren?, <span class="Constant">0</span>/false -<span id="L212" class="LineNr">212 </span> <span class="Delimiter">{</span> -<span id="L213" class="LineNr">213 </span> <span class="PreProc">break-if-=</span> -<span id="L214" class="LineNr">214 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"'. )' makes no sense"</span> -<span id="L215" class="LineNr">215 </span> <span class="PreProc">return</span> -<span id="L216" class="LineNr">216 </span> <span class="Delimiter">}</span> -<span id="L217" class="LineNr">217 </span> compare dot?, <span class="Constant">0</span>/false -<span id="L218" class="LineNr">218 </span> <span class="Delimiter">{</span> -<span id="L219" class="LineNr">219 </span> <span class="PreProc">break-if-=</span> -<span id="L220" class="LineNr">220 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"'. .' makes no sense"</span> -<span id="L221" class="LineNr">221 </span> <span class="PreProc">return</span> -<span id="L222" class="LineNr">222 </span> <span class="Delimiter">}</span> -<span id="L223" class="LineNr">223 </span> <span class="muComment">#</span> -<span id="L224" class="LineNr">224 </span> <span class="PreProc">var</span> dummy: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L225" class="LineNr">225 </span> <span class="PreProc">var</span> dummy-ah/<span class="Constant">edi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address dummy -<span id="L226" class="LineNr">226 </span> close-paren?, dot? <span class="Special"><-</span> <a href='parse.mu.html#L30'>parse-sexpression</a> tokens, dummy-ah, trace -<span id="L227" class="LineNr">227 </span> compare close-paren?, <span class="Constant">0</span>/false -<span id="L228" class="LineNr">228 </span> <span class="Delimiter">{</span> -<span id="L229" class="LineNr">229 </span> <span class="PreProc">break-if-!=</span> -<span id="L230" class="LineNr">230 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"cannot have multiple expressions between '.' and ')'"</span> -<span id="L231" class="LineNr">231 </span> <span class="PreProc">return</span> -<span id="L232" class="LineNr">232 </span> <span class="Delimiter">}</span> -<span id="L233" class="LineNr">233 </span> compare dot?, <span class="Constant">0</span>/false -<span id="L234" class="LineNr">234 </span> <span class="Delimiter">{</span> -<span id="L235" class="LineNr">235 </span> <span class="PreProc">break-if-=</span> -<span id="L236" class="LineNr">236 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"cannot have two dots in a single list"</span> -<span id="L237" class="LineNr">237 </span> <span class="PreProc">return</span> +<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out +<span id="L82" class="LineNr"> 82 </span> <a href='cell.mu.html#L102'>allocate-pair</a> out +<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *out +<span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> left-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get out-addr, left +<span id="L85" class="LineNr"> 85 </span> <a href='cell.mu.html#L39'>new-symbol</a> left-ah, <span class="Constant">","</span> +<span id="L86" class="LineNr"> 86 </span> <span class="PreProc">var</span> right-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get out-addr, right +<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> close-paren?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> copy <span class="Constant">0</span>/false +<span id="L88" class="LineNr"> 88 </span> <span class="PreProc">var</span> dot?/<span class="Constant">ecx</span>: boolean <span class="Special"><-</span> copy <span class="Constant">0</span>/false +<span id="L89" class="LineNr"> 89 </span> close-paren?, dot? <span class="Special"><-</span> <a href='parse.mu.html#L30'>parse-sexpression</a> tokens, right-ah, trace +<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">return</span> close-paren?, dot? +<span id="L91" class="LineNr"> 91 </span> <span class="Delimiter">}</span> +<span id="L92" class="LineNr"> 92 </span> <span class="muComment"># unquote-splice -> parse as list with a special car</span> +<span id="L93" class="LineNr"> 93 </span> <span class="PreProc">var</span> <a href='tokenize.mu.html#L867'>unquote-splice-token?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L867'>unquote-splice-token?</a> curr-token +<span id="L94" class="LineNr"> 94 </span> compare <a href='tokenize.mu.html#L867'>unquote-splice-token?</a>, <span class="Constant">0</span>/false +<span id="L95" class="LineNr"> 95 </span> <span class="Delimiter">{</span> +<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">break-if-=</span> +<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out +<span id="L98" class="LineNr"> 98 </span> <a href='cell.mu.html#L102'>allocate-pair</a> out +<span id="L99" class="LineNr"> 99 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *out +<span id="L100" class="LineNr">100 </span> <span class="PreProc">var</span> left-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get out-addr, left +<span id="L101" class="LineNr">101 </span> <a href='cell.mu.html#L39'>new-symbol</a> left-ah, <span class="Constant">",@"</span> +<span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> right-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get out-addr, right +<span id="L103" class="LineNr">103 </span> <span class="PreProc">var</span> close-paren?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> copy <span class="Constant">0</span>/false +<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> dot?/<span class="Constant">ecx</span>: boolean <span class="Special"><-</span> copy <span class="Constant">0</span>/false +<span id="L105" class="LineNr">105 </span> close-paren?, dot? <span class="Special"><-</span> <a href='parse.mu.html#L30'>parse-sexpression</a> tokens, right-ah, trace +<span id="L106" class="LineNr">106 </span> <span class="PreProc">return</span> close-paren?, dot? +<span id="L107" class="LineNr">107 </span> <span class="Delimiter">}</span> +<span id="L108" class="LineNr">108 </span> <span class="muComment"># dot -> return</span> +<span id="L109" class="LineNr">109 </span> <span class="PreProc">var</span> dot?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L908'>dot-token?</a> curr-token +<span id="L110" class="LineNr">110 </span> compare dot?, <span class="Constant">0</span>/false +<span id="L111" class="LineNr">111 </span> <span class="Delimiter">{</span> +<span id="L112" class="LineNr">112 </span> <span class="PreProc">break-if-=</span> +<span id="L113" class="LineNr">113 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L114" class="LineNr">114 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false, <span class="Constant">1</span>/true +<span id="L115" class="LineNr">115 </span> <span class="Delimiter">}</span> +<span id="L116" class="LineNr">116 </span> <span class="muComment"># not bracket -> parse atom</span> +<span id="L117" class="LineNr">117 </span> <span class="PreProc">var</span> <a href='tokenize.mu.html#L823'>bracket-token?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L823'>bracket-token?</a> curr-token +<span id="L118" class="LineNr">118 </span> compare <a href='tokenize.mu.html#L823'>bracket-token?</a>, <span class="Constant">0</span>/false +<span id="L119" class="LineNr">119 </span> <span class="Delimiter">{</span> +<span id="L120" class="LineNr">120 </span> <span class="PreProc">break-if-!=</span> +<span id="L121" class="LineNr">121 </span> <a href='parse.mu.html#L196'>parse-atom</a> curr-token, _out, trace +<span id="L122" class="LineNr">122 </span> <span class="PreProc">break</span> $parse-sexpression:type-check +<span id="L123" class="LineNr">123 </span> <span class="Delimiter">}</span> +<span id="L124" class="LineNr">124 </span> <span class="muComment"># open paren -> parse list</span> +<span id="L125" class="LineNr">125 </span> <span class="PreProc">var</span> open-paren?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L876'>open-paren-token?</a> curr-token +<span id="L126" class="LineNr">126 </span> compare open-paren?, <span class="Constant">0</span>/false +<span id="L127" class="LineNr">127 </span> <span class="Delimiter">{</span> +<span id="L128" class="LineNr">128 </span> <span class="PreProc">break-if-=</span> +<span id="L129" class="LineNr">129 </span> <span class="PreProc">var</span> curr/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out +<span id="L130" class="LineNr">130 </span> <a href='cell.mu.html#L102'>allocate-pair</a> curr +<span id="L131" class="LineNr">131 </span> <span class="PreProc">var</span> curr-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *curr +<span id="L132" class="LineNr">132 </span> <span class="PreProc">var</span> left/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get curr-addr, left +<span id="L133" class="LineNr">133 </span> <span class="Delimiter">{</span> +<span id="L134" class="LineNr">134 </span> <span class="PreProc">var</span> close-paren?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> copy <span class="Constant">0</span>/false +<span id="L135" class="LineNr">135 </span> <span class="PreProc">var</span> dot?/<span class="Constant">ecx</span>: boolean <span class="Special"><-</span> copy <span class="Constant">0</span>/false +<span id="L136" class="LineNr">136 </span> close-paren?, dot? <span class="Special"><-</span> <a href='parse.mu.html#L30'>parse-sexpression</a> tokens, left, trace +<span id="L137" class="LineNr">137 </span> <span class="Delimiter">{</span> +<span id="L138" class="LineNr">138 </span> compare dot?, <span class="Constant">0</span>/false +<span id="L139" class="LineNr">139 </span> <span class="PreProc">break-if-=</span> +<span id="L140" class="LineNr">140 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"'.' cannot be at the start of a list"</span> +<span id="L141" class="LineNr">141 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true, dot? +<span id="L142" class="LineNr">142 </span> <span class="Delimiter">}</span> +<span id="L143" class="LineNr">143 </span> compare close-paren?, <span class="Constant">0</span>/false +<span id="L144" class="LineNr">144 </span> <span class="PreProc">break-if-!=</span> +<span id="L145" class="LineNr">145 </span> <span class="PreProc">var</span> curr-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *curr +<span id="L146" class="LineNr">146 </span> curr <span class="Special"><-</span> get curr-addr, right +<span id="L147" class="LineNr">147 </span> <span class="PreProc">var</span> tmp-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L148" class="LineNr">148 </span> <span class="PreProc">var</span> tmp/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address tmp-storage +<span id="L149" class="LineNr">149 </span> $parse-sexpression:list-loop: <span class="Delimiter">{</span> +<span id="L150" class="LineNr">150 </span> <span class="PreProc">var</span> close-paren?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> copy <span class="Constant">0</span>/false +<span id="L151" class="LineNr">151 </span> <span class="PreProc">var</span> dot?/<span class="Constant">ecx</span>: boolean <span class="Special"><-</span> copy <span class="Constant">0</span>/false +<span id="L152" class="LineNr">152 </span> close-paren?, dot? <span class="Special"><-</span> <a href='parse.mu.html#L30'>parse-sexpression</a> tokens, tmp, trace +<span id="L153" class="LineNr">153 </span> <span class="muComment"># '.' -> clean up right here and return</span> +<span id="L154" class="LineNr">154 </span> compare dot?, <span class="Constant">0</span>/false +<span id="L155" class="LineNr">155 </span> <span class="Delimiter">{</span> +<span id="L156" class="LineNr">156 </span> <span class="PreProc">break-if-=</span> +<span id="L157" class="LineNr">157 </span> <a href='parse.mu.html#L254'>parse-dot-tail</a> tokens, curr, trace +<span id="L158" class="LineNr">158 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false, <span class="Constant">0</span>/false +<span id="L159" class="LineNr">159 </span> <span class="Delimiter">}</span> +<span id="L160" class="LineNr">160 </span> <a href='cell.mu.html#L102'>allocate-pair</a> curr +<span id="L161" class="LineNr">161 </span> <span class="muComment"># ')' -> return</span> +<span id="L162" class="LineNr">162 </span> compare close-paren?, <span class="Constant">0</span>/false +<span id="L163" class="LineNr">163 </span> <span class="PreProc">break-if-!=</span> +<span id="L164" class="LineNr">164 </span> <span class="PreProc">var</span> curr-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *curr +<span id="L165" class="LineNr">165 </span> <span class="PreProc">var</span> left/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get curr-addr, left +<span id="L166" class="LineNr">166 </span> copy-object tmp, left +<span id="L167" class="LineNr">167 </span> <span class="muComment">#</span> +<span id="L168" class="LineNr">168 </span> curr <span class="Special"><-</span> get curr-addr, right +<span id="L169" class="LineNr">169 </span> <span class="PreProc">loop</span> +<span id="L170" class="LineNr">170 </span> <span class="Delimiter">}</span> +<span id="L171" class="LineNr">171 </span> <span class="Delimiter">}</span> +<span id="L172" class="LineNr">172 </span> <span class="PreProc">break</span> $parse-sexpression:type-check +<span id="L173" class="LineNr">173 </span> <span class="Delimiter">}</span> +<span id="L174" class="LineNr">174 </span> <span class="muComment"># close paren -> return</span> +<span id="L175" class="LineNr">175 </span> <span class="PreProc">var</span> close-paren?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L892'>close-paren-token?</a> curr-token +<span id="L176" class="LineNr">176 </span> compare close-paren?, <span class="Constant">0</span>/false +<span id="L177" class="LineNr">177 </span> <span class="Delimiter">{</span> +<span id="L178" class="LineNr">178 </span> <span class="PreProc">break-if-=</span> +<span id="L179" class="LineNr">179 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L180" class="LineNr">180 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true, <span class="Constant">0</span>/false +<span id="L181" class="LineNr">181 </span> <span class="Delimiter">}</span> +<span id="L182" class="LineNr">182 </span> <span class="muComment"># otherwise abort</span> +<span id="L183" class="LineNr">183 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x400</span>) +<span id="L184" class="LineNr">184 </span> <span class="PreProc">var</span> stream/<span class="Constant">edx</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L185" class="LineNr">185 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"unexpected token "</span> +<span id="L186" class="LineNr">186 </span> <span class="PreProc">var</span> curr-token-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get curr-token, text-data +<span id="L187" class="LineNr">187 </span> <span class="PreProc">var</span> curr-token-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *curr-token-data-ah +<span id="L188" class="LineNr">188 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> curr-token-data +<span id="L189" class="LineNr">189 </span> <a href='../113write-stream.subx.html#L8'>write-stream</a> stream, curr-token-data +<span id="L190" class="LineNr">190 </span> trace trace, <span class="Constant">"error"</span>, stream +<span id="L191" class="LineNr">191 </span> <span class="Delimiter">}</span> +<span id="L192" class="LineNr">192 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L193" class="LineNr">193 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false, <span class="Constant">0</span>/false +<span id="L194" class="LineNr">194 </span><span class="Delimiter">}</span> +<span id="L195" class="LineNr">195 </span> +<span id="L196" class="LineNr">196 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='parse.mu.html#L196'>parse-atom</a></span> _curr-token: (addr <a href='cell.mu.html#L1'>cell</a>), _out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L197" class="LineNr">197 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"parse"</span>, <span class="Constant">"parse atom"</span> +<span id="L198" class="LineNr">198 </span> <span class="PreProc">var</span> curr-token/<span class="Constant">ecx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _curr-token +<span id="L199" class="LineNr">199 </span> <span class="PreProc">var</span> curr-token-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get curr-token, text-data +<span id="L200" class="LineNr">200 </span> <span class="PreProc">var</span> _curr-token-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *curr-token-data-ah +<span id="L201" class="LineNr">201 </span> <span class="PreProc">var</span> curr-token-data/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> copy _curr-token-data +<span id="L202" class="LineNr">202 </span> trace trace, <span class="Constant">"parse"</span>, curr-token-data +<span id="L203" class="LineNr">203 </span> <span class="muComment"># number</span> +<span id="L204" class="LineNr">204 </span> <span class="PreProc">var</span> <a href='tokenize.mu.html#L813'>number-token?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L813'>number-token?</a> curr-token +<span id="L205" class="LineNr">205 </span> compare <a href='tokenize.mu.html#L813'>number-token?</a>, <span class="Constant">0</span>/false +<span id="L206" class="LineNr">206 </span> <span class="Delimiter">{</span> +<span id="L207" class="LineNr">207 </span> <span class="PreProc">break-if-=</span> +<span id="L208" class="LineNr">208 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> curr-token-data +<span id="L209" class="LineNr">209 </span> <span class="PreProc">var</span> _val/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='../311decimal-int.subx.html#L48'>parse-decimal-int-from-stream</a> curr-token-data +<span id="L210" class="LineNr">210 </span> <span class="PreProc">var</span> val/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy _val +<span id="L211" class="LineNr">211 </span> <span class="PreProc">var</span> val-float/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert val +<span id="L212" class="LineNr">212 </span> <a href='cell.mu.html#L68'>allocate-number</a> _out +<span id="L213" class="LineNr">213 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out +<span id="L214" class="LineNr">214 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *out +<span id="L215" class="LineNr">215 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr float) <span class="Special"><-</span> get out-addr, number-data +<span id="L216" class="LineNr">216 </span> copy-to *dest, val-float +<span id="L217" class="LineNr">217 </span> <span class="Delimiter">{</span> +<span id="L218" class="LineNr">218 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x400</span>) +<span id="L219" class="LineNr">219 </span> <span class="PreProc">var</span> stream/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L220" class="LineNr">220 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"=> number "</span> +<span id="L221" class="LineNr">221 </span> <a href='print.mu.html#L141'>print-number</a> out-addr, stream, <span class="Constant">0</span>/no-trace +<span id="L222" class="LineNr">222 </span> trace trace, <span class="Constant">"parse"</span>, stream +<span id="L223" class="LineNr">223 </span> <span class="Delimiter">}</span> +<span id="L224" class="LineNr">224 </span> <span class="PreProc">return</span> +<span id="L225" class="LineNr">225 </span> <span class="Delimiter">}</span> +<span id="L226" class="LineNr">226 </span> <span class="muComment"># default: copy either to a symbol or a stream</span> +<span id="L227" class="LineNr">227 </span> <span class="muComment"># stream token -> literal</span> +<span id="L228" class="LineNr">228 </span> <span class="PreProc">var</span> <a href='tokenize.mu.html#L933'>stream-token?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L933'>stream-token?</a> curr-token +<span id="L229" class="LineNr">229 </span> compare <a href='tokenize.mu.html#L933'>stream-token?</a>, <span class="Constant">0</span>/false +<span id="L230" class="LineNr">230 </span> <span class="Delimiter">{</span> +<span id="L231" class="LineNr">231 </span> <span class="PreProc">break-if-=</span> +<span id="L232" class="LineNr">232 </span> <a href='cell.mu.html#L58'>allocate-stream</a> _out +<span id="L233" class="LineNr">233 </span> <span class="Delimiter">}</span> +<span id="L234" class="LineNr">234 </span> compare <a href='tokenize.mu.html#L933'>stream-token?</a>, <span class="Constant">0</span>/false +<span id="L235" class="LineNr">235 </span> <span class="Delimiter">{</span> +<span id="L236" class="LineNr">236 </span> <span class="PreProc">break-if-!=</span> +<span id="L237" class="LineNr">237 </span> <a href='cell.mu.html#L21'>allocate-symbol</a> _out <span id="L238" class="LineNr">238 </span> <span class="Delimiter">}</span> -<span id="L239" class="LineNr">239 </span><span class="Delimiter">}</span> +<span id="L239" class="LineNr">239 </span> <span class="muComment"># copy token data</span> +<span id="L240" class="LineNr">240 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out +<span id="L241" class="LineNr">241 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *out +<span id="L242" class="LineNr">242 </span> <span class="PreProc">var</span> curr-token-data-ah/<span class="Constant">ecx</span>: (addr handle stream byte) <span class="Special"><-</span> get curr-token, text-data +<span id="L243" class="LineNr">243 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">edx</span>: (addr handle stream byte) <span class="Special"><-</span> get out-addr, text-data +<span id="L244" class="LineNr">244 </span> copy-object curr-token-data-ah, dest-ah +<span id="L245" class="LineNr">245 </span> <span class="Delimiter">{</span> +<span id="L246" class="LineNr">246 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x400</span>) +<span id="L247" class="LineNr">247 </span> <span class="PreProc">var</span> stream/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L248" class="LineNr">248 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"=> symbol "</span> +<span id="L249" class="LineNr">249 </span> <a href='print.mu.html#L101'>print-symbol</a> out-addr, stream, <span class="Constant">0</span>/no-trace +<span id="L250" class="LineNr">250 </span> trace trace, <span class="Constant">"parse"</span>, stream +<span id="L251" class="LineNr">251 </span> <span class="Delimiter">}</span> +<span id="L252" class="LineNr">252 </span><span class="Delimiter">}</span> +<span id="L253" class="LineNr">253 </span> +<span id="L254" class="LineNr">254 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='parse.mu.html#L254'>parse-dot-tail</a></span> tokens: (addr stream <a href='cell.mu.html#L1'>cell</a>), _out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L255" class="LineNr">255 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out +<span id="L256" class="LineNr">256 </span> <span class="PreProc">var</span> close-paren?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> copy <span class="Constant">0</span>/false +<span id="L257" class="LineNr">257 </span> <span class="PreProc">var</span> dot?/<span class="Constant">ecx</span>: boolean <span class="Special"><-</span> copy <span class="Constant">0</span>/false +<span id="L258" class="LineNr">258 </span> close-paren?, dot? <span class="Special"><-</span> <a href='parse.mu.html#L30'>parse-sexpression</a> tokens, out, trace +<span id="L259" class="LineNr">259 </span> compare close-paren?, <span class="Constant">0</span>/false +<span id="L260" class="LineNr">260 </span> <span class="Delimiter">{</span> +<span id="L261" class="LineNr">261 </span> <span class="PreProc">break-if-=</span> +<span id="L262" class="LineNr">262 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"'. )' makes no sense"</span> +<span id="L263" class="LineNr">263 </span> <span class="PreProc">return</span> +<span id="L264" class="LineNr">264 </span> <span class="Delimiter">}</span> +<span id="L265" class="LineNr">265 </span> compare dot?, <span class="Constant">0</span>/false +<span id="L266" class="LineNr">266 </span> <span class="Delimiter">{</span> +<span id="L267" class="LineNr">267 </span> <span class="PreProc">break-if-=</span> +<span id="L268" class="LineNr">268 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"'. .' makes no sense"</span> +<span id="L269" class="LineNr">269 </span> <span class="PreProc">return</span> +<span id="L270" class="LineNr">270 </span> <span class="Delimiter">}</span> +<span id="L271" class="LineNr">271 </span> <span class="muComment">#</span> +<span id="L272" class="LineNr">272 </span> <span class="PreProc">var</span> dummy: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L273" class="LineNr">273 </span> <span class="PreProc">var</span> dummy-ah/<span class="Constant">edi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address dummy +<span id="L274" class="LineNr">274 </span> close-paren?, dot? <span class="Special"><-</span> <a href='parse.mu.html#L30'>parse-sexpression</a> tokens, dummy-ah, trace +<span id="L275" class="LineNr">275 </span> compare close-paren?, <span class="Constant">0</span>/false +<span id="L276" class="LineNr">276 </span> <span class="Delimiter">{</span> +<span id="L277" class="LineNr">277 </span> <span class="PreProc">break-if-!=</span> +<span id="L278" class="LineNr">278 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"cannot have multiple expressions between '.' and ')'"</span> +<span id="L279" class="LineNr">279 </span> <span class="PreProc">return</span> +<span id="L280" class="LineNr">280 </span> <span class="Delimiter">}</span> +<span id="L281" class="LineNr">281 </span> compare dot?, <span class="Constant">0</span>/false +<span id="L282" class="LineNr">282 </span> <span class="Delimiter">{</span> +<span id="L283" class="LineNr">283 </span> <span class="PreProc">break-if-=</span> +<span id="L284" class="LineNr">284 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"cannot have two dots in a single list"</span> +<span id="L285" class="LineNr">285 </span> <span class="PreProc">return</span> +<span id="L286" class="LineNr">286 </span> <span class="Delimiter">}</span> +<span id="L287" class="LineNr">287 </span><span class="Delimiter">}</span> </pre> </body> </html> diff --git a/html/shell/print.mu.html b/html/shell/print.mu.html index 18c90801..e880b03c 100644 --- a/html/shell/print.mu.html +++ b/html/shell/print.mu.html @@ -62,7 +62,7 @@ if ('onhashchange' in window) { <span id="L3" class="LineNr"> 3 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"print"</span>, <span class="Constant">"print"</span> <span id="L4" class="LineNr"> 4 </span> <a href='trace.mu.html#L147'>trace-lower</a> trace <span id="L5" class="LineNr"> 5 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in -<span id="L6" class="LineNr"> 6 </span> <span class="PreProc">var</span> in-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *in +<span id="L6" class="LineNr"> 6 </span> <span class="PreProc">var</span> in-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *in <span id="L7" class="LineNr"> 7 </span> <span class="Delimiter">{</span> <span id="L8" class="LineNr"> 8 </span> compare in-addr, <span class="Constant">0</span> <span id="L9" class="LineNr"> 9 </span> <span class="PreProc">break-if-!=</span> @@ -71,8 +71,8 @@ if ('onhashchange' in window) { <span id="L12" class="LineNr"> 12 </span> <span class="PreProc">return</span> <span id="L13" class="LineNr"> 13 </span> <span class="Delimiter">}</span> <span id="L14" class="LineNr"> 14 </span> <span class="Delimiter">{</span> -<span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> <a href='print.mu.html#L194'>nil?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> in-addr -<span id="L16" class="LineNr"> 16 </span> compare <a href='print.mu.html#L194'>nil?</a>, <span class="Constant">0</span>/false +<span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> <a href='print.mu.html#L236'>nil?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> in-addr +<span id="L16" class="LineNr"> 16 </span> compare <a href='print.mu.html#L236'>nil?</a>, <span class="Constant">0</span>/false <span id="L17" class="LineNr"> 17 </span> <span class="PreProc">break-if-=</span> <span id="L18" class="LineNr"> 18 </span> <a href='../108write.subx.html#L11'>write</a> out, <span class="Constant">"()"</span> <span id="L19" class="LineNr"> 19 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace @@ -82,7 +82,7 @@ if ('onhashchange' in window) { <span id="L23" class="LineNr"> 23 </span> compare *in-type, <span class="Constant">0</span>/pair <span id="L24" class="LineNr"> 24 </span> <span class="Delimiter">{</span> <span id="L25" class="LineNr"> 25 </span> <span class="PreProc">break-if-!=</span> -<span id="L26" class="LineNr"> 26 </span> <a href='print.mu.html#L155'>print-list</a> in-addr, out, trace +<span id="L26" class="LineNr"> 26 </span> <a href='print.mu.html#L155'>print-pair</a> in-addr, out, trace <span id="L27" class="LineNr"> 27 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace <span id="L28" class="LineNr"> 28 </span> <span class="PreProc">return</span> <span id="L29" class="LineNr"> 29 </span> <span class="Delimiter">}</span> @@ -119,7 +119,7 @@ if ('onhashchange' in window) { <span id="L60" class="LineNr"> 60 </span> <span class="PreProc">break-if-!=</span> <span id="L61" class="LineNr"> 61 </span> <a href='../108write.subx.html#L11'>write</a> out, <span class="Constant">"[screen "</span> <span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> get in-addr, screen-data -<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">eax</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *screen-ah +<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">eax</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *screen-ah <span id="L64" class="LineNr"> 64 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <a href='../500fake-screen.mu.html#L14'>screen</a> <span id="L65" class="LineNr"> 65 </span> <a href='../117write-int-hex.subx.html#L92'>write-int32-hex</a> out, screen-addr <span id="L66" class="LineNr"> 66 </span> <a href='../108write.subx.html#L11'>write</a> out, <span class="Constant">"]"</span> @@ -131,7 +131,7 @@ if ('onhashchange' in window) { <span id="L72" class="LineNr"> 72 </span> <span class="PreProc">break-if-!=</span> <span id="L73" class="LineNr"> 73 </span> <a href='../108write.subx.html#L11'>write</a> out, <span class="Constant">"[keyboard "</span> <span id="L74" class="LineNr"> 74 </span> <span class="PreProc">var</span> keyboard-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get in-addr, keyboard-data -<span id="L75" class="LineNr"> 75 </span> <span class="PreProc">var</span> keyboard/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *keyboard-ah +<span id="L75" class="LineNr"> 75 </span> <span class="PreProc">var</span> keyboard/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *keyboard-ah <span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> keyboard-addr/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy keyboard <span id="L77" class="LineNr"> 77 </span> <a href='../117write-int-hex.subx.html#L92'>write-int32-hex</a> out, keyboard-addr <span id="L78" class="LineNr"> 78 </span> <a href='../108write.subx.html#L11'>write</a> out, <span class="Constant">"]"</span> @@ -142,7 +142,7 @@ if ('onhashchange' in window) { <span id="L83" class="LineNr"> 83 </span> <span id="L84" class="LineNr"> 84 </span><span class="muComment"># debug helper</span> <span id="L85" class="LineNr"> 85 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='print.mu.html#L85'>dump-cell-at-top-right</a></span> in-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Delimiter">{</span> -<span id="L86" class="LineNr"> 86 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x200</span>) +<span id="L86" class="LineNr"> 86 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x1000</span>) <span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> stream/<span class="Constant">edx</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage <span id="L88" class="LineNr"> 88 </span> <a href='print.mu.html#L1'>print-cell</a> in-ah, stream, <span class="Constant">0</span>/no-trace <span id="L89" class="LineNr"> 89 </span> <span class="PreProc">var</span> d1/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> @@ -154,14 +154,14 @@ if ('onhashchange' in window) { <span id="L95" class="LineNr"> 95 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x200</span>) <span id="L96" class="LineNr"> 96 </span> <span class="PreProc">var</span> stream/<span class="Constant">edx</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage <span id="L97" class="LineNr"> 97 </span> <a href='print.mu.html#L1'>print-cell</a> in-ah, stream, <span class="Constant">0</span>/no-trace -<span id="L98" class="LineNr"> 98 </span> <a href='../501draw-text.mu.html#L214'>draw-stream-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, stream, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg +<span id="L98" class="LineNr"> 98 </span> <a href='../501draw-text.mu.html#L214'>draw-stream-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, stream, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg <span id="L99" class="LineNr"> 99 </span><span class="Delimiter">}</span> <span id="L100" class="LineNr">100 </span> <span id="L101" class="LineNr">101 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='print.mu.html#L101'>print-symbol</a></span> _in: (addr <a href='cell.mu.html#L1'>cell</a>), out: (addr stream byte), trace: (addr trace) <span class="Delimiter">{</span> <span id="L102" class="LineNr">102 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"print"</span>, <span class="Constant">"symbol"</span> <span id="L103" class="LineNr">103 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in <span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get in, text-data -<span id="L105" class="LineNr">105 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L105" class="LineNr">105 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *data-ah <span id="L106" class="LineNr">106 </span> <span class="PreProc">var</span> data/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> copy _data <span id="L107" class="LineNr">107 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> data <span id="L108" class="LineNr">108 </span> <a href='../113write-stream.subx.html#L8'>write-stream</a> out, data @@ -180,7 +180,7 @@ if ('onhashchange' in window) { <span id="L121" class="LineNr">121 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"print"</span>, <span class="Constant">"stream"</span> <span id="L122" class="LineNr">122 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in <span id="L123" class="LineNr">123 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get in, text-data -<span id="L124" class="LineNr">124 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L124" class="LineNr">124 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *data-ah <span id="L125" class="LineNr">125 </span> <span class="PreProc">var</span> data/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> copy _data <span id="L126" class="LineNr">126 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> data <span id="L127" class="LineNr">127 </span> <a href='../108write.subx.html#L11'>write</a> out, <span class="Constant">"["</span> @@ -211,211 +211,253 @@ if ('onhashchange' in window) { <span id="L152" class="LineNr">152 </span> trace trace, <span class="Constant">"print"</span>, stream <span id="L153" class="LineNr">153 </span><span class="Delimiter">}</span> <span id="L154" class="LineNr">154 </span> -<span id="L155" class="LineNr">155 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='print.mu.html#L155'>print-list</a></span> _in: (addr <a href='cell.mu.html#L1'>cell</a>), out: (addr stream byte), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L156" class="LineNr">156 </span> <span class="PreProc">var</span> curr/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in -<span id="L157" class="LineNr">157 </span> <a href='../108write.subx.html#L11'>write</a> out, <span class="Constant">"("</span> -<span id="L158" class="LineNr">158 </span> $print-list:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> -<span id="L159" class="LineNr">159 </span> <span class="PreProc">var</span> left/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get curr, left -<span id="L160" class="LineNr">160 </span> <a href='print.mu.html#L1'>print-cell</a> left, out, trace -<span id="L161" class="LineNr">161 </span> <span class="PreProc">var</span> right/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get curr, right -<span id="L162" class="LineNr">162 </span> <span class="PreProc">var</span> right-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *right -<span id="L163" class="LineNr">163 </span> <span class="Delimiter">{</span> -<span id="L164" class="LineNr">164 </span> compare right-addr, <span class="Constant">0</span> -<span id="L165" class="LineNr">165 </span> <span class="PreProc">break-if-!=</span> -<span id="L166" class="LineNr">166 </span> <a href='../501draw-text.mu.html#L481'>abort</a> <span class="Constant">"null encountered"</span> -<span id="L167" class="LineNr">167 </span> <span class="Delimiter">}</span> -<span id="L168" class="LineNr">168 </span> <span class="Delimiter">{</span> -<span id="L169" class="LineNr">169 </span> <span class="PreProc">var</span> right-nil?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L194'>nil?</a> right-addr -<span id="L170" class="LineNr">170 </span> compare right-nil?, <span class="Constant">0</span>/false -<span id="L171" class="LineNr">171 </span> <span class="Delimiter">{</span> -<span id="L172" class="LineNr">172 </span> <span class="PreProc">break-if-=</span> -<span id="L173" class="LineNr">173 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"print"</span>, <span class="Constant">"right is nil"</span> -<span id="L174" class="LineNr">174 </span> <span class="PreProc">break</span> $print-list:<span class="PreProc">loop</span> -<span id="L175" class="LineNr">175 </span> <span class="Delimiter">}</span> -<span id="L176" class="LineNr">176 </span> <span class="Delimiter">}</span> -<span id="L177" class="LineNr">177 </span> <a href='../108write.subx.html#L11'>write</a> out, <span class="Constant">" "</span> -<span id="L178" class="LineNr">178 </span> <span class="PreProc">var</span> right-type-addr/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get right-addr, <span class="PreProc">type</span> -<span id="L179" class="LineNr">179 </span> <span class="Delimiter">{</span> -<span id="L180" class="LineNr">180 </span> compare *right-type-addr, <span class="Constant">0</span>/pair -<span id="L181" class="LineNr">181 </span> <span class="PreProc">break-if-=</span> -<span id="L182" class="LineNr">182 </span> <a href='../108write.subx.html#L11'>write</a> out, <span class="Constant">". "</span> -<span id="L183" class="LineNr">183 </span> <a href='print.mu.html#L1'>print-cell</a> right, out, trace -<span id="L184" class="LineNr">184 </span> <span class="PreProc">break</span> $print-list:<span class="PreProc">loop</span> -<span id="L185" class="LineNr">185 </span> <span class="Delimiter">}</span> -<span id="L186" class="LineNr">186 </span> curr <span class="Special"><-</span> copy right-addr -<span id="L187" class="LineNr">187 </span> <span class="PreProc">loop</span> -<span id="L188" class="LineNr">188 </span> <span class="Delimiter">}</span> -<span id="L189" class="LineNr">189 </span> <a href='../108write.subx.html#L11'>write</a> out, <span class="Constant">")"</span> -<span id="L190" class="LineNr">190 </span><span class="Delimiter">}</span> -<span id="L191" class="LineNr">191 </span> -<span id="L192" class="LineNr">192 </span><span class="muComment"># Most lisps intern nil, but we don't really have globals yet, so we'll be</span> -<span id="L193" class="LineNr">193 </span><span class="muComment"># less efficient for now.</span> -<span id="L194" class="LineNr">194 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='print.mu.html#L194'>nil?</a></span> _in: (addr <a href='cell.mu.html#L1'>cell</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L195" class="LineNr">195 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in -<span id="L196" class="LineNr">196 </span> <span class="muComment"># if type != pair, return false</span> -<span id="L197" class="LineNr">197 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get in, <span class="PreProc">type</span> -<span id="L198" class="LineNr">198 </span> compare *<span class="PreProc">type</span>, <span class="Constant">0</span>/pair -<span id="L199" class="LineNr">199 </span> <span class="Delimiter">{</span> -<span id="L200" class="LineNr">200 </span> <span class="PreProc">break-if-=</span> -<span id="L201" class="LineNr">201 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L202" class="LineNr">202 </span> <span class="Delimiter">}</span> -<span id="L203" class="LineNr">203 </span> <span class="muComment"># if left != null, return false</span> -<span id="L204" class="LineNr">204 </span> <span class="PreProc">var</span> left-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in, left -<span id="L205" class="LineNr">205 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *left-ah -<span id="L206" class="LineNr">206 </span> compare left, <span class="Constant">0</span> -<span id="L207" class="LineNr">207 </span> <span class="Delimiter">{</span> -<span id="L208" class="LineNr">208 </span> <span class="PreProc">break-if-=</span> -<span id="L209" class="LineNr">209 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L210" class="LineNr">210 </span> <span class="Delimiter">}</span> -<span id="L211" class="LineNr">211 </span> <span class="muComment"># if right != null, return false</span> -<span id="L212" class="LineNr">212 </span> <span class="PreProc">var</span> right-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in, right -<span id="L213" class="LineNr">213 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *right-ah -<span id="L214" class="LineNr">214 </span> compare right, <span class="Constant">0</span> -<span id="L215" class="LineNr">215 </span> <span class="Delimiter">{</span> -<span id="L216" class="LineNr">216 </span> <span class="PreProc">break-if-=</span> -<span id="L217" class="LineNr">217 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L218" class="LineNr">218 </span> <span class="Delimiter">}</span> -<span id="L219" class="LineNr">219 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true -<span id="L220" class="LineNr">220 </span><span class="Delimiter">}</span> -<span id="L221" class="LineNr">221 </span> -<span id="L222" class="LineNr">222 </span><span class="PreProc">fn</span> <span class="muTest"><a href='print.mu.html#L222'>test-print-cell-zero</a></span> <span class="Delimiter">{</span> -<span id="L223" class="LineNr">223 </span> <span class="PreProc">var</span> num-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L224" class="LineNr">224 </span> <span class="PreProc">var</span> num/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address num-storage -<span id="L225" class="LineNr">225 </span> <a href='cell.mu.html#L83'>new-integer</a> num, <span class="Constant">0</span> -<span id="L226" class="LineNr">226 </span> <span class="PreProc">var</span> out-storage: (stream byte <span class="Constant">0x40</span>) -<span id="L227" class="LineNr">227 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr stream byte) <span class="Special"><-</span> address out-storage -<span id="L228" class="LineNr">228 </span> <a href='print.mu.html#L1'>print-cell</a> num, out, <span class="Constant">0</span>/no-trace -<span id="L229" class="LineNr">229 </span> <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> out, <span class="Constant">"0"</span>, <span class="Constant">"F - test-print-cell-zero"</span> -<span id="L230" class="LineNr">230 </span><span class="Delimiter">}</span> -<span id="L231" class="LineNr">231 </span> -<span id="L232" class="LineNr">232 </span><span class="PreProc">fn</span> <span class="muTest"><a href='print.mu.html#L232'>test-print-cell-integer</a></span> <span class="Delimiter">{</span> -<span id="L233" class="LineNr">233 </span> <span class="PreProc">var</span> num-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L234" class="LineNr">234 </span> <span class="PreProc">var</span> num/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address num-storage -<span id="L235" class="LineNr">235 </span> <a href='cell.mu.html#L83'>new-integer</a> num, <span class="Constant">1</span> -<span id="L236" class="LineNr">236 </span> <span class="PreProc">var</span> out-storage: (stream byte <span class="Constant">0x40</span>) -<span id="L237" class="LineNr">237 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr stream byte) <span class="Special"><-</span> address out-storage -<span id="L238" class="LineNr">238 </span> <a href='print.mu.html#L1'>print-cell</a> num, out, <span class="Constant">0</span>/no-trace -<span id="L239" class="LineNr">239 </span> <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> out, <span class="Constant">"1"</span>, <span class="Constant">"F - test-print-cell-integer"</span> -<span id="L240" class="LineNr">240 </span><span class="Delimiter">}</span> -<span id="L241" class="LineNr">241 </span> -<span id="L242" class="LineNr">242 </span><span class="PreProc">fn</span> <span class="muTest"><a href='print.mu.html#L242'>test-print-cell-integer-2</a></span> <span class="Delimiter">{</span> -<span id="L243" class="LineNr">243 </span> <span class="PreProc">var</span> num-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L244" class="LineNr">244 </span> <span class="PreProc">var</span> num/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address num-storage -<span id="L245" class="LineNr">245 </span> <a href='cell.mu.html#L83'>new-integer</a> num, <span class="Constant">0x30</span> -<span id="L246" class="LineNr">246 </span> <span class="PreProc">var</span> out-storage: (stream byte <span class="Constant">0x40</span>) -<span id="L247" class="LineNr">247 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr stream byte) <span class="Special"><-</span> address out-storage -<span id="L248" class="LineNr">248 </span> <a href='print.mu.html#L1'>print-cell</a> num, out, <span class="Constant">0</span>/no-trace -<span id="L249" class="LineNr">249 </span> <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> out, <span class="Constant">"48"</span>, <span class="Constant">"F - test-print-cell-integer-2"</span> -<span id="L250" class="LineNr">250 </span><span class="Delimiter">}</span> -<span id="L251" class="LineNr">251 </span> -<span id="L252" class="LineNr">252 </span><span class="PreProc">fn</span> <span class="muTest"><a href='print.mu.html#L252'>test-print-cell-fraction</a></span> <span class="Delimiter">{</span> -<span id="L253" class="LineNr">253 </span> <span class="PreProc">var</span> num-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L254" class="LineNr">254 </span> <span class="PreProc">var</span> num/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address num-storage -<span id="L255" class="LineNr">255 </span> <span class="PreProc">var</span> val/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='../408float.mu.html#L18'>rational</a> <span class="Constant">1</span>, <span class="Constant">2</span> -<span id="L256" class="LineNr">256 </span> <a href='cell.mu.html#L96'>new-float</a> num, val -<span id="L257" class="LineNr">257 </span> <span class="PreProc">var</span> out-storage: (stream byte <span class="Constant">0x40</span>) -<span id="L258" class="LineNr">258 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr stream byte) <span class="Special"><-</span> address out-storage -<span id="L259" class="LineNr">259 </span> <a href='print.mu.html#L1'>print-cell</a> num, out, <span class="Constant">0</span>/no-trace -<span id="L260" class="LineNr">260 </span> <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> out, <span class="Constant">"0.5"</span>, <span class="Constant">"F - test-print-cell-fraction"</span> -<span id="L261" class="LineNr">261 </span><span class="Delimiter">}</span> -<span id="L262" class="LineNr">262 </span> -<span id="L263" class="LineNr">263 </span><span class="PreProc">fn</span> <span class="muTest"><a href='print.mu.html#L263'>test-print-cell-symbol</a></span> <span class="Delimiter">{</span> -<span id="L264" class="LineNr">264 </span> <span class="PreProc">var</span> sym-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L265" class="LineNr">265 </span> <span class="PreProc">var</span> sym/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address sym-storage -<span id="L266" class="LineNr">266 </span> <a href='cell.mu.html#L38'>new-symbol</a> sym, <span class="Constant">"abc"</span> -<span id="L267" class="LineNr">267 </span> <span class="PreProc">var</span> out-storage: (stream byte <span class="Constant">0x40</span>) -<span id="L268" class="LineNr">268 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr stream byte) <span class="Special"><-</span> address out-storage -<span id="L269" class="LineNr">269 </span> <a href='print.mu.html#L1'>print-cell</a> sym, out, <span class="Constant">0</span>/no-trace -<span id="L270" class="LineNr">270 </span> <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> out, <span class="Constant">"abc"</span>, <span class="Constant">"F - test-print-cell-symbol"</span> -<span id="L271" class="LineNr">271 </span><span class="Delimiter">}</span> -<span id="L272" class="LineNr">272 </span> -<span id="L273" class="LineNr">273 </span><span class="PreProc">fn</span> <span class="muTest"><a href='print.mu.html#L273'>test-print-cell-nil-list</a></span> <span class="Delimiter">{</span> -<span id="L274" class="LineNr">274 </span> <span class="PreProc">var</span> nil-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L275" class="LineNr">275 </span> <span class="PreProc">var</span> <a href='cell.mu.html#L120'>nil</a>/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address nil-storage -<span id="L276" class="LineNr">276 </span> <a href='cell.mu.html#L101'>allocate-pair</a> <a href='cell.mu.html#L120'>nil</a> -<span id="L277" class="LineNr">277 </span> <span class="PreProc">var</span> out-storage: (stream byte <span class="Constant">0x40</span>) -<span id="L278" class="LineNr">278 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr stream byte) <span class="Special"><-</span> address out-storage -<span id="L279" class="LineNr">279 </span> <a href='print.mu.html#L1'>print-cell</a> <a href='cell.mu.html#L120'>nil</a>, out, <span class="Constant">0</span>/no-trace -<span id="L280" class="LineNr">280 </span> <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> out, <span class="Constant">"()"</span>, <span class="Constant">"F - test-print-cell-nil-list"</span> -<span id="L281" class="LineNr">281 </span><span class="Delimiter">}</span> -<span id="L282" class="LineNr">282 </span> -<span id="L283" class="LineNr">283 </span><span class="PreProc">fn</span> <span class="muTest"><a href='print.mu.html#L283'>test-print-cell-singleton-list</a></span> <span class="Delimiter">{</span> -<span id="L284" class="LineNr">284 </span> <span class="muComment"># list</span> -<span id="L285" class="LineNr">285 </span> <span class="PreProc">var</span> left-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L286" class="LineNr">286 </span> <span class="PreProc">var</span> left/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address left-storage -<span id="L287" class="LineNr">287 </span> <a href='cell.mu.html#L38'>new-symbol</a> left, <span class="Constant">"abc"</span> -<span id="L288" class="LineNr">288 </span> <span class="PreProc">var</span> nil-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L289" class="LineNr">289 </span> <span class="PreProc">var</span> <a href='cell.mu.html#L120'>nil</a>/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address nil-storage -<span id="L290" class="LineNr">290 </span> <a href='cell.mu.html#L101'>allocate-pair</a> <a href='cell.mu.html#L120'>nil</a> -<span id="L291" class="LineNr">291 </span> <span class="PreProc">var</span> list-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L292" class="LineNr">292 </span> <span class="PreProc">var</span> list/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address list-storage -<span id="L293" class="LineNr">293 </span> <a href='cell.mu.html#L115'>new-pair</a> list, *left, *nil -<span id="L294" class="LineNr">294 </span> <span class="muComment">#</span> -<span id="L295" class="LineNr">295 </span> <span class="PreProc">var</span> out-storage: (stream byte <span class="Constant">0x40</span>) -<span id="L296" class="LineNr">296 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr stream byte) <span class="Special"><-</span> address out-storage -<span id="L297" class="LineNr">297 </span> <a href='print.mu.html#L1'>print-cell</a> list, out, <span class="Constant">0</span>/no-trace -<span id="L298" class="LineNr">298 </span> <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> out, <span class="Constant">"(abc)"</span>, <span class="Constant">"F - test-print-cell-singleton-list"</span> -<span id="L299" class="LineNr">299 </span><span class="Delimiter">}</span> -<span id="L300" class="LineNr">300 </span> -<span id="L301" class="LineNr">301 </span><span class="PreProc">fn</span> <span class="muTest"><a href='print.mu.html#L301'>test-print-cell-list</a></span> <span class="Delimiter">{</span> -<span id="L302" class="LineNr">302 </span> <span class="muComment"># list = cons "abc", nil</span> -<span id="L303" class="LineNr">303 </span> <span class="PreProc">var</span> left-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L304" class="LineNr">304 </span> <span class="PreProc">var</span> left/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address left-storage -<span id="L305" class="LineNr">305 </span> <a href='cell.mu.html#L38'>new-symbol</a> left, <span class="Constant">"abc"</span> -<span id="L306" class="LineNr">306 </span> <span class="PreProc">var</span> nil-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L307" class="LineNr">307 </span> <span class="PreProc">var</span> <a href='cell.mu.html#L120'>nil</a>/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address nil-storage -<span id="L308" class="LineNr">308 </span> <a href='cell.mu.html#L101'>allocate-pair</a> <a href='cell.mu.html#L120'>nil</a> -<span id="L309" class="LineNr">309 </span> <span class="PreProc">var</span> list-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L310" class="LineNr">310 </span> <span class="PreProc">var</span> list/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address list-storage -<span id="L311" class="LineNr">311 </span> <a href='cell.mu.html#L115'>new-pair</a> list, *left, *nil -<span id="L312" class="LineNr">312 </span> <span class="muComment"># list = cons 64, list</span> -<span id="L313" class="LineNr">313 </span> <a href='cell.mu.html#L83'>new-integer</a> left, <span class="Constant">0x40</span> -<span id="L314" class="LineNr">314 </span> <a href='cell.mu.html#L115'>new-pair</a> list, *left, *list -<span id="L315" class="LineNr">315 </span> <span class="muComment">#</span> -<span id="L316" class="LineNr">316 </span> <span class="PreProc">var</span> out-storage: (stream byte <span class="Constant">0x40</span>) -<span id="L317" class="LineNr">317 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr stream byte) <span class="Special"><-</span> address out-storage -<span id="L318" class="LineNr">318 </span> <a href='print.mu.html#L1'>print-cell</a> list, out, <span class="Constant">0</span>/no-trace -<span id="L319" class="LineNr">319 </span> <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> out, <span class="Constant">"(64 abc)"</span>, <span class="Constant">"F - test-print-cell-list"</span> -<span id="L320" class="LineNr">320 </span><span class="Delimiter">}</span> -<span id="L321" class="LineNr">321 </span> -<span id="L322" class="LineNr">322 </span><span class="PreProc">fn</span> <span class="muTest"><a href='print.mu.html#L322'>test-print-cell-list-of-nil</a></span> <span class="Delimiter">{</span> -<span id="L323" class="LineNr">323 </span> <span class="muComment"># list = cons "abc", nil</span> -<span id="L324" class="LineNr">324 </span> <span class="PreProc">var</span> left-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L325" class="LineNr">325 </span> <span class="PreProc">var</span> left/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address left-storage -<span id="L326" class="LineNr">326 </span> <a href='cell.mu.html#L101'>allocate-pair</a> left -<span id="L327" class="LineNr">327 </span> <span class="PreProc">var</span> nil-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L328" class="LineNr">328 </span> <span class="PreProc">var</span> <a href='cell.mu.html#L120'>nil</a>/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address nil-storage -<span id="L329" class="LineNr">329 </span> <a href='cell.mu.html#L101'>allocate-pair</a> <a href='cell.mu.html#L120'>nil</a> -<span id="L330" class="LineNr">330 </span> <span class="PreProc">var</span> list-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L331" class="LineNr">331 </span> <span class="PreProc">var</span> list/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address list-storage -<span id="L332" class="LineNr">332 </span> <a href='cell.mu.html#L115'>new-pair</a> list, *left, *nil -<span id="L333" class="LineNr">333 </span> <span class="muComment"># list = cons 64, list</span> -<span id="L334" class="LineNr">334 </span> <a href='cell.mu.html#L83'>new-integer</a> left, <span class="Constant">0x40</span> -<span id="L335" class="LineNr">335 </span> <a href='cell.mu.html#L115'>new-pair</a> list, *left, *list +<span id="L155" class="LineNr">155 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='print.mu.html#L155'>print-pair</a></span> _in: (addr <a href='cell.mu.html#L1'>cell</a>), out: (addr stream byte), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L156" class="LineNr">156 </span> <span class="muComment"># if in starts with a quote, print the quote outside the expression</span> +<span id="L157" class="LineNr">157 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in +<span id="L158" class="LineNr">158 </span> <span class="PreProc">var</span> left-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in, left +<span id="L159" class="LineNr">159 </span> <span class="PreProc">var</span> _left/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *left-ah +<span id="L160" class="LineNr">160 </span> <span class="PreProc">var</span> left/<span class="Constant">ecx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _left +<span id="L161" class="LineNr">161 </span> <span class="PreProc">var</span> is-quote?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='cell.mu.html#L44'>symbol-equal?</a> left, <span class="Constant">"'"</span> +<span id="L162" class="LineNr">162 </span> compare is-quote?, <span class="Constant">0</span>/false +<span id="L163" class="LineNr">163 </span> <span class="Delimiter">{</span> +<span id="L164" class="LineNr">164 </span> <span class="PreProc">break-if-=</span> +<span id="L165" class="LineNr">165 </span> <a href='../108write.subx.html#L11'>write</a> out, <span class="Constant">"'"</span> +<span id="L166" class="LineNr">166 </span> <span class="PreProc">var</span> right-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in, right +<span id="L167" class="LineNr">167 </span> <a href='print.mu.html#L1'>print-cell</a> right-ah, out, trace +<span id="L168" class="LineNr">168 </span> <span class="PreProc">return</span> +<span id="L169" class="LineNr">169 </span> <span class="Delimiter">}</span> +<span id="L170" class="LineNr">170 </span> <span class="PreProc">var</span> is-backquote?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='cell.mu.html#L44'>symbol-equal?</a> left, <span class="Constant">"`"</span> +<span id="L171" class="LineNr">171 </span> compare is-backquote?, <span class="Constant">0</span>/false +<span id="L172" class="LineNr">172 </span> <span class="Delimiter">{</span> +<span id="L173" class="LineNr">173 </span> <span class="PreProc">break-if-=</span> +<span id="L174" class="LineNr">174 </span> <a href='../108write.subx.html#L11'>write</a> out, <span class="Constant">"`"</span> +<span id="L175" class="LineNr">175 </span> <span class="PreProc">var</span> right-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in, right +<span id="L176" class="LineNr">176 </span> <a href='print.mu.html#L1'>print-cell</a> right-ah, out, trace +<span id="L177" class="LineNr">177 </span> <span class="PreProc">return</span> +<span id="L178" class="LineNr">178 </span> <span class="Delimiter">}</span> +<span id="L179" class="LineNr">179 </span> <span class="PreProc">var</span> is-unquote?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='cell.mu.html#L44'>symbol-equal?</a> left, <span class="Constant">","</span> +<span id="L180" class="LineNr">180 </span> compare is-unquote?, <span class="Constant">0</span>/false +<span id="L181" class="LineNr">181 </span> <span class="Delimiter">{</span> +<span id="L182" class="LineNr">182 </span> <span class="PreProc">break-if-=</span> +<span id="L183" class="LineNr">183 </span> <a href='../108write.subx.html#L11'>write</a> out, <span class="Constant">","</span> +<span id="L184" class="LineNr">184 </span> <span class="PreProc">var</span> right-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in, right +<span id="L185" class="LineNr">185 </span> <a href='print.mu.html#L1'>print-cell</a> right-ah, out, trace +<span id="L186" class="LineNr">186 </span> <span class="PreProc">return</span> +<span id="L187" class="LineNr">187 </span> <span class="Delimiter">}</span> +<span id="L188" class="LineNr">188 </span> <span class="PreProc">var</span> is-unquote-splice?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='cell.mu.html#L44'>symbol-equal?</a> left, <span class="Constant">",@"</span> +<span id="L189" class="LineNr">189 </span> compare is-unquote-splice?, <span class="Constant">0</span>/false +<span id="L190" class="LineNr">190 </span> <span class="Delimiter">{</span> +<span id="L191" class="LineNr">191 </span> <span class="PreProc">break-if-=</span> +<span id="L192" class="LineNr">192 </span> <a href='../108write.subx.html#L11'>write</a> out, <span class="Constant">",@"</span> +<span id="L193" class="LineNr">193 </span> <span class="PreProc">var</span> right-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in, right +<span id="L194" class="LineNr">194 </span> <a href='print.mu.html#L1'>print-cell</a> right-ah, out, trace +<span id="L195" class="LineNr">195 </span> <span class="PreProc">return</span> +<span id="L196" class="LineNr">196 </span> <span class="Delimiter">}</span> +<span id="L197" class="LineNr">197 </span> <span class="muComment">#</span> +<span id="L198" class="LineNr">198 </span> <span class="PreProc">var</span> curr/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in +<span id="L199" class="LineNr">199 </span> <a href='../108write.subx.html#L11'>write</a> out, <span class="Constant">"("</span> +<span id="L200" class="LineNr">200 </span> $print-pair:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> +<span id="L201" class="LineNr">201 </span> <span class="PreProc">var</span> left/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get curr, left +<span id="L202" class="LineNr">202 </span> <a href='print.mu.html#L1'>print-cell</a> left, out, trace +<span id="L203" class="LineNr">203 </span> <span class="PreProc">var</span> right/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get curr, right +<span id="L204" class="LineNr">204 </span> <span class="PreProc">var</span> right-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *right +<span id="L205" class="LineNr">205 </span> <span class="Delimiter">{</span> +<span id="L206" class="LineNr">206 </span> compare right-addr, <span class="Constant">0</span> +<span id="L207" class="LineNr">207 </span> <span class="PreProc">break-if-!=</span> +<span id="L208" class="LineNr">208 </span> <a href='../317abort.subx.html#L5'>abort</a> <span class="Constant">"null encountered"</span> +<span id="L209" class="LineNr">209 </span> <span class="Delimiter">}</span> +<span id="L210" class="LineNr">210 </span> <span class="Delimiter">{</span> +<span id="L211" class="LineNr">211 </span> <span class="PreProc">var</span> right-nil?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L236'>nil?</a> right-addr +<span id="L212" class="LineNr">212 </span> compare right-nil?, <span class="Constant">0</span>/false +<span id="L213" class="LineNr">213 </span> <span class="Delimiter">{</span> +<span id="L214" class="LineNr">214 </span> <span class="PreProc">break-if-=</span> +<span id="L215" class="LineNr">215 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"print"</span>, <span class="Constant">"right is nil"</span> +<span id="L216" class="LineNr">216 </span> <span class="PreProc">break</span> $print-pair:<span class="PreProc">loop</span> +<span id="L217" class="LineNr">217 </span> <span class="Delimiter">}</span> +<span id="L218" class="LineNr">218 </span> <span class="Delimiter">}</span> +<span id="L219" class="LineNr">219 </span> <a href='../108write.subx.html#L11'>write</a> out, <span class="Constant">" "</span> +<span id="L220" class="LineNr">220 </span> <span class="PreProc">var</span> right-type-addr/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get right-addr, <span class="PreProc">type</span> +<span id="L221" class="LineNr">221 </span> <span class="Delimiter">{</span> +<span id="L222" class="LineNr">222 </span> compare *right-type-addr, <span class="Constant">0</span>/pair +<span id="L223" class="LineNr">223 </span> <span class="PreProc">break-if-=</span> +<span id="L224" class="LineNr">224 </span> <a href='../108write.subx.html#L11'>write</a> out, <span class="Constant">". "</span> +<span id="L225" class="LineNr">225 </span> <a href='print.mu.html#L1'>print-cell</a> right, out, trace +<span id="L226" class="LineNr">226 </span> <span class="PreProc">break</span> $print-pair:<span class="PreProc">loop</span> +<span id="L227" class="LineNr">227 </span> <span class="Delimiter">}</span> +<span id="L228" class="LineNr">228 </span> curr <span class="Special"><-</span> copy right-addr +<span id="L229" class="LineNr">229 </span> <span class="PreProc">loop</span> +<span id="L230" class="LineNr">230 </span> <span class="Delimiter">}</span> +<span id="L231" class="LineNr">231 </span> <a href='../108write.subx.html#L11'>write</a> out, <span class="Constant">")"</span> +<span id="L232" class="LineNr">232 </span><span class="Delimiter">}</span> +<span id="L233" class="LineNr">233 </span> +<span id="L234" class="LineNr">234 </span><span class="muComment"># Most lisps intern nil, but we don't really have globals yet, so we'll be</span> +<span id="L235" class="LineNr">235 </span><span class="muComment"># less efficient for now.</span> +<span id="L236" class="LineNr">236 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='print.mu.html#L236'>nil?</a></span> _in: (addr <a href='cell.mu.html#L1'>cell</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L237" class="LineNr">237 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in +<span id="L238" class="LineNr">238 </span> <span class="muComment"># if type != pair, return false</span> +<span id="L239" class="LineNr">239 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get in, <span class="PreProc">type</span> +<span id="L240" class="LineNr">240 </span> compare *<span class="PreProc">type</span>, <span class="Constant">0</span>/pair +<span id="L241" class="LineNr">241 </span> <span class="Delimiter">{</span> +<span id="L242" class="LineNr">242 </span> <span class="PreProc">break-if-=</span> +<span id="L243" class="LineNr">243 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L244" class="LineNr">244 </span> <span class="Delimiter">}</span> +<span id="L245" class="LineNr">245 </span> <span class="muComment"># if left != null, return false</span> +<span id="L246" class="LineNr">246 </span> <span class="PreProc">var</span> left-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in, left +<span id="L247" class="LineNr">247 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *left-ah +<span id="L248" class="LineNr">248 </span> compare left, <span class="Constant">0</span> +<span id="L249" class="LineNr">249 </span> <span class="Delimiter">{</span> +<span id="L250" class="LineNr">250 </span> <span class="PreProc">break-if-=</span> +<span id="L251" class="LineNr">251 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L252" class="LineNr">252 </span> <span class="Delimiter">}</span> +<span id="L253" class="LineNr">253 </span> <span class="muComment"># if right != null, return false</span> +<span id="L254" class="LineNr">254 </span> <span class="PreProc">var</span> right-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in, right +<span id="L255" class="LineNr">255 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *right-ah +<span id="L256" class="LineNr">256 </span> compare right, <span class="Constant">0</span> +<span id="L257" class="LineNr">257 </span> <span class="Delimiter">{</span> +<span id="L258" class="LineNr">258 </span> <span class="PreProc">break-if-=</span> +<span id="L259" class="LineNr">259 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L260" class="LineNr">260 </span> <span class="Delimiter">}</span> +<span id="L261" class="LineNr">261 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L262" class="LineNr">262 </span><span class="Delimiter">}</span> +<span id="L263" class="LineNr">263 </span> +<span id="L264" class="LineNr">264 </span><span class="PreProc">fn</span> <span class="muTest"><a href='print.mu.html#L264'>test-print-cell-zero</a></span> <span class="Delimiter">{</span> +<span id="L265" class="LineNr">265 </span> <span class="PreProc">var</span> num-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L266" class="LineNr">266 </span> <span class="PreProc">var</span> num/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address num-storage +<span id="L267" class="LineNr">267 </span> <a href='cell.mu.html#L84'>new-integer</a> num, <span class="Constant">0</span> +<span id="L268" class="LineNr">268 </span> <span class="PreProc">var</span> out-storage: (stream byte <span class="Constant">0x40</span>) +<span id="L269" class="LineNr">269 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr stream byte) <span class="Special"><-</span> address out-storage +<span id="L270" class="LineNr">270 </span> <a href='print.mu.html#L1'>print-cell</a> num, out, <span class="Constant">0</span>/no-trace +<span id="L271" class="LineNr">271 </span> <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> out, <span class="Constant">"0"</span>, <span class="Constant">"F - test-print-cell-zero"</span> +<span id="L272" class="LineNr">272 </span><span class="Delimiter">}</span> +<span id="L273" class="LineNr">273 </span> +<span id="L274" class="LineNr">274 </span><span class="PreProc">fn</span> <span class="muTest"><a href='print.mu.html#L274'>test-print-cell-integer</a></span> <span class="Delimiter">{</span> +<span id="L275" class="LineNr">275 </span> <span class="PreProc">var</span> num-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L276" class="LineNr">276 </span> <span class="PreProc">var</span> num/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address num-storage +<span id="L277" class="LineNr">277 </span> <a href='cell.mu.html#L84'>new-integer</a> num, <span class="Constant">1</span> +<span id="L278" class="LineNr">278 </span> <span class="PreProc">var</span> out-storage: (stream byte <span class="Constant">0x40</span>) +<span id="L279" class="LineNr">279 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr stream byte) <span class="Special"><-</span> address out-storage +<span id="L280" class="LineNr">280 </span> <a href='print.mu.html#L1'>print-cell</a> num, out, <span class="Constant">0</span>/no-trace +<span id="L281" class="LineNr">281 </span> <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> out, <span class="Constant">"1"</span>, <span class="Constant">"F - test-print-cell-integer"</span> +<span id="L282" class="LineNr">282 </span><span class="Delimiter">}</span> +<span id="L283" class="LineNr">283 </span> +<span id="L284" class="LineNr">284 </span><span class="PreProc">fn</span> <span class="muTest"><a href='print.mu.html#L284'>test-print-cell-integer-2</a></span> <span class="Delimiter">{</span> +<span id="L285" class="LineNr">285 </span> <span class="PreProc">var</span> num-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L286" class="LineNr">286 </span> <span class="PreProc">var</span> num/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address num-storage +<span id="L287" class="LineNr">287 </span> <a href='cell.mu.html#L84'>new-integer</a> num, <span class="Constant">0x30</span> +<span id="L288" class="LineNr">288 </span> <span class="PreProc">var</span> out-storage: (stream byte <span class="Constant">0x40</span>) +<span id="L289" class="LineNr">289 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr stream byte) <span class="Special"><-</span> address out-storage +<span id="L290" class="LineNr">290 </span> <a href='print.mu.html#L1'>print-cell</a> num, out, <span class="Constant">0</span>/no-trace +<span id="L291" class="LineNr">291 </span> <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> out, <span class="Constant">"48"</span>, <span class="Constant">"F - test-print-cell-integer-2"</span> +<span id="L292" class="LineNr">292 </span><span class="Delimiter">}</span> +<span id="L293" class="LineNr">293 </span> +<span id="L294" class="LineNr">294 </span><span class="PreProc">fn</span> <span class="muTest"><a href='print.mu.html#L294'>test-print-cell-fraction</a></span> <span class="Delimiter">{</span> +<span id="L295" class="LineNr">295 </span> <span class="PreProc">var</span> num-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L296" class="LineNr">296 </span> <span class="PreProc">var</span> num/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address num-storage +<span id="L297" class="LineNr">297 </span> <span class="PreProc">var</span> val/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='../408float.mu.html#L18'>rational</a> <span class="Constant">1</span>, <span class="Constant">2</span> +<span id="L298" class="LineNr">298 </span> <a href='cell.mu.html#L97'>new-float</a> num, val +<span id="L299" class="LineNr">299 </span> <span class="PreProc">var</span> out-storage: (stream byte <span class="Constant">0x40</span>) +<span id="L300" class="LineNr">300 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr stream byte) <span class="Special"><-</span> address out-storage +<span id="L301" class="LineNr">301 </span> <a href='print.mu.html#L1'>print-cell</a> num, out, <span class="Constant">0</span>/no-trace +<span id="L302" class="LineNr">302 </span> <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> out, <span class="Constant">"0.5"</span>, <span class="Constant">"F - test-print-cell-fraction"</span> +<span id="L303" class="LineNr">303 </span><span class="Delimiter">}</span> +<span id="L304" class="LineNr">304 </span> +<span id="L305" class="LineNr">305 </span><span class="PreProc">fn</span> <span class="muTest"><a href='print.mu.html#L305'>test-print-cell-symbol</a></span> <span class="Delimiter">{</span> +<span id="L306" class="LineNr">306 </span> <span class="PreProc">var</span> sym-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L307" class="LineNr">307 </span> <span class="PreProc">var</span> sym/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address sym-storage +<span id="L308" class="LineNr">308 </span> <a href='cell.mu.html#L39'>new-symbol</a> sym, <span class="Constant">"abc"</span> +<span id="L309" class="LineNr">309 </span> <span class="PreProc">var</span> out-storage: (stream byte <span class="Constant">0x40</span>) +<span id="L310" class="LineNr">310 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr stream byte) <span class="Special"><-</span> address out-storage +<span id="L311" class="LineNr">311 </span> <a href='print.mu.html#L1'>print-cell</a> sym, out, <span class="Constant">0</span>/no-trace +<span id="L312" class="LineNr">312 </span> <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> out, <span class="Constant">"abc"</span>, <span class="Constant">"F - test-print-cell-symbol"</span> +<span id="L313" class="LineNr">313 </span><span class="Delimiter">}</span> +<span id="L314" class="LineNr">314 </span> +<span id="L315" class="LineNr">315 </span><span class="PreProc">fn</span> <span class="muTest"><a href='print.mu.html#L315'>test-print-cell-nil-list</a></span> <span class="Delimiter">{</span> +<span id="L316" class="LineNr">316 </span> <span class="PreProc">var</span> nil-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L317" class="LineNr">317 </span> <span class="PreProc">var</span> <a href='cell.mu.html#L121'>nil</a>/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address nil-storage +<span id="L318" class="LineNr">318 </span> <a href='cell.mu.html#L102'>allocate-pair</a> <a href='cell.mu.html#L121'>nil</a> +<span id="L319" class="LineNr">319 </span> <span class="PreProc">var</span> out-storage: (stream byte <span class="Constant">0x40</span>) +<span id="L320" class="LineNr">320 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr stream byte) <span class="Special"><-</span> address out-storage +<span id="L321" class="LineNr">321 </span> <a href='print.mu.html#L1'>print-cell</a> <a href='cell.mu.html#L121'>nil</a>, out, <span class="Constant">0</span>/no-trace +<span id="L322" class="LineNr">322 </span> <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> out, <span class="Constant">"()"</span>, <span class="Constant">"F - test-print-cell-nil-list"</span> +<span id="L323" class="LineNr">323 </span><span class="Delimiter">}</span> +<span id="L324" class="LineNr">324 </span> +<span id="L325" class="LineNr">325 </span><span class="PreProc">fn</span> <span class="muTest"><a href='print.mu.html#L325'>test-print-cell-singleton-list</a></span> <span class="Delimiter">{</span> +<span id="L326" class="LineNr">326 </span> <span class="muComment"># list</span> +<span id="L327" class="LineNr">327 </span> <span class="PreProc">var</span> left-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L328" class="LineNr">328 </span> <span class="PreProc">var</span> left/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address left-storage +<span id="L329" class="LineNr">329 </span> <a href='cell.mu.html#L39'>new-symbol</a> left, <span class="Constant">"abc"</span> +<span id="L330" class="LineNr">330 </span> <span class="PreProc">var</span> nil-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L331" class="LineNr">331 </span> <span class="PreProc">var</span> <a href='cell.mu.html#L121'>nil</a>/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address nil-storage +<span id="L332" class="LineNr">332 </span> <a href='cell.mu.html#L102'>allocate-pair</a> <a href='cell.mu.html#L121'>nil</a> +<span id="L333" class="LineNr">333 </span> <span class="PreProc">var</span> list-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L334" class="LineNr">334 </span> <span class="PreProc">var</span> list/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address list-storage +<span id="L335" class="LineNr">335 </span> <a href='cell.mu.html#L116'>new-pair</a> list, *left, *nil <span id="L336" class="LineNr">336 </span> <span class="muComment">#</span> <span id="L337" class="LineNr">337 </span> <span class="PreProc">var</span> out-storage: (stream byte <span class="Constant">0x40</span>) <span id="L338" class="LineNr">338 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr stream byte) <span class="Special"><-</span> address out-storage <span id="L339" class="LineNr">339 </span> <a href='print.mu.html#L1'>print-cell</a> list, out, <span class="Constant">0</span>/no-trace -<span id="L340" class="LineNr">340 </span> <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> out, <span class="Constant">"(64 ())"</span>, <span class="Constant">"F - test-print-cell-list-nil"</span> +<span id="L340" class="LineNr">340 </span> <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> out, <span class="Constant">"(abc)"</span>, <span class="Constant">"F - test-print-cell-singleton-list"</span> <span id="L341" class="LineNr">341 </span><span class="Delimiter">}</span> <span id="L342" class="LineNr">342 </span> -<span id="L343" class="LineNr">343 </span><span class="PreProc">fn</span> <span class="muTest"><a href='print.mu.html#L343'>test-print-dotted-list</a></span> <span class="Delimiter">{</span> -<span id="L344" class="LineNr">344 </span> <span class="muComment"># list = cons 64, "abc"</span> +<span id="L343" class="LineNr">343 </span><span class="PreProc">fn</span> <span class="muTest"><a href='print.mu.html#L343'>test-print-cell-list</a></span> <span class="Delimiter">{</span> +<span id="L344" class="LineNr">344 </span> <span class="muComment"># list = cons "abc", nil</span> <span id="L345" class="LineNr">345 </span> <span class="PreProc">var</span> left-storage: (handle <a href='cell.mu.html#L1'>cell</a>) <span id="L346" class="LineNr">346 </span> <span class="PreProc">var</span> left/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address left-storage -<span id="L347" class="LineNr">347 </span> <a href='cell.mu.html#L38'>new-symbol</a> left, <span class="Constant">"abc"</span> -<span id="L348" class="LineNr">348 </span> <span class="PreProc">var</span> right-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L349" class="LineNr">349 </span> <span class="PreProc">var</span> right/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address right-storage -<span id="L350" class="LineNr">350 </span> <a href='cell.mu.html#L83'>new-integer</a> right, <span class="Constant">0x40</span> +<span id="L347" class="LineNr">347 </span> <a href='cell.mu.html#L39'>new-symbol</a> left, <span class="Constant">"abc"</span> +<span id="L348" class="LineNr">348 </span> <span class="PreProc">var</span> nil-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L349" class="LineNr">349 </span> <span class="PreProc">var</span> <a href='cell.mu.html#L121'>nil</a>/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address nil-storage +<span id="L350" class="LineNr">350 </span> <a href='cell.mu.html#L102'>allocate-pair</a> <a href='cell.mu.html#L121'>nil</a> <span id="L351" class="LineNr">351 </span> <span class="PreProc">var</span> list-storage: (handle <a href='cell.mu.html#L1'>cell</a>) <span id="L352" class="LineNr">352 </span> <span class="PreProc">var</span> list/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address list-storage -<span id="L353" class="LineNr">353 </span> <a href='cell.mu.html#L115'>new-pair</a> list, *left, *right -<span id="L354" class="LineNr">354 </span> <span class="muComment">#</span> -<span id="L355" class="LineNr">355 </span> <span class="PreProc">var</span> out-storage: (stream byte <span class="Constant">0x40</span>) -<span id="L356" class="LineNr">356 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr stream byte) <span class="Special"><-</span> address out-storage -<span id="L357" class="LineNr">357 </span> <a href='print.mu.html#L1'>print-cell</a> list, out, <span class="Constant">0</span>/no-trace -<span id="L358" class="LineNr">358 </span> <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> out, <span class="Constant">"(abc . 64)"</span>, <span class="Constant">"F - test-print-dotted-list"</span> -<span id="L359" class="LineNr">359 </span><span class="Delimiter">}</span> +<span id="L353" class="LineNr">353 </span> <a href='cell.mu.html#L116'>new-pair</a> list, *left, *nil +<span id="L354" class="LineNr">354 </span> <span class="muComment"># list = cons 64, list</span> +<span id="L355" class="LineNr">355 </span> <a href='cell.mu.html#L84'>new-integer</a> left, <span class="Constant">0x40</span> +<span id="L356" class="LineNr">356 </span> <a href='cell.mu.html#L116'>new-pair</a> list, *left, *list +<span id="L357" class="LineNr">357 </span> <span class="muComment">#</span> +<span id="L358" class="LineNr">358 </span> <span class="PreProc">var</span> out-storage: (stream byte <span class="Constant">0x40</span>) +<span id="L359" class="LineNr">359 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr stream byte) <span class="Special"><-</span> address out-storage +<span id="L360" class="LineNr">360 </span> <a href='print.mu.html#L1'>print-cell</a> list, out, <span class="Constant">0</span>/no-trace +<span id="L361" class="LineNr">361 </span> <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> out, <span class="Constant">"(64 abc)"</span>, <span class="Constant">"F - test-print-cell-list"</span> +<span id="L362" class="LineNr">362 </span><span class="Delimiter">}</span> +<span id="L363" class="LineNr">363 </span> +<span id="L364" class="LineNr">364 </span><span class="PreProc">fn</span> <span class="muTest"><a href='print.mu.html#L364'>test-print-cell-list-of-nil</a></span> <span class="Delimiter">{</span> +<span id="L365" class="LineNr">365 </span> <span class="muComment"># list = cons "abc", nil</span> +<span id="L366" class="LineNr">366 </span> <span class="PreProc">var</span> left-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L367" class="LineNr">367 </span> <span class="PreProc">var</span> left/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address left-storage +<span id="L368" class="LineNr">368 </span> <a href='cell.mu.html#L102'>allocate-pair</a> left +<span id="L369" class="LineNr">369 </span> <span class="PreProc">var</span> nil-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L370" class="LineNr">370 </span> <span class="PreProc">var</span> <a href='cell.mu.html#L121'>nil</a>/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address nil-storage +<span id="L371" class="LineNr">371 </span> <a href='cell.mu.html#L102'>allocate-pair</a> <a href='cell.mu.html#L121'>nil</a> +<span id="L372" class="LineNr">372 </span> <span class="PreProc">var</span> list-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L373" class="LineNr">373 </span> <span class="PreProc">var</span> list/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address list-storage +<span id="L374" class="LineNr">374 </span> <a href='cell.mu.html#L116'>new-pair</a> list, *left, *nil +<span id="L375" class="LineNr">375 </span> <span class="muComment"># list = cons 64, list</span> +<span id="L376" class="LineNr">376 </span> <a href='cell.mu.html#L84'>new-integer</a> left, <span class="Constant">0x40</span> +<span id="L377" class="LineNr">377 </span> <a href='cell.mu.html#L116'>new-pair</a> list, *left, *list +<span id="L378" class="LineNr">378 </span> <span class="muComment">#</span> +<span id="L379" class="LineNr">379 </span> <span class="PreProc">var</span> out-storage: (stream byte <span class="Constant">0x40</span>) +<span id="L380" class="LineNr">380 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr stream byte) <span class="Special"><-</span> address out-storage +<span id="L381" class="LineNr">381 </span> <a href='print.mu.html#L1'>print-cell</a> list, out, <span class="Constant">0</span>/no-trace +<span id="L382" class="LineNr">382 </span> <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> out, <span class="Constant">"(64 ())"</span>, <span class="Constant">"F - test-print-cell-list-nil"</span> +<span id="L383" class="LineNr">383 </span><span class="Delimiter">}</span> +<span id="L384" class="LineNr">384 </span> +<span id="L385" class="LineNr">385 </span><span class="PreProc">fn</span> <span class="muTest"><a href='print.mu.html#L385'>test-print-dotted-list</a></span> <span class="Delimiter">{</span> +<span id="L386" class="LineNr">386 </span> <span class="muComment"># list = cons 64, "abc"</span> +<span id="L387" class="LineNr">387 </span> <span class="PreProc">var</span> left-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L388" class="LineNr">388 </span> <span class="PreProc">var</span> left/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address left-storage +<span id="L389" class="LineNr">389 </span> <a href='cell.mu.html#L39'>new-symbol</a> left, <span class="Constant">"abc"</span> +<span id="L390" class="LineNr">390 </span> <span class="PreProc">var</span> right-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L391" class="LineNr">391 </span> <span class="PreProc">var</span> right/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address right-storage +<span id="L392" class="LineNr">392 </span> <a href='cell.mu.html#L84'>new-integer</a> right, <span class="Constant">0x40</span> +<span id="L393" class="LineNr">393 </span> <span class="PreProc">var</span> list-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L394" class="LineNr">394 </span> <span class="PreProc">var</span> list/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address list-storage +<span id="L395" class="LineNr">395 </span> <a href='cell.mu.html#L116'>new-pair</a> list, *left, *right +<span id="L396" class="LineNr">396 </span> <span class="muComment">#</span> +<span id="L397" class="LineNr">397 </span> <span class="PreProc">var</span> out-storage: (stream byte <span class="Constant">0x40</span>) +<span id="L398" class="LineNr">398 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr stream byte) <span class="Special"><-</span> address out-storage +<span id="L399" class="LineNr">399 </span> <a href='print.mu.html#L1'>print-cell</a> list, out, <span class="Constant">0</span>/no-trace +<span id="L400" class="LineNr">400 </span> <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> out, <span class="Constant">"(abc . 64)"</span>, <span class="Constant">"F - test-print-dotted-list"</span> +<span id="L401" class="LineNr">401 </span><span class="Delimiter">}</span> </pre> </body> </html> diff --git a/html/shell/sandbox.mu.html b/html/shell/sandbox.mu.html index 4d2be852..cbdc7c9f 100644 --- a/html/shell/sandbox.mu.html +++ b/html/shell/sandbox.mu.html @@ -16,6 +16,7 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } .LineNr { } +.CommentedCode { color: #8a8a8a; } .Constant { color: #008787; } .muComment { color: #005faf; } .Delimiter { color: #c000c0; } @@ -72,7 +73,7 @@ if ('onhashchange' in window) { <span id="L13" class="LineNr"> 13 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> copy _self <span id="L14" class="LineNr"> 14 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get self, data <span id="L15" class="LineNr"> 15 </span> <a href='../120allocate.subx.html#L43'>allocate</a> data-ah -<span id="L16" class="LineNr"> 16 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L16" class="LineNr"> 16 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *data-ah <span id="L17" class="LineNr"> 17 </span> <a href='gap-buffer.mu.html#L11'>initialize-gap-buffer</a> data, <span class="Constant">0x1000</span>/4KB <span id="L18" class="LineNr"> 18 </span> <span class="muComment">#</span> <span id="L19" class="LineNr"> 19 </span> <span class="PreProc">var</span> value-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get self, value @@ -82,14 +83,14 @@ if ('onhashchange' in window) { <span id="L23" class="LineNr"> 23 </span> compare fake-screen-and-keyboard?, <span class="Constant">0</span>/false <span id="L24" class="LineNr"> 24 </span> <span class="PreProc">break-if-=</span> <span id="L25" class="LineNr"> 25 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get self, screen-var -<span id="L26" class="LineNr"> 26 </span> <a href='cell.mu.html#L153'>new-fake-screen</a> screen-ah, <span class="Constant">8</span>/width, <span class="Constant">3</span>/height, <span class="Constant">1</span>/enable-pixel-graphics +<span id="L26" class="LineNr"> 26 </span> <a href='cell.mu.html#L154'>new-fake-screen</a> screen-ah, <span class="Constant">8</span>/width, <span class="Constant">3</span>/height, <span class="Constant">1</span>/enable-pixel-graphics <span id="L27" class="LineNr"> 27 </span> <span class="PreProc">var</span> keyboard-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get self, keyboard-var -<span id="L28" class="LineNr"> 28 </span> <a href='cell.mu.html#L184'>new-fake-keyboard</a> keyboard-ah, <span class="Constant">0x10</span>/keyboard-capacity +<span id="L28" class="LineNr"> 28 </span> <a href='cell.mu.html#L185'>new-fake-keyboard</a> keyboard-ah, <span class="Constant">0x10</span>/keyboard-capacity <span id="L29" class="LineNr"> 29 </span> <span class="Delimiter">}</span> <span id="L30" class="LineNr"> 30 </span> <span class="muComment">#</span> <span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> trace-ah/<span class="Constant">eax</span>: (addr handle trace) <span class="Special"><-</span> get self, trace <span id="L32" class="LineNr"> 32 </span> <a href='../120allocate.subx.html#L43'>allocate</a> trace-ah -<span id="L33" class="LineNr"> 33 </span> <span class="PreProc">var</span> trace/<span class="Constant">eax</span>: (addr trace) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *trace-ah +<span id="L33" class="LineNr"> 33 </span> <span class="PreProc">var</span> trace/<span class="Constant">eax</span>: (addr trace) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *trace-ah <span id="L34" class="LineNr"> 34 </span> <a href='trace.mu.html#L35'>initialize-trace</a> trace, <span class="Constant">0x8000</span>/lines, <span class="Constant">0x80</span>/visible-lines <span id="L35" class="LineNr"> 35 </span> <span class="PreProc">var</span> cursor-in-data?/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> get self, cursor-in-data? <span id="L36" class="LineNr"> 36 </span> copy-to *cursor-in-data?, <span class="Constant">1</span>/true @@ -101,13 +102,13 @@ if ('onhashchange' in window) { <span id="L42" class="LineNr"> 42 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> copy _self <span id="L43" class="LineNr"> 43 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get self, data <span id="L44" class="LineNr"> 44 </span> <a href='../120allocate.subx.html#L43'>allocate</a> data-ah -<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *data-ah <span id="L46" class="LineNr"> 46 </span> <a href='gap-buffer.mu.html#L37'>initialize-gap-buffer-with</a> data, s <span id="L47" class="LineNr"> 47 </span> <span class="PreProc">var</span> value-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get self, value <span id="L48" class="LineNr"> 48 </span> populate-stream value-ah, <span class="Constant">0x1000</span>/4KB <span id="L49" class="LineNr"> 49 </span> <span class="PreProc">var</span> trace-ah/<span class="Constant">eax</span>: (addr handle trace) <span class="Special"><-</span> get self, trace <span id="L50" class="LineNr"> 50 </span> <a href='../120allocate.subx.html#L43'>allocate</a> trace-ah -<span id="L51" class="LineNr"> 51 </span> <span class="PreProc">var</span> trace/<span class="Constant">eax</span>: (addr trace) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *trace-ah +<span id="L51" class="LineNr"> 51 </span> <span class="PreProc">var</span> trace/<span class="Constant">eax</span>: (addr trace) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *trace-ah <span id="L52" class="LineNr"> 52 </span> <a href='trace.mu.html#L35'>initialize-trace</a> trace, <span class="Constant">0x8000</span>/lines, <span class="Constant">0x80</span>/visible-lines <span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> cursor-in-data?/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> get self, cursor-in-data? <span id="L54" class="LineNr"> 54 </span> copy-to *cursor-in-data?, <span class="Constant">1</span>/true @@ -116,14 +117,14 @@ if ('onhashchange' in window) { <span id="L57" class="LineNr"> 57 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='sandbox.mu.html#L57'>allocate-sandbox-with</a></span> _out: (addr handle <a href='sandbox.mu.html#L1'>sandbox</a>), s: (addr array byte) <span class="Delimiter">{</span> <span id="L58" class="LineNr"> 58 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> copy _out <span id="L59" class="LineNr"> 59 </span> <a href='../120allocate.subx.html#L43'>allocate</a> out -<span id="L60" class="LineNr"> 60 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *out +<span id="L60" class="LineNr"> 60 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *out <span id="L61" class="LineNr"> 61 </span> <a href='sandbox.mu.html#L41'>initialize-sandbox-with</a> out-addr, s <span id="L62" class="LineNr"> 62 </span><span class="Delimiter">}</span> <span id="L63" class="LineNr"> 63 </span> <span id="L64" class="LineNr"> 64 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='sandbox.mu.html#L64'>write-sandbox</a></span> out: (addr stream byte), _self: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Delimiter">{</span> <span id="L65" class="LineNr"> 65 </span> <span class="PreProc">var</span> self/<span class="Constant">eax</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> copy _self <span id="L66" class="LineNr"> 66 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get self, data -<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *data-ah <span id="L68" class="LineNr"> 68 </span> <span class="Delimiter">{</span> <span id="L69" class="LineNr"> 69 </span> <span class="PreProc">var</span> len/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='gap-buffer.mu.html#L163'>gap-buffer-length</a> data <span id="L70" class="LineNr"> 70 </span> compare len, <span class="Constant">0</span> @@ -145,7 +146,7 @@ if ('onhashchange' in window) { <span id="L86" class="LineNr"> 86 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> copy _self <span id="L87" class="LineNr"> 87 </span> <span class="muComment"># data</span> <span id="L88" class="LineNr"> 88 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get self, data -<span id="L89" class="LineNr"> 89 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L89" class="LineNr"> 89 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *data-ah <span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> data/<span class="Constant">edx</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _data <span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy xmin <span id="L92" class="LineNr"> 92 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy ymin @@ -156,14 +157,14 @@ if ('onhashchange' in window) { <span id="L97" class="LineNr"> 97 </span> y <span class="Special"><-</span> increment <span id="L98" class="LineNr"> 98 </span> <span class="muComment"># trace</span> <span id="L99" class="LineNr"> 99 </span> <span class="PreProc">var</span> trace-ah/<span class="Constant">eax</span>: (addr handle trace) <span class="Special"><-</span> get self, trace -<span id="L100" class="LineNr">100 </span> <span class="PreProc">var</span> _trace/<span class="Constant">eax</span>: (addr trace) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *trace-ah +<span id="L100" class="LineNr">100 </span> <span class="PreProc">var</span> _trace/<span class="Constant">eax</span>: (addr trace) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *trace-ah <span id="L101" class="LineNr">101 </span> <span class="PreProc">var</span> trace/<span class="Constant">edx</span>: (addr trace) <span class="Special"><-</span> copy _trace <span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> cursor-in-trace?/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> get self, cursor-in-trace? -<span id="L103" class="LineNr">103 </span> y <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, trace, xmin, y, xmax, ymax, *cursor-in-trace? +<span id="L103" class="LineNr">103 </span> y <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, trace, xmin, y, xmax, ymax, *cursor-in-trace? <span id="L104" class="LineNr">104 </span> <span class="muComment"># value</span> <span id="L105" class="LineNr">105 </span> $render-sandbox:value: <span class="Delimiter">{</span> <span id="L106" class="LineNr">106 </span> <span class="PreProc">var</span> value-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get self, value -<span id="L107" class="LineNr">107 </span> <span class="PreProc">var</span> _value/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *value-ah +<span id="L107" class="LineNr">107 </span> <span class="PreProc">var</span> _value/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *value-ah <span id="L108" class="LineNr">108 </span> <span class="PreProc">var</span> value/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> copy _value <span id="L109" class="LineNr">109 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> value <span id="L110" class="LineNr">110 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> value @@ -188,7 +189,7 @@ if ('onhashchange' in window) { <span id="L129" class="LineNr">129 </span> compare *cursor-in-trace?, <span class="Constant">0</span>/false <span id="L130" class="LineNr">130 </span> <span class="Delimiter">{</span> <span id="L131" class="LineNr">131 </span> <span class="PreProc">break-if-=</span> -<span id="L132" class="LineNr">132 </span> <a href='trace.mu.html#L681'>render-trace-menu</a> <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L132" class="LineNr">132 </span> <a href='trace.mu.html#L712'>render-trace-menu</a> <a href='../500fake-screen.mu.html#L14'>screen</a> <span id="L133" class="LineNr">133 </span> <span class="PreProc">return</span> <span id="L134" class="LineNr">134 </span> <span class="Delimiter">}</span> <span id="L135" class="LineNr">135 </span> <span class="PreProc">var</span> cursor-in-keyboard?/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> get self, cursor-in-keyboard? @@ -204,7 +205,7 @@ if ('onhashchange' in window) { <span id="L145" class="LineNr">145 </span> <span class="muComment"># render just enough of the sandbox to figure out what to erase</span> <span id="L146" class="LineNr">146 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> copy _self <span id="L147" class="LineNr">147 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get self, data -<span id="L148" class="LineNr">148 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L148" class="LineNr">148 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *data-ah <span id="L149" class="LineNr">149 </span> <span class="PreProc">var</span> data/<span class="Constant">edx</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _data <span id="L150" class="LineNr">150 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy xmin <span id="L151" class="LineNr">151 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy ymin @@ -219,7 +220,7 @@ if ('onhashchange' in window) { <span id="L160" class="LineNr">160 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='sandbox.mu.html#L160'>maybe-render-empty-screen</a></span> <a href='../500fake-screen.mu.html#L14'>screen</a>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>), _self: (addr <a href='sandbox.mu.html#L1'>sandbox</a>), xmin: int, ymin: int<span class="PreProc"> -> </span>_/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> <span id="L161" class="LineNr">161 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> copy _self <span id="L162" class="LineNr">162 </span> <span class="PreProc">var</span> screen-obj-cell-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get self, screen-var -<span id="L163" class="LineNr">163 </span> <span class="PreProc">var</span> screen-obj-cell/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *screen-obj-cell-ah +<span id="L163" class="LineNr">163 </span> <span class="PreProc">var</span> screen-obj-cell/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *screen-obj-cell-ah <span id="L164" class="LineNr">164 </span> compare screen-obj-cell, <span class="Constant">0</span> <span id="L165" class="LineNr">165 </span> <span class="Delimiter">{</span> <span id="L166" class="LineNr">166 </span> <span class="PreProc">break-if-!=</span> @@ -233,9 +234,9 @@ if ('onhashchange' in window) { <span id="L174" class="LineNr">174 </span> <span class="Delimiter">}</span> <span id="L175" class="LineNr">175 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy ymin <span id="L176" class="LineNr">176 </span> <span class="PreProc">var</span> screen-obj-ah/<span class="Constant">eax</span>: (addr handle <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> get screen-obj-cell, screen-data -<span id="L177" class="LineNr">177 </span> <span class="PreProc">var</span> _screen-obj/<span class="Constant">eax</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *screen-obj-ah +<span id="L177" class="LineNr">177 </span> <span class="PreProc">var</span> _screen-obj/<span class="Constant">eax</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *screen-obj-ah <span id="L178" class="LineNr">178 </span> <span class="PreProc">var</span> screen-obj/<span class="Constant">edx</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> copy _screen-obj -<span id="L179" class="LineNr">179 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">"screen: "</span>, xmin, <span class="Constant">0x99</span>/xmax, y, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg +<span id="L179" class="LineNr">179 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">"screen: "</span>, xmin, <span class="Constant">0x99</span>/xmax, y, <span class="Constant">0x17</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg <span id="L180" class="LineNr">180 </span> y <span class="Special"><-</span> <a href='sandbox.mu.html#L214'>render-empty-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, screen-obj, x, y <span id="L181" class="LineNr">181 </span> <span class="PreProc">return</span> y <span id="L182" class="LineNr">182 </span><span class="Delimiter">}</span> @@ -243,7 +244,7 @@ if ('onhashchange' in window) { <span id="L184" class="LineNr">184 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='sandbox.mu.html#L184'>maybe-render-screen</a></span> <a href='../500fake-screen.mu.html#L14'>screen</a>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>), _self: (addr <a href='sandbox.mu.html#L1'>sandbox</a>), xmin: int, ymin: int<span class="PreProc"> -> </span>_/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> <span id="L185" class="LineNr">185 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> copy _self <span id="L186" class="LineNr">186 </span> <span class="PreProc">var</span> screen-obj-cell-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get self, screen-var -<span id="L187" class="LineNr">187 </span> <span class="PreProc">var</span> screen-obj-cell/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *screen-obj-cell-ah +<span id="L187" class="LineNr">187 </span> <span class="PreProc">var</span> screen-obj-cell/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *screen-obj-cell-ah <span id="L188" class="LineNr">188 </span> compare screen-obj-cell, <span class="Constant">0</span> <span id="L189" class="LineNr">189 </span> <span class="Delimiter">{</span> <span id="L190" class="LineNr">190 </span> <span class="PreProc">break-if-!=</span> @@ -256,7 +257,7 @@ if ('onhashchange' in window) { <span id="L197" class="LineNr">197 </span> <span class="PreProc">return</span> ymin <span class="muComment"># silently give up on rendering the screen</span> <span id="L198" class="LineNr">198 </span> <span class="Delimiter">}</span> <span id="L199" class="LineNr">199 </span> <span class="PreProc">var</span> screen-obj-ah/<span class="Constant">eax</span>: (addr handle <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> get screen-obj-cell, screen-data -<span id="L200" class="LineNr">200 </span> <span class="PreProc">var</span> _screen-obj/<span class="Constant">eax</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *screen-obj-ah +<span id="L200" class="LineNr">200 </span> <span class="PreProc">var</span> _screen-obj/<span class="Constant">eax</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *screen-obj-ah <span id="L201" class="LineNr">201 </span> <span class="PreProc">var</span> screen-obj/<span class="Constant">edx</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> copy _screen-obj <span id="L202" class="LineNr">202 </span> <span class="Delimiter">{</span> <span id="L203" class="LineNr">203 </span> <span class="PreProc">var</span> screen-empty?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../500fake-screen.mu.html#L273'>fake-screen-empty?</a> screen-obj @@ -264,7 +265,7 @@ if ('onhashchange' in window) { <span id="L205" class="LineNr">205 </span> <span class="PreProc">break-if-=</span> <span id="L206" class="LineNr">206 </span> <span class="PreProc">return</span> ymin <span id="L207" class="LineNr">207 </span> <span class="Delimiter">}</span> -<span id="L208" class="LineNr">208 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">"screen: "</span>, xmin, <span class="Constant">0x99</span>/xmax, ymin, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg +<span id="L208" class="LineNr">208 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">"screen: "</span>, xmin, <span class="Constant">0x99</span>/xmax, ymin, <span class="Constant">0x17</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg <span id="L209" class="LineNr">209 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy ymin <span id="L210" class="LineNr">210 </span> y <span class="Special"><-</span> <a href='sandbox.mu.html#L241'>render-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, screen-obj, x, y <span id="L211" class="LineNr">211 </span> <span class="PreProc">return</span> y @@ -335,7 +336,7 @@ if ('onhashchange' in window) { <span id="L276" class="LineNr">276 </span> <span class="PreProc">var</span> top: int <span id="L277" class="LineNr">277 </span> copy-to top, tmp <span id="L278" class="LineNr">278 </span> <span class="PreProc">var</span> pixels-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> get target-screen, pixels -<span id="L279" class="LineNr">279 </span> <span class="PreProc">var</span> _pixels/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *pixels-ah +<span id="L279" class="LineNr">279 </span> <span class="PreProc">var</span> _pixels/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *pixels-ah <span id="L280" class="LineNr">280 </span> <span class="PreProc">var</span> pixels/<span class="Constant">edi</span>: (addr array byte) <span class="Special"><-</span> copy _pixels <span id="L281" class="LineNr">281 </span> compare pixels, <span class="Constant">0</span> <span id="L282" class="LineNr">282 </span> <span class="PreProc">break-if-=</span> @@ -379,7 +380,7 @@ if ('onhashchange' in window) { <span id="L320" class="LineNr">320 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='sandbox.mu.html#L320'>has-keyboard?</a></span> _self: (addr <a href='sandbox.mu.html#L1'>sandbox</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> <span id="L321" class="LineNr">321 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> copy _self <span id="L322" class="LineNr">322 </span> <span class="PreProc">var</span> keyboard-obj-cell-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get self, keyboard-var -<span id="L323" class="LineNr">323 </span> <span class="PreProc">var</span> keyboard-obj-cell/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *keyboard-obj-cell-ah +<span id="L323" class="LineNr">323 </span> <span class="PreProc">var</span> keyboard-obj-cell/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *keyboard-obj-cell-ah <span id="L324" class="LineNr">324 </span> compare keyboard-obj-cell, <span class="Constant">0</span> <span id="L325" class="LineNr">325 </span> <span class="Delimiter">{</span> <span id="L326" class="LineNr">326 </span> <span class="PreProc">break-if-!=</span> @@ -392,7 +393,7 @@ if ('onhashchange' in window) { <span id="L333" class="LineNr">333 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false <span id="L334" class="LineNr">334 </span> <span class="Delimiter">}</span> <span id="L335" class="LineNr">335 </span> <span class="PreProc">var</span> keyboard-obj-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get keyboard-obj-cell, keyboard-data -<span id="L336" class="LineNr">336 </span> <span class="PreProc">var</span> _keyboard-obj/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *keyboard-obj-ah +<span id="L336" class="LineNr">336 </span> <span class="PreProc">var</span> _keyboard-obj/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *keyboard-obj-ah <span id="L337" class="LineNr">337 </span> <span class="PreProc">var</span> keyboard-obj/<span class="Constant">edx</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _keyboard-obj <span id="L338" class="LineNr">338 </span> compare keyboard-obj, <span class="Constant">0</span> <span id="L339" class="LineNr">339 </span> <span class="Delimiter">{</span> @@ -405,7 +406,7 @@ if ('onhashchange' in window) { <span id="L346" class="LineNr">346 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='sandbox.mu.html#L346'>maybe-render-keyboard</a></span> <a href='../500fake-screen.mu.html#L14'>screen</a>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>), _self: (addr <a href='sandbox.mu.html#L1'>sandbox</a>), xmin: int, ymin: int<span class="PreProc"> -> </span>_/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> <span id="L347" class="LineNr">347 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> copy _self <span id="L348" class="LineNr">348 </span> <span class="PreProc">var</span> keyboard-obj-cell-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get self, keyboard-var -<span id="L349" class="LineNr">349 </span> <span class="PreProc">var</span> keyboard-obj-cell/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *keyboard-obj-cell-ah +<span id="L349" class="LineNr">349 </span> <span class="PreProc">var</span> keyboard-obj-cell/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *keyboard-obj-cell-ah <span id="L350" class="LineNr">350 </span> compare keyboard-obj-cell, <span class="Constant">0</span> <span id="L351" class="LineNr">351 </span> <span class="Delimiter">{</span> <span id="L352" class="LineNr">352 </span> <span class="PreProc">break-if-!=</span> @@ -418,11 +419,11 @@ if ('onhashchange' in window) { <span id="L359" class="LineNr">359 </span> <span class="PreProc">return</span> ymin <span class="muComment"># silently give up on rendering the keyboard</span> <span id="L360" class="LineNr">360 </span> <span class="Delimiter">}</span> <span id="L361" class="LineNr">361 </span> <span class="PreProc">var</span> keyboard-obj-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get keyboard-obj-cell, keyboard-data -<span id="L362" class="LineNr">362 </span> <span class="PreProc">var</span> _keyboard-obj/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *keyboard-obj-ah +<span id="L362" class="LineNr">362 </span> <span class="PreProc">var</span> _keyboard-obj/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *keyboard-obj-ah <span id="L363" class="LineNr">363 </span> <span class="PreProc">var</span> keyboard-obj/<span class="Constant">edx</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _keyboard-obj <span id="L364" class="LineNr">364 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy ymin <span id="L365" class="LineNr">365 </span> y <span class="Special"><-</span> increment <span class="muComment"># padding</span> -<span id="L366" class="LineNr">366 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">"keyboard: "</span>, xmin, <span class="Constant">0x99</span>/xmax, y, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg +<span id="L366" class="LineNr">366 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">"keyboard: "</span>, xmin, <span class="Constant">0x99</span>/xmax, y, <span class="Constant">0x17</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg <span id="L367" class="LineNr">367 </span> <span class="PreProc">var</span> cursor-in-keyboard?/<span class="Constant">esi</span>: (addr boolean) <span class="Special"><-</span> get self, cursor-in-keyboard? <span id="L368" class="LineNr">368 </span> y <span class="Special"><-</span> <a href='sandbox.mu.html#L373'>render-keyboard</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, keyboard-obj, x, y, *cursor-in-keyboard? <span id="L369" class="LineNr">369 </span> y <span class="Special"><-</span> increment <span class="muComment"># padding</span> @@ -448,7 +449,7 @@ if ('onhashchange' in window) { <span id="L389" class="LineNr">389 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='sandbox.mu.html#L389'>print-screen-cell-of-fake-screen</a></span> <a href='../500fake-screen.mu.html#L14'>screen</a>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>), _target: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>), x: int, y: int <span class="Delimiter">{</span> <span id="L390" class="LineNr">390 </span> <span class="PreProc">var</span> target/<span class="Constant">ecx</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> copy _target <span id="L391" class="LineNr">391 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='../500fake-screen.mu.html#L25'>screen-cell</a>) <span class="Special"><-</span> get target, data -<span id="L392" class="LineNr">392 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='../500fake-screen.mu.html#L25'>screen-cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L392" class="LineNr">392 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='../500fake-screen.mu.html#L25'>screen-cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *data-ah <span id="L393" class="LineNr">393 </span> <span class="PreProc">var</span> index/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='../500fake-screen.mu.html#L120'>screen-cell-index</a> target, x, y <span id="L394" class="LineNr">394 </span> <span class="PreProc">var</span> offset/<span class="Constant">ecx</span>: (offset <a href='../500fake-screen.mu.html#L25'>screen-cell</a>) <span class="Special"><-</span> compute-offset data, index <span id="L395" class="LineNr">395 </span> <span class="PreProc">var</span> src-cell/<span class="Constant">esi</span>: (addr <a href='../500fake-screen.mu.html#L25'>screen-cell</a>) <span class="Special"><-</span> index data, offset @@ -476,8 +477,8 @@ if ('onhashchange' in window) { <span id="L417" class="LineNr">417 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" <a href='sandbox.mu.html#L600'>run</a> <a href='sandbox.mu.html#L1'>sandbox</a> "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg <span id="L418" class="LineNr">418 </span> $render-sandbox-menu:render-ctrl-m: <span class="Delimiter">{</span> <span id="L419" class="LineNr">419 </span> <span class="PreProc">var</span> self/<span class="Constant">eax</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> copy _self -<span id="L420" class="LineNr">420 </span> <span class="PreProc">var</span> <a href='sandbox.mu.html#L879'>has-trace?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='sandbox.mu.html#L879'>has-trace?</a> self -<span id="L421" class="LineNr">421 </span> compare <a href='sandbox.mu.html#L879'>has-trace?</a>, <span class="Constant">0</span>/false +<span id="L420" class="LineNr">420 </span> <span class="PreProc">var</span> <a href='sandbox.mu.html#L883'>has-trace?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='sandbox.mu.html#L883'>has-trace?</a> self +<span id="L421" class="LineNr">421 </span> compare <a href='sandbox.mu.html#L883'>has-trace?</a>, <span class="Constant">0</span>/false <span id="L422" class="LineNr">422 </span> <span class="Delimiter">{</span> <span id="L423" class="LineNr">423 </span> <span class="PreProc">break-if-=</span> <span id="L424" class="LineNr">424 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" m "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x38</span>/bg=trace @@ -525,14 +526,14 @@ if ('onhashchange' in window) { <span id="L466" class="LineNr">466 </span> <span class="PreProc">break-if-!=</span> <span id="L467" class="LineNr">467 </span> <span class="muComment"># minor gotcha here: any bindings created later in this iteration won't be</span> <span id="L468" class="LineNr">468 </span> <span class="muComment"># persisted until the next call to ctrl-s.</span> -<span id="L469" class="LineNr">469 </span> <a href='main.mu.html#L138'>store-state</a> data-disk, self, globals +<span id="L469" class="LineNr">469 </span> <a href='main.mu.html#L147'>store-state</a> data-disk, self, globals <span id="L470" class="LineNr">470 </span> <span class="muComment"># run sandbox</span> <span id="L471" class="LineNr">471 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">ecx</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get self, data <span id="L472" class="LineNr">472 </span> <span class="PreProc">var</span> value-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get self, value -<span id="L473" class="LineNr">473 </span> <span class="PreProc">var</span> _value/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *value-ah +<span id="L473" class="LineNr">473 </span> <span class="PreProc">var</span> _value/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *value-ah <span id="L474" class="LineNr">474 </span> <span class="PreProc">var</span> value/<span class="Constant">edx</span>: (addr stream byte) <span class="Special"><-</span> copy _value <span id="L475" class="LineNr">475 </span> <span class="PreProc">var</span> trace-ah/<span class="Constant">eax</span>: (addr handle trace) <span class="Special"><-</span> get self, trace -<span id="L476" class="LineNr">476 </span> <span class="PreProc">var</span> _trace/<span class="Constant">eax</span>: (addr trace) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *trace-ah +<span id="L476" class="LineNr">476 </span> <span class="PreProc">var</span> _trace/<span class="Constant">eax</span>: (addr trace) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *trace-ah <span id="L477" class="LineNr">477 </span> <span class="PreProc">var</span> trace/<span class="Constant">ebx</span>: (addr trace) <span class="Special"><-</span> copy _trace <span id="L478" class="LineNr">478 </span> <a href='trace.mu.html#L45'>clear-trace</a> trace <span id="L479" class="LineNr">479 </span> <span class="Delimiter">{</span> @@ -541,9 +542,9 @@ if ('onhashchange' in window) { <span id="L482" class="LineNr">482 </span> <a href='sandbox.mu.html#L144'>clear-sandbox-output</a> real-screen, self, <span class="Constant">0x56</span>/sandbox-left-margin, <span class="Constant">1</span>/y, <span class="Constant">0x80</span>/screen-width, <span class="Constant">0x2f</span>/screen-height-without-menu <span id="L483" class="LineNr">483 </span> <span class="Delimiter">}</span> <span id="L484" class="LineNr">484 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L25'>screen-cell</a>/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get self, screen-var -<span id="L485" class="LineNr">485 </span> <a href='cell.mu.html#L163'>clear-screen-cell</a> <a href='../500fake-screen.mu.html#L25'>screen-cell</a> +<span id="L485" class="LineNr">485 </span> <a href='cell.mu.html#L164'>clear-screen-cell</a> <a href='../500fake-screen.mu.html#L25'>screen-cell</a> <span id="L486" class="LineNr">486 </span> <span class="PreProc">var</span> keyboard-cell/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get self, keyboard-var -<span id="L487" class="LineNr">487 </span> <a href='cell.mu.html#L194'>rewind-keyboard-cell</a> keyboard-cell <span class="muComment"># don't clear keys from before</span> +<span id="L487" class="LineNr">487 </span> <a href='cell.mu.html#L195'>rewind-keyboard-cell</a> keyboard-cell <span class="muComment"># don't clear keys from before</span> <span id="L488" class="LineNr">488 </span> <span class="Delimiter">{</span> <span id="L489" class="LineNr">489 </span> compare tweak-real-screen?, <span class="Constant">0</span>/false <span id="L490" class="LineNr">490 </span> <span class="PreProc">break-if-=</span> @@ -561,8 +562,8 @@ if ('onhashchange' in window) { <span id="L502" class="LineNr">502 </span> <span class="PreProc">var</span> cursor-in-data?/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> get self, cursor-in-data? <span id="L503" class="LineNr">503 </span> compare *cursor-in-data?, <span class="Constant">0</span>/false <span id="L504" class="LineNr">504 </span> <span class="PreProc">break-if-=</span> -<span id="L505" class="LineNr">505 </span> <span class="PreProc">var</span> <a href='sandbox.mu.html#L879'>has-trace?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='sandbox.mu.html#L879'>has-trace?</a> self -<span id="L506" class="LineNr">506 </span> compare <a href='sandbox.mu.html#L879'>has-trace?</a>, <span class="Constant">0</span>/false +<span id="L505" class="LineNr">505 </span> <span class="PreProc">var</span> <a href='sandbox.mu.html#L883'>has-trace?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='sandbox.mu.html#L883'>has-trace?</a> self +<span id="L506" class="LineNr">506 </span> compare <a href='sandbox.mu.html#L883'>has-trace?</a>, <span class="Constant">0</span>/false <span id="L507" class="LineNr">507 </span> <span class="Delimiter">{</span> <span id="L508" class="LineNr">508 </span> <span class="PreProc">break-if-=</span> <span id="L509" class="LineNr">509 </span> <span class="PreProc">var</span> cursor-in-data?/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> get self, cursor-in-data? @@ -617,7 +618,7 @@ if ('onhashchange' in window) { <span id="L558" class="LineNr">558 </span> compare *cursor-in-data?, <span class="Constant">0</span>/false <span id="L559" class="LineNr">559 </span> <span class="PreProc">break-if-=</span> <span id="L560" class="LineNr">560 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get self, data -<span id="L561" class="LineNr">561 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L561" class="LineNr">561 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *data-ah <span id="L562" class="LineNr">562 </span> <a href='gap-buffer.mu.html#L921'>edit-gap-buffer</a> data, g <span id="L563" class="LineNr">563 </span> <span class="PreProc">return</span> <span id="L564" class="LineNr">564 </span> <span class="Delimiter">}</span> @@ -627,7 +628,7 @@ if ('onhashchange' in window) { <span id="L568" class="LineNr">568 </span> compare *cursor-in-keyboard?, <span class="Constant">0</span>/false <span id="L569" class="LineNr">569 </span> <span class="PreProc">break-if-=</span> <span id="L570" class="LineNr">570 </span> <span class="PreProc">var</span> keyboard-cell-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get self, keyboard-var -<span id="L571" class="LineNr">571 </span> <span class="PreProc">var</span> keyboard-cell/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *keyboard-cell-ah +<span id="L571" class="LineNr">571 </span> <span class="PreProc">var</span> keyboard-cell/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *keyboard-cell-ah <span id="L572" class="LineNr">572 </span> compare keyboard-cell, <span class="Constant">0</span> <span id="L573" class="LineNr">573 </span> <span class="Delimiter">{</span> <span id="L574" class="LineNr">574 </span> <span class="PreProc">break-if-!=</span> @@ -640,7 +641,7 @@ if ('onhashchange' in window) { <span id="L581" class="LineNr">581 </span> <span class="PreProc">return</span> <span id="L582" class="LineNr">582 </span> <span class="Delimiter">}</span> <span id="L583" class="LineNr">583 </span> <span class="PreProc">var</span> keyboard-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get keyboard-cell, keyboard-data -<span id="L584" class="LineNr">584 </span> <span class="PreProc">var</span> keyboard/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *keyboard-ah +<span id="L584" class="LineNr">584 </span> <span class="PreProc">var</span> keyboard/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *keyboard-ah <span id="L585" class="LineNr">585 </span> <a href='gap-buffer.mu.html#L921'>edit-gap-buffer</a> keyboard, g <span id="L586" class="LineNr">586 </span> <span class="PreProc">return</span> <span id="L587" class="LineNr">587 </span> <span class="Delimiter">}</span> @@ -650,15 +651,15 @@ if ('onhashchange' in window) { <span id="L591" class="LineNr">591 </span> compare *cursor-in-trace?, <span class="Constant">0</span>/false <span id="L592" class="LineNr">592 </span> <span class="PreProc">break-if-=</span> <span id="L593" class="LineNr">593 </span> <span class="PreProc">var</span> trace-ah/<span class="Constant">eax</span>: (addr handle trace) <span class="Special"><-</span> get self, trace -<span id="L594" class="LineNr">594 </span> <span class="PreProc">var</span> trace/<span class="Constant">eax</span>: (addr trace) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *trace-ah -<span id="L595" class="LineNr">595 </span> <a href='trace.mu.html#L704'>edit-trace</a> trace, g +<span id="L594" class="LineNr">594 </span> <span class="PreProc">var</span> trace/<span class="Constant">eax</span>: (addr trace) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *trace-ah +<span id="L595" class="LineNr">595 </span> <a href='trace.mu.html#L735'>edit-trace</a> trace, g <span id="L596" class="LineNr">596 </span> <span class="PreProc">return</span> <span id="L597" class="LineNr">597 </span> <span class="Delimiter">}</span> <span id="L598" class="LineNr">598 </span><span class="Delimiter">}</span> <span id="L599" class="LineNr">599 </span> <span id="L600" class="LineNr">600 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='sandbox.mu.html#L600'>run</a></span> _in-ah: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>), out: (addr stream byte), globals: (addr <a href='global.mu.html#L7'>global-table</a>), trace: (addr trace), <a href='../500fake-screen.mu.html#L25'>screen-cell</a>: (addr handle <a href='cell.mu.html#L1'>cell</a>), keyboard-cell: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Delimiter">{</span> <span id="L601" class="LineNr">601 </span> <span class="PreProc">var</span> in-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _in-ah -<span id="L602" class="LineNr">602 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *in-ah +<span id="L602" class="LineNr">602 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *in-ah <span id="L603" class="LineNr">603 </span> <span class="PreProc">var</span> read-result-h: (handle <a href='cell.mu.html#L1'>cell</a>) <span id="L604" class="LineNr">604 </span> <span class="PreProc">var</span> read-result-ah/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address read-result-h <span id="L605" class="LineNr">605 </span> <a href='read.mu.html#L1'>read-cell</a> in, read-result-ah, trace @@ -668,291 +669,295 @@ if ('onhashchange' in window) { <span id="L609" class="LineNr">609 </span> <span class="PreProc">break-if-=</span> <span id="L610" class="LineNr">610 </span> <span class="PreProc">return</span> <span id="L611" class="LineNr">611 </span> <span class="Delimiter">}</span> -<span id="L612" class="LineNr">612 </span> <span class="PreProc">var</span> nil-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L613" class="LineNr">613 </span> <span class="PreProc">var</span> nil-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address nil-storage -<span id="L614" class="LineNr">614 </span> <a href='cell.mu.html#L101'>allocate-pair</a> nil-ah -<span id="L615" class="LineNr">615 </span> <span class="PreProc">var</span> eval-result-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L616" class="LineNr">616 </span> <span class="PreProc">var</span> eval-result/<span class="Constant">edi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address eval-result-storage -<span id="L617" class="LineNr">617 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"^"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L618" class="LineNr">618 </span> <a href='evaluate.mu.html#L5'>evaluate</a> read-result-ah, eval-result, *nil-ah, globals, trace, <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, keyboard-cell, <span class="Constant">1</span>/call-number -<span id="L619" class="LineNr">619 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"$"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L620" class="LineNr">620 </span> <span class="PreProc">var</span> error?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='trace.mu.html#L54'>has-errors?</a> trace -<span id="L621" class="LineNr">621 </span> <span class="Delimiter">{</span> -<span id="L622" class="LineNr">622 </span> compare error?, <span class="Constant">0</span>/false -<span id="L623" class="LineNr">623 </span> <span class="PreProc">break-if-=</span> -<span id="L624" class="LineNr">624 </span> <span class="PreProc">return</span> -<span id="L625" class="LineNr">625 </span> <span class="Delimiter">}</span> -<span id="L626" class="LineNr">626 </span> <span class="muComment"># if there was no error and the read-result starts with "set" or "def", save</span> -<span id="L627" class="LineNr">627 </span> <span class="muComment"># the gap buffer in the modified global, then create a new one for the next</span> -<span id="L628" class="LineNr">628 </span> <span class="muComment"># command.</span> -<span id="L629" class="LineNr">629 </span> <a href='global.mu.html#L1861'>maybe-stash-gap-buffer-to-global</a> globals, read-result-ah, _in-ah -<span id="L630" class="LineNr">630 </span> <a href='../106stream.subx.html#L20'>clear-stream</a> out -<span id="L631" class="LineNr">631 </span> <a href='print.mu.html#L1'>print-cell</a> eval-result, out, trace -<span id="L632" class="LineNr">632 </span> <a href='trace.mu.html#L314'>mark-lines-dirty</a> trace -<span id="L633" class="LineNr">633 </span><span class="Delimiter">}</span> -<span id="L634" class="LineNr">634 </span> -<span id="L635" class="LineNr">635 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='sandbox.mu.html#L635'>read-evaluate-and-move-to-globals</a></span> _in-ah: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>), globals: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Delimiter">{</span> -<span id="L636" class="LineNr">636 </span> <span class="PreProc">var</span> in-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _in-ah -<span id="L637" class="LineNr">637 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *in-ah -<span id="L638" class="LineNr">638 </span> <span class="PreProc">var</span> read-result-h: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L639" class="LineNr">639 </span> <span class="PreProc">var</span> read-result-ah/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address read-result-h -<span id="L640" class="LineNr">640 </span> <a href='read.mu.html#L1'>read-cell</a> in, read-result-ah, <span class="Constant">0</span>/no-trace -<span id="L641" class="LineNr">641 </span> <span class="PreProc">var</span> nil-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L642" class="LineNr">642 </span> <span class="PreProc">var</span> nil-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address nil-storage -<span id="L643" class="LineNr">643 </span> <a href='cell.mu.html#L101'>allocate-pair</a> nil-ah -<span id="L644" class="LineNr">644 </span> <span class="PreProc">var</span> eval-result-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L645" class="LineNr">645 </span> <span class="PreProc">var</span> eval-result/<span class="Constant">edi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address eval-result-storage -<span id="L646" class="LineNr">646 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"^"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L647" class="LineNr">647 </span> <a href='evaluate.mu.html#L5'>evaluate</a> read-result-ah, eval-result, *nil-ah, globals, <span class="Constant">0</span>/no-trace, <span class="Constant">0</span>/no-screen-cell, <span class="Constant">0</span>/no-keyboard-cell, <span class="Constant">1</span>/call-number -<span id="L648" class="LineNr">648 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"$"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L649" class="LineNr">649 </span> <a href='global.mu.html#L1917'>move-gap-buffer-to-global</a> globals, read-result-ah, _in-ah -<span id="L650" class="LineNr">650 </span><span class="Delimiter">}</span> -<span id="L651" class="LineNr">651 </span> -<span id="L652" class="LineNr">652 </span><span class="PreProc">fn</span> <span class="muTest"><a href='sandbox.mu.html#L652'>test-run-integer</a></span> <span class="Delimiter">{</span> -<span id="L653" class="LineNr">653 </span> <span class="PreProc">var</span> sandbox-storage: <a href='sandbox.mu.html#L1'>sandbox</a> -<span id="L654" class="LineNr">654 </span> <span class="PreProc">var</span> <a href='sandbox.mu.html#L1'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> address sandbox-storage -<span id="L655" class="LineNr">655 </span> <a href='sandbox.mu.html#L41'>initialize-sandbox-with</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">"1"</span> -<span id="L656" class="LineNr">656 </span> <span class="muComment"># eval</span> -<span id="L657" class="LineNr">657 </span> <a href='sandbox.mu.html#L460'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0x13</span>/ctrl-s, <span class="Constant">0</span>/no-globals, <span class="Constant">0</span>/no-disk, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-tweak-screen -<span id="L658" class="LineNr">658 </span> <span class="muComment"># setup: screen</span> -<span id="L659" class="LineNr">659 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L660" class="LineNr">660 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack -<span id="L661" class="LineNr">661 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height, <span class="Constant">0</span>/no-pixel-graphics -<span id="L662" class="LineNr">662 </span> <span class="muComment">#</span> -<span id="L663" class="LineNr">663 </span> <a href='sandbox.mu.html#L81'>render-sandbox</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height -<span id="L664" class="LineNr">664 </span> <span class="muComment"># skip one line of padding</span> -<span id="L665" class="LineNr">665 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" 1 "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L652'>test-run-integer</a>/0"</span> -<span id="L666" class="LineNr">666 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">" ... "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L652'>test-run-integer</a>/1"</span> -<span id="L667" class="LineNr">667 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">3</span>/y, <span class="Constant">" => 1 "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L652'>test-run-integer</a>/2"</span> -<span id="L668" class="LineNr">668 </span><span class="Delimiter">}</span> -<span id="L669" class="LineNr">669 </span> -<span id="L670" class="LineNr">670 </span><span class="PreProc">fn</span> <span class="muTest"><a href='sandbox.mu.html#L670'>test-run-error-invalid-integer</a></span> <span class="Delimiter">{</span> -<span id="L671" class="LineNr">671 </span> <span class="PreProc">var</span> sandbox-storage: <a href='sandbox.mu.html#L1'>sandbox</a> -<span id="L672" class="LineNr">672 </span> <span class="PreProc">var</span> <a href='sandbox.mu.html#L1'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> address sandbox-storage -<span id="L673" class="LineNr">673 </span> <a href='sandbox.mu.html#L41'>initialize-sandbox-with</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">"1a"</span> -<span id="L674" class="LineNr">674 </span> <span class="muComment"># eval</span> -<span id="L675" class="LineNr">675 </span> <a href='sandbox.mu.html#L460'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0x13</span>/ctrl-s, <span class="Constant">0</span>/no-globals, <span class="Constant">0</span>/no-disk, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-tweak-screen -<span id="L676" class="LineNr">676 </span> <span class="muComment"># setup: screen</span> -<span id="L677" class="LineNr">677 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L678" class="LineNr">678 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack -<span id="L679" class="LineNr">679 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height, <span class="Constant">0</span>/no-pixel-graphics -<span id="L680" class="LineNr">680 </span> <span class="muComment">#</span> -<span id="L681" class="LineNr">681 </span> <a href='sandbox.mu.html#L81'>render-sandbox</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height -<span id="L682" class="LineNr">682 </span> <span class="muComment"># skip one line of padding</span> -<span id="L683" class="LineNr">683 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" 1a "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L670'>test-run-error-invalid-integer</a>/0"</span> -<span id="L684" class="LineNr">684 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">" ... "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L670'>test-run-error-invalid-integer</a>/0"</span> -<span id="L685" class="LineNr">685 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">3</span>/y, <span class="Constant">" invalid number "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L670'>test-run-error-invalid-integer</a>/2"</span> -<span id="L686" class="LineNr">686 </span><span class="Delimiter">}</span> -<span id="L687" class="LineNr">687 </span> -<span id="L688" class="LineNr">688 </span><span class="PreProc">fn</span> <span class="muTest"><a href='sandbox.mu.html#L688'>test-run-with-spaces</a></span> <span class="Delimiter">{</span> -<span id="L689" class="LineNr">689 </span> <span class="PreProc">var</span> sandbox-storage: <a href='sandbox.mu.html#L1'>sandbox</a> -<span id="L690" class="LineNr">690 </span> <span class="PreProc">var</span> <a href='sandbox.mu.html#L1'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> address sandbox-storage -<span id="L691" class="LineNr">691 </span> <a href='sandbox.mu.html#L41'>initialize-sandbox-with</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">" 1 \n"</span> -<span id="L692" class="LineNr">692 </span> <span class="muComment"># eval</span> -<span id="L693" class="LineNr">693 </span> <a href='sandbox.mu.html#L460'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0x13</span>/ctrl-s, <span class="Constant">0</span>/no-globals, <span class="Constant">0</span>/no-disk, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-tweak-screen -<span id="L694" class="LineNr">694 </span> <span class="muComment"># setup: screen</span> -<span id="L695" class="LineNr">695 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L696" class="LineNr">696 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack -<span id="L697" class="LineNr">697 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height, <span class="Constant">0</span>/no-pixel-graphics -<span id="L698" class="LineNr">698 </span> <span class="muComment">#</span> -<span id="L699" class="LineNr">699 </span> <a href='sandbox.mu.html#L81'>render-sandbox</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height -<span id="L700" class="LineNr">700 </span> <span class="muComment"># skip one line of padding</span> -<span id="L701" class="LineNr">701 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" 1 "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L688'>test-run-with-spaces</a>/0"</span> -<span id="L702" class="LineNr">702 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L688'>test-run-with-spaces</a>/1"</span> -<span id="L703" class="LineNr">703 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">3</span>/y, <span class="Constant">" ... "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L688'>test-run-with-spaces</a>/2"</span> -<span id="L704" class="LineNr">704 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">4</span>/y, <span class="Constant">" => 1 "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L688'>test-run-with-spaces</a>/3"</span> -<span id="L705" class="LineNr">705 </span><span class="Delimiter">}</span> -<span id="L706" class="LineNr">706 </span> -<span id="L707" class="LineNr">707 </span><span class="PreProc">fn</span> <span class="muTest"><a href='sandbox.mu.html#L707'>test-run-quote</a></span> <span class="Delimiter">{</span> -<span id="L708" class="LineNr">708 </span> <span class="PreProc">var</span> sandbox-storage: <a href='sandbox.mu.html#L1'>sandbox</a> -<span id="L709" class="LineNr">709 </span> <span class="PreProc">var</span> <a href='sandbox.mu.html#L1'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> address sandbox-storage -<span id="L710" class="LineNr">710 </span> <a href='sandbox.mu.html#L41'>initialize-sandbox-with</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">"'a"</span> -<span id="L711" class="LineNr">711 </span> <span class="muComment"># eval</span> -<span id="L712" class="LineNr">712 </span> <a href='sandbox.mu.html#L460'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0x13</span>/ctrl-s, <span class="Constant">0</span>/no-globals, <span class="Constant">0</span>/no-disk, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-tweak-screen -<span id="L713" class="LineNr">713 </span> <span class="muComment"># setup: screen</span> -<span id="L714" class="LineNr">714 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L715" class="LineNr">715 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack -<span id="L716" class="LineNr">716 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height, <span class="Constant">0</span>/no-pixel-graphics -<span id="L717" class="LineNr">717 </span> <span class="muComment">#</span> -<span id="L718" class="LineNr">718 </span> <a href='sandbox.mu.html#L81'>render-sandbox</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height -<span id="L719" class="LineNr">719 </span> <span class="muComment"># skip one line of padding</span> -<span id="L720" class="LineNr">720 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" 'a "</span>, <span class="Constant">"F - test-run-quote/0"</span> -<span id="L721" class="LineNr">721 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">" ... "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L707'>test-run-quote</a>/1"</span> -<span id="L722" class="LineNr">722 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">3</span>/y, <span class="Constant">" => a "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L707'>test-run-quote</a>/2"</span> -<span id="L723" class="LineNr">723 </span><span class="Delimiter">}</span> -<span id="L724" class="LineNr">724 </span> -<span id="L725" class="LineNr">725 </span><span class="PreProc">fn</span> <span class="muTest"><a href='sandbox.mu.html#L725'>test-run-dotted-list</a></span> <span class="Delimiter">{</span> -<span id="L726" class="LineNr">726 </span> <span class="PreProc">var</span> sandbox-storage: <a href='sandbox.mu.html#L1'>sandbox</a> -<span id="L727" class="LineNr">727 </span> <span class="PreProc">var</span> <a href='sandbox.mu.html#L1'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> address sandbox-storage -<span id="L728" class="LineNr">728 </span> <a href='sandbox.mu.html#L41'>initialize-sandbox-with</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">"'(a . b)"</span> -<span id="L729" class="LineNr">729 </span> <span class="muComment"># eval</span> -<span id="L730" class="LineNr">730 </span> <a href='sandbox.mu.html#L460'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0x13</span>/ctrl-s, <span class="Constant">0</span>/no-globals, <span class="Constant">0</span>/no-disk, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-tweak-screen -<span id="L731" class="LineNr">731 </span> <span class="muComment"># setup: screen</span> -<span id="L732" class="LineNr">732 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L733" class="LineNr">733 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack -<span id="L734" class="LineNr">734 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height, <span class="Constant">0</span>/no-pixel-graphics -<span id="L735" class="LineNr">735 </span> <span class="muComment">#</span> -<span id="L736" class="LineNr">736 </span> <a href='sandbox.mu.html#L81'>render-sandbox</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height -<span id="L737" class="LineNr">737 </span> <span class="muComment"># skip one line of padding</span> -<span id="L738" class="LineNr">738 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" '(a . b) "</span>, <span class="Constant">"F - test-run-dotted-list/0"</span> -<span id="L739" class="LineNr">739 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">" ... "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L725'>test-run-dotted-list</a>/1"</span> -<span id="L740" class="LineNr">740 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">3</span>/y, <span class="Constant">" => (a . b) "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L725'>test-run-dotted-list</a>/2"</span> -<span id="L741" class="LineNr">741 </span><span class="Delimiter">}</span> -<span id="L742" class="LineNr">742 </span> -<span id="L743" class="LineNr">743 </span><span class="PreProc">fn</span> <span class="muTest"><a href='sandbox.mu.html#L743'>test-run-dot-and-list</a></span> <span class="Delimiter">{</span> -<span id="L744" class="LineNr">744 </span> <span class="PreProc">var</span> sandbox-storage: <a href='sandbox.mu.html#L1'>sandbox</a> -<span id="L745" class="LineNr">745 </span> <span class="PreProc">var</span> <a href='sandbox.mu.html#L1'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> address sandbox-storage -<span id="L746" class="LineNr">746 </span> <a href='sandbox.mu.html#L41'>initialize-sandbox-with</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">"'(a . (b))"</span> -<span id="L747" class="LineNr">747 </span> <span class="muComment"># eval</span> -<span id="L748" class="LineNr">748 </span> <a href='sandbox.mu.html#L460'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0x13</span>/ctrl-s, <span class="Constant">0</span>/no-globals, <span class="Constant">0</span>/no-disk, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-tweak-screen -<span id="L749" class="LineNr">749 </span> <span class="muComment"># setup: screen</span> -<span id="L750" class="LineNr">750 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L751" class="LineNr">751 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack -<span id="L752" class="LineNr">752 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height, <span class="Constant">0</span>/no-pixel-graphics -<span id="L753" class="LineNr">753 </span> <span class="muComment">#</span> -<span id="L754" class="LineNr">754 </span> <a href='sandbox.mu.html#L81'>render-sandbox</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height -<span id="L755" class="LineNr">755 </span> <span class="muComment"># skip one line of padding</span> -<span id="L756" class="LineNr">756 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" '(a . (b)) "</span>, <span class="Constant">"F - test-run-dot-and-list/0"</span> -<span id="L757" class="LineNr">757 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">" ... "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L743'>test-run-dot-and-list</a>/1"</span> -<span id="L758" class="LineNr">758 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">3</span>/y, <span class="Constant">" => (a b) "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L743'>test-run-dot-and-list</a>/2"</span> -<span id="L759" class="LineNr">759 </span><span class="Delimiter">}</span> -<span id="L760" class="LineNr">760 </span> -<span id="L761" class="LineNr">761 </span><span class="PreProc">fn</span> <span class="muTest"><a href='sandbox.mu.html#L761'>test-run-final-dot</a></span> <span class="Delimiter">{</span> -<span id="L762" class="LineNr">762 </span> <span class="PreProc">var</span> sandbox-storage: <a href='sandbox.mu.html#L1'>sandbox</a> -<span id="L763" class="LineNr">763 </span> <span class="PreProc">var</span> <a href='sandbox.mu.html#L1'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> address sandbox-storage -<span id="L764" class="LineNr">764 </span> <a href='sandbox.mu.html#L41'>initialize-sandbox-with</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">"'(a .)"</span> -<span id="L765" class="LineNr">765 </span> <span class="muComment"># eval</span> -<span id="L766" class="LineNr">766 </span> <a href='sandbox.mu.html#L460'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0x13</span>/ctrl-s, <span class="Constant">0</span>/no-globals, <span class="Constant">0</span>/no-disk, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-tweak-screen -<span id="L767" class="LineNr">767 </span> <span class="muComment"># setup: screen</span> -<span id="L768" class="LineNr">768 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L769" class="LineNr">769 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack -<span id="L770" class="LineNr">770 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height, <span class="Constant">0</span>/no-pixel-graphics -<span id="L771" class="LineNr">771 </span> <span class="muComment">#</span> -<span id="L772" class="LineNr">772 </span> <a href='sandbox.mu.html#L81'>render-sandbox</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height -<span id="L773" class="LineNr">773 </span> <span class="muComment"># skip one line of padding</span> -<span id="L774" class="LineNr">774 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" '(a .) "</span>, <span class="Constant">"F - test-run-final-dot/0"</span> -<span id="L775" class="LineNr">775 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">" ... "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L761'>test-run-final-dot</a>/1"</span> -<span id="L776" class="LineNr">776 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">3</span>/y, <span class="Constant">" '. )' makes no sense "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L761'>test-run-final-dot</a>/2"</span> -<span id="L777" class="LineNr">777 </span> <span class="muComment"># further errors may occur</span> -<span id="L778" class="LineNr">778 </span><span class="Delimiter">}</span> -<span id="L779" class="LineNr">779 </span> -<span id="L780" class="LineNr">780 </span><span class="PreProc">fn</span> <span class="muTest"><a href='sandbox.mu.html#L780'>test-run-double-dot</a></span> <span class="Delimiter">{</span> -<span id="L781" class="LineNr">781 </span> <span class="PreProc">var</span> sandbox-storage: <a href='sandbox.mu.html#L1'>sandbox</a> -<span id="L782" class="LineNr">782 </span> <span class="PreProc">var</span> <a href='sandbox.mu.html#L1'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> address sandbox-storage -<span id="L783" class="LineNr">783 </span> <a href='sandbox.mu.html#L41'>initialize-sandbox-with</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">"'(a . .)"</span> -<span id="L784" class="LineNr">784 </span> <span class="muComment"># eval</span> -<span id="L785" class="LineNr">785 </span> <a href='sandbox.mu.html#L460'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0x13</span>/ctrl-s, <span class="Constant">0</span>/no-globals, <span class="Constant">0</span>/no-disk, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-tweak-screen -<span id="L786" class="LineNr">786 </span> <span class="muComment"># setup: screen</span> -<span id="L787" class="LineNr">787 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L788" class="LineNr">788 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack -<span id="L789" class="LineNr">789 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height, <span class="Constant">0</span>/no-pixel-graphics -<span id="L790" class="LineNr">790 </span> <span class="muComment">#</span> -<span id="L791" class="LineNr">791 </span> <a href='sandbox.mu.html#L81'>render-sandbox</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height -<span id="L792" class="LineNr">792 </span> <span class="muComment"># skip one line of padding</span> -<span id="L793" class="LineNr">793 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" '(a . .) "</span>, <span class="Constant">"F - test-run-double-dot/0"</span> -<span id="L794" class="LineNr">794 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">" ... "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L780'>test-run-double-dot</a>/1"</span> -<span id="L795" class="LineNr">795 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">3</span>/y, <span class="Constant">" '. .' makes no sense "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L780'>test-run-double-dot</a>/2"</span> -<span id="L796" class="LineNr">796 </span> <span class="muComment"># further errors may occur</span> -<span id="L797" class="LineNr">797 </span><span class="Delimiter">}</span> -<span id="L798" class="LineNr">798 </span> -<span id="L799" class="LineNr">799 </span><span class="PreProc">fn</span> <span class="muTest"><a href='sandbox.mu.html#L799'>test-run-multiple-expressions-after-dot</a></span> <span class="Delimiter">{</span> -<span id="L800" class="LineNr">800 </span> <span class="PreProc">var</span> sandbox-storage: <a href='sandbox.mu.html#L1'>sandbox</a> -<span id="L801" class="LineNr">801 </span> <span class="PreProc">var</span> <a href='sandbox.mu.html#L1'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> address sandbox-storage -<span id="L802" class="LineNr">802 </span> <a href='sandbox.mu.html#L41'>initialize-sandbox-with</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">"'(a . b c)"</span> -<span id="L803" class="LineNr">803 </span> <span class="muComment"># eval</span> -<span id="L804" class="LineNr">804 </span> <a href='sandbox.mu.html#L460'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0x13</span>/ctrl-s, <span class="Constant">0</span>/no-globals, <span class="Constant">0</span>/no-disk, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-tweak-screen -<span id="L805" class="LineNr">805 </span> <span class="muComment"># setup: screen</span> -<span id="L806" class="LineNr">806 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L807" class="LineNr">807 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack -<span id="L808" class="LineNr">808 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height, <span class="Constant">0</span>/no-pixel-graphics -<span id="L809" class="LineNr">809 </span> <span class="muComment">#</span> -<span id="L810" class="LineNr">810 </span> <a href='sandbox.mu.html#L81'>render-sandbox</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height -<span id="L811" class="LineNr">811 </span> <span class="muComment"># skip one line of padding</span> -<span id="L812" class="LineNr">812 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" '(a . b c) "</span>, <span class="Constant">"F - test-run-multiple-expressions-after-dot/0"</span> -<span id="L813" class="LineNr">813 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">" ... "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L799'>test-run-multiple-expressions-after-dot</a>/1"</span> -<span id="L814" class="LineNr">814 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">3</span>/y, <span class="Constant">" cannot have multiple expressions between '.' and ')' "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L799'>test-run-multiple-expressions-after-dot</a>/2"</span> -<span id="L815" class="LineNr">815 </span> <span class="muComment"># further errors may occur</span> -<span id="L816" class="LineNr">816 </span><span class="Delimiter">}</span> -<span id="L817" class="LineNr">817 </span> -<span id="L818" class="LineNr">818 </span><span class="PreProc">fn</span> <span class="muTest"><a href='sandbox.mu.html#L818'>test-run-stream</a></span> <span class="Delimiter">{</span> -<span id="L819" class="LineNr">819 </span> <span class="PreProc">var</span> sandbox-storage: <a href='sandbox.mu.html#L1'>sandbox</a> -<span id="L820" class="LineNr">820 </span> <span class="PreProc">var</span> <a href='sandbox.mu.html#L1'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> address sandbox-storage -<span id="L821" class="LineNr">821 </span> <a href='sandbox.mu.html#L41'>initialize-sandbox-with</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">"[a b]"</span> -<span id="L822" class="LineNr">822 </span> <span class="muComment"># eval</span> -<span id="L823" class="LineNr">823 </span> <a href='sandbox.mu.html#L460'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0x13</span>/ctrl-s, <span class="Constant">0</span>/no-globals, <span class="Constant">0</span>/no-disk, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-tweak-screen -<span id="L824" class="LineNr">824 </span> <span class="muComment"># setup: screen</span> -<span id="L825" class="LineNr">825 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L826" class="LineNr">826 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack -<span id="L827" class="LineNr">827 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height, <span class="Constant">0</span>/no-pixel-graphics -<span id="L828" class="LineNr">828 </span> <span class="muComment">#</span> -<span id="L829" class="LineNr">829 </span> <a href='sandbox.mu.html#L81'>render-sandbox</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height -<span id="L830" class="LineNr">830 </span> <span class="muComment"># skip one line of padding</span> -<span id="L831" class="LineNr">831 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" [a b] "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L818'>test-run-stream</a>/0"</span> -<span id="L832" class="LineNr">832 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">" ... "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L818'>test-run-stream</a>/1"</span> -<span id="L833" class="LineNr">833 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">3</span>/y, <span class="Constant">" => [a b] "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L818'>test-run-stream</a>/2"</span> -<span id="L834" class="LineNr">834 </span><span class="Delimiter">}</span> -<span id="L835" class="LineNr">835 </span> -<span id="L836" class="LineNr">836 </span><span class="PreProc">fn</span> <span class="muTest"><a href='sandbox.mu.html#L836'>test-run-move-cursor-into-trace</a></span> <span class="Delimiter">{</span> -<span id="L837" class="LineNr">837 </span> <span class="PreProc">var</span> sandbox-storage: <a href='sandbox.mu.html#L1'>sandbox</a> -<span id="L838" class="LineNr">838 </span> <span class="PreProc">var</span> <a href='sandbox.mu.html#L1'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> address sandbox-storage -<span id="L839" class="LineNr">839 </span> <a href='sandbox.mu.html#L41'>initialize-sandbox-with</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">"12"</span> -<span id="L840" class="LineNr">840 </span> <span class="muComment"># eval</span> -<span id="L841" class="LineNr">841 </span> <a href='sandbox.mu.html#L460'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0x13</span>/ctrl-s, <span class="Constant">0</span>/no-globals, <span class="Constant">0</span>/no-disk, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-tweak-screen -<span id="L842" class="LineNr">842 </span> <span class="muComment"># setup: screen</span> -<span id="L843" class="LineNr">843 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L844" class="LineNr">844 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack -<span id="L845" class="LineNr">845 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height, <span class="Constant">0</span>/no-pixel-graphics -<span id="L846" class="LineNr">846 </span> <span class="muComment">#</span> -<span id="L847" class="LineNr">847 </span> <a href='sandbox.mu.html#L81'>render-sandbox</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height -<span id="L848" class="LineNr">848 </span> <span class="muComment"># skip one line of padding</span> -<span id="L849" class="LineNr">849 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" 12 "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L836'>test-run-move-cursor-into-trace</a>/pre-0"</span> -<span id="L850" class="LineNr">850 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" | "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L836'>test-run-move-cursor-into-trace</a>/pre-0/cursor"</span> -<span id="L851" class="LineNr">851 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">" ... "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L836'>test-run-move-cursor-into-trace</a>/pre-1"</span> -<span id="L852" class="LineNr">852 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L836'>test-run-move-cursor-into-trace</a>/pre-1/cursor"</span> -<span id="L853" class="LineNr">853 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">3</span>/y, <span class="Constant">" => 12 "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L836'>test-run-move-cursor-into-trace</a>/pre-2"</span> -<span id="L854" class="LineNr">854 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">3</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L836'>test-run-move-cursor-into-trace</a>/pre-2/cursor"</span> -<span id="L855" class="LineNr">855 </span> <span class="muComment"># move cursor into trace</span> -<span id="L856" class="LineNr">856 </span> <a href='sandbox.mu.html#L460'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0xd</span>/ctrl-m, <span class="Constant">0</span>/no-globals, <span class="Constant">0</span>/no-disk, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-tweak-screen -<span id="L857" class="LineNr">857 </span> <span class="muComment">#</span> -<span id="L858" class="LineNr">858 </span> <a href='sandbox.mu.html#L81'>render-sandbox</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height -<span id="L859" class="LineNr">859 </span> <span class="muComment"># skip one line of padding</span> -<span id="L860" class="LineNr">860 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" 12 "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L836'>test-run-move-cursor-into-trace</a>/trace-0"</span> -<span id="L861" class="LineNr">861 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L836'>test-run-move-cursor-into-trace</a>/trace-0/cursor"</span> -<span id="L862" class="LineNr">862 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">" ... "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L836'>test-run-move-cursor-into-trace</a>/trace-1"</span> -<span id="L863" class="LineNr">863 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" ||| "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L836'>test-run-move-cursor-into-trace</a>/trace-1/cursor"</span> -<span id="L864" class="LineNr">864 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">3</span>/y, <span class="Constant">" => 12 "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L836'>test-run-move-cursor-into-trace</a>/trace-2"</span> -<span id="L865" class="LineNr">865 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">3</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L836'>test-run-move-cursor-into-trace</a>/trace-2/cursor"</span> -<span id="L866" class="LineNr">866 </span> <span class="muComment"># move cursor into input</span> -<span id="L867" class="LineNr">867 </span> <a href='sandbox.mu.html#L460'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0xd</span>/ctrl-m, <span class="Constant">0</span>/no-globals, <span class="Constant">0</span>/no-disk, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-tweak-screen -<span id="L868" class="LineNr">868 </span> <span class="muComment">#</span> -<span id="L869" class="LineNr">869 </span> <a href='sandbox.mu.html#L81'>render-sandbox</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height -<span id="L870" class="LineNr">870 </span> <span class="muComment"># skip one line of padding</span> -<span id="L871" class="LineNr">871 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" 12 "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L836'>test-run-move-cursor-into-trace</a>/input-0"</span> -<span id="L872" class="LineNr">872 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" | "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L836'>test-run-move-cursor-into-trace</a>/input-0/cursor"</span> -<span id="L873" class="LineNr">873 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">" ... "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L836'>test-run-move-cursor-into-trace</a>/input-1"</span> -<span id="L874" class="LineNr">874 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L836'>test-run-move-cursor-into-trace</a>/input-1/cursor"</span> -<span id="L875" class="LineNr">875 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">3</span>/y, <span class="Constant">" => 12 "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L836'>test-run-move-cursor-into-trace</a>/input-2"</span> -<span id="L876" class="LineNr">876 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">3</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L836'>test-run-move-cursor-into-trace</a>/input-2/cursor"</span> -<span id="L877" class="LineNr">877 </span><span class="Delimiter">}</span> -<span id="L878" class="LineNr">878 </span> -<span id="L879" class="LineNr">879 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='sandbox.mu.html#L879'>has-trace?</a></span> _self: (addr <a href='sandbox.mu.html#L1'>sandbox</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L880" class="LineNr">880 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> copy _self -<span id="L881" class="LineNr">881 </span> <span class="PreProc">var</span> trace-ah/<span class="Constant">eax</span>: (addr handle trace) <span class="Special"><-</span> get self, trace -<span id="L882" class="LineNr">882 </span> <span class="PreProc">var</span> _trace/<span class="Constant">eax</span>: (addr trace) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *trace-ah -<span id="L883" class="LineNr">883 </span> <span class="PreProc">var</span> trace/<span class="Constant">edx</span>: (addr trace) <span class="Special"><-</span> copy _trace -<span id="L884" class="LineNr">884 </span> compare trace, <span class="Constant">0</span> -<span id="L885" class="LineNr">885 </span> <span class="Delimiter">{</span> -<span id="L886" class="LineNr">886 </span> <span class="PreProc">break-if-!=</span> -<span id="L887" class="LineNr">887 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L888" class="LineNr">888 </span> <span class="Delimiter">}</span> -<span id="L889" class="LineNr">889 </span> <span class="PreProc">var</span> first-free/<span class="Constant">ebx</span>: (addr int) <span class="Special"><-</span> get trace, first-free -<span id="L890" class="LineNr">890 </span> compare *first-free, <span class="Constant">0</span> -<span id="L891" class="LineNr">891 </span> <span class="Delimiter">{</span> -<span id="L892" class="LineNr">892 </span> <span class="PreProc">break-if-></span> -<span id="L893" class="LineNr">893 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L894" class="LineNr">894 </span> <span class="Delimiter">}</span> -<span id="L895" class="LineNr">895 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true -<span id="L896" class="LineNr">896 </span><span class="Delimiter">}</span> +<span id="L612" class="LineNr">612 </span> <a href='macroexpand.mu.html#L1'>macroexpand</a> read-result-ah, globals, trace +<span id="L613" class="LineNr">613 </span> <span class="PreProc">var</span> nil-h: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L614" class="LineNr">614 </span> <span class="PreProc">var</span> nil-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address nil-h +<span id="L615" class="LineNr">615 </span> <a href='cell.mu.html#L102'>allocate-pair</a> nil-ah +<span id="L616" class="LineNr">616 </span> <span class="PreProc">var</span> eval-result-h: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L617" class="LineNr">617 </span> <span class="PreProc">var</span> eval-result-ah/<span class="Constant">edi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address eval-result-h +<span id="L618" class="LineNr">618 </span><span class="CommentedCode">#? set-cursor-position 0/screen, 0 0</span> +<span id="L619" class="LineNr">619 </span><span class="CommentedCode">#? turn-on-debug-print</span> +<span id="L620" class="LineNr">620 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"^"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0</span>/bg +<span id="L621" class="LineNr">621 </span> <a href='evaluate.mu.html#L5'>evaluate</a> read-result-ah, eval-result-ah, *nil-ah, globals, trace, <a href='../500fake-screen.mu.html#L25'>screen-cell</a>, keyboard-cell, <span class="Constant">1</span>/call-number +<span id="L622" class="LineNr">622 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"$"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0</span>/bg +<span id="L623" class="LineNr">623 </span> <span class="PreProc">var</span> error?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='trace.mu.html#L54'>has-errors?</a> trace +<span id="L624" class="LineNr">624 </span> <span class="Delimiter">{</span> +<span id="L625" class="LineNr">625 </span> compare error?, <span class="Constant">0</span>/false +<span id="L626" class="LineNr">626 </span> <span class="PreProc">break-if-=</span> +<span id="L627" class="LineNr">627 </span> <span class="PreProc">return</span> +<span id="L628" class="LineNr">628 </span> <span class="Delimiter">}</span> +<span id="L629" class="LineNr">629 </span> <span class="muComment"># if there was no error and the read-result starts with "set" or "def", save</span> +<span id="L630" class="LineNr">630 </span> <span class="muComment"># the gap buffer in the modified global, then create a new one for the next</span> +<span id="L631" class="LineNr">631 </span> <span class="muComment"># command.</span> +<span id="L632" class="LineNr">632 </span> <a href='global.mu.html#L1967'>maybe-stash-gap-buffer-to-global</a> globals, read-result-ah, _in-ah +<span id="L633" class="LineNr">633 </span> <a href='../106stream.subx.html#L20'>clear-stream</a> out +<span id="L634" class="LineNr">634 </span> <a href='print.mu.html#L1'>print-cell</a> eval-result-ah, out, trace +<span id="L635" class="LineNr">635 </span> <a href='trace.mu.html#L345'>mark-lines-dirty</a> trace +<span id="L636" class="LineNr">636 </span><span class="Delimiter">}</span> +<span id="L637" class="LineNr">637 </span> +<span id="L638" class="LineNr">638 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='sandbox.mu.html#L638'>read-evaluate-and-move-to-globals</a></span> _in-ah: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>), globals: (addr <a href='global.mu.html#L7'>global-table</a>) <span class="Delimiter">{</span> +<span id="L639" class="LineNr">639 </span> <span class="PreProc">var</span> in-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _in-ah +<span id="L640" class="LineNr">640 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *in-ah +<span id="L641" class="LineNr">641 </span> <span class="PreProc">var</span> read-result-h: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L642" class="LineNr">642 </span> <span class="PreProc">var</span> read-result-ah/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address read-result-h +<span id="L643" class="LineNr">643 </span> <a href='read.mu.html#L1'>read-cell</a> in, read-result-ah, <span class="Constant">0</span>/no-trace +<span id="L644" class="LineNr">644 </span> <a href='macroexpand.mu.html#L1'>macroexpand</a> read-result-ah, globals, <span class="Constant">0</span>/no-trace +<span id="L645" class="LineNr">645 </span> <span class="PreProc">var</span> nil-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L646" class="LineNr">646 </span> <span class="PreProc">var</span> nil-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address nil-storage +<span id="L647" class="LineNr">647 </span> <a href='cell.mu.html#L102'>allocate-pair</a> nil-ah +<span id="L648" class="LineNr">648 </span> <span class="PreProc">var</span> eval-result-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L649" class="LineNr">649 </span> <span class="PreProc">var</span> eval-result/<span class="Constant">edi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address eval-result-storage +<span id="L650" class="LineNr">650 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"^"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0</span>/bg +<span id="L651" class="LineNr">651 </span> <a href='evaluate.mu.html#L5'>evaluate</a> read-result-ah, eval-result, *nil-ah, globals, <span class="Constant">0</span>/no-trace, <span class="Constant">0</span>/no-screen-cell, <span class="Constant">0</span>/no-keyboard-cell, <span class="Constant">1</span>/call-number +<span id="L652" class="LineNr">652 </span> <a href='../315stack-debug.subx.html#L56'>debug-print</a> <span class="Constant">"$"</span>, <span class="Constant">4</span>/fg, <span class="Constant">0</span>/bg +<span id="L653" class="LineNr">653 </span> <a href='global.mu.html#L2029'>move-gap-buffer-to-global</a> globals, read-result-ah, _in-ah +<span id="L654" class="LineNr">654 </span><span class="Delimiter">}</span> +<span id="L655" class="LineNr">655 </span> +<span id="L656" class="LineNr">656 </span><span class="PreProc">fn</span> <span class="muTest"><a href='sandbox.mu.html#L656'>test-run-integer</a></span> <span class="Delimiter">{</span> +<span id="L657" class="LineNr">657 </span> <span class="PreProc">var</span> sandbox-storage: <a href='sandbox.mu.html#L1'>sandbox</a> +<span id="L658" class="LineNr">658 </span> <span class="PreProc">var</span> <a href='sandbox.mu.html#L1'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> address sandbox-storage +<span id="L659" class="LineNr">659 </span> <a href='sandbox.mu.html#L41'>initialize-sandbox-with</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">"1"</span> +<span id="L660" class="LineNr">660 </span> <span class="muComment"># eval</span> +<span id="L661" class="LineNr">661 </span> <a href='sandbox.mu.html#L460'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0x13</span>/ctrl-s, <span class="Constant">0</span>/no-globals, <span class="Constant">0</span>/no-disk, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-tweak-screen +<span id="L662" class="LineNr">662 </span> <span class="muComment"># setup: screen</span> +<span id="L663" class="LineNr">663 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L664" class="LineNr">664 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L665" class="LineNr">665 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height, <span class="Constant">0</span>/no-pixel-graphics +<span id="L666" class="LineNr">666 </span> <span class="muComment">#</span> +<span id="L667" class="LineNr">667 </span> <a href='sandbox.mu.html#L81'>render-sandbox</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height +<span id="L668" class="LineNr">668 </span> <span class="muComment"># skip one line of padding</span> +<span id="L669" class="LineNr">669 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" 1 "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L656'>test-run-integer</a>/0"</span> +<span id="L670" class="LineNr">670 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">" ... "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L656'>test-run-integer</a>/1"</span> +<span id="L671" class="LineNr">671 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">3</span>/y, <span class="Constant">" => 1 "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L656'>test-run-integer</a>/2"</span> +<span id="L672" class="LineNr">672 </span><span class="Delimiter">}</span> +<span id="L673" class="LineNr">673 </span> +<span id="L674" class="LineNr">674 </span><span class="PreProc">fn</span> <span class="muTest"><a href='sandbox.mu.html#L674'>test-run-error-invalid-integer</a></span> <span class="Delimiter">{</span> +<span id="L675" class="LineNr">675 </span> <span class="PreProc">var</span> sandbox-storage: <a href='sandbox.mu.html#L1'>sandbox</a> +<span id="L676" class="LineNr">676 </span> <span class="PreProc">var</span> <a href='sandbox.mu.html#L1'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> address sandbox-storage +<span id="L677" class="LineNr">677 </span> <a href='sandbox.mu.html#L41'>initialize-sandbox-with</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">"1a"</span> +<span id="L678" class="LineNr">678 </span> <span class="muComment"># eval</span> +<span id="L679" class="LineNr">679 </span> <a href='sandbox.mu.html#L460'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0x13</span>/ctrl-s, <span class="Constant">0</span>/no-globals, <span class="Constant">0</span>/no-disk, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-tweak-screen +<span id="L680" class="LineNr">680 </span> <span class="muComment"># setup: screen</span> +<span id="L681" class="LineNr">681 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L682" class="LineNr">682 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L683" class="LineNr">683 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height, <span class="Constant">0</span>/no-pixel-graphics +<span id="L684" class="LineNr">684 </span> <span class="muComment">#</span> +<span id="L685" class="LineNr">685 </span> <a href='sandbox.mu.html#L81'>render-sandbox</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height +<span id="L686" class="LineNr">686 </span> <span class="muComment"># skip one line of padding</span> +<span id="L687" class="LineNr">687 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" 1a "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L674'>test-run-error-invalid-integer</a>/0"</span> +<span id="L688" class="LineNr">688 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">" ... "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L674'>test-run-error-invalid-integer</a>/0"</span> +<span id="L689" class="LineNr">689 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">3</span>/y, <span class="Constant">" invalid number "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L674'>test-run-error-invalid-integer</a>/2"</span> +<span id="L690" class="LineNr">690 </span><span class="Delimiter">}</span> +<span id="L691" class="LineNr">691 </span> +<span id="L692" class="LineNr">692 </span><span class="PreProc">fn</span> <span class="muTest"><a href='sandbox.mu.html#L692'>test-run-with-spaces</a></span> <span class="Delimiter">{</span> +<span id="L693" class="LineNr">693 </span> <span class="PreProc">var</span> sandbox-storage: <a href='sandbox.mu.html#L1'>sandbox</a> +<span id="L694" class="LineNr">694 </span> <span class="PreProc">var</span> <a href='sandbox.mu.html#L1'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> address sandbox-storage +<span id="L695" class="LineNr">695 </span> <a href='sandbox.mu.html#L41'>initialize-sandbox-with</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">" 1 \n"</span> +<span id="L696" class="LineNr">696 </span> <span class="muComment"># eval</span> +<span id="L697" class="LineNr">697 </span> <a href='sandbox.mu.html#L460'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0x13</span>/ctrl-s, <span class="Constant">0</span>/no-globals, <span class="Constant">0</span>/no-disk, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-tweak-screen +<span id="L698" class="LineNr">698 </span> <span class="muComment"># setup: screen</span> +<span id="L699" class="LineNr">699 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L700" class="LineNr">700 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L701" class="LineNr">701 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height, <span class="Constant">0</span>/no-pixel-graphics +<span id="L702" class="LineNr">702 </span> <span class="muComment">#</span> +<span id="L703" class="LineNr">703 </span> <a href='sandbox.mu.html#L81'>render-sandbox</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height +<span id="L704" class="LineNr">704 </span> <span class="muComment"># skip one line of padding</span> +<span id="L705" class="LineNr">705 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" 1 "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L692'>test-run-with-spaces</a>/0"</span> +<span id="L706" class="LineNr">706 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L692'>test-run-with-spaces</a>/1"</span> +<span id="L707" class="LineNr">707 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">3</span>/y, <span class="Constant">" ... "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L692'>test-run-with-spaces</a>/2"</span> +<span id="L708" class="LineNr">708 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">4</span>/y, <span class="Constant">" => 1 "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L692'>test-run-with-spaces</a>/3"</span> +<span id="L709" class="LineNr">709 </span><span class="Delimiter">}</span> +<span id="L710" class="LineNr">710 </span> +<span id="L711" class="LineNr">711 </span><span class="PreProc">fn</span> <span class="muTest"><a href='sandbox.mu.html#L711'>test-run-quote</a></span> <span class="Delimiter">{</span> +<span id="L712" class="LineNr">712 </span> <span class="PreProc">var</span> sandbox-storage: <a href='sandbox.mu.html#L1'>sandbox</a> +<span id="L713" class="LineNr">713 </span> <span class="PreProc">var</span> <a href='sandbox.mu.html#L1'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> address sandbox-storage +<span id="L714" class="LineNr">714 </span> <a href='sandbox.mu.html#L41'>initialize-sandbox-with</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">"'a"</span> +<span id="L715" class="LineNr">715 </span> <span class="muComment"># eval</span> +<span id="L716" class="LineNr">716 </span> <a href='sandbox.mu.html#L460'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0x13</span>/ctrl-s, <span class="Constant">0</span>/no-globals, <span class="Constant">0</span>/no-disk, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-tweak-screen +<span id="L717" class="LineNr">717 </span> <span class="muComment"># setup: screen</span> +<span id="L718" class="LineNr">718 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L719" class="LineNr">719 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L720" class="LineNr">720 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height, <span class="Constant">0</span>/no-pixel-graphics +<span id="L721" class="LineNr">721 </span> <span class="muComment">#</span> +<span id="L722" class="LineNr">722 </span> <a href='sandbox.mu.html#L81'>render-sandbox</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height +<span id="L723" class="LineNr">723 </span> <span class="muComment"># skip one line of padding</span> +<span id="L724" class="LineNr">724 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" 'a "</span>, <span class="Constant">"F - test-run-quote/0"</span> +<span id="L725" class="LineNr">725 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">" ... "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L711'>test-run-quote</a>/1"</span> +<span id="L726" class="LineNr">726 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">3</span>/y, <span class="Constant">" => a "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L711'>test-run-quote</a>/2"</span> +<span id="L727" class="LineNr">727 </span><span class="Delimiter">}</span> +<span id="L728" class="LineNr">728 </span> +<span id="L729" class="LineNr">729 </span><span class="PreProc">fn</span> <span class="muTest"><a href='sandbox.mu.html#L729'>test-run-dotted-list</a></span> <span class="Delimiter">{</span> +<span id="L730" class="LineNr">730 </span> <span class="PreProc">var</span> sandbox-storage: <a href='sandbox.mu.html#L1'>sandbox</a> +<span id="L731" class="LineNr">731 </span> <span class="PreProc">var</span> <a href='sandbox.mu.html#L1'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> address sandbox-storage +<span id="L732" class="LineNr">732 </span> <a href='sandbox.mu.html#L41'>initialize-sandbox-with</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">"'(a . b)"</span> +<span id="L733" class="LineNr">733 </span> <span class="muComment"># eval</span> +<span id="L734" class="LineNr">734 </span> <a href='sandbox.mu.html#L460'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0x13</span>/ctrl-s, <span class="Constant">0</span>/no-globals, <span class="Constant">0</span>/no-disk, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-tweak-screen +<span id="L735" class="LineNr">735 </span> <span class="muComment"># setup: screen</span> +<span id="L736" class="LineNr">736 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L737" class="LineNr">737 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L738" class="LineNr">738 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height, <span class="Constant">0</span>/no-pixel-graphics +<span id="L739" class="LineNr">739 </span> <span class="muComment">#</span> +<span id="L740" class="LineNr">740 </span> <a href='sandbox.mu.html#L81'>render-sandbox</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height +<span id="L741" class="LineNr">741 </span> <span class="muComment"># skip one line of padding</span> +<span id="L742" class="LineNr">742 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" '(a . b) "</span>, <span class="Constant">"F - test-run-dotted-list/0"</span> +<span id="L743" class="LineNr">743 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">" ... "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L729'>test-run-dotted-list</a>/1"</span> +<span id="L744" class="LineNr">744 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">3</span>/y, <span class="Constant">" => (a . b) "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L729'>test-run-dotted-list</a>/2"</span> +<span id="L745" class="LineNr">745 </span><span class="Delimiter">}</span> +<span id="L746" class="LineNr">746 </span> +<span id="L747" class="LineNr">747 </span><span class="PreProc">fn</span> <span class="muTest"><a href='sandbox.mu.html#L747'>test-run-dot-and-list</a></span> <span class="Delimiter">{</span> +<span id="L748" class="LineNr">748 </span> <span class="PreProc">var</span> sandbox-storage: <a href='sandbox.mu.html#L1'>sandbox</a> +<span id="L749" class="LineNr">749 </span> <span class="PreProc">var</span> <a href='sandbox.mu.html#L1'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> address sandbox-storage +<span id="L750" class="LineNr">750 </span> <a href='sandbox.mu.html#L41'>initialize-sandbox-with</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">"'(a . (b))"</span> +<span id="L751" class="LineNr">751 </span> <span class="muComment"># eval</span> +<span id="L752" class="LineNr">752 </span> <a href='sandbox.mu.html#L460'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0x13</span>/ctrl-s, <span class="Constant">0</span>/no-globals, <span class="Constant">0</span>/no-disk, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-tweak-screen +<span id="L753" class="LineNr">753 </span> <span class="muComment"># setup: screen</span> +<span id="L754" class="LineNr">754 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L755" class="LineNr">755 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L756" class="LineNr">756 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height, <span class="Constant">0</span>/no-pixel-graphics +<span id="L757" class="LineNr">757 </span> <span class="muComment">#</span> +<span id="L758" class="LineNr">758 </span> <a href='sandbox.mu.html#L81'>render-sandbox</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height +<span id="L759" class="LineNr">759 </span> <span class="muComment"># skip one line of padding</span> +<span id="L760" class="LineNr">760 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" '(a . (b)) "</span>, <span class="Constant">"F - test-run-dot-and-list/0"</span> +<span id="L761" class="LineNr">761 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">" ... "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L747'>test-run-dot-and-list</a>/1"</span> +<span id="L762" class="LineNr">762 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">3</span>/y, <span class="Constant">" => (a b) "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L747'>test-run-dot-and-list</a>/2"</span> +<span id="L763" class="LineNr">763 </span><span class="Delimiter">}</span> +<span id="L764" class="LineNr">764 </span> +<span id="L765" class="LineNr">765 </span><span class="PreProc">fn</span> <span class="muTest"><a href='sandbox.mu.html#L765'>test-run-final-dot</a></span> <span class="Delimiter">{</span> +<span id="L766" class="LineNr">766 </span> <span class="PreProc">var</span> sandbox-storage: <a href='sandbox.mu.html#L1'>sandbox</a> +<span id="L767" class="LineNr">767 </span> <span class="PreProc">var</span> <a href='sandbox.mu.html#L1'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> address sandbox-storage +<span id="L768" class="LineNr">768 </span> <a href='sandbox.mu.html#L41'>initialize-sandbox-with</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">"'(a .)"</span> +<span id="L769" class="LineNr">769 </span> <span class="muComment"># eval</span> +<span id="L770" class="LineNr">770 </span> <a href='sandbox.mu.html#L460'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0x13</span>/ctrl-s, <span class="Constant">0</span>/no-globals, <span class="Constant">0</span>/no-disk, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-tweak-screen +<span id="L771" class="LineNr">771 </span> <span class="muComment"># setup: screen</span> +<span id="L772" class="LineNr">772 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L773" class="LineNr">773 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L774" class="LineNr">774 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height, <span class="Constant">0</span>/no-pixel-graphics +<span id="L775" class="LineNr">775 </span> <span class="muComment">#</span> +<span id="L776" class="LineNr">776 </span> <a href='sandbox.mu.html#L81'>render-sandbox</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height +<span id="L777" class="LineNr">777 </span> <span class="muComment"># skip one line of padding</span> +<span id="L778" class="LineNr">778 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" '(a .) "</span>, <span class="Constant">"F - test-run-final-dot/0"</span> +<span id="L779" class="LineNr">779 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">" ... "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L765'>test-run-final-dot</a>/1"</span> +<span id="L780" class="LineNr">780 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">3</span>/y, <span class="Constant">" '. )' makes no sense "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L765'>test-run-final-dot</a>/2"</span> +<span id="L781" class="LineNr">781 </span> <span class="muComment"># further errors may occur</span> +<span id="L782" class="LineNr">782 </span><span class="Delimiter">}</span> +<span id="L783" class="LineNr">783 </span> +<span id="L784" class="LineNr">784 </span><span class="PreProc">fn</span> <span class="muTest"><a href='sandbox.mu.html#L784'>test-run-double-dot</a></span> <span class="Delimiter">{</span> +<span id="L785" class="LineNr">785 </span> <span class="PreProc">var</span> sandbox-storage: <a href='sandbox.mu.html#L1'>sandbox</a> +<span id="L786" class="LineNr">786 </span> <span class="PreProc">var</span> <a href='sandbox.mu.html#L1'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> address sandbox-storage +<span id="L787" class="LineNr">787 </span> <a href='sandbox.mu.html#L41'>initialize-sandbox-with</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">"'(a . .)"</span> +<span id="L788" class="LineNr">788 </span> <span class="muComment"># eval</span> +<span id="L789" class="LineNr">789 </span> <a href='sandbox.mu.html#L460'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0x13</span>/ctrl-s, <span class="Constant">0</span>/no-globals, <span class="Constant">0</span>/no-disk, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-tweak-screen +<span id="L790" class="LineNr">790 </span> <span class="muComment"># setup: screen</span> +<span id="L791" class="LineNr">791 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L792" class="LineNr">792 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L793" class="LineNr">793 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height, <span class="Constant">0</span>/no-pixel-graphics +<span id="L794" class="LineNr">794 </span> <span class="muComment">#</span> +<span id="L795" class="LineNr">795 </span> <a href='sandbox.mu.html#L81'>render-sandbox</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height +<span id="L796" class="LineNr">796 </span> <span class="muComment"># skip one line of padding</span> +<span id="L797" class="LineNr">797 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" '(a . .) "</span>, <span class="Constant">"F - test-run-double-dot/0"</span> +<span id="L798" class="LineNr">798 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">" ... "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L784'>test-run-double-dot</a>/1"</span> +<span id="L799" class="LineNr">799 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">3</span>/y, <span class="Constant">" '. .' makes no sense "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L784'>test-run-double-dot</a>/2"</span> +<span id="L800" class="LineNr">800 </span> <span class="muComment"># further errors may occur</span> +<span id="L801" class="LineNr">801 </span><span class="Delimiter">}</span> +<span id="L802" class="LineNr">802 </span> +<span id="L803" class="LineNr">803 </span><span class="PreProc">fn</span> <span class="muTest"><a href='sandbox.mu.html#L803'>test-run-multiple-expressions-after-dot</a></span> <span class="Delimiter">{</span> +<span id="L804" class="LineNr">804 </span> <span class="PreProc">var</span> sandbox-storage: <a href='sandbox.mu.html#L1'>sandbox</a> +<span id="L805" class="LineNr">805 </span> <span class="PreProc">var</span> <a href='sandbox.mu.html#L1'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> address sandbox-storage +<span id="L806" class="LineNr">806 </span> <a href='sandbox.mu.html#L41'>initialize-sandbox-with</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">"'(a . b c)"</span> +<span id="L807" class="LineNr">807 </span> <span class="muComment"># eval</span> +<span id="L808" class="LineNr">808 </span> <a href='sandbox.mu.html#L460'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0x13</span>/ctrl-s, <span class="Constant">0</span>/no-globals, <span class="Constant">0</span>/no-disk, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-tweak-screen +<span id="L809" class="LineNr">809 </span> <span class="muComment"># setup: screen</span> +<span id="L810" class="LineNr">810 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L811" class="LineNr">811 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L812" class="LineNr">812 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height, <span class="Constant">0</span>/no-pixel-graphics +<span id="L813" class="LineNr">813 </span> <span class="muComment">#</span> +<span id="L814" class="LineNr">814 </span> <a href='sandbox.mu.html#L81'>render-sandbox</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height +<span id="L815" class="LineNr">815 </span> <span class="muComment"># skip one line of padding</span> +<span id="L816" class="LineNr">816 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" '(a . b c) "</span>, <span class="Constant">"F - test-run-multiple-expressions-after-dot/0"</span> +<span id="L817" class="LineNr">817 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">" ... "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L803'>test-run-multiple-expressions-after-dot</a>/1"</span> +<span id="L818" class="LineNr">818 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">3</span>/y, <span class="Constant">" cannot have multiple expressions between '.' and ')' "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L803'>test-run-multiple-expressions-after-dot</a>/2"</span> +<span id="L819" class="LineNr">819 </span> <span class="muComment"># further errors may occur</span> +<span id="L820" class="LineNr">820 </span><span class="Delimiter">}</span> +<span id="L821" class="LineNr">821 </span> +<span id="L822" class="LineNr">822 </span><span class="PreProc">fn</span> <span class="muTest"><a href='sandbox.mu.html#L822'>test-run-stream</a></span> <span class="Delimiter">{</span> +<span id="L823" class="LineNr">823 </span> <span class="PreProc">var</span> sandbox-storage: <a href='sandbox.mu.html#L1'>sandbox</a> +<span id="L824" class="LineNr">824 </span> <span class="PreProc">var</span> <a href='sandbox.mu.html#L1'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> address sandbox-storage +<span id="L825" class="LineNr">825 </span> <a href='sandbox.mu.html#L41'>initialize-sandbox-with</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">"[a b]"</span> +<span id="L826" class="LineNr">826 </span> <span class="muComment"># eval</span> +<span id="L827" class="LineNr">827 </span> <a href='sandbox.mu.html#L460'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0x13</span>/ctrl-s, <span class="Constant">0</span>/no-globals, <span class="Constant">0</span>/no-disk, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-tweak-screen +<span id="L828" class="LineNr">828 </span> <span class="muComment"># setup: screen</span> +<span id="L829" class="LineNr">829 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L830" class="LineNr">830 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L831" class="LineNr">831 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height, <span class="Constant">0</span>/no-pixel-graphics +<span id="L832" class="LineNr">832 </span> <span class="muComment">#</span> +<span id="L833" class="LineNr">833 </span> <a href='sandbox.mu.html#L81'>render-sandbox</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height +<span id="L834" class="LineNr">834 </span> <span class="muComment"># skip one line of padding</span> +<span id="L835" class="LineNr">835 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" [a b] "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L822'>test-run-stream</a>/0"</span> +<span id="L836" class="LineNr">836 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">" ... "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L822'>test-run-stream</a>/1"</span> +<span id="L837" class="LineNr">837 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">3</span>/y, <span class="Constant">" => [a b] "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L822'>test-run-stream</a>/2"</span> +<span id="L838" class="LineNr">838 </span><span class="Delimiter">}</span> +<span id="L839" class="LineNr">839 </span> +<span id="L840" class="LineNr">840 </span><span class="PreProc">fn</span> <span class="muTest"><a href='sandbox.mu.html#L840'>test-run-move-cursor-into-trace</a></span> <span class="Delimiter">{</span> +<span id="L841" class="LineNr">841 </span> <span class="PreProc">var</span> sandbox-storage: <a href='sandbox.mu.html#L1'>sandbox</a> +<span id="L842" class="LineNr">842 </span> <span class="PreProc">var</span> <a href='sandbox.mu.html#L1'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> address sandbox-storage +<span id="L843" class="LineNr">843 </span> <a href='sandbox.mu.html#L41'>initialize-sandbox-with</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">"12"</span> +<span id="L844" class="LineNr">844 </span> <span class="muComment"># eval</span> +<span id="L845" class="LineNr">845 </span> <a href='sandbox.mu.html#L460'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0x13</span>/ctrl-s, <span class="Constant">0</span>/no-globals, <span class="Constant">0</span>/no-disk, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-tweak-screen +<span id="L846" class="LineNr">846 </span> <span class="muComment"># setup: screen</span> +<span id="L847" class="LineNr">847 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L848" class="LineNr">848 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L849" class="LineNr">849 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height, <span class="Constant">0</span>/no-pixel-graphics +<span id="L850" class="LineNr">850 </span> <span class="muComment">#</span> +<span id="L851" class="LineNr">851 </span> <a href='sandbox.mu.html#L81'>render-sandbox</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height +<span id="L852" class="LineNr">852 </span> <span class="muComment"># skip one line of padding</span> +<span id="L853" class="LineNr">853 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" 12 "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L840'>test-run-move-cursor-into-trace</a>/pre-0"</span> +<span id="L854" class="LineNr">854 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" | "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L840'>test-run-move-cursor-into-trace</a>/pre-0/cursor"</span> +<span id="L855" class="LineNr">855 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">" ... "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L840'>test-run-move-cursor-into-trace</a>/pre-1"</span> +<span id="L856" class="LineNr">856 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L840'>test-run-move-cursor-into-trace</a>/pre-1/cursor"</span> +<span id="L857" class="LineNr">857 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">3</span>/y, <span class="Constant">" => 12 "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L840'>test-run-move-cursor-into-trace</a>/pre-2"</span> +<span id="L858" class="LineNr">858 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">3</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L840'>test-run-move-cursor-into-trace</a>/pre-2/cursor"</span> +<span id="L859" class="LineNr">859 </span> <span class="muComment"># move cursor into trace</span> +<span id="L860" class="LineNr">860 </span> <a href='sandbox.mu.html#L460'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0xd</span>/ctrl-m, <span class="Constant">0</span>/no-globals, <span class="Constant">0</span>/no-disk, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-tweak-screen +<span id="L861" class="LineNr">861 </span> <span class="muComment">#</span> +<span id="L862" class="LineNr">862 </span> <a href='sandbox.mu.html#L81'>render-sandbox</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height +<span id="L863" class="LineNr">863 </span> <span class="muComment"># skip one line of padding</span> +<span id="L864" class="LineNr">864 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" 12 "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L840'>test-run-move-cursor-into-trace</a>/trace-0"</span> +<span id="L865" class="LineNr">865 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L840'>test-run-move-cursor-into-trace</a>/trace-0/cursor"</span> +<span id="L866" class="LineNr">866 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">" ... "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L840'>test-run-move-cursor-into-trace</a>/trace-1"</span> +<span id="L867" class="LineNr">867 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" ||| "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L840'>test-run-move-cursor-into-trace</a>/trace-1/cursor"</span> +<span id="L868" class="LineNr">868 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">3</span>/y, <span class="Constant">" => 12 "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L840'>test-run-move-cursor-into-trace</a>/trace-2"</span> +<span id="L869" class="LineNr">869 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">3</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L840'>test-run-move-cursor-into-trace</a>/trace-2/cursor"</span> +<span id="L870" class="LineNr">870 </span> <span class="muComment"># move cursor into input</span> +<span id="L871" class="LineNr">871 </span> <a href='sandbox.mu.html#L460'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0xd</span>/ctrl-m, <span class="Constant">0</span>/no-globals, <span class="Constant">0</span>/no-disk, <span class="Constant">0</span>/no-screen, <span class="Constant">0</span>/no-tweak-screen +<span id="L872" class="LineNr">872 </span> <span class="muComment">#</span> +<span id="L873" class="LineNr">873 </span> <a href='sandbox.mu.html#L81'>render-sandbox</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height +<span id="L874" class="LineNr">874 </span> <span class="muComment"># skip one line of padding</span> +<span id="L875" class="LineNr">875 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" 12 "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L840'>test-run-move-cursor-into-trace</a>/input-0"</span> +<span id="L876" class="LineNr">876 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" | "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L840'>test-run-move-cursor-into-trace</a>/input-0/cursor"</span> +<span id="L877" class="LineNr">877 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">" ... "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L840'>test-run-move-cursor-into-trace</a>/input-1"</span> +<span id="L878" class="LineNr">878 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L840'>test-run-move-cursor-into-trace</a>/input-1/cursor"</span> +<span id="L879" class="LineNr">879 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">3</span>/y, <span class="Constant">" => 12 "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L840'>test-run-move-cursor-into-trace</a>/input-2"</span> +<span id="L880" class="LineNr">880 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">3</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L840'>test-run-move-cursor-into-trace</a>/input-2/cursor"</span> +<span id="L881" class="LineNr">881 </span><span class="Delimiter">}</span> +<span id="L882" class="LineNr">882 </span> +<span id="L883" class="LineNr">883 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='sandbox.mu.html#L883'>has-trace?</a></span> _self: (addr <a href='sandbox.mu.html#L1'>sandbox</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L884" class="LineNr">884 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> copy _self +<span id="L885" class="LineNr">885 </span> <span class="PreProc">var</span> trace-ah/<span class="Constant">eax</span>: (addr handle trace) <span class="Special"><-</span> get self, trace +<span id="L886" class="LineNr">886 </span> <span class="PreProc">var</span> _trace/<span class="Constant">eax</span>: (addr trace) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *trace-ah +<span id="L887" class="LineNr">887 </span> <span class="PreProc">var</span> trace/<span class="Constant">edx</span>: (addr trace) <span class="Special"><-</span> copy _trace +<span id="L888" class="LineNr">888 </span> compare trace, <span class="Constant">0</span> +<span id="L889" class="LineNr">889 </span> <span class="Delimiter">{</span> +<span id="L890" class="LineNr">890 </span> <span class="PreProc">break-if-!=</span> +<span id="L891" class="LineNr">891 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L892" class="LineNr">892 </span> <span class="Delimiter">}</span> +<span id="L893" class="LineNr">893 </span> <span class="PreProc">var</span> first-free/<span class="Constant">ebx</span>: (addr int) <span class="Special"><-</span> get trace, first-free +<span id="L894" class="LineNr">894 </span> compare *first-free, <span class="Constant">0</span> +<span id="L895" class="LineNr">895 </span> <span class="Delimiter">{</span> +<span id="L896" class="LineNr">896 </span> <span class="PreProc">break-if-></span> +<span id="L897" class="LineNr">897 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L898" class="LineNr">898 </span> <span class="Delimiter">}</span> +<span id="L899" class="LineNr">899 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L900" class="LineNr">900 </span><span class="Delimiter">}</span> </pre> </body> </html> diff --git a/html/shell/tokenize.mu.html b/html/shell/tokenize.mu.html index d71e4d49..2b14ee40 100644 --- a/html/shell/tokenize.mu.html +++ b/html/shell/tokenize.mu.html @@ -18,6 +18,7 @@ a { color:inherit; } .Special { color: #ff6060; } .LineNr { } .Constant { color: #008787; } +.CommentedCode { color: #8a8a8a; } .Delimiter { color: #c000c0; } .muFunction { color: #af5f00; text-decoration: underline; } .muTest { color: #5f8700; } @@ -62,7 +63,7 @@ if ('onhashchange' in window) { <span id="L3" class="LineNr"> 3 </span><span class="muComment"># they always have text-data.</span> <span id="L4" class="LineNr"> 4 </span> <span id="L5" class="LineNr"> 5 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L5'>tokenize</a></span> in: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>), out: (addr stream <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L6" class="LineNr"> 6 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"read"</span>, <span class="Constant">"tokenize"</span> +<span id="L6" class="LineNr"> 6 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"tokenize"</span>, <span class="Constant">"tokenize"</span> <span id="L7" class="LineNr"> 7 </span> <a href='trace.mu.html#L147'>trace-lower</a> trace <span id="L8" class="LineNr"> 8 </span> <a href='gap-buffer.mu.html#L749'>rewind-gap-buffer</a> in <span id="L9" class="LineNr"> 9 </span> <span class="PreProc">var</span> token-storage: <a href='cell.mu.html#L1'>cell</a> @@ -74,53 +75,53 @@ if ('onhashchange' in window) { <span id="L15" class="LineNr"> 15 </span> <span class="PreProc">break-if-!=</span> <span id="L16" class="LineNr"> 16 </span> <span class="muComment"># initialize token data each iteration to avoid aliasing</span> <span id="L17" class="LineNr"> 17 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get token, text-data -<span id="L18" class="LineNr"> 18 </span> populate-stream dest-ah, <span class="Constant">0x100</span>/max-definition-size -<span id="L19" class="LineNr"> 19 </span> <span class="muComment">#</span> -<span id="L20" class="LineNr"> 20 </span> <a href='tokenize.mu.html#L113'>next-token</a> in, token, trace -<span id="L21" class="LineNr"> 21 </span> <span class="PreProc">var</span> skip?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L787'>comment-token?</a> token -<span id="L22" class="LineNr"> 22 </span> compare skip?, <span class="Constant">0</span>/false -<span id="L23" class="LineNr"> 23 </span> <span class="PreProc">loop-if-!=</span> -<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">var</span> error?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='trace.mu.html#L54'>has-errors?</a> trace -<span id="L25" class="LineNr"> 25 </span> compare error?, <span class="Constant">0</span>/false -<span id="L26" class="LineNr"> 26 </span> <span class="Delimiter">{</span> -<span id="L27" class="LineNr"> 27 </span> <span class="PreProc">break-if-=</span> -<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">return</span> -<span id="L29" class="LineNr"> 29 </span> <span class="Delimiter">}</span> -<span id="L30" class="LineNr"> 30 </span> <a href='../309stream.subx.html#L54'>write-to-stream</a> out, token <span class="muComment"># shallow-copy text-data</span> -<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">loop</span> -<span id="L32" class="LineNr"> 32 </span> <span class="Delimiter">}</span> -<span id="L33" class="LineNr"> 33 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L34" class="LineNr"> 34 </span><span class="Delimiter">}</span> -<span id="L35" class="LineNr"> 35 </span> -<span id="L36" class="LineNr"> 36 </span><span class="PreProc">fn</span> <span class="muTest"><a href='tokenize.mu.html#L36'>test-tokenize-dotted-list</a></span> <span class="Delimiter">{</span> -<span id="L37" class="LineNr"> 37 </span> <span class="PreProc">var</span> in-storage: <a href='gap-buffer.mu.html#L3'>gap-buffer</a> -<span id="L38" class="LineNr"> 38 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> address in-storage -<span id="L39" class="LineNr"> 39 </span> <a href='gap-buffer.mu.html#L37'>initialize-gap-buffer-with</a> in, <span class="Constant">"(a . b)"</span> -<span id="L40" class="LineNr"> 40 </span> <span class="muComment">#</span> -<span id="L41" class="LineNr"> 41 </span> <span class="PreProc">var</span> stream-storage: (stream <a href='cell.mu.html#L1'>cell</a> <span class="Constant">0x10</span>) -<span id="L42" class="LineNr"> 42 </span> <span class="PreProc">var</span> stream/<span class="Constant">edi</span>: (addr stream <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address stream-storage -<span id="L43" class="LineNr"> 43 </span> <span class="muComment">#</span> -<span id="L44" class="LineNr"> 44 </span> <a href='tokenize.mu.html#L5'>tokenize</a> in, stream, <span class="Constant">0</span>/no-trace -<span id="L45" class="LineNr"> 45 </span> <span class="muComment">#</span> -<span id="L46" class="LineNr"> 46 </span> <span class="PreProc">var</span> curr-token-storage: <a href='cell.mu.html#L1'>cell</a> -<span id="L47" class="LineNr"> 47 </span> <span class="PreProc">var</span> curr-token/<span class="Constant">ebx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address curr-token-storage -<span id="L48" class="LineNr"> 48 </span> <a href='../309stream.subx.html#L107'>read-from-stream</a> stream, curr-token -<span id="L49" class="LineNr"> 49 </span> <span class="PreProc">var</span> open-paren?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L719'>open-paren-token?</a> curr-token -<span id="L50" class="LineNr"> 50 </span> <a href='../502test.mu.html#L19'>check</a> open-paren?, <span class="Constant">"F - <a href='tokenize.mu.html#L36'>test-tokenize-dotted-list</a>: open paren"</span> -<span id="L51" class="LineNr"> 51 </span> <a href='../309stream.subx.html#L107'>read-from-stream</a> stream, curr-token <span class="muComment"># skip a</span> -<span id="L52" class="LineNr"> 52 </span> <a href='../309stream.subx.html#L107'>read-from-stream</a> stream, curr-token -<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> dot?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L751'>dot-token?</a> curr-token -<span id="L54" class="LineNr"> 54 </span> <a href='../502test.mu.html#L19'>check</a> dot?, <span class="Constant">"F - <a href='tokenize.mu.html#L36'>test-tokenize-dotted-list</a>: dot"</span> -<span id="L55" class="LineNr"> 55 </span> <a href='../309stream.subx.html#L107'>read-from-stream</a> stream, curr-token <span class="muComment"># skip b</span> -<span id="L56" class="LineNr"> 56 </span> <a href='../309stream.subx.html#L107'>read-from-stream</a> stream, curr-token -<span id="L57" class="LineNr"> 57 </span> <span class="PreProc">var</span> close-paren?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L735'>close-paren-token?</a> curr-token -<span id="L58" class="LineNr"> 58 </span> <a href='../502test.mu.html#L19'>check</a> close-paren?, <span class="Constant">"F - <a href='tokenize.mu.html#L36'>test-tokenize-dotted-list</a>: close paren"</span> +<span id="L18" class="LineNr"> 18 </span> <span class="muComment"># I'm allocating 1KB for every. single. token. Just because a whole definition needs to fit in a string sometimes. Absolutely bonkers.</span> +<span id="L19" class="LineNr"> 19 </span> populate-stream dest-ah, <span class="Constant">0x400</span>/max-definition-size +<span id="L20" class="LineNr"> 20 </span> <span class="muComment">#</span> +<span id="L21" class="LineNr"> 21 </span> <a href='tokenize.mu.html#L203'>next-token</a> in, token, trace +<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> skip?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L944'>comment-token?</a> token +<span id="L23" class="LineNr"> 23 </span> compare skip?, <span class="Constant">0</span>/false +<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">loop-if-!=</span> +<span id="L25" class="LineNr"> 25 </span> <span class="PreProc">var</span> error?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='trace.mu.html#L54'>has-errors?</a> trace +<span id="L26" class="LineNr"> 26 </span> compare error?, <span class="Constant">0</span>/false +<span id="L27" class="LineNr"> 27 </span> <span class="Delimiter">{</span> +<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">break-if-=</span> +<span id="L29" class="LineNr"> 29 </span> <span class="PreProc">return</span> +<span id="L30" class="LineNr"> 30 </span> <span class="Delimiter">}</span> +<span id="L31" class="LineNr"> 31 </span> <a href='../309stream.subx.html#L54'>write-to-stream</a> out, token <span class="muComment"># shallow-copy text-data</span> +<span id="L32" class="LineNr"> 32 </span> <span class="PreProc">loop</span> +<span id="L33" class="LineNr"> 33 </span> <span class="Delimiter">}</span> +<span id="L34" class="LineNr"> 34 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L35" class="LineNr"> 35 </span><span class="Delimiter">}</span> +<span id="L36" class="LineNr"> 36 </span> +<span id="L37" class="LineNr"> 37 </span><span class="PreProc">fn</span> <span class="muTest"><a href='tokenize.mu.html#L37'>test-tokenize-quote</a></span> <span class="Delimiter">{</span> +<span id="L38" class="LineNr"> 38 </span> <span class="PreProc">var</span> in-storage: <a href='gap-buffer.mu.html#L3'>gap-buffer</a> +<span id="L39" class="LineNr"> 39 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> address in-storage +<span id="L40" class="LineNr"> 40 </span> <a href='gap-buffer.mu.html#L37'>initialize-gap-buffer-with</a> in, <span class="Constant">"'(a)"</span> +<span id="L41" class="LineNr"> 41 </span> <span class="muComment">#</span> +<span id="L42" class="LineNr"> 42 </span> <span class="PreProc">var</span> stream-storage: (stream <a href='cell.mu.html#L1'>cell</a> <span class="Constant">0x10</span>) +<span id="L43" class="LineNr"> 43 </span> <span class="PreProc">var</span> stream/<span class="Constant">edi</span>: (addr stream <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address stream-storage +<span id="L44" class="LineNr"> 44 </span> <span class="muComment">#</span> +<span id="L45" class="LineNr"> 45 </span> <a href='tokenize.mu.html#L5'>tokenize</a> in, stream, <span class="Constant">0</span>/no-trace +<span id="L46" class="LineNr"> 46 </span> <span class="muComment">#</span> +<span id="L47" class="LineNr"> 47 </span> <span class="PreProc">var</span> curr-token-storage: <a href='cell.mu.html#L1'>cell</a> +<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">var</span> curr-token/<span class="Constant">ebx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address curr-token-storage +<span id="L49" class="LineNr"> 49 </span> <a href='../309stream.subx.html#L104'>read-from-stream</a> stream, curr-token +<span id="L50" class="LineNr"> 50 </span> <span class="PreProc">var</span> quote?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L840'>quote-token?</a> curr-token +<span id="L51" class="LineNr"> 51 </span> <a href='../502test.mu.html#L19'>check</a> quote?, <span class="Constant">"F - <a href='tokenize.mu.html#L37'>test-tokenize-quote</a>: quote"</span> +<span id="L52" class="LineNr"> 52 </span> <a href='../309stream.subx.html#L104'>read-from-stream</a> stream, curr-token +<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> open-paren?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L876'>open-paren-token?</a> curr-token +<span id="L54" class="LineNr"> 54 </span> <a href='../502test.mu.html#L19'>check</a> open-paren?, <span class="Constant">"F - <a href='tokenize.mu.html#L37'>test-tokenize-quote</a>: open paren"</span> +<span id="L55" class="LineNr"> 55 </span> <a href='../309stream.subx.html#L104'>read-from-stream</a> stream, curr-token <span class="muComment"># skip a</span> +<span id="L56" class="LineNr"> 56 </span> <a href='../309stream.subx.html#L104'>read-from-stream</a> stream, curr-token +<span id="L57" class="LineNr"> 57 </span> <span class="PreProc">var</span> close-paren?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L892'>close-paren-token?</a> curr-token +<span id="L58" class="LineNr"> 58 </span> <a href='../502test.mu.html#L19'>check</a> close-paren?, <span class="Constant">"F - <a href='tokenize.mu.html#L37'>test-tokenize-quote</a>: close paren"</span> <span id="L59" class="LineNr"> 59 </span><span class="Delimiter">}</span> <span id="L60" class="LineNr"> 60 </span> -<span id="L61" class="LineNr"> 61 </span><span class="PreProc">fn</span> <span class="muTest"><a href='tokenize.mu.html#L61'>test-tokenize-stream-literal</a></span> <span class="Delimiter">{</span> +<span id="L61" class="LineNr"> 61 </span><span class="PreProc">fn</span> <span class="muTest"><a href='tokenize.mu.html#L61'>test-tokenize-backquote</a></span> <span class="Delimiter">{</span> <span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> in-storage: <a href='gap-buffer.mu.html#L3'>gap-buffer</a> <span id="L63" class="LineNr"> 63 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> address in-storage -<span id="L64" class="LineNr"> 64 </span> <a href='gap-buffer.mu.html#L37'>initialize-gap-buffer-with</a> in, <span class="Constant">"[abc def]"</span> +<span id="L64" class="LineNr"> 64 </span> <a href='gap-buffer.mu.html#L37'>initialize-gap-buffer-with</a> in, <span class="Constant">"`(a)"</span> <span id="L65" class="LineNr"> 65 </span> <span class="muComment">#</span> <span id="L66" class="LineNr"> 66 </span> <span class="PreProc">var</span> stream-storage: (stream <a href='cell.mu.html#L1'>cell</a> <span class="Constant">0x10</span>) <span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> stream/<span class="Constant">edi</span>: (addr stream <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address stream-storage @@ -129,733 +130,890 @@ if ('onhashchange' in window) { <span id="L70" class="LineNr"> 70 </span> <span class="muComment">#</span> <span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> curr-token-storage: <a href='cell.mu.html#L1'>cell</a> <span id="L72" class="LineNr"> 72 </span> <span class="PreProc">var</span> curr-token/<span class="Constant">ebx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address curr-token-storage -<span id="L73" class="LineNr"> 73 </span> <a href='../309stream.subx.html#L107'>read-from-stream</a> stream, curr-token -<span id="L74" class="LineNr"> 74 </span> <span class="PreProc">var</span> stream?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L776'>stream-token?</a> curr-token -<span id="L75" class="LineNr"> 75 </span> <a href='../502test.mu.html#L19'>check</a> stream?, <span class="Constant">"F - <a href='tokenize.mu.html#L61'>test-tokenize-stream-literal</a>: type"</span> -<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> curr-token-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get curr-token, text-data -<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> curr-token-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *curr-token-data-ah -<span id="L78" class="LineNr"> 78 </span> <span class="PreProc">var</span> data-equal?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-token-data, <span class="Constant">"abc def"</span> -<span id="L79" class="LineNr"> 79 </span> <a href='../502test.mu.html#L19'>check</a> data-equal?, <span class="Constant">"F - test-tokenize-stream-literal"</span> -<span id="L80" class="LineNr"> 80 </span> <span class="PreProc">var</span> empty?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> stream -<span id="L81" class="LineNr"> 81 </span> <a href='../502test.mu.html#L19'>check</a> empty?, <span class="Constant">"F - <a href='tokenize.mu.html#L61'>test-tokenize-stream-literal</a>: empty?"</span> -<span id="L82" class="LineNr"> 82 </span><span class="Delimiter">}</span> -<span id="L83" class="LineNr"> 83 </span> -<span id="L84" class="LineNr"> 84 </span><span class="PreProc">fn</span> <span class="muTest"><a href='tokenize.mu.html#L84'>test-tokenize-stream-literal-in-tree</a></span> <span class="Delimiter">{</span> -<span id="L85" class="LineNr"> 85 </span> <span class="PreProc">var</span> in-storage: <a href='gap-buffer.mu.html#L3'>gap-buffer</a> -<span id="L86" class="LineNr"> 86 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> address in-storage -<span id="L87" class="LineNr"> 87 </span> <a href='gap-buffer.mu.html#L37'>initialize-gap-buffer-with</a> in, <span class="Constant">"([abc def])"</span> -<span id="L88" class="LineNr"> 88 </span> <span class="muComment">#</span> -<span id="L89" class="LineNr"> 89 </span> <span class="PreProc">var</span> stream-storage: (stream <a href='cell.mu.html#L1'>cell</a> <span class="Constant">0x10</span>) -<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> stream/<span class="Constant">edi</span>: (addr stream <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address stream-storage -<span id="L91" class="LineNr"> 91 </span> <span class="muComment">#</span> -<span id="L92" class="LineNr"> 92 </span> <a href='tokenize.mu.html#L5'>tokenize</a> in, stream, <span class="Constant">0</span>/no-trace -<span id="L93" class="LineNr"> 93 </span> <span class="muComment">#</span> -<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">var</span> curr-token-storage: <a href='cell.mu.html#L1'>cell</a> -<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">var</span> curr-token/<span class="Constant">ebx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address curr-token-storage -<span id="L96" class="LineNr"> 96 </span> <a href='../309stream.subx.html#L107'>read-from-stream</a> stream, curr-token -<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> bracket?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L688'>bracket-token?</a> curr-token -<span id="L98" class="LineNr"> 98 </span> <a href='../502test.mu.html#L19'>check</a> bracket?, <span class="Constant">"F - <a href='tokenize.mu.html#L84'>test-tokenize-stream-literal-in-tree</a>: open paren"</span> -<span id="L99" class="LineNr"> 99 </span> <a href='../309stream.subx.html#L107'>read-from-stream</a> stream, curr-token -<span id="L100" class="LineNr">100 </span> <span class="PreProc">var</span> stream?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L776'>stream-token?</a> curr-token -<span id="L101" class="LineNr">101 </span> <a href='../502test.mu.html#L19'>check</a> stream?, <span class="Constant">"F - <a href='tokenize.mu.html#L84'>test-tokenize-stream-literal-in-tree</a>: type"</span> -<span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> curr-token-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get curr-token, text-data -<span id="L103" class="LineNr">103 </span> <span class="PreProc">var</span> curr-token-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *curr-token-data-ah -<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> data-equal?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-token-data, <span class="Constant">"abc def"</span> -<span id="L105" class="LineNr">105 </span> <a href='../502test.mu.html#L19'>check</a> data-equal?, <span class="Constant">"F - test-tokenize-stream-literal-in-tree"</span> -<span id="L106" class="LineNr">106 </span> <a href='../309stream.subx.html#L107'>read-from-stream</a> stream, curr-token -<span id="L107" class="LineNr">107 </span> <span class="PreProc">var</span> bracket?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L688'>bracket-token?</a> curr-token -<span id="L108" class="LineNr">108 </span> <a href='../502test.mu.html#L19'>check</a> bracket?, <span class="Constant">"F - <a href='tokenize.mu.html#L84'>test-tokenize-stream-literal-in-tree</a>: close paren"</span> -<span id="L109" class="LineNr">109 </span> <span class="PreProc">var</span> empty?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> stream -<span id="L110" class="LineNr">110 </span> <a href='../502test.mu.html#L19'>check</a> empty?, <span class="Constant">"F - <a href='tokenize.mu.html#L84'>test-tokenize-stream-literal-in-tree</a>: empty?"</span> -<span id="L111" class="LineNr">111 </span><span class="Delimiter">}</span> -<span id="L112" class="LineNr">112 </span> -<span id="L113" class="LineNr">113 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L113'>next-token</a></span> in: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>), _out-cell: (addr <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L114" class="LineNr">114 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"read"</span>, <span class="Constant">"next-token"</span> -<span id="L115" class="LineNr">115 </span> <a href='trace.mu.html#L147'>trace-lower</a> trace -<span id="L116" class="LineNr">116 </span> <span class="PreProc">var</span> out-cell/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out-cell -<span id="L117" class="LineNr">117 </span> <span class="Delimiter">{</span> -<span id="L118" class="LineNr">118 </span> <span class="PreProc">var</span> out-cell-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get out-cell, <span class="PreProc">type</span> -<span id="L119" class="LineNr">119 </span> copy-to *out-cell-type, <span class="Constant">0</span>/uninitialized -<span id="L120" class="LineNr">120 </span> <span class="Delimiter">}</span> -<span id="L121" class="LineNr">121 </span> <span class="PreProc">var</span> out-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get out-cell, text-data -<span id="L122" class="LineNr">122 </span> <span class="PreProc">var</span> _out/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *out-ah -<span id="L123" class="LineNr">123 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr stream byte) <span class="Special"><-</span> copy _out -<span id="L124" class="LineNr">124 </span> $next-token:body: <span class="Delimiter">{</span> -<span id="L125" class="LineNr">125 </span> <a href='../106stream.subx.html#L20'>clear-stream</a> out -<span id="L126" class="LineNr">126 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L781'>peek-from-gap-buffer</a> in -<span id="L127" class="LineNr">127 </span> <span class="Delimiter">{</span> -<span id="L128" class="LineNr">128 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x40</span>) -<span id="L129" class="LineNr">129 </span> <span class="PreProc">var</span> stream/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage -<span id="L130" class="LineNr">130 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"next: "</span> -<span id="L131" class="LineNr">131 </span> <span class="PreProc">var</span> gval/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy g -<span id="L132" class="LineNr">132 </span> <a href='../117write-int-hex.subx.html#L92'>write-int32-hex</a> stream, gval -<span id="L133" class="LineNr">133 </span> trace trace, <span class="Constant">"read"</span>, stream -<span id="L134" class="LineNr">134 </span> <span class="Delimiter">}</span> -<span id="L135" class="LineNr">135 </span> <span class="muComment"># comment</span> -<span id="L136" class="LineNr">136 </span> <span class="Delimiter">{</span> -<span id="L137" class="LineNr">137 </span> compare g, <span class="Constant">0x23</span>/comment -<span id="L138" class="LineNr">138 </span> <span class="PreProc">break-if-!=</span> -<span id="L139" class="LineNr">139 </span> <a href='tokenize.mu.html#L352'>rest-of-line</a> in, out, trace -<span id="L140" class="LineNr">140 </span> <span class="PreProc">break</span> $next-token:body -<span id="L141" class="LineNr">141 </span> <span class="Delimiter">}</span> -<span id="L142" class="LineNr">142 </span> <span class="muComment"># digit</span> -<span id="L143" class="LineNr">143 </span> <span class="Delimiter">{</span> -<span id="L144" class="LineNr">144 </span> <span class="PreProc">var</span> digit?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../126write-int-decimal.subx.html#L299'>decimal-digit?</a> g -<span id="L145" class="LineNr">145 </span> compare digit?, <span class="Constant">0</span>/false -<span id="L146" class="LineNr">146 </span> <span class="PreProc">break-if-=</span> -<span id="L147" class="LineNr">147 </span> <a href='tokenize.mu.html#L277'>next-number-token</a> in, out, trace -<span id="L148" class="LineNr">148 </span> <span class="PreProc">break</span> $next-token:body -<span id="L149" class="LineNr">149 </span> <span class="Delimiter">}</span> -<span id="L150" class="LineNr">150 </span> <span class="muComment"># other symbol char</span> -<span id="L151" class="LineNr">151 </span> <span class="Delimiter">{</span> -<span id="L152" class="LineNr">152 </span> <span class="PreProc">var</span> symbol?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L375'>symbol-grapheme?</a> g -<span id="L153" class="LineNr">153 </span> compare symbol?, <span class="Constant">0</span>/false -<span id="L154" class="LineNr">154 </span> <span class="PreProc">break-if-=</span> -<span id="L155" class="LineNr">155 </span> <a href='tokenize.mu.html#L203'>next-symbol-token</a> in, out, trace -<span id="L156" class="LineNr">156 </span> <span class="PreProc">break</span> $next-token:body -<span id="L157" class="LineNr">157 </span> <span class="Delimiter">}</span> -<span id="L158" class="LineNr">158 </span> <span class="muComment"># open square brackets begin streams</span> -<span id="L159" class="LineNr">159 </span> <span class="Delimiter">{</span> -<span id="L160" class="LineNr">160 </span> compare g, <span class="Constant">0x5b</span>/open-square-bracket -<span id="L161" class="LineNr">161 </span> <span class="PreProc">break-if-!=</span> -<span id="L162" class="LineNr">162 </span> g <span class="Special"><-</span> <a href='gap-buffer.mu.html#L817'>read-from-gap-buffer</a> in <span class="muComment"># skip open bracket</span> -<span id="L163" class="LineNr">163 </span> <a href='tokenize.mu.html#L317'>next-stream-token</a> in, out, trace -<span id="L164" class="LineNr">164 </span> <span class="PreProc">var</span> out-cell/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out-cell -<span id="L165" class="LineNr">165 </span> <span class="PreProc">var</span> out-cell-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get out-cell, <span class="PreProc">type</span> -<span id="L166" class="LineNr">166 </span> copy-to *out-cell-type, <span class="Constant">3</span>/stream -<span id="L167" class="LineNr">167 </span> <span class="PreProc">break</span> $next-token:body -<span id="L168" class="LineNr">168 </span> <span class="Delimiter">}</span> -<span id="L169" class="LineNr">169 </span> <span class="muComment"># unbalanced close square brackets are errors</span> -<span id="L170" class="LineNr">170 </span> <span class="Delimiter">{</span> -<span id="L171" class="LineNr">171 </span> compare g, <span class="Constant">0x5d</span>/close-square-bracket -<span id="L172" class="LineNr">172 </span> <span class="PreProc">break-if-!=</span> -<span id="L173" class="LineNr">173 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"unbalanced ']'"</span> -<span id="L174" class="LineNr">174 </span> <span class="PreProc">return</span> -<span id="L175" class="LineNr">175 </span> <span class="Delimiter">}</span> -<span id="L176" class="LineNr">176 </span> <span class="muComment"># other brackets are always single-char tokens</span> -<span id="L177" class="LineNr">177 </span> <span class="Delimiter">{</span> -<span id="L178" class="LineNr">178 </span> <span class="PreProc">var</span> bracket?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L542'>bracket-grapheme?</a> g -<span id="L179" class="LineNr">179 </span> compare bracket?, <span class="Constant">0</span>/false -<span id="L180" class="LineNr">180 </span> <span class="PreProc">break-if-=</span> -<span id="L181" class="LineNr">181 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L817'>read-from-gap-buffer</a> in -<span id="L182" class="LineNr">182 </span> <a href='tokenize.mu.html#L341'>next-bracket-token</a> g, out, trace -<span id="L183" class="LineNr">183 </span> <span class="PreProc">break</span> $next-token:body -<span id="L184" class="LineNr">184 </span> <span class="Delimiter">}</span> -<span id="L185" class="LineNr">185 </span> <span class="muComment"># non-symbol operators</span> -<span id="L186" class="LineNr">186 </span> <span class="Delimiter">{</span> -<span id="L187" class="LineNr">187 </span> <span class="PreProc">var</span> operator?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L576'>operator-grapheme?</a> g -<span id="L188" class="LineNr">188 </span> compare operator?, <span class="Constant">0</span>/false -<span id="L189" class="LineNr">189 </span> <span class="PreProc">break-if-=</span> -<span id="L190" class="LineNr">190 </span> <a href='tokenize.mu.html#L240'>next-operator-token</a> in, out, trace -<span id="L191" class="LineNr">191 </span> <span class="PreProc">break</span> $next-token:body -<span id="L192" class="LineNr">192 </span> <span class="Delimiter">}</span> -<span id="L193" class="LineNr">193 </span> <span class="Delimiter">}</span> -<span id="L194" class="LineNr">194 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L195" class="LineNr">195 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x40</span>) -<span id="L196" class="LineNr">196 </span> <span class="PreProc">var</span> stream/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage -<span id="L197" class="LineNr">197 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"=> "</span> -<span id="L198" class="LineNr">198 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> out -<span id="L199" class="LineNr">199 </span> <a href='../113write-stream.subx.html#L8'>write-stream</a> stream, out -<span id="L200" class="LineNr">200 </span> trace trace, <span class="Constant">"read"</span>, stream +<span id="L73" class="LineNr"> 73 </span> <a href='../309stream.subx.html#L104'>read-from-stream</a> stream, curr-token +<span id="L74" class="LineNr"> 74 </span> <span class="PreProc">var</span> backquote?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L849'>backquote-token?</a> curr-token +<span id="L75" class="LineNr"> 75 </span> <a href='../502test.mu.html#L19'>check</a> backquote?, <span class="Constant">"F - <a href='tokenize.mu.html#L61'>test-tokenize-backquote</a>: backquote"</span> +<span id="L76" class="LineNr"> 76 </span> <a href='../309stream.subx.html#L104'>read-from-stream</a> stream, curr-token +<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> open-paren?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L876'>open-paren-token?</a> curr-token +<span id="L78" class="LineNr"> 78 </span> <a href='../502test.mu.html#L19'>check</a> open-paren?, <span class="Constant">"F - <a href='tokenize.mu.html#L61'>test-tokenize-backquote</a>: open paren"</span> +<span id="L79" class="LineNr"> 79 </span> <a href='../309stream.subx.html#L104'>read-from-stream</a> stream, curr-token <span class="muComment"># skip a</span> +<span id="L80" class="LineNr"> 80 </span> <a href='../309stream.subx.html#L104'>read-from-stream</a> stream, curr-token +<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> close-paren?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L892'>close-paren-token?</a> curr-token +<span id="L82" class="LineNr"> 82 </span> <a href='../502test.mu.html#L19'>check</a> close-paren?, <span class="Constant">"F - <a href='tokenize.mu.html#L61'>test-tokenize-backquote</a>: close paren"</span> +<span id="L83" class="LineNr"> 83 </span><span class="Delimiter">}</span> +<span id="L84" class="LineNr"> 84 </span> +<span id="L85" class="LineNr"> 85 </span><span class="PreProc">fn</span> <span class="muTest"><a href='tokenize.mu.html#L85'>test-tokenize-unquote</a></span> <span class="Delimiter">{</span> +<span id="L86" class="LineNr"> 86 </span> <span class="PreProc">var</span> in-storage: <a href='gap-buffer.mu.html#L3'>gap-buffer</a> +<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> address in-storage +<span id="L88" class="LineNr"> 88 </span> <a href='gap-buffer.mu.html#L37'>initialize-gap-buffer-with</a> in, <span class="Constant">",(a)"</span> +<span id="L89" class="LineNr"> 89 </span> <span class="muComment">#</span> +<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> stream-storage: (stream <a href='cell.mu.html#L1'>cell</a> <span class="Constant">0x10</span>) +<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> stream/<span class="Constant">edi</span>: (addr stream <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address stream-storage +<span id="L92" class="LineNr"> 92 </span> <span class="muComment">#</span> +<span id="L93" class="LineNr"> 93 </span> <a href='tokenize.mu.html#L5'>tokenize</a> in, stream, <span class="Constant">0</span>/no-trace +<span id="L94" class="LineNr"> 94 </span> <span class="muComment">#</span> +<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">var</span> curr-token-storage: <a href='cell.mu.html#L1'>cell</a> +<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">var</span> curr-token/<span class="Constant">ebx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address curr-token-storage +<span id="L97" class="LineNr"> 97 </span> <a href='../309stream.subx.html#L104'>read-from-stream</a> stream, curr-token +<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">var</span> unquote?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L858'>unquote-token?</a> curr-token +<span id="L99" class="LineNr"> 99 </span> <a href='../502test.mu.html#L19'>check</a> unquote?, <span class="Constant">"F - <a href='tokenize.mu.html#L85'>test-tokenize-unquote</a>: unquote"</span> +<span id="L100" class="LineNr">100 </span> <a href='../309stream.subx.html#L104'>read-from-stream</a> stream, curr-token +<span id="L101" class="LineNr">101 </span> <span class="PreProc">var</span> open-paren?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L876'>open-paren-token?</a> curr-token +<span id="L102" class="LineNr">102 </span> <a href='../502test.mu.html#L19'>check</a> open-paren?, <span class="Constant">"F - <a href='tokenize.mu.html#L85'>test-tokenize-unquote</a>: open paren"</span> +<span id="L103" class="LineNr">103 </span> <a href='../309stream.subx.html#L104'>read-from-stream</a> stream, curr-token <span class="muComment"># skip a</span> +<span id="L104" class="LineNr">104 </span> <a href='../309stream.subx.html#L104'>read-from-stream</a> stream, curr-token +<span id="L105" class="LineNr">105 </span> <span class="PreProc">var</span> close-paren?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L892'>close-paren-token?</a> curr-token +<span id="L106" class="LineNr">106 </span> <a href='../502test.mu.html#L19'>check</a> close-paren?, <span class="Constant">"F - <a href='tokenize.mu.html#L85'>test-tokenize-unquote</a>: close paren"</span> +<span id="L107" class="LineNr">107 </span><span class="Delimiter">}</span> +<span id="L108" class="LineNr">108 </span> +<span id="L109" class="LineNr">109 </span><span class="PreProc">fn</span> <span class="muTest"><a href='tokenize.mu.html#L109'>test-tokenize-unquote-splice</a></span> <span class="Delimiter">{</span> +<span id="L110" class="LineNr">110 </span> <span class="PreProc">var</span> in-storage: <a href='gap-buffer.mu.html#L3'>gap-buffer</a> +<span id="L111" class="LineNr">111 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> address in-storage +<span id="L112" class="LineNr">112 </span> <a href='gap-buffer.mu.html#L37'>initialize-gap-buffer-with</a> in, <span class="Constant">",@a"</span> +<span id="L113" class="LineNr">113 </span> <span class="muComment">#</span> +<span id="L114" class="LineNr">114 </span> <span class="PreProc">var</span> stream-storage: (stream <a href='cell.mu.html#L1'>cell</a> <span class="Constant">0x10</span>) +<span id="L115" class="LineNr">115 </span> <span class="PreProc">var</span> stream/<span class="Constant">edi</span>: (addr stream <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address stream-storage +<span id="L116" class="LineNr">116 </span> <span class="muComment">#</span> +<span id="L117" class="LineNr">117 </span> <a href='tokenize.mu.html#L5'>tokenize</a> in, stream, <span class="Constant">0</span>/no-trace +<span id="L118" class="LineNr">118 </span> <span class="muComment">#</span> +<span id="L119" class="LineNr">119 </span> <span class="PreProc">var</span> curr-token-storage: <a href='cell.mu.html#L1'>cell</a> +<span id="L120" class="LineNr">120 </span> <span class="PreProc">var</span> curr-token/<span class="Constant">ebx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address curr-token-storage +<span id="L121" class="LineNr">121 </span> <a href='../309stream.subx.html#L104'>read-from-stream</a> stream, curr-token +<span id="L122" class="LineNr">122 </span> <span class="PreProc">var</span> unquote-splice?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L867'>unquote-splice-token?</a> curr-token +<span id="L123" class="LineNr">123 </span> <a href='../502test.mu.html#L19'>check</a> unquote-splice?, <span class="Constant">"F - <a href='tokenize.mu.html#L109'>test-tokenize-unquote-splice</a>: unquote-splice"</span> +<span id="L124" class="LineNr">124 </span><span class="Delimiter">}</span> +<span id="L125" class="LineNr">125 </span> +<span id="L126" class="LineNr">126 </span><span class="PreProc">fn</span> <span class="muTest"><a href='tokenize.mu.html#L126'>test-tokenize-dotted-list</a></span> <span class="Delimiter">{</span> +<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> in-storage: <a href='gap-buffer.mu.html#L3'>gap-buffer</a> +<span id="L128" class="LineNr">128 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> address in-storage +<span id="L129" class="LineNr">129 </span> <a href='gap-buffer.mu.html#L37'>initialize-gap-buffer-with</a> in, <span class="Constant">"(a . b)"</span> +<span id="L130" class="LineNr">130 </span> <span class="muComment">#</span> +<span id="L131" class="LineNr">131 </span> <span class="PreProc">var</span> stream-storage: (stream <a href='cell.mu.html#L1'>cell</a> <span class="Constant">0x10</span>) +<span id="L132" class="LineNr">132 </span> <span class="PreProc">var</span> stream/<span class="Constant">edi</span>: (addr stream <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address stream-storage +<span id="L133" class="LineNr">133 </span> <span class="muComment">#</span> +<span id="L134" class="LineNr">134 </span> <a href='tokenize.mu.html#L5'>tokenize</a> in, stream, <span class="Constant">0</span>/no-trace +<span id="L135" class="LineNr">135 </span> <span class="muComment">#</span> +<span id="L136" class="LineNr">136 </span> <span class="PreProc">var</span> curr-token-storage: <a href='cell.mu.html#L1'>cell</a> +<span id="L137" class="LineNr">137 </span> <span class="PreProc">var</span> curr-token/<span class="Constant">ebx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address curr-token-storage +<span id="L138" class="LineNr">138 </span> <a href='../309stream.subx.html#L104'>read-from-stream</a> stream, curr-token +<span id="L139" class="LineNr">139 </span> <span class="PreProc">var</span> open-paren?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L876'>open-paren-token?</a> curr-token +<span id="L140" class="LineNr">140 </span> <a href='../502test.mu.html#L19'>check</a> open-paren?, <span class="Constant">"F - <a href='tokenize.mu.html#L126'>test-tokenize-dotted-list</a>: open paren"</span> +<span id="L141" class="LineNr">141 </span> <a href='../309stream.subx.html#L104'>read-from-stream</a> stream, curr-token <span class="muComment"># skip a</span> +<span id="L142" class="LineNr">142 </span> <a href='../309stream.subx.html#L104'>read-from-stream</a> stream, curr-token +<span id="L143" class="LineNr">143 </span> <span class="PreProc">var</span> dot?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L908'>dot-token?</a> curr-token +<span id="L144" class="LineNr">144 </span> <a href='../502test.mu.html#L19'>check</a> dot?, <span class="Constant">"F - <a href='tokenize.mu.html#L126'>test-tokenize-dotted-list</a>: dot"</span> +<span id="L145" class="LineNr">145 </span> <a href='../309stream.subx.html#L104'>read-from-stream</a> stream, curr-token <span class="muComment"># skip b</span> +<span id="L146" class="LineNr">146 </span> <a href='../309stream.subx.html#L104'>read-from-stream</a> stream, curr-token +<span id="L147" class="LineNr">147 </span> <span class="PreProc">var</span> close-paren?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L892'>close-paren-token?</a> curr-token +<span id="L148" class="LineNr">148 </span> <a href='../502test.mu.html#L19'>check</a> close-paren?, <span class="Constant">"F - <a href='tokenize.mu.html#L126'>test-tokenize-dotted-list</a>: close paren"</span> +<span id="L149" class="LineNr">149 </span><span class="Delimiter">}</span> +<span id="L150" class="LineNr">150 </span> +<span id="L151" class="LineNr">151 </span><span class="PreProc">fn</span> <span class="muTest"><a href='tokenize.mu.html#L151'>test-tokenize-stream-literal</a></span> <span class="Delimiter">{</span> +<span id="L152" class="LineNr">152 </span> <span class="PreProc">var</span> in-storage: <a href='gap-buffer.mu.html#L3'>gap-buffer</a> +<span id="L153" class="LineNr">153 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> address in-storage +<span id="L154" class="LineNr">154 </span> <a href='gap-buffer.mu.html#L37'>initialize-gap-buffer-with</a> in, <span class="Constant">"[abc def]"</span> +<span id="L155" class="LineNr">155 </span> <span class="muComment">#</span> +<span id="L156" class="LineNr">156 </span> <span class="PreProc">var</span> stream-storage: (stream <a href='cell.mu.html#L1'>cell</a> <span class="Constant">0x10</span>) +<span id="L157" class="LineNr">157 </span> <span class="PreProc">var</span> stream/<span class="Constant">edi</span>: (addr stream <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address stream-storage +<span id="L158" class="LineNr">158 </span> <span class="muComment">#</span> +<span id="L159" class="LineNr">159 </span> <a href='tokenize.mu.html#L5'>tokenize</a> in, stream, <span class="Constant">0</span>/no-trace +<span id="L160" class="LineNr">160 </span> <span class="muComment">#</span> +<span id="L161" class="LineNr">161 </span> <span class="PreProc">var</span> curr-token-storage: <a href='cell.mu.html#L1'>cell</a> +<span id="L162" class="LineNr">162 </span> <span class="PreProc">var</span> curr-token/<span class="Constant">ebx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address curr-token-storage +<span id="L163" class="LineNr">163 </span> <a href='../309stream.subx.html#L104'>read-from-stream</a> stream, curr-token +<span id="L164" class="LineNr">164 </span> <span class="PreProc">var</span> stream?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L933'>stream-token?</a> curr-token +<span id="L165" class="LineNr">165 </span> <a href='../502test.mu.html#L19'>check</a> stream?, <span class="Constant">"F - <a href='tokenize.mu.html#L151'>test-tokenize-stream-literal</a>: type"</span> +<span id="L166" class="LineNr">166 </span> <span class="PreProc">var</span> curr-token-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get curr-token, text-data +<span id="L167" class="LineNr">167 </span> <span class="PreProc">var</span> curr-token-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *curr-token-data-ah +<span id="L168" class="LineNr">168 </span> <span class="PreProc">var</span> data-equal?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-token-data, <span class="Constant">"abc def"</span> +<span id="L169" class="LineNr">169 </span> <a href='../502test.mu.html#L19'>check</a> data-equal?, <span class="Constant">"F - test-tokenize-stream-literal"</span> +<span id="L170" class="LineNr">170 </span> <span class="PreProc">var</span> empty?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> stream +<span id="L171" class="LineNr">171 </span> <a href='../502test.mu.html#L19'>check</a> empty?, <span class="Constant">"F - <a href='tokenize.mu.html#L151'>test-tokenize-stream-literal</a>: empty?"</span> +<span id="L172" class="LineNr">172 </span><span class="Delimiter">}</span> +<span id="L173" class="LineNr">173 </span> +<span id="L174" class="LineNr">174 </span><span class="PreProc">fn</span> <span class="muTest"><a href='tokenize.mu.html#L174'>test-tokenize-stream-literal-in-tree</a></span> <span class="Delimiter">{</span> +<span id="L175" class="LineNr">175 </span> <span class="PreProc">var</span> in-storage: <a href='gap-buffer.mu.html#L3'>gap-buffer</a> +<span id="L176" class="LineNr">176 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> address in-storage +<span id="L177" class="LineNr">177 </span> <a href='gap-buffer.mu.html#L37'>initialize-gap-buffer-with</a> in, <span class="Constant">"([abc def])"</span> +<span id="L178" class="LineNr">178 </span> <span class="muComment">#</span> +<span id="L179" class="LineNr">179 </span> <span class="PreProc">var</span> stream-storage: (stream <a href='cell.mu.html#L1'>cell</a> <span class="Constant">0x10</span>) +<span id="L180" class="LineNr">180 </span> <span class="PreProc">var</span> stream/<span class="Constant">edi</span>: (addr stream <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address stream-storage +<span id="L181" class="LineNr">181 </span> <span class="muComment">#</span> +<span id="L182" class="LineNr">182 </span> <a href='tokenize.mu.html#L5'>tokenize</a> in, stream, <span class="Constant">0</span>/no-trace +<span id="L183" class="LineNr">183 </span> <span class="muComment">#</span> +<span id="L184" class="LineNr">184 </span> <span class="PreProc">var</span> curr-token-storage: <a href='cell.mu.html#L1'>cell</a> +<span id="L185" class="LineNr">185 </span> <span class="PreProc">var</span> curr-token/<span class="Constant">ebx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address curr-token-storage +<span id="L186" class="LineNr">186 </span> <a href='../309stream.subx.html#L104'>read-from-stream</a> stream, curr-token +<span id="L187" class="LineNr">187 </span> <span class="PreProc">var</span> bracket?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L823'>bracket-token?</a> curr-token +<span id="L188" class="LineNr">188 </span> <a href='../502test.mu.html#L19'>check</a> bracket?, <span class="Constant">"F - <a href='tokenize.mu.html#L174'>test-tokenize-stream-literal-in-tree</a>: open paren"</span> +<span id="L189" class="LineNr">189 </span> <a href='../309stream.subx.html#L104'>read-from-stream</a> stream, curr-token +<span id="L190" class="LineNr">190 </span> <span class="PreProc">var</span> stream?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L933'>stream-token?</a> curr-token +<span id="L191" class="LineNr">191 </span> <a href='../502test.mu.html#L19'>check</a> stream?, <span class="Constant">"F - <a href='tokenize.mu.html#L174'>test-tokenize-stream-literal-in-tree</a>: type"</span> +<span id="L192" class="LineNr">192 </span> <span class="PreProc">var</span> curr-token-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get curr-token, text-data +<span id="L193" class="LineNr">193 </span> <span class="PreProc">var</span> curr-token-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *curr-token-data-ah +<span id="L194" class="LineNr">194 </span> <span class="PreProc">var</span> data-equal?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-token-data, <span class="Constant">"abc def"</span> +<span id="L195" class="LineNr">195 </span> <a href='../502test.mu.html#L19'>check</a> data-equal?, <span class="Constant">"F - test-tokenize-stream-literal-in-tree"</span> +<span id="L196" class="LineNr">196 </span> <a href='../309stream.subx.html#L104'>read-from-stream</a> stream, curr-token +<span id="L197" class="LineNr">197 </span> <span class="PreProc">var</span> bracket?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L823'>bracket-token?</a> curr-token +<span id="L198" class="LineNr">198 </span> <a href='../502test.mu.html#L19'>check</a> bracket?, <span class="Constant">"F - <a href='tokenize.mu.html#L174'>test-tokenize-stream-literal-in-tree</a>: close paren"</span> +<span id="L199" class="LineNr">199 </span> <span class="PreProc">var</span> empty?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> stream +<span id="L200" class="LineNr">200 </span> <a href='../502test.mu.html#L19'>check</a> empty?, <span class="Constant">"F - <a href='tokenize.mu.html#L174'>test-tokenize-stream-literal-in-tree</a>: empty?"</span> <span id="L201" class="LineNr">201 </span><span class="Delimiter">}</span> <span id="L202" class="LineNr">202 </span> -<span id="L203" class="LineNr">203 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L203'>next-symbol-token</a></span> in: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>), out: (addr stream byte), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L204" class="LineNr">204 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"read"</span>, <span class="Constant">"looking for a symbol"</span> +<span id="L203" class="LineNr">203 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L203'>next-token</a></span> in: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>), _out-cell: (addr <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L204" class="LineNr">204 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"tokenize"</span>, <span class="Constant">"next-token"</span> <span id="L205" class="LineNr">205 </span> <a href='trace.mu.html#L147'>trace-lower</a> trace -<span id="L206" class="LineNr">206 </span> $next-symbol-token:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> -<span id="L207" class="LineNr">207 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='gap-buffer.mu.html#L757'>gap-buffer-scan-done?</a> in -<span id="L208" class="LineNr">208 </span> compare done?, <span class="Constant">0</span>/false -<span id="L209" class="LineNr">209 </span> <span class="PreProc">break-if-!=</span> -<span id="L210" class="LineNr">210 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L781'>peek-from-gap-buffer</a> in -<span id="L211" class="LineNr">211 </span> <span class="Delimiter">{</span> -<span id="L212" class="LineNr">212 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x40</span>) -<span id="L213" class="LineNr">213 </span> <span class="PreProc">var</span> stream/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage -<span id="L214" class="LineNr">214 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"next: "</span> -<span id="L215" class="LineNr">215 </span> <span class="PreProc">var</span> gval/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy g -<span id="L216" class="LineNr">216 </span> <a href='../117write-int-hex.subx.html#L92'>write-int32-hex</a> stream, gval -<span id="L217" class="LineNr">217 </span> trace trace, <span class="Constant">"read"</span>, stream -<span id="L218" class="LineNr">218 </span> <span class="Delimiter">}</span> -<span id="L219" class="LineNr">219 </span> <span class="muComment"># if non-symbol, return</span> -<span id="L220" class="LineNr">220 </span> <span class="Delimiter">{</span> -<span id="L221" class="LineNr">221 </span> <span class="PreProc">var</span> <a href='tokenize.mu.html#L375'>symbol-grapheme?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L375'>symbol-grapheme?</a> g -<span id="L222" class="LineNr">222 </span> compare <a href='tokenize.mu.html#L375'>symbol-grapheme?</a>, <span class="Constant">0</span>/false -<span id="L223" class="LineNr">223 </span> <span class="PreProc">break-if-!=</span> -<span id="L224" class="LineNr">224 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"read"</span>, <span class="Constant">"stop"</span> -<span id="L225" class="LineNr">225 </span> <span class="PreProc">break</span> $next-symbol-token:<span class="PreProc">loop</span> +<span id="L206" class="LineNr">206 </span> <span class="PreProc">var</span> out-cell/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out-cell +<span id="L207" class="LineNr">207 </span> <span class="Delimiter">{</span> +<span id="L208" class="LineNr">208 </span> <span class="PreProc">var</span> out-cell-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get out-cell, <span class="PreProc">type</span> +<span id="L209" class="LineNr">209 </span> copy-to *out-cell-type, <span class="Constant">0</span>/uninitialized +<span id="L210" class="LineNr">210 </span> <span class="Delimiter">}</span> +<span id="L211" class="LineNr">211 </span> <span class="PreProc">var</span> out-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get out-cell, text-data +<span id="L212" class="LineNr">212 </span> <span class="PreProc">var</span> _out/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *out-ah +<span id="L213" class="LineNr">213 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr stream byte) <span class="Special"><-</span> copy _out +<span id="L214" class="LineNr">214 </span> $next-token:body: <span class="Delimiter">{</span> +<span id="L215" class="LineNr">215 </span> <a href='../106stream.subx.html#L20'>clear-stream</a> out +<span id="L216" class="LineNr">216 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L781'>peek-from-gap-buffer</a> in +<span id="L217" class="LineNr">217 </span><span class="CommentedCode">#? draw-grapheme-at-cursor 0/screen, g, 7/fg, 0/bg</span> +<span id="L218" class="LineNr">218 </span><span class="CommentedCode">#? move-cursor-rightward-and-downward 0/screen, 0, 0x80</span> +<span id="L219" class="LineNr">219 </span> <span class="Delimiter">{</span> +<span id="L220" class="LineNr">220 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x40</span>) +<span id="L221" class="LineNr">221 </span> <span class="PreProc">var</span> stream/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L222" class="LineNr">222 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"next: "</span> +<span id="L223" class="LineNr">223 </span> <span class="PreProc">var</span> gval/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy g +<span id="L224" class="LineNr">224 </span> <a href='../117write-int-hex.subx.html#L92'>write-int32-hex</a> stream, gval +<span id="L225" class="LineNr">225 </span> trace trace, <span class="Constant">"tokenize"</span>, stream <span id="L226" class="LineNr">226 </span> <span class="Delimiter">}</span> -<span id="L227" class="LineNr">227 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L817'>read-from-gap-buffer</a> in -<span id="L228" class="LineNr">228 </span> <a href='../403unicode.mu.html#L176'>write-grapheme</a> out, g -<span id="L229" class="LineNr">229 </span> <span class="PreProc">loop</span> -<span id="L230" class="LineNr">230 </span> <span class="Delimiter">}</span> -<span id="L231" class="LineNr">231 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L232" class="LineNr">232 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x40</span>) -<span id="L233" class="LineNr">233 </span> <span class="PreProc">var</span> stream/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage -<span id="L234" class="LineNr">234 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"=> "</span> -<span id="L235" class="LineNr">235 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> out -<span id="L236" class="LineNr">236 </span> <a href='../113write-stream.subx.html#L8'>write-stream</a> stream, out -<span id="L237" class="LineNr">237 </span> trace trace, <span class="Constant">"read"</span>, stream -<span id="L238" class="LineNr">238 </span><span class="Delimiter">}</span> -<span id="L239" class="LineNr">239 </span> -<span id="L240" class="LineNr">240 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L240'>next-operator-token</a></span> in: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>), out: (addr stream byte), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L241" class="LineNr">241 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"read"</span>, <span class="Constant">"looking for a operator"</span> -<span id="L242" class="LineNr">242 </span> <a href='trace.mu.html#L147'>trace-lower</a> trace -<span id="L243" class="LineNr">243 </span> $next-operator-token:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> -<span id="L244" class="LineNr">244 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='gap-buffer.mu.html#L757'>gap-buffer-scan-done?</a> in -<span id="L245" class="LineNr">245 </span> compare done?, <span class="Constant">0</span>/false -<span id="L246" class="LineNr">246 </span> <span class="PreProc">break-if-!=</span> -<span id="L247" class="LineNr">247 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L781'>peek-from-gap-buffer</a> in -<span id="L248" class="LineNr">248 </span> <span class="Delimiter">{</span> -<span id="L249" class="LineNr">249 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x40</span>) -<span id="L250" class="LineNr">250 </span> <span class="PreProc">var</span> stream/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage -<span id="L251" class="LineNr">251 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"next: "</span> -<span id="L252" class="LineNr">252 </span> <span class="PreProc">var</span> gval/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy g -<span id="L253" class="LineNr">253 </span> <a href='../117write-int-hex.subx.html#L92'>write-int32-hex</a> stream, gval -<span id="L254" class="LineNr">254 </span> trace trace, <span class="Constant">"read"</span>, stream -<span id="L255" class="LineNr">255 </span> <span class="Delimiter">}</span> -<span id="L256" class="LineNr">256 </span> <span class="muComment"># if non-operator, return</span> -<span id="L257" class="LineNr">257 </span> <span class="Delimiter">{</span> -<span id="L258" class="LineNr">258 </span> <span class="PreProc">var</span> <a href='tokenize.mu.html#L576'>operator-grapheme?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L576'>operator-grapheme?</a> g -<span id="L259" class="LineNr">259 </span> compare <a href='tokenize.mu.html#L576'>operator-grapheme?</a>, <span class="Constant">0</span>/false -<span id="L260" class="LineNr">260 </span> <span class="PreProc">break-if-!=</span> -<span id="L261" class="LineNr">261 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"read"</span>, <span class="Constant">"stop"</span> -<span id="L262" class="LineNr">262 </span> <span class="PreProc">break</span> $next-operator-token:<span class="PreProc">loop</span> -<span id="L263" class="LineNr">263 </span> <span class="Delimiter">}</span> -<span id="L264" class="LineNr">264 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L817'>read-from-gap-buffer</a> in -<span id="L265" class="LineNr">265 </span> <a href='../403unicode.mu.html#L176'>write-grapheme</a> out, g -<span id="L266" class="LineNr">266 </span> <span class="PreProc">loop</span> -<span id="L267" class="LineNr">267 </span> <span class="Delimiter">}</span> -<span id="L268" class="LineNr">268 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L269" class="LineNr">269 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x40</span>) -<span id="L270" class="LineNr">270 </span> <span class="PreProc">var</span> stream/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage -<span id="L271" class="LineNr">271 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"=> "</span> -<span id="L272" class="LineNr">272 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> out -<span id="L273" class="LineNr">273 </span> <a href='../113write-stream.subx.html#L8'>write-stream</a> stream, out -<span id="L274" class="LineNr">274 </span> trace trace, <span class="Constant">"read"</span>, stream -<span id="L275" class="LineNr">275 </span><span class="Delimiter">}</span> -<span id="L276" class="LineNr">276 </span> -<span id="L277" class="LineNr">277 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L277'>next-number-token</a></span> in: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>), out: (addr stream byte), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L278" class="LineNr">278 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"read"</span>, <span class="Constant">"looking for a number"</span> -<span id="L279" class="LineNr">279 </span> <a href='trace.mu.html#L147'>trace-lower</a> trace -<span id="L280" class="LineNr">280 </span> $next-number-token:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> -<span id="L281" class="LineNr">281 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='gap-buffer.mu.html#L757'>gap-buffer-scan-done?</a> in -<span id="L282" class="LineNr">282 </span> compare done?, <span class="Constant">0</span>/false -<span id="L283" class="LineNr">283 </span> <span class="PreProc">break-if-!=</span> -<span id="L284" class="LineNr">284 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L781'>peek-from-gap-buffer</a> in -<span id="L285" class="LineNr">285 </span> <span class="Delimiter">{</span> -<span id="L286" class="LineNr">286 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x40</span>) -<span id="L287" class="LineNr">287 </span> <span class="PreProc">var</span> stream/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage -<span id="L288" class="LineNr">288 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"next: "</span> -<span id="L289" class="LineNr">289 </span> <span class="PreProc">var</span> gval/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy g -<span id="L290" class="LineNr">290 </span> <a href='../117write-int-hex.subx.html#L92'>write-int32-hex</a> stream, gval -<span id="L291" class="LineNr">291 </span> trace trace, <span class="Constant">"read"</span>, stream +<span id="L227" class="LineNr">227 </span> <span class="muComment"># comment</span> +<span id="L228" class="LineNr">228 </span> <span class="Delimiter">{</span> +<span id="L229" class="LineNr">229 </span> compare g, <span class="Constant">0x23</span>/comment +<span id="L230" class="LineNr">230 </span> <span class="PreProc">break-if-!=</span> +<span id="L231" class="LineNr">231 </span> <a href='tokenize.mu.html#L477'>rest-of-line</a> in, out, trace +<span id="L232" class="LineNr">232 </span> <span class="PreProc">break</span> $next-token:body +<span id="L233" class="LineNr">233 </span> <span class="Delimiter">}</span> +<span id="L234" class="LineNr">234 </span> <span class="muComment"># digit</span> +<span id="L235" class="LineNr">235 </span> <span class="Delimiter">{</span> +<span id="L236" class="LineNr">236 </span> <span class="PreProc">var</span> digit?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../126write-int-decimal.subx.html#L296'>decimal-digit?</a> g +<span id="L237" class="LineNr">237 </span> compare digit?, <span class="Constant">0</span>/false +<span id="L238" class="LineNr">238 </span> <span class="PreProc">break-if-=</span> +<span id="L239" class="LineNr">239 </span> <a href='tokenize.mu.html#L402'>next-number-token</a> in, out, trace +<span id="L240" class="LineNr">240 </span> <span class="PreProc">break</span> $next-token:body +<span id="L241" class="LineNr">241 </span> <span class="Delimiter">}</span> +<span id="L242" class="LineNr">242 </span> <span class="muComment"># other symbol char</span> +<span id="L243" class="LineNr">243 </span> <span class="Delimiter">{</span> +<span id="L244" class="LineNr">244 </span> <span class="PreProc">var</span> symbol?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L500'>symbol-grapheme?</a> g +<span id="L245" class="LineNr">245 </span> compare symbol?, <span class="Constant">0</span>/false +<span id="L246" class="LineNr">246 </span> <span class="PreProc">break-if-=</span> +<span id="L247" class="LineNr">247 </span> <a href='tokenize.mu.html#L328'>next-symbol-token</a> in, out, trace +<span id="L248" class="LineNr">248 </span> <span class="PreProc">break</span> $next-token:body +<span id="L249" class="LineNr">249 </span> <span class="Delimiter">}</span> +<span id="L250" class="LineNr">250 </span> <span class="muComment"># open square brackets begin streams</span> +<span id="L251" class="LineNr">251 </span> <span class="Delimiter">{</span> +<span id="L252" class="LineNr">252 </span> compare g, <span class="Constant">0x5b</span>/open-square-bracket +<span id="L253" class="LineNr">253 </span> <span class="PreProc">break-if-!=</span> +<span id="L254" class="LineNr">254 </span> g <span class="Special"><-</span> <a href='gap-buffer.mu.html#L817'>read-from-gap-buffer</a> in <span class="muComment"># skip open bracket</span> +<span id="L255" class="LineNr">255 </span> <a href='tokenize.mu.html#L442'>next-stream-token</a> in, out, trace +<span id="L256" class="LineNr">256 </span> <span class="PreProc">var</span> out-cell/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out-cell +<span id="L257" class="LineNr">257 </span> <span class="PreProc">var</span> out-cell-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get out-cell, <span class="PreProc">type</span> +<span id="L258" class="LineNr">258 </span> copy-to *out-cell-type, <span class="Constant">3</span>/stream +<span id="L259" class="LineNr">259 </span> <span class="PreProc">break</span> $next-token:body +<span id="L260" class="LineNr">260 </span> <span class="Delimiter">}</span> +<span id="L261" class="LineNr">261 </span> <span class="muComment"># unbalanced close square brackets are errors</span> +<span id="L262" class="LineNr">262 </span> <span class="Delimiter">{</span> +<span id="L263" class="LineNr">263 </span> compare g, <span class="Constant">0x5d</span>/close-square-bracket +<span id="L264" class="LineNr">264 </span> <span class="PreProc">break-if-!=</span> +<span id="L265" class="LineNr">265 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"unbalanced ']'"</span> +<span id="L266" class="LineNr">266 </span> <span class="PreProc">return</span> +<span id="L267" class="LineNr">267 </span> <span class="Delimiter">}</span> +<span id="L268" class="LineNr">268 </span> <span class="muComment"># other brackets are always single-char tokens</span> +<span id="L269" class="LineNr">269 </span> <span class="Delimiter">{</span> +<span id="L270" class="LineNr">270 </span> <span class="PreProc">var</span> bracket?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L672'>bracket-grapheme?</a> g +<span id="L271" class="LineNr">271 </span> compare bracket?, <span class="Constant">0</span>/false +<span id="L272" class="LineNr">272 </span> <span class="PreProc">break-if-=</span> +<span id="L273" class="LineNr">273 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L817'>read-from-gap-buffer</a> in +<span id="L274" class="LineNr">274 </span> <a href='tokenize.mu.html#L466'>next-bracket-token</a> g, out, trace +<span id="L275" class="LineNr">275 </span> <span class="PreProc">break</span> $next-token:body +<span id="L276" class="LineNr">276 </span> <span class="Delimiter">}</span> +<span id="L277" class="LineNr">277 </span> <span class="muComment"># non-symbol operators</span> +<span id="L278" class="LineNr">278 </span> <span class="Delimiter">{</span> +<span id="L279" class="LineNr">279 </span> <span class="PreProc">var</span> operator?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L706'>operator-grapheme?</a> g +<span id="L280" class="LineNr">280 </span> compare operator?, <span class="Constant">0</span>/false +<span id="L281" class="LineNr">281 </span> <span class="PreProc">break-if-=</span> +<span id="L282" class="LineNr">282 </span> <a href='tokenize.mu.html#L365'>next-operator-token</a> in, out, trace +<span id="L283" class="LineNr">283 </span> <span class="PreProc">break</span> $next-token:body +<span id="L284" class="LineNr">284 </span> <span class="Delimiter">}</span> +<span id="L285" class="LineNr">285 </span> <span class="muComment"># quote</span> +<span id="L286" class="LineNr">286 </span> <span class="Delimiter">{</span> +<span id="L287" class="LineNr">287 </span> compare g, <span class="Constant">0x27</span>/single-quote +<span id="L288" class="LineNr">288 </span> <span class="PreProc">break-if-!=</span> +<span id="L289" class="LineNr">289 </span> g <span class="Special"><-</span> <a href='gap-buffer.mu.html#L817'>read-from-gap-buffer</a> in <span class="muComment"># consume</span> +<span id="L290" class="LineNr">290 </span> <a href='../403unicode.mu.html#L176'>write-grapheme</a> out, g +<span id="L291" class="LineNr">291 </span> <span class="PreProc">break</span> $next-token:body <span id="L292" class="LineNr">292 </span> <span class="Delimiter">}</span> -<span id="L293" class="LineNr">293 </span> <span class="muComment"># if not symbol grapheme, return</span> +<span id="L293" class="LineNr">293 </span> <span class="muComment"># backquote</span> <span id="L294" class="LineNr">294 </span> <span class="Delimiter">{</span> -<span id="L295" class="LineNr">295 </span> <span class="PreProc">var</span> <a href='tokenize.mu.html#L375'>symbol-grapheme?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L375'>symbol-grapheme?</a> g -<span id="L296" class="LineNr">296 </span> compare <a href='tokenize.mu.html#L375'>symbol-grapheme?</a>, <span class="Constant">0</span>/false -<span id="L297" class="LineNr">297 </span> <span class="PreProc">break-if-!=</span> -<span id="L298" class="LineNr">298 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"read"</span>, <span class="Constant">"stop"</span> -<span id="L299" class="LineNr">299 </span> <span class="PreProc">break</span> $next-number-token:<span class="PreProc">loop</span> +<span id="L295" class="LineNr">295 </span> compare g, <span class="Constant">0x60</span>/single-quote +<span id="L296" class="LineNr">296 </span> <span class="PreProc">break-if-!=</span> +<span id="L297" class="LineNr">297 </span> g <span class="Special"><-</span> <a href='gap-buffer.mu.html#L817'>read-from-gap-buffer</a> in <span class="muComment"># consume</span> +<span id="L298" class="LineNr">298 </span> <a href='../403unicode.mu.html#L176'>write-grapheme</a> out, g +<span id="L299" class="LineNr">299 </span> <span class="PreProc">break</span> $next-token:body <span id="L300" class="LineNr">300 </span> <span class="Delimiter">}</span> -<span id="L301" class="LineNr">301 </span> <span class="muComment"># if not digit grapheme, abort</span> +<span id="L301" class="LineNr">301 </span> <span class="muComment"># unquote</span> <span id="L302" class="LineNr">302 </span> <span class="Delimiter">{</span> -<span id="L303" class="LineNr">303 </span> <span class="PreProc">var</span> digit?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../126write-int-decimal.subx.html#L299'>decimal-digit?</a> g -<span id="L304" class="LineNr">304 </span> compare digit?, <span class="Constant">0</span>/false -<span id="L305" class="LineNr">305 </span> <span class="PreProc">break-if-!=</span> -<span id="L306" class="LineNr">306 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"invalid number"</span> -<span id="L307" class="LineNr">307 </span> <span class="PreProc">return</span> -<span id="L308" class="LineNr">308 </span> <span class="Delimiter">}</span> -<span id="L309" class="LineNr">309 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"read"</span>, <span class="Constant">"append"</span> -<span id="L310" class="LineNr">310 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L817'>read-from-gap-buffer</a> in -<span id="L311" class="LineNr">311 </span> <a href='../403unicode.mu.html#L176'>write-grapheme</a> out, g -<span id="L312" class="LineNr">312 </span> <span class="PreProc">loop</span> -<span id="L313" class="LineNr">313 </span> <span class="Delimiter">}</span> -<span id="L314" class="LineNr">314 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace -<span id="L315" class="LineNr">315 </span><span class="Delimiter">}</span> -<span id="L316" class="LineNr">316 </span> -<span id="L317" class="LineNr">317 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L317'>next-stream-token</a></span> in: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>), out: (addr stream byte), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L318" class="LineNr">318 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"read"</span>, <span class="Constant">"stream"</span> -<span id="L319" class="LineNr">319 </span> <span class="Delimiter">{</span> -<span id="L320" class="LineNr">320 </span> <span class="PreProc">var</span> empty?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='gap-buffer.mu.html#L757'>gap-buffer-scan-done?</a> in -<span id="L321" class="LineNr">321 </span> compare empty?, <span class="Constant">0</span>/false -<span id="L322" class="LineNr">322 </span> <span class="Delimiter">{</span> -<span id="L323" class="LineNr">323 </span> <span class="PreProc">break-if-=</span> -<span id="L324" class="LineNr">324 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"unbalanced '['"</span> -<span id="L325" class="LineNr">325 </span> <span class="PreProc">return</span> -<span id="L326" class="LineNr">326 </span> <span class="Delimiter">}</span> -<span id="L327" class="LineNr">327 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L817'>read-from-gap-buffer</a> in -<span id="L328" class="LineNr">328 </span> compare g, <span class="Constant">0x5d</span>/close-square-bracket -<span id="L329" class="LineNr">329 </span> <span class="PreProc">break-if-=</span> -<span id="L330" class="LineNr">330 </span> <a href='../403unicode.mu.html#L176'>write-grapheme</a> out, g -<span id="L331" class="LineNr">331 </span> <span class="PreProc">loop</span> -<span id="L332" class="LineNr">332 </span> <span class="Delimiter">}</span> -<span id="L333" class="LineNr">333 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x40</span>) -<span id="L334" class="LineNr">334 </span> <span class="PreProc">var</span> stream/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage -<span id="L335" class="LineNr">335 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"=> "</span> -<span id="L336" class="LineNr">336 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> out -<span id="L337" class="LineNr">337 </span> <a href='../113write-stream.subx.html#L8'>write-stream</a> stream, out -<span id="L338" class="LineNr">338 </span> trace trace, <span class="Constant">"read"</span>, stream -<span id="L339" class="LineNr">339 </span><span class="Delimiter">}</span> -<span id="L340" class="LineNr">340 </span> -<span id="L341" class="LineNr">341 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L341'>next-bracket-token</a></span> g: grapheme, out: (addr stream byte), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L342" class="LineNr">342 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"read"</span>, <span class="Constant">"bracket"</span> -<span id="L343" class="LineNr">343 </span> <a href='../403unicode.mu.html#L176'>write-grapheme</a> out, g -<span id="L344" class="LineNr">344 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x40</span>) -<span id="L345" class="LineNr">345 </span> <span class="PreProc">var</span> stream/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage -<span id="L346" class="LineNr">346 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"=> "</span> -<span id="L347" class="LineNr">347 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> out -<span id="L348" class="LineNr">348 </span> <a href='../113write-stream.subx.html#L8'>write-stream</a> stream, out -<span id="L349" class="LineNr">349 </span> trace trace, <span class="Constant">"read"</span>, stream -<span id="L350" class="LineNr">350 </span><span class="Delimiter">}</span> -<span id="L351" class="LineNr">351 </span> -<span id="L352" class="LineNr">352 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L352'>rest-of-line</a></span> in: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>), out: (addr stream byte), trace: (addr trace) <span class="Delimiter">{</span> -<span id="L353" class="LineNr">353 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"read"</span>, <span class="Constant">"comment"</span> -<span id="L354" class="LineNr">354 </span> <span class="Delimiter">{</span> -<span id="L355" class="LineNr">355 </span> <span class="PreProc">var</span> empty?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='gap-buffer.mu.html#L757'>gap-buffer-scan-done?</a> in -<span id="L356" class="LineNr">356 </span> compare empty?, <span class="Constant">0</span>/false -<span id="L357" class="LineNr">357 </span> <span class="Delimiter">{</span> -<span id="L358" class="LineNr">358 </span> <span class="PreProc">break-if-=</span> -<span id="L359" class="LineNr">359 </span> <span class="PreProc">return</span> -<span id="L360" class="LineNr">360 </span> <span class="Delimiter">}</span> -<span id="L361" class="LineNr">361 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L817'>read-from-gap-buffer</a> in -<span id="L362" class="LineNr">362 </span> compare g, <span class="Constant">0xa</span>/newline -<span id="L363" class="LineNr">363 </span> <span class="PreProc">break-if-=</span> -<span id="L364" class="LineNr">364 </span> <a href='../403unicode.mu.html#L176'>write-grapheme</a> out, g -<span id="L365" class="LineNr">365 </span> <span class="PreProc">loop</span> -<span id="L366" class="LineNr">366 </span> <span class="Delimiter">}</span> -<span id="L367" class="LineNr">367 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x80</span>) -<span id="L368" class="LineNr">368 </span> <span class="PreProc">var</span> stream/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage -<span id="L369" class="LineNr">369 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"=> "</span> -<span id="L370" class="LineNr">370 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> out -<span id="L371" class="LineNr">371 </span> <a href='../113write-stream.subx.html#L8'>write-stream</a> stream, out -<span id="L372" class="LineNr">372 </span> trace trace, <span class="Constant">"read"</span>, stream -<span id="L373" class="LineNr">373 </span><span class="Delimiter">}</span> -<span id="L374" class="LineNr">374 </span> -<span id="L375" class="LineNr">375 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L375'>symbol-grapheme?</a></span> g: grapheme<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L376" class="LineNr">376 </span> <span class="muComment">## whitespace</span> -<span id="L377" class="LineNr">377 </span> compare g, <span class="Constant">9</span>/tab -<span id="L378" class="LineNr">378 </span> <span class="Delimiter">{</span> -<span id="L379" class="LineNr">379 </span> <span class="PreProc">break-if-!=</span> -<span id="L380" class="LineNr">380 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L381" class="LineNr">381 </span> <span class="Delimiter">}</span> -<span id="L382" class="LineNr">382 </span> compare g, <span class="Constant">0xa</span>/newline -<span id="L383" class="LineNr">383 </span> <span class="Delimiter">{</span> -<span id="L384" class="LineNr">384 </span> <span class="PreProc">break-if-!=</span> -<span id="L385" class="LineNr">385 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L386" class="LineNr">386 </span> <span class="Delimiter">}</span> -<span id="L387" class="LineNr">387 </span> compare g, <span class="Constant">0x20</span>/space -<span id="L388" class="LineNr">388 </span> <span class="Delimiter">{</span> -<span id="L389" class="LineNr">389 </span> <span class="PreProc">break-if-!=</span> -<span id="L390" class="LineNr">390 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L391" class="LineNr">391 </span> <span class="Delimiter">}</span> -<span id="L392" class="LineNr">392 </span> <span class="muComment">## quotes</span> -<span id="L393" class="LineNr">393 </span> compare g, <span class="Constant">0x22</span>/double-quote -<span id="L394" class="LineNr">394 </span> <span class="Delimiter">{</span> -<span id="L395" class="LineNr">395 </span> <span class="PreProc">break-if-!=</span> -<span id="L396" class="LineNr">396 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L397" class="LineNr">397 </span> <span class="Delimiter">}</span> -<span id="L398" class="LineNr">398 </span> compare g, <span class="Constant">0x60</span>/backquote -<span id="L399" class="LineNr">399 </span> <span class="Delimiter">{</span> -<span id="L400" class="LineNr">400 </span> <span class="PreProc">break-if-!=</span> -<span id="L401" class="LineNr">401 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L402" class="LineNr">402 </span> <span class="Delimiter">}</span> -<span id="L403" class="LineNr">403 </span> <span class="muComment">## brackets</span> -<span id="L404" class="LineNr">404 </span> compare g, <span class="Constant">0x28</span>/open-paren -<span id="L405" class="LineNr">405 </span> <span class="Delimiter">{</span> -<span id="L406" class="LineNr">406 </span> <span class="PreProc">break-if-!=</span> -<span id="L407" class="LineNr">407 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L408" class="LineNr">408 </span> <span class="Delimiter">}</span> -<span id="L409" class="LineNr">409 </span> compare g, <span class="Constant">0x29</span>/close-paren -<span id="L410" class="LineNr">410 </span> <span class="Delimiter">{</span> -<span id="L411" class="LineNr">411 </span> <span class="PreProc">break-if-!=</span> -<span id="L412" class="LineNr">412 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L413" class="LineNr">413 </span> <span class="Delimiter">}</span> -<span id="L414" class="LineNr">414 </span> compare g, <span class="Constant">0x5b</span>/open-square-bracket -<span id="L415" class="LineNr">415 </span> <span class="Delimiter">{</span> -<span id="L416" class="LineNr">416 </span> <span class="PreProc">break-if-!=</span> -<span id="L417" class="LineNr">417 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L418" class="LineNr">418 </span> <span class="Delimiter">}</span> -<span id="L419" class="LineNr">419 </span> compare g, <span class="Constant">0x5d</span>/close-square-bracket -<span id="L420" class="LineNr">420 </span> <span class="Delimiter">{</span> -<span id="L421" class="LineNr">421 </span> <span class="PreProc">break-if-!=</span> -<span id="L422" class="LineNr">422 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L423" class="LineNr">423 </span> <span class="Delimiter">}</span> -<span id="L424" class="LineNr">424 </span> compare g, <span class="Constant">0x7b</span>/open-curly-bracket -<span id="L425" class="LineNr">425 </span> <span class="Delimiter">{</span> -<span id="L426" class="LineNr">426 </span> <span class="PreProc">break-if-!=</span> -<span id="L427" class="LineNr">427 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L428" class="LineNr">428 </span> <span class="Delimiter">}</span> -<span id="L429" class="LineNr">429 </span> compare g, <span class="Constant">0x7d</span>/close-curly-bracket -<span id="L430" class="LineNr">430 </span> <span class="Delimiter">{</span> -<span id="L431" class="LineNr">431 </span> <span class="PreProc">break-if-!=</span> -<span id="L432" class="LineNr">432 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L433" class="LineNr">433 </span> <span class="Delimiter">}</span> -<span id="L434" class="LineNr">434 </span> <span class="muComment"># - other punctuation</span> -<span id="L435" class="LineNr">435 </span> <span class="muComment"># '!' is a symbol char</span> -<span id="L436" class="LineNr">436 </span> compare g, <span class="Constant">0x23</span>/hash -<span id="L437" class="LineNr">437 </span> <span class="Delimiter">{</span> -<span id="L438" class="LineNr">438 </span> <span class="PreProc">break-if-!=</span> -<span id="L439" class="LineNr">439 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L440" class="LineNr">440 </span> <span class="Delimiter">}</span> -<span id="L441" class="LineNr">441 </span> <span class="muComment"># '$' is a symbol char</span> -<span id="L442" class="LineNr">442 </span> compare g, <span class="Constant">0x25</span>/percent -<span id="L443" class="LineNr">443 </span> <span class="Delimiter">{</span> -<span id="L444" class="LineNr">444 </span> <span class="PreProc">break-if-!=</span> -<span id="L445" class="LineNr">445 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L446" class="LineNr">446 </span> <span class="Delimiter">}</span> -<span id="L447" class="LineNr">447 </span> compare g, <span class="Constant">0x26</span>/ampersand -<span id="L448" class="LineNr">448 </span> <span class="Delimiter">{</span> -<span id="L449" class="LineNr">449 </span> <span class="PreProc">break-if-!=</span> -<span id="L450" class="LineNr">450 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L451" class="LineNr">451 </span> <span class="Delimiter">}</span> -<span id="L452" class="LineNr">452 </span> compare g, <span class="Constant">0x27</span>/single-quote -<span id="L453" class="LineNr">453 </span> <span class="Delimiter">{</span> -<span id="L454" class="LineNr">454 </span> <span class="PreProc">break-if-!=</span> -<span id="L455" class="LineNr">455 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L456" class="LineNr">456 </span> <span class="Delimiter">}</span> -<span id="L457" class="LineNr">457 </span> compare g, <span class="Constant">0x2a</span>/asterisk -<span id="L458" class="LineNr">458 </span> <span class="Delimiter">{</span> -<span id="L459" class="LineNr">459 </span> <span class="PreProc">break-if-!=</span> -<span id="L460" class="LineNr">460 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L461" class="LineNr">461 </span> <span class="Delimiter">}</span> -<span id="L462" class="LineNr">462 </span> compare g, <span class="Constant">0x2b</span>/plus -<span id="L463" class="LineNr">463 </span> <span class="Delimiter">{</span> -<span id="L464" class="LineNr">464 </span> <span class="PreProc">break-if-!=</span> -<span id="L465" class="LineNr">465 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L466" class="LineNr">466 </span> <span class="Delimiter">}</span> -<span id="L467" class="LineNr">467 </span> compare g, <span class="Constant">0x2c</span>/comma -<span id="L468" class="LineNr">468 </span> <span class="Delimiter">{</span> -<span id="L469" class="LineNr">469 </span> <span class="PreProc">break-if-!=</span> -<span id="L470" class="LineNr">470 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L471" class="LineNr">471 </span> <span class="Delimiter">}</span> -<span id="L472" class="LineNr">472 </span> compare g, <span class="Constant">0x2d</span>/dash <span class="muComment"># '-' not allowed in symbols</span> -<span id="L473" class="LineNr">473 </span> <span class="Delimiter">{</span> -<span id="L474" class="LineNr">474 </span> <span class="PreProc">break-if-!=</span> -<span id="L475" class="LineNr">475 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L476" class="LineNr">476 </span> <span class="Delimiter">}</span> -<span id="L477" class="LineNr">477 </span> compare g, <span class="Constant">0x2e</span>/period -<span id="L478" class="LineNr">478 </span> <span class="Delimiter">{</span> -<span id="L479" class="LineNr">479 </span> <span class="PreProc">break-if-!=</span> -<span id="L480" class="LineNr">480 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L481" class="LineNr">481 </span> <span class="Delimiter">}</span> -<span id="L482" class="LineNr">482 </span> compare g, <span class="Constant">0x2f</span>/slash -<span id="L483" class="LineNr">483 </span> <span class="Delimiter">{</span> -<span id="L484" class="LineNr">484 </span> <span class="PreProc">break-if-!=</span> -<span id="L485" class="LineNr">485 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L486" class="LineNr">486 </span> <span class="Delimiter">}</span> -<span id="L487" class="LineNr">487 </span> compare g, <span class="Constant">0x3a</span>/colon -<span id="L488" class="LineNr">488 </span> <span class="Delimiter">{</span> -<span id="L489" class="LineNr">489 </span> <span class="PreProc">break-if-!=</span> -<span id="L490" class="LineNr">490 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L303" class="LineNr">303 </span> compare g, <span class="Constant">0x2c</span>/comma +<span id="L304" class="LineNr">304 </span> <span class="PreProc">break-if-!=</span> +<span id="L305" class="LineNr">305 </span> g <span class="Special"><-</span> <a href='gap-buffer.mu.html#L817'>read-from-gap-buffer</a> in <span class="muComment"># consume</span> +<span id="L306" class="LineNr">306 </span> <a href='../403unicode.mu.html#L176'>write-grapheme</a> out, g +<span id="L307" class="LineNr">307 </span> <span class="muComment"># check for unquote-splice</span> +<span id="L308" class="LineNr">308 </span> <span class="Delimiter">{</span> +<span id="L309" class="LineNr">309 </span> <span class="PreProc">var</span> g2/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L781'>peek-from-gap-buffer</a> in +<span id="L310" class="LineNr">310 </span> compare g2, <span class="Constant">0x40</span>/at-sign +<span id="L311" class="LineNr">311 </span> <span class="PreProc">break-if-!=</span> +<span id="L312" class="LineNr">312 </span> g2 <span class="Special"><-</span> <a href='gap-buffer.mu.html#L817'>read-from-gap-buffer</a> in +<span id="L313" class="LineNr">313 </span> <a href='../403unicode.mu.html#L176'>write-grapheme</a> out, g2 +<span id="L314" class="LineNr">314 </span> <span class="Delimiter">}</span> +<span id="L315" class="LineNr">315 </span> <span class="PreProc">break</span> $next-token:body +<span id="L316" class="LineNr">316 </span> <span class="Delimiter">}</span> +<span id="L317" class="LineNr">317 </span> <a href='../317abort.subx.html#L5'>abort</a> <span class="Constant">"unknown token type"</span> +<span id="L318" class="LineNr">318 </span> <span class="Delimiter">}</span> +<span id="L319" class="LineNr">319 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L320" class="LineNr">320 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x400</span>) <span class="muComment"># maximum possible token size (next-stream-token)</span> +<span id="L321" class="LineNr">321 </span> <span class="PreProc">var</span> stream/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L322" class="LineNr">322 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"=> "</span> +<span id="L323" class="LineNr">323 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> out +<span id="L324" class="LineNr">324 </span> <a href='../113write-stream.subx.html#L8'>write-stream</a> stream, out +<span id="L325" class="LineNr">325 </span> trace trace, <span class="Constant">"tokenize"</span>, stream +<span id="L326" class="LineNr">326 </span><span class="Delimiter">}</span> +<span id="L327" class="LineNr">327 </span> +<span id="L328" class="LineNr">328 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L328'>next-symbol-token</a></span> in: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>), out: (addr stream byte), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L329" class="LineNr">329 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"tokenize"</span>, <span class="Constant">"looking for a symbol"</span> +<span id="L330" class="LineNr">330 </span> <a href='trace.mu.html#L147'>trace-lower</a> trace +<span id="L331" class="LineNr">331 </span> $next-symbol-token:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> +<span id="L332" class="LineNr">332 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='gap-buffer.mu.html#L757'>gap-buffer-scan-done?</a> in +<span id="L333" class="LineNr">333 </span> compare done?, <span class="Constant">0</span>/false +<span id="L334" class="LineNr">334 </span> <span class="PreProc">break-if-!=</span> +<span id="L335" class="LineNr">335 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L781'>peek-from-gap-buffer</a> in +<span id="L336" class="LineNr">336 </span> <span class="Delimiter">{</span> +<span id="L337" class="LineNr">337 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x40</span>) +<span id="L338" class="LineNr">338 </span> <span class="PreProc">var</span> stream/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L339" class="LineNr">339 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"next: "</span> +<span id="L340" class="LineNr">340 </span> <span class="PreProc">var</span> gval/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy g +<span id="L341" class="LineNr">341 </span> <a href='../117write-int-hex.subx.html#L92'>write-int32-hex</a> stream, gval +<span id="L342" class="LineNr">342 </span> trace trace, <span class="Constant">"tokenize"</span>, stream +<span id="L343" class="LineNr">343 </span> <span class="Delimiter">}</span> +<span id="L344" class="LineNr">344 </span> <span class="muComment"># if non-symbol, return</span> +<span id="L345" class="LineNr">345 </span> <span class="Delimiter">{</span> +<span id="L346" class="LineNr">346 </span> <span class="PreProc">var</span> <a href='tokenize.mu.html#L500'>symbol-grapheme?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L500'>symbol-grapheme?</a> g +<span id="L347" class="LineNr">347 </span> compare <a href='tokenize.mu.html#L500'>symbol-grapheme?</a>, <span class="Constant">0</span>/false +<span id="L348" class="LineNr">348 </span> <span class="PreProc">break-if-!=</span> +<span id="L349" class="LineNr">349 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"tokenize"</span>, <span class="Constant">"stop"</span> +<span id="L350" class="LineNr">350 </span> <span class="PreProc">break</span> $next-symbol-token:<span class="PreProc">loop</span> +<span id="L351" class="LineNr">351 </span> <span class="Delimiter">}</span> +<span id="L352" class="LineNr">352 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L817'>read-from-gap-buffer</a> in +<span id="L353" class="LineNr">353 </span> <a href='../403unicode.mu.html#L176'>write-grapheme</a> out, g +<span id="L354" class="LineNr">354 </span> <span class="PreProc">loop</span> +<span id="L355" class="LineNr">355 </span> <span class="Delimiter">}</span> +<span id="L356" class="LineNr">356 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L357" class="LineNr">357 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x40</span>) +<span id="L358" class="LineNr">358 </span> <span class="PreProc">var</span> stream/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L359" class="LineNr">359 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"=> "</span> +<span id="L360" class="LineNr">360 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> out +<span id="L361" class="LineNr">361 </span> <a href='../113write-stream.subx.html#L8'>write-stream</a> stream, out +<span id="L362" class="LineNr">362 </span> trace trace, <span class="Constant">"tokenize"</span>, stream +<span id="L363" class="LineNr">363 </span><span class="Delimiter">}</span> +<span id="L364" class="LineNr">364 </span> +<span id="L365" class="LineNr">365 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L365'>next-operator-token</a></span> in: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>), out: (addr stream byte), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L366" class="LineNr">366 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"tokenize"</span>, <span class="Constant">"looking for a operator"</span> +<span id="L367" class="LineNr">367 </span> <a href='trace.mu.html#L147'>trace-lower</a> trace +<span id="L368" class="LineNr">368 </span> $next-operator-token:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> +<span id="L369" class="LineNr">369 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='gap-buffer.mu.html#L757'>gap-buffer-scan-done?</a> in +<span id="L370" class="LineNr">370 </span> compare done?, <span class="Constant">0</span>/false +<span id="L371" class="LineNr">371 </span> <span class="PreProc">break-if-!=</span> +<span id="L372" class="LineNr">372 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L781'>peek-from-gap-buffer</a> in +<span id="L373" class="LineNr">373 </span> <span class="Delimiter">{</span> +<span id="L374" class="LineNr">374 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x40</span>) +<span id="L375" class="LineNr">375 </span> <span class="PreProc">var</span> stream/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L376" class="LineNr">376 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"next: "</span> +<span id="L377" class="LineNr">377 </span> <span class="PreProc">var</span> gval/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy g +<span id="L378" class="LineNr">378 </span> <a href='../117write-int-hex.subx.html#L92'>write-int32-hex</a> stream, gval +<span id="L379" class="LineNr">379 </span> trace trace, <span class="Constant">"tokenize"</span>, stream +<span id="L380" class="LineNr">380 </span> <span class="Delimiter">}</span> +<span id="L381" class="LineNr">381 </span> <span class="muComment"># if non-operator, return</span> +<span id="L382" class="LineNr">382 </span> <span class="Delimiter">{</span> +<span id="L383" class="LineNr">383 </span> <span class="PreProc">var</span> <a href='tokenize.mu.html#L706'>operator-grapheme?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L706'>operator-grapheme?</a> g +<span id="L384" class="LineNr">384 </span> compare <a href='tokenize.mu.html#L706'>operator-grapheme?</a>, <span class="Constant">0</span>/false +<span id="L385" class="LineNr">385 </span> <span class="PreProc">break-if-!=</span> +<span id="L386" class="LineNr">386 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"tokenize"</span>, <span class="Constant">"stop"</span> +<span id="L387" class="LineNr">387 </span> <span class="PreProc">break</span> $next-operator-token:<span class="PreProc">loop</span> +<span id="L388" class="LineNr">388 </span> <span class="Delimiter">}</span> +<span id="L389" class="LineNr">389 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L817'>read-from-gap-buffer</a> in +<span id="L390" class="LineNr">390 </span> <a href='../403unicode.mu.html#L176'>write-grapheme</a> out, g +<span id="L391" class="LineNr">391 </span> <span class="PreProc">loop</span> +<span id="L392" class="LineNr">392 </span> <span class="Delimiter">}</span> +<span id="L393" class="LineNr">393 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L394" class="LineNr">394 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x40</span>) +<span id="L395" class="LineNr">395 </span> <span class="PreProc">var</span> stream/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L396" class="LineNr">396 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"=> "</span> +<span id="L397" class="LineNr">397 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> out +<span id="L398" class="LineNr">398 </span> <a href='../113write-stream.subx.html#L8'>write-stream</a> stream, out +<span id="L399" class="LineNr">399 </span> trace trace, <span class="Constant">"tokenize"</span>, stream +<span id="L400" class="LineNr">400 </span><span class="Delimiter">}</span> +<span id="L401" class="LineNr">401 </span> +<span id="L402" class="LineNr">402 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L402'>next-number-token</a></span> in: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>), out: (addr stream byte), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L403" class="LineNr">403 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"tokenize"</span>, <span class="Constant">"looking for a number"</span> +<span id="L404" class="LineNr">404 </span> <a href='trace.mu.html#L147'>trace-lower</a> trace +<span id="L405" class="LineNr">405 </span> $next-number-token:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> +<span id="L406" class="LineNr">406 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='gap-buffer.mu.html#L757'>gap-buffer-scan-done?</a> in +<span id="L407" class="LineNr">407 </span> compare done?, <span class="Constant">0</span>/false +<span id="L408" class="LineNr">408 </span> <span class="PreProc">break-if-!=</span> +<span id="L409" class="LineNr">409 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L781'>peek-from-gap-buffer</a> in +<span id="L410" class="LineNr">410 </span> <span class="Delimiter">{</span> +<span id="L411" class="LineNr">411 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x40</span>) +<span id="L412" class="LineNr">412 </span> <span class="PreProc">var</span> stream/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L413" class="LineNr">413 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"next: "</span> +<span id="L414" class="LineNr">414 </span> <span class="PreProc">var</span> gval/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy g +<span id="L415" class="LineNr">415 </span> <a href='../117write-int-hex.subx.html#L92'>write-int32-hex</a> stream, gval +<span id="L416" class="LineNr">416 </span> trace trace, <span class="Constant">"tokenize"</span>, stream +<span id="L417" class="LineNr">417 </span> <span class="Delimiter">}</span> +<span id="L418" class="LineNr">418 </span> <span class="muComment"># if not symbol grapheme, return</span> +<span id="L419" class="LineNr">419 </span> <span class="Delimiter">{</span> +<span id="L420" class="LineNr">420 </span> <span class="PreProc">var</span> <a href='tokenize.mu.html#L500'>symbol-grapheme?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L500'>symbol-grapheme?</a> g +<span id="L421" class="LineNr">421 </span> compare <a href='tokenize.mu.html#L500'>symbol-grapheme?</a>, <span class="Constant">0</span>/false +<span id="L422" class="LineNr">422 </span> <span class="PreProc">break-if-!=</span> +<span id="L423" class="LineNr">423 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"tokenize"</span>, <span class="Constant">"stop"</span> +<span id="L424" class="LineNr">424 </span> <span class="PreProc">break</span> $next-number-token:<span class="PreProc">loop</span> +<span id="L425" class="LineNr">425 </span> <span class="Delimiter">}</span> +<span id="L426" class="LineNr">426 </span> <span class="muComment"># if not digit grapheme, abort</span> +<span id="L427" class="LineNr">427 </span> <span class="Delimiter">{</span> +<span id="L428" class="LineNr">428 </span> <span class="PreProc">var</span> digit?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../126write-int-decimal.subx.html#L296'>decimal-digit?</a> g +<span id="L429" class="LineNr">429 </span> compare digit?, <span class="Constant">0</span>/false +<span id="L430" class="LineNr">430 </span> <span class="PreProc">break-if-!=</span> +<span id="L431" class="LineNr">431 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"invalid number"</span> +<span id="L432" class="LineNr">432 </span> <span class="PreProc">return</span> +<span id="L433" class="LineNr">433 </span> <span class="Delimiter">}</span> +<span id="L434" class="LineNr">434 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"tokenize"</span>, <span class="Constant">"append"</span> +<span id="L435" class="LineNr">435 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L817'>read-from-gap-buffer</a> in +<span id="L436" class="LineNr">436 </span> <a href='../403unicode.mu.html#L176'>write-grapheme</a> out, g +<span id="L437" class="LineNr">437 </span> <span class="PreProc">loop</span> +<span id="L438" class="LineNr">438 </span> <span class="Delimiter">}</span> +<span id="L439" class="LineNr">439 </span> <a href='trace.mu.html#L155'>trace-higher</a> trace +<span id="L440" class="LineNr">440 </span><span class="Delimiter">}</span> +<span id="L441" class="LineNr">441 </span> +<span id="L442" class="LineNr">442 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L442'>next-stream-token</a></span> in: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>), out: (addr stream byte), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L443" class="LineNr">443 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"tokenize"</span>, <span class="Constant">"stream"</span> +<span id="L444" class="LineNr">444 </span> <span class="Delimiter">{</span> +<span id="L445" class="LineNr">445 </span> <span class="PreProc">var</span> empty?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='gap-buffer.mu.html#L757'>gap-buffer-scan-done?</a> in +<span id="L446" class="LineNr">446 </span> compare empty?, <span class="Constant">0</span>/false +<span id="L447" class="LineNr">447 </span> <span class="Delimiter">{</span> +<span id="L448" class="LineNr">448 </span> <span class="PreProc">break-if-=</span> +<span id="L449" class="LineNr">449 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> trace, <span class="Constant">"unbalanced '['"</span> +<span id="L450" class="LineNr">450 </span> <span class="PreProc">return</span> +<span id="L451" class="LineNr">451 </span> <span class="Delimiter">}</span> +<span id="L452" class="LineNr">452 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L817'>read-from-gap-buffer</a> in +<span id="L453" class="LineNr">453 </span> compare g, <span class="Constant">0x5d</span>/close-square-bracket +<span id="L454" class="LineNr">454 </span> <span class="PreProc">break-if-=</span> +<span id="L455" class="LineNr">455 </span> <a href='../403unicode.mu.html#L176'>write-grapheme</a> out, g +<span id="L456" class="LineNr">456 </span> <span class="PreProc">loop</span> +<span id="L457" class="LineNr">457 </span> <span class="Delimiter">}</span> +<span id="L458" class="LineNr">458 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x400</span>) <span class="muComment"># max-definition-size</span> +<span id="L459" class="LineNr">459 </span> <span class="PreProc">var</span> stream/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L460" class="LineNr">460 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"=> "</span> +<span id="L461" class="LineNr">461 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> out +<span id="L462" class="LineNr">462 </span> <a href='../113write-stream.subx.html#L8'>write-stream</a> stream, out +<span id="L463" class="LineNr">463 </span> trace trace, <span class="Constant">"tokenize"</span>, stream +<span id="L464" class="LineNr">464 </span><span class="Delimiter">}</span> +<span id="L465" class="LineNr">465 </span> +<span id="L466" class="LineNr">466 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L466'>next-bracket-token</a></span> g: grapheme, out: (addr stream byte), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L467" class="LineNr">467 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"tokenize"</span>, <span class="Constant">"bracket"</span> +<span id="L468" class="LineNr">468 </span> <a href='../403unicode.mu.html#L176'>write-grapheme</a> out, g +<span id="L469" class="LineNr">469 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x40</span>) +<span id="L470" class="LineNr">470 </span> <span class="PreProc">var</span> stream/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L471" class="LineNr">471 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"=> "</span> +<span id="L472" class="LineNr">472 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> out +<span id="L473" class="LineNr">473 </span> <a href='../113write-stream.subx.html#L8'>write-stream</a> stream, out +<span id="L474" class="LineNr">474 </span> trace trace, <span class="Constant">"tokenize"</span>, stream +<span id="L475" class="LineNr">475 </span><span class="Delimiter">}</span> +<span id="L476" class="LineNr">476 </span> +<span id="L477" class="LineNr">477 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L477'>rest-of-line</a></span> in: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>), out: (addr stream byte), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L478" class="LineNr">478 </span> <a href='trace.mu.html#L120'>trace-text</a> trace, <span class="Constant">"tokenize"</span>, <span class="Constant">"comment"</span> +<span id="L479" class="LineNr">479 </span> <span class="Delimiter">{</span> +<span id="L480" class="LineNr">480 </span> <span class="PreProc">var</span> empty?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='gap-buffer.mu.html#L757'>gap-buffer-scan-done?</a> in +<span id="L481" class="LineNr">481 </span> compare empty?, <span class="Constant">0</span>/false +<span id="L482" class="LineNr">482 </span> <span class="Delimiter">{</span> +<span id="L483" class="LineNr">483 </span> <span class="PreProc">break-if-=</span> +<span id="L484" class="LineNr">484 </span> <span class="PreProc">return</span> +<span id="L485" class="LineNr">485 </span> <span class="Delimiter">}</span> +<span id="L486" class="LineNr">486 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L817'>read-from-gap-buffer</a> in +<span id="L487" class="LineNr">487 </span> compare g, <span class="Constant">0xa</span>/newline +<span id="L488" class="LineNr">488 </span> <span class="PreProc">break-if-=</span> +<span id="L489" class="LineNr">489 </span> <a href='../403unicode.mu.html#L176'>write-grapheme</a> out, g +<span id="L490" class="LineNr">490 </span> <span class="PreProc">loop</span> <span id="L491" class="LineNr">491 </span> <span class="Delimiter">}</span> -<span id="L492" class="LineNr">492 </span> compare g, <span class="Constant">0x3b</span>/semi-colon -<span id="L493" class="LineNr">493 </span> <span class="Delimiter">{</span> -<span id="L494" class="LineNr">494 </span> <span class="PreProc">break-if-!=</span> -<span id="L495" class="LineNr">495 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L496" class="LineNr">496 </span> <span class="Delimiter">}</span> -<span id="L497" class="LineNr">497 </span> compare g, <span class="Constant">0x3c</span>/less-than -<span id="L498" class="LineNr">498 </span> <span class="Delimiter">{</span> -<span id="L499" class="LineNr">499 </span> <span class="PreProc">break-if-!=</span> -<span id="L500" class="LineNr">500 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L501" class="LineNr">501 </span> <span class="Delimiter">}</span> -<span id="L502" class="LineNr">502 </span> compare g, <span class="Constant">0x3d</span>/equal +<span id="L492" class="LineNr">492 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x80</span>) +<span id="L493" class="LineNr">493 </span> <span class="PreProc">var</span> stream/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L494" class="LineNr">494 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"=> "</span> +<span id="L495" class="LineNr">495 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> out +<span id="L496" class="LineNr">496 </span> <a href='../113write-stream.subx.html#L8'>write-stream</a> stream, out +<span id="L497" class="LineNr">497 </span> trace trace, <span class="Constant">"tokenize"</span>, stream +<span id="L498" class="LineNr">498 </span><span class="Delimiter">}</span> +<span id="L499" class="LineNr">499 </span> +<span id="L500" class="LineNr">500 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L500'>symbol-grapheme?</a></span> g: grapheme<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L501" class="LineNr">501 </span> <span class="muComment">## whitespace</span> +<span id="L502" class="LineNr">502 </span> compare g, <span class="Constant">9</span>/tab <span id="L503" class="LineNr">503 </span> <span class="Delimiter">{</span> <span id="L504" class="LineNr">504 </span> <span class="PreProc">break-if-!=</span> <span id="L505" class="LineNr">505 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false <span id="L506" class="LineNr">506 </span> <span class="Delimiter">}</span> -<span id="L507" class="LineNr">507 </span> compare g, <span class="Constant">0x3e</span>/greater-than +<span id="L507" class="LineNr">507 </span> compare g, <span class="Constant">0xa</span>/newline <span id="L508" class="LineNr">508 </span> <span class="Delimiter">{</span> <span id="L509" class="LineNr">509 </span> <span class="PreProc">break-if-!=</span> <span id="L510" class="LineNr">510 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false <span id="L511" class="LineNr">511 </span> <span class="Delimiter">}</span> -<span id="L512" class="LineNr">512 </span> <span class="muComment"># '?' is a symbol char</span> -<span id="L513" class="LineNr">513 </span> compare g, <span class="Constant">0x40</span>/at-sign -<span id="L514" class="LineNr">514 </span> <span class="Delimiter">{</span> -<span id="L515" class="LineNr">515 </span> <span class="PreProc">break-if-!=</span> -<span id="L516" class="LineNr">516 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L517" class="LineNr">517 </span> <span class="Delimiter">}</span> -<span id="L518" class="LineNr">518 </span> compare g, <span class="Constant">0x5c</span>/backslash +<span id="L512" class="LineNr">512 </span> compare g, <span class="Constant">0x20</span>/space +<span id="L513" class="LineNr">513 </span> <span class="Delimiter">{</span> +<span id="L514" class="LineNr">514 </span> <span class="PreProc">break-if-!=</span> +<span id="L515" class="LineNr">515 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L516" class="LineNr">516 </span> <span class="Delimiter">}</span> +<span id="L517" class="LineNr">517 </span> <span class="muComment">## quotes</span> +<span id="L518" class="LineNr">518 </span> compare g, <span class="Constant">0x22</span>/double-quote <span id="L519" class="LineNr">519 </span> <span class="Delimiter">{</span> <span id="L520" class="LineNr">520 </span> <span class="PreProc">break-if-!=</span> <span id="L521" class="LineNr">521 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false <span id="L522" class="LineNr">522 </span> <span class="Delimiter">}</span> -<span id="L523" class="LineNr">523 </span> compare g, <span class="Constant">0x5e</span>/caret +<span id="L523" class="LineNr">523 </span> compare g, <span class="Constant">0x60</span>/backquote <span id="L524" class="LineNr">524 </span> <span class="Delimiter">{</span> <span id="L525" class="LineNr">525 </span> <span class="PreProc">break-if-!=</span> <span id="L526" class="LineNr">526 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false <span id="L527" class="LineNr">527 </span> <span class="Delimiter">}</span> -<span id="L528" class="LineNr">528 </span> <span class="muComment"># '_' is a symbol char</span> -<span id="L529" class="LineNr">529 </span> compare g, <span class="Constant">0x7c</span>/vertical-line +<span id="L528" class="LineNr">528 </span> <span class="muComment">## brackets</span> +<span id="L529" class="LineNr">529 </span> compare g, <span class="Constant">0x28</span>/open-paren <span id="L530" class="LineNr">530 </span> <span class="Delimiter">{</span> <span id="L531" class="LineNr">531 </span> <span class="PreProc">break-if-!=</span> <span id="L532" class="LineNr">532 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false <span id="L533" class="LineNr">533 </span> <span class="Delimiter">}</span> -<span id="L534" class="LineNr">534 </span> compare g, <span class="Constant">0x7e</span>/tilde +<span id="L534" class="LineNr">534 </span> compare g, <span class="Constant">0x29</span>/close-paren <span id="L535" class="LineNr">535 </span> <span class="Delimiter">{</span> <span id="L536" class="LineNr">536 </span> <span class="PreProc">break-if-!=</span> <span id="L537" class="LineNr">537 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false <span id="L538" class="LineNr">538 </span> <span class="Delimiter">}</span> -<span id="L539" class="LineNr">539 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true -<span id="L540" class="LineNr">540 </span><span class="Delimiter">}</span> -<span id="L541" class="LineNr">541 </span> -<span id="L542" class="LineNr">542 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L542'>bracket-grapheme?</a></span> g: grapheme<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L543" class="LineNr">543 </span> compare g, <span class="Constant">0x28</span>/open-paren -<span id="L544" class="LineNr">544 </span> <span class="Delimiter">{</span> -<span id="L545" class="LineNr">545 </span> <span class="PreProc">break-if-!=</span> -<span id="L546" class="LineNr">546 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true -<span id="L547" class="LineNr">547 </span> <span class="Delimiter">}</span> -<span id="L548" class="LineNr">548 </span> compare g, <span class="Constant">0x29</span>/close-paren -<span id="L549" class="LineNr">549 </span> <span class="Delimiter">{</span> -<span id="L550" class="LineNr">550 </span> <span class="PreProc">break-if-!=</span> -<span id="L551" class="LineNr">551 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true -<span id="L552" class="LineNr">552 </span> <span class="Delimiter">}</span> -<span id="L553" class="LineNr">553 </span> compare g, <span class="Constant">0x5b</span>/open-square-bracket -<span id="L554" class="LineNr">554 </span> <span class="Delimiter">{</span> -<span id="L555" class="LineNr">555 </span> <span class="PreProc">break-if-!=</span> -<span id="L556" class="LineNr">556 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true -<span id="L557" class="LineNr">557 </span> <span class="Delimiter">}</span> -<span id="L558" class="LineNr">558 </span> compare g, <span class="Constant">0x5d</span>/close-square-bracket -<span id="L559" class="LineNr">559 </span> <span class="Delimiter">{</span> -<span id="L560" class="LineNr">560 </span> <span class="PreProc">break-if-!=</span> -<span id="L561" class="LineNr">561 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true -<span id="L562" class="LineNr">562 </span> <span class="Delimiter">}</span> -<span id="L563" class="LineNr">563 </span> compare g, <span class="Constant">0x7b</span>/open-curly-bracket -<span id="L564" class="LineNr">564 </span> <span class="Delimiter">{</span> -<span id="L565" class="LineNr">565 </span> <span class="PreProc">break-if-!=</span> -<span id="L566" class="LineNr">566 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true -<span id="L567" class="LineNr">567 </span> <span class="Delimiter">}</span> -<span id="L568" class="LineNr">568 </span> compare g, <span class="Constant">0x7d</span>/close-curly-bracket -<span id="L569" class="LineNr">569 </span> <span class="Delimiter">{</span> -<span id="L570" class="LineNr">570 </span> <span class="PreProc">break-if-!=</span> -<span id="L571" class="LineNr">571 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true -<span id="L572" class="LineNr">572 </span> <span class="Delimiter">}</span> -<span id="L573" class="LineNr">573 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L574" class="LineNr">574 </span><span class="Delimiter">}</span> -<span id="L575" class="LineNr">575 </span> -<span id="L576" class="LineNr">576 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L576'>operator-grapheme?</a></span> g: grapheme<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L577" class="LineNr">577 </span> <span class="muComment"># '$' is a symbol char</span> -<span id="L578" class="LineNr">578 </span> compare g, <span class="Constant">0x25</span>/percent -<span id="L579" class="LineNr">579 </span> <span class="Delimiter">{</span> -<span id="L580" class="LineNr">580 </span> <span class="PreProc">break-if-!=</span> -<span id="L581" class="LineNr">581 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/false -<span id="L582" class="LineNr">582 </span> <span class="Delimiter">}</span> -<span id="L583" class="LineNr">583 </span> compare g, <span class="Constant">0x26</span>/ampersand -<span id="L584" class="LineNr">584 </span> <span class="Delimiter">{</span> -<span id="L585" class="LineNr">585 </span> <span class="PreProc">break-if-!=</span> -<span id="L586" class="LineNr">586 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true -<span id="L587" class="LineNr">587 </span> <span class="Delimiter">}</span> -<span id="L588" class="LineNr">588 </span> compare g, <span class="Constant">0x27</span>/single-quote -<span id="L589" class="LineNr">589 </span> <span class="Delimiter">{</span> -<span id="L590" class="LineNr">590 </span> <span class="PreProc">break-if-!=</span> -<span id="L591" class="LineNr">591 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true -<span id="L592" class="LineNr">592 </span> <span class="Delimiter">}</span> -<span id="L593" class="LineNr">593 </span> compare g, <span class="Constant">0x2a</span>/asterisk -<span id="L594" class="LineNr">594 </span> <span class="Delimiter">{</span> -<span id="L595" class="LineNr">595 </span> <span class="PreProc">break-if-!=</span> -<span id="L596" class="LineNr">596 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true -<span id="L597" class="LineNr">597 </span> <span class="Delimiter">}</span> -<span id="L598" class="LineNr">598 </span> compare g, <span class="Constant">0x2b</span>/plus -<span id="L599" class="LineNr">599 </span> <span class="Delimiter">{</span> -<span id="L600" class="LineNr">600 </span> <span class="PreProc">break-if-!=</span> -<span id="L601" class="LineNr">601 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true -<span id="L602" class="LineNr">602 </span> <span class="Delimiter">}</span> -<span id="L603" class="LineNr">603 </span> compare g, <span class="Constant">0x2c</span>/comma -<span id="L604" class="LineNr">604 </span> <span class="Delimiter">{</span> -<span id="L605" class="LineNr">605 </span> <span class="PreProc">break-if-!=</span> -<span id="L606" class="LineNr">606 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true -<span id="L607" class="LineNr">607 </span> <span class="Delimiter">}</span> -<span id="L608" class="LineNr">608 </span> compare g, <span class="Constant">0x2d</span>/dash <span class="muComment"># '-' not allowed in symbols</span> -<span id="L609" class="LineNr">609 </span> <span class="Delimiter">{</span> -<span id="L610" class="LineNr">610 </span> <span class="PreProc">break-if-!=</span> -<span id="L611" class="LineNr">611 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true -<span id="L612" class="LineNr">612 </span> <span class="Delimiter">}</span> -<span id="L613" class="LineNr">613 </span> compare g, <span class="Constant">0x2e</span>/period -<span id="L614" class="LineNr">614 </span> <span class="Delimiter">{</span> -<span id="L615" class="LineNr">615 </span> <span class="PreProc">break-if-!=</span> -<span id="L616" class="LineNr">616 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true -<span id="L617" class="LineNr">617 </span> <span class="Delimiter">}</span> -<span id="L618" class="LineNr">618 </span> compare g, <span class="Constant">0x2f</span>/slash -<span id="L619" class="LineNr">619 </span> <span class="Delimiter">{</span> -<span id="L620" class="LineNr">620 </span> <span class="PreProc">break-if-!=</span> -<span id="L621" class="LineNr">621 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true -<span id="L622" class="LineNr">622 </span> <span class="Delimiter">}</span> -<span id="L623" class="LineNr">623 </span> compare g, <span class="Constant">0x3a</span>/colon -<span id="L624" class="LineNr">624 </span> <span class="Delimiter">{</span> -<span id="L625" class="LineNr">625 </span> <span class="PreProc">break-if-!=</span> -<span id="L626" class="LineNr">626 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true -<span id="L627" class="LineNr">627 </span> <span class="Delimiter">}</span> -<span id="L628" class="LineNr">628 </span> compare g, <span class="Constant">0x3b</span>/semi-colon -<span id="L629" class="LineNr">629 </span> <span class="Delimiter">{</span> -<span id="L630" class="LineNr">630 </span> <span class="PreProc">break-if-!=</span> -<span id="L631" class="LineNr">631 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true -<span id="L632" class="LineNr">632 </span> <span class="Delimiter">}</span> -<span id="L633" class="LineNr">633 </span> compare g, <span class="Constant">0x3c</span>/less-than -<span id="L634" class="LineNr">634 </span> <span class="Delimiter">{</span> -<span id="L635" class="LineNr">635 </span> <span class="PreProc">break-if-!=</span> -<span id="L636" class="LineNr">636 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true -<span id="L637" class="LineNr">637 </span> <span class="Delimiter">}</span> -<span id="L638" class="LineNr">638 </span> compare g, <span class="Constant">0x3d</span>/equal -<span id="L639" class="LineNr">639 </span> <span class="Delimiter">{</span> -<span id="L640" class="LineNr">640 </span> <span class="PreProc">break-if-!=</span> -<span id="L641" class="LineNr">641 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true -<span id="L642" class="LineNr">642 </span> <span class="Delimiter">}</span> -<span id="L643" class="LineNr">643 </span> compare g, <span class="Constant">0x3e</span>/greater-than -<span id="L644" class="LineNr">644 </span> <span class="Delimiter">{</span> -<span id="L645" class="LineNr">645 </span> <span class="PreProc">break-if-!=</span> -<span id="L646" class="LineNr">646 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true -<span id="L647" class="LineNr">647 </span> <span class="Delimiter">}</span> -<span id="L648" class="LineNr">648 </span> <span class="muComment"># '?' is a symbol char</span> -<span id="L649" class="LineNr">649 </span> compare g, <span class="Constant">0x40</span>/at-sign -<span id="L650" class="LineNr">650 </span> <span class="Delimiter">{</span> -<span id="L651" class="LineNr">651 </span> <span class="PreProc">break-if-!=</span> -<span id="L652" class="LineNr">652 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true -<span id="L653" class="LineNr">653 </span> <span class="Delimiter">}</span> -<span id="L654" class="LineNr">654 </span> compare g, <span class="Constant">0x5c</span>/backslash -<span id="L655" class="LineNr">655 </span> <span class="Delimiter">{</span> -<span id="L656" class="LineNr">656 </span> <span class="PreProc">break-if-!=</span> -<span id="L657" class="LineNr">657 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true -<span id="L658" class="LineNr">658 </span> <span class="Delimiter">}</span> -<span id="L659" class="LineNr">659 </span> compare g, <span class="Constant">0x5e</span>/caret +<span id="L539" class="LineNr">539 </span> compare g, <span class="Constant">0x5b</span>/open-square-bracket +<span id="L540" class="LineNr">540 </span> <span class="Delimiter">{</span> +<span id="L541" class="LineNr">541 </span> <span class="PreProc">break-if-!=</span> +<span id="L542" class="LineNr">542 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L543" class="LineNr">543 </span> <span class="Delimiter">}</span> +<span id="L544" class="LineNr">544 </span> compare g, <span class="Constant">0x5d</span>/close-square-bracket +<span id="L545" class="LineNr">545 </span> <span class="Delimiter">{</span> +<span id="L546" class="LineNr">546 </span> <span class="PreProc">break-if-!=</span> +<span id="L547" class="LineNr">547 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L548" class="LineNr">548 </span> <span class="Delimiter">}</span> +<span id="L549" class="LineNr">549 </span> compare g, <span class="Constant">0x7b</span>/open-curly-bracket +<span id="L550" class="LineNr">550 </span> <span class="Delimiter">{</span> +<span id="L551" class="LineNr">551 </span> <span class="PreProc">break-if-!=</span> +<span id="L552" class="LineNr">552 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L553" class="LineNr">553 </span> <span class="Delimiter">}</span> +<span id="L554" class="LineNr">554 </span> compare g, <span class="Constant">0x7d</span>/close-curly-bracket +<span id="L555" class="LineNr">555 </span> <span class="Delimiter">{</span> +<span id="L556" class="LineNr">556 </span> <span class="PreProc">break-if-!=</span> +<span id="L557" class="LineNr">557 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L558" class="LineNr">558 </span> <span class="Delimiter">}</span> +<span id="L559" class="LineNr">559 </span> <span class="muComment"># - other punctuation</span> +<span id="L560" class="LineNr">560 </span> <span class="muComment"># '!' is a symbol char</span> +<span id="L561" class="LineNr">561 </span> compare g, <span class="Constant">0x23</span>/hash +<span id="L562" class="LineNr">562 </span> <span class="Delimiter">{</span> +<span id="L563" class="LineNr">563 </span> <span class="PreProc">break-if-!=</span> +<span id="L564" class="LineNr">564 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L565" class="LineNr">565 </span> <span class="Delimiter">}</span> +<span id="L566" class="LineNr">566 </span> <span class="muComment"># '$' is a symbol char</span> +<span id="L567" class="LineNr">567 </span> compare g, <span class="Constant">0x25</span>/percent +<span id="L568" class="LineNr">568 </span> <span class="Delimiter">{</span> +<span id="L569" class="LineNr">569 </span> <span class="PreProc">break-if-!=</span> +<span id="L570" class="LineNr">570 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L571" class="LineNr">571 </span> <span class="Delimiter">}</span> +<span id="L572" class="LineNr">572 </span> compare g, <span class="Constant">0x26</span>/ampersand +<span id="L573" class="LineNr">573 </span> <span class="Delimiter">{</span> +<span id="L574" class="LineNr">574 </span> <span class="PreProc">break-if-!=</span> +<span id="L575" class="LineNr">575 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L576" class="LineNr">576 </span> <span class="Delimiter">}</span> +<span id="L577" class="LineNr">577 </span> compare g, <span class="Constant">0x27</span>/single-quote +<span id="L578" class="LineNr">578 </span> <span class="Delimiter">{</span> +<span id="L579" class="LineNr">579 </span> <span class="PreProc">break-if-!=</span> +<span id="L580" class="LineNr">580 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L581" class="LineNr">581 </span> <span class="Delimiter">}</span> +<span id="L582" class="LineNr">582 </span> compare g, <span class="Constant">0x60</span>/backquote +<span id="L583" class="LineNr">583 </span> <span class="Delimiter">{</span> +<span id="L584" class="LineNr">584 </span> <span class="PreProc">break-if-!=</span> +<span id="L585" class="LineNr">585 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L586" class="LineNr">586 </span> <span class="Delimiter">}</span> +<span id="L587" class="LineNr">587 </span> compare g, <span class="Constant">0x2c</span>/comma +<span id="L588" class="LineNr">588 </span> <span class="Delimiter">{</span> +<span id="L589" class="LineNr">589 </span> <span class="PreProc">break-if-!=</span> +<span id="L590" class="LineNr">590 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L591" class="LineNr">591 </span> <span class="Delimiter">}</span> +<span id="L592" class="LineNr">592 </span> compare g, <span class="Constant">0x40</span>/at-sign +<span id="L593" class="LineNr">593 </span> <span class="Delimiter">{</span> +<span id="L594" class="LineNr">594 </span> <span class="PreProc">break-if-!=</span> +<span id="L595" class="LineNr">595 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L596" class="LineNr">596 </span> <span class="Delimiter">}</span> +<span id="L597" class="LineNr">597 </span> compare g, <span class="Constant">0x2a</span>/asterisk +<span id="L598" class="LineNr">598 </span> <span class="Delimiter">{</span> +<span id="L599" class="LineNr">599 </span> <span class="PreProc">break-if-!=</span> +<span id="L600" class="LineNr">600 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L601" class="LineNr">601 </span> <span class="Delimiter">}</span> +<span id="L602" class="LineNr">602 </span> compare g, <span class="Constant">0x2b</span>/plus +<span id="L603" class="LineNr">603 </span> <span class="Delimiter">{</span> +<span id="L604" class="LineNr">604 </span> <span class="PreProc">break-if-!=</span> +<span id="L605" class="LineNr">605 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L606" class="LineNr">606 </span> <span class="Delimiter">}</span> +<span id="L607" class="LineNr">607 </span> compare g, <span class="Constant">0x2d</span>/dash <span class="muComment"># '-' not allowed in symbols</span> +<span id="L608" class="LineNr">608 </span> <span class="Delimiter">{</span> +<span id="L609" class="LineNr">609 </span> <span class="PreProc">break-if-!=</span> +<span id="L610" class="LineNr">610 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L611" class="LineNr">611 </span> <span class="Delimiter">}</span> +<span id="L612" class="LineNr">612 </span> compare g, <span class="Constant">0x2e</span>/period +<span id="L613" class="LineNr">613 </span> <span class="Delimiter">{</span> +<span id="L614" class="LineNr">614 </span> <span class="PreProc">break-if-!=</span> +<span id="L615" class="LineNr">615 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L616" class="LineNr">616 </span> <span class="Delimiter">}</span> +<span id="L617" class="LineNr">617 </span> compare g, <span class="Constant">0x2f</span>/slash +<span id="L618" class="LineNr">618 </span> <span class="Delimiter">{</span> +<span id="L619" class="LineNr">619 </span> <span class="PreProc">break-if-!=</span> +<span id="L620" class="LineNr">620 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L621" class="LineNr">621 </span> <span class="Delimiter">}</span> +<span id="L622" class="LineNr">622 </span> compare g, <span class="Constant">0x3a</span>/colon +<span id="L623" class="LineNr">623 </span> <span class="Delimiter">{</span> +<span id="L624" class="LineNr">624 </span> <span class="PreProc">break-if-!=</span> +<span id="L625" class="LineNr">625 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L626" class="LineNr">626 </span> <span class="Delimiter">}</span> +<span id="L627" class="LineNr">627 </span> compare g, <span class="Constant">0x3b</span>/semi-colon +<span id="L628" class="LineNr">628 </span> <span class="Delimiter">{</span> +<span id="L629" class="LineNr">629 </span> <span class="PreProc">break-if-!=</span> +<span id="L630" class="LineNr">630 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L631" class="LineNr">631 </span> <span class="Delimiter">}</span> +<span id="L632" class="LineNr">632 </span> compare g, <span class="Constant">0x3c</span>/less-than +<span id="L633" class="LineNr">633 </span> <span class="Delimiter">{</span> +<span id="L634" class="LineNr">634 </span> <span class="PreProc">break-if-!=</span> +<span id="L635" class="LineNr">635 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L636" class="LineNr">636 </span> <span class="Delimiter">}</span> +<span id="L637" class="LineNr">637 </span> compare g, <span class="Constant">0x3d</span>/equal +<span id="L638" class="LineNr">638 </span> <span class="Delimiter">{</span> +<span id="L639" class="LineNr">639 </span> <span class="PreProc">break-if-!=</span> +<span id="L640" class="LineNr">640 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L641" class="LineNr">641 </span> <span class="Delimiter">}</span> +<span id="L642" class="LineNr">642 </span> compare g, <span class="Constant">0x3e</span>/greater-than +<span id="L643" class="LineNr">643 </span> <span class="Delimiter">{</span> +<span id="L644" class="LineNr">644 </span> <span class="PreProc">break-if-!=</span> +<span id="L645" class="LineNr">645 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L646" class="LineNr">646 </span> <span class="Delimiter">}</span> +<span id="L647" class="LineNr">647 </span> <span class="muComment"># '?' is a symbol char</span> +<span id="L648" class="LineNr">648 </span> compare g, <span class="Constant">0x5c</span>/backslash +<span id="L649" class="LineNr">649 </span> <span class="Delimiter">{</span> +<span id="L650" class="LineNr">650 </span> <span class="PreProc">break-if-!=</span> +<span id="L651" class="LineNr">651 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L652" class="LineNr">652 </span> <span class="Delimiter">}</span> +<span id="L653" class="LineNr">653 </span> compare g, <span class="Constant">0x5e</span>/caret +<span id="L654" class="LineNr">654 </span> <span class="Delimiter">{</span> +<span id="L655" class="LineNr">655 </span> <span class="PreProc">break-if-!=</span> +<span id="L656" class="LineNr">656 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L657" class="LineNr">657 </span> <span class="Delimiter">}</span> +<span id="L658" class="LineNr">658 </span> <span class="muComment"># '_' is a symbol char</span> +<span id="L659" class="LineNr">659 </span> compare g, <span class="Constant">0x7c</span>/vertical-line <span id="L660" class="LineNr">660 </span> <span class="Delimiter">{</span> <span id="L661" class="LineNr">661 </span> <span class="PreProc">break-if-!=</span> -<span id="L662" class="LineNr">662 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L662" class="LineNr">662 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false <span id="L663" class="LineNr">663 </span> <span class="Delimiter">}</span> -<span id="L664" class="LineNr">664 </span> <span class="muComment"># '_' is a symbol char</span> -<span id="L665" class="LineNr">665 </span> compare g, <span class="Constant">0x7c</span>/vertical-line -<span id="L666" class="LineNr">666 </span> <span class="Delimiter">{</span> -<span id="L667" class="LineNr">667 </span> <span class="PreProc">break-if-!=</span> -<span id="L668" class="LineNr">668 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true -<span id="L669" class="LineNr">669 </span> <span class="Delimiter">}</span> -<span id="L670" class="LineNr">670 </span> compare g, <span class="Constant">0x7e</span>/tilde -<span id="L671" class="LineNr">671 </span> <span class="Delimiter">{</span> -<span id="L672" class="LineNr">672 </span> <span class="PreProc">break-if-!=</span> -<span id="L673" class="LineNr">673 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true -<span id="L674" class="LineNr">674 </span> <span class="Delimiter">}</span> -<span id="L675" class="LineNr">675 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L676" class="LineNr">676 </span><span class="Delimiter">}</span> -<span id="L677" class="LineNr">677 </span> -<span id="L678" class="LineNr">678 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L678'>number-token?</a></span> _in: (addr <a href='cell.mu.html#L1'>cell</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L679" class="LineNr">679 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in -<span id="L680" class="LineNr">680 </span> <span class="PreProc">var</span> in-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get in, text-data -<span id="L681" class="LineNr">681 </span> <span class="PreProc">var</span> in-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *in-data-ah -<span id="L682" class="LineNr">682 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> in-data -<span id="L683" class="LineNr">683 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L92'>read-grapheme</a> in-data -<span id="L684" class="LineNr">684 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../126write-int-decimal.subx.html#L299'>decimal-digit?</a> g -<span id="L685" class="LineNr">685 </span> <span class="PreProc">return</span> result -<span id="L686" class="LineNr">686 </span><span class="Delimiter">}</span> -<span id="L687" class="LineNr">687 </span> -<span id="L688" class="LineNr">688 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L688'>bracket-token?</a></span> _in: (addr <a href='cell.mu.html#L1'>cell</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L689" class="LineNr">689 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in -<span id="L690" class="LineNr">690 </span> <span class="Delimiter">{</span> -<span id="L691" class="LineNr">691 </span> <span class="PreProc">var</span> in-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get in, <span class="PreProc">type</span> -<span id="L692" class="LineNr">692 </span> compare *in-type, <span class="Constant">3</span>/stream -<span id="L693" class="LineNr">693 </span> <span class="PreProc">break-if-!=</span> -<span id="L694" class="LineNr">694 </span> <span class="muComment"># streams are never paren tokens</span> -<span id="L695" class="LineNr">695 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L696" class="LineNr">696 </span> <span class="Delimiter">}</span> -<span id="L697" class="LineNr">697 </span> <span class="PreProc">var</span> in-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get in, text-data -<span id="L698" class="LineNr">698 </span> <span class="PreProc">var</span> in-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *in-data-ah -<span id="L699" class="LineNr">699 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> in-data -<span id="L700" class="LineNr">700 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L92'>read-grapheme</a> in-data -<span id="L701" class="LineNr">701 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L542'>bracket-grapheme?</a> g -<span id="L702" class="LineNr">702 </span> <span class="PreProc">return</span> result -<span id="L703" class="LineNr">703 </span><span class="Delimiter">}</span> -<span id="L704" class="LineNr">704 </span> -<span id="L705" class="LineNr">705 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L705'>quote-token?</a></span> _in: (addr <a href='cell.mu.html#L1'>cell</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L706" class="LineNr">706 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in -<span id="L707" class="LineNr">707 </span> <span class="PreProc">var</span> in-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get in, text-data -<span id="L708" class="LineNr">708 </span> <span class="PreProc">var</span> in-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *in-data-ah -<span id="L709" class="LineNr">709 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> in-data -<span id="L710" class="LineNr">710 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L92'>read-grapheme</a> in-data -<span id="L711" class="LineNr">711 </span> compare g, <span class="Constant">0x27</span>/single-quote -<span id="L712" class="LineNr">712 </span> <span class="Delimiter">{</span> -<span id="L713" class="LineNr">713 </span> <span class="PreProc">break-if-!=</span> -<span id="L714" class="LineNr">714 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true -<span id="L715" class="LineNr">715 </span> <span class="Delimiter">}</span> -<span id="L716" class="LineNr">716 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L717" class="LineNr">717 </span><span class="Delimiter">}</span> -<span id="L718" class="LineNr">718 </span> -<span id="L719" class="LineNr">719 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L719'>open-paren-token?</a></span> _in: (addr <a href='cell.mu.html#L1'>cell</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L720" class="LineNr">720 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in -<span id="L721" class="LineNr">721 </span> <span class="PreProc">var</span> in-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get in, text-data -<span id="L722" class="LineNr">722 </span> <span class="PreProc">var</span> _in-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *in-data-ah -<span id="L723" class="LineNr">723 </span> <span class="PreProc">var</span> in-data/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> copy _in-data -<span id="L724" class="LineNr">724 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> in-data -<span id="L725" class="LineNr">725 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L92'>read-grapheme</a> in-data -<span id="L726" class="LineNr">726 </span> compare g, <span class="Constant">0x28</span>/open-paren -<span id="L727" class="LineNr">727 </span> <span class="Delimiter">{</span> -<span id="L728" class="LineNr">728 </span> <span class="PreProc">break-if-!=</span> -<span id="L729" class="LineNr">729 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> in-data -<span id="L730" class="LineNr">730 </span> <span class="PreProc">return</span> result -<span id="L731" class="LineNr">731 </span> <span class="Delimiter">}</span> -<span id="L732" class="LineNr">732 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L733" class="LineNr">733 </span><span class="Delimiter">}</span> -<span id="L734" class="LineNr">734 </span> -<span id="L735" class="LineNr">735 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L735'>close-paren-token?</a></span> _in: (addr <a href='cell.mu.html#L1'>cell</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L736" class="LineNr">736 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in -<span id="L737" class="LineNr">737 </span> <span class="PreProc">var</span> in-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get in, text-data -<span id="L738" class="LineNr">738 </span> <span class="PreProc">var</span> _in-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *in-data-ah -<span id="L739" class="LineNr">739 </span> <span class="PreProc">var</span> in-data/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> copy _in-data -<span id="L740" class="LineNr">740 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> in-data -<span id="L741" class="LineNr">741 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L92'>read-grapheme</a> in-data -<span id="L742" class="LineNr">742 </span> compare g, <span class="Constant">0x29</span>/close-paren -<span id="L743" class="LineNr">743 </span> <span class="Delimiter">{</span> -<span id="L744" class="LineNr">744 </span> <span class="PreProc">break-if-!=</span> -<span id="L745" class="LineNr">745 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> in-data -<span id="L746" class="LineNr">746 </span> <span class="PreProc">return</span> result +<span id="L664" class="LineNr">664 </span> compare g, <span class="Constant">0x7e</span>/tilde +<span id="L665" class="LineNr">665 </span> <span class="Delimiter">{</span> +<span id="L666" class="LineNr">666 </span> <span class="PreProc">break-if-!=</span> +<span id="L667" class="LineNr">667 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L668" class="LineNr">668 </span> <span class="Delimiter">}</span> +<span id="L669" class="LineNr">669 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L670" class="LineNr">670 </span><span class="Delimiter">}</span> +<span id="L671" class="LineNr">671 </span> +<span id="L672" class="LineNr">672 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L672'>bracket-grapheme?</a></span> g: grapheme<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L673" class="LineNr">673 </span> compare g, <span class="Constant">0x28</span>/open-paren +<span id="L674" class="LineNr">674 </span> <span class="Delimiter">{</span> +<span id="L675" class="LineNr">675 </span> <span class="PreProc">break-if-!=</span> +<span id="L676" class="LineNr">676 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L677" class="LineNr">677 </span> <span class="Delimiter">}</span> +<span id="L678" class="LineNr">678 </span> compare g, <span class="Constant">0x29</span>/close-paren +<span id="L679" class="LineNr">679 </span> <span class="Delimiter">{</span> +<span id="L680" class="LineNr">680 </span> <span class="PreProc">break-if-!=</span> +<span id="L681" class="LineNr">681 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L682" class="LineNr">682 </span> <span class="Delimiter">}</span> +<span id="L683" class="LineNr">683 </span> compare g, <span class="Constant">0x5b</span>/open-square-bracket +<span id="L684" class="LineNr">684 </span> <span class="Delimiter">{</span> +<span id="L685" class="LineNr">685 </span> <span class="PreProc">break-if-!=</span> +<span id="L686" class="LineNr">686 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L687" class="LineNr">687 </span> <span class="Delimiter">}</span> +<span id="L688" class="LineNr">688 </span> compare g, <span class="Constant">0x5d</span>/close-square-bracket +<span id="L689" class="LineNr">689 </span> <span class="Delimiter">{</span> +<span id="L690" class="LineNr">690 </span> <span class="PreProc">break-if-!=</span> +<span id="L691" class="LineNr">691 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L692" class="LineNr">692 </span> <span class="Delimiter">}</span> +<span id="L693" class="LineNr">693 </span> compare g, <span class="Constant">0x7b</span>/open-curly-bracket +<span id="L694" class="LineNr">694 </span> <span class="Delimiter">{</span> +<span id="L695" class="LineNr">695 </span> <span class="PreProc">break-if-!=</span> +<span id="L696" class="LineNr">696 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L697" class="LineNr">697 </span> <span class="Delimiter">}</span> +<span id="L698" class="LineNr">698 </span> compare g, <span class="Constant">0x7d</span>/close-curly-bracket +<span id="L699" class="LineNr">699 </span> <span class="Delimiter">{</span> +<span id="L700" class="LineNr">700 </span> <span class="PreProc">break-if-!=</span> +<span id="L701" class="LineNr">701 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L702" class="LineNr">702 </span> <span class="Delimiter">}</span> +<span id="L703" class="LineNr">703 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L704" class="LineNr">704 </span><span class="Delimiter">}</span> +<span id="L705" class="LineNr">705 </span> +<span id="L706" class="LineNr">706 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L706'>operator-grapheme?</a></span> g: grapheme<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L707" class="LineNr">707 </span> <span class="muComment"># '$' is a symbol char</span> +<span id="L708" class="LineNr">708 </span> compare g, <span class="Constant">0x25</span>/percent +<span id="L709" class="LineNr">709 </span> <span class="Delimiter">{</span> +<span id="L710" class="LineNr">710 </span> <span class="PreProc">break-if-!=</span> +<span id="L711" class="LineNr">711 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/false +<span id="L712" class="LineNr">712 </span> <span class="Delimiter">}</span> +<span id="L713" class="LineNr">713 </span> compare g, <span class="Constant">0x26</span>/ampersand +<span id="L714" class="LineNr">714 </span> <span class="Delimiter">{</span> +<span id="L715" class="LineNr">715 </span> <span class="PreProc">break-if-!=</span> +<span id="L716" class="LineNr">716 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L717" class="LineNr">717 </span> <span class="Delimiter">}</span> +<span id="L718" class="LineNr">718 </span> compare g, <span class="Constant">0x27</span>/single-quote +<span id="L719" class="LineNr">719 </span> <span class="Delimiter">{</span> +<span id="L720" class="LineNr">720 </span> <span class="PreProc">break-if-!=</span> +<span id="L721" class="LineNr">721 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/true +<span id="L722" class="LineNr">722 </span> <span class="Delimiter">}</span> +<span id="L723" class="LineNr">723 </span> compare g, <span class="Constant">0x60</span>/backquote +<span id="L724" class="LineNr">724 </span> <span class="Delimiter">{</span> +<span id="L725" class="LineNr">725 </span> <span class="PreProc">break-if-!=</span> +<span id="L726" class="LineNr">726 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L727" class="LineNr">727 </span> <span class="Delimiter">}</span> +<span id="L728" class="LineNr">728 </span> compare g, <span class="Constant">0x2c</span>/comma +<span id="L729" class="LineNr">729 </span> <span class="Delimiter">{</span> +<span id="L730" class="LineNr">730 </span> <span class="PreProc">break-if-!=</span> +<span id="L731" class="LineNr">731 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L732" class="LineNr">732 </span> <span class="Delimiter">}</span> +<span id="L733" class="LineNr">733 </span> compare g, <span class="Constant">0x40</span>/at-sign +<span id="L734" class="LineNr">734 </span> <span class="Delimiter">{</span> +<span id="L735" class="LineNr">735 </span> <span class="PreProc">break-if-!=</span> +<span id="L736" class="LineNr">736 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L737" class="LineNr">737 </span> <span class="Delimiter">}</span> +<span id="L738" class="LineNr">738 </span> compare g, <span class="Constant">0x2a</span>/asterisk +<span id="L739" class="LineNr">739 </span> <span class="Delimiter">{</span> +<span id="L740" class="LineNr">740 </span> <span class="PreProc">break-if-!=</span> +<span id="L741" class="LineNr">741 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L742" class="LineNr">742 </span> <span class="Delimiter">}</span> +<span id="L743" class="LineNr">743 </span> compare g, <span class="Constant">0x2b</span>/plus +<span id="L744" class="LineNr">744 </span> <span class="Delimiter">{</span> +<span id="L745" class="LineNr">745 </span> <span class="PreProc">break-if-!=</span> +<span id="L746" class="LineNr">746 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true <span id="L747" class="LineNr">747 </span> <span class="Delimiter">}</span> -<span id="L748" class="LineNr">748 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L749" class="LineNr">749 </span><span class="Delimiter">}</span> -<span id="L750" class="LineNr">750 </span> -<span id="L751" class="LineNr">751 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L751'>dot-token?</a></span> _in: (addr <a href='cell.mu.html#L1'>cell</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L752" class="LineNr">752 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in -<span id="L753" class="LineNr">753 </span> <span class="PreProc">var</span> in-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get in, text-data -<span id="L754" class="LineNr">754 </span> <span class="PreProc">var</span> _in-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *in-data-ah -<span id="L755" class="LineNr">755 </span> <span class="PreProc">var</span> in-data/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> copy _in-data -<span id="L756" class="LineNr">756 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> in-data -<span id="L757" class="LineNr">757 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L92'>read-grapheme</a> in-data -<span id="L758" class="LineNr">758 </span> compare g, <span class="Constant">0x2e</span>/dot +<span id="L748" class="LineNr">748 </span> compare g, <span class="Constant">0x2d</span>/dash <span class="muComment"># '-' not allowed in symbols</span> +<span id="L749" class="LineNr">749 </span> <span class="Delimiter">{</span> +<span id="L750" class="LineNr">750 </span> <span class="PreProc">break-if-!=</span> +<span id="L751" class="LineNr">751 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L752" class="LineNr">752 </span> <span class="Delimiter">}</span> +<span id="L753" class="LineNr">753 </span> compare g, <span class="Constant">0x2e</span>/period +<span id="L754" class="LineNr">754 </span> <span class="Delimiter">{</span> +<span id="L755" class="LineNr">755 </span> <span class="PreProc">break-if-!=</span> +<span id="L756" class="LineNr">756 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L757" class="LineNr">757 </span> <span class="Delimiter">}</span> +<span id="L758" class="LineNr">758 </span> compare g, <span class="Constant">0x2f</span>/slash <span id="L759" class="LineNr">759 </span> <span class="Delimiter">{</span> <span id="L760" class="LineNr">760 </span> <span class="PreProc">break-if-!=</span> -<span id="L761" class="LineNr">761 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> in-data -<span id="L762" class="LineNr">762 </span> <span class="PreProc">return</span> result -<span id="L763" class="LineNr">763 </span> <span class="Delimiter">}</span> -<span id="L764" class="LineNr">764 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L765" class="LineNr">765 </span><span class="Delimiter">}</span> -<span id="L766" class="LineNr">766 </span> -<span id="L767" class="LineNr">767 </span><span class="PreProc">fn</span> <span class="muTest"><a href='tokenize.mu.html#L767'>test-dot-token</a></span> <span class="Delimiter">{</span> -<span id="L768" class="LineNr">768 </span> <span class="PreProc">var</span> tmp-storage: (handle <a href='cell.mu.html#L1'>cell</a>) -<span id="L769" class="LineNr">769 </span> <span class="PreProc">var</span> tmp-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address tmp-storage -<span id="L770" class="LineNr">770 </span> <a href='cell.mu.html#L38'>new-symbol</a> tmp-ah, <span class="Constant">"."</span> -<span id="L771" class="LineNr">771 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *tmp-ah -<span id="L772" class="LineNr">772 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L751'>dot-token?</a> tmp -<span id="L773" class="LineNr">773 </span> <a href='../502test.mu.html#L19'>check</a> result, <span class="Constant">"F - test-dot-token"</span> -<span id="L774" class="LineNr">774 </span><span class="Delimiter">}</span> -<span id="L775" class="LineNr">775 </span> -<span id="L776" class="LineNr">776 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L776'>stream-token?</a></span> _in: (addr <a href='cell.mu.html#L1'>cell</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L777" class="LineNr">777 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in -<span id="L778" class="LineNr">778 </span> <span class="PreProc">var</span> in-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get in, <span class="PreProc">type</span> -<span id="L779" class="LineNr">779 </span> compare *in-type, <span class="Constant">3</span>/stream -<span id="L780" class="LineNr">780 </span> <span class="Delimiter">{</span> -<span id="L781" class="LineNr">781 </span> <span class="PreProc">break-if-=</span> -<span id="L782" class="LineNr">782 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L783" class="LineNr">783 </span> <span class="Delimiter">}</span> -<span id="L784" class="LineNr">784 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true -<span id="L785" class="LineNr">785 </span><span class="Delimiter">}</span> -<span id="L786" class="LineNr">786 </span> -<span id="L787" class="LineNr">787 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L787'>comment-token?</a></span> _in: (addr <a href='cell.mu.html#L1'>cell</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L788" class="LineNr">788 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in -<span id="L789" class="LineNr">789 </span> <span class="PreProc">var</span> in-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get in, text-data -<span id="L790" class="LineNr">790 </span> <span class="PreProc">var</span> in-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *in-data-ah -<span id="L791" class="LineNr">791 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> in-data -<span id="L792" class="LineNr">792 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L92'>read-grapheme</a> in-data -<span id="L793" class="LineNr">793 </span> compare g, <span class="Constant">0x23</span>/hash -<span id="L794" class="LineNr">794 </span> <span class="Delimiter">{</span> -<span id="L795" class="LineNr">795 </span> <span class="PreProc">break-if-=</span> -<span id="L796" class="LineNr">796 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L797" class="LineNr">797 </span> <span class="Delimiter">}</span> -<span id="L798" class="LineNr">798 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true -<span id="L799" class="LineNr">799 </span><span class="Delimiter">}</span> +<span id="L761" class="LineNr">761 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L762" class="LineNr">762 </span> <span class="Delimiter">}</span> +<span id="L763" class="LineNr">763 </span> compare g, <span class="Constant">0x3a</span>/colon +<span id="L764" class="LineNr">764 </span> <span class="Delimiter">{</span> +<span id="L765" class="LineNr">765 </span> <span class="PreProc">break-if-!=</span> +<span id="L766" class="LineNr">766 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L767" class="LineNr">767 </span> <span class="Delimiter">}</span> +<span id="L768" class="LineNr">768 </span> compare g, <span class="Constant">0x3b</span>/semi-colon +<span id="L769" class="LineNr">769 </span> <span class="Delimiter">{</span> +<span id="L770" class="LineNr">770 </span> <span class="PreProc">break-if-!=</span> +<span id="L771" class="LineNr">771 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L772" class="LineNr">772 </span> <span class="Delimiter">}</span> +<span id="L773" class="LineNr">773 </span> compare g, <span class="Constant">0x3c</span>/less-than +<span id="L774" class="LineNr">774 </span> <span class="Delimiter">{</span> +<span id="L775" class="LineNr">775 </span> <span class="PreProc">break-if-!=</span> +<span id="L776" class="LineNr">776 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L777" class="LineNr">777 </span> <span class="Delimiter">}</span> +<span id="L778" class="LineNr">778 </span> compare g, <span class="Constant">0x3d</span>/equal +<span id="L779" class="LineNr">779 </span> <span class="Delimiter">{</span> +<span id="L780" class="LineNr">780 </span> <span class="PreProc">break-if-!=</span> +<span id="L781" class="LineNr">781 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L782" class="LineNr">782 </span> <span class="Delimiter">}</span> +<span id="L783" class="LineNr">783 </span> compare g, <span class="Constant">0x3e</span>/greater-than +<span id="L784" class="LineNr">784 </span> <span class="Delimiter">{</span> +<span id="L785" class="LineNr">785 </span> <span class="PreProc">break-if-!=</span> +<span id="L786" class="LineNr">786 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L787" class="LineNr">787 </span> <span class="Delimiter">}</span> +<span id="L788" class="LineNr">788 </span> <span class="muComment"># '?' is a symbol char</span> +<span id="L789" class="LineNr">789 </span> compare g, <span class="Constant">0x5c</span>/backslash +<span id="L790" class="LineNr">790 </span> <span class="Delimiter">{</span> +<span id="L791" class="LineNr">791 </span> <span class="PreProc">break-if-!=</span> +<span id="L792" class="LineNr">792 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L793" class="LineNr">793 </span> <span class="Delimiter">}</span> +<span id="L794" class="LineNr">794 </span> compare g, <span class="Constant">0x5e</span>/caret +<span id="L795" class="LineNr">795 </span> <span class="Delimiter">{</span> +<span id="L796" class="LineNr">796 </span> <span class="PreProc">break-if-!=</span> +<span id="L797" class="LineNr">797 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L798" class="LineNr">798 </span> <span class="Delimiter">}</span> +<span id="L799" class="LineNr">799 </span> <span class="muComment"># '_' is a symbol char</span> +<span id="L800" class="LineNr">800 </span> compare g, <span class="Constant">0x7c</span>/vertical-line +<span id="L801" class="LineNr">801 </span> <span class="Delimiter">{</span> +<span id="L802" class="LineNr">802 </span> <span class="PreProc">break-if-!=</span> +<span id="L803" class="LineNr">803 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L804" class="LineNr">804 </span> <span class="Delimiter">}</span> +<span id="L805" class="LineNr">805 </span> compare g, <span class="Constant">0x7e</span>/tilde +<span id="L806" class="LineNr">806 </span> <span class="Delimiter">{</span> +<span id="L807" class="LineNr">807 </span> <span class="PreProc">break-if-!=</span> +<span id="L808" class="LineNr">808 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L809" class="LineNr">809 </span> <span class="Delimiter">}</span> +<span id="L810" class="LineNr">810 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L811" class="LineNr">811 </span><span class="Delimiter">}</span> +<span id="L812" class="LineNr">812 </span> +<span id="L813" class="LineNr">813 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L813'>number-token?</a></span> _in: (addr <a href='cell.mu.html#L1'>cell</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L814" class="LineNr">814 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in +<span id="L815" class="LineNr">815 </span> <span class="PreProc">var</span> in-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get in, text-data +<span id="L816" class="LineNr">816 </span> <span class="PreProc">var</span> in-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *in-data-ah +<span id="L817" class="LineNr">817 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> in-data +<span id="L818" class="LineNr">818 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L92'>read-grapheme</a> in-data +<span id="L819" class="LineNr">819 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../126write-int-decimal.subx.html#L296'>decimal-digit?</a> g +<span id="L820" class="LineNr">820 </span> <span class="PreProc">return</span> result +<span id="L821" class="LineNr">821 </span><span class="Delimiter">}</span> +<span id="L822" class="LineNr">822 </span> +<span id="L823" class="LineNr">823 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L823'>bracket-token?</a></span> _in: (addr <a href='cell.mu.html#L1'>cell</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L824" class="LineNr">824 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in +<span id="L825" class="LineNr">825 </span> <span class="Delimiter">{</span> +<span id="L826" class="LineNr">826 </span> <span class="PreProc">var</span> in-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get in, <span class="PreProc">type</span> +<span id="L827" class="LineNr">827 </span> compare *in-type, <span class="Constant">3</span>/stream +<span id="L828" class="LineNr">828 </span> <span class="PreProc">break-if-!=</span> +<span id="L829" class="LineNr">829 </span> <span class="muComment"># streams are never paren tokens</span> +<span id="L830" class="LineNr">830 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L831" class="LineNr">831 </span> <span class="Delimiter">}</span> +<span id="L832" class="LineNr">832 </span> <span class="PreProc">var</span> in-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get in, text-data +<span id="L833" class="LineNr">833 </span> <span class="PreProc">var</span> in-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *in-data-ah +<span id="L834" class="LineNr">834 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> in-data +<span id="L835" class="LineNr">835 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L92'>read-grapheme</a> in-data +<span id="L836" class="LineNr">836 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L672'>bracket-grapheme?</a> g +<span id="L837" class="LineNr">837 </span> <span class="PreProc">return</span> result +<span id="L838" class="LineNr">838 </span><span class="Delimiter">}</span> +<span id="L839" class="LineNr">839 </span> +<span id="L840" class="LineNr">840 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L840'>quote-token?</a></span> _in: (addr <a href='cell.mu.html#L1'>cell</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L841" class="LineNr">841 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in +<span id="L842" class="LineNr">842 </span> <span class="PreProc">var</span> in-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get in, text-data +<span id="L843" class="LineNr">843 </span> <span class="PreProc">var</span> in-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *in-data-ah +<span id="L844" class="LineNr">844 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> in-data +<span id="L845" class="LineNr">845 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> in-data, <span class="Constant">"'"</span> +<span id="L846" class="LineNr">846 </span> <span class="PreProc">return</span> result +<span id="L847" class="LineNr">847 </span><span class="Delimiter">}</span> +<span id="L848" class="LineNr">848 </span> +<span id="L849" class="LineNr">849 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L849'>backquote-token?</a></span> _in: (addr <a href='cell.mu.html#L1'>cell</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L850" class="LineNr">850 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in +<span id="L851" class="LineNr">851 </span> <span class="PreProc">var</span> in-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get in, text-data +<span id="L852" class="LineNr">852 </span> <span class="PreProc">var</span> in-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *in-data-ah +<span id="L853" class="LineNr">853 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> in-data +<span id="L854" class="LineNr">854 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> in-data, <span class="Constant">"`"</span> +<span id="L855" class="LineNr">855 </span> <span class="PreProc">return</span> result +<span id="L856" class="LineNr">856 </span><span class="Delimiter">}</span> +<span id="L857" class="LineNr">857 </span> +<span id="L858" class="LineNr">858 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L858'>unquote-token?</a></span> _in: (addr <a href='cell.mu.html#L1'>cell</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L859" class="LineNr">859 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in +<span id="L860" class="LineNr">860 </span> <span class="PreProc">var</span> in-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get in, text-data +<span id="L861" class="LineNr">861 </span> <span class="PreProc">var</span> in-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *in-data-ah +<span id="L862" class="LineNr">862 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> in-data +<span id="L863" class="LineNr">863 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> in-data, <span class="Constant">","</span> +<span id="L864" class="LineNr">864 </span> <span class="PreProc">return</span> result +<span id="L865" class="LineNr">865 </span><span class="Delimiter">}</span> +<span id="L866" class="LineNr">866 </span> +<span id="L867" class="LineNr">867 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L867'>unquote-splice-token?</a></span> _in: (addr <a href='cell.mu.html#L1'>cell</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L868" class="LineNr">868 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in +<span id="L869" class="LineNr">869 </span> <span class="PreProc">var</span> in-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get in, text-data +<span id="L870" class="LineNr">870 </span> <span class="PreProc">var</span> in-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *in-data-ah +<span id="L871" class="LineNr">871 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> in-data +<span id="L872" class="LineNr">872 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> in-data, <span class="Constant">",@"</span> +<span id="L873" class="LineNr">873 </span> <span class="PreProc">return</span> result +<span id="L874" class="LineNr">874 </span><span class="Delimiter">}</span> +<span id="L875" class="LineNr">875 </span> +<span id="L876" class="LineNr">876 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L876'>open-paren-token?</a></span> _in: (addr <a href='cell.mu.html#L1'>cell</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L877" class="LineNr">877 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in +<span id="L878" class="LineNr">878 </span> <span class="PreProc">var</span> in-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get in, text-data +<span id="L879" class="LineNr">879 </span> <span class="PreProc">var</span> _in-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *in-data-ah +<span id="L880" class="LineNr">880 </span> <span class="PreProc">var</span> in-data/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> copy _in-data +<span id="L881" class="LineNr">881 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> in-data +<span id="L882" class="LineNr">882 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L92'>read-grapheme</a> in-data +<span id="L883" class="LineNr">883 </span> compare g, <span class="Constant">0x28</span>/open-paren +<span id="L884" class="LineNr">884 </span> <span class="Delimiter">{</span> +<span id="L885" class="LineNr">885 </span> <span class="PreProc">break-if-!=</span> +<span id="L886" class="LineNr">886 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> in-data +<span id="L887" class="LineNr">887 </span> <span class="PreProc">return</span> result +<span id="L888" class="LineNr">888 </span> <span class="Delimiter">}</span> +<span id="L889" class="LineNr">889 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L890" class="LineNr">890 </span><span class="Delimiter">}</span> +<span id="L891" class="LineNr">891 </span> +<span id="L892" class="LineNr">892 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L892'>close-paren-token?</a></span> _in: (addr <a href='cell.mu.html#L1'>cell</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L893" class="LineNr">893 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in +<span id="L894" class="LineNr">894 </span> <span class="PreProc">var</span> in-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get in, text-data +<span id="L895" class="LineNr">895 </span> <span class="PreProc">var</span> _in-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *in-data-ah +<span id="L896" class="LineNr">896 </span> <span class="PreProc">var</span> in-data/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> copy _in-data +<span id="L897" class="LineNr">897 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> in-data +<span id="L898" class="LineNr">898 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L92'>read-grapheme</a> in-data +<span id="L899" class="LineNr">899 </span> compare g, <span class="Constant">0x29</span>/close-paren +<span id="L900" class="LineNr">900 </span> <span class="Delimiter">{</span> +<span id="L901" class="LineNr">901 </span> <span class="PreProc">break-if-!=</span> +<span id="L902" class="LineNr">902 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> in-data +<span id="L903" class="LineNr">903 </span> <span class="PreProc">return</span> result +<span id="L904" class="LineNr">904 </span> <span class="Delimiter">}</span> +<span id="L905" class="LineNr">905 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L906" class="LineNr">906 </span><span class="Delimiter">}</span> +<span id="L907" class="LineNr">907 </span> +<span id="L908" class="LineNr">908 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L908'>dot-token?</a></span> _in: (addr <a href='cell.mu.html#L1'>cell</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L909" class="LineNr">909 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in +<span id="L910" class="LineNr">910 </span> <span class="PreProc">var</span> in-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get in, text-data +<span id="L911" class="LineNr">911 </span> <span class="PreProc">var</span> _in-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *in-data-ah +<span id="L912" class="LineNr">912 </span> <span class="PreProc">var</span> in-data/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> copy _in-data +<span id="L913" class="LineNr">913 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> in-data +<span id="L914" class="LineNr">914 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L92'>read-grapheme</a> in-data +<span id="L915" class="LineNr">915 </span> compare g, <span class="Constant">0x2e</span>/dot +<span id="L916" class="LineNr">916 </span> <span class="Delimiter">{</span> +<span id="L917" class="LineNr">917 </span> <span class="PreProc">break-if-!=</span> +<span id="L918" class="LineNr">918 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> in-data +<span id="L919" class="LineNr">919 </span> <span class="PreProc">return</span> result +<span id="L920" class="LineNr">920 </span> <span class="Delimiter">}</span> +<span id="L921" class="LineNr">921 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L922" class="LineNr">922 </span><span class="Delimiter">}</span> +<span id="L923" class="LineNr">923 </span> +<span id="L924" class="LineNr">924 </span><span class="PreProc">fn</span> <span class="muTest"><a href='tokenize.mu.html#L924'>test-dot-token</a></span> <span class="Delimiter">{</span> +<span id="L925" class="LineNr">925 </span> <span class="PreProc">var</span> tmp-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L926" class="LineNr">926 </span> <span class="PreProc">var</span> tmp-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address tmp-storage +<span id="L927" class="LineNr">927 </span> <a href='cell.mu.html#L39'>new-symbol</a> tmp-ah, <span class="Constant">"."</span> +<span id="L928" class="LineNr">928 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *tmp-ah +<span id="L929" class="LineNr">929 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L908'>dot-token?</a> tmp +<span id="L930" class="LineNr">930 </span> <a href='../502test.mu.html#L19'>check</a> result, <span class="Constant">"F - test-dot-token"</span> +<span id="L931" class="LineNr">931 </span><span class="Delimiter">}</span> +<span id="L932" class="LineNr">932 </span> +<span id="L933" class="LineNr">933 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L933'>stream-token?</a></span> _in: (addr <a href='cell.mu.html#L1'>cell</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L934" class="LineNr">934 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in +<span id="L935" class="LineNr">935 </span> <span class="PreProc">var</span> in-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get in, <span class="PreProc">type</span> +<span id="L936" class="LineNr">936 </span> compare *in-type, <span class="Constant">3</span>/stream +<span id="L937" class="LineNr">937 </span> <span class="Delimiter">{</span> +<span id="L938" class="LineNr">938 </span> <span class="PreProc">break-if-=</span> +<span id="L939" class="LineNr">939 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L940" class="LineNr">940 </span> <span class="Delimiter">}</span> +<span id="L941" class="LineNr">941 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L942" class="LineNr">942 </span><span class="Delimiter">}</span> +<span id="L943" class="LineNr">943 </span> +<span id="L944" class="LineNr">944 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L944'>comment-token?</a></span> _in: (addr <a href='cell.mu.html#L1'>cell</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L945" class="LineNr">945 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in +<span id="L946" class="LineNr">946 </span> <span class="PreProc">var</span> in-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get in, text-data +<span id="L947" class="LineNr">947 </span> <span class="PreProc">var</span> in-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *in-data-ah +<span id="L948" class="LineNr">948 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> in-data +<span id="L949" class="LineNr">949 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L92'>read-grapheme</a> in-data +<span id="L950" class="LineNr">950 </span> compare g, <span class="Constant">0x23</span>/hash +<span id="L951" class="LineNr">951 </span> <span class="Delimiter">{</span> +<span id="L952" class="LineNr">952 </span> <span class="PreProc">break-if-=</span> +<span id="L953" class="LineNr">953 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L954" class="LineNr">954 </span> <span class="Delimiter">}</span> +<span id="L955" class="LineNr">955 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L956" class="LineNr">956 </span><span class="Delimiter">}</span> </pre> </body> </html> diff --git a/html/shell/trace.mu.html b/html/shell/trace.mu.html index 8a74c7a4..ebab0591 100644 --- a/html/shell/trace.mu.html +++ b/html/shell/trace.mu.html @@ -119,7 +119,7 @@ if ('onhashchange' in window) { <span id="L60" class="LineNr"> 60 </span> <span class="Delimiter">}</span> <span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> max/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get self, first-free <span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> trace-ah/<span class="Constant">eax</span>: (addr handle array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> get self, data -<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">var</span> _trace/<span class="Constant">eax</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *trace-ah +<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">var</span> _trace/<span class="Constant">eax</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *trace-ah <span id="L64" class="LineNr"> 64 </span> <span class="PreProc">var</span> trace/<span class="Constant">esi</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> copy _trace <span id="L65" class="LineNr"> 65 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L66" class="LineNr"> 66 </span> <span class="Delimiter">{</span> @@ -128,7 +128,7 @@ if ('onhashchange' in window) { <span id="L69" class="LineNr"> 69 </span> <span class="PreProc">var</span> offset/<span class="Constant">eax</span>: (offset <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> compute-offset trace, i <span id="L70" class="LineNr"> 70 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> index trace, offset <span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> curr-label-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> get curr, label -<span id="L72" class="LineNr"> 72 </span> <span class="PreProc">var</span> curr-label/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *curr-label-ah +<span id="L72" class="LineNr"> 72 </span> <span class="PreProc">var</span> curr-label/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *curr-label-ah <span id="L73" class="LineNr"> 73 </span> <span class="PreProc">var</span> error?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> curr-label, <span class="Constant">"error"</span> <span id="L74" class="LineNr"> 74 </span> compare error?, <span class="Constant">0</span>/false <span id="L75" class="LineNr"> 75 </span> <span class="Delimiter">{</span> @@ -146,7 +146,7 @@ if ('onhashchange' in window) { <span id="L87" class="LineNr"> 87 </span> compare self, <span class="Constant">0</span> <span id="L88" class="LineNr"> 88 </span> <span class="PreProc">break-if-=</span> <span id="L89" class="LineNr"> 89 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> get self, data -<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *data-ah <span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> index-addr/<span class="Constant">edi</span>: (addr int) <span class="Special"><-</span> get self, first-free <span id="L92" class="LineNr"> 92 </span> <span class="Delimiter">{</span> <span id="L93" class="LineNr"> 93 </span> compare *index-addr, <span class="Constant">0x8000</span>/lines @@ -274,7 +274,7 @@ if ('onhashchange' in window) { <span id="L215" class="LineNr"> 215 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L215'>trace-contains?</a></span> _self: (addr trace), label: (addr array byte), data: (addr array byte), start: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> <span id="L216" class="LineNr"> 216 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> copy _self <span id="L217" class="LineNr"> 217 </span> <span class="PreProc">var</span> candidates-ah/<span class="Constant">eax</span>: (addr handle array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> get self, data -<span id="L218" class="LineNr"> 218 </span> <span class="PreProc">var</span> candidates/<span class="Constant">eax</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *candidates-ah +<span id="L218" class="LineNr"> 218 </span> <span class="PreProc">var</span> candidates/<span class="Constant">eax</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *candidates-ah <span id="L219" class="LineNr"> 219 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy start <span id="L220" class="LineNr"> 220 </span> <span class="PreProc">var</span> max/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get self, first-free <span id="L221" class="LineNr"> 221 </span> <span class="Delimiter">{</span> @@ -289,13 +289,13 @@ if ('onhashchange' in window) { <span id="L230" class="LineNr"> 230 </span> <span class="PreProc">var</span> curr/<span class="Constant">ecx</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> index candidates, curr-offset <span id="L231" class="LineNr"> 231 </span> <span class="muComment"># if curr->label does not match, return false</span> <span id="L232" class="LineNr"> 232 </span> <span class="PreProc">var</span> curr-label-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> get curr, label -<span id="L233" class="LineNr"> 233 </span> <span class="PreProc">var</span> curr-label/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *curr-label-ah +<span id="L233" class="LineNr"> 233 </span> <span class="PreProc">var</span> curr-label/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *curr-label-ah <span id="L234" class="LineNr"> 234 </span> <span class="PreProc">var</span> match?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> curr-label, label <span id="L235" class="LineNr"> 235 </span> compare match?, <span class="Constant">0</span>/false <span id="L236" class="LineNr"> 236 </span> <span class="PreProc">break-if-=</span> <span id="L237" class="LineNr"> 237 </span> <span class="muComment"># if curr->data does not match, return false</span> <span id="L238" class="LineNr"> 238 </span> <span class="PreProc">var</span> curr-data-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> get curr, data -<span id="L239" class="LineNr"> 239 </span> <span class="PreProc">var</span> curr-data/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *curr-data-ah +<span id="L239" class="LineNr"> 239 </span> <span class="PreProc">var</span> curr-data/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *curr-data-ah <span id="L240" class="LineNr"> 240 </span> <span class="PreProc">var</span> match?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> curr-data, data <span id="L241" class="LineNr"> 241 </span> compare match?, <span class="Constant">0</span>/false <span id="L242" class="LineNr"> 242 </span> <span class="PreProc">break-if-=</span> @@ -319,10 +319,10 @@ if ('onhashchange' in window) { <span id="L260" class="LineNr"> 260 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false <span id="L261" class="LineNr"> 261 </span> <span class="Delimiter">}</span> <span id="L262" class="LineNr"> 262 </span> <span class="PreProc">var</span> a-label-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> get a, label -<span id="L263" class="LineNr"> 263 </span> <span class="PreProc">var</span> _a-label/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *a-label-ah +<span id="L263" class="LineNr"> 263 </span> <span class="PreProc">var</span> _a-label/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *a-label-ah <span id="L264" class="LineNr"> 264 </span> <span class="PreProc">var</span> a-label/<span class="Constant">ecx</span>: (addr array byte) <span class="Special"><-</span> copy _a-label <span id="L265" class="LineNr"> 265 </span> <span class="PreProc">var</span> b-label-ah/<span class="Constant">ebx</span>: (addr handle array byte) <span class="Special"><-</span> get b, label -<span id="L266" class="LineNr"> 266 </span> <span class="PreProc">var</span> b-label/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *b-label-ah +<span id="L266" class="LineNr"> 266 </span> <span class="PreProc">var</span> b-label/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *b-label-ah <span id="L267" class="LineNr"> 267 </span> <span class="PreProc">var</span> label-match?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> a-label, b-label <span id="L268" class="LineNr"> 268 </span> <span class="Delimiter">{</span> <span id="L269" class="LineNr"> 269 </span> compare label-match?, <span class="Constant">0</span>/false @@ -330,10 +330,10 @@ if ('onhashchange' in window) { <span id="L271" class="LineNr"> 271 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false <span id="L272" class="LineNr"> 272 </span> <span class="Delimiter">}</span> <span id="L273" class="LineNr"> 273 </span> <span class="PreProc">var</span> a-data-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> get a, data -<span id="L274" class="LineNr"> 274 </span> <span class="PreProc">var</span> _a-data/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *a-data-ah +<span id="L274" class="LineNr"> 274 </span> <span class="PreProc">var</span> _a-data/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *a-data-ah <span id="L275" class="LineNr"> 275 </span> <span class="PreProc">var</span> a-data/<span class="Constant">ecx</span>: (addr array byte) <span class="Special"><-</span> copy _a-data <span id="L276" class="LineNr"> 276 </span> <span class="PreProc">var</span> b-data-ah/<span class="Constant">ebx</span>: (addr handle array byte) <span class="Special"><-</span> get b, data -<span id="L277" class="LineNr"> 277 </span> <span class="PreProc">var</span> b-data/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *b-data-ah +<span id="L277" class="LineNr"> 277 </span> <span class="PreProc">var</span> b-data/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *b-data-ah <span id="L278" class="LineNr"> 278 </span> <span class="PreProc">var</span> data-match?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> a-data, b-data <span id="L279" class="LineNr"> 279 </span> <span class="PreProc">return</span> data-match? <span id="L280" class="LineNr"> 280 </span><span class="Delimiter">}</span> @@ -348,7 +348,7 @@ if ('onhashchange' in window) { <span id="L289" class="LineNr"> 289 </span> <span class="PreProc">return</span> <span id="L290" class="LineNr"> 290 </span> <span class="Delimiter">}</span> <span id="L291" class="LineNr"> 291 </span> <span class="PreProc">var</span> trace-ah/<span class="Constant">eax</span>: (addr handle array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> get self, data -<span id="L292" class="LineNr"> 292 </span> <span class="PreProc">var</span> _trace/<span class="Constant">eax</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *trace-ah +<span id="L292" class="LineNr"> 292 </span> <span class="PreProc">var</span> _trace/<span class="Constant">eax</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *trace-ah <span id="L293" class="LineNr"> 293 </span> <span class="PreProc">var</span> trace/<span class="Constant">edi</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> copy _trace <span id="L294" class="LineNr"> 294 </span> <span class="PreProc">var</span> i/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L295" class="LineNr"> 295 </span> <span class="PreProc">var</span> max-addr/<span class="Constant">ebx</span>: (addr int) <span class="Special"><-</span> get self, first-free @@ -359,1317 +359,1348 @@ if ('onhashchange' in window) { <span id="L300" class="LineNr"> 300 </span> $dump-trace:iter: <span class="Delimiter">{</span> <span id="L301" class="LineNr"> 301 </span> <span class="PreProc">var</span> offset/<span class="Constant">ebx</span>: (offset <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> compute-offset trace, i <span id="L302" class="LineNr"> 302 </span> <span class="PreProc">var</span> curr/<span class="Constant">ebx</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> index trace, offset -<span id="L303" class="LineNr"> 303 </span> <span class="PreProc">var</span> curr-label-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> get curr, label -<span id="L304" class="LineNr"> 304 </span> <span class="PreProc">var</span> curr-label/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *curr-label-ah -<span id="L305" class="LineNr"> 305 </span> y <span class="Special"><-</span> <a href='trace.mu.html#L398'>render-trace-line</a> <span class="Constant">0</span>/screen, curr, <span class="Constant">0</span>, y, <span class="Constant">0x80</span>/width, <span class="Constant">0x30</span>/height, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L306" class="LineNr"> 306 </span> <span class="Delimiter">}</span> -<span id="L307" class="LineNr"> 307 </span> i <span class="Special"><-</span> increment -<span id="L308" class="LineNr"> 308 </span> <span class="PreProc">loop</span> -<span id="L309" class="LineNr"> 309 </span> <span class="Delimiter">}</span> -<span id="L310" class="LineNr"> 310 </span><span class="Delimiter">}</span> -<span id="L311" class="LineNr"> 311 </span> -<span id="L312" class="LineNr"> 312 </span><span class="muComment">## UI stuff</span> -<span id="L313" class="LineNr"> 313 </span> -<span id="L314" class="LineNr"> 314 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L314'>mark-lines-dirty</a></span> _self: (addr trace) <span class="Delimiter">{</span> -<span id="L315" class="LineNr"> 315 </span> <span class="PreProc">var</span> self/<span class="Constant">eax</span>: (addr trace) <span class="Special"><-</span> copy _self -<span id="L316" class="LineNr"> 316 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr boolean) <span class="Special"><-</span> get self, recompute-visible? -<span id="L317" class="LineNr"> 317 </span> copy-to *dest, <span class="Constant">1</span>/true -<span id="L318" class="LineNr"> 318 </span><span class="Delimiter">}</span> -<span id="L319" class="LineNr"> 319 </span> -<span id="L320" class="LineNr"> 320 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L320'>mark-lines-clean</a></span> _self: (addr trace) <span class="Delimiter">{</span> -<span id="L321" class="LineNr"> 321 </span> <span class="PreProc">var</span> self/<span class="Constant">eax</span>: (addr trace) <span class="Special"><-</span> copy _self -<span id="L322" class="LineNr"> 322 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr boolean) <span class="Special"><-</span> get self, recompute-visible? -<span id="L323" class="LineNr"> 323 </span> copy-to *dest, <span class="Constant">0</span>/false -<span id="L324" class="LineNr"> 324 </span><span class="Delimiter">}</span> -<span id="L325" class="LineNr"> 325 </span> -<span id="L326" class="LineNr"> 326 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L326'>render-trace</a></span> <a href='../500fake-screen.mu.html#L14'>screen</a>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>), _self: (addr trace), xmin: int, ymin: int, xmax: int, ymax: int, show-cursor?: boolean<span class="PreProc"> -> </span>_/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> -<span id="L327" class="LineNr"> 327 </span> <span class="PreProc">var</span> already-hiding-lines?: boolean -<span id="L328" class="LineNr"> 328 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy ymin -<span id="L329" class="LineNr"> 329 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> copy _self -<span id="L330" class="LineNr"> 330 </span> compare self, <span class="Constant">0</span> -<span id="L331" class="LineNr"> 331 </span> <span class="Delimiter">{</span> -<span id="L332" class="LineNr"> 332 </span> <span class="PreProc">break-if-!=</span> -<span id="L333" class="LineNr"> 333 </span> <span class="PreProc">return</span> ymin -<span id="L334" class="LineNr"> 334 </span> <span class="Delimiter">}</span> -<span id="L335" class="LineNr"> 335 </span> <a href='trace.mu.html#L468'>clamp-cursor-to-top</a> self, y -<span id="L336" class="LineNr"> 336 </span> <span class="PreProc">var</span> trace-ah/<span class="Constant">eax</span>: (addr handle array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> get self, data -<span id="L337" class="LineNr"> 337 </span> <span class="PreProc">var</span> _trace/<span class="Constant">eax</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *trace-ah -<span id="L338" class="LineNr"> 338 </span> <span class="PreProc">var</span> trace/<span class="Constant">edi</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> copy _trace -<span id="L339" class="LineNr"> 339 </span> <span class="PreProc">var</span> i/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L340" class="LineNr"> 340 </span> <span class="PreProc">var</span> max-addr/<span class="Constant">ebx</span>: (addr int) <span class="Special"><-</span> get self, first-free -<span id="L341" class="LineNr"> 341 </span> <span class="PreProc">var</span> max/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy *max-addr -<span id="L342" class="LineNr"> 342 </span> $render-trace:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> -<span id="L343" class="LineNr"> 343 </span> compare i, max -<span id="L344" class="LineNr"> 344 </span> <span class="PreProc">break-if->=</span> -<span id="L345" class="LineNr"> 345 </span> $render-trace:iter: <span class="Delimiter">{</span> -<span id="L346" class="LineNr"> 346 </span> <span class="PreProc">var</span> offset/<span class="Constant">ebx</span>: (offset <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> compute-offset trace, i -<span id="L347" class="LineNr"> 347 </span> <span class="PreProc">var</span> curr/<span class="Constant">ebx</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> index trace, offset -<span id="L348" class="LineNr"> 348 </span> <span class="PreProc">var</span> curr-label-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> get curr, label -<span id="L349" class="LineNr"> 349 </span> <span class="PreProc">var</span> curr-label/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *curr-label-ah -<span id="L350" class="LineNr"> 350 </span> <span class="PreProc">var</span> bg/<span class="Constant">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L351" class="LineNr"> 351 </span> compare show-cursor?, <span class="Constant">0</span>/false -<span id="L352" class="LineNr"> 352 </span> <span class="Delimiter">{</span> -<span id="L353" class="LineNr"> 353 </span> <span class="PreProc">break-if-=</span> -<span id="L354" class="LineNr"> 354 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, cursor-y -<span id="L355" class="LineNr"> 355 </span> compare *cursor-y, y -<span id="L356" class="LineNr"> 356 </span> <span class="PreProc">break-if-!=</span> -<span id="L357" class="LineNr"> 357 </span> bg <span class="Special"><-</span> copy <span class="Constant">7</span>/cursor-line-bg -<span id="L358" class="LineNr"> 358 </span> <span class="PreProc">var</span> cursor-line-index/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, cursor-line-index -<span id="L359" class="LineNr"> 359 </span> copy-to *cursor-line-index, i -<span id="L360" class="LineNr"> 360 </span> <span class="Delimiter">}</span> -<span id="L361" class="LineNr"> 361 </span> <span class="muComment"># always display errors</span> -<span id="L362" class="LineNr"> 362 </span> <span class="PreProc">var</span> error?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> curr-label, <span class="Constant">"error"</span> -<span id="L363" class="LineNr"> 363 </span> <span class="Delimiter">{</span> -<span id="L364" class="LineNr"> 364 </span> compare error?, <span class="Constant">0</span>/false -<span id="L365" class="LineNr"> 365 </span> <span class="PreProc">break-if-=</span> -<span id="L366" class="LineNr"> 366 </span> y <span class="Special"><-</span> <a href='trace.mu.html#L398'>render-trace-line</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, curr, xmin, y, xmax, ymax, <span class="Constant">0xc</span>/fg=trace-error, bg -<span id="L367" class="LineNr"> 367 </span> copy-to already-hiding-lines?, <span class="Constant">0</span>/false -<span id="L368" class="LineNr"> 368 </span> <span class="PreProc">break</span> $render-trace:iter -<span id="L369" class="LineNr"> 369 </span> <span class="Delimiter">}</span> -<span id="L370" class="LineNr"> 370 </span> <span class="muComment"># display expanded lines</span> -<span id="L371" class="LineNr"> 371 </span> <span class="PreProc">var</span> display?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='trace.mu.html#L429'>should-render?</a> self, curr -<span id="L372" class="LineNr"> 372 </span> <span class="Delimiter">{</span> -<span id="L373" class="LineNr"> 373 </span> compare display?, <span class="Constant">0</span>/false -<span id="L374" class="LineNr"> 374 </span> <span class="PreProc">break-if-=</span> -<span id="L375" class="LineNr"> 375 </span> y <span class="Special"><-</span> <a href='trace.mu.html#L398'>render-trace-line</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, curr, xmin, y, xmax, ymax, <span class="Constant">0x38</span>/fg=trace, bg -<span id="L376" class="LineNr"> 376 </span> copy-to already-hiding-lines?, <span class="Constant">0</span>/false -<span id="L377" class="LineNr"> 377 </span> <span class="PreProc">break</span> $render-trace:iter -<span id="L378" class="LineNr"> 378 </span> <span class="Delimiter">}</span> -<span id="L379" class="LineNr"> 379 </span> <span class="muComment"># ignore the rest</span> -<span id="L380" class="LineNr"> 380 </span> compare already-hiding-lines?, <span class="Constant">0</span>/false -<span id="L381" class="LineNr"> 381 </span> <span class="Delimiter">{</span> -<span id="L382" class="LineNr"> 382 </span> <span class="PreProc">break-if-!=</span> -<span id="L383" class="LineNr"> 383 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy xmin -<span id="L384" class="LineNr"> 384 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L167'>draw-text-wrapping-right-then-down</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">"..."</span>, xmin, ymin, xmax, ymax, x, y, <span class="Constant">9</span>/fg=trace, bg -<span id="L385" class="LineNr"> 385 </span> y <span class="Special"><-</span> increment -<span id="L386" class="LineNr"> 386 </span> copy-to already-hiding-lines?, <span class="Constant">1</span>/true -<span id="L387" class="LineNr"> 387 </span> <span class="Delimiter">}</span> -<span id="L388" class="LineNr"> 388 </span> <span class="Delimiter">}</span> -<span id="L389" class="LineNr"> 389 </span> i <span class="Special"><-</span> increment -<span id="L390" class="LineNr"> 390 </span> <span class="PreProc">loop</span> -<span id="L391" class="LineNr"> 391 </span> <span class="Delimiter">}</span> -<span id="L392" class="LineNr"> 392 </span> <span class="muComment"># prevent cursor from going too far down</span> -<span id="L393" class="LineNr"> 393 </span> <a href='trace.mu.html#L478'>clamp-cursor-to-bottom</a> self, y, <a href='../500fake-screen.mu.html#L14'>screen</a>, xmin, ymin, xmax, ymax -<span id="L394" class="LineNr"> 394 </span> <a href='trace.mu.html#L320'>mark-lines-clean</a> self -<span id="L395" class="LineNr"> 395 </span> <span class="PreProc">return</span> y -<span id="L396" class="LineNr"> 396 </span><span class="Delimiter">}</span> -<span id="L397" class="LineNr"> 397 </span> -<span id="L398" class="LineNr"> 398 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L398'>render-trace-line</a></span> <a href='../500fake-screen.mu.html#L14'>screen</a>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>), _self: (addr <a href='trace.mu.html#L26'>trace-line</a>), xmin: int, ymin: int, xmax: int, ymax: int, fg: int, bg: int<span class="PreProc"> -> </span>_/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> -<span id="L399" class="LineNr"> 399 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> copy _self -<span id="L400" class="LineNr"> 400 </span> <span class="PreProc">var</span> xsave/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy xmin -<span id="L401" class="LineNr"> 401 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy ymin -<span id="L402" class="LineNr"> 402 </span> <span class="PreProc">var</span> label-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> get self, label -<span id="L403" class="LineNr"> 403 </span> <span class="PreProc">var</span> _label/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *label-ah -<span id="L404" class="LineNr"> 404 </span> <span class="PreProc">var</span> label/<span class="Constant">ebx</span>: (addr array byte) <span class="Special"><-</span> copy _label -<span id="L405" class="LineNr"> 405 </span> <span class="PreProc">var</span> error?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> label, <span class="Constant">"error"</span> -<span id="L406" class="LineNr"> 406 </span> compare error?, <span class="Constant">0</span>/false -<span id="L407" class="LineNr"> 407 </span> <span class="Delimiter">{</span> -<span id="L408" class="LineNr"> 408 </span> <span class="PreProc">break-if-!=</span> -<span id="L409" class="LineNr"> 409 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy xsave -<span id="L410" class="LineNr"> 410 </span> <span class="Delimiter">{</span> -<span id="L411" class="LineNr"> 411 </span> <span class="PreProc">var</span> depth/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get self, depth -<span id="L412" class="LineNr"> 412 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L319'>draw-int32-decimal-wrapping-right-then-down</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, *depth, xmin, ymin, xmax, ymax, x, y, fg, bg -<span id="L413" class="LineNr"> 413 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L167'>draw-text-wrapping-right-then-down</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" "</span>, xmin, ymin, xmax, ymax, x, y, fg, bg -<span id="L414" class="LineNr"> 414 </span> <span class="muComment"># don't show label in UI; it's just for tests</span> -<span id="L415" class="LineNr"> 415 </span> <span class="Delimiter">}</span> -<span id="L416" class="LineNr"> 416 </span> xsave <span class="Special"><-</span> copy x -<span id="L417" class="LineNr"> 417 </span> <span class="Delimiter">}</span> -<span id="L418" class="LineNr"> 418 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> get self, data -<span id="L419" class="LineNr"> 419 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah -<span id="L420" class="LineNr"> 420 </span> <span class="PreProc">var</span> data/<span class="Constant">ebx</span>: (addr array byte) <span class="Special"><-</span> copy _data -<span id="L421" class="LineNr"> 421 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy xsave -<span id="L422" class="LineNr"> 422 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L167'>draw-text-wrapping-right-then-down</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, data, xmin, ymin, xmax, ymax, x, y, fg, bg -<span id="L423" class="LineNr"> 423 </span> y <span class="Special"><-</span> increment -<span id="L424" class="LineNr"> 424 </span> <span class="PreProc">return</span> y -<span id="L425" class="LineNr"> 425 </span><span class="Delimiter">}</span> -<span id="L426" class="LineNr"> 426 </span> -<span id="L427" class="LineNr"> 427 </span><span class="muComment"># this is super-inefficient, string comparing every trace line</span> -<span id="L428" class="LineNr"> 428 </span><span class="muComment"># against every visible line on every render</span> -<span id="L429" class="LineNr"> 429 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L429'>should-render?</a></span> _self: (addr trace), _line: (addr <a href='trace.mu.html#L26'>trace-line</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L430" class="LineNr"> 430 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> copy _self -<span id="L431" class="LineNr"> 431 </span> <span class="muComment"># if visible? is already cached, just return it</span> -<span id="L432" class="LineNr"> 432 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr boolean) <span class="Special"><-</span> get self, recompute-visible? -<span id="L433" class="LineNr"> 433 </span> compare *dest, <span class="Constant">0</span>/false -<span id="L434" class="LineNr"> 434 </span> <span class="Delimiter">{</span> -<span id="L435" class="LineNr"> 435 </span> <span class="PreProc">break-if-!=</span> -<span id="L436" class="LineNr"> 436 </span> <span class="PreProc">var</span> line/<span class="Constant">eax</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> copy _line -<span id="L437" class="LineNr"> 437 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> get line, visible? -<span id="L438" class="LineNr"> 438 </span> <span class="PreProc">return</span> *result -<span id="L439" class="LineNr"> 439 </span> <span class="Delimiter">}</span> -<span id="L440" class="LineNr"> 440 </span> <span class="muComment"># recompute</span> -<span id="L441" class="LineNr"> 441 </span> <span class="PreProc">var</span> candidates-ah/<span class="Constant">eax</span>: (addr handle array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> get self, visible -<span id="L442" class="LineNr"> 442 </span> <span class="PreProc">var</span> candidates/<span class="Constant">eax</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *candidates-ah -<span id="L443" class="LineNr"> 443 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L444" class="LineNr"> 444 </span> <span class="PreProc">var</span> len/<span class="Constant">edx</span>: int <span class="Special"><-</span> length candidates -<span id="L445" class="LineNr"> 445 </span> <span class="Delimiter">{</span> -<span id="L446" class="LineNr"> 446 </span> compare i, len -<span id="L447" class="LineNr"> 447 </span> <span class="PreProc">break-if->=</span> -<span id="L448" class="LineNr"> 448 </span> <span class="Delimiter">{</span> -<span id="L449" class="LineNr"> 449 </span> <span class="PreProc">var</span> curr-offset/<span class="Constant">ecx</span>: (offset <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> compute-offset candidates, i -<span id="L450" class="LineNr"> 450 </span> <span class="PreProc">var</span> curr/<span class="Constant">ecx</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> index candidates, curr-offset -<span id="L451" class="LineNr"> 451 </span> <span class="PreProc">var</span> match?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='trace.mu.html#L251'>trace-lines-equal?</a> curr, _line -<span id="L452" class="LineNr"> 452 </span> compare match?, <span class="Constant">0</span>/false -<span id="L453" class="LineNr"> 453 </span> <span class="PreProc">break-if-=</span> -<span id="L454" class="LineNr"> 454 </span> <span class="PreProc">var</span> line/<span class="Constant">eax</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> copy _line -<span id="L455" class="LineNr"> 455 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> get line, visible? -<span id="L456" class="LineNr"> 456 </span> copy-to *dest, <span class="Constant">1</span>/true -<span id="L457" class="LineNr"> 457 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true -<span id="L458" class="LineNr"> 458 </span> <span class="Delimiter">}</span> -<span id="L459" class="LineNr"> 459 </span> i <span class="Special"><-</span> increment -<span id="L460" class="LineNr"> 460 </span> <span class="PreProc">loop</span> -<span id="L461" class="LineNr"> 461 </span> <span class="Delimiter">}</span> -<span id="L462" class="LineNr"> 462 </span> <span class="PreProc">var</span> line/<span class="Constant">eax</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> copy _line -<span id="L463" class="LineNr"> 463 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> get line, visible? -<span id="L464" class="LineNr"> 464 </span> copy-to *dest, <span class="Constant">0</span>/false -<span id="L465" class="LineNr"> 465 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L466" class="LineNr"> 466 </span><span class="Delimiter">}</span> -<span id="L467" class="LineNr"> 467 </span> -<span id="L468" class="LineNr"> 468 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L468'>clamp-cursor-to-top</a></span> _self: (addr trace), _y: int <span class="Delimiter">{</span> -<span id="L469" class="LineNr"> 469 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy _y -<span id="L470" class="LineNr"> 470 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> copy _self -<span id="L471" class="LineNr"> 471 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, cursor-y -<span id="L472" class="LineNr"> 472 </span> compare *cursor-y, y -<span id="L473" class="LineNr"> 473 </span> <span class="PreProc">break-if->=</span> -<span id="L474" class="LineNr"> 474 </span> copy-to *cursor-y, y -<span id="L475" class="LineNr"> 475 </span><span class="Delimiter">}</span> -<span id="L476" class="LineNr"> 476 </span> -<span id="L477" class="LineNr"> 477 </span><span class="muComment"># extremely hacky; consider deleting test-render-trace-empty-3 when you clean this up</span> -<span id="L478" class="LineNr"> 478 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L478'>clamp-cursor-to-bottom</a></span> _self: (addr trace), _y: int, <a href='../500fake-screen.mu.html#L14'>screen</a>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>), xmin: int, ymin: int, xmax: int, ymax: int <span class="Delimiter">{</span> -<span id="L479" class="LineNr"> 479 </span> <span class="PreProc">var</span> y/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy _y -<span id="L480" class="LineNr"> 480 </span> compare y, ymin -<span id="L481" class="LineNr"> 481 </span> <span class="Delimiter">{</span> -<span id="L482" class="LineNr"> 482 </span> <span class="PreProc">break-if-></span> -<span id="L483" class="LineNr"> 483 </span> <span class="PreProc">return</span> -<span id="L484" class="LineNr"> 484 </span> <span class="Delimiter">}</span> -<span id="L485" class="LineNr"> 485 </span> y <span class="Special"><-</span> decrement -<span id="L486" class="LineNr"> 486 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> copy _self -<span id="L487" class="LineNr"> 487 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, cursor-y -<span id="L488" class="LineNr"> 488 </span> compare *cursor-y, y -<span id="L489" class="LineNr"> 489 </span> <span class="PreProc">break-if-<=</span> -<span id="L490" class="LineNr"> 490 </span> copy-to *cursor-y, y -<span id="L491" class="LineNr"> 491 </span> <span class="muComment"># redraw cursor-line</span> -<span id="L492" class="LineNr"> 492 </span> <span class="muComment"># TODO: ugly duplication</span> -<span id="L493" class="LineNr"> 493 </span> <span class="PreProc">var</span> trace-ah/<span class="Constant">eax</span>: (addr handle array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> get self, data -<span id="L494" class="LineNr"> 494 </span> <span class="PreProc">var</span> trace/<span class="Constant">eax</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *trace-ah -<span id="L495" class="LineNr"> 495 </span> <span class="PreProc">var</span> cursor-line-index-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get self, cursor-line-index -<span id="L496" class="LineNr"> 496 </span> <span class="PreProc">var</span> cursor-line-index/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *cursor-line-index-addr -<span id="L497" class="LineNr"> 497 </span> <span class="PreProc">var</span> first-free/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get self, first-free -<span id="L498" class="LineNr"> 498 </span> compare cursor-line-index, *first-free -<span id="L499" class="LineNr"> 499 </span> <span class="Delimiter">{</span> -<span id="L500" class="LineNr"> 500 </span> <span class="PreProc">break-if-<</span> -<span id="L501" class="LineNr"> 501 </span> <span class="PreProc">return</span> -<span id="L502" class="LineNr"> 502 </span> <span class="Delimiter">}</span> -<span id="L503" class="LineNr"> 503 </span> <span class="PreProc">var</span> cursor-offset/<span class="Constant">ecx</span>: (offset <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> compute-offset trace, cursor-line-index -<span id="L504" class="LineNr"> 504 </span> <span class="PreProc">var</span> cursor-line/<span class="Constant">ecx</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> index trace, cursor-offset -<span id="L505" class="LineNr"> 505 </span> <span class="PreProc">var</span> display?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='trace.mu.html#L429'>should-render?</a> self, cursor-line -<span id="L506" class="LineNr"> 506 </span> <span class="Delimiter">{</span> -<span id="L507" class="LineNr"> 507 </span> compare display?, <span class="Constant">0</span>/false -<span id="L508" class="LineNr"> 508 </span> <span class="PreProc">break-if-=</span> -<span id="L509" class="LineNr"> 509 </span> <span class="PreProc">var</span> dummy/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L398'>render-trace-line</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, cursor-line, xmin, y, xmax, ymax, <span class="Constant">0x38</span>/fg=trace, <span class="Constant">7</span>/cursor-line-bg -<span id="L510" class="LineNr"> 510 </span> <span class="PreProc">return</span> -<span id="L511" class="LineNr"> 511 </span> <span class="Delimiter">}</span> -<span id="L512" class="LineNr"> 512 </span> <span class="PreProc">var</span> dummy1/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L513" class="LineNr"> 513 </span> <span class="PreProc">var</span> dummy2/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L514" class="LineNr"> 514 </span> dummy1, dummy2 <span class="Special"><-</span> <a href='../501draw-text.mu.html#L167'>draw-text-wrapping-right-then-down</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">"..."</span>, xmin, ymin, xmax, ymax, xmin, y, <span class="Constant">9</span>/fg=trace, <span class="Constant">7</span>/cursor-line-bg -<span id="L515" class="LineNr"> 515 </span><span class="Delimiter">}</span> -<span id="L516" class="LineNr"> 516 </span> -<span id="L517" class="LineNr"> 517 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L517'>test-render-trace-empty</a></span> <span class="Delimiter">{</span> -<span id="L518" class="LineNr"> 518 </span> <span class="PreProc">var</span> t-storage: trace -<span id="L519" class="LineNr"> 519 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage -<span id="L520" class="LineNr"> 520 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> -<span id="L521" class="LineNr"> 521 </span> <span class="muComment"># setup: screen</span> -<span id="L522" class="LineNr"> 522 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L523" class="LineNr"> 523 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack -<span id="L524" class="LineNr"> 524 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">5</span>/width, <span class="Constant">4</span>/height, <span class="Constant">0</span>/no-pixel-graphics -<span id="L525" class="LineNr"> 525 </span> <span class="muComment">#</span> -<span id="L526" class="LineNr"> 526 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">5</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">0</span>/no-cursor -<span id="L527" class="LineNr"> 527 </span> <span class="muComment">#</span> -<span id="L528" class="LineNr"> 528 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> y, <span class="Constant">0</span>, <span class="Constant">"F - <a href='trace.mu.html#L517'>test-render-trace-empty</a>/cursor"</span> -<span id="L529" class="LineNr"> 529 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - test-render-trace-empty"</span> -<span id="L530" class="LineNr"> 530 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L517'>test-render-trace-empty</a>/bg"</span> -<span id="L531" class="LineNr"> 531 </span><span class="Delimiter">}</span> -<span id="L532" class="LineNr"> 532 </span> -<span id="L533" class="LineNr"> 533 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L533'>test-render-trace-empty-2</a></span> <span class="Delimiter">{</span> -<span id="L534" class="LineNr"> 534 </span> <span class="PreProc">var</span> t-storage: trace -<span id="L535" class="LineNr"> 535 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage -<span id="L536" class="LineNr"> 536 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> -<span id="L537" class="LineNr"> 537 </span> <span class="muComment"># setup: screen</span> -<span id="L538" class="LineNr"> 538 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L539" class="LineNr"> 539 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack -<span id="L540" class="LineNr"> 540 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">5</span>/width, <span class="Constant">4</span>/height, <span class="Constant">0</span>/no-pixel-graphics -<span id="L541" class="LineNr"> 541 </span> <span class="muComment">#</span> -<span id="L542" class="LineNr"> 542 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">2</span>/ymin, <span class="Constant">5</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">0</span>/no-cursor <span class="muComment"># cursor below top row</span> -<span id="L543" class="LineNr"> 543 </span> <span class="muComment">#</span> -<span id="L544" class="LineNr"> 544 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> y, <span class="Constant">2</span>, <span class="Constant">"F - <a href='trace.mu.html#L533'>test-render-trace-empty-2</a>/cursor"</span> -<span id="L545" class="LineNr"> 545 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - test-render-trace-empty-2"</span> -<span id="L546" class="LineNr"> 546 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L533'>test-render-trace-empty-2</a>/bg"</span> -<span id="L547" class="LineNr"> 547 </span><span class="Delimiter">}</span> -<span id="L548" class="LineNr"> 548 </span> -<span id="L549" class="LineNr"> 549 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L549'>test-render-trace-empty-3</a></span> <span class="Delimiter">{</span> -<span id="L550" class="LineNr"> 550 </span> <span class="PreProc">var</span> t-storage: trace -<span id="L551" class="LineNr"> 551 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage -<span id="L552" class="LineNr"> 552 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> -<span id="L553" class="LineNr"> 553 </span> <span class="muComment"># setup: screen</span> -<span id="L554" class="LineNr"> 554 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L555" class="LineNr"> 555 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack -<span id="L556" class="LineNr"> 556 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">5</span>/width, <span class="Constant">4</span>/height, <span class="Constant">0</span>/no-pixel-graphics -<span id="L557" class="LineNr"> 557 </span> <span class="muComment">#</span> -<span id="L558" class="LineNr"> 558 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">2</span>/ymin, <span class="Constant">5</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor <span class="muComment"># try show cursor</span> -<span id="L559" class="LineNr"> 559 </span> <span class="muComment"># still no cursor to show</span> -<span id="L560" class="LineNr"> 560 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> y, <span class="Constant">2</span>, <span class="Constant">"F - <a href='trace.mu.html#L549'>test-render-trace-empty-3</a>/cursor"</span> -<span id="L561" class="LineNr"> 561 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L549'>test-render-trace-empty-3</a>/line-above-cursor"</span> -<span id="L562" class="LineNr"> 562 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L549'>test-render-trace-empty-3</a>/bg-for-line-above-cursor"</span> -<span id="L563" class="LineNr"> 563 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - test-render-trace-empty-3"</span> -<span id="L564" class="LineNr"> 564 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L549'>test-render-trace-empty-3</a>/bg"</span> -<span id="L565" class="LineNr"> 565 </span><span class="Delimiter">}</span> -<span id="L566" class="LineNr"> 566 </span> -<span id="L567" class="LineNr"> 567 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L567'>test-render-trace-collapsed-by-default</a></span> <span class="Delimiter">{</span> -<span id="L568" class="LineNr"> 568 </span> <span class="PreProc">var</span> t-storage: trace -<span id="L569" class="LineNr"> 569 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage -<span id="L570" class="LineNr"> 570 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> -<span id="L571" class="LineNr"> 571 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"data"</span> -<span id="L572" class="LineNr"> 572 </span> <span class="muComment"># setup: screen</span> -<span id="L573" class="LineNr"> 573 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L574" class="LineNr"> 574 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack -<span id="L575" class="LineNr"> 575 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">5</span>/width, <span class="Constant">4</span>/height, <span class="Constant">0</span>/no-pixel-graphics -<span id="L576" class="LineNr"> 576 </span> <span class="muComment">#</span> -<span id="L577" class="LineNr"> 577 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">5</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">0</span>/no-cursor -<span id="L578" class="LineNr"> 578 </span> <span class="muComment">#</span> -<span id="L579" class="LineNr"> 579 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> y, <span class="Constant">1</span>, <span class="Constant">"F - <a href='trace.mu.html#L567'>test-render-trace-collapsed-by-default</a>/cursor"</span> -<span id="L580" class="LineNr"> 580 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - test-render-trace-collapsed-by-default"</span> -<span id="L581" class="LineNr"> 581 </span><span class="Delimiter">}</span> -<span id="L582" class="LineNr"> 582 </span> -<span id="L583" class="LineNr"> 583 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L583'>test-render-trace-error</a></span> <span class="Delimiter">{</span> -<span id="L584" class="LineNr"> 584 </span> <span class="PreProc">var</span> t-storage: trace -<span id="L585" class="LineNr"> 585 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage -<span id="L586" class="LineNr"> 586 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> -<span id="L587" class="LineNr"> 587 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> t, <span class="Constant">"error"</span> -<span id="L588" class="LineNr"> 588 </span> <span class="muComment"># setup: screen</span> -<span id="L589" class="LineNr"> 589 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L590" class="LineNr"> 590 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack -<span id="L591" class="LineNr"> 591 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0xa</span>/width, <span class="Constant">4</span>/height, <span class="Constant">0</span>/no-pixel-graphics -<span id="L592" class="LineNr"> 592 </span> <span class="muComment">#</span> -<span id="L593" class="LineNr"> 593 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0xa</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">0</span>/no-cursor -<span id="L594" class="LineNr"> 594 </span> <span class="muComment">#</span> -<span id="L595" class="LineNr"> 595 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> y, <span class="Constant">1</span>, <span class="Constant">"F - <a href='trace.mu.html#L583'>test-render-trace-error</a>/cursor"</span> -<span id="L596" class="LineNr"> 596 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"error"</span>, <span class="Constant">"F - test-render-trace-error"</span> -<span id="L597" class="LineNr"> 597 </span><span class="Delimiter">}</span> -<span id="L598" class="LineNr"> 598 </span> -<span id="L599" class="LineNr"> 599 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L599'>test-render-trace-error-at-start</a></span> <span class="Delimiter">{</span> -<span id="L600" class="LineNr"> 600 </span> <span class="PreProc">var</span> t-storage: trace -<span id="L601" class="LineNr"> 601 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage -<span id="L602" class="LineNr"> 602 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> -<span id="L603" class="LineNr"> 603 </span> <span class="muComment">#</span> -<span id="L604" class="LineNr"> 604 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> t, <span class="Constant">"error"</span> -<span id="L605" class="LineNr"> 605 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"data"</span> -<span id="L606" class="LineNr"> 606 </span> <span class="muComment"># setup: screen</span> -<span id="L607" class="LineNr"> 607 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L608" class="LineNr"> 608 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack -<span id="L609" class="LineNr"> 609 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0xa</span>/width, <span class="Constant">4</span>/height, <span class="Constant">0</span>/no-pixel-graphics -<span id="L610" class="LineNr"> 610 </span> <span class="muComment">#</span> -<span id="L611" class="LineNr"> 611 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0xa</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">0</span>/no-cursor -<span id="L612" class="LineNr"> 612 </span> <span class="muComment">#</span> -<span id="L613" class="LineNr"> 613 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> y, <span class="Constant">2</span>, <span class="Constant">"F - <a href='trace.mu.html#L599'>test-render-trace-error-at-start</a>/cursor"</span> -<span id="L614" class="LineNr"> 614 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"error"</span>, <span class="Constant">"F - <a href='trace.mu.html#L599'>test-render-trace-error-at-start</a>/0"</span> -<span id="L615" class="LineNr"> 615 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L599'>test-render-trace-error-at-start</a>/1"</span> -<span id="L616" class="LineNr"> 616 </span><span class="Delimiter">}</span> -<span id="L617" class="LineNr"> 617 </span> -<span id="L618" class="LineNr"> 618 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L618'>test-render-trace-error-at-end</a></span> <span class="Delimiter">{</span> -<span id="L619" class="LineNr"> 619 </span> <span class="PreProc">var</span> t-storage: trace -<span id="L620" class="LineNr"> 620 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage -<span id="L621" class="LineNr"> 621 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> -<span id="L622" class="LineNr"> 622 </span> <span class="muComment">#</span> -<span id="L623" class="LineNr"> 623 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"data"</span> -<span id="L624" class="LineNr"> 624 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> t, <span class="Constant">"error"</span> -<span id="L625" class="LineNr"> 625 </span> <span class="muComment"># setup: screen</span> -<span id="L626" class="LineNr"> 626 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L627" class="LineNr"> 627 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack -<span id="L628" class="LineNr"> 628 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0xa</span>/width, <span class="Constant">4</span>/height, <span class="Constant">0</span>/no-pixel-graphics -<span id="L629" class="LineNr"> 629 </span> <span class="muComment">#</span> -<span id="L630" class="LineNr"> 630 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0xa</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">0</span>/no-cursor -<span id="L631" class="LineNr"> 631 </span> <span class="muComment">#</span> -<span id="L632" class="LineNr"> 632 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> y, <span class="Constant">2</span>, <span class="Constant">"F - <a href='trace.mu.html#L618'>test-render-trace-error-at-end</a>/cursor"</span> -<span id="L633" class="LineNr"> 633 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L618'>test-render-trace-error-at-end</a>/0"</span> -<span id="L634" class="LineNr"> 634 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"error"</span>, <span class="Constant">"F - <a href='trace.mu.html#L618'>test-render-trace-error-at-end</a>/1"</span> -<span id="L635" class="LineNr"> 635 </span><span class="Delimiter">}</span> -<span id="L636" class="LineNr"> 636 </span> -<span id="L637" class="LineNr"> 637 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L637'>test-render-trace-error-in-the-middle</a></span> <span class="Delimiter">{</span> -<span id="L638" class="LineNr"> 638 </span> <span class="PreProc">var</span> t-storage: trace -<span id="L639" class="LineNr"> 639 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage -<span id="L640" class="LineNr"> 640 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L303" class="LineNr"> 303 </span> y <span class="Special"><-</span> <a href='trace.mu.html#L429'>render-trace-line</a> <span class="Constant">0</span>/screen, curr, <span class="Constant">0</span>, y, <span class="Constant">0x80</span>/width, <span class="Constant">0x30</span>/height, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg +<span id="L304" class="LineNr"> 304 </span> <span class="Delimiter">}</span> +<span id="L305" class="LineNr"> 305 </span> i <span class="Special"><-</span> increment +<span id="L306" class="LineNr"> 306 </span> <span class="PreProc">loop</span> +<span id="L307" class="LineNr"> 307 </span> <span class="Delimiter">}</span> +<span id="L308" class="LineNr"> 308 </span><span class="Delimiter">}</span> +<span id="L309" class="LineNr"> 309 </span> +<span id="L310" class="LineNr"> 310 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L310'>dump-trace-with-label</a></span> _self: (addr trace), label: (addr array byte) <span class="Delimiter">{</span> +<span id="L311" class="LineNr"> 311 </span> <span class="PreProc">var</span> already-hiding-lines?: boolean +<span id="L312" class="LineNr"> 312 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L313" class="LineNr"> 313 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> copy _self +<span id="L314" class="LineNr"> 314 </span> compare self, <span class="Constant">0</span> +<span id="L315" class="LineNr"> 315 </span> <span class="Delimiter">{</span> +<span id="L316" class="LineNr"> 316 </span> <span class="PreProc">break-if-!=</span> +<span id="L317" class="LineNr"> 317 </span> <span class="PreProc">return</span> +<span id="L318" class="LineNr"> 318 </span> <span class="Delimiter">}</span> +<span id="L319" class="LineNr"> 319 </span> <span class="PreProc">var</span> trace-ah/<span class="Constant">eax</span>: (addr handle array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> get self, data +<span id="L320" class="LineNr"> 320 </span> <span class="PreProc">var</span> _trace/<span class="Constant">eax</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *trace-ah +<span id="L321" class="LineNr"> 321 </span> <span class="PreProc">var</span> trace/<span class="Constant">edi</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> copy _trace +<span id="L322" class="LineNr"> 322 </span> <span class="PreProc">var</span> i/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L323" class="LineNr"> 323 </span> <span class="PreProc">var</span> max-addr/<span class="Constant">ebx</span>: (addr int) <span class="Special"><-</span> get self, first-free +<span id="L324" class="LineNr"> 324 </span> <span class="PreProc">var</span> max/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy *max-addr +<span id="L325" class="LineNr"> 325 </span> $dump-trace:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> +<span id="L326" class="LineNr"> 326 </span> compare i, max +<span id="L327" class="LineNr"> 327 </span> <span class="PreProc">break-if->=</span> +<span id="L328" class="LineNr"> 328 </span> $dump-trace:iter: <span class="Delimiter">{</span> +<span id="L329" class="LineNr"> 329 </span> <span class="PreProc">var</span> offset/<span class="Constant">ebx</span>: (offset <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> compute-offset trace, i +<span id="L330" class="LineNr"> 330 </span> <span class="PreProc">var</span> curr/<span class="Constant">ebx</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> index trace, offset +<span id="L331" class="LineNr"> 331 </span> <span class="PreProc">var</span> curr-label-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> get curr, label +<span id="L332" class="LineNr"> 332 </span> <span class="PreProc">var</span> curr-label/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *curr-label-ah +<span id="L333" class="LineNr"> 333 </span> <span class="PreProc">var</span> show?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> curr-label, label +<span id="L334" class="LineNr"> 334 </span> compare show?, <span class="Constant">0</span>/false +<span id="L335" class="LineNr"> 335 </span> <span class="PreProc">break-if-=</span> +<span id="L336" class="LineNr"> 336 </span> y <span class="Special"><-</span> <a href='trace.mu.html#L429'>render-trace-line</a> <span class="Constant">0</span>/screen, curr, <span class="Constant">0</span>, y, <span class="Constant">0x80</span>/width, <span class="Constant">0x30</span>/height, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg +<span id="L337" class="LineNr"> 337 </span> <span class="Delimiter">}</span> +<span id="L338" class="LineNr"> 338 </span> i <span class="Special"><-</span> increment +<span id="L339" class="LineNr"> 339 </span> <span class="PreProc">loop</span> +<span id="L340" class="LineNr"> 340 </span> <span class="Delimiter">}</span> +<span id="L341" class="LineNr"> 341 </span><span class="Delimiter">}</span> +<span id="L342" class="LineNr"> 342 </span> +<span id="L343" class="LineNr"> 343 </span><span class="muComment">## UI stuff</span> +<span id="L344" class="LineNr"> 344 </span> +<span id="L345" class="LineNr"> 345 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L345'>mark-lines-dirty</a></span> _self: (addr trace) <span class="Delimiter">{</span> +<span id="L346" class="LineNr"> 346 </span> <span class="PreProc">var</span> self/<span class="Constant">eax</span>: (addr trace) <span class="Special"><-</span> copy _self +<span id="L347" class="LineNr"> 347 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr boolean) <span class="Special"><-</span> get self, recompute-visible? +<span id="L348" class="LineNr"> 348 </span> copy-to *dest, <span class="Constant">1</span>/true +<span id="L349" class="LineNr"> 349 </span><span class="Delimiter">}</span> +<span id="L350" class="LineNr"> 350 </span> +<span id="L351" class="LineNr"> 351 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L351'>mark-lines-clean</a></span> _self: (addr trace) <span class="Delimiter">{</span> +<span id="L352" class="LineNr"> 352 </span> <span class="PreProc">var</span> self/<span class="Constant">eax</span>: (addr trace) <span class="Special"><-</span> copy _self +<span id="L353" class="LineNr"> 353 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr boolean) <span class="Special"><-</span> get self, recompute-visible? +<span id="L354" class="LineNr"> 354 </span> copy-to *dest, <span class="Constant">0</span>/false +<span id="L355" class="LineNr"> 355 </span><span class="Delimiter">}</span> +<span id="L356" class="LineNr"> 356 </span> +<span id="L357" class="LineNr"> 357 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L357'>render-trace</a></span> <a href='../500fake-screen.mu.html#L14'>screen</a>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>), _self: (addr trace), xmin: int, ymin: int, xmax: int, ymax: int, show-cursor?: boolean<span class="PreProc"> -> </span>_/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> +<span id="L358" class="LineNr"> 358 </span> <span class="PreProc">var</span> already-hiding-lines?: boolean +<span id="L359" class="LineNr"> 359 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy ymin +<span id="L360" class="LineNr"> 360 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> copy _self +<span id="L361" class="LineNr"> 361 </span> compare self, <span class="Constant">0</span> +<span id="L362" class="LineNr"> 362 </span> <span class="Delimiter">{</span> +<span id="L363" class="LineNr"> 363 </span> <span class="PreProc">break-if-!=</span> +<span id="L364" class="LineNr"> 364 </span> <span class="PreProc">return</span> ymin +<span id="L365" class="LineNr"> 365 </span> <span class="Delimiter">}</span> +<span id="L366" class="LineNr"> 366 </span> <a href='trace.mu.html#L499'>clamp-cursor-to-top</a> self, y +<span id="L367" class="LineNr"> 367 </span> <span class="PreProc">var</span> trace-ah/<span class="Constant">eax</span>: (addr handle array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> get self, data +<span id="L368" class="LineNr"> 368 </span> <span class="PreProc">var</span> _trace/<span class="Constant">eax</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *trace-ah +<span id="L369" class="LineNr"> 369 </span> <span class="PreProc">var</span> trace/<span class="Constant">edi</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> copy _trace +<span id="L370" class="LineNr"> 370 </span> <span class="PreProc">var</span> i/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L371" class="LineNr"> 371 </span> <span class="PreProc">var</span> max-addr/<span class="Constant">ebx</span>: (addr int) <span class="Special"><-</span> get self, first-free +<span id="L372" class="LineNr"> 372 </span> <span class="PreProc">var</span> max/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy *max-addr +<span id="L373" class="LineNr"> 373 </span> $render-trace:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> +<span id="L374" class="LineNr"> 374 </span> compare i, max +<span id="L375" class="LineNr"> 375 </span> <span class="PreProc">break-if->=</span> +<span id="L376" class="LineNr"> 376 </span> $render-trace:iter: <span class="Delimiter">{</span> +<span id="L377" class="LineNr"> 377 </span> <span class="PreProc">var</span> offset/<span class="Constant">ebx</span>: (offset <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> compute-offset trace, i +<span id="L378" class="LineNr"> 378 </span> <span class="PreProc">var</span> curr/<span class="Constant">ebx</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> index trace, offset +<span id="L379" class="LineNr"> 379 </span> <span class="PreProc">var</span> curr-label-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> get curr, label +<span id="L380" class="LineNr"> 380 </span> <span class="PreProc">var</span> curr-label/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *curr-label-ah +<span id="L381" class="LineNr"> 381 </span> <span class="PreProc">var</span> bg/<span class="Constant">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">0xc5</span>/bg=blue-bg +<span id="L382" class="LineNr"> 382 </span> compare show-cursor?, <span class="Constant">0</span>/false +<span id="L383" class="LineNr"> 383 </span> <span class="Delimiter">{</span> +<span id="L384" class="LineNr"> 384 </span> <span class="PreProc">break-if-=</span> +<span id="L385" class="LineNr"> 385 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, cursor-y +<span id="L386" class="LineNr"> 386 </span> compare *cursor-y, y +<span id="L387" class="LineNr"> 387 </span> <span class="PreProc">break-if-!=</span> +<span id="L388" class="LineNr"> 388 </span> bg <span class="Special"><-</span> copy <span class="Constant">7</span>/cursor-line-bg +<span id="L389" class="LineNr"> 389 </span> <span class="PreProc">var</span> cursor-line-index/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, cursor-line-index +<span id="L390" class="LineNr"> 390 </span> copy-to *cursor-line-index, i +<span id="L391" class="LineNr"> 391 </span> <span class="Delimiter">}</span> +<span id="L392" class="LineNr"> 392 </span> <span class="muComment"># always display errors</span> +<span id="L393" class="LineNr"> 393 </span> <span class="PreProc">var</span> error?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> curr-label, <span class="Constant">"error"</span> +<span id="L394" class="LineNr"> 394 </span> <span class="Delimiter">{</span> +<span id="L395" class="LineNr"> 395 </span> compare error?, <span class="Constant">0</span>/false +<span id="L396" class="LineNr"> 396 </span> <span class="PreProc">break-if-=</span> +<span id="L397" class="LineNr"> 397 </span> y <span class="Special"><-</span> <a href='trace.mu.html#L429'>render-trace-line</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, curr, xmin, y, xmax, ymax, <span class="Constant">0xc</span>/fg=trace-error, bg +<span id="L398" class="LineNr"> 398 </span> copy-to already-hiding-lines?, <span class="Constant">0</span>/false +<span id="L399" class="LineNr"> 399 </span> <span class="PreProc">break</span> $render-trace:iter +<span id="L400" class="LineNr"> 400 </span> <span class="Delimiter">}</span> +<span id="L401" class="LineNr"> 401 </span> <span class="muComment"># display expanded lines</span> +<span id="L402" class="LineNr"> 402 </span> <span class="PreProc">var</span> display?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='trace.mu.html#L460'>should-render?</a> self, curr +<span id="L403" class="LineNr"> 403 </span> <span class="Delimiter">{</span> +<span id="L404" class="LineNr"> 404 </span> compare display?, <span class="Constant">0</span>/false +<span id="L405" class="LineNr"> 405 </span> <span class="PreProc">break-if-=</span> +<span id="L406" class="LineNr"> 406 </span> y <span class="Special"><-</span> <a href='trace.mu.html#L429'>render-trace-line</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, curr, xmin, y, xmax, ymax, <span class="Constant">0x38</span>/fg=trace, bg +<span id="L407" class="LineNr"> 407 </span> copy-to already-hiding-lines?, <span class="Constant">0</span>/false +<span id="L408" class="LineNr"> 408 </span> <span class="PreProc">break</span> $render-trace:iter +<span id="L409" class="LineNr"> 409 </span> <span class="Delimiter">}</span> +<span id="L410" class="LineNr"> 410 </span> <span class="muComment"># ignore the rest</span> +<span id="L411" class="LineNr"> 411 </span> compare already-hiding-lines?, <span class="Constant">0</span>/false +<span id="L412" class="LineNr"> 412 </span> <span class="Delimiter">{</span> +<span id="L413" class="LineNr"> 413 </span> <span class="PreProc">break-if-!=</span> +<span id="L414" class="LineNr"> 414 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy xmin +<span id="L415" class="LineNr"> 415 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L167'>draw-text-wrapping-right-then-down</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">"..."</span>, xmin, ymin, xmax, ymax, x, y, <span class="Constant">9</span>/fg=trace, bg +<span id="L416" class="LineNr"> 416 </span> y <span class="Special"><-</span> increment +<span id="L417" class="LineNr"> 417 </span> copy-to already-hiding-lines?, <span class="Constant">1</span>/true +<span id="L418" class="LineNr"> 418 </span> <span class="Delimiter">}</span> +<span id="L419" class="LineNr"> 419 </span> <span class="Delimiter">}</span> +<span id="L420" class="LineNr"> 420 </span> i <span class="Special"><-</span> increment +<span id="L421" class="LineNr"> 421 </span> <span class="PreProc">loop</span> +<span id="L422" class="LineNr"> 422 </span> <span class="Delimiter">}</span> +<span id="L423" class="LineNr"> 423 </span> <span class="muComment"># prevent cursor from going too far down</span> +<span id="L424" class="LineNr"> 424 </span> <a href='trace.mu.html#L509'>clamp-cursor-to-bottom</a> self, y, <a href='../500fake-screen.mu.html#L14'>screen</a>, xmin, ymin, xmax, ymax +<span id="L425" class="LineNr"> 425 </span> <a href='trace.mu.html#L351'>mark-lines-clean</a> self +<span id="L426" class="LineNr"> 426 </span> <span class="PreProc">return</span> y +<span id="L427" class="LineNr"> 427 </span><span class="Delimiter">}</span> +<span id="L428" class="LineNr"> 428 </span> +<span id="L429" class="LineNr"> 429 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L429'>render-trace-line</a></span> <a href='../500fake-screen.mu.html#L14'>screen</a>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>), _self: (addr <a href='trace.mu.html#L26'>trace-line</a>), xmin: int, ymin: int, xmax: int, ymax: int, fg: int, bg: int<span class="PreProc"> -> </span>_/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> +<span id="L430" class="LineNr"> 430 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> copy _self +<span id="L431" class="LineNr"> 431 </span> <span class="PreProc">var</span> xsave/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy xmin +<span id="L432" class="LineNr"> 432 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy ymin +<span id="L433" class="LineNr"> 433 </span> <span class="PreProc">var</span> label-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> get self, label +<span id="L434" class="LineNr"> 434 </span> <span class="PreProc">var</span> _label/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *label-ah +<span id="L435" class="LineNr"> 435 </span> <span class="PreProc">var</span> label/<span class="Constant">ebx</span>: (addr array byte) <span class="Special"><-</span> copy _label +<span id="L436" class="LineNr"> 436 </span> <span class="PreProc">var</span> error?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> label, <span class="Constant">"error"</span> +<span id="L437" class="LineNr"> 437 </span> compare error?, <span class="Constant">0</span>/false +<span id="L438" class="LineNr"> 438 </span> <span class="Delimiter">{</span> +<span id="L439" class="LineNr"> 439 </span> <span class="PreProc">break-if-!=</span> +<span id="L440" class="LineNr"> 440 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy xsave +<span id="L441" class="LineNr"> 441 </span> <span class="Delimiter">{</span> +<span id="L442" class="LineNr"> 442 </span> <span class="PreProc">var</span> depth/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get self, depth +<span id="L443" class="LineNr"> 443 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L319'>draw-int32-decimal-wrapping-right-then-down</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, *depth, xmin, ymin, xmax, ymax, x, y, fg, bg +<span id="L444" class="LineNr"> 444 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L167'>draw-text-wrapping-right-then-down</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" "</span>, xmin, ymin, xmax, ymax, x, y, fg, bg +<span id="L445" class="LineNr"> 445 </span> <span class="muComment"># don't show label in UI; it's just for tests</span> +<span id="L446" class="LineNr"> 446 </span> <span class="Delimiter">}</span> +<span id="L447" class="LineNr"> 447 </span> xsave <span class="Special"><-</span> copy x +<span id="L448" class="LineNr"> 448 </span> <span class="Delimiter">}</span> +<span id="L449" class="LineNr"> 449 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> get self, data +<span id="L450" class="LineNr"> 450 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *data-ah +<span id="L451" class="LineNr"> 451 </span> <span class="PreProc">var</span> data/<span class="Constant">ebx</span>: (addr array byte) <span class="Special"><-</span> copy _data +<span id="L452" class="LineNr"> 452 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy xsave +<span id="L453" class="LineNr"> 453 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L167'>draw-text-wrapping-right-then-down</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, data, xmin, ymin, xmax, ymax, x, y, fg, bg +<span id="L454" class="LineNr"> 454 </span> y <span class="Special"><-</span> increment +<span id="L455" class="LineNr"> 455 </span> <span class="PreProc">return</span> y +<span id="L456" class="LineNr"> 456 </span><span class="Delimiter">}</span> +<span id="L457" class="LineNr"> 457 </span> +<span id="L458" class="LineNr"> 458 </span><span class="muComment"># this is super-inefficient, string comparing every trace line</span> +<span id="L459" class="LineNr"> 459 </span><span class="muComment"># against every visible line on every render</span> +<span id="L460" class="LineNr"> 460 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L460'>should-render?</a></span> _self: (addr trace), _line: (addr <a href='trace.mu.html#L26'>trace-line</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L461" class="LineNr"> 461 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> copy _self +<span id="L462" class="LineNr"> 462 </span> <span class="muComment"># if visible? is already cached, just return it</span> +<span id="L463" class="LineNr"> 463 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr boolean) <span class="Special"><-</span> get self, recompute-visible? +<span id="L464" class="LineNr"> 464 </span> compare *dest, <span class="Constant">0</span>/false +<span id="L465" class="LineNr"> 465 </span> <span class="Delimiter">{</span> +<span id="L466" class="LineNr"> 466 </span> <span class="PreProc">break-if-!=</span> +<span id="L467" class="LineNr"> 467 </span> <span class="PreProc">var</span> line/<span class="Constant">eax</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> copy _line +<span id="L468" class="LineNr"> 468 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> get line, visible? +<span id="L469" class="LineNr"> 469 </span> <span class="PreProc">return</span> *result +<span id="L470" class="LineNr"> 470 </span> <span class="Delimiter">}</span> +<span id="L471" class="LineNr"> 471 </span> <span class="muComment"># recompute</span> +<span id="L472" class="LineNr"> 472 </span> <span class="PreProc">var</span> candidates-ah/<span class="Constant">eax</span>: (addr handle array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> get self, visible +<span id="L473" class="LineNr"> 473 </span> <span class="PreProc">var</span> candidates/<span class="Constant">eax</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *candidates-ah +<span id="L474" class="LineNr"> 474 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L475" class="LineNr"> 475 </span> <span class="PreProc">var</span> len/<span class="Constant">edx</span>: int <span class="Special"><-</span> length candidates +<span id="L476" class="LineNr"> 476 </span> <span class="Delimiter">{</span> +<span id="L477" class="LineNr"> 477 </span> compare i, len +<span id="L478" class="LineNr"> 478 </span> <span class="PreProc">break-if->=</span> +<span id="L479" class="LineNr"> 479 </span> <span class="Delimiter">{</span> +<span id="L480" class="LineNr"> 480 </span> <span class="PreProc">var</span> curr-offset/<span class="Constant">ecx</span>: (offset <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> compute-offset candidates, i +<span id="L481" class="LineNr"> 481 </span> <span class="PreProc">var</span> curr/<span class="Constant">ecx</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> index candidates, curr-offset +<span id="L482" class="LineNr"> 482 </span> <span class="PreProc">var</span> match?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='trace.mu.html#L251'>trace-lines-equal?</a> curr, _line +<span id="L483" class="LineNr"> 483 </span> compare match?, <span class="Constant">0</span>/false +<span id="L484" class="LineNr"> 484 </span> <span class="PreProc">break-if-=</span> +<span id="L485" class="LineNr"> 485 </span> <span class="PreProc">var</span> line/<span class="Constant">eax</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> copy _line +<span id="L486" class="LineNr"> 486 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> get line, visible? +<span id="L487" class="LineNr"> 487 </span> copy-to *dest, <span class="Constant">1</span>/true +<span id="L488" class="LineNr"> 488 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L489" class="LineNr"> 489 </span> <span class="Delimiter">}</span> +<span id="L490" class="LineNr"> 490 </span> i <span class="Special"><-</span> increment +<span id="L491" class="LineNr"> 491 </span> <span class="PreProc">loop</span> +<span id="L492" class="LineNr"> 492 </span> <span class="Delimiter">}</span> +<span id="L493" class="LineNr"> 493 </span> <span class="PreProc">var</span> line/<span class="Constant">eax</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> copy _line +<span id="L494" class="LineNr"> 494 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> get line, visible? +<span id="L495" class="LineNr"> 495 </span> copy-to *dest, <span class="Constant">0</span>/false +<span id="L496" class="LineNr"> 496 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L497" class="LineNr"> 497 </span><span class="Delimiter">}</span> +<span id="L498" class="LineNr"> 498 </span> +<span id="L499" class="LineNr"> 499 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L499'>clamp-cursor-to-top</a></span> _self: (addr trace), _y: int <span class="Delimiter">{</span> +<span id="L500" class="LineNr"> 500 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy _y +<span id="L501" class="LineNr"> 501 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> copy _self +<span id="L502" class="LineNr"> 502 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, cursor-y +<span id="L503" class="LineNr"> 503 </span> compare *cursor-y, y +<span id="L504" class="LineNr"> 504 </span> <span class="PreProc">break-if->=</span> +<span id="L505" class="LineNr"> 505 </span> copy-to *cursor-y, y +<span id="L506" class="LineNr"> 506 </span><span class="Delimiter">}</span> +<span id="L507" class="LineNr"> 507 </span> +<span id="L508" class="LineNr"> 508 </span><span class="muComment"># extremely hacky; consider deleting test-render-trace-empty-3 when you clean this up</span> +<span id="L509" class="LineNr"> 509 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L509'>clamp-cursor-to-bottom</a></span> _self: (addr trace), _y: int, <a href='../500fake-screen.mu.html#L14'>screen</a>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>), xmin: int, ymin: int, xmax: int, ymax: int <span class="Delimiter">{</span> +<span id="L510" class="LineNr"> 510 </span> <span class="PreProc">var</span> y/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy _y +<span id="L511" class="LineNr"> 511 </span> compare y, ymin +<span id="L512" class="LineNr"> 512 </span> <span class="Delimiter">{</span> +<span id="L513" class="LineNr"> 513 </span> <span class="PreProc">break-if-></span> +<span id="L514" class="LineNr"> 514 </span> <span class="PreProc">return</span> +<span id="L515" class="LineNr"> 515 </span> <span class="Delimiter">}</span> +<span id="L516" class="LineNr"> 516 </span> y <span class="Special"><-</span> decrement +<span id="L517" class="LineNr"> 517 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> copy _self +<span id="L518" class="LineNr"> 518 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, cursor-y +<span id="L519" class="LineNr"> 519 </span> compare *cursor-y, y +<span id="L520" class="LineNr"> 520 </span> <span class="PreProc">break-if-<=</span> +<span id="L521" class="LineNr"> 521 </span> copy-to *cursor-y, y +<span id="L522" class="LineNr"> 522 </span> <span class="muComment"># redraw cursor-line</span> +<span id="L523" class="LineNr"> 523 </span> <span class="muComment"># TODO: ugly duplication</span> +<span id="L524" class="LineNr"> 524 </span> <span class="PreProc">var</span> trace-ah/<span class="Constant">eax</span>: (addr handle array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> get self, data +<span id="L525" class="LineNr"> 525 </span> <span class="PreProc">var</span> trace/<span class="Constant">eax</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *trace-ah +<span id="L526" class="LineNr"> 526 </span> <span class="PreProc">var</span> cursor-line-index-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get self, cursor-line-index +<span id="L527" class="LineNr"> 527 </span> <span class="PreProc">var</span> cursor-line-index/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *cursor-line-index-addr +<span id="L528" class="LineNr"> 528 </span> <span class="PreProc">var</span> first-free/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get self, first-free +<span id="L529" class="LineNr"> 529 </span> compare cursor-line-index, *first-free +<span id="L530" class="LineNr"> 530 </span> <span class="Delimiter">{</span> +<span id="L531" class="LineNr"> 531 </span> <span class="PreProc">break-if-<</span> +<span id="L532" class="LineNr"> 532 </span> <span class="PreProc">return</span> +<span id="L533" class="LineNr"> 533 </span> <span class="Delimiter">}</span> +<span id="L534" class="LineNr"> 534 </span> <span class="PreProc">var</span> cursor-offset/<span class="Constant">ecx</span>: (offset <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> compute-offset trace, cursor-line-index +<span id="L535" class="LineNr"> 535 </span> <span class="PreProc">var</span> cursor-line/<span class="Constant">ecx</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> index trace, cursor-offset +<span id="L536" class="LineNr"> 536 </span> <span class="PreProc">var</span> display?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='trace.mu.html#L460'>should-render?</a> self, cursor-line +<span id="L537" class="LineNr"> 537 </span> <span class="Delimiter">{</span> +<span id="L538" class="LineNr"> 538 </span> compare display?, <span class="Constant">0</span>/false +<span id="L539" class="LineNr"> 539 </span> <span class="PreProc">break-if-=</span> +<span id="L540" class="LineNr"> 540 </span> <span class="PreProc">var</span> dummy/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L429'>render-trace-line</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, cursor-line, xmin, y, xmax, ymax, <span class="Constant">0x38</span>/fg=trace, <span class="Constant">7</span>/cursor-line-bg +<span id="L541" class="LineNr"> 541 </span> <span class="PreProc">return</span> +<span id="L542" class="LineNr"> 542 </span> <span class="Delimiter">}</span> +<span id="L543" class="LineNr"> 543 </span> <span class="PreProc">var</span> dummy1/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L544" class="LineNr"> 544 </span> <span class="PreProc">var</span> dummy2/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L545" class="LineNr"> 545 </span> dummy1, dummy2 <span class="Special"><-</span> <a href='../501draw-text.mu.html#L167'>draw-text-wrapping-right-then-down</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">"..."</span>, xmin, ymin, xmax, ymax, xmin, y, <span class="Constant">9</span>/fg=trace, <span class="Constant">7</span>/cursor-line-bg +<span id="L546" class="LineNr"> 546 </span><span class="Delimiter">}</span> +<span id="L547" class="LineNr"> 547 </span> +<span id="L548" class="LineNr"> 548 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L548'>test-render-trace-empty</a></span> <span class="Delimiter">{</span> +<span id="L549" class="LineNr"> 549 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L550" class="LineNr"> 550 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L551" class="LineNr"> 551 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L552" class="LineNr"> 552 </span> <span class="muComment"># setup: screen</span> +<span id="L553" class="LineNr"> 553 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L554" class="LineNr"> 554 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L555" class="LineNr"> 555 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">5</span>/width, <span class="Constant">4</span>/height, <span class="Constant">0</span>/no-pixel-graphics +<span id="L556" class="LineNr"> 556 </span> <span class="muComment">#</span> +<span id="L557" class="LineNr"> 557 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">5</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">0</span>/no-cursor +<span id="L558" class="LineNr"> 558 </span> <span class="muComment">#</span> +<span id="L559" class="LineNr"> 559 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> y, <span class="Constant">0</span>, <span class="Constant">"F - <a href='trace.mu.html#L548'>test-render-trace-empty</a>/cursor"</span> +<span id="L560" class="LineNr"> 560 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - test-render-trace-empty"</span> +<span id="L561" class="LineNr"> 561 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L548'>test-render-trace-empty</a>/bg"</span> +<span id="L562" class="LineNr"> 562 </span><span class="Delimiter">}</span> +<span id="L563" class="LineNr"> 563 </span> +<span id="L564" class="LineNr"> 564 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L564'>test-render-trace-empty-2</a></span> <span class="Delimiter">{</span> +<span id="L565" class="LineNr"> 565 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L566" class="LineNr"> 566 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L567" class="LineNr"> 567 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L568" class="LineNr"> 568 </span> <span class="muComment"># setup: screen</span> +<span id="L569" class="LineNr"> 569 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L570" class="LineNr"> 570 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L571" class="LineNr"> 571 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">5</span>/width, <span class="Constant">4</span>/height, <span class="Constant">0</span>/no-pixel-graphics +<span id="L572" class="LineNr"> 572 </span> <span class="muComment">#</span> +<span id="L573" class="LineNr"> 573 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">2</span>/ymin, <span class="Constant">5</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">0</span>/no-cursor <span class="muComment"># cursor below top row</span> +<span id="L574" class="LineNr"> 574 </span> <span class="muComment">#</span> +<span id="L575" class="LineNr"> 575 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> y, <span class="Constant">2</span>, <span class="Constant">"F - <a href='trace.mu.html#L564'>test-render-trace-empty-2</a>/cursor"</span> +<span id="L576" class="LineNr"> 576 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - test-render-trace-empty-2"</span> +<span id="L577" class="LineNr"> 577 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L564'>test-render-trace-empty-2</a>/bg"</span> +<span id="L578" class="LineNr"> 578 </span><span class="Delimiter">}</span> +<span id="L579" class="LineNr"> 579 </span> +<span id="L580" class="LineNr"> 580 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L580'>test-render-trace-empty-3</a></span> <span class="Delimiter">{</span> +<span id="L581" class="LineNr"> 581 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L582" class="LineNr"> 582 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L583" class="LineNr"> 583 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L584" class="LineNr"> 584 </span> <span class="muComment"># setup: screen</span> +<span id="L585" class="LineNr"> 585 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L586" class="LineNr"> 586 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L587" class="LineNr"> 587 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">5</span>/width, <span class="Constant">4</span>/height, <span class="Constant">0</span>/no-pixel-graphics +<span id="L588" class="LineNr"> 588 </span> <span class="muComment">#</span> +<span id="L589" class="LineNr"> 589 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">2</span>/ymin, <span class="Constant">5</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor <span class="muComment"># try show cursor</span> +<span id="L590" class="LineNr"> 590 </span> <span class="muComment"># still no cursor to show</span> +<span id="L591" class="LineNr"> 591 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> y, <span class="Constant">2</span>, <span class="Constant">"F - <a href='trace.mu.html#L580'>test-render-trace-empty-3</a>/cursor"</span> +<span id="L592" class="LineNr"> 592 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L580'>test-render-trace-empty-3</a>/line-above-cursor"</span> +<span id="L593" class="LineNr"> 593 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L580'>test-render-trace-empty-3</a>/bg-for-line-above-cursor"</span> +<span id="L594" class="LineNr"> 594 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - test-render-trace-empty-3"</span> +<span id="L595" class="LineNr"> 595 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L580'>test-render-trace-empty-3</a>/bg"</span> +<span id="L596" class="LineNr"> 596 </span><span class="Delimiter">}</span> +<span id="L597" class="LineNr"> 597 </span> +<span id="L598" class="LineNr"> 598 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L598'>test-render-trace-collapsed-by-default</a></span> <span class="Delimiter">{</span> +<span id="L599" class="LineNr"> 599 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L600" class="LineNr"> 600 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L601" class="LineNr"> 601 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L602" class="LineNr"> 602 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"data"</span> +<span id="L603" class="LineNr"> 603 </span> <span class="muComment"># setup: screen</span> +<span id="L604" class="LineNr"> 604 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L605" class="LineNr"> 605 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L606" class="LineNr"> 606 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">5</span>/width, <span class="Constant">4</span>/height, <span class="Constant">0</span>/no-pixel-graphics +<span id="L607" class="LineNr"> 607 </span> <span class="muComment">#</span> +<span id="L608" class="LineNr"> 608 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">5</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">0</span>/no-cursor +<span id="L609" class="LineNr"> 609 </span> <span class="muComment">#</span> +<span id="L610" class="LineNr"> 610 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> y, <span class="Constant">1</span>, <span class="Constant">"F - <a href='trace.mu.html#L598'>test-render-trace-collapsed-by-default</a>/cursor"</span> +<span id="L611" class="LineNr"> 611 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - test-render-trace-collapsed-by-default"</span> +<span id="L612" class="LineNr"> 612 </span><span class="Delimiter">}</span> +<span id="L613" class="LineNr"> 613 </span> +<span id="L614" class="LineNr"> 614 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L614'>test-render-trace-error</a></span> <span class="Delimiter">{</span> +<span id="L615" class="LineNr"> 615 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L616" class="LineNr"> 616 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L617" class="LineNr"> 617 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L618" class="LineNr"> 618 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> t, <span class="Constant">"error"</span> +<span id="L619" class="LineNr"> 619 </span> <span class="muComment"># setup: screen</span> +<span id="L620" class="LineNr"> 620 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L621" class="LineNr"> 621 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L622" class="LineNr"> 622 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0xa</span>/width, <span class="Constant">4</span>/height, <span class="Constant">0</span>/no-pixel-graphics +<span id="L623" class="LineNr"> 623 </span> <span class="muComment">#</span> +<span id="L624" class="LineNr"> 624 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0xa</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">0</span>/no-cursor +<span id="L625" class="LineNr"> 625 </span> <span class="muComment">#</span> +<span id="L626" class="LineNr"> 626 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> y, <span class="Constant">1</span>, <span class="Constant">"F - <a href='trace.mu.html#L614'>test-render-trace-error</a>/cursor"</span> +<span id="L627" class="LineNr"> 627 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"error"</span>, <span class="Constant">"F - test-render-trace-error"</span> +<span id="L628" class="LineNr"> 628 </span><span class="Delimiter">}</span> +<span id="L629" class="LineNr"> 629 </span> +<span id="L630" class="LineNr"> 630 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L630'>test-render-trace-error-at-start</a></span> <span class="Delimiter">{</span> +<span id="L631" class="LineNr"> 631 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L632" class="LineNr"> 632 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L633" class="LineNr"> 633 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L634" class="LineNr"> 634 </span> <span class="muComment">#</span> +<span id="L635" class="LineNr"> 635 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> t, <span class="Constant">"error"</span> +<span id="L636" class="LineNr"> 636 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"data"</span> +<span id="L637" class="LineNr"> 637 </span> <span class="muComment"># setup: screen</span> +<span id="L638" class="LineNr"> 638 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L639" class="LineNr"> 639 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L640" class="LineNr"> 640 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0xa</span>/width, <span class="Constant">4</span>/height, <span class="Constant">0</span>/no-pixel-graphics <span id="L641" class="LineNr"> 641 </span> <span class="muComment">#</span> -<span id="L642" class="LineNr"> 642 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> -<span id="L643" class="LineNr"> 643 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> t, <span class="Constant">"error"</span> -<span id="L644" class="LineNr"> 644 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 3"</span> -<span id="L645" class="LineNr"> 645 </span> <span class="muComment"># setup: screen</span> -<span id="L646" class="LineNr"> 646 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L647" class="LineNr"> 647 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack -<span id="L648" class="LineNr"> 648 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0xa</span>/width, <span class="Constant">4</span>/height, <span class="Constant">0</span>/no-pixel-graphics -<span id="L649" class="LineNr"> 649 </span> <span class="muComment">#</span> -<span id="L650" class="LineNr"> 650 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0xa</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">0</span>/no-cursor -<span id="L651" class="LineNr"> 651 </span> <span class="muComment">#</span> -<span id="L652" class="LineNr"> 652 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> y, <span class="Constant">3</span>, <span class="Constant">"F - <a href='trace.mu.html#L637'>test-render-trace-error-in-the-middle</a>/cursor"</span> -<span id="L653" class="LineNr"> 653 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L637'>test-render-trace-error-in-the-middle</a>/0"</span> -<span id="L654" class="LineNr"> 654 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"error"</span>, <span class="Constant">"F - <a href='trace.mu.html#L637'>test-render-trace-error-in-the-middle</a>/1"</span> -<span id="L655" class="LineNr"> 655 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L637'>test-render-trace-error-in-the-middle</a>/2"</span> -<span id="L656" class="LineNr"> 656 </span><span class="Delimiter">}</span> -<span id="L657" class="LineNr"> 657 </span> -<span id="L658" class="LineNr"> 658 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L658'>test-render-trace-cursor-in-single-line</a></span> <span class="Delimiter">{</span> -<span id="L659" class="LineNr"> 659 </span> <span class="PreProc">var</span> t-storage: trace -<span id="L660" class="LineNr"> 660 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage -<span id="L661" class="LineNr"> 661 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L642" class="LineNr"> 642 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0xa</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">0</span>/no-cursor +<span id="L643" class="LineNr"> 643 </span> <span class="muComment">#</span> +<span id="L644" class="LineNr"> 644 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> y, <span class="Constant">2</span>, <span class="Constant">"F - <a href='trace.mu.html#L630'>test-render-trace-error-at-start</a>/cursor"</span> +<span id="L645" class="LineNr"> 645 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"error"</span>, <span class="Constant">"F - <a href='trace.mu.html#L630'>test-render-trace-error-at-start</a>/0"</span> +<span id="L646" class="LineNr"> 646 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L630'>test-render-trace-error-at-start</a>/1"</span> +<span id="L647" class="LineNr"> 647 </span><span class="Delimiter">}</span> +<span id="L648" class="LineNr"> 648 </span> +<span id="L649" class="LineNr"> 649 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L649'>test-render-trace-error-at-end</a></span> <span class="Delimiter">{</span> +<span id="L650" class="LineNr"> 650 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L651" class="LineNr"> 651 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L652" class="LineNr"> 652 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L653" class="LineNr"> 653 </span> <span class="muComment">#</span> +<span id="L654" class="LineNr"> 654 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"data"</span> +<span id="L655" class="LineNr"> 655 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> t, <span class="Constant">"error"</span> +<span id="L656" class="LineNr"> 656 </span> <span class="muComment"># setup: screen</span> +<span id="L657" class="LineNr"> 657 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L658" class="LineNr"> 658 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L659" class="LineNr"> 659 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0xa</span>/width, <span class="Constant">4</span>/height, <span class="Constant">0</span>/no-pixel-graphics +<span id="L660" class="LineNr"> 660 </span> <span class="muComment">#</span> +<span id="L661" class="LineNr"> 661 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0xa</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">0</span>/no-cursor <span id="L662" class="LineNr"> 662 </span> <span class="muComment">#</span> -<span id="L663" class="LineNr"> 663 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> -<span id="L664" class="LineNr"> 664 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> t, <span class="Constant">"error"</span> -<span id="L665" class="LineNr"> 665 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 3"</span> -<span id="L666" class="LineNr"> 666 </span> <span class="muComment"># setup: screen</span> -<span id="L667" class="LineNr"> 667 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L668" class="LineNr"> 668 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack -<span id="L669" class="LineNr"> 669 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0xa</span>/width, <span class="Constant">4</span>/height, <span class="Constant">0</span>/no-pixel-graphics -<span id="L670" class="LineNr"> 670 </span> <span class="muComment">#</span> -<span id="L671" class="LineNr"> 671 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0xa</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L663" class="LineNr"> 663 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> y, <span class="Constant">2</span>, <span class="Constant">"F - <a href='trace.mu.html#L649'>test-render-trace-error-at-end</a>/cursor"</span> +<span id="L664" class="LineNr"> 664 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L649'>test-render-trace-error-at-end</a>/0"</span> +<span id="L665" class="LineNr"> 665 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"error"</span>, <span class="Constant">"F - <a href='trace.mu.html#L649'>test-render-trace-error-at-end</a>/1"</span> +<span id="L666" class="LineNr"> 666 </span><span class="Delimiter">}</span> +<span id="L667" class="LineNr"> 667 </span> +<span id="L668" class="LineNr"> 668 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L668'>test-render-trace-error-in-the-middle</a></span> <span class="Delimiter">{</span> +<span id="L669" class="LineNr"> 669 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L670" class="LineNr"> 670 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L671" class="LineNr"> 671 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> <span id="L672" class="LineNr"> 672 </span> <span class="muComment">#</span> -<span id="L673" class="LineNr"> 673 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L658'>test-render-trace-cursor-in-single-line</a>/0"</span> -<span id="L674" class="LineNr"> 674 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L658'>test-render-trace-cursor-in-single-line</a>/0/cursor"</span> -<span id="L675" class="LineNr"> 675 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"error "</span>, <span class="Constant">"F - <a href='trace.mu.html#L658'>test-render-trace-cursor-in-single-line</a>/1"</span> -<span id="L676" class="LineNr"> 676 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L658'>test-render-trace-cursor-in-single-line</a>/1/cursor"</span> -<span id="L677" class="LineNr"> 677 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L658'>test-render-trace-cursor-in-single-line</a>/2"</span> -<span id="L678" class="LineNr"> 678 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L658'>test-render-trace-cursor-in-single-line</a>/2/cursor"</span> -<span id="L679" class="LineNr"> 679 </span><span class="Delimiter">}</span> -<span id="L680" class="LineNr"> 680 </span> -<span id="L681" class="LineNr"> 681 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L681'>render-trace-menu</a></span> <a href='../500fake-screen.mu.html#L14'>screen</a>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Delimiter">{</span> -<span id="L682" class="LineNr"> 682 </span> <span class="PreProc">var</span> width/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L683" class="LineNr"> 683 </span> <span class="PreProc">var</span> height/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L684" class="LineNr"> 684 </span> width, height <span class="Special"><-</span> <a href='../500fake-screen.mu.html#L70'>screen-size</a> <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L685" class="LineNr"> 685 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy height -<span id="L686" class="LineNr"> 686 </span> y <span class="Special"><-</span> decrement -<span id="L687" class="LineNr"> 687 </span> <a href='../500fake-screen.mu.html#L169'>set-cursor-position</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/x, y -<span id="L688" class="LineNr"> 688 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" ctrl-r "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=black -<span id="L689" class="LineNr"> 689 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" <a href='sandbox.mu.html#L600'>run</a> <a href='main.mu.html#L4'>main</a> "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L690" class="LineNr"> 690 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" ctrl-s "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=black -<span id="L691" class="LineNr"> 691 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" <a href='sandbox.mu.html#L600'>run</a> <a href='sandbox.mu.html#L1'>sandbox</a> "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L692" class="LineNr"> 692 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" ctrl-m "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">3</span>/bg=keyboard -<span id="L693" class="LineNr"> 693 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" to keyboard "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L694" class="LineNr"> 694 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" j "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=black -<span id="L695" class="LineNr"> 695 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" down "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L696" class="LineNr"> 696 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" k "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=black -<span id="L697" class="LineNr"> 697 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" up "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L698" class="LineNr"> 698 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" enter "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=black -<span id="L699" class="LineNr"> 699 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" <a href='trace.mu.html#L752'>expand</a> "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L700" class="LineNr"> 700 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" backspace "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=black -<span id="L701" class="LineNr"> 701 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" <a href='trace.mu.html#L792'>collapse</a> "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L702" class="LineNr"> 702 </span><span class="Delimiter">}</span> -<span id="L703" class="LineNr"> 703 </span> -<span id="L704" class="LineNr"> 704 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L704'>edit-trace</a></span> _self: (addr trace), key: grapheme <span class="Delimiter">{</span> -<span id="L705" class="LineNr"> 705 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> copy _self -<span id="L706" class="LineNr"> 706 </span> <span class="muComment"># cursor down</span> -<span id="L707" class="LineNr"> 707 </span> <span class="Delimiter">{</span> -<span id="L708" class="LineNr"> 708 </span> compare key, <span class="Constant">0x6a</span>/j -<span id="L709" class="LineNr"> 709 </span> <span class="PreProc">break-if-!=</span> -<span id="L710" class="LineNr"> 710 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, cursor-y -<span id="L711" class="LineNr"> 711 </span> increment *cursor-y -<span id="L712" class="LineNr"> 712 </span> <span class="PreProc">return</span> -<span id="L713" class="LineNr"> 713 </span> <span class="Delimiter">}</span> -<span id="L714" class="LineNr"> 714 </span> <span class="Delimiter">{</span> -<span id="L715" class="LineNr"> 715 </span> compare key, <span class="Constant">0x81</span>/down-arrow -<span id="L716" class="LineNr"> 716 </span> <span class="PreProc">break-if-!=</span> -<span id="L717" class="LineNr"> 717 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, cursor-y -<span id="L718" class="LineNr"> 718 </span> increment *cursor-y -<span id="L719" class="LineNr"> 719 </span> <span class="PreProc">return</span> -<span id="L720" class="LineNr"> 720 </span> <span class="Delimiter">}</span> -<span id="L721" class="LineNr"> 721 </span> <span class="muComment"># cursor up</span> -<span id="L722" class="LineNr"> 722 </span> <span class="Delimiter">{</span> -<span id="L723" class="LineNr"> 723 </span> compare key, <span class="Constant">0x6b</span>/k -<span id="L724" class="LineNr"> 724 </span> <span class="PreProc">break-if-!=</span> -<span id="L725" class="LineNr"> 725 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, cursor-y -<span id="L726" class="LineNr"> 726 </span> decrement *cursor-y -<span id="L727" class="LineNr"> 727 </span> <span class="PreProc">return</span> -<span id="L728" class="LineNr"> 728 </span> <span class="Delimiter">}</span> -<span id="L729" class="LineNr"> 729 </span> <span class="Delimiter">{</span> -<span id="L730" class="LineNr"> 730 </span> compare key, <span class="Constant">0x82</span>/up-arrow -<span id="L731" class="LineNr"> 731 </span> <span class="PreProc">break-if-!=</span> -<span id="L732" class="LineNr"> 732 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, cursor-y -<span id="L733" class="LineNr"> 733 </span> decrement *cursor-y -<span id="L734" class="LineNr"> 734 </span> <span class="PreProc">return</span> -<span id="L735" class="LineNr"> 735 </span> <span class="Delimiter">}</span> -<span id="L736" class="LineNr"> 736 </span> <span class="muComment"># enter = expand</span> -<span id="L737" class="LineNr"> 737 </span> <span class="Delimiter">{</span> -<span id="L738" class="LineNr"> 738 </span> compare key, <span class="Constant">0xa</span>/newline -<span id="L739" class="LineNr"> 739 </span> <span class="PreProc">break-if-!=</span> -<span id="L740" class="LineNr"> 740 </span> <a href='trace.mu.html#L752'>expand</a> self -<span id="L741" class="LineNr"> 741 </span> <span class="PreProc">return</span> -<span id="L742" class="LineNr"> 742 </span> <span class="Delimiter">}</span> -<span id="L743" class="LineNr"> 743 </span> <span class="muComment"># backspace = collapse</span> -<span id="L744" class="LineNr"> 744 </span> <span class="Delimiter">{</span> -<span id="L745" class="LineNr"> 745 </span> compare key, <span class="Constant">8</span>/backspace -<span id="L746" class="LineNr"> 746 </span> <span class="PreProc">break-if-!=</span> -<span id="L747" class="LineNr"> 747 </span> <a href='trace.mu.html#L792'>collapse</a> self -<span id="L748" class="LineNr"> 748 </span> <span class="PreProc">return</span> -<span id="L749" class="LineNr"> 749 </span> <span class="Delimiter">}</span> -<span id="L750" class="LineNr"> 750 </span><span class="Delimiter">}</span> -<span id="L751" class="LineNr"> 751 </span> -<span id="L752" class="LineNr"> 752 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L752'>expand</a></span> _self: (addr trace) <span class="Delimiter">{</span> -<span id="L753" class="LineNr"> 753 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> copy _self -<span id="L754" class="LineNr"> 754 </span> <span class="PreProc">var</span> trace-ah/<span class="Constant">eax</span>: (addr handle array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> get self, data -<span id="L755" class="LineNr"> 755 </span> <span class="PreProc">var</span> _trace/<span class="Constant">eax</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *trace-ah -<span id="L756" class="LineNr"> 756 </span> <span class="PreProc">var</span> trace/<span class="Constant">edi</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> copy _trace -<span id="L757" class="LineNr"> 757 </span> <span class="PreProc">var</span> cursor-line-index-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get self, cursor-line-index -<span id="L758" class="LineNr"> 758 </span> <span class="PreProc">var</span> cursor-line-index/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *cursor-line-index-addr -<span id="L759" class="LineNr"> 759 </span> <span class="PreProc">var</span> cursor-line-offset/<span class="Constant">eax</span>: (offset <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> compute-offset trace, cursor-line-index -<span id="L760" class="LineNr"> 760 </span> <span class="PreProc">var</span> cursor-line/<span class="Constant">edx</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> index trace, cursor-line-offset -<span id="L761" class="LineNr"> 761 </span> <span class="PreProc">var</span> cursor-line-visible?/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> get cursor-line, visible? -<span id="L762" class="LineNr"> 762 </span> <span class="PreProc">var</span> cursor-line-depth/<span class="Constant">ebx</span>: (addr int) <span class="Special"><-</span> get cursor-line, depth -<span id="L763" class="LineNr"> 763 </span> <span class="PreProc">var</span> target-depth/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy *cursor-line-depth -<span id="L764" class="LineNr"> 764 </span> <span class="muComment"># if cursor-line is already visible, increment target-depth</span> -<span id="L765" class="LineNr"> 765 </span> compare *cursor-line-visible?, <span class="Constant">0</span>/false -<span id="L766" class="LineNr"> 766 </span> <span class="Delimiter">{</span> -<span id="L767" class="LineNr"> 767 </span> <span class="PreProc">break-if-=</span> -<span id="L768" class="LineNr"> 768 </span> target-depth <span class="Special"><-</span> increment -<span id="L769" class="LineNr"> 769 </span> <span class="Delimiter">}</span> -<span id="L770" class="LineNr"> 770 </span> <span class="muComment"># reveal the run of lines starting at cursor-line-index with depth target-depth</span> -<span id="L771" class="LineNr"> 771 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy cursor-line-index -<span id="L772" class="LineNr"> 772 </span> <span class="PreProc">var</span> max/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get self, first-free -<span id="L773" class="LineNr"> 773 </span> <span class="Delimiter">{</span> -<span id="L774" class="LineNr"> 774 </span> compare i, *max -<span id="L775" class="LineNr"> 775 </span> <span class="PreProc">break-if->=</span> -<span id="L776" class="LineNr"> 776 </span> <span class="PreProc">var</span> curr-line-offset/<span class="Constant">eax</span>: (offset <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> compute-offset trace, i -<span id="L777" class="LineNr"> 777 </span> <span class="PreProc">var</span> curr-line/<span class="Constant">edx</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> index trace, curr-line-offset -<span id="L778" class="LineNr"> 778 </span> <span class="PreProc">var</span> curr-line-depth/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get curr-line, depth -<span id="L779" class="LineNr"> 779 </span> compare *curr-line-depth, target-depth -<span id="L780" class="LineNr"> 780 </span> <span class="PreProc">break-if-<</span> -<span id="L781" class="LineNr"> 781 </span> <span class="Delimiter">{</span> -<span id="L782" class="LineNr"> 782 </span> <span class="PreProc">break-if-!=</span> -<span id="L783" class="LineNr"> 783 </span> <span class="PreProc">var</span> curr-line-visible?/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> get curr-line, visible? -<span id="L784" class="LineNr"> 784 </span> copy-to *curr-line-visible?, <span class="Constant">1</span>/true -<span id="L785" class="LineNr"> 785 </span> <a href='trace.mu.html#L858'>reveal-trace-line</a> self, curr-line -<span id="L786" class="LineNr"> 786 </span> <span class="Delimiter">}</span> -<span id="L787" class="LineNr"> 787 </span> i <span class="Special"><-</span> increment -<span id="L788" class="LineNr"> 788 </span> <span class="PreProc">loop</span> -<span id="L789" class="LineNr"> 789 </span> <span class="Delimiter">}</span> -<span id="L790" class="LineNr"> 790 </span><span class="Delimiter">}</span> -<span id="L791" class="LineNr"> 791 </span> -<span id="L792" class="LineNr"> 792 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L792'>collapse</a></span> _self: (addr trace) <span class="Delimiter">{</span> -<span id="L793" class="LineNr"> 793 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> copy _self -<span id="L794" class="LineNr"> 794 </span> <span class="PreProc">var</span> trace-ah/<span class="Constant">eax</span>: (addr handle array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> get self, data -<span id="L795" class="LineNr"> 795 </span> <span class="PreProc">var</span> _trace/<span class="Constant">eax</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *trace-ah -<span id="L796" class="LineNr"> 796 </span> <span class="PreProc">var</span> trace/<span class="Constant">edi</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> copy _trace -<span id="L797" class="LineNr"> 797 </span> <span class="PreProc">var</span> cursor-line-index-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get self, cursor-line-index -<span id="L798" class="LineNr"> 798 </span> <span class="PreProc">var</span> cursor-line-index/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *cursor-line-index-addr -<span id="L799" class="LineNr"> 799 </span> <span class="PreProc">var</span> cursor-line-offset/<span class="Constant">eax</span>: (offset <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> compute-offset trace, cursor-line-index -<span id="L800" class="LineNr"> 800 </span> <span class="PreProc">var</span> cursor-line/<span class="Constant">edx</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> index trace, cursor-line-offset -<span id="L801" class="LineNr"> 801 </span> <span class="PreProc">var</span> cursor-line-visible?/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> get cursor-line, visible? -<span id="L802" class="LineNr"> 802 </span> <span class="muComment"># if cursor-line is not visible, do nothing</span> -<span id="L803" class="LineNr"> 803 </span> compare *cursor-line-visible?, <span class="Constant">0</span>/false +<span id="L673" class="LineNr"> 673 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> +<span id="L674" class="LineNr"> 674 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> t, <span class="Constant">"error"</span> +<span id="L675" class="LineNr"> 675 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 3"</span> +<span id="L676" class="LineNr"> 676 </span> <span class="muComment"># setup: screen</span> +<span id="L677" class="LineNr"> 677 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L678" class="LineNr"> 678 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L679" class="LineNr"> 679 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0xa</span>/width, <span class="Constant">4</span>/height, <span class="Constant">0</span>/no-pixel-graphics +<span id="L680" class="LineNr"> 680 </span> <span class="muComment">#</span> +<span id="L681" class="LineNr"> 681 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0xa</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">0</span>/no-cursor +<span id="L682" class="LineNr"> 682 </span> <span class="muComment">#</span> +<span id="L683" class="LineNr"> 683 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> y, <span class="Constant">3</span>, <span class="Constant">"F - <a href='trace.mu.html#L668'>test-render-trace-error-in-the-middle</a>/cursor"</span> +<span id="L684" class="LineNr"> 684 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L668'>test-render-trace-error-in-the-middle</a>/0"</span> +<span id="L685" class="LineNr"> 685 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"error"</span>, <span class="Constant">"F - <a href='trace.mu.html#L668'>test-render-trace-error-in-the-middle</a>/1"</span> +<span id="L686" class="LineNr"> 686 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L668'>test-render-trace-error-in-the-middle</a>/2"</span> +<span id="L687" class="LineNr"> 687 </span><span class="Delimiter">}</span> +<span id="L688" class="LineNr"> 688 </span> +<span id="L689" class="LineNr"> 689 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L689'>test-render-trace-cursor-in-single-line</a></span> <span class="Delimiter">{</span> +<span id="L690" class="LineNr"> 690 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L691" class="LineNr"> 691 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L692" class="LineNr"> 692 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L693" class="LineNr"> 693 </span> <span class="muComment">#</span> +<span id="L694" class="LineNr"> 694 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> +<span id="L695" class="LineNr"> 695 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> t, <span class="Constant">"error"</span> +<span id="L696" class="LineNr"> 696 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 3"</span> +<span id="L697" class="LineNr"> 697 </span> <span class="muComment"># setup: screen</span> +<span id="L698" class="LineNr"> 698 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L699" class="LineNr"> 699 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L700" class="LineNr"> 700 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0xa</span>/width, <span class="Constant">4</span>/height, <span class="Constant">0</span>/no-pixel-graphics +<span id="L701" class="LineNr"> 701 </span> <span class="muComment">#</span> +<span id="L702" class="LineNr"> 702 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0xa</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L703" class="LineNr"> 703 </span> <span class="muComment">#</span> +<span id="L704" class="LineNr"> 704 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L689'>test-render-trace-cursor-in-single-line</a>/0"</span> +<span id="L705" class="LineNr"> 705 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L689'>test-render-trace-cursor-in-single-line</a>/0/cursor"</span> +<span id="L706" class="LineNr"> 706 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"error "</span>, <span class="Constant">"F - <a href='trace.mu.html#L689'>test-render-trace-cursor-in-single-line</a>/1"</span> +<span id="L707" class="LineNr"> 707 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L689'>test-render-trace-cursor-in-single-line</a>/1/cursor"</span> +<span id="L708" class="LineNr"> 708 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L689'>test-render-trace-cursor-in-single-line</a>/2"</span> +<span id="L709" class="LineNr"> 709 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L689'>test-render-trace-cursor-in-single-line</a>/2/cursor"</span> +<span id="L710" class="LineNr"> 710 </span><span class="Delimiter">}</span> +<span id="L711" class="LineNr"> 711 </span> +<span id="L712" class="LineNr"> 712 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L712'>render-trace-menu</a></span> <a href='../500fake-screen.mu.html#L14'>screen</a>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Delimiter">{</span> +<span id="L713" class="LineNr"> 713 </span> <span class="PreProc">var</span> width/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L714" class="LineNr"> 714 </span> <span class="PreProc">var</span> height/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L715" class="LineNr"> 715 </span> width, height <span class="Special"><-</span> <a href='../500fake-screen.mu.html#L70'>screen-size</a> <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L716" class="LineNr"> 716 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy height +<span id="L717" class="LineNr"> 717 </span> y <span class="Special"><-</span> decrement +<span id="L718" class="LineNr"> 718 </span> <a href='../500fake-screen.mu.html#L169'>set-cursor-position</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/x, y +<span id="L719" class="LineNr"> 719 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" ctrl-r "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=black +<span id="L720" class="LineNr"> 720 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" <a href='sandbox.mu.html#L600'>run</a> <a href='main.mu.html#L4'>main</a> "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg +<span id="L721" class="LineNr"> 721 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" ctrl-s "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=black +<span id="L722" class="LineNr"> 722 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" <a href='sandbox.mu.html#L600'>run</a> <a href='sandbox.mu.html#L1'>sandbox</a> "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg +<span id="L723" class="LineNr"> 723 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" ctrl-m "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">3</span>/bg=keyboard +<span id="L724" class="LineNr"> 724 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" to keyboard "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg +<span id="L725" class="LineNr"> 725 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" j "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=black +<span id="L726" class="LineNr"> 726 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" down "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg +<span id="L727" class="LineNr"> 727 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" k "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=black +<span id="L728" class="LineNr"> 728 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" up "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg +<span id="L729" class="LineNr"> 729 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" enter "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=black +<span id="L730" class="LineNr"> 730 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" <a href='trace.mu.html#L783'>expand</a> "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg +<span id="L731" class="LineNr"> 731 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" backspace "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=black +<span id="L732" class="LineNr"> 732 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">" <a href='trace.mu.html#L823'>collapse</a> "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg +<span id="L733" class="LineNr"> 733 </span><span class="Delimiter">}</span> +<span id="L734" class="LineNr"> 734 </span> +<span id="L735" class="LineNr"> 735 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L735'>edit-trace</a></span> _self: (addr trace), key: grapheme <span class="Delimiter">{</span> +<span id="L736" class="LineNr"> 736 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> copy _self +<span id="L737" class="LineNr"> 737 </span> <span class="muComment"># cursor down</span> +<span id="L738" class="LineNr"> 738 </span> <span class="Delimiter">{</span> +<span id="L739" class="LineNr"> 739 </span> compare key, <span class="Constant">0x6a</span>/j +<span id="L740" class="LineNr"> 740 </span> <span class="PreProc">break-if-!=</span> +<span id="L741" class="LineNr"> 741 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, cursor-y +<span id="L742" class="LineNr"> 742 </span> increment *cursor-y +<span id="L743" class="LineNr"> 743 </span> <span class="PreProc">return</span> +<span id="L744" class="LineNr"> 744 </span> <span class="Delimiter">}</span> +<span id="L745" class="LineNr"> 745 </span> <span class="Delimiter">{</span> +<span id="L746" class="LineNr"> 746 </span> compare key, <span class="Constant">0x81</span>/down-arrow +<span id="L747" class="LineNr"> 747 </span> <span class="PreProc">break-if-!=</span> +<span id="L748" class="LineNr"> 748 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, cursor-y +<span id="L749" class="LineNr"> 749 </span> increment *cursor-y +<span id="L750" class="LineNr"> 750 </span> <span class="PreProc">return</span> +<span id="L751" class="LineNr"> 751 </span> <span class="Delimiter">}</span> +<span id="L752" class="LineNr"> 752 </span> <span class="muComment"># cursor up</span> +<span id="L753" class="LineNr"> 753 </span> <span class="Delimiter">{</span> +<span id="L754" class="LineNr"> 754 </span> compare key, <span class="Constant">0x6b</span>/k +<span id="L755" class="LineNr"> 755 </span> <span class="PreProc">break-if-!=</span> +<span id="L756" class="LineNr"> 756 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, cursor-y +<span id="L757" class="LineNr"> 757 </span> decrement *cursor-y +<span id="L758" class="LineNr"> 758 </span> <span class="PreProc">return</span> +<span id="L759" class="LineNr"> 759 </span> <span class="Delimiter">}</span> +<span id="L760" class="LineNr"> 760 </span> <span class="Delimiter">{</span> +<span id="L761" class="LineNr"> 761 </span> compare key, <span class="Constant">0x82</span>/up-arrow +<span id="L762" class="LineNr"> 762 </span> <span class="PreProc">break-if-!=</span> +<span id="L763" class="LineNr"> 763 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, cursor-y +<span id="L764" class="LineNr"> 764 </span> decrement *cursor-y +<span id="L765" class="LineNr"> 765 </span> <span class="PreProc">return</span> +<span id="L766" class="LineNr"> 766 </span> <span class="Delimiter">}</span> +<span id="L767" class="LineNr"> 767 </span> <span class="muComment"># enter = expand</span> +<span id="L768" class="LineNr"> 768 </span> <span class="Delimiter">{</span> +<span id="L769" class="LineNr"> 769 </span> compare key, <span class="Constant">0xa</span>/newline +<span id="L770" class="LineNr"> 770 </span> <span class="PreProc">break-if-!=</span> +<span id="L771" class="LineNr"> 771 </span> <a href='trace.mu.html#L783'>expand</a> self +<span id="L772" class="LineNr"> 772 </span> <span class="PreProc">return</span> +<span id="L773" class="LineNr"> 773 </span> <span class="Delimiter">}</span> +<span id="L774" class="LineNr"> 774 </span> <span class="muComment"># backspace = collapse</span> +<span id="L775" class="LineNr"> 775 </span> <span class="Delimiter">{</span> +<span id="L776" class="LineNr"> 776 </span> compare key, <span class="Constant">8</span>/backspace +<span id="L777" class="LineNr"> 777 </span> <span class="PreProc">break-if-!=</span> +<span id="L778" class="LineNr"> 778 </span> <a href='trace.mu.html#L823'>collapse</a> self +<span id="L779" class="LineNr"> 779 </span> <span class="PreProc">return</span> +<span id="L780" class="LineNr"> 780 </span> <span class="Delimiter">}</span> +<span id="L781" class="LineNr"> 781 </span><span class="Delimiter">}</span> +<span id="L782" class="LineNr"> 782 </span> +<span id="L783" class="LineNr"> 783 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L783'>expand</a></span> _self: (addr trace) <span class="Delimiter">{</span> +<span id="L784" class="LineNr"> 784 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> copy _self +<span id="L785" class="LineNr"> 785 </span> <span class="PreProc">var</span> trace-ah/<span class="Constant">eax</span>: (addr handle array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> get self, data +<span id="L786" class="LineNr"> 786 </span> <span class="PreProc">var</span> _trace/<span class="Constant">eax</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *trace-ah +<span id="L787" class="LineNr"> 787 </span> <span class="PreProc">var</span> trace/<span class="Constant">edi</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> copy _trace +<span id="L788" class="LineNr"> 788 </span> <span class="PreProc">var</span> cursor-line-index-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get self, cursor-line-index +<span id="L789" class="LineNr"> 789 </span> <span class="PreProc">var</span> cursor-line-index/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *cursor-line-index-addr +<span id="L790" class="LineNr"> 790 </span> <span class="PreProc">var</span> cursor-line-offset/<span class="Constant">eax</span>: (offset <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> compute-offset trace, cursor-line-index +<span id="L791" class="LineNr"> 791 </span> <span class="PreProc">var</span> cursor-line/<span class="Constant">edx</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> index trace, cursor-line-offset +<span id="L792" class="LineNr"> 792 </span> <span class="PreProc">var</span> cursor-line-visible?/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> get cursor-line, visible? +<span id="L793" class="LineNr"> 793 </span> <span class="PreProc">var</span> cursor-line-depth/<span class="Constant">ebx</span>: (addr int) <span class="Special"><-</span> get cursor-line, depth +<span id="L794" class="LineNr"> 794 </span> <span class="PreProc">var</span> target-depth/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy *cursor-line-depth +<span id="L795" class="LineNr"> 795 </span> <span class="muComment"># if cursor-line is already visible, increment target-depth</span> +<span id="L796" class="LineNr"> 796 </span> compare *cursor-line-visible?, <span class="Constant">0</span>/false +<span id="L797" class="LineNr"> 797 </span> <span class="Delimiter">{</span> +<span id="L798" class="LineNr"> 798 </span> <span class="PreProc">break-if-=</span> +<span id="L799" class="LineNr"> 799 </span> target-depth <span class="Special"><-</span> increment +<span id="L800" class="LineNr"> 800 </span> <span class="Delimiter">}</span> +<span id="L801" class="LineNr"> 801 </span> <span class="muComment"># reveal the run of lines starting at cursor-line-index with depth target-depth</span> +<span id="L802" class="LineNr"> 802 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy cursor-line-index +<span id="L803" class="LineNr"> 803 </span> <span class="PreProc">var</span> max/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get self, first-free <span id="L804" class="LineNr"> 804 </span> <span class="Delimiter">{</span> -<span id="L805" class="LineNr"> 805 </span> <span class="PreProc">break-if-!=</span> -<span id="L806" class="LineNr"> 806 </span> <span class="PreProc">return</span> -<span id="L807" class="LineNr"> 807 </span> <span class="Delimiter">}</span> -<span id="L808" class="LineNr"> 808 </span> <span class="muComment"># hide all lines between previous and next line with a lower depth</span> -<span id="L809" class="LineNr"> 809 </span> <span class="PreProc">var</span> cursor-line-depth/<span class="Constant">ebx</span>: (addr int) <span class="Special"><-</span> get cursor-line, depth -<span id="L810" class="LineNr"> 810 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get self, cursor-y -<span id="L811" class="LineNr"> 811 </span> <span class="PreProc">var</span> target-depth/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy *cursor-line-depth -<span id="L812" class="LineNr"> 812 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy cursor-line-index -<span id="L813" class="LineNr"> 813 </span> $collapse:loop1: <span class="Delimiter">{</span> -<span id="L814" class="LineNr"> 814 </span> compare i, <span class="Constant">0</span> -<span id="L815" class="LineNr"> 815 </span> <span class="PreProc">break-if-<</span> -<span id="L816" class="LineNr"> 816 </span> <span class="PreProc">var</span> curr-line-offset/<span class="Constant">eax</span>: (offset <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> compute-offset trace, i -<span id="L817" class="LineNr"> 817 </span> <span class="PreProc">var</span> curr-line/<span class="Constant">eax</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> index trace, curr-line-offset -<span id="L818" class="LineNr"> 818 </span> <span class="Delimiter">{</span> -<span id="L819" class="LineNr"> 819 </span> <span class="PreProc">var</span> curr-line-depth/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get curr-line, depth -<span id="L820" class="LineNr"> 820 </span> compare *curr-line-depth, target-depth -<span id="L821" class="LineNr"> 821 </span> <span class="PreProc">break-if-<</span> $collapse:loop1 -<span id="L822" class="LineNr"> 822 </span> <span class="Delimiter">}</span> -<span id="L823" class="LineNr"> 823 </span> <span class="muComment"># if cursor-line is visible, decrement cursor-y</span> -<span id="L824" class="LineNr"> 824 </span> <span class="Delimiter">{</span> -<span id="L825" class="LineNr"> 825 </span> <span class="PreProc">var</span> curr-line-visible?/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> get curr-line, visible? -<span id="L826" class="LineNr"> 826 </span> compare *curr-line-visible?, <span class="Constant">0</span>/false -<span id="L827" class="LineNr"> 827 </span> <span class="PreProc">break-if-=</span> -<span id="L828" class="LineNr"> 828 </span> decrement *cursor-y -<span id="L829" class="LineNr"> 829 </span> <span class="Delimiter">}</span> -<span id="L830" class="LineNr"> 830 </span> i <span class="Special"><-</span> decrement -<span id="L831" class="LineNr"> 831 </span> <span class="PreProc">loop</span> -<span id="L832" class="LineNr"> 832 </span> <span class="Delimiter">}</span> -<span id="L833" class="LineNr"> 833 </span> i <span class="Special"><-</span> increment -<span id="L834" class="LineNr"> 834 </span> <span class="PreProc">var</span> max/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get self, first-free -<span id="L835" class="LineNr"> 835 </span> $collapse:loop2: <span class="Delimiter">{</span> -<span id="L836" class="LineNr"> 836 </span> compare i, *max -<span id="L837" class="LineNr"> 837 </span> <span class="PreProc">break-if->=</span> -<span id="L838" class="LineNr"> 838 </span> <span class="PreProc">var</span> curr-line-offset/<span class="Constant">eax</span>: (offset <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> compute-offset trace, i -<span id="L839" class="LineNr"> 839 </span> <span class="PreProc">var</span> curr-line/<span class="Constant">edx</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> index trace, curr-line-offset -<span id="L840" class="LineNr"> 840 </span> <span class="PreProc">var</span> curr-line-depth/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get curr-line, depth -<span id="L841" class="LineNr"> 841 </span> compare *curr-line-depth, target-depth -<span id="L842" class="LineNr"> 842 </span> <span class="PreProc">break-if-<</span> -<span id="L843" class="LineNr"> 843 </span> <span class="Delimiter">{</span> -<span id="L844" class="LineNr"> 844 </span> <a href='trace.mu.html#L883'>hide-trace-line</a> self, curr-line -<span id="L845" class="LineNr"> 845 </span> <span class="PreProc">var</span> curr-line-visible?/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> get curr-line, visible? -<span id="L846" class="LineNr"> 846 </span> copy-to *curr-line-visible?, <span class="Constant">0</span>/false -<span id="L847" class="LineNr"> 847 </span> <span class="Delimiter">}</span> -<span id="L848" class="LineNr"> 848 </span> i <span class="Special"><-</span> increment -<span id="L849" class="LineNr"> 849 </span> <span class="PreProc">loop</span> -<span id="L850" class="LineNr"> 850 </span> <span class="Delimiter">}</span> -<span id="L851" class="LineNr"> 851 </span><span class="Delimiter">}</span> -<span id="L852" class="LineNr"> 852 </span> -<span id="L853" class="LineNr"> 853 </span><span class="muComment"># the 'visible' array is not required to be in order</span> -<span id="L854" class="LineNr"> 854 </span><span class="muComment"># elements can also be deleted out of order</span> -<span id="L855" class="LineNr"> 855 </span><span class="muComment"># so it can have holes</span> -<span id="L856" class="LineNr"> 856 </span><span class="muComment"># however, lines in it always have visible? set</span> -<span id="L857" class="LineNr"> 857 </span><span class="muComment"># we'll use visible? being unset as a sign of emptiness</span> -<span id="L858" class="LineNr"> 858 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L858'>reveal-trace-line</a></span> _self: (addr trace), line: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Delimiter">{</span> -<span id="L859" class="LineNr"> 859 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> copy _self -<span id="L860" class="LineNr"> 860 </span> <span class="PreProc">var</span> visible-ah/<span class="Constant">eax</span>: (addr handle array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> get self, visible -<span id="L861" class="LineNr"> 861 </span> <span class="PreProc">var</span> visible/<span class="Constant">eax</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *visible-ah -<span id="L862" class="LineNr"> 862 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L863" class="LineNr"> 863 </span> <span class="PreProc">var</span> len/<span class="Constant">edx</span>: int <span class="Special"><-</span> length visible -<span id="L864" class="LineNr"> 864 </span> <span class="Delimiter">{</span> -<span id="L865" class="LineNr"> 865 </span> compare i, len -<span id="L866" class="LineNr"> 866 </span> <span class="PreProc">break-if->=</span> -<span id="L867" class="LineNr"> 867 </span> <span class="PreProc">var</span> curr-offset/<span class="Constant">edx</span>: (offset <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> compute-offset visible, i -<span id="L868" class="LineNr"> 868 </span> <span class="PreProc">var</span> curr/<span class="Constant">edx</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> index visible, curr-offset -<span id="L869" class="LineNr"> 869 </span> <span class="PreProc">var</span> curr-visible?/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> get curr, visible? -<span id="L870" class="LineNr"> 870 </span> compare *curr-visible?, <span class="Constant">0</span>/false -<span id="L871" class="LineNr"> 871 </span> <span class="Delimiter">{</span> -<span id="L872" class="LineNr"> 872 </span> <span class="PreProc">break-if-!=</span> -<span id="L873" class="LineNr"> 873 </span> <span class="muComment"># empty slot found</span> -<span id="L874" class="LineNr"> 874 </span> copy-object line, curr -<span id="L875" class="LineNr"> 875 </span> <span class="PreProc">return</span> -<span id="L876" class="LineNr"> 876 </span> <span class="Delimiter">}</span> -<span id="L877" class="LineNr"> 877 </span> i <span class="Special"><-</span> increment -<span id="L878" class="LineNr"> 878 </span> <span class="PreProc">loop</span> -<span id="L879" class="LineNr"> 879 </span> <span class="Delimiter">}</span> -<span id="L880" class="LineNr"> 880 </span> <a href='../501draw-text.mu.html#L481'>abort</a> <span class="Constant">"too many visible lines; increase size of array trace.visible"</span> -<span id="L881" class="LineNr"> 881 </span><span class="Delimiter">}</span> -<span id="L882" class="LineNr"> 882 </span> -<span id="L883" class="LineNr"> 883 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L883'>hide-trace-line</a></span> _self: (addr trace), line: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Delimiter">{</span> -<span id="L884" class="LineNr"> 884 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> copy _self -<span id="L885" class="LineNr"> 885 </span> <span class="PreProc">var</span> visible-ah/<span class="Constant">eax</span>: (addr handle array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> get self, visible -<span id="L886" class="LineNr"> 886 </span> <span class="PreProc">var</span> visible/<span class="Constant">eax</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *visible-ah -<span id="L887" class="LineNr"> 887 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L888" class="LineNr"> 888 </span> <span class="PreProc">var</span> len/<span class="Constant">edx</span>: int <span class="Special"><-</span> length visible -<span id="L889" class="LineNr"> 889 </span> <span class="Delimiter">{</span> -<span id="L890" class="LineNr"> 890 </span> compare i, len -<span id="L891" class="LineNr"> 891 </span> <span class="PreProc">break-if->=</span> -<span id="L892" class="LineNr"> 892 </span> <span class="PreProc">var</span> curr-offset/<span class="Constant">edx</span>: (offset <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> compute-offset visible, i -<span id="L893" class="LineNr"> 893 </span> <span class="PreProc">var</span> curr/<span class="Constant">edx</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> index visible, curr-offset -<span id="L894" class="LineNr"> 894 </span> <span class="PreProc">var</span> found?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='trace.mu.html#L251'>trace-lines-equal?</a> curr, line -<span id="L895" class="LineNr"> 895 </span> compare found?, <span class="Constant">0</span>/false -<span id="L896" class="LineNr"> 896 </span> <span class="Delimiter">{</span> -<span id="L897" class="LineNr"> 897 </span> <span class="PreProc">break-if-=</span> -<span id="L898" class="LineNr"> 898 </span> clear-object curr -<span id="L899" class="LineNr"> 899 </span> <span class="Delimiter">}</span> -<span id="L900" class="LineNr"> 900 </span> i <span class="Special"><-</span> increment -<span id="L901" class="LineNr"> 901 </span> <span class="PreProc">loop</span> -<span id="L902" class="LineNr"> 902 </span> <span class="Delimiter">}</span> -<span id="L903" class="LineNr"> 903 </span><span class="Delimiter">}</span> -<span id="L904" class="LineNr"> 904 </span> -<span id="L905" class="LineNr"> 905 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L905'>test-cursor-down-and-up-within-trace</a></span> <span class="Delimiter">{</span> -<span id="L906" class="LineNr"> 906 </span> <span class="PreProc">var</span> t-storage: trace -<span id="L907" class="LineNr"> 907 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage -<span id="L908" class="LineNr"> 908 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> -<span id="L909" class="LineNr"> 909 </span> <span class="muComment">#</span> -<span id="L910" class="LineNr"> 910 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> -<span id="L911" class="LineNr"> 911 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> t, <span class="Constant">"error"</span> -<span id="L912" class="LineNr"> 912 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 3"</span> -<span id="L913" class="LineNr"> 913 </span> <span class="muComment"># setup: screen</span> -<span id="L914" class="LineNr"> 914 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L915" class="LineNr"> 915 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack -<span id="L916" class="LineNr"> 916 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0xa</span>/width, <span class="Constant">4</span>/height, <span class="Constant">0</span>/no-pixel-graphics -<span id="L917" class="LineNr"> 917 </span> <span class="muComment">#</span> -<span id="L918" class="LineNr"> 918 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0xa</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L919" class="LineNr"> 919 </span> <span class="muComment">#</span> -<span id="L920" class="LineNr"> 920 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L905'>test-cursor-down-and-up-within-trace</a>/pre-0"</span> -<span id="L921" class="LineNr"> 921 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L905'>test-cursor-down-and-up-within-trace</a>/pre-0/cursor"</span> -<span id="L922" class="LineNr"> 922 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"error "</span>, <span class="Constant">"F - <a href='trace.mu.html#L905'>test-cursor-down-and-up-within-trace</a>/pre-1"</span> -<span id="L923" class="LineNr"> 923 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L905'>test-cursor-down-and-up-within-trace</a>/pre-1/cursor"</span> -<span id="L924" class="LineNr"> 924 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L905'>test-cursor-down-and-up-within-trace</a>/pre-2"</span> -<span id="L925" class="LineNr"> 925 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L905'>test-cursor-down-and-up-within-trace</a>/pre-2/cursor"</span> -<span id="L926" class="LineNr"> 926 </span> <span class="muComment"># cursor down</span> -<span id="L927" class="LineNr"> 927 </span> <a href='trace.mu.html#L704'>edit-trace</a> t, <span class="Constant">0x6a</span>/j -<span id="L928" class="LineNr"> 928 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0xa</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L929" class="LineNr"> 929 </span> <span class="muComment">#</span> -<span id="L930" class="LineNr"> 930 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L905'>test-cursor-down-and-up-within-trace</a>/down-0"</span> -<span id="L931" class="LineNr"> 931 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L905'>test-cursor-down-and-up-within-trace</a>/down-0/cursor"</span> -<span id="L932" class="LineNr"> 932 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"error "</span>, <span class="Constant">"F - <a href='trace.mu.html#L905'>test-cursor-down-and-up-within-trace</a>/down-1"</span> -<span id="L933" class="LineNr"> 933 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">"||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L905'>test-cursor-down-and-up-within-trace</a>/down-1/cursor"</span> -<span id="L934" class="LineNr"> 934 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L905'>test-cursor-down-and-up-within-trace</a>/down-2"</span> -<span id="L935" class="LineNr"> 935 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L905'>test-cursor-down-and-up-within-trace</a>/down-2/cursor"</span> -<span id="L936" class="LineNr"> 936 </span> <span class="muComment"># cursor up</span> -<span id="L937" class="LineNr"> 937 </span> <a href='trace.mu.html#L704'>edit-trace</a> t, <span class="Constant">0x6b</span>/k -<span id="L938" class="LineNr"> 938 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0xa</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L939" class="LineNr"> 939 </span> <span class="muComment">#</span> -<span id="L940" class="LineNr"> 940 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L905'>test-cursor-down-and-up-within-trace</a>/up-0"</span> -<span id="L941" class="LineNr"> 941 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L905'>test-cursor-down-and-up-within-trace</a>/up-0/cursor"</span> -<span id="L942" class="LineNr"> 942 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"error "</span>, <span class="Constant">"F - <a href='trace.mu.html#L905'>test-cursor-down-and-up-within-trace</a>/up-1"</span> -<span id="L943" class="LineNr"> 943 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L905'>test-cursor-down-and-up-within-trace</a>/up-1/cursor"</span> -<span id="L944" class="LineNr"> 944 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L905'>test-cursor-down-and-up-within-trace</a>/up-2"</span> -<span id="L945" class="LineNr"> 945 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L905'>test-cursor-down-and-up-within-trace</a>/up-2/cursor"</span> -<span id="L946" class="LineNr"> 946 </span><span class="Delimiter">}</span> -<span id="L947" class="LineNr"> 947 </span> -<span id="L948" class="LineNr"> 948 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L948'>test-cursor-down-past-bottom-of-trace</a></span> <span class="Delimiter">{</span> -<span id="L949" class="LineNr"> 949 </span> <span class="PreProc">var</span> t-storage: trace -<span id="L950" class="LineNr"> 950 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage -<span id="L951" class="LineNr"> 951 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> -<span id="L952" class="LineNr"> 952 </span> <span class="muComment">#</span> -<span id="L953" class="LineNr"> 953 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> -<span id="L954" class="LineNr"> 954 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> t, <span class="Constant">"error"</span> -<span id="L955" class="LineNr"> 955 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 3"</span> -<span id="L956" class="LineNr"> 956 </span> <span class="muComment"># setup: screen</span> -<span id="L957" class="LineNr"> 957 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L958" class="LineNr"> 958 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack -<span id="L959" class="LineNr"> 959 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0xa</span>/width, <span class="Constant">4</span>/height, <span class="Constant">0</span>/no-pixel-graphics +<span id="L805" class="LineNr"> 805 </span> compare i, *max +<span id="L806" class="LineNr"> 806 </span> <span class="PreProc">break-if->=</span> +<span id="L807" class="LineNr"> 807 </span> <span class="PreProc">var</span> curr-line-offset/<span class="Constant">eax</span>: (offset <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> compute-offset trace, i +<span id="L808" class="LineNr"> 808 </span> <span class="PreProc">var</span> curr-line/<span class="Constant">edx</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> index trace, curr-line-offset +<span id="L809" class="LineNr"> 809 </span> <span class="PreProc">var</span> curr-line-depth/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get curr-line, depth +<span id="L810" class="LineNr"> 810 </span> compare *curr-line-depth, target-depth +<span id="L811" class="LineNr"> 811 </span> <span class="PreProc">break-if-<</span> +<span id="L812" class="LineNr"> 812 </span> <span class="Delimiter">{</span> +<span id="L813" class="LineNr"> 813 </span> <span class="PreProc">break-if-!=</span> +<span id="L814" class="LineNr"> 814 </span> <span class="PreProc">var</span> curr-line-visible?/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> get curr-line, visible? +<span id="L815" class="LineNr"> 815 </span> copy-to *curr-line-visible?, <span class="Constant">1</span>/true +<span id="L816" class="LineNr"> 816 </span> <a href='trace.mu.html#L889'>reveal-trace-line</a> self, curr-line +<span id="L817" class="LineNr"> 817 </span> <span class="Delimiter">}</span> +<span id="L818" class="LineNr"> 818 </span> i <span class="Special"><-</span> increment +<span id="L819" class="LineNr"> 819 </span> <span class="PreProc">loop</span> +<span id="L820" class="LineNr"> 820 </span> <span class="Delimiter">}</span> +<span id="L821" class="LineNr"> 821 </span><span class="Delimiter">}</span> +<span id="L822" class="LineNr"> 822 </span> +<span id="L823" class="LineNr"> 823 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L823'>collapse</a></span> _self: (addr trace) <span class="Delimiter">{</span> +<span id="L824" class="LineNr"> 824 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> copy _self +<span id="L825" class="LineNr"> 825 </span> <span class="PreProc">var</span> trace-ah/<span class="Constant">eax</span>: (addr handle array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> get self, data +<span id="L826" class="LineNr"> 826 </span> <span class="PreProc">var</span> _trace/<span class="Constant">eax</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *trace-ah +<span id="L827" class="LineNr"> 827 </span> <span class="PreProc">var</span> trace/<span class="Constant">edi</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> copy _trace +<span id="L828" class="LineNr"> 828 </span> <span class="PreProc">var</span> cursor-line-index-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get self, cursor-line-index +<span id="L829" class="LineNr"> 829 </span> <span class="PreProc">var</span> cursor-line-index/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *cursor-line-index-addr +<span id="L830" class="LineNr"> 830 </span> <span class="PreProc">var</span> cursor-line-offset/<span class="Constant">eax</span>: (offset <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> compute-offset trace, cursor-line-index +<span id="L831" class="LineNr"> 831 </span> <span class="PreProc">var</span> cursor-line/<span class="Constant">edx</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> index trace, cursor-line-offset +<span id="L832" class="LineNr"> 832 </span> <span class="PreProc">var</span> cursor-line-visible?/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> get cursor-line, visible? +<span id="L833" class="LineNr"> 833 </span> <span class="muComment"># if cursor-line is not visible, do nothing</span> +<span id="L834" class="LineNr"> 834 </span> compare *cursor-line-visible?, <span class="Constant">0</span>/false +<span id="L835" class="LineNr"> 835 </span> <span class="Delimiter">{</span> +<span id="L836" class="LineNr"> 836 </span> <span class="PreProc">break-if-!=</span> +<span id="L837" class="LineNr"> 837 </span> <span class="PreProc">return</span> +<span id="L838" class="LineNr"> 838 </span> <span class="Delimiter">}</span> +<span id="L839" class="LineNr"> 839 </span> <span class="muComment"># hide all lines between previous and next line with a lower depth</span> +<span id="L840" class="LineNr"> 840 </span> <span class="PreProc">var</span> cursor-line-depth/<span class="Constant">ebx</span>: (addr int) <span class="Special"><-</span> get cursor-line, depth +<span id="L841" class="LineNr"> 841 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get self, cursor-y +<span id="L842" class="LineNr"> 842 </span> <span class="PreProc">var</span> target-depth/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy *cursor-line-depth +<span id="L843" class="LineNr"> 843 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy cursor-line-index +<span id="L844" class="LineNr"> 844 </span> $collapse:loop1: <span class="Delimiter">{</span> +<span id="L845" class="LineNr"> 845 </span> compare i, <span class="Constant">0</span> +<span id="L846" class="LineNr"> 846 </span> <span class="PreProc">break-if-<</span> +<span id="L847" class="LineNr"> 847 </span> <span class="PreProc">var</span> curr-line-offset/<span class="Constant">eax</span>: (offset <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> compute-offset trace, i +<span id="L848" class="LineNr"> 848 </span> <span class="PreProc">var</span> curr-line/<span class="Constant">eax</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> index trace, curr-line-offset +<span id="L849" class="LineNr"> 849 </span> <span class="Delimiter">{</span> +<span id="L850" class="LineNr"> 850 </span> <span class="PreProc">var</span> curr-line-depth/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get curr-line, depth +<span id="L851" class="LineNr"> 851 </span> compare *curr-line-depth, target-depth +<span id="L852" class="LineNr"> 852 </span> <span class="PreProc">break-if-<</span> $collapse:loop1 +<span id="L853" class="LineNr"> 853 </span> <span class="Delimiter">}</span> +<span id="L854" class="LineNr"> 854 </span> <span class="muComment"># if cursor-line is visible, decrement cursor-y</span> +<span id="L855" class="LineNr"> 855 </span> <span class="Delimiter">{</span> +<span id="L856" class="LineNr"> 856 </span> <span class="PreProc">var</span> curr-line-visible?/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> get curr-line, visible? +<span id="L857" class="LineNr"> 857 </span> compare *curr-line-visible?, <span class="Constant">0</span>/false +<span id="L858" class="LineNr"> 858 </span> <span class="PreProc">break-if-=</span> +<span id="L859" class="LineNr"> 859 </span> decrement *cursor-y +<span id="L860" class="LineNr"> 860 </span> <span class="Delimiter">}</span> +<span id="L861" class="LineNr"> 861 </span> i <span class="Special"><-</span> decrement +<span id="L862" class="LineNr"> 862 </span> <span class="PreProc">loop</span> +<span id="L863" class="LineNr"> 863 </span> <span class="Delimiter">}</span> +<span id="L864" class="LineNr"> 864 </span> i <span class="Special"><-</span> increment +<span id="L865" class="LineNr"> 865 </span> <span class="PreProc">var</span> max/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get self, first-free +<span id="L866" class="LineNr"> 866 </span> $collapse:loop2: <span class="Delimiter">{</span> +<span id="L867" class="LineNr"> 867 </span> compare i, *max +<span id="L868" class="LineNr"> 868 </span> <span class="PreProc">break-if->=</span> +<span id="L869" class="LineNr"> 869 </span> <span class="PreProc">var</span> curr-line-offset/<span class="Constant">eax</span>: (offset <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> compute-offset trace, i +<span id="L870" class="LineNr"> 870 </span> <span class="PreProc">var</span> curr-line/<span class="Constant">edx</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> index trace, curr-line-offset +<span id="L871" class="LineNr"> 871 </span> <span class="PreProc">var</span> curr-line-depth/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get curr-line, depth +<span id="L872" class="LineNr"> 872 </span> compare *curr-line-depth, target-depth +<span id="L873" class="LineNr"> 873 </span> <span class="PreProc">break-if-<</span> +<span id="L874" class="LineNr"> 874 </span> <span class="Delimiter">{</span> +<span id="L875" class="LineNr"> 875 </span> <a href='trace.mu.html#L914'>hide-trace-line</a> self, curr-line +<span id="L876" class="LineNr"> 876 </span> <span class="PreProc">var</span> curr-line-visible?/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> get curr-line, visible? +<span id="L877" class="LineNr"> 877 </span> copy-to *curr-line-visible?, <span class="Constant">0</span>/false +<span id="L878" class="LineNr"> 878 </span> <span class="Delimiter">}</span> +<span id="L879" class="LineNr"> 879 </span> i <span class="Special"><-</span> increment +<span id="L880" class="LineNr"> 880 </span> <span class="PreProc">loop</span> +<span id="L881" class="LineNr"> 881 </span> <span class="Delimiter">}</span> +<span id="L882" class="LineNr"> 882 </span><span class="Delimiter">}</span> +<span id="L883" class="LineNr"> 883 </span> +<span id="L884" class="LineNr"> 884 </span><span class="muComment"># the 'visible' array is not required to be in order</span> +<span id="L885" class="LineNr"> 885 </span><span class="muComment"># elements can also be deleted out of order</span> +<span id="L886" class="LineNr"> 886 </span><span class="muComment"># so it can have holes</span> +<span id="L887" class="LineNr"> 887 </span><span class="muComment"># however, lines in it always have visible? set</span> +<span id="L888" class="LineNr"> 888 </span><span class="muComment"># we'll use visible? being unset as a sign of emptiness</span> +<span id="L889" class="LineNr"> 889 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L889'>reveal-trace-line</a></span> _self: (addr trace), line: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Delimiter">{</span> +<span id="L890" class="LineNr"> 890 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> copy _self +<span id="L891" class="LineNr"> 891 </span> <span class="PreProc">var</span> visible-ah/<span class="Constant">eax</span>: (addr handle array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> get self, visible +<span id="L892" class="LineNr"> 892 </span> <span class="PreProc">var</span> visible/<span class="Constant">eax</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *visible-ah +<span id="L893" class="LineNr"> 893 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L894" class="LineNr"> 894 </span> <span class="PreProc">var</span> len/<span class="Constant">edx</span>: int <span class="Special"><-</span> length visible +<span id="L895" class="LineNr"> 895 </span> <span class="Delimiter">{</span> +<span id="L896" class="LineNr"> 896 </span> compare i, len +<span id="L897" class="LineNr"> 897 </span> <span class="PreProc">break-if->=</span> +<span id="L898" class="LineNr"> 898 </span> <span class="PreProc">var</span> curr-offset/<span class="Constant">edx</span>: (offset <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> compute-offset visible, i +<span id="L899" class="LineNr"> 899 </span> <span class="PreProc">var</span> curr/<span class="Constant">edx</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> index visible, curr-offset +<span id="L900" class="LineNr"> 900 </span> <span class="PreProc">var</span> curr-visible?/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> get curr, visible? +<span id="L901" class="LineNr"> 901 </span> compare *curr-visible?, <span class="Constant">0</span>/false +<span id="L902" class="LineNr"> 902 </span> <span class="Delimiter">{</span> +<span id="L903" class="LineNr"> 903 </span> <span class="PreProc">break-if-!=</span> +<span id="L904" class="LineNr"> 904 </span> <span class="muComment"># empty slot found</span> +<span id="L905" class="LineNr"> 905 </span> copy-object line, curr +<span id="L906" class="LineNr"> 906 </span> <span class="PreProc">return</span> +<span id="L907" class="LineNr"> 907 </span> <span class="Delimiter">}</span> +<span id="L908" class="LineNr"> 908 </span> i <span class="Special"><-</span> increment +<span id="L909" class="LineNr"> 909 </span> <span class="PreProc">loop</span> +<span id="L910" class="LineNr"> 910 </span> <span class="Delimiter">}</span> +<span id="L911" class="LineNr"> 911 </span> <a href='../317abort.subx.html#L5'>abort</a> <span class="Constant">"too many visible lines; increase size of array trace.visible"</span> +<span id="L912" class="LineNr"> 912 </span><span class="Delimiter">}</span> +<span id="L913" class="LineNr"> 913 </span> +<span id="L914" class="LineNr"> 914 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L914'>hide-trace-line</a></span> _self: (addr trace), line: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Delimiter">{</span> +<span id="L915" class="LineNr"> 915 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> copy _self +<span id="L916" class="LineNr"> 916 </span> <span class="PreProc">var</span> visible-ah/<span class="Constant">eax</span>: (addr handle array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> get self, visible +<span id="L917" class="LineNr"> 917 </span> <span class="PreProc">var</span> visible/<span class="Constant">eax</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L223'>lookup</a> *visible-ah +<span id="L918" class="LineNr"> 918 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L919" class="LineNr"> 919 </span> <span class="PreProc">var</span> len/<span class="Constant">edx</span>: int <span class="Special"><-</span> length visible +<span id="L920" class="LineNr"> 920 </span> <span class="Delimiter">{</span> +<span id="L921" class="LineNr"> 921 </span> compare i, len +<span id="L922" class="LineNr"> 922 </span> <span class="PreProc">break-if->=</span> +<span id="L923" class="LineNr"> 923 </span> <span class="PreProc">var</span> curr-offset/<span class="Constant">edx</span>: (offset <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> compute-offset visible, i +<span id="L924" class="LineNr"> 924 </span> <span class="PreProc">var</span> curr/<span class="Constant">edx</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> index visible, curr-offset +<span id="L925" class="LineNr"> 925 </span> <span class="PreProc">var</span> found?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='trace.mu.html#L251'>trace-lines-equal?</a> curr, line +<span id="L926" class="LineNr"> 926 </span> compare found?, <span class="Constant">0</span>/false +<span id="L927" class="LineNr"> 927 </span> <span class="Delimiter">{</span> +<span id="L928" class="LineNr"> 928 </span> <span class="PreProc">break-if-=</span> +<span id="L929" class="LineNr"> 929 </span> clear-object curr +<span id="L930" class="LineNr"> 930 </span> <span class="Delimiter">}</span> +<span id="L931" class="LineNr"> 931 </span> i <span class="Special"><-</span> increment +<span id="L932" class="LineNr"> 932 </span> <span class="PreProc">loop</span> +<span id="L933" class="LineNr"> 933 </span> <span class="Delimiter">}</span> +<span id="L934" class="LineNr"> 934 </span><span class="Delimiter">}</span> +<span id="L935" class="LineNr"> 935 </span> +<span id="L936" class="LineNr"> 936 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L936'>test-cursor-down-and-up-within-trace</a></span> <span class="Delimiter">{</span> +<span id="L937" class="LineNr"> 937 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L938" class="LineNr"> 938 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L939" class="LineNr"> 939 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L940" class="LineNr"> 940 </span> <span class="muComment">#</span> +<span id="L941" class="LineNr"> 941 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> +<span id="L942" class="LineNr"> 942 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> t, <span class="Constant">"error"</span> +<span id="L943" class="LineNr"> 943 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 3"</span> +<span id="L944" class="LineNr"> 944 </span> <span class="muComment"># setup: screen</span> +<span id="L945" class="LineNr"> 945 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L946" class="LineNr"> 946 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L947" class="LineNr"> 947 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0xa</span>/width, <span class="Constant">4</span>/height, <span class="Constant">0</span>/no-pixel-graphics +<span id="L948" class="LineNr"> 948 </span> <span class="muComment">#</span> +<span id="L949" class="LineNr"> 949 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0xa</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L950" class="LineNr"> 950 </span> <span class="muComment">#</span> +<span id="L951" class="LineNr"> 951 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L936'>test-cursor-down-and-up-within-trace</a>/pre-0"</span> +<span id="L952" class="LineNr"> 952 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L936'>test-cursor-down-and-up-within-trace</a>/pre-0/cursor"</span> +<span id="L953" class="LineNr"> 953 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"error "</span>, <span class="Constant">"F - <a href='trace.mu.html#L936'>test-cursor-down-and-up-within-trace</a>/pre-1"</span> +<span id="L954" class="LineNr"> 954 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L936'>test-cursor-down-and-up-within-trace</a>/pre-1/cursor"</span> +<span id="L955" class="LineNr"> 955 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L936'>test-cursor-down-and-up-within-trace</a>/pre-2"</span> +<span id="L956" class="LineNr"> 956 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L936'>test-cursor-down-and-up-within-trace</a>/pre-2/cursor"</span> +<span id="L957" class="LineNr"> 957 </span> <span class="muComment"># cursor down</span> +<span id="L958" class="LineNr"> 958 </span> <a href='trace.mu.html#L735'>edit-trace</a> t, <span class="Constant">0x6a</span>/j +<span id="L959" class="LineNr"> 959 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0xa</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor <span id="L960" class="LineNr"> 960 </span> <span class="muComment">#</span> -<span id="L961" class="LineNr"> 961 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0xa</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L962" class="LineNr"> 962 </span> <span class="muComment">#</span> -<span id="L963" class="LineNr"> 963 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L948'>test-cursor-down-past-bottom-of-trace</a>/pre-0"</span> -<span id="L964" class="LineNr"> 964 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L948'>test-cursor-down-past-bottom-of-trace</a>/pre-0/cursor"</span> -<span id="L965" class="LineNr"> 965 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"error "</span>, <span class="Constant">"F - <a href='trace.mu.html#L948'>test-cursor-down-past-bottom-of-trace</a>/pre-1"</span> -<span id="L966" class="LineNr"> 966 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L948'>test-cursor-down-past-bottom-of-trace</a>/pre-1/cursor"</span> -<span id="L967" class="LineNr"> 967 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L948'>test-cursor-down-past-bottom-of-trace</a>/pre-2"</span> -<span id="L968" class="LineNr"> 968 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L948'>test-cursor-down-past-bottom-of-trace</a>/pre-2/cursor"</span> -<span id="L969" class="LineNr"> 969 </span> <span class="muComment"># cursor down several times</span> -<span id="L970" class="LineNr"> 970 </span> <a href='trace.mu.html#L704'>edit-trace</a> t, <span class="Constant">0x6a</span>/j -<span id="L971" class="LineNr"> 971 </span> <a href='trace.mu.html#L704'>edit-trace</a> t, <span class="Constant">0x6a</span>/j -<span id="L972" class="LineNr"> 972 </span> <a href='trace.mu.html#L704'>edit-trace</a> t, <span class="Constant">0x6a</span>/j -<span id="L973" class="LineNr"> 973 </span> <a href='trace.mu.html#L704'>edit-trace</a> t, <span class="Constant">0x6a</span>/j -<span id="L974" class="LineNr"> 974 </span> <a href='trace.mu.html#L704'>edit-trace</a> t, <span class="Constant">0x6a</span>/j -<span id="L975" class="LineNr"> 975 </span> <span class="muComment"># hack: we do need to render to make this test pass; we're mixing state management with rendering</span> -<span id="L976" class="LineNr"> 976 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0xa</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L977" class="LineNr"> 977 </span> <span class="muComment"># cursor clamps at bottom</span> -<span id="L978" class="LineNr"> 978 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L948'>test-cursor-down-past-bottom-of-trace</a>/down-0"</span> -<span id="L979" class="LineNr"> 979 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L948'>test-cursor-down-past-bottom-of-trace</a>/down-0/cursor"</span> -<span id="L980" class="LineNr"> 980 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"error "</span>, <span class="Constant">"F - <a href='trace.mu.html#L948'>test-cursor-down-past-bottom-of-trace</a>/down-1"</span> -<span id="L981" class="LineNr"> 981 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L948'>test-cursor-down-past-bottom-of-trace</a>/down-1/cursor"</span> -<span id="L982" class="LineNr"> 982 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L948'>test-cursor-down-past-bottom-of-trace</a>/down-2"</span> -<span id="L983" class="LineNr"> 983 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L948'>test-cursor-down-past-bottom-of-trace</a>/down-2/cursor"</span> -<span id="L984" class="LineNr"> 984 </span><span class="Delimiter">}</span> -<span id="L985" class="LineNr"> 985 </span> -<span id="L986" class="LineNr"> 986 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L986'>test-expand-within-trace</a></span> <span class="Delimiter">{</span> -<span id="L987" class="LineNr"> 987 </span> <span class="PreProc">var</span> t-storage: trace -<span id="L988" class="LineNr"> 988 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage -<span id="L989" class="LineNr"> 989 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> -<span id="L990" class="LineNr"> 990 </span> <span class="muComment">#</span> -<span id="L991" class="LineNr"> 991 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> -<span id="L992" class="LineNr"> 992 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2"</span> -<span id="L993" class="LineNr"> 993 </span> <span class="muComment"># setup: screen</span> -<span id="L994" class="LineNr"> 994 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L995" class="LineNr"> 995 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack -<span id="L996" class="LineNr"> 996 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x10</span>/width, <span class="Constant">4</span>/height, <span class="Constant">0</span>/no-pixel-graphics -<span id="L997" class="LineNr"> 997 </span> <span class="muComment">#</span> -<span id="L998" class="LineNr"> 998 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L999" class="LineNr"> 999 </span> <span class="muComment">#</span> -<span id="L1000" class="LineNr">1000 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L986'>test-expand-within-trace</a>/pre-0"</span> -<span id="L1001" class="LineNr">1001 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L986'>test-expand-within-trace</a>/pre-0/cursor"</span> -<span id="L1002" class="LineNr">1002 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L986'>test-expand-within-trace</a>/pre-1"</span> -<span id="L1003" class="LineNr">1003 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L986'>test-expand-within-trace</a>/pre-1/cursor"</span> -<span id="L1004" class="LineNr">1004 </span> <span class="muComment"># expand</span> -<span id="L1005" class="LineNr">1005 </span> <a href='trace.mu.html#L704'>edit-trace</a> t, <span class="Constant">0xa</span>/enter -<span id="L1006" class="LineNr">1006 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L1007" class="LineNr">1007 </span> <span class="muComment">#</span> -<span id="L1008" class="LineNr">1008 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L986'>test-expand-within-trace</a>/expand-0"</span> -<span id="L1009" class="LineNr">1009 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L986'>test-expand-within-trace</a>/expand-0/cursor"</span> -<span id="L1010" class="LineNr">1010 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L986'>test-expand-within-trace</a>/expand-1"</span> -<span id="L1011" class="LineNr">1011 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L986'>test-expand-within-trace</a>/expand-1/cursor"</span> -<span id="L1012" class="LineNr">1012 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L986'>test-expand-within-trace</a>/expand-2"</span> -<span id="L1013" class="LineNr">1013 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L986'>test-expand-within-trace</a>/expand-2/cursor"</span> -<span id="L1014" class="LineNr">1014 </span><span class="Delimiter">}</span> -<span id="L1015" class="LineNr">1015 </span> -<span id="L1016" class="LineNr">1016 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L1016'>test-trace-expand-skips-lower-depth</a></span> <span class="Delimiter">{</span> -<span id="L1017" class="LineNr">1017 </span> <span class="PreProc">var</span> t-storage: trace -<span id="L1018" class="LineNr">1018 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage -<span id="L1019" class="LineNr">1019 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> -<span id="L1020" class="LineNr">1020 </span> <span class="muComment">#</span> -<span id="L1021" class="LineNr">1021 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> -<span id="L1022" class="LineNr">1022 </span> <a href='trace.mu.html#L147'>trace-lower</a> t +<span id="L961" class="LineNr"> 961 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L936'>test-cursor-down-and-up-within-trace</a>/down-0"</span> +<span id="L962" class="LineNr"> 962 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L936'>test-cursor-down-and-up-within-trace</a>/down-0/cursor"</span> +<span id="L963" class="LineNr"> 963 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"error "</span>, <span class="Constant">"F - <a href='trace.mu.html#L936'>test-cursor-down-and-up-within-trace</a>/down-1"</span> +<span id="L964" class="LineNr"> 964 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">"||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L936'>test-cursor-down-and-up-within-trace</a>/down-1/cursor"</span> +<span id="L965" class="LineNr"> 965 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L936'>test-cursor-down-and-up-within-trace</a>/down-2"</span> +<span id="L966" class="LineNr"> 966 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L936'>test-cursor-down-and-up-within-trace</a>/down-2/cursor"</span> +<span id="L967" class="LineNr"> 967 </span> <span class="muComment"># cursor up</span> +<span id="L968" class="LineNr"> 968 </span> <a href='trace.mu.html#L735'>edit-trace</a> t, <span class="Constant">0x6b</span>/k +<span id="L969" class="LineNr"> 969 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0xa</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L970" class="LineNr"> 970 </span> <span class="muComment">#</span> +<span id="L971" class="LineNr"> 971 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L936'>test-cursor-down-and-up-within-trace</a>/up-0"</span> +<span id="L972" class="LineNr"> 972 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L936'>test-cursor-down-and-up-within-trace</a>/up-0/cursor"</span> +<span id="L973" class="LineNr"> 973 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"error "</span>, <span class="Constant">"F - <a href='trace.mu.html#L936'>test-cursor-down-and-up-within-trace</a>/up-1"</span> +<span id="L974" class="LineNr"> 974 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L936'>test-cursor-down-and-up-within-trace</a>/up-1/cursor"</span> +<span id="L975" class="LineNr"> 975 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L936'>test-cursor-down-and-up-within-trace</a>/up-2"</span> +<span id="L976" class="LineNr"> 976 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L936'>test-cursor-down-and-up-within-trace</a>/up-2/cursor"</span> +<span id="L977" class="LineNr"> 977 </span><span class="Delimiter">}</span> +<span id="L978" class="LineNr"> 978 </span> +<span id="L979" class="LineNr"> 979 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L979'>test-cursor-down-past-bottom-of-trace</a></span> <span class="Delimiter">{</span> +<span id="L980" class="LineNr"> 980 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L981" class="LineNr"> 981 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L982" class="LineNr"> 982 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L983" class="LineNr"> 983 </span> <span class="muComment">#</span> +<span id="L984" class="LineNr"> 984 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> +<span id="L985" class="LineNr"> 985 </span> <span class="Special"><a href='trace.mu.html#L129'>error</a></span> t, <span class="Constant">"error"</span> +<span id="L986" class="LineNr"> 986 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 3"</span> +<span id="L987" class="LineNr"> 987 </span> <span class="muComment"># setup: screen</span> +<span id="L988" class="LineNr"> 988 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L989" class="LineNr"> 989 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L990" class="LineNr"> 990 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0xa</span>/width, <span class="Constant">4</span>/height, <span class="Constant">0</span>/no-pixel-graphics +<span id="L991" class="LineNr"> 991 </span> <span class="muComment">#</span> +<span id="L992" class="LineNr"> 992 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0xa</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L993" class="LineNr"> 993 </span> <span class="muComment">#</span> +<span id="L994" class="LineNr"> 994 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L979'>test-cursor-down-past-bottom-of-trace</a>/pre-0"</span> +<span id="L995" class="LineNr"> 995 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L979'>test-cursor-down-past-bottom-of-trace</a>/pre-0/cursor"</span> +<span id="L996" class="LineNr"> 996 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"error "</span>, <span class="Constant">"F - <a href='trace.mu.html#L979'>test-cursor-down-past-bottom-of-trace</a>/pre-1"</span> +<span id="L997" class="LineNr"> 997 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L979'>test-cursor-down-past-bottom-of-trace</a>/pre-1/cursor"</span> +<span id="L998" class="LineNr"> 998 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L979'>test-cursor-down-past-bottom-of-trace</a>/pre-2"</span> +<span id="L999" class="LineNr"> 999 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L979'>test-cursor-down-past-bottom-of-trace</a>/pre-2/cursor"</span> +<span id="L1000" class="LineNr">1000 </span> <span class="muComment"># cursor down several times</span> +<span id="L1001" class="LineNr">1001 </span> <a href='trace.mu.html#L735'>edit-trace</a> t, <span class="Constant">0x6a</span>/j +<span id="L1002" class="LineNr">1002 </span> <a href='trace.mu.html#L735'>edit-trace</a> t, <span class="Constant">0x6a</span>/j +<span id="L1003" class="LineNr">1003 </span> <a href='trace.mu.html#L735'>edit-trace</a> t, <span class="Constant">0x6a</span>/j +<span id="L1004" class="LineNr">1004 </span> <a href='trace.mu.html#L735'>edit-trace</a> t, <span class="Constant">0x6a</span>/j +<span id="L1005" class="LineNr">1005 </span> <a href='trace.mu.html#L735'>edit-trace</a> t, <span class="Constant">0x6a</span>/j +<span id="L1006" class="LineNr">1006 </span> <span class="muComment"># hack: we do need to render to make this test pass; we're mixing state management with rendering</span> +<span id="L1007" class="LineNr">1007 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0xa</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1008" class="LineNr">1008 </span> <span class="muComment"># cursor clamps at bottom</span> +<span id="L1009" class="LineNr">1009 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L979'>test-cursor-down-past-bottom-of-trace</a>/down-0"</span> +<span id="L1010" class="LineNr">1010 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L979'>test-cursor-down-past-bottom-of-trace</a>/down-0/cursor"</span> +<span id="L1011" class="LineNr">1011 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"error "</span>, <span class="Constant">"F - <a href='trace.mu.html#L979'>test-cursor-down-past-bottom-of-trace</a>/down-1"</span> +<span id="L1012" class="LineNr">1012 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L979'>test-cursor-down-past-bottom-of-trace</a>/down-1/cursor"</span> +<span id="L1013" class="LineNr">1013 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L979'>test-cursor-down-past-bottom-of-trace</a>/down-2"</span> +<span id="L1014" class="LineNr">1014 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L979'>test-cursor-down-past-bottom-of-trace</a>/down-2/cursor"</span> +<span id="L1015" class="LineNr">1015 </span><span class="Delimiter">}</span> +<span id="L1016" class="LineNr">1016 </span> +<span id="L1017" class="LineNr">1017 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L1017'>test-expand-within-trace</a></span> <span class="Delimiter">{</span> +<span id="L1018" class="LineNr">1018 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L1019" class="LineNr">1019 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L1020" class="LineNr">1020 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L1021" class="LineNr">1021 </span> <span class="muComment">#</span> +<span id="L1022" class="LineNr">1022 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> <span id="L1023" class="LineNr">1023 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2"</span> <span id="L1024" class="LineNr">1024 </span> <span class="muComment"># setup: screen</span> <span id="L1025" class="LineNr">1025 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> <span id="L1026" class="LineNr">1026 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack <span id="L1027" class="LineNr">1027 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x10</span>/width, <span class="Constant">4</span>/height, <span class="Constant">0</span>/no-pixel-graphics <span id="L1028" class="LineNr">1028 </span> <span class="muComment">#</span> -<span id="L1029" class="LineNr">1029 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1029" class="LineNr">1029 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor <span id="L1030" class="LineNr">1030 </span> <span class="muComment">#</span> -<span id="L1031" class="LineNr">1031 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1016'>test-trace-expand-skips-lower-depth</a>/pre-0"</span> -<span id="L1032" class="LineNr">1032 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1016'>test-trace-expand-skips-lower-depth</a>/pre-0/cursor"</span> -<span id="L1033" class="LineNr">1033 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1016'>test-trace-expand-skips-lower-depth</a>/pre-1"</span> -<span id="L1034" class="LineNr">1034 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1016'>test-trace-expand-skips-lower-depth</a>/pre-1/cursor"</span> +<span id="L1031" class="LineNr">1031 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1017'>test-expand-within-trace</a>/pre-0"</span> +<span id="L1032" class="LineNr">1032 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1017'>test-expand-within-trace</a>/pre-0/cursor"</span> +<span id="L1033" class="LineNr">1033 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1017'>test-expand-within-trace</a>/pre-1"</span> +<span id="L1034" class="LineNr">1034 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1017'>test-expand-within-trace</a>/pre-1/cursor"</span> <span id="L1035" class="LineNr">1035 </span> <span class="muComment"># expand</span> -<span id="L1036" class="LineNr">1036 </span> <a href='trace.mu.html#L704'>edit-trace</a> t, <span class="Constant">0xa</span>/enter -<span id="L1037" class="LineNr">1037 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1036" class="LineNr">1036 </span> <a href='trace.mu.html#L735'>edit-trace</a> t, <span class="Constant">0xa</span>/enter +<span id="L1037" class="LineNr">1037 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor <span id="L1038" class="LineNr">1038 </span> <span class="muComment">#</span> -<span id="L1039" class="LineNr">1039 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1016'>test-trace-expand-skips-lower-depth</a>/expand-0"</span> -<span id="L1040" class="LineNr">1040 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1016'>test-trace-expand-skips-lower-depth</a>/expand-0/cursor"</span> -<span id="L1041" class="LineNr">1041 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1016'>test-trace-expand-skips-lower-depth</a>/expand-1"</span> -<span id="L1042" class="LineNr">1042 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1016'>test-trace-expand-skips-lower-depth</a>/expand-1/cursor"</span> -<span id="L1043" class="LineNr">1043 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1016'>test-trace-expand-skips-lower-depth</a>/expand-2"</span> -<span id="L1044" class="LineNr">1044 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1016'>test-trace-expand-skips-lower-depth</a>/expand-2/cursor"</span> +<span id="L1039" class="LineNr">1039 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1017'>test-expand-within-trace</a>/expand-0"</span> +<span id="L1040" class="LineNr">1040 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1017'>test-expand-within-trace</a>/expand-0/cursor"</span> +<span id="L1041" class="LineNr">1041 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1017'>test-expand-within-trace</a>/expand-1"</span> +<span id="L1042" class="LineNr">1042 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1017'>test-expand-within-trace</a>/expand-1/cursor"</span> +<span id="L1043" class="LineNr">1043 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1017'>test-expand-within-trace</a>/expand-2"</span> +<span id="L1044" class="LineNr">1044 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1017'>test-expand-within-trace</a>/expand-2/cursor"</span> <span id="L1045" class="LineNr">1045 </span><span class="Delimiter">}</span> <span id="L1046" class="LineNr">1046 </span> -<span id="L1047" class="LineNr">1047 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L1047'>test-trace-expand-continues-past-lower-depth</a></span> <span class="Delimiter">{</span> +<span id="L1047" class="LineNr">1047 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L1047'>test-trace-expand-skips-lower-depth</a></span> <span class="Delimiter">{</span> <span id="L1048" class="LineNr">1048 </span> <span class="PreProc">var</span> t-storage: trace <span id="L1049" class="LineNr">1049 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage <span id="L1050" class="LineNr">1050 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> <span id="L1051" class="LineNr">1051 </span> <span class="muComment">#</span> <span id="L1052" class="LineNr">1052 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> <span id="L1053" class="LineNr">1053 </span> <a href='trace.mu.html#L147'>trace-lower</a> t -<span id="L1054" class="LineNr">1054 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1.1"</span> -<span id="L1055" class="LineNr">1055 </span> <a href='trace.mu.html#L155'>trace-higher</a> t -<span id="L1056" class="LineNr">1056 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2"</span> -<span id="L1057" class="LineNr">1057 </span> <span class="muComment"># setup: screen</span> -<span id="L1058" class="LineNr">1058 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L1059" class="LineNr">1059 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack -<span id="L1060" class="LineNr">1060 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x10</span>/width, <span class="Constant">4</span>/height, <span class="Constant">0</span>/no-pixel-graphics +<span id="L1054" class="LineNr">1054 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2"</span> +<span id="L1055" class="LineNr">1055 </span> <span class="muComment"># setup: screen</span> +<span id="L1056" class="LineNr">1056 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L1057" class="LineNr">1057 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L1058" class="LineNr">1058 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x10</span>/width, <span class="Constant">4</span>/height, <span class="Constant">0</span>/no-pixel-graphics +<span id="L1059" class="LineNr">1059 </span> <span class="muComment">#</span> +<span id="L1060" class="LineNr">1060 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor <span id="L1061" class="LineNr">1061 </span> <span class="muComment">#</span> -<span id="L1062" class="LineNr">1062 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L1063" class="LineNr">1063 </span> <span class="muComment">#</span> -<span id="L1064" class="LineNr">1064 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1047'>test-trace-expand-continues-past-lower-depth</a>/pre-0"</span> -<span id="L1065" class="LineNr">1065 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1047'>test-trace-expand-continues-past-lower-depth</a>/pre-0/cursor"</span> -<span id="L1066" class="LineNr">1066 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1047'>test-trace-expand-continues-past-lower-depth</a>/pre-1"</span> -<span id="L1067" class="LineNr">1067 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1047'>test-trace-expand-continues-past-lower-depth</a>/pre-1/cursor"</span> -<span id="L1068" class="LineNr">1068 </span> <span class="muComment"># expand</span> -<span id="L1069" class="LineNr">1069 </span> <a href='trace.mu.html#L704'>edit-trace</a> t, <span class="Constant">0xa</span>/enter -<span id="L1070" class="LineNr">1070 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L1071" class="LineNr">1071 </span> <span class="muComment">#</span> -<span id="L1072" class="LineNr">1072 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1047'>test-trace-expand-continues-past-lower-depth</a>/expand-0"</span> -<span id="L1073" class="LineNr">1073 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1047'>test-trace-expand-continues-past-lower-depth</a>/expand-0/cursor"</span> -<span id="L1074" class="LineNr">1074 </span> <span class="muComment"># TODO: might be too wasteful to show every place where lines are hidden</span> -<span id="L1075" class="LineNr">1075 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1047'>test-trace-expand-continues-past-lower-depth</a>/expand-1"</span> -<span id="L1076" class="LineNr">1076 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1047'>test-trace-expand-continues-past-lower-depth</a>/expand-1/cursor"</span> -<span id="L1077" class="LineNr">1077 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1047'>test-trace-expand-continues-past-lower-depth</a>/expand-2"</span> -<span id="L1078" class="LineNr">1078 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1047'>test-trace-expand-continues-past-lower-depth</a>/expand-2/cursor"</span> -<span id="L1079" class="LineNr">1079 </span><span class="Delimiter">}</span> -<span id="L1080" class="LineNr">1080 </span> -<span id="L1081" class="LineNr">1081 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L1081'>test-trace-expand-stops-at-higher-depth</a></span> <span class="Delimiter">{</span> -<span id="L1082" class="LineNr">1082 </span> <span class="PreProc">var</span> t-storage: trace -<span id="L1083" class="LineNr">1083 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage -<span id="L1084" class="LineNr">1084 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> -<span id="L1085" class="LineNr">1085 </span> <span class="muComment">#</span> -<span id="L1086" class="LineNr">1086 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1.1"</span> -<span id="L1087" class="LineNr">1087 </span> <a href='trace.mu.html#L147'>trace-lower</a> t -<span id="L1088" class="LineNr">1088 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1.1.1"</span> -<span id="L1089" class="LineNr">1089 </span> <a href='trace.mu.html#L155'>trace-higher</a> t -<span id="L1090" class="LineNr">1090 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1.2"</span> -<span id="L1091" class="LineNr">1091 </span> <a href='trace.mu.html#L155'>trace-higher</a> t -<span id="L1092" class="LineNr">1092 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2"</span> -<span id="L1093" class="LineNr">1093 </span> <a href='trace.mu.html#L147'>trace-lower</a> t -<span id="L1094" class="LineNr">1094 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2.1"</span> -<span id="L1095" class="LineNr">1095 </span> <span class="muComment"># setup: screen</span> -<span id="L1096" class="LineNr">1096 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L1097" class="LineNr">1097 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack -<span id="L1098" class="LineNr">1098 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x10</span>/width, <span class="Constant">8</span>/height, <span class="Constant">0</span>/no-pixel-graphics -<span id="L1099" class="LineNr">1099 </span> <span class="muComment">#</span> -<span id="L1100" class="LineNr">1100 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">8</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L1101" class="LineNr">1101 </span> <span class="muComment">#</span> -<span id="L1102" class="LineNr">1102 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1081'>test-trace-expand-stops-at-higher-depth</a>/pre-0"</span> -<span id="L1103" class="LineNr">1103 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1081'>test-trace-expand-stops-at-higher-depth</a>/pre-0/cursor"</span> -<span id="L1104" class="LineNr">1104 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1081'>test-trace-expand-stops-at-higher-depth</a>/pre-1"</span> -<span id="L1105" class="LineNr">1105 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1081'>test-trace-expand-stops-at-higher-depth</a>/pre-1/cursor"</span> -<span id="L1106" class="LineNr">1106 </span> <span class="muComment"># expand</span> -<span id="L1107" class="LineNr">1107 </span> <a href='trace.mu.html#L704'>edit-trace</a> t, <span class="Constant">0xa</span>/enter -<span id="L1108" class="LineNr">1108 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">8</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L1109" class="LineNr">1109 </span> <span class="muComment">#</span> -<span id="L1110" class="LineNr">1110 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1.1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1081'>test-trace-expand-stops-at-higher-depth</a>/expand-0"</span> -<span id="L1111" class="LineNr">1111 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"|||||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1081'>test-trace-expand-stops-at-higher-depth</a>/expand-0/cursor"</span> -<span id="L1112" class="LineNr">1112 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1081'>test-trace-expand-stops-at-higher-depth</a>/expand-1"</span> -<span id="L1113" class="LineNr">1113 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1081'>test-trace-expand-stops-at-higher-depth</a>/expand-1/cursor"</span> -<span id="L1114" class="LineNr">1114 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 1.2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1081'>test-trace-expand-stops-at-higher-depth</a>/expand-2"</span> -<span id="L1115" class="LineNr">1115 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1081'>test-trace-expand-stops-at-higher-depth</a>/expand-2/cursor"</span> -<span id="L1116" class="LineNr">1116 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">3</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1081'>test-trace-expand-stops-at-higher-depth</a>/expand-3"</span> -<span id="L1117" class="LineNr">1117 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">3</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1081'>test-trace-expand-stops-at-higher-depth</a>/expand-3/cursor"</span> -<span id="L1118" class="LineNr">1118 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">4</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1081'>test-trace-expand-stops-at-higher-depth</a>/expand-4"</span> -<span id="L1119" class="LineNr">1119 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">4</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1081'>test-trace-expand-stops-at-higher-depth</a>/expand-4/cursor"</span> -<span id="L1120" class="LineNr">1120 </span><span class="Delimiter">}</span> -<span id="L1121" class="LineNr">1121 </span> -<span id="L1122" class="LineNr">1122 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L1122'>test-trace-expand-twice</a></span> <span class="Delimiter">{</span> -<span id="L1123" class="LineNr">1123 </span> <span class="PreProc">var</span> t-storage: trace -<span id="L1124" class="LineNr">1124 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage -<span id="L1125" class="LineNr">1125 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> -<span id="L1126" class="LineNr">1126 </span> <span class="muComment">#</span> -<span id="L1127" class="LineNr">1127 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> -<span id="L1128" class="LineNr">1128 </span> <a href='trace.mu.html#L147'>trace-lower</a> t -<span id="L1129" class="LineNr">1129 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1.1"</span> -<span id="L1130" class="LineNr">1130 </span> <a href='trace.mu.html#L155'>trace-higher</a> t -<span id="L1131" class="LineNr">1131 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2"</span> -<span id="L1132" class="LineNr">1132 </span> <span class="muComment"># setup: screen</span> -<span id="L1133" class="LineNr">1133 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L1134" class="LineNr">1134 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack -<span id="L1135" class="LineNr">1135 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x10</span>/width, <span class="Constant">4</span>/height, <span class="Constant">0</span>/no-pixel-graphics -<span id="L1136" class="LineNr">1136 </span> <span class="muComment">#</span> -<span id="L1137" class="LineNr">1137 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L1138" class="LineNr">1138 </span> <span class="muComment">#</span> -<span id="L1139" class="LineNr">1139 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1122'>test-trace-expand-twice</a>/pre-0"</span> -<span id="L1140" class="LineNr">1140 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1122'>test-trace-expand-twice</a>/pre-0/cursor"</span> -<span id="L1141" class="LineNr">1141 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1122'>test-trace-expand-twice</a>/pre-1"</span> -<span id="L1142" class="LineNr">1142 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1122'>test-trace-expand-twice</a>/pre-1/cursor"</span> -<span id="L1143" class="LineNr">1143 </span> <span class="muComment"># expand</span> -<span id="L1144" class="LineNr">1144 </span> <a href='trace.mu.html#L704'>edit-trace</a> t, <span class="Constant">0xa</span>/enter -<span id="L1145" class="LineNr">1145 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L1146" class="LineNr">1146 </span> <span class="muComment">#</span> -<span id="L1147" class="LineNr">1147 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1122'>test-trace-expand-twice</a>/expand-0"</span> -<span id="L1148" class="LineNr">1148 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1122'>test-trace-expand-twice</a>/expand-0/cursor"</span> -<span id="L1149" class="LineNr">1149 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1122'>test-trace-expand-twice</a>/expand-1"</span> -<span id="L1150" class="LineNr">1150 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1122'>test-trace-expand-twice</a>/expand-1/cursor"</span> -<span id="L1151" class="LineNr">1151 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1122'>test-trace-expand-twice</a>/expand-2"</span> -<span id="L1152" class="LineNr">1152 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1122'>test-trace-expand-twice</a>/expand-2/cursor"</span> -<span id="L1153" class="LineNr">1153 </span> <span class="muComment"># cursor down</span> -<span id="L1154" class="LineNr">1154 </span> <a href='trace.mu.html#L704'>edit-trace</a> t, <span class="Constant">0x6a</span>/j -<span id="L1155" class="LineNr">1155 </span> <span class="muComment"># hack: we need to render here to make this test pass; we're mixing state management with rendering</span> -<span id="L1156" class="LineNr">1156 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1062" class="LineNr">1062 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1047'>test-trace-expand-skips-lower-depth</a>/pre-0"</span> +<span id="L1063" class="LineNr">1063 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1047'>test-trace-expand-skips-lower-depth</a>/pre-0/cursor"</span> +<span id="L1064" class="LineNr">1064 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1047'>test-trace-expand-skips-lower-depth</a>/pre-1"</span> +<span id="L1065" class="LineNr">1065 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1047'>test-trace-expand-skips-lower-depth</a>/pre-1/cursor"</span> +<span id="L1066" class="LineNr">1066 </span> <span class="muComment"># expand</span> +<span id="L1067" class="LineNr">1067 </span> <a href='trace.mu.html#L735'>edit-trace</a> t, <span class="Constant">0xa</span>/enter +<span id="L1068" class="LineNr">1068 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1069" class="LineNr">1069 </span> <span class="muComment">#</span> +<span id="L1070" class="LineNr">1070 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1047'>test-trace-expand-skips-lower-depth</a>/expand-0"</span> +<span id="L1071" class="LineNr">1071 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1047'>test-trace-expand-skips-lower-depth</a>/expand-0/cursor"</span> +<span id="L1072" class="LineNr">1072 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1047'>test-trace-expand-skips-lower-depth</a>/expand-1"</span> +<span id="L1073" class="LineNr">1073 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1047'>test-trace-expand-skips-lower-depth</a>/expand-1/cursor"</span> +<span id="L1074" class="LineNr">1074 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1047'>test-trace-expand-skips-lower-depth</a>/expand-2"</span> +<span id="L1075" class="LineNr">1075 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1047'>test-trace-expand-skips-lower-depth</a>/expand-2/cursor"</span> +<span id="L1076" class="LineNr">1076 </span><span class="Delimiter">}</span> +<span id="L1077" class="LineNr">1077 </span> +<span id="L1078" class="LineNr">1078 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L1078'>test-trace-expand-continues-past-lower-depth</a></span> <span class="Delimiter">{</span> +<span id="L1079" class="LineNr">1079 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L1080" class="LineNr">1080 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L1081" class="LineNr">1081 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L1082" class="LineNr">1082 </span> <span class="muComment">#</span> +<span id="L1083" class="LineNr">1083 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> +<span id="L1084" class="LineNr">1084 </span> <a href='trace.mu.html#L147'>trace-lower</a> t +<span id="L1085" class="LineNr">1085 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1.1"</span> +<span id="L1086" class="LineNr">1086 </span> <a href='trace.mu.html#L155'>trace-higher</a> t +<span id="L1087" class="LineNr">1087 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2"</span> +<span id="L1088" class="LineNr">1088 </span> <span class="muComment"># setup: screen</span> +<span id="L1089" class="LineNr">1089 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L1090" class="LineNr">1090 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L1091" class="LineNr">1091 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x10</span>/width, <span class="Constant">4</span>/height, <span class="Constant">0</span>/no-pixel-graphics +<span id="L1092" class="LineNr">1092 </span> <span class="muComment">#</span> +<span id="L1093" class="LineNr">1093 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1094" class="LineNr">1094 </span> <span class="muComment">#</span> +<span id="L1095" class="LineNr">1095 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1078'>test-trace-expand-continues-past-lower-depth</a>/pre-0"</span> +<span id="L1096" class="LineNr">1096 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1078'>test-trace-expand-continues-past-lower-depth</a>/pre-0/cursor"</span> +<span id="L1097" class="LineNr">1097 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1078'>test-trace-expand-continues-past-lower-depth</a>/pre-1"</span> +<span id="L1098" class="LineNr">1098 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1078'>test-trace-expand-continues-past-lower-depth</a>/pre-1/cursor"</span> +<span id="L1099" class="LineNr">1099 </span> <span class="muComment"># expand</span> +<span id="L1100" class="LineNr">1100 </span> <a href='trace.mu.html#L735'>edit-trace</a> t, <span class="Constant">0xa</span>/enter +<span id="L1101" class="LineNr">1101 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1102" class="LineNr">1102 </span> <span class="muComment">#</span> +<span id="L1103" class="LineNr">1103 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1078'>test-trace-expand-continues-past-lower-depth</a>/expand-0"</span> +<span id="L1104" class="LineNr">1104 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1078'>test-trace-expand-continues-past-lower-depth</a>/expand-0/cursor"</span> +<span id="L1105" class="LineNr">1105 </span> <span class="muComment"># TODO: might be too wasteful to show every place where lines are hidden</span> +<span id="L1106" class="LineNr">1106 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1078'>test-trace-expand-continues-past-lower-depth</a>/expand-1"</span> +<span id="L1107" class="LineNr">1107 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1078'>test-trace-expand-continues-past-lower-depth</a>/expand-1/cursor"</span> +<span id="L1108" class="LineNr">1108 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1078'>test-trace-expand-continues-past-lower-depth</a>/expand-2"</span> +<span id="L1109" class="LineNr">1109 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1078'>test-trace-expand-continues-past-lower-depth</a>/expand-2/cursor"</span> +<span id="L1110" class="LineNr">1110 </span><span class="Delimiter">}</span> +<span id="L1111" class="LineNr">1111 </span> +<span id="L1112" class="LineNr">1112 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L1112'>test-trace-expand-stops-at-higher-depth</a></span> <span class="Delimiter">{</span> +<span id="L1113" class="LineNr">1113 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L1114" class="LineNr">1114 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L1115" class="LineNr">1115 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L1116" class="LineNr">1116 </span> <span class="muComment">#</span> +<span id="L1117" class="LineNr">1117 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1.1"</span> +<span id="L1118" class="LineNr">1118 </span> <a href='trace.mu.html#L147'>trace-lower</a> t +<span id="L1119" class="LineNr">1119 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1.1.1"</span> +<span id="L1120" class="LineNr">1120 </span> <a href='trace.mu.html#L155'>trace-higher</a> t +<span id="L1121" class="LineNr">1121 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1.2"</span> +<span id="L1122" class="LineNr">1122 </span> <a href='trace.mu.html#L155'>trace-higher</a> t +<span id="L1123" class="LineNr">1123 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2"</span> +<span id="L1124" class="LineNr">1124 </span> <a href='trace.mu.html#L147'>trace-lower</a> t +<span id="L1125" class="LineNr">1125 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2.1"</span> +<span id="L1126" class="LineNr">1126 </span> <span class="muComment"># setup: screen</span> +<span id="L1127" class="LineNr">1127 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L1128" class="LineNr">1128 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L1129" class="LineNr">1129 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x10</span>/width, <span class="Constant">8</span>/height, <span class="Constant">0</span>/no-pixel-graphics +<span id="L1130" class="LineNr">1130 </span> <span class="muComment">#</span> +<span id="L1131" class="LineNr">1131 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">8</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1132" class="LineNr">1132 </span> <span class="muComment">#</span> +<span id="L1133" class="LineNr">1133 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1112'>test-trace-expand-stops-at-higher-depth</a>/pre-0"</span> +<span id="L1134" class="LineNr">1134 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1112'>test-trace-expand-stops-at-higher-depth</a>/pre-0/cursor"</span> +<span id="L1135" class="LineNr">1135 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1112'>test-trace-expand-stops-at-higher-depth</a>/pre-1"</span> +<span id="L1136" class="LineNr">1136 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1112'>test-trace-expand-stops-at-higher-depth</a>/pre-1/cursor"</span> +<span id="L1137" class="LineNr">1137 </span> <span class="muComment"># expand</span> +<span id="L1138" class="LineNr">1138 </span> <a href='trace.mu.html#L735'>edit-trace</a> t, <span class="Constant">0xa</span>/enter +<span id="L1139" class="LineNr">1139 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">8</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1140" class="LineNr">1140 </span> <span class="muComment">#</span> +<span id="L1141" class="LineNr">1141 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1.1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1112'>test-trace-expand-stops-at-higher-depth</a>/expand-0"</span> +<span id="L1142" class="LineNr">1142 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"|||||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1112'>test-trace-expand-stops-at-higher-depth</a>/expand-0/cursor"</span> +<span id="L1143" class="LineNr">1143 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1112'>test-trace-expand-stops-at-higher-depth</a>/expand-1"</span> +<span id="L1144" class="LineNr">1144 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1112'>test-trace-expand-stops-at-higher-depth</a>/expand-1/cursor"</span> +<span id="L1145" class="LineNr">1145 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 1.2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1112'>test-trace-expand-stops-at-higher-depth</a>/expand-2"</span> +<span id="L1146" class="LineNr">1146 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1112'>test-trace-expand-stops-at-higher-depth</a>/expand-2/cursor"</span> +<span id="L1147" class="LineNr">1147 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">3</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1112'>test-trace-expand-stops-at-higher-depth</a>/expand-3"</span> +<span id="L1148" class="LineNr">1148 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">3</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1112'>test-trace-expand-stops-at-higher-depth</a>/expand-3/cursor"</span> +<span id="L1149" class="LineNr">1149 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">4</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1112'>test-trace-expand-stops-at-higher-depth</a>/expand-4"</span> +<span id="L1150" class="LineNr">1150 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">4</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1112'>test-trace-expand-stops-at-higher-depth</a>/expand-4/cursor"</span> +<span id="L1151" class="LineNr">1151 </span><span class="Delimiter">}</span> +<span id="L1152" class="LineNr">1152 </span> +<span id="L1153" class="LineNr">1153 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L1153'>test-trace-expand-twice</a></span> <span class="Delimiter">{</span> +<span id="L1154" class="LineNr">1154 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L1155" class="LineNr">1155 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L1156" class="LineNr">1156 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> <span id="L1157" class="LineNr">1157 </span> <span class="muComment">#</span> -<span id="L1158" class="LineNr">1158 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1122'>test-trace-expand-twice</a>/down-0"</span> -<span id="L1159" class="LineNr">1159 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1122'>test-trace-expand-twice</a>/down-0/cursor"</span> -<span id="L1160" class="LineNr">1160 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1122'>test-trace-expand-twice</a>/down-1"</span> -<span id="L1161" class="LineNr">1161 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1122'>test-trace-expand-twice</a>/down-1/cursor"</span> -<span id="L1162" class="LineNr">1162 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1122'>test-trace-expand-twice</a>/down-2"</span> -<span id="L1163" class="LineNr">1163 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1122'>test-trace-expand-twice</a>/down-2/cursor"</span> -<span id="L1164" class="LineNr">1164 </span> <span class="muComment"># expand again</span> -<span id="L1165" class="LineNr">1165 </span> <a href='trace.mu.html#L704'>edit-trace</a> t, <span class="Constant">0xa</span>/enter -<span id="L1166" class="LineNr">1166 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1158" class="LineNr">1158 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> +<span id="L1159" class="LineNr">1159 </span> <a href='trace.mu.html#L147'>trace-lower</a> t +<span id="L1160" class="LineNr">1160 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1.1"</span> +<span id="L1161" class="LineNr">1161 </span> <a href='trace.mu.html#L155'>trace-higher</a> t +<span id="L1162" class="LineNr">1162 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2"</span> +<span id="L1163" class="LineNr">1163 </span> <span class="muComment"># setup: screen</span> +<span id="L1164" class="LineNr">1164 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L1165" class="LineNr">1165 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L1166" class="LineNr">1166 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x10</span>/width, <span class="Constant">4</span>/height, <span class="Constant">0</span>/no-pixel-graphics <span id="L1167" class="LineNr">1167 </span> <span class="muComment">#</span> -<span id="L1168" class="LineNr">1168 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1122'>test-trace-expand-twice</a>/expand2-0"</span> -<span id="L1169" class="LineNr">1169 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1122'>test-trace-expand-twice</a>/expand2-0/cursor"</span> -<span id="L1170" class="LineNr">1170 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"1 line 1.1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1122'>test-trace-expand-twice</a>/expand2-1"</span> -<span id="L1171" class="LineNr">1171 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">"|||||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1122'>test-trace-expand-twice</a>/expand2-1/cursor"</span> -<span id="L1172" class="LineNr">1172 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1122'>test-trace-expand-twice</a>/expand2-2"</span> -<span id="L1173" class="LineNr">1173 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1122'>test-trace-expand-twice</a>/expand2-2/cursor"</span> -<span id="L1174" class="LineNr">1174 </span><span class="Delimiter">}</span> -<span id="L1175" class="LineNr">1175 </span> -<span id="L1176" class="LineNr">1176 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L1176'>test-trace-refresh-cursor</a></span> <span class="Delimiter">{</span> -<span id="L1177" class="LineNr">1177 </span> <span class="PreProc">var</span> t-storage: trace -<span id="L1178" class="LineNr">1178 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage -<span id="L1179" class="LineNr">1179 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> -<span id="L1180" class="LineNr">1180 </span> <span class="muComment">#</span> -<span id="L1181" class="LineNr">1181 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> -<span id="L1182" class="LineNr">1182 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2"</span> -<span id="L1183" class="LineNr">1183 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 3"</span> -<span id="L1184" class="LineNr">1184 </span> <span class="muComment"># setup: screen</span> -<span id="L1185" class="LineNr">1185 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L1186" class="LineNr">1186 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack -<span id="L1187" class="LineNr">1187 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x10</span>/width, <span class="Constant">4</span>/height, <span class="Constant">0</span>/no-pixel-graphics +<span id="L1168" class="LineNr">1168 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1169" class="LineNr">1169 </span> <span class="muComment">#</span> +<span id="L1170" class="LineNr">1170 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1153'>test-trace-expand-twice</a>/pre-0"</span> +<span id="L1171" class="LineNr">1171 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1153'>test-trace-expand-twice</a>/pre-0/cursor"</span> +<span id="L1172" class="LineNr">1172 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1153'>test-trace-expand-twice</a>/pre-1"</span> +<span id="L1173" class="LineNr">1173 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1153'>test-trace-expand-twice</a>/pre-1/cursor"</span> +<span id="L1174" class="LineNr">1174 </span> <span class="muComment"># expand</span> +<span id="L1175" class="LineNr">1175 </span> <a href='trace.mu.html#L735'>edit-trace</a> t, <span class="Constant">0xa</span>/enter +<span id="L1176" class="LineNr">1176 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1177" class="LineNr">1177 </span> <span class="muComment">#</span> +<span id="L1178" class="LineNr">1178 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1153'>test-trace-expand-twice</a>/expand-0"</span> +<span id="L1179" class="LineNr">1179 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1153'>test-trace-expand-twice</a>/expand-0/cursor"</span> +<span id="L1180" class="LineNr">1180 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1153'>test-trace-expand-twice</a>/expand-1"</span> +<span id="L1181" class="LineNr">1181 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1153'>test-trace-expand-twice</a>/expand-1/cursor"</span> +<span id="L1182" class="LineNr">1182 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1153'>test-trace-expand-twice</a>/expand-2"</span> +<span id="L1183" class="LineNr">1183 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1153'>test-trace-expand-twice</a>/expand-2/cursor"</span> +<span id="L1184" class="LineNr">1184 </span> <span class="muComment"># cursor down</span> +<span id="L1185" class="LineNr">1185 </span> <a href='trace.mu.html#L735'>edit-trace</a> t, <span class="Constant">0x6a</span>/j +<span id="L1186" class="LineNr">1186 </span> <span class="muComment"># hack: we need to render here to make this test pass; we're mixing state management with rendering</span> +<span id="L1187" class="LineNr">1187 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor <span id="L1188" class="LineNr">1188 </span> <span class="muComment">#</span> -<span id="L1189" class="LineNr">1189 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L1190" class="LineNr">1190 </span> <span class="muComment">#</span> -<span id="L1191" class="LineNr">1191 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1176'>test-trace-refresh-cursor</a>/pre-0"</span> -<span id="L1192" class="LineNr">1192 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1176'>test-trace-refresh-cursor</a>/pre-0/cursor"</span> -<span id="L1193" class="LineNr">1193 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1176'>test-trace-refresh-cursor</a>/pre-1"</span> -<span id="L1194" class="LineNr">1194 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1176'>test-trace-refresh-cursor</a>/pre-1/cursor"</span> -<span id="L1195" class="LineNr">1195 </span> <span class="muComment"># expand</span> -<span id="L1196" class="LineNr">1196 </span> <a href='trace.mu.html#L704'>edit-trace</a> t, <span class="Constant">0xa</span>/enter -<span id="L1197" class="LineNr">1197 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1189" class="LineNr">1189 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1153'>test-trace-expand-twice</a>/down-0"</span> +<span id="L1190" class="LineNr">1190 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1153'>test-trace-expand-twice</a>/down-0/cursor"</span> +<span id="L1191" class="LineNr">1191 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1153'>test-trace-expand-twice</a>/down-1"</span> +<span id="L1192" class="LineNr">1192 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1153'>test-trace-expand-twice</a>/down-1/cursor"</span> +<span id="L1193" class="LineNr">1193 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1153'>test-trace-expand-twice</a>/down-2"</span> +<span id="L1194" class="LineNr">1194 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1153'>test-trace-expand-twice</a>/down-2/cursor"</span> +<span id="L1195" class="LineNr">1195 </span> <span class="muComment"># expand again</span> +<span id="L1196" class="LineNr">1196 </span> <a href='trace.mu.html#L735'>edit-trace</a> t, <span class="Constant">0xa</span>/enter +<span id="L1197" class="LineNr">1197 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor <span id="L1198" class="LineNr">1198 </span> <span class="muComment">#</span> -<span id="L1199" class="LineNr">1199 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1176'>test-trace-refresh-cursor</a>/expand-0"</span> -<span id="L1200" class="LineNr">1200 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1176'>test-trace-refresh-cursor</a>/expand-0/cursor"</span> -<span id="L1201" class="LineNr">1201 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1176'>test-trace-refresh-cursor</a>/expand-1"</span> -<span id="L1202" class="LineNr">1202 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1176'>test-trace-refresh-cursor</a>/expand-1/cursor"</span> -<span id="L1203" class="LineNr">1203 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 3 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1176'>test-trace-refresh-cursor</a>/expand-2"</span> -<span id="L1204" class="LineNr">1204 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1176'>test-trace-refresh-cursor</a>/expand-2/cursor"</span> -<span id="L1205" class="LineNr">1205 </span> <span class="muComment"># cursor down</span> -<span id="L1206" class="LineNr">1206 </span> <a href='trace.mu.html#L704'>edit-trace</a> t, <span class="Constant">0x6a</span>/j -<span id="L1207" class="LineNr">1207 </span> <a href='trace.mu.html#L704'>edit-trace</a> t, <span class="Constant">0x6a</span>/j -<span id="L1208" class="LineNr">1208 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L1209" class="LineNr">1209 </span> <span class="muComment">#</span> -<span id="L1210" class="LineNr">1210 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1176'>test-trace-refresh-cursor</a>/down-0"</span> -<span id="L1211" class="LineNr">1211 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1176'>test-trace-refresh-cursor</a>/down-0/cursor"</span> -<span id="L1212" class="LineNr">1212 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1176'>test-trace-refresh-cursor</a>/down-1"</span> -<span id="L1213" class="LineNr">1213 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1176'>test-trace-refresh-cursor</a>/down-1/cursor"</span> -<span id="L1214" class="LineNr">1214 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 3 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1176'>test-trace-refresh-cursor</a>/down-2"</span> -<span id="L1215" class="LineNr">1215 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1176'>test-trace-refresh-cursor</a>/down-2/cursor"</span> -<span id="L1216" class="LineNr">1216 </span> <span class="muComment"># recreate trace</span> -<span id="L1217" class="LineNr">1217 </span> <a href='trace.mu.html#L45'>clear-trace</a> t -<span id="L1218" class="LineNr">1218 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> -<span id="L1219" class="LineNr">1219 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2"</span> -<span id="L1220" class="LineNr">1220 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 3"</span> -<span id="L1221" class="LineNr">1221 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L1222" class="LineNr">1222 </span> <span class="muComment"># cursor remains unchanged</span> -<span id="L1223" class="LineNr">1223 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1176'>test-trace-refresh-cursor</a>/refresh-0"</span> -<span id="L1224" class="LineNr">1224 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1176'>test-trace-refresh-cursor</a>/refresh-0/cursor"</span> -<span id="L1225" class="LineNr">1225 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1176'>test-trace-refresh-cursor</a>/refresh-1"</span> -<span id="L1226" class="LineNr">1226 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1176'>test-trace-refresh-cursor</a>/refresh-1/cursor"</span> -<span id="L1227" class="LineNr">1227 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 3 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1176'>test-trace-refresh-cursor</a>/refresh-2"</span> -<span id="L1228" class="LineNr">1228 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1176'>test-trace-refresh-cursor</a>/refresh-2/cursor"</span> -<span id="L1229" class="LineNr">1229 </span><span class="Delimiter">}</span> -<span id="L1230" class="LineNr">1230 </span> -<span id="L1231" class="LineNr">1231 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L1231'>test-trace-preserve-cursor-on-refresh</a></span> <span class="Delimiter">{</span> -<span id="L1232" class="LineNr">1232 </span> <span class="PreProc">var</span> t-storage: trace -<span id="L1233" class="LineNr">1233 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage -<span id="L1234" class="LineNr">1234 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> -<span id="L1235" class="LineNr">1235 </span> <span class="muComment">#</span> -<span id="L1236" class="LineNr">1236 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> -<span id="L1237" class="LineNr">1237 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2"</span> -<span id="L1238" class="LineNr">1238 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 3"</span> -<span id="L1239" class="LineNr">1239 </span> <span class="muComment"># setup: screen</span> -<span id="L1240" class="LineNr">1240 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L1241" class="LineNr">1241 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack -<span id="L1242" class="LineNr">1242 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x10</span>/width, <span class="Constant">4</span>/height, <span class="Constant">0</span>/no-pixel-graphics -<span id="L1243" class="LineNr">1243 </span> <span class="muComment">#</span> -<span id="L1244" class="LineNr">1244 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L1245" class="LineNr">1245 </span> <span class="muComment">#</span> -<span id="L1246" class="LineNr">1246 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1231'>test-trace-preserve-cursor-on-refresh</a>/pre-0"</span> -<span id="L1247" class="LineNr">1247 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1231'>test-trace-preserve-cursor-on-refresh</a>/pre-0/cursor"</span> -<span id="L1248" class="LineNr">1248 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1231'>test-trace-preserve-cursor-on-refresh</a>/pre-1"</span> -<span id="L1249" class="LineNr">1249 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1231'>test-trace-preserve-cursor-on-refresh</a>/pre-1/cursor"</span> -<span id="L1250" class="LineNr">1250 </span> <span class="muComment"># expand</span> -<span id="L1251" class="LineNr">1251 </span> <a href='trace.mu.html#L704'>edit-trace</a> t, <span class="Constant">0xa</span>/enter -<span id="L1252" class="LineNr">1252 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L1253" class="LineNr">1253 </span> <span class="muComment">#</span> -<span id="L1254" class="LineNr">1254 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1231'>test-trace-preserve-cursor-on-refresh</a>/expand-0"</span> -<span id="L1255" class="LineNr">1255 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1231'>test-trace-preserve-cursor-on-refresh</a>/expand-0/cursor"</span> -<span id="L1256" class="LineNr">1256 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1231'>test-trace-preserve-cursor-on-refresh</a>/expand-1"</span> -<span id="L1257" class="LineNr">1257 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1231'>test-trace-preserve-cursor-on-refresh</a>/expand-1/cursor"</span> -<span id="L1258" class="LineNr">1258 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 3 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1231'>test-trace-preserve-cursor-on-refresh</a>/expand-2"</span> -<span id="L1259" class="LineNr">1259 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1231'>test-trace-preserve-cursor-on-refresh</a>/expand-2/cursor"</span> -<span id="L1260" class="LineNr">1260 </span> <span class="muComment"># cursor down</span> -<span id="L1261" class="LineNr">1261 </span> <a href='trace.mu.html#L704'>edit-trace</a> t, <span class="Constant">0x6a</span>/j -<span id="L1262" class="LineNr">1262 </span> <a href='trace.mu.html#L704'>edit-trace</a> t, <span class="Constant">0x6a</span>/j -<span id="L1263" class="LineNr">1263 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L1264" class="LineNr">1264 </span> <span class="muComment">#</span> -<span id="L1265" class="LineNr">1265 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1231'>test-trace-preserve-cursor-on-refresh</a>/down-0"</span> -<span id="L1266" class="LineNr">1266 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1231'>test-trace-preserve-cursor-on-refresh</a>/down-0/cursor"</span> -<span id="L1267" class="LineNr">1267 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1231'>test-trace-preserve-cursor-on-refresh</a>/down-1"</span> -<span id="L1268" class="LineNr">1268 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1231'>test-trace-preserve-cursor-on-refresh</a>/down-1/cursor"</span> -<span id="L1269" class="LineNr">1269 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 3 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1231'>test-trace-preserve-cursor-on-refresh</a>/down-2"</span> -<span id="L1270" class="LineNr">1270 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1231'>test-trace-preserve-cursor-on-refresh</a>/down-2/cursor"</span> -<span id="L1271" class="LineNr">1271 </span> <span class="muComment"># recreate trace with slightly different lines</span> -<span id="L1272" class="LineNr">1272 </span> <a href='trace.mu.html#L45'>clear-trace</a> t -<span id="L1273" class="LineNr">1273 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 4"</span> -<span id="L1274" class="LineNr">1274 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 5"</span> -<span id="L1275" class="LineNr">1275 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 3"</span> <span class="muComment"># cursor line is unchanged</span> -<span id="L1276" class="LineNr">1276 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L1277" class="LineNr">1277 </span> <span class="muComment"># cursor remains unchanged</span> -<span id="L1278" class="LineNr">1278 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 4 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1231'>test-trace-preserve-cursor-on-refresh</a>/refresh-0"</span> -<span id="L1279" class="LineNr">1279 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1231'>test-trace-preserve-cursor-on-refresh</a>/refresh-0/cursor"</span> -<span id="L1280" class="LineNr">1280 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"0 line 5 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1231'>test-trace-preserve-cursor-on-refresh</a>/refresh-1"</span> -<span id="L1281" class="LineNr">1281 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1231'>test-trace-preserve-cursor-on-refresh</a>/refresh-1/cursor"</span> -<span id="L1282" class="LineNr">1282 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 3 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1231'>test-trace-preserve-cursor-on-refresh</a>/refresh-2"</span> -<span id="L1283" class="LineNr">1283 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1231'>test-trace-preserve-cursor-on-refresh</a>/refresh-2/cursor"</span> -<span id="L1284" class="LineNr">1284 </span><span class="Delimiter">}</span> -<span id="L1285" class="LineNr">1285 </span> -<span id="L1286" class="LineNr">1286 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L1286'>test-trace-keep-cursor-visible-on-refresh</a></span> <span class="Delimiter">{</span> -<span id="L1287" class="LineNr">1287 </span> <span class="PreProc">var</span> t-storage: trace -<span id="L1288" class="LineNr">1288 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage -<span id="L1289" class="LineNr">1289 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> -<span id="L1290" class="LineNr">1290 </span> <span class="muComment">#</span> -<span id="L1291" class="LineNr">1291 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> -<span id="L1292" class="LineNr">1292 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2"</span> -<span id="L1293" class="LineNr">1293 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 3"</span> -<span id="L1294" class="LineNr">1294 </span> <span class="muComment"># setup: screen</span> -<span id="L1295" class="LineNr">1295 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L1296" class="LineNr">1296 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack -<span id="L1297" class="LineNr">1297 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x10</span>/width, <span class="Constant">4</span>/height, <span class="Constant">0</span>/no-pixel-graphics -<span id="L1298" class="LineNr">1298 </span> <span class="muComment">#</span> -<span id="L1299" class="LineNr">1299 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L1300" class="LineNr">1300 </span> <span class="muComment">#</span> -<span id="L1301" class="LineNr">1301 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1286'>test-trace-keep-cursor-visible-on-refresh</a>/pre-0"</span> -<span id="L1302" class="LineNr">1302 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1286'>test-trace-keep-cursor-visible-on-refresh</a>/pre-0/cursor"</span> -<span id="L1303" class="LineNr">1303 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1286'>test-trace-keep-cursor-visible-on-refresh</a>/pre-1"</span> -<span id="L1304" class="LineNr">1304 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1286'>test-trace-keep-cursor-visible-on-refresh</a>/pre-1/cursor"</span> -<span id="L1305" class="LineNr">1305 </span> <span class="muComment"># expand</span> -<span id="L1306" class="LineNr">1306 </span> <a href='trace.mu.html#L704'>edit-trace</a> t, <span class="Constant">0xa</span>/enter -<span id="L1307" class="LineNr">1307 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L1308" class="LineNr">1308 </span> <span class="muComment">#</span> -<span id="L1309" class="LineNr">1309 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1286'>test-trace-keep-cursor-visible-on-refresh</a>/expand-0"</span> -<span id="L1310" class="LineNr">1310 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1286'>test-trace-keep-cursor-visible-on-refresh</a>/expand-0/cursor"</span> -<span id="L1311" class="LineNr">1311 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1286'>test-trace-keep-cursor-visible-on-refresh</a>/expand-1"</span> -<span id="L1312" class="LineNr">1312 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1286'>test-trace-keep-cursor-visible-on-refresh</a>/expand-1/cursor"</span> -<span id="L1313" class="LineNr">1313 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 3 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1286'>test-trace-keep-cursor-visible-on-refresh</a>/expand-2"</span> -<span id="L1314" class="LineNr">1314 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1286'>test-trace-keep-cursor-visible-on-refresh</a>/expand-2/cursor"</span> -<span id="L1315" class="LineNr">1315 </span> <span class="muComment"># cursor down</span> -<span id="L1316" class="LineNr">1316 </span> <a href='trace.mu.html#L704'>edit-trace</a> t, <span class="Constant">0x6a</span>/j -<span id="L1317" class="LineNr">1317 </span> <a href='trace.mu.html#L704'>edit-trace</a> t, <span class="Constant">0x6a</span>/j -<span id="L1318" class="LineNr">1318 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L1319" class="LineNr">1319 </span> <span class="muComment">#</span> -<span id="L1320" class="LineNr">1320 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1286'>test-trace-keep-cursor-visible-on-refresh</a>/down-0"</span> -<span id="L1321" class="LineNr">1321 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1286'>test-trace-keep-cursor-visible-on-refresh</a>/down-0/cursor"</span> -<span id="L1322" class="LineNr">1322 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1286'>test-trace-keep-cursor-visible-on-refresh</a>/down-1"</span> -<span id="L1323" class="LineNr">1323 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1286'>test-trace-keep-cursor-visible-on-refresh</a>/down-1/cursor"</span> -<span id="L1324" class="LineNr">1324 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 3 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1286'>test-trace-keep-cursor-visible-on-refresh</a>/down-2"</span> -<span id="L1325" class="LineNr">1325 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1286'>test-trace-keep-cursor-visible-on-refresh</a>/down-2/cursor"</span> -<span id="L1326" class="LineNr">1326 </span> <span class="muComment"># recreate trace with entirely different lines</span> -<span id="L1327" class="LineNr">1327 </span> <a href='trace.mu.html#L45'>clear-trace</a> t -<span id="L1328" class="LineNr">1328 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 4"</span> -<span id="L1329" class="LineNr">1329 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 5"</span> -<span id="L1330" class="LineNr">1330 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 6"</span> -<span id="L1331" class="LineNr">1331 </span> <a href='trace.mu.html#L314'>mark-lines-dirty</a> t -<span id="L1332" class="LineNr">1332 </span> <a href='../500fake-screen.mu.html#L230'>clear-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L1333" class="LineNr">1333 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L1334" class="LineNr">1334 </span> <span class="muComment"># trace collapses, and cursor bumps up</span> -<span id="L1335" class="LineNr">1335 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1286'>test-trace-keep-cursor-visible-on-refresh</a>/refresh-0"</span> -<span id="L1336" class="LineNr">1336 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1286'>test-trace-keep-cursor-visible-on-refresh</a>/refresh-0/cursor"</span> -<span id="L1337" class="LineNr">1337 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1286'>test-trace-keep-cursor-visible-on-refresh</a>/refresh-1"</span> -<span id="L1338" class="LineNr">1338 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1286'>test-trace-keep-cursor-visible-on-refresh</a>/refresh-1/cursor"</span> -<span id="L1339" class="LineNr">1339 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1286'>test-trace-keep-cursor-visible-on-refresh</a>/refresh-2"</span> -<span id="L1340" class="LineNr">1340 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1286'>test-trace-keep-cursor-visible-on-refresh</a>/refresh-2/cursor"</span> -<span id="L1341" class="LineNr">1341 </span><span class="Delimiter">}</span> -<span id="L1342" class="LineNr">1342 </span> -<span id="L1343" class="LineNr">1343 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L1343'>test-trace-collapse-at-top</a></span> <span class="Delimiter">{</span> -<span id="L1344" class="LineNr">1344 </span> <span class="PreProc">var</span> t-storage: trace -<span id="L1345" class="LineNr">1345 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage -<span id="L1346" class="LineNr">1346 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> -<span id="L1347" class="LineNr">1347 </span> <span class="muComment">#</span> -<span id="L1348" class="LineNr">1348 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> -<span id="L1349" class="LineNr">1349 </span> <a href='trace.mu.html#L147'>trace-lower</a> t -<span id="L1350" class="LineNr">1350 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1.1"</span> -<span id="L1351" class="LineNr">1351 </span> <a href='trace.mu.html#L155'>trace-higher</a> t -<span id="L1352" class="LineNr">1352 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2"</span> -<span id="L1353" class="LineNr">1353 </span> <span class="muComment"># setup: screen</span> -<span id="L1354" class="LineNr">1354 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L1355" class="LineNr">1355 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack -<span id="L1356" class="LineNr">1356 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x10</span>/width, <span class="Constant">4</span>/height, <span class="Constant">0</span>/no-pixel-graphics -<span id="L1357" class="LineNr">1357 </span> <span class="muComment">#</span> -<span id="L1358" class="LineNr">1358 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L1359" class="LineNr">1359 </span> <span class="muComment">#</span> -<span id="L1360" class="LineNr">1360 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1343'>test-trace-collapse-at-top</a>/pre-0"</span> -<span id="L1361" class="LineNr">1361 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1343'>test-trace-collapse-at-top</a>/pre-0/cursor"</span> -<span id="L1362" class="LineNr">1362 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1343'>test-trace-collapse-at-top</a>/pre-1"</span> -<span id="L1363" class="LineNr">1363 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1343'>test-trace-collapse-at-top</a>/pre-1/cursor"</span> -<span id="L1364" class="LineNr">1364 </span> <span class="muComment"># expand</span> -<span id="L1365" class="LineNr">1365 </span> <a href='trace.mu.html#L704'>edit-trace</a> t, <span class="Constant">0xa</span>/enter -<span id="L1366" class="LineNr">1366 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L1367" class="LineNr">1367 </span> <span class="muComment">#</span> -<span id="L1368" class="LineNr">1368 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1343'>test-trace-collapse-at-top</a>/expand-0"</span> -<span id="L1369" class="LineNr">1369 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1343'>test-trace-collapse-at-top</a>/expand-0/cursor"</span> -<span id="L1370" class="LineNr">1370 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1343'>test-trace-collapse-at-top</a>/expand-1"</span> -<span id="L1371" class="LineNr">1371 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1343'>test-trace-collapse-at-top</a>/expand-1/cursor"</span> -<span id="L1372" class="LineNr">1372 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1343'>test-trace-collapse-at-top</a>/expand-2"</span> -<span id="L1373" class="LineNr">1373 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1343'>test-trace-collapse-at-top</a>/expand-2/cursor"</span> -<span id="L1374" class="LineNr">1374 </span> <span class="muComment"># collapse</span> -<span id="L1375" class="LineNr">1375 </span> <a href='trace.mu.html#L704'>edit-trace</a> t, <span class="Constant">8</span>/backspace -<span id="L1376" class="LineNr">1376 </span> <span class="muComment"># hack: we need to render here to make this test pass; we're mixing state management with rendering</span> -<span id="L1377" class="LineNr">1377 </span> <a href='../500fake-screen.mu.html#L230'>clear-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L1378" class="LineNr">1378 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L1379" class="LineNr">1379 </span> <span class="muComment">#</span> -<span id="L1380" class="LineNr">1380 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> y, <span class="Constant">1</span>, <span class="Constant">"F - <a href='trace.mu.html#L1343'>test-trace-collapse-at-top</a>/post-0/y"</span> -<span id="L1381" class="LineNr">1381 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1343'>test-trace-collapse-at-top</a>/post-0"</span> -<span id="L1382" class="LineNr">1382 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1343'>test-trace-collapse-at-top</a>/post-0/cursor"</span> -<span id="L1383" class="LineNr">1383 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1343'>test-trace-collapse-at-top</a>/post-1"</span> -<span id="L1384" class="LineNr">1384 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1343'>test-trace-collapse-at-top</a>/post-1/cursor"</span> -<span id="L1385" class="LineNr">1385 </span><span class="Delimiter">}</span> -<span id="L1386" class="LineNr">1386 </span> -<span id="L1387" class="LineNr">1387 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L1387'>test-trace-collapse</a></span> <span class="Delimiter">{</span> -<span id="L1388" class="LineNr">1388 </span> <span class="PreProc">var</span> t-storage: trace -<span id="L1389" class="LineNr">1389 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage -<span id="L1390" class="LineNr">1390 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> -<span id="L1391" class="LineNr">1391 </span> <span class="muComment">#</span> -<span id="L1392" class="LineNr">1392 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> -<span id="L1393" class="LineNr">1393 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2"</span> -<span id="L1394" class="LineNr">1394 </span> <span class="muComment"># setup: screen</span> -<span id="L1395" class="LineNr">1395 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L1396" class="LineNr">1396 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack -<span id="L1397" class="LineNr">1397 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x10</span>/width, <span class="Constant">4</span>/height, <span class="Constant">0</span>/no-pixel-graphics +<span id="L1199" class="LineNr">1199 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1153'>test-trace-expand-twice</a>/expand2-0"</span> +<span id="L1200" class="LineNr">1200 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1153'>test-trace-expand-twice</a>/expand2-0/cursor"</span> +<span id="L1201" class="LineNr">1201 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"1 line 1.1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1153'>test-trace-expand-twice</a>/expand2-1"</span> +<span id="L1202" class="LineNr">1202 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">"|||||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1153'>test-trace-expand-twice</a>/expand2-1/cursor"</span> +<span id="L1203" class="LineNr">1203 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1153'>test-trace-expand-twice</a>/expand2-2"</span> +<span id="L1204" class="LineNr">1204 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1153'>test-trace-expand-twice</a>/expand2-2/cursor"</span> +<span id="L1205" class="LineNr">1205 </span><span class="Delimiter">}</span> +<span id="L1206" class="LineNr">1206 </span> +<span id="L1207" class="LineNr">1207 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L1207'>test-trace-refresh-cursor</a></span> <span class="Delimiter">{</span> +<span id="L1208" class="LineNr">1208 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L1209" class="LineNr">1209 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L1210" class="LineNr">1210 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L1211" class="LineNr">1211 </span> <span class="muComment">#</span> +<span id="L1212" class="LineNr">1212 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> +<span id="L1213" class="LineNr">1213 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2"</span> +<span id="L1214" class="LineNr">1214 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 3"</span> +<span id="L1215" class="LineNr">1215 </span> <span class="muComment"># setup: screen</span> +<span id="L1216" class="LineNr">1216 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L1217" class="LineNr">1217 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L1218" class="LineNr">1218 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x10</span>/width, <span class="Constant">4</span>/height, <span class="Constant">0</span>/no-pixel-graphics +<span id="L1219" class="LineNr">1219 </span> <span class="muComment">#</span> +<span id="L1220" class="LineNr">1220 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1221" class="LineNr">1221 </span> <span class="muComment">#</span> +<span id="L1222" class="LineNr">1222 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1207'>test-trace-refresh-cursor</a>/pre-0"</span> +<span id="L1223" class="LineNr">1223 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1207'>test-trace-refresh-cursor</a>/pre-0/cursor"</span> +<span id="L1224" class="LineNr">1224 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1207'>test-trace-refresh-cursor</a>/pre-1"</span> +<span id="L1225" class="LineNr">1225 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1207'>test-trace-refresh-cursor</a>/pre-1/cursor"</span> +<span id="L1226" class="LineNr">1226 </span> <span class="muComment"># expand</span> +<span id="L1227" class="LineNr">1227 </span> <a href='trace.mu.html#L735'>edit-trace</a> t, <span class="Constant">0xa</span>/enter +<span id="L1228" class="LineNr">1228 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1229" class="LineNr">1229 </span> <span class="muComment">#</span> +<span id="L1230" class="LineNr">1230 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1207'>test-trace-refresh-cursor</a>/expand-0"</span> +<span id="L1231" class="LineNr">1231 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1207'>test-trace-refresh-cursor</a>/expand-0/cursor"</span> +<span id="L1232" class="LineNr">1232 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1207'>test-trace-refresh-cursor</a>/expand-1"</span> +<span id="L1233" class="LineNr">1233 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1207'>test-trace-refresh-cursor</a>/expand-1/cursor"</span> +<span id="L1234" class="LineNr">1234 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 3 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1207'>test-trace-refresh-cursor</a>/expand-2"</span> +<span id="L1235" class="LineNr">1235 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1207'>test-trace-refresh-cursor</a>/expand-2/cursor"</span> +<span id="L1236" class="LineNr">1236 </span> <span class="muComment"># cursor down</span> +<span id="L1237" class="LineNr">1237 </span> <a href='trace.mu.html#L735'>edit-trace</a> t, <span class="Constant">0x6a</span>/j +<span id="L1238" class="LineNr">1238 </span> <a href='trace.mu.html#L735'>edit-trace</a> t, <span class="Constant">0x6a</span>/j +<span id="L1239" class="LineNr">1239 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1240" class="LineNr">1240 </span> <span class="muComment">#</span> +<span id="L1241" class="LineNr">1241 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1207'>test-trace-refresh-cursor</a>/down-0"</span> +<span id="L1242" class="LineNr">1242 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1207'>test-trace-refresh-cursor</a>/down-0/cursor"</span> +<span id="L1243" class="LineNr">1243 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1207'>test-trace-refresh-cursor</a>/down-1"</span> +<span id="L1244" class="LineNr">1244 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1207'>test-trace-refresh-cursor</a>/down-1/cursor"</span> +<span id="L1245" class="LineNr">1245 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 3 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1207'>test-trace-refresh-cursor</a>/down-2"</span> +<span id="L1246" class="LineNr">1246 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1207'>test-trace-refresh-cursor</a>/down-2/cursor"</span> +<span id="L1247" class="LineNr">1247 </span> <span class="muComment"># recreate trace</span> +<span id="L1248" class="LineNr">1248 </span> <a href='trace.mu.html#L45'>clear-trace</a> t +<span id="L1249" class="LineNr">1249 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> +<span id="L1250" class="LineNr">1250 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2"</span> +<span id="L1251" class="LineNr">1251 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 3"</span> +<span id="L1252" class="LineNr">1252 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1253" class="LineNr">1253 </span> <span class="muComment"># cursor remains unchanged</span> +<span id="L1254" class="LineNr">1254 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1207'>test-trace-refresh-cursor</a>/refresh-0"</span> +<span id="L1255" class="LineNr">1255 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1207'>test-trace-refresh-cursor</a>/refresh-0/cursor"</span> +<span id="L1256" class="LineNr">1256 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1207'>test-trace-refresh-cursor</a>/refresh-1"</span> +<span id="L1257" class="LineNr">1257 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1207'>test-trace-refresh-cursor</a>/refresh-1/cursor"</span> +<span id="L1258" class="LineNr">1258 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 3 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1207'>test-trace-refresh-cursor</a>/refresh-2"</span> +<span id="L1259" class="LineNr">1259 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1207'>test-trace-refresh-cursor</a>/refresh-2/cursor"</span> +<span id="L1260" class="LineNr">1260 </span><span class="Delimiter">}</span> +<span id="L1261" class="LineNr">1261 </span> +<span id="L1262" class="LineNr">1262 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L1262'>test-trace-preserve-cursor-on-refresh</a></span> <span class="Delimiter">{</span> +<span id="L1263" class="LineNr">1263 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L1264" class="LineNr">1264 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L1265" class="LineNr">1265 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L1266" class="LineNr">1266 </span> <span class="muComment">#</span> +<span id="L1267" class="LineNr">1267 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> +<span id="L1268" class="LineNr">1268 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2"</span> +<span id="L1269" class="LineNr">1269 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 3"</span> +<span id="L1270" class="LineNr">1270 </span> <span class="muComment"># setup: screen</span> +<span id="L1271" class="LineNr">1271 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L1272" class="LineNr">1272 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L1273" class="LineNr">1273 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x10</span>/width, <span class="Constant">4</span>/height, <span class="Constant">0</span>/no-pixel-graphics +<span id="L1274" class="LineNr">1274 </span> <span class="muComment">#</span> +<span id="L1275" class="LineNr">1275 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1276" class="LineNr">1276 </span> <span class="muComment">#</span> +<span id="L1277" class="LineNr">1277 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1262'>test-trace-preserve-cursor-on-refresh</a>/pre-0"</span> +<span id="L1278" class="LineNr">1278 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1262'>test-trace-preserve-cursor-on-refresh</a>/pre-0/cursor"</span> +<span id="L1279" class="LineNr">1279 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1262'>test-trace-preserve-cursor-on-refresh</a>/pre-1"</span> +<span id="L1280" class="LineNr">1280 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1262'>test-trace-preserve-cursor-on-refresh</a>/pre-1/cursor"</span> +<span id="L1281" class="LineNr">1281 </span> <span class="muComment"># expand</span> +<span id="L1282" class="LineNr">1282 </span> <a href='trace.mu.html#L735'>edit-trace</a> t, <span class="Constant">0xa</span>/enter +<span id="L1283" class="LineNr">1283 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1284" class="LineNr">1284 </span> <span class="muComment">#</span> +<span id="L1285" class="LineNr">1285 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1262'>test-trace-preserve-cursor-on-refresh</a>/expand-0"</span> +<span id="L1286" class="LineNr">1286 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1262'>test-trace-preserve-cursor-on-refresh</a>/expand-0/cursor"</span> +<span id="L1287" class="LineNr">1287 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1262'>test-trace-preserve-cursor-on-refresh</a>/expand-1"</span> +<span id="L1288" class="LineNr">1288 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1262'>test-trace-preserve-cursor-on-refresh</a>/expand-1/cursor"</span> +<span id="L1289" class="LineNr">1289 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 3 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1262'>test-trace-preserve-cursor-on-refresh</a>/expand-2"</span> +<span id="L1290" class="LineNr">1290 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1262'>test-trace-preserve-cursor-on-refresh</a>/expand-2/cursor"</span> +<span id="L1291" class="LineNr">1291 </span> <span class="muComment"># cursor down</span> +<span id="L1292" class="LineNr">1292 </span> <a href='trace.mu.html#L735'>edit-trace</a> t, <span class="Constant">0x6a</span>/j +<span id="L1293" class="LineNr">1293 </span> <a href='trace.mu.html#L735'>edit-trace</a> t, <span class="Constant">0x6a</span>/j +<span id="L1294" class="LineNr">1294 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1295" class="LineNr">1295 </span> <span class="muComment">#</span> +<span id="L1296" class="LineNr">1296 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1262'>test-trace-preserve-cursor-on-refresh</a>/down-0"</span> +<span id="L1297" class="LineNr">1297 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1262'>test-trace-preserve-cursor-on-refresh</a>/down-0/cursor"</span> +<span id="L1298" class="LineNr">1298 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1262'>test-trace-preserve-cursor-on-refresh</a>/down-1"</span> +<span id="L1299" class="LineNr">1299 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1262'>test-trace-preserve-cursor-on-refresh</a>/down-1/cursor"</span> +<span id="L1300" class="LineNr">1300 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 3 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1262'>test-trace-preserve-cursor-on-refresh</a>/down-2"</span> +<span id="L1301" class="LineNr">1301 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1262'>test-trace-preserve-cursor-on-refresh</a>/down-2/cursor"</span> +<span id="L1302" class="LineNr">1302 </span> <span class="muComment"># recreate trace with slightly different lines</span> +<span id="L1303" class="LineNr">1303 </span> <a href='trace.mu.html#L45'>clear-trace</a> t +<span id="L1304" class="LineNr">1304 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 4"</span> +<span id="L1305" class="LineNr">1305 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 5"</span> +<span id="L1306" class="LineNr">1306 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 3"</span> <span class="muComment"># cursor line is unchanged</span> +<span id="L1307" class="LineNr">1307 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1308" class="LineNr">1308 </span> <span class="muComment"># cursor remains unchanged</span> +<span id="L1309" class="LineNr">1309 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 4 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1262'>test-trace-preserve-cursor-on-refresh</a>/refresh-0"</span> +<span id="L1310" class="LineNr">1310 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1262'>test-trace-preserve-cursor-on-refresh</a>/refresh-0/cursor"</span> +<span id="L1311" class="LineNr">1311 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"0 line 5 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1262'>test-trace-preserve-cursor-on-refresh</a>/refresh-1"</span> +<span id="L1312" class="LineNr">1312 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1262'>test-trace-preserve-cursor-on-refresh</a>/refresh-1/cursor"</span> +<span id="L1313" class="LineNr">1313 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 3 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1262'>test-trace-preserve-cursor-on-refresh</a>/refresh-2"</span> +<span id="L1314" class="LineNr">1314 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1262'>test-trace-preserve-cursor-on-refresh</a>/refresh-2/cursor"</span> +<span id="L1315" class="LineNr">1315 </span><span class="Delimiter">}</span> +<span id="L1316" class="LineNr">1316 </span> +<span id="L1317" class="LineNr">1317 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L1317'>test-trace-keep-cursor-visible-on-refresh</a></span> <span class="Delimiter">{</span> +<span id="L1318" class="LineNr">1318 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L1319" class="LineNr">1319 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L1320" class="LineNr">1320 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L1321" class="LineNr">1321 </span> <span class="muComment">#</span> +<span id="L1322" class="LineNr">1322 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> +<span id="L1323" class="LineNr">1323 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2"</span> +<span id="L1324" class="LineNr">1324 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 3"</span> +<span id="L1325" class="LineNr">1325 </span> <span class="muComment"># setup: screen</span> +<span id="L1326" class="LineNr">1326 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L1327" class="LineNr">1327 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L1328" class="LineNr">1328 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x10</span>/width, <span class="Constant">4</span>/height, <span class="Constant">0</span>/no-pixel-graphics +<span id="L1329" class="LineNr">1329 </span> <span class="muComment">#</span> +<span id="L1330" class="LineNr">1330 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1331" class="LineNr">1331 </span> <span class="muComment">#</span> +<span id="L1332" class="LineNr">1332 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1317'>test-trace-keep-cursor-visible-on-refresh</a>/pre-0"</span> +<span id="L1333" class="LineNr">1333 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1317'>test-trace-keep-cursor-visible-on-refresh</a>/pre-0/cursor"</span> +<span id="L1334" class="LineNr">1334 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1317'>test-trace-keep-cursor-visible-on-refresh</a>/pre-1"</span> +<span id="L1335" class="LineNr">1335 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1317'>test-trace-keep-cursor-visible-on-refresh</a>/pre-1/cursor"</span> +<span id="L1336" class="LineNr">1336 </span> <span class="muComment"># expand</span> +<span id="L1337" class="LineNr">1337 </span> <a href='trace.mu.html#L735'>edit-trace</a> t, <span class="Constant">0xa</span>/enter +<span id="L1338" class="LineNr">1338 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1339" class="LineNr">1339 </span> <span class="muComment">#</span> +<span id="L1340" class="LineNr">1340 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1317'>test-trace-keep-cursor-visible-on-refresh</a>/expand-0"</span> +<span id="L1341" class="LineNr">1341 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1317'>test-trace-keep-cursor-visible-on-refresh</a>/expand-0/cursor"</span> +<span id="L1342" class="LineNr">1342 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1317'>test-trace-keep-cursor-visible-on-refresh</a>/expand-1"</span> +<span id="L1343" class="LineNr">1343 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1317'>test-trace-keep-cursor-visible-on-refresh</a>/expand-1/cursor"</span> +<span id="L1344" class="LineNr">1344 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 3 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1317'>test-trace-keep-cursor-visible-on-refresh</a>/expand-2"</span> +<span id="L1345" class="LineNr">1345 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1317'>test-trace-keep-cursor-visible-on-refresh</a>/expand-2/cursor"</span> +<span id="L1346" class="LineNr">1346 </span> <span class="muComment"># cursor down</span> +<span id="L1347" class="LineNr">1347 </span> <a href='trace.mu.html#L735'>edit-trace</a> t, <span class="Constant">0x6a</span>/j +<span id="L1348" class="LineNr">1348 </span> <a href='trace.mu.html#L735'>edit-trace</a> t, <span class="Constant">0x6a</span>/j +<span id="L1349" class="LineNr">1349 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1350" class="LineNr">1350 </span> <span class="muComment">#</span> +<span id="L1351" class="LineNr">1351 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1317'>test-trace-keep-cursor-visible-on-refresh</a>/down-0"</span> +<span id="L1352" class="LineNr">1352 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1317'>test-trace-keep-cursor-visible-on-refresh</a>/down-0/cursor"</span> +<span id="L1353" class="LineNr">1353 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1317'>test-trace-keep-cursor-visible-on-refresh</a>/down-1"</span> +<span id="L1354" class="LineNr">1354 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1317'>test-trace-keep-cursor-visible-on-refresh</a>/down-1/cursor"</span> +<span id="L1355" class="LineNr">1355 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 3 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1317'>test-trace-keep-cursor-visible-on-refresh</a>/down-2"</span> +<span id="L1356" class="LineNr">1356 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1317'>test-trace-keep-cursor-visible-on-refresh</a>/down-2/cursor"</span> +<span id="L1357" class="LineNr">1357 </span> <span class="muComment"># recreate trace with entirely different lines</span> +<span id="L1358" class="LineNr">1358 </span> <a href='trace.mu.html#L45'>clear-trace</a> t +<span id="L1359" class="LineNr">1359 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 4"</span> +<span id="L1360" class="LineNr">1360 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 5"</span> +<span id="L1361" class="LineNr">1361 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 6"</span> +<span id="L1362" class="LineNr">1362 </span> <a href='trace.mu.html#L345'>mark-lines-dirty</a> t +<span id="L1363" class="LineNr">1363 </span> <a href='../500fake-screen.mu.html#L230'>clear-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L1364" class="LineNr">1364 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1365" class="LineNr">1365 </span> <span class="muComment"># trace collapses, and cursor bumps up</span> +<span id="L1366" class="LineNr">1366 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1317'>test-trace-keep-cursor-visible-on-refresh</a>/refresh-0"</span> +<span id="L1367" class="LineNr">1367 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1317'>test-trace-keep-cursor-visible-on-refresh</a>/refresh-0/cursor"</span> +<span id="L1368" class="LineNr">1368 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1317'>test-trace-keep-cursor-visible-on-refresh</a>/refresh-1"</span> +<span id="L1369" class="LineNr">1369 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1317'>test-trace-keep-cursor-visible-on-refresh</a>/refresh-1/cursor"</span> +<span id="L1370" class="LineNr">1370 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1317'>test-trace-keep-cursor-visible-on-refresh</a>/refresh-2"</span> +<span id="L1371" class="LineNr">1371 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1317'>test-trace-keep-cursor-visible-on-refresh</a>/refresh-2/cursor"</span> +<span id="L1372" class="LineNr">1372 </span><span class="Delimiter">}</span> +<span id="L1373" class="LineNr">1373 </span> +<span id="L1374" class="LineNr">1374 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L1374'>test-trace-collapse-at-top</a></span> <span class="Delimiter">{</span> +<span id="L1375" class="LineNr">1375 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L1376" class="LineNr">1376 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L1377" class="LineNr">1377 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L1378" class="LineNr">1378 </span> <span class="muComment">#</span> +<span id="L1379" class="LineNr">1379 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> +<span id="L1380" class="LineNr">1380 </span> <a href='trace.mu.html#L147'>trace-lower</a> t +<span id="L1381" class="LineNr">1381 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1.1"</span> +<span id="L1382" class="LineNr">1382 </span> <a href='trace.mu.html#L155'>trace-higher</a> t +<span id="L1383" class="LineNr">1383 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2"</span> +<span id="L1384" class="LineNr">1384 </span> <span class="muComment"># setup: screen</span> +<span id="L1385" class="LineNr">1385 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L1386" class="LineNr">1386 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L1387" class="LineNr">1387 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x10</span>/width, <span class="Constant">4</span>/height, <span class="Constant">0</span>/no-pixel-graphics +<span id="L1388" class="LineNr">1388 </span> <span class="muComment">#</span> +<span id="L1389" class="LineNr">1389 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1390" class="LineNr">1390 </span> <span class="muComment">#</span> +<span id="L1391" class="LineNr">1391 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1374'>test-trace-collapse-at-top</a>/pre-0"</span> +<span id="L1392" class="LineNr">1392 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1374'>test-trace-collapse-at-top</a>/pre-0/cursor"</span> +<span id="L1393" class="LineNr">1393 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1374'>test-trace-collapse-at-top</a>/pre-1"</span> +<span id="L1394" class="LineNr">1394 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1374'>test-trace-collapse-at-top</a>/pre-1/cursor"</span> +<span id="L1395" class="LineNr">1395 </span> <span class="muComment"># expand</span> +<span id="L1396" class="LineNr">1396 </span> <a href='trace.mu.html#L735'>edit-trace</a> t, <span class="Constant">0xa</span>/enter +<span id="L1397" class="LineNr">1397 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor <span id="L1398" class="LineNr">1398 </span> <span class="muComment">#</span> -<span id="L1399" class="LineNr">1399 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L1400" class="LineNr">1400 </span> <span class="muComment">#</span> -<span id="L1401" class="LineNr">1401 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1387'>test-trace-collapse</a>/pre-0"</span> -<span id="L1402" class="LineNr">1402 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1387'>test-trace-collapse</a>/pre-0/cursor"</span> -<span id="L1403" class="LineNr">1403 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1387'>test-trace-collapse</a>/pre-1"</span> -<span id="L1404" class="LineNr">1404 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1387'>test-trace-collapse</a>/pre-1/cursor"</span> -<span id="L1405" class="LineNr">1405 </span> <span class="muComment"># expand</span> -<span id="L1406" class="LineNr">1406 </span> <a href='trace.mu.html#L704'>edit-trace</a> t, <span class="Constant">0xa</span>/enter -<span id="L1407" class="LineNr">1407 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L1408" class="LineNr">1408 </span> <span class="muComment">#</span> -<span id="L1409" class="LineNr">1409 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1387'>test-trace-collapse</a>/expand-0"</span> -<span id="L1410" class="LineNr">1410 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1387'>test-trace-collapse</a>/expand-0/cursor"</span> -<span id="L1411" class="LineNr">1411 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1387'>test-trace-collapse</a>/expand-1"</span> -<span id="L1412" class="LineNr">1412 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1387'>test-trace-collapse</a>/expand-1/cursor"</span> -<span id="L1413" class="LineNr">1413 </span> <span class="muComment"># cursor down</span> -<span id="L1414" class="LineNr">1414 </span> <a href='trace.mu.html#L704'>edit-trace</a> t, <span class="Constant">0x6a</span>/j -<span id="L1415" class="LineNr">1415 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L1416" class="LineNr">1416 </span> <span class="muComment"># collapse</span> -<span id="L1417" class="LineNr">1417 </span> <a href='trace.mu.html#L704'>edit-trace</a> t, <span class="Constant">8</span>/backspace -<span id="L1418" class="LineNr">1418 </span> <a href='../500fake-screen.mu.html#L230'>clear-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L1419" class="LineNr">1419 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L1420" class="LineNr">1420 </span> <span class="muComment">#</span> -<span id="L1421" class="LineNr">1421 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> y, <span class="Constant">1</span>, <span class="Constant">"F - <a href='trace.mu.html#L1387'>test-trace-collapse</a>/post-0/y"</span> -<span id="L1422" class="LineNr">1422 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1387'>test-trace-collapse</a>/post-0"</span> -<span id="L1423" class="LineNr">1423 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1387'>test-trace-collapse</a>/post-0/cursor"</span> -<span id="L1424" class="LineNr">1424 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1387'>test-trace-collapse</a>/post-1"</span> -<span id="L1425" class="LineNr">1425 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1387'>test-trace-collapse</a>/post-1/cursor"</span> -<span id="L1426" class="LineNr">1426 </span><span class="Delimiter">}</span> -<span id="L1427" class="LineNr">1427 </span> -<span id="L1428" class="LineNr">1428 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L1428'>test-trace-collapse-skips-invisible-lines</a></span> <span class="Delimiter">{</span> -<span id="L1429" class="LineNr">1429 </span> <span class="PreProc">var</span> t-storage: trace -<span id="L1430" class="LineNr">1430 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage -<span id="L1431" class="LineNr">1431 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> -<span id="L1432" class="LineNr">1432 </span> <span class="muComment">#</span> -<span id="L1433" class="LineNr">1433 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> -<span id="L1434" class="LineNr">1434 </span> <a href='trace.mu.html#L147'>trace-lower</a> t -<span id="L1435" class="LineNr">1435 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1.1"</span> -<span id="L1436" class="LineNr">1436 </span> <a href='trace.mu.html#L155'>trace-higher</a> t -<span id="L1437" class="LineNr">1437 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2"</span> -<span id="L1438" class="LineNr">1438 </span> <span class="muComment"># setup: screen</span> -<span id="L1439" class="LineNr">1439 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L1440" class="LineNr">1440 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack -<span id="L1441" class="LineNr">1441 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x10</span>/width, <span class="Constant">4</span>/height, <span class="Constant">0</span>/no-pixel-graphics -<span id="L1442" class="LineNr">1442 </span> <span class="muComment">#</span> -<span id="L1443" class="LineNr">1443 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L1444" class="LineNr">1444 </span> <span class="muComment">#</span> -<span id="L1445" class="LineNr">1445 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1428'>test-trace-collapse-skips-invisible-lines</a>/pre-0"</span> -<span id="L1446" class="LineNr">1446 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1428'>test-trace-collapse-skips-invisible-lines</a>/pre-0/cursor"</span> -<span id="L1447" class="LineNr">1447 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1428'>test-trace-collapse-skips-invisible-lines</a>/pre-1"</span> -<span id="L1448" class="LineNr">1448 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1428'>test-trace-collapse-skips-invisible-lines</a>/pre-1/cursor"</span> -<span id="L1449" class="LineNr">1449 </span> <span class="muComment"># expand</span> -<span id="L1450" class="LineNr">1450 </span> <a href='trace.mu.html#L704'>edit-trace</a> t, <span class="Constant">0xa</span>/enter -<span id="L1451" class="LineNr">1451 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L1452" class="LineNr">1452 </span> <span class="muComment"># two visible lines with an invisible line in between</span> -<span id="L1453" class="LineNr">1453 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1428'>test-trace-collapse-skips-invisible-lines</a>/expand-0"</span> -<span id="L1454" class="LineNr">1454 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1428'>test-trace-collapse-skips-invisible-lines</a>/expand-0/cursor"</span> -<span id="L1455" class="LineNr">1455 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1428'>test-trace-collapse-skips-invisible-lines</a>/expand-1"</span> -<span id="L1456" class="LineNr">1456 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1428'>test-trace-collapse-skips-invisible-lines</a>/expand-1/cursor"</span> -<span id="L1457" class="LineNr">1457 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1428'>test-trace-collapse-skips-invisible-lines</a>/expand-2"</span> -<span id="L1458" class="LineNr">1458 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1428'>test-trace-collapse-skips-invisible-lines</a>/expand-2/cursor"</span> -<span id="L1459" class="LineNr">1459 </span> <span class="muComment"># cursor down to second visible line</span> -<span id="L1460" class="LineNr">1460 </span> <a href='trace.mu.html#L704'>edit-trace</a> t, <span class="Constant">0x6a</span>/j -<span id="L1461" class="LineNr">1461 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L1462" class="LineNr">1462 </span> <a href='trace.mu.html#L704'>edit-trace</a> t, <span class="Constant">0x6a</span>/j -<span id="L1463" class="LineNr">1463 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L1464" class="LineNr">1464 </span> <span class="muComment"># collapse</span> -<span id="L1465" class="LineNr">1465 </span> <a href='trace.mu.html#L704'>edit-trace</a> t, <span class="Constant">8</span>/backspace -<span id="L1466" class="LineNr">1466 </span> <a href='../500fake-screen.mu.html#L230'>clear-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L1467" class="LineNr">1467 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L1468" class="LineNr">1468 </span> <span class="muComment">#</span> -<span id="L1469" class="LineNr">1469 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> y, <span class="Constant">1</span>, <span class="Constant">"F - <a href='trace.mu.html#L1428'>test-trace-collapse-skips-invisible-lines</a>/post-0/y"</span> -<span id="L1470" class="LineNr">1470 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get t, cursor-y -<span id="L1471" class="LineNr">1471 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> *cursor-y, <span class="Constant">0</span>, <span class="Constant">"F - <a href='trace.mu.html#L1428'>test-trace-collapse-skips-invisible-lines</a>/post-0/cursor-y"</span> -<span id="L1472" class="LineNr">1472 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1428'>test-trace-collapse-skips-invisible-lines</a>/post-0"</span> -<span id="L1473" class="LineNr">1473 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1428'>test-trace-collapse-skips-invisible-lines</a>/post-0/cursor"</span> -<span id="L1474" class="LineNr">1474 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1428'>test-trace-collapse-skips-invisible-lines</a>/post-1"</span> -<span id="L1475" class="LineNr">1475 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1428'>test-trace-collapse-skips-invisible-lines</a>/post-1/cursor"</span> -<span id="L1476" class="LineNr">1476 </span><span class="Delimiter">}</span> -<span id="L1477" class="LineNr">1477 </span> -<span id="L1478" class="LineNr">1478 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L1478'>test-trace-collapse-two-levels</a></span> <span class="Delimiter">{</span> -<span id="L1479" class="LineNr">1479 </span> <span class="PreProc">var</span> t-storage: trace -<span id="L1480" class="LineNr">1480 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage -<span id="L1481" class="LineNr">1481 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> -<span id="L1482" class="LineNr">1482 </span> <span class="muComment">#</span> -<span id="L1483" class="LineNr">1483 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> -<span id="L1484" class="LineNr">1484 </span> <a href='trace.mu.html#L147'>trace-lower</a> t -<span id="L1485" class="LineNr">1485 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1.1"</span> -<span id="L1486" class="LineNr">1486 </span> <a href='trace.mu.html#L155'>trace-higher</a> t -<span id="L1487" class="LineNr">1487 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2"</span> -<span id="L1488" class="LineNr">1488 </span> <span class="muComment"># setup: screen</span> -<span id="L1489" class="LineNr">1489 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L1490" class="LineNr">1490 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack -<span id="L1491" class="LineNr">1491 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x10</span>/width, <span class="Constant">4</span>/height, <span class="Constant">0</span>/no-pixel-graphics -<span id="L1492" class="LineNr">1492 </span> <span class="muComment">#</span> -<span id="L1493" class="LineNr">1493 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L1494" class="LineNr">1494 </span> <span class="muComment">#</span> -<span id="L1495" class="LineNr">1495 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1478'>test-trace-collapse-two-levels</a>/pre-0"</span> -<span id="L1496" class="LineNr">1496 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1478'>test-trace-collapse-two-levels</a>/pre-0/cursor"</span> -<span id="L1497" class="LineNr">1497 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1478'>test-trace-collapse-two-levels</a>/pre-1"</span> -<span id="L1498" class="LineNr">1498 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1478'>test-trace-collapse-two-levels</a>/pre-1/cursor"</span> -<span id="L1499" class="LineNr">1499 </span> <span class="muComment"># expand</span> -<span id="L1500" class="LineNr">1500 </span> <a href='trace.mu.html#L704'>edit-trace</a> t, <span class="Constant">0xa</span>/enter -<span id="L1501" class="LineNr">1501 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L1502" class="LineNr">1502 </span> <span class="muComment"># two visible lines with an invisible line in between</span> -<span id="L1503" class="LineNr">1503 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1478'>test-trace-collapse-two-levels</a>/expand-0"</span> -<span id="L1504" class="LineNr">1504 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1478'>test-trace-collapse-two-levels</a>/expand-0/cursor"</span> -<span id="L1505" class="LineNr">1505 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1478'>test-trace-collapse-two-levels</a>/expand-1"</span> -<span id="L1506" class="LineNr">1506 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1478'>test-trace-collapse-two-levels</a>/expand-1/cursor"</span> -<span id="L1507" class="LineNr">1507 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1478'>test-trace-collapse-two-levels</a>/expand-2"</span> -<span id="L1508" class="LineNr">1508 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1478'>test-trace-collapse-two-levels</a>/expand-2/cursor"</span> -<span id="L1509" class="LineNr">1509 </span> <span class="muComment"># cursor down to ellipses</span> -<span id="L1510" class="LineNr">1510 </span> <a href='trace.mu.html#L704'>edit-trace</a> t, <span class="Constant">0x6a</span>/j -<span id="L1511" class="LineNr">1511 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L1512" class="LineNr">1512 </span> <span class="muComment"># expand</span> -<span id="L1513" class="LineNr">1513 </span> <a href='trace.mu.html#L704'>edit-trace</a> t, <span class="Constant">0xa</span>/enter -<span id="L1514" class="LineNr">1514 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L1515" class="LineNr">1515 </span> <span class="muComment"># two visible lines with an invisible line in between</span> -<span id="L1516" class="LineNr">1516 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1478'>test-trace-collapse-two-levels</a>/expand2-0"</span> -<span id="L1517" class="LineNr">1517 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1478'>test-trace-collapse-two-levels</a>/expand2-0/cursor"</span> -<span id="L1518" class="LineNr">1518 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"1 line 1.1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1478'>test-trace-collapse-two-levels</a>/expand2-1"</span> -<span id="L1519" class="LineNr">1519 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">"|||||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1478'>test-trace-collapse-two-levels</a>/expand2-1/cursor"</span> -<span id="L1520" class="LineNr">1520 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1478'>test-trace-collapse-two-levels</a>/expand2-2"</span> -<span id="L1521" class="LineNr">1521 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1478'>test-trace-collapse-two-levels</a>/expand2-2/cursor"</span> -<span id="L1522" class="LineNr">1522 </span> <span class="muComment"># cursor down to second visible line</span> -<span id="L1523" class="LineNr">1523 </span> <a href='trace.mu.html#L704'>edit-trace</a> t, <span class="Constant">0x6a</span>/j -<span id="L1524" class="LineNr">1524 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L1525" class="LineNr">1525 </span> <span class="muComment"># collapse</span> -<span id="L1526" class="LineNr">1526 </span> <a href='trace.mu.html#L704'>edit-trace</a> t, <span class="Constant">8</span>/backspace -<span id="L1527" class="LineNr">1527 </span> <a href='../500fake-screen.mu.html#L230'>clear-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L1528" class="LineNr">1528 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L1529" class="LineNr">1529 </span> <span class="muComment">#</span> -<span id="L1530" class="LineNr">1530 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> y, <span class="Constant">1</span>, <span class="Constant">"F - <a href='trace.mu.html#L1478'>test-trace-collapse-two-levels</a>/post-0/y"</span> -<span id="L1531" class="LineNr">1531 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get t, cursor-y -<span id="L1532" class="LineNr">1532 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> *cursor-y, <span class="Constant">0</span>, <span class="Constant">"F - <a href='trace.mu.html#L1478'>test-trace-collapse-two-levels</a>/post-0/cursor-y"</span> -<span id="L1533" class="LineNr">1533 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1478'>test-trace-collapse-two-levels</a>/post-0"</span> -<span id="L1534" class="LineNr">1534 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1478'>test-trace-collapse-two-levels</a>/post-0/cursor"</span> -<span id="L1535" class="LineNr">1535 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1478'>test-trace-collapse-two-levels</a>/post-1"</span> -<span id="L1536" class="LineNr">1536 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1478'>test-trace-collapse-two-levels</a>/post-1/cursor"</span> -<span id="L1537" class="LineNr">1537 </span><span class="Delimiter">}</span> -<span id="L1538" class="LineNr">1538 </span> -<span id="L1539" class="LineNr">1539 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L1539'>test-trace-collapse-nested-level</a></span> <span class="Delimiter">{</span> -<span id="L1540" class="LineNr">1540 </span> <span class="PreProc">var</span> t-storage: trace -<span id="L1541" class="LineNr">1541 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage -<span id="L1542" class="LineNr">1542 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> -<span id="L1543" class="LineNr">1543 </span> <span class="muComment">#</span> -<span id="L1544" class="LineNr">1544 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> -<span id="L1545" class="LineNr">1545 </span> <a href='trace.mu.html#L147'>trace-lower</a> t -<span id="L1546" class="LineNr">1546 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1.1"</span> -<span id="L1547" class="LineNr">1547 </span> <a href='trace.mu.html#L155'>trace-higher</a> t -<span id="L1548" class="LineNr">1548 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2"</span> -<span id="L1549" class="LineNr">1549 </span> <a href='trace.mu.html#L147'>trace-lower</a> t -<span id="L1550" class="LineNr">1550 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2.1"</span> -<span id="L1551" class="LineNr">1551 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2.2"</span> -<span id="L1552" class="LineNr">1552 </span> <a href='trace.mu.html#L155'>trace-higher</a> t -<span id="L1553" class="LineNr">1553 </span> <span class="muComment"># setup: screen</span> -<span id="L1554" class="LineNr">1554 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L1555" class="LineNr">1555 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack -<span id="L1556" class="LineNr">1556 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x10</span>/width, <span class="Constant">8</span>/height, <span class="Constant">0</span>/no-pixel-graphics -<span id="L1557" class="LineNr">1557 </span> <span class="muComment">#</span> -<span id="L1558" class="LineNr">1558 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">8</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L1559" class="LineNr">1559 </span> <span class="muComment">#</span> -<span id="L1560" class="LineNr">1560 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1539'>test-trace-collapse-nested-level</a>/pre-0"</span> -<span id="L1561" class="LineNr">1561 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1539'>test-trace-collapse-nested-level</a>/pre-0/cursor"</span> -<span id="L1562" class="LineNr">1562 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1539'>test-trace-collapse-nested-level</a>/pre-1"</span> -<span id="L1563" class="LineNr">1563 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1539'>test-trace-collapse-nested-level</a>/pre-1/cursor"</span> -<span id="L1564" class="LineNr">1564 </span> <span class="muComment"># expand</span> -<span id="L1565" class="LineNr">1565 </span> <a href='trace.mu.html#L704'>edit-trace</a> t, <span class="Constant">0xa</span>/enter -<span id="L1566" class="LineNr">1566 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">8</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L1567" class="LineNr">1567 </span> <span class="muComment"># two visible lines with an invisible line in between</span> -<span id="L1568" class="LineNr">1568 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1539'>test-trace-collapse-nested-level</a>/expand-0"</span> -<span id="L1569" class="LineNr">1569 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1539'>test-trace-collapse-nested-level</a>/expand-0/cursor"</span> -<span id="L1570" class="LineNr">1570 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1539'>test-trace-collapse-nested-level</a>/expand-1"</span> -<span id="L1571" class="LineNr">1571 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1539'>test-trace-collapse-nested-level</a>/expand-1/cursor"</span> -<span id="L1572" class="LineNr">1572 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1539'>test-trace-collapse-nested-level</a>/expand-2"</span> -<span id="L1573" class="LineNr">1573 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1539'>test-trace-collapse-nested-level</a>/expand-2/cursor"</span> -<span id="L1574" class="LineNr">1574 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">3</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1539'>test-trace-collapse-nested-level</a>/expand-3"</span> -<span id="L1575" class="LineNr">1575 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">3</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1539'>test-trace-collapse-nested-level</a>/expand-3/cursor"</span> -<span id="L1576" class="LineNr">1576 </span> <span class="muComment"># cursor down to bottom</span> -<span id="L1577" class="LineNr">1577 </span> <a href='trace.mu.html#L704'>edit-trace</a> t, <span class="Constant">0x6a</span>/j -<span id="L1578" class="LineNr">1578 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">8</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L1579" class="LineNr">1579 </span> <a href='trace.mu.html#L704'>edit-trace</a> t, <span class="Constant">0x6a</span>/j -<span id="L1580" class="LineNr">1580 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">8</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L1581" class="LineNr">1581 </span> <a href='trace.mu.html#L704'>edit-trace</a> t, <span class="Constant">0x6a</span>/j -<span id="L1582" class="LineNr">1582 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">8</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L1583" class="LineNr">1583 </span> <span class="muComment"># expand</span> -<span id="L1584" class="LineNr">1584 </span> <a href='trace.mu.html#L704'>edit-trace</a> t, <span class="Constant">0xa</span>/enter -<span id="L1585" class="LineNr">1585 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">8</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L1586" class="LineNr">1586 </span> <span class="muComment"># two visible lines with an invisible line in between</span> -<span id="L1587" class="LineNr">1587 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1539'>test-trace-collapse-nested-level</a>/expand2-0"</span> -<span id="L1588" class="LineNr">1588 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1539'>test-trace-collapse-nested-level</a>/expand2-0/cursor"</span> -<span id="L1589" class="LineNr">1589 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1539'>test-trace-collapse-nested-level</a>/expand2-1"</span> -<span id="L1590" class="LineNr">1590 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1539'>test-trace-collapse-nested-level</a>/expand2-1/cursor"</span> -<span id="L1591" class="LineNr">1591 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1539'>test-trace-collapse-nested-level</a>/expand2-2"</span> -<span id="L1592" class="LineNr">1592 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1539'>test-trace-collapse-nested-level</a>/expand2-2/cursor"</span> -<span id="L1593" class="LineNr">1593 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">3</span>/y, <span class="Constant">"1 line 2.1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1539'>test-trace-collapse-nested-level</a>/expand2-3"</span> -<span id="L1594" class="LineNr">1594 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">3</span>/y, <span class="Constant">"|||||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1539'>test-trace-collapse-nested-level</a>/expand2-3/cursor"</span> -<span id="L1595" class="LineNr">1595 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">4</span>/y, <span class="Constant">"1 line 2.2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1539'>test-trace-collapse-nested-level</a>/expand2-4"</span> -<span id="L1596" class="LineNr">1596 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">4</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1539'>test-trace-collapse-nested-level</a>/expand2-4/cursor"</span> -<span id="L1597" class="LineNr">1597 </span> <span class="muComment"># collapse</span> -<span id="L1598" class="LineNr">1598 </span> <a href='trace.mu.html#L704'>edit-trace</a> t, <span class="Constant">8</span>/backspace -<span id="L1599" class="LineNr">1599 </span> <a href='../500fake-screen.mu.html#L230'>clear-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a> -<span id="L1600" class="LineNr">1600 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L326'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">8</span>/ymax, <span class="Constant">1</span>/show-cursor -<span id="L1601" class="LineNr">1601 </span> <span class="muComment">#</span> -<span id="L1602" class="LineNr">1602 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> y, <span class="Constant">4</span>, <span class="Constant">"F - <a href='trace.mu.html#L1539'>test-trace-collapse-nested-level</a>/post-0/y"</span> -<span id="L1603" class="LineNr">1603 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get t, cursor-y -<span id="L1604" class="LineNr">1604 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> *cursor-y, <span class="Constant">2</span>, <span class="Constant">"F - <a href='trace.mu.html#L1539'>test-trace-collapse-nested-level</a>/post-0/cursor-y"</span> -<span id="L1605" class="LineNr">1605 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1539'>test-trace-collapse-nested-level</a>/post-0"</span> -<span id="L1606" class="LineNr">1606 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1539'>test-trace-collapse-nested-level</a>/post-0/cursor"</span> -<span id="L1607" class="LineNr">1607 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1539'>test-trace-collapse-nested-level</a>/post-1"</span> -<span id="L1608" class="LineNr">1608 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1539'>test-trace-collapse-nested-level</a>/post-1/cursor"</span> -<span id="L1609" class="LineNr">1609 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1539'>test-trace-collapse-nested-level</a>/post-2"</span> -<span id="L1610" class="LineNr">1610 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1539'>test-trace-collapse-nested-level</a>/post-2/cursor"</span> -<span id="L1611" class="LineNr">1611 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">3</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1539'>test-trace-collapse-nested-level</a>/post-3"</span> -<span id="L1612" class="LineNr">1612 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">3</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1539'>test-trace-collapse-nested-level</a>/post-3/cursor"</span> -<span id="L1613" class="LineNr">1613 </span><span class="Delimiter">}</span> +<span id="L1399" class="LineNr">1399 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1374'>test-trace-collapse-at-top</a>/expand-0"</span> +<span id="L1400" class="LineNr">1400 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1374'>test-trace-collapse-at-top</a>/expand-0/cursor"</span> +<span id="L1401" class="LineNr">1401 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1374'>test-trace-collapse-at-top</a>/expand-1"</span> +<span id="L1402" class="LineNr">1402 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1374'>test-trace-collapse-at-top</a>/expand-1/cursor"</span> +<span id="L1403" class="LineNr">1403 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1374'>test-trace-collapse-at-top</a>/expand-2"</span> +<span id="L1404" class="LineNr">1404 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1374'>test-trace-collapse-at-top</a>/expand-2/cursor"</span> +<span id="L1405" class="LineNr">1405 </span> <span class="muComment"># collapse</span> +<span id="L1406" class="LineNr">1406 </span> <a href='trace.mu.html#L735'>edit-trace</a> t, <span class="Constant">8</span>/backspace +<span id="L1407" class="LineNr">1407 </span> <span class="muComment"># hack: we need to render here to make this test pass; we're mixing state management with rendering</span> +<span id="L1408" class="LineNr">1408 </span> <a href='../500fake-screen.mu.html#L230'>clear-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L1409" class="LineNr">1409 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1410" class="LineNr">1410 </span> <span class="muComment">#</span> +<span id="L1411" class="LineNr">1411 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> y, <span class="Constant">1</span>, <span class="Constant">"F - <a href='trace.mu.html#L1374'>test-trace-collapse-at-top</a>/post-0/y"</span> +<span id="L1412" class="LineNr">1412 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1374'>test-trace-collapse-at-top</a>/post-0"</span> +<span id="L1413" class="LineNr">1413 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1374'>test-trace-collapse-at-top</a>/post-0/cursor"</span> +<span id="L1414" class="LineNr">1414 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1374'>test-trace-collapse-at-top</a>/post-1"</span> +<span id="L1415" class="LineNr">1415 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1374'>test-trace-collapse-at-top</a>/post-1/cursor"</span> +<span id="L1416" class="LineNr">1416 </span><span class="Delimiter">}</span> +<span id="L1417" class="LineNr">1417 </span> +<span id="L1418" class="LineNr">1418 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L1418'>test-trace-collapse</a></span> <span class="Delimiter">{</span> +<span id="L1419" class="LineNr">1419 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L1420" class="LineNr">1420 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L1421" class="LineNr">1421 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L1422" class="LineNr">1422 </span> <span class="muComment">#</span> +<span id="L1423" class="LineNr">1423 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> +<span id="L1424" class="LineNr">1424 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2"</span> +<span id="L1425" class="LineNr">1425 </span> <span class="muComment"># setup: screen</span> +<span id="L1426" class="LineNr">1426 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L1427" class="LineNr">1427 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L1428" class="LineNr">1428 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x10</span>/width, <span class="Constant">4</span>/height, <span class="Constant">0</span>/no-pixel-graphics +<span id="L1429" class="LineNr">1429 </span> <span class="muComment">#</span> +<span id="L1430" class="LineNr">1430 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1431" class="LineNr">1431 </span> <span class="muComment">#</span> +<span id="L1432" class="LineNr">1432 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1418'>test-trace-collapse</a>/pre-0"</span> +<span id="L1433" class="LineNr">1433 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1418'>test-trace-collapse</a>/pre-0/cursor"</span> +<span id="L1434" class="LineNr">1434 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1418'>test-trace-collapse</a>/pre-1"</span> +<span id="L1435" class="LineNr">1435 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1418'>test-trace-collapse</a>/pre-1/cursor"</span> +<span id="L1436" class="LineNr">1436 </span> <span class="muComment"># expand</span> +<span id="L1437" class="LineNr">1437 </span> <a href='trace.mu.html#L735'>edit-trace</a> t, <span class="Constant">0xa</span>/enter +<span id="L1438" class="LineNr">1438 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1439" class="LineNr">1439 </span> <span class="muComment">#</span> +<span id="L1440" class="LineNr">1440 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1418'>test-trace-collapse</a>/expand-0"</span> +<span id="L1441" class="LineNr">1441 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1418'>test-trace-collapse</a>/expand-0/cursor"</span> +<span id="L1442" class="LineNr">1442 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1418'>test-trace-collapse</a>/expand-1"</span> +<span id="L1443" class="LineNr">1443 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1418'>test-trace-collapse</a>/expand-1/cursor"</span> +<span id="L1444" class="LineNr">1444 </span> <span class="muComment"># cursor down</span> +<span id="L1445" class="LineNr">1445 </span> <a href='trace.mu.html#L735'>edit-trace</a> t, <span class="Constant">0x6a</span>/j +<span id="L1446" class="LineNr">1446 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1447" class="LineNr">1447 </span> <span class="muComment"># collapse</span> +<span id="L1448" class="LineNr">1448 </span> <a href='trace.mu.html#L735'>edit-trace</a> t, <span class="Constant">8</span>/backspace +<span id="L1449" class="LineNr">1449 </span> <a href='../500fake-screen.mu.html#L230'>clear-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L1450" class="LineNr">1450 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1451" class="LineNr">1451 </span> <span class="muComment">#</span> +<span id="L1452" class="LineNr">1452 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> y, <span class="Constant">1</span>, <span class="Constant">"F - <a href='trace.mu.html#L1418'>test-trace-collapse</a>/post-0/y"</span> +<span id="L1453" class="LineNr">1453 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1418'>test-trace-collapse</a>/post-0"</span> +<span id="L1454" class="LineNr">1454 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1418'>test-trace-collapse</a>/post-0/cursor"</span> +<span id="L1455" class="LineNr">1455 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1418'>test-trace-collapse</a>/post-1"</span> +<span id="L1456" class="LineNr">1456 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1418'>test-trace-collapse</a>/post-1/cursor"</span> +<span id="L1457" class="LineNr">1457 </span><span class="Delimiter">}</span> +<span id="L1458" class="LineNr">1458 </span> +<span id="L1459" class="LineNr">1459 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L1459'>test-trace-collapse-skips-invisible-lines</a></span> <span class="Delimiter">{</span> +<span id="L1460" class="LineNr">1460 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L1461" class="LineNr">1461 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L1462" class="LineNr">1462 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L1463" class="LineNr">1463 </span> <span class="muComment">#</span> +<span id="L1464" class="LineNr">1464 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> +<span id="L1465" class="LineNr">1465 </span> <a href='trace.mu.html#L147'>trace-lower</a> t +<span id="L1466" class="LineNr">1466 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1.1"</span> +<span id="L1467" class="LineNr">1467 </span> <a href='trace.mu.html#L155'>trace-higher</a> t +<span id="L1468" class="LineNr">1468 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2"</span> +<span id="L1469" class="LineNr">1469 </span> <span class="muComment"># setup: screen</span> +<span id="L1470" class="LineNr">1470 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L1471" class="LineNr">1471 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L1472" class="LineNr">1472 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x10</span>/width, <span class="Constant">4</span>/height, <span class="Constant">0</span>/no-pixel-graphics +<span id="L1473" class="LineNr">1473 </span> <span class="muComment">#</span> +<span id="L1474" class="LineNr">1474 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1475" class="LineNr">1475 </span> <span class="muComment">#</span> +<span id="L1476" class="LineNr">1476 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1459'>test-trace-collapse-skips-invisible-lines</a>/pre-0"</span> +<span id="L1477" class="LineNr">1477 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1459'>test-trace-collapse-skips-invisible-lines</a>/pre-0/cursor"</span> +<span id="L1478" class="LineNr">1478 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1459'>test-trace-collapse-skips-invisible-lines</a>/pre-1"</span> +<span id="L1479" class="LineNr">1479 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1459'>test-trace-collapse-skips-invisible-lines</a>/pre-1/cursor"</span> +<span id="L1480" class="LineNr">1480 </span> <span class="muComment"># expand</span> +<span id="L1481" class="LineNr">1481 </span> <a href='trace.mu.html#L735'>edit-trace</a> t, <span class="Constant">0xa</span>/enter +<span id="L1482" class="LineNr">1482 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1483" class="LineNr">1483 </span> <span class="muComment"># two visible lines with an invisible line in between</span> +<span id="L1484" class="LineNr">1484 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1459'>test-trace-collapse-skips-invisible-lines</a>/expand-0"</span> +<span id="L1485" class="LineNr">1485 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1459'>test-trace-collapse-skips-invisible-lines</a>/expand-0/cursor"</span> +<span id="L1486" class="LineNr">1486 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1459'>test-trace-collapse-skips-invisible-lines</a>/expand-1"</span> +<span id="L1487" class="LineNr">1487 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1459'>test-trace-collapse-skips-invisible-lines</a>/expand-1/cursor"</span> +<span id="L1488" class="LineNr">1488 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1459'>test-trace-collapse-skips-invisible-lines</a>/expand-2"</span> +<span id="L1489" class="LineNr">1489 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1459'>test-trace-collapse-skips-invisible-lines</a>/expand-2/cursor"</span> +<span id="L1490" class="LineNr">1490 </span> <span class="muComment"># cursor down to second visible line</span> +<span id="L1491" class="LineNr">1491 </span> <a href='trace.mu.html#L735'>edit-trace</a> t, <span class="Constant">0x6a</span>/j +<span id="L1492" class="LineNr">1492 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1493" class="LineNr">1493 </span> <a href='trace.mu.html#L735'>edit-trace</a> t, <span class="Constant">0x6a</span>/j +<span id="L1494" class="LineNr">1494 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1495" class="LineNr">1495 </span> <span class="muComment"># collapse</span> +<span id="L1496" class="LineNr">1496 </span> <a href='trace.mu.html#L735'>edit-trace</a> t, <span class="Constant">8</span>/backspace +<span id="L1497" class="LineNr">1497 </span> <a href='../500fake-screen.mu.html#L230'>clear-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L1498" class="LineNr">1498 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1499" class="LineNr">1499 </span> <span class="muComment">#</span> +<span id="L1500" class="LineNr">1500 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> y, <span class="Constant">1</span>, <span class="Constant">"F - <a href='trace.mu.html#L1459'>test-trace-collapse-skips-invisible-lines</a>/post-0/y"</span> +<span id="L1501" class="LineNr">1501 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get t, cursor-y +<span id="L1502" class="LineNr">1502 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> *cursor-y, <span class="Constant">0</span>, <span class="Constant">"F - <a href='trace.mu.html#L1459'>test-trace-collapse-skips-invisible-lines</a>/post-0/cursor-y"</span> +<span id="L1503" class="LineNr">1503 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1459'>test-trace-collapse-skips-invisible-lines</a>/post-0"</span> +<span id="L1504" class="LineNr">1504 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1459'>test-trace-collapse-skips-invisible-lines</a>/post-0/cursor"</span> +<span id="L1505" class="LineNr">1505 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1459'>test-trace-collapse-skips-invisible-lines</a>/post-1"</span> +<span id="L1506" class="LineNr">1506 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1459'>test-trace-collapse-skips-invisible-lines</a>/post-1/cursor"</span> +<span id="L1507" class="LineNr">1507 </span><span class="Delimiter">}</span> +<span id="L1508" class="LineNr">1508 </span> +<span id="L1509" class="LineNr">1509 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L1509'>test-trace-collapse-two-levels</a></span> <span class="Delimiter">{</span> +<span id="L1510" class="LineNr">1510 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L1511" class="LineNr">1511 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L1512" class="LineNr">1512 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L1513" class="LineNr">1513 </span> <span class="muComment">#</span> +<span id="L1514" class="LineNr">1514 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> +<span id="L1515" class="LineNr">1515 </span> <a href='trace.mu.html#L147'>trace-lower</a> t +<span id="L1516" class="LineNr">1516 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1.1"</span> +<span id="L1517" class="LineNr">1517 </span> <a href='trace.mu.html#L155'>trace-higher</a> t +<span id="L1518" class="LineNr">1518 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2"</span> +<span id="L1519" class="LineNr">1519 </span> <span class="muComment"># setup: screen</span> +<span id="L1520" class="LineNr">1520 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L1521" class="LineNr">1521 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L1522" class="LineNr">1522 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x10</span>/width, <span class="Constant">4</span>/height, <span class="Constant">0</span>/no-pixel-graphics +<span id="L1523" class="LineNr">1523 </span> <span class="muComment">#</span> +<span id="L1524" class="LineNr">1524 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1525" class="LineNr">1525 </span> <span class="muComment">#</span> +<span id="L1526" class="LineNr">1526 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1509'>test-trace-collapse-two-levels</a>/pre-0"</span> +<span id="L1527" class="LineNr">1527 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1509'>test-trace-collapse-two-levels</a>/pre-0/cursor"</span> +<span id="L1528" class="LineNr">1528 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1509'>test-trace-collapse-two-levels</a>/pre-1"</span> +<span id="L1529" class="LineNr">1529 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1509'>test-trace-collapse-two-levels</a>/pre-1/cursor"</span> +<span id="L1530" class="LineNr">1530 </span> <span class="muComment"># expand</span> +<span id="L1531" class="LineNr">1531 </span> <a href='trace.mu.html#L735'>edit-trace</a> t, <span class="Constant">0xa</span>/enter +<span id="L1532" class="LineNr">1532 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1533" class="LineNr">1533 </span> <span class="muComment"># two visible lines with an invisible line in between</span> +<span id="L1534" class="LineNr">1534 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1509'>test-trace-collapse-two-levels</a>/expand-0"</span> +<span id="L1535" class="LineNr">1535 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1509'>test-trace-collapse-two-levels</a>/expand-0/cursor"</span> +<span id="L1536" class="LineNr">1536 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1509'>test-trace-collapse-two-levels</a>/expand-1"</span> +<span id="L1537" class="LineNr">1537 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1509'>test-trace-collapse-two-levels</a>/expand-1/cursor"</span> +<span id="L1538" class="LineNr">1538 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1509'>test-trace-collapse-two-levels</a>/expand-2"</span> +<span id="L1539" class="LineNr">1539 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1509'>test-trace-collapse-two-levels</a>/expand-2/cursor"</span> +<span id="L1540" class="LineNr">1540 </span> <span class="muComment"># cursor down to ellipses</span> +<span id="L1541" class="LineNr">1541 </span> <a href='trace.mu.html#L735'>edit-trace</a> t, <span class="Constant">0x6a</span>/j +<span id="L1542" class="LineNr">1542 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1543" class="LineNr">1543 </span> <span class="muComment"># expand</span> +<span id="L1544" class="LineNr">1544 </span> <a href='trace.mu.html#L735'>edit-trace</a> t, <span class="Constant">0xa</span>/enter +<span id="L1545" class="LineNr">1545 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1546" class="LineNr">1546 </span> <span class="muComment"># two visible lines with an invisible line in between</span> +<span id="L1547" class="LineNr">1547 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1509'>test-trace-collapse-two-levels</a>/expand2-0"</span> +<span id="L1548" class="LineNr">1548 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1509'>test-trace-collapse-two-levels</a>/expand2-0/cursor"</span> +<span id="L1549" class="LineNr">1549 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"1 line 1.1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1509'>test-trace-collapse-two-levels</a>/expand2-1"</span> +<span id="L1550" class="LineNr">1550 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">"|||||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1509'>test-trace-collapse-two-levels</a>/expand2-1/cursor"</span> +<span id="L1551" class="LineNr">1551 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1509'>test-trace-collapse-two-levels</a>/expand2-2"</span> +<span id="L1552" class="LineNr">1552 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1509'>test-trace-collapse-two-levels</a>/expand2-2/cursor"</span> +<span id="L1553" class="LineNr">1553 </span> <span class="muComment"># cursor down to second visible line</span> +<span id="L1554" class="LineNr">1554 </span> <a href='trace.mu.html#L735'>edit-trace</a> t, <span class="Constant">0x6a</span>/j +<span id="L1555" class="LineNr">1555 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1556" class="LineNr">1556 </span> <span class="muComment"># collapse</span> +<span id="L1557" class="LineNr">1557 </span> <a href='trace.mu.html#L735'>edit-trace</a> t, <span class="Constant">8</span>/backspace +<span id="L1558" class="LineNr">1558 </span> <a href='../500fake-screen.mu.html#L230'>clear-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L1559" class="LineNr">1559 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1560" class="LineNr">1560 </span> <span class="muComment">#</span> +<span id="L1561" class="LineNr">1561 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> y, <span class="Constant">1</span>, <span class="Constant">"F - <a href='trace.mu.html#L1509'>test-trace-collapse-two-levels</a>/post-0/y"</span> +<span id="L1562" class="LineNr">1562 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get t, cursor-y +<span id="L1563" class="LineNr">1563 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> *cursor-y, <span class="Constant">0</span>, <span class="Constant">"F - <a href='trace.mu.html#L1509'>test-trace-collapse-two-levels</a>/post-0/cursor-y"</span> +<span id="L1564" class="LineNr">1564 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1509'>test-trace-collapse-two-levels</a>/post-0"</span> +<span id="L1565" class="LineNr">1565 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1509'>test-trace-collapse-two-levels</a>/post-0/cursor"</span> +<span id="L1566" class="LineNr">1566 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1509'>test-trace-collapse-two-levels</a>/post-1"</span> +<span id="L1567" class="LineNr">1567 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1509'>test-trace-collapse-two-levels</a>/post-1/cursor"</span> +<span id="L1568" class="LineNr">1568 </span><span class="Delimiter">}</span> +<span id="L1569" class="LineNr">1569 </span> +<span id="L1570" class="LineNr">1570 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L1570'>test-trace-collapse-nested-level</a></span> <span class="Delimiter">{</span> +<span id="L1571" class="LineNr">1571 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L1572" class="LineNr">1572 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L1573" class="LineNr">1573 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L1574" class="LineNr">1574 </span> <span class="muComment">#</span> +<span id="L1575" class="LineNr">1575 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> +<span id="L1576" class="LineNr">1576 </span> <a href='trace.mu.html#L147'>trace-lower</a> t +<span id="L1577" class="LineNr">1577 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1.1"</span> +<span id="L1578" class="LineNr">1578 </span> <a href='trace.mu.html#L155'>trace-higher</a> t +<span id="L1579" class="LineNr">1579 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2"</span> +<span id="L1580" class="LineNr">1580 </span> <a href='trace.mu.html#L147'>trace-lower</a> t +<span id="L1581" class="LineNr">1581 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2.1"</span> +<span id="L1582" class="LineNr">1582 </span> <a href='trace.mu.html#L120'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2.2"</span> +<span id="L1583" class="LineNr">1583 </span> <a href='trace.mu.html#L155'>trace-higher</a> t +<span id="L1584" class="LineNr">1584 </span> <span class="muComment"># setup: screen</span> +<span id="L1585" class="LineNr">1585 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L1586" class="LineNr">1586 </span> <span class="PreProc">var</span> <a href='../500fake-screen.mu.html#L14'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L1587" class="LineNr">1587 </span> <a href='../500fake-screen.mu.html#L31'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x10</span>/width, <span class="Constant">8</span>/height, <span class="Constant">0</span>/no-pixel-graphics +<span id="L1588" class="LineNr">1588 </span> <span class="muComment">#</span> +<span id="L1589" class="LineNr">1589 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">8</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1590" class="LineNr">1590 </span> <span class="muComment">#</span> +<span id="L1591" class="LineNr">1591 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1570'>test-trace-collapse-nested-level</a>/pre-0"</span> +<span id="L1592" class="LineNr">1592 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1570'>test-trace-collapse-nested-level</a>/pre-0/cursor"</span> +<span id="L1593" class="LineNr">1593 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1570'>test-trace-collapse-nested-level</a>/pre-1"</span> +<span id="L1594" class="LineNr">1594 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1570'>test-trace-collapse-nested-level</a>/pre-1/cursor"</span> +<span id="L1595" class="LineNr">1595 </span> <span class="muComment"># expand</span> +<span id="L1596" class="LineNr">1596 </span> <a href='trace.mu.html#L735'>edit-trace</a> t, <span class="Constant">0xa</span>/enter +<span id="L1597" class="LineNr">1597 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">8</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1598" class="LineNr">1598 </span> <span class="muComment"># two visible lines with an invisible line in between</span> +<span id="L1599" class="LineNr">1599 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1570'>test-trace-collapse-nested-level</a>/expand-0"</span> +<span id="L1600" class="LineNr">1600 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1570'>test-trace-collapse-nested-level</a>/expand-0/cursor"</span> +<span id="L1601" class="LineNr">1601 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1570'>test-trace-collapse-nested-level</a>/expand-1"</span> +<span id="L1602" class="LineNr">1602 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1570'>test-trace-collapse-nested-level</a>/expand-1/cursor"</span> +<span id="L1603" class="LineNr">1603 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1570'>test-trace-collapse-nested-level</a>/expand-2"</span> +<span id="L1604" class="LineNr">1604 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1570'>test-trace-collapse-nested-level</a>/expand-2/cursor"</span> +<span id="L1605" class="LineNr">1605 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">3</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1570'>test-trace-collapse-nested-level</a>/expand-3"</span> +<span id="L1606" class="LineNr">1606 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">3</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1570'>test-trace-collapse-nested-level</a>/expand-3/cursor"</span> +<span id="L1607" class="LineNr">1607 </span> <span class="muComment"># cursor down to bottom</span> +<span id="L1608" class="LineNr">1608 </span> <a href='trace.mu.html#L735'>edit-trace</a> t, <span class="Constant">0x6a</span>/j +<span id="L1609" class="LineNr">1609 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">8</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1610" class="LineNr">1610 </span> <a href='trace.mu.html#L735'>edit-trace</a> t, <span class="Constant">0x6a</span>/j +<span id="L1611" class="LineNr">1611 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">8</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1612" class="LineNr">1612 </span> <a href='trace.mu.html#L735'>edit-trace</a> t, <span class="Constant">0x6a</span>/j +<span id="L1613" class="LineNr">1613 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">8</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1614" class="LineNr">1614 </span> <span class="muComment"># expand</span> +<span id="L1615" class="LineNr">1615 </span> <a href='trace.mu.html#L735'>edit-trace</a> t, <span class="Constant">0xa</span>/enter +<span id="L1616" class="LineNr">1616 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">8</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1617" class="LineNr">1617 </span> <span class="muComment"># two visible lines with an invisible line in between</span> +<span id="L1618" class="LineNr">1618 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1570'>test-trace-collapse-nested-level</a>/expand2-0"</span> +<span id="L1619" class="LineNr">1619 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1570'>test-trace-collapse-nested-level</a>/expand2-0/cursor"</span> +<span id="L1620" class="LineNr">1620 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1570'>test-trace-collapse-nested-level</a>/expand2-1"</span> +<span id="L1621" class="LineNr">1621 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1570'>test-trace-collapse-nested-level</a>/expand2-1/cursor"</span> +<span id="L1622" class="LineNr">1622 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1570'>test-trace-collapse-nested-level</a>/expand2-2"</span> +<span id="L1623" class="LineNr">1623 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1570'>test-trace-collapse-nested-level</a>/expand2-2/cursor"</span> +<span id="L1624" class="LineNr">1624 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">3</span>/y, <span class="Constant">"1 line 2.1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1570'>test-trace-collapse-nested-level</a>/expand2-3"</span> +<span id="L1625" class="LineNr">1625 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">3</span>/y, <span class="Constant">"|||||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1570'>test-trace-collapse-nested-level</a>/expand2-3/cursor"</span> +<span id="L1626" class="LineNr">1626 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">4</span>/y, <span class="Constant">"1 line 2.2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1570'>test-trace-collapse-nested-level</a>/expand2-4"</span> +<span id="L1627" class="LineNr">1627 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">4</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1570'>test-trace-collapse-nested-level</a>/expand2-4/cursor"</span> +<span id="L1628" class="LineNr">1628 </span> <span class="muComment"># collapse</span> +<span id="L1629" class="LineNr">1629 </span> <a href='trace.mu.html#L735'>edit-trace</a> t, <span class="Constant">8</span>/backspace +<span id="L1630" class="LineNr">1630 </span> <a href='../500fake-screen.mu.html#L230'>clear-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a> +<span id="L1631" class="LineNr">1631 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L357'>render-trace</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">8</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1632" class="LineNr">1632 </span> <span class="muComment">#</span> +<span id="L1633" class="LineNr">1633 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> y, <span class="Constant">4</span>, <span class="Constant">"F - <a href='trace.mu.html#L1570'>test-trace-collapse-nested-level</a>/post-0/y"</span> +<span id="L1634" class="LineNr">1634 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get t, cursor-y +<span id="L1635" class="LineNr">1635 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> *cursor-y, <span class="Constant">2</span>, <span class="Constant">"F - <a href='trace.mu.html#L1570'>test-trace-collapse-nested-level</a>/post-0/cursor-y"</span> +<span id="L1636" class="LineNr">1636 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1570'>test-trace-collapse-nested-level</a>/post-0"</span> +<span id="L1637" class="LineNr">1637 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1570'>test-trace-collapse-nested-level</a>/post-0/cursor"</span> +<span id="L1638" class="LineNr">1638 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1570'>test-trace-collapse-nested-level</a>/post-1"</span> +<span id="L1639" class="LineNr">1639 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1570'>test-trace-collapse-nested-level</a>/post-1/cursor"</span> +<span id="L1640" class="LineNr">1640 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1570'>test-trace-collapse-nested-level</a>/post-2"</span> +<span id="L1641" class="LineNr">1641 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1570'>test-trace-collapse-nested-level</a>/post-2/cursor"</span> +<span id="L1642" class="LineNr">1642 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">3</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1570'>test-trace-collapse-nested-level</a>/post-3"</span> +<span id="L1643" class="LineNr">1643 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">3</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1570'>test-trace-collapse-nested-level</a>/post-3/cursor"</span> +<span id="L1644" class="LineNr">1644 </span><span class="Delimiter">}</span> </pre> </body> </html> |